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

Updated constitutive_dislobased.90 and lattice.f90 according to the changes done in the previous release 

- introduction of system families
- analogous structure to constitutive_phenopowerlaw.f90
- interaction types 0-1 changed into 1-2
This commit is contained in:
Luc Hantcherli 2009-07-24 12:02:20 +00:00
parent 97d8a321e0
commit 9bbde133a1
2 changed files with 781 additions and 349 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1082
code/constitutive_dislobased.f90
View File

File diff suppressed because it is too large Load Diff

48
code/lattice.f90
View File

@ -137,34 +137,34 @@ integer(pInt), allocatable, dimension(:,:,:) :: lattice_interactionSlipSlip, &
integer(pInt), target, dimension(lattice_fcc_Nslip,lattice_fcc_Ntwin) :: lattice_fcc_interactionSlipTwin = & integer(pInt), target, dimension(lattice_fcc_Nslip,lattice_fcc_Ntwin) :: lattice_fcc_interactionSlipTwin = &
reshape((/& reshape((/&
0,0,0,1,1,0,0,1,1,1,0,1, & 1,1,1,2,2,1,1,2,2,2,1,2, &
0,0,0,1,1,0,0,1,1,1,0,1, & 1,1,1,2,2,1,1,2,2,2,1,2, &
0,0,0,1,1,0,0,1,1,1,0,1, & 1,1,1,2,2,1,1,2,2,2,1,2, &
1,1,0,0,0,0,1,0,1,0,1,1, & 2,2,1,1,1,1,2,1,2,1,2,2, &
1,1,0,0,0,0,1,0,1,0,1,1, & 2,2,1,1,1,1,2,1,2,1,2,2, &
1,1,0,0,0,0,1,0,1,0,1,1, & 2,2,1,1,1,1,2,1,2,1,2,2, &
0,1,1,1,0,1,0,0,0,1,1,0, & 1,2,2,2,1,2,1,1,1,2,2,1, &
0,1,1,1,0,1,0,0,0,1,1,0, & 1,2,2,2,1,2,1,1,1,2,2,1, &
0,1,1,1,0,1,0,0,0,1,1,0, & 1,2,2,2,1,2,1,1,1,2,2,1, &
1,0,1,0,1,1,1,1,0,0,0,0, & 2,1,2,1,2,2,2,2,1,1,1,1, &
1,0,1,0,1,1,1,1,0,0,0,0, & 2,1,2,1,2,2,2,2,1,1,1,1, &
1,0,1,0,1,1,1,1,0,0,0,0 & 2,1,2,1,2,2,2,2,1,1,1,1 &
/),(/lattice_fcc_Nslip,lattice_fcc_Ntwin/)) /),(/lattice_fcc_Nslip,lattice_fcc_Ntwin/))
integer(pInt), target, dimension(lattice_fcc_Ntwin,lattice_fcc_Ntwin) :: lattice_fcc_interactionTwinTwin = & integer(pInt), target, dimension(lattice_fcc_Ntwin,lattice_fcc_Ntwin) :: lattice_fcc_interactionTwinTwin = &
reshape((/& reshape((/&
0,0,0,1,1,1,1,1,1,1,1,1, & 1,1,1,2,2,2,2,2,2,2,2,2, &
0,0,0,1,1,1,1,1,1,1,1,1, & 1,1,1,2,2,2,2,2,2,2,2,2, &
0,0,0,1,1,1,1,1,1,1,1,1, & 1,1,1,2,2,2,2,2,2,2,2,2, &
1,1,1,0,0,0,1,1,1,1,1,1, & 2,2,2,1,1,1,2,2,2,2,2,2, &
1,1,1,0,0,0,1,1,1,1,1,1, & 2,2,2,1,1,1,2,2,2,2,2,2, &
1,1,1,0,0,0,1,1,1,1,1,1, & 2,2,2,1,1,1,2,2,2,2,2,2, &
1,1,1,1,1,1,0,0,0,1,1,1, & 2,2,2,2,2,2,1,1,1,2,2,2, &
1,1,1,1,1,1,0,0,0,1,1,1, & 2,2,2,2,2,2,1,1,1,2,2,2, &
1,1,1,1,1,1,0,0,0,1,1,1, & 2,2,2,2,2,2,1,1,1,2,2,2, &
1,1,1,1,1,1,1,1,1,0,0,0, & 2,2,2,2,2,2,2,2,2,1,1,1, &
1,1,1,1,1,1,1,1,1,0,0,0, & 2,2,2,2,2,2,2,2,2,1,1,1, &
1,1,1,1,1,1,1,1,1,0,0,0 & 2,2,2,2,2,2,2,2,2,1,1,1 &
/),(/lattice_fcc_Ntwin,lattice_fcc_Ntwin/)) /),(/lattice_fcc_Ntwin,lattice_fcc_Ntwin/))
integer(pInt), target, dimension(lattice_fcc_Ntwin,lattice_fcc_Nslip) :: lattice_fcc_interactionTwinSlip = 0 integer(pInt), target, dimension(lattice_fcc_Ntwin,lattice_fcc_Nslip) :: lattice_fcc_interactionTwinSlip = 0