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

[knepley at geodynamics.org]

Author: knepley
Date: 2006-09-12 08:38:29 -0700 (Tue, 12 Sep 2006)
New Revision: 4517

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matinit_drv.F
Log:
Error checking for MatAssembly


Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matinit_drv.F
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matinit_drv.F	2006-09-12 04:03:04 UTC (rev 4516)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matinit_drv.F	2006-09-12 15:38:29 UTC (rev 4517)
@@ -526,6 +526,10 @@
 c
       call MatAssemblyBegin(A, MAT_FINAL_ASSEMBLY, ierr)
       call MatAssemblyEnd(A, MAT_FINAL_ASSEMBLY, ierr)
+      if (ierr.ne.0) then
+        errstrng="matinit_drv"
+        return
+      end if
       call ckdiag(A,ierr,errstrng)
       return
       end