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

document

This commit is contained in:
Martin Diehl 2023-11-20 16:19:20 +01:00
parent fbdab24f4b
commit 5db4c3ecf6
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/crystal.f90
View File

@ -525,7 +525,7 @@ function crystal_C66_twin(Ntwin,C66,lattice,CoverA)
end select
do i = 1, sum(Ntwin)
call R%fromAxisAngle([coordinateSystem(1:3,2,i),PI],P=1) ! ToDo: Why always 180 deg?
call R%fromAxisAngle([coordinateSystem(1:3,2,i),PI]) ! mirror on habit (twin shear) plane
crystal_C66_twin(1:6,1:6,i) = R%rotStiffness(C66)
end do