<pre><code class="language-fortran">subroutine h5ltset_attribute_float_f(loc_id, dset_name, attr_name, &
buf, size, 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
real, intent(INOUT), dimension(*) :: buf ! data buffer
integer(size_t), intent(in) :: size ! size of attribute array
integer :: errcode ! error code
end subroutine h5ltset_attribute_float_f</code></pre> |