DOUBLE PRECISION FUNCTION KWARCL(TRACKW)
#endif
#if !defined(CLEO_DOUBLE)
      REAL FUNCTION KWARCL(TRACKW)
#endif
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C    Returns the arc length s from the origin of the coordinate system to
C    the current position of the track.
C
C  TRACKW   real array
C           Track parameters (Px, Py, Pz, E, x0, y0, z0, pt, p, Q)
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>