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/H5Rff_F03.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/H5Rff_F03.f90')
| -rw-r--r-- | fortran/src/H5Rff_F03.f90 | 4 |
1 files changed, 0 insertions, 4 deletions
diff --git a/fortran/src/H5Rff_F03.f90 b/fortran/src/H5Rff_F03.f90 index 7a9b080..e0ffa0a 100644 --- a/fortran/src/H5Rff_F03.f90 +++ b/fortran/src/H5Rff_F03.f90 @@ -238,7 +238,6 @@ CONTAINS INTEGER(HID_T), INTENT(OUT) :: space_id ! Space identifier INTEGER, INTENT(OUT) :: hdferr ! Error code !***** - INTEGER :: ref_f(REF_REG_BUF_LEN) ! Local buffer to pass reference hdferr = h5rget_region_ptr_c(dset_id, ref, space_id ) @@ -441,7 +440,6 @@ CONTAINS INTEGER(HID_T), INTENT(OUT) :: ref_obj_id ! Object identifier INTEGER, INTENT(OUT) :: hdferr ! Error code !***** - INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference TYPE(C_PTR) :: f_ptr f_ptr = C_LOC(ref) @@ -567,7 +565,6 @@ CONTAINS CHARACTER(LEN=*), INTENT(OUT) :: name INTEGER, INTENT(OUT) :: hdferr !***** - INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference INTEGER(SIZE_T) :: size_default INTEGER(SIZE_T) :: name_len @@ -615,7 +612,6 @@ CONTAINS CHARACTER(LEN=*), INTENT(OUT) :: name INTEGER, INTENT(OUT) :: hdferr !***** - INTEGER :: ref_f(REF_REG_BUF_LEN) ! Local buffer to pass reference INTEGER(SIZE_T) :: size_default INTEGER(SIZE_T) :: name_len TYPE(C_PTR) :: f_ptr |