      SUBROUTINE TBOUND(START,STOP)
C
C GET DATA START AND STOP TIMES
C
      INTEGER*2 STIME(6),ETIME(6)
      REAL*8 START,STOP
C
    1 WRITE(6,*) 'ENTER START TIME (YY/DDD/HH:MM:SS)'
      READ(5,800,ERR=1,END=2) STIME
    2 CONTINUE
C
    3 WRITE(6,*) 'ENTER STOP TIME (YY/DDD/HH:MM:SS)'
      READ(5,800,ERR=3,END=4) ETIME
    4 CONTINUE
C
      IF (STIME(1).GE.0) THEN
       START = REALTIME(STIME)
      ELSE
       WRITE(6,801)
       STOP
      END IF
C
      IF (ETIME(1).GE.0) THEN
       STOP = REALTIME(ETIME)
      ELSE
       WRITE(6,802)
       STOP
      END IF
C
C ASSUME DESIRE TO PROCESS ENTIRE EDR FOR ALL NON-NEGATIVE TIME TAGS
C
      IF (START.EQ.STOP) THEN
       START = 0.0D0
       STOP = 999.0D0
      END IF
C
      WRITE(68,*)
      WRITE(68,805) STIME
      WRITE(68,806) ETIME
C
      RETURN
C
 800  FORMAT(I2,1X,I3,3(1X,I2),1X,I3)
 801  FORMAT(1X,'*TBOUND*  INVALID NEGATIVE START YEAR')
 802  FORMAT(1X,'*TBOUND*  INVALID NEGATIVE STOP YEAR')
 805  FORMAT(1X,'DATA START TIME: ',I2,1X,I3.3,3(1X,I2.2),1X,I3.3)
 806  FORMAT(1X,'DATA STOP TIME:  ',I2,1X,I3.3,3(1X,I2.2),1X,I3.3)
C
      END
