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