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

The twin system <111>{112} for BCC is introduced.

This commit is contained in:
Nader Zaafarani 2012-11-14 13:43:59 +00:00
parent 6b010b4a46
commit c8be3a03bd
1 changed files with 17 additions and 17 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
code/lattice.f90
View File

@ -236,7 +236,7 @@ module lattice
real(pReal), dimension(3+3,lattice_bcc_Nslip), parameter, private :: & real(pReal), dimension(3+3,lattice_bcc_Nslip), parameter, private :: &
lattice_bcc_systemSlip = reshape(real([& lattice_bcc_systemSlip = reshape(real([&
! Slip system <111>{110} meaningful sorting? ! 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, 0,-1, 1, & 1, 1, 1, 0,-1, 1, &
@ -249,7 +249,7 @@ module lattice
-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, 0, & 1, 1,-1, -1, 1, 0, &
! Slip system <111>{112} meaningful sorting ? ! 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, 2,-1, 1, & 1, 1,-1, 2,-1, 1, &
@ -262,7 +262,7 @@ module lattice
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,-2, & 1, 1, 1, 1, 1,-2, &
! Slip system <111>{123} meaningful sorting ? ! Slip system <111>{123}
! 1, 1,-1, 1, 2, 3, & ! 1, 1,-1, 1, 2, 3, &
! 1,-1, 1, -1, 2, 3, & ! 1,-1, 1, -1, 2, 3, &
!-1, 1, 1, 1,-2, 3, & !-1, 1, 1, 1,-2, 3, &
@ -291,19 +291,19 @@ module lattice
real(pReal), dimension(3+3,lattice_bcc_Ntwin), parameter, private :: & real(pReal), dimension(3+3,lattice_bcc_Ntwin), parameter, private :: &
lattice_bcc_systemTwin = reshape(real([& lattice_bcc_systemTwin = reshape(real([&
! Twin system <112>{111} Sorted according to Eisenlohr & Hantcherli ! Twin system <111>{112}
-2, 1, 1, 1, 1, 1, & -1, 1, 1, 2, 1, 1, &
1,-2, 1, 1, 1, 1, & 1, 1, 1, -2, 1, 1, &
1, 1,-2, 1, 1, 1, & 1, 1,-1, 2,-1, 1, &
2,-1, 1, -1,-1, 1, & 1,-1, 1, 2, 1,-1, &
-1, 2, 1, -1,-1, 1, & 1,-1, 1, 1, 2, 1, &
-1,-1,-2, -1,-1, 1, & 1, 1,-1, -1, 2, 1, &
-2,-1,-1, 1,-1,-1, & 1, 1, 1, 1,-2, 1, &
1, 2,-1, 1,-1,-1, & -1, 1, 1, 1, 2,-1, &
1,-1, 2, 1,-1,-1, & 1, 1,-1, 1, 1, 2, &
2, 1,-1, -1, 1,-1, & 1,-1, 1, -1, 1, 2, &
-1,-2,-1, -1, 1,-1, & -1, 1, 1, 1,-1, 2, &
-1, 1, 2, -1, 1,-1 & 1, 1, 1, 1, 1,-2 &
],pReal),[ 3_pInt + 3_pInt,lattice_bcc_Ntwin]) ],pReal),[ 3_pInt + 3_pInt,lattice_bcc_Ntwin])
real(pReal), dimension(lattice_bcc_Ntwin), parameter, private :: & real(pReal), dimension(lattice_bcc_Ntwin), parameter, private :: &
@ -320,7 +320,7 @@ module lattice
0.7071067812_pReal, & 0.7071067812_pReal, &
0.7071067812_pReal, & 0.7071067812_pReal, &
0.7071067812_pReal & 0.7071067812_pReal &
],[lattice_bcc_Ntwin]) ! Twin system {111}<112> just a dummy ],[lattice_bcc_Ntwin])
!> slip--slip interactions for BCC structures (2) !> slip--slip interactions for BCC structures (2)
integer(pInt), dimension(lattice_bcc_Nslip,lattice_bcc_Nslip), target, private :: & integer(pInt), dimension(lattice_bcc_Nslip,lattice_bcc_Nslip), target, private :: &