diff options
| author | Scot Breitenfeld <brtnfld@hdfgroup.org> | 2022-08-23 16:09:08 (GMT) |
|---|---|---|
| committer | GitHub <noreply@github.com> | 2022-08-23 16:09:08 (GMT) |
| commit | 88ed5b69d4f7c51432d26f0d97ab0a6cfeefaddb (patch) | |
| tree | 7ec96c38b445135cfe7d5479471b344ce7fb1462 | |
| parent | f020d129b2ed173c8d0075d670214440013d7daf (diff) | |
| download | hdf5-88ed5b69d4f7c51432d26f0d97ab0a6cfeefaddb.zip hdf5-88ed5b69d4f7c51432d26f0d97ab0a6cfeefaddb.tar.gz hdf5-88ed5b69d4f7c51432d26f0d97ab0a6cfeefaddb.tar.bz2 | |
removed h5rget_object_type_f module interface (#2057)
| -rw-r--r-- | fortran/src/H5Rff.F90 | 15 | ||||
| -rw-r--r-- | fortran/src/hdf5_fortrandll.def.in | 2 |
2 files changed, 5 insertions, 12 deletions
diff --git a/fortran/src/H5Rff.F90 b/fortran/src/H5Rff.F90 index 9e12ee8..a25cf10 100644 --- a/fortran/src/H5Rff.F90 +++ b/fortran/src/H5Rff.F90 @@ -56,18 +56,11 @@ MODULE H5R ! END TYPE ! - PRIVATE h5rget_object_type_obj_f PRIVATE h5rget_region_region_f, h5rget_region_ptr_f PRIVATE h5rcreate_object_f, h5rcreate_region_f, h5rcreate_ptr_f PRIVATE h5rdereference_object_f, h5rdereference_region_f, h5rdereference_ptr_f PRIVATE h5rget_name_object_f, h5rget_name_region_f, h5rget_name_ptr_f - INTERFACE h5rget_object_type_f - - MODULE PROCEDURE h5rget_object_type_obj_f - - END INTERFACE - TYPE :: hdset_reg_ref_t_f03 INTEGER(C_SIGNED_CHAR), DIMENSION(1:H5R_DSET_REG_REF_BUF_SIZE_F) :: ref END TYPE hdset_reg_ref_t_f03 @@ -162,10 +155,10 @@ MODULE H5R CONTAINS -!****s* H5R/h5rget_object_type_obj_f +!****s* H5R/h5rget_object_type_f ! ! NAME -! h5rget_object_type_obj_f +! h5rget_object_type_f ! ! PURPOSE ! Retrieves the type of object that an object reference points to. @@ -195,7 +188,7 @@ CONTAINS ! This is a module procedure for the h5rget_object_type_f ! subroutine. ! SOURCE - SUBROUTINE h5rget_object_type_obj_f(dset_id, ref, obj_type, hdferr) + SUBROUTINE h5rget_object_type_f(dset_id, ref, obj_type, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: dset_id ! Dataset identifier TYPE(hobj_ref_t_f), INTENT(IN) :: ref ! Object reference @@ -221,7 +214,7 @@ CONTAINS ref_f = ref%ref hdferr = h5rget_object_type_obj_c(dset_id, ref_f, obj_type ) - END SUBROUTINE h5rget_object_type_obj_f + END SUBROUTINE h5rget_object_type_f !****s* H5R/h5rget_region_region_f diff --git a/fortran/src/hdf5_fortrandll.def.in b/fortran/src/hdf5_fortrandll.def.in index 4207239..72fa43b 100644 --- a/fortran/src/hdf5_fortrandll.def.in +++ b/fortran/src/hdf5_fortrandll.def.in @@ -357,7 +357,7 @@ H5R_mp_H5RCREATE_REGION_F H5R_mp_H5RDEREFERENCE_OBJECT_F H5R_mp_H5RDEREFERENCE_REGION_F H5R_mp_H5RGET_REGION_REGION_F -H5R_mp_H5RGET_OBJECT_TYPE_OBJ_F +H5R_mp_H5RGET_OBJECT_TYPE_F H5R_mp_H5RGET_NAME_OBJECT_F H5R_mp_H5RGET_NAME_REGION_F H5R_mp_H5RGET_REGION_PTR_F |