Small fix to elimination & block stuff.

ElmerCSC · Jan 12, 2025 · 79c35d8 · 79c35d8
1 parent 8d7ba2c
commit 79c35d8
Showing 1 changed file with 4 additions and 0 deletions.
diff --git a/fem/src/SolverUtils.F90 b/fem/src/SolverUtils.F90
@@ -15929,14 +15929,18 @@ END SUBROUTINE BlockSolveExt
           CALL EliminateLinearRestriction( A, bb, A % ConstraintMatrix, Acoll, Solver, .TRUE. )
           CALL List_ToCRSMatrix(Acoll)
 
+          Acoll % Comm = A % Comm 
           Acoll % AddMatrix => A % AddMatrix
           CALL ParallelInitMatrix(Solver, Acoll)
 
           CALL BlockSolveExt( Acoll, x, Acoll % rhs, Solver )
 
           CALL Info(Caller,'Freeing collection matrix after solution',Level=10)
           NULLIFY( Acoll % AddMatrix )         
+
           CALL FreeMatrix(Acoll)
+          ParEnv => A % ParMatrix % ParEnv
+
           Acoll => NULL()
         END BLOCK
       ELSE