s_h - Illumos

283

double y, z, r, s, t, w, s_h, s_l, x_h, x_l, zz[3], ee[2], z_h,

418

s_h = (double) ((float) s);

423

s_l = -v * (s_h * r - (w - s_h * t));

424

z_l = (s_h * s_h - z_h);

427

zz[2] = z_l + s_l * (s + s_h);

430

v = s_h * ee[0];

574

long double y, z, r, s, t, w, s_h, s_l, x_h, x_l, zz[3], ee[2], z_h,

696

s_h = s; HALF(s_h);

701

s_l = -v * (s_h * r - (w - s_h * t));

702

z_l = (s_h * s_h - z_h);

705

zz[2] = z_l + s_l * (s + s_h);

708

v = s_h * ee[0];