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

Avoid compiler warning with debug flags turned on

Browse source
This commit is contained in:
Paul Romano 2015-06-04 22:21:45 +07:00
parent 085ade9ffc
commit 600ca03b17
1 changed files with 6 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

12
src/input_xml.F90
View file

@ -74,8 +74,8 @@ contains
type(Node), pointer :: node_verb => null()
type(Node), pointer :: node_res_scat => null()
type(Node), pointer :: node_scatterer => null()
type(Node), pointer :: node_trigger => null()
type(Node), pointer :: node_keff_trigger => null()
type(Node), pointer :: node_trigger => null()
type(Node), pointer :: node_keff_trigger => null()
type(NodeList), pointer :: node_scat_list => null()
! Display output message
@ -2368,9 +2368,9 @@ contains
! Set type of filter
t % filters(j) % type = FILTER_DISTRIBCELL
! Going to add new filters to this tally if n_words > 1
! Allocate and store bins
allocate(t % filters(j) % int_bins(n_words))
call get_node_array(node_filt, "bins", t % filters(j) % int_bins)
@ -2554,7 +2554,7 @@ contains
! Append default_xs specifier to nuclide if needed
if ((default_xs /= '') .and. (.not. ends_with(sarray(j), 'c'))) then
word = word // "." // default_xs
word = trim(word) // "." // default_xs
end if
! Search through nuclides
@ -2937,7 +2937,7 @@ contains
call fatal_error("No <scores> specified on tally " &
&// trim(to_str(t % id)) // ".")
end if
! If settings.xml trigger is turned on, create tally triggers
if (trigger_on) then