From cf5fcf389b1502da09e86826684563c5391e4d40 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Wed, 1 Apr 2020 17:53:07 +0200
Subject: [PATCH] phase is a property of the element

and we have no homogenization for nonlocal
---
 src/crystallite.f90 | 10 ++++++----
 1 file changed, 6 insertions(+), 4 deletions(-)

diff --git a/src/crystallite.f90 b/src/crystallite.f90
index 8bceff9a4..967a34dbb 100644
--- a/src/crystallite.f90
+++ b/src/crystallite.f90
@@ -615,14 +615,16 @@ subroutine crystallite_orientations
   enddo; enddo; enddo
   !$OMP END PARALLEL DO
 
-  nonlocalPresent: if (any(plasticState%nonLocal)) then
+  nonlocalPresent: if (any(plasticState%nonlocal)) then
     !$OMP PARALLEL DO
     do e = FEsolving_execElem(1),FEsolving_execElem(2)
-      do i = FEsolving_execIP(1),FEsolving_execIP(2)
-        if (plasticState(material_phaseAt(1,e))%nonLocal) &
+      if (plasticState(material_phaseAt(1,e))%nonlocal) then
+        do i = FEsolving_execIP(1),FEsolving_execIP(2)
           call plastic_nonlocal_updateCompatibility(crystallite_orientation, &
                                                     phase_plasticityInstance(material_phaseAt(i,e)),i,e)
-    enddo; enddo
+        enddo
+      endif
+    enddo
     !$OMP END PARALLEL DO
   endif nonlocalPresent