From 976803ba0b7d45557ff9df76d589f433c615aa88 Mon Sep 17 00:00:00 2001 From: Franz Roters Date: Wed, 9 Mar 2016 15:36:11 +0100 Subject: [PATCH] corrected error discovered by Haiming Zhang --- code/IO.f90 | 3 +-- 1 file changed, 1 insertion(+), 2 deletions(-) diff --git a/code/IO.f90 b/code/IO.f90 index 1a36269c5..57eb23cb5 100644 --- a/code/IO.f90 +++ b/code/IO.f90 @@ -1237,8 +1237,7 @@ character(len=300) pure function IO_extractValue(pair,key) IO_extractValue = '' myChunk = scan(pair,SEP) - if (myChunk > 0 .and. pair(:myChunk-1) == key(:myChunk-1)) & - IO_extractValue = pair(myChunk+1:) ! extract value if key matches + if (myChunk > 0 .and. pair(:myChunk-1) == key) IO_extractValue = pair(myChunk+1:) ! extract value if key matches end function IO_extractValue