Destroy tmp matrix in mmult.

When using a vector in the mmult, a tmp matrix with scaled rows is not destroyed - fix this.

diff --git a/source/lac/petsc_matrix_base.cc b/source/lac/petsc_matrix_base.cc
index 24ffcb166b54e80b8fd4fc2b8aa15a7793d9e44a..e4cd99395180f698fcb30de7da6335edd6c785cd 100644 (file)
--- a/source/lac/petsc_matrix_base.cc
+++ b/source/lac/petsc_matrix_base.cc
@@ -556,6 +556,8 @@ namespace PETScWrappers
                             PETSC_DEFAULT,
                             &result.petsc_matrix());
           AssertThrow(ierr == 0, ExcPETScError(ierr));
+          ierr = PETScWrappers::destroy_matrix(tmp);
+                           AssertThrow(ierr == 0, ExcPETScError(ierr));
         }
     }
   } // namespace internals