2022-04-01 07:14:11 +11:00
|
|
|
!-----------------------------------------------------
|
|
|
|
|
! JULIA
|
|
|
|
|
! =====
|
|
|
|
|
! this is the main program
|
2022-02-13 07:00:57 +11:00
|
|
|
!-----------------------------------------------------
|
|
|
|
|
|
|
|
|
|
program julia
|
|
|
|
|
|
|
|
|
|
use spitpgm
|
|
|
|
|
use fraktals
|
|
|
|
|
|
|
|
|
|
implicit none
|
|
|
|
|
|
2022-02-15 00:15:10 +11:00
|
|
|
integer, dimension(512, 342) :: picz
|
2022-02-13 07:00:57 +11:00
|
|
|
integer :: argc
|
2022-02-13 09:27:59 +11:00
|
|
|
character(200) :: filename, string
|
|
|
|
|
real :: cx, cy
|
2022-02-13 07:00:57 +11:00
|
|
|
|
|
|
|
|
argc = IARGC()
|
2022-02-13 09:27:59 +11:00
|
|
|
if (3 .NE. argc) then
|
2022-02-15 00:15:10 +11:00
|
|
|
STOP ": JULIA PROGGY NEED PARAMETERS !"
|
2022-02-13 07:00:57 +11:00
|
|
|
endif
|
|
|
|
|
|
|
|
|
|
call getarg(1, filename)
|
2022-02-13 09:27:59 +11:00
|
|
|
call getarg(2, string) ; read (string, *) cx
|
|
|
|
|
call getarg(3, string) ; read (string, *) cy
|
2022-02-13 07:00:57 +11:00
|
|
|
|
2022-04-01 07:14:11 +11:00
|
|
|
call simple_julia(picz, cx, cy, 2500)
|
2022-02-13 09:27:59 +11:00
|
|
|
call spit_as_pgm_8(picz, trim(filename))
|
2022-02-13 07:00:57 +11:00
|
|
|
|
|
|
|
|
end program
|
|
|
|
|
|
|
|
|
|
!-----------------------------------------------------
|
