1: #ifndef PETSC_FCOPY_H 2: #define PETSC_FCOPY_H 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 // PETSC_FCOPY_H