1ce0a2cd1SBarry Smith #include "private/fortranimpl.h" 255fcb7f5SSatish Balay #include "petsc.h" 355fcb7f5SSatish Balay 455fcb7f5SSatish Balay #if defined(PETSC_HAVE_FORTRAN_CAPS) 555fcb7f5SSatish Balay #define petscfopen_ PETSCFOPEN 655fcb7f5SSatish Balay #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 755fcb7f5SSatish Balay #define petscfopen_ petscfopen 855fcb7f5SSatish Balay #endif 955fcb7f5SSatish Balay 1055fcb7f5SSatish Balay EXTERN_C_BEGIN 1155fcb7f5SSatish Balay void PETSC_STDCALL petscfopen_(MPI_Comm *comm,CHAR fname PETSC_MIXED_LEN(len1),CHAR fmode PETSC_MIXED_LEN(len2), 1255fcb7f5SSatish Balay FILE **file,PetscErrorCode *ierr PETSC_END_LEN(len1) PETSC_END_LEN(len2)) 1355fcb7f5SSatish Balay { 1455fcb7f5SSatish Balay char *c1,*c2; 1555fcb7f5SSatish Balay 1655fcb7f5SSatish Balay FIXCHAR(fname,len1,c1); 1755fcb7f5SSatish Balay FIXCHAR(fmode,len2,c2); 18*a542b6e8SBarry Smith *ierr = PetscFOpen(MPI_Comm_f2c(*(MPI_Fint *)&*comm),c1,c2,file); 1955fcb7f5SSatish Balay FREECHAR(fname,c1); 2055fcb7f5SSatish Balay FREECHAR(fmode,c2); 2155fcb7f5SSatish Balay } 2255fcb7f5SSatish Balay 2355fcb7f5SSatish Balay EXTERN_C_END 24