subroutine kttune IMPLICIT NONE #include "ktcut.inc" c c set default parameters for the cone algorithm c c ktjet_etamax = 3.2 ktjet_etamin = -2.0 ktjet_ptmin = 2.5 ktjet_imode = 3111 ktjet_ireco = 1 ktjet_RCUT1 = 0.1 ktjet_RCUT2 = 0.5 ktjet_RMAC = 1.0 ktjet_SCALE = -3. KTJET_SCVAR = 0.8 c return end