SUBROUTINE KWENGK(IK, ENERGY, UPDATE, CHISQ)
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Constrain the energy of a particle in the KN list to be ENERGY. The track
C  parameters and their covariance matrix are recalculated.
C
C  IK        integer variable (read)
C            KN track number
C
C  ENERGY    real variable (read)
C            Energy 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 energy constraint is described in KWENG.
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>