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