double alogam ( double x, int *ifault );
void gamma_log_values ( int *n_data, double *x, double *fx );
double r8_abs ( double x );
void timestamp ( void );