From 9f3a17b1b67eb8f3988fa2ee5d32c0d896d030b7 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Wed, 15 Jan 2014 12:08:46 +0000 Subject: [PATCH] fixed bug in hexagonal slip system definition --- code/lattice.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/code/lattice.f90 b/code/lattice.f90 index 84d34f070..9bf6ee9e6 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -426,7 +426,7 @@ module lattice !-------------------------------------------------------------------------------------------------- ! hex (3+) integer(pInt), dimension(lattice_maxNslipFamily), parameter, public :: & - lattice_hex_NslipSystem = int([ 3, 3, 6, 12, 6, 3],pInt) !< # of slip systems per family for hex + lattice_hex_NslipSystem = int([ 3, 3, 3, 6, 12, 6],pInt) !< # of slip systems per family for hex integer(pInt), dimension(lattice_maxNtwinFamily), parameter, public :: & lattice_hex_NtwinSystem = int([ 6, 6, 6, 6],pInt) !< # of slip systems per family for hex