1 | /* |
---|
2 | * This file was automatically generated by version 1.7 of cextract. |
---|
3 | * Manual editing not recommended. |
---|
4 | * |
---|
5 | * Created: Fri Mar 31 19:17:33 1995 |
---|
6 | */ |
---|
7 | extern double acosh ( double x ); |
---|
8 | extern int airy ( double, double *, double *, double *, double * ); |
---|
9 | extern double asin ( double ); |
---|
10 | extern double acos ( double ); |
---|
11 | extern double asinh ( double x ); |
---|
12 | extern double atan ( double ); |
---|
13 | extern double atan2 ( double y, double x ); |
---|
14 | extern double atanh ( double ); |
---|
15 | extern double bdtrc ( int k, int n, double p ); |
---|
16 | extern double bdtr ( int k, int n, double p ); |
---|
17 | extern double bdtri ( int k, int n, double y ); |
---|
18 | extern double beta ( double a, double b ); |
---|
19 | extern double lbeta ( double a, double b ); |
---|
20 | extern double btdtr ( double a, double b, double x ); |
---|
21 | extern double cbrt ( double ); |
---|
22 | extern double chbevl ( double, void *, int ); |
---|
23 | extern double chdtrc ( double df, double x ); |
---|
24 | extern double chdtr ( double df, double x ); |
---|
25 | extern double chdtri ( double df, double y ); |
---|
26 | extern void clog ( cmplx *z, cmplx *w ); |
---|
27 | extern void cexp ( cmplx *z, cmplx *w ); |
---|
28 | extern void csin ( cmplx *z, cmplx *w ); |
---|
29 | extern void ccos ( cmplx *z, cmplx *w ); |
---|
30 | extern void ctan ( cmplx *z, cmplx *w ); |
---|
31 | extern void ccot ( cmplx *z, cmplx *w ); |
---|
32 | extern void casin ( cmplx *z, cmplx *w ); |
---|
33 | extern void cacos ( cmplx *z, cmplx *w ); |
---|
34 | extern void catan ( cmplx *z, cmplx *w ); |
---|
35 | extern void cadd ( cmplx *a, cmplx *b, cmplx *c ); |
---|
36 | extern void csub ( cmplx *a, cmplx *b, cmplx *c ); |
---|
37 | extern void cmul ( cmplx *a, cmplx *b, cmplx *c ); |
---|
38 | extern void cdiv ( cmplx *a, cmplx *b, cmplx *c ); |
---|
39 | extern void cmov ( void *a, void *b ); |
---|
40 | extern void cneg ( cmplx *a ); |
---|
41 | extern double cabs ( cmplx *z ); |
---|
42 | extern void csqrt ( cmplx *z, cmplx *w ); |
---|
43 | extern double hypot ( double, double ); |
---|
44 | extern double cosh ( double ); |
---|
45 | extern double dawsn ( double xx ); |
---|
46 | extern void eigens ( double A[], double RR[], double E[], int N ); |
---|
47 | extern double ellie ( double, double ); |
---|
48 | extern double ellik ( double, double ); |
---|
49 | extern double ellpe ( double ); |
---|
50 | extern int ellpj ( double u, double m, double *sn, double *cn, double *dn, double *ph ); |
---|
51 | extern double ellpk ( double ); |
---|
52 | extern double exp10 ( double ); |
---|
53 | extern double exp1m ( double ); |
---|
54 | extern double exp2 ( double ); |
---|
55 | extern double expn ( int n, double x ); |
---|
56 | extern double fac ( int i ); |
---|
57 | extern double fdtrc ( int ia, int ib, double x ); |
---|
58 | extern double fdtr ( int ia, int ib, double x ); |
---|
59 | extern double fdtri ( int ia, int ib, double y ); |
---|
60 | extern int fftr ( double x[], int m0, double sine[] ); |
---|
61 | extern double ceil ( double x ); |
---|
62 | extern double fabs ( double ); |
---|
63 | extern double floor ( double ); |
---|
64 | extern double frexp ( double, int * ); |
---|
65 | extern double ldexp ( double, int ); |
---|
66 | //extern int signbit ( double ); |
---|
67 | //extern int isnan ( double ); |
---|
68 | //extern int isfinite ( double ); |
---|
69 | extern double polevl ( double, void *, int ); |
---|
70 | extern double p1evl ( double, void *, int ); |
---|
71 | extern double exp ( double ); |
---|
72 | extern double log ( double ); |
---|
73 | extern double sin ( double ); |
---|
74 | extern double cos ( double ); |
---|
75 | extern double sqrt ( double ); |
---|
76 | extern int fresnl ( double xxa, double *ssa, double *cca ); |
---|
77 | extern double gamma ( double ); |
---|
78 | extern double lgam ( double ); |
---|
79 | extern double gdtr ( double a, double b, double x ); |
---|
80 | extern double gdtrc ( double a, double b, double x ); |
---|
81 | extern int gels ( double A[], double R[], int M, double EPS, double AUX[] ); |
---|
82 | extern double hyp2f1 ( double a, double b, double c, double x ); |
---|
83 | extern double hyperg ( double, double, double ); |
---|
84 | extern double hyp2f0 ( double a, double b, double x, int type, double *err ); |
---|
85 | extern double i0 ( double ); |
---|
86 | extern double i0e ( double x ); |
---|
87 | extern double i1 ( double ); |
---|
88 | extern double i1e ( double x ); |
---|
89 | extern double igamc ( double, double ); |
---|
90 | extern double igam ( double, double ); |
---|
91 | extern double igami ( double, double ); |
---|
92 | extern double incbet ( double, double, double ); |
---|
93 | extern double incbi ( double, double, double ); |
---|
94 | extern double iv ( double v, double x ); |
---|
95 | extern double j0 ( double ); |
---|
96 | extern double y0 ( double ); |
---|
97 | extern double j1 ( double ); |
---|
98 | extern double y1 ( double ); |
---|
99 | extern double jn ( int n, double x ); |
---|
100 | extern double jv ( double, double ); |
---|
101 | extern double k0 ( double x ); |
---|
102 | extern double k0e ( double x ); |
---|
103 | extern double k1 ( double x ); |
---|
104 | extern double k1e ( double x ); |
---|
105 | extern double kn ( int nn, double x ); |
---|
106 | extern int levnsn ( int n, double r[], double a[], double e[], double refl[] ); |
---|
107 | extern double log10 ( double ); |
---|
108 | extern double log2 ( double ); |
---|
109 | extern long lrand ( void ); |
---|
110 | extern long lsqrt ( long x ); |
---|
111 | extern int minv ( double A[], double X[], int n, double B[], int IPS[] ); |
---|
112 | extern int mmmpy ( int r, int c, double *A, double *B, double *Y ); |
---|
113 | extern int mtherr ( char *name, int code ); |
---|
114 | extern int mtransp ( int n, double *A, double *T ); |
---|
115 | extern int mvmpy ( int r, int c, double *A, double *V, double *Y ); |
---|
116 | extern double nbdtrc ( int k, int n, double p ); |
---|
117 | extern double nbdtr ( int k, int n, double p ); |
---|
118 | extern double nbdtri ( int k, int n, double p ); |
---|
119 | extern double ndtr ( double a ); |
---|
120 | extern double erfc ( double ); |
---|
121 | extern double erf ( double ); |
---|
122 | extern double ndtri ( double ); |
---|
123 | extern double pdtrc ( int k, double m ); |
---|
124 | extern double pdtr ( int k, double m ); |
---|
125 | extern double pdtri ( int k, double y ); |
---|
126 | extern double pow ( double, double ); |
---|
127 | extern double powi ( double, int ); |
---|
128 | extern double psi ( double ); |
---|
129 | extern void revers ( double y[], double x[], int n ); |
---|
130 | extern double rgamma ( double x ); |
---|
131 | extern double round ( double ); |
---|
132 | extern int sprec ( void ); |
---|
133 | extern int dprec ( void ); |
---|
134 | extern int ldprec ( void ); |
---|
135 | extern int shichi ( double x, double *si, double *ci ); |
---|
136 | extern int sici ( double x, double *si, double *ci ); |
---|
137 | extern double simpsn ( double f[], double delta ); |
---|
138 | extern int simq ( double A[], double B[], double X[], int n, int flag, int IPS[] ); |
---|
139 | extern double radian ( double d, double m, double s ); |
---|
140 | /* |
---|
141 | extern int sincos ( double x, double *s, double *c, int flg ); |
---|
142 | */ |
---|
143 | extern double sindg ( double x ); |
---|
144 | extern double cosdg ( double x ); |
---|
145 | extern double sinh ( double ); |
---|
146 | extern double spence ( double ); |
---|
147 | extern double stdtr ( int k, double t ); |
---|
148 | extern double stdtri ( int k, double p ); |
---|
149 | extern double onef2 ( double a, double b, double c, double x, double *err ); |
---|
150 | extern double threef0 ( double a, double b, double c, double x, double *err ); |
---|
151 | extern double struve ( double v, double x ); |
---|
152 | extern double tan ( double ); |
---|
153 | extern double cot ( double ); |
---|
154 | extern double tandg ( double x ); |
---|
155 | extern double cotdg ( double x ); |
---|
156 | extern double tanh ( double ); |
---|
157 | extern double log1p ( double ); |
---|
158 | extern double exmp1 ( double ); |
---|
159 | extern double cosm1 ( double x ); |
---|
160 | extern double yn ( int, double ); |
---|
161 | extern double zeta ( double x, double q ); |
---|
162 | extern double zetac ( double ); |
---|
163 | extern int drand ( double *a ); |
---|
164 | double smirnov ( int, double ); |
---|
165 | double smirnovi ( int, double ); |
---|
166 | double kolmogorov ( double ); |
---|
167 | double kolmogi ( double ); |
---|
168 | |
---|
169 | /* polyn.c */ |
---|
170 | extern void polini ( int maxdeg ); |
---|
171 | extern void polprt ( double a[], int na, int d ); |
---|
172 | extern void polclr ( double *a, int n ); |
---|
173 | extern void polmov ( double *a, int na, double *b ); |
---|
174 | extern void polmul ( double a[], int na, double b[], int nb, double c[] ); |
---|
175 | extern void poladd ( double a[], int na, double b[], int nb, double c[] ); |
---|
176 | extern void polsub ( double a[], int na, double b[], int nb, double c[] ); |
---|
177 | extern int poldiv ( double a[], int na, double b[], int nb, double c[] ); |
---|
178 | extern void polsbt ( double a[], int na, double b[], int nb, double c[] ); |
---|
179 | extern double poleva ( double a[], int na, double x ); |
---|
180 | /* polmisc.c */ |
---|
181 | extern void polatn ( double num[], double den[], double ans[], int nn ); |
---|
182 | extern void polsqt ( double pol[], double ans[], int nn ); |
---|
183 | extern void polsin ( double x[], double y[], int nn ); |
---|
184 | extern void polcos ( double x[], double y[], int nn ); |
---|