[cig-commits] r5088 - short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-10-25 07:10:58 -0700 (Wed, 25 Oct 2006)
New Revision: 5088

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/invar.f
Log:
Minor efficiency change, but it chould be significant since this
routine is used many times.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/invar.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/invar.f	2006-10-25 14:10:06 UTC (rev 5087)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/invar.f	2006-10-25 14:10:58 UTC (rev 5088)
@@ -58,7 +58,7 @@
 cdebug      write(6,*) "Hello from invar_f!"
 c
       sinv1=stn(1)+stn(2)+stn(3)
-      smean=sinv1/three
+      smean=sinv1*third
       sdev(1)=stn(1)-smean
       sdev(2)=stn(2)-smean
       sdev(3)=stn(3)-smean