mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2024-11-27 02:10:55 +08:00
Code Issues Packages Projects Releases Wiki Activity

[svn-r3543]

Browse Source 
Purpose:
    Bug fix
Description:
    Function name h5rget_object_type_obj_f was used in test program
    instead of the generic name h5rget_object_type_f.
Solution:
    Changed the name.
Platforms tested:
    Linux (eirene)
This commit is contained in:
Elena Pourmal 2001-03-02 17:14:14 -05:00
parent d53b78c03b
commit 9f9c0d9a8e
1 changed files with 4 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

8
fortran/test/tH5R.f90
View File

@ -145,8 +145,8 @@
!
!get the third reference's type and Dereference it
!
CALL h5rget_object_type_obj_f(dsetr_id, ref(3), obj_type, error)
CALL check("h5rget_object_type_obj_f",error,total_error)
CALL h5rget_object_type_f(dsetr_id, ref(3), obj_type, error)
CALL check("h5rget_object_type_f",error,total_error)
if (obj_type == 2) then
CALL h5rdereference_f(dsetr_id, ref(3), dset1_id, error)
CALL check("h5rdereference_f",error,total_error)
@ -158,8 +158,8 @@
!
!get the fourth reference's type and Dereference it
!
CALL h5rget_object_type_obj_f(dsetr_id, ref(4), obj_type, error)
CALL check("h5rget_object_type_obj_f",error,total_error)
CALL h5rget_object_type_f(dsetr_id, ref(4), obj_type, error)
CALL check("h5rget_object_type_f",error,total_error)
if (obj_type == 3) then
CALL h5rdereference_f(dsetr_id, ref(4), type_id, error)
CALL check("h5rdereference_f",error,total_error)