From 68070b12ca3f6a0e5ec3354d1600388afcf5ea10 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Mon, 3 Jul 2017 15:13:27 -0500
Subject: [PATCH] Fix allocation of micro_xs in a few places

---
 src/mgxs_data.F90        | 3 ---
 src/particle_restart.F90 | 4 ++++
 2 files changed, 4 insertions(+), 3 deletions(-)

diff --git a/src/mgxs_data.F90 b/src/mgxs_data.F90
index a43d45c0e1..ad20aca83b 100644
--- a/src/mgxs_data.F90
+++ b/src/mgxs_data.F90
@@ -73,9 +73,6 @@ contains
 
     ! allocate arrays for MGXS storage and cross section cache
     allocate(nuclides_MG(n_nuclides_total))
-!$omp parallel
-    allocate(micro_xs(n_nuclides_total))
-!$omp end parallel
 
     ! ==========================================================================
     ! READ ALL MGXS CROSS SECTION TABLES
diff --git a/src/particle_restart.F90 b/src/particle_restart.F90
index ccf546dd9c..4438c48c00 100644
--- a/src/particle_restart.F90
+++ b/src/particle_restart.F90
@@ -32,6 +32,8 @@ contains
     ! Set verbosity high
     verbosity = 10
 
+    allocate(micro_xs(n_nuclides_total))
+
     ! Initialize the particle to be tracked
     call p % initialize()
 
@@ -57,6 +59,8 @@ contains
     ! Write output if particle made it
     call print_particle(p)
 
+    deallocate(micro_xs)
+
   end subroutine run_particle_restart
 
 !===============================================================================