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.