From 4392659224c881d0882ffc11b1d8736ab20dca5b Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 5 Dec 2012 18:22:50 -0500 Subject: [PATCH 1/2] Initialize entropy to zero. --- src/input_xml.F90 | 1 + 1 file changed, 1 insertion(+) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index 7f3981e12a..913fd52baa 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 From 696ba08ccd65aec6951be0b17d6e456c299ff9c6 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Wed, 5 Dec 2012 18:23:29 -0500 Subject: [PATCH 2/2] Remove redundant block in replay_batch_history. --- src/state_point.F90 | 8 -------- 1 file changed, 8 deletions(-) diff --git a/src/state_point.F90 b/src/state_point.F90 index 5ea70f757b..0aca60b184 100644 --- a/src/state_point.F90 +++ b/src/state_point.F90 @@ -1027,14 +1027,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