Type | Intent | Optional | Attributes | Name | ||
---|---|---|---|---|---|---|
real(kind=dp), | intent(in) | :: | parent_sign(lenof_all_signs) | |||
real(kind=dp), | intent(in) | :: | prob | |||
real(kind=dp), | intent(in) | :: | av_nspawn | |||
real(kind=dp), | intent(in) | :: | HEl |
function calc_amp_kp_hamil(parent_sign, prob, av_nspawn, HEl) result(child_sign)
real(dp), intent(in) :: parent_sign(lenof_all_signs)
real(dp), intent(in) :: prob
real(dp), intent(in) :: av_nspawn
real(dp), intent(in) :: HEl
real(dp) :: child_sign(lenof_all_signs)
real(dp) :: corrected_prob
corrected_prob = prob * av_nspawn
child_sign = HEl * parent_sign / corrected_prob
end function calc_amp_kp_hamil