M.Z.

2003-05-09 07:25:03 +00:00
parent 4ebf207325
commit 47c60ba400
2 changed files with 21 additions and 14 deletions
--- a/tecs/tecs_plot.f
+++ b/tecs/tecs_plot.f
@@ -74,6 +74,7 @@
 	    print *,'No PGPLOT-Device defined'
 	    goto 9
 	  endif
+	  call sys_setenv('PGPLOT_DEV', device)
 	endif
 	
 	call pgqcol(i,ncol)