Lines Matching refs:dval
313 #define dval(x) (x)->d
1191 return dval(&u);
1261 return dval(&d);
1409 dval(&da) = b2d(a, &ka);
1410 dval(&db) = b2d(b, &kb);
1420 dval(&da) *= 1 << k;
1426 dval(&db) *= 1 << k;
1436 return dval(&da) / dval(&db);
2383 dval(rv) += 2.*ulp(rv);
2400 dval(rv) -= ulp(rv);
2405 dval(rv) += ulp(rv);
2461 dval(&rv) = 0.;
2646 dval(&rv) = y;
2652 dval(&rv) = tens[k - 9] * dval(&rv) + z;
2676 /* rv = */ rounded_product(dval(&rv), tens[e]);
2693 dval(&rv) *= tens[i];
2700 /* rv = */ rounded_product(dval(&rv), tens[e]);
2706 /* rv = */ rounded_product(dval(&rv), tens[e]);
2720 /* rv = */ rounded_quotient(dval(&rv), tens[-e]);
2751 dval(&rv) *= tens[i];
2777 dval(&rv0) = 1e300;
2778 dval(&rv0) *= dval(&rv0);
2789 dval(&rv) *= bigtens[j];
2792 dval(&rv) *= bigtens[j];
2809 dval(&rv) /= tens[i];
2818 dval(&rv) *= tinytens[j];
2835 dval(&rv) *= tinytens[j];
2837 dval(&rv0) = dval(&rv);
2838 dval(&rv) *= tinytens[j];
2839 if (!dval(&rv)) {
2840 dval(&rv) = 2.*dval(&rv0);
2841 dval(&rv) *= tinytens[j];
2843 if (!dval(&rv)) {
2845 dval(&rv) = 0.;
3037 dval(&rv) += adj.d*ulp(dval(&rv));
3043 dval(&rv) += adj.d*ulp(&rv);
3066 adj.d *= ulp(dval(&rv));
3068 dval(&rv) += adj.d;
3070 dval(&rv) -= adj.d;
3080 dval(&rv) += adj.d;
3083 dval(&rv) -= adj.d;
3198 dval(&rv) += ulp(&rv);
3201 dval(&rv) -= ulp(&rv);
3203 if (!dval(&rv)) {
3267 dval(&rv0) = dval(&rv);
3270 dval(&rv) += adj.d;
3291 dval(&aadj2) = aadj1;
3293 aadj1 = dval(&aadj2);
3296 dval(&rv) += adj.d;
3300 dval(&rv0) = dval(&rv);
3303 dval(&rv) += adj.d;
3327 dval(&rv) += adj.d;
3343 dval(&rv) += adj.d;
3387 dval(&rv0) += 1.;
3397 dval(&rv) *= dval(&rv0);
3412 dval(&rv0) = 1e-300;
3413 dval(&rv0) *= dval(&rv0);
3419 return sign ? -dval(&rv) : dval(&rv);
3626 dval(&u) += 0; /* normalize */
3628 if (!dval(&u)) {
3653 dval(&d2) = dval(&u);
3658 dval(&d2) /= 1 << j;
3697 dval(&d2) = x;
3703 ds = (dval(&d2)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
3709 if (dval(&u) < tens[k])
3786 dval(&d2) = dval(&u);
3796 dval(&u) /= bigtens[n_bigtens-1];
3804 dval(&u) /= ds;
3807 dval(&u) *= tens[j1 & 0xf];
3811 dval(&u) *= bigtens[i];
3814 if (k_check && dval(&u) < 1. && ilim > 0) {
3819 dval(&u) *= 10.;
3822 dval(&eps) = ieps*dval(&u) + 7.;
3826 dval(&u) -= 5.;
3827 if (dval(&u) > dval(&eps))
3829 if (dval(&u) < -dval(&eps))
3838 dval(&eps) = 0.5/tens[ilim-1] - dval(&eps);
3840 L = dval(&u);
3841 dval(&u) -= L;
3843 if (dval(&u) < dval(&eps))
3845 if (1. - dval(&u) < dval(&eps))
3849 dval(&eps) *= 10.;
3850 dval(&u) *= 10.;
3856 dval(&eps) *= tens[ilim-1];
3857 for(i = 1;; i++, dval(&u) *= 10.) {
3858 L = (Long)(dval(&u));
3859 if (!(dval(&u) -= L))
3863 if (dval(&u) > 0.5 + dval(&eps))
3865 else if (dval(&u) < 0.5 - dval(&eps)) {
3878 dval(&u) = dval(&d2);
3890 if (ilim < 0 || dval(&u) <= 5*ds)
3894 for(i = 1; i <= k + 1; i++, dval(&u) *= 10.) {
3895 L = (Long)(dval(&u) / ds);
3896 dval(&u) -= L*ds;
3899 if (dval(&u) < 0) {
3901 dval(&u) += ds;
3905 if (!dval(&u)) {
3919 dval(&u) += dval(&u);
3920 if (dval(&u) > ds || (dval(&u) == ds && L & 1)) {
4195 dval(&u) += 1.;