crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-28 22:26:08 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

Fixed error in reading <source> tag without coefficients.

Browse source
This commit is contained in:
Paul Romano 2012-03-22 18:16:39 -04:00
parent f1d9cef124
commit b940ec69f0
1 changed files with 2 additions and 1 deletions
Download patch file Download diff file Expand all files Collapse all files

3
src/input_xml.F90
View file

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