split julia

2023-01-01 14:28:52 +01:00
parent 1b3f93ecfe
commit da56a6d0c0
6 changed files with 98 additions and 66 deletions
--- a/Fraktalism/mkjulia.f90
+++ b/Fraktalism/mkjulia.f90
@@ -0,0 +1,33 @@
+!-----------------------------------------------------
+!           JULIA
+!           =====
+!    this is the main program
+!-----------------------------------------------------
+
+program julia
+
+    use spitpgm
+    use JULIAS
+
+    implicit none
+
+    integer, dimension(640, 480)    ::    picz
+    integer                         ::    argc
+    character(200)                  ::    filename, string
+    real                            ::    cx, cy
+
+    argc = IARGC()
+    if (3 .NE. argc) then
+      STOP ": MKJULIA PROGGY NEED 3 PARAMETERS !"
+    endif
+
+    call getarg(1, filename)
+    call getarg(2, string)       ;   read (string, *) cx
+    call getarg(3, string)       ;   read (string, *) cy
+
+    call simple_julia(picz, cx, cy, 3500)
+    call spit_as_pgm_8(picz, trim(filename))
+
+end program
+
+!-----------------------------------------------------