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