A large commit.
[pdp8.git] / sw / rescue / lab8e_goettingen / disk4_5 / rka / paroff / haebuf.fi
CommitLineData
81e70d48
PH
1C ----- H A E B U F . F I -----\r
2C DEFINITION OF THE FILE HEADER BLOCK CBUFR\r
3C\r
4C * UP 6-OCT-82 REVISION 5.0 \r
5C * UP 18-OCT-83 REVISION 5.5\r
6C * UP 12-JUL-85 REVISION 6.0\r
7C\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
25C @ 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
30C\r
31C I/O CONTROL COMMON BLOCK CDSAM\r
32C\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
44C\r
45 COMMON /CDSAM/CHANEL,OFFSET,\r
46 * MAXREC,REC5,MAXBL5,REC6,SIXCNT,REC7,SETNUM,\r
47 * NUM7,UNIT,XSAML \r
48C -----\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