subroutine conetune implicit none #include "conecut.inc" c c set default parameters for the cone algorithm c c Conejet_etamax = 3.2 Conejet_etamin = -2.0 Conejet_ptmin = 2.5 Conejet_seed = 0.5 Conejet_rcone = 1. c return end