sw/rescue/lab8e_goettingen/disk4_5/rka/paroff/haecsz.fi

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