diff options
| -rw-r--r-- | fortran/src/H5Off.F90 | 11 | ||||
| -rw-r--r-- | fortran/src/H5_ff.F90 | 3 |
2 files changed, 12 insertions, 2 deletions
diff --git a/fortran/src/H5Off.F90 b/fortran/src/H5Off.F90 index 13dcf01..8c77230 100644 --- a/fortran/src/H5Off.F90 +++ b/fortran/src/H5Off.F90 @@ -69,6 +69,15 @@ MODULE H5O TYPE(mesg_t) :: mesg END TYPE hdr_t + TYPE, BIND(C) :: c_hdr_t + INTEGER(C_INT) :: version ! Version number of header format in file + INTEGER(C_INT) :: nmesgs ! Number of object header messages + INTEGER(C_INT) :: nchunks ! Number of object header chunks + INTEGER(C_INT) :: flags ! Object header status flags + TYPE(space_t) :: space + TYPE(mesg_t) :: mesg + END TYPE c_hdr_t + ! Extra metadata storage for obj & attributes TYPE, BIND(C) :: H5_ih_info_t INTEGER(hsize_t) :: index_size ! btree and/or list @@ -115,7 +124,7 @@ MODULE H5O INTEGER(hsize_t) :: num_attrs ! # of attributes attached to object - TYPE(hdr_t) :: hdr + TYPE(c_hdr_t) :: hdr TYPE(meta_size_t) :: meta_size END TYPE c_h5o_info_t diff --git a/fortran/src/H5_ff.F90 b/fortran/src/H5_ff.F90 index a66ac95..84529e4 100644 --- a/fortran/src/H5_ff.F90 +++ b/fortran/src/H5_ff.F90 @@ -940,10 +940,11 @@ CONTAINS INTEGER(C_INT), DIMENSION(:), POINTER :: c_time INTERFACE - TYPE(C_PTR) FUNCTION gmtime(stdtime_t) BIND(C, NAME='gmtime') + FUNCTION gmtime(stdtime_t) BIND(C, NAME='gmtime') IMPORT :: TIME_T, C_PTR IMPLICIT NONE INTEGER(KIND=TIME_T) :: stdtime_t + TYPE(C_PTR) :: gmtime END FUNCTION gmtime END INTERFACE |