diff options
| author | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-01-09 17:21:56 (GMT) |
|---|---|---|
| committer | M. Scot Breitenfeld <brtnfld@hdfgroup.org> | 2019-01-09 17:21:56 (GMT) |
| commit | b3743a44238c284dc3817652271aa1475e3c4946 (patch) | |
| tree | 1c68049ab219d890bcfa2252e7474df7e69e6cbe | |
| parent | 8a8cb2fbb5765c40b6ab2b8bfbf8c92294c8c289 (diff) | |
| download | hdf5-b3743a44238c284dc3817652271aa1475e3c4946.zip hdf5-b3743a44238c284dc3817652271aa1475e3c4946.tar.gz hdf5-b3743a44238c284dc3817652271aa1475e3c4946.tar.bz2 | |
fixed 8 byte integer issue
| -rw-r--r-- | fortran/src/H5Off.F90 | 11 |
1 files changed, 10 insertions, 1 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 |