Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=kind(1.d0)) | :: | ratio |
subroutine set_itv_41(ratio)
use pfcoil_variables, only: f_j_cs_start_pulse_end_flat_top
implicit none
real(kind(1.d0)) :: ratio
f_j_cs_start_pulse_end_flat_top = ratio
end subroutine set_itv_41