Fix problem with corner-crossing. Closes #116 on github.

This commit is contained in:
Paul Romano 2012-10-24 21:25:58 -07:00
parent 3e03bd3070
commit 6a3a5ef5a2

View file

@ -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