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

add a useless prog

Browse Source
This commit is contained in:
tTh 2022-12-23 21:13:47 +01:00
parent 3c94d61e24
commit a1c0bf6e34
3 changed files with 30 additions and 1 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

1
Fraktalism/.gitignore vendored
View File

@ -6,6 +6,7 @@ voxelize
evolvopick
henon
essai
plotcolmap
frames/*
WS/*.dat

7
Fraktalism/Makefile
View File

@ -16,7 +16,7 @@ mods/xperiment.o: mods/xperiment.f90 Makefile
fraktals.o: fraktals.f90 Makefile
gfortran $(GFOPT) -c $<
OBJDEP = mods/points3d.o mods/xperiment.o fraktals.o
OBJDEP = mods/points3d.o mods/xperiment.o fraktals.o mods/fractcolmap.o
OBJS = $(OBJDEP) ../Modules/spitpgm.o
# ---------------------------------------------
@ -24,6 +24,11 @@ OBJS = $(OBJDEP) ../Modules/spitpgm.o
essai: essai.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@
plotcolmap: plotcolmap.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@
# ---------------------------------------------
henon: henon.f90 Makefile $(OBJDEP)
gfortran $(GFOPT) $< $(OBJS) -o $@

23
Fraktalism/plotcolmap.f90 Normal file
View File

@ -0,0 +1,23 @@
program plotcolmap
use spitpgm
use fractcolmap
implicit none
integer :: argc
character(200) :: mapname, plotname
! -------check for command line arguments
argc = IARGC()
if (2 .NE. argc) then
STOP 'BECAUSE I NEED TWO ARGS'
endif
call getarg(1, mapname)
call getarg(2, plotname)
call fcolm_infos('from plotcolmap')
call fcolm_load_mapfile(trim(mapname))
call fcolm_plot_mapfile(trim(plotname))
end program