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