Fortraneries/Fraktalism/julia.f90

33 lines
765 B
Fortran
Raw Normal View History

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