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 << jj1;
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[jj1 & 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))