Actual source code: zhdf5io.c
1: #include <petsc/private/fortranimpl.h>
2: #include <petsclayouthdf5.h>
3: #include <petscviewer.h>
5: #if defined(PETSC_HAVE_HDF5)
7: #if defined(PETSC_HAVE_FORTRAN_CAPS)
8: #define petscviewerhdf5readsizes_ PETSCVIEWERHDF5READSIZES
9: #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE)
10: #define petscviewerhdf5readsizes_ petscviewerhdf5readsizes
11: #endif
13: PETSC_EXTERN void petscviewerhdf5readsizes_(PetscViewer *viewer, char *name, PetscInt *bs, PetscInt *N, PetscErrorCode *ierr, PETSC_FORTRAN_CHARLEN_T len)
14: {
15: char *c1;
17: FIXCHAR(name, len, c1);
18: *ierr = PetscViewerHDF5ReadSizes(*viewer, c1, bs, N);
19: FREECHAR(name, c1);
20: }
22: #endif /* defined(PETSC_HAVE_HDF5) */