Signature:

  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.