223031012
/
DAMASK_EICMD
mirror of https://github.com/achalhp/DAMASK_EICMD.git
1
0
Fork 0
Code Issues Projects Releases Wiki Activity

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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
src/lattice.f90
View File

@ -723,6 +723,8 @@ subroutine lattice_initializeStructure(myPhase,CoverA)
lattice_Scleavage(1:3,1:3,1:3,1:myNcleavage,myPhase) = & lattice_Scleavage(1:3,1:3,1:3,1:myNcleavage,myPhase) = &
lattice_SchmidMatrix_cleavage(lattice_hex_ncleavagesystem,'hex',covera) lattice_SchmidMatrix_cleavage(lattice_hex_ncleavagesystem,'hex',covera)
case (LATTICE_bct_ID)
case (LATTICE_ort_ID) case (LATTICE_ort_ID)
myNcleavage = lattice_ort_Ncleavage myNcleavage = lattice_ort_Ncleavage
lattice_NcleavageSystem(1:3,myPhase) = lattice_ort_NcleavageSystem lattice_NcleavageSystem(1:3,myPhase) = lattice_ort_NcleavageSystem