From 7611513bb87689e07bf8391d0e5d1593c466c7f4 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Sat, 12 Oct 2019 22:18:55 +0200 Subject: [PATCH] strange indentation --- src/IO.f90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/src/IO.f90 b/src/IO.f90 index 066ebbe8c..64ce6fc9a 100644 --- a/src/IO.f90 +++ b/src/IO.f90 @@ -1072,8 +1072,8 @@ integer function IO_countContinuousIntValues(fileUnit) if (chunkPos(1) < 1) then ! empty line exit elseif (IO_lc(IO_stringValue(line,chunkPos,2)) == 'to' ) then ! found range indicator - IO_countContinuousIntValues = 1 + abs( IO_intValue(line,chunkPos,3) & - - IO_intValue(line,chunkPos,1)) + IO_countContinuousIntValues = 1 + abs( IO_intValue(line,chunkPos,3) & + -IO_intValue(line,chunkPos,1)) exit ! only one single range indicator allowed else IO_countContinuousIntValues = IO_countContinuousIntValues+chunkPos(1)-1 ! add line's count when assuming 'c'