NAME
        IEEEDPTieee -- convert IEEE double to IEEE single

   SYNOPSIS
          x   = IEEEDPTieee(  y  );
         d0                 d0/d1

        double  y;
        float   x;

   FUNCTION
        Convert IEEE double precision number to IEEE single precision.

   INPUTS
        y - IEEE double precision floating point value

   RESULT
        x - IEEE single precision floating point value

   BUGS

   SEE ALSO
        ieeedpfieee()