istp/gray
2
0
Fork 0
Code Issues Pull Requests Packages Projects Releases 1 Wiki Activity

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

Browse Source
This commit is contained in:
Lorenzo Figini 2014-06-10 08:17:35 +00:00
parent fb2729f9b7
commit 469c37e098
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/gray.f
View File

@ -1349,8 +1349,8 @@ c end do
c c
c compute max and min z of last closed surface c compute max and min z of last closed surface
c c
rbmin=rax rbmin=rmaxis
rbmax=rax rbmax=rmaxis
if (nbbbs.gt.1) then if (nbbbs.gt.1) then
zbmin=1.0d+30 zbmin=1.0d+30
zbmax=-1.0d+30 zbmax=-1.0d+30