From 90379c0a0fe0d610d41384b67da5a4388270c3a9 Mon Sep 17 00:00:00 2001 From: Tonton Th Date: Sun, 26 Apr 2026 07:56:46 +0200 Subject: [PATCH] fix bad formats --- genplotting.f90 | 14 +++++++------- 1 file changed, 7 insertions(+), 7 deletions(-) diff --git a/genplotting.f90 b/genplotting.f90 index 641e95e..827c8bf 100644 --- a/genplotting.f90 +++ b/genplotting.f90 @@ -80,14 +80,14 @@ subroutine genp_end (foo) integer, intent(in) :: foo write (0, '("--- genp_end ---")') - write (0, '("minmax X", 2F16.5)') xmin, xmax - write (0, '("minmax Y", 2F16.5)') ymin, ymax + write (0, '("minmax X ", 2F18.5)') xmin, xmax + write (0, '("minmax Y ", 2F18.5)') ymin, ymax - write (outunit, '(2F16.5, I6)') xmin*1.05, ymin*1.05, -1 - write (outunit, '(2F16.5, I6)') xmin*1.05, ymax*1.05, 0 - write (outunit, '(2F16.5, I6)') xmax*1.05, ymax*1.05, 0 - write (outunit, '(2F16.5, I6)') xmax*1.05, ymin*1.05, 0 - write (outunit, '(2F16.5, I6)') xmin*1.05, ymin*1.05, 0 + write (outunit, '(2F18.5, I6)') xmin*1.05, ymin*1.05, -1 + write (outunit, '(2F18.5, I6)') xmin*1.05, ymax*1.05, 0 + write (outunit, '(2F18.5, I6)') xmax*1.05, ymax*1.05, 0 + write (outunit, '(2F18.5, I6)') xmax*1.05, ymin*1.05, 0 + write (outunit, '(2F18.5, I6)') xmin*1.05, ymin*1.05, 0 close (outunit) if (6 .ne. outunit) then