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