SUBROUTINE g_preproc_event(preprocessor_keep_event)
*---------------------------------------------------------------------
*   prototype C analysis routine
*
*     purpose and mothods : check the event for defined criteria and
*                           set flag to 1 if it meets these criteria.
*
*
*
*   created apr-29-1996 Dave Meekins
* $Log: g_preproc_event.f,v $
* Revision 1.1  1996/06/10 17:47:43  saw
* Initial revision
*
*---------------------------------------------------------------------


      IMPLICIT NONE
      SAVE

      character*20 here
      parameter (here='g_preproc_event')

      integer*4 preprocessor_keep_event

* make sure to include all the necessary include files
* so that the tests below can be carried out

      INCLUDE 'hms_data_structures.cmn'
      INCLUDE 'sos_data_structures.cmn'
      INCLUDE 'hms_scin_tof.cmn'
      INCLUDE 'sos_scin_tof.cmn'
      INCLUDE 'gen_event_info.cmn'


      preprocessor_keep_event=0

* test for good event

* ALL COINCIDENCE EVENTS, coin only (should disable tracking
* and decoding when analyzing, since no analysis is needed).
       if (gen_event_type.eq.3 .or. gen_event_type.eq.4) then
         preprocessor_keep_event=1
       endif

* ALL HMS (AND COINCIDENCE) EVENTS, (should disable tracking
* and decoding when analyzing, since no analysis is needed).
!       if (gen_event_type.eq.1 .or. gen_event_type.eq.3 .or.
!     &     gen_event_type.eq.4) then
!         preprocessor_keep_event=1
!       endif

* ALL SOS (AND COINCIDENCE) EVENTS, (should disable tracking
* and decoding when analyzing, since no analysis is needed).
!       if (gen_event_type.eq.2 .or. gen_event_type.eq.3 .or.
!     &     gen_event_type.eq.4) then
!         preprocessor_keep_event=1
!       endif

* MEEK'S TESTS. 
* Keep pedestals, SOS and COIN with good beta_notrk, reject HMS
!      if (gen_event_type.eq.1) then  !HMS singles trigger
!        if ((hbeta_notrk.gt.0).and.(hbeta_notrk.lt.0.01))then
!          preprocessor_keep_event=1
!        endif
!
!      else if (gen_event_type.eq.2) then !SOS singles trigger
!        if((sbeta_notrk.gt.0).and.(sbeta_notrk.lt.1.5))then
!          preprocessor_keep_event=1
!        endif
!
!      else if (gen_event_type.eq.3) then !COIN trigger
!        if( ((sbeta_notrk.gt.0).and.(sbeta_notrk.lt.1.5)) .or.
!     &      ((hbeta_notrk.gt.0).and.(hbeta_notrk.lt.0.01)) ) then
!          preprocessor_keep_event=1
!        endif
!
!      else if (gen_event_type.eq.4) then !PED trigger
!         preprocessor_keep_event=1
!
!      else
!        write(6,*) 'g_preproc_event was called for event type',
!     &             gen_event_type
!        write(6,*) '     should only be called for event types 1-4 (I think-JRA)'
!
!      endif

      RETURN
      END