fixed hick-up in lattice definitions

This commit is contained in:
Martin Diehl 2018-10-08 19:32:18 +02:00
parent 71d80cc203
commit 78b5fa466d
1 changed files with 2 additions and 2 deletions

View File

@ -2580,10 +2580,10 @@ function lattice_SchmidMatrix_slip(Nslip,structure,cOverA) result(SchmidMatrix)
select case(structure) select case(structure)
case('fcc') case('fcc')
NslipMax = LATTICE_BCC_NSLIPSYSTEM NslipMax = LATTICE_FCC_NSLIPSYSTEM
slipSystems = LATTICE_FCC_SYSTEMSLIP slipSystems = LATTICE_FCC_SYSTEMSLIP
case('bcc') case('bcc')
NslipMax = LATTICE_FCC_NSLIPSYSTEM NslipMax = LATTICE_BCC_NSLIPSYSTEM
slipSystems = LATTICE_BCC_SYSTEMSLIP slipSystems = LATTICE_BCC_SYSTEMSLIP
case('hex','hexagonal') !ToDo: "No alias policy": long or short? case('hex','hexagonal') !ToDo: "No alias policy": long or short?
if (.not. present(CoverA)) call IO_error(0_pInt) if (.not. present(CoverA)) call IO_error(0_pInt)