Files called from SICServer should now compile under linux

2000-07-21 13:01:55 +00:00
parent d782d43951
commit 5f5aface14
15 changed files with 401 additions and 115 deletions
--- a/tecs/tecs_plot.f90
+++ b/tecs/tecs_plot.f90
@@ -31,6 +31,10 @@ subroutine tecs_plot(file)
  right=.true.
  call pgopen(" ")
  call pgqinf('TYPE', buf, l)
+  if (buf=='NULL') then
+    print *,'No PGPLOT-Device defined'
+    goto 9
+  endif
  xwin=(buf(1:1)=='X')
  live=.not. xwin ! live switched off by default on X-Windows