sw/rescue/lab8e_goettingen/disk2_11/rkb/paroff/haebdt.ft

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