From 67f64cf7e1c708f7c222f0d9b6fe89784b1c962d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 25 Mar 2020 11:13:46 +0100 Subject: [PATCH] correct iteration skipping --- src/crystallite.f90 | 6 +++--- 1 file changed, 3 insertions(+), 3 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 3d8e4b841..f32bd3c36 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1496,7 +1496,7 @@ subroutine integrateStateRKCK45 crystallite_todo(g,i,e) = integrateStress(g,i,e,CC(stage)) if(.not. (crystallite_todo(g,i,e) .or. crystallite_localPlasticity(g,i,e))) & nonlocalBroken = .true. - if(.not. crystallite_todo(g,i,e)) cycle + if(.not. crystallite_todo(g,i,e)) exit call constitutive_collectDotState(crystallite_S(1:3,1:3,g,i,e), & crystallite_partionedF0, & @@ -1509,11 +1509,11 @@ subroutine integrateStateRKCK45 enddo if(.not. (crystallite_todo(g,i,e) .or. crystallite_localPlasticity(g,i,e))) & nonlocalBroken = .true. - if(.not. crystallite_todo(g,i,e)) cycle + if(.not. crystallite_todo(g,i,e)) exit enddo - if(.not. crystallite_todo(g,i,e)) exit + if(.not. crystallite_todo(g,i,e)) cycle sizeDotState = plasticState(p)%sizeDotState plasticState(p)%RKCK45dotState(6,:,c) = plasticState (p)%dotState(:,c)