C ----- H A E B U F . F I ----- C DEFINITION OF THE FILE HEADER BLOCK CBUFR C C * UP 6-OCT-82 REVISION 5.0 C * UP 18-OCT-83 REVISION 5.5 C * UP 12-JUL-85 REVISION 6.0 C REAL REVSON @ REVISION NUMBER OF HAE PROGRAM SYSTEM LOGICAL COMP @ WITH THIS DATA SET AN FFT IS ALREADY COMPUTED INTEGER SAMRAT, @ SAMPLE RATE [HZ] MAXIMUM * SAMCNT, @ NUMBER OF SAMPLES FOR ONE CHANNEL AT MAXIMUM (SAMRAT) RATE * TOTSAM, @ NUMBER OF ALL SAMPLES TAKEN * CHNLS, @ NUMBER OF AD CHANNELS, TOTAL SAMPLES=CHNLS*SAMCNT * LABEL(10),LABCNT, @ DATA SET IDENTIFICATION, NUMBER OF WORDS IN LABEL * REDVAL @ READ VALID FLAG TO SELECT FROM EMPTY RECORDS INTEGER LASREC, @ BLOCK NUMBER OF THE LAST BLOCK IN THIS DATA SET * BLKCNT, @ TOTAL NUMBER OF BLOCKS IN THIS FILE UNIT (MAXREC) * SPEED, @ EADC TAPE SPEED MULTIPLIER * PACK(7), @ HOLDS FOR EACH CHANNEL THE RATIO SAMRAT/(CHANNEL SAMPLE RATE) MUST BE FROM (1,2,4,8,....,128) * PCKMAX, @ HOLDS MAXIMUM OF PACK VECTOR * STRIGS, @ NUMBER OF STRIGG CHANNELS SAMPLED * FXPAND(15), @ HERE TO ALLOW COMMON BLOCK EXPANSION FOR FUTURE REVISIONS * BUFFER(85), @ HERE TO FILL CBUFR TO AT LEAST 85 WORDS LENGTH USED BY ESSAM FOR INPUT FROM UNIT 6 OR 7 * RCRD0(1) @ EQUIVALENCED TO THE FIRST WORD OF CBUFR IN C @ ORDER TO READ THE HEADER BLOCK WITH ONE STATEMENT EQUIVALENCE (REVSON,RCRD0(1)) COMMON /CBUFR/ REVSON,SAMRAT,SAMCNT,TOTSAM,CHNLS,LABEL,LABCNT, * REDVAL,LASREC,BLKCNT,COMP,SPEED,PACK,PCKMAX,STRIGS,FXPAND, * BUFFER C C I/O CONTROL COMMON BLOCK CDSAM C INTEGER * CHANEL, @ NUMBER OF THE CHANNEL TO BE INVESTIGATED * OFFSET, @ STARTING BLOCK OF SAMPLE BUFFER SPACE ON DISK * MAXREC, @ HIGHEST BLOCK ASSIGNED TO A WHOLE FILE AT OPENING * REC5,REC6,REC7, @ INDEX TO FILE 5 (COMPUT), 6 (WRITE), TO FILE 7(READ) * SETNUM @ NUMBER OF THE ACTUAL DATA SET ON INPUT/ OUTPUT FILE INTEGER NUM7, @ NUMBER OF THE DATA SET TO BE READ BY READB * SIXCNT, @ COUNTS THE DATA SET'S FOUND ON UNIT 6 * UNIT, @ WHERE TO FETCH THE SAMPLE (6 OR 7 IN ESAM) * XSAML, @ MAXIMUM NUMBER OF SAMPLES FITTING INTO THE REMAINING FILE SPACE * MAXBL5 @ LENGTH OF THE SCRATCH FILE 5 IN BLOCKS C COMMON /CDSAM/CHANEL,OFFSET, * MAXREC,REC5,MAXBL5,REC6,SIXCNT,REC7,SETNUM, * NUM7,UNIT,XSAML C -----