C       /aver.inc/     include file for AVER.f
C
      INTEGER *4 MAXBASE, MAXERR, NFILT, NUMFILT
      PARAMETER ( MAXBASE =  38 )
      PARAMETER ( MAXERR  = 100 )
      PARAMETER ( NFILT   =   4 )
      PARAMETER ( NUMFILT =  33 )
C
      INTEGER *2 BUFFER(1024), B(13,78), TAKE(13, MAXERR)
C
      INTEGER *4 ISTAR, IYEAR, IMON, IDAY, IBASE, CIFLAG, TDTOFF
      INTEGER *4 TSAMPLE, X(NFILT), Y(NFILT), N(NFILT), A(NFILT)
      INTEGER *4 NLIMIT(3:4), OFFSET
      INTEGER *4 SCANNO, DSCAN, DARK(NFILT), NLOCK, NDATA, BDATA(NFILT)
      INTEGER *4 FTYPE, APCODE, SETDA, WLFLAG, FILTER(4), JITTR, DJTR
      INTEGER *4 IREC, NRECS, NWORDS, ENDERR
      INTEGER *4 TERME, TERMD, TERMI, TERMM, TERMO, TERMP, TERML, TERMV
      INTEGER *4 VREC, TERMS, TERMQ, TERMW, TERM2
C
      REAL *4 STROKE, WEIGHT, DTIME
      REAL *4 ZA, HA0, DEC0, WAVE(4), WAVES(0:NUMFILT)
C
      REAL *8 DLAS
      REAL *8 BX, BY, BZ, CON, RA, DEC, HA
      REAL *8 OBX(MAXBASE), OBY(MAXBASE), OBZ(MAXBASE), OCON(MAXBASE)
      REAL *8 PMRA, PMDEC, PAR, RV, RAM, DECM
      REAL *8 LASER, MTIME
C
      LOGICAL PRTOUT, NOLOG
C
      CHARACTER *8 NAME
      CHARACTER*64 INDSN, AVEDSN, VISDSN, PRTDSN, LOGDSN, SUMDSN
      CHARACTER*64 DQDSN, WHTDSN, TWODSN
C
      EQUIVALENCE ( BUFFER(11), B(1,1) )
C
      COMMON /BLOCKI2/  BUFFER, TAKE
      COMMON /BLOCKI4/ ISTAR, IYEAR, IMON, IDAY, IBASE, CIFLAG, TDTOFF,
     $           TSAMPLE, X, Y, N, A,
     $           NLIMIT, OFFSET,
     $           SCANNO, DSCAN, DARK, NLOCK, NDATA, BDATA,
     $           FTYPE, APCODE, SETDA, WLFLAG, FILTER, JITTR, DJTR,
     $           IREC, NRECS, NWORDS, ENDERR,
     $           TERME, TERMD, TERMI, TERMM, TERMO, TERMP, TERML, TERMV,
     $           VREC, TERMS, TERMQ, TERMW, TERM2
C
      COMMON /BLOCKR4/ STROKE, WEIGHT, DTIME,
     $        ZA, HA0, DEC0, WAVE, WAVES
C
      COMMON /BLOCKR8/ DLAS,
     $         BX, BY, BZ, CON, RA, DEC, HA,
     $         OBX, OBY, OBZ, OCON,
     $         PMRA, PMDEC, PAR, RV, RAM, DECM,
     $         LASER, MTIME
C    
      COMMON /BLOCKL/ PRTOUT, NOLOG
C
      COMMON /BLOCKC/ NAME, INDSN, AVEDSN, VISDSN, PRTDSN, 
     $                LOGDSN, SUMDSN, DQDSN, WHTDSN, TWODSN
C
C  --- End of aver.inc ---