sw/rescue/lab8e_goettingen/disk4_5/rka/paroff/haegsa.fi

   1 C       -----  H A E G S A . F I  -----
   2 C       SAMPLING BUFFER OPTIONS
   3 C
   4         INTEGER LCEGSA(1),              @ LENGTH OF THE CEGESA COMMON BLOCK
   5      *  BEGIN,ENDS,SPAN,                @ START AND END OF TRANSFORMATION [SEC], WIDTH OF EACH TRANSF. [SEC]
   6      *  INCR,OVRLAP,EXPON,              @ SAMRAT*SPAN, WINDOW OVERLAPPING[SEC] OF FFT
   7      *  SETNU5,CHANE5,                  @ 'SETNUM' AND 'CHANEL' OF THE DATA SET TRANSFORMED ONTO FILE 5
   8      *  BEGFFT,                         @ START OF THE LAST FFT ( STORED ON REC3 TO 16 )
   9      *  DATCNT                          @ THE NUMBER OF SCANES WHICH ARE STORED ON UNIT 5
  10         INTEGER STSCAN,                 @ UNIT 5: THIS IS THE LAST BLOCK OF THE POWER SPECTRUM STORED ON REC 3 TO STSCAN( SET TO 27)
  11      * FILTER,                          @ DEFINES THE FILTER APPLIED TO THE POWER SPECTRUM AND THE SCAN EITHER 0,3 OR 12.
  12      * SCNPOW                           @ :=IF REC3 TO 16 CONTAINS A POWER SPECTRUM THEN 0 ELIF
  13 C                                       @  REC3 TO 16 CONTAINS A PW. SP. OF THE SCAN THEN # OF THE BAND FI
  14         REAL XMINI,XMAXI                @ MINIMUM AND MAXIMUM OF THE POWER SPECTRUM
  15 C
  16 C       FFT SPECTRUM SCAN CONTROL
  17 C
  18 C
  19         REAL FREQU(5,2)                 @ BAND WIDTH ALPHA,BETA,DELTA,THETA
  20         INTEGER  GENAM(5)               @ THE GREEK LETTER FOR THIS BANDS
  21 C
  22 C
  23         COMMON /CEGESA/ LCEGSA,STSCAN,BEGIN,ENDS,SPAN,
  24      *  INCR,OVRLAP,EXPON,SETNU5,CHANE5,BEGFFT,DATCNT,
  25      *  XMINI,XMAXI,FREQU,GENAM,FILTER,CONTNS
  26 C
  27 C       PLOTTER ROUTINES CONTROL COMMON BLOCK
  28 C
  29         INTEGER PLTBEG,PLTEND,          @ PLOTIT,PFLOT FREQUENCY SCALE BEGIN & END
  30      *  PZBEG,PZEND                     @ PALOT,PRLOT TIME SCALE BEGIN & END
  31         COMMON /COPLT/ PLTBEG,PLTEND,PZBEG,PZEND
  32 C       -----
  33 \1a