From cf48405ee9b54644d9df1ca647b310b2635aeaf4 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Wed, 9 Jan 2019 23:36:00 -0600
Subject: [PATCH] Fix particle restart runs

---
 src/particle_restart.F90 | 4 +++-
 1 file changed, 3 insertions(+), 1 deletion(-)

diff --git a/src/particle_restart.F90 b/src/particle_restart.F90
index 78a558d346..9474f58896 100644
--- a/src/particle_restart.F90
+++ b/src/particle_restart.F90
@@ -10,6 +10,7 @@ module particle_restart
   use nuclide_header,   only: micro_xs, n_nuclides
   use output,           only: print_particle
   use particle_header
+  use photon_header,    only: micro_photon_xs, n_elements
   use random_lcg,       only: set_particle_seed
   use settings
   use simulation_header
@@ -45,7 +46,8 @@ contains
 
   !$omp parallel
     allocate(micro_xs(n_nuclides))
-  !$omp end parallel
+    allocate(micro_photon_xs(n_elements))
+    !$omp end parallel
     call set_micro_xs()
 
     ! Initialize the particle to be tracked