From 6ba2c123e617ea19bffc3f716d6256e935e78eb0 Mon Sep 17 00:00:00 2001 From: Quincey Koziol Date: Sat, 22 Dec 2001 15:12:57 -0500 Subject: [svn-r4755] Purpose: Bug Fix Description: Change H5Rget_object_type to H5Rget_obj_type. Platforms tested: Linux 2.2.x (eirene) --- fortran/src/H5Rf.c | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/fortran/src/H5Rf.c b/fortran/src/H5Rf.c index ecfd46c..e45699b 100644 --- a/fortran/src/H5Rf.c +++ b/fortran/src/H5Rf.c @@ -221,7 +221,7 @@ nh5rget_object_type_obj_c (hid_t_f *dset_id, int_f *ref, int_f *obj_type) * Call H5Rget_object_type function. */ c_dset_id = *dset_id; - c_obj_type = H5Rget_object_type(c_dset_id, &ref_c); + c_obj_type = H5Rget_obj_type(c_dset_id, H5R_OBJECT, &ref_c); if(c_obj_type < 0) return ret_value; *obj_type = (int_f)c_obj_type; ret_value = 0; -- cgit v0.12