From 89196b953ff4437eda32f359fb2e86f6d4da2923 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 19 Dec 2018 06:57:28 +0100 Subject: [PATCH] simplified --- src/plastic_kinematichardening.f90 | 10 ++-------- 1 file changed, 2 insertions(+), 8 deletions(-) diff --git a/src/plastic_kinematichardening.f90 b/src/plastic_kinematichardening.f90 index a06ccfeef..ce2ede265 100644 --- a/src/plastic_kinematichardening.f90 +++ b/src/plastic_kinematichardening.f90 @@ -453,14 +453,8 @@ subroutine plastic_kinehardening_shearRates(gdot_pos,gdot_neg,tau_pos,tau_neg, & tau_pos = tau_pos - stt%crss_back(:,of) tau_neg = tau_neg - stt%crss_back(:,of) - gdot_pos = 0.5_pReal * prm%gdot0 * & - (abs(tau_pos)/ & - state(instance)%crss(:,of))**prm%n_slip & - *sign(1.0_pReal,tau_pos) - gdot_neg = 0.5_pReal * prm%gdot0 * & - (abs(tau_neg)/ & - state(instance)%crss(:,of))**prm%n_slip & - *sign(1.0_pReal,tau_neg) + gdot_pos = sign(0.5_pReal * prm%gdot0 *(abs(tau_pos)/ state(instance)%crss(:,of))**prm%n_slip,tau_pos) + gdot_neg = sign(0.5_pReal * prm%gdot0 *(abs(tau_neg)/ state(instance)%crss(:,of))**prm%n_slip,tau_neg) end associate end subroutine plastic_kinehardening_shearRates