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 END SUBROUTINE h5iget_type_f