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

File diff suppressed because it is too large Load Diff

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 = &
reshape((/&
0,0,0,1,1,0,0,1,1,1,0,1, &
0,0,0,1,1,0,0,1,1,1,0,1, &
0,0,0,1,1,0,0,1,1,1,0,1, &
1,1,0,0,0,0,1,0,1,0,1,1, &
1,1,0,0,0,0,1,0,1,0,1,1, &
1,1,0,0,0,0,1,0,1,0,1,1, &
0,1,1,1,0,1,0,0,0,1,1,0, &
0,1,1,1,0,1,0,0,0,1,1,0, &
0,1,1,1,0,1,0,0,0,1,1,0, &
1,0,1,0,1,1,1,1,0,0,0,0, &
1,0,1,0,1,1,1,1,0,0,0,0, &
1,0,1,0,1,1,1,1,0,0,0,0 &
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,1,2,2,2,1,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,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 &
/),(/lattice_fcc_Nslip,lattice_fcc_Ntwin/))
integer(pInt), target, dimension(lattice_fcc_Ntwin,lattice_fcc_Ntwin) :: lattice_fcc_interactionTwinTwin = &
reshape((/&
0,0,0,1,1,1,1,1,1,1,1,1, &
0,0,0,1,1,1,1,1,1,1,1,1, &
0,0,0,1,1,1,1,1,1,1,1,1, &
1,1,1,0,0,0,1,1,1,1,1,1, &
1,1,1,0,0,0,1,1,1,1,1,1, &
1,1,1,0,0,0,1,1,1,1,1,1, &
1,1,1,1,1,1,0,0,0,1,1,1, &
1,1,1,1,1,1,0,0,0,1,1,1, &
1,1,1,1,1,1,0,0,0,1,1,1, &
1,1,1,1,1,1,1,1,1,0,0,0, &
1,1,1,1,1,1,1,1,1,0,0,0, &
1,1,1,1,1,1,1,1,1,0,0,0 &
1,1,1,2,2,2,2,2,2,2,2,2, &
1,1,1,2,2,2,2,2,2,2,2,2, &
1,1,1,2,2,2,2,2,2,2,2,2, &
2,2,2,1,1,1,2,2,2,2,2,2, &
2,2,2,1,1,1,2,2,2,2,2,2, &
2,2,2,1,1,1,2,2,2,2,2,2, &
2,2,2,2,2,2,1,1,1,2,2,2, &
2,2,2,2,2,2,1,1,1,2,2,2, &
2,2,2,2,2,2,1,1,1,2,2,2, &
2,2,2,2,2,2,2,2,2,1,1,1, &
2,2,2,2,2,2,2,2,2,1,1,1, &
2,2,2,2,2,2,2,2,2,1,1,1 &
/),(/lattice_fcc_Ntwin,lattice_fcc_Ntwin/))
integer(pInt), target, dimension(lattice_fcc_Ntwin,lattice_fcc_Nslip) :: lattice_fcc_interactionTwinSlip = 0