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

[willic3 at geodynamics.org]

Author: willic3
Date: 2006-11-02 17:57:29 -0800 (Thu, 02 Nov 2006)
New Revision: 5173

Modified:
   short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/stress_mat_drv.F
Log:
Put in same fix Matt did for matinit_drv.F, syncing tags before
assembly.



Modified: short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/stress_mat_drv.F
===================================================================
--- short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/stress_mat_drv.F	2006-11-03 01:31:54 UTC (rev 5172)
+++ short/3D/PyLith/branches/pylith-0.8/pylith3d/libpylith3d/stress_mat_drv.F	2006-11-03 01:57:29 UTC (rev 5173)
@@ -529,6 +529,7 @@
 c...  assemble stiffness matrix and check for zero or negative
 c     diagonal entries
 c
+      call PetscCommSynchronizeTags(MPI_COMM_WORLD, ierr)
       call MatAssemblyBegin(A, MAT_FINAL_ASSEMBLY, ierr)
       call MatAssemblyEnd(A, MAT_FINAL_ASSEMBLY, ierr)
       call ckdiag(A,ierr,errstrng)