subroutine kfil_track_cd_all(type, ldedx, lcovar, num_klist, * klist, error) * * begin_doc * * Load all CD tracks and errors into the KWFIT track list using the * specified particle hypothesis. The track loop is from 1 - ntrkcd * and the routine uses mwhere(i,type) to find the correct fit. * * Input Parameters: * type integer variable * Particle type to be stored: 1-5 ==> e/mu/pi/K/p * * ldedx Logical variable * TRUE ==> apply dE/dx correction if a track was not * Kalman fit. Kalman fit tracks are untouched. * FALSE ==> do not apply any dE/dx corrections * * lcovar Logical variable * TRUE ==> Calculate error matrix * FALSE ==> Do not calculate error matrix * * Output Parameters: * num_klist integer variable * Length of klist = ntrkcd. If there are errors filling * tracks, however, some slots in klist(*) will be empty. * * klist(*) integer array * List of KWFIT track numbers. This list must be declared * by the caller to be of sufficient size to hold all the * tracks. If a track cannot be filled, the corresponding * entry in klist is set to zero. * * error integer variable * Error flag * = 0 ==> all OK * > 0 ==> error * * Other routines: * * Notes: * * Author: Paul R Avery Created: Mon Jul 28 04:28:10 EDT 1997 * * Major revisions: * * * end_doc