tTh/Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

tweaking...

Browse Source
This commit is contained in:
tTh
2023-01-07 10:40:29 +01:00
parent 2f4272909a
commit 8223cb8e77
5 changed files with 38 additions and 13 deletions
Download Patch File Download Diff File Expand all files Collapse all files

3
Modules/spitpgm.f90
View File

@@ -60,7 +60,8 @@ subroutine spit_as_pgm_16(pic, fname)
open(newunit=io, file=fname)
write (io, '(a2)') "P2"
write (io, '("# size:", I9)') size(pic)
write (io, '(A)') "# spit_as_pgm_16"
! write (io, '("# size:", I9)') size(pic)
write (io, '(i0," ",i0)') size(pic, 1), size(pic, 2)
write (io, '(i0)') 65535