15c6c1daeSBarry Smith #include <petsc-private/fortranimpl.h> 2d70abbfaSBarry Smith #include <petscviewerhdf5.h> 35c6c1daeSBarry Smith 45c6c1daeSBarry Smith #if defined(PETSC_HAVE_FORTRAN_CAPS) 55c6c1daeSBarry Smith #define petscviewerhdf5open_ PETSCVIEWERHDF5OPEN 65c6c1daeSBarry Smith #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 75c6c1daeSBarry Smith #define petscviewerhdf5open_ petscviewerhdf5open 85c6c1daeSBarry Smith #endif 95c6c1daeSBarry Smith 10*8cc058d9SJed Brown PETSC_EXTERN void PETSC_STDCALL petscviewerhdf5open_(MPI_Comm *comm,CHAR name PETSC_MIXED_LEN(len),PetscFileMode *type, 115c6c1daeSBarry Smith PetscViewer *binv,PetscErrorCode *ierr PETSC_END_LEN(len)) 125c6c1daeSBarry Smith { 135c6c1daeSBarry Smith char *c1; 145c6c1daeSBarry Smith FIXCHAR(name,len,c1); 155c6c1daeSBarry Smith *ierr = PetscViewerHDF5Open(MPI_Comm_f2c(*(MPI_Fint*)&*comm),c1,*type,binv); 165c6c1daeSBarry Smith FREECHAR(name,c1); 175c6c1daeSBarry Smith } 185c6c1daeSBarry Smith 19