diff --git a/src/criticality.F90 b/src/criticality.F90
index e2492cbf82..c7978d4e84 100644
--- a/src/criticality.F90
+++ b/src/criticality.F90
@@ -4,7 +4,7 @@ module criticality
   use global
   use intercycle, only: shannon_entropy, calculate_keff, synchronize_bank, &
                         count_source_for_ufs
-  use output,     only: write_message, header
+  use output,     only: write_message, header, print_columns
   use physics,    only: transport
   use source,     only: get_source_particle
   use string,     only: to_str
@@ -31,17 +31,7 @@ contains
     allocate(p)
 
     ! Display column titles
-    if (entropy_on) then
-       message = " Batch   k(batch)   Entropy         Average k"
-       call write_message(1)
-       message = " =====   ========   =======    ==================="
-       call write_message(1)
-    else
-       message = " Batch   k(batch)          Average k"
-       call write_message(1)
-       message = " =====   ========     ==================="
-       call write_message(1)
-    end if
+    call print_columns()
 
     ! ==========================================================================
     ! LOOP OVER BATCHES
diff --git a/src/output.F90 b/src/output.F90
index 3ff924e6e6..389e7ca783 100644
--- a/src/output.F90
+++ b/src/output.F90
@@ -933,6 +933,27 @@ contains
 
   end subroutine print_summary
 
+!===============================================================================
+! PRINT_COLUMNS displays a header listing what physical values will displayed
+! below them
+!===============================================================================
+
+  subroutine print_columns()
+
+    if (entropy_on) then
+       message = " Batch   k(batch)   Entropy         Average k"
+       call write_message(1)
+       message = " =====   ========   =======    ==================="
+       call write_message(1)
+    else
+       message = " Batch   k(batch)          Average k"
+       call write_message(1)
+       message = " =====   ========     ==================="
+       call write_message(1)
+    end if
+
+  end subroutine print_columns
+
 !===============================================================================
 ! PRINT_BATCH_KEFF displays the last batch's tallied value of the neutron
 ! multiplication factor as well as the average value if we're in active batches