Merge branch 'devel' of https://github.com/elmercsc/elmerfem into devel

ElmerCSC · Aug 22, 2024 · 855edba · 855edba
2 parents 2ac592a + 370158c
commit 855edba
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)