1 #pragma once 2 3 #include <petscsys.h> 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define fortrancopy_ FORTRANCOPY 6 #define fortranzero_ FORTRANZERO 7 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 8 #define fortrancopy_ fortrancopy 9 #define fortranzero_ fortranzero 10 #endif 11 PETSC_EXTERN void fortrancopy_(PetscInt *, PetscScalar *, PetscScalar *); 12 PETSC_EXTERN void fortranzero_(PetscInt *, PetscScalar *); 13