summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorScot Breitenfeld <brtnfld@hdfgroup.org>2015-05-04 15:01:35 (GMT)
committerScot Breitenfeld <brtnfld@hdfgroup.org>2015-05-04 15:01:35 (GMT)
commite9735c156a079447d66b3ee40902f5eaa4cbf1cb (patch)
treed0de519ac40060427591b4fb9b0576b68c9acc85 /fortran
parent60960ec8a7d0e3d8cca85d18b6894eeb2c1e3748 (diff)
downloadhdf5-e9735c156a079447d66b3ee40902f5eaa4cbf1cb.zip
hdf5-e9735c156a079447d66b3ee40902f5eaa4cbf1cb.tar.gz
hdf5-e9735c156a079447d66b3ee40902f5eaa4cbf1cb.tar.bz2
[svn-r27002] removed the use of deprecated APIs
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Aff.F9016
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