tTh/GenPlotting90
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

add an important molly-guard

Browse Source
This commit is contained in:
Tonton Th
2026-05-10 19:07:54 +02:00
parent 05066538ef
commit fce8fd4989
1 changed files with 5 additions and 0 deletions
Download Patch File Download Diff File Expand all files Collapse all files

5
genplotting.f90
View File

@@ -128,6 +128,11 @@ subroutine genp_do_render(srcfile, tgafile, xsize, ysize)
character (len=20) :: dima, dimb character (len=20) :: dima, dimb
integer :: i, j, errcode 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, '("--- genp do_render ---")')
write(0, '(" srcfile: ", A)') srcfile write(0, '(" srcfile: ", A)') srcfile
write(0, '(" tgafile: ", A)') tgafile write(0, '(" tgafile: ", A)') tgafile