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

bug fix: used wrong index for slip family-dependent coeffs

This commit is contained in:
Philip Eisenlohr 2023-09-18 09:42:58 -04:00
parent 6a75a1ad23
commit 16b029cf39
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/crystal.f90
View File

@ -1409,10 +1409,10 @@ function crystal_SchmidMatrix_slip(Nslip,lattice,cOverA,nonSchmidCoefficients,se
if (present(nonSchmidCoefficients)) then if (present(nonSchmidCoefficients)) then
select case(lattice) select case(lattice)
case('cI') case('cI')
coeff = 0.0_pREAL coeff(:) = 0.0_pREAL
coeff(:size(nonSchmidCoefficients(i,:))) = nonSchmidCoefficients(i,:)
select case(slipFamily(i)) select case(slipFamily(i))
case(1) case(1)
coeff(:size(nonSchmidCoefficients(1,:))) = nonSchmidCoefficients(1,:)
call R%fromAxisAngle([direction,60.0_pREAL],degrees=.true.,P=1) call R%fromAxisAngle([direction,60.0_pREAL],degrees=.true.,P=1)
np = R%rotate(normal) np = R%rotate(normal)
SchmidMatrix(1:3,1:3,i) = SchmidMatrix(1:3,1:3,i) & SchmidMatrix(1:3,1:3,i) = SchmidMatrix(1:3,1:3,i) &