NAME
        IEEEDPSincos -- compute the arc tangent of a floating point number

   SYNOPSIS
          x   = IEEEDPSincos( z ,  y  );
        d0/d1                a0  d0/d1

        double  x,y,*z;

   FUNCTION
        Compute sin and cosine of y in IEEE double precision.
        Store the cosine in *z. Return the sine of y.

   INPUTS
        y - IEEE double precision floating point value
        z - pointer to IEEE double precision floating point number

   RESULT
        x - IEEE double precision floating point value

   BUGS

   SEE ALSO
        ieeedpsin(), ieeedpcos()