dval 1701 util.c return dval(a);
dval 1766 util.c return dval(d);
dval 1908 util.c dval(da) = b2d(a, &ka);
dval 1909 util.c dval(db) = b2d(b, &kb);
dval 1919 util.c dval(da) *= 1 << k;
dval 1925 util.c dval(db) *= 1 << k;
dval 1935 util.c return dval(da) / dval(db);
dval 2080 util.c dval(rv) = 0.;
dval 2252 util.c dval(rv) = y;
dval 2258 util.c dval(rv) = tens[k - 9] * dval(rv) + z;
dval 2282 util.c /* rv = */ rounded_product(dval(rv), tens[e]);
dval 2299 util.c dval(rv) *= tens[i];
dval 2306 util.c /* rv = */ rounded_product(dval(rv), tens[e]);
dval 2312 util.c /* rv = */ rounded_product(dval(rv), tens[e]);
dval 2326 util.c /* rv = */ rounded_quotient(dval(rv), tens[-e]);
dval 2357 util.c dval(rv) *= tens[i];
dval 2383 util.c dval(rv0) = 1e300;
dval 2384 util.c dval(rv0) *= dval(rv0);
dval 2397 util.c dval(rv) *= bigtens[j];
dval 2400 util.c dval(rv) *= bigtens[j];
dval 2417 util.c dval(rv) /= tens[i];
dval 2426 util.c dval(rv) *= tinytens[j];
dval 2443 util.c dval(rv) *= tinytens[j];
dval 2445 util.c dval(rv0) = dval(rv);
dval 2446 util.c dval(rv) *= tinytens[j];
dval 2447 util.c if (!dval(rv)) {
dval 2448 util.c dval(rv) = 2.*dval(rv0);
dval 2449 util.c dval(rv) *= tinytens[j];
dval 2451 util.c if (!dval(rv)) {
dval 2453 util.c dval(rv) = 0.;
dval 2481 util.c bb = d2b(dval(rv), &bbe, &bbbits); /* rv = bb * 2^bbe */
dval 2598 util.c dval(rv) += adj*ulp(dval(rv));
dval 2604 util.c dval(rv) += adj*ulp(dval(rv));
dval 2627 util.c adj *= ulp(dval(rv));
dval 2629 util.c dval(rv) += adj;
dval 2631 util.c dval(rv) -= adj;
dval 2637 util.c adj *= ulp(dval(rv));
dval 2639 util.c dval(rv) += adj;
dval 2641 util.c dval(rv) -= adj;
dval 2746 util.c dval(rv) += ulp(dval(rv));
dval 2749 util.c dval(rv) -= ulp(dval(rv));
dval 2751 util.c if (!dval(rv))
dval 2805 util.c dval(rv0) = dval(rv);
dval 2807 util.c adj = aadj1 * ulp(dval(rv));
dval 2808 util.c dval(rv) += adj;
dval 2831 util.c adj = aadj1 * ulp(dval(rv));
dval 2832 util.c dval(rv) += adj;
dval 2836 util.c dval(rv0) = dval(rv);
dval 2838 util.c adj = aadj1 * ulp(dval(rv));
dval 2839 util.c dval(rv) += adj;
dval 2856 util.c adj = aadj1 * ulp(dval(rv));
dval 2857 util.c dval(rv) += adj;
dval 2872 util.c adj = aadj1 * ulp(dval(rv));
dval 2873 util.c dval(rv) += adj;
dval 2906 util.c dval(rv0) += 1.;
dval 2916 util.c dval(rv) *= dval(rv0);
dval 2927 util.c dval(rv0) = 1e-300;
dval 2928 util.c dval(rv0) *= dval(rv0);
dval 2940 util.c return sign ? -dval(rv) : dval(rv);
dval 3226 util.c dval(d) += 0; /* normalize */
dval 3228 util.c if (!dval(d)) {
dval 3247 util.c b = d2b(dval(d), &be, &bbits);
dval 3253 util.c dval(d2) = dval(d);
dval 3258 util.c dval(d2) /= 1 << j;
dval 3297 util.c dval(d2) = x;
dval 3303 util.c ds = (dval(d2)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
dval 3309 util.c if (dval(d) < tens[k])
dval 3385 util.c dval(d2) = dval(d);
dval 3395 util.c dval(d) /= bigtens[n_bigtens-1];
dval 3403 util.c dval(d) /= ds;
dval 3406 util.c dval(d) *= tens[j1 & 0xf];
dval 3410 util.c dval(d) *= bigtens[i];
dval 3413 util.c if (k_check && dval(d) < 1. && ilim > 0) {
dval 3418 util.c dval(d) *= 10.;
dval 3421 util.c dval(eps) = ieps*dval(d) + 7.;
dval 3425 util.c dval(d) -= 5.;
dval 3426 util.c if (dval(d) > dval(eps))
dval 3428 util.c if (dval(d) < -dval(eps))
dval 3437 util.c dval(eps) = 0.5/tens[ilim-1] - dval(eps);
dval 3439 util.c L = dval(d);
dval 3440 util.c dval(d) -= L;
dval 3442 util.c if (dval(d) < dval(eps))
dval 3444 util.c if (1. - dval(d) < dval(eps))
dval 3448 util.c dval(eps) *= 10.;
dval 3449 util.c dval(d) *= 10.;
dval 3455 util.c dval(eps) *= tens[ilim-1];
dval 3456 util.c for (i = 1;; i++, dval(d) *= 10.) {
dval 3457 util.c L = (Long)(dval(d));
dval 3458 util.c if (!(dval(d) -= L))
dval 3462 util.c if (dval(d) > 0.5 + dval(eps))
dval 3464 util.c else if (dval(d) < 0.5 - dval(eps)) {
dval 3477 util.c dval(d) = dval(d2);
dval 3489 util.c if (ilim < 0 || dval(d) <= 5*ds)
dval 3493 util.c for (i = 1;; i++, dval(d) *= 10.) {
dval 3494 util.c L = (Long)(dval(d) / ds);
dval 3495 util.c dval(d) -= L*ds;
dval 3498 util.c if (dval(d) < 0) {
dval 3500 util.c dval(d) += ds;
dval 3504 util.c if (!dval(d)) {
dval 3518 util.c dval(d) += dval(d);
dval 3519 util.c if (dval(d) > ds || (dval(d) == ds && (L & 1))) {
dval 3795 util.c dval(d) += 1.;