crp/OpenMC
1
0
Fork 0
mirror of https://github.com/openmc-dev/openmc.git synced 2026-07-27 21:55:41 -04:00
Code Issues Projects Releases Packages Wiki Activity Actions 5

move write_summary back to input_xml

Browse source
This commit is contained in:
liangjg 2019-01-25 11:32:23 -05:00
parent d65bdaac49
commit 2f3a1d5361
2 changed files with 4 additions and 6 deletions
Download patch file Download diff file Expand all files Collapse all files

4
src/input_xml.F90
View file

@ -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.")

6
src/simulation.F90
View file

@ -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()