summaryrefslogtreecommitdiffstats
diff options
context:
space:
mode:
authorM. Scot Breitenfeld <brtnfld@hdfgroup.org>2019-01-09 17:21:56 (GMT)
committerM. Scot Breitenfeld <brtnfld@hdfgroup.org>2019-01-09 17:21:56 (GMT)
commitb3743a44238c284dc3817652271aa1475e3c4946 (patch)
tree1c68049ab219d890bcfa2252e7474df7e69e6cbe
parent8a8cb2fbb5765c40b6ab2b8bfbf8c92294c8c289 (diff)
downloadhdf5-b3743a44238c284dc3817652271aa1475e3c4946.zip
hdf5-b3743a44238c284dc3817652271aa1475e3c4946.tar.gz
hdf5-b3743a44238c284dc3817652271aa1475e3c4946.tar.bz2
fixed 8 byte integer issue
-rw-r--r--fortran/src/H5Off.F9011
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