From 469c37e098c0613f8c9c2a17c426412d34bfcdc1 Mon Sep 17 00:00:00 2001
From: Lorenzo Figini <lorenzo.figini@istp.cnr.it>
Date: Tue, 10 Jun 2014 08:17:35 +0000
Subject: [PATCH] rbmin, rbmax were not properly set when boundary description
 was absent

---
 src/gray.f | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/gray.f b/src/gray.f
index 7b4b44e..c32421d 100644
--- a/src/gray.f
+++ b/src/gray.f
@@ -1349,8 +1349,8 @@ c          end do
 c
 c     compute max and min z of last closed surface
 c
-      rbmin=rax
-      rbmax=rax
+      rbmin=rmaxis
+      rbmax=rmaxis
       if (nbbbs.gt.1) then
         zbmin=1.0d+30
         zbmax=-1.0d+30