SUBROUTINE KWTOWX(TRACK1, X, TRACK2)
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Takes a helix expressed in W form and calculates the new parameters
C  nearest (nearest in the x-y plane) the point X(1-3).
C
C  TRACK1   real array (read)
C           Initial track parameters (Px, Py, Pz, E, x0, y0, z0, pt, p, Q)
C
C  X(3)     real array (read)
C           Position of point
C
C *TRACK2   real array (write)
C           Track parameters at the new position
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>