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

bla

Browse Source
This commit is contained in:
tTh 2024-02-06 17:02:04 +01:00
parent 72f59b96e5
commit ca899f5e90
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
Modules/pixrgb.f90
View File

@ -116,12 +116,14 @@ end subroutine
!- !-
! CAUTION: there was NO out-of-bounds check ! ! CAUTION: there was NO out-of-bounds check !
!- !-
! The width of the picture MUST be a multiple of 4 !
!-
subroutine rgbpix_spit_as_pnm_16(pic, fname) subroutine rgbpix_spit_as_pnm_16(pic, fname)
type(t_pixrgb), intent(in) :: pic(:,:) type(t_pixrgb), intent(in) :: pic(:,:)
character (len=*), intent(in) :: fname character (len=*), intent(in) :: fname
integer :: io, ix, iy, ik integer :: io, ix, iy
integer :: buffer(3*4), ptr integer :: buffer(3*4), ptr
! write(0, *) ">>> subroutine rgbpix_spit_as_pnm_16" ! write(0, *) ">>> subroutine rgbpix_spit_as_pnm_16"
@ -150,7 +152,7 @@ subroutine rgbpix_spit_as_pnm_16(pic, fname)
enddo ! write(io, *) " fin iy=", iy enddo ! write(io, *) " fin iy=", iy
enddo enddo
! may be we have to flush the buffer ? ! XXX may be we have to flush our internal buffer ?
close(unit=io) close(unit=io)