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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-10-12 14:07:03 -0700 (Thu, 12 Oct 2006)
New Revision: 4960

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_5.f
Log:
Added error return.


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	2006-10-12 21:06:44 UTC (rev 4959)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/mat_5.f	2006-10-12 21:07:03 UTC (rev 4960)
@@ -429,6 +429,7 @@
 c
       call td_matinit_5(state,dstate,state0,dmat,prop,rtimdat,rgiter,
      & 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)