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