-#define UNDERFL (1e-1020 * 1e-1020)
-double small_gam(double);
-double smaller_gam(double);
-struct Double large_gam(double);
-double neg_gam(double);
-struct Double ratfun_gam(double, double);
-/**
-#define NP 5
-static double P[] = {
- 0.57410538218150719558252603747,
- 0.24541366696467897812183878159,
- 0.00513973619299223308948265654,
- 0.00129391688253677823901288679,
- 0.00222188711638167000692045683
-};
-#define NQ 9
-static double Q[] = {
- 1.33984375,
- 0.981446340605471312379393111769,
- -0.19172028764767945485658628968,
- -0.13543838178180836462338731962,
- 0.028432780865671299780350622655,
- 0.004720852857293747484312973484,
- -0.00162320758342873413572482466,
- 8.63879091186865255905247274e-05,
- 5.67776543645974456238616906e-06,
- -1.1130244665113561369974706e-08
-};
-/**/
-#define P0 .621389571821820863029017800727g
-#define P1 .265757198651533466104979197553,
-#define P2 .00553859446429917461063308081748,
-#define P3 .00138456698304096573887145282811,
-#define P4 .00240659950032711365819348969808
-
-#define Q0 1.4501953125
-#define Q1 1.06258521948016171343454061571
-#define Q2 -.207474561943859936441469926649
-#define Q3 -.146734131782005422506287573015
-#define Q4 .0307878176156175520361557573779
-#define Q5 .00512449347980666221336054633184
-#define Q6 -.00176012741431666995019222898833
-#define Q7 .0000935021023573788935372153030556
-#define Q8 .00000613275507472443958924745652239
-
-#define Pa0 .0833333333333333148296162562474
-#define Pa1 -.00277777777774548123579378966497
-#define Pa2 .000793650778754435631476282786423
-#define Pa3 -.000595235082566672847950717262222
-#define Pa4 .000841428560346653702135821806252
-#define Pa5 -.00189773526463879200348872089421
-#define Pa6 .00569394463439411649408050664078
-#define Pa7 -.0144705562421428915453880392761
-
-static struct Double large_gam __P((double));
-static double neg_gam __P((double));
-static struct Double ratfun_gam __P((double, double));
-static double small_gam __P((double));
-static double smaller_gam __P((double));