<pre><code class="language-fortran">subroutine h5ltmake_dataset_double_f(loc_id, dset_name, rank, dims, &
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) :: rank ! rank
integer(HSIZE_T), dimension(*), intent(IN) :: dims
! size of the buffer buf
double precision, intent(IN), dimension(*) :: buf
! data buffer
integer :: errcode ! error code
end subroutine h5ltmake_dataset_double_f</code></pre> |