C
C--- FRITZ.INC
C
      INTEGER *4 MAXERR, NFILT, MAXBASE, MAXS
      PARAMETER ( NFILT   =   4 )
      PARAMETER ( MAXERR  = 100 )
      PARAMETER ( MAXBASE =  39 )
      INTEGER *2 BUFFER(1024), B(13,78), TAKE(13, MAXERR)
      INTEGER *4 TSAMPLE, X(NFILT), Y(NFILT), N(NFILT), A(NFILT)
      INTEGER *4 ISCAN, DSCAN, DARK(NFILT), NLOCK, NDATA, BDATA(NFILT)
      INTEGER *4 NLIMIT(20,3:4), OFFSET, IREC, NRECS, NWORDS, ENDERR
      INTEGER *4 LIMITS(20)
      INTEGER *4 MAKEHI
      INTEGER *4 FTYPE, APCODE, SETDA, WLFLAG, FILTER(4), JITTR, DJTR
      INTEGER *4 TERME, TERMD, TERMI, TERMM, TERMO, TERMP, TERML, TERMV
      INTEGER *4 VREC, TERMS, TERMQ
      INTEGER *4 ISTAR, IYEAR, IMON, IDAY, IBASE, CIFLAG
      REAL *4 ZA, HA0, DEC0, DRA, DDEC
      REAL *8 BX, BY, BZ, CON, RA, DEC, HA
      REAL *8 OBX(MAXBASE), OBY(MAXBASE), OBZ(MAXBASE), OCON(MAXBASE)
      REAL *8 SIGMA, STROKE, WEIGHT, DTIME
      REAL *8 LASER, MTIME, DELAY1, DELAY2, DELAY3
      CHARACTER *8 NAME
      CHARACTER*64 INDSN, AVEDSN, VISDSN, PRTDSN, LOGDSN
      LOGICAL PRTOUT, NOLOG
C-----------------------------------------------------------------------
      EQUIVALENCE ( BUFFER(11), B(1,1) )
      COMMON / I2BLK / BUFFER, TAKE
      COMMON / I4BLK / TSAMPLE, X, Y, N, A,
     $         ISCAN, DSCAN, DARK, NLOCK, NDATA, BDATA,
     $         NLIMIT, LIMITS, OFFSET, IREC, NRECS, NWORDS, ENDERR,
     $         FTYPE, APCODE, SETDA, WLFLAG, FILTER, JITTR, DJTR,
     $         TERME, TERMD, TERMI, TERMM, TERMO, TERMP, TERML, TERMV,
     $         VREC, TERMS, TERMQ,
     $         ISTAR, IYEAR, IMON, IDAY, IBASE, CIFLAG, MAKEHI
      COMMON / R4BLK / ZA, HA0, DEC0, DRA, DDEC
      COMMON / R8BLK / BX, BY, BZ, CON, RA, DEC, HA,
     $         OBX, OBY, OBZ, OCON,
     $         SIGMA, STROKE, WEIGHT, DTIME, 
     $         LASER, MTIME, DELAY1, DELAY2, DELAY3
      COMMON / CHARBLK / NAME, INDSN, AVEDSN, VISDSN, PRTDSN, LOGDSN
      COMMON / LOGBLK / PRTOUT, NOLOG
C-----------------------------------------------------------------------
C      BUFFER contains one physical block of data.
C      B(I,J) is the i'th word of the J'th record.
C     ISTAR   I*4    STAR NUMBER
C     NAME    C*8    Star name in 4A4 format
C     IYEAR   I*4    year
C     IMON    I*4    month of year 1=Jan, 12=DEC
C     IDAY    I*4    Day of month
C     WEIGHT  R*4    weight for record.
C     TIME0   R*8    time, in seconds, from start of day (most sig word)
C     TIME1   R*8    time, ( least sig word)
C     DELAY1  R*8    one color delay, in microns.
C     DELAY2  R*8    two color delay
C     DELAY3  R*8    residual delay.
C     RA      R*8    RA  in current coordinates.
C     DEC     R*8    DEC in current coordinates.
C     HA      R*8    Hour angle, in radians
C     BX      R*8    baseline  toward meridian
C     BY      R*8    baseline  toward west
C     BZ      R*8    baseline  toward N pole
C     CON     R*8    baseline constant
C     SIGMA   R*4    rms of short average laser positions.
C     DRA     R*4    RA observed  - RA calculated
C     DDEC    R*4    DEC observed - DEC calculated
C     T2AVG   R*4    Average of time squared
C     IBASE   I*4    Baseline number
C     TWON    I*4    Number of points in two color average
C     TWOAVE  R*4    The two color average delay
C     TWORMS  R*4    rms of two color delay