COMMON /RASTER/ LOONTI,	LOONRS,	LOONVC,	LOONOU,	LOONAT,
	1		NCOPY,	IDEVCE,	IOPTNS,	NVFILE,	IWTIME,
	2		OUTDEV,	RASFIL,	VECFIL,
	3		QIND,	QGBLSC,	QVECSC,
	4		GBLSCL,	GBLXOF,	GBLYOF,
	5		VECSCL,	VECXOF,	VECYOF,
	6		NIBX,	NIBY,	MAXNX,	MAXNY
C
	INTEGER*2	LOONTI		! logical unit for the terminal
	INTEGER*2	LOONRS		! logical unit for the raster file
	INTEGER*2	LOONVC		! logical unit for the vector file,
	INTEGER*2	LOONOU		! logical unit for direct output
	INTEGER*2	LOONAT		! logical unit for indirect command file
	INTEGER*2	NCOPY		! number of copies to print
	INTEGER*2	IDEVCE		! device to plot on:
C					!	-3 = versatek
C					!	-2 = printronix
C					!	-1 = IDS prism 132
	INTEGER*2	IOPTNS		! options (logical or of these bits)
C					!	 0 = plot vectors directly
C					!	"1 = make raster file
C					!	"2 = plot the raster file
C					!	"4 = delete the raster file
C					!      "10 = plot file via QUEUE mang.
	INTEGER*2	NVFILE		! number of vector files to plot
	INTEGER*2	IWTIME		! millie-seconds to wait between lines
C					!  of raster for the Versatec plotter
	BYTE		OUTDEV(8)	! output device (ie LP:)
	BYTE		RASFIL(32)	! raster file specification
	BYTE		VECFIL(32,10)	! vector file specifications
	LOGICAL*1	QIND		! flag: .TRUE. ==> input from file
	LOGICAL*1	QGBLSC		! flag:	.TRUE. ==> must globally scale
	LOGICAL*1	QVECSC(10)	! flag:	.TRUE. ==> must scale vec file
	REAL*4		GBLSCL		! global scaling factor
	REAL*4		GBLXOF		! global X offset factor
	REAL*4		GBLYOF		! global Y offset factor
	REAL*4		VECSCL(10)	! vector file scale factor
	REAL*4		VECXOF(10)	! vector file X offset factor
	REAL*4		VECYOF(10)	! vector file Y offset factor
	INTEGER*2	NIBX		! number of nibs/inch in X direction
	INTEGER*2	NIBY		! number of nibs/inch in Y direction
	INTEGER*2	MAXNX		! maximum number of nibs/band for X
	INTEGER*2	MAXNY		! number of nibs accross a page for Y
	BYTE	GDDEV0(32),GDDEVN(6,6)	! for VECTOR
	COMMON	/GRPHDV/GDDEV0,MAXGD,GDDEVN
C
C=============================================================================
C