From fe2cf94d704c4ee72602eee3f0f31b0eb1c4b187 Mon Sep 17 00:00:00 2001 From: Martin Diehl Date: Thu, 10 Aug 2023 23:06:31 +0200 Subject: [PATCH] use central functionality --- src/CLI.f90 | 2 +- 1 file changed, 1 insertion(+), 1 deletion(-) diff --git a/src/CLI.f90 b/src/CLI.f90 index ed7fbcd5e..a3503bd43 100644 --- a/src/CLI.f90 +++ b/src/CLI.f90 @@ -178,7 +178,7 @@ subroutine CLI_init() case ('-r', '--rs', '--restart') if (.not. hasArg) call IO_error(610,ext_msg='--jobname') arg = getArg(i+1) - read(arg,*,iostat=stat) CLI_restartInc + CLI_restartInc = IO_strAsInt(arg) if (CLI_restartInc < 0 .or. stat /= 0) call IO_error(611,ext_msg=arg) end select end do