crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

added a tally reset routine for user defined tallies

Browse source
This commit is contained in:
Bryan Herman 2012-03-06 11:49:00 -08:00
parent 925fe5015e
commit 8989c1f10b
1 changed files with 18 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

18
src/tally.F90
View file

@ -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