diff options
| -rw-r--r-- | src/main.F90 | 8 |
1 files changed, 4 insertions, 4 deletions
diff --git a/src/main.F90 b/src/main.F90 index d6b8002..3745dc5 100644 --- a/src/main.F90 +++ b/src/main.F90 @@ -23,7 +23,7 @@ PROGRAM mul write (error_unit, '(A)') "Couldn't parse kind number argument" call print_usage() STOP - END IF + END IF call get_command_argument(2, impl_arg) @@ -38,9 +38,9 @@ PROGRAM mul ELSE write (error_unit, '(A)') "Unrecognized implementation argument" call print_usage() - STOP + STOP END IF - + DO WHILE (dim < 2000) SELECT CASE(real_kind) @@ -56,7 +56,7 @@ PROGRAM mul STOP END SELECT - + print '(I11," ",ES11.5)', dim, time dim = dim * 2 |