<pre><code class="language-c">htri_t H5Aexists
(
    hid_t       obj_id,
    const char *attr_name
)</code></pre>

<pre><code class="language-fortran">SUBROUTINE h5aexists_f(obj_id, attr_name, attr_exists, hdferr)
  IMPLICIT NONE
  INTEGER(HID_T), INTENT(IN) :: obj_id      ! Object identifier
  CHARACTER(LEN=*), INTENT(IN) :: attr_name ! Attribute name
  LOGICAL, INTENT(OUT) :: attr_exists       ! .TRUE. if exists, .FALSE. otherwise
  INTEGER, INTENT(OUT) :: hdferr            ! Error code:
                                            ! 0 on success and -1 on failure 
END SUBROUTINE</code></pre>