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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-11-15 12:05:38 -0800 (Wed, 15 Nov 2006)
New Revision: 5272

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matmod_def.f
Log:
Updated definitions for generalized Maxwell model.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matmod_def.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matmod_def.f	2006-11-15 20:04:40 UTC (rev 5271)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matmod_def.f	2006-11-15 20:05:38 UTC (rev 5272)
@@ -125,9 +125,18 @@
       infmatmod(5,6) = ione
       infmatmod(6,6) = 6
 c
+c...  Definition for generalized linear Maxwell viscoelastic material
+c
+      infmatmod(1,7) = ione
+      infmatmod(2,7) = 15
+      infmatmod(3,7) = 9
+      infmatmod(4,7) = ione
+      infmatmod(5,7) = izero
+      infmatmod(6,7) = 6
+c
 c...  Dummy definitions for remaining materials
 c
-      do i=7,nmatmodmax
+      do i=8,nmatmodmax
         do j=2,6
           infmatmod(j,i)=infmatmod(j,5)
         end do