C	-+-+-+-+-+   H A E B D T . F T   -+-+-+-+-+
C
C	* UP  6-OCT-82
C	* UP  7-OCT-82
C	* UP  4-MAY-83 REV 5.3
C	* UP 11-MAY-83 REV 5.4
C	* UP 18-OCT-83 REV 5.5 CHANGES COMMON CDSAM
C	* UP 21-NOV-83 REV 5.6 IMPROVED NYSTAGMUS ANALYSIS
C	* UP  8-NOV-83 REV 5.7 REMOVES SOME BUGS IN HAESPL,HAENYA,HAENYX
C	* UP 27-APR-84 REV 5.8 INSERTS SPECIAL CH2 HANDLING ( TURN TABLE)
C	* UP 10-MAY-84 REV 5.9 CHANGES COMMON CNYA
C	* UP 10-DEC-84 REV 5.91 INSERTS COMMON CSPL
C	* UP 12-JUL-85 REV 6.00 CHANGED COMMON CBUFR FOR SCHMITT TRIGG INPUT
C	* UP 29-AUG-85 REV 6.01 INSERTS COMMON CTRIG FRO SPIKE FREQUENCY CONVERSION
C	* UP  3-SEP-85 REV 6.02 CHANGES COMMON CTRIG
	BLOCK DATA
	INCLUDE HAEPTI.FI
	INCLUDE HAEGSA.FI
	INCLUDE HAEBUF.FI
	INCLUDE HAESCR.FI
	INCLUDE HAECSZ.FI
	INCLUDE HAETTY.FI
	INCLUDE HAECLR.FI
	INCLUDE HAECEO.FI
	INCLUDE HAECNY.FI
	INCLUDE HAEHAS.FI
	INCLUDE HAECSP.FI
	INCLUDE HAECTR.FI
C	DATA STATEMENTS FOR HAEBUF.FI
C
	DATA SAMRAT,SAMCNT,CHNLS,STRIGS /64,0,2,0/,
     *  LABEL,LABCNT /'+TEST+',9*1H ,1/,
     *  SPEED /1/, PACK /7*1/,
     *  REVSON /6.01/
C
	DATA REC5,REC6,REC7,NUM7 /4*-1/,
     *  MAXREC,MAXBL5,UNIT,CHANEL /720,240,6,0/
C
C	DATA STATEMENT FOR HAEGSA.FI
C
	DATA PLTBEG,PLTEND,PZBEG,PZEND / 4*0 /
	DATA LCEGSA,BEGIN,ENDS,SPAN /30,0,8,8/,	@ LENGTH OF CEGSA COMMON, START OF FFT SCAN [SEC], 8 SEC. FOR EACH FFT
     *  OVRLAP,STSCAN /4,28/
	DATA FREQU
     *  /0.7,12.,7.,3.,0.7, 20.,20.,12.,7.,3./,
     *  GENAM
     *  /2H  ,2HBE,2HAL,2HTH,2HDE/
C
C	DATA STATEMENT FOR HAETTY.FI
C
	DATA TTI,TTO /1,4/
C
C	DATA STATEMENT FOR HAECLR.FI
C
	DATA CLEAR /.FALSE./
C
C	DATA STATEMENTS FOR HAECEO.FI
C
	DATA SPKFAC,MODCN,SPKCN /.42353,2,1/
C
C	DATA STATEMENTS FOR HAEHAS.FI
C
	DATA HSHDON /.FALSE./
C
C	DATA STATEMENTS FOR HAESCR.FI
C
	DATA INPREC,WFLAG,RECACT /2*-1,2*.FALSE.,1/
C
C	DATA STATEMENTS FOR HAECNY.FI
C
	DATA NORM /8*1./
     *    , ORDMIN,ORDMAX /8*-512., 8*512. /
     *    , NYAFIL,TABDIR /0,1H /
C	DATA STATEMENTS FOR CPLOTT COMMON
	DATA CA,COSTRT,STEP /8,0,1/
C
C	DATA STATEMENTS FOR HAECSP.FI
C
	DATA SRDMIN,SRDMAX /8*-512., 8*512./
C
C	DATA STATEMENTS FOR HAECTR.FI
C
	DATA NXTSPK,NXTBIT,TTRGW /2*1,0/
	END
                                                                    