A large commit.

[pdp8.git] / sw / src / mandel_screen / STVAL.FT

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCC STARTWERTE AUSFUELLEN
       SUBROUTINE STVAL
C
       INTEGER        MAXI,WIDTH,CR,LF
       COMMON /PARAM2/MAXI,WIDTH,CR,LF
       REAL           LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
       COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
       INTEGER INIT
       COMMON /PARAM3/INIT
C
       CR      = 13 
       LF      = 10
       WIDTH   = 68
       MAXI    = 60
       MAXVAL  = 2.0
       LOWX    =-1.48
       HIGHX   = 0.5
       LOWY    =-1.287
       HIGHY   = 1.287
       INIT    =  1
C  
CCCCCC SCHRITTWEITEN AUSRECHNEN
       XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)
C       YSTEP = 1.0 * XSTEP
       YSTEP = 2.0 * XSTEP
C
       WRITE (4,1500)
 1500  FORMAT (21H DEFAULT VALUES USED.)
       RETURN
       END
C