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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-02-05 09:27:50 -0800 (Mon, 05 Feb 2007)
New Revision: 5964

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_6.f
Log:
Fixed error in updating viscous strain.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_6.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_6.f	2007-02-03 14:39:53 UTC (rev 5963)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_6.f	2007-02-05 17:27:50 UTC (rev 5964)
@@ -654,7 +654,7 @@
 c
 cdebug      write(6,*) "Hello from update_state_6_f!"
 c
-      call daxpy(nstate-6,sub,state,ione,dstate,ione)
+      call daxpy(nstate,sub,state,ione,dstate,ione)
       call daxpy(nstate,one,dstate,ione,state,ione)
 c
       return