crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-29 06:35:48 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Increase n_realizations on all processors.

Browse source
This commit is contained in:
Paul Romano 2012-08-01 12:46:30 -04:00
parent f9c03c8ecb
commit 31572c03fa
1 changed files with 7 additions and 7 deletions
Download patch file Download diff file Expand all files Collapse all files

14
src/tally.F90
View file

@ -1621,14 +1621,14 @@ contains
if (reduce_tallies) call reduce_tally_values()
#endif
if (master .or. (.not. reduce_tallies)) then
! Increase number of realizations
if (reduce_tallies) then
n_realizations = n_realizations + 1
else
n_realizations = n_realizations + n_procs
end if
! Increase number of realizations
if (reduce_tallies) then
n_realizations = n_realizations + 1
else
n_realizations = n_realizations + n_procs
end if
if (master .or. (.not. reduce_tallies)) then
! Accumulate scores for each tally
do i = 1, n_tallies
call accumulate_score(tallies(i) % scores)