From 5d5e7eb8f895ec0ca1dd47d56d57a46cfb7a6bcf Mon Sep 17 00:00:00 2001 From: Philip Eisenlohr Date: Wed, 21 Oct 2009 13:41:09 +0000 Subject: [PATCH] corrected uncritical mix-up of Ntwin and Nslip in reshaping fcc interaction (slip--twin) --- code/lattice.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/lattice.f90 b/code/lattice.f90 index 424ba9c12..9cf0d0e7d 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -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