From 370158c7d4edefe905d9bfe6594765d3c230f8c7 Mon Sep 17 00:00:00 2001
From: Mika Malinen <mika.malinen@csc.fi>
Date: Thu, 22 Aug 2024 11:21:14 +0300
Subject: [PATCH] A small fix

---
 fem/src/CRSMatrix.F90 | 1 +
 1 file changed, 1 insertion(+)

diff --git a/fem/src/CRSMatrix.F90 b/fem/src/CRSMatrix.F90
index f471242a55..393fce3e6b 100644
--- a/fem/src/CRSMatrix.F90
+++ b/fem/src/CRSMatrix.F90
@@ -138,6 +138,7 @@ SUBROUTINE CRS_ZeroRow( A,n )
     LOGICAL :: isMass, isDamp, EigenAnalysis, DampedAnalysis, HarmonicAnalysis, Found
 
     EigenAnalysis=.FALSE.; HarmonicAnalysis=.FALSE.
+    DampedAnalysis = .FALSE.
     IF(ASSOCIATED(A % Solver)) THEN
        EigenAnalysis = A % Solver % NOFEigenValues > 0 .AND. &
            ListGetLogical( A % Solver % Values, 'Eigen Analysis',Found)