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

fixed typo 'orthorhombic'

This commit is contained in:
Luv Sharma 2014-11-03 15:41:05 +00:00
parent 76442942b1
commit e36880e3dc
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
code/lattice.f90
View File

@ -1189,7 +1189,7 @@ subroutine lattice_init
lattice_structure(section) = LATTICE_bcc_ID lattice_structure(section) = LATTICE_bcc_ID
case('hex','hexagonal') case('hex','hexagonal')
lattice_structure(section) = LATTICE_hex_ID lattice_structure(section) = LATTICE_hex_ID
case('ort','orthorombic') case('ort','orthorhombic')
lattice_structure(section) = LATTICE_ort_ID lattice_structure(section) = LATTICE_ort_ID
case default case default
call IO_error(450_pInt,ext_msg=trim(IO_lc(IO_stringValue(line,positions,2_pInt)))) call IO_error(450_pInt,ext_msg=trim(IO_lc(IO_stringValue(line,positions,2_pInt))))
@ -1508,7 +1508,7 @@ subroutine lattice_initializeStructure(myPhase,CoverA,aA,aM,cM)
lattice_interactionTwinTwin(1:myNtwin,1:myNtwin,myPhase) = lattice_hex_interactionTwinTwin lattice_interactionTwinTwin(1:myNtwin,1:myNtwin,myPhase) = lattice_hex_interactionTwinTwin
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! orthorombic (no crystal plasticity) ! orthorhombic (no crystal plasticity)
case (LATTICE_ort_ID) case (LATTICE_ort_ID)
myNslip = 0_pInt myNslip = 0_pInt
myNtwin = 0_pInt myNtwin = 0_pInt