Merge pull request #591 from richb2k/pieces

MeshUtils.F90: set the value of MaxIndex based on the maximum value in the MeshPiece…
ElmerCSC · Oct 7, 2024 · e989948 · e989948
2 parents 2aaceb9 + 7892f85
commit e989948
Showing 1 changed file with 1 addition and 0 deletions.
diff --git a/fem/src/MeshUtils.F90 b/fem/src/MeshUtils.F90
@@ -25552,6 +25552,7 @@ SUBROUTINE CalculateMeshPieces( Mesh, ElementMode, PieceIndex)
     CALL Info('CalculateMeshPieces','Mesh coloring loops: '//I2S(Loop),Level=6)
 
     ! Compute the true number of different pieces
+    MaxIndex = MAXVAL( MeshPiece )
     IF( MaxIndex == 1 ) THEN
       NoPieces = 1
       IF(PRESENT(PieceIndex)) PieceIndex = 1