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 UNDEFINED (A-Z)
      SAVE
      CHARACTER *(*) VERSN, VERSD
      INTEGER *4 I, IERR
      CHARACTER *4 LINE
      INCLUDE 'AVER.INC'
      TSAMPLE = 4
      TERME = 6
      TERMD = 4
      TERMI = 5
      TERMM = 6
      TERMO = 7
      TERMP = 8
      TERML = 9
      TERMV =10
      TERMS =11
      TERM2 =14
      IREC   = 0
      VREC   = 0
      NRECS  = 78
      NWORDS = 13
      ENDERR = 40
C-----------------------------------------------------------------------
C   Initialize the list of filter wavelengths
      Waves( 0) =   700.0
      WAVES( 1) =   399.7
      WAVES( 2) =   400. 
      WAVES( 3) =   400. 
      WAVES( 4) =   451.8
      WAVES( 5) =   450.2
      WAVES( 6) =   450. 
      WAVES( 7) =   501.2
      WAVES( 8) =   500.
      WAVES( 9) =   500. 
      WAVES(10) =   550.1
      WAVES(11) =   550.    
      WAVES(12) =   550.    
      WAVES(13) =   600.9
      WAVES(14) =   599.5
      WAVES(15) =   600. 
      WAVES(16) =   650.6
      WAVES(17) =   650. 
      WAVES(18) =   650. 
      WAVES(19) =   699.0
      WAVES(20) =   700. 
      WAVES(21) =   700. 
      WAVES(22) =   750.1
      WAVES(23) =   750. 
      WAVES(24) =   750. 
      WAVES(25) =   799.2
      WAVES(26) =   800.0
      WAVES(27) =   800. 
      WAVES(28) =   687. 
      WAVES(29) =   397. 
      WAVES(30) =   410. 
      WAVES(31) =   434. 
      WAVES(32) =   486. 
      WAVES(33) =     0.
C-----------------------------------------------------------------------
C     Get the predicted baseline components
C
      OPEN(UNIT=52,FILE='BASELINE.DAT',IOSTAT=IERR, STATUS='OLD' )
      IF ( IERR .NE. 0 ) THEN
          WRITE(6,*) ' BASELINE FILE NOT IN CURRENT DIRECTORY '
          OPEN(UNIT=52,FILE='X:BASELINE.DAT',IOSTAT=IERR, STATUS='OLD')
          IF ( IERR .NE. 0 ) THEN
              WRITE(6,*) ' NEITHER IS BASELINE FILE ON X DISK '
              STOP
          ELSE
              WRITE(6,*) ' USING BASELINE FILE FROM X DISK '
          END IF
      END IF
      READ(52,'(A/A)') LINE, LINE
      DO 50 I = 1, MAXBASE
          READ (52,'(I5,4F15.6)') IERR, OBX(I), OBY(I), OBZ(I), OCON(I)
Comment   WRITE( 6,'(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)
   50 CONTINUE
C.......................................................................
      WRITE (TERMM,1001) VERSN, VERSD
      RETURN
 1001 FORMAT(/' AVER:  averages delays from Mt. Wilson optical ',
     $ 'interferometer data.'/, 10x, ' one-color and visi data ' /
     $  10X, ' (Version ',A,' - ',A,')'/)
C
      END