fixed bug in lattice: line continuation character was missing

This commit is contained in:
Christoph Kords 2013-02-27 10:49:23 +00:00
parent 3736ab1d97
commit 62e55483f7
1 changed files with 2 additions and 2 deletions

View File

@ -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