From ff8a9a443060c56f83d33af8e1503da7ffa190c9 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Fri, 13 Apr 2012 13:48:41 -0700
Subject: [PATCH] added reset property to tally object for cycle-wise estimates

---
 src/input_xml.F90                       | 3 +++
 src/tally_header.F90                    | 3 +++
 src/xml-fortran/templates/tallies_t.xml | 1 +
 3 files changed, 7 insertions(+)

diff --git a/src/input_xml.F90 b/src/input_xml.F90
index 3b8e6bda3f..7058e38407 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -939,6 +939,9 @@ contains
          t % estimator = ESTIMATOR_TRACKLENGTH
        end if
 
+       ! set tally reset property
+       t % reset = tally_(i) % reset
+
        ! Copy material id
        t % id = tally_(i) % id
 
diff --git a/src/tally_header.F90 b/src/tally_header.F90
index fce21943e7..fe1708bbb9 100644
--- a/src/tally_header.F90
+++ b/src/tally_header.F90
@@ -107,6 +107,9 @@ module tally_header
 
      type(TallyScore), allocatable :: scores(:,:)
 
+     ! reset property - allows a tally to be reset after every batch
+     logical :: reset = .false.
+
   end type TallyObject
 
 end module tally_header
diff --git a/src/xml-fortran/templates/tallies_t.xml b/src/xml-fortran/templates/tallies_t.xml
index a0b9d2964d..a30d025edc 100644
--- a/src/xml-fortran/templates/tallies_t.xml
+++ b/src/xml-fortran/templates/tallies_t.xml
@@ -29,6 +29,7 @@
     <component name="scores" type="word" length="250" default="''" />
     <component name="reactions" type="word" length="250" default="''" />
     <component name="nuclides" type="word" length="250" default="''" />
+    <component name="reset" type="logical" default=".false." />
   </typedef>
 
   <variable name="mesh_" tag="mesh" type="mesh_xml" dimension="1" />