sw/src/mandel_screen/GETCFG.FT

   1 CCCCCC EINSTELLUNGEN EINLESEN
   2        SUBROUTINE GETCFG
   3 C
   4        INTEGER        MAXI,WIDTH,CR,LF
   5        COMMON /PARAM2/MAXI,WIDTH,CR,LF
   6        REAL           LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
   7        COMMON /PARAM1/LOWX,LOWY,HIGHX,HIGHY,MAXVAL,XSTEP,YSTEP
   8 C
   9        REAL XIN1,XIN2,YIN1,YIN2
  10 C
  11        WRITE (4,11)
  12        READ (4,16) XIN1
  13        WRITE (4,12)
  14        READ (4,116) XIN2
  15        WRITE (4,13)
  16        READ (4,216) YIN1
  17        WRITE (4,14)
  18        READ (4,316) YIN2
  19        WRITE (4,15)
  20        READ (4,17) MAXI
  21 C
  22    11  FORMAT(14H X FROM     : )
  23    12  FORMAT(14H     TO     : )
  24    13  FORMAT(14H Y FROM     : )
  25    14  FORMAT(14H     TO     : )
  26    15  FORMAT(14H  MAXIT (I3): )
  27    16  FORMAT(F12.0)
  28   116  FORMAT(F12.0)
  29   216  FORMAT(F12.0)
  30   316  FORMAT(F12.0)
  31    17  FORMAT(I3)
  32 C
  33 CCCCCC EVENTUELL STARTWERTE TAUSCHEN:
  34 CCCCCC WENN XIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
  35   150  I F(XIN2.GT.XIN1) GO TO 200
  36        TEMP = XIN1
  37        XIN1 = XIN2
  38        XIN2 = TEMP
  39 C
  40 CCCCCC WENN YIN2 GROESSER IST OK, ANSONSTEN TAUSCHEN
  41   200  IF(YIN2.GT.YIN1) GO TO 201
  42        TEMP = YIN1
  43        YIN1 = YIN2
  44        YIN2 = TEMP
  45 C
  46 CCCCCC WERTE UEBERNEHMEN
  47   201  LOWX  = XIN1
  48        HIGHX = XIN2
  49        LOWY  = YIN1
  50        HIGHY = YIN2
  51 C
  52 CCCCCC SCHRITTWEITEN AUSRECHNEN
  53        XSTEP = (HIGHX-LOWX)/FLOAT(WIDTH)
  54        YSTEP = 2.0 * XSTEP
  55 C
  56        RETURN
  57        END
  58 C
  59 C