From 89ed6f5f6656370794dd2fbbbf6fad347e4a6485 Mon Sep 17 00:00:00 2001 From: Alankar Alankar Date: Tue, 15 Feb 2011 12:29:01 +0000 Subject: [PATCH] Did not compile. Fixed missing , --- code/lattice.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) 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 = &