C -+-+-+-+-+  H A E S I Z . F T  -+-+-+-+-+ C C SWITCHES THE SIZE OF THE PLOTS FROM A4 TO A3 AND V.V. C CHANGES THE PLOTTER UNIT NUMBER PLOTNO C SUBROUTINE SIZEP INCLUDE HAECSZ.FI INCLUDE HAETTY.FI INCLUDE HAEPTI.FI C REAL COND EXTERNAL COND C REAL F INTEGER I C C IF (OPTION.EQ.1) GOTO 10 @ SUPER 8 FORMAT IF (OPTION.EQ.4) GOTO 30 @ A3 FORMAT IF (OPTION.EQ.5) GOTO 40 @ A4 FORMAT WRITE (TTO,1) XLEN READ (TTI,2) F XLEN=COND(F,F,XLEN) WRITE (TTO,3) YLEN READ (TTI,2) F YLEN=COND(F,F,YLEN) WRITE(TTO,4) PLOTNO @ LESE PLOTTER NUMMER EIN READ (TTI,5) I PLOTNO=NCOND(I,I,PLOTNO) @ ERLAUBE ERST MAL ALLE PLOTTER NUMMERN RETURN C C SUPER 8 FORMAT C 10 CONTINUE XLEN=34. YLEN=34. RETURN C C STANDART A3 FORMAT C 30 CONTINUE XLEN=34. YLEN=21.5 RETURN C C STANDART A4 FORMAT C 40 XLEN=24. YLEN=15. RETURN C C 1 FORMAT (' LAENGE DER ABZISSE [CM] (',F5.1,') ? ',$) 2 FORMAT (F5.0) 3 FORMAT (' LAENGE DER ORDINATE [CM](',F5.1,') ? ',$) 4 FORMAT (' PLOTTER NUMMER? (',I2,') ? ',$) 5 FORMAT (I2) END