diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-04 15:01:35 (GMT) |
|---|---|---|
| committer | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2015-05-04 15:01:35 (GMT) |
| commit | e9735c156a079447d66b3ee40902f5eaa4cbf1cb (patch) | |
| tree | d0de519ac40060427591b4fb9b0576b68c9acc85 /fortran/src/H5Aff.F90 | |
| parent | 60960ec8a7d0e3d8cca85d18b6894eeb2c1e3748 (diff) | |
| download | hdf5-e9735c156a079447d66b3ee40902f5eaa4cbf1cb.zip hdf5-e9735c156a079447d66b3ee40902f5eaa4cbf1cb.tar.gz hdf5-e9735c156a079447d66b3ee40902f5eaa4cbf1cb.tar.bz2 | |
[svn-r27002] removed the use of deprecated APIs
Diffstat (limited to 'fortran/src/H5Aff.F90')
| -rw-r--r-- | fortran/src/H5Aff.F90 | 16 |
1 files changed, 9 insertions, 7 deletions
diff --git a/fortran/src/H5Aff.F90 b/fortran/src/H5Aff.F90 index 179eef6..a2b84c4 100644 --- a/fortran/src/H5Aff.F90 +++ b/fortran/src/H5Aff.F90 @@ -259,17 +259,19 @@ CONTAINS !***** CHARACTER(LEN=LEN_TRIM(name)+1,KIND=C_CHAR) :: c_name +! H5Aopen_name is deprecated INTERFACE - INTEGER(HID_T) FUNCTION H5Aopen_name(obj_id, name) BIND(C,NAME='H5Aopen_name') + INTEGER(HID_T) FUNCTION H5Aopen(obj_id, name, aapl_id) BIND(C,NAME='H5Aopen') IMPORT :: C_CHAR IMPORT :: HID_T INTEGER(HID_T), INTENT(IN), VALUE :: obj_id CHARACTER(KIND=C_CHAR), DIMENSION(*), INTENT(IN) :: name - END FUNCTION H5Aopen_name + INTEGER(HID_T), INTENT(IN), VALUE :: aapl_id + END FUNCTION H5Aopen END INTERFACE c_name = TRIM(name)//C_NULL_CHAR - attr_id = H5Aopen_name(obj_id, c_name) + attr_id = H5Aopen(obj_id, c_name, H5P_DEFAULT_F) hdferr = 0 IF(attr_id.LT.0) hdferr = -1 @@ -309,17 +311,17 @@ CONTAINS INTEGER(HID_T), INTENT(OUT) :: attr_id ! Attribute identifier INTEGER, INTENT(OUT) :: hdferr ! Error code !***** - +! H5Aopen_idx is deprecated in favor of the function H5Aopen_by_idx. INTERFACE - INTEGER(HID_T) FUNCTION H5Aopen_idx(obj_id, index) BIND(C,NAME='H5Aopen_idx') + INTEGER(HID_T) FUNCTION H5Aopen_by_idx(obj_id, index) BIND(C,NAME='H5Aopen_by_idx') IMPORT :: HID_T IMPORT :: C_INT INTEGER(HID_T), INTENT(IN) :: obj_id INTEGER(C_INT), INTENT(IN) :: index - END FUNCTION H5Aopen_idx + END FUNCTION H5Aopen_by_idx END INTERFACE - attr_id = H5Aopen_idx(obj_id, INT(index, C_INT)) + attr_id = H5Aopen_by_idx(obj_id, INT(index, C_INT)) hdferr = 0 IF(attr_id.LT.0) hdferr = -1 |