Actual source code: zhdf5f.c

  1: #include "private/fortranimpl.h"

  3: #if defined(PETSC_HAVE_FORTRAN_CAPS)
  4: #define petscviewerhdf5open_     PETSCVIEWERHDF5OPEN
  5: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
  6: #define petscviewerhdf5open_     petscviewerhdf5open
  7: #endif


 11: void PETSC_STDCALL petscviewerhdf5open_(MPI_Comm *comm,CHAR name PETSC_MIXED_LEN(len),PetscFileMode *type,
 12:                            PetscViewer *binv,PetscErrorCode *ierr PETSC_END_LEN(len))
 13: {
 14:   char   *c1;
 15:   FIXCHAR(name,len,c1);
 16:   *PetscViewerHDF5Open(MPI_Comm_f2c(*(MPI_Fint *)&*comm),c1,*type,binv);
 17:   FREECHAR(name,c1);
 18: }