sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haesiz.ft

   1 C       -+-+-+-+-+  \ e H A E S I Z . F T  \ e -+-+-+-+-+
   2 C
   3 C       SWITCHES THE SIZE OF THE PLOTS FROM A4 TO A3 AND V.V.
   4 C       CHANGES THE PLOTTER UNIT NUMBER PLOTNO
   5 C
   6         SUBROUTINE SIZEP
   7         INCLUDE HAECSZ.FI
   8         INCLUDE HAETTY.FI
   9         INCLUDE HAEPTI.FI
  10 C
  11 \f       REAL COND
  12         EXTERNAL COND
  13 C
  14         REAL F
  15         INTEGER I
  16 C
  17 C
  18         IF (OPTION.EQ.1) GOTO 10        @ SUPER 8 FORMAT
  19         IF (OPTION.EQ.4) GOTO 30        @ A3 FORMAT
  20         IF (OPTION.EQ.5) GOTO 40        @ A4 FORMAT
  21         WRITE (TTO,1) XLEN
  22         READ (TTI,2) F
  23         XLEN=COND(F,F,XLEN)
  24         WRITE (TTO,3) YLEN
  25         READ (TTI,2) F
  26         YLEN=COND(F,F,YLEN)
  27         WRITE(TTO,4) PLOTNO             @ LESE PLOTTER NUMMER EIN
  28         READ (TTI,5) I
  29         PLOTNO=NCOND(I,I,PLOTNO)        @ ERLAUBE ERST MAL ALLE PLOTTER NUMMERN
  30         RETURN
  31 C
  32 C       SUPER 8 FORMAT
  33 C
  34 10      CONTINUE
  35         XLEN=34.
  36         YLEN=34.
  37         RETURN
  38 C
  39 C       STANDART A3 FORMAT
  40 C
  41 30      CONTINUE
  42         XLEN=34.
  43         YLEN=21.5
  44         RETURN
  45 C
  46 C       STANDART A4 FORMAT
  47 C
  48 40      XLEN=24.
  49         YLEN=15.
  50         RETURN
  51 C
  52 C
  53 1       FORMAT (' LAENGE DER ABZISSE [CM] (',F5.1,') ? ',$)
  54 2       FORMAT (F5.0)
  55 3       FORMAT (' LAENGE DER ORDINATE [CM](',F5.1,') ? ',$)
  56 4       FORMAT (' PLOTTER NUMMER? (',I2,') ? ',$)
  57 5       FORMAT (I2)
  58         END
  59 \1a