<pre><code class="language-fortran">subroutine h5imget_npalettes_f(loc_id, dset_name, npals, 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(HSIZE_T), intent(INOUT) :: npals ! palettes
integer :: errcode ! error code
end subroutine h5imget_npalettes_f</code></pre> |