Lines Matching +full:cs +full:- +full:x
1 /*-
2 * Copyright (c) 2007, 2010-2013 Steven G. Kargl
47 sincosl(long double x, long double *sn, long double *cs) in sincosl() argument
53 z.e = x; in sincosl()
58 /* Optimize the case where x is already within range. */ in sincosl()
61 * If x = +-0 or x is a subnormal number, then sin(x) = x and in sincosl()
62 * cos(x) = 1. in sincosl()
65 *sn = x; in sincosl()
66 *cs = 1; in sincosl()
68 __kernel_sincosl(x, 0, 0, sn, cs); in sincosl()
72 /* If x = NaN or Inf, then sin(x) and cos(x) are NaN. */ in sincosl()
74 *sn = x - x; in sincosl()
75 *cs = x - x; in sincosl()
80 e0 = __ieee754_rem_pio2l(x, y); in sincosl()
84 __kernel_sincosl(y[0], y[1], 1, sn, cs); in sincosl()
87 __kernel_sincosl(y[0], y[1], 1, cs, sn); in sincosl()
88 *cs = -*cs; in sincosl()
91 __kernel_sincosl(y[0], y[1], 1, sn, cs); in sincosl()
92 *sn = -*sn; in sincosl()
93 *cs = -*cs; in sincosl()
96 __kernel_sincosl(y[0], y[1], 1, cs, sn); in sincosl()
97 *sn = -*sn; in sincosl()