14bfab301SBarry Smith 24bfab301SBarry Smith #if !defined(__fcopy_h) 34bfab301SBarry Smith 4*c6db04a5SJed Brown #include <petscsys.h> 54bfab301SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 64bfab301SBarry Smith #define fortrancopy_ FORTRANCOPY 74bfab301SBarry Smith #define fortranzero_ FORTRANZERO 84bfab301SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 94bfab301SBarry Smith #define fortrancopy_ fortrancopy 104bfab301SBarry Smith #define fortranzero_ fortranzero 114bfab301SBarry Smith #endif 124bfab301SBarry Smith EXTERN_C_BEGIN 134bfab301SBarry Smith extern void fortrancopy_(PetscInt*,PetscScalar*,PetscScalar*); 144bfab301SBarry Smith extern void fortranzero_(PetscInt*,PetscScalar*); 154bfab301SBarry Smith EXTERN_C_END 164bfab301SBarry Smith #endif 17