SUBROUTINE h5iget_type_f(obj_id, type, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id !Object identifier INTEGER, INTENT(OUT) :: type !type of an object. !possible values are: !H5I_FILE_F(1) !H5I_GROUP_F(2) !H5I_DATATYPE_F(3) !H5I_DATASPACE_F(4) !H5I_DATASET_F(5) !H5I_ATTR_F(6) !H5I_BADID_F(-1) INTEGER, INTENT(OUT) :: hdferr ! Error code ! 0 on success, and -1 on failure END SUBROUTINE h5iget_type_f
SUBROUTINE h5iget_name_f(obj_id, buf, buf_size, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: obj_id ! Object identifier CHARACTER(LEN=*), INTENT(OUT) :: buf ! Buffer to hold object name INTEGER(SIZE_T), INTENT(IN) :: buf_size ! Buffer size INTEGER(SIZE_T), INTENT(OUT) :: name_size ! Name size INTEGER, INTENT(OUT) :: hdferr ! Error code ! 0 on success, and -1 on failure END SUBROUTINE h5iget_name_f