[431c9e0] | 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 ); |
---|