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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-10-26 12:43:52 -0700 (Thu, 26 Oct 2006)
New Revision: 5101

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/iterate.F
Log:
Fixed routine to pass up error codes from stress_drv and stress_mat_drv.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/iterate.F
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/iterate.F	2006-10-26 19:42:28 UTC (rev 5100)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/iterate.F	2006-10-26 19:43:52 UTC (rev 5101)
@@ -344,6 +344,7 @@
      &     getshape,bmatrix,                                            ! bbar
      &     ierr,errstrng)                                               ! errcode
         end if
+        if(ierr.ne.izero) return
 c
 c...compute the out-of-balance forces and convergence criteria
 c