diff options
| author | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-18 20:52:54 (GMT) |
|---|---|---|
| committer | Quincey Koziol <koziol@hdfgroup.org> | 2003-06-18 20:52:54 (GMT) |
| commit | 1aeaa7fbb1072d18a533b7bbf8f996f6b194de73 (patch) | |
| tree | 989cbf236bb9ed1bde75baa631a803eb75f7ee4e /fortran/src/H5Fff.f90 | |
| parent | b6fca58d925dd2e8287b746b3deb81f71fc6e75f (diff) | |
| download | hdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.zip hdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.tar.gz hdf5-1aeaa7fbb1072d18a533b7bbf8f996f6b194de73.tar.bz2 | |
[svn-r7059] Purpose:
Refactoring
Description:
Track changes to H5Fget_obj_<foo> API functions.
Platforms tested:
FreeBSD 4.8 (sleipnir)
h5committest
Diffstat (limited to 'fortran/src/H5Fff.f90')
| -rw-r--r-- | fortran/src/H5Fff.f90 | 8 |
1 files changed, 5 insertions, 3 deletions
diff --git a/fortran/src/H5Fff.f90 b/fortran/src/H5Fff.f90 index af40d88..725c824 100644 --- a/fortran/src/H5Fff.f90 +++ b/fortran/src/H5Fff.f90 @@ -771,7 +771,7 @@ ! Comment: !---------------------------------------------------------------------- - SUBROUTINE h5fget_obj_ids_f(file_id, obj_type, obj_ids, hdferr) + SUBROUTINE h5fget_obj_ids_f(file_id, obj_type, max_objs, obj_ids, hdferr) ! !This definition is needed for Windows DLLs !DEC$if defined(BUILD_HDF5_DLL) @@ -782,23 +782,25 @@ IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: file_id ! File identifier INTEGER, INTENT(IN) :: obj_type ! Object type + INTEGER, INTENT(IN) :: max_objs ! Maximum # of objects to retrieve INTEGER(HID_T), DIMENSION(*), INTENT(INOUT) :: obj_ids ! Array of open objects iidentifiers INTEGER, INTENT(OUT) :: hdferr ! Error code INTERFACE - INTEGER FUNCTION h5fget_obj_ids_c(file_id, obj_type, obj_ids) + INTEGER FUNCTION h5fget_obj_ids_c(file_id, obj_type, max_objs, obj_ids) USE H5GLOBAL !DEC$ IF DEFINED(HDF5F90_WINDOWS) !MS$ATTRIBUTES C,reference,alias:'_H5FGET_OBJ_IDS_C':: h5fget_obj_ids_c !DEC$ ENDIF INTEGER(HID_T), INTENT(IN) :: file_id INTEGER, INTENT(IN) :: obj_type + INTEGER, INTENT(IN) :: max_objs INTEGER(HID_T), DIMENSION(*), INTENT(INOUT) :: obj_ids END FUNCTION h5fget_obj_ids_c END INTERFACE - hdferr = h5fget_obj_ids_c(file_id, obj_type, obj_ids) + hdferr = h5fget_obj_ids_c(file_id, obj_type, max_objs, obj_ids) END SUBROUTINE h5fget_obj_ids_f END MODULE H5F |