simplified

This commit is contained in:
Martin Diehl 2018-12-19 06:57:28 +01:00
parent 0e4dede606
commit 89196b953f
1 changed files with 2 additions and 8 deletions

View File

@ -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_pos = tau_pos - stt%crss_back(:,of)
tau_neg = tau_neg - stt%crss_back(:,of) tau_neg = tau_neg - stt%crss_back(:,of)
gdot_pos = 0.5_pReal * prm%gdot0 * & gdot_pos = sign(0.5_pReal * prm%gdot0 *(abs(tau_pos)/ state(instance)%crss(:,of))**prm%n_slip,tau_pos)
(abs(tau_pos)/ & gdot_neg = sign(0.5_pReal * prm%gdot0 *(abs(tau_neg)/ state(instance)%crss(:,of))**prm%n_slip,tau_neg)
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)
end associate end associate
end subroutine plastic_kinehardening_shearRates end subroutine plastic_kinehardening_shearRates