From e36880e3dcf3fd5e6e393a1c8597a5332784d392 Mon Sep 17 00:00:00 2001 From: Luv Sharma Date: Mon, 3 Nov 2014 15:41:05 +0000 Subject: [PATCH] fixed typo 'orthorhombic' --- code/lattice.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/code/lattice.f90 b/code/lattice.f90 index 650a3747c..d4d5c0000 100644 --- a/code/lattice.f90 +++ b/code/lattice.f90 @@ -1189,7 +1189,7 @@ subroutine lattice_init lattice_structure(section) = LATTICE_bcc_ID case('hex','hexagonal') lattice_structure(section) = LATTICE_hex_ID - case('ort','orthorombic') + case('ort','orthorhombic') lattice_structure(section) = LATTICE_ort_ID case default 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 !-------------------------------------------------------------------------------------------------- -! orthorombic (no crystal plasticity) +! orthorhombic (no crystal plasticity) case (LATTICE_ort_ID) myNslip = 0_pInt myNtwin = 0_pInt