Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=kind(1.d0)) | :: | ratio |
subroutine set_itv_133(ratio)
use impurity_radiation_module, only: impurity_arr_frac
implicit none
real(kind(1.d0)) :: ratio
impurity_arr_frac(11) = ratio
end subroutine set_itv_133