From ab96c3d874d62604d1efc4957aff88f9d3c88ed0 Mon Sep 17 00:00:00 2001
From: Sam Shaner <shaner@mit.edu>
Date: Thu, 4 Aug 2016 16:37:53 -0400
Subject: [PATCH] fixed printing of x-min surface current to tallies.out

---
 src/output.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/output.F90 b/src/output.F90
index 3b0e2c7835..579735007e 100644
--- a/src/output.F90
+++ b/src/output.F90
@@ -1035,7 +1035,7 @@ contains
             ! Left Surface
             matching_bins(i_filter_mesh) = &
                  mesh_indices_to_bin(m, (/ i, j, k /))
-            matching_bins(i_filter_surf) = OUT_RIGHT
+            matching_bins(i_filter_surf) = OUT_LEFT
             filter_index = sum((matching_bins(1:size(t % filters)) - 1) &
                  * t % stride) + 1
             write(UNIT=unit_tally, FMT='(5X,A,T35,A,"+/- ",A)') &