1 #include <petsc/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 PETSC_EXTERN void PETSC_STDCALL petscbinaryopen_(char* name PETSC_MIXED_LEN(len),PetscFileMode *type,int *fd, 12 PetscErrorCode *ierr PETSC_END_LEN(len)) 13 { 14 char *c1; 15 16 FIXCHAR(name,len,c1); 17 *ierr = PetscBinaryOpen(c1,*type,fd);if (*ierr) return; 18 FREECHAR(name,c1); 19 } 20 21 PETSC_EXTERN void PETSC_STDCALL petsctestfile_(char* name PETSC_MIXED_LEN(len),char* mode PETSC_MIXED_LEN(len1),PetscBool *flg,PetscErrorCode *ierr PETSC_END_LEN(len) PETSC_END_LEN(len1)) 22 { 23 char *c1; 24 25 FIXCHAR(name,len,c1); 26 *ierr = PetscTestFile(c1,*mode,flg);if (*ierr) return; 27 FREECHAR(name,c1); 28 } 29 30