From 28cf06ca984fd27ff92ce366e3a985649b4d2f9e Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Mon, 30 Mar 2020 14:13:04 +0200
Subject: [PATCH] extra loop not needed

---
 src/crystallite.f90 | 12 ------------
 1 file changed, 12 deletions(-)

diff --git a/src/crystallite.f90 b/src/crystallite.f90
index 09fe0e52a..72cbd46b5 100644
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@@ -1298,18 +1298,6 @@ subroutine integrateStateAdaptiveEuler
           if(.not. crystallite_todo(g,i,e)) cycle
 
 
-        endif
-      enddo; enddo; enddo
-  !$OMP END PARALLEL DO
-
-  if(nonlocalBroken) where(.not. crystallite_localPlasticity) crystallite_todo = .false.
-
-  !$OMP PARALLEL DO PRIVATE(sizeDotState,p,c)
-  do e = FEsolving_execElem(1),FEsolving_execElem(2)
-    do i = FEsolving_execIP(1),FEsolving_execIP(2)
-      do g = 1,homogenization_Ngrains(material_homogenizationAt(e))
-        if (crystallite_todo(g,i,e)) then
-          p = material_phaseAt(g,e); c = material_phaseMemberAt(g,i,e)
           sizeDotState = plasticState(p)%sizeDotState
 
           residuum_plastic(1:sizeDotState,g,i,e) = residuum_plastic(1:sizeDotState,g,i,e) &