From: Richard Schussnig <richard.schussnig@gmx.at>
Date: Tue, 18 Aug 2020 18:33:56 +0000 (+0200)
Subject: Destroy tmp matrix in mmult.
X-Git-Tag: v9.3.0-rc1~1174^2~1
X-Git-Url: https://gitweb.dealii.org/cgi-bin/gitweb.cgi?a=commitdiff_plain;h=8223b7e3f30393faeebb650bd771f7b6293352e3;p=dealii.git

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 24ffcb166b..e4cd993951 100644
--- 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