<pre><code class="language-fortran">SUBROUTINE h5tget_member_class_f(type_id, member_no, class, hdferr)
INTEGER(HID_T), INTENT(IN) :: type_id ! Datatype identifier
INTEGER, INTENT(IN) :: member_no ! Member number
INTEGER, INTENT(OUT) :: class ! Member class
INTEGER, INTENT(OUT) :: hdferr ! Error code
END SUBROUTINE h5tget_member_class_f</code></pre> |