Lines Matching refs:ds
161 double d2, ds;
236 ds = (dval(&d)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
242 ds += j * 7e-17;
244 k = (int)ds;
245 if (ds < 0. && ds != k)
246 k--; /* want k = floor(ds) */
345 ds = tens[k&0xf];
356 ds *= bigtens[i];
360 ds = 1.;
394 dval(&eps) = ds*0.5/tens[ilim-1] - dval(&eps);
396 L = (Long)(dval(&d)/ds);
397 dval(&d) -= L*ds;
404 if (ds - dval(&d) < dval(&eps))
417 if ( (L = (Long)(dval(&d)/ds)) !=0)
418 dval(&d) -= L*ds;
421 ds *= 0.5;
422 if (dval(&d) > ds + dval(&eps))
424 else if (dval(&d) < ds - dval(&eps)) {
446 ds = tens[k];
449 if (ilim < 0 || dval(&d) <= 5*ds)
454 L = dval(&d) / ds;
455 dval(&d) -= L*ds;
460 dval(&d) += ds;
475 if (dval(&d) >= ds)
477 if (dval(&d) > ds || (dval(&d) == ds && L & 1))