From 90a873e817e91fa1f7f5932fbb611c918217c25d Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Wed, 5 Oct 2011 12:51:58 -0400
Subject: [PATCH] Fixed issue with reading weight cutoffs incorrectly from
 settings.xml.

---
 src/input_xml.f90                        | 6 ++++--
 src/xml-fortran/templates/settings_t.xml | 2 +-
 2 files changed, 5 insertions(+), 3 deletions(-)

diff --git a/src/input_xml.f90 b/src/input_xml.f90
index b8d97cb997..38521960be 100644
--- a/src/input_xml.f90
+++ b/src/input_xml.f90
@@ -110,8 +110,10 @@ contains
     if (size(survival_) > 0) survival_biasing = .true.
 
     ! Cutoffs
-    weight_cutoff = cutoff_ % weight
-    weight_survive = cutoff_ % weight_avg
+    if (size(cutoff_) > 0) then
+       weight_cutoff = cutoff_(1) % weight
+       weight_survive = cutoff_(1) % weight_avg
+    end if
 
   end subroutine read_settings_xml
 
diff --git a/src/xml-fortran/templates/settings_t.xml b/src/xml-fortran/templates/settings_t.xml
index a61892b15d..3e0bc52c76 100644
--- a/src/xml-fortran/templates/settings_t.xml
+++ b/src/xml-fortran/templates/settings_t.xml
@@ -28,6 +28,6 @@
   <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" dimension="1" />
-  <variable name="cutoff_" tag="cutoff" type="cutoff_xml" />
+  <variable name="cutoff_" tag="cutoff" type="cutoff_xml" dimension="1" />
 
 </template>