Fix by initializing

ElmerCSC · Aug 22, 2024 · 44347da · 44347da
1 parent 640aee8
commit 44347da
Showing 1 changed file with 2 additions and 1 deletion.
diff --git a/fem/src/SolverUtils.F90 b/fem/src/SolverUtils.F90
@@ -14277,7 +14277,7 @@ SUBROUTINE BlockSolveExt(A,x,b,Solver)
        END SUBROUTINE BlockSolveExt
     END INTERFACE
 !------------------------------------------------------------------------------
-    
+
     Params => Solver % Values
 
     IF( ListGetLogical( Params,'Linear System Skip Complex',GotIt ) ) THEN
@@ -18063,6 +18063,7 @@ SUBROUTINE ChangeToHarmonicSystem( Solver, BackToReal )
   ! Set the harmonic system matrix
   IF( EigenMode ) THEN
     ALLOCATE(Aharm % MassValues(SIZE(Aharm % Values)))
+    Aharm % MassValues = 0.0_dp
 
     DO k=1,n
       kr = Aharm % Rows(2*(k-1)+1)