SUBROUTINE KW4VCK(IK, P4C, UPDATE, CHISQ)
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Constrain the 4-momentum of a particle in the KN list to be P4C. The track
C  parameters and their covariance matrix are recalculated.
C
C  IK        integer variable (read)
C            KN track number
C
C  P4C       real variable (read)
C            4-momentum to constrain to
C
C  UPDATE    integer variable (read)
C            0 ==> do not update track parameters (just calculate chisq)
C            1 ==> update track parameters and covariance matrix
C
C *CHISQ     real variable (write)
C            chisq of fit. Set to -1 if error.
C
C
C   The momentum constraint is described in KWMOM
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>