!-----------------------------------------------------
!           JULIA
!           =====
!    this is the main program
!-----------------------------------------------------

program julia

    use spitpgm
    use JULIAS

    implicit none

    integer, dimension(640, 480)    ::    picz
    integer                         ::    argc
    character(200)                  ::    filename, string
    real                            ::    cx, cy

    argc = IARGC()
    if (3 .NE. argc) then
      STOP ": MKJULIA PROGGY NEED 3 PARAMETERS !"
    endif

    call getarg(1, filename)
    call getarg(2, string)       ;   read (string, *) cx
    call getarg(3, string)       ;   read (string, *) cy

    call simple_julia(picz, cx, cy, 3500)
    call spit_as_pgm_8(picz, trim(filename))

end program

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