integer function kget_track_p4(ktrk, p4)
*
* begin_doc
*
*  Returns the 4-momentum for a KWFIT track
*
*  Input Parameters:
*  ktrk           integer variable
*                 KWFIT track number
*
*  Output Parameters:
*  p4(4)          double precision array
*                 4-momentum
*
*  Return value   integer
*                 Error flag
*                   0 ==> OK
*                   1 ==> Bad input track number
*
*  Other routines:
*
*  Notes:
*
*  Author:   Paul R Avery      Created:  Mon Jul 28 06:12:33 EDT 1997
*
*  Major revisions:
*
*
* end_doc