From 4439de571fe30fc26211018f94535e17b610c9f8 Mon Sep 17 00:00:00 2001
From: Paul Romano <paul.k.romano@gmail.com>
Date: Mon, 28 Jul 2014 20:12:02 -0400
Subject: [PATCH] Fix distance-to-surface calculationg for general plane
 surface.

---
 src/geometry.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/src/geometry.F90 b/src/geometry.F90
index 24d3ef8b06..187a207fd9 100644
--- a/src/geometry.F90
+++ b/src/geometry.F90
@@ -892,7 +892,7 @@ contains
           if (on_surface .or. tmp == ZERO) then
             d = INFINITY
           else
-            d = -(A*x + B*y + C*w - D)/tmp
+            d = -(A*x + B*y + C*z - D)/tmp
             if (d < ZERO) d = INFINITY
           end if