From 084b604d17638c86abce984451a81c0a8f966a42 Mon Sep 17 00:00:00 2001 From: Wojtek Kosior Date: Thu, 25 Apr 2019 13:52:16 +0200 Subject: whitespace correction --- src/main.F90 | 8 ++++---- 1 file 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 -- cgit v1.2.3