Fixed memory issue in block matrix solver.

AMDiS/src/parallel/PetscSolverGlobalBlockMatrix.cc

@@ -26,7 +26,7 @@ namespace AMDiS {
 
     double wtime = MPI::Wtime();
 
-    createMatVec(*seqMat);
+    prepare();
 
     const FiniteElemSpace *feSpace = componentSpaces[0];
     nComponents = seqMat->getNumRows();
@@ -198,6 +198,7 @@ namespace AMDiS {
       VecRestoreArray(tmp, &vecPointer);
     }
 
+    VecDestroy(&petscSolVec);
 
     // === Synchronize DOFs at common DOFs, i.e., DOFs that correspond to ===
     // === more than one partition.                                       ===
@@ -225,9 +226,10 @@ namespace AMDiS {
   {
     FUNCNAME("PetscSolverGlobalBlockMatrix::destroyVectorData()");
 
+    for (unsigned int i = 0; i < nestVec.size(); i++)
+      VecDestroy(&(nestVec[i]));
+      
     vecDestroy();
-
-    VecDestroy(&petscSolVec);
   }