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

'split' should be default, wrong position in stringPos

This commit is contained in:
Martin Diehl 2018-06-14 20:39:23 +02:00
parent 877481811b
commit 7388cbb940
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/linked_list.f90
View File

@ -376,7 +376,7 @@ character(len=65536) function getString(this,key,defaultVal,raw)
found = present(defaultVal) found = present(defaultVal)
if (present(defaultVal)) getString = defaultVal if (present(defaultVal)) getString = defaultVal
split = merge(raw,.false.,present(raw)) split = merge(raw,.true.,present(raw))
list_tmp => this%next list_tmp => this%next
do do
@ -390,7 +390,7 @@ character(len=65536) function getString(this,key,defaultVal,raw)
if (list_tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key) if (list_tmp%string%pos(1) < 2_pInt) call IO_error(143_pInt,ext_msg=key)
getString = IO_StringValue(list_tmp%string%val,list_tmp%string%pos,2) getString = IO_StringValue(list_tmp%string%val,list_tmp%string%pos,2)
else else
getString = list_tmp%string%val(list_tmp%string%pos(3):) getString = trim(list_tmp%string%val(list_tmp%string%pos(4):))
endif endif
endif foundKey endif foundKey
list_tmp => list_tmp%next list_tmp => list_tmp%next