Moved default_xs variable to global.

This commit is contained in:
Paul Romano 2012-07-01 17:40:00 -04:00
parent a1ce183c9e
commit 7039562bef
2 changed files with 3 additions and 1 deletions

View file

@ -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

View file

@ -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