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 |