subroutine hec_search
c
c signal search package
c
c From work by D. Striegel
c
      implicit none
c
      include'hec_par.inc'      !parameter common
      include'hec_datacard.inc' !datacard values
      include'hec_search.inc'   !search
c
      integer ic
c
c initialize the variables filled by all searching algorithm
c as if the search package was not requested
c
      do ic = 1, i_adc_dim
        hec_s_chan(ic) = .false.
      enddo
      call vzero(hec_s_result, i_adc_dim*i_tim_dim)
      call vzero(hec_s_im, i_adc_dim)
      hec_s_hit = .false.
      hec_s_cells = 0
      call vzero(hec_s_count, i_adc_dim)
c
c initialize the variables for algorithm 1
c      
      if (hec_s_dk .eq. 1) call hec_search_1_ini
c
      end