From 68d5ad00a2ed6617ba97e1895b52c01fb2a7c758 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Sun, 18 Aug 2013 10:50:25 -0400
Subject: [PATCH] Make active tally lists threadprivate.

---
 src/eigenvalue.F90 | 2 ++
 src/global.F90     | 2 ++
 2 files changed, 4 insertions(+)

diff --git a/src/eigenvalue.F90 b/src/eigenvalue.F90
index f52ccef810..e46d5c996b 100644
--- a/src/eigenvalue.F90
+++ b/src/eigenvalue.F90
@@ -127,7 +127,9 @@ contains
       tallies_on = .true.
 
       ! Add user tallies to active tallies list
+!$omp parallel
       call setup_active_usertallies()
+!$omp end parallel
     end if
 
     ! check CMFD initialize batch
diff --git a/src/global.F90 b/src/global.F90
index dd436fefc2..9466589b1b 100644
--- a/src/global.F90
+++ b/src/global.F90
@@ -112,6 +112,8 @@ module global
   type(SetInt) :: active_tracklength_tallies
   type(SetInt) :: active_current_tallies
   type(SetInt) :: active_tallies
+!$omp threadprivate(active_analog_tallies, active_tracklength_tallies, &
+!$omp&              active_current_tallies, active_tallies)
 
   ! Global tallies
   !   1) collision estimate of k-eff