From 6a3a5ef5a28ae5cb5907308a2d751beebb57475a Mon Sep 17 00:00:00 2001
From: Paul Romano <romano7@gmail.com>
Date: Wed, 24 Oct 2012 21:25:58 -0700
Subject: [PATCH] Fix problem with corner-crossing. Closes #116 on github.

---
 src/geometry.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/src/geometry.F90 b/src/geometry.F90
index 54b5ef7dfe..76972a9621 100644
--- a/src/geometry.F90
+++ b/src/geometry.F90
@@ -182,6 +182,10 @@ contains
                 p % coord => p % coord0
                 call deallocate_coord(p % coord % next)
 
+                ! Reset surface and advance particle a tiny bit
+                p % surface = NONE
+                p % coord % xyz = xyz
+
              else
 
                 ! Create new level of coordinates