need more tuning ?

2022-12-17 12:09:57 +01:00
parent 252ea6d764
commit c0d8ee443f
3 changed files with 30 additions and 4 deletions
--- a/Modules/spitpgm.f90
+++ b/Modules/spitpgm.f90
@@ -87,6 +87,7 @@ subroutine spit_as_pgm_8(pic, fname)
    ! XXX print *, "      max = ", foo
    open(newunit=io, file=fname)
    write (io, '(a2)') "P2"
+    write (io, '(A)')  "# spit_as_pgm_8"
    write (io, '(i0," ",i0)')  size(pic, 1), size(pic, 2)
    write (io, '(i0)') 255