From 8b70b073c76d4653e6e5e1ca3f042793be388aa2 Mon Sep 17 00:00:00 2001 From: Peter Raback Date: Sat, 3 Aug 2024 16:00:05 +0300 Subject: [PATCH] continue debugging on github --- fem/src/MeshUtils.F90 | 10 +++++----- 1 file changed, 5 insertions(+), 5 deletions(-) diff --git a/fem/src/MeshUtils.F90 b/fem/src/MeshUtils.F90 index 86b77613b8..c6d88688b2 100644 --- a/fem/src/MeshUtils.F90 +++ b/fem/src/MeshUtils.F90 @@ -14102,14 +14102,14 @@ SUBROUTINE CylinderFit(PMesh, PParams, BCind, dim, FitParams) CircleCoord = -HUGE(CircleCoord) DO j=1,2 i = CircleInd(j) - - IF( BCMode ) THEN + + IF( BCMode .AND. ParEnv % PEs > 1 ) THEN IF(j==1) THEN Dist = ParallelReduction( MinDist, 1 ) - IF(ABS(MinDist-Dist) > 1.0e-10) CYCLE + IF(ABS(MinDist-Dist) > 1.0e-8) CYCLE ELSE IF(j==2) THEN Dist = ParallelReduction( MaxDist, 2) - IF(ABS(MaxDist-Dist) > 1.0e-10) CYCLE + IF(ABS(MaxDist-Dist) > 1.0e-8) CYCLE END IF END IF @@ -14165,7 +14165,7 @@ SUBROUTINE CylinderFit(PMesh, PParams, BCind, dim, FitParams) ! Ok, we have found the point now set the circle coordinates DoIt = .TRUE. - IF( BCMode ) THEN + IF( BCMode .AND. ParEnv % PEs > 1 ) THEN Dist = ParallelReduction( MaxDist, 2 ) DoIt = ( ABS(MaxDist-Dist) < 1.0e-8 ) END IF