This commit is contained in:
walshjon 2018-02-17 15:39:55 -08:00
parent 9ec044ec2e
commit 7704390a3b

View file

@ -931,7 +931,7 @@ contains
E_rel = dot_product((v_neut - v_target), (v_neut - v_target))
if (E_rel < E_up) exit TARGET_ENERGY_LOOP
end do TARGET_ENERGY_LOOP
! perform Doppler broadening rejection correction (dbrc)
xs_0K = elastic_xs_0K(E_rel, nuc)
R = xs_0K / xs_max