From ddb59b6ad07be5439a4ce0f0997c72c7b20bd9d1 Mon Sep 17 00:00:00 2001
From: Martin Diehl <mail@martin-diehl.net>
Date: Sun, 27 Dec 2020 10:19:39 +0100
Subject: [PATCH] simplified

---
 src/homogenization.f90 | 3 ---
 1 file changed, 3 deletions(-)

diff --git a/src/homogenization.f90 b/src/homogenization.f90
index 27fdb6064..896e4e790 100644
--- a/src/homogenization.f90
+++ b/src/homogenization.f90
@@ -255,10 +255,7 @@ subroutine materialpoint_stressAndItsTangent(dt)
             do co = 1, myNgrains
               converged = converged .and. crystallite_stress(dt*subStep,co,ip,el)
             enddo
-          endif
 
-
-          if (requested .and. .not. doneAndHappy(1)) then
             if (.not. converged) then
               doneAndHappy = [.true.,.false.]
             else