Commit | Line | Data |
---|---|---|
81e70d48 PH |
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 |