218   dval(d) = b2d(b, &i);  in gdtoa()
224     dval(d) /= 1 << j;  in gdtoa()
252   ds = (dval(d)-1.5)*0.289529654602168 + 0.1760912590558 + i*0.301029995663981;  in gdtoa()
267     dval(d) *= 1 << jj1;  in gdtoa()
273     if (dval(d) < tens[k])  in gdtoa()
351     d2 = dval(d);  in gdtoa()
354       dval(d) /= 1 << j;  in gdtoa()
365         dval(d) /= bigtens[n_bigtens-1];  in gdtoa()
377         dval(d) *= tens[jj1 & 0xf];  in gdtoa()
381             dval(d) *= bigtens[i];  in gdtoa()
385     if (k_check && dval(d) < 1. && ilim > 0) {  in gdtoa()
390       dval(d) *= 10.;  in gdtoa()
393     dval(eps) = ieps*dval(d) + 7.;  in gdtoa()
397       dval(d) -= 5.;  in gdtoa()
398       if (dval(d) > dval(eps))  in gdtoa()
400       if (dval(d) < -dval(eps))  in gdtoa()
409       dval(eps) = ds*0.5/tens[ilim-1] - dval(eps);  in gdtoa()
411         L = (Long)(dval(d)/ds);  in gdtoa()
412         dval(d) -= L*ds;  in gdtoa()
414         if (dval(d) < dval(eps)) {  in gdtoa()
415           if (dval(d))  in gdtoa()
419         if (ds - dval(d) < dval(eps))  in gdtoa()
423         dval(eps) *= 10.;  in gdtoa()
424         dval(d) *= 10.;  in gdtoa()
430       dval(eps) *= tens[ilim-1];  in gdtoa()
431       for(i = 1;; i++, dval(d) *= 10.) {  in gdtoa()
432         if ( (L = (Long)(dval(d)/ds)) !=0)  in gdtoa()
433           dval(d) -= L*ds;  in gdtoa()
437           if (dval(d) > ds + dval(eps))  in gdtoa()
439           else if (dval(d) < ds - dval(eps)) {  in gdtoa()
442             if (dval(d))  in gdtoa()
454     dval(d) = d2;  in gdtoa()
466       if (ilim < 0 || dval(d) <= 5*ds)  in gdtoa()
470     for(i = 1;; i++, dval(d) *= 10.) {  in gdtoa()
471       L = dval(d) / ds;  in gdtoa()
472       dval(d) -= L*ds;  in gdtoa()
475       if (dval(d) < 0) {  in gdtoa()
477         dval(d) += ds;  in gdtoa()
481       if (dval(d) == 0.)  in gdtoa()
490         dval(d) += dval(d);  in gdtoa()
491         if (dval(d) > ds || (dval(d) == ds && L & 1)) {  in gdtoa()