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

strange indentation

This commit is contained in:
Martin Diehl 2019-10-12 22:18:55 +02:00
parent 4c9bc326f6
commit 7611513bb8
1 changed files with 2 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/IO.f90
View File

@ -1072,8 +1072,8 @@ integer function IO_countContinuousIntValues(fileUnit)
if (chunkPos(1) < 1) then ! empty line if (chunkPos(1) < 1) then ! empty line
exit exit
elseif (IO_lc(IO_stringValue(line,chunkPos,2)) == 'to' ) then ! found range indicator elseif (IO_lc(IO_stringValue(line,chunkPos,2)) == 'to' ) then ! found range indicator
IO_countContinuousIntValues = 1 + abs( IO_intValue(line,chunkPos,3) & IO_countContinuousIntValues = 1 + abs( IO_intValue(line,chunkPos,3) &
- IO_intValue(line,chunkPos,1)) -IO_intValue(line,chunkPos,1))
exit ! only one single range indicator allowed exit ! only one single range indicator allowed
else else
IO_countContinuousIntValues = IO_countContinuousIntValues+chunkPos(1)-1 ! add line's count when assuming 'c' IO_countContinuousIntValues = IO_countContinuousIntValues+chunkPos(1)-1 ! add line's count when assuming 'c'