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

slip system definition for bcc still needed

This commit is contained in:
Martin Diehl 2019-02-17 17:04:26 +01:00
parent d3e6430b94
commit c4b3ac3afb
1 changed files with 5 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
src/lattice.f90
View File

@ -108,7 +108,7 @@ module lattice
['<-2 1 1>{1 1 1}'] ['<-2 1 1>{1 1 1}']
integer(pInt), dimension(2_pInt,LATTICE_FCC_NTWIN), parameter, private :: & integer(pInt), dimension(2_pInt,LATTICE_FCC_NTWIN), parameter, public :: &
LATTICE_FCC_TWINNUCLEATIONSLIPPAIR = reshape(int( [& LATTICE_FCC_TWINNUCLEATIONSLIPPAIR = reshape(int( [&
2,3, & 2,3, &
1,3, & 1,3, &
@ -928,6 +928,10 @@ subroutine lattice_initializeStructure(myPhase,CoverA)
lattice_Scleavage(1:3,1:3,1:3,1:myNcleavage,myPhase) = & lattice_Scleavage(1:3,1:3,1:3,1:myNcleavage,myPhase) = &
lattice_SchmidMatrix_cleavage(lattice_bcc_ncleavagesystem,'bcc',covera) lattice_SchmidMatrix_cleavage(lattice_bcc_ncleavagesystem,'bcc',covera)
do i = 1_pInt,myNslip
sd(1:3,i) = lattice_bcc_systemSlip(1:3,i)
sn(1:3,i) = lattice_bcc_systemSlip(4:6,i)
enddo
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! hex (including conversion from miller-bravais (a1=a2=a3=c) to miller (a, b, c) indices) ! hex (including conversion from miller-bravais (a1=a2=a3=c) to miller (a, b, c) indices)