Allocate with a different size

ElmerCSC · Jan 24, 2025 · c1b621e · c1b621e
1 parent 00e23b2
commit c1b621e
Showing 1 changed file with 1 addition and 1 deletion.
diff --git 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