diff --git a/src/tally.F90 b/src/tally.F90 index 6a020eadb6..5d9c3fcd8b 100644 --- a/src/tally.F90 +++ b/src/tally.F90 @@ -758,7 +758,8 @@ contains select case (t % estimator) case (ESTIMATOR_ANALOG) - if (p % event_nuclide == t % deriv % diff_nuclide) then + if (materials(p % material) % id == t % deriv % diff_material & + .and. p % event_nuclide == t % deriv % diff_nuclide) then associate(mat => materials(p % material)) do l = 1, mat % n_nuclides if (mat % nuclide(l) == t % deriv % diff_nuclide) exit