32 lines
638 B
Fortran
32 lines
638 B
Fortran
|
!
|
||
|
|
! this is the main programm
|
||
|
|
!
|
||
|
|
!-----------------------------------------------------
|
||
|
|
|
||
|
|
program pickover
|
||
|
|
|
||
|
|
use spitpgm
|
||
|
|
use fraktals
|
||
|
|
|
||
|
|
implicit none
|
||
|
|
|
||
|
|
integer, dimension(800, 600) :: picz
|
||
|
|
integer :: argc
|
||
|
|
character(200) :: filename
|
||
|
|
|
||
|
|
argc = IARGC()
|
||
|
|
if (1 .NE. argc) then
|
||
|
|
STOP ": PICKOVER NEED A FILENAME !"
|
||
|
|
endif
|
||
|
|
|
||
|
|
call getarg(1, filename)
|
||
|
|
|
||
|
|
write (0, "(A)") "Pickover -> "//trim(filename)
|
||
|
|
|
||
|
|
call pickover_0(picz, 50000)
|
||
|
|
call spit_as_pgm_8(picz, trim(filename))
|
||
|
|
|
||
|
|
end program
|
||
|
|
|
||
|
|
!-----------------------------------------------------
|