00001 00002 // actual physical parameters: 00003 // 00004 // coner 00005 // epsilon 00006 // ovlim 00007 00008 extern "C" { 00009 void pxcone_( 00010 const int & mode , // 1=>e+e-, 2=>hadron-hadron 00011 const int & ntrak , // Number of particles 00012 const int & itkdm , // First dimension of PTRAK array: 00013 const double * ptrak , // Array of particle 4-momenta (Px,Py,Pz,E) 00014 const double & coner , // Cone size (half angle) in radians 00015 const double & epslon , // Minimum Jet energy (GeV) 00016 const double & ovlim , // Maximum fraction of overlap energy in a jet 00017 const int & mxjet , // Maximum possible number of jets 00018 int & njet , // Number of jets found 00019 double * pjet, // 5-vectors of jets 00020 int * ipass, // Particle k belongs to jet number IPASS(k)-1 00021 // IPASS = -1 if not assosciated to a jet 00022 int * ijmul, // Jet i contains IJMUL[i] particles 00023 int & ierr // = 0 if all is OK ; = -1 otherwise 00024 ); 00025 } 00026 #define pxcone pxcone_