sw/rescue/lab8e_goettingen/disk4_5/rka/paroff/haebuf.fi

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