From 78b5fa466d59feb2d3d2420f0c0590043cd348ae Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Mon, 8 Oct 2018 19:32:18 +0200 Subject: [PATCH] fixed hick-up in lattice definitions --- src/lattice.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/lattice.f90 b/src/lattice.f90 index 80032e942..89d29b515 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -2580,10 +2580,10 @@ function lattice_SchmidMatrix_slip(Nslip,structure,cOverA) result(SchmidMatrix) select case(structure) case('fcc') - NslipMax = LATTICE_BCC_NSLIPSYSTEM + NslipMax = LATTICE_FCC_NSLIPSYSTEM slipSystems = LATTICE_FCC_SYSTEMSLIP case('bcc') - NslipMax = LATTICE_FCC_NSLIPSYSTEM + NslipMax = LATTICE_BCC_NSLIPSYSTEM slipSystems = LATTICE_BCC_SYSTEMSLIP case('hex','hexagonal') !ToDo: "No alias policy": long or short? if (.not. present(CoverA)) call IO_error(0_pInt)