From a49dc3b281a7a6a3472916e0446e7918e5f2cea1 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Mon, 30 Jul 2012 16:05:07 -0400 Subject: [PATCH] Fixed bug for nuclide tallies when running in parallel. --- src/fixed_source.F90 | 2 +- src/tally.F90 | 4 ++-- 2 files changed, 3 insertions(+), 3 deletions(-) diff --git a/src/fixed_source.F90 b/src/fixed_source.F90 index 989cf987b8..6f0e0ebb74 100644 --- a/src/fixed_source.F90 +++ b/src/fixed_source.F90 @@ -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 diff --git a/src/tally.F90 b/src/tally.F90 index e78a37139a..fa49364be1 100644 --- a/src/tally.F90 +++ b/src/tally.F90 @@ -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