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

program julia

    use spitpgm
    use fraktals

    implicit none

    integer, dimension(640, 480)    ::    picz
    integer                         ::    argc
    character(200)                  ::    filename

    argc = IARGC()

    if (1 .NE. argc) then
      STOP ": JULIA PROGGY NEED A FILENAME"
    endif

    call getarg(1, filename)

    call simple_julia(picz, 0.3, 0.6)
    call spit_as_pgm(picz, trim(filename))

end program

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