A large commit.

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

CCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCCC
CCCCCC EINSTELLUNGEN AUSGEBEN
       SUBROUTINE OUTCFG
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
C
       WRITE (4,20)
  20   FORMAT (10H SETTINGS:)
       WRITE (4,30) LOWX, HIGHX
  30   FORMAT (13H X-WERTE VON ,1F8.5,5H BIS ,1F8.5)
       WRITE (4,40) LOWY, HIGHY
   40  FORMAT (13H Y-WERTE VON ,F8.5,5H BIS ,F8.5)     
       WRITE (4,50) MAXI, MAXVAL, XSTEP, YSTEP, WIDTH
   50  FORMAT (   5H MAX:,I3,
     +        8H MAXVAL:,F8.5,
     +         7H XSTEP:,F8.5,
     +         7H YSTEP:,F8.5,
     +         7H WIDTH:,I2)
       RETURN
       END
C
C