From 9896a01ea4f7030fc11e29518887755e3e8b8de1 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Thu, 18 Mar 2021 08:07:10 +0100
Subject: [PATCH] easier to read

---
 src/homogenization.f90 | 7 +++----
 1 file changed, 3 insertions(+), 4 deletions(-)

diff --git a/src/homogenization.f90 b/src/homogenization.f90
index 6e9d492c8..0cd514c08 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -287,18 +287,17 @@ subroutine materialpoint_stressAndItsTangent(dt,FEsolving_execIP,FEsolving_execE
                                     .and. NiterationMPstate < num%nMPstate)
         NiterationMPstate = NiterationMPstate + 1
 
-
         call mechanical_partition(homogenization_F(1:3,1:3,ce),ce)
         converged = .true.
         do co = 1, myNgrains
           converged = converged .and. crystallite_stress(dt,co,ip,el)
         enddo
 
-        if (.not. converged) then
-          doneAndHappy = [.true.,.false.]
-        else
+        if (converged) then
           doneAndHappy = mechanical_updateState(dt,homogenization_F(1:3,1:3,ce),ce)
           converged = all(doneAndHappy)
+        else
+          doneAndHappy = [.true.,.false.]
         endif
 
       enddo convergenceLooping