1 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
2 CCCCCC STARTWERTE AUSFUELLEN
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
23 CCCCCC SCHRITTWEITEN AUSRECHNEN
24 XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)
29 1500 FORMAT (21H DEFAULT VALUES USED.)