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_client.f
+++ b/tecs/tecs_client.f
@@ -96,6 +96,7 @@
 	  l=0
 	  goto 11
 	elseif (cmd .eq. 'plot') then
+	  call cho_choose('G')
 	  iret=tecs_get_par('dlogfile', file)
 	  if (iret .lt. 0) goto 19
 	  call tecs_plot(file)