31 lines
588 B
Fortran
31 lines
588 B
Fortran
|
!
|
||
|
|
! 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
|
||
|
|
|
||
|
|
!-----------------------------------------------------
|