diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 9fab2a8b8f..8a316cbd70 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -140,6 +140,7 @@ contains ! Allocate array for batch keff and entropy allocate(k_batch(n_batches)) allocate(entropy(n_batches)) + entropy = ZERO end if ! Fixed source calculation information diff --git a/src/state_point.F90 b/src/state_point.F90 index d5f33723e3..2d37f7a296 100644 --- a/src/state_point.F90 +++ b/src/state_point.F90 @@ -1047,14 +1047,6 @@ contains call write_message(1) end if - ! For eigenvalue calculations, turn on tallies if we've reached active - ! batches - if (current_batch == n_inactive) then - tallies_on = .true. - active_batches = .true. - call setup_active_usertallies() - end if - ! Add to number of realizations if (current_batch > n_inactive) then n = n + 1