1 #include <petsc/private/fortranimpl.h> 2 #include <petscviewerhdf5.h> 3 4 #if defined(PETSC_HAVE_FORTRAN_CAPS) 5 #define petscviewerhdf5open_ PETSCVIEWERHDF5OPEN 6 #define petscviewerhdf5pushgroup_ PETSCVIEWERHDF5PUSHGROUP 7 #define petscviewerhdf5getgroup_ PETSCVIEWERHDF5GETGROUP 8 #define petscviewerhdf5writeattribute_ PETSCVIEWERHDF5WRITEATTRIBUTE 9 #define petscviewerhdf5readattribute_ PETSCVIEWERHDF5READATTRIBUTE 10 #elif !defined(PETSC_HAVE_FORTRAN_UNDERSCORE) 11 #define petscviewerhdf5open_ petscviewerhdf5open 12 #define petscviewerhdf5pushgroup_ petscviewerhdf5pushgroup 13 #define petscviewerhdf5getgroup_ petscviewerhdf5getgroup 14 #define petscviewerhdf5writeattribute_ petscviewerhdf5writeattribute 15 #define petscviewerhdf5readattribute_ petscviewerhdf5readattribute 16 #endif 17 18 PETSC_EXTERN void PETSC_STDCALL petscviewerhdf5open_(MPI_Comm *comm, CHAR name PETSC_MIXED_LEN(len), PetscFileMode *type, 19 PetscViewer *binv, PetscErrorCode *ierr PETSC_END_LEN(len)) 20 { 21 char *c1; 22 23 FIXCHAR(name, len, c1); 24 *ierr = PetscViewerHDF5Open(MPI_Comm_f2c(*(MPI_Fint*)&*comm), c1, *type, binv); 25 FREECHAR(name, c1); 26 } 27 28 PETSC_EXTERN void PETSC_STDCALL petscviewerhdf5pushgroup_(PetscViewer *viewer, CHAR name PETSC_MIXED_LEN(len), 29 PetscErrorCode *ierr PETSC_END_LEN(len)) 30 { 31 char *c1; 32 33 FIXCHAR(name, len, c1); 34 *ierr = PetscViewerHDF5PushGroup(*viewer, c1); 35 FREECHAR(name, c1); 36 } 37 38 PETSC_EXTERN void PETSC_STDCALL petscviewerhdf5getgroup_(PetscViewer *viewer, CHAR name PETSC_MIXED_LEN(len), 39 PetscErrorCode *ierr PETSC_END_LEN(len)) 40 { 41 const char *c1; 42 43 *ierr = PetscViewerHDF5GetGroup(*viewer, &c1); 44 *ierr = PetscStrncpy(name, c1, len); 45 FIXRETURNCHAR(PETSC_TRUE,name,len); 46 } 47 48 PETSC_EXTERN void PETSC_STDCALL petscviewerhdf5hasattribute_(PetscViewer *viewer, CHAR parent PETSC_MIXED_LEN(plen), 49 CHAR name PETSC_MIXED_LEN(nlen), PetscBool *has, PetscErrorCode *ierr PETSC_END_LEN(plen) PETSC_END_LEN(nlen)) 50 { 51 char *c1, *c2; 52 53 FIXCHAR(parent, plen, c1); 54 FIXCHAR(name, nlen, c2); 55 *ierr = PetscViewerHDF5HasAttribute(*viewer, c1, c2, has); 56 FREECHAR(parent, c1); 57 FREECHAR(name, c2); 58 } 59 60 PETSC_EXTERN void PETSC_STDCALL petscviewerhdf5writeattribute_(PetscViewer *viewer, CHAR parent PETSC_MIXED_LEN(plen), 61 CHAR name PETSC_MIXED_LEN(nlen), PetscDataType *datatype, const void *value, PetscErrorCode *ierr PETSC_END_LEN(plen) PETSC_END_LEN(nlen)) 62 { 63 char *c1, *c2; 64 65 FIXCHAR(parent, plen, c1); 66 FIXCHAR(name, nlen, c2); 67 *ierr = PetscViewerHDF5WriteAttribute(*viewer, c1, c2, *datatype, (const void *) value); 68 FREECHAR(parent, c1); 69 FREECHAR(name, c2); 70 } 71 72 PETSC_EXTERN void PETSC_STDCALL petscviewerhdf5readattribute_(PetscViewer *viewer, CHAR parent PETSC_MIXED_LEN(plen), 73 CHAR name PETSC_MIXED_LEN(nlen), PetscDataType *datatype, void *value, PetscErrorCode *ierr PETSC_END_LEN(plen) PETSC_END_LEN(nlen)) 74 { 75 char *c1, *c2; 76 77 FIXCHAR(parent, plen, c1); 78 FIXCHAR(name, nlen, c2); 79 *ierr = PetscViewerHDF5ReadAttribute(*viewer, c1, c2, *datatype, (void *) value); 80 FREECHAR(parent, c1); 81 FREECHAR(name, c2); 82 } 83