<pre><code class="language-fortran">SUBROUTINE h5ovisit_f(object_id, index_type, order, op, op_data, &
return_value, hdferr)
INTEGER(HID_T), INTENT(IN) :: object_id
INTEGER, INTENT(IN) :: index_type
INTEGER, INTENT(IN) :: order
TYPE(C_FUNPTR):: op
TYPE(C_PTR) :: op_data
INTEGER, INTENT(OUT) :: return_value
INTEGER, INTENT(OUT) :: hdferr</code></pre> |