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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-01-22 07:47:23 -0800 (Mon, 22 Jan 2007)
New Revision: 5853

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/td_matinit_cmp_ss.F
Log:
Fixed incorrect call to td_matinit.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/td_matinit_cmp_ss.F
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/td_matinit_cmp_ss.F	2007-01-20 19:30:36 UTC (rev 5852)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/td_matinit_cmp_ss.F	2007-01-22 15:47:23 UTC (rev 5853)
@@ -103,7 +103,7 @@
 c
 c...  local variables
 c
-      integer ielf,incstate0,indstate0,l
+      integer iopt,ielf,incstate0,indstate0,l
       double precision tmax
 c
 c...  included variable definitions
@@ -114,6 +114,7 @@
 c
 cdebug      write(6,*) "Hello from td_matinit_cmp_ss_f!"
 c
+      iopt=1
       incstate0=izero
       indstate0=ione
       if(ipstrs.ne.izero) then
@@ -129,7 +130,7 @@
         do l=1,ngauss
           call td_matinit(state(1,l,ielf),dstate(1,l,ielf),
      &     state0(1,l,indstate0),dmat(1,l,ielf),prop,rtimdat,rgiter,
-     &     ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,
+     &     iopt,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,
      &     ierr,errstrng)
         end do
         call formes_ss(