From 24cb13ad19d93bf99d48a2da7a97331cf5df9d88 Mon Sep 17 00:00:00 2001 From: tTh Date: Tue, 20 Dec 2022 13:04:30 +0100 Subject: [PATCH] need more work... --- Fraktalism/Makefile | 3 +++ Fraktalism/mkmandel.f90 | 6 +++--- 2 files changed, 6 insertions(+), 3 deletions(-) diff --git a/Fraktalism/Makefile b/Fraktalism/Makefile index 5da76ea..8f2628c 100644 --- a/Fraktalism/Makefile +++ b/Fraktalism/Makefile @@ -42,6 +42,9 @@ voxelize: voxelize.f90 Makefile $(OBJDEP) lorentz: lorentz.f90 Makefile $(OBJDEP) gfortran $(GFOPT) $< $(OBJS) -o $@ +mkmandel: mkmandel.f90 Makefile $(OBJDEP) + gfortran $(GFOPT) $< $(OBJS) -o $@ + # --------------------------------------------- lorentz.pgm: lorentz Makefile diff --git a/Fraktalism/mkmandel.f90 b/Fraktalism/mkmandel.f90 index 2839439..c43c4bf 100644 --- a/Fraktalism/mkmandel.f90 +++ b/Fraktalism/mkmandel.f90 @@ -4,8 +4,8 @@ !----------------------------------------------------- subroutine plotsomething(pic, start, cz) - use cmplxmath - use imagetools + ! use cmplxmath + ! use imagetools implicit none @@ -93,7 +93,7 @@ program mkmandel end subroutine plotsomething end interface - integer, dimension(768, 768) :: picz + integer, dimension(512, 512) :: picz type (CenterMag) :: cm integer :: angle real :: radangle, radius