double alnorm ( double x, int upper );
void gamma_inc_values ( int *n_data, double *a, double *x, double *fx );
double gammad ( double x, double p, int *ifault );
double r8_min ( double x, double y );
void timestamp ( );