diff --git a/src/tally.F90 b/src/tally.F90 index 6e406c93ae..ec46a61940 100644 --- a/src/tally.F90 +++ b/src/tally.F90 @@ -471,16 +471,17 @@ contains end if else + ! make sure the correct energy is used + if (t % estimator == ESTIMATOR_TRACKLENGTH) then + E = p % E + else + E = p % last_E + end if + if (i_nuclide > 0) then score = micro_xs(i_nuclide) % fission * nuclides(i_nuclide) % & nu(E, EMISSION_PROMPT) * atom_density * flux else - ! make sure the correct energy is used - if (t % estimator == ESTIMATOR_TRACKLENGTH) then - E = p % E - else - E = p % last_E - end if score = ZERO