From 6f1da3077f3d2d2065862043fc42bf56160dd702 Mon Sep 17 00:00:00 2001 From: liangjg Date: Sun, 20 Jan 2019 21:56:34 -0500 Subject: [PATCH] defer write_summary calling in case the model is changed, for example materials are updated by capi in depletion after reading xml --- src/input_xml.F90 | 4 ---- src/simulation.F90 | 6 ++++++ 2 files changed, 6 insertions(+), 4 deletions(-) diff --git a/src/input_xml.F90 b/src/input_xml.F90 index be93a164e0..ef0835abd2 100644 --- a/src/input_xml.F90 +++ b/src/input_xml.F90 @@ -29,7 +29,6 @@ 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 @@ -158,9 +157,6 @@ 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 f00b58ed1c..c79b2188b7 100644 --- a/src/simulation.F90 +++ b/src/simulation.F90 @@ -6,6 +6,9 @@ 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 @@ -20,6 +23,9 @@ 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()