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