1 2 #ifndef __FMAXPY_H 3 #define __FMAXPY_H 4 5 #include <petscsys.h> 6 #if defined(PETSC_USE_FORTRAN_KERNEL_MAXPY) 7 #if defined(PETSC_HAVE_FORTRAN_CAPS) 8 #define fortranxtimesy_ FORTRANXTIMESY 9 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 10 #define fortranxtimesy_ fortranxtimesy 11 #endif 12 PETSC_EXTERN void fortranxtimesy_(const void *, const void *, void *, const PetscInt *); 13 #endif 14 #endif 15