corrected uncritical mix-up of Ntwin and Nslip in reshaping fcc interaction (slip--twin)

This commit is contained in:
Philip Eisenlohr 2009-10-21 13:41:09 +00:00
parent 4e98935287
commit 5d5e7eb8f8
1 changed files with 1 additions and 1 deletions

View File

@ -156,7 +156,7 @@ integer(pInt), allocatable, dimension(:,:,:) :: lattice_interactionSlipSlip, &
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/))
/),(/lattice_fcc_Ntwin,lattice_fcc_Nslip/))
integer(pInt), target, dimension(lattice_fcc_Nslip,lattice_fcc_Ntwin) :: lattice_fcc_interactionTwinSlip = 0