1af0996ceSBarry Smith #include <petsc/private/fortranimpl.h> 255fcb7f5SSatish Balay 355fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 455fcb7f5SSatish Balay #define petscbinaryopen_ PETSCBINARYOPEN 5c1bccaadSBarry Smith #define petsctestfile_ PETSCTESTFILE 655fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 755fcb7f5SSatish Balay #define petscbinaryopen_ petscbinaryopen 8a8cc4164SSatish Balay #define petsctestfile_ petsctestfile 955fcb7f5SSatish Balay #endif 1055fcb7f5SSatish Balay 11390e1bf2SBarry Smith PETSC_EXTERN void PETSC_STDCALL petscbinaryopen_(char* name PETSC_MIXED_LEN(len),PetscFileMode *type,int *fd, 1255fcb7f5SSatish Balay PetscErrorCode *ierr PETSC_END_LEN(len)) 1355fcb7f5SSatish Balay { 1455fcb7f5SSatish Balay char *c1; 1555fcb7f5SSatish Balay 1655fcb7f5SSatish Balay FIXCHAR(name,len,c1); 17*d49bb8f9SBarry Smith *ierr = PetscBinaryOpen(c1,*type,fd);if (*ierr) return; 1855fcb7f5SSatish Balay FREECHAR(name,c1); 1955fcb7f5SSatish Balay } 2055fcb7f5SSatish Balay 21390e1bf2SBarry Smith 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)) 22c1bccaadSBarry Smith { 23ca43db0aSBarry Smith char *c1; 24c1bccaadSBarry Smith 25c1bccaadSBarry Smith FIXCHAR(name,len,c1); 26*d49bb8f9SBarry Smith *ierr = PetscTestFile(c1,*mode,flg);if (*ierr) return; 27c1bccaadSBarry Smith FREECHAR(name,c1); 28c1bccaadSBarry Smith } 29c1bccaadSBarry Smith 30