Did not compile. Fixed missing ,

This commit is contained in:
Alankar Alankar 2011-02-15 12:29:01 +00:00
parent c39e04644b
commit 89ed6f5f66
1 changed files with 1 additions and 1 deletions

View File

@ -459,7 +459,7 @@ integer(pInt), allocatable, dimension(:,:,:) :: lattice_interactionSlipSlip, &
2, -1, -1, 3, 1, -1, 0, 1, & 2, -1, -1, 3, 1, -1, 0, 1, &
1, -2, 1, 3, 1, -1, 0, 1, & 1, -2, 1, 3, 1, -1, 0, 1, &
1, 1, -2, 3, 1, 0, -1, 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/)) /),(/4+4,lattice_hex_Nslip/))
real(pReal), dimension(4+4,lattice_hex_Ntwin), parameter :: lattice_hex_systemTwin = & real(pReal), dimension(4+4,lattice_hex_Ntwin), parameter :: lattice_hex_systemTwin = &