Actual source code: izhdf5f.c

      1: #include <petsc/private/ftnimpl.h>
      2: #include <petscviewerhdf5.h>

      4: #if defined(PETSC_HAVE_FORTRAN_CAPS)
      5:   #define petscviewerhdf5opengroup_ PETSCVIEWERHDF5OPENGROUP
      6: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
      7:   #define petscviewerhdf5opengroup_ petscviewerhdf5opengroup
      8: #endif

     10: PETSC_EXTERN void petscviewerhdf5opengroup_(PetscViewer *viewer, char path[], hid_t *fileId, hid_t *groupId, int *ierr, PETSC_FORTRAN_CHARLEN_T len)
     11: {
     12:   char *c1;

     14:   FIXCHAR(path, len, c1);
     15:   *ierr = PetscViewerHDF5OpenGroup(*viewer, c1, fileId, groupId);
     16:   FREECHAR(path, c1);
     17: }