From b142ff6458d4515a2e4f9d72ae0b7ee3bfb67da6 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Tue, 14 Jan 2014 21:26:40 -0500
Subject: [PATCH] Move calculation of number of threads outside of .omp
 parallel.

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

diff --git a/src/initialize.F90 b/src/initialize.F90
index 9f495e4ac..c1fbf40cd 100644
--- a/src/initialize.F90
+++ b/src/initialize.F90
@@ -836,8 +836,9 @@ contains
     ! generation, there is also a 'master_fission_bank' that is used to collect
     ! the sites from each thread.
 
+    n_threads = omp_get_max_threads()
+
 !$omp parallel
-    n_threads = omp_get_num_threads()
     thread_id = omp_get_thread_num()
 
     if (thread_id == 0) then