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