diff --git a/Fraktalism/.gitignore b/Fraktalism/.gitignore
index b971dd2..90ea0e8 100644
--- a/Fraktalism/.gitignore
+++ b/Fraktalism/.gitignore
@@ -1,7 +1,7 @@
 
 mkjulia
 pickover
-lorentz
+mklorentz
 mkmandel
 voxelize
 evolvopick
diff --git a/Fraktalism/Makefile b/Fraktalism/Makefile
index 76c0304..eee15dd 100644
--- a/Fraktalism/Makefile
+++ b/Fraktalism/Makefile
@@ -1,6 +1,6 @@
 
-all:	voxelize evolvopick pickover mkjulia lorentz essai	\
-	mkmandel
+all:	essai voxelize evolvopick pickover 	\
+	mkjulia mklorentz mkmandel
 
 GFOPT  = -Wall -Wextra -time -g -Imods/ -I../Modules
 
@@ -53,7 +53,7 @@ evolvopick:	evolvopick.f90 Makefile $(OBJDEP)
 voxelize:	voxelize.f90 Makefile $(OBJDEP)
 	gfortran $(GFOPT) $<  $(OBJS)    -o $@
 
-lorentz:	lorentz.f90 Makefile $(OBJDEP)
+mklorentz:	mklorentz.f90 Makefile $(OBJDEP)
 	gfortran $(GFOPT) $<  $(OBJS)    -o $@
 
 mkmandel:	mkmandel.f90 Makefile $(OBJDEP)
@@ -61,8 +61,8 @@ mkmandel:	mkmandel.f90 Makefile $(OBJDEP)
 
 # ---------------------------------------------
 
-lorentz.pgm:	lorentz Makefile
-	./lorentz $@ > /dev/null
+lorentz.pgm:	mklorentz Makefile
+	./mklorentz $@ > /dev/null
 
 pickover.pgm:	pickover Makefile
 	./pickover $@ > /dev/null
diff --git a/Fraktalism/mklorentz.f90 b/Fraktalism/mklorentz.f90
new file mode 100644
index 0000000..a2113e3
--- /dev/null
+++ b/Fraktalism/mklorentz.f90
@@ -0,0 +1,31 @@
+! 
+!    this is the main programm
+! 
+!-----------------------------------------------------
+
+program lorentz
+
+    use spitpgm
+    use fraktals
+
+    implicit none
+
+    integer, dimension(800, 600)    ::    picz
+    integer                         ::    argc
+    character(200)                  ::    filename
+
+    argc = IARGC()
+    if (1 .NE. argc) then
+      STOP ": MKLORENTZ NEED A FILENAME !"
+    endif
+
+    call getarg(1, filename)
+
+    write (0, "(A)") "Mk Lorentz -> "//trim(filename)
+
+    call lorentz_0(picz, 50000)
+    call spit_as_pgm_8(picz, trim(filename))
+
+end program
+
+!-----------------------------------------------------