S1
S1 = -1.66666666666666324348e-01, /* 0xBFC55555, 0x55555549 */
if(iy==0) return x+v*(S1+z*r);
else return x-((z*(half*y-v*r)-y)-v*S1);
S1 = -1.66666666666666324348e-01, /* 0xBFC55555, 0x55555549 */
*sn = x + v * (S1 + z * r);
*sn = x - ((z * (y / 2 - v * r) - y) - v * S1);
S1 = -0x15555554cbac77.0p-55, /* -0.166666666416265235595 */
*sn = (x + s * (S1 + z * S2)) + s * w * r;
S1 = -1.6666667163e-01, /* 0xbe2aaaab */
if(iy==0) return x+v*(S1+z*r);
else return x-((z*(half*y-v*r)-y)-v*S1);
S1 = -0.16666666666666666666666666666666666606732416116558L,
*sn = x + v * (S1 + z * r);
*cs = x - ((z * (y / 2 - v * r) - y) - v * S1);
S1 = -0.16666666666666666666666666666666666606732416116558L,
if(iy==0) return x+v*(S1+z*r);
else return x-((z*(half*y-v*r)-y)-v*S1);
S1 = -1.332535117259762928288745111081235577029E6L,
+ S1) * z
S1 = -0.166666666666666666671L; /* -0xaaaaaaaaaaaaaaab.0p-66 */
*sn = x + v * (S1 + z * r);
*sn = x - ((z * (y / 2 - v * r) - y) - v * S1);
S1 = -0.166666666666666666671L; /* -0xaaaaaaaaaaaaaaab.0p-66 */
if(iy==0) return x+v*(S1+z*r);
else return x-((z*(half*y-v*r)-y)-v*S1);
RESTORE_REG(s1, S1, frame, bo) ;\
SAVE_REG(s1, S1, frame, bo) ;\
goto S1;
S1:
goto S1;
goto S1;
goto S1;