1*ce0a2cd1SBarry Smith #include "private/fortranimpl.h" 255fcb7f5SSatish Balay #include "petscsys.h" 355fcb7f5SSatish Balay 455fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 555fcb7f5SSatish Balay #define petscbinaryopen_ PETSCBINARYOPEN 655fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 755fcb7f5SSatish Balay #define petscbinaryopen_ petscbinaryopen 855fcb7f5SSatish Balay #endif 955fcb7f5SSatish Balay 1055fcb7f5SSatish Balay EXTERN_C_BEGIN 1145c64e65SBarry Smith 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); 1755fcb7f5SSatish Balay *ierr = PetscBinaryOpen(c1,*type,fd); 1855fcb7f5SSatish Balay FREECHAR(name,c1); 1955fcb7f5SSatish Balay } 2055fcb7f5SSatish Balay 2155fcb7f5SSatish Balay EXTERN_C_END 22