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

index missing, test failed

This commit is contained in:
Martin Diehl 2018-09-15 07:49:14 +02:00
parent acc3294909
commit 3526c0a757
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_dislotwin.f90
View File

@ -1451,7 +1451,7 @@ subroutine kinetics_slip(prm,stt,mse,of,S,temperature,gdot_slip,dgdot_dtau_slip)
integer(pInt) :: i
do i = 1_pInt, prm%totalNslip
tau = math_mul33xx33(S,prm%Schmid_slip(1:3,1:3,i))
tau(i) = math_mul33xx33(S,prm%Schmid_slip(1:3,1:3,i))
enddo
significantStress: where((abs(tau)-mse%threshold_stress_slip(:,of)) > tol_math_check)
@ -1512,7 +1512,7 @@ subroutine kinetics_twin(prm,stt,mse,of,S,temperature,gdot_slip,gdot_twin,dgdot_
integer(pInt) :: i,s1,s2
do i = 1_pInt, prm%totalNtwin
tau = math_mul33xx33(S,prm%Schmid_twin(1:3,1:3,i))
tau(i) = math_mul33xx33(S,prm%Schmid_twin(1:3,1:3,i))
isFCC: if (prm%isFCC) then
s1=prm%fcc_twinNucleationSlipPair(1,i)
s2=prm%fcc_twinNucleationSlipPair(2,i)