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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-11-29 11:14:23 -0800 (Wed, 29 Nov 2006)
New Revision: 5378

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matmod_def.f
Log:
Added ESF version of 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-29 18:08:26 UTC (rev 5377)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matmod_def.f	2006-11-29 19:14:23 UTC (rev 5378)
@@ -134,9 +134,18 @@
       infmatmod(5,7) = izero
       infmatmod(6,7) = 6
 c
+c...  Definition for linear Maxwell viscoelastic material (ESF version)
+c
+      infmatmod(1,8) = ione
+      infmatmod(2,8) = 18
+      infmatmod(3,8) = ifour
+      infmatmod(4,8) = ione
+      infmatmod(5,8) = izero
+      infmatmod(6,8) = 6
+c
 c...  Dummy definitions for remaining materials
 c
-      do i=8,nmatmodmax
+      do i=9,nmatmodmax
         do j=2,6
           infmatmod(j,i)=infmatmod(j,5)
         end do