1: #pragma once 3: #include <petscsys.h> 4: #if PetscDefined(USE_FORTRAN_KERNEL_MAXPY) 5: #if PetscDefined(HAVE_FORTRAN_CAPS) 6: #define fortranxtimesy_ FORTRANXTIMESY 7: #elif !PetscDefined(HAVE_FORTRAN_UNDERSCORE) 8: #define fortranxtimesy_ fortranxtimesy 9: #endif 10: PETSC_EXTERN void fortranxtimesy_(const void *, const void *, void *, const PetscInt *); 11: #endif