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