From 74956de9bd4f658ffd954f6d57ded22e7f32d4b5 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 2 May 2018 16:06:30 +0200 Subject: [PATCH] misplaced bracket caused wrong results introduced in commit e3bd09d8 --- src/plastic_phenopowerlaw.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/plastic_phenopowerlaw.f90 b/src/plastic_phenopowerlaw.f90 index c754e3127..f1d419c14 100644 --- a/src/plastic_phenopowerlaw.f90 +++ b/src/plastic_phenopowerlaw.f90 @@ -856,8 +856,8 @@ subroutine plastic_phenopowerlaw_dotState(Tstar_v,ipc,ip,el) right_SlipSlip(j) = abs(1.0_pReal-state(instance)%s_slip(j,of) / & (param(instance)%tausat_slip(f)+ssat_offset)) & **param(instance)%a_slip& - *sign(1.0_pReal,1.0_pReal-state(instance)%s_slip(j,of)) / & - (param(instance)%tausat_slip(f)+ssat_offset) + *sign(1.0_pReal,1.0_pReal-state(instance)%s_slip(j,of) / & + (param(instance)%tausat_slip(f)+ssat_offset)) right_TwinSlip(j) = 1.0_pReal ! no system-dependent part !--------------------------------------------------------------------------------------------------