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

[willic3 at geodynamics.org]

Author: willic3
Date: 2007-01-17 14:24:24 -0800 (Wed, 17 Jan 2007)
New Revision: 5804

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



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_7.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_7.f	2007-01-17 21:59:53 UTC (rev 5803)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_7.f	2007-01-17 22:24:24 UTC (rev 5804)
@@ -494,7 +494,7 @@
       sfrac=prop(4)+prop(6)+prop(8)
       if(sfrac.lt.zero.or.sfrac.gt.one) then
         ierr=116
-        errstrng="td_strs_5"
+        errstrng="td_strs_7"
         return
       end if
 c
@@ -582,6 +582,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"
@@ -590,11 +594,13 @@
 c
 cdebug      write(6,*) "Hello from td_strs_mat_7_f!
 c
+      iopt=2
       call td_matinit_7(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_7(state,dstate,state0,ee,scur,dmat,prop,rtimdat,
-     & rgiter,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,ierr,
+     & rgiter,iter,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,ierr,
      & errstrng)
 c
       return

Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_8.f
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_8.f	2007-01-17 21:59:53 UTC (rev 5803)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_8.f	2007-01-17 22:24:24 UTC (rev 5804)
@@ -416,6 +416,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"
@@ -424,11 +428,13 @@
 c
 cdebug      write(6,*) "Hello from td_strs_mat_8_f!"
 c
+      iopt=2
       call td_matinit_8(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_8(state,dstate,state0,ee,scur,dmat,prop,rtimdat,
-     & rgiter,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,ierr,
+     & rgiter,iter,ntimdat,iddmat,tmax,nstate,nstate0,nprop,matchg,ierr,
      & errstrng)
 c
       return