Lines Matching refs:ds
162 double d, d2, ds, eps;
240 ds = (dval(d)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;
246 ds += j * 7e-17;
248 k = (int)ds;
249 if (ds < 0. && ds != k)
250 k--; /* want k = floor(ds) */
348 ds = tens[k&0xf];
359 ds *= bigtens[i];
363 ds = 1.;
397 dval(eps) = ds*0.5/tens[ilim-1] - dval(eps);
399 L = (Long)(dval(d)/ds);
400 dval(d) -= L*ds;
407 if (ds - dval(d) < dval(eps))
420 if ( (L = (Long)(dval(d)/ds)) !=0)
421 dval(d) -= L*ds;
424 ds *= 0.5;
425 if (dval(d) > ds + dval(eps))
427 else if (dval(d) < ds - dval(eps)) {
451 ds = tens[k];
454 if (ilim < 0 || dval(d) <= 5*ds)
459 L = dval(d) / ds;
460 dval(d) -= L*ds;
465 dval(d) += ds;
479 if (dval(d) > ds || (dval(d) == ds && L & 1)) {