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

Corrected labeling of {111} planes

This commit is contained in:
Philip Eisenlohr 2023-06-22 15:27:46 +00:00
parent e4a0b07225
commit d4d3178717
1 changed files with 12 additions and 12 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

24
src/lattice.f90
View File

@ -41,18 +41,18 @@ module lattice
real(pREAL), dimension(3+3,CF_NSLIP), parameter :: & real(pREAL), dimension(3+3,CF_NSLIP), parameter :: &
CF_SYSTEMSLIP = reshape(real([& CF_SYSTEMSLIP = reshape(real([&
! <110>{111} systems (Thompson tetrahedron labeling according to Fig. 3 of 10.1016/S1572-4859(05)80003-8) ! <110>{111} systems (Thompson tetrahedron labeling according to Fig. 3 of 10.1016/S1572-4859(05)80003-8)
0, 1,-1, 1, 1, 1, & ! δAC 0, 1,-1, 1, 1, 1, & ! AC(d)
-1, 0, 1, 1, 1, 1, & ! δCB -1, 0, 1, 1, 1, 1, & ! CB(d)
1,-1, 0, 1, 1, 1, & ! δBA 1,-1, 0, 1, 1, 1, & ! BA(d)
0,-1,-1, -1,-1, 1, & ! γBD 0,-1,-1, -1,-1, 1, & ! BD(c)
1, 0, 1, -1,-1, 1, & ! γDA 1, 0, 1, -1,-1, 1, & ! DA(c)
-1, 1, 0, -1,-1, 1, & ! γAB -1, 1, 0, -1,-1, 1, & ! AB(c)
0,-1, 1, 1,-1,-1, & ! βCA 0,-1, 1, 1,-1,-1, & ! CA(b)
-1, 0,-1, 1,-1,-1, & ! βAD -1, 0,-1, 1,-1,-1, & ! AD(b)
1, 1, 0, 1,-1,-1, & ! βDC 1, 1, 0, 1,-1,-1, & ! DC(b)
0, 1, 1, -1, 1,-1, & ! αDB 0, 1, 1, -1, 1,-1, & ! DB(a)
1, 0,-1, -1, 1,-1, & ! αBC 1, 0,-1, -1, 1,-1, & ! BC(a)
-1,-1, 0, -1, 1,-1, & ! αCD -1,-1, 0, -1, 1,-1, & ! CD(a)
! <110>{110}/non-octahedral systems ! <110>{110}/non-octahedral systems
1, 1, 0, 1,-1, 0, & 1, 1, 0, 1,-1, 0, &
1,-1, 0, 1, 1, 0, & 1,-1, 0, 1, 1, 0, &