From 7039562befdfe94ed8bcbc29e799fb6da9d50965 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Sun, 1 Jul 2012 17:40:00 -0400 Subject: [PATCH] Moved default_xs variable to global. --- src/global.F90 | 3 +++ src/input_xml.F90 | 1 - 2 files changed, 3 insertions(+), 1 deletion(-) diff --git a/src/global.F90 b/src/global.F90 index b66bdc5b82..2849e562b0 100644 --- a/src/global.F90 +++ b/src/global.F90 @@ -89,6 +89,9 @@ module global ! Unreoslved resonance probablity tables logical :: urr_ptables_on = .true. + ! Default xs identifier (e.g. 70c) + character(3):: default_xs + ! ============================================================================ ! TALLY-RELATED VARIABLES diff --git a/src/input_xml.F90 b/src/input_xml.F90 index b464d5911b..2707bf358c 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -627,7 +627,6 @@ contains real(8) :: val ! value entered for density logical :: file_exists ! does materials.xml exist? logical :: sum_density ! density is taken to be sum of nuclide densities - character(3) :: default_xs ! default xs identifier (e.g. 70c) character(12) :: name ! name of isotope, e.g. 92235.03c character(12) :: alias ! alias of nuclide, e.g. U-235.03c character(MAX_WORD_LEN) :: units ! units on density