223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

misplaced bracket caused wrong results introduced in commit e3bd09d8

This commit is contained in:
Martin Diehl 2018-05-02 16:06:30 +02:00
parent c3322b589e
commit 74956de9bd
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/plastic_phenopowerlaw.f90
View File

@ -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
!--------------------------------------------------------------------------------------------------