| 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 |