From f72b856a189d9af9ce50157ddf60c298f4eb9e00 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Fri, 21 Feb 2020 23:37:35 +0100 Subject: [PATCH] no reason for critical will always (and only) set to .true. --- src/homogenization.f90 | 6 ++---- 1 file changed, 2 insertions(+), 4 deletions(-) diff --git a/src/homogenization.f90 b/src/homogenization.f90 index 08e02290b..2faebfe1b 100644 --- a/src/homogenization.f90 +++ b/src/homogenization.f90 @@ -333,12 +333,10 @@ subroutine materialpoint_stressAndItsTangent(updateJaco,dt) !$OMP FLUSH(terminallyIll) if (.not. terminallyIll) then ! so first signals terminally ill... !$OMP CRITICAL (write2out) - write(6,*) 'Integration point ', i,' at element ', e, ' terminally ill' + write(6,*) 'Integration point ', i,' at element ', e, ' terminally ill' !$OMP END CRITICAL (write2out) endif - !$OMP CRITICAL (setTerminallyIll) - terminallyIll = .true. ! ...and kills all others - !$OMP END CRITICAL (setTerminallyIll) + terminallyIll = .true. ! ...and kills all others else ! cutback makes sense materialpoint_subStep(i,e) = subStepSizeHomog * materialpoint_subStep(i,e) ! crystallite had severe trouble, so do a significant cutback