From 877481811bd86a5e336ada8ca39045a88744c9a4 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 14 Jun 2018 18:25:16 +0200 Subject: [PATCH] old statement was overcomplex --- src/linked_list.f90 | 7 +++---- 1 file changed, 3 insertions(+), 4 deletions(-) diff --git a/src/linked_list.f90 b/src/linked_list.f90 index ffce7f422..78e38d0da 100644 --- a/src/linked_list.f90 +++ b/src/linked_list.f90 @@ -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