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

consistency checks for lattice type improved

This commit is contained in:
Martin Diehl 2014-06-13 08:57:00 +00:00
parent f288426a1d
commit da8f10fe6f
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

@ -919,7 +919,7 @@ subroutine lattice_init
case('ort','orthorombic') case('ort','orthorombic')
lattice_structure(section) = LATTICE_ort_ID lattice_structure(section) = LATTICE_ort_ID
case default case default
!there will be an error here call IO_error(450_pInt,ext_msg=trim(IO_lc(IO_stringValue(line,positions,2_pInt))))
end select end select
case ('c11') case ('c11')
lattice_C66(1,1,section) = IO_floatValue(line,positions,2_pInt) lattice_C66(1,1,section) = IO_floatValue(line,positions,2_pInt)
@ -1126,7 +1126,7 @@ subroutine lattice_initializeStructure(myPhase,CoverA)
!-------------------------------------------------------------------------------------------------- !--------------------------------------------------------------------------------------------------
! something went wrong ! something went wrong
case default case default
print*, 'error' call IO_error(450_pInt,ext_msg='lattice_initializeStructure')
end select end select