Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C -+-+-+-+-+ \ e H A E B D T . F T \ e -+-+-+-+-+\r |
2 | C\r | |
3 | C * UP 6-OCT-82\r | |
4 | C * UP 7-OCT-82\r | |
5 | C * UP 4-MAY-83 REV 5.3\r | |
6 | C * UP 11-MAY-83 REV 5.4\r | |
7 | C * UP 18-OCT-83 REV 5.5 CHANGES COMMON CDSAM\r | |
8 | C * UP 21-NOV-83 REV 5.6 IMPROVED NYSTAGMUS ANALYSIS\r | |
9 | C * UP 8-NOV-83 REV 5.7 REMOVES SOME BUGS IN HAESPL,HAENYA,HAENYX\r | |
10 | C * UP 27-APR-84 REV 5.8 INSERTS SPECIAL CH2 HANDLING ( TURN TABLE)\r | |
11 | C * UP 10-MAY-84 REV 5.9 CHANGES COMMON CNYA\r | |
12 | C * UP 10-DEC-84 REV 5.91 INSERTS COMMON CSPL\r | |
13 | C * UP 12-JUL-85 REV 6.00 CHANGED COMMON CBUFR FOR SCHMITT TRIGG INPUT\r | |
14 | C * UP 29-AUG-85 REV 6.01 INSERTS COMMON CTRIG FRO SPIKE FREQUENCY CONVERSION\r | |
15 | C * UP 3-SEP-85 REV 6.02 CHANGES COMMON CTRIG\r | |
16 | BLOCK DATA\r | |
17 | INCLUDE HAEPTI.FI\r | |
18 | INCLUDE HAEGSA.FI\r | |
19 | INCLUDE HAEBUF.FI\r | |
20 | INCLUDE HAESCR.FI\r | |
21 | INCLUDE HAECSZ.FI\r | |
22 | INCLUDE HAETTY.FI\r | |
23 | INCLUDE HAECLR.FI\r | |
24 | INCLUDE HAECEO.FI\r | |
25 | INCLUDE HAECNY.FI\r | |
26 | INCLUDE HAEHAS.FI\r | |
27 | INCLUDE HAECSP.FI\r | |
28 | INCLUDE HAECTR.FI\r | |
29 | \fC DATA STATEMENTS FOR HAEBUF.FI\r | |
30 | C\r | |
31 | DATA SAMRAT,SAMCNT,CHNLS,STRIGS /64,0,2,0/,\r | |
32 | * LABEL,LABCNT /'+TEST+',9*1H ,1/,\r | |
33 | * SPEED /1/, PACK /7*1/,\r | |
34 | * REVSON /6.01/\r | |
35 | C\r | |
36 | DATA REC5,REC6,REC7,NUM7 /4*-1/,\r | |
37 | * MAXREC,MAXBL5,UNIT,CHANEL /720,240,6,0/\r | |
38 | C\r | |
39 | C DATA STATEMENT FOR HAEGSA.FI\r | |
40 | C\r | |
41 | DATA PLTBEG,PLTEND,PZBEG,PZEND / 4*0 /\r | |
42 | DATA LCEGSA,BEGIN,ENDS,SPAN /30,0,8,8/, @ LENGTH OF CEGSA COMMON, START OF FFT SCAN [SEC], 8 SEC. FOR EACH FFT\r | |
43 | * OVRLAP,STSCAN /4,28/\r | |
44 | DATA FREQU\r | |
45 | * /0.7,12.,7.,3.,0.7, 20.,20.,12.,7.,3./,\r | |
46 | * GENAM\r | |
47 | * /2H ,2HBE,2HAL,2HTH,2HDE/\r | |
48 | C\r | |
49 | C DATA STATEMENT FOR HAETTY.FI\r | |
50 | C\r | |
51 | DATA TTI,TTO /1,4/\r | |
52 | C\r | |
53 | C DATA STATEMENT FOR HAECLR.FI\r | |
54 | C\r | |
55 | DATA CLEAR /.FALSE./\r | |
56 | C\r | |
57 | C DATA STATEMENTS FOR HAECEO.FI\r | |
58 | C\r | |
59 | DATA SPKFAC,MODCN,SPKCN /.42353,2,1/\r | |
60 | C\r | |
61 | C DATA STATEMENTS FOR HAEHAS.FI\r | |
62 | C\r | |
63 | DATA HSHDON /.FALSE./\r | |
64 | C\r | |
65 | C DATA STATEMENTS FOR HAESCR.FI\r | |
66 | C\r | |
67 | DATA INPREC,WFLAG,RECACT /2*-1,2*.FALSE.,1/\r | |
68 | C\r | |
69 | C DATA STATEMENTS FOR HAECNY.FI\r | |
70 | C\r | |
71 | DATA NORM /8*1./\r | |
72 | * , ORDMIN,ORDMAX /8*-512., 8*512. /\r | |
73 | * , NYAFIL,TABDIR /0,1H /\r | |
74 | C DATA STATEMENTS FOR CPLOTT COMMON\r | |
75 | DATA CA,COSTRT,STEP /8,0,1/\r | |
76 | C\r | |
77 | C DATA STATEMENTS FOR HAECSP.FI\r | |
78 | C\r | |
79 | DATA SRDMIN,SRDMAX /8*-512., 8*512./\r | |
80 | C\r | |
81 | C DATA STATEMENTS FOR HAECTR.FI\r | |
82 | C\r | |
83 | DATA NXTSPK,NXTBIT,TTRGW /2*1,0/\r | |
84 | END\r | |
85 | \1a\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0\0 |