From c1b621efbae2d9737e8dcf9b93474f54a340f383 Mon Sep 17 00:00:00 2001
From: Mika Malinen <mika.malinen@csc.fi>
Date: Fri, 24 Jan 2025 12:00:58 +0200
Subject: [PATCH] Allocate with a different size

---
 fem/src/BlockSolve.F90 | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

diff --git a/fem/src/BlockSolve.F90 b/fem/src/BlockSolve.F90
index bf54f5cbd5..8cbae12e26 100644
--- a/fem/src/BlockSolve.F90
+++ b/fem/src/BlockSolve.F90
@@ -551,7 +551,7 @@ SUBROUTINE BlockInitVar( Solver, BlockMatrix, BlockIndex )
         IF( PRESENT(BlockIndex) ) THEN
           CALL Info('BlockInitVar','Using BlockIndex to pick variable and perm',Level=20)
           NULLIFY(VarPerm)
-          m = SIZE(Solver % Variable % Perm) 
+          m = SIZE(Solver % Variable % Values)
           ALLOCATE(VarPerm(m))
           VarPerm = 0