From e810b6b23bfdae800e3cc29546e7e53ba21d977d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 31 Mar 2020 12:39:23 +0200 Subject: [PATCH] not needed here --- src/crystallite.f90 | 5 ----- 1 file changed, 5 deletions(-) diff --git a/src/crystallite.f90 b/src/crystallite.f90 index 8a5a89d62..4d83282df 100644 --- a/src/crystallite.f90 +++ b/src/crystallite.f90 @@ -1360,7 +1360,6 @@ end subroutine integrateStateAdaptiveEuler !-------------------------------------------------------------------------------------------------- !> @brief integrate stress, state with 4th order explicit Runge Kutta method -! ToDo: This is totally BROKEN: RK4dotState is never used!!! !-------------------------------------------------------------------------------------------------- subroutine integrateStateRK4 @@ -1679,10 +1678,6 @@ subroutine integrateStateRKCK45 crystallite_Fp(1:3,1:3,g,i,e), & g, i, e) - if(.not. (crystallite_todo(g,i,e) .or. crystallite_localPlasticity(g,i,e))) & - nonlocalBroken = .true. - if(.not. crystallite_todo(g,i,e)) cycle - crystallite_todo(g,i,e) = integrateStress(g,i,e) if(.not. (crystallite_todo(g,i,e) .or. crystallite_localPlasticity(g,i,e))) & nonlocalBroken = .true.