DOUBLE PRECISION FUNCTION KWDST3(TRACKW, X)
#endif
#if !defined(CLEO_DOUBLE)
      REAL FUNCTION KWDST3(TRACKW, X)
#endif
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C  Finds the 3-D distance of closest approach from a helix 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  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>