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