n_bigtens
dval(&d) /= bigtens[n_bigtens-1];
dval(&d) /= bigtens[n_bigtens-1];
if (e1 >= 1 << n_bigtens)
while(e1 >= (1 << (n_bigtens-1))) {
dval(&rv) *= bigtens[n_bigtens-1];
e1 -= 1 << (n_bigtens-1);
while(e1 >= (1 << (n_bigtens-1))) {
dval(&rv) *= tinytens[n_bigtens-1];
e1 -= 1 << (n_bigtens-1);