add an important molly-guard

README.md

@@ -2,11 +2,16 @@
 
 Voici quelques tentatives de dessins inutiles réalisés avec du
 [Fortran moderne](https://fortran-lang.org/fr/learn/), et quelques
-morceaux de C parce que *why not ?*
+morceaux de C parce que *why not ?* L'idée générale c'est d'utiliser
+de la basse technologie (traduction hasardeuse de **lowtech**) pour
+servir la noble cause de la
+[techno-futilité](https://wiki.interhacker.space/index.php?title=Techno-futilit%C3%A9).
 
-Un peu de lecture : [utilisation](usage.md) et [exemples](exemples.md).
+Un peu de lecture : [license](LICENSE), [utilisation](usage.md) et
+[exemples](exemples.md).
 
-Vous pouvez suivre le croisimot [#UselessGraphic](https://mastodon.tetaneutral.net/tags/uselessgraphic)
+Vous pouvez suivre le croisimot
+[#UselessGraphic](https://pleroma.interhacker.space/tag/uselessgraphic)
 dans le grand Ternet sauvage. Pour me contacter, il faut utiliser les
 [méthodes](https://www.tetalab.org/fr/contact) habituelles du Tetalab.
 

genplotting.f90

@@ -128,6 +128,11 @@ subroutine genp_do_render(srcfile, tgafile, xsize, ysize)
   character (len=20)              :: dima, dimb
   integer                         :: i, j, errcode
 
+  if  (6 .EQ. outunit) then
+    write(0, '(" Sorry, I can not do that, Dave !")')
+    stop " >>> FATAL ERROR"
+  endif
+
   write(0, '("--- genp do_render ---")')
   write(0, '("    srcfile: ", A)') srcfile
   write(0, '("    tgafile: ", A)') tgafile