rbmin, rbmax were not properly set when boundary description was absent

2014-06-10 08:17:35 +00:00 · 2014-06-10 08:17:35 +00:00 · 469c37e098
commit 469c37e098
parent fb2729f9b7
1 changed files with 2 additions and 2 deletions
--- 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