SUBROUTINE KUQQ2K(NTRK, ITRK, ITYP, IPNT, LERROR)
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C   Fill KN track list from QQ track list
C
C   Note: NTRKKN is incremented after every call. It is the user's
C         responsibility to clear it at the start of the event.
C
C *NTRK      Integer variable (read/write)
C            Input:  # of tracks to fill from input track list.
C            Output: # of tracks actually filled
C            If NTRK=0, all tracks are used and ITRK(I) is ignored.
C
C  ITRK      Integer variable (read)
C            List of QQ tracks. Ignored if NTRK=0.
C
C  ITYP      Integer variable (read)
C            0   ==> use QQ particle ID
C            1-5 ==> use e/mu/pi/K/p hypothesis
C
C *IPNT      Integer array (write)
C            IPNT(I) = positions in KN track list (packed array, not
C                      necessarily in 1-1 correspondence with ITRK)
C
C *LERROR    Logical variable (write)
C            TRUE ==> output track list overflowed
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>