now ignoring c/a ratio keyword

This commit is contained in:
Martin Diehl 2014-02-19 07:40:21 +00:00
parent 69992638a8
commit a554bc5267
1 changed files with 1 additions and 1 deletions

View File

@ -140,7 +140,7 @@ subroutine constitutive_none_init(fileUnit)
positions = IO_stringPos(line,MAXNCHUNKS) positions = IO_stringPos(line,MAXNCHUNKS)
tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key tag = IO_lc(IO_stringValue(line,positions,1_pInt)) ! extract key
select case(tag) select case(tag)
case ('plasticity','elasticity') case ('plasticity','elasticity','covera_ratio')
case ('lattice_structure') case ('lattice_structure')
structure = IO_lc(IO_stringValue(line,positions,2_pInt)) structure = IO_lc(IO_stringValue(line,positions,2_pInt))
select case(structure(1:3)) select case(structure(1:3))