SUBROUTINE KWTOWS(TRACK1, S3, TRACK2)
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Takes a helix expressed in W form and calculates the new parameters
C  at an arc distance s further along the track.
C
C  TRACK1   real array (read)
C           Initial track parameters (Px, Py, Pz, E, x0, y0, z0, pt, p, Q)
C
C  S3       real variable (read)
C           Arc length in 3-D to project track
C
C *TRACK2   real array (write)
C           Track parameters at the new position
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>