tTh
/
Fortraneries
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

need more work...

This commit is contained in:
tTh 2022-12-20 13:04:30 +01:00
parent c0d8ee443f
commit 24cb13ad19
2 changed files with 6 additions and 3 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

3
Fraktalism/Makefile
View File

@ -42,6 +42,9 @@ voxelize: voxelize.f90 Makefile $(OBJDEP)
lorentz: lorentz.f90 Makefile $(OBJDEP) lorentz: lorentz.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@ gfortran $(GFOPT) $< $(OBJS) -o $@
mkmandel: mkmandel.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@
# --------------------------------------------- # ---------------------------------------------
lorentz.pgm: lorentz Makefile lorentz.pgm: lorentz Makefile

6
Fraktalism/mkmandel.f90
View File

@ -4,8 +4,8 @@
!----------------------------------------------------- !-----------------------------------------------------
subroutine plotsomething(pic, start, cz) subroutine plotsomething(pic, start, cz)
use cmplxmath ! use cmplxmath
use imagetools ! use imagetools
implicit none implicit none
@ -93,7 +93,7 @@ program mkmandel
end subroutine plotsomething end subroutine plotsomething
end interface end interface
integer, dimension(768, 768) :: picz integer, dimension(512, 512) :: picz
type (CenterMag) :: cm type (CenterMag) :: cm
integer :: angle integer :: angle
real :: radangle, radius real :: radangle, radius