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

added dummy bcc and fcc interaction twinslip to avoid segmentation fault

This commit is contained in:
Christoph Kords 2009-05-27 06:57:24 +00:00
parent 9d47790391
commit f5e50aaea2
1 changed files with 6 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
trunk/lattice.f90
View File

@ -155,6 +155,8 @@ integer(pInt), allocatable, dimension(:,:,:) :: lattice_interactionTwinSlip
1,1,1,1,1,1,1,1,1,0,0,0, &
1,1,1,1,1,1,1,1,1,0,0,0 &
/),(/lattice_fcc_Ntwin,lattice_fcc_Ntwin/))
integer(pInt), target, dimension(lattice_fcc_Ntwin,lattice_fcc_Nslip) :: lattice_fcc_interactionTwinSlip = 0
!============================== bcc (2) =================================
@ -343,6 +345,8 @@ integer(pInt), allocatable, dimension(:,:,:) :: lattice_interactionTwinSlip
0,0,0,0,0,0,0,0,0,0,0,0, &
0,0,0,0,0,0,0,0,0,0,0,0 &
/),(/lattice_bcc_Ntwin,lattice_bcc_Ntwin/))
integer(pInt), target, dimension(lattice_bcc_Ntwin,lattice_bcc_Nslip) :: lattice_bcc_interactionTwinSlip = 0
@ -662,6 +666,7 @@ function lattice_initializeStructure(struct,CoverA)
interactionSlipSlip => lattice_fcc_interactionSlipSlip
interactionSlipTwin => lattice_fcc_interactionSlipTwin
interactionTwinTwin => lattice_fcc_interactionTwinTwin
interactionTwinSlip => lattice_fcc_interactionTwinSlip
endif
case ('bcc')
@ -685,6 +690,7 @@ function lattice_initializeStructure(struct,CoverA)
interactionSlipSlip => lattice_bcc_interactionSlipSlip
interactionSlipTwin => lattice_bcc_interactionSlipTwin
interactionTwinTwin => lattice_bcc_interactionTwinTwin
interactionTwinSlip => lattice_bcc_interactionTwinSlip
endif
case ('hex')