C      BLOCK DATA FILE XRFDAT
      BLOCK DATA
C
      IMPLICIT LOGICAL*1 (B)
      DOUBLE PRECISION SYMBOL
      COMMON/PARAMS/LUNIN,LUNOUT,LUNCMD,BTAB,BSPC,NLINE,NSTMT,
     1ICLASS,BCHR,BLST,JSYM(2),NSYMTP,IPARNS,NPAGE
      COMMON /INBUFR/INSIZ,INCNT,IOUTX,MCRSIZ,INFIL,IOUTFL,
     1BDPB(2),BUFR(80),BNAM(24),BTIME(8),BDATE(9),BX(1)
      COMMON NSYM,NELM,KLIM,SYMBOL(1000)
C
      DATA LUNCMD/1/  !LOGICAL UNIT TO READ COMMAND
      DATA LUNIN/2/   !LOGICAL UNIT FOR READ
      DATA LUNOUT/3/      !LUN FOR OUT-PUT
      DATA BTAB/O11/  !A TAB (>T) CHARACTER
      DATA BSPC/O40/	!A SPACE
      DATA INSIZ/72/	!SIZE OF READ
      DATA KLIM/1000/  !SIZE OF SYMBOL
      END