diff --git a/code/lattice.f90 b/code/lattice.f90 index 3af6ab48a..4804dd201 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -459,7 +459,7 @@ integer(pInt), allocatable, dimension(:,:,:) :: lattice_interactionSlipSlip, & 2, -1, -1, 3, 1, -1, 0, 1, & 1, -2, 1, 3, 1, -1, 0, 1, & 1, 1, -2, 3, 1, 0, -1, 1, & - 2, -1, -1, 3, 1, 0, -1, 1, & + 2, -1, -1, 3, 1, 0, -1, 1 & /),(/4+4,lattice_hex_Nslip/)) real(pReal), dimension(4+4,lattice_hex_Ntwin), parameter :: lattice_hex_systemTwin = &