<pre><code class="language-fortran">subroutine h5tbwrite_field_index_f(loc_id, dset_name, field_index, start, &
nrecords, type_size, buf, errcode)
implicit none
integer(HID_T), intent(IN) :: loc_id ! file or group identifier
character(LEN=*), intent(IN) :: dset_name ! name of the dataset
integer, intent(IN) :: field_index ! index
integer(HSIZE_T), intent(IN) :: start ! start record
integer(HSIZE_T), intent(IN) :: nrecords ! records
integer(SIZE_T), intent(IN) :: type_size ! type size
<TYPE>, intent(IN), dimension(*) :: buf ! data buffer
integer :: errcode ! error code
end subroutine h5tbwrite_field_index_f</code></pre> |