DOUBLE PRECISION FUNCTION KWDST2(TRACKW, X)
#endif
#if !defined(CLEO_DOUBLE)
      REAL FUNCTION KWDST2(TRACKW, X)
#endif
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Finds the distance of closest approach in the x-y plane from a helix
C  to the point X
C
C  TRACKW   real array (read)
C           Track parameters (Px, Py, Pz, E, x, y, z, pt, p, Q)
C
C  X        real array (read)
C           (x,y,z) of point
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>