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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-01-17 13:59:53 -0800 (Wed, 17 Jan 2007)
New Revision: 5803

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_5.f
Log:
Fixed incorrect calls.



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	2007-01-17 21:55:45 UTC (rev 5802)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_5.f	2007-01-17 21:59:53 UTC (rev 5803)
@@ -519,6 +519,10 @@
       include "rgiter_dim.inc"
       include "ntimdat_dim.inc"
 c
+c...  local variables
+c
+      integer iopt
+c
 c...  included variable definitions
 c
       include "rtimdat_def.inc"
@@ -527,12 +531,14 @@
 c
 cdebug      write(6,*) "Hello from td_strs_mat_5_f!
 c
+      iopt=2
       call td_matinit_5(state,dstate,state0,dmat,prop,rtimdat,rgiter,
-     & ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,ierr,errstrng)
+     & iopt,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,
+     & ierr,errstrng)
       if(ierr.ne.izero) return
       call td_strs_5(state,dstate,state0,ee,scur,dmat,prop,rtimdat,
-     & rgiter,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,ierr,
-     & errstrng)
+     & rgiter,iter,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,
+     & ierr,errstrng)
 c
       return
       end