From 62e55483f73b6fd1c7fcaf98375f07bc559b9dec Mon Sep 17 00:00:00 2001 From: Christoph Kords Date: Wed, 27 Feb 2013 10:49:23 +0000 Subject: [PATCH] fixed bug in lattice: line continuation character was missing --- code/lattice.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/lattice.f90 b/code/lattice.f90 index 114d7f040..e0336fb14 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -417,8 +417,8 @@ module lattice lattice_hex_NtwinSystem = int([ 6, 6, 6, 6],pInt) !< # of slip systems per family for hex integer(pInt), parameter , private :: & - lattice_hex_Nslip = 30_pInt, ! sum(lattice_hex_NslipSystem),& !< total # of slip systems for hex - lattice_hex_Ntwin = 24_pInt ! sum(lattice_hex_NtwinSystem) !< total # of twin systems for hex + lattice_hex_Nslip = 30_pInt, & ! sum(lattice_hex_NslipSystem), !< total # of slip systems for hex + lattice_hex_Ntwin = 24_pInt ! sum(lattice_hex_NtwinSystem) !< total # of twin systems for hex integer(pInt), private :: & lattice_hex_Nstructure = 0_pInt