| 1 | CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC |
| 2 | CCCCCC STARTWERTE AUSFUELLEN |
| 3 | SUBROUTINE STVAL |
| 4 | C |
| 5 | INTEGER MAXI,WIDTH,CR,LF |
| 6 | COMMON /PARAM2/MAXI,WIDTH,CR,LF |
| 7 | REAL LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP |
| 8 | COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP |
| 9 | INTEGER INIT |
| 10 | COMMON /PARAM3/INIT |
| 11 | C |
| 12 | CR = 13 |
| 13 | LF = 10 |
| 14 | WIDTH = 68 |
| 15 | MAXI = 60 |
| 16 | MAXVAL = 2.0 |
| 17 | LOWX =-1.48 |
| 18 | HIGHX = 0.5 |
| 19 | LOWY =-1.287 |
| 20 | HIGHY = 1.287 |
| 21 | INIT = 1 |
| 22 | C |
| 23 | CCCCCC SCHRITTWEITEN AUSRECHNEN |
| 24 | XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH) |
| 25 | C YSTEP = 1.0 * XSTEP |
| 26 | YSTEP = 2.0 * XSTEP |
| 27 | C |
| 28 | WRITE (4,1500) |
| 29 | 1500 FORMAT (21H DEFAULT VALUES USED.) |
| 30 | RETURN |
| 31 | END |
| 32 | C |