Commit | Line | Data |
---|---|---|
81e70d48 PH |
1 | C ----- H A E B U F . F I -----\r |
2 | C DEFINITION OF THE FILE HEADER BLOCK CBUFR\r | |
3 | C\r | |
4 | C * UP 6-OCT-82 REVISION 5.0 \r | |
5 | C * UP 18-OCT-83 REVISION 5.5\r | |
6 | C * UP 12-JUL-85 REVISION 6.0\r | |
7 | C\r | |
8 | REAL REVSON @ REVISION NUMBER OF HAE PROGRAM SYSTEM\r | |
9 | LOGICAL COMP @ WITH THIS DATA SET AN FFT IS ALREADY COMPUTED\r | |
10 | INTEGER SAMRAT, @ SAMPLE RATE [HZ] MAXIMUM\r | |
11 | * SAMCNT, @ NUMBER OF SAMPLES FOR ONE CHANNEL AT MAXIMUM (SAMRAT) RATE\r | |
12 | * TOTSAM, @ NUMBER OF ALL SAMPLES TAKEN\r | |
13 | * CHNLS, @ NUMBER OF AD CHANNELS, TOTAL SAMPLES=CHNLS*SAMCNT\r | |
14 | * LABEL(10),LABCNT, @ DATA SET IDENTIFICATION, NUMBER OF WORDS IN LABEL\r | |
15 | * REDVAL @ READ VALID FLAG TO SELECT FROM EMPTY RECORDS\r | |
16 | INTEGER LASREC, @ BLOCK NUMBER OF THE LAST BLOCK IN THIS DATA SET\r | |
17 | * BLKCNT, @ TOTAL NUMBER OF BLOCKS IN THIS FILE UNIT (MAXREC)\r | |
18 | * SPEED, @ EADC TAPE SPEED MULTIPLIER\r | |
19 | * PACK(7), @ HOLDS FOR EACH CHANNEL THE RATIO SAMRAT/(CHANNEL SAMPLE RATE) MUST BE FROM (1,2,4,8,....,128)\r | |
20 | * PCKMAX, @ HOLDS MAXIMUM OF PACK VECTOR\r | |
21 | * STRIGS, @ NUMBER OF STRIGG CHANNELS SAMPLED\r | |
22 | * FXPAND(15), @ HERE TO ALLOW COMMON BLOCK EXPANSION FOR FUTURE REVISIONS\r | |
23 | * BUFFER(85), @ HERE TO FILL CBUFR TO AT LEAST 85 WORDS LENGTH USED BY ESSAM FOR INPUT FROM UNIT 6 OR 7\r | |
24 | * RCRD0(1) @ EQUIVALENCED TO THE FIRST WORD OF CBUFR IN \r | |
25 | C @ ORDER TO READ THE HEADER BLOCK WITH ONE STATEMENT\r | |
26 | EQUIVALENCE (REVSON,RCRD0(1))\r | |
27 | COMMON /CBUFR/ REVSON,SAMRAT,SAMCNT,TOTSAM,CHNLS,LABEL,LABCNT,\r | |
28 | * REDVAL,LASREC,BLKCNT,COMP,SPEED,PACK,PCKMAX,STRIGS,FXPAND,\r | |
29 | * BUFFER\r | |
30 | C\r | |
31 | C I/O CONTROL COMMON BLOCK CDSAM\r | |
32 | C\r | |
33 | INTEGER\r | |
34 | * CHANEL, @ NUMBER OF THE CHANNEL TO BE INVESTIGATED\r | |
35 | * OFFSET, @ STARTING BLOCK OF SAMPLE BUFFER SPACE ON DISK\r | |
36 | * MAXREC, @ HIGHEST BLOCK ASSIGNED TO A WHOLE FILE AT OPENING\r | |
37 | * REC5,REC6,REC7, @ INDEX TO FILE 5 (COMPUT), 6 (WRITE), TO FILE 7(READ)\r | |
38 | * SETNUM @ NUMBER OF THE ACTUAL DATA SET ON INPUT/ OUTPUT FILE\r | |
39 | INTEGER NUM7, @ NUMBER OF THE DATA SET TO BE READ BY READB\r | |
40 | * SIXCNT, @ COUNTS THE DATA SET'S FOUND ON UNIT 6\r | |
41 | * UNIT, @ WHERE TO FETCH THE SAMPLE (6 OR 7 IN ESAM)\r | |
42 | * XSAML, @ MAXIMUM NUMBER OF SAMPLES FITTING INTO THE REMAINING FILE SPACE\r | |
43 | * MAXBL5 @ LENGTH OF THE SCRATCH FILE 5 IN BLOCKS\r | |
44 | C\r | |
45 | COMMON /CDSAM/CHANEL,OFFSET,\r | |
46 | * MAXREC,REC5,MAXBL5,REC6,SIXCNT,REC7,SETNUM,\r | |
47 | * NUM7,UNIT,XSAML \r | |
48 | C -----\r | |
49 | \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\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\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\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\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 |