From 069e795101377217a5f24a34ea4f1e2e2d94ac7f Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Thu, 12 Jan 2012 15:57:35 -0500
Subject: [PATCH] Added option to turn probability tables off.

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

diff --git a/src/input_xml.F90 b/src/input_xml.F90
index e6c46cba60..db18cb3ab0 100644
--- a/src/input_xml.F90
+++ b/src/input_xml.F90
@@ -129,6 +129,9 @@ contains
     ! Survival biasing
     if (trim(survival_) == 'on') survival_biasing = .true.
 
+    ! Probability tables
+    if (ptables_ == 'off') urr_ptables_on = .false.
+
     ! Cutoffs
     if (size(cutoff_) > 0) then
        weight_cutoff = cutoff_(1) % weight
diff --git a/src/xml-fortran/templates/settings_t.xml b/src/xml-fortran/templates/settings_t.xml
index c69439612e..0bfa90278c 100644
--- a/src/xml-fortran/templates/settings_t.xml
+++ b/src/xml-fortran/templates/settings_t.xml
@@ -23,6 +23,7 @@
   <variable name="verbosity_" tag="verbosity" type="integer" />
   <variable name="source_" tag="source" type="source_xml" />
   <variable name="survival_" tag="survival_biasing" type="word" length="3" />
+  <variable name="ptables_" tag="ptables" type="word" length="3" />
   <variable name="cutoff_" tag="cutoff" type="cutoff_xml" dimension="1" />
   <variable name="cross_sections_" tag="cross_sections" type="word" length="255" />
   <variable name="trace_" tag="trace" type="integer-array" />