diff options
| author | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-25 13:52:16 +0200 |
|---|---|---|
| committer | Wojtek Kosior <kwojtus@protonmail.com> | 2019-04-25 13:52:16 +0200 |
| commit | 084b604d17638c86abce984451a81c0a8f966a42 (patch) | |
| tree | 40307b0561261920bd85ed3a2a0ce8ea72d7c002 | |
| parent | bcb51764b8d4a557902a6df5e1c4f39ebe1e6afe (diff) | |
| download | fortran-assignment1-084b604d17638c86abce984451a81c0a8f966a42.tar.gz fortran-assignment1-084b604d17638c86abce984451a81c0a8f966a42.zip | |
whitespace correction
| -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 |