From 8ec801228c690087642996006a652a9490460afb Mon Sep 17 00:00:00 2001 From: Grzegorz Kowal Date: Mon, 19 Jul 2021 13:03:40 -0300 Subject: [PATCH] EVOLUTION: Fix formatting once again. Signed-off-by: Grzegorz Kowal --- sources/evolution.F90 | 4 ++-- 1 file changed, 2 insertions(+), 2 deletions(-) diff --git a/sources/evolution.F90 b/sources/evolution.F90 index 72b1b6b..118acdc 100644 --- a/sources/evolution.F90 +++ b/sources/evolution.F90 @@ -222,7 +222,7 @@ module evolution registers = 3 stages = max(2, min(9, stages)) cfl = (stages - 1) * cfl - write(name_int, "('2nd order SSPRK(',i0,',2)') with error control") stages + write(name_int, "('Optimal 2nd order SSPRK(',i0,',2) with error control')") stages case ("rk3", "RK3") @@ -256,7 +256,7 @@ module evolution n = n - 1 stages = max(4, n**2) cfl = (n - 1) * n * cfl - write(name_int, "('Optimal 3rd order SSPRK(',i0,',3) with error control") stages + write(name_int, "('Optimal 3rd order SSPRK(',i0,',3) with error control')") stages case ("rk4.10", "RK4.10", "ssprk(10,4)", "SSPRK(10,4)")