tinytens
extern CONST double bigtens[], tens[], tinytens[];
CONST double tinytens[] = { 1e-16, 1e-32, 1e-64, 1e-128, 1e-256
CONST double tinytens[] = { 1e-16, 1e-32, 1e-64 };
CONST double tinytens[] = { 1e-16, 1e-32 };
static CONST double tinytens[] = { 1e-16, 1e-32, 1e-64, 1e-128,
dval(&rv) *= tinytens[j];
dval(&rv) *= tinytens[j];
dval(&rv) *= tinytens[j];
dval(&rv) *= tinytens[j];
dval(&rv) *= tinytens[n_bigtens-1];
dval(&rv) *= tinytens[j];