Signature:

  SUBROUTINE h5odecr_refcount_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.