From 5908e3fd3486e1584081908ab56cfc5d1ad3a022 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 30 Jan 2019 06:44:26 +0100 Subject: [PATCH] wrong tolerance selection --- src/crystallite.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index a5f7592d6..b29ede160 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1637,7 +1637,7 @@ subroutine integrateStateFPI() + plasticState(p)%previousDotState(:,c) * (1.0_pReal - zeta) crystallite_converged(g,i,e) = all(abs(residuum_plastic(1:sizeDotState)) & - < min(plasticState(p)%aTolState(1:sizeDotState), & + < max(plasticState(p)%aTolState(1:sizeDotState), & abs(plasticState(p)%state(1:sizeDotState,c)*rTol_crystalliteState))) @@ -1661,7 +1661,7 @@ subroutine integrateStateFPI() crystallite_converged(g,i,e) = crystallite_converged(g,i,e) .and. & all(abs(residuum_source(1:sizeDotState)) & - < min(sourceState(p)%p(s)%aTolState(1:sizeDotState), & + < max(sourceState(p)%p(s)%aTolState(1:sizeDotState), & abs(sourceState(p)%p(s)%state(1:sizeDotState,c)*rTol_crystalliteState))) enddo endif