Lines Matching refs:dval
212 dval(d) = b2d(b, &i);
218 dval(d) /= 1 << j;
246 ds = (dval(d)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
261 dval(d) *= 1 << j1;
267 if (dval(d) < tens[k])
348 d2 = dval(d);
351 dval(d) /= 1 << j;
362 dval(d) /= bigtens[n_bigtens-1];
374 dval(d) *= tens[j1 & 0xf];
378 dval(d) *= bigtens[i];
382 if (k_check && dval(d) < 1. && ilim > 0) {
387 dval(d) *= 10.;
390 dval(eps) = ieps*dval(d) + 7.;
394 dval(d) -= 5.;
395 if (dval(d) > dval(eps))
397 if (dval(d) < -dval(eps))
406 dval(eps) = ds*0.5/tens[ilim-1] - dval(eps);
408 L = (Long)(dval(d)/ds);
409 dval(d) -= L*ds;
411 if (dval(d) < dval(eps)) {
412 if (dval(d))
416 if (ds - dval(d) < dval(eps))
420 dval(eps) *= 10.;
421 dval(d) *= 10.;
427 dval(eps) *= tens[ilim-1];
428 for(i = 1;; i++, dval(d) *= 10.) {
429 if ( (L = (Long)(dval(d)/ds)) !=0)
430 dval(d) -= L*ds;
434 if (dval(d) > ds + dval(eps))
436 else if (dval(d) < ds - dval(eps)) {
437 if (dval(d))
449 dval(d) = d2;
461 if (ilim < 0 || dval(d) <= 5*ds)
465 for(i = 1;; i++, dval(d) *= 10.) {
466 L = dval(d) / ds;
467 dval(d) -= L*ds;
470 if (dval(d) < 0) {
472 dval(d) += ds;
476 if (dval(d) == 0.)
485 dval(d) += dval(d);
487 if (dval(d) >= ds)
489 if (dval(d) > ds || (dval(d) == ds && L & 1))