misplaced bracket caused wrong results introduced in commit e3bd09d8
This commit is contained in:
parent
c3322b589e
commit
74956de9bd
|
@ -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) / &
|
right_SlipSlip(j) = abs(1.0_pReal-state(instance)%s_slip(j,of) / &
|
||||||
(param(instance)%tausat_slip(f)+ssat_offset)) &
|
(param(instance)%tausat_slip(f)+ssat_offset)) &
|
||||||
**param(instance)%a_slip&
|
**param(instance)%a_slip&
|
||||||
*sign(1.0_pReal,1.0_pReal-state(instance)%s_slip(j,of)) / &
|
*sign(1.0_pReal,1.0_pReal-state(instance)%s_slip(j,of) / &
|
||||||
(param(instance)%tausat_slip(f)+ssat_offset)
|
(param(instance)%tausat_slip(f)+ssat_offset))
|
||||||
right_TwinSlip(j) = 1.0_pReal ! no system-dependent part
|
right_TwinSlip(j) = 1.0_pReal ! no system-dependent part
|
||||||
|
|
||||||
!--------------------------------------------------------------------------------------------------
|
!--------------------------------------------------------------------------------------------------
|
||||||
|
|
Loading…
Reference in New Issue