Lines Matching refs:dval
320 #define dval(x) (x)->d macro
1243 return dval(&u);
1313 return dval(&d);
1461 dval(&da) = b2d(a, &ka);
1462 dval(&db) = b2d(b, &kb);
1472 dval(&da) *= 1 << k;
1478 dval(&db) *= 1 << k;
1488 return dval(&da) / dval(&db);
2480 dval(rv) += 2.*sulp(rv,bc);
2497 dval(rv) -= sulp(rv,bc);
2502 dval(rv) += sulp(rv,bc);
2574 dval(&rv) = 0.;
2771 dval(&rv) = y;
2777 dval(&rv) = tens[k - 9] * dval(&rv) + z;
2802 /* rv = */ rounded_product(dval(&rv), tens[e]);
2819 dval(&rv) *= tens[i];
2826 /* rv = */ rounded_product(dval(&rv), tens[e]);
2832 /* rv = */ rounded_product(dval(&rv), tens[e]);
2846 /* rv = */ rounded_quotient(dval(&rv), tens[-e]);
2878 dval(&rv) *= tens[i];
2901 dval(&rv0) = 1e300;
2902 dval(&rv0) *= dval(&rv0);
2924 dval(&rv) *= bigtens[j];
2927 dval(&rv) *= bigtens[j];
2944 dval(&rv) /= tens[i];
2953 dval(&rv) *= tinytens[j];
2972 dval(&rv) *= tinytens[j];
2974 dval(&rv0) = dval(&rv);
2975 dval(&rv) *= tinytens[j];
2976 if (!dval(&rv)) {
2977 dval(&rv) = 2.*dval(&rv0);
2978 dval(&rv) *= tinytens[j];
2980 if (!dval(&rv)) {
2982 dval(&rv) = 0.;
3182 dval(&rv) += adj.d*ulp(dval(&rv));
3188 dval(&rv) += adj.d*ulp(&rv);
3211 adj.d *= ulp(dval(&rv));
3213 dval(&rv) += adj.d;
3215 dval(&rv) -= adj.d;
3225 dval(&rv) += adj.d;
3228 dval(&rv) -= adj.d;
3359 dval(&rv) += sulp(&rv, &bc);
3361 dval(&rv) += ulp(&rv);
3366 dval(&rv) -= sulp(&rv, &bc);
3368 dval(&rv) -= ulp(&rv);
3371 if (!dval(&rv)) {
3435 dval(&rv0) = dval(&rv);
3438 dval(&rv) += adj.d;
3459 dval(&aadj2) = aadj1;
3461 aadj1 = dval(&aadj2);
3463 dval(&rv) += adj.d;
3476 dval(&rv) += adj.d;
3481 dval(&rv0) = dval(&rv);
3484 dval(&rv) += adj.d;
3508 dval(&rv) += adj.d;
3524 dval(&rv) += adj.d;
3576 dval(&rv0) += 1.;
3586 dval(&rv) *= dval(&rv0);
3601 dval(&rv0) = 1e-300;
3602 dval(&rv0) *= dval(&rv0);
3608 return sign ? -dval(&rv) : dval(&rv);
3820 dval(&u) += 0; /* normalize */
3822 if (!dval(&u)) {
3847 dval(&d2) = dval(&u);
3852 dval(&d2) /= 1 << j;
3891 dval(&d2) = x;
3897 ds = (dval(&d2)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
3903 if (dval(&u) < tens[k])
3980 dval(&d2) = dval(&u);
3990 dval(&u) /= bigtens[n_bigtens-1];
3998 dval(&u) /= ds;
4001 dval(&u) *= tens[j1 & 0xf];
4005 dval(&u) *= bigtens[i];
4008 if (k_check && dval(&u) < 1. && ilim > 0) {
4013 dval(&u) *= 10.;
4016 dval(&eps) = ieps*dval(&u) + 7.;
4020 dval(&u) -= 5.;
4021 if (dval(&u) > dval(&eps))
4023 if (dval(&u) < -dval(&eps))
4032 dval(&eps) = 0.5/tens[ilim-1] - dval(&eps);
4037 dval(&eps1) *= tens[j1 & 0xf];
4040 dval(&eps1) *= bigtens[i];
4046 L = dval(&u);
4047 dval(&u) -= L;
4049 if (1. - dval(&u) < dval(&eps))
4051 if (dval(&u) < dval(&eps))
4055 dval(&eps) *= 10.;
4056 dval(&u) *= 10.;
4062 dval(&eps) *= tens[ilim-1];
4063 for(i = 1;; i++, dval(&u) *= 10.) {
4064 L = (Long)(dval(&u));
4065 if (!(dval(&u) -= L))
4069 if (dval(&u) > 0.5 + dval(&eps))
4071 else if (dval(&u) < 0.5 - dval(&eps)) {
4084 dval(&u) = dval(&d2);
4096 if (ilim < 0 || dval(&u) <= 5*ds)
4100 for(i = 1;; i++, dval(&u) *= 10.) {
4101 L = (Long)(dval(&u) / ds);
4102 dval(&u) -= L*ds;
4105 if (dval(&u) < 0) {
4107 dval(&u) += ds;
4111 if (!dval(&u)) {
4125 dval(&u) += dval(&u);
4127 if (dval(&u) >= ds)
4129 if (dval(&u) > ds || (dval(&u) == ds && L & 1))
4406 dval(&u) += 1.;
