From 2f3a1d5361c61ebd7eb487d854e60a2f7a04e541 Mon Sep 17 00:00:00 2001 From: liangjg Date: Fri, 25 Jan 2019 11:32:23 -0500 Subject: [PATCH] move write_summary back to input_xml --- src/input_xml.F90 | 4 ++++ src/simulation.F90 | 6 ------ 2 files changed, 4 insertions(+), 6 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index a75c48e6ff..72c14a645c 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -29,6 +29,7 @@ module input_xml use string, only: to_lower, to_str, str_to_int, str_to_real, & starts_with, ends_with, split_string, & zero_padded, to_c_string + use summary, only: write_summary use tally use tally_header, only: openmc_extend_tallies use tally_derivative_header @@ -157,6 +158,9 @@ contains ! Normalize atom/weight percents call normalize_ao() + ! Write summary information + if (master .and. output_summary) call write_summary() + ! Warn if overlap checking is on if (master .and. check_overlaps) & call warning("Cell overlap checking is ON.") diff --git a/src/simulation.F90 b/src/simulation.F90 index c79b2188b7..f00b58ed1c 100644 --- a/src/simulation.F90 +++ b/src/simulation.F90 @@ -6,9 +6,6 @@ module simulation use nuclide_header, only: micro_xs, n_nuclides use photon_header, only: micro_photon_xs, n_elements use tally_filter_header, only: filter_matches, n_filters, filter_match_pointer - use summary, only: write_summary - use settings, only: output_summary - use message_passing, only: master implicit none private @@ -23,9 +20,6 @@ contains integer :: i - ! Write summary information - if (master .and. output_summary) call write_summary() - ! Set up material nuclide index mapping do i = 1, n_materials call materials(i) % init_nuclide_index()