Signature:

      SUBROUTINE h5oset_comment_f(obj_id, comment, hdferr)
        IMPLICIT NONE
        INTEGER(HID_T)  , INTENT(IN)  :: obj_id
        CHARACTER(LEN=*), INTENT(IN)  :: comment
        INTEGER         , INTENT(OUT) :: hdferr

Inputs:

      obj_id    - Identifier of the target object.
      comment   - The new comment.

Outputs:

      hdferr    - Returns 0 if successful and -1 if fails.