14bfab301SBarry Smith 24bfab301SBarry Smith #if !defined(__fcopy_h) 34bfab301SBarry Smith 4c6db04a5SJed 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 12*8cc058d9SJed Brown PETSC_EXTERN void fortrancopy_(PetscInt*,PetscScalar*,PetscScalar*); 13*8cc058d9SJed Brown PETSC_EXTERN void fortranzero_(PetscInt*,PetscScalar*); 144bfab301SBarry Smith #endif 15