subroutine kfil_track_cd_list(num_cd, list_cd, type, ldedx,
     *                              lcovar, klist, error)
*
* begin_doc
*
*  Load a list of CD tracks and their errors into the KWFIT track list
*  using the specified particle hypothesis.
*
*  Input Parameters:
*  num_cd        integer variable
*                Number of CD tracks to fill
*
*  list_cd(*)    integer array
*                List of CD tracks. The track number is the one which
*                ranges from 1 - ntrkcd+nbadcd
*
*  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
*
*  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