From ba3a6689b90fd729236f710d03dd23c6ad009dbd Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Fri, 4 Dec 2015 20:31:57 -0600 Subject: [PATCH] Fix integer kind on arguments to h5tget_size_f and h5tset_size_f --- src/hdf5_interface.F90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/src/hdf5_interface.F90 b/src/hdf5_interface.F90 index 656039d197..fc7a462e6a 100644 --- a/src/hdf5_interface.F90 +++ b/src/hdf5_interface.F90 @@ -1483,7 +1483,7 @@ contains integer(HID_T) :: dspace ! data or file space handle integer(HID_T) :: filetype integer(HID_T) :: memtype - integer(HSIZE_T) :: n + integer(SIZE_T) :: n type(c_ptr) :: f_ptr ! Set up collective vs. independent I/O @@ -1544,8 +1544,8 @@ contains integer(HID_T) :: dspace ! data or file space handle integer(HID_T) :: filetype integer(HID_T) :: memtype - integer(HSIZE_T) :: size - integer(HSIZE_T) :: n + integer(SIZE_T) :: size + integer(SIZE_T) :: n type(c_ptr) :: f_ptr ! Set up collective vs. independent I/O @@ -1628,7 +1628,7 @@ contains integer(HID_T) :: dspace ! data or file space handle integer(HID_T) :: filetype integer(HID_T) :: memtype - integer(HSIZE_T) :: n + integer(SIZE_T) :: n type(c_ptr) :: f_ptr ! Set up collective vs. independent I/O @@ -1644,7 +1644,7 @@ contains ! Create datatype in memory based on Fortran character call h5tcopy_f(H5T_FORTRAN_S1, memtype, hdf5_err) - call h5tset_size_f(memtype, int(len(buffer(1)), HSIZE_T), hdf5_err) + call h5tset_size_f(memtype, int(len(buffer(1)), SIZE_T), hdf5_err) ! Create dataspace/dataset call h5screate_simple_f(1, dims, dspace, hdf5_err) @@ -1706,8 +1706,8 @@ contains integer(HID_T) :: dspace ! data or file space handle integer(HID_T) :: filetype integer(HID_T) :: memtype - integer(HSIZE_T) :: size - integer(HSIZE_T) :: n + integer(SIZE_T) :: size + integer(SIZE_T) :: n type(c_ptr) :: f_ptr ! Set up collective vs. independent I/O