Merge branch 'NOSlipFCC' into development
This commit is contained in:
Martin Diehl
commit
17716b4fa7
2
PRIVATE
2
PRIVATE
|
|
@ -1 +1 @@
|
|||
Subproject commit eb0b46d0b7e23518f13e174bc207ca7cfcb8daac
|
||||
Subproject commit e9f93abaecafbfbf11072ae70bca213a7201ed38
|
||||
|
|
@ -72,7 +72,7 @@ module lattice
|
|||
!--------------------------------------------------------------------------------------------------
|
||||
! face centered cubic
|
||||
integer(pInt), dimension(LATTICE_maxNslipFamily), parameter, public :: &
|
||||
LATTICE_fcc_NslipSystem = int([12, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0],pInt) !< # of slip systems per family for fcc
|
||||
LATTICE_fcc_NslipSystem = int([12, 6, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0, 0],pInt) !< # of slip systems per family for fcc
|
||||
|
||||
integer(pInt), dimension(LATTICE_maxNtwinFamily), parameter, public :: &
|
||||
LATTICE_fcc_NtwinSystem = int([12, 0, 0, 0],pInt) !< # of twin systems per family for fcc
|
||||
|
|
@ -104,11 +104,19 @@ module lattice
|
|||
1, 1, 0, 1,-1,-1, & ! A6
|
||||
0, 1, 1, -1, 1,-1, & ! D1
|
||||
1, 0,-1, -1, 1,-1, & ! D4
|
||||
-1,-1, 0, -1, 1,-1 & ! D6
|
||||
-1,-1, 0, -1, 1,-1, & ! D6
|
||||
! Slip system <110>{110}
|
||||
1, 1, 0, 1,-1, 0, &
|
||||
1,-1, 0, 1, 1, 0, &
|
||||
1, 0, 1, 1, 0,-1, &
|
||||
1, 0,-1, 1, 0, 1, &
|
||||
0, 1, 1, 0, 1,-1, &
|
||||
0, 1,-1, 0, 1, 1 &
|
||||
],pReal),shape(LATTICE_FCC_SYSTEMSLIP)) !< Slip system <110>{111} directions. Sorted according to Eisenlohr & Hantcherli
|
||||
|
||||
character(len=*), dimension(1), parameter, public :: LATTICE_FCC_SLIPFAMILY_NAME = &
|
||||
['<0 1 -1>{1 1 1}']
|
||||
character(len=*), dimension(2), parameter, public :: LATTICE_FCC_SLIPFAMILY_NAME = &
|
||||
['<0 1 -1>{1 1 1}', &
|
||||
'<0 1 -1>{0 1 1}']
|
||||
|
||||
real(pReal), dimension(3+3,LATTICE_fcc_Ntwin), parameter, private :: &
|
||||
LATTICE_fcc_systemTwin = reshape(real( [&
|
||||
|
|
@ -166,25 +174,38 @@ module lattice
|
|||
|
||||
integer(pInt), dimension(LATTICE_fcc_Nslip,lattice_fcc_Nslip), parameter, public :: &
|
||||
LATTICE_fcc_interactionSlipSlip = reshape(int( [&
|
||||
1,2,2,4,6,5,3,5,5,4,5,6, & ! ---> slip
|
||||
2,1,2,6,4,5,5,4,6,5,3,5, & ! |
|
||||
2,2,1,5,5,3,5,6,4,6,5,4, & ! |
|
||||
4,6,5,1,2,2,4,5,6,3,5,5, & ! v slip
|
||||
6,4,5,2,1,2,5,3,5,5,4,6, &
|
||||
5,5,3,2,2,1,6,5,4,5,6,4, &
|
||||
3,5,5,4,5,6,1,2,2,4,6,5, &
|
||||
5,4,6,5,3,5,2,1,2,6,4,5, &
|
||||
5,6,4,6,5,4,2,2,1,5,5,3, &
|
||||
4,5,6,3,5,5,4,6,5,1,2,2, &
|
||||
5,3,5,5,4,6,6,4,5,2,1,2, &
|
||||
6,5,4,5,6,4,5,5,3,2,2,1 &
|
||||
],pInt),shape(LATTICE_FCC_INTERACTIONSLIPSLIP),order=[2,1]) !< Slip--slip interaction types for fcc
|
||||
1, 2, 2, 4, 6, 5, 3, 5, 5, 4, 5, 6, 9,10, 9,10,11,12, & ! ---> slip
|
||||
2, 1, 2, 6, 4, 5, 5, 4, 6, 5, 3, 5, 9,10,11,12, 9,10, & ! |
|
||||
2, 2, 1, 5, 5, 3, 5, 6, 4, 6, 5, 4, 11,12, 9,10, 9,10, & ! |
|
||||
4, 6, 5, 1, 2, 2, 4, 5, 6, 3, 5, 5, 9,10,10, 9,12,11, & ! v slip
|
||||
6, 4, 5, 2, 1, 2, 5, 3, 5, 5, 4, 6, 9,10,12,11,10, 9, &
|
||||
5, 5, 3, 2, 2, 1, 6, 5, 4, 5, 6, 4, 11,12,10, 9,10, 9, &
|
||||
3, 5, 5, 4, 5, 6, 1, 2, 2, 4, 6, 5, 10, 9,10, 9,11,12, &
|
||||
5, 4, 6, 5, 3, 5, 2, 1, 2, 6, 4, 5, 10, 9,12,11, 9,10, &
|
||||
5, 6, 4, 6, 5, 4, 2, 2, 1, 5, 5, 3, 12,11,10, 9, 9,10, &
|
||||
4, 5, 6, 3, 5, 5, 4, 6, 5, 1, 2, 2, 10, 9, 9,10,12,11, &
|
||||
5, 3, 5, 5, 4, 6, 6, 4, 5, 2, 1, 2, 10, 9,11,12,10, 9, &
|
||||
6, 5, 4, 5, 6, 4, 5, 5, 3, 2, 2, 1, 12,11, 9,10,10, 9, &
|
||||
|
||||
9, 9,11, 9, 9,11,10,10,12,10,10,12, 1, 7, 8, 8, 8, 8, &
|
||||
10,10,12,10,10,12, 9, 9,11, 9, 9,11, 7, 1, 8, 8, 8, 8, &
|
||||
9,11, 9,10,12,10,10,12,10, 9,11, 9, 8, 8, 1, 7, 8, 8, &
|
||||
10,12,10, 9,11, 9, 9,11, 9,10,12,10, 8, 8, 7, 1, 8, 8, &
|
||||
11, 9, 9,12,10,10,11, 9, 9,12,10,10, 8, 8, 8, 8, 1, 7, &
|
||||
12,10,10,11, 9, 9,12,10,10,11, 9, 9, 8, 8, 8, 8, 7, 1 &
|
||||
],pInt),[LATTICE_fcc_Nslip,LATTICE_fcc_Nslip],order=[2,1]) !< Slip--slip interaction types for fcc
|
||||
!< 1: self interaction
|
||||
!< 2: coplanar interaction
|
||||
!< 3: collinear interaction
|
||||
!< 4: Hirth locks
|
||||
!< 5: glissile junctions
|
||||
!< 6: Lomer locks
|
||||
!< 7: crossing (similar to Hirth locks in <110>{111} for two {110} planes)
|
||||
!< 8: similar to Lomer locks in <110>{111} for two {110} planes
|
||||
!< 9: similar to Lomer locks in <110>{111} btw one {110} and one {111} plane
|
||||
!<10: similar to glissile junctions in <110>{111} btw one {110} and one {111} plane
|
||||
!<11: crossing btw one {110} and one {111} plane
|
||||
!<12: collinear btw one {110} and one {111} plane
|
||||
integer(pInt), dimension(LATTICE_fcc_Nslip,LATTICE_fcc_Ntwin), parameter, public :: &
|
||||
LATTICE_fcc_interactionSlipTwin = reshape(int( [&
|
||||
1,1,1,3,3,3,2,2,2,3,3,3, & ! ---> twin
|
||||
|
|
@ -198,7 +219,14 @@ module lattice
|
|||
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 &
|
||||
3,3,3,3,3,3,2,2,2,1,1,1, &
|
||||
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4 &
|
||||
],pInt),shape(LATTICE_FCC_INTERACTIONSLIPTWIN),order=[2,1]) !< Slip--twin interaction types for fcc
|
||||
!< 1: coplanar interaction
|
||||
!< 2: screw trace between slip system and twin habit plane (easy cross slip)
|
||||
|
|
@ -235,7 +263,14 @@ module lattice
|
|||
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 &
|
||||
3,3,3,3,3,3,2,2,2,1,1,1, &
|
||||
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4, &
|
||||
4,4,4,4,4,4,4,4,4,4,4,4 &
|
||||
],pInt),shape(LATTICE_FCCTOHEX_INTERACTIONSLIPTRANS),order=[2,1]) !< Slip--trans interaction types for fcc
|
||||
|
||||
integer(pInt), dimension(LATTICE_fcc_Ntrans,LATTICE_fcc_Nslip), parameter, public :: &
|
||||
|
|
|
|||
Loading…
Reference in New Issue