mirror/hdf5
2
0
Fork 0
mirror of https://github.com/HDFGroup/hdf5.git synced 2025-03-07 16:37:56 +08:00
Code Issues Packages Projects Releases Wiki Activity

removed h5rget_object_type_f module interface (#2057)

Browse Source
This commit is contained in:
Scot Breitenfeld 2022-08-23 11:09:08 -05:00 committed by GitHub
parent f020d129b2
commit 88ed5b69d4
No known key found for this signature in database
GPG Key ID: 4AEE18F83AFDEB23
2 changed files with 5 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
fortran/src/H5Rff.F90
View File

@ -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

2
fortran/src/hdf5_fortrandll.def.in
View File

@ -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