From 1466eca5fc86deae7d3d6cd9629de0cff6ad09db Mon Sep 17 00:00:00 2001
From: Nick Horelik <nicholas.horelik@gmail.com>
Date: Mon, 26 Mar 2012 16:08:27 -0700
Subject: [PATCH] fixed a bug where p % last_xyz wasn't updated when necessary
 for tracklength tallies with meshfilters

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

diff --git a/src/physics.F90 b/src/physics.F90
index a36202ea72..03ca45354d 100644
--- a/src/physics.F90
+++ b/src/physics.F90
@@ -81,6 +81,9 @@ contains
        ! Select smaller of the two distances
        distance = min(d_boundary, d_collision)
 
+       ! Save coordinates for tallying purposes
+       p % last_xyz = p % coord0 % xyz
+
        ! Advance particle
        coord => p % coord0
        do while (associated(coord))
@@ -128,9 +131,6 @@ contains
           p % surface = NONE
           call collision()
 
-          ! Save coordinates at collision for tallying purposes
-          p % last_xyz = p % coord0 % xyz
-
           ! Set last material to none since cross sections will need to be
           ! re-evaluated
           p % last_material = NONE