Lines Matching refs:dval
179 dval(&d) += 0; /* normalize */
181 if (!dval(&d)) {
200 b = d2b(dval(&d), &be, &bbits);
206 dval(&d2) = dval(&d);
211 dval(&d2) /= 1 << j;
250 dval(&d2) = x;
256 ds = (dval(&d2)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
262 if (dval(&d) < tens[k])
339 dval(&d2) = dval(&d);
349 dval(&d) /= bigtens[n_bigtens-1];
357 dval(&d) /= ds;
360 dval(&d) *= tens[j1 & 0xf];
364 dval(&d) *= bigtens[i];
367 if (k_check && dval(&d) < 1. && ilim > 0) {
372 dval(&d) *= 10.;
375 dval(&eps) = ieps*dval(&d) + 7.;
379 dval(&d) -= 5.;
380 if (dval(&d) > dval(&eps))
382 if (dval(&d) < -dval(&eps))
391 dval(&eps) = 0.5/tens[ilim-1] - dval(&eps);
393 L = dval(&d);
394 dval(&d) -= L;
396 if (dval(&d) < dval(&eps))
398 if (1. - dval(&d) < dval(&eps))
402 dval(&eps) *= 10.;
403 dval(&d) *= 10.;
409 dval(&eps) *= tens[ilim-1];
410 for(i = 1;; i++, dval(&d) *= 10.) {
411 L = (Long)(dval(&d));
412 if (!(dval(&d) -= L))
416 if (dval(&d) > 0.5 + dval(&eps))
418 else if (dval(&d) < 0.5 - dval(&eps)) {
431 dval(&d) = dval(&d2);
443 if (ilim < 0 || dval(&d) <= 5*ds)
447 for(i = 1;; i++, dval(&d) *= 10.) {
448 L = (Long)(dval(&d) / ds);
449 dval(&d) -= L*ds;
452 if (dval(&d) < 0) {
454 dval(&d) += ds;
458 if (!dval(&d)) {
472 dval(&d) += dval(&d);
474 if (dval(&d) >= ds)
476 if (dval(&d) > ds || (dval(&d) == ds && L & 1))
768 dval(&d) += 1.;