1*25c28e83SPiotr Jasiukajtis /*
2*25c28e83SPiotr Jasiukajtis  * CDDL HEADER START
3*25c28e83SPiotr Jasiukajtis  *
4*25c28e83SPiotr Jasiukajtis  * The contents of this file are subject to the terms of the
5*25c28e83SPiotr Jasiukajtis  * Common Development and Distribution License (the "License").
6*25c28e83SPiotr Jasiukajtis  * You may not use this file except in compliance with the License.
7*25c28e83SPiotr Jasiukajtis  *
8*25c28e83SPiotr Jasiukajtis  * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
9*25c28e83SPiotr Jasiukajtis  * or http://www.opensolaris.org/os/licensing.
10*25c28e83SPiotr Jasiukajtis  * See the License for the specific language governing permissions
11*25c28e83SPiotr Jasiukajtis  * and limitations under the License.
12*25c28e83SPiotr Jasiukajtis  *
13*25c28e83SPiotr Jasiukajtis  * When distributing Covered Code, include this CDDL HEADER in each
14*25c28e83SPiotr Jasiukajtis  * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
15*25c28e83SPiotr Jasiukajtis  * If applicable, add the following below this CDDL HEADER, with the
16*25c28e83SPiotr Jasiukajtis  * fields enclosed by brackets "[]" replaced with your own identifying
17*25c28e83SPiotr Jasiukajtis  * information: Portions Copyright [yyyy] [name of copyright owner]
18*25c28e83SPiotr Jasiukajtis  *
19*25c28e83SPiotr Jasiukajtis  * CDDL HEADER END
20*25c28e83SPiotr Jasiukajtis  */
21*25c28e83SPiotr Jasiukajtis /*
22*25c28e83SPiotr Jasiukajtis  * Copyright 2011 Nexenta Systems, Inc.  All rights reserved.
23*25c28e83SPiotr Jasiukajtis  */
24*25c28e83SPiotr Jasiukajtis /*
25*25c28e83SPiotr Jasiukajtis  * Copyright 2005 Sun Microsystems, Inc.  All rights reserved.
26*25c28e83SPiotr Jasiukajtis  * Use is subject to license terms.
27*25c28e83SPiotr Jasiukajtis  */
28*25c28e83SPiotr Jasiukajtis 
29*25c28e83SPiotr Jasiukajtis /*
30*25c28e83SPiotr Jasiukajtis  * __vcosf: single precision vector cos
31*25c28e83SPiotr Jasiukajtis  *
32*25c28e83SPiotr Jasiukajtis  * Algorithm:
33*25c28e83SPiotr Jasiukajtis  *
34*25c28e83SPiotr Jasiukajtis  * For |x| < pi/4, approximate sin(x) by a polynomial x+x*z*(S0+
35*25c28e83SPiotr Jasiukajtis  * z*(S1+z*S2)) and cos(x) by a polynomial 1+z*(-1/2+z*(C0+z*(C1+
36*25c28e83SPiotr Jasiukajtis  * z*C2))), where z = x*x, all evaluated in double precision.
37*25c28e83SPiotr Jasiukajtis  *
38*25c28e83SPiotr Jasiukajtis  * Accuracy:
39*25c28e83SPiotr Jasiukajtis  *
40*25c28e83SPiotr Jasiukajtis  * The largest error is less than 0.6 ulps.
41*25c28e83SPiotr Jasiukajtis  */
42*25c28e83SPiotr Jasiukajtis 
43*25c28e83SPiotr Jasiukajtis #include <sys/isa_defs.h>
44*25c28e83SPiotr Jasiukajtis 
45*25c28e83SPiotr Jasiukajtis #ifdef _LITTLE_ENDIAN
46*25c28e83SPiotr Jasiukajtis #define	HI(x)	*(1+(int *)&x)
47*25c28e83SPiotr Jasiukajtis #define	LO(x)	*(unsigned *)&x
48*25c28e83SPiotr Jasiukajtis #else
49*25c28e83SPiotr Jasiukajtis #define	HI(x)	*(int *)&x
50*25c28e83SPiotr Jasiukajtis #define	LO(x)	*(1+(unsigned *)&x)
51*25c28e83SPiotr Jasiukajtis #endif
52*25c28e83SPiotr Jasiukajtis 
53*25c28e83SPiotr Jasiukajtis #ifdef __RESTRICT
54*25c28e83SPiotr Jasiukajtis #define	restrict _Restrict
55*25c28e83SPiotr Jasiukajtis #else
56*25c28e83SPiotr Jasiukajtis #define	restrict
57*25c28e83SPiotr Jasiukajtis #endif
58*25c28e83SPiotr Jasiukajtis 
59*25c28e83SPiotr Jasiukajtis extern int __vlibm_rem_pio2m(double *, double *, int, int, int);
60*25c28e83SPiotr Jasiukajtis 
61*25c28e83SPiotr Jasiukajtis static const double C[] = {
62*25c28e83SPiotr Jasiukajtis 	-1.66666552424430847168e-01,	/* 2^ -3 * -1.5555460000000 */
63*25c28e83SPiotr Jasiukajtis 	8.33219196647405624390e-03,	/* 2^ -7 *  1.11077E0000000 */
64*25c28e83SPiotr Jasiukajtis 	-1.95187909412197768688e-04,	/* 2^-13 * -1.9956B60000000 */
65*25c28e83SPiotr Jasiukajtis 	1.0,
66*25c28e83SPiotr Jasiukajtis 	-0.5,
67*25c28e83SPiotr Jasiukajtis 	4.16666455566883087158e-02,	/* 2^ -5 *  1.55554A0000000 */
68*25c28e83SPiotr Jasiukajtis 	-1.38873036485165357590e-03,	/* 2^-10 * -1.6C0C1E0000000 */
69*25c28e83SPiotr Jasiukajtis 	2.44309903791872784495e-05,	/* 2^-16 *  1.99E24E0000000 */
70*25c28e83SPiotr Jasiukajtis 	0.636619772367581343075535,	/* 2^ -1  * 1.45F306DC9C883 */
71*25c28e83SPiotr Jasiukajtis 	6755399441055744.0,		/* 2^ 52  * 1.8000000000000 */
72*25c28e83SPiotr Jasiukajtis 	1.570796326734125614166,	/* 2^  0  * 1.921FB54400000 */
73*25c28e83SPiotr Jasiukajtis 	6.077100506506192601475e-11,	/* 2^-34  * 1.0B4611A626331 */
74*25c28e83SPiotr Jasiukajtis };
75*25c28e83SPiotr Jasiukajtis 
76*25c28e83SPiotr Jasiukajtis #define	S0	C[0]
77*25c28e83SPiotr Jasiukajtis #define	S1	C[1]
78*25c28e83SPiotr Jasiukajtis #define	S2	C[2]
79*25c28e83SPiotr Jasiukajtis #define	one	C[3]
80*25c28e83SPiotr Jasiukajtis #define	mhalf	C[4]
81*25c28e83SPiotr Jasiukajtis #define	C0	C[5]
82*25c28e83SPiotr Jasiukajtis #define	C1	C[6]
83*25c28e83SPiotr Jasiukajtis #define	C2	C[7]
84*25c28e83SPiotr Jasiukajtis #define	invpio2	C[8]
85*25c28e83SPiotr Jasiukajtis #define	c3two51	C[9]
86*25c28e83SPiotr Jasiukajtis #define	pio2_1  C[10]
87*25c28e83SPiotr Jasiukajtis #define	pio2_t	C[11]
88*25c28e83SPiotr Jasiukajtis 
89*25c28e83SPiotr Jasiukajtis #define	PREPROCESS(N, index, label)					\
90*25c28e83SPiotr Jasiukajtis 	hx = *(int *)x;							\
91*25c28e83SPiotr Jasiukajtis 	ix = hx & 0x7fffffff;						\
92*25c28e83SPiotr Jasiukajtis 	t = *x;								\
93*25c28e83SPiotr Jasiukajtis 	x += stridex;							\
94*25c28e83SPiotr Jasiukajtis 	if (ix <= 0x3f490fdb) { /* |x| < pi/4 */			\
95*25c28e83SPiotr Jasiukajtis 		if (ix == 0) {						\
96*25c28e83SPiotr Jasiukajtis 			y[index] = one;					\
97*25c28e83SPiotr Jasiukajtis 			goto label;					\
98*25c28e83SPiotr Jasiukajtis 		}							\
99*25c28e83SPiotr Jasiukajtis 		y##N = (double)t;					\
100*25c28e83SPiotr Jasiukajtis 		n##N = 1;						\
101*25c28e83SPiotr Jasiukajtis 	} else if (ix <= 0x49c90fdb) { /* |x| < 2^19*pi */		\
102*25c28e83SPiotr Jasiukajtis 		y##N = (double)t;					\
103*25c28e83SPiotr Jasiukajtis 		medium = 1;						\
104*25c28e83SPiotr Jasiukajtis 	} else {							\
105*25c28e83SPiotr Jasiukajtis 		if (ix >= 0x7f800000) { /* inf or nan */		\
106*25c28e83SPiotr Jasiukajtis 			y[index] = t / t;				\
107*25c28e83SPiotr Jasiukajtis 			goto label;					\
108*25c28e83SPiotr Jasiukajtis 		}							\
109*25c28e83SPiotr Jasiukajtis 		z##N = y##N = (double)t;				\
110*25c28e83SPiotr Jasiukajtis 		hx = HI(y##N);						\
111*25c28e83SPiotr Jasiukajtis 		n##N = ((hx >> 20) & 0x7ff) - 1046;			\
112*25c28e83SPiotr Jasiukajtis 		HI(z##N) = (hx & 0xfffff) | 0x41600000;			\
113*25c28e83SPiotr Jasiukajtis 		n##N = __vlibm_rem_pio2m(&z##N, &y##N, n##N, 1, 0) + 1;	\
114*25c28e83SPiotr Jasiukajtis 		z##N = y##N * y##N;					\
115*25c28e83SPiotr Jasiukajtis 		if (n##N & 1) { /* compute cos y */			\
116*25c28e83SPiotr Jasiukajtis 			f##N = (float)(one + z##N * (mhalf + z##N *	\
117*25c28e83SPiotr Jasiukajtis 			    (C0 + z##N * (C1 + z##N * C2))));		\
118*25c28e83SPiotr Jasiukajtis 		} else { /* compute sin y */				\
119*25c28e83SPiotr Jasiukajtis 			f##N = (float)(y##N + y##N * z##N * (S0 +	\
120*25c28e83SPiotr Jasiukajtis 			    z##N * (S1 + z##N * S2)));			\
121*25c28e83SPiotr Jasiukajtis 		}							\
122*25c28e83SPiotr Jasiukajtis 		y[index] = (n##N & 2)? -f##N : f##N;			\
123*25c28e83SPiotr Jasiukajtis 		goto label;						\
124*25c28e83SPiotr Jasiukajtis 	}
125*25c28e83SPiotr Jasiukajtis 
126*25c28e83SPiotr Jasiukajtis #define	PROCESS(N)							\
127*25c28e83SPiotr Jasiukajtis 	if (medium) {							\
128*25c28e83SPiotr Jasiukajtis 		z##N = y##N * invpio2 + c3two51;			\
129*25c28e83SPiotr Jasiukajtis 		n##N = LO(z##N) + 1;					\
130*25c28e83SPiotr Jasiukajtis 		z##N -= c3two51;					\
131*25c28e83SPiotr Jasiukajtis 		y##N = (y##N - z##N * pio2_1) - z##N * pio2_t;		\
132*25c28e83SPiotr Jasiukajtis 	}								\
133*25c28e83SPiotr Jasiukajtis 	z##N = y##N * y##N;						\
134*25c28e83SPiotr Jasiukajtis 	if (n##N & 1) { /* compute cos y */				\
135*25c28e83SPiotr Jasiukajtis 		f##N = (float)(one + z##N * (mhalf + z##N * (C0 +	\
136*25c28e83SPiotr Jasiukajtis 		    z##N * (C1 + z##N * C2))));				\
137*25c28e83SPiotr Jasiukajtis 	} else { /* compute sin y */					\
138*25c28e83SPiotr Jasiukajtis 		f##N = (float)(y##N + y##N * z##N * (S0 + z##N * (S1 +	\
139*25c28e83SPiotr Jasiukajtis 		    z##N * S2)));					\
140*25c28e83SPiotr Jasiukajtis 	}								\
141*25c28e83SPiotr Jasiukajtis 	*y = (n##N & 2)? -f##N : f##N;					\
142*25c28e83SPiotr Jasiukajtis 	y += stridey
143*25c28e83SPiotr Jasiukajtis 
144*25c28e83SPiotr Jasiukajtis void
__vcosf(int n,float * restrict x,int stridex,float * restrict y,int stridey)145*25c28e83SPiotr Jasiukajtis __vcosf(int n, float *restrict x, int stridex, float *restrict y,
146*25c28e83SPiotr Jasiukajtis     int stridey)
147*25c28e83SPiotr Jasiukajtis {
148*25c28e83SPiotr Jasiukajtis 	double		y0, y1, y2, y3;
149*25c28e83SPiotr Jasiukajtis 	double		z0, z1, z2, z3;
150*25c28e83SPiotr Jasiukajtis 	float		f0, f1, f2, f3, t;
151*25c28e83SPiotr Jasiukajtis 	int		n0 = 0, n1 = 0, n2 = 0, n3, hx, ix, medium;
152*25c28e83SPiotr Jasiukajtis 
153*25c28e83SPiotr Jasiukajtis 	y -= stridey;
154*25c28e83SPiotr Jasiukajtis 
155*25c28e83SPiotr Jasiukajtis 	for (;;) {
156*25c28e83SPiotr Jasiukajtis begin:
157*25c28e83SPiotr Jasiukajtis 		y += stridey;
158*25c28e83SPiotr Jasiukajtis 
159*25c28e83SPiotr Jasiukajtis 		if (--n < 0)
160*25c28e83SPiotr Jasiukajtis 			break;
161*25c28e83SPiotr Jasiukajtis 
162*25c28e83SPiotr Jasiukajtis 		medium = 0;
163*25c28e83SPiotr Jasiukajtis 		PREPROCESS(0, 0, begin);
164*25c28e83SPiotr Jasiukajtis 
165*25c28e83SPiotr Jasiukajtis 		if (--n < 0)
166*25c28e83SPiotr Jasiukajtis 			goto process1;
167*25c28e83SPiotr Jasiukajtis 
168*25c28e83SPiotr Jasiukajtis 		PREPROCESS(1, stridey, process1);
169*25c28e83SPiotr Jasiukajtis 
170*25c28e83SPiotr Jasiukajtis 		if (--n < 0)
171*25c28e83SPiotr Jasiukajtis 			goto process2;
172*25c28e83SPiotr Jasiukajtis 
173*25c28e83SPiotr Jasiukajtis 		PREPROCESS(2, (stridey << 1), process2);
174*25c28e83SPiotr Jasiukajtis 
175*25c28e83SPiotr Jasiukajtis 		if (--n < 0)
176*25c28e83SPiotr Jasiukajtis 			goto process3;
177*25c28e83SPiotr Jasiukajtis 
178*25c28e83SPiotr Jasiukajtis 		PREPROCESS(3, (stridey << 1) + stridey, process3);
179*25c28e83SPiotr Jasiukajtis 
180*25c28e83SPiotr Jasiukajtis 		if (medium) {
181*25c28e83SPiotr Jasiukajtis 			z0 = y0 * invpio2 + c3two51;
182*25c28e83SPiotr Jasiukajtis 			z1 = y1 * invpio2 + c3two51;
183*25c28e83SPiotr Jasiukajtis 			z2 = y2 * invpio2 + c3two51;
184*25c28e83SPiotr Jasiukajtis 			z3 = y3 * invpio2 + c3two51;
185*25c28e83SPiotr Jasiukajtis 
186*25c28e83SPiotr Jasiukajtis 			n0 = LO(z0) + 1;
187*25c28e83SPiotr Jasiukajtis 			n1 = LO(z1) + 1;
188*25c28e83SPiotr Jasiukajtis 			n2 = LO(z2) + 1;
189*25c28e83SPiotr Jasiukajtis 			n3 = LO(z3) + 1;
190*25c28e83SPiotr Jasiukajtis 
191*25c28e83SPiotr Jasiukajtis 			z0 -= c3two51;
192*25c28e83SPiotr Jasiukajtis 			z1 -= c3two51;
193*25c28e83SPiotr Jasiukajtis 			z2 -= c3two51;
194*25c28e83SPiotr Jasiukajtis 			z3 -= c3two51;
195*25c28e83SPiotr Jasiukajtis 
196*25c28e83SPiotr Jasiukajtis 			y0 = (y0 - z0 * pio2_1) - z0 * pio2_t;
197*25c28e83SPiotr Jasiukajtis 			y1 = (y1 - z1 * pio2_1) - z1 * pio2_t;
198*25c28e83SPiotr Jasiukajtis 			y2 = (y2 - z2 * pio2_1) - z2 * pio2_t;
199*25c28e83SPiotr Jasiukajtis 			y3 = (y3 - z3 * pio2_1) - z3 * pio2_t;
200*25c28e83SPiotr Jasiukajtis 		}
201*25c28e83SPiotr Jasiukajtis 
202*25c28e83SPiotr Jasiukajtis 		z0 = y0 * y0;
203*25c28e83SPiotr Jasiukajtis 		z1 = y1 * y1;
204*25c28e83SPiotr Jasiukajtis 		z2 = y2 * y2;
205*25c28e83SPiotr Jasiukajtis 		z3 = y3 * y3;
206*25c28e83SPiotr Jasiukajtis 
207*25c28e83SPiotr Jasiukajtis 		hx = (n0 & 1) | ((n1 & 1) << 1) | ((n2 & 1) << 2) |
208*25c28e83SPiotr Jasiukajtis 		    ((n3 & 1) << 3);
209*25c28e83SPiotr Jasiukajtis 		switch (hx) {
210*25c28e83SPiotr Jasiukajtis 		case 0:
211*25c28e83SPiotr Jasiukajtis 			f0 = (float)(y0 + y0 * z0 * (S0 + z0 * (S1 + z0 * S2)));
212*25c28e83SPiotr Jasiukajtis 			f1 = (float)(y1 + y1 * z1 * (S0 + z1 * (S1 + z1 * S2)));
213*25c28e83SPiotr Jasiukajtis 			f2 = (float)(y2 + y2 * z2 * (S0 + z2 * (S1 + z2 * S2)));
214*25c28e83SPiotr Jasiukajtis 			f3 = (float)(y3 + y3 * z3 * (S0 + z3 * (S1 + z3 * S2)));
215*25c28e83SPiotr Jasiukajtis 			break;
216*25c28e83SPiotr Jasiukajtis 
217*25c28e83SPiotr Jasiukajtis 		case 1:
218*25c28e83SPiotr Jasiukajtis 			f0 = (float)(one + z0 * (mhalf + z0 * (C0 +
219*25c28e83SPiotr Jasiukajtis 			    z0 * (C1 + z0 * C2))));
220*25c28e83SPiotr Jasiukajtis 			f1 = (float)(y1 + y1 * z1 * (S0 + z1 * (S1 + z1 * S2)));
221*25c28e83SPiotr Jasiukajtis 			f2 = (float)(y2 + y2 * z2 * (S0 + z2 * (S1 + z2 * S2)));
222*25c28e83SPiotr Jasiukajtis 			f3 = (float)(y3 + y3 * z3 * (S0 + z3 * (S1 + z3 * S2)));
223*25c28e83SPiotr Jasiukajtis 			break;
224*25c28e83SPiotr Jasiukajtis 
225*25c28e83SPiotr Jasiukajtis 		case 2:
226*25c28e83SPiotr Jasiukajtis 			f0 = (float)(y0 + y0 * z0 * (S0 + z0 * (S1 + z0 * S2)));
227*25c28e83SPiotr Jasiukajtis 			f1 = (float)(one + z1 * (mhalf + z1 * (C0 +
228*25c28e83SPiotr Jasiukajtis 			    z1 * (C1 + z1 * C2))));
229*25c28e83SPiotr Jasiukajtis 			f2 = (float)(y2 + y2 * z2 * (S0 + z2 * (S1 + z2 * S2)));
230*25c28e83SPiotr Jasiukajtis 			f3 = (float)(y3 + y3 * z3 * (S0 + z3 * (S1 + z3 * S2)));
231*25c28e83SPiotr Jasiukajtis 			break;
232*25c28e83SPiotr Jasiukajtis 
233*25c28e83SPiotr Jasiukajtis 		case 3:
234*25c28e83SPiotr Jasiukajtis 			f0 = (float)(one + z0 * (mhalf + z0 * (C0 +
235*25c28e83SPiotr Jasiukajtis 			    z0 * (C1 + z0 * C2))));
236*25c28e83SPiotr Jasiukajtis 			f1 = (float)(one + z1 * (mhalf + z1 * (C0 +
237*25c28e83SPiotr Jasiukajtis 			    z1 * (C1 + z1 * C2))));
238*25c28e83SPiotr Jasiukajtis 			f2 = (float)(y2 + y2 * z2 * (S0 + z2 * (S1 + z2 * S2)));
239*25c28e83SPiotr Jasiukajtis 			f3 = (float)(y3 + y3 * z3 * (S0 + z3 * (S1 + z3 * S2)));
240*25c28e83SPiotr Jasiukajtis 			break;
241*25c28e83SPiotr Jasiukajtis 
242*25c28e83SPiotr Jasiukajtis 		case 4:
243*25c28e83SPiotr Jasiukajtis 			f0 = (float)(y0 + y0 * z0 * (S0 + z0 * (S1 + z0 * S2)));
244*25c28e83SPiotr Jasiukajtis 			f1 = (float)(y1 + y1 * z1 * (S0 + z1 * (S1 + z1 * S2)));
245*25c28e83SPiotr Jasiukajtis 			f2 = (float)(one + z2 * (mhalf + z2 * (C0 +
246*25c28e83SPiotr Jasiukajtis 			    z2 * (C1 + z2 * C2))));
247*25c28e83SPiotr Jasiukajtis 			f3 = (float)(y3 + y3 * z3 * (S0 + z3 * (S1 + z3 * S2)));
248*25c28e83SPiotr Jasiukajtis 			break;
249*25c28e83SPiotr Jasiukajtis 
250*25c28e83SPiotr Jasiukajtis 		case 5:
251*25c28e83SPiotr Jasiukajtis 			f0 = (float)(one + z0 * (mhalf + z0 * (C0 +
252*25c28e83SPiotr Jasiukajtis 			    z0 * (C1 + z0 * C2))));
253*25c28e83SPiotr Jasiukajtis 			f1 = (float)(y1 + y1 * z1 * (S0 + z1 * (S1 + z1 * S2)));
254*25c28e83SPiotr Jasiukajtis 			f2 = (float)(one + z2 * (mhalf + z2 * (C0 +
255*25c28e83SPiotr Jasiukajtis 			    z2 * (C1 + z2 * C2))));
256*25c28e83SPiotr Jasiukajtis 			f3 = (float)(y3 + y3 * z3 * (S0 + z3 * (S1 + z3 * S2)));
257*25c28e83SPiotr Jasiukajtis 			break;
258*25c28e83SPiotr Jasiukajtis 
259*25c28e83SPiotr Jasiukajtis 		case 6:
260*25c28e83SPiotr Jasiukajtis 			f0 = (float)(y0 + y0 * z0 * (S0 + z0 * (S1 + z0 * S2)));
261*25c28e83SPiotr Jasiukajtis 			f1 = (float)(one + z1 * (mhalf + z1 * (C0 +
262*25c28e83SPiotr Jasiukajtis 			    z1 * (C1 + z1 * C2))));
263*25c28e83SPiotr Jasiukajtis 			f2 = (float)(one + z2 * (mhalf + z2 * (C0 +
264*25c28e83SPiotr Jasiukajtis 			    z2 * (C1 + z2 * C2))));
265*25c28e83SPiotr Jasiukajtis 			f3 = (float)(y3 + y3 * z3 * (S0 + z3 * (S1 + z3 * S2)));
266*25c28e83SPiotr Jasiukajtis 			break;
267*25c28e83SPiotr Jasiukajtis 
268*25c28e83SPiotr Jasiukajtis 		case 7:
269*25c28e83SPiotr Jasiukajtis 			f0 = (float)(one + z0 * (mhalf + z0 * (C0 +
270*25c28e83SPiotr Jasiukajtis 			    z0 * (C1 + z0 * C2))));
271*25c28e83SPiotr Jasiukajtis 			f1 = (float)(one + z1 * (mhalf + z1 * (C0 +
272*25c28e83SPiotr Jasiukajtis 			    z1 * (C1 + z1 * C2))));
273*25c28e83SPiotr Jasiukajtis 			f2 = (float)(one + z2 * (mhalf + z2 * (C0 +
274*25c28e83SPiotr Jasiukajtis 			    z2 * (C1 + z2 * C2))));
275*25c28e83SPiotr Jasiukajtis 			f3 = (float)(y3 + y3 * z3 * (S0 + z3 * (S1 + z3 * S2)));
276*25c28e83SPiotr Jasiukajtis 			break;
277*25c28e83SPiotr Jasiukajtis 
278*25c28e83SPiotr Jasiukajtis 		case 8:
279*25c28e83SPiotr Jasiukajtis 			f0 = (float)(y0 + y0 * z0 * (S0 + z0 * (S1 + z0 * S2)));
280*25c28e83SPiotr Jasiukajtis 			f1 = (float)(y1 + y1 * z1 * (S0 + z1 * (S1 + z1 * S2)));
281*25c28e83SPiotr Jasiukajtis 			f2 = (float)(y2 + y2 * z2 * (S0 + z2 * (S1 + z2 * S2)));
282*25c28e83SPiotr Jasiukajtis 			f3 = (float)(one + z3 * (mhalf + z3 * (C0 +
283*25c28e83SPiotr Jasiukajtis 			    z3 * (C1 + z3 * C2))));
284*25c28e83SPiotr Jasiukajtis 			break;
285*25c28e83SPiotr Jasiukajtis 
286*25c28e83SPiotr Jasiukajtis 		case 9:
287*25c28e83SPiotr Jasiukajtis 			f0 = (float)(one + z0 * (mhalf + z0 * (C0 +
288*25c28e83SPiotr Jasiukajtis 			    z0 * (C1 + z0 * C2))));
289*25c28e83SPiotr Jasiukajtis 			f1 = (float)(y1 + y1 * z1 * (S0 + z1 * (S1 + z1 * S2)));
290*25c28e83SPiotr Jasiukajtis 			f2 = (float)(y2 + y2 * z2 * (S0 + z2 * (S1 + z2 * S2)));
291*25c28e83SPiotr Jasiukajtis 			f3 = (float)(one + z3 * (mhalf + z3 * (C0 +
292*25c28e83SPiotr Jasiukajtis 			    z3 * (C1 + z3 * C2))));
293*25c28e83SPiotr Jasiukajtis 			break;
294*25c28e83SPiotr Jasiukajtis 
295*25c28e83SPiotr Jasiukajtis 		case 10:
296*25c28e83SPiotr Jasiukajtis 			f0 = (float)(y0 + y0 * z0 * (S0 + z0 * (S1 + z0 * S2)));
297*25c28e83SPiotr Jasiukajtis 			f1 = (float)(one + z1 * (mhalf + z1 * (C0 +
298*25c28e83SPiotr Jasiukajtis 			    z1 * (C1 + z1 * C2))));
299*25c28e83SPiotr Jasiukajtis 			f2 = (float)(y2 + y2 * z2 * (S0 + z2 * (S1 + z2 * S2)));
300*25c28e83SPiotr Jasiukajtis 			f3 = (float)(one + z3 * (mhalf + z3 * (C0 +
301*25c28e83SPiotr Jasiukajtis 			    z3 * (C1 + z3 * C2))));
302*25c28e83SPiotr Jasiukajtis 			break;
303*25c28e83SPiotr Jasiukajtis 
304*25c28e83SPiotr Jasiukajtis 		case 11:
305*25c28e83SPiotr Jasiukajtis 			f0 = (float)(one + z0 * (mhalf + z0 * (C0 +
306*25c28e83SPiotr Jasiukajtis 			    z0 * (C1 + z0 * C2))));
307*25c28e83SPiotr Jasiukajtis 			f1 = (float)(one + z1 * (mhalf + z1 * (C0 +
308*25c28e83SPiotr Jasiukajtis 			    z1 * (C1 + z1 * C2))));
309*25c28e83SPiotr Jasiukajtis 			f2 = (float)(y2 + y2 * z2 * (S0 + z2 * (S1 + z2 * S2)));
310*25c28e83SPiotr Jasiukajtis 			f3 = (float)(one + z3 * (mhalf + z3 * (C0 +
311*25c28e83SPiotr Jasiukajtis 			    z3 * (C1 + z3 * C2))));
312*25c28e83SPiotr Jasiukajtis 			break;
313*25c28e83SPiotr Jasiukajtis 
314*25c28e83SPiotr Jasiukajtis 		case 12:
315*25c28e83SPiotr Jasiukajtis 			f0 = (float)(y0 + y0 * z0 * (S0 + z0 * (S1 + z0 * S2)));
316*25c28e83SPiotr Jasiukajtis 			f1 = (float)(y1 + y1 * z1 * (S0 + z1 * (S1 + z1 * S2)));
317*25c28e83SPiotr Jasiukajtis 			f2 = (float)(one + z2 * (mhalf + z2 * (C0 +
318*25c28e83SPiotr Jasiukajtis 			    z2 * (C1 + z2 * C2))));
319*25c28e83SPiotr Jasiukajtis 			f3 = (float)(one + z3 * (mhalf + z3 * (C0 +
320*25c28e83SPiotr Jasiukajtis 			    z3 * (C1 + z3 * C2))));
321*25c28e83SPiotr Jasiukajtis 			break;
322*25c28e83SPiotr Jasiukajtis 
323*25c28e83SPiotr Jasiukajtis 		case 13:
324*25c28e83SPiotr Jasiukajtis 			f0 = (float)(one + z0 * (mhalf + z0 * (C0 +
325*25c28e83SPiotr Jasiukajtis 			    z0 * (C1 + z0 * C2))));
326*25c28e83SPiotr Jasiukajtis 			f1 = (float)(y1 + y1 * z1 * (S0 + z1 * (S1 + z1 * S2)));
327*25c28e83SPiotr Jasiukajtis 			f2 = (float)(one + z2 * (mhalf + z2 * (C0 +
328*25c28e83SPiotr Jasiukajtis 			    z2 * (C1 + z2 * C2))));
329*25c28e83SPiotr Jasiukajtis 			f3 = (float)(one + z3 * (mhalf + z3 * (C0 +
330*25c28e83SPiotr Jasiukajtis 			    z3 * (C1 + z3 * C2))));
331*25c28e83SPiotr Jasiukajtis 			break;
332*25c28e83SPiotr Jasiukajtis 
333*25c28e83SPiotr Jasiukajtis 		case 14:
334*25c28e83SPiotr Jasiukajtis 			f0 = (float)(y0 + y0 * z0 * (S0 + z0 * (S1 + z0 * S2)));
335*25c28e83SPiotr Jasiukajtis 			f1 = (float)(one + z1 * (mhalf + z1 * (C0 +
336*25c28e83SPiotr Jasiukajtis 			    z1 * (C1 + z1 * C2))));
337*25c28e83SPiotr Jasiukajtis 			f2 = (float)(one + z2 * (mhalf + z2 * (C0 +
338*25c28e83SPiotr Jasiukajtis 			    z2 * (C1 + z2 * C2))));
339*25c28e83SPiotr Jasiukajtis 			f3 = (float)(one + z3 * (mhalf + z3 * (C0 +
340*25c28e83SPiotr Jasiukajtis 			    z3 * (C1 + z3 * C2))));
341*25c28e83SPiotr Jasiukajtis 			break;
342*25c28e83SPiotr Jasiukajtis 
343*25c28e83SPiotr Jasiukajtis 		default:
344*25c28e83SPiotr Jasiukajtis 			f0 = (float)(one + z0 * (mhalf + z0 * (C0 +
345*25c28e83SPiotr Jasiukajtis 			    z0 * (C1 + z0 * C2))));
346*25c28e83SPiotr Jasiukajtis 			f1 = (float)(one + z1 * (mhalf + z1 * (C0 +
347*25c28e83SPiotr Jasiukajtis 			    z1 * (C1 + z1 * C2))));
348*25c28e83SPiotr Jasiukajtis 			f2 = (float)(one + z2 * (mhalf + z2 * (C0 +
349*25c28e83SPiotr Jasiukajtis 			    z2 * (C1 + z2 * C2))));
350*25c28e83SPiotr Jasiukajtis 			f3 = (float)(one + z3 * (mhalf + z3 * (C0 +
351*25c28e83SPiotr Jasiukajtis 			    z3 * (C1 + z3 * C2))));
352*25c28e83SPiotr Jasiukajtis 		}
353*25c28e83SPiotr Jasiukajtis 
354*25c28e83SPiotr Jasiukajtis 		*y = (n0 & 2)? -f0 : f0;
355*25c28e83SPiotr Jasiukajtis 		y += stridey;
356*25c28e83SPiotr Jasiukajtis 		*y = (n1 & 2)? -f1 : f1;
357*25c28e83SPiotr Jasiukajtis 		y += stridey;
358*25c28e83SPiotr Jasiukajtis 		*y = (n2 & 2)? -f2 : f2;
359*25c28e83SPiotr Jasiukajtis 		y += stridey;
360*25c28e83SPiotr Jasiukajtis 		*y = (n3 & 2)? -f3 : f3;
361*25c28e83SPiotr Jasiukajtis 		continue;
362*25c28e83SPiotr Jasiukajtis 
363*25c28e83SPiotr Jasiukajtis process1:
364*25c28e83SPiotr Jasiukajtis 		PROCESS(0);
365*25c28e83SPiotr Jasiukajtis 		continue;
366*25c28e83SPiotr Jasiukajtis 
367*25c28e83SPiotr Jasiukajtis process2:
368*25c28e83SPiotr Jasiukajtis 		PROCESS(0);
369*25c28e83SPiotr Jasiukajtis 		PROCESS(1);
370*25c28e83SPiotr Jasiukajtis 		continue;
371*25c28e83SPiotr Jasiukajtis 
372*25c28e83SPiotr Jasiukajtis process3:
373*25c28e83SPiotr Jasiukajtis 		PROCESS(0);
374*25c28e83SPiotr Jasiukajtis 		PROCESS(1);
375*25c28e83SPiotr Jasiukajtis 		PROCESS(2);
376*25c28e83SPiotr Jasiukajtis 	}
377*25c28e83SPiotr Jasiukajtis }
378