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