making some funny gif89a

GrafAnim/.gitignore

@@ -0,0 +1,3 @@
+
+essai
+

GrafAnim/Makefile

@@ -0,0 +1,12 @@
+#
+# Fortraneries by tTh - Graf Anim
+#
+
+GFOPT = -Wall -Wextra -g -time
+
+essai:	essai.f90 usegenplot.o Makefile
+	gfortran $(GFOPT) $< usegenplot.o -o $@
+
+usegenplot.o:	usegenplot.f90 Makefile
+	gfortran $(GFOPT) -c $<
+

GrafAnim/README.md

@@ -0,0 +1,5 @@
+# GrafAnim
+
+Quelques essais approximatifs pour faire des graphiques inutiles,
+dans une démarche mettant en avant la techno-futilité
+

GrafAnim/essai.f90

@@ -0,0 +1,13 @@
+program essai
+
+  use usegenplot
+  implicit none
+
+  ! integer                     :: foo, bar
+
+  write(0, *)   "------------ essai graf anim ---------------"
+
+  call init_genplot('essai.genplot')
+
+end program
+

GrafAnim/go.sh

@@ -0,0 +1,6 @@
+#!/bin/bash
+
+set -e
+
+make essai
+

GrafAnim/usegenplot.f90

@@ -0,0 +1,19 @@
+module usegenplot
+
+  implicit none
+  contains
+
+! -------------------------------------------------------------------
+
+subroutine init_genplot(filename)
+
+  character(200) :: filename
+
+  write(0, *)   '-------- init genplot '
+
+end subroutine
+
+! -------------------------------------------------------------------
+
+end module
+