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