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