tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

fix bad formats

Browse Source
This commit is contained in:
Tonton Th
2026-04-26 07:56:46 +02:00
parent 5fb1b809e1
commit 90379c0a0f
1 changed files with 7 additions and 7 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
genplotting.f90
View File

@@ -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