double glomin ( double a, double b, double c, double m, double machep, 
  double e, double t, double f ( double x ), double *x );
double local_min_rc ( double *a, double *b, int *status, double value );
double localm ( double a, double b, double eps, double t, 
  double f ( double x ), double *x );
double r8_abs ( double x );
double r8_epsilon ( void );
double r8_max ( double x, double y );
double r8_sign ( double x );
void timestamp ( void );
double zero ( double a, double b, double machep, double t, 
  double f ( double x ) );