[cig-commits] r20338 - short/3D/PyLith/branches/v1.7-trunk/libsrc/pylith/faults

[brad at geodynamics.org]

Author: brad
Date: 2012-06-08 14:26:42 -0700 (Fri, 08 Jun 2012)
New Revision: 20338

Modified:
   short/3D/PyLith/branches/v1.7-trunk/libsrc/pylith/faults/FaultCohesiveDyn.cc
Log:
Initialize IS.

Modified: short/3D/PyLith/branches/v1.7-trunk/libsrc/pylith/faults/FaultCohesiveDyn.cc
===================================================================
--- short/3D/PyLith/branches/v1.7-trunk/libsrc/pylith/faults/FaultCohesiveDyn.cc	2012-06-08 20:13:08 UTC (rev 20337)
+++ short/3D/PyLith/branches/v1.7-trunk/libsrc/pylith/faults/FaultCohesiveDyn.cc	2012-06-08 21:26:42 UTC (rev 20338)
@@ -1993,6 +1993,7 @@
     for (int i=0; i < subnrows; ++i) {
       indicesLocal[iCohesiveCell*subnrows+indicesPerm[i]] = i;
     } // for
+    cellsIS[iCohesiveCell] = PETSC_NULL;
     err = ISCreateGeneral(PETSC_COMM_SELF, indicesGlobal.size(), &indicesGlobal[0], PETSC_COPY_VALUES, &cellsIS[iCohesiveCell]);CHECK_PETSC_ERROR(err);
 
   } // for