double alngam ( double xvalue, int *ifault );
double gamain ( double x, double p, int *ifault );
void gamma_inc_values ( int *n_data, double *a, double *x, double *fx );
double r8_abs ( double x );
void timestamp ( void );