add an important molly-guard

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