__k_sincos
extern double __k_sincos __P((double, double, double *));
*s = __k_sincos(y[0], y[1], c);
*c = -__k_sincos(y[0], y[1], s);
*s = -__k_sincos(y[0], y[1], c);
*c = __k_sincos(y[0], y[1], s);
*s = __k_sincos(pi * fabs(x), 0.0, c);
*s = __k_sincos(pi * t, 0.0, c);
*c = __k_sincos(pi * t, 0.0, s);