double root_rc ( double x, double fx, double *ferr, double *xerr, double q[9] );
double r8_sign ( double x );
void timestamp ( );