00001
00002
00003 typedef struct FCOMPLEX {float r,i;} fcomplex;
00004 typedef struct IMMENSE {unsigned long l,r;} immense;
00005 typedef struct GREAT {unsigned short l,c,r;} great;
00006
00007 #define TRADITIONAL 1
00008 #ifdef LINT_ARGS
00009 void adi(double **, double **, double **, double **,
00010 double **, double **, double **, double **,
00011 int, int, double, double, double);
00012 void amoeba(float **, float *, int, float, float (*)(), int *);
00013 void anneal(float *, float *, int *, int);
00014 void avevar(float *, int, float *, float *);
00015 void balanc(float **, int);
00016 void bcucof(float *, float *, float *, float *, float,
00017 float, float **);
00018 void bcuint(float *, float *, float *, float *, float,
00019 float, float, float, float, float, float *,
00020 float *, float *);
00021 float bessi(int, float);
00022 float bessi0(float);
00023 float bessi1(float);
00024 float bessj(int, float);
00025 float bessj0(float);
00026 float bessj1(float);
00027 float bessk(int, float);
00028 float bessk0(float);
00029 float bessk1(float);
00030 float bessy(int, float);
00031 float bessy0(float);
00032 float bessy1(float);
00033 float beta(float, float);
00034 float betacf(float, float, float);
00035 float betai(float, float, float);
00036 float bico(int, int);
00037 void bksub(int, int, int, int, int, float ***);
00038 float bnldev(float, int, int *);
00039 float brent(float, float, float, float (*)(), float, float *);
00040 void bsstep(float *, float *, int, float *, float,
00041 float, float *, float *, float *, void (*)());
00042 void caldat(long, int *, int *, int *);
00043 float cel(float, float, float, float);
00044 void chder(float, float, float *, float *, int);
00045 float chebev(float, float, float *, int, float);
00046 void chebft(float, float, float *, int, float (*)());
00047 void chebpc(float *, float *, int);
00048 void chint(float, float, float *, float *, int);
00049 void chsone(float *, float *, int, int, float *,
00050 float *, float *);
00051 void chstwo(float *, float *, int, int, float *,
00052 float *, float *);
00053 void cntab1(int **, int, int, float *, float *,
00054 float *, float *, float *);
00055 void cntab2(int **, int, int, float *, float *,
00056 float *, float *, float *, float *, float *, float *);
00057 void convlv(float *, int, float *, int, int, float *);
00058 void correl(float *, float *, int, float *);
00059 void cosft(float *, int, int);
00060 void covsrt(float **, int, int *, int);
00061 void crank(int, float *, float *);
00062 float dbrent(float, float, float, float (*)(), float (*)(),
00063 float, float *);
00064 void ddpoly(float *, int, float, float *, int);
00065 void des(immense, immense, int *, int, immense *);
00066 void ks(immense, int, great *);
00067 void cyfun(unsigned long, great, unsigned long *);
00068 float df1dim(float);
00069 void dfpmin(float *, int, float, int *, float *, float (*)(),
00070 void (*)());
00071 void difeq(int, int, int, int, int, int, int *, int,
00072 float **, float **);
00073 void dlinmin(float *, float *, int, float *, float (*)(), void (*)());
00074 void eclass(int *, int, int *, int *, int);
00075 void eclazz(int *, int, int (*)());
00076 void eigsrt(float *, float **, int);
00077 float el2(float, float, float, float);
00078 void elmhes(float **, int);
00079 float erf(float);
00080 float erfc(float);
00081 float erfcc(float);
00082 void eulsum(float *, float, int, float *);
00083 float evlmem(float, float *, int, float);
00084 float expdev(int *);
00085 float f1dim(float);
00086 float factln(int);
00087 float factrl(int);
00088 void fgauss(float, float *, float *, float *, int);
00089 void fit(float *, float *, int, float *, int, float *,
00090 float *, float *, float *, float *, float *);
00091 void fixrts(float *, int);
00092 void fleg(float, float *, int);
00093 void flmoon(int, int, long *, float *);
00094 void four1(float *, int, int);
00095 void fourn(float *, int *, int, int);
00096 void fpoly(float, float *, int);
00097 void frprmn(float *, int, float, int *, float *, float (*)(),
00098 void (*)());
00099 void ftest(float *, int, float *, int, float *, float *);
00100 float gamdev(int, int *);
00101 float gammln(float);
00102 float gammp(float, float);
00103 float gammq(float, float);
00104 float gasdev(int *);
00105 void gauleg(double, double, double *, double *, int);
00106 void gaussj(float **, int, float **, int);
00107 void gcf(float *, float, float, float *);
00108 float golden(float, float, float, float (*)(), float, float *);
00109 void gser(float *, float, float, float *);
00110 void hqr(float **, int, float *, float *);
00111 void hunt(float *, int, float, int *);
00112 void indexx(int, float *, int *);
00113 int irbit1(unsigned long int *);
00114 int irbit2(unsigned long int *);
00115 void jacobi(float **, int, float *, float **, int *);
00116 long julday(int, int, int);
00117 void kendl1(float *, float *, int, float *, float *, float *);
00118 void kendl2(float **, int, int, float *, float *, float *);
00119 void ksone(float *, int, float (*)(), float *, float *);
00120 void kstwo(float *, int, float *, int, float *, float *);
00121 void laguer(fcomplex *, int, fcomplex *, float, int);
00122 void lfit(float *, float *, float *, int, float *, int,
00123 int *, int, float **, float *, void (*)());
00124 void linmin(float *, float *, int, float *, float (*)());
00125 void locate(float *, int, float, int *);
00126 void lubksb(float **, int, int *, float *);
00127 void ludcmp(float **, int, int *, float *);
00128 void mdian1(float *, int, float *);
00129 void mdian2(float *, int, float *);
00130 void medfit(float *, float *, int, float *, float *, float *);
00131 void memcof(float *, int, int, float *, float *);
00132 float midexp(float (*)(), float, float, int);
00133 float midinf(float (*)(), float, float, int);
00134 float midpnt(float (*)(), float, float, int);
00135 float midsql(float (*)(), float, float, int);
00136 float midsqu(float (*)(), float, float, int);
00137 void mmid(float *, float *, int, float, float, int, float *,
00138 void (*)());
00139 void mnbrak(float *, float *, float *, float *,
00140 float *, float *, float (*)());
00141 void mnewt(int, float *, int, float, float);
00142 void moment(float *, int, float *, float *, float *,
00143 float *, float *, float *);
00144 void mprove(float **, float **, int, int *, float *, float *);
00145 void mrqcof(float *, float *, float *, int, float *, int,
00146 int *, int, float **, float *, float *, void (*)());
00147 void mrqmin(float *, float *, float *, int, float *, int,
00148 int *, int, float **, float **, float *, void (*)(),
00149 float *);
00150 void odeint(float *, int, float, float, float, float,
00151 float, int *, int *, void (*)(), void (*)());
00152 void pcshft(float, float, float *, int);
00153 void pearsn(float *, float *, int, float *, float *, float *);
00154 void piksr2(int, float *, float *);
00155 void piksrt(int, float *);
00156 void pinvs(int, int, int, int, int, int, float ***, float **);
00157 float plgndr(int, int, float);
00158 float poidev(float, int *);
00159 void polcoe(float *, float *, int, float *);
00160 void polcof(float *, float *, int, float *);
00161 void poldiv(float *, int, float *, int, float *, float *);
00162 void polin2(float *, float *, float **, int, int, float,
00163 float, float *, float *);
00164 void polint(float *, float *, int, float, float *, float *);
00165 void powell(float *, float **, int, float, int *, float *, float (*)());
00166 void predic(float *, int, float *, int, float *, int);
00167 float probks(float);
00168 void pzextr(int, float, float *, float *, float *, int, int);
00169 void qcksrt(int, float *);
00170 float qgaus(float (*)(float), float, float);
00171 float qromb(float (*)(float), float, float);
00172 float qromo(float (*)(float), float, float, float (*)());
00173 void qroot(float *, int, float *, float *, float);
00174 float qsimp(float (*)(float), float, float);
00175 float qtrap(float (*)(float), float, float);
00176 float quad3d(float (*)(float), float, float);
00177 float ran0(int *);
00178 float ran1(int *);
00179 float ran2(long *);
00180 float ran3(int *);
00181 float ran4(int *);
00182 void rank(int, int *, int *);
00183 void ratint(float *, float *, int, float, float *, float *);
00184 void realft(float *, int, int);
00185 void red(int, int, int, int, int, int, int, int, int, int,
00186 int, float ***, float **);
00187 void rk4(float *, float *, int, float, float, float *, void (*)());
00188 void rkdumb(float *, int, float, float, int, void (*)());
00189 void rkqc(float *, float *, int, float *, float, float,
00190 float *, float *, float *, void (*)());
00191 float rofunc(float);
00192 float rtbis(float (*)(), float, float, float);
00193 float rtflsp(float (*)(), float, float, float);
00194 float rtnewt(void (*)(), float, float, float);
00195 float rtsafe(void (*)(), float, float, float);
00196 float rtsec(float (*)(), float, float, float);
00197 void rzextr(int, float, float *, float *, float *, int, int);
00198 void scrsho(float (*)());
00199 void shell(int, float *);
00200 void shoot(int, float *, float *, int, float, float, float,
00201 float, float, float *, float *);
00202 void shootf(int, float *, float *, float *, float *, int, int,
00203 float, float, float, float, float, float, float *,
00204 float *, float *);
00205 void simp1(float **, int, int *, int, int, int *, float *);
00206 void simp2(float **, int, int *, int, int *, int, float *);
00207 void simp3(float **, int, int, int, int);
00208 void simplx(float **, int, int, int, int, int,
00209 int *, int *, int *);
00210 void sinft(float *, int);
00211 void smooft(float *, int, float);
00212 void sncndn(float, float, float *, float *, float *);
00213 void solvde(int, float, float, float *, int *, int, int,
00214 int, float **, float ***, float **);
00215 void sor(double **, double **, double **, double **, double **,
00216 double **, double **, int, double);
00217 void sort(int, float *);
00218 void sort2(int, float *, float *);
00219 void sort3(int, float *, float *, float *);
00220 void sparse(float *, int, float *, float *);
00221 void spctrm(FILE *, float *, int, int, int);
00222 void spear(float *, float *, int, float *,
00223 float *, float *, float *, float *);
00224 void splie2(float *, float *, float **, int, int, float **);
00225 void splin2(float *, float *, float **, float **, int, int,
00226 float, float, float *);
00227 void spline(float *, float *, int, float, float, float *);
00228 void splint(float *, float *, float *, int, float, float *);
00229 void svbksb(float **, float *, float **, int, int,
00230 float *, float *);
00231 void svdcmp(float **, int, int, float *, float **);
00232 void svdfit(float *, float *, float *, int, float *, int,
00233 float **, float **, float *, float *, void (*)());
00234 void svdvar(float **, int, float *, float **);
00235 void toeplz(float *, float *, float *, int);
00236 void tptest(float *, float *, int, float *, float *);
00237 void tqli(float *, float *, int, float **);
00238 float trapzd(float (*)(float), float, float, int);
00239 void tred2(float **, int, float *, float *);
00240 void tridag(float *, float *, float *, float *, float *, int);
00241 void ttest(float *, int, float *, int, float *, float *);
00242 void tutest(float *, int, float *, int, float *, float *);
00243 void twofft(float *, float *, float *, float *, int);
00244 void vander(float *, float *, float *, int);
00245 int zbrac(float (*)(), float *, float *);
00246 void zbrak(float (*)(), float, float, int, float *, float *, int *);
00247 float zbrent(float (*)(), float, float, float);
00248 void zroots(fcomplex *, int, fcomplex *, int);
00249 #endif
00250 #ifdef ANSI
00251 void adi(double **a, double **b, double **c, double **d, double **e,
00252 double **f, double **g, double **u, int jmax, int k,
00253 double alpha, double beta, double eps);
00254 void amoeba(float **p, float *y, int ndim, float ftol,
00255 float (*funk)(float *), int *iter);
00256 void anneal(float *x, float *y, int *iorder, int ncity);
00257 void avevar(float *data, int n, float *ave, float *svar);
00258 void balanc(float **a, int n);
00259 void bcucof(float *y, float *y1, float *y2, float *y12, float d1,
00260 float d2, float **c);
00261 void bcuint(float *y, float *y1, float *y2, float *y12, float x1l,
00262 float x1u, float x2l, float x2u, float x1, float x2,
00263 float *ansy, float *ansy1, float *ansy2);
00264 float bessi(int n, float x);
00265 float bessi0(float x);
00266 float bessi1(float x);
00267 float bessj(int n, float x);
00268 float bessj0(float x);
00269 float bessj1(float x);
00270 float bessk(int n, float x);
00271 float bessk0(float x);
00272 float bessk1(float x);
00273 float bessy(int n, float x);
00274 float bessy0(float x);
00275 float bessy1(float x);
00276 float beta(float z, float w);
00277 float betacf(float a, float b, float x);
00278 float betai(float a, float b, float x);
00279 float bico(int n, int k);
00280 void bksub(int ne, int nb, int jf, int k1, int k2, float ***c);
00281 float bnldev(float pp, int n, int *idum);
00282 float brent(float ax, float bx, float cx, float (*f)(float), float tol,
00283 float *xmin);
00284 void bsstep(float *y, float *dydx, int nv, float *xx, float htry,
00285 float eps, float *yscal, float *hdid, float *hnext,
00286 void (*derivs)(float,float *,float *));
00287 void caldat(long julian, int *mm, int *id, int *iyyy);
00288 float cel(float qqc, float pp, float aa, float bb);
00289 void chder(float a, float b, float *c, float *cder, int n);
00290 float chebev(float a, float b, float *c, int m, float x);
00291 void chebft(float a, float b, float *c, int n, float (*func)(float));
00292 void chebpc(float *c, float *d, int n);
00293 void chint(float a, float b, float *c, float *cint, int n);
00294 void chsone(float *bins, float *ebins, int nbins, int knstrn,
00295 float *df, float *chsq, float *prob);
00296 void chstwo(float *bins1, float *bins2, int nbins, int knstrn,
00297 float *df, float *chsq, float *prob);
00298 void cntab1(int **nn, int n1, int nj, float *chisq, float *df,
00299 float *prob, float *cramrv, float *ccc);
00300 void cntab2(int **nn, int ni, int nj, float *h, float *hx, float *hy,
00301 float *hygx, float *hxgy, float *uygx, float *uxgy,
00302 float *uxy);
00303 void convlv(float *data, int n, float *respns, int m, int isign,
00304 float *ans);
00305 void correl(float *data1, float *data2, int n, float *ans);
00306 void cosft(float *y, int n, int isign);
00307 void covsrt(float **covar, int ma, int *lista, int mfit);
00308 void crank(int n, float *w, float *s);
00309 float dbrent(float ax, float bx, float cx, float (*f)(float),
00310 float (*df)(float), float tol, float *xmin);
00311 void ddpoly(float *c, int nc, float x, float *pd, int nd);
00312 void des(immense inp, immense key, int *newkey, int isw, immense *out);
00313 void ks(immense key, int n, great *kn);
00314 void cyfun(unsigned long ir, great k, unsigned long *iout);
00315 float df1dim(float x);
00316 void dfpmin(float *p, int n, float ftol, int *iter, float *fret,
00317 float (*func)(float *), void (*dfunc)(float *,float *));
00318 void difeq(int k, int k1, int k2, int jsf, int is1, int isf,
00319 int *indexv, int ne, float **s, float **y);
00320 void dlinmin(float *p, float *xi, int n, float *fret,
00321 float (*func)(float *), void (*dfunc)(float *,float *));
00322 void eclass(int *nf, int n, int *lista, int *listb, int m);
00323 void eclazz(int *nf, int n, int (*equiv)(int,int));
00324 void eigsrt(float *d, float **v, int n);
00325 float el2(float x, float qqc, float aa, float bb);
00326 void elmhes(float **a, int n);
00327 float erf(float x);
00328 float erfc(float x);
00329 float erfcc(float x);
00330 void eulsum(float *sum, float term, int jterm, float *wksp);
00331 float evlmem(float fdt, float *cof, int m, float pm);
00332 float expdev(int *idum);
00333 float f1dim(float x);
00334 float factln(int n);
00335 float factrl(int n);
00336 void fgauss(float x, float *a, float *y, float *dyda, int na);
00337 void fit(float *x, float *y, int ndata, float *sig, int mwt, float *a,
00338 float *b, float *siga, float *sigb, float *chi2, float *q);
00339 void fixrts(float *d, int npoles);
00340 void fleg(float x, float *pl, int nl);
00341 void flmoon(int n, int nph, long *jd, float *frac);
00342 void four1(float *data, int nn, int isign);
00343 void fourn(float *data, int *nn, int ndim, int isign);
00344 void fpoly(float x, float *p, int np);
00345 void frprmn(float *p, int n, float ftol, int *iter, float *fret,
00346 float (*func)(float *), void (*dfunc)(float *,float *));
00347 void ftest(float *data1, int n1, float *data2, int n2, float *f,
00348 float *prob);
00349 float gamdev(int ia, int *idum);
00350 float gammln(float xx);
00351 float gammp(float a, float x);
00352 float gammq(float a, float x);
00353 float gasdev(int *idum);
00354 void gauleg(double x1, double x2, double *x, double *w, int n);
00355 void gaussj(float **a, int n, float **b, int m);
00356 void gcf(float *gammcf, float a, float x, float *gln);
00357 float golden(float ax, float bx, float cx, float (*f)(float), float tol,
00358 float *xmin);
00359 void gser(float *gamser, float a, float x, float *gln);
00360 void hqr(float **a, int n, float *wr, float *wi);
00361 void hunt(float *xx, int n, float x, int *jlo);
00362 void indexx(int n, float *arrin, int *indx);
00363 int irbit1(unsigned long int *iseed);
00364 int irbit2(unsigned long int *iseed);
00365 void jacobi(float **a, int n, float *d, float **v, int *nrot);
00366 long julday(int mm, int id, int iyyy);
00367 void kendl1(float *data1, float *data2, int n, float *tau, float *z,
00368 float *prob);
00369 void kendl2(float **tab, int i, int j, float *tau, float *z,
00370 float *prob);
00371 void ksone(float *data, int n, float (*func)(float), float *d,
00372 float *prob);
00373 void kstwo(float *data1, int n1, float *data2, int n2, float *d,
00374 float *prob);
00375 void laguer(fcomplex *a, int m, fcomplex *x, float eps, int polish);
00376 void lfit(float *x, float *y, float *sig, int ndata, float *a, int ma,
00377 int *lista, int mfit, float **covar, float *chisq,
00378 void (*funcs)(float,float *,int));
00379 void linmin(float *p, float *xi, int n, float *fret, float (*func)(float));
00380 void locate(float *xx, int n, float x, int *j);
00381 void lubksb(float **a, int n, int *indx, float *b);
00382 void ludcmp(float **a, int n, int *indx, float *d);
00383 void mdian1(float *x, int n, float *xmed);
00384 void mdian2(float *x, int n, float *xmed);
00385 void medfit(float *x, float *y, int ndata, float *a, float *b,
00386 float *abdev);
00387 void memcof(float *data, int n, int m, float *pm, float *cof);
00388 float midexp(float (*funk)(float), float aa, float bb, int n);
00389 float midinf(float (*funk)(float), float aa, float bb, int n);
00390 float midpnt(float (*func)(float), float a, float b, int n);
00391 float midsql(float (*funk)(float), float aa, float bb, int n);
00392 float midsqu(float (*funk)(float), float aa, float bb, int n);
00393 void mmid(float *y, float *dydx, int nvar, float xs, float htot,
00394 int nstep, float *yout,
00395 void (*derivs)(float,float *,float *));
00396 void mnbrak(float *ax, float *bx, float *cx, float *fa, float *fb,
00397 float *fc, float (*func)(float));
00398 void mnewt(int ntrial, float *x, int n, float tolx, float tolf);
00399 void moment(float *data, int n, float *ave, float *adev, float *sdev,
00400 float *svar, float *skew, float *curt);
00401 void mprove(float **a, float **alud, int n, int *indx, float *b,
00402 float *x);
00403 void mrqcof(float *x, float *y, float *sig, int ndata, float *a, int ma,
00404 int *lista, int mfit, float **alpha, float *beta, float
00405 *chisq, void (*funcs)(float,float *,float *,float *,int));
00406 void mrqmin(float *x, float *y, float *sig, int ndata, float *a,
00407 int ma, int *lista, int mfit, float **covar, float **alpha,
00408 float *chisq, void (*funcs)(float,float *,float *,float *,
00409 int),float *alamda);
00410 void odeint(float *ystart, int nvar, float x1, float x2, float eps,
00411 float h1, float hmin, int *nok, int *nbad,
00412 void (*derivs)(float,float *,float *),
00413 void (*rkqc)(float *,float *,int,float *,float,float,float
00414 *,float *,float *,void (*)(float,float *,float *)));
00415 void pcshft(float a, float b, float *d, int n);
00416 void pearsn(float *x, float *y, int n, float *r, float *prob, float *z);
00417 void piksr2(int n, float *arr, float *brr);
00418 void piksrt(int n, float *arr);
00419 void pinvs(int ie1, int ie2, int je1, int jsf, int jc1, int k,
00420 float ***c, float **s);
00421 float plgndr(int l, int m, float x);
00422 float poidev(float xm, int *idum);
00423 void polcoe(float *x, float *y, int n, float *cof);
00424 void polcof(float *xa, float *ya, int n, float *cof);
00425 void poldiv(float *u, int n, float *v, int nv, float *q, float *r);
00426 void polin2(float *x1a, float *x2a, float **ya, int m, int n, float x1,
00427 float x2, float *y, float *dy);
00428 void polint(float *xa, float *ya, int n, float x, float *y, float *dy);
00429 void powell(float *p, float **xi, int n, float ftol, int *iter,
00430 float *fret, float (*func)(float *));
00431 void predic(float *data, int ndata, float *d, int npoles,
00432 float *future, int nfut);
00433 float probks(float alam);
00434 void pzextr(int iest, float xest, float *yest, float *yz, float *dy,
00435 int nv, int nuse);
00436 void qcksrt(int n, float *arr);
00437 float qgaus(float (*func)(float), float a, float b);
00438 float qromb(float (*func)(float), float a, float b);
00439 float qromo(float (*func)(float), float a, float b,
00440 float (*choose)(float (*)(float),float,float,int));
00441 void qroot(float *p, int n, float *b, float *c, float eps);
00442 float qsimp(float (*func)(float), float a, float b);
00443 float qtrap(float (*func)(float), float a, float b);
00444 float quad3d(float (*func)(float,float,float), float x1, float x2);
00445 float ran0(int *idum);
00446 float ran1(int *idum);
00447 float ran2(long *idum);
00448 float ran3(int *idum);
00449 float ran4(int *idum);
00450 void rank(int n, int *indx, int *irank);
00451 void ratint(float *xa, float *ya, int n, float x, float *y, float *dy);
00452 void realft(float *data, int n, int isign);
00453 void red(int iz1, int iz2, int jz1, int jz2, int jm1, int jm2, int jmf,
00454 int ic1, int jc1, int jcf, int kc, float ***c, float **s);
00455 void rk4(float *y, float *dydx, int n, float x, float h, float *yout,
00456 void (*derivs)(float,float *,float *));
00457 void rkdumb(float *vstart, int nvar, float x1, float x2, int nstep,
00458 void (*derivs)(float,float *,float *));
00459 void rkqc(float *y, float *dydx, int n, float *x, float htry,
00460 float eps, float *yscal, float *hdid, float *hnext,
00461 void (*derivs)(float,float *,float *));
00462 float rofunc(float b);
00463 float rtbis(float (*func)(float), float x1, float x2, float xacc);
00464 float rtflsp(float (*func)(float), float x1, float x2, float xacc);
00465 float rtnewt(void (*funcd)(float,float *,float *), float x1, float x2,
00466 float xacc);
00467 float rtsafe(void (*funcd)(float,float *,float *), float x1, float x2,
00468 float xacc);
00469 float rtsec(float (*func)(float), float x1, float x2, float xacc);
00470 void rzextr(int iest, float xest, float *yest, float *yz, float *dy,
00471 int nv, int nuse);
00472 void scrsho(float (*fx)(float));
00473 void shell(int n, float *arr);
00474 void shoot(int nvar, float *v, float *delv, int n2, float x1, float x2,
00475 float eps, float h1, float hmin, float *f, float *dv);
00476 void shootf(int nvar, float *v1, float *v2, float *delv1, float *delv2,
00477 int n1, int n2, float x1, float x2, float xf, float eps,
00478 float h1, float hmin, float *f, float *dv1, float *dv2);
00479 void simp1(float **a, int mm, int *ll, int nll, int iabf, int *kp,
00480 float *bmax);
00481 void simp2(float **a, int n, int *l2, int nl2, int *ip, int kp,
00482 float *q1);
00483 void simp3(float **a, int i1, int k1, int ip, int kp);
00484 void simplx(float **a, int m, int n, int m1, int m2, int m3,
00485 int *icase, int *izrov, int *iposv);
00486 void sinft(float *y, int n);
00487 void smooft(float *y, int n, float pts);
00488 void sncndn(float uu, float emmc, float *sn, float *cn, float *dn);
00489 void solvde(int itmax, float conv, float slowc, float *scalv,
00490 int *indexv, int ne, int nb, int m, float **y, float ***c,
00491 float **s);
00492 void sor(double **a, double **b, double **c, double **d, double **e,
00493 double **f, double **u, int jmax, double rjac);
00494 void sort(int n, float *ra);
00495 void sort2(int n, float *ra, float *rb);
00496 void sort3(int n, float *ra, float *rb, float *rc);
00497 void sparse(float *b, int n, float *x, float *rsq);
00498 void spctrm(FILE *fp, float *p, int m, int k, int ovrlap);
00499 void spear(float *data1, float *data2, int n, float *d, float *zd,
00500 float *probd, float *rs, float *probrs);
00501 void splie2(float *x1a, float *x2a, float **ya, int m, int n,
00502 float **y2a);
00503 void splin2(float *x1a, float *x2a, float **ya, float **y2a, int m,
00504 int n, float x1, float x2, float *y);
00505 void spline(float *x, float *y, int n, float yp1, float ypn, float *y2);
00506 void splint(float *xa, float *ya, float *y2a, int n, float x, float *y);
00507 void svbksb(float **u, float *w, float **v, int m, int n, float *b,
00508 float *x);
00509 void svdcmp(float **a, int m, int n, float *w, float **v);
00510 void svdfit(float *x, float *y, float *sig, int ndata, float *a,
00511 int ma, float **u, float **v, float *w, float *chisq,
00512 void (*funcs)(float,float *,int));
00513 void svdvar(float **v, int ma, float *w, float **cvm);
00514 void toeplz(float *r, float *x, float *y, int n);
00515 void tptest(float *data1, float *data2, int n, float *t, float *prob);
00516 void tqli(float *d, float *e, int n, float **z);
00517 float trapzd(float (*func)(float), float a, float b, int n);
00518 void tred2(float **a, int n, float *d, float *e);
00519 void tridag(float *a, float *b, float *c, float *r, float *u, int n);
00520 void ttest(float *data1, int n1, float *data2, int n2, float *t,
00521 float *prob);
00522 void tutest(float *data1, int n1, float *data2, int n2, float *t,
00523 float *prob);
00524 void twofft(float *data1, float *data2, float *fft1, float *fft2,
00525 int n);
00526 void vander(float *x, float *w, float *q, int n);
00527 int zbrac(float (*func)(float), float *x1, float *x2);
00528 void zbrak(float (*fx)(float), float x1, float x2, int n, float *xb1,
00529 float *xb2, int *nb);
00530 float zbrent(float (*func)(float), float x1, float x2, float tol);
00531 void zroots(fcomplex *a, int m, fcomplex *roots, int polish);
00532 #endif
00533 #ifdef TRADITIONAL
00534 void adi();
00535 void amoeba();
00536 void anneal();
00537 void avevar();
00538 void balanc();
00539 void bcucof();
00540 void bcuint();
00541 float bessi();
00542 float bessi0();
00543 float bessi1();
00544 float bessj();
00545 float bessj0();
00546 float bessj1();
00547 float bessk();
00548 float bessk0();
00549 float bessk1();
00550 float bessy();
00551 float bessy0();
00552 float bessy1();
00553 float beta();
00554 float betacf();
00555 float betai();
00556 float bico();
00557 void bksub();
00558 float bnldev();
00559 float brent();
00560 void bsstep();
00561 void caldat();
00562 float cel();
00563 void chder();
00564 float chebev();
00565 void chebft();
00566 void chebpc();
00567 void chint();
00568 void chsone();
00569 void chstwo();
00570 void cntab1();
00571 void cntab2();
00572 void convlv();
00573 void correl();
00574 void cosft();
00575 void covsrt();
00576 void crank();
00577 float dbrent();
00578 void ddpoly();
00579 void des();
00580 void ks();
00581 void cyfun();
00582 float df1dim();
00583 void dfpmin();
00584 void dlinmin();
00585 void difeq();
00586 void eclass();
00587 void eclazz();
00588 void eigsrt();
00589 float el2();
00590 void elmhes();
00591
00592
00593 float erfcc();
00594 void eulsum();
00595 float evlmem();
00596 float expdev();
00597 float f1dim();
00598 float factln();
00599 float factrl();
00600 void fgauss();
00601 void fit();
00602 void fixrts();
00603 void fleg();
00604 void flmoon();
00605 void four1();
00606 void fourn();
00607 void fpoly();
00608 void frprmn();
00609 void ftest();
00610 float gamdev();
00611 float gammln();
00612 float gammp();
00613 float gammq();
00614 float gasdev();
00615 void gauleg();
00616 void gaussj();
00617 void gcf();
00618 float golden();
00619 void gser();
00620 void hqr();
00621 void hunt();
00622 void indexx();
00623 int irbit1();
00624 int irbit2();
00625 void jacobi();
00626 long julday();
00627 void kendl1();
00628 void kendl2();
00629 void ksone();
00630 void kstwo();
00631 void laguer();
00632 void lfit();
00633 void linmin();
00634 void locate();
00635 void lubksb();
00636 void ludcmp();
00637 void mdian1();
00638 void mdian2();
00639 void medfit();
00640 void memcof();
00641 float midexp();
00642 float midinf();
00643 float midpnt();
00644 float midsql();
00645 float midsqu();
00646 void mmid();
00647 void mnbrak();
00648 void mnewt();
00649 void moment();
00650 void mprove();
00651 void mrqcof();
00652 void mrqmin();
00653 void odeint();
00654 void pcshft();
00655 void pearsn();
00656 void piksr2();
00657 void piksrt();
00658 void pinvs();
00659 float plgndr();
00660 float poidev();
00661 void polcoe();
00662 void polcof();
00663 void poldiv();
00664 void polin2();
00665 void polint();
00666 void powell();
00667 void predic();
00668 float probks();
00669 void pzextr();
00670 void qcksrt();
00671 float qgaus();
00672 float qromb();
00673 float qromo();
00674 void qroot();
00675 float qsimp();
00676 float qtrap();
00677 float quad3d();
00678 float ran0();
00679 float ran1();
00680 float ran2();
00681 float ran3();
00682 float ran4();
00683 void rank();
00684 void ratint();
00685 void realft();
00686 void red();
00687 void rk4();
00688 void rkdumb();
00689 void rkqc();
00690 float rofunc();
00691 float rtbis();
00692 float rtflsp();
00693 float rtnewt();
00694 float rtsafe();
00695 float rtsec();
00696 void rzextr();
00697 void scrsho();
00698 void shell();
00699 void shoot();
00700 void shootf();
00701 void simp1();
00702 void simp2();
00703 void simp3();
00704 void simplx();
00705 void sinft();
00706 void smooft();
00707 void sncndn();
00708 void solvde();
00709 void sor();
00710 void sort();
00711 void sort2();
00712 void sort3();
00713 void sparse();
00714 void spctrm();
00715 void spear();
00716 void splie2();
00717 void splin2();
00718 void spline();
00719 void splint();
00720 void svbksb();
00721 void svdcmp();
00722 void svdfit();
00723 void svdvar();
00724 void toeplz();
00725 void tptest();
00726 void tqli();
00727 float trapzd();
00728 void tred2();
00729 void tridag();
00730 void ttest();
00731 void tutest();
00732 void twofft();
00733 void vander();
00734 int zbrac();
00735 void zbrak();
00736 float zbrent();
00737 void zroots();
00738 #endif
