sw/src/mandel_screen/OUTCFG.FT

   1 CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
   2 CCCCCC EINSTELLUNGEN AUSGEBEN
   3        SUBROUTINE OUTCFG
   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 C
  10        WRITE (4,20)
  11   20   FORMAT (10H SETTINGS:)
  12        WRITE (4,30) LOWX, HIGHX
  13   30   FORMAT (13H X-WERTE VON ,1F8.5,5H BIS ,1F8.5)
  14        WRITE (4,40) LOWY, HIGHY
  15    40  FORMAT (13H Y-WERTE VON ,F8.5,5H BIS ,F8.5)
  16        WRITE (4,50) MAXI, MAXVAL, XSTEP, YSTEP, WIDTH
  17    50  FORMAT (   5H MAX:,I3,
  18      +        8H MAXVAL:,F8.5,
  19      +         7H XSTEP:,F8.5,
  20      +         7H YSTEP:,F8.5,
  21      +         7H WIDTH:,I2)
  22        RETURN
  23        END
  24 C
  25 C