crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fixed bug for nuclide tallies when running in parallel.

Browse source
This commit is contained in:
Paul Romano 2012-07-30 16:05:07 -04:00
parent a2f6350658
commit a49dc3b281
2 changed files with 3 additions and 3 deletions
Download patch file Download diff file Expand all files Collapse all files

2
src/fixed_source.F90
View file

@ -86,7 +86,7 @@ contains
subroutine initialize_batch()
message = "Simulating batch " // trim(to_str(current_batch)) // "..."
call write_message()
call write_message(1)
! Reset total starting particle weight used for normalizing tallies
total_weight = ZERO

4
src/tally.F90
View file

@ -1661,7 +1661,7 @@ contains
do i = 1, n_tallies
t => tallies(i)
m = t % n_score_bins
m = t % n_score_bins * t % n_nuclide_bins
n = t % n_total_bins
n_bins = m*n
@ -1743,7 +1743,7 @@ contains
do i = 1, n_tallies
t => tallies(i)
m = t % n_score_bins
m = t % n_score_bins * t % n_nuclide_bins
n = t % n_total_bins
n_bins = m*n*2