DOUBLE PRECISION FUNCTION KLDSTX(X0, ETA, XP)
#endif
#if !defined(CLEO_DOUBLE)
      REAL FUNCTION KLDSTX(X0, ETA, XP)
#endif
 
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>
C    Returns distance of the point xp from a line.
C
C  X0      real array
C          (x,y,z) of initial point defining line
C
C  ETA     real array
C          direction cosines of line (do not have to be normalized)
C
C  XP      real array
C          (x,y,z) of point whose distance we are trying to find
C  >>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>>