A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk4_5 / rka / paroff / haegsa.fi
CommitLineData
81e70d48
PH
1C ----- H A E G S A . F I -----\r
2C SAMPLING BUFFER OPTIONS\r
3C\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
13C @ 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
15C\r
16C FFT SPECTRUM SCAN CONTROL \r
17C\r
18C\r
19 REAL FREQU(5,2) @ BAND WIDTH ALPHA,BETA,DELTA,THETA\r
20 INTEGER GENAM(5) @ THE GREEK LETTER FOR THIS BANDS\r
21C\r
22C\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
26C\r
27C PLOTTER ROUTINES CONTROL COMMON BLOCK\r
28C\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
32C -----\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