SUBROUTINE KWTOWR(TRACK1, R, TRACK2, LERROR)
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Takes a helix expressed in W form and calculates the new parameters
C  at the radius R.
C
C  TRACK1   real array (read)
C           Initial track parameters (Px, Py, Pz, E, x0, y0, z0, pt, p, Q)
C
C  R        real variable (read)
C           Radius to project track
C
C *TRACK2   real array (write)
C           Track parameters at the new position
C
C *LERROR   logical variable (write)
C           TRUE if the track cannot be projected to this radius
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>