28 lines
661 B
Fortran
28 lines
661 B
Fortran
|
program henon
|
||
|
|
|
||
|
|
use PIXRGB
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
type(t_pixrgb), allocatable :: picz(:,:)
|
||
|
|
integer :: argc
|
||
|
|
character(200) :: filename, string
|
||
|
|
real :: cx, cy
|
||
|
|
|
||
|
|
argc = IARGC()
|
||
|
|
if (3 .NE. argc) then
|
||
|
|
STOP ": MKHENON PROGGY NEED 3 PARAMETERS !"
|
||
|
|
endif
|
||
|
|
|
||
|
|
call getarg(1, filename)
|
||
|
|
call getarg(2, string) ; read (string, *) cx
|
||
|
|
call getarg(3, string) ; read (string, *) cy
|
||
|
|
|
||
|
|
allocate(picz(1280, 1024))
|
||
|
|
|
||
|
|
call rgbpix_spit_as_pnm_8(picz, trim(filename))
|
||
|
|
|
||
|
|
!-----------------------------------------------------
|
||
|
|
|
||
|
|
end program
|