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

bla...

Browse Source
This commit is contained in:
tth 2022-03-01 20:49:40 +01:00
parent 7aa5980212
commit cf2333cf1f
1 changed files with 1 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Fraktalism/spitpgm.f90
View File

@ -15,7 +15,7 @@ subroutine spit_as_pgm(pic, fname)
integer :: ix, iy integer :: ix, iy
real :: fk, fpix real :: fk, fpix
! XXX print *, "> spit_as_pgm to ", fname write(0, '(1X, A)') "> spit_as_pgm to " // trim(fname)
open(newunit=io, file=fname) open(newunit=io, file=fname)
write (io, '(a2)') "P2" write (io, '(a2)') "P2"