Searched defs:w_h (Results 1 - 2 of 2) sorted by relevance
/illumos-gate/usr/src/lib/libm/common/m9x/ |
H A D | tgamma.c | 1216 double u2, ss_h, ss_l, r_h, w_h, w_l, t4; local 1281 w_h = r_h * ss_h + hln2pi_h; 1290 k = (int) ((w_h + w_l) * invln2_32 + half); 1292 /* compute the exponential of w_h+w_l */ 1297 /* perform w - k*ln2_32 (represent as w_h - w_l) */ 1298 t1 = w_h - t3 * ln2_32hi; 1301 w_h = t1 + w_l; 1302 w_l = t2 - (w_l - (w_h - t1)); 1304 /* compute exp(w_h+w_l) */ 1305 z = w_h [all...] |
H A D | tgammal.c | 631 long double u2, ss_h, ss_l, r_h, w_h, w_l, t4; local 696 w_h = r_h * ss_h + hln2pim1_h; 704 k = (int) ((w_h + w_l) * invln2_32 + half); 706 /* compute the exponential of w_h+w_l */ 712 /* perform w - k*ln2_32 (represent as w_h - w_l) */ 713 t1 = w_h - t3 * ln2_32hi; 716 w_h = t1 - w; 717 w_l = w - (t1 - w_h); 719 /* compute exp(w_h-w_l) */ 720 z = w_h [all...] |
Completed in 48 milliseconds