sw/src/mandel_screen/STVAL.FT

   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