From 66f61a8011c7fea905dec7ad5984eef57ada265a Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Wed, 21 Nov 2018 14:42:39 -0600
Subject: [PATCH] Make sure settings::micro_xs is set for particle restarts

---
 src/particle_restart.F90 | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/src/particle_restart.F90 b/src/particle_restart.F90
index 0190c6e979..78a558d346 100644
--- a/src/particle_restart.F90
+++ b/src/particle_restart.F90
@@ -33,12 +33,20 @@ contains
     integer :: previous_run_mode
     type(Particle) :: p
 
+    interface
+      subroutine set_micro_xs() bind(C)
+      end subroutine
+    end interface
+
     err = 0
 
     ! Set verbosity high
     verbosity = 10
 
+  !$omp parallel
     allocate(micro_xs(n_nuclides))
+  !$omp end parallel
+    call set_micro_xs()
 
     ! Initialize the particle to be tracked
     call particle_initialize(p)