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

bugfix 

bracket falsely removed in last commit
This commit is contained in:
Martin Diehl 2018-12-22 13:28:16 +01:00
parent b3d14b00b6
commit 8a27431c6d
1 changed files with 3 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

5
src/plastic_kinematichardening.f90
View File

@ -540,8 +540,9 @@ subroutine plastic_kinehardening_dotState(Mp,instance,of)
do j = 1_pInt, prm%totalNslip do j = 1_pInt, prm%totalNslip
dot%crss(j,of) = dot_product(prm%interaction_SlipSlip(j,:),dot%accshear(:,of)) & dot%crss(j,of) = dot_product(prm%interaction_SlipSlip(j,:),dot%accshear(:,of)) &
* ( prm%theta1(j) + prm%theta0(j) - prm%theta1(j) & * ( prm%theta1(j) &
+ prm%theta0(j)*prm%theta1(j)*sumGamma/prm%tau1(j)*exp(-sumGamma*prm%theta0(j)/prm%tau1(j)) & + (prm%theta0(j) - prm%theta1(j) + prm%theta0(j)*prm%theta1(j)*sumGamma/prm%tau1(j)) &
*exp(-sumGamma*prm%theta0(j)/prm%tau1(j)) &
) )
enddo enddo
dot%crss_back(:,of) = stt%sense(:,of)*dot%accshear(:,of) * & dot%crss_back(:,of) = stt%sense(:,of)*dot%accshear(:,of) * &