C	.TITLE	HYS
C
C  6 MAR 72 - PAUL HENDERSON
C
      DATA BEGIN/5HBEGIN/
999   FORMAT (1XA5)
998   FORMAT (1X10I8)
997   FORMAT (I2,I4)
      WRITE (8,999) BEGIN
      CALL INIT (IER)
      WRITE (8,998) IER
2     READ (4,997) MODE,IADR
1     CALL CRAC (MODE,IADR,IER)
      IADR=FLOAT(IADR)*10000./131072.
      WRITE (8,998) MODE,IADR,IER
      GO TO 2
      END