Fortraneries/Fraktalism/mkjulia.f90

34 lines
852 B
Fortran
Raw Normal View History

2023-01-01 14:28:52 +01:00
!-----------------------------------------------------
! 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
!-----------------------------------------------------