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

old statement was overcomplex

This commit is contained in:
Martin Diehl 2018-06-14 18:25:16 +02:00
parent 05ac53430e
commit 877481811b
1 changed files with 3 additions and 4 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

7
src/linked_list.f90
View File

@ -299,7 +299,7 @@ real(pReal) function getFloat(this,key,defaultVal)
type(tPartitionedStringList), pointer :: list_tmp
logical :: found
found = merge(.true.,.false.,present(defaultVal))
found = present(defaultVal)
if (present(defaultVal)) getFloat = defaultVal
list_tmp => this%next
@ -316,7 +316,6 @@ real(pReal) function getFloat(this,key,defaultVal)
list_tmp => list_tmp%next
end do
end function getFloat
@ -337,7 +336,7 @@ integer(pInt) function getInt(this,key,defaultVal)
type(tPartitionedStringList), pointer :: list_tmp
logical :: found
found = merge(.true.,.false.,present(defaultVal))
found = present(defaultVal)
if (present(defaultVal)) getInt = defaultVal
list_tmp => this%next
@ -375,7 +374,7 @@ character(len=65536) function getString(this,key,defaultVal,raw)
logical :: split
logical :: found
found = merge(.true.,.false.,present(defaultVal))
found = present(defaultVal)
if (present(defaultVal)) getString = defaultVal
split = merge(raw,.false.,present(raw))
list_tmp => this%next