1: #pragma once 3: #include <petscsys.h> 4: #if defined(PETSC_USE_FORTRAN_KERNEL_AYPX) 5: #if defined(PETSC_HAVE_FORTRAN_CAPS) 6: #define fortranaypx_ FORTRANAYPX 7: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8: #define fortranaypx_ fortranaypx 9: #endif 10: PETSC_EXTERN void fortranaypx_(const PetscInt *, const PetscScalar *, const PetscScalar *, PetscScalar *); 11: #endif