bugfix, avoid error

This commit is contained in:
Martin Diehl 2019-03-09 16:22:57 +00:00
parent 55d55a156b
commit 7643d66654
1 changed files with 2 additions and 0 deletions

View File

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