c
c signal searching algorithm 1 common
c
c the following variables pertain to the searching algorithm 1
c
c for each event
c
c hec_s_start start timeslice to search maximum
c hec_s_stop  stop timeslice to search maximum
c
c hec_s_five, hec_s_seven  logical indicating the # of time slices to look at
c              puls shape:  hec_s_five =.FALSE.
c                           hec_s_seven=.FALSE.    => take 3 timeslices
c
c                           hec_s_five =.TRUE.
c                           hec_s_seven=.FALSE.    => take 5 timeslices
c
c                           hec_s_five =.TRUE.
c                           hec_s_seven=.TRUE.     => take 7 timeslices
c
c hec_s_lvl                sigma level to accept an event
c
c hec_s_mc                 apply the sigmacut for searching or not
c
c hec_s_tcomp              used
c
c From work by D. Striegel
c
      logical hec_s_five, hec_s_seven
      integer hec_s_start, hec_s_stop, hec_s_tcomp
      logical hec_s_mc
      real hec_s_lvl
      
      common /ssshec_s1/ hec_s_five, hec_s_seven, 
     +                   hec_s_start, hec_s_stop, 
     +                   hec_s_tcomp,
     +                   hec_s_mc, hec_s_lvl