A modified slip-twin interaction matrices for FCC and BCC are introduced.
The shear twin value for BCC is corrected. An introduction of a third parameter at the interactionSlipTwin in the material.config for dislotwin materials is essential.
This commit is contained in:
Nader Zaafarani
parent
b988caa6ba
commit
b0464ad176
177
code/lattice.f90
177
code/lattice.f90
|
|
@ -178,19 +178,23 @@ module lattice
|
|||
|
||||
integer(pInt), dimension(lattice_fcc_Nslip,lattice_fcc_Ntwin), target, private :: &
|
||||
lattice_fcc_interactionSlipTwin = transpose(reshape(int( [&
|
||||
1,1,1,2,2,1,1,2,2,2,1,2, & ! ---> twin
|
||||
1,1,1,2,2,1,1,2,2,2,1,2, & ! |
|
||||
1,1,1,2,2,1,1,2,2,2,1,2, & ! |
|
||||
2,2,1,1,1,1,2,1,2,1,2,2, & ! v slip
|
||||
2,2,1,1,1,1,2,1,2,1,2,2, &
|
||||
2,2,1,1,1,1,2,1,2,1,2,2, &
|
||||
1,2,2,2,1,2,1,1,1,2,2,1, &
|
||||
1,2,2,2,1,2,1,1,1,2,2,1, &
|
||||
1,2,2,2,1,2,1,1,1,2,2,1, &
|
||||
2,1,2,1,2,2,2,2,1,1,1,1, &
|
||||
2,1,2,1,2,2,2,2,1,1,1,1, &
|
||||
2,1,2,1,2,2,2,2,1,1,1,1 &
|
||||
1,1,1,3,3,3,2,2,2,3,3,3, & ! ---> twin
|
||||
1,1,1,3,3,3,3,3,3,2,2,2, & ! |
|
||||
1,1,1,2,2,2,3,3,3,3,3,3, & ! |
|
||||
3,3,3,1,1,1,3,3,3,2,2,2, & ! v slip
|
||||
3,3,3,1,1,1,2,2,2,3,3,3, &
|
||||
2,2,2,1,1,1,3,3,3,3,3,3, &
|
||||
2,2,2,3,3,3,1,1,1,3,3,3, &
|
||||
3,3,3,2,2,2,1,1,1,3,3,3, &
|
||||
3,3,3,3,3,3,1,1,1,2,2,2, &
|
||||
3,3,3,2,2,2,3,3,3,1,1,1, &
|
||||
2,2,2,3,3,3,3,3,3,1,1,1, &
|
||||
3,3,3,3,3,3,2,2,2,1,1,1 &
|
||||
],pInt),[lattice_fcc_Ntwin,lattice_fcc_Nslip]))
|
||||
!< Interaction types
|
||||
!< 1 --- coplanar interaction
|
||||
!< 2 --- colinenar interaction
|
||||
!< 3 --- hardened interaction
|
||||
|
||||
integer(pInt), dimension(lattice_fcc_Ntwin,lattice_fcc_Nslip), target, private :: &
|
||||
lattice_fcc_interactionTwinSlip = 0_pInt
|
||||
|
|
@ -259,30 +263,30 @@ module lattice
|
|||
-1, 1, 1, 1,-1, 2, &
|
||||
1, 1, 1, 1, 1,-2, &
|
||||
! Slip system <111>{123} meaningful sorting ?
|
||||
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, 3, 2, &
|
||||
1, 1,-1, -1, 3, 2, &
|
||||
1, 1, 1, 1,-3, 2, &
|
||||
-1, 1, 1, 1, 3,-2, &
|
||||
1, 1,-1, 2, 1, 3, &
|
||||
1,-1, 1, -2, 1, 3, &
|
||||
-1, 1, 1, 2,-1, 3, &
|
||||
1, 1, 1, 2, 1,-3, &
|
||||
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, 3, 1, 2, &
|
||||
1, 1, 1, -3, 1, 2, &
|
||||
1, 1,-1, 3,-1, 2, &
|
||||
1,-1, 1, 3, 1,-2, &
|
||||
-1, 1, 1, 3, 2, 1, &
|
||||
1, 1, 1, -3, 2, 1, &
|
||||
1, 1,-1, 3,-2, 1, &
|
||||
1,-1, 1, 3, 2,-1 &
|
||||
! 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, 3, 2, &
|
||||
! 1, 1,-1, -1, 3, 2, &
|
||||
! 1, 1, 1, 1,-3, 2, &
|
||||
!-1, 1, 1, 1, 3,-2, &
|
||||
! 1, 1,-1, 2, 1, 3, &
|
||||
! 1,-1, 1, -2, 1, 3, &
|
||||
!-1, 1, 1, 2,-1, 3, &
|
||||
! 1, 1, 1, 2, 1,-3, &
|
||||
! 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, 3, 1, 2, &
|
||||
! 1, 1, 1, -3, 1, 2, &
|
||||
! 1, 1,-1, 3,-1, 2, &
|
||||
! 1,-1, 1, 3, 1,-2, &
|
||||
!-1, 1, 1, 3, 2, 1, &
|
||||
! 1, 1, 1, -3, 2, 1, &
|
||||
! 1, 1,-1, 3,-2, 1, &
|
||||
! 1,-1, 1, 3, 2,-1 &
|
||||
],pReal),[ 3_pInt + 3_pInt ,lattice_bcc_Nslip])
|
||||
|
||||
! twin system <111>{112}
|
||||
|
|
@ -306,18 +310,18 @@ module lattice
|
|||
|
||||
real(pReal), dimension(lattice_bcc_Ntwin), parameter, private :: &
|
||||
lattice_bcc_shearTwin = reshape([&
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal, &
|
||||
0.123_pReal &
|
||||
0.7071067812_pReal, &
|
||||
0.7071067812_pReal, &
|
||||
0.7071067812_pReal, &
|
||||
0.7071067812_pReal, &
|
||||
0.7071067812_pReal, &
|
||||
0.7071067812_pReal, &
|
||||
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
|
||||
|
||||
!> slip--slip interactions for BCC structures (2)
|
||||
|
|
@ -376,56 +380,35 @@ module lattice
|
|||
!> slip--twin interactions for BCC structures (2) MISSING: not implemented yet
|
||||
integer(pInt), dimension(lattice_bcc_Nslip,lattice_bcc_Ntwin), target, private :: &
|
||||
lattice_bcc_interactionSlipTwin = transpose(reshape(int( [&
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, & ! ---> twin
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, & ! |
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, & ! |
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, & ! v slip
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0, &
|
||||
0,0,0,0,0,0,0,0,0,0,0,0 &
|
||||
3,3,3,2,2,3,3,3,3,2,3,3, & ! ---> twin
|
||||
3,3,2,3,3,2,3,3,2,3,3,3, & ! |
|
||||
3,2,3,3,3,3,2,3,3,3,3,2, & ! |
|
||||
2,3,3,3,3,3,3,2,3,3,2,3, & ! v slip
|
||||
2,3,3,3,3,3,3,2,3,3,2,3, &
|
||||
3,3,2,3,3,2,3,3,2,3,3,3, &
|
||||
3,2,3,3,3,3,2,3,3,3,3,2, &
|
||||
3,3,3,2,2,3,3,3,3,2,3,3, &
|
||||
2,3,3,3,3,3,3,2,3,3,2,3, &
|
||||
3,3,3,2,2,3,3,3,3,2,3,3, &
|
||||
3,2,3,3,3,3,2,3,3,3,3,2, &
|
||||
3,3,2,3,3,2,3,3,2,3,3,3, &
|
||||
1,3,3,3,3,3,3,2,3,3,2,3, &
|
||||
3,1,3,3,3,3,2,3,3,3,3,2, &
|
||||
3,3,1,3,3,2,3,3,2,3,3,3, &
|
||||
3,3,3,1,2,3,3,3,3,2,3,3, &
|
||||
3,3,3,2,1,3,3,3,3,2,3,3, &
|
||||
3,3,2,3,3,1,3,3,2,3,3,3, &
|
||||
3,2,3,3,3,3,1,3,3,3,3,2, &
|
||||
2,3,3,3,3,3,3,1,3,3,2,3, &
|
||||
3,3,2,3,3,2,3,3,1,3,3,3, &
|
||||
3,3,3,2,2,3,3,3,3,1,3,3, &
|
||||
2,3,3,3,3,3,3,2,3,3,1,3, &
|
||||
3,2,3,3,3,3,2,3,3,3,3,1 &
|
||||
],pInt),[lattice_bcc_Ntwin,lattice_bcc_Nslip]))
|
||||
|
||||
!< Interaction types
|
||||
!< 1 --- coplanar interaction
|
||||
!< 2 --- colinenar interaction
|
||||
!< 3 --- hardened interaction
|
||||
|
||||
!>twin--slip interactions for BCC structures (2) MISSING: not implemented yet
|
||||
integer(pInt), dimension(lattice_bcc_Ntwin,lattice_bcc_Nslip), target, private :: &
|
||||
|
|
|
|||
Loading…
Reference in New Issue