Lines Matching refs:j
94 e, e1, esign, i, j, k, nd, nd0, nf, nz, nz0, sign; local
497 for(j = 0; e1 > 1; j++, e1 >>= 1)
499 dval(&rv) *= bigtens[j];
502 dval(&rv) *= bigtens[j];
526 for(j = 0; e1 > 0; j++, e1 >>= 1)
528 dval(&rv) *= tinytens[j];
529 if (scale && (j = 2*P + 1 - ((word0(&rv) & Exp_mask)
532 if (j >= 32) {
534 if (j >= 53)
537 word0(&rv) &= 0xffffffff << (j-32);
540 word1(&rv) &= 0xffffffff << j;
543 for(j = 0; e1 > 1; j++, e1 >>= 1)
545 dval(&rv) *= tinytens[j];
548 dval(&rv) *= tinytens[j];
551 dval(&rv) *= tinytens[j];
609 j = bbe - scale;
610 i = j + bbbits - 1; /* logb(rv) */
611 j = P + 1 - bbbits;
614 j -= i;
623 j = 1 + 4*P - 3 - bbbits + ((bbe + bbbits - 1) & 3);
625 j = P + 1 - bbbits;
628 j = bbe;
629 i = j + bbbits - 1; /* logb(&rv) */
631 j += P - Emin;
633 j = P + 1 - bbbits;
636 bb2 += j;
637 bd2 += j;