summaryrefslogtreecommitdiffstats
path: root/fortran
diff options
context:
space:
mode:
authorQuincey Koziol <koziol@hdfgroup.org>2007-10-04 18:32:47 (GMT)
committerQuincey Koziol <koziol@hdfgroup.org>2007-10-04 18:32:47 (GMT)
commit3db40827da29243b88ade3c3f174f3f5e6cd0622 (patch)
treee3cae6704cac26c25a03bc32fc9150bae443b8d9 /fortran
parentd4eec753a1de150377773998db4f5035df60b21b (diff)
downloadhdf5-3db40827da29243b88ade3c3f174f3f5e6cd0622.zip
hdf5-3db40827da29243b88ade3c3f174f3f5e6cd0622.tar.gz
hdf5-3db40827da29243b88ade3c3f174f3f5e6cd0622.tar.bz2
[svn-r14184] Description:
Move H5Aopen_idx() into deprecated symbols section, replacing all internal usage with H5Aopen_by_idx(). Add simple regression test for H5Aopen_idx(). Tested on: FreeBSD/32 6.2 (duty) in debug mode FreeBSD/64 6.2 (liberty) w/C++ & FORTRAN, in debug mode Linux/32 2.6 (kagiso) w/PGI compilers, w/C++ & FORTRAN, w/threadsafe, in debug mode Linux/64-amd64 2.6 (smirom) w/default API=1.6.x, w/C++ & FORTRAN, in production mode Linux/64-ia64 2.6 (cobalt) w/Intel compilers, w/C++ & FORTRAN, in production mode Solaris/32 2.10 (linew) w/deprecated symbols disabled, w/C++ & FORTRAN, w/szip filter, in production mode Mac OS X/32 10.4.10 (amazon) in debug mode
Diffstat (limited to 'fortran')
-rw-r--r--fortran/src/H5Af.c8
1 files changed, 4 insertions, 4 deletions
diff --git a/fortran/src/H5Af.c b/fortran/src/H5Af.c
index 8253781..293d4c0 100644
--- a/fortran/src/H5Af.c
+++ b/fortran/src/H5Af.c
@@ -847,7 +847,7 @@ done:
/*----------------------------------------------------------------------------
* Name: h5aopen_idx_c
- * Purpose: Call H5Aopen_idx to open an attribute
+ * Purpose: Call H5Aopen_by_idx to open an attribute
* Inputs: obj_id - object identifier
* idx - attribute index ( zero based)
* Outputs: attr_id - attribute identifier
@@ -859,12 +859,12 @@ done:
int_f
nh5aopen_idx_c (hid_t_f *obj_id, int_f *idx, hid_t_f *attr_id)
{
- int_f ret_value=0; /* Return value */
+ int_f ret_value = 0; /* Return value */
/*
- * Call H5Aopen_idx function.
+ * Call H5Aopen_by_idx function.
*/
- if ((*attr_id = (hid_t_f)H5Aopen_idx((hid_t)*obj_id, (unsigned)*idx)) < 0)
+ if((*attr_id = (hid_t_f)H5Aopen_by_idx((hid_t)*obj_id, ".", H5_INDEX_CRT_ORDER, H5_ITER_INC, (hsize_t)*idx, H5P_DEFAULT, H5P_DEFAULT)) < 0)
HGOTO_DONE(FAIL);
done: