From 295c03664400518f62ae2dc021a0589a79d3cf5f Mon Sep 17 00:00:00 2001 From: Sharan Roongta Date: Mon, 29 Mar 2021 20:10:57 +0200 Subject: [PATCH] not required (checking) --- src/phase_mechanical.f90 | 2 -- 1 file changed, 2 deletions(-) diff --git a/src/phase_mechanical.f90 b/src/phase_mechanical.f90 index bde894507..1dea21d36 100644 --- a/src/phase_mechanical.f90 +++ b/src/phase_mechanical.f90 @@ -1213,8 +1213,6 @@ module function crystallite_stress(dt,co,ip,el) result(converged_) if (todo) then subF = subF0 & + subStep * (phase_mechanical_F(ph)%data(1:3,1:3,me) - phase_mechanical_F0(ph)%data(1:3,1:3,me)) - phase_mechanical_Fe(ph)%data(1:3,1:3,me) = matmul(subF,math_inv33(matmul(phase_mechanical_Fi(ph)%data(1:3,1:3,me), & - phase_mechanical_Fp(ph)%data(1:3,1:3,me)))) converged_ = .not. integrateState(subF0,subF,subFp0,subFi0,subState0(1:sizeDotState),subStep * dt,co,ip,el) converged_ = converged_ .and. .not. integrateDamageState(subStep * dt,co,ip,el) endif