subroutine kset_track_info(ktrk, trkw, Vtkw, mass, lcovar,
     *                           lxyz_exist, lmass_fix, error)
*
* begin_doc
*
*  Inserts a particle defined by the calling arguments into the track list
*
*  Input Parameters:
*  ktrk        integer variable
*              Track number to store info.
*
*  trkw(10)    double precision array
*              Track parameters in W format (Px,Py,Pz,E,x,y,z,pt,p,Q)
*
*  Vtkw(7,7)   double precision array
*              Covariance matrix of trkw (assumed to be 7x7)
*
*  mass        double precision variable
*              Mass used in 4-momentum (not checked)
*
*  lcovar      Logical variable
*              TRUE  ==> covariance matrix exists
*              FALSE ==> covariance matrix does not exist
*
*  lxyz_exist  Logical variable
*              TRUE  ==> position info can be used in fit
*              FALSE ==> position info cannot be used in fit
*              Position info is always stored.
*
*  lmass_fix   Logical variable
*              TRUE  ==> mass is fixed (fixed during track updates)
*              FALSE ==> mass is floating
*
*  Output Parameters:
*  error       integer variable
*              0 if OK
*              1 if error
*
*  Other routines:
*
*  Notes:
*
*  Author:   Paul R Avery      Created:  Sun Jul 27 11:47:57 EDT 1997
*
*  Major revisions:
*
*
* end_doc