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

add mollyguard

Browse Source
This commit is contained in:
Tonton Th
2026-04-25 13:11:30 +02:00
parent 185ee019a8
commit 483fa3d13f
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

@@ -20,6 +20,11 @@ subroutine genp_init (foo, fname)
integer, intent(in) :: foo integer, intent(in) :: foo
character (len=*), intent(in) :: fname character (len=*), intent(in) :: fname
if (FOO .NE. 0) THEN
WRITE(0, '("FOO .NE. 0")')
CALL EXIT(1)
END IF
outunit = 6 ! stdout outunit = 6 ! stdout
if (len(fname) .gt. 0) then if (len(fname) .gt. 0) then
write (0, '("genplot init opening : ", A)') fname write (0, '("genplot init opening : ", A)') fname