Lines Matching defs:ds
167 double d2, ds;
246 ds = (dval(&d)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
252 ds += j * 7e-17;
254 k = (int)ds;
255 if (ds < 0. && ds != k)
256 k--; /* want k = floor(ds) */
357 ds = tens[k&0xf];
368 ds *= bigtens[i];
372 ds = 1.;
406 dval(&eps) = ds*0.5/tens[ilim-1] - dval(&eps);
408 L = (Long)(dval(&d)/ds);
409 dval(&d) -= L*ds;
416 if (ds - dval(&d) < dval(&eps))
429 if ( (L = (Long)(dval(&d)/ds)) !=0)
430 dval(&d) -= L*ds;
433 ds *= 0.5;
434 if (dval(&d) > ds + dval(&eps))
436 else if (dval(&d) < ds - dval(&eps)) {
458 ds = tens[k];
461 if (ilim < 0 || dval(&d) <= 5*ds)
466 L = dval(&d) / ds;
467 dval(&d) -= L*ds;
472 dval(&d) += ds;
487 if (dval(&d) >= ds)
489 if (dval(&d) > ds || (dval(&d) == ds && L & 1))
Indexes created Thu Oct 02 14:10:14 GMT 2025