aboutsummaryrefslogtreecommitdiff
diff options
context:
space:
mode:
-rw-r--r--src/main.F908
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