[cig-commits] r5907 - short/3D/PyLith/branches/pylith-0.8/pylith3d/utils

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-01-26 08:20:39 -0800 (Fri, 26 Jan 2007)
New Revision: 5907

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/faultbm.f
Log:
Fixed logic for getting minimum value for a point.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/faultbm.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/faultbm.f	2007-01-26 15:13:11 UTC (rev 5906)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/utils/faultbm.f	2007-01-26 16:20:39 UTC (rev 5907)
@@ -226,7 +226,7 @@
         uxt=xsign*compd2(x,scoef(1,1,i))
         uyt=ysign*compd2(x,scoef(1,2,i))
         uzt=zsign*compd2(x,scoef(1,3,i))
-        ut=sqrt(ux*ux+uy*uy+uz*uz)
+        ut=sqrt(uxt*uxt+uyt*uyt+uzt*uzt)
         if(ut.lt.u) then
           ux=uxt
           uy=uyt
@@ -234,7 +234,6 @@
           u=ut
         end if
         if(u.lt.eps) insurf=.false.
-        return
  10     continue
       end do
       return