1*4bfab301SBarry Smith 2*4bfab301SBarry Smith #if !defined(__fcopy_h) 3*4bfab301SBarry Smith 4*4bfab301SBarry Smith #include "petsc.h" 5*4bfab301SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 6*4bfab301SBarry Smith #define fortrancopy_ FORTRANCOPY 7*4bfab301SBarry Smith #define fortranzero_ FORTRANZERO 8*4bfab301SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 9*4bfab301SBarry Smith #define fortrancopy_ fortrancopy 10*4bfab301SBarry Smith #define fortranzero_ fortranzero 11*4bfab301SBarry Smith #endif 12*4bfab301SBarry Smith EXTERN_C_BEGIN 13*4bfab301SBarry Smith extern void fortrancopy_(PetscInt*,PetscScalar*,PetscScalar*); 14*4bfab301SBarry Smith extern void fortranzero_(PetscInt*,PetscScalar*); 15*4bfab301SBarry Smith EXTERN_C_END 16*4bfab301SBarry Smith #endif 17