From cbb23472f365c4c26591eab5eb24522361289359 Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Tue, 8 Nov 2011 12:50:03 -0500
Subject: [PATCH] Fixed bug where no surface current tallies caused segfault.

---
 src/tally.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/tally.f90 b/src/tally.f90
index 84e10e8791..b89299bb84 100644
--- a/src/tally.f90
+++ b/src/tally.f90
@@ -604,14 +604,14 @@ contains
        xyz0 = p % last_xyz
        xyz1 = p % xyz
 
-       ! Get pointer to tally and mesh
+       ! Get pointer to tally
        t => tallies(i)
-       m => meshes(t % mesh)
 
        ! Skip non-surface-current tallies
        if (.not. t % surface_current) cycle
 
        ! Determine indices for starting and ending location
+       m => meshes(t % mesh)
        call get_mesh_indices(m, xyz0, ijk0, start_in_mesh)
        call get_mesh_indices(m, xyz1, ijk1, end_in_mesh)