diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-03-31 14:25:44 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2014-03-31 14:25:44 (GMT) |
| commit | 3936548bc56b478ad6cd16bcc268fc205a02d7c0 (patch) | |
| tree | 98547c311a245a426759aa59adfc372ff18895ff /fortran/src/H5Dff_F90.f90 | |
| parent | 963bace0d15244768f28d549289e5e383ca9e421 (diff) | |
| download | hdf5-3936548bc56b478ad6cd16bcc268fc205a02d7c0.zip hdf5-3936548bc56b478ad6cd16bcc268fc205a02d7c0.tar.gz hdf5-3936548bc56b478ad6cd16bcc268fc205a02d7c0.tar.bz2 | |
[svn-r24930] Merged changes in the trunk to the branch,
svn merge -r24650:24929 https://svn.hdfgroup.uiuc.edu/hdf5/trunk/fortran .
tested: jam (intel, pgi, gnu)
Diffstat (limited to 'fortran/src/H5Dff_F90.f90')
| -rw-r--r-- | fortran/src/H5Dff_F90.f90 | 10 |
1 files changed, 6 insertions, 4 deletions
diff --git a/fortran/src/H5Dff_F90.f90 b/fortran/src/H5Dff_F90.f90 index 46ea3ad..66cfe62 100644 --- a/fortran/src/H5Dff_F90.f90 +++ b/fortran/src/H5Dff_F90.f90 @@ -181,7 +181,7 @@ CONTAINS INTEGER(HID_T) :: mem_space_id_default INTEGER(HID_T) :: file_space_id_default INTEGER(HADDR_T), ALLOCATABLE, DIMENSION(:) :: ref_buf - INTEGER :: j + INTEGER(HSIZE_T) :: j INTERFACE INTEGER FUNCTION h5dread_ref_obj_c(dset_id, mem_type_id,& @@ -240,7 +240,8 @@ CONTAINS INTEGER(HID_T) :: mem_space_id_default INTEGER(HID_T) :: file_space_id_default INTEGER, ALLOCATABLE, DIMENSION(:) :: ref_buf - INTEGER :: i,j + INTEGER :: i + INTEGER(HSIZE_T) :: j INTERFACE INTEGER FUNCTION h5dread_ref_reg_c(dset_id, mem_type_id,& @@ -1508,7 +1509,7 @@ CONTAINS INTEGER(HID_T) :: mem_space_id_default INTEGER(HID_T) :: file_space_id_default INTEGER(HADDR_T), ALLOCATABLE, DIMENSION(:) :: ref_buf - INTEGER :: j + INTEGER(HSIZE_T) :: j INTERFACE INTEGER FUNCTION h5dwrite_ref_obj_c(dset_id, mem_type_id,& @@ -1567,7 +1568,8 @@ CONTAINS INTEGER(HID_T) :: mem_space_id_default INTEGER(HID_T) :: file_space_id_default INTEGER, ALLOCATABLE, DIMENSION(:) :: ref_buf - INTEGER :: i,j + INTEGER :: i + INTEGER(HSIZE_T) :: j INTERFACE INTEGER FUNCTION h5dwrite_ref_reg_c(dset_id, mem_type_id,& |