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

use negative numbers to have unique names for the {112} slip system in BCC

This commit is contained in:
f.basile 2021-05-07 10:24:04 +02:00
parent 18dfc9e54d
commit d64ad82ce0
1 changed files with 24 additions and 24 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

48
src/lattice.f90
View File

@ -133,31 +133,31 @@ module lattice
BCC_SYSTEMSLIP = reshape(real([&
! Slip direction Plane normal
! Slip system <111>{110}
1,-1, 1, 0, 1, 1, &
-1,-1, 1, 0, 1, 1, &
1, 1, 1, 0,-1, 1, &
-1, 1, 1, 0,-1, 1, &
-1, 1, 1, 1, 0, 1, &
-1,-1, 1, 1, 0, 1, &
1, 1, 1, -1, 0, 1, &
1,-1, 1, -1, 0, 1, &
-1, 1, 1, 1, 1, 0, &
-1, 1,-1, 1, 1, 0, &
1, 1, 1, -1, 1, 0, &
1, 1,-1, -1, 1, 0, &
1,-1, 1, 0, 1, 1, & !D1
-1,-1, 1, 0, 1, 1, & !C1
1, 1, 1, 0,-1, 1, & !B2
-1, 1, 1, 0,-1, 1, & !A2
-1, 1, 1, 1, 0, 1, & !A3
-1,-1, 1, 1, 0, 1, & !C3
1, 1, 1, -1, 0, 1, & !B4
1,-1, 1, -1, 0, 1, & !D4
-1, 1, 1, 1, 1, 0, & !A6
-1, 1,-1, 1, 1, 0, & !D6
1, 1, 1, -1, 1, 0, & !B5
1, 1,-1, -1, 1, 0, & !C5
! Slip system <111>{112}
-1, 1, 1, 2, 1, 1, &
1, 1, 1, -2, 1, 1, &
1, 1,-1, 2,-1, 1, &
1,-1, 1, 2, 1,-1, &
1,-1, 1, 1, 2, 1, &
1, 1,-1, -1, 2, 1, &
1, 1, 1, 1,-2, 1, &
-1, 1, 1, 1, 2,-1, &
1, 1,-1, 1, 1, 2, &
1,-1, 1, -1, 1, 2, &
-1, 1, 1, 1,-1, 2, &
1, 1, 1, 1, 1,-2 &
-1, 1, 1, 2, 1, 1, & !A-4
1, 1, 1, -2, 1, 1, & !B-3
1, 1,-1, 2,-1, 1, & !C-10
1,-1, 1, 2, 1,-1, & !D-9
1,-1, 1, 1, 2, 1, & !D-6
1, 1,-1, -1, 2, 1, & !C-5
1, 1, 1, 1,-2, 1, & !B-12
-1, 1, 1, 1, 2,-1, & !A-11
1, 1,-1, 1, 1, 2, & !C-2
1,-1, 1, -1, 1, 2, & !D-1
-1, 1, 1, 1,-1, 2, & !A-8
1, 1, 1, 1, 1,-2 & !B-7
],pReal),shape(BCC_SYSTEMSLIP))
real(pReal), dimension(3+3,BCC_NTWIN), parameter :: &