1 #include "private/fortranimpl.h" 2 #include "petsc.h" 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define petscfopen_ PETSCFOPEN 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define petscfopen_ petscfopen 8 #endif 9 10 EXTERN_C_BEGIN 11 void PETSC_STDCALL petscfopen_(MPI_Comm *comm,CHAR fname PETSC_MIXED_LEN(len1),CHAR fmode PETSC_MIXED_LEN(len2), 12 FILE **file,PetscErrorCode *ierr PETSC_END_LEN(len1) PETSC_END_LEN(len2)) 13 { 14 char *c1,*c2; 15 16 FIXCHAR(fname,len1,c1); 17 FIXCHAR(fmode,len2,c2); 18 *ierr = PetscFOpen(MPI_Comm_f2c(*(MPI_Fint *)&*comm),c1,c2,file); 19 FREECHAR(fname,c1); 20 FREECHAR(fmode,c2); 21 } 22 23 EXTERN_C_END 24