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

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

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