bigtens
dval(&d) /= bigtens[n_bigtens-1];
ds *= bigtens[i];
dval(&d) *= bigtens[i];
dval(&d) /= bigtens[n_bigtens-1];
ds *= bigtens[i];
dval(&d) *= bigtens[i];
extern CONST double bigtens[], tens[], tinytens[];
bigtens[] = { 1e16, 1e32, 1e64, 1e128, 1e256 };
bigtens[] = { 1e16, 1e32, 1e64 };
bigtens[] = { 1e16, 1e32 };
dval(&rv) *= bigtens[j];
dval(&rv) *= bigtens[j];
dval(&rv) *= bigtens[n_bigtens-1];
dval(&rv) *= bigtens[j];