From b940ec69f03e40c3738f42db03397b91ba4a5599 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Thu, 22 Mar 2012 18:16:39 -0400 Subject: [PATCH] Fixed error in reading tag without coefficients. --- src/input_xml.F90 | 3 ++- 1 file changed, 2 insertions(+), 1 deletion(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index d9385fd376..95199f319f 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -69,6 +69,7 @@ contains energy_grid_ = "union" seed_ = 0_8 write_source = "" + source_ % type = "" ! Parse settings.xml file call read_xml_file_settings_t(filename) @@ -133,7 +134,7 @@ contains ! Verbosity if (verbosity_ > 0) verbosity = verbosity_ - if (associated(source_ % coeffs)) then + if (len(source_ % type) > 0) then ! Determine external source type type = source_ % type call lower_case(type)