Lines Matching refs:dval
193 #define dval(x) (x)->d
942 return dval(&u);
979 return dval(&d);
990 dval(d) / 2**scale = b * 2**e.
1115 dval(&da) = b2d(a, &ka);
1116 dval(&db) = b2d(b, &kb);
1124 return dval(&da) / dval(&db);
1404 dval(rv) += sulp(rv, bc);
1423 return dval(&rv);
1435 return sign ? -dval(&rv) : dval(&rv);
1453 dval(&rv) = 0.;
1639 dval(&rv) = y;
1641 dval(&rv) = tens[k - 9] * dval(&rv) + z;
1650 dval(&rv) *= tens[e];
1659 dval(&rv) *= tens[i];
1660 dval(&rv) *= tens[e];
1665 dval(&rv) /= tens[-e];
1677 dval(&rv) *= tens[i];
1684 dval(&rv) *= bigtens[j];
1687 dval(&rv) *= bigtens[j];
1714 dval(&rv) /= tens[i];
1722 dval(&rv) *= tinytens[j];
1736 if (!dval(&rv))
1943 dval(&rv) -= 0.5 * sulp(&rv, &bc);
2017 dval(&rv) += sulp(&rv, &bc);
2019 dval(&rv) -= sulp(&rv, &bc);
2020 if (!dval(&rv)) {
2063 dval(&rv0) = dval(&rv);
2066 dval(&rv) += adj.d;
2087 dval(&aadj2) = aadj1;
2089 aadj1 = dval(&aadj2);
2092 dval(&rv) += adj.d;
2125 dval(&rv) *= dval(&rv0);
2129 result = sign ? -dval(&rv) : dval(&rv);
2150 result = sign ? -dval(&rv) : dval(&rv);
2319 if (!dval(&u)) {
2330 dval(&d2) = dval(&u);
2365 dval(&d2) = x;
2370 ds = (dval(&d2)-1.5)*0.289529654602168 + 0.1760912590558 +
2377 if (dval(&u) < tens[k])
2447 dval(&d2) = dval(&u);
2457 dval(&u) /= bigtens[n_bigtens-1];
2465 dval(&u) /= ds;
2468 dval(&u) *= tens[j1 & 0xf];
2472 dval(&u) *= bigtens[i];
2475 if (k_check && dval(&u) < 1. && ilim > 0) {
2480 dval(&u) *= 10.;
2483 dval(&eps) = ieps*dval(&u) + 7.;
2487 dval(&u) -= 5.;
2488 if (dval(&u) > dval(&eps))
2490 if (dval(&u) < -dval(&eps))
2498 dval(&eps) = 0.5/tens[ilim-1] - dval(&eps);
2500 L = (Long)dval(&u);
2501 dval(&u) -= L;
2503 if (dval(&u) < dval(&eps))
2505 if (1. - dval(&u) < dval(&eps))
2509 dval(&eps) *= 10.;
2510 dval(&u) *= 10.;
2515 dval(&eps) *= tens[ilim-1];
2516 for(i = 1;; i++, dval(&u) *= 10.) {
2517 L = (Long)(dval(&u));
2518 if (!(dval(&u) -= L))
2522 if (dval(&u) > 0.5 + dval(&eps))
2524 else if (dval(&u) < 0.5 - dval(&eps)) {
2535 dval(&u) = dval(&d2);
2547 if (ilim < 0 || dval(&u) <= 5*ds)
2551 for(i = 1;; i++, dval(&u) *= 10.) {
2552 L = (Long)(dval(&u) / ds);
2553 dval(&u) -= L*ds;
2555 if (!dval(&u)) {
2559 dval(&u) += dval(&u);
2560 if (dval(&u) > ds || (dval(&u) == ds && L & 1)) {