From f493a5419be0a2bf64afdfe7216399d18ad7211d Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Tue, 10 Jul 2018 10:39:24 +0200 Subject: [PATCH] forgot line continuation --- src/spectral_interface.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/spectral_interface.f90 b/src/spectral_interface.f90 index c38f32723..02d4dc0d8 100644 --- a/src/spectral_interface.f90 +++ b/src/spectral_interface.f90 @@ -416,7 +416,7 @@ pure function IIO_stringValue(string,chunkPos,myChunk) character(len=*), intent(in) :: string !< raw input with known start and end of each chunk - IIO_stringValue = merge('',string(chunkPos(myChunk*2):chunkPos(myChunk*2+1)) + IIO_stringValue = merge('',string(chunkPos(myChunk*2):chunkPos(myChunk*2+1)),& (myChunk > chunkPos(1) .or. myChunk < 1_pInt)) end function IIO_stringValue