A small fix

ElmerCSC · Aug 22, 2024 · 370158c · 370158c
1 parent db77e48
commit 370158c
Showing 1 changed file with 1 addition and 0 deletions.
diff --git 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)