! 
!    this is the main programm
! 
!-----------------------------------------------------

program pickover

    use spitpgm
    use fraktals

    implicit none

    integer, dimension(800, 600)    ::    picz
    integer                         ::    argc
    character(200)                  ::    filename

    argc = IARGC()
    if (1 .NE. argc) then
      STOP ": PICKOVER NEED A FILENAME !"
    endif

    call getarg(1, filename)

    write (0, "(A)") "Pickover -> "//trim(filename)

    call pickover_0(picz, 50000)
    call spit_as_pgm_8(picz, trim(filename))

end program

!-----------------------------------------------------