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