1 #include "private/fortranimpl.h" 2 3 #if defined(PETSC_HAVE_FORTRAN_CAPS) 4 #define petscbinaryopen_ PETSCBINARYOPEN 5 #define petsctestfile_ PETSCTESTFILE 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define petscbinaryopen_ petscbinaryopen 8 #define petsctestfile_ petsctestfile 9 #endif 10 11 EXTERN_C_BEGIN 12 void PETSC_STDCALL petscbinaryopen_(CHAR name PETSC_MIXED_LEN(len),PetscFileMode *type,int *fd, 13 PetscErrorCode *ierr PETSC_END_LEN(len)) 14 { 15 char *c1; 16 17 FIXCHAR(name,len,c1); 18 *ierr = PetscBinaryOpen(c1,*type,fd); 19 FREECHAR(name,c1); 20 } 21 22 void PETSC_STDCALL petsctestfile_(CHAR name PETSC_MIXED_LEN(len),CHAR mode PETSC_MIXED_LEN(len1),PetscTruth *flg,PetscErrorCode *ierr PETSC_END_LEN(len) PETSC_END_LEN(len1)) 23 { 24 char *c1,*m1; 25 26 FIXCHAR(name,len,c1); 27 FIXCHAR(mode,len1,m1); 28 *ierr = PetscTestFile(c1,*m1,flg); 29 FREECHAR(name,c1); 30 FREECHAR(mode,m1); 31 } 32 33 EXTERN_C_END 34