Fix allocation of micro_xs in a few places

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

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
 
 !===============================================================================