This routine calculates the boosted sphericity of the jet in /ZATRS/, /ZAJET/ and /ZAEVT/. ZAUCLU must have been called before, and the number of the jet loaded into IJET of /ZAJET/.
Adopted from a routine by A de Angelis
BS : Boosted sphericity of the jet.
From /ZAJET/ : IJET, current jet number; PJET, the momentum of the jet. From /ZATRS/ : PVEC, seen momentum of tracks; JETNB, jet number of tracks; TRACK, the track number is used locally. From /ZAEVT/ : MTRK, the total number of seen tracks.
none