From fce8fd498986dd9a6c35c2b950c23cbea7fb9d32 Mon Sep 17 00:00:00 2001 From: Tonton Th Date: Sun, 10 May 2026 19:07:54 +0200 Subject: [PATCH] add an important molly-guard --- genplotting.f90 | 5 +++++ 1 file changed, 5 insertions(+) diff --git a/genplotting.f90 b/genplotting.f90 index 930e18b..110df1a 100644 --- a/genplotting.f90 +++ b/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