From 79c35d85baca3f42164fca4e23f6ebedc19a0b2d Mon Sep 17 00:00:00 2001
From: Peter R <peter.raback@csc.fi>
Date: Sun, 12 Jan 2025 21:53:10 +0200
Subject: [PATCH] Small fix to elimination & block stuff.

---
 fem/src/SolverUtils.F90 | 4 ++++
 1 file changed, 4 insertions(+)

diff --git a/fem/src/SolverUtils.F90 b/fem/src/SolverUtils.F90
index a83ca90c21..ebccffab57 100644
--- a/fem/src/SolverUtils.F90
+++ b/fem/src/SolverUtils.F90
@@ -15929,6 +15929,7 @@ 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)
           
@@ -15936,7 +15937,10 @@ END SUBROUTINE BlockSolveExt
 
           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