From 37e00a484f292af0223b686f7af364d466f9408e Mon Sep 17 00:00:00 2001
From: Sterling Harper <sterlingmharper@gmail.com>
Date: Mon, 13 Apr 2015 16:42:05 -0400
Subject: [PATCH] Fixed OpenMP for score_general

---
 src/tally.F90 | 3 +--
 1 file changed, 1 insertion(+), 2 deletions(-)

diff --git a/src/tally.F90 b/src/tally.F90
index faea7e2ebd..fd2157e810 100644
--- a/src/tally.F90
+++ b/src/tally.F90
@@ -55,13 +55,12 @@ contains
     real(8) :: atom_density_        ! atom/b-cm
     real(8) :: f                    ! interpolation factor
     real(8) :: score                ! analog tally score
-    real(8) :: score_               ! analog tally score
     real(8) :: macro_total          ! material macro total xs
     real(8) :: macro_scatt          ! material macro scatt xs
     real(8) :: uvw(3)               ! particle direction
     type(Material),    pointer, save :: mat => null()
     type(Reaction),    pointer, save :: rxn => null()
-!$omp threadprivate(t, mat, rxn)
+!$omp threadprivate(mat, rxn)
 
     i = 0
     SCORE_LOOP: do q = 1, t % n_user_score_bins