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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-11-29 10:03:27 -0800 (Wed, 29 Nov 2006)
New Revision: 5373

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_5.f
Log:
Fixed error in computation of tangent matrix.


Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_5.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_5.f	2006-11-29 03:35:54 UTC (rev 5372)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_5.f	2006-11-29 18:03:27 UTC (rev 5373)
@@ -368,7 +368,7 @@
       if(rmu.ne.zero) then
         tau=vis/rmu
         tmax=min(tmax,tau)
-        shfac=shfac+compdq_5(deltp,tau)
+        shfac=compdq_5(deltp,tau)
       end if
 c
 c...  compute stress-strain matrix