Calling the QBMTAG routine

INPUT ARGUMENTS:

METHOD

INTE : =1 if using QIPBTAG, =2 if using QVSRCH.

Following arguments only needed if METHOD=1
(dummy otherwise):

NTRACK

INTE : Number of tracks used by QIPBTAG.

NJET

INTE : Number of jets considered by QIPBTAG.

TRKJET(*)

INTE : ALPHA track number of QIPBTAG jets.

PROBTRK(*)

REAL : QIPBTAG track probabilities.

FRF2TRK(*)

INTE : Row in FRFT bank of QIPBTAG tracks.

Following arguments only needed if METHOD=2
(dummy otherwise).

PVTX(3)

REAL : Position of primary vertex from QVSRCH.

Only needed if METHOD=2 (dummy otherwise), same for following arguments.

SVTX(3,2)

REAL : Positions of two secondary vertices in jet coordinate system from QVSRCH.

DJET(3,2)

REAL DJET(3,2) : Unitized jet directions from QVSRCH.

OUTPUT ARGUMENTS:
Dimensioned 2 to correspond to two event-halves:

CLMASS(2)

REAL : For METHOD=1, = -log10(confidence level) for ``last track" to come from primary vertex (c.l. in range 0-1).
For METHOD=2, = QSQT(CHI**2 (primary) minus CHI**2 (secondary)) for ``last track".

CTSTAR(2)

REAL : Decay angle of ``last track" in ``b" rest frame.

NSEC(2)

INTE : Number of tracks used to reach 1.8 GeV mass. (zero if couldn't reach 1.8 GeV).

Following jet info available only if METHOD=1:

CLMASJ(*)

REAL : Same variables as CLMASS for jets, ordered as in TRKJET

CTSTAJ(*)

REAL : Same variables as CTSTAR for jets, ordered as in TRKJET

NSECJ(*)

INTE : Same variables as NSEC for jets, ordered as in TRKJET

LISTTRK(*)

INTE : List of all ALPHA charged tracks and V0s which were considered by QBMTAG. If the track is neutral, it is a V0. If a V0 is not in the range KFV0T-KLV0T, then it has been created using YTOP, and its daughters are (refitted) copies of tracks from the KFCHT-KLCHT section.

LISTEH(*)

INTE : If track comtributed to 1.8 GeV hemisphere mass then =1 or =2 to show which hemisphere it's in. If =0, then track was rejected.

LISTJET(*)

INTE : If track comtributed to 1.8 GeV jet mass, then =ALPHA track number of jet. If =0, then track was rejected.