1 #include <petsc-private/fortranimpl.h> 2 #include <petscviewerhdf5.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define petscviewerhdf5open_ PETSCVIEWERHDF5OPEN 6 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 7 #define petscviewerhdf5open_ petscviewerhdf5open 8 #endif 9 10 EXTERN_C_BEGIN 11 12 void PETSC_STDCALL petscviewerhdf5open_(MPI_Comm *comm,CHAR name PETSC_MIXED_LEN(len),PetscFileMode *type, 13 PetscViewer *binv,PetscErrorCode *ierr PETSC_END_LEN(len)) 14 { 15 char *c1; 16 FIXCHAR(name,len,c1); 17 *ierr = PetscViewerHDF5Open(MPI_Comm_f2c(*(MPI_Fint*)&*comm),c1,*type,binv); 18 FREECHAR(name,c1); 19 } 20 21 EXTERN_C_END 22