Lines Matching refs:dval
320 #define dval(x) (x)->d macro
1246 return dval(&u);
1316 return dval(&d);
1464 dval(&da) = b2d(a, &ka);
1465 dval(&db) = b2d(b, &kb);
1475 dval(&da) *= 1 << k;
1481 dval(&db) *= 1 << k;
1491 return dval(&da) / dval(&db);
2483 dval(rv) += 2.*sulp(rv,bc);
2500 dval(rv) -= sulp(rv,bc);
2505 dval(rv) += sulp(rv,bc);
2577 dval(&rv) = 0.;
2774 dval(&rv) = y;
2780 dval(&rv) = tens[k - 9] * dval(&rv) + z;
2805 /* rv = */ rounded_product(dval(&rv), tens[e]);
2822 dval(&rv) *= tens[i];
2829 /* rv = */ rounded_product(dval(&rv), tens[e]);
2835 /* rv = */ rounded_product(dval(&rv), tens[e]);
2849 /* rv = */ rounded_quotient(dval(&rv), tens[-e]);
2881 dval(&rv) *= tens[i];
2904 dval(&rv0) = 1e300;
2905 dval(&rv0) *= dval(&rv0);
2927 dval(&rv) *= bigtens[j];
2930 dval(&rv) *= bigtens[j];
2947 dval(&rv) /= tens[i];
2956 dval(&rv) *= tinytens[j];
2975 dval(&rv) *= tinytens[j];
2977 dval(&rv0) = dval(&rv);
2978 dval(&rv) *= tinytens[j];
2979 if (!dval(&rv)) {
2980 dval(&rv) = 2.*dval(&rv0);
2981 dval(&rv) *= tinytens[j];
2983 if (!dval(&rv)) {
2985 dval(&rv) = 0.;
3185 dval(&rv) += adj.d*ulp(dval(&rv));
3191 dval(&rv) += adj.d*ulp(&rv);
3214 adj.d *= ulp(dval(&rv));
3216 dval(&rv) += adj.d;
3218 dval(&rv) -= adj.d;
3228 dval(&rv) += adj.d;
3231 dval(&rv) -= adj.d;
3362 dval(&rv) += sulp(&rv, &bc);
3364 dval(&rv) += ulp(&rv);
3369 dval(&rv) -= sulp(&rv, &bc);
3371 dval(&rv) -= ulp(&rv);
3374 if (!dval(&rv)) {
3438 dval(&rv0) = dval(&rv);
3441 dval(&rv) += adj.d;
3462 dval(&aadj2) = aadj1;
3464 aadj1 = dval(&aadj2);
3466 dval(&rv) += adj.d;
3479 dval(&rv) += adj.d;
3484 dval(&rv0) = dval(&rv);
3487 dval(&rv) += adj.d;
3511 dval(&rv) += adj.d;
3527 dval(&rv) += adj.d;
3579 dval(&rv0) += 1.;
3589 dval(&rv) *= dval(&rv0);
3604 dval(&rv0) = 1e-300;
3605 dval(&rv0) *= dval(&rv0);
3611 return sign ? -dval(&rv) : dval(&rv);
3823 dval(&u) += 0; /* normalize */
3825 if (!dval(&u)) {
3850 dval(&d2) = dval(&u);
3855 dval(&d2) /= 1 << j;
3894 dval(&d2) = x;
3900 ds = (dval(&d2)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
3906 if (dval(&u) < tens[k])
3983 dval(&d2) = dval(&u);
3993 dval(&u) /= bigtens[n_bigtens-1];
4001 dval(&u) /= ds;
4004 dval(&u) *= tens[j1 & 0xf];
4008 dval(&u) *= bigtens[i];
4011 if (k_check && dval(&u) < 1. && ilim > 0) {
4016 dval(&u) *= 10.;
4019 dval(&eps) = ieps*dval(&u) + 7.;
4023 dval(&u) -= 5.;
4024 if (dval(&u) > dval(&eps))
4026 if (dval(&u) < -dval(&eps))
4035 dval(&eps) = 0.5/tens[ilim-1] - dval(&eps);
4040 dval(&eps1) *= tens[j1 & 0xf];
4043 dval(&eps1) *= bigtens[i];
4049 L = dval(&u);
4050 dval(&u) -= L;
4052 if (1. - dval(&u) < dval(&eps))
4054 if (dval(&u) < dval(&eps))
4058 dval(&eps) *= 10.;
4059 dval(&u) *= 10.;
4065 dval(&eps) *= tens[ilim-1];
4066 for(i = 1;; i++, dval(&u) *= 10.) {
4067 L = (Long)(dval(&u));
4068 if (!(dval(&u) -= L))
4072 if (dval(&u) > 0.5 + dval(&eps))
4074 else if (dval(&u) < 0.5 - dval(&eps)) {
4087 dval(&u) = dval(&d2);
4099 if (ilim < 0 || dval(&u) <= 5*ds)
4103 for(i = 1;; i++, dval(&u) *= 10.) {
4104 L = (Long)(dval(&u) / ds);
4105 dval(&u) -= L*ds;
4108 if (dval(&u) < 0) {
4110 dval(&u) += ds;
4114 if (!dval(&u)) {
4128 dval(&u) += dval(&u);
4130 if (dval(&u) >= ds)
4132 if (dval(&u) > ds || (dval(&u) == ds && L & 1))
4409 dval(&u) += 1.;
