From 7643d66654543df3ef9378f2a302b19bbaec87f4 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 9 Mar 2019 16:22:57 +0000 Subject: [PATCH] bugfix, avoid error --- src/lattice.f90 | 2 ++ 1 file changed, 2 insertions(+) diff --git a/src/lattice.f90 b/src/lattice.f90 index 4f9523186..37286d802 100644 --- a/src/lattice.f90 +++ b/src/lattice.f90 @@ -723,6 +723,8 @@ subroutine lattice_initializeStructure(myPhase,CoverA) lattice_Scleavage(1:3,1:3,1:3,1:myNcleavage,myPhase) = & lattice_SchmidMatrix_cleavage(lattice_hex_ncleavagesystem,'hex',covera) + case (LATTICE_bct_ID) + case (LATTICE_ort_ID) myNcleavage = lattice_ort_Ncleavage lattice_NcleavageSystem(1:3,myPhase) = lattice_ort_NcleavageSystem