From a0ddce284e6fe8c6cbcab56c7114b5242156fdda Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Sun, 18 Aug 2013 12:50:34 -0400
Subject: [PATCH] Enclose global leakage tally in omp critical.

---
 src/geometry.F90 | 6 +++++-
 1 file changed, 5 insertions(+), 1 deletion(-)

diff --git a/src/geometry.F90 b/src/geometry.F90
index 547ad21d36..7e1bc283c1 100644
--- a/src/geometry.F90
+++ b/src/geometry.F90
@@ -408,8 +408,12 @@ contains
       end if
 
       ! Score to global leakage tally
-      if (tallies_on) global_tallies(LEAKAGE) % value = &
+      if (tallies_on) then
+!$omp critical
+        global_tallies(LEAKAGE) % value = &
            global_tallies(LEAKAGE) % value + p % wgt
+!$omp end critical
+      end if
 
       ! Display message
       if (verbosity >= 10 .or. trace) then