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

[knepley at geodynamics.org]

Author: knepley
Date: 2006-11-02 17:31:54 -0800 (Thu, 02 Nov 2006)
New Revision: 5172

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matinit_drv.F
Log:
Sync tags before assembly


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-11-02 18:42:25 UTC (rev 5171)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/matinit_drv.F	2006-11-03 01:31:54 UTC (rev 5172)
@@ -524,6 +524,7 @@
 c
 c...  check stiffness matrix for zero or negative diagonals
 c
+      call PetscCommSynchronizeTags(MPI_COMM_WORLD, ierr)
       call MatAssemblyBegin(A, MAT_FINAL_ASSEMBLY, ierr)
       call MatAssemblyEnd(A, MAT_FINAL_ASSEMBLY, ierr)
       if (ierr.ne.0) then