SUBROUTINE OPSTART ( versn, versd )
C
C    OPSTART is part of program AVER in the MWOI data reduction package.
C    It outputs a pleasent introductory message and includes a bunch of
C    data statements.
C
      IMPLICIT NONE           
      SAVE
      CHARACTER *(*) VERSN, VERSD
      INTEGER *4 I, IERR
      CHARACTER *4 LINE
      INCLUDE 'fritz.inc'
      TSAMPLE = 4
      TERME = 6
      TERMD = 4
      TERMI = 5
      TERMM = 6
      TERMO = 7
      TERMP = 8
      TERML = 9
      TERMV =10
      TERMS =11
      TERMQ =12
      IREC   = 0
      VREC   = 0
      NRECS  = 78
      NWORDS = 13
      ENDERR = 40
C-----------------------------------------------------------------------
C     Get the predicted baseline components
C
      OPEN(UNIT=52,FILE='/home/cah/catalogs/mark3/baseline.dat',
     +IOSTAT=IERR )
      IF ( IERR .NE. 0 ) THEN
          WRITE(TERME,*) ' BASELINE FILE IS MISSING '
          STOP
      END IF
      READ(52,'(A/A)') LINE, LINE
      DO I = 1, MAXBASE
          READ (52,'(I5,4F15.6)') IERR, OBX(I), OBY(I), OBZ(I), OCON(I)
          OBX(I)  = 1.D6*OBX(I)
          OBY(I)  = 1.D6*OBY(I)
          OBZ(I)  = 1.D6*OBZ(I)
          OCON(I) = 1.D6*OCON(I)
      END DO
C.......................................................................
      WRITE (TERMM,1001) VERSN, VERSD
      RETURN
 1001 FORMAT(/' FRITZ:  averages delays from Mt. Wilson optical ',
     $ 'interferometer data.'/, 10x, ' one-color  and  vis data ' /
     $  10X, ' (Version ',A,' - ',A,')'/)
C
      END