From 298db8f2b5e30d1a11d90459c2e66e3cf58f0d42 Mon Sep 17 00:00:00 2001
From: Bryan Herman <bherman@mit.edu>
Date: Tue, 10 Apr 2012 10:13:02 -0700
Subject: [PATCH] fixed bug in score surface current when using energy in
 filter

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

diff --git a/src/tally.F90 b/src/tally.F90
index dba6f741af..0acaaf254a 100644
--- a/src/tally.F90
+++ b/src/tally.F90
@@ -1032,11 +1032,11 @@ contains
        n = t % n_filter_bins(FILTER_ENERGYIN)
        if (n > 0) then
           ! check if energy of the particle is within energy bins
-          if (p % last_E < t % energy_in(1) .or. &
-               p % last_E > t % energy_in(n + 1)) cycle
+          if (p % E < t % energy_in(1) .or. &
+               p % E > t % energy_in(n + 1)) cycle
 
           ! search to find incoming energy bin
-          bins(SURF_FILTER_ENERGYIN) = binary_search(t % energy_in, n + 1, p % last_E)
+          bins(SURF_FILTER_ENERGYIN) = binary_search(t % energy_in, n + 1, p % E)
        else
           bins(SURF_FILTER_ENERGYIN) = 1
        end if