From 600ca03b172e8babe1bbe07a48b8f26dc22fdaa2 Mon Sep 17 00:00:00 2001 From: Paul Romano Date: Thu, 4 Jun 2015 22:21:45 +0700 Subject: [PATCH] Avoid compiler warning with debug flags turned on --- src/input_xml.F90 | 12 ++++++------ 1 file changed, 6 insertions(+), 6 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index b80c82157a..53e4567bf7 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -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 specified on tally " & &// trim(to_str(t % id)) // ".") end if - + ! If settings.xml trigger is turned on, create tally triggers if (trigger_on) then