trying to make a gif89a...

Fraktalism/fraktals.f90

@@ -3,24 +3,24 @@ module fraktals
   contains
 
 !-----------------------------------------------------
-subroutine simple_julia(pic, cx, cy)
+subroutine simple_julia(pic, cx, cy, maxiter)
     implicit none
     integer, intent(inout), dimension (:,:)  ::  pic
     real, intent(in)                         ::  cx, cy
+    integer, intent(in)                      ::  maxiter
 
     integer      ::  ix, iy, width, height
     real         ::  fx, fy
     complex      ::  Z, C
-    integer      ::  iter, maxiter
+    integer      ::  iter
 
     width  = ubound(pic, 1)
     height = ubound(pic, 2)
-    print *, "image size : ", width, height
+    ! print *, "image size : ", width, height
     ! print *, "constante  : ", cx, cy
 
-    maxiter = 500
     C = complex(cx, cy)
-    print *, "C = ", C
+    ! print *, "C = ", C
 
     do ix = 1, width
       fx = (float(ix) / (float(width)/4.0) - 2.0)