diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2005-01-10 22:56:20 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2005-01-10 22:56:20 (GMT) |
| commit | c04b612eb42b8b63ed4b4f966d53381f60f5119a (patch) | |
| tree | 92cc25bfac9f43dbec0b02fe5ac437abec3ae0ed /fortran/src/H5Rff.f90 | |
| parent | 4eb3251a2cb04433f01d2c1e4f7d0ed2af4c1982 (diff) | |
| download | hdf5-c04b612eb42b8b63ed4b4f966d53381f60f5119a.zip hdf5-c04b612eb42b8b63ed4b4f966d53381f60f5119a.tar.gz hdf5-c04b612eb42b8b63ed4b4f966d53381f60f5119a.tar.bz2 | |
[svn-r9801] Purpose:
Bug fix
Description:
Belatedly chase change of hobj_ref_t in C APIs.
Platforms tested:
FreeBSD 4.10 (sleipnir) w/backward compatibility turned on
IRIX64 6.5 (modi4) w/FORTRAN
h5committest
Diffstat (limited to 'fortran/src/H5Rff.f90')
| -rw-r--r-- | fortran/src/H5Rff.f90 | 13 |
1 files changed, 6 insertions, 7 deletions
diff --git a/fortran/src/H5Rff.f90 b/fortran/src/H5Rff.f90 index 97cebe1..08c85df 100644 --- a/fortran/src/H5Rff.f90 +++ b/fortran/src/H5Rff.f90 @@ -102,7 +102,7 @@ INTEGER, INTENT(OUT) :: hdferr ! Error code INTEGER :: namelen ! Name length - INTEGER :: ref_f(REF_OBJ_BUF_LEN) ! Local buffer to pass reference + INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference ! INTEGER, EXTERNAL :: h5fcreate_object_c ! Interface is needed for MS FORTRAN @@ -114,8 +114,7 @@ !MS$ATTRIBUTES C,reference,alias:'_H5RCREATE_OBJECT_C':: h5rcreate_object_c !DEC$ ENDIF !DEC$ATTRIBUTES reference :: name -! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2 - INTEGER :: ref_f(REF_OBJ_BUF_LEN) + INTEGER(HADDR_T) :: ref_f INTEGER(HID_T), INTENT(IN) :: loc_id CHARACTER(LEN=*), INTENT(IN) :: name INTEGER :: namelen @@ -244,7 +243,7 @@ INTEGER, INTENT(OUT) :: hdferr ! Error code INTEGER :: ref_type ! Reference type - INTEGER :: ref_f(REF_OBJ_BUF_LEN) ! Local buffer to pass reference + INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference ! INTEGER, EXTERNAL :: h5h5rdereference_object_c ! Interface is needed for MS FORTRAN @@ -257,7 +256,7 @@ !DEC$ ENDIF ! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2 INTEGER(HID_T), INTENT(IN) :: dset_id - INTEGER :: ref_f(REF_OBJ_BUF_LEN) + INTEGER(HADDR_T) :: ref_f INTEGER(HID_T), INTENT(OUT) :: obj_id END FUNCTION h5rdereference_object_c END INTERFACE @@ -452,7 +451,7 @@ ! H5G_TYPE_F 3 INTEGER, INTENT(OUT) :: hdferr ! Error code - INTEGER :: ref_f(REF_OBJ_BUF_LEN) ! Local buffer to pass reference + INTEGER(HADDR_T) :: ref_f ! Local buffer to pass reference ! INTEGER, EXTERNAL :: h5rget_object_type_obj_c ! Interface is needed for MS FORTRAN @@ -465,7 +464,7 @@ !DEC$ ENDIF ! INTEGER, PARAMETER :: REF_OBJ_BUF_LEN = 2 INTEGER(HID_T), INTENT(IN) :: dset_id - INTEGER :: ref_f(REF_OBJ_BUF_LEN) + INTEGER(HADDR_T) :: ref_f INTEGER, INTENT(OUT) :: obj_type END FUNCTION h5rget_object_type_obj_c END INTERFACE |