SUBROUTINE KWMOMK(IK, PMOM, UPDATE, CHISQ)
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Constrain the momentum of a particle in the KN list to be PMOM. The track
C  parameters and their covariance matrix are recalculated.
C
C  IK        integer variable (read)
C            KN track number
C
C  PMOM      real variable (read)
C            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  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>