1*a4963045SJacob Faibussowitsch #pragma once 24bfab301SBarry Smith 3c6db04a5SJed Brown #include <petscsys.h> 44bfab301SBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 54bfab301SBarry Smith #define fortrancopy_ FORTRANCOPY 64bfab301SBarry Smith #define fortranzero_ FORTRANZERO 74bfab301SBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 84bfab301SBarry Smith #define fortrancopy_ fortrancopy 94bfab301SBarry Smith #define fortranzero_ fortranzero 104bfab301SBarry Smith #endif 118cc058d9SJed Brown PETSC_EXTERN void fortrancopy_(PetscInt *, PetscScalar *, PetscScalar *); 128cc058d9SJed Brown PETSC_EXTERN void fortranzero_(PetscInt *, PetscScalar *); 13