add a useless prog

Fraktalism/.gitignore

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

Fraktalism/Makefile

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

Fraktalism/plotcolmap.f90

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