2: #ifndef __FWAXPY_H 5: #include <petscsys.h> 6: #if defined(PETSC_USE_FORTRAN_KERNEL_WAXPY) 7: #if defined(PETSC_HAVE_FORTRAN_CAPS) 8: #define fortranwaxpy_ FORTRANWAXPY 9: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 10: #define fortranwaxpy_ fortranwaxpy 11: #endif 12: PETSC_EXTERN void fortranwaxpy_(const PetscInt *, const PetscScalar *, const PetscScalar *, const PetscScalar *, PetscScalar *); 13: #endif 14: #endif