Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | CCCCCC EINSTELLUNGEN EINLESEN |
2 | SUBROUTINE GETCFG | |
3 | C | |
4 | INTEGER MAXI,WIDTH,CR,LF | |
5 | COMMON /PARAM2/MAXI,WIDTH,CR,LF | |
6 | REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP | |
7 | COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP | |
8 | C | |
9 | REAL XIN1,XIN2,YIN1,YIN2 | |
10 | C | |
11 | WRITE (4,11) | |
12 | READ (4,16) XIN1 | |
13 | WRITE (4,12) | |
14 | READ (4,116) XIN2 | |
15 | WRITE (4,13) | |
16 | READ (4,216) YIN1 | |
17 | WRITE (4,14) | |
18 | READ (4,316) YIN2 | |
19 | WRITE (4,15) | |
20 | READ (4,17) MAXI | |
21 | C | |
22 | 11 FORMAT(14H X FROM : ) | |
23 | 12 FORMAT(14H TO : ) | |
24 | 13 FORMAT(14H Y FROM : ) | |
25 | 14 FORMAT(14H TO : ) | |
26 | 15 FORMAT(14H MAXIT (I3): ) | |
27 | 16 FORMAT(F12.0) | |
28 | 116 FORMAT(F12.0) | |
29 | 216 FORMAT(F12.0) | |
30 | 316 FORMAT(F12.0) | |
31 | 17 FORMAT(I3) | |
32 | C | |
33 | CCCCCC EVENTUELL STARTWERTE TAUSCHEN: | |
34 | CCCCCC WENN XIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN | |
35 | 150 I F(XIN2.GT.XIN1) GO TO 200 | |
36 | TEMP = XIN1 | |
37 | XIN1 = XIN2 | |
38 | XIN2 = TEMP | |
39 | C | |
40 | CCCCCC WENN YIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN | |
41 | 200 IF(YIN2.GT.YIN1) GO TO 201 | |
42 | TEMP = YIN1 | |
43 | YIN1 = YIN2 | |
44 | YIN2 = TEMP | |
45 | C | |
46 | CCCCCC WERTE UEBERNEHMEN | |
47 | 201 LOWX = XIN1 | |
48 | HIGHX = XIN2 | |
49 | LOWY = YIN1 | |
50 | HIGHY = YIN2 | |
51 | C | |
52 | CCCCCC SCHRITTWEITEN AUSRECHNEN | |
53 | XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH) | |
54 | YSTEP = 2.0 * XSTEP | |
55 | C | |
56 | RETURN | |
57 | END | |
58 | C | |
59 | C |