Lines Matching refs:dval
179 dval(d) += 0; /* normalize */
181 if (!dval(d)) {
200 b = d2b(dval(d), &be, &bbits);
208 dval(d2) = dval(d);
213 dval(d2) /= 1 << j;
252 dval(d2) = (double)x;
258 ds = (dval(d2)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
264 if (dval(d) < tens[k])
342 dval(d2) = dval(d);
352 dval(d) /= bigtens[n_bigtens-1];
360 dval(d) /= ds;
363 dval(d) *= tens[jj1 & 0xf];
367 dval(d) *= bigtens[i];
370 if (k_check && dval(d) < 1. && ilim > 0) {
375 dval(d) *= 10.;
378 dval(eps) = ieps*dval(d) + 7.;
382 dval(d) -= 5.;
383 if (dval(d) > dval(eps))
385 if (dval(d) < -dval(eps))
394 dval(eps) = 0.5/tens[ilim-1] - dval(eps);
396 L = (INT32)dval(d);
397 dval(d) -= L;
399 if (dval(d) < dval(eps))
401 if (1. - dval(d) < dval(eps))
405 dval(eps) *= 10.;
406 dval(d) *= 10.;
412 dval(eps) *= tens[ilim-1];
413 for(i = 1;; i++, dval(d) *= 10.) {
414 L = (Long)(dval(d));
415 if (!(dval(d) -= L))
419 if (dval(d) > 0.5 + dval(eps))
421 else if (dval(d) < 0.5 - dval(eps)) {
434 dval(d) = dval(d2);
446 if (ilim < 0 || dval(d) <= 5*ds)
450 for(i = 1;; i++, dval(d) *= 10.) {
451 L = (Long)(dval(d) / ds);
452 dval(d) -= L*ds;
455 if (dval(d) < 0) {
457 dval(d) += ds;
461 if (!dval(d)) {
475 dval(d) += dval(d);
476 if (dval(d) > ds || (dval(d) == ds && L & 1)) {
805 dval(d) += 1.;