Commit 25b3a023 authored by Gregor Michalicek's avatar Gregor Michalicek

Missed the bugfix in the last commit. :D

parent 2105c529
......@@ -1249,11 +1249,11 @@ MODULE m_cdn_io
END DO
IF(separatorIndex.NE.-1) THEN
READ(ddString(1:separatorIndex-1),'(i)') startNumber
READ(ddString(separatorIndex+1:LEN(TRIM(ADJUSTL(ddString)))),'(i)') endNumber
READ(ddString(1:separatorIndex-1),'(i0)') startNumber
READ(ddString(separatorIndex+1:LEN(TRIM(ADJUSTL(ddString)))),'(i0)') endNumber
ELSE
READ(ddString(1:LEN(TRIM(ADJUSTL(ddString)))),'(i)') startNumber
READ(ddString(1:LEN(TRIM(ADJUSTL(ddString)))),'(i)') endNumber
READ(ddString(1:LEN(TRIM(ADJUSTL(ddString)))),'(i0)') startNumber
READ(ddString(1:LEN(TRIM(ADJUSTL(ddString)))),'(i0)') endNumber
END IF
CALL getMode(mode)
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment