SUBROUTINE KUCV2K(NTRK, ITRK, ITYP, LDEDX, IPNT, LERROR) C >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>> C Fill KN track list from with V0s from CD 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 V0 tracks in ANLCCD. Ignored if NTRK=0 C C ITYP Integer variable (read) C Assumed particle type: 1-3 ==> Ks/Lambda/Anti-Lambda C C LDEDX Logical variable (read) C TRUE ==> apply dE/dx and B field corrections C FALSE ==> do not apply dE/dx and B field corrections 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 >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>