4339
4338
nf += y->exponent*((int)BASE_FIG);
4345
4350
/* ix: x->fraq[ix] contains round position */
4348
4353
ioffset = nf - ix*((int)BASE_FIG);
4351
4357
/* drop digits after pointed digit */
4352
4358
n = BASE_FIG - ioffset - 1;
4353
4359
for(shifter=1,i=0;i<n;++i) shifter *= 10;