<pre><code class="language-fortran">subroutine h5ltget_attribute_double_f(loc_id, dset_name, attr_name, &
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
character(LEN=*), intent(IN) :: attr_name ! name of the attribute
integer :: errcode ! error code
double precision, intent(INOUT), dimension(*) :: buf
! data buffer
end subroutine h5ltget_attribute_double_f</code></pre> |