From 2080749189393240f0842af1286073cfc53609c6 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Tue, 31 Mar 2020 08:09:41 +0200
Subject: [PATCH] does not change during the iteration

---
 src/crystallite.f90 | 4 ++--
 1 file changed, 2 insertions(+), 2 deletions(-)

diff --git a/src/crystallite.f90 b/src/crystallite.f90
index 33b58559d..8a9578a85 100644
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@@ -1033,9 +1033,9 @@ subroutine integrateStateFPI
         if(crystallite_todo(g,i,e) .and. .not. crystallite_converged(g,i,e) .and. &
           (.not. nonlocalBroken .or. crystallite_localPlasticity(g,i,e)) ) then
 
-          iteration: do NiterationState = 1, num%nState
+          p = material_phaseAt(g,e); c = material_phaseMemberAt(g,i,e)
 
-            p = material_phaseAt(g,e); c = material_phaseMemberAt(g,i,e)
+          iteration: do NiterationState = 1, num%nState
 
             plasticState(p)%previousDotState2(:,c) = merge(plasticState(p)%previousDotState(:,c),&
                                                            0.0_pReal,&