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 EXTERN_C_BEGIN 13 extern void fortrancopy_(PetscInt*,PetscScalar*,PetscScalar*); 14 extern void fortranzero_(PetscInt*,PetscScalar*); 15 EXTERN_C_END 16 #endif 17