Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |