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

premiere testouille

Browse Source
This commit is contained in:
tTh
2022-12-01 12:03:22 +01:00
parent ba2c9f653c
commit 8607ff35b7
4 changed files with 57 additions and 6 deletions
Download Patch File Download Diff File Expand all files Collapse all files

14
Modules/spitpgm.f90
View File

@@ -19,7 +19,7 @@ subroutine spit_as_pgm_eq(pic, fname)
integer :: ix, iy
real :: fk, fpix
write(0, '(1X, A)') "> spit_as_pgm to " // trim(fname)
write(0, '(1X, A)') "> spit_as_pgm_eq to " // trim(fname)
open(newunit=io, file=fname)
write (io, '(a2)') "P2"
@@ -33,8 +33,8 @@ subroutine spit_as_pgm_eq(pic, fname)
write (io, "(i0)") 0
enddo
else
fk = float(foo) / 65535.0
print *, " max pix value", foo, " fk = ", fk
fk = float(foo) / 65535.01
write (0, *) " max pix value", foo, " fk ", fk
do iy = 1, ubound(pic, 2)
do ix = 1, ubound(pic, 1)
fpix = float(pic(ix, iy)) / fk
@@ -58,13 +58,15 @@ subroutine spit_as_pgm_16(pic, fname)
open(newunit=io, file=fname)
write (io, '(a2)') "P2"
write (io, '("# size:", I9)') size(pic)
write (io, '(i0," ",i0)') size(pic, 1), size(pic, 2)
write (io, '(i0)') 65535
do iy=1,ubound(pic, 2)
do ix=1, ubound(pic, 1)
foo = pic(ix, iy)
if (foo .GT. 65535) foo = 65530
write(io, "(i5)") foo
if (foo .GT. 65535) foo = 65535
write(io, "(i0)") foo
enddo
enddo
close(io)
@@ -90,7 +92,7 @@ subroutine spit_as_pgm_8(pic, fname)
do ix=1, ubound(pic, 1)
foo = pic(ix, iy)
if (foo .GT. 255) foo = 255
write(io, "(i3)") foo
write(io, "(i0)") foo
enddo
enddo
close(io)