diff options
Diffstat (limited to 'src/math/j1.c')
| -rw-r--r-- | src/math/j1.c | 8 |
1 files changed, 8 insertions, 0 deletions
diff --git a/src/math/j1.c b/src/math/j1.c index df724d17..efaf07d2 100644 --- a/src/math/j1.c +++ b/src/math/j1.c @@ -360,3 +360,11 @@ static double qone(double x) s = 1.0+z*(q[0]+z*(q[1]+z*(q[2]+z*(q[3]+z*(q[4]+z*q[5]))))); return (.375 + r/s)/x; } + + +#ifdef TEST +int +main(void) { + return 0; +} +#endif |