1 files changed, 180 insertions, 0 deletions
diff --git a/nist/cephes-protos.h b/nist/cephes-protos.h
new file mode 100644
index 0000000..1041936
--- /dev/null
+++ b/nist/cephes-protos.h
@@ -0,0 +1,180 @@
+/*
+ *   This file was automatically generated by version 1.7 of cextract.
+ *   Manual editing not recommended.
+ *
+ *   Created: Fri Mar 31 19:17:33 1995
+ */
+extern double acosh ( double x );
+extern int airy ( double x, double *ai, double *aip, double *bi, double *bip );
+extern double asin ( double x );
+extern double acos ( double x );
+extern double asinh ( double x );
+extern double atan ( double x );
+extern double atan2 ( double y, double x );
+extern double atanh ( double x );
+extern double bdtrc ( int k, int n, double p );
+extern double bdtr ( int k, int n, double p );
+extern double bdtri ( int k, int n, double y );
+extern double beta ( double a, double b );
+extern double lbeta ( double a, double b );
+extern double btdtr ( double a, double b, double x );
+extern double cbrt ( double x );
+extern double chbevl ( double x, void *P, int n );
+extern double chdtrc ( double df, double x );
+extern double chdtr ( double df, double x );
+extern double chdtri ( double df, double y );
+// extern void clog ( cmplx *z, cmplx *w );
+extern void _cexp ( cmplx *z, cmplx *w );
+extern void _csin ( cmplx *z, cmplx *w );
+extern void _ccos ( cmplx *z, cmplx *w );
+extern void _ctan ( cmplx *z, cmplx *w );
+extern void _ccot ( cmplx *z, cmplx *w );
+extern void _casin ( cmplx *z, cmplx *w );
+extern void _cacos ( cmplx *z, cmplx *w );
+extern void _catan ( cmplx *z, cmplx *w );
+extern void cadd ( cmplx *a, cmplx *b, cmplx *c );
+extern void csub ( cmplx *a, cmplx *b, cmplx *c );
+extern void cmul ( cmplx *a, cmplx *b, cmplx *c );
+extern void cdiv ( cmplx *a, cmplx *b, cmplx *c );
+extern void cmov ( void *a, void *b );
+extern void cneg ( cmplx *a );
+//extern double _cabs ( cmplx *z );
+extern void _csqrt ( cmplx *z, cmplx *w );
+extern double hypot ( double x, double y );
+extern double cosh ( double x );
+extern double dawsn ( double xx );
+extern void eigens ( double A[], double RR[], double E[], int N );
+extern double ellie ( double phi, double m );
+extern double ellik ( double phi, double m );
+extern double ellpe ( double x );
+extern int ellpj ( double u, double m, double *sn, double *cn, double *dn, double *ph );
+extern double ellpk ( double x );
+extern double exp ( double x );
+extern double exp10 ( double x );
+extern double exp1m ( double x );
+extern double exp2 ( double x );
+extern double expn ( int n, double x );
+extern double fabs ( double x );
+extern double fac ( int i );
+extern double fdtrc ( int ia, int ib, double x );
+extern double fdtr ( int ia, int ib, double x );
+extern double fdtri ( int ia, int ib, double y );
+extern int fftr ( double x[], int m0, double sine[] );
+extern double ceil ( double x );
+extern double floor ( double x );
+extern double frexp ( double x, int *pw2 );
+extern double ldexp ( double x, int pw2 );
+extern int _signbit ( double x );
+/* extern int isnan ( double x ); */
+/*extern int isfinite ( double x );*/
+extern int fresnl ( double xxa, double *ssa, double *cca );
+extern double gamma ( double x );
+extern double lgam ( double x );
+extern double gdtr ( double a, double b, double x );
+extern double gdtrc ( double a, double b, double x );
+extern int gels ( double A[], double R[], int M, double EPS, double AUX[] );
+extern double hyp2f1 ( double a, double b, double c, double x );
+extern double hyperg ( double a, double b, double x );
+extern double hyp2f0 ( double a, double b, double x, int type, double *err );
+extern double i0 ( double x );
+extern double i0e ( double x );
+extern double i1 ( double x );
+extern double i1e ( double x );
+extern double igamc ( double a, double x );
+extern double igam ( double a, double x );
+extern double igami ( double a, double y0 );
+extern double incbet ( double aa, double bb, double xx );
+extern double incbi ( double aa, double bb, double yy0 );
+extern double iv ( double v, double x );
+extern double j0 ( double x );
+extern double y0 ( double x );
+extern double j1 ( double x );
+extern double y1 ( double x );
+extern double jn ( int n, double x );
+extern double jv ( double n, double x );
+extern double k0 ( double x );
+extern double k0e ( double x );
+extern double k1 ( double x );
+extern double k1e ( double x );
+extern double kn ( int nn, double x );
+extern int levnsn ( int n, double r[], double a[], double e[], double refl[] );
+extern double log ( double x );
+extern double log10 ( double x );
+extern double _log2 ( double x );
+extern long lrand ( void );
+extern long lsqrt ( long x );
+extern int minv ( double A[], double X[], int n, double B[], int IPS[] );
+extern int mmmpy ( int r, int c, double *A, double *B, double *Y );
+extern int mtherr ( char *name, int code );
+/*extern double polevl ( double x, void *P, int N );
+extern double p1evl ( double x, void *P, int N );*/
+extern int mtransp ( int n, double *A, double *T );
+extern int mvmpy ( int r, int c, double *A, double *V, double *Y );
+extern double nbdtrc ( int k, int n, double p );
+extern double nbdtr ( int k, int n, double p );
+extern double nbdtri ( int k, int n, double p );
+extern double ndtr ( double a );
+extern double erfc ( double a );
+extern double erf ( double x );
+extern double ndtri ( double y0 );
+extern double pdtrc ( int k, double m );
+extern double pdtr ( int k, double m );
+extern double pdtri ( int k, double y );
+extern double pow ( double x, double y );
+extern double powi ( double x, int nn );
+extern double psi ( double x );
+extern void revers ( double y[], double x[], int n );
+extern double rgamma ( double x );
+extern double round ( double x );
+extern int sprec ( void );
+extern int dprec ( void );
+extern int ldprec ( void );
+extern int shichi ( double x, double *si, double *ci );
+extern int sici ( double x, double *si, double *ci );
+extern double simpsn ( double f[], double delta );
+extern int simq ( double A[], double B[], double X[], int n, int flag, int IPS[] );
+extern double sin ( double x );
+extern double cos ( double x );
+extern double radian ( double d, double m, double s );
+/*
+extern int sincos ( double x, double *s, double *c, int flg );
+*/
+extern double sindg ( double x );
+extern double cosdg ( double x );
+extern double sinh ( double x );
+extern double spence ( double x );
+extern double sqrt ( double x );
+extern double stdtr ( int k, double t );
+extern double stdtri ( int k, double p );
+extern double onef2 ( double a, double b, double c, double x, double *err );
+extern double threef0 ( double a, double b, double c, double x, double *err );
+extern double struve ( double v, double x );
+extern double tan ( double x );
+extern double cot ( double x );
+extern double tandg ( double x );
+extern double cotdg ( double x );
+extern double tanh ( double x );
+extern double log1p ( double x );
+extern double expm1 ( double x );
+extern double cosm1 ( double x );
+extern double yn ( int n, double x );
+extern double zeta ( double x, double q );
+extern double zetac ( double x );
+extern int drand ( double *a );
+
+/* polyn.c */
+extern void polini ( int maxdeg );
+extern void polprt ( double a[], int na, int d );
+extern void polclr ( double *a, int n );
+extern void polmov ( double *a, int na, double *b );
+extern void polmul ( double a[], int na, double b[], int nb, double c[] );
+extern void poladd ( double a[], int na, double b[], int nb, double c[] );
+extern void polsub ( double a[], int na, double b[], int nb, double c[] );
+extern int poldiv ( double a[], int na, double b[], int nb, double c[] );
+extern void polsbt ( double a[], int na, double b[], int nb, double c[] );
+extern double poleva ( double a[], int na, double x );
+/* polmisc.c */
+extern void polatn ( double num[], double den[], double ans[], int nn );
+extern void polsqt ( double pol[], double ans[], int nn );
+extern void polsin ( double x[], double y[], int nn );
+extern void polcos ( double x[], double y[], int nn );