[pdp8.git] / sw / rescue / lab8e_goettingen / disk4_5 / rka / paroff / haecsz.fi

C	-----   H A E C S Z . F I   -----\r
C	PLOTTER & PAPER SIZE CONTROL COMMON BLOCK\r
C\r
	INTEGER PLOTNO			@ NUMBER OF PLOTTER UNIT (1 OR 2)\r
	REAL XLEN,			@ SIZE OF ABZISSA\r
     *  YLEN,				@         ORDINATE\r
     *  XOFSET,YOFSET,			@ SOME SPACE FOR THE SCALES\r
     *  YZ,				@ SIZE OF SYMBOLS IN MM (FOR TEXT ONLY)\r
     *  YN,				@ SIZE OF NUMBERS ( AXIS SCALING )\r
     *   YSTEP				@ SPACE BETWEEN THE DIAGRAMS (PAL,PRL,...)\r
C\r
	COMMON /CPSIZE/ XLEN,YLEN,XOFSET,YOFSET,YZ,YN,YSTEP,PLOTNO\r
C\r
	DATA XLEN,YLEN /24.,15./,	@ A4Q FORMAT\r
     *  XOFSET,YOFSET  /2.8,2.8/,\r
     *  YZ,YN,YSTEP         /.56,.49,.75/\r
     *   ,PLOTNO  /1/\r
C	-----\r
\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0
Commit	Line	Data
81e70d48 PH	1	C ----- H A E C S Z . F I -----\r
	2	C PLOTTER & PAPER SIZE CONTROL COMMON BLOCK\r
	3	C\r
	4	INTEGER PLOTNO @ NUMBER OF PLOTTER UNIT (1 OR 2)\r
	5	REAL XLEN, @ SIZE OF ABZISSA\r
	6	* YLEN, @ ORDINATE\r
	7	* XOFSET,YOFSET, @ SOME SPACE FOR THE SCALES\r
	8	* YZ, @ SIZE OF SYMBOLS IN MM (FOR TEXT ONLY)\r
	9	* YN, @ SIZE OF NUMBERS ( AXIS SCALING )\r
	10	* YSTEP @ SPACE BETWEEN THE DIAGRAMS (PAL,PRL,...)\r
	11	C\r
	12	COMMON /CPSIZE/ XLEN,YLEN,XOFSET,YOFSET,YZ,YN,YSTEP,PLOTNO\r
	13	C\r
	14	DATA XLEN,YLEN /24.,15./, @ A4Q FORMAT\r
	15	* XOFSET,YOFSET /2.8,2.8/,\r
	16	* YZ,YN,YSTEP /.56,.49,.75/\r
	17	* ,PLOTNO /1/\r
	18	C -----\r
	19	\1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0