#include<stdlib.h>
#include<stdio.h>
#include<math.h>
#include "gsl/gsl_sf_hyperg.h"

int main(int argc, char **argv)
{
 int ii;
 double Ri;
 double v0;
 double a, b, c;
 gsl_sf_result r;
 for(ii = 10; ii< 140;ii++)
{
     Ri = 2013;
     v0 =38.86871 +ii*2.5e-10;

     a = 1.0-v0; b = 2; c = 2.0*Ri/v0;
     gsl_sf_hyperg_1F1_e(a, b, c,&r);
     printf("%g %g %g %lg\t%14.13g\t%14.13g\n",a,b,c,v0,r.val,r.err);

 }
return 0;
}
