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

renaming a non-working software

Browse Source
This commit is contained in:
tTh 2023-01-03 01:19:39 +01:00
parent da56a6d0c0
commit 0e73e47272
3 changed files with 37 additions and 6 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
Fraktalism/.gitignore vendored
View File

@ -1,7 +1,7 @@
mkjulia mkjulia
pickover pickover
lorentz mklorentz
mkmandel mkmandel
voxelize voxelize
evolvopick evolvopick

10
Fraktalism/Makefile
View File

@ -1,6 +1,6 @@
all: voxelize evolvopick pickover mkjulia lorentz essai \ all: essai voxelize evolvopick pickover \
mkmandel mkjulia mklorentz mkmandel
GFOPT = -Wall -Wextra -time -g -Imods/ -I../Modules GFOPT = -Wall -Wextra -time -g -Imods/ -I../Modules
@ -53,7 +53,7 @@ evolvopick: evolvopick.f90 Makefile $(OBJDEP)
voxelize: voxelize.f90 Makefile $(OBJDEP) voxelize: voxelize.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@ gfortran $(GFOPT) $< $(OBJS) -o $@
lorentz: lorentz.f90 Makefile $(OBJDEP) mklorentz: mklorentz.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@ gfortran $(GFOPT) $< $(OBJS) -o $@
mkmandel: mkmandel.f90 Makefile $(OBJDEP) mkmandel: mkmandel.f90 Makefile $(OBJDEP)
@ -61,8 +61,8 @@ mkmandel: mkmandel.f90 Makefile $(OBJDEP)
# --------------------------------------------- # ---------------------------------------------
lorentz.pgm: lorentz Makefile lorentz.pgm: mklorentz Makefile
./lorentz $@ > /dev/null ./mklorentz $@ > /dev/null
pickover.pgm: pickover Makefile pickover.pgm: pickover Makefile
./pickover $@ > /dev/null ./pickover $@ > /dev/null

31
Fraktalism/mklorentz.f90 Normal file
View File

@ -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
!-----------------------------------------------------