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 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