1 /*-
2  * Copyright (c) 2007, 2010-2013 Steven G. Kargl
11  * 2. Redistributions in binary form must reproduce the above copyright
47 sincosl(long double x, long double *sn, long double *cs)  in sincosl()  argument
51 	long double y[2];  in sincosl()
61 		 * If x = +-0 or x is a subnormal number, then sin(x) = x and  in sincosl()
66 			*cs = 1;  in sincosl()
68 			__kernel_sincosl(x, 0, 0, sn, cs);  in sincosl()
74 		*sn = x - x;  in sincosl()
75 		*cs = x - x;  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()
90 	case 2:  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()