FUNCTION eis_validate_events , events , start_time , stop_time

valid_events = ''

FOR i = 0,N_ELEMENTS(events) -1 DO BEGIN

    IF (events[i].stop_time  GT start_time)  OR                             $
       (events[i].start_time LT stop_time)   THEN BEGIN

            CASE N_TAGS(valid_events) OF
                0    : valid_events = events[i]
                ELSE : valid_events = [valid_events , events[i]]
            ENDCASE

    ENDIF

ENDFOR


RETURN , valid_events

END