SUBROUTINE h5oclose_f(object_id, hdferr) IMPLICIT NONE INTEGER(HID_T), INTENT(IN) :: object_id INTEGER , INTENT(OUT) :: hdferr
Inputs:
object_id - Object identifier.
Outputs:
hdferr - Returns 0 if successful and -1 if fails.