From efe1457589218a4ec97bb1943e66470d7d0e2133 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Thu, 22 Jun 2017 10:49:59 -0500
Subject: [PATCH] Clear active tally lists

---
 src/api.F90 | 12 ++++++++++++
 1 file changed, 12 insertions(+)

diff --git a/src/api.F90 b/src/api.F90
index 287aa63c2..33bb5230d 100644
--- a/src/api.F90
+++ b/src/api.F90
@@ -138,6 +138,7 @@ contains
       end if
     end do
 
+    ! Reset global tallies
     n_realizations = 0
     if (allocated(global_tallies)) then
       global_tallies(:, :) = ZERO
@@ -147,6 +148,17 @@ contains
     k_abs_tra = ZERO
     k_sum(:) = ZERO
 
+    ! Turn off tally flags
+    tallies_on = .false.
+    active_batches = .false.
+
+    ! Clear active tally lists
+    call active_analog_tallies % clear()
+    call active_tracklength_tallies % clear()
+    call active_current_tallies % clear()
+    call active_collision_tallies % clear()
+    call active_tallies % clear()
+
   end subroutine openmc_reset
 
 !===============================================================================