| 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 |