From a6ee9ac9b6d7fa3b999a5cf63203aa0fdacb3ce7 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Fri, 13 Apr 2012 13:53:38 -0700
Subject: [PATCH] added reset property as input for cmfd tallies

---
 src/cmfd_input.F90                   | 3 +++
 src/xml-fortran/templates/cmfd_t.xml | 1 +
 2 files changed, 4 insertions(+)

diff --git a/src/cmfd_input.F90 b/src/cmfd_input.F90
index 74e74690d3..da7578af12 100644
--- a/src/cmfd_input.F90
+++ b/src/cmfd_input.F90
@@ -210,6 +210,9 @@ contains
       ! point t to tally variable
       t => tallies(i)
 
+      ! set reset property
+      if (reset_) t % reset = .true.
+
       ! allocate arrays for number of bins and stride in scores array
       allocate(t % n_filter_bins(N_FILTER_TYPES))
       allocate(t % stride(N_FILTER_TYPES))
diff --git a/src/xml-fortran/templates/cmfd_t.xml b/src/xml-fortran/templates/cmfd_t.xml
index f99a8c4d14..7a23a12da7 100644
--- a/src/xml-fortran/templates/cmfd_t.xml
+++ b/src/xml-fortran/templates/cmfd_t.xml
@@ -16,5 +16,6 @@
   <variable name="norm_" tag="norm" type="double" />
   <variable name="feedback_" tag="feedback" type="logical" default=".false."/>
   <variable name="n_cmfd_procs_" tag = "n_procs" type="integer" default="1" />
+  <variable name="reset_" tag = "reset" type="logical" default=".false." />
 
 </template>