1 #include "private/fortranimpl.h" 2 #include "petscsys.h" 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define petscbinaryopen_ PETSCBINARYOPEN 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define petscbinaryopen_ petscbinaryopen 8 #endif 9 10 EXTERN_C_BEGIN 11 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); 18 FREECHAR(name,c1); 19 } 20 21 EXTERN_C_END 22