From d215bee26862731124c511ef62dc4fbd769715bf Mon Sep 17 00:00:00 2001
From: William Dawson <william.dawson@riken.jp>
Date: Wed, 19 Jun 2024 16:05:58 +0900
Subject: [PATCH] Explicit destruct

---
 Source/Fortran/PSMatrixAlgebraModule.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/Source/Fortran/PSMatrixAlgebraModule.F90 b/Source/Fortran/PSMatrixAlgebraModule.F90
index 9cb793e2..8e05ecd3 100644
--- a/Source/Fortran/PSMatrixAlgebraModule.F90
+++ b/Source/Fortran/PSMatrixAlgebraModule.F90
@@ -540,6 +540,7 @@ FUNCTION MeasureAsymmetry(this) RESULT(norm_value)
     CALL ConjugateMatrix(tmat)
     CALL IncrementMatrix(this, tmat, alpha_in=-1.0_NTREAL)
     norm_value = MatrixNorm(tmat)
+    CALL DestructMatrix(tmat)
 
   END FUNCTION MeasureAsymmetry
 !!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!!