subroutine hec_search_1_ini
c
c initialize the variables for algorithm 1
c
c From work by D. Striegel
c
      implicit none
c
      include'hec_par.inc'      !parameter common
      include'hec_datacard.inc' !datacard common
      include'hec_search_1_sys.inc' !search algorithm 1
c
c initialize the variables for algorithm 1
c      
      if (irunpd.lt.4) return
c
      hec_s_start = nint(hec_s_algo(1))
      hec_s_stop  = nint(hec_s_algo(2))
      hec_s_tcomp = nint(hec_s_algo(3))
      if (nint(hec_s_algo(4)) .eq. 1) then
        hec_s_mc=.TRUE.
      else
        hec_s_mc=.FALSE.
      endif 			
      hec_s_lvl= hec_s_algo(5)
c
      if (hec_s_tcomp.eq.3) then
        hec_s_five=.FALSE.
        hec_s_seven=.FALSE.
      elseif (hec_s_tcomp.eq.5) then
        hec_s_five=.TRUE.
        hec_s_seven=.FALSE.
      elseif (hec_s_tcomp.eq.7) then
        hec_s_five=.TRUE.
        hec_s_seven=.TRUE.
      else
        print *, ' *** hec_search_1_ini'
        print *, ' *** number of timeslices not implemented! ', 
     +  hec_s_tcomp
        stop
      endif
c
      end