diff --git a/src/tally.F90 b/src/tally.F90 index af6d93e738..663cb25b85 100644 --- a/src/tally.F90 +++ b/src/tally.F90 @@ -1558,4 +1558,22 @@ contains end subroutine tally_statistics +!============================================================================== +! TALLY_RESET resets all of the user-defined tallies +!============================================================================== + + subroutine tally_reset() + + integer :: i ! index in tallies array + type(TallyObject), pointer :: t => null() + + ! reset sum and sum_sq + do i = 1, n_tallies + t => tallies(i) + t % scores % sum = 0.0_8 + t % scores % sum_sq = 0.0_8 + end do + + end subroutine tally_reset + end module tally