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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-01-17 13:09:42 -0800 (Wed, 17 Jan 2007)
New Revision: 5801

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_1.f
Log:
Fixed incorrect call to td_strs_1.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_1.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_1.f	2007-01-17 20:29:30 UTC (rev 5800)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_1.f	2007-01-17 21:09:42 UTC (rev 5801)
@@ -339,7 +339,7 @@
 c
       if(matchg) call elas_mat_1(dmat,prop,iddmat,nprop,ierr,errstrng)
       call td_strs_1(state,dstate,state0,ee,scur,dmat,prop,rtimdat,
-     & rgiter,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,
+     & rgiter,iter,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,
      & ierr,errstrng)
 c
       return