no need to store trailing whitespace

This commit is contained in:
Martin Diehl 2018-06-01 21:22:19 +02:00
parent f843254233
commit 64270f6c95
1 changed files with 1 additions and 1 deletions

View File

@ -975,7 +975,7 @@ subroutine material_parsePhase(fileUnit,myPart)
if (section > 0_pInt) then
chunkPos = IO_stringPos(line)
tag = IO_lc(IO_stringValue(line,chunkPos,1_pInt)) ! extract key
call phaseConfig(section)%add(trim(line),chunkPos)
call phaseConfig(section)%add(IO_lc(trim(line)),chunkPos)
select case(tag)
case ('elasticity')
select case (IO_lc(IO_stringValue(line,chunkPos,2_pInt)))