00001 extern int cgeir_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work, integer *iwork);
00002
00003
00004
00005
00006
00007
00008
00009
00010 extern int dbesj_(doublereal *x, doublereal *alpha, integer *n, doublereal *y, integer *nz);
00011
00012
00013
00014
00015
00016 extern int dintp_(doublereal *x, doublereal *y, doublereal *xout, doublereal *yout, doublereal *ypout, integer *neqn, integer *kold, doublereal *phi, integer *ivc, integer *iv, integer *kgi, doublereal *gi, doublereal *alpha, doublereal *og, doublereal *ow, doublereal *ox, doublereal *oy);
00017 extern int drkfs_(S_fp df, integer *neq, doublereal *t, doublereal *y, doublereal *tout, integer *info, doublereal *rtol, doublereal *atol, integer *idid, doublereal *h__, doublereal *tolfac, doublereal *yp, doublereal *f1, doublereal *f2, doublereal *f3, doublereal *f4, doublereal *f5, doublereal *ys, doublereal *told, doublereal *dtsign, doublereal *u26, doublereal *rer, integer *init, integer *ksteps, integer *kop, integer *iquit, logical *stiff, logical *nonstf, integer *ntstep, integer *nstifs, doublereal *rpar, integer *ipar);
00018
00019
00020
00021
00022
00023 extern integer iploc_(integer *loc, real *sx, integer *ix);
00024
00025
00026 extern int qawf_(E_fp f, real *a, real *omega, integer *integr, real *epsabs, real *result, real *abserr, integer *neval, integer *ier, integer *limlst, integer *lst, integer *leniw, integer *maxp1, integer *lenw, integer *iwork, real *work);
00027
00028
00029 extern int sinqf_(integer *n, real *x, real *wsave);
00030
00031 extern int cgesl_(complex *a, integer *lda, integer *n, integer *ipvt, complex *b, integer *job);
00032
00033
00034 extern doublereal dbesj0_(doublereal *x);
00035
00036
00037
00038
00039 extern int dintrp_(doublereal *x, doublereal *y, doublereal *xout, doublereal *yout, doublereal *ypout, integer *neqn, integer *kold, doublereal *phi, doublereal *psi);
00040 extern int drot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *dc, doublereal *ds);
00041 extern integer isamax_(integer *n, real *sx, integer *incx);
00042 extern int qawfe_(U_fp f, real *a, real *omega, integer *integr, real *epsabs, integer *limlst, integer *limit, integer *maxp1, real *result, real *abserr, integer *neval, integer *ier, real *rslst, real *erlst, integer *ierlst, integer *lst, real *alist__, real *blist, real *rlist, real *elist, integer *iord, integer *nnlog, real *chebmo);
00043
00044
00045
00046
00047 extern int sinqi_(integer *n, real *wsave);
00048
00049 extern int cgtsl_(integer *n, complex *c__, complex *d__, complex *e, complex *b, integer *info);
00050 extern doublereal dbesj1_(doublereal *x);
00051
00052
00053
00054
00055
00056 extern int dintrv_(doublereal *xt, integer *lxt, doublereal *x, integer *ilo, integer *ileft, integer *mflag);
00057 extern int drotg_(doublereal *da, doublereal *db, doublereal *dc, doublereal *ds);
00058 extern integer isamin_(integer *n, real *sx, integer *incx);
00059 extern int qawo_(E_fp f, real *a, real *b, real *omega, integer *integr, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier, integer *leniw, integer *maxp1, integer *lenw, integer *last, integer *iwork, real *work);
00060
00061
00062 extern int sint_(integer *n, real *x, real *wsave);
00063
00064 extern int aaaaaa_(void);
00065 extern int ch_(integer *nm, integer *n, real *ar, real *ai, real *w, integer *matz, real *zr, real *zi, real *fv1, real *fv2, real *fm1, integer *ierr);
00066
00067
00068
00069
00070 extern int dbesk_(doublereal *x, doublereal *fnu, integer *kode, integer *n, doublereal *y, integer *nz);
00071
00072
00073
00074
00075
00076
00077
00078
00079
00080 extern int dintyd_(doublereal *t, integer *k, doublereal *yh, integer *nyh, doublereal *dky, integer *iflag);
00081
00082 extern int drotm_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *dparam);
00083 extern integer ismax_(integer *n, real *sx, integer *incx);
00084 extern int qawoe_(E_fp f, real *a, real *b, real *omega, integer *integr, real *epsabs, real *epsrel, integer *limit, integer *icall, integer *maxp1, real *result, real *abserr, integer *neval, integer *ier, integer *last, real *alist__, real *blist, real *rlist, real *elist, integer *iord, integer *nnlog, integer *momcom, real *chebmo);
00085
00086
00087
00088
00089 extern int sinti_(integer *n, real *wsave);
00090
00091 extern E_f acosh_(real *x);
00092
00093
00094 extern int chfdv_(real *x1, real *x2, real *f1, real *f2, real *d1, real *d2, integer *ne, real *xe, real *fe, real *de, integer *next, integer *ierr);
00095
00096 extern doublereal dbesk0_(doublereal *x);
00097
00098
00099
00100
00101
00102
00103 extern int djairy_(doublereal *x, doublereal *rx, doublereal *c__, doublereal *ai, doublereal *dai);
00104 extern int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *dx1, doublereal *dy1, doublereal *dparam);
00105 extern integer ismin_(integer *n, real *sx, integer *incx);
00106 extern int qaws_(E_fp f, real *a, real *b, real *alfa, real *beta, integer *integr, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, real *work);
00107
00108
00109 extern int sintrp_(real *x, real *y, real *xout, real *yout, real *ypout, integer *neqn, integer *kold, real *phi, integer *ivc, integer *iv, integer *kgi, real *gi, real *alpha, real *og, real *ow, real *ox, real *oy);
00110 extern E_f ai_(real *x);
00111
00112
00113
00114
00115
00116
00117 extern int chfev_(real *x1, real *x2, real *f1, real *f2, real *d1, real *d2, integer *ne, real *xe, real *fe, integer *next, integer *ierr);
00118
00119 extern doublereal dbesk1_(doublereal *x);
00120
00121
00122
00123
00124
00125
00126 extern doublereal dlbeta_(doublereal *a, doublereal *b);
00127
00128
00129
00130
00131
00132 extern int drsco_(doublereal *rsav, integer *isav);
00133
00134 extern int isort_(integer *x, integer *y, integer *n, integer *kflag);
00135
00136 extern int qawse_(E_fp f, real *a, real *b, real *alfa, real *beta, integer *integr, real *epsabs, real *epsrel, integer *limit, real *result, real *abserr, integer *neval, integer *ier, real *alist__, real *blist, real *rlist, real *elist, integer *iord, integer *last);
00137
00138
00139
00140
00141 extern int slvs_(real *wm, integer *iwm, real *x, real *tem);
00142
00143
00144
00145 extern E_f aie_(real *x);
00146
00147
00148
00149
00150 extern E_f chfiv_(real *x1, real *x2, real *f1, real *f2, real *d1, real *d2, real *a, real *b, integer *ierr);
00151
00152 extern int dbesks_(doublereal *xnu, doublereal *x, integer *nin, doublereal *bk);
00153
00154
00155
00156 extern int dlgams_(doublereal *x, doublereal *dlgam, doublereal *sgngam);
00157
00158 extern int dscal_(integer *n, doublereal *da, doublereal *dx, integer *incx);
00159 extern int iswap_(integer *n, integer *ix, integer *incx, integer *iy, integer *incy);
00160 extern int qc25c_(E_fp f, real *a, real *b, real *c__, real *result, real *abserr, integer *krul, integer *neval);
00161
00162
00163
00164 extern int smout_(integer *m, integer *n, integer *lda, real *a, char *ifmt, integer *idigit, ftnlen ifmt_len);
00165
00166 extern E_f albeta_(real *a, real *b);
00167
00168
00169
00170
00171
00172 extern integer chfmc_(real *d1, real *d2, real *delta);
00173
00174 extern int dbesy_(doublereal *x, doublereal *fnu, integer *n, doublereal *y);
00175
00176
00177
00178
00179
00180
00181
00182 extern doublereal dli_(doublereal *x);
00183
00184
00185 extern doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
00186 extern int ivout_(integer *n, integer *ix, char *ifmt, integer *idigit, ftnlen ifmt_len);
00187
00188 extern int qc25f_(E_fp f, real *a, real *b, real *omega, integer *integr, integer *nrmom, integer *maxp1, integer *ksave, real *result, real *abserr, integer *neval, real *resabs, real *resasc, integer *momcom, real *chebmo);
00189
00190
00191
00192
00193
00194 extern int snbco_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, real *z__);
00195
00196
00197
00198
00199
00200 extern int algams_(real *x, real *algam, real *sgngam);
00201
00202 extern int chico_(complex *a, integer *lda, integer *n, integer *kpvt, real *rcond, complex *z__);
00203
00204
00205
00206
00207
00208 extern doublereal dbesy0_(doublereal *x);
00209
00210
00211
00212
00213
00214
00215 extern int dllsia_(doublereal *a, integer *mda, integer *m, integer *n, doublereal *b, integer *mdb, integer *nb, doublereal *re, doublereal *ae, integer *key, integer *mode, integer *np, integer *krank, integer *ksure, doublereal *rnorm, doublereal *w, integer *lw, integer *iwork, integer *liw, integer *info);
00216
00217
00218
00219
00220 extern int dsico_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *rcond, doublereal *z__);
00221
00222
00223
00224
00225
00226 extern integer j4save_(integer *iwhich, integer *ivalue, logical *iset);
00227 extern int qc25s_(E_fp f, real *a, real *b, real *bl, real *br, real *alfa, real *beta, real *ri, real *rj, real *rg, real *rh, real *result, real *abserr, real *resasc, integer *integr, integer *nev);
00228
00229
00230
00231 extern int snbdi_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *det);
00232 extern E_f ali_(real *x);
00233
00234
00235 extern int chidi_(complex *a, integer *lda, integer *n, integer *kpvt, real *det, integer *inert, complex *work, integer *job);
00236
00237
00238
00239
00240 extern doublereal dbesy1_(doublereal *x);
00241
00242
00243
00244
00245
00246
00247 extern doublereal dlngam_(doublereal *x);
00248
00249
00250
00251
00252 extern int dsidi_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *det, integer *inert, doublereal *work, integer *job);
00253
00254
00255
00256
00257 extern int jairy_(real *x, real *rx, real *c__, real *ai, real *dai);
00258 extern int qcheb_(real *x, real *fval, real *cheb12, real *cheb24);
00259 extern int snbfa_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
00260
00261
00262
00263
00264 extern E_f alngam_(real *x);
00265
00266
00267
00268
00269 extern int chiev_(real *a, integer *lda, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info);
00270
00271
00272
00273
00274
00275
00276
00277 extern doublereal dbeta_(doublereal *a, doublereal *b);
00278
00279
00280
00281
00282
00283 extern doublereal dlnrel_(doublereal *x);
00284
00285
00286
00287
00288 extern int dsifa_(doublereal *a, integer *lda, integer *n, integer *kpvt, integer *info);
00289
00290
00291
00292 extern int la05ad_(doublereal *a, integer *ind, integer *nz, integer *ia, integer *n, integer *ip, integer *iw, doublereal *w, doublereal *g, doublereal *u);
00293
00294
00295
00296
00297
00298
00299 extern int qelg_(integer *n, real *epstab, real *result, real *abserr, real *res3la, integer *nres);
00300
00301 extern int snbfs_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, real *v, integer *itask, integer *ind, real *work, integer *iwork);
00302
00303
00304
00305
00306
00307 extern E_f alnrel_(real *x);
00308
00309
00310
00311
00312 extern int chifa_(complex *a, integer *lda, integer *n, integer *kpvt, integer *info);
00313
00314
00315
00316 extern doublereal dbetai_(doublereal *x, doublereal *pin, doublereal *qin);
00317
00318
00319
00320 extern int dlpdp_(doublereal *a, integer *mda, integer *m, integer *n1, integer *n2, doublereal *prgopt, doublereal *x, doublereal *wnorm, integer *mode, doublereal *ws, integer *is);
00321
00322
00323
00324
00325
00326 extern doublereal dsindg_(doublereal *x);
00327 extern int la05as_(real *a, integer *ind, integer *nz, integer *ia, integer *n, integer *ip, integer *iw, real *w, real *g, real *u);
00328
00329
00330
00331
00332
00333
00334 extern int qform_(integer *m, integer *n, real *q, integer *ldq, real *wa);
00335 extern int snbir_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, real *v, integer *itask, integer *ind, real *work, integer *iwork);
00336
00337
00338
00339
00340
00341
00342
00343
00344 extern E_f asinh_(real *x);
00345
00346
00347
00348 extern int chisl_(complex *a, integer *lda, integer *n, integer *kpvt, complex *b);
00349
00350
00351 extern int dbfqad_(D_fp f, doublereal *t, doublereal *bcoef, integer *n, integer *k, integer *id, doublereal *x1, doublereal *x2, doublereal *tol, doublereal *quad, integer *ierr, doublereal *work);
00352
00353
00354
00355
00356 extern int dlsei_(doublereal *w, integer *mdw, integer *me, integer *ma, integer *mg, integer *n, doublereal *prgopt, doublereal *x, doublereal *rnorme, doublereal *rnorml, integer *mode, doublereal *ws, integer *ip);
00357
00358
00359
00360
00361
00362
00363
00364
00365
00366
00367
00368 extern int dsisl_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *b);
00369
00370
00371 extern int la05bd_(doublereal *a, integer *ind, integer *ia, integer *n, integer *ip, integer *iw, doublereal *w, doublereal *g, doublereal *b, logical *trans);
00372
00373
00374
00375 extern int qk15_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00376
00377 extern int snbsl_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *b, integer *job);
00378
00379
00380 extern int asyik_(real *x, real *fnu, integer *kode, real *flgik, real *ra, real *arg, integer *in, real *y);
00381
00382 extern int chkder_(integer *m, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, real *xp, real *fvecp, integer *mode, real *err);
00383
00384 extern doublereal dbi_(doublereal *x);
00385
00386
00387
00388
00389
00390
00391 extern int dlsi_(doublereal *w, integer *mdw, integer *ma, integer *mg, integer *n, doublereal *prgopt, doublereal *x, doublereal *rnorm, integer *mode, doublereal *ws, integer *ip);
00392
00393
00394
00395
00396
00397
00398
00399
00400
00401 extern int dslvs_(doublereal *wm, integer *iwm, doublereal *x, doublereal *tem);
00402
00403
00404
00405 extern int la05bs_(real *a, integer *ind, integer *ia, integer *n, integer *ip, integer *iw, real *w, real *g, real *b, logical *trans);
00406
00407
00408
00409 extern int qk15i_(E_fp f, real *boun, integer *inf, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00410
00411 extern int snls_(S_fp fcn, S_fp jac, integer *iopt, integer *m, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, real *ftol, real *xtol, real *gtol, integer *maxfev, real *epsfcn, real *diag, integer *mode, real *factor, integer *nprint, integer *info, integer *nfev, integer *njev, integer *ipvt, real *qtf, real *wa1, real *wa2, real *wa3, real *wa4);
00412
00413
00414
00415
00416
00417
00418
00419 extern int asyjy_(S_fp funjy, real *x, real *fnu, real *flgjy, integer *in, real *y, real *wk, integer *iflw);
00420
00421
00422 extern int chkpr4_(integer *iorder, real *a, real *b, integer *m, integer *mbdcnd, real *c__, real *d__, integer *n, integer *nbdcnd, S_fp cofx, integer *idmn, integer *ierror);
00423 extern doublereal dbie_(doublereal *x);
00424
00425
00426
00427
00428 extern int dlsod_(S_fp df, integer *neq, doublereal *t, doublereal *y, doublereal *tout, doublereal *rtol, doublereal *atol, integer *idid, doublereal *ypout, doublereal *yh, doublereal *yh1, doublereal *ewt, doublereal *savf, doublereal *acor, doublereal *wm, integer *iwm, U_fp djac, logical *intout, doublereal *tstop, doublereal *tolfac, doublereal *delsgn, doublereal *rpar, integer *ipar);
00429
00430
00431
00432
00433
00434
00435
00436 extern int dsort_(doublereal *x, doublereal *y, integer *n, integer *kflag);
00437
00438 extern int la05cd_(doublereal *a, integer *ind, integer *ia, integer *n, integer *ip, integer *iw, doublereal *w, doublereal *g, doublereal *u, integer *mm);
00439
00440
00441
00442
00443
00444 extern int qk15w_(E_fp f, E_fp w, real *p1, real *p2, real *p3, real *p4, integer *kp, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00445
00446 extern int snls1_(S_fp fcn, integer *iopt, integer *m, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, real *ftol, real *xtol, real *gtol, integer *maxfev, real *epsfcn, real *diag, integer *mode, real *factor, integer *nprint, integer *info, integer *nfev, integer *njev, integer *ipvt, real *qtf, real *wa1, real *wa2, real *wa3, real *wa4);
00447
00448
00449
00450
00451
00452
00453
00454
00455
00456 extern E_f atanh_(real *x);
00457
00458
00459
00460
00461 extern int chkprm_(integer *intl, integer *iorder, real *a, real *b, integer *m, integer *mbdcnd, real *c__, real *d__, integer *n, integer *nbdcnd, S_fp cofx, S_fp cofy, integer *idmn, integer *ierror);
00462 extern doublereal dbinom_(integer *n, integer *m);
00463
00464
00465
00466
00467 extern int dlssud_(doublereal *a, doublereal *x, doublereal *b, integer *n, integer *m, integer *nrda, doublereal *u, integer *nrdu, integer *iflag, integer *mlso, integer *irank, integer *iscale, doublereal *q, doublereal *diag, integer *kpivot, doublereal *s, doublereal *div, doublereal *td, integer *isflg, doublereal *scales);
00468
00469
00470
00471
00472
00473
00474
00475
00476
00477 extern int dsos_(D_fp fnc, integer *neq, doublereal *x, doublereal *rtolx, doublereal *atolx, doublereal *tolf, integer *iflag, doublereal *rw, integer *lrw, integer *iw, integer *liw);
00478
00479
00480 extern int la05cs_(real *a, integer *ind, integer *ia, integer *n, integer *ip, integer *iw, real *w, real *g, real *u, integer *mm);
00481
00482
00483
00484
00485
00486 extern int qk21_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00487
00488 extern int snls1e_(U_fp fcn, integer *iopt, integer *m, integer *n, real *x, real *fvec, real *tol, integer *nprint, integer *info, integer *iw, real *wa, integer *lwa);
00489
00490
00491 extern int avint_(real *x, real *y, integer *n, real *xlo, real *xup, real *ans, integer *ierr);
00492
00493 extern int chksn4_(integer *mbdcnd, integer *nbdcnd, real *alpha, real *beta, S_fp cofx, logical *singlr);
00494
00495 extern int dbint4_(doublereal *x, doublereal *y, integer *ndata, integer *ibcl, integer *ibcr, doublereal *fbcl, doublereal *fbcr, integer *kntopt, doublereal *t, doublereal *bcoef, integer *n, integer *k, doublereal *w);
00496
00497
00498
00499
00500
00501 extern int dmacon_(void);
00502
00503
00504 extern int dsoseq_(D_fp fnc, integer *n, doublereal *s, doublereal *rtolx, doublereal *atolx, doublereal *tolf, integer *iflag, integer *mxit, integer *ncjs, integer *nsrrc, integer *nsri, integer *iprint, doublereal *fmax, doublereal *c__, integer *nc, doublereal *b, doublereal *p, doublereal *temp, doublereal *x, doublereal *y, doublereal *fac, integer *is);
00505
00506
00507
00508 extern int la05ed_(doublereal *a, integer *irn, integer *ip, integer *n, integer *iw, integer *ia, logical *reals);
00509
00510 extern int qk31_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00511
00512 extern int snlse_(U_fp fcn, U_fp jac, integer *iopt, integer *m, integer *n, real *x, real *fvec, real *tol, integer *nprint, integer *info, integer *iw, real *wa, integer *lwa);
00513
00514
00515 extern int bakvec_(integer *nm, integer *n, real *t, real *e, integer *m, real *z__, integer *ierr);
00516 extern int chksng_(integer *mbdcnd, integer *nbdcnd, real *alpha, real *beta, real *gama, real *xnu, S_fp cofx, S_fp cofy, logical *singlr);
00517
00518 extern int dbintk_(doublereal *x, doublereal *y, doublereal *t, integer *n, integer *k, doublereal *bcoef, doublereal *q, doublereal *work);
00519
00520
00521
00522
00523 extern int dmgsbv_(integer *m, integer *n, doublereal *a, integer *ia, integer *niv, integer *iflag, doublereal *s, doublereal *p, integer *ip, integer *inhomo, doublereal *v, doublereal *w, doublereal *wcnd);
00524
00525
00526
00527
00528 extern int dsossl_(integer *k, integer *n, integer *l, doublereal *x, doublereal *c__, doublereal *b, integer *m);
00529 extern int la05es_(real *a, integer *irn, integer *ip, integer *n, integer *iw, integer *ia, logical *reals);
00530
00531 extern int qk41_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00532
00533 extern E_f snrm2_(integer *n, real *sx, integer *incx);
00534 extern int balanc_(integer *nm, integer *n, real *a, integer *low, integer *igh, real *scale);
00535 extern int chpco_(complex *ap, integer *n, integer *kpvt, real *rcond, complex *z__);
00536
00537
00538
00539
00540
00541 extern int dbkias_(doublereal *x, integer *n, integer *ktrms, doublereal *t, doublereal *ans, integer *ind, integer *ms, doublereal *gmrn, doublereal *h__, integer *ierr);
00542
00543
00544
00545
00546 extern int dmout_(integer *m, integer *n, integer *lda, doublereal *a, char *ifmt, integer *idigit, ftnlen ifmt_len);
00547
00548 extern int dspco_(doublereal *ap, integer *n, integer *kpvt, doublereal *rcond, doublereal *z__);
00549
00550
00551
00552
00553
00554 extern int lagre_(integer *m, integer *k, real *aa, real *z__);
00555 extern int qk51_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00556
00557 extern int snsq_(S_fp fcn, S_fp jac, integer *iopt, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, real *xtol, integer *maxfev, integer *ml, integer *mu, real *epsfcn, real *diag, integer *mode, real *factor, integer *nprint, integer *info, integer *nfev, integer *njev, real *r__, integer *lr, real *qtf, real *wa1, real *wa2, real *wa3, real *wa4);
00558
00559
00560
00561
00562
00563
00564
00565
00566
00567 extern int balbak_(integer *nm, integer *n, integer *low, integer *igh, real *scale, integer *m, real *z__);
00568 extern int chpdi_(complex *ap, integer *n, integer *kpvt, real *det, integer *inert, complex *work, integer *job);
00569
00570
00571
00572
00573 extern int dbkisr_(doublereal *x, integer *n, doublereal *sum, integer *ierr);
00574
00575
00576 extern int dmpar_(integer *n, doublereal *r__, integer *ldr, integer *ipvt, doublereal *diag, doublereal *qtb, doublereal *delta, doublereal *par, doublereal *x, doublereal *sigma, doublereal *wa1, doublereal *wa2);
00577
00578
00579
00580 extern int dspdi_(doublereal *ap, integer *n, integer *kpvt, doublereal *det, integer *inert, doublereal *work, integer *job);
00581
00582
00583
00584
00585 extern int lgndr_(integer *m, integer *k, real *aa, real *z__);
00586 extern int qk61_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00587
00588 extern int snsqe_(U_fp fcn, U_fp jac, integer *iopt, integer *n, real *x, real *fvec, real *tol, integer *nprint, integer *info, real *wa, integer *lwa);
00589
00590
00591 extern int bandr_(integer *nm, integer *n, integer *mb, real *a, real *d__, real *e, real *e2, logical *matz, real *z__);
00592 extern int chpfa_(complex *ap, integer *n, integer *kpvt, integer *info);
00593
00594
00595
00596 extern int dbksol_(integer *n, doublereal *a, doublereal *x);
00597
00598 extern int dnbco_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *rcond, doublereal *z__);
00599
00600
00601
00602
00603
00604 extern doublereal dspenc_(doublereal *x);
00605
00606
00607
00608 extern int lgndrx_(integer *n, integer *k, real *aa, real *z__);
00609
00610 extern int qmomo_(real *alfa, real *beta, real *ri, real *rj, real *rg, real *rh, integer *integr);
00611 extern int sods_(real *a, real *x, real *b, integer *neq, integer *nuk, integer *nrda, integer *iflag, real *work, integer *iwork);
00612
00613 extern int bandv_(integer *nm, integer *n, integer *mbw, real *a, real *e21, integer *m, real *w, real *z__, integer *ierr, integer *nv, real *rv, real *rv6);
00614 extern int chpsl_(complex *ap, integer *n, integer *kpvt, complex *b);
00615
00616
00617 extern int dbndac_(doublereal *g, integer *mdg, integer *nb, integer *ip, integer *ir, integer *mt, integer *jt);
00618
00619
00620 extern int dnbdi_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *det);
00621 extern int dspfa_(doublereal *ap, integer *n, integer *kpvt, integer *info);
00622
00623
00624
00625 extern int llsia_(real *a, integer *mda, integer *m, integer *n, real *b, integer *mdb, integer *nb, real *re, real *ae, integer *key, integer *mode, integer *np, integer *krank, integer *ksure, real *rnorm, real *w, integer *lw, integer *iwork, integer *liw, integer *info);
00626
00627
00628
00629
00630 extern int qnc79_(E_fp fun, real *a, real *b, real *err, real *ans, integer *ierr, integer *k);
00631
00632
00633
00634 extern int sopenm_(integer *ipage, integer *lpage);
00635
00636 extern E_f bcrh_(real *xll, real *xrr, integer *iz, real *c__, real *a, real *bh, E_fp f, real *sgn);
00637
00638 extern E_f chu_(real *a, real *b, real *x);
00639
00640
00641
00642
00643
00644
00645
00646
00647 extern int dbndsl_(integer *mode, doublereal *g, integer *mdg, integer *nb, integer *ip, integer *ir, doublereal *x, integer *n, doublereal *rnorm);
00648
00649 extern int dnbfa_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
00650
00651
00652
00653
00654 extern int dsplp_(U_fp dusrmt, integer *mrelas, integer *nvars__, doublereal *costs, doublereal *prgopt, doublereal *dattrv, doublereal *bl, doublereal *bu, integer *ind, integer *info, doublereal *primal, doublereal *duals, integer *ibasis, doublereal *work, integer *lw, integer *iwork, integer *liw);
00655
00656
00657
00658 extern int lmpar_(integer *n, real *r__, integer *ldr, integer *ipvt, real *diag, real *qtb, real *delta, real *par, real *x, real *sigma, real *wa1, real *wa2);
00659
00660
00661
00662 extern int qng_(E_fp f, real *a, real *b, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier);
00663
00664
00665 extern int sos_(U_fp fnc, integer *neq, real *x, real *rtolx, real *atolx, real *tolf, integer *iflag, real *rw, integer *lrw, integer *iw, integer *liw);
00666
00667
00668 extern int bdiff_(integer *l, real *v);
00669 extern int cinvit_(integer *nm, integer *n, real *ar, real *ai, real *wr, real *wi, logical *select, integer *mm, integer *m, real *zr, real *zi, integer *ierr, real *rm1, real *rm2, real *rv1, real *rv2);
00670
00671
00672 extern int dbnfac_(doublereal *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, integer *iflag);
00673 extern int dnbfs_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, doublereal *v, integer *itask, integer *ind, doublereal *work, integer *iwork);
00674
00675
00676
00677
00678
00679 extern int dspsl_(doublereal *ap, integer *n, integer *kpvt, doublereal *b);
00680
00681
00682 extern int lpdp_(real *a, integer *mda, integer *m, integer *n1, integer *n2, real *prgopt, real *x, real *wnorm, integer *mode, real *ws, integer *is);
00683
00684
00685
00686
00687
00688 extern int qpdoc_(void);
00689 extern int soseqs_(E_fp fnc, integer *n, real *s, real *rtolx, real *atolx, real *tolf, integer *iflag, integer *mxit, integer *ncjs, integer *nsrrc, integer *nsri, integer *iprint, real *fmax, real *c__, integer *nc, real *b, real *p, real *temp, real *x, real *y, real *fac, integer *is);
00690
00691
00692
00693 extern int besi_(real *x, real *alpha, integer *kode, integer *n, real *y, integer *nz);
00694
00695
00696
00697
00698
00699 extern C_f clbeta_(complex * ret_val, complex *a, complex *b);
00700
00701
00702 extern int dbnslv_(doublereal *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, doublereal *b);
00703 extern int dnbsl_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *b, integer *job);
00704
00705
00706 extern int dstep2_(S_fp df, integer *neqn, doublereal *y, doublereal *x, doublereal *h__, doublereal *eps, doublereal *wt, logical *start, doublereal *hold, integer *k, integer *kold, logical *crash, doublereal *phi, doublereal *p, doublereal *yp, doublereal *psi, doublereal *alpha, doublereal *beta, doublereal *sig, doublereal *v, doublereal *w, doublereal *g, logical *phase1, integer *ns, logical *nornd, integer *ksteps, doublereal *twou, doublereal *fouru, doublereal *rpar, integer *ipar);
00707
00708
00709 extern int lsei_(real *w, integer *mdw, integer *me, integer *ma, integer *mg, integer *n, real *prgopt, real *x, real *rnorme, real *rnorml, integer *mode, real *ws, integer *ip);
00710
00711
00712
00713
00714
00715
00716
00717
00718
00719
00720
00721 extern int qpsrt_(integer *limit, integer *last, integer *maxerr, real *ermax, real *elist, integer *iord, integer *nrmax);
00722 extern int sossol_(integer *k, integer *n, integer *l, real *x, real *c__, real *b, integer *m);
00723 extern E_f besi0_(real *x);
00724
00725
00726
00727
00728
00729 extern C_f clngam_(complex * ret_val, complex *zin);
00730
00731
00732
00733
00734
00735 extern int dbocls_(doublereal *w, integer *mdw, integer *mcon, integer *mrows, integer *ncols, doublereal *bl, doublereal *bu, integer *ind, integer *iopt, doublereal *x, doublereal *rnormc, doublereal *rnorm, integer *mode, doublereal *rw, integer *iw);
00736
00737
00738
00739
00740
00741
00742
00743 extern int dnls1_(S_fp fcn, integer *iopt, integer *m, integer *n, doublereal *x, doublereal *fvec, doublereal *fjac, integer *ldfjac, doublereal *ftol, doublereal *xtol, doublereal *gtol, integer *maxfev, doublereal *epsfcn, doublereal *diag, integer *mode, doublereal *factor, integer *nprint, integer *info, integer *nfev, integer *njev, integer *ipvt, doublereal *qtf, doublereal *wa1, doublereal *wa2, doublereal *wa3, doublereal *wa4);
00744
00745
00746
00747
00748
00749
00750
00751
00752
00753 extern int dsteps_(S_fp df, integer *neqn, doublereal *y, doublereal *x, doublereal *h__, doublereal *eps, doublereal *wt, logical *start, doublereal *hold, integer *k, integer *kold, logical *crash, doublereal *phi, doublereal *p, doublereal *yp, doublereal *psi, doublereal *alpha, doublereal *beta, doublereal *sig, doublereal *v, doublereal *w, doublereal *g, logical *phase1, integer *ns, logical *nornd, integer *ksteps, doublereal *twou, doublereal *fouru, doublereal *xold, integer *kprev, integer *ivc, integer *iv, integer *kgi, doublereal *gi, doublereal *rpar, integer *ipar);
00754
00755
00756 extern int lsi_(real *w, integer *mdw, integer *ma, integer *mg, integer *n, real *prgopt, real *x, real *rnorm, integer *mode, real *ws, integer *ip);
00757
00758
00759
00760
00761
00762
00763
00764
00765
00766 extern int qqsort_(integer *n, real *x, integer *j, integer *l, real *y);
00767 extern int spbco_(real *abd, integer *lda, integer *n, integer *m, real *rcond, real *z__, integer *info);
00768
00769
00770
00771
00772
00773 extern E_f besi0e_(real *x);
00774
00775
00776
00777 extern C_f clnrel_(complex * ret_val, complex *z__);
00778
00779
00780
00781
00782 extern int dbols_(doublereal *w, integer *mdw, integer *mrows, integer *ncols, doublereal *bl, doublereal *bu, integer *ind, integer *iopt, doublereal *x, doublereal *rnorm, integer *mode, doublereal *rw, integer *iw);
00783
00784
00785
00786
00787
00788
00789 extern int dnls1e_(U_fp fcn, integer *iopt, integer *m, integer *n, doublereal *x, doublereal *fvec, doublereal *tol, integer *nprint, integer *info, integer *iw, doublereal *wa, integer *lwa);
00790
00791
00792 extern int dstod_(integer *neq, doublereal *y, doublereal *yh, integer *nyh, doublereal *yh1, doublereal *ewt, doublereal *savf, doublereal *acor, doublereal *wm, integer *iwm, S_fp df, U_fp djac, doublereal *rpar, integer *ipar);
00793
00794
00795
00796
00797
00798 extern int lsod_(S_fp f, integer *neq, real *t, real *y, real *tout, real *rtol, real *atol, integer *idid, real *ypout, real *yh, real *yh1, real *ewt, real *savf, real *acor, real *wm, integer *iwm, U_fp jac, logical *intout, real *tstop, real *tolfac, real *delsgn, real *rpar, integer *ipar);
00799
00800
00801
00802
00803
00804
00805
00806 extern int qrfac_(integer *m, integer *n, real *a, integer *lda, logical *pivot, integer *ipvt, integer *lipvt, real *sigma, real *acnorm, real *wa);
00807
00808
00809 extern int spbdi_(real *abd, integer *lda, integer *n, integer *m, real *det);
00810 extern E_f besi1_(real *x);
00811
00812
00813
00814
00815
00816 extern C_f clog10_(complex * ret_val, complex *z__);
00817 extern int dbolsm_(doublereal *w, integer *mdw, integer *minput, integer *ncols, doublereal *bl, doublereal *bu, integer *ind, integer *iopt, doublereal *x, doublereal *rnorm, integer *mode, doublereal *rw, doublereal *ww, doublereal *scl, integer *ibasis, integer *ibb);
00818
00819
00820
00821
00822
00823
00824
00825
00826
00827
00828 extern doublereal dnrm2_(integer *n, doublereal *dx, integer *incx);
00829 extern int dstor1_(doublereal *u, doublereal *yh, doublereal *v, doublereal *yp, integer *ntemp, integer *ndisk, integer *ntape);
00830
00831 extern int lssods_(real *a, real *x, real *b, integer *m, integer *n, integer *nrda, integer *iflag, integer *irank, integer *iscale, real *q, real *diag, integer *kpivot, integer *iter, real *resnrm, real *xnorm, real *z__, real *r__, real *div, real *td, real *scales);
00832
00833
00834
00835
00836
00837
00838
00839
00840
00841
00842 extern int qrsolv_(integer *n, real *r__, integer *ldr, integer *ipvt, real *diag, real *qtb, real *x, real *sigma, real *wa);
00843 extern int spbfa_(real *abd, integer *lda, integer *n, integer *m, integer *info);
00844
00845 extern E_f besi1e_(real *x);
00846
00847
00848
00849
00850 extern int cmgnbn_(integer *nperod, integer *n, integer *mperod, integer *m, complex *a, complex *b, complex *c__, integer *idimy, complex *y, integer *ierror, complex *w);
00851
00852
00853
00854 extern int dbsgq8_(D_fp fun, doublereal *xt, doublereal *bc, integer *n, integer *kk, integer *id, doublereal *a, doublereal *b, integer *inbv, doublereal *err, doublereal *ans, integer *ierr, doublereal *work);
00855
00856
00857
00858
00859 extern int dnsq_(S_fp fcn, S_fp jac, integer *iopt, integer *n, doublereal *x, doublereal *fvec, doublereal *fjac, integer *ldfjac, doublereal *xtol, integer *maxfev, integer *ml, integer *mu, doublereal *epsfcn, doublereal *diag, integer *mode, doublereal *factor, integer *nprint, integer *info, integer *nfev, integer *njev, doublereal *r__, integer *lr, doublereal *qtf, doublereal *wa1, doublereal *wa2, doublereal *wa3, doublereal *wa4);
00860
00861
00862
00863
00864
00865
00866
00867
00868
00869 extern int dstway_(doublereal *u, doublereal *v, doublereal *yhp, integer *inout, doublereal *stowa);
00870
00871
00872
00873
00874 extern int lssuds_(real *a, real *x, real *b, integer *n, integer *m, integer *nrda, real *u, integer *nrdu, integer *iflag, integer *mlso, integer *irank, integer *iscale, real *q, real *diag, integer *kpivot, real *s, real *div, real *td, integer *isflg, real *scales);
00875
00876
00877
00878
00879
00880
00881
00882
00883
00884 extern E_f qwgtc_(real *x, real *c__, real *p2, real *p3, real *p4, integer *kp);
00885 extern int spbsl_(real *abd, integer *lda, integer *n, integer *m, real *b);
00886
00887
00888 extern int besj_(real *x, real *alpha, integer *n, real *y, integer *nz);
00889
00890
00891
00892
00893
00894 extern int cmpcsg_(integer *n, integer *ijump, real *fnum, real *fden, complex *a);
00895
00896 extern doublereal dbsi0e_(doublereal *x);
00897
00898
00899
00900 extern int dnsqe_(U_fp fcn, U_fp jac, integer *iopt, integer *n, doublereal *x, doublereal *fvec, doublereal *tol, integer *nprint, integer *info, doublereal *wa, integer *lwa);
00901
00902
00903 extern int dsuds_(doublereal *a, doublereal *x, doublereal *b, integer *neq, integer *nuk, integer *nrda, integer *iflag, integer *mlso, doublereal *work, integer *iwork);
00904
00905 extern int macon_(void);
00906
00907
00908 extern E_f qwgtf_(real *x, real *omega, real *p2, real *p3, real *p4, integer *integr);
00909 extern int speli4_(integer *iorder, real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *alpha, real *bdb, real *beta, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, S_fp cofx, real *an, real *bn, real *cn, real *dn, real *un, real *zn, real *am, real *bm, real *cm, real *dm, real *um, real *zm, real *grhs, real *usol, integer *idmn, real *w, real *pertrb, integer *ierror);
00910
00911
00912
00913
00914
00915
00916
00917 extern E_f besj0_(real *x);
00918
00919
00920
00921
00922 extern int cmpmrg_(complex *tcos, integer *i1, integer *m1, integer *i2, integer *m2, integer *i3);
00923 extern doublereal dbsi1e_(doublereal *x);
00924
00925
00926
00927
00928 extern int dnterv_(doublereal *xt, integer *lxt, doublereal *x, integer *ileft, integer *mflag);
00929 extern int dsvco_(doublereal *rsav, integer *isav);
00930
00931 extern int mc20ad_(integer *nc, integer *maxa, doublereal *a, integer *inum, integer *jptr, integer *jnum, integer *jdisp);
00932 extern E_f qwgts_(real *x, real *a, real *b, real *alfa, real *beta, integer *integr);
00933 extern int spelip_(integer *intl, integer *iorder, real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *alpha, real *bdb, real *beta, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *gama, real *bdd, real *xnu, S_fp cofx, S_fp cofy, real *an, real *bn, real *cn, real *dn, real *un, real *zn, real *am, real *bm, real *cm, real *dm, real *um, real *zm, real *grhs, real *usol, integer *idmn, real *w, real *pertrb, integer *ierror);
00934
00935
00936
00937
00938
00939
00940
00941 extern E_f besj1_(real *x);
00942
00943
00944
00945
00946 extern int cmposd_(integer *mr, integer *nr, integer *istag, complex *ba, complex *bb, complex *bc, complex *q, integer *idimq, complex *b, complex *w, complex *d__, complex *tcos, complex *p);
00947
00948
00949
00950 extern doublereal dbsk0e_(doublereal *x);
00951
00952
00953
00954
00955
00956 extern int dogleg_(integer *n, real *r__, integer *lr, real *diag, real *qtb, real *delta, real *x, real *wa1, real *wa2);
00957
00958
00959 extern int dsvdc_(doublereal *x, integer *ldx, integer *n, integer *p, doublereal *s, doublereal *e, doublereal *u, integer *ldu, doublereal *v, integer *ldv, doublereal *work, integer *job, integer *info);
00960
00961
00962
00963
00964
00965
00966
00967 extern int mc20as_(integer *nc, integer *maxa, real *a, integer *inum, integer *jptr, integer *jnum, integer *jdisp);
00968 extern int qzhes_(integer *nm, integer *n, real *a, real *b, logical *matz, real *z__);
00969 extern E_f spenc_(real *x);
00970
00971
00972
00973 extern int besk_(real *x, real *fnu, integer *kode, integer *n, real *y, integer *nz);
00974
00975
00976
00977
00978
00979
00980
00981
00982
00983 extern int cmposn_(integer *m, integer *n, integer *istag, integer *mixbnd, complex *a, complex *bb, complex *c__, complex *q, integer *idimq, complex *b, complex *b2, complex *b3, complex *w, complex *w2, complex *w3, complex *d__, complex *tcos, complex *p);
00984
00985
00986
00987
00988 extern doublereal dbsk1e_(doublereal *x);
00989
00990
00991
00992
00993
00994 extern int dohtrl_(doublereal *q, integer *n, integer *nrda, doublereal *diag, integer *irank, doublereal *div, doublereal *td);
00995
00996 extern int dswap_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
00997 extern int menu_(void);
00998 extern int qzit_(integer *nm, integer *n, real *a, real *b, real *eps1, logical *matz, real *z__, integer *ierr);
00999 extern int spincw_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *npp, integer *jstrt, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, real *costsc, real *gg, real *erdnrm, real *dulnrm, real *amat, real *basmat, real *csc, real *wr, real *ww, real *rz, real *rg, real *costs, real *colnrm, real *duals, logical *stpedg);
01000
01001
01002
01003
01004
01005 extern E_f besk0_(real *x);
01006
01007
01008
01009
01010
01011
01012 extern int cmposp_(integer *m, integer *n, complex *a, complex *bb, complex *c__, complex *q, integer *idimq, complex *b, complex *b2, complex *b3, complex *w, complex *w2, complex *w3, complex *d__, complex *tcos, complex *p);
01013
01014
01015 extern int dbskes_(doublereal *xnu, doublereal *x, integer *nin, doublereal *bke);
01016
01017
01018
01019 extern int dorthr_(doublereal *a, integer *n, integer *m, integer *nrda, integer *iflag, integer *irank, integer *iscale, doublereal *diag, integer *kpivot, doublereal *scales, doublereal *rows, doublereal *rs);
01020
01021
01022
01023
01024 extern int dtrco_(doublereal *t, integer *ldt, integer *n, doublereal *rcond, doublereal *z__, integer *job);
01025
01026
01027
01028 extern int merge_(real *tcos, integer *i1, integer *m1, integer *i2, integer *m2, integer *i3);
01029 extern int qzval_(integer *nm, integer *n, real *a, real *b, real *alfr, real *alfi, real *beta, logical *matz, real *z__);
01030 extern int spinit_(integer *mrelas, integer *nvars__, real *costs, real *bl, real *bu, integer *ind, real *primal, integer *info, real *amat, real *csc, real *costsc, real *colnrm, real *xlamda, real *anorm, real *rhs, real *rhsnrm, integer *ibasis, integer *ibb, integer *imat, logical *lopt);
01031
01032
01033
01034 extern E_f besk0e_(real *x);
01035
01036
01037
01038
01039
01040 extern int cmptr3_(integer *m, complex *a, complex *b, complex *c__, integer *k, complex *y1, complex *y2, complex *y3, complex *tcos, complex *d__, complex *w1, complex *w2, complex *w3);
01041 extern int dbskin_(doublereal *x, integer *n, integer *kode, integer *m, doublereal *y, integer *nz, integer *ierr);
01042
01043
01044
01045
01046
01047
01048 extern int dp1vlu_(integer *l, integer *nder, doublereal *x, doublereal *yfit, doublereal *yp, doublereal *a);
01049
01050
01051 extern int dtrdi_(doublereal *t, integer *ldt, integer *n, doublereal *det, integer *job, integer *info);
01052
01053
01054 extern int mgsbv_(integer *m, integer *n, real *a, integer *ia, integer *niv, integer *iflag, real *s, real *p, integer *ip, integer *inhomo, real *v, real *w, real *wcnd);
01055
01056
01057
01058
01059 extern int qzvec_(integer *nm, integer *n, real *a, real *b, real *alfr, real *alfi, real *beta, real *z__);
01060 extern E_f spintg_(integer *l, real *v1, real *v2, real *x, real *f, real *w, integer *n, integer *ij);
01061 extern E_f besk1_(real *x);
01062
01063
01064
01065
01066
01067
01068 extern int cmptrx_(integer *idegbr, integer *idegcr, integer *m, complex *a, complex *b, complex *c__, complex *y, complex *tcos, complex *d__, complex *w);
01069 extern int dbsknu_(doublereal *x, doublereal *fnu, integer *kode, integer *n, doublereal *y, integer *nz);
01070
01071
01072
01073
01074 extern int dpbco_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *rcond, doublereal *z__, integer *info);
01075
01076
01077
01078
01079
01080 extern int dtrsl_(doublereal *t, integer *ldt, integer *n, doublereal *b, integer *job, integer *info);
01081
01082
01083 extern int minfit_(integer *nm, integer *m, integer *n, real *a, real *w, integer *ip, real *b, integer *ierr, real *rv1);
01084
01085 extern E_f r1mach_(integer *i__);
01086
01087 extern int spl1d1_(integer *n, real *x, real *f, real *w, integer *iop, integer *ij, real *a, real *b, real *c__);
01088
01089 extern E_f besk1e_(real *x);
01090
01091
01092
01093
01094
01095 extern int cnbco_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, complex *z__);
01096
01097
01098
01099
01100
01101 extern int dbspdr_(doublereal *t, doublereal *a, integer *n, integer *k, integer *nderiv, doublereal *ad);
01102
01103 extern int dpbdi_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *det);
01104 extern int du11ls_(doublereal *a, integer *mda, integer *m, integer *n, doublereal *ub, doublereal *db, integer *mode, integer *np, integer *krank, integer *ksure, doublereal *h__, doublereal *w, doublereal *eb, integer *ic, integer *ir);
01105
01106
01107
01108
01109
01110
01111
01112
01113 extern int minso4_(real *usol, integer *idmn, real *zn, real *zm, real *pertb);
01114
01115 extern int r1mpyq_(integer *m, integer *n, real *a, integer *lda, real *v, real *w);
01116 extern int spl1d2_(integer *n, real *x, real *f, real *w, integer *ij, real *y, real *tab);
01117
01118 extern int beskes_(real *xnu, real *x, integer *nin, real *bke);
01119
01120
01121
01122 extern int cnbdi_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *det);
01123 extern int dbspev_(doublereal *t, doublereal *ad, integer *n, integer *k, integer *nderiv, doublereal *x, integer *inev, doublereal *svalue, doublereal *work);
01124
01125
01126
01127 extern int dpbfa_(doublereal *abd, integer *lda, integer *n, integer *m, integer *info);
01128
01129 extern int du11us_(doublereal *a, integer *mda, integer *m, integer *n, doublereal *ub, doublereal *db, integer *mode, integer *np, integer *krank, integer *ksure, doublereal *h__, doublereal *w, doublereal *eb, integer *ir, integer *ic);
01130
01131
01132
01133
01134
01135
01136
01137
01138 extern int minsol_(real *usol, integer *idmn, real *zn, real *zm, real *pertb);
01139
01140 extern int r1updt_(integer *m, integer *n, real *s, integer *ls, real *u, real *v, real *w, logical *sing);
01141
01142 extern int spl2d1_(integer *nbrx, real *x, integer *nbry, real *y, real *f, real *fx, real *fy, real *fxy, integer *maxy, integer *ibd, real *t1, real *t2, real *t3);
01143
01144 extern int besknu_(real *x, real *fnu, integer *kode, integer *n, real *y, integer *nz);
01145
01146
01147
01148
01149 extern int cnbfa_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
01150
01151
01152
01153
01154 extern int dbsppp_(doublereal *t, doublereal *a, integer *n, integer *k, integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, doublereal *work);
01155
01156
01157
01158 extern int dpbsl_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *b);
01159
01160
01161 extern int du12ls_(doublereal *a, integer *mda, integer *m, integer *n, doublereal *b, integer *mdb, integer *nb, integer *mode, integer *krank, doublereal *rnorm, doublereal *h__, doublereal *w, integer *ic, integer *ir);
01162
01163
01164
01165
01166 extern int mpadd_(integer *x, integer *y, integer *z__);
01167
01168 extern int r9aimp_(real *x, real *ampl, real *theta);
01169
01170
01171
01172
01173 extern E_f spl2d2_(real *xb, real *yb, integer *nbrx, real *x, integer *nbry, real *y, real *f, real *fx, real *fy, real *fxy, integer *maxy, integer *ixd, integer *iyd);
01174
01175
01176
01177 extern int besks_(real *xnu, real *x, integer *nin, real *bk);
01178
01179
01180
01181 extern int cnbfs_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, complex *v, integer *itask, integer *ind, complex *work, integer *iwork);
01182
01183
01184
01185
01186
01187 extern int dbspvd_(doublereal *t, integer *k, integer *nderiv, doublereal *x, integer *ileft, integer *ldvnik, doublereal *vnikx, doublereal *work);
01188
01189
01190 extern int dpchce_(integer *ic, doublereal *vc, integer *n, doublereal *x, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd, integer *ierr);
01191
01192
01193
01194 extern int du12us_(doublereal *a, integer *mda, integer *m, integer *n, doublereal *b, integer *mdb, integer *nb, integer *mode, integer *krank, doublereal *rnorm, doublereal *h__, doublereal *w, integer *ir, integer *ic);
01195
01196
01197
01198
01199 extern int mpadd2_(integer *x, integer *y, integer *z__, integer *y1, integer *trunc);
01200
01201
01202
01203
01204
01205
01206 extern E_f r9atn1_(real *x);
01207
01208
01209
01210
01211 extern E_f spl2d3_(integer *ixd, integer *iyd);
01212
01213 extern int besy_(real *x, real *fnu, integer *n, real *y);
01214
01215
01216
01217
01218
01219
01220
01221 extern int cnbir_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, complex *v, integer *itask, integer *ind, complex *work, integer *iwork);
01222
01223
01224
01225
01226
01227
01228
01229
01230 extern int dbspvn_(doublereal *t, integer *jhigh, integer *k, integer *index, doublereal *x, integer *ileft, doublereal *vnikx, doublereal *work, integer *iwork);
01231
01232 extern int dpchci_(integer *n, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd);
01233
01234 extern int dulsia_(doublereal *a, integer *mda, integer *m, integer *n, doublereal *b, integer *mdb, integer *nb, doublereal *re, doublereal *ae, integer *key, integer *mode, integer *np, integer *krank, integer *ksure, doublereal *rnorm, doublereal *w, integer *lw, integer *iwork, integer *liw, integer *info);
01235
01236
01237
01238
01239 extern int mpadd3_(integer *x, integer *y, integer *s, integer *med, integer *re);
01240
01241 extern E_f r9chu_(real *a, real *b, real *z__);
01242
01243
01244 extern E_f splin2_(integer *nx, real *x, integer *ny, real *y, real *f, real *fxx, real *fyy, real *fxxyy, integer *maxy, real *a, real *b, real *c__, real *d__, real *t1, real *t2);
01245
01246
01247
01248 extern E_f besy0_(real *x);
01249
01250
01251
01252
01253
01254 extern int cnbsl_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *b, integer *job);
01255
01256
01257 extern int dbsqad_(doublereal *t, doublereal *bcoef, integer *n, integer *k, doublereal *x1, doublereal *x2, doublereal *bquad, doublereal *work);
01258
01259
01260
01261 extern int dpchcs_(doublereal *switch__, integer *n, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd, integer *ierr);
01262
01263
01264 extern int dusrmt_(integer *i__, integer *j, doublereal *aij, integer *indcat, doublereal *prgopt, doublereal *dattrv, integer *iflag);
01265 extern int mpblas_(integer *i1);
01266
01267
01268 extern E_f r9gmic_(real *a, real *x, real *alx);
01269
01270
01271
01272 extern E_f splint_(integer *n, real *x, real *f, real *w, integer *ij, real *a, real *b);
01273
01274
01275
01276 extern E_f besy1_(real *x);
01277
01278
01279
01280
01281
01282 extern int combak_(integer *nm, integer *low, integer *igh, real *ar, real *ai, integer *int__, integer *m, real *zr, real *zi);
01283 extern int dbsynu_(doublereal *x, doublereal *fnu, integer *n, doublereal *y);
01284
01285
01286
01287 extern doublereal dpchdf_(integer *k, doublereal *x, doublereal *s, integer *ierr);
01288
01289 extern int dvecs_(integer *ncomp, integer *lnfc, doublereal *yhp, doublereal *work, integer *iwork, integer *inhomo, integer *iflag);
01290
01291
01292 extern int mpcdm_(doublereal *dx, integer *z__);
01293
01294
01295
01296
01297
01298 extern E_f r9gmit_(real *a, real *x, real *algap1, real *sgngam, real *alx);
01299
01300
01301
01302 extern int splp_(U_fp usrmat, integer *mrelas, integer *nvars__, real *costs, real *prgopt, real *dattrv, real *bl, real *bu, integer *ind, integer *info, real *primal, real *duals, integer *ibasis, real *work, integer *lw, integer *iwork, integer *liw);
01303
01304
01305
01306 extern int besynu_(real *x, real *fnu, integer *n, real *y);
01307
01308
01309
01310 extern int comhes_(integer *nm, integer *n, integer *low, integer *igh, real *ar, real *ai, integer *int__);
01311
01312 extern doublereal dbvalu_(doublereal *t, doublereal *a, integer *n, integer *k, integer *ideriv, doublereal *x, integer *inbv, doublereal *work);
01313
01314
01315 extern int dpchfd_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, integer *ne, doublereal *xe, doublereal *fe, doublereal *de, integer *ierr);
01316
01317
01318 extern doublereal dvnorm_(doublereal *v, integer *ncomp);
01319 extern int mpchk_(integer *i__, integer *j);
01320
01321
01322
01323 extern int r9knus_(real *xnu, real *x, real *bknu, real *bknu1, integer *iswtch);
01324
01325
01326
01327
01328
01329 extern int splpce_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *itlp, integer *itbrc, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, real *erdnrm, real *eps, real *tune, real *gg, real *amat, real *basmat, real *csc, real *wr, real *ww, real *primal, real *erd, real *erp, logical *singlr, logical *redbas);
01330
01331
01332
01333
01334
01335 extern E_f beta_(real *a, real *b);
01336
01337
01338
01339
01340
01341 extern int comlr_(integer *nm, integer *n, integer *low, integer *igh, real *hr, real *hi, real *wr, real *wi, integer *ierr);
01342
01343
01344 extern int dbvder_(doublereal *x, doublereal *y, doublereal *yp, doublereal *g, integer *ipar);
01345
01346
01347
01348
01349
01350
01351 extern int dpchfe_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, integer *ne, doublereal *xe, doublereal *fe, integer *ierr);
01352
01353
01354 extern doublereal dvnrms_(integer *n, doublereal *v, doublereal *w);
01355 extern int mpcmd_(integer *x, doublereal *dz);
01356
01357
01358
01359 extern E_f r9lgic_(real *a, real *x, real *alx);
01360
01361
01362 extern int splpdm_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *nredc, integer *info, integer *iopt, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, real *anorm, real *eps, real *uu, real *gg, real *amat, real *basmat, real *csc, real *wr, logical *singlr, logical *redbas);
01363
01364
01365
01366
01367
01368
01369 extern E_f betai_(real *x, real *pin, real *qin);
01370
01371
01372
01373 extern int comlr2_(integer *nm, integer *n, integer *low, integer *igh, integer *int__, real *hr, real *hi, real *wr, real *wi, real *zr, real *zi, integer *ierr);
01374
01375
01376 extern doublereal dbvlue_(doublereal *t, doublereal *a, integer *n, integer *k, doublereal *x, integer *ideriv);
01377
01378 extern doublereal dpchia_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, doublereal *a, doublereal *b, integer *ierr);
01379
01380
01381
01382 extern int dvout_(integer *n, doublereal *dx, char *ifmt, integer *idigit, ftnlen ifmt_len);
01383
01384 extern int mpdivi_(integer *x, integer *iy, integer *z__);
01385
01386
01387
01388
01389
01390
01391 extern E_f r9lgit_(real *a, real *x, real *algap1);
01392
01393
01394 extern int splpfe_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *ienter, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, real *erdnrm, real *eps, real *gg, real *dulnrm, real *dirnrm, real *amat, real *basmat, real *csc, real *wr, real *ww, real *bl, real *bu, real *rz, real *rg, real *colnrm, real *duals, logical *found);
01395
01396
01397
01398
01399
01400 extern int bfqad_(E_fp f, real *t, real *bcoef, integer *n, integer *k, integer *id, real *x1, real *x2, real *tol, real *quad, integer *ierr, real *work);
01401
01402
01403
01404
01405 extern int compb_(integer *n, integer *ierror, real *an, real *bn, real *cn, real *b, real *ah, real *bh);
01406
01407
01408
01409
01410
01411 extern int dbvpor_(doublereal *y, integer *nrowy, integer *ncomp, doublereal *xpts, integer *nxpts, doublereal *a, integer *nrowa, doublereal *alpha, integer *nic, doublereal *b, integer *nrowb, doublereal *beta, integer *nfc, integer *iflag, doublereal *z__, integer *mxnon, doublereal *p, integer *ntp, integer *ip, doublereal *w, integer *niv, doublereal *yhp, doublereal *u, doublereal *v, doublereal *coef, doublereal *s, doublereal *stowa, doublereal *g, doublereal *work, integer *iwork, integer *nfcc);
01412
01413
01414
01415
01416
01417
01418
01419
01420
01421
01422
01423 extern int dpchic_(integer *ic, doublereal *vc, doublereal *switch__, integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, doublereal *wk, integer *nwk, integer *ierr);
01424
01425
01426
01427
01428 extern int dwnlit_(doublereal *w, integer *mdw, integer *m, integer *n, integer *l, integer *ipivot, integer *itype, doublereal *h__, doublereal *scale, doublereal *rnorm, integer *idope, doublereal *dope, logical *done);
01429
01430
01431
01432
01433
01434
01435 extern int mperr_(void);
01436
01437 extern E_f r9lgmc_(real *x);
01438
01439
01440
01441
01442 extern int splpfl_(integer *mrelas, integer *nvars__, integer *ienter, integer *ileave, integer *ibasis, integer *ind, integer *ibb, real *theta, real *dirnrm, real *rprnrm, real *csc, real *ww, real *bl, real *bu, real *erp, real *rprim, real *primal, logical *finite, logical *zerolv);
01443 extern E_f bi_(real *x);
01444
01445
01446
01447
01448
01449
01450 extern int comqr_(integer *nm, integer *n, integer *low, integer *igh, real *hr, real *hi, real *wr, real *wi, integer *ierr);
01451
01452
01453
01454 extern int dbvsup_(doublereal *y, integer *nrowy, integer *ncomp, doublereal *xpts, integer *nxpts, doublereal *a, integer *nrowa, doublereal *alpha, integer *nic, doublereal *b, integer *nrowb, doublereal *beta, integer *nfc, integer *igofx, doublereal *re, doublereal *ae, integer *iflag, doublereal *work, integer *ndw, integer *iwork, integer *ndiw, integer *neqivp);
01455
01456
01457
01458
01459
01460
01461
01462
01463 extern doublereal dpchid_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, integer *ia, integer *ib, integer *ierr);
01464
01465 extern int dwnlsm_(doublereal *w, integer *mdw, integer *mme, integer *ma, integer *n, integer *l, doublereal *prgopt, doublereal *x, doublereal *rnorm, integer *mode, integer *ipivot, integer *itype, doublereal *wd, doublereal *h__, doublereal *scale, doublereal *z__, doublereal *temp, doublereal *d__);
01466
01467
01468
01469
01470
01471
01472
01473
01474
01475
01476
01477
01478
01479 extern int mpmaxr_(integer *x);
01480
01481
01482 extern E_f r9ln2r_(real *x);
01483
01484
01485
01486
01487 extern int splpmn_(U_fp usrmat, integer *mrelas, integer *nvars__, real *costs, real *prgopt, real *dattrv, real *bl, real *bu, integer *ind, integer *info, real *primal, real *duals, real *amat, real *csc, real *colnrm, real *erd, real *erp, real *basmat, real *wr, real *rz, real *rg, real *rprim, real *rhs, real *ww, integer *lmx, integer *lbm, integer *ibasis, integer *ibb, integer *imat, integer *ibrc, integer *ipr, integer *iwr);
01488
01489
01490
01491
01492
01493
01494
01495
01496
01497
01498
01499
01500
01501
01502
01503
01504
01505
01506
01507
01508
01509
01510 extern E_f bie_(real *x);
01511
01512
01513
01514
01515 extern int comqr2_(integer *nm, integer *n, integer *low, integer *igh, real *ortr, real *orti, real *hr, real *hi, real *wr, real *wi, real *zr, real *zi, integer *ierr);
01516
01517
01518
01519 extern doublereal dcbrt_(doublereal *x);
01520
01521
01522
01523 extern int dpchim_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, integer *ierr);
01524
01525
01526 extern int dwnnls_(doublereal *w, integer *mdw, integer *me, integer *ma, integer *n, integer *l, doublereal *prgopt, doublereal *x, doublereal *rnorm, integer *mode, integer *iwork, doublereal *work);
01527
01528
01529
01530 extern int mpmlp_(integer *u, integer *v, integer *w, integer *j);
01531 extern E_f r9pak_(real *y, integer *n);
01532
01533
01534
01535
01536 extern int splpmu_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *nredc, integer *info, integer *ienter, integer *ileave, integer *iopt, integer *npp, integer *jstrt, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, real *anorm, real *eps, real *uu, real *gg, real *rprnrm, real *erdnrm, real *dulnrm, real *theta, real *costsc, real *xlamda, real *rhsnrm, real *amat, real *basmat, real *csc, real *wr, real *rprim, real *ww, real *bu, real *bl, real *rhs, real *erd, real *erp, real *rz, real *rg, real *colnrm, real *costs, real *primal, real *duals, logical *singlr, logical *redbas, logical *zerolv, logical *stpedg);
01537
01538
01539
01540
01541
01542
01543
01544
01545
01546
01547
01548 extern E_f binom_(integer *n, integer *m);
01549
01550
01551
01552
01553 extern int cortb_(integer *nm, integer *low, integer *igh, real *ar, real *ai, real *ortr, real *orti, integer *m, real *zr, real *zi);
01554 extern int dcdot_(integer *n, doublereal *fm, complex *cx, integer *incx, complex *cy, integer *incy, doublereal *dcr, doublereal *dci);
01555 extern int dpchmc_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, integer *ismon, integer *ierr);
01556
01557
01558 extern int dwritp_(integer *ipage, integer *list, doublereal *rlist, integer *lpage, integer *irec);
01559
01560 extern int mpmul_(integer *x, integer *y, integer *z__);
01561
01562
01563
01564
01565
01566 extern int r9upak_(real *x, real *y, integer *n);
01567 extern int splpup_(S_fp usrmat, integer *mrelas, integer *nvars__, real *prgopt, real *dattrv, real *bl, real *bu, integer *ind, integer *info, real *amat, integer *imat, logical *sizeup, real *asmall, real *abig);
01568
01569
01570
01571
01572 extern int bint4_(real *x, real *y, integer *ndata, integer *ibcl, integer *ibcr, real *fbcl, real *fbcr, integer *kntopt, real *t, real *bcoef, integer *n, integer *k, real *w);
01573
01574
01575
01576
01577
01578 extern int corth_(integer *nm, integer *n, integer *low, integer *igh, real *ar, real *ai, real *ortr, real *orti);
01579
01580 extern int dcfod_(integer *meth, doublereal *elco, doublereal *tesco);
01581 extern int dpchng_(integer *ii, doublereal *xval, integer *iplace, doublereal *sx, integer *ix, integer *ircx);
01582
01583
01584
01585 extern int dwupdt_(integer *n, doublereal *r__, integer *ldr, doublereal *w, doublereal *b, doublereal *alpha, doublereal *cos__, doublereal *sin__);
01586 extern int mpmul2_(integer *x, integer *iy, integer *z__, integer *trunc);
01587
01588
01589
01590
01591
01592
01593 extern int radb2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1);
01594 extern int spoco_(real *a, integer *lda, integer *n, real *rcond, real *z__, integer *info);
01595
01596
01597
01598
01599
01600 extern int bintk_(real *x, real *y, real *t, integer *n, integer *k, real *bcoef, real *q, real *work);
01601
01602
01603
01604
01605 extern E_f cosdg_(real *x);
01606 extern int dchdc_(doublereal *a, integer *lda, integer *p, doublereal *work, integer *jpvt, integer *job, integer *info);
01607
01608
01609 extern int dpchsp_(integer *ic, doublereal *vc, integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, doublereal *wk, integer *nwk, integer *ierr);
01610
01611
01612 extern int dx_(real *u, integer *idmn, integer *i__, integer *j, real *uxxx, real *uxxxx);
01613
01614 extern int mpmuli_(integer *x, integer *iy, integer *z__);
01615
01616 extern int radb3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2);
01617 extern int spodi_(real *a, integer *lda, integer *n, real *det, integer *job);
01618
01619
01620 extern int bisect_(integer *n, real *eps1, real *d__, real *e, real *e2, real *lb, real *ub, integer *mm, integer *m, real *w, integer *ind, integer *ierr, real *rv4, real *rv5);
01621 extern int cosgen_(integer *n, integer *ijump, real *fnum, real *fden, real *a);
01622
01623 extern int dchdd_(doublereal *r__, integer *ldr, integer *p, doublereal *x, doublereal *z__, integer *ldz, integer *nz, doublereal *y, doublereal *rho, doublereal *c__, doublereal *s, integer *info);
01624
01625
01626 extern doublereal dpchst_(doublereal *arg1, doublereal *arg2);
01627 extern int dx4_(real *u, integer *idmn, integer *i__, integer *j, real *uxxx, real *uxxxx);
01628
01629 extern int mpnzr_(integer *rs, integer *re, integer *z__, integer *trunc);
01630
01631
01632
01633
01634 extern int radb4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3);
01635 extern int spofa_(real *a, integer *lda, integer *n, integer *info);
01636
01637 extern int bkias_(real *x, integer *n, integer *ktrms, real *t, real *ans, integer *ind, integer *ms, real *gmrn, real *h__, integer *ierr);
01638
01639
01640
01641
01642 extern int cosqb_(integer *n, real *x, real *wsave);
01643
01644 extern int dchex_(doublereal *r__, integer *ldr, integer *p, integer *k, integer *l, doublereal *z__, integer *ldz, integer *nz, doublereal *c__, doublereal *s, integer *job);
01645
01646 extern int dpchsw_(doublereal *dfmax, integer *iextrm, doublereal *d1, doublereal *d2, doublereal *h__, doublereal *slope, integer *ierr);
01647
01648
01649 extern int dy_(real *u, integer *idmn, integer *i__, integer *j, real *uyyy, real *uyyyy);
01650
01651 extern int mpovfl_(integer *x);
01652
01653
01654
01655
01656 extern int radb5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4);
01657 extern int spofs_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work);
01658
01659
01660
01661
01662
01663 extern int bkisr_(real *x, integer *n, real *sum, integer *ierr);
01664
01665
01666 extern int cosqb1_(integer *n, real *x, real *w, real *xh);
01667
01668 extern int dchfdv_(doublereal *x1, doublereal *x2, doublereal *f1, doublereal *f2, doublereal *d1, doublereal *d2, integer *ne, doublereal *xe, doublereal *fe, doublereal *de, integer *next, integer *ierr);
01669
01670 extern int dpcoef_(integer *l, doublereal *c__, doublereal *tc, doublereal *a);
01671
01672 extern int dy4_(real *u, integer *idmn, integer *i__, integer *j, real *uyyy, real *uyyyy);
01673
01674 extern int mpstr_(integer *x, integer *y);
01675
01676 extern int radbg_(integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
01677 extern int spoir_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work);
01678
01679
01680
01681
01682
01683
01684
01685
01686 extern int bksol_(integer *n, real *a, real *x);
01687
01688 extern int cosqf_(integer *n, real *x, real *wsave);
01689
01690 extern int dchfev_(doublereal *x1, doublereal *x2, doublereal *f1, doublereal *f2, doublereal *d1, doublereal *d2, integer *ne, doublereal *xe, doublereal *fe, integer *next, integer *ierr);
01691
01692 extern int dpfqad_(D_fp f, integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, integer *k, integer *id, doublereal *x1, doublereal *x2, doublereal *tol, doublereal *quad, integer *ierr);
01693
01694
01695
01696
01697 extern int dyairy_(doublereal *x, doublereal *rx, doublereal *c__, doublereal *bi, doublereal *dbi);
01698 extern int mpunfl_(integer *x);
01699
01700 extern int radf2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1);
01701 extern int spopt_(real *prgopt, integer *mrelas, integer *nvars__, integer *info, real *csc, integer *ibasis, real *ropt, integer *intopt, logical *lopt);
01702
01703
01704 extern int blktr1_(integer *n, real *an, real *bn, real *cn, integer *m, real *am, real *bm, real *cm, integer *idimy, real *y, real *b, real *w1, real *w2, real *w3, real *wd, real *ww, real *wu, S_fp prdct, S_fp cprdct);
01705
01706
01707
01708
01709 extern int cosqf1_(integer *n, real *x, real *w, real *xh);
01710
01711 extern doublereal dchfiv_(doublereal *x1, doublereal *x2, doublereal *f1, doublereal *f2, doublereal *d1, doublereal *d2, doublereal *a, doublereal *b, integer *ierr);
01712
01713 extern int dpincw_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *npp, integer *jstrt, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, doublereal *costsc, doublereal *gg, doublereal *erdnrm, doublereal *dulnrm, doublereal *amat, doublereal *basmat, doublereal *csc, doublereal *wr, doublereal *ww, doublereal *rz, doublereal *rg, doublereal *costs, doublereal *colnrm, doublereal *duals, logical *stpedg);
01714
01715
01716
01717
01718
01719 extern E_f e1_(real *x);
01720
01721
01722
01723
01724 extern integer numxer_(integer *nerr);
01725
01726 extern int radf3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2);
01727 extern int sposl_(real *a, integer *lda, integer *n, real *b);
01728
01729
01730 extern int blktri_(integer *iflg, integer *np, integer *n, real *an, real *bn, real *cn, integer *mp, integer *m, real *am, real *bm, real *cm, integer *idimy, real *y, integer *ierror, real *w);
01731
01732
01733
01734 extern int cosqi_(integer *n, real *wsave);
01735
01736 extern integer dchfmc_(doublereal *d1, doublereal *d2, doublereal *delta);
01737
01738 extern int dpinit_(integer *mrelas, integer *nvars__, doublereal *costs, doublereal *bl, doublereal *bu, integer *ind, doublereal *primal, integer *info, doublereal *amat, doublereal *csc, doublereal *costsc, doublereal *colnrm, doublereal *xlamda, doublereal *anorm, doublereal *rhs, doublereal *rhsnrm, integer *ibasis, integer *ibb, integer *imat, logical *lopt);
01739
01740
01741
01742 extern int efc_(integer *ndata, real *xdata, real *ydata, real *sddata, integer *nord, integer *nbkpt, real *bkpt, integer *mdein, integer *mdeout, real *coeff, integer *lw, real *w);
01743
01744 extern int ohtrol_(real *q, integer *n, integer *nrda, real *diag, integer *irank, real *div, real *td);
01745
01746 extern int radf4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3);
01747 extern int sppco_(real *ap, integer *n, real *rcond, real *z__, integer *info);
01748
01749
01750
01751
01752
01753 extern int bndacc_(real *g, integer *mdg, integer *nb, integer *ip, integer *ir, integer *mt, integer *jt);
01754
01755
01756 extern int cost_(integer *n, real *x, real *wsave);
01757
01758 extern doublereal dchu_(doublereal *a, doublereal *b, doublereal *x);
01759
01760
01761
01762
01763
01764
01765
01766
01767 extern int dpintm_(integer *m, integer *n, doublereal *sx, integer *ix, integer *lmx, integer *ipagef);
01768
01769 extern int efcmn_(integer *ndata, real *xdata, real *ydata, real *sddata, integer *nord, integer *nbkpt, real *bkptin, integer *mdein, integer *mdeout, real *coeff, real *bf, real *xtemp, real *ptemp, real *bkpt, real *g, integer *mdg, real *w, integer *mdw, integer *lw);
01770
01771
01772
01773
01774
01775
01776
01777
01778 extern int ohtror_(real *q, integer *n, integer *nrda, real *diag, integer *irank, real *div, real *td);
01779
01780 extern int radf5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4);
01781 extern int sppdi_(real *ap, integer *n, real *det, integer *job);
01782
01783
01784 extern int bndsol_(integer *mode, real *g, integer *mdg, integer *nb, integer *ip, integer *ir, real *x, integer *n, real *rnorm);
01785
01786 extern int costi_(integer *n, real *wsave);
01787
01788 extern int dchud_(doublereal *r__, integer *ldr, integer *p, doublereal *x, doublereal *z__, integer *ldz, integer *nz, doublereal *y, doublereal *rho, doublereal *c__, doublereal *s);
01789
01790 extern int dpjac_(integer *neq, doublereal *y, doublereal *yh, integer *nyh, doublereal *ewt, doublereal *ftem, doublereal *savf, doublereal *wm, integer *iwm, S_fp df, S_fp djac, doublereal *rpar, integer *ipar);
01791
01792
01793
01794
01795 extern E_f ei_(real *x);
01796
01797 extern int ortbak_(integer *nm, integer *low, integer *igh, real *a, real *ort, integer *m, real *z__);
01798 extern int radfg_(integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
01799 extern int sppfa_(real *ap, integer *n, integer *info);
01800
01801 extern int bnfac_(real *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, integer *iflag);
01802 extern E_f cot_(real *x);
01803
01804
01805
01806
01807 extern int dckder_(integer *m, integer *n, doublereal *x, doublereal *fvec, doublereal *fjac, integer *ldfjac, doublereal *xp, doublereal *fvecp, integer *mode, doublereal *err);
01808
01809 extern int dplint_(integer *n, doublereal *x, doublereal *y, doublereal *c__);
01810
01811 extern int eisdoc_(void);
01812 extern int orthes_(integer *nm, integer *n, integer *low, integer *igh, real *a, real *ort);
01813 extern E_f rand_(real *r__);
01814 extern int sppsl_(real *ap, integer *n, real *b);
01815
01816
01817 extern int bnslv_(real *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, real *b);
01818 extern int cpadd_(integer *n, integer *ierror, real *a, real *c__, complex *cbp, real *bp, real *bh);
01819
01820
01821
01822
01823 extern int dcoef_(doublereal *yh, doublereal *yp, integer *ncomp, integer *nrowb, integer *nfc, integer *nic, doublereal *b, doublereal *beta, doublereal *coef, integer *inhomo, doublereal *re, doublereal *ae, doublereal *by, doublereal *cvec, doublereal *work, integer *iwork, integer *iflag, integer *nfcc);
01824
01825
01826
01827
01828
01829 extern int dplpce_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *itlp, integer *itbrc, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, doublereal *erdnrm, doublereal *eps, doublereal *tune, doublereal *gg, doublereal *amat, doublereal *basmat, doublereal *csc, doublereal *wr, doublereal *ww, doublereal *primal, doublereal *erd, doublereal *erp, logical *singlr, logical *redbas);
01830
01831
01832
01833
01834
01835 extern int elmbak_(integer *nm, integer *low, integer *igh, real *a, integer *int__, integer *m, real *z__);
01836 extern int ortho4_(real *usol, integer *idmn, real *zn, real *zm, real *pertrb);
01837
01838 extern int ratqr_(integer *n, real *eps1, real *d__, real *e, real *e2, integer *m, real *w, integer *ind, real *bd, logical *type__, integer *idef, integer *ierr);
01839 extern int sptsl_(integer *n, real *d__, real *e, real *b);
01840 extern int bqr_(integer *nm, integer *n, integer *mb, real *a, real *t, real *r__, integer *ierr, integer *nv, real *rv);
01841
01842 extern int cpbco_(complex *abd, integer *lda, integer *n, integer *m, real *rcond, complex *z__, integer *info);
01843
01844
01845
01846
01847
01848 extern int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
01849 extern int dplpdm_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *nredc, integer *info, integer *iopt, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, doublereal *anorm, doublereal *eps, doublereal *uu, doublereal *gg, doublereal *amat, doublereal *basmat, doublereal *csc, doublereal *wr, logical *singlr, logical *redbas);
01850
01851
01852
01853
01854
01855
01856 extern int elmhes_(integer *nm, integer *n, integer *low, integer *igh, real *a, integer *int__);
01857 extern int orthog_(real *usol, integer *idmn, real *zn, real *zm, real *pertrb);
01858
01859 extern E_f rc_(real *x, real *y, integer *ier);
01860
01861
01862 extern int sqrdc_(real *x, integer *ldx, integer *n, integer *p, real *qraux, integer *jpvt, real *work, integer *job);
01863
01864
01865
01866
01867
01868 extern int bsgq8_(E_fp fun, real *xt, real *bc, integer *n, integer *kk, integer *id, real *a, real *b, integer *inbv, real *err, real *ans, integer *ierr, real *work);
01869
01870
01871
01872
01873 extern int cpbdi_(complex *abd, integer *lda, integer *n, integer *m, real *det);
01874 extern int dcopym_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
01875 extern int dplpfe_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *ienter, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, doublereal *erdnrm, doublereal *eps, doublereal *gg, doublereal *dulnrm, doublereal *dirnrm, doublereal *amat, doublereal *basmat, doublereal *csc, doublereal *wr, doublereal *ww, doublereal *bl, doublereal *bu, doublereal *rz, doublereal *rg, doublereal *colnrm, doublereal *duals, logical *found);
01876
01877
01878
01879
01880
01881 extern int eltran_(integer *nm, integer *n, integer *low, integer *igh, real *a, integer *int__, real *z__);
01882 extern int orthol_(real *a, integer *m, integer *n, integer *nrda, integer *iflag, integer *irank, integer *iscale, real *diag, integer *kpivot, real *scales, real *cols, real *cs);
01883
01884
01885
01886
01887 extern E_f rd_(real *x, real *y, real *z__, integer *ier);
01888
01889
01890 extern int sqrsl_(real *x, integer *ldx, integer *n, integer *k, real *qraux, real *y, real *qy, real *qty, real *b, real *rsd, real *xb, integer *job, integer *info);
01891
01892
01893
01894 extern int bskin_(real *x, integer *n, integer *kode, integer *m, real *y, integer *nz, integer *ierr);
01895
01896
01897
01898
01899
01900
01901 extern int cpbfa_(complex *abd, integer *lda, integer *n, integer *m, integer *info);
01902
01903 extern doublereal dcosdg_(doublereal *x);
01904 extern int dplpfl_(integer *mrelas, integer *nvars__, integer *ienter, integer *ileave, integer *ibasis, integer *ind, integer *ibb, doublereal *theta, doublereal *dirnrm, doublereal *rprnrm, doublereal *csc, doublereal *ww, doublereal *bl, doublereal *bu, doublereal *erp, doublereal *rprim, doublereal *primal, logical *finite, logical *zerolv);
01905 extern E_f enorm_(integer *n, real *x);
01906 extern int orthor_(real *a, integer *n, integer *m, integer *nrda, integer *iflag, integer *irank, integer *iscale, real *diag, integer *kpivot, real *scales, real *rows, real *rs);
01907
01908
01909
01910
01911 extern int rebak_(integer *nm, integer *n, real *b, real *dl, integer *m, real *z__);
01912 extern int sreadp_(integer *ipage, integer *list, real *rlist, integer *lpage, integer *irec);
01913
01914 extern int bspdoc_(void);
01915 extern int cpbsl_(complex *abd, integer *lda, integer *n, integer *m, complex *b);
01916
01917
01918 extern doublereal dcot_(doublereal *x);
01919
01920
01921
01922
01923 extern int dplpmn_(U_fp dusrmt, integer *mrelas, integer *nvars__, doublereal *costs, doublereal *prgopt, doublereal *dattrv, doublereal *bl, doublereal *bu, integer *ind, integer *info, doublereal *primal, doublereal *duals, doublereal *amat, doublereal *csc, doublereal *colnrm, doublereal *erd, doublereal *erp, doublereal *basmat, doublereal *wr, doublereal *rz, doublereal *rg, doublereal *rprim, doublereal *rhs, doublereal *ww, integer *lmx, integer *lbm, integer *ibasis, integer *ibb, integer *imat, integer *ibrc, integer *ipr, integer *iwr);
01924
01925
01926
01927
01928
01929
01930
01931
01932
01933
01934
01935
01936
01937
01938
01939
01940
01941
01942
01943
01944
01945
01946 extern E_f epmach_(real *dum);
01947
01948 extern int ortran_(integer *nm, integer *n, integer *low, integer *igh, real *a, real *ort, real *z__);
01949 extern int rebakb_(integer *nm, integer *n, real *b, real *dl, integer *m, real *z__);
01950 extern int srot_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *sc, real *ss);
01951 extern int bspdr_(real *t, real *a, integer *n, integer *k, integer *nderiv, real *ad);
01952
01953 extern int cpevl_(integer *n, integer *m, complex *a, complex *z__, complex *c__, complex *b, logical *kbd);
01954
01955 extern int dcov_(S_fp fcn, integer *iopt, integer *m, integer *n, doublereal *x, doublereal *fvec, doublereal *r__, integer *ldr, integer *info, doublereal *wa1, doublereal *wa2, doublereal *wa3, doublereal *wa4);
01956
01957
01958
01959
01960
01961 extern int dplpmu_(integer *mrelas, integer *nvars__, integer *lmx, integer *lbm, integer *nredc, integer *info, integer *ienter, integer *ileave, integer *iopt, integer *npp, integer *jstrt, integer *ibasis, integer *imat, integer *ibrc, integer *ipr, integer *iwr, integer *ind, integer *ibb, doublereal *anorm, doublereal *eps, doublereal *uu, doublereal *gg, doublereal *rprnrm, doublereal *erdnrm, doublereal *dulnrm, doublereal *theta, doublereal *costsc, doublereal *xlamda, doublereal *rhsnrm, doublereal *amat, doublereal *basmat, doublereal *csc, doublereal *wr, doublereal *rprim, doublereal *ww, doublereal *bu, doublereal *bl, doublereal *rhs, doublereal *erd, doublereal *erp, doublereal *rz, doublereal *rg, doublereal *colnrm, doublereal *costs, doublereal *primal, doublereal *duals, logical *singlr, logical *redbas, logical *zerolv, logical *stpedg);
01962
01963
01964
01965
01966
01967
01968
01969
01970
01971
01972
01973 extern E_f erf_(real *x);
01974
01975
01976
01977
01978 extern int passb_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
01979 extern int reduc_(integer *nm, integer *n, real *a, real *b, real *dl, integer *ierr);
01980 extern int srotg_(real *sa, real *sb, real *sc, real *ss);
01981 extern int bspev_(real *t, real *ad, integer *n, integer *k, integer *nderiv, real *x, integer *inev, real *svalue, real *work);
01982
01983
01984
01985 extern int cpevlr_(integer *n, integer *m, real *a, real *x, real *c__);
01986 extern int dcscal_(doublereal *a, integer *nrda, integer *nrow, integer *ncol, doublereal *cols, doublereal *colsav, doublereal *rows, doublereal *rowsav, doublereal *anorm, doublereal *scales, integer *iscale, integer *ic);
01987
01988 extern int dplpup_(S_fp dusrmt, integer *mrelas, integer *nvars__, doublereal *prgopt, doublereal *dattrv, doublereal *bl, doublereal *bu, integer *ind, integer *info, doublereal *amat, integer *imat, logical *sizeup, doublereal *asmall, doublereal *abig);
01989
01990
01991
01992
01993 extern E_f erfc_(real *x);
01994
01995
01996
01997
01998 extern int passb2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1);
01999 extern int reduc2_(integer *nm, integer *n, real *a, real *b, real *dl, integer *ierr);
02000 extern int srotm_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *sparam);
02001 extern int bsplvd_(real *t, integer *k, real *x, integer *ileft, real *vnikx, integer *nderiv);
02002
02003 extern int cpoco_(complex *a, integer *lda, integer *n, real *rcond, complex *z__, integer *info);
02004
02005
02006
02007
02008
02009 extern doublereal dcsevl_(doublereal *x, doublereal *a, integer *n);
02010
02011 extern int dpnnzr_(integer *i__, doublereal *xval, integer *iplace, doublereal *sx, integer *ix, integer *ircx);
02012
02013
02014 extern int exbvp_(real *y, integer *nrowy, real *xpts, real *a, integer *nrowa, real *alpha, real *b, integer *nrowb, real *beta, integer *iflag, real *work, integer *iwork);
02015
02016
02017
02018
02019
02020
02021
02022 extern int passb3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2);
02023 extern int reort_(integer *ncomp, real *y, real *yp, real *yhp, integer *niv, real *w, real *s, real *p, integer *ip, real *stowa, integer *iflag);
02024
02025
02026
02027
02028
02029
02030
02031 extern int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real *sparam);
02032 extern int bsplvn_(real *t, integer *jhigh, integer *index, real *x, integer *ileft, real *vnikx);
02033 extern int cpodi_(complex *a, integer *lda, integer *n, real *det, integer *job);
02034
02035
02036 extern doublereal dcv_(doublereal *xval, integer *ndata, integer *nconst, integer *nord, integer *nbkpt, doublereal *bkpt, doublereal *w);
02037
02038
02039 extern doublereal dpoch_(doublereal *a, doublereal *x);
02040
02041
02042
02043
02044
02045
02046
02047
02048 extern int exint_(real *x, integer *n, integer *kode, integer *m, real *tol, real *en, integer *ierr);
02049
02050
02051
02052
02053 extern int passb4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3);
02054 extern E_f rf_(real *x, real *y, real *z__, integer *ier);
02055
02056
02057 extern int sscal_(integer *n, real *sa, real *sx, integer *incx);
02058 extern int bsppp_(real *t, real *a, integer *n, integer *k, integer *ldc, real *c__, real *xi, integer *lxi, real *work);
02059
02060
02061
02062 extern int cpofa_(complex *a, integer *lda, integer *n, integer *info);
02063
02064 extern doublereal ddaws_(doublereal *x);
02065
02066
02067
02068
02069 extern doublereal dpoch1_(doublereal *a, doublereal *x);
02070
02071
02072
02073
02074
02075
02076 extern E_f exprel_(real *x);
02077
02078 extern int passb5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4);
02079 extern int rfftb_(integer *n, real *r__, real *wsave);
02080
02081 extern int ssico_(real *a, integer *lda, integer *n, integer *kpvt, real *rcond, real *z__);
02082
02083
02084
02085
02086
02087 extern int bspvd_(real *t, integer *k, integer *nderiv, real *x, integer *ileft, integer *ldvnik, real *vnikx, real *work);
02088
02089
02090 extern int cpofs_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work);
02091
02092
02093
02094
02095
02096 extern int ddcorb_(doublereal *dfdy, doublereal *el, S_fp fa, doublereal *h__, integer *impl, integer *ipvt, integer *matdim, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, integer *nq, doublereal *t, doublereal *y, doublereal *yh, doublereal *ywt, logical *evalfa, doublereal *save1, doublereal *save2, doublereal *a, doublereal *d__);
02097
02098
02099
02100
02101 extern int dpoco_(doublereal *a, integer *lda, integer *n, doublereal *rcond, doublereal *z__, integer *info);
02102
02103
02104
02105
02106
02107 extern int ezfft1_(integer *n, real *wa, integer *ifac);
02108 extern int passf_(integer *nac, integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa);
02109 extern int rfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
02110
02111
02112
02113
02114
02115 extern int ssidi_(real *a, integer *lda, integer *n, integer *kpvt, real *det, integer *inert, real *work, integer *job);
02116
02117
02118
02119
02120 extern int bspvn_(real *t, integer *jhigh, integer *k, integer *index, real *x, integer *ileft, real *vnikx, real *work, integer *iwork);
02121
02122 extern int cpoir_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work);
02123
02124
02125
02126
02127
02128
02129
02130
02131 extern int ddcstb_(integer *maxord, integer *mint, integer *iswflg, doublereal *el, doublereal *tq);
02132 extern int dpodi_(doublereal *a, integer *lda, integer *n, doublereal *det, integer *job);
02133
02134
02135 extern int ezfftb_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave);
02136
02137 extern int passf2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1);
02138 extern int rfftf_(integer *n, real *r__, real *wsave);
02139
02140 extern int ssiev_(real *a, integer *lda, integer *n, real *e, real *work, integer *job, integer *info);
02141
02142
02143
02144
02145
02146 extern int bsqad_(real *t, real *bcoef, integer *n, integer *k, real *x1, real *x2, real *bquad, real *work);
02147
02148
02149
02150 extern int cposl_(complex *a, integer *lda, integer *n, complex *b);
02151
02152
02153 extern int dde2_(S_fp df, integer *neq, doublereal *t, doublereal *y, doublereal *tout, integer *info, doublereal *rtol, doublereal *atol, integer *idid, doublereal *ypout, doublereal *yp, doublereal *yy, doublereal *wt, doublereal *p, doublereal *phi, doublereal *alpha, doublereal *beta, doublereal *psi, doublereal *v, doublereal *w, doublereal *sig, doublereal *g, doublereal *h__, doublereal *eps, doublereal *x, doublereal *hold, doublereal *told, doublereal *delsgn, doublereal *tstop, doublereal *twou, doublereal *fouru, logical *start, logical *phase1, logical *nornd, logical *stiff, logical *intout, integer *ns, integer *kord, integer *kold, integer *init, integer *ksteps, integer *kle4, integer *iquit, doublereal *rpar, integer *ipar);
02154
02155
02156
02157
02158 extern int dpofa_(doublereal *a, integer *lda, integer *n, integer *info);
02159
02160 extern int ezfftf_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave);
02161
02162 extern int passf3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2);
02163 extern int rfftf1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
02164
02165
02166
02167
02168
02169 extern int ssifa_(real *a, integer *lda, integer *n, integer *kpvt, integer *info);
02170
02171
02172
02173 extern E_f bsrh_(real *xll, real *xrr, integer *iz, real *c__, real *a, real *bh, E_fp f, real *sgn);
02174
02175 extern int cppco_(complex *ap, integer *n, real *rcond, complex *z__, integer *info);
02176
02177
02178
02179
02180
02181 extern int ddeabm_(U_fp df, integer *neq, doublereal *t, doublereal *y, doublereal *tout, integer *info, doublereal *rtol, doublereal *atol, integer *idid, doublereal *rwork, integer *lrw, integer *iwork, integer *liw, doublereal *rpar, integer *ipar);
02182
02183
02184 extern int dpofs_(doublereal *a, integer *lda, integer *n, doublereal *v, integer *itask, integer *ind, doublereal *work);
02185
02186
02187
02188
02189
02190 extern int ezffti_(integer *n, real *wsave);
02191
02192 extern int passf4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3);
02193 extern int rffti_(integer *n, real *wsave);
02194
02195 extern int ssisl_(real *a, integer *lda, integer *n, integer *kpvt, real *b);
02196
02197
02198 extern E_f bvalu_(real *t, real *a, integer *n, integer *k, integer *ideriv, real *x, integer *inbv, real *work);
02199
02200
02201 extern int cppdi_(complex *ap, integer *n, real *det, integer *job);
02202
02203
02204 extern int ddebdf_(U_fp df, integer *neq, doublereal *t, doublereal *y, doublereal *tout, integer *info, doublereal *rtol, doublereal *atol, integer *idid, doublereal *rwork, integer *lrw, integer *iwork, integer *liw, doublereal *rpar, integer *ipar, U_fp djac);
02205
02206
02207
02208 extern int dpolcf_(doublereal *xx, integer *n, doublereal *x, doublereal *c__, doublereal *d__, doublereal *work);
02209 extern E_f fac_(integer *n);
02210
02211
02212
02213 extern int passf5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4);
02214 extern int rffti1_(integer *n, real *wa, integer *ifac);
02215 extern int ssort_(real *x, real *y, integer *n, integer *kflag);
02216
02217 extern E_f bvalue_(real *t, real *a, integer *n, integer *k, real *x, integer *ideriv);
02218
02219 extern int cppfa_(complex *ap, integer *n, integer *info);
02220
02221 extern int dderkf_(U_fp df, integer *neq, doublereal *t, doublereal *y, doublereal *tout, integer *info, doublereal *rtol, doublereal *atol, integer *idid, doublereal *rwork, integer *lrw, integer *iwork, integer *liw, doublereal *rpar, integer *ipar);
02222
02223
02224 extern int dpolft_(integer *n, doublereal *x, doublereal *y, doublereal *w, integer *maxdeg, integer *ndeg, doublereal *eps, doublereal *r__, integer *ierr, doublereal *a);
02225
02226
02227 extern int fc_(integer *ndata, real *xdata, real *ydata, real *sddata, integer *nord, integer *nbkpt, real *bkpt, integer *nconst, real *xconst, real *yconst, integer *nderiv, integer *mode, real *coeff, real *w, integer *iw);
02228
02229 extern int pchce_(integer *ic, real *vc, integer *n, real *x, real *h__, real *slope, real *d__, integer *incfd, integer *ierr);
02230
02231
02232
02233 extern int rg_(integer *nm, integer *n, real *a, real *wr, real *wi, integer *matz, real *z__, integer *iv1, real *fv1, integer *ierr);
02234
02235
02236
02237
02238
02239
02240 extern int sspco_(real *ap, integer *n, integer *kpvt, real *rcond, real *z__);
02241
02242
02243
02244
02245
02246 extern int bvder_(real *x, real *y, real *yp, real *g, integer *ipar);
02247
02248
02249
02250
02251
02252
02253 extern int cppsl_(complex *ap, integer *n, complex *b);
02254
02255
02256 extern int ddes_(S_fp df, integer *neq, doublereal *t, doublereal *y, doublereal *tout, integer *info, doublereal *rtol, doublereal *atol, integer *idid, doublereal *ypout, doublereal *yp, doublereal *yy, doublereal *wt, doublereal *p, doublereal *phi, doublereal *alpha, doublereal *beta, doublereal *psi, doublereal *v, doublereal *w, doublereal *sig, doublereal *g, real *gi, doublereal *h__, doublereal *eps, doublereal *x, real *xold, doublereal *hold, doublereal *told, doublereal *delsgn, doublereal *tstop, doublereal *twou, doublereal *fouru, logical *start, logical *phase1, logical *nornd, logical *stiff, logical *intout, integer *ns, integer *kord, integer *kold, integer *init, integer *ksteps, integer *kle4, integer *iquit, integer *kprev, integer *ivc, integer *iv, integer *kgi, doublereal *rpar, integer *ipar);
02257
02258
02259
02260
02261 extern int dpolvl_(integer *nder, doublereal *xx, doublereal *yfit, doublereal *yp, integer *n, doublereal *x, doublereal *c__, doublereal *work, integer *ierr);
02262 extern int fcmn_(integer *ndata, real *xdata, real *ydata, real *sddata, integer *nord, integer *nbkpt, real *bkptin, integer *nconst, real *xconst, real *yconst, integer *nderiv, integer *mode, real *coeff, real *bf, real *xtemp, real *ptemp, real *bkpt, real *g, integer *mdg, real *w, integer *mdw, real *work, integer *iwork);
02263
02264
02265
02266
02267
02268
02269
02270
02271
02272
02273
02274 extern int pchci_(integer *n, real *h__, real *slope, real *d__, integer *incfd);
02275
02276 extern E_f rgauss_(real *xmean, real *sd);
02277
02278 extern int sspdi_(real *ap, integer *n, integer *kpvt, real *det, integer *inert, real *work, integer *job);
02279
02280
02281
02282
02283 extern int bvpor_(real *y, integer *nrowy, integer *ncomp, real *xpts, integer *nxpts, real *a, integer *nrowa, real *alpha, integer *nic, real *b, integer *nrowb, real *beta, integer *nfc, integer *iflag, real *z__, integer *mxnon, real *p, integer *ntp, integer *ip, real *w, integer *niv, real *yhp, real *u, real *v, real *coef, real *s, real *stowa, real *g, real *work, integer *iwork, integer *nfcc);
02284
02285
02286
02287
02288
02289
02290
02291
02292
02293
02294
02295 extern int cpqr79_(integer *ndeg, complex *coeff, complex *root, integer *ierr, real *work);
02296
02297
02298 extern doublereal ddiff_(doublereal *x, doublereal *y);
02299 extern int dpopt_(doublereal *prgopt, integer *mrelas, integer *nvars__, integer *info, doublereal *csc, integer *ibasis, doublereal *ropt, integer *intopt, logical *lopt);
02300
02301
02302 extern int fdjac1_(S_fp fcn, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, integer *iflag, integer *ml, integer *mu, real *epsfcn, real *wa1, real *wa2);
02303
02304 extern int pchcs_(real *switch__, integer *n, real *h__, real *slope, real *d__, integer *incfd, integer *ierr);
02305
02306
02307 extern int rgg_(integer *nm, integer *n, real *a, real *b, real *alfr, real *alfi, real *beta, integer *matz, real *z__, integer *ierr);
02308
02309
02310
02311
02312 extern int sspev_(real *a, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info);
02313
02314
02315
02316
02317
02318 extern int bvsup_(real *y, integer *nrowy, integer *ncomp, real *xpts, integer *nxpts, real *a, integer *nrowa, real *alpha, integer *nic, real *b, integer *nrowb, real *beta, integer *nfc, integer *igofx, real *re, real *ae, integer *iflag, real *work, integer *ndw, integer *iwork, integer *ndiw, integer *neqivp);
02319
02320
02321
02322
02323
02324
02325
02326
02327 extern int cproc_(integer *nd, complex *bd, integer *nm1, real *bm1, integer *nm2, real *bm2, integer *na, real *aa, complex *x, complex *y, integer *m, complex *a, complex *b, complex *c__, complex *d__, complex *w, real *yy);
02328 extern int ddntlb_(doublereal *eps, S_fp f, S_fp fa, doublereal *hmax, doublereal *hold, integer *impl, integer *jtask, integer *matdim, integer *maxord, integer *mint, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, doublereal *save1, doublereal *t, doublereal *y, doublereal *ywt, doublereal *h__, integer *mntold, integer *mtrold, integer *nfe, doublereal *rc, doublereal *yh, doublereal *a, logical *convrg, doublereal *el, logical *ier, integer *ipvt, integer *nq, integer *nwait, doublereal *rh, doublereal *rmax, doublereal *save2, doublereal *tq, doublereal *trend, integer *iswflg);
02329
02330
02331
02332
02333
02334
02335
02336
02337 extern int dposl_(doublereal *a, integer *lda, integer *n, doublereal *b);
02338
02339
02340 extern int fdjac2_(S_fp fcn, integer *m, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, integer *iflag, real *epsfcn, real *wa);
02341
02342 extern E_f pchdf_(integer *k, real *x, real *s, integer *ierr);
02343
02344 extern E_f rj_(real *x, real *y, real *z__, real *p, integer *ier);
02345
02346
02347
02348 extern int sspfa_(real *ap, integer *n, integer *kpvt, integer *info);
02349
02350
02351
02352 extern C_f c0lgmc_(complex * ret_val, complex *z__);
02353
02354
02355 extern int cprocp_(integer *nd, complex *bd, integer *nm1, real *bm1, integer *nm2, real *bm2, integer *na, real *aa, complex *x, complex *y, integer *m, complex *a, complex *b, complex *c__, complex *d__, complex *u, real *yy);
02356 extern int ddntpb_(doublereal *h__, integer *k, integer *n, integer *nq, doublereal *t, doublereal *tout, doublereal *yh, doublereal *y);
02357 extern int dppco_(doublereal *ap, integer *n, doublereal *rcond, doublereal *z__, integer *info);
02358
02359
02360
02361
02362
02363 extern int fdjac3_(S_fp fcn, integer *m, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, integer *iflag, real *epsfcn, real *wa);
02364
02365 extern int pchdoc_(void);
02366 extern int rkfab_(integer *ncomp, real *xpts, integer *nxpts, integer *nfc, integer *iflag, real *z__, integer *mxnon, real *p, integer *ntp, integer *ip, real *yhp, integer *niv, real *u, real *v, real *w, real *s, real *stowa, real *g, real *work, integer *iwork, integer *nfcc);
02367
02368
02369
02370
02371
02372
02373
02374
02375 extern int sspsl_(real *ap, integer *n, integer *kpvt, real *b);
02376
02377
02378 extern C_f c9lgmc_(complex * ret_val, complex *zin);
02379
02380
02381 extern int cprod_(integer *nd, complex *bd, integer *nm1, real *bm1, integer *nm2, real *bm2, integer *na, real *aa, real *x, real *yy, integer *m, real *a, real *b, real *c__, complex *d__, complex *w, complex *y);
02382 extern int ddoglg_(integer *n, doublereal *r__, integer *lr, doublereal *diag, doublereal *qtb, doublereal *delta, doublereal *x, doublereal *wa1, doublereal *wa2);
02383
02384
02385 extern int dppdi_(doublereal *ap, integer *n, doublereal *det, integer *job);
02386
02387
02388 extern int fdump_(void);
02389 extern int pchfd_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, integer *ne, real *xe, real *fe, real *de, integer *ierr);
02390
02391
02392 extern int rpqr79_(integer *ndeg, real *coeff, complex *root, integer *ierr, real *work);
02393
02394
02395 extern int ssvdc_(real *x, integer *ldx, integer *n, integer *p, real *s, real *e, real *u, integer *ldu, real *v, integer *ldv, real *work, integer *job, integer *info);
02396
02397
02398
02399
02400
02401
02402
02403 extern C_f c9ln2r_(complex * ret_val, complex *z__);
02404
02405
02406 extern int cprodp_(integer *nd, complex *bd, integer *nm1, real *bm1, integer *nm2, real *bm2, integer *na, real *aa, real *x, real *yy, integer *m, real *a, real *b, real *c__, complex *d__, complex *u, complex *y);
02407 extern doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
02408 extern int dppfa_(doublereal *ap, integer *n, integer *info);
02409
02410 extern int fftdoc_(void);
02411 extern int pchfe_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, integer *ne, real *xe, real *fe, integer *ierr);
02412
02413
02414 extern int rpzero_(integer *n, real *a, complex *r__, complex *t, integer *iflg, real *s);
02415
02416 extern int sswap_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
02417 extern C_f cacos_(complex * ret_val, complex *z__);
02418
02419 extern C_f cpsi_(complex * ret_val, complex *zin);
02420
02421
02422
02423 extern int ddpscb_(integer *ksgn, integer *n, integer *nq, doublereal *yh);
02424 extern int dppgq8_(D_fp fun, integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, integer *kk, integer *id, doublereal *a, doublereal *b, integer *inppv, doublereal *err, doublereal *ans, integer *ierr);
02425
02426
02427
02428
02429 extern int figi_(integer *nm, integer *n, real *t, real *d__, real *e, real *e2, integer *ierr);
02430 extern E_f pchia_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, real *a, real *b, integer *ierr);
02431
02432
02433
02434 extern int rs_(integer *nm, integer *n, real *a, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr);
02435
02436
02437
02438
02439 extern int step2_(S_fp f, integer *neqn, real *y, real *x, real *h__, real *eps, real *wt, logical *start, real *hold, integer *k, integer *kold, logical *crash, real *phi, real *p, real *yp, real *psi, real *alpha, real *beta, real *sig, real *v, real *w, real *g, logical *phase1, integer *ns, logical *nornd, integer *ksteps, real *twou, real *fouru, real *rpar, integer *ipar);
02440
02441
02442 extern C_f cacosh_(complex * ret_val, complex *z__);
02443
02444 extern int cptsl_(integer *n, complex *d__, complex *e, complex *b);
02445 extern int ddpstb_(doublereal *el, S_fp f, S_fp fa, doublereal *h__, integer *impl, S_fp jacobn, integer *matdim, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, integer *nq, doublereal *save2, doublereal *t, doublereal *y, doublereal *yh, doublereal *ywt, doublereal *uround, integer *nfe, integer *nje, doublereal *a, doublereal *dfdy, logical *ier, integer *ipvt, doublereal *save1, integer *iswflg, doublereal *bnd);
02446
02447
02448
02449
02450 extern int dppqad_(integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, integer *k, doublereal *x1, doublereal *x2, doublereal *pquad);
02451
02452
02453 extern int figi2_(integer *nm, integer *n, real *t, real *d__, real *e, real *z__, integer *ierr);
02454 extern int pchic_(integer *ic, real *vc, real *switch__, integer *n, real *x, real *f, real *d__, integer *incfd, real *wk, integer *nwk, integer *ierr);
02455
02456
02457
02458
02459 extern int rsb_(integer *nm, integer *n, integer *mb, real *a, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr);
02460
02461
02462
02463 extern int steps_(S_fp f, integer *neqn, real *y, real *x, real *h__, real *eps, real *wt, logical *start, real *hold, integer *k, integer *kold, logical *crash, real *phi, real *p, real *yp, real *psi, real *alpha, real *beta, real *sig, real *v, real *w, real *g, logical *phase1, integer *ns, logical *nornd, integer *ksteps, real *twou, real *fouru, real *xold, integer *kprev, integer *ivc, integer *iv, integer *kgi, real *gi, real *rpar, integer *ipar);
02464
02465
02466 extern E_f carg_(complex *z__);
02467 extern int cpzero_(integer *in, complex *a, complex *r__, complex *t, integer *iflg, real *s);
02468
02469 extern int ddrvb1_(integer *n, doublereal *t, doublereal *y, doublereal *tout, integer *mstate, doublereal *eps, doublereal *work, integer *lenw);
02470
02471
02472
02473
02474 extern int dppsl_(doublereal *ap, integer *n, doublereal *b);
02475
02476
02477 extern int fnlibd_(void);
02478 extern E_f pchid_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, integer *ia, integer *ib, integer *ierr);
02479
02480 extern int rsco_(real *rsav, integer *isav);
02481
02482 extern int stltjs_(integer *m, integer *n, doublereal *b, doublereal *g, doublereal *fm, integer *jsng, D_fp wf, D_fp phi, real *endptl, real *endptr);
02483
02484 extern C_f casin_(complex * ret_val, complex *zinp);
02485
02486 extern int cqrdc_(complex *x, integer *ldx, integer *n, integer *p, complex *qraux, integer *jpvt, complex *work, integer *job);
02487
02488
02489
02490
02491
02492 extern int ddrvb2_(integer *n, doublereal *t, doublereal *y, U_fp f, doublereal *tout, integer *mstate, integer *nroot, doublereal *eps, doublereal *ewt, integer *mint, doublereal *work, integer *lenw, integer *iwork, integer *leniw, D_fp g);
02493
02494
02495
02496 extern doublereal dppval_(integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, integer *k, integer *ideriv, doublereal *x, integer *inppv);
02497
02498
02499 extern int fulmat_(integer *i__, integer *j, real *aij, integer *indcat, real *prgopt, real *dattrv, integer *iflag);
02500
02501 extern int pchim_(integer *n, real *x, real *f, real *d__, integer *incfd, integer *ierr);
02502
02503
02504 extern int rsg_(integer *nm, integer *n, real *a, real *b, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr);
02505
02506
02507
02508
02509
02510
02511 extern int stod_(integer *neq, real *y, real *yh, integer *nyh, real *yh1, real *ewt, real *savf, real *acor, real *wm, integer *iwm, S_fp f, U_fp jac, real *rpar, integer *ipar);
02512
02513
02514
02515
02516
02517 extern C_f casinh_(complex * ret_val, complex *z__);
02518
02519 extern int cqrsl_(complex *x, integer *ldx, integer *n, integer *k, complex *qraux, complex *y, complex *qy, complex *qty, complex *b, complex *rsd, complex *xb, integer *job, integer *info);
02520
02521
02522
02523 extern int ddrvb3_(integer *n, doublereal *t, doublereal *y, S_fp f, integer *nstate, doublereal *tout, integer *ntask, integer *nroot, doublereal *eps, doublereal *ewt, integer *ierror, integer *mint, integer *miter, integer *impl, integer *ml, integer *mu, integer *mxord, doublereal *hmax, doublereal *work, integer *lenw, integer *iwork, integer *leniw, U_fp jacobn, S_fp fa, integer *nde, integer *mxstep, D_fp g);
02524
02525
02526
02527
02528
02529
02530
02531
02532
02533
02534
02535 extern doublereal dprvec_(integer *m, doublereal *u, doublereal *v);
02536
02537 extern int fzero_(E_fp f, real *b, real *c__, real *r__, real *re, real *ae, integer *iflag);
02538
02539 extern int pchmc_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, integer *ismon, integer *ierr);
02540
02541
02542 extern int rsgab_(integer *nm, integer *n, real *a, real *b, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr);
02543
02544
02545
02546
02547
02548
02549 extern int stor1_(real *u, real *yh, real *v, real *yp, integer *ntemp, integer *ndisk, integer *ntape);
02550
02551 extern C_f catan_(complex * ret_val, complex *z__);
02552
02553
02554 extern int crotg_(complex *ca, complex *cb, real *c__, complex *s);
02555 extern int ddsclb_(doublereal *hmax, integer *n, integer *nq, doublereal *rmax, doublereal *h__, doublereal *rc, doublereal *rh, doublereal *yh);
02556 extern int dprwpg_(integer *key, integer *ipage, integer *lpg, doublereal *sx, integer *ix);
02557
02558
02559 extern E_f gami_(real *a, real *x);
02560
02561
02562
02563 extern int pchngs_(integer *ii, real *xval, integer *iplace, real *sx, integer *ix, integer *ircx);
02564
02565
02566
02567 extern int rsgba_(integer *nm, integer *n, real *a, real *b, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr);
02568
02569
02570
02571
02572
02573
02574 extern int strco_(real *t, integer *ldt, integer *n, real *rcond, real *z__, integer *job);
02575
02576
02577
02578 extern C_f catan2_(complex * ret_val, complex *csn, complex *ccs);
02579
02580
02581 extern int cscal_(integer *n, complex *ca, complex *cx, integer *incx);
02582 extern int ddstpb_(doublereal *eps, S_fp f, U_fp fa, doublereal *hmax, integer *impl, U_fp jacobn, integer *matdim, integer *maxord, integer *mint, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, doublereal *ywt, doublereal *uround, doublereal *avgh, doublereal *avgord, doublereal *h__, doublereal *hused, integer *jtask, integer *mntold, integer *mtrold, integer *nfe, integer *nje, integer *nqused, integer *nstep, doublereal *t, doublereal *y, doublereal *yh, doublereal *a, logical *convrg, doublereal *dfdy, doublereal *el, doublereal *hold, integer *ipvt, integer *jstate, integer *nq, integer *nwait, doublereal *rc, doublereal *rmax, doublereal *save1, doublereal *save2, doublereal *tq, doublereal *trend, integer *iswflg, integer *mtrsv, integer *mxrdsv);
02583
02584
02585
02586
02587
02588
02589
02590 extern int dprwvr_(integer *key, integer *ipage, integer *lpg, doublereal *sx, integer *ix);
02591
02592
02593
02594 extern E_f gamic_(real *a, real *x);
02595
02596
02597
02598
02599
02600
02601
02602
02603
02604 extern int pchsp_(integer *ic, real *vc, integer *n, real *x, real *f, real *d__, integer *incfd, real *wk, integer *nwk, integer *ierr);
02605
02606
02607 extern int rsp_(integer *nm, integer *n, integer *nv, real *a, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr);
02608
02609
02610
02611
02612 extern int strdi_(real *t, integer *ldt, integer *n, real *det, integer *job, integer *info);
02613
02614
02615 extern C_f catanh_(complex * ret_val, complex *z__);
02616
02617 extern int cscale_(real *a, integer *nrda, integer *nrow, integer *ncol, real *cols, real *colsav, real *rows, real *rowsav, real *anorm, real *scales, integer *iscale, integer *ic);
02618
02619 extern int ddzrob_(doublereal *ae, D_fp f, doublereal *h__, integer *n, integer *nq, integer *iroot, doublereal *re, doublereal *t, doublereal *yh, doublereal *uround, doublereal *b, doublereal *c__, doublereal *fb, doublereal *fc, doublereal *y);
02620
02621 extern doublereal dpsi_(doublereal *x);
02622
02623
02624
02625
02626
02627 extern E_f gamit_(real *a, real *x);
02628
02629
02630
02631
02632
02633
02634
02635
02636
02637 extern E_f pchst_(real *arg1, real *arg2);
02638 extern int rst_(integer *nm, integer *n, real *w, real *e, integer *matz, real *z__, integer *ierr);
02639
02640
02641 extern int strsl_(real *t, integer *ldt, integer *n, real *b, integer *job, integer *info);
02642
02643
02644 extern int caxpy_(integer *n, complex *ca, complex *cx, integer *incx, complex *cy, integer *incy);
02645 extern E_f csevl_(real *x, real *cs, integer *n);
02646
02647 extern doublereal de1_(doublereal *x);
02648
02649
02650
02651
02652 extern int dpsifn_(doublereal *x, integer *n, integer *kode, integer *m, doublereal *ans, integer *nz, integer *ierr);
02653
02654
02655 extern int gamlim_(real *xmin, real *xmax);
02656
02657
02658 extern int pchsw_(real *dfmax, integer *iextrm, real *d1, real *d2, real *h__, real *slope, integer *ierr);
02659
02660
02661 extern int rt_(integer *nm, integer *n, real *a, real *w, integer *matz, real *z__, real *fv1, integer *ierr);
02662
02663
02664
02665
02666 extern int stway_(real *u, real *v, real *yhp, integer *inout, real *stowa);
02667
02668
02669
02670
02671 extern int cbabk2_(integer *nm, integer *n, integer *low, integer *igh, real *scale, integer *m, real *zr, real *zi);
02672 extern int csico_(complex *a, integer *lda, integer *n, integer *kpvt, real *rcond, complex *z__);
02673
02674
02675
02676
02677
02678 extern int de2_(S_fp f, integer *neq, real *t, real *y, real *tout, integer *info, real *rtol, real *atol, integer *idid, real *ypout, real *yp, real *yy, real *wt, real *p, real *phi, real *alpha, real *beta, real *psi, real *v, real *w, real *sig, real *g, real *h__, real *eps, real *x, real *hold, real *told, real *delsgn, real *tstop, real *twou, real *fouru, logical *start, logical *phase1, logical *nornd, logical *stiff, logical *intout, integer *ns, integer *kord, integer *kold, integer *init, integer *ksteps, integer *kle4, integer *iquit, real *rpar, integer *ipar);
02679
02680
02681
02682
02683 extern doublereal dpsixn_(integer *n);
02684
02685 extern E_f gamma_(real *x);
02686
02687
02688
02689
02690
02691
02692 extern int pcoef_(integer *l, real *c__, real *tc, real *a);
02693
02694 extern E_f runif_(real *t, integer *n);
02695
02696 extern int suds_(real *a, real *x, real *b, integer *neq, integer *nuk, integer *nrda, integer *iflag, integer *mlso, real *work, integer *iwork);
02697
02698 extern int cbal_(integer *nm, integer *n, real *ar, real *ai, integer *low, integer *igh, real *scale);
02699 extern int csidi_(complex *a, integer *lda, integer *n, integer *kpvt, complex *det, complex *work, integer *job);
02700
02701
02702
02703
02704 extern int deabm_(U_fp f, integer *neq, real *t, real *y, real *tout, integer *info, real *rtol, real *atol, integer *idid, real *rwork, integer *lrw, integer *iwork, integer *liw, real *rpar, integer *ipar);
02705
02706
02707 extern int dptsl_(integer *n, doublereal *d__, doublereal *e, doublereal *b);
02708 extern E_f gamr_(real *x);
02709
02710
02711
02712
02713
02714 extern int pfqad_(E_fp f, integer *ldc, real *c__, real *xi, integer *lxi, integer *k, integer *id, real *x1, real *x2, real *tol, real *quad, integer *ierr);
02715
02716
02717
02718
02719 extern int rwupdt_(integer *n, real *r__, integer *ldr, real *w, real *b, real *alpha, real *cos__, real *sin__);
02720 extern int svco_(real *rsav, integer *isav);
02721
02722 extern C_f cbeta_(complex * ret_val, complex *a, complex *b);
02723
02724
02725
02726
02727 extern int csifa_(complex *a, integer *lda, integer *n, integer *kpvt, integer *info);
02728
02729
02730
02731 extern int debdf_(U_fp f, integer *neq, real *t, real *y, real *tout, integer *info, real *rtol, real *atol, integer *idid, real *rwork, integer *lrw, integer *iwork, integer *liw, real *rpar, integer *ipar, U_fp jac);
02732
02733
02734
02735 extern int dqag_(D_fp f, doublereal *a, doublereal *b, doublereal *epsabs, doublereal *epsrel, integer *key, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, doublereal *work);
02736
02737
02738 extern E_f gamrn_(real *x);
02739
02740
02741 extern E_f pgsf_(real *x, integer *iz, real *c__, real *a, real *bh);
02742 extern int s88fmt_(integer *n, integer *ivalue, integer *ifmt);
02743 extern int svd_(integer *nm, integer *m, integer *n, real *a, real *w, logical *matu, real *u, logical *matv, real *v, integer *ierr, real *rv1);
02744
02745 extern int cblkt1_(integer *n, real *an, real *bn, real *cn, integer *m, complex *am, complex *bm, complex *cm, integer *idimy, complex *y, real *b, complex *w1, complex *w2, complex *w3, complex *wd, complex *ww, complex *wu, S_fp prdct, S_fp cprdct);
02746
02747
02748
02749
02750 extern C_f csinh_(complex * ret_val, complex *z__);
02751 extern int defc_(integer *ndata, doublereal *xdata, doublereal *ydata, doublereal *sddata, integer *nord, integer *nbkpt, doublereal *bkpt, integer *mdein, integer *mdeout, doublereal *coeff, integer *lw, doublereal *w);
02752
02753 extern int dqage_(D_fp f, doublereal *a, doublereal *b, doublereal *epsabs, doublereal *epsrel, integer *key, integer *limit, doublereal *result, doublereal *abserr, integer *neval, integer *ier, doublereal *alist__, doublereal *blist, doublereal *rlist, doublereal *elist, integer *iord, integer *last);
02754
02755
02756
02757
02758
02759
02760
02761
02762 extern int gaus8_(E_fp fun, real *a, real *b, real *err, real *ans, integer *ierr);
02763
02764
02765
02766 extern doublereal phi_(doublereal *x, doublereal *phiprm, real *a, real *b);
02767 extern E_f sasum_(integer *n, real *sx, integer *incx);
02768 extern int svecs_(integer *ncomp, integer *lnfc, real *yhp, real *work, integer *iwork, integer *inhomo, integer *iflag);
02769
02770
02771 extern int cblktr_(integer *iflg, integer *np, integer *n, real *an, real *bn, real *cn, integer *mp, integer *m, complex *am, complex *bm, complex *cm, integer *idimy, complex *y, integer *ierror, real *w);
02772
02773
02774
02775 extern int csisl_(complex *a, integer *lda, integer *n, integer *kpvt, complex *b);
02776
02777
02778 extern int defcmn_(integer *ndata, doublereal *xdata, doublereal *ydata, doublereal *sddata, integer *nord, integer *nbkpt, doublereal *bkptin, integer *mdein, integer *mdeout, doublereal *coeff, doublereal *bf, doublereal *xtemp, doublereal *ptemp, doublereal *bkpt, doublereal *g, integer *mdg, doublereal *w, integer *mdw, integer *lw);
02779
02780
02781
02782
02783
02784
02785
02786
02787 extern int dqagi_(D_fp f, doublereal *bound, integer *inf, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, doublereal *work);
02788
02789
02790 extern E_f gauss_(integer *n, E_fp y, integer *m, S_fp ltbl);
02791
02792 extern E_f pimach_(real *dum);
02793 extern int saxpy_(integer *n, real *sa, real *sx, integer *incx, real *sy, integer *incy);
02794 extern int svout_(integer *n, real *sx, char *ifmt, integer *idigit, ftnlen ifmt_len);
02795
02796 extern E_f cbrt_(real *x);
02797
02798
02799
02800 extern int cspco_(complex *ap, integer *n, integer *kpvt, real *rcond, complex *z__);
02801
02802
02803
02804
02805
02806 extern int defe4_(S_fp cofx, integer *idmn, real *usol, real *grhs);
02807
02808
02809
02810 extern int dqagie_(D_fp f, doublereal *bound, integer *inf, doublereal *epsabs, doublereal *epsrel, integer *limit, doublereal *result, doublereal *abserr, integer *neval, integer *ier, doublereal *alist__, doublereal *blist, doublereal *rlist, doublereal *elist, integer *iord, integer *last);
02811
02812
02813
02814
02815 extern int gaussq_(integer *m, doublereal *t, doublereal *w, doublereal *b, doublereal *g, doublereal *fm);
02816
02817 extern int pinitm_(integer *m, integer *n, real *sx, integer *ix, integer *lmx, integer *ipagef);
02818
02819 extern int sbocls_(real *w, integer *mdw, integer *mcon, integer *mrows, integer *ncols, real *bl, real *bu, integer *ind, integer *iopt, real *x, real *rnormc, real *rnorm, integer *mode, real *rw, integer *iw);
02820
02821
02822
02823
02824
02825
02826
02827 extern int swritp_(integer *ipage, integer *list, real *rlist, integer *lpage, integer *irec);
02828
02829 extern int cbshv_(integer *m, integer *k, real *aa, real *z__);
02830 extern int cspdi_(complex *ap, integer *n, integer *kpvt, complex *det, complex *work, integer *job);
02831
02832
02833
02834
02835 extern int defehl_(S_fp f, integer *neq, real *t, real *y, real *h__, real *yp, real *f1, real *f2, real *f3, real *f4, real *f5, real *ys, real *rpar, integer *ipar);
02836 extern int dqagp_(D_fp f, doublereal *a, doublereal *b, integer *npts2, doublereal *points, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *leniw, integer *lenw, integer *last, integer *iwork, doublereal *work);
02837
02838
02839 extern int genbun_(integer *nperod, integer *n, integer *mperod, integer *m, real *a, real *b, real *c__, integer *idimy, real *y, integer *ierror, real *w);
02840
02841
02842
02843 extern int pjac_(integer *neq, real *y, real *yh, integer *nyh, real *ewt, real *ftem, real *savf, real *wm, integer *iwm, S_fp f, S_fp jac, real *rpar, integer *ipar);
02844
02845
02846
02847
02848 extern int sbols_(real *w, integer *mdw, integer *mrows, integer *ncols, real *bl, real *bu, integer *ind, integer *iopt, real *x, real *rnorm, integer *mode, real *rw, integer *iw);
02849
02850
02851
02852
02853
02854
02855 extern int tevlc_(integer *n, real *d__, real *e2, integer *ierr);
02856
02857 extern C_f ccbrt_(complex * ret_val, complex *z__);
02858
02859
02860 extern int cspfa_(complex *ap, integer *n, integer *kpvt, integer *info);
02861
02862
02863
02864 extern int defer_(S_fp cofx, S_fp cofy, integer *idmn, real *usol, real *grhs);
02865
02866
02867
02868 extern int dqagpe_(D_fp f, doublereal *a, doublereal *b, integer *npts2, doublereal *points, doublereal *epsabs, doublereal *epsrel, integer *limit, doublereal *result, doublereal *abserr, integer *neval, integer *ier, doublereal *alist__, doublereal *blist, doublereal *rlist, doublereal *elist, doublereal *pts, integer *iord, integer *level, integer *ndin, integer *last);
02869
02870
02871
02872
02873 extern int gengsq_(integer *m, doublereal *b, doublereal *g, doublereal *a, doublereal *w, doublereal *wf, integer *js, real *el, real *er, doublereal *fm, integer *jorth, real *eps, integer *iswtch, integer *nit);
02874
02875
02876
02877 extern int pnnzrs_(integer *i__, real *xval, integer *iplace, real *sx, integer *ix, integer *ircx);
02878
02879
02880 extern int sbolsm_(real *w, integer *mdw, integer *minput, integer *ncols, real *bl, real *bu, integer *ind, integer *iopt, real *x, real *rnorm, integer *mode, real *rw, real *ww, real *scl, integer *ibasis, integer *ibb);
02881
02882
02883
02884
02885
02886
02887
02888
02889
02890
02891
02892
02893 extern int tevls_(integer *n, real *d__, real *e2, integer *ierr);
02894
02895 extern int cchdc_(complex *a, integer *lda, integer *p, complex *work, integer *jpvt, integer *job, integer *info);
02896
02897
02898 extern int cspsl_(complex *ap, integer *n, integer *kpvt, complex *b);
02899
02900
02901 extern doublereal dei_(doublereal *x);
02902
02903 extern int dqags_(D_fp f, doublereal *a, doublereal *b, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, doublereal *work);
02904
02905
02906 extern int h12_(integer *mode, integer *lpivot, integer *l1, integer *m, real *u, integer *iue, real *up, real *c__, integer *ice, integer *icv, integer *ncv);
02907
02908
02909
02910 extern E_f poch_(real *a, real *x);
02911
02912
02913
02914
02915
02916
02917
02918
02919 extern E_f scasum_(integer *n, complex *cx, integer *incx);
02920 extern int tinvit_(integer *nm, integer *n, real *d__, real *e, real *e2, integer *m, real *w, integer *ind, real *z__, integer *ierr, real *rv1, real *rv2, real *rv3, real *rv4, real *rv6);
02921 extern int cchdd_(complex *r__, integer *ldr, integer *p, complex *x, complex *z__, integer *ldz, integer *nz, complex *y, real *rho, real *c__, complex *s, integer *info);
02922
02923
02924 extern int csroot_(real *xr, real *xi, real *yr, real *yi);
02925
02926 extern doublereal denorm_(integer *n, doublereal *x);
02927 extern int dqagse_(D_fp f, doublereal *a, doublereal *b, doublereal *epsabs, doublereal *epsrel, integer *limit, doublereal *result, doublereal *abserr, integer *neval, integer *ier, doublereal *alist__, doublereal *blist, doublereal *rlist, doublereal *elist, integer *iord, integer *last);
02928
02929
02930
02931
02932 extern int hfti_(real *a, integer *mda, integer *m, integer *n, real *b, integer *mdb, integer *nb, real *tau, integer *krank, real *rnorm, real *h__, real *g, integer *ip);
02933
02934
02935
02936 extern E_f poch1_(real *a, real *x);
02937
02938
02939
02940
02941
02942
02943 extern int schdc_(real *a, integer *lda, integer *p, real *work, integer *jpvt, integer *job, integer *info);
02944
02945
02946 extern int tql1_(integer *n, real *d__, real *e, integer *ierr);
02947
02948 extern int cchex_(complex *r__, integer *ldr, integer *p, integer *k, integer *l, complex *z__, integer *ldz, integer *nz, real *c__, complex *s, integer *job);
02949
02950 extern int csrot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, real *s);
02951 extern doublereal derf_(doublereal *x);
02952
02953
02954
02955
02956 extern int dqawc_(D_fp f, doublereal *a, doublereal *b, doublereal *c__, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, doublereal *work);
02957
02958
02959 extern int hkseq_(real *x, integer *m, real *h__, integer *ierr);
02960
02961
02962 extern int pois3d_(integer *lperod, integer *l, real *c1, integer *mperod, integer *m, real *c2, integer *nperod, integer *n, real *a, real *b, real *c__, integer *ldimf, integer *mdimf, real *f, integer *ierror, real *w);
02963
02964 extern int schdd_(real *r__, integer *ldr, integer *p, real *x, real *z__, integer *ldz, integer *nz, real *y, real *rho, real *c__, real *s, integer *info);
02965
02966
02967 extern int tql2_(integer *nm, integer *n, real *d__, real *e, real *z__, integer *ierr);
02968
02969 extern int cchud_(complex *r__, integer *ldr, integer *p, complex *x, complex *z__, integer *ldz, integer *nz, complex *y, real *rho, real *c__, complex *s);
02970
02971 extern int csscal_(integer *n, real *sa, complex *cx, integer *incx);
02972 extern doublereal derfc_(doublereal *x);
02973
02974
02975
02976
02977 extern int dqawce_(D_fp f, doublereal *a, doublereal *b, doublereal *c__, doublereal *epsabs, doublereal *epsrel, integer *limit, doublereal *result, doublereal *abserr, integer *neval, integer *ier, doublereal *alist__, doublereal *blist, doublereal *rlist, doublereal *elist, integer *iord, integer *last);
02978
02979
02980
02981 extern int hqr_(integer *nm, integer *n, integer *low, integer *igh, real *h__, real *wr, real *wi, integer *ierr);
02982 extern int poisd2_(integer *mr, integer *nr, integer *istag, real *ba, real *bb, real *bc, real *q, integer *idimq, real *b, real *w, real *d__, real *tcos, real *p);
02983
02984
02985
02986 extern int schex_(real *r__, integer *ldr, integer *p, integer *k, integer *l, real *z__, integer *ldz, integer *nz, real *c__, real *s, integer *job);
02987
02988 extern int tqlrat_(integer *n, real *d__, real *e2, integer *ierr);
02989
02990 extern int ccmpb_(integer *n, integer *ierror, real *an, real *bn, real *cn, real *b, real *ah, real *bh);
02991
02992
02993
02994
02995
02996 extern int csvdc_(complex *x, integer *ldx, integer *n, integer *p, complex *s, complex *e, complex *u, integer *ldu, complex *v, integer *ldv, complex *work, integer *job, integer *info);
02997
02998
02999
03000
03001
03002
03003
03004 extern int derkf_(U_fp f, integer *neq, real *t, real *y, real *tout, integer *info, real *rtol, real *atol, integer *idid, real *rwork, integer *lrw, integer *iwork, integer *liw, real *rpar, integer *ipar);
03005
03006
03007 extern int dqawf_(D_fp f, doublereal *a, doublereal *omega, integer *integr, doublereal *epsabs, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *limlst, integer *lst, integer *leniw, integer *maxp1, integer *lenw, integer *iwork, doublereal *work);
03008
03009
03010 extern int hqr2_(integer *nm, integer *n, integer *low, integer *igh, real *h__, real *wr, real *wi, real *z__, integer *ierr);
03011
03012 extern int poisn2_(integer *m, integer *n, integer *istag, integer *mixbnd, real *a, real *bb, real *c__, real *q, integer *idimq, real *b, real *b2, real *b3, real *w, real *w2, real *w3, real *d__, real *tcos, real *p);
03013
03014
03015
03016
03017 extern int schud_(real *r__, integer *ldr, integer *p, real *x, real *z__, integer *ldz, integer *nz, real *y, real *rho, real *c__, real *s);
03018
03019 extern int trbak1_(integer *nm, integer *n, real *a, real *e, integer *m, real *z__);
03020 extern int ccopy_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy);
03021 extern int cswap_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy);
03022 extern int derkfs_(S_fp f, integer *neq, real *t, real *y, real *tout, integer *info, real *rtol, real *atol, integer *idid, real *h__, real *tolfac, real *yp, real *f1, real *f2, real *f3, real *f4, real *f5, real *ys, real *told, real *dtsign, real *u26, real *rer, integer *init, integer *ksteps, integer *kop, integer *iquit, logical *stiff, logical *nonstf, integer *ntstep, integer *nstifs, real *rpar, integer *ipar);
03023
03024
03025
03026
03027
03028 extern int dqawfe_(D_fp f, doublereal *a, doublereal *omega, integer *integr, doublereal *epsabs, integer *limlst, integer *limit, integer *maxp1, doublereal *result, doublereal *abserr, integer *neval, integer *ier, doublereal *rslst, doublereal *erlst, integer *ierlst, integer *lst, doublereal *alist__, doublereal *blist, doublereal *rlist, doublereal *elist, integer *iord, integer *nnlog, doublereal *chebmo);
03029
03030
03031
03032
03033 extern int hrmte_(integer *m, integer *k, real *aa, real *z__);
03034 extern int poisp2_(integer *m, integer *n, real *a, real *bb, real *c__, real *q, integer *idimq, real *b, real *b2, real *b3, real *w, real *w2, real *w3, real *d__, real *tcos, real *p);
03035
03036
03037 extern int sclosm_(integer *ipage);
03038
03039 extern int trbak3_(integer *nm, integer *n, integer *nv, real *a, integer *m, real *z__);
03040 extern C_f ccosh_(complex * ret_val, complex *z__);
03041 extern C_f ctan_(complex * ret_val, complex *z__);
03042
03043
03044
03045 extern int des_(S_fp f, integer *neq, real *t, real *y, real *tout, integer *info, real *rtol, real *atol, integer *idid, real *ypout, real *yp, real *yy, real *wt, real *p, real *phi, real *alpha, real *beta, real *psi, real *v, real *w, real *sig, real *g, real *gi, real *h__, real *eps, real *x, real *xold, real *hold, real *told, real *delsgn, real *tstop, real *twou, real *fouru, logical *start, logical *phase1, logical *nornd, logical *stiff, logical *intout, integer *ns, integer *kord, integer *kold, integer *init, integer *ksteps, integer *kle4, integer *iquit, integer *kprev, integer *ivc, integer *iv, integer *kgi, real *rpar, integer *ipar);
03046
03047
03048
03049
03050 extern int dqawo_(D_fp f, doublereal *a, doublereal *b, doublereal *omega, integer *integr, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *leniw, integer *maxp1, integer *lenw, integer *last, integer *iwork, doublereal *work);
03051
03052
03053 extern int hstart_(S_fp f, integer *neq, real *a, real *b, real *y, real *yprime, real *etol, integer *morder, real *small, real *big, real *spy, real *pv, real *yp, real *sf, real *rpar, integer *ipar, real *h__);
03054
03055 extern int poistg_(integer *nperod, integer *n, integer *mperod, integer *m, real *a, real *b, real *c__, integer *idimy, real *y, integer *ierror, real *w);
03056
03057 extern E_f scnrm2_(integer *n, complex *cx, integer *incx);
03058 extern int tred1_(integer *nm, integer *n, real *a, real *d__, real *e, real *e2);
03059 extern C_f ccot_(complex * ret_val, complex *z__);
03060
03061
03062
03063 extern C_f ctanh_(complex * ret_val, complex *z__);
03064
03065 extern int dexbvp_(doublereal *y, integer *nrowy, doublereal *xpts, doublereal *a, integer *nrowa, doublereal *alpha, doublereal *b, integer *nrowb, doublereal *beta, integer *iflag, doublereal *work, integer *iwork);
03066
03067
03068
03069
03070
03071
03072
03073 extern int dqawoe_(D_fp f, doublereal *a, doublereal *b, doublereal *omega, integer *integr, doublereal *epsabs, doublereal *epsrel, integer *limit, integer *icall, integer *maxp1, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *last, doublereal *alist__, doublereal *blist, doublereal *rlist, doublereal *elist, integer *iord, integer *nnlog, integer *momcom, doublereal *chebmo);
03074
03075
03076
03077
03078 extern int hstcrt_(real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03079
03080
03081 extern int polcof_(real *xx, integer *n, real *x, real *c__, real *d__, real *work);
03082 extern int scoef_(real *yh, real *yp, integer *ncomp, integer *nrowb, integer *nfc, integer *nic, real *b, real *beta, real *coef, integer *inhomo, real *re, real *ae, real *by, real *cvec, real *work, integer *iwork, integer *iflag, integer *nfcc);
03083
03084
03085
03086
03087
03088 extern int tred2_(integer *nm, integer *n, real *a, real *d__, real *e, real *z__);
03089 extern C_f cdcdot_(complex * ret_val, integer *n, complex *cb, complex *cx, integer *incx, complex *cy, integer *incy);
03090 extern int ctrco_(complex *t, integer *ldt, integer *n, real *rcond, complex *z__, integer *job);
03091
03092
03093
03094 extern int dexint_(doublereal *x, integer *n, integer *kode, integer *m, doublereal *tol, doublereal *en, integer *ierr);
03095
03096
03097
03098
03099 extern int dqaws_(D_fp f, doublereal *a, doublereal *b, doublereal *alfa, doublereal *beta, integer *integr, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, doublereal *work);
03100
03101
03102 extern int hstcs1_(integer *intl, real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierr1, real *am, real *bm, real *cm, real *an, real *bn, real *cn, real *snth, real *rsq, real *wrk);
03103
03104 extern int polfit_(integer *n, real *x, real *y, real *w, integer *maxdeg, integer *ndeg, real *eps, real *r__, integer *ierr, real *a);
03105
03106
03107 extern int scopy_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
03108 extern int tred3_(integer *n, integer *nv, real *a, real *d__, real *e, real *e2);
03109 extern int cdcorb_(complex *dfdy, real *el, S_fp fa, real *h__, integer *impl, integer *ipvt, integer *matdim, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, integer *nq, real *t, complex *y, complex *yh, complex *ywt, logical *evalfa, complex *save1, complex *save2, complex *a, real *d__);
03110
03111
03112
03113
03114 extern int ctrdi_(complex *t, integer *ldt, integer *n, complex *det, integer *job, integer *info);
03115
03116
03117 extern doublereal dexprl_(doublereal *x);
03118
03119 extern int dqawse_(D_fp f, doublereal *a, doublereal *b, doublereal *alfa, doublereal *beta, integer *integr, doublereal *epsabs, doublereal *epsrel, integer *limit, doublereal *result, doublereal *abserr, integer *neval, integer *ier, doublereal *alist__, doublereal *blist, doublereal *rlist, doublereal *elist, integer *iord, integer *last);
03120
03121
03122
03123
03124 extern int hstcsp_(integer *intl, real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03125
03126
03127 extern int polint_(integer *n, real *x, real *y, real *c__);
03128
03129 extern int scopym_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
03130 extern int tri3_(integer *m, real *a, real *b, real *c__, integer *k, real *y1, real *y2, real *y3, real *tcos, real *d__, real *w1, real *w2, real *w3);
03131 extern int cdcstb_(integer *maxord, integer *mint, integer *iswflg, real *el, real *tq);
03132 extern int ctrsl_(complex *t, integer *ldt, integer *n, complex *b, integer *job, integer *info);
03133
03134
03135 extern doublereal dfac_(integer *n);
03136
03137
03138
03139 extern int dqc25c_(D_fp f, doublereal *a, doublereal *b, doublereal *c__, doublereal *result, doublereal *abserr, integer *krul, integer *neval);
03140
03141
03142
03143 extern int hstcyl_(real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03144
03145
03146 extern int polyvl_(integer *nder, real *xx, real *yfit, real *yp, integer *n, real *x, real *c__, real *work, integer *ierr);
03147 extern int scov_(S_fp fcn, integer *iopt, integer *m, integer *n, real *x, real *fvec, real *r__, integer *ldr, integer *info, real *wa1, real *wa2, real *wa3, real *wa4);
03148
03149
03150
03151
03152
03153 extern int tridib_(integer *n, real *eps1, real *d__, real *e, real *e2, real *lb, real *ub, integer *m11, integer *m, real *w, integer *ind, integer *ierr, real *rv4, real *rv5);
03154 extern int cdiv_(real *ar, real *ai, real *br, real *bi, real *cr, real *ci);
03155 extern E_f cv_(real *xval, integer *ndata, integer *nconst, integer *nord, integer *nbkpt, real *bkpt, real *w);
03156
03157
03158 extern int dfc_(integer *ndata, doublereal *xdata, doublereal *ydata, doublereal *sddata, integer *nord, integer *nbkpt, doublereal *bkpt, integer *nconst, doublereal *xconst, doublereal *yconst, integer *nderiv, integer *mode, doublereal *coeff, doublereal *w, integer *iw);
03159
03160 extern int dqc25f_(D_fp f, doublereal *a, doublereal *b, doublereal *omega, integer *integr, integer *nrmom, integer *maxp1, integer *ksave, doublereal *result, doublereal *abserr, integer *neval, doublereal *resabs, doublereal *resasc, integer *momcom, doublereal *chebmo);
03161
03162
03163
03164
03165
03166 extern int hstplr_(real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03167
03168
03169 extern int pos3d1_(integer *lp, integer *l, integer *mp, integer *m, integer *n, real *a, real *b, real *c__, integer *ldimf, integer *mdimf, real *f, real *xrt, real *yrt, real *t, real *d__, real *wx, real *wy, real *c1, real *c2, real *bb);
03170
03171
03172
03173
03174
03175
03176
03177
03178
03179
03180
03181
03182
03183
03184
03185 extern int sdcorb_(real *dfdy, real *el, S_fp fa, real *h__, integer *impl, integer *ipvt, integer *matdim, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, integer *nq, real *t, real *y, real *yh, real *ywt, logical *evalfa, real *save1, real *save2, real *a, real *d__);
03186
03187
03188
03189
03190 extern int tridq_(integer *mr, real *a, real *b, real *c__, real *y, real *d__);
03191 extern int cdntlb_(real *eps, S_fp f, S_fp fa, real *hmax, real *hold, integer *impl, integer *jtask, integer *matdim, integer *maxord, integer *mint, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, complex *save1, real *t, complex *y, complex *ywt, real *h__, integer *mntold, integer *mtrold, integer *nfe, real *rc, complex *yh, complex *a, logical *convrg, real *el, logical *ier, integer *ipvt, integer *nq, integer *nwait, real *rh, real *rmax, complex *save2, real *tq, real *trend, integer *iswflg);
03192
03193
03194
03195
03196
03197
03198
03199
03200 extern doublereal d1mach_(integer *i__);
03201
03202 extern int dfcmn_(integer *ndata, doublereal *xdata, doublereal *ydata, doublereal *sddata, integer *nord, integer *nbkpt, doublereal *bkptin, integer *nconst, doublereal *xconst, doublereal *yconst, integer *nderiv, integer *mode, doublereal *coeff, doublereal *bf, doublereal *xtemp, doublereal *ptemp, doublereal *bkpt, doublereal *g, integer *mdg, doublereal *w, integer *mdw, doublereal *work, integer *iwork);
03203
03204
03205
03206
03207
03208
03209
03210
03211
03212
03213
03214 extern int dqc25s_(D_fp f, doublereal *a, doublereal *b, doublereal *bl, doublereal *br, doublereal *alfa, doublereal *beta, doublereal *ri, doublereal *rj, doublereal *rg, doublereal *rh, doublereal *result, doublereal *abserr, doublereal *resasc, integer *integr, integer *nev);
03215
03216
03217
03218 extern int hstssp_(real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03219
03220
03221
03222 extern int postg2_(integer *nperod, integer *n, integer *m, real *a, real *bb, real *c__, integer *idimq, real *q, real *b, real *b2, real *b3, real *w, real *w2, real *w3, real *d__, real *tcos, real *p);
03223
03224
03225
03226
03227 extern int sdcstb_(integer *maxord, integer *mint, integer *iswflg, real *el, real *tq);
03228 extern int tris4_(integer *n, real *a, real *b, real *c__, real *d__, real *u, real *z__);
03229 extern int cdntpb_(real *h__, integer *k, integer *n, integer *nq, real *t, real *tout, complex *yh, complex *y);
03230 extern int d1mpyq_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *v, doublereal *w);
03231 extern int dfdjc1_(S_fp fcn, integer *n, doublereal *x, doublereal *fvec, doublereal *fjac, integer *ldfjac, integer *iflag, integer *ml, integer *mu, doublereal *epsfcn, doublereal *wa1, doublereal *wa2);
03232
03233 extern int dqcheb_(doublereal *x, doublereal *fval, doublereal *cheb12, doublereal *cheb24);
03234 extern int htrib3_(integer *nm, integer *n, real *a, real *tau, integer *m, real *zr, real *zi);
03235 extern int ppadd_(integer *n, integer *ierror, real *a, real *c__, complex *cbp, real *bp, real *bh);
03236
03237
03238
03239
03240 extern int sdntlb_(real *eps, S_fp f, S_fp fa, real *hmax, real *hold, integer *impl, integer *jtask, integer *matdim, integer *maxord, integer *mint, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, real *save1, real *t, real *y, real *ywt, real *h__, integer *mntold, integer *mtrold, integer *nfe, real *rc, real *yh, real *a, logical *convrg, real *el, logical *ier, integer *ipvt, integer *nq, integer *nwait, real *rh, real *rmax, real *save2, real *tq, real *trend, integer *iswflg);
03241
03242
03243
03244
03245
03246
03247
03248
03249 extern int trisp_(integer *n, real *a, real *b, real *c__, real *d__, real *u, real *z__);
03250 extern C_f cdotc_(complex * ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy);
03251 extern int d1updt_(integer *m, integer *n, doublereal *s, integer *ls, doublereal *u, doublereal *v, doublereal *w, logical *sing);
03252
03253 extern int dfdjc3_(S_fp fcn, integer *m, integer *n, doublereal *x, doublereal *fvec, doublereal *fjac, integer *ldfjac, integer *iflag, doublereal *epsfcn, doublereal *wa);
03254
03255 extern doublereal dqdota_(integer *n, doublereal *db, integer *qc, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
03256
03257
03258
03259
03260
03261
03262 extern int htribk_(integer *nm, integer *n, real *ar, real *ai, real *tau, integer *m, real *zr, real *zi);
03263 extern int ppgq8_(E_fp fun, integer *ldc, real *c__, real *xi, integer *lxi, integer *kk, integer *id, real *a, real *b, integer *inppv, real *err, real *ans, integer *ierr);
03264
03265
03266
03267
03268 extern int sdntpb_(real *h__, integer *k, integer *n, integer *nq, real *t, real *tout, real *yh, real *y);
03269 extern int trix_(integer *idegbr, integer *idegcr, integer *m, real *a, real *b, real *c__, real *y, real *tcos, real *d__, real *w);
03270 extern C_f cdotu_(complex * ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy);
03271 extern int d9aimp_(doublereal *x, doublereal *ampl, doublereal *theta);
03272
03273
03274
03275
03276 extern int dfehl_(S_fp df, integer *neq, doublereal *t, doublereal *y, doublereal *h__, doublereal *yp, doublereal *f1, doublereal *f2, doublereal *f3, doublereal *f4, doublereal *f5, doublereal *ys, doublereal *rpar, integer *ipar);
03277 extern doublereal dqdoti_(integer *n, doublereal *db, integer *qc, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
03278
03279
03280
03281
03282
03283
03284 extern int htrid3_(integer *nm, integer *n, real *a, real *d__, real *e, real *e2, real *tau);
03285
03286 extern E_f ppgsf_(real *x, integer *iz, real *c__, real *a, real *bh);
03287 extern E_f sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
03288 extern int tsturm_(integer *nm, integer *n, real *eps1, real *d__, real *e, real *e2, real *lb, real *ub, integer *mm, integer *m, real *w, real *z__, integer *ierr, real *rv1, real *rv2, real *rv3, real *rv4, real *rv5, real *rv6);
03289 extern int cdpscb_(integer *ksgn, integer *n, integer *nq, complex *yh);
03290 extern doublereal d9atn1_(doublereal *x);
03291
03292
03293
03294
03295 extern int dfspvd_(doublereal *t, integer *k, doublereal *x, integer *ileft, doublereal *vnikx, integer *nderiv);
03296
03297 extern int dqelg_(integer *n, doublereal *epstab, doublereal *result, doublereal *abserr, doublereal *res3la, integer *nres);
03298
03299 extern int htridi_(integer *nm, integer *n, real *ar, real *ai, real *d__, real *e, real *e2, real *tau);
03300
03301 extern E_f pppsf_(real *x, integer *iz, real *c__, real *a, real *bh);
03302 extern int sdpscb_(integer *ksgn, integer *n, integer *nq, real *yh);
03303 extern int u11ls_(real *a, integer *mda, integer *m, integer *n, real *ub, real *db, integer *mode, integer *np, integer *krank, integer *ksure, real *h__, real *w, real *eb, integer *ic, integer *ir);
03304
03305
03306
03307
03308
03309
03310
03311
03312 extern int cdpstb_(real *el, S_fp f, S_fp fa, real *h__, integer *impl, S_fp jacobn, integer *matdim, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, integer *nq, complex *save2, real *t, complex *y, complex *yh, complex *ywt, real *uround, integer *nfe, integer *nje, complex *a, complex *dfdy, logical *ier, integer *ipvt, complex *save1, integer *iswflg, real *bnd);
03313
03314
03315
03316
03317 extern int d9b0mp_(doublereal *x, doublereal *ampl, doublereal *theta);
03318
03319
03320
03321
03322 extern int dfspvn_(doublereal *t, integer *jhigh, integer *index, doublereal *x, integer *ileft, doublereal *vnikx);
03323 extern int dqform_(integer *m, integer *n, doublereal *q, integer *ldq, doublereal *wa);
03324 extern int hw3crt_(real *xs, real *xf, integer *l, integer *lbdcnd, real *bdxs, real *bdxf, real *ys, real *yf, integer *m, integer *mbdcnd, real *bdys, real *bdyf, real *zs, real *zf, integer *n, integer *nbdcnd, real *bdzs, real *bdzf, real *elmbda, integer *ldimf, integer *mdimf, real *f, real *pertrb, integer *ierror, real *w);
03325
03326 extern int ppqad_(integer *ldc, real *c__, real *xi, integer *lxi, integer *k, real *x1, real *x2, real *pquad);
03327
03328
03329 extern int sdpstb_(real *el, S_fp f, S_fp fa, real *h__, integer *impl, S_fp jacobn, integer *matdim, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, integer *nq, real *save2, real *t, real *y, real *yh, real *ywt, real *uround, integer *nfe, integer *nje, real *a, real *dfdy, logical *ier, integer *ipvt, real *save1, integer *iswflg, real *bnd);
03330
03331
03332
03333
03334 extern int u11us_(real *a, integer *mda, integer *m, integer *n, real *ub, real *db, integer *mode, integer *np, integer *krank, integer *ksure, real *h__, real *w, real *eb, integer *ir, integer *ic);
03335
03336
03337
03338
03339
03340
03341
03342
03343 extern int cdrvb1_(integer *n, real *t, complex *y, real *tout, integer *mstate, real *eps, complex *work, integer *lenw);
03344
03345
03346
03347
03348 extern int d9b1mp_(doublereal *x, doublereal *ampl, doublereal *theta);
03349
03350
03351
03352
03353 extern int dfulmt_(integer *i__, integer *j, doublereal *aij, integer *indcat, doublereal *prgopt, doublereal *dattrv, integer *iflag);
03354
03355 extern int dqk15_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03356
03357 extern int hwscrt_(real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03358
03359 extern E_f ppsgf_(real *x, integer *iz, real *c__, real *a, real *bh);
03360 extern int sdrvb1_(integer *n, real *t, real *y, real *tout, integer *mstate, real *eps, real *work, integer *lenw);
03361
03362
03363
03364
03365 extern int u12ls_(real *a, integer *mda, integer *m, integer *n, real *b, integer *mdb, integer *nb, integer *mode, integer *krank, real *rnorm, real *h__, real *w, integer *ic, integer *ir);
03366
03367
03368
03369
03370 extern int cdrvb2_(integer *n, real *t, complex *y, U_fp f, real *tout, integer *mstate, integer *nroot, real *eps, real *ewt, integer *mint, complex *work, integer *lenw, integer *iwork, integer *leniw, E_fp g);
03371
03372
03373
03374 extern doublereal d9chu_(doublereal *a, doublereal *b, doublereal *z__);
03375
03376
03377 extern int dfzero_(D_fp f, doublereal *b, doublereal *c__, doublereal *r__, doublereal *re, doublereal *ae, integer *iflag);
03378
03379 extern int dqk15i_(D_fp f, doublereal *boun, integer *inf, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03380
03381 extern int hwscs1_(integer *intl, real *ts, real *tf, integer *m, integer *mbdcnd, real *bdts, real *bdtf, real *rs, real *rf, integer *n, integer *nbdcnd, real *bdrs, real *bdrf, real *elmbda, real *f, integer *idimf, real *pertrb, real *w, real *s, real *an, real *bn, real *cn, real *r__, real *am, real *bm, real *cm, real *sint, real *bmh);
03382
03383
03384
03385 extern E_f ppspf_(real *x, integer *iz, real *c__, real *a, real *bh);
03386 extern int sdrvb2_(integer *n, real *t, real *y, U_fp f, real *tout, integer *mstate, integer *nroot, real *eps, real *ewt, integer *mint, real *work, integer *lenw, integer *iwork, integer *leniw, E_fp g);
03387
03388
03389
03390 extern int u12us_(real *a, integer *mda, integer *m, integer *n, real *b, integer *mdb, integer *nb, integer *mode, integer *krank, real *rnorm, real *h__, real *w, integer *ir, integer *ic);
03391
03392
03393
03394
03395 extern int cdrvb3_(integer *n, real *t, complex *y, S_fp f, integer *nstate, real *tout, integer *ntask, integer *nroot, real *eps, real *ewt, integer *ierror, integer *mint, integer *miter, integer *impl, integer *ml, integer *mu, integer *mxord, real *hmax, complex *work, integer *lenw, integer *iwork, integer *leniw, U_fp jacobn, S_fp fa, integer *nde, integer *mxstep, E_fp g);
03396
03397
03398
03399
03400
03401
03402
03403
03404
03405
03406
03407 extern doublereal d9gmic_(doublereal *a, doublereal *x, doublereal *alx);
03408
03409
03410
03411 extern doublereal dgami_(doublereal *a, doublereal *x);
03412
03413
03414
03415 extern int dqk15w_(D_fp f, D_fp w, doublereal *p1, doublereal *p2, doublereal *p3, doublereal *p4, integer *kp, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03416
03417 extern int hwscsp_(integer *intl, real *ts, real *tf, integer *m, integer *mbdcnd, real *bdts, real *bdtf, real *rs, real *rf, integer *n, integer *nbdcnd, real *bdrs, real *bdrf, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03418
03419
03420 extern E_f ppval_(integer *ldc, real *c__, real *xi, integer *lxi, integer *k, integer *ideriv, real *x, integer *inppv);
03421
03422
03423 extern int sdrvb3_(integer *n, real *t, real *y, S_fp f, integer *nstate, real *tout, integer *ntask, integer *nroot, real *eps, real *ewt, integer *ierror, integer *mint, integer *miter, integer *impl, integer *ml, integer *mu, integer *mxord, real *hmax, real *work, integer *lenw, integer *iwork, integer *leniw, U_fp jacobn, S_fp fa, integer *nde, integer *mxstep, E_fp g);
03424
03425
03426
03427
03428
03429
03430
03431
03432
03433
03434
03435 extern int ulsia_(real *a, integer *mda, integer *m, integer *n, real *b, integer *mdb, integer *nb, real *re, real *ae, integer *key, integer *mode, integer *np, integer *krank, integer *ksure, real *rnorm, real *w, integer *lw, integer *iwork, integer *liw, integer *info);
03436
03437
03438
03439
03440 extern int cdsclb_(real *hmax, integer *n, integer *nq, real *rmax, real *h__, real *rc, real *rh, complex *yh);
03441 extern doublereal d9gmit_(doublereal *a, doublereal *x, doublereal *algap1, doublereal *sgngam, doublereal *alx);
03442
03443
03444
03445 extern doublereal dgamic_(doublereal *a, doublereal *x);
03446
03447
03448
03449
03450
03451
03452
03453
03454
03455 extern int dqk21_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03456
03457 extern int hwscyl_(real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03458
03459 extern int proc_(integer *nd, real *bd, integer *nm1, real *bm1, integer *nm2, real *bm2, integer *na, real *aa, complex *x, complex *y, integer *m, complex *a, complex *b, complex *c__, complex *d__, complex *w, complex *u);
03460 extern int sdsclb_(real *hmax, integer *n, integer *nq, real *rmax, real *h__, real *rc, real *rh, real *yh);
03461 extern int usrmat_(integer *i__, integer *j, real *aij, integer *indcat, real *prgopt, real *dattrv, integer *iflag);
03462 extern int cdstpb_(real *eps, S_fp f, U_fp fa, real *hmax, integer *impl, U_fp jacobn, integer *matdim, integer *maxord, integer *mint, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, complex *ywt, real *uround, real *avgh, real *avgord, real *h__, real *hused, integer *jtask, integer *mntold, integer *mtrold, integer *nfe, integer *nje, integer *nqused, integer *nstep, real *t, complex *y, complex *yh, complex *a, logical *convrg, complex *dfdy, real *el, real *hold, integer *ipvt, integer *jstate, integer *nq, integer *nwait, real *rc, real *rmax, complex *save1, complex *save2, real *tq, real *trend, integer *iswflg, integer *mtrsv, integer *mxrdsv);
03463
03464
03465
03466
03467
03468
03469
03470 extern int d9knus_(doublereal *xnu, doublereal *x, doublereal *bknu, doublereal *bknu1, integer *iswtch);
03471
03472
03473
03474
03475
03476 extern doublereal dgamit_(doublereal *a, doublereal *x);
03477
03478
03479
03480
03481
03482
03483
03484
03485
03486 extern int dqk31_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03487
03488 extern int hwsplr_(real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *bdb, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03489
03490 extern int procp_(integer *nd, real *bd, integer *nm1, real *bm1, integer *nm2, real *bm2, integer *na, real *aa, complex *x, complex *y, integer *m, complex *a, complex *b, complex *c__, complex *d__, complex *u, complex *w);
03491 extern E_f sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, integer *incy);
03492 extern E_f vnorm_(real *v, integer *ncomp);
03493 extern int cdzrob_(real *ae, E_fp f, real *h__, integer *n, integer *nq, integer *iroot, real *re, real *t, complex *yh, real *uround, real *b, real *c__, real *fb, real *fc, complex *y);
03494
03495 extern doublereal d9lgic_(doublereal *a, doublereal *x, doublereal *alx);
03496
03497
03498 extern int dgamlm_(doublereal *xmin, doublereal *xmax);
03499
03500
03501 extern int dqk41_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03502
03503 extern int hwsss1_(real *ts, real *tf, integer *m, integer *mbdcnd, real *bdts, real *bdtf, real *ps, real *pf, integer *n, integer *nbdcnd, real *bdps, real *bdpf, real *elmbda, real *f, integer *idimf, real *pertrb, real *am, real *bm, real *cm, real *sn, real *ss, real *sint, real *d__);
03504
03505
03506 extern int prod_(integer *nd, real *bd, integer *nm1, real *bm1, integer *nm2, real *bm2, integer *na, real *aa, real *x, real *y, integer *m, real *a, real *b, real *c__, real *d__, real *w, real *u);
03507 extern int sdstpb_(real *eps, S_fp f, U_fp fa, real *hmax, integer *impl, U_fp jacobn, integer *matdim, integer *maxord, integer *mint, integer *miter, integer *ml, integer *mu, integer *n, integer *nde, real *ywt, real *uround, real *avgh, real *avgord, real *h__, real *hused, integer *jtask, integer *mntold, integer *mtrold, integer *nfe, integer *nje, integer *nqused, integer *nstep, real *t, real *y, real *yh, real *a, logical *convrg, real *dfdy, real *el, real *hold, integer *ipvt, integer *jstate, integer *nq, integer *nwait, real *rc, real *rmax, real *save1, real *save2, real *tq, real *trend, integer *iswflg, integer *mtrsv, integer *mxrdsv);
03508
03509
03510
03511
03512
03513
03514
03515 extern E_f vnwrms_(integer *n, real *v, real *w);
03516 extern C_f cexprl_(complex * ret_val, complex *z__);
03517
03518 extern doublereal d9lgit_(doublereal *a, doublereal *x, doublereal *algap1);
03519
03520
03521 extern doublereal dgamma_(doublereal *x);
03522
03523
03524
03525
03526
03527
03528 extern int dqk51_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03529
03530 extern int hwsssp_(real *ts, real *tf, integer *m, integer *mbdcnd, real *bdts, real *bdtf, real *ps, real *pf, integer *n, integer *nbdcnd, real *bdps, real *bdpf, real *elmbda, real *f, integer *idimf, real *pertrb, integer *ierror, real *w);
03531
03532
03533 extern int prodp_(integer *nd, real *bd, integer *nm1, real *bm1, integer *nm2, real *bm2, integer *na, real *aa, real *x, real *y, integer *m, real *a, real *b, real *c__, real *d__, real *u, real *w);
03534 extern int sdzrob_(real *ae, E_fp f, real *h__, integer *n, integer *nq, integer *iroot, real *re, real *t, real *yh, real *uround, real *b, real *c__, real *fb, real *fc, real *y);
03535
03536 extern int wnlit_(real *w, integer *mdw, integer *m, integer *n, integer *l, integer *ipivot, integer *itype, real *h__, real *scale, real *rnorm, integer *idope, real *dope, logical *done);
03537
03538
03539
03540
03541
03542
03543
03544 extern int cfftb_(integer *n, complex *c__, real *wsave);
03545
03546 extern doublereal d9lgmc_(doublereal *x);
03547
03548
03549
03550
03551 extern doublereal dgamr_(doublereal *x);
03552
03553
03554
03555
03556
03557 extern int dqk61_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03558
03559 extern integer i1mach_(integer *i__);
03560
03561 extern E_f prvec_(integer *m, real *u, real *v);
03562
03563 extern int sepeli_(integer *intl, integer *iorder, real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *alpha, real *bdb, real *beta, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *gama, real *bdd, real *xnu, U_fp cofx, U_fp cofy, real *grhs, real *usol, integer *idmn, real *w, real *pertrb, integer *ierror);
03564
03565
03566 extern int wnlsm_(real *w, integer *mdw, integer *mme, integer *ma, integer *n, integer *l, real *prgopt, real *x, real *rnorm, integer *mode, integer *ipivot, integer *itype, real *wd, real *h__, real *scale, real *z__, real *temp, real *d__);
03567
03568
03569
03570
03571
03572
03573
03574
03575
03576
03577
03578
03579 extern int cfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
03580
03581
03582
03583
03584
03585 extern doublereal d9ln2r_(doublereal *x);
03586
03587
03588
03589
03590 extern doublereal dgamrn_(doublereal *x);
03591
03592
03593 extern int dqmomo_(doublereal *alfa, doublereal *beta, doublereal *ri, doublereal *rj, doublereal *rg, doublereal *rh, integer *integr);
03594 extern integer icamax_(integer *n, complex *cx, integer *incx);
03595 extern int prwpge_(integer *key, integer *ipage, integer *lpg, real *sx, integer *ix);
03596
03597
03598 extern int sepx4_(integer *iorder, real *a, real *b, integer *m, integer *mbdcnd, real *bda, real *alpha, real *bdb, real *beta, real *c__, real *d__, integer *n, integer *nbdcnd, real *bdc, real *bdd, U_fp cofx, real *grhs, real *usol, integer *idmn, real *w, real *pertrb, integer *ierror);
03599
03600
03601 extern int wnnls_(real *w, integer *mdw, integer *me, integer *ma, integer *n, integer *l, real *prgopt, real *x, real *rnorm, integer *mode, integer *iwork, real *work);
03602
03603
03604
03605 extern int cfftf_(integer *n, complex *c__, real *wsave);
03606
03607 extern doublereal d9pak_(doublereal *y, integer *n);
03608
03609
03610
03611
03612 extern int dgaus8_(D_fp fun, doublereal *a, doublereal *b, doublereal *err, doublereal *ans, integer *ierr);
03613
03614
03615
03616 extern int dqnc79_(D_fp fun, doublereal *a, doublereal *b, doublereal *err, doublereal *ans, integer *ierr, integer *k);
03617
03618
03619
03620 extern integer idamax_(integer *n, doublereal *dx, integer *incx);
03621 extern int prwvir_(integer *key, integer *ipage, integer *lpg, real *sx, integer *ix);
03622
03623
03624
03625 extern int sgbco_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, real *z__);
03626
03627
03628
03629
03630
03631 extern int xerabt_(char *messg, integer *nmessg, ftnlen messg_len);
03632 extern int cfftf1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
03633
03634
03635
03636
03637
03638 extern int d9upak_(doublereal *x, doublereal *y, integer *n);
03639 extern int dgbco_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *rcond, doublereal *z__);
03640
03641
03642
03643
03644
03645 extern int dqng_(D_fp f, doublereal *a, doublereal *b, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier);
03646
03647
03648 extern int imtql1_(integer *n, real *d__, real *e, integer *ierr);
03649
03650 extern E_f psgf_(real *x, integer *iz, real *c__, real *a, real *bh);
03651 extern int sgbdi_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *det);
03652 extern int xerclr_(void);
03653
03654 extern int cffti_(integer *n, real *wsave);
03655
03656 extern doublereal dacosh_(doublereal *x);
03657
03658
03659 extern int dgbdi_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *det);
03660 extern int dqpsrt_(integer *limit, integer *last, integer *maxerr, doublereal *ermax, doublereal *elist, integer *iord, integer *nrmax);
03661 extern int imtql2_(integer *nm, integer *n, real *d__, real *e, real *z__, integer *ierr);
03662
03663 extern E_f psi_(real *x);
03664
03665
03666
03667
03668
03669 extern int sgbfa_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
03670
03671
03672
03673 extern int xerctl_(char *messg1, integer *nmessg, integer *nerr, integer *level, integer *kontrl, ftnlen messg1_len);
03674 extern int cffti1_(integer *n, real *wa, integer *ifac);
03675 extern doublereal dai_(doublereal *x);
03676
03677
03678
03679
03680
03681
03682 extern int dgbfa_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
03683
03684
03685
03686 extern int dqrdc_(doublereal *x, integer *ldx, integer *n, integer *p, doublereal *qraux, integer *jpvt, doublereal *work, integer *job);
03687
03688
03689
03690
03691
03692 extern int imtqlv_(integer *n, real *d__, real *e, real *e2, real *w, integer *ind, integer *ierr, real *rv1);
03693
03694 extern int psifn_(real *x, integer *n, integer *kode, integer *m, real *ans, integer *nz, integer *ierr);
03695
03696
03697 extern int sgbsl_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *b, integer *job);
03698
03699
03700 extern int xerdmp_(void);
03701
03702 extern int cfod_(integer *meth, real *elco, real *tesco);
03703 extern doublereal daie_(doublereal *x);
03704
03705
03706
03707
03708 extern int dgbsl_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *b, integer *job);
03709
03710
03711 extern int dqrfac_(integer *m, integer *n, doublereal *a, integer *lda, logical *pivot, integer *ipvt, integer *lipvt, doublereal *sigma, doublereal *acnorm, doublereal *wa);
03712
03713
03714 extern int indxa_(integer *i__, integer *ir, integer *idxa, integer *na);
03715
03716 extern E_f psixn_(integer *n);
03717
03718 extern int sgeco_(real *a, integer *lda, integer *n, integer *ipvt, real *rcond, real *z__);
03719
03720
03721
03722
03723
03724 extern int xermax_(integer *max__);
03725
03726 extern int cg_(integer *nm, integer *n, real *ar, real *ai, real *wr, real *wi, integer *matz, real *zr, real *zi, real *fv1, real *fv2, real *fv3, integer *ierr);
03727
03728
03729
03730
03731
03732 extern doublereal dasinh_(doublereal *x);
03733
03734
03735
03736 extern int dgeco_(doublereal *a, integer *lda, integer *n, integer *ipvt, doublereal *rcond, doublereal *z__);
03737
03738
03739
03740
03741
03742 extern int dqrsl_(doublereal *x, integer *ldx, integer *n, integer *k, doublereal *qraux, doublereal *y, doublereal *qy, doublereal *qty, doublereal *b, doublereal *rsd, doublereal *xb, integer *job, integer *info);
03743
03744
03745
03746 extern int indxb_(integer *i__, integer *ir, integer *idx, integer *idp);
03747
03748 extern int pvalue_(integer *l, integer *nder, real *x, real *yfit, real *yp, real *a);
03749
03750
03751 extern int sgedi_(real *a, integer *lda, integer *n, integer *ipvt, real *det, real *work, integer *job);
03752
03753
03754
03755 extern int xerprt_(char *messg, integer *nmessg, ftnlen messg_len);
03756
03757
03758 extern C_f cgamma_(complex * ret_val, complex *z__);
03759
03760 extern doublereal dasum_(integer *n, doublereal *dx, integer *incx);
03761 extern int dgedi_(doublereal *a, integer *lda, integer *n, integer *ipvt, doublereal *det, doublereal *work, integer *job);
03762
03763
03764
03765 extern int dqrslv_(integer *n, doublereal *r__, integer *ldr, integer *ipvt, doublereal *diag, doublereal *qtb, doublereal *x, doublereal *sigma, doublereal *wa);
03766 extern int indxc_(integer *i__, integer *ir, integer *idxc, integer *nc);
03767
03768 extern E_f pythag_(real *a, real *b);
03769 extern int sgeev_(real *a, integer *lda, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info);
03770
03771
03772
03773
03774
03775
03776
03777
03778
03779 extern int xerror_(char *messg, integer *nmessg, integer *nerr, integer *level, ftnlen messg_len);
03780
03781 extern C_f cgamr_(complex * ret_val, complex *z__);
03782
03783
03784
03785
03786 extern int dasyik_(doublereal *x, doublereal *fnu, integer *kode, doublereal *flgik, doublereal *ra, doublereal *arg, integer *in, doublereal *y);
03787
03788 extern int dgefa_(doublereal *a, integer *lda, integer *n, integer *ipvt, integer *info);
03789
03790
03791
03792 extern doublereal dqwgtc_(doublereal *x, doublereal *c__, doublereal *p2, doublereal *p3, doublereal *p4, integer *kp);
03793 extern integer initds_(doublereal *dos, integer *nos, real *eta);
03794
03795 extern int qag_(E_fp f, real *a, real *b, real *epsabs, real *epsrel, integer *key, real *result, real *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, real *work);
03796
03797
03798 extern int sgefa_(real *a, integer *lda, integer *n, integer *ipvt, integer *info);
03799
03800
03801
03802 extern int xerrwv_(char *messg, integer *nmessg, integer *nerr, integer *level, integer *ni, integer *i1, integer *i2, integer *nr, real *r1, real *r2, ftnlen messg_len);
03803
03804
03805
03806
03807
03808
03809
03810
03811 extern int cgbco_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, complex *z__);
03812
03813
03814
03815
03816
03817 extern int dasyjy_(S_fp funjy, doublereal *x, doublereal *fnu, doublereal *flgjy, integer *in, doublereal *y, doublereal *wk, integer *iflw);
03818
03819
03820 extern int dgefs_(doublereal *a, integer *lda, integer *n, doublereal *v, integer *itask, integer *ind, doublereal *work, integer *iwork);
03821
03822
03823
03824
03825
03826 extern doublereal dqwgtf_(doublereal *x, doublereal *omega, doublereal *p2, doublereal *p3, doublereal *p4, integer *integr);
03827 extern integer inits_(real *os, integer *nos, real *eta);
03828
03829 extern int qage_(E_fp f, real *a, real *b, real *epsabs, real *epsrel, integer *key, integer *limit, real *result, real *abserr, integer *neval, integer *ier, real *alist__, real *blist, real *rlist, real *elist, integer *iord, integer *last);
03830
03831
03832
03833
03834
03835
03836
03837
03838 extern int sgefs_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work, integer *iwork);
03839
03840
03841
03842
03843
03844 extern int xersav_(char *messg, integer *nmessg, integer *nerr, integer *level, integer *icount, ftnlen messg_len);
03845
03846
03847 extern int cgbdi_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *det);
03848 extern doublereal datanh_(doublereal *x);
03849
03850
03851
03852
03853 extern int dgesl_(doublereal *a, integer *lda, integer *n, integer *ipvt, doublereal *b, integer *job);
03854
03855
03856 extern doublereal dqwgts_(doublereal *x, doublereal *a, doublereal *b, doublereal *alfa, doublereal *beta, integer *integr);
03857 extern int interv_(real *xt, integer *lxt, real *x, integer *ileft, integer *mflag);
03858 extern int qagi_(E_fp f, real *bound, integer *inf, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, real *work);
03859
03860
03861 extern int sgeir_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work, integer *iwork);
03862
03863
03864
03865
03866
03867
03868
03869
03870 extern int xgetf_(integer *kontrl);
03871
03872 extern int cgbfa_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
03873
03874
03875
03876 extern int davint_(doublereal *x, doublereal *y, integer *n, doublereal *xlo, doublereal *xup, doublereal *ans, integer *ierr);
03877
03878 extern int dglss_(doublereal *a, integer *mda, integer *m, integer *n, doublereal *b, integer *mdb, integer *nb, doublereal *rnorm, doublereal *work, integer *lw, integer *iwork, integer *liw, integer *info);
03879
03880
03881 extern doublereal drc_(doublereal *x, doublereal *y, integer *ier);
03882
03883
03884 extern int intrp_(real *x, real *y, real *xout, real *yout, real *ypout, integer *neqn, integer *kold, real *phi, real *psi);
03885 extern int qagie_(E_fp f, real *bound, integer *inf, real *epsabs, real *epsrel, integer *limit, real *result, real *abserr, integer *neval, integer *ier, real *alist__, real *blist, real *rlist, real *elist, integer *iord, integer *last);
03886
03887
03888
03889
03890 extern int sgemm_(integer *m, integer *n, integer *l, real *a, integer *ia, real *b, integer *ib, real *c__, integer *ic, integer *jtrpos, integer *job);
03891
03892 extern int xgetua_(integer *iunita, integer *n);
03893
03894 extern int cgbsl_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *b, integer *job);
03895
03896
03897 extern E_f daws_(real *x);
03898
03899
03900
03901
03902 extern int dgtsl_(integer *n, doublereal *c__, doublereal *d__, doublereal *e, doublereal *b, integer *info);
03903 extern doublereal drd_(doublereal *x, doublereal *y, doublereal *z__, integer *ier);
03904
03905
03906 extern int intrv_(real *xt, integer *lxt, real *x, integer *ilo, integer *ileft, integer *mflag);
03907 extern int qagp_(E_fp f, real *a, real *b, integer *npts2, real *points, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier, integer *leniw, integer *lenw, integer *last, integer *iwork, real *work);
03908
03909
03910 extern int sgemv_(integer *m, integer *n, real *a, integer *ia, real *x, integer *ix, real *y, integer *iy, integer *job);
03911
03912 extern int xgetun_(integer *iunit);
03913
03914 extern int cgeco_(complex *a, integer *lda, integer *n, integer *ipvt, real *rcond, complex *z__);
03915
03916
03917
03918
03919
03920 extern int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
03921 extern int dh12_(integer *mode, integer *lpivot, integer *l1, integer *m, doublereal *u, integer *iue, doublereal *up, doublereal *c__, integer *ice, integer *icv, integer *ncv);
03922
03923
03924
03925 extern int dreadp_(integer *ipage, integer *list, doublereal *rlist, integer *lpage, integer *irec);
03926
03927 extern int intyd_(real *t, integer *k, real *yh, integer *nyh, real *dky, integer *iflag);
03928
03929 extern int qagpe_(E_fp f, real *a, real *b, integer *npts2, real *points, real *epsabs, real *epsrel, integer *limit, real *result, real *abserr, integer *neval, integer *ier, real *alist__, real *blist, real *rlist, real *elist, real *pts, integer *iord, integer *level, integer *ndin, integer *last);
03930
03931
03932
03933
03934 extern int sgesl_(real *a, integer *lda, integer *n, integer *ipvt, real *b, integer *job);
03935
03936
03937 extern int xsetf_(integer *kontrl);
03938
03939
03940 extern int cgedi_(complex *a, integer *lda, integer *n, integer *ipvt, complex *det, complex *work, integer *job);
03941
03942
03943
03944 extern int dbdiff_(integer *l, doublereal *v);
03945 extern int dhfti_(doublereal *a, integer *mda, integer *m, integer *n, doublereal *b, integer *mdb, integer *nb, doublereal *tau, integer *krank, doublereal *rnorm, doublereal *h__, doublereal *g, integer *ip);
03946
03947
03948
03949 extern int dreort_(integer *ncomp, doublereal *y, doublereal *yp, doublereal *yhp, integer *niv, doublereal *w, doublereal *s, doublereal *p, integer *ip, doublereal *stowa, integer *iflag);
03950
03951
03952
03953
03954
03955
03956
03957 extern int invit_(integer *nm, integer *n, real *a, real *wr, real *wi, logical *select, integer *mm, integer *m, real *z__, integer *ierr, real *rm1, real *rv1, real *rv2);
03958
03959
03960 extern int qags_(E_fp f, real *a, real *b, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, real *work);
03961
03962
03963 extern int sglss_(real *a, integer *mda, integer *m, integer *n, real *b, integer *mdb, integer *nb, real *rnorm, real *work, integer *lw, integer *iwork, integer *liw, integer *info);
03964
03965
03966 extern int xsetua_(integer *iunita, integer *n);
03967
03968
03969 extern int cgeev_(real *a, integer *lda, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info);
03970
03971
03972
03973
03974
03975
03976
03977 extern int dbesi_(doublereal *x, doublereal *alpha, integer *kode, integer *n, doublereal *y, integer *nz);
03978
03979
03980
03981
03982
03983 extern int dhkseq_(doublereal *x, integer *m, doublereal *h__, integer *ierr);
03984
03985
03986 extern doublereal drf_(doublereal *x, doublereal *y, doublereal *z__, integer *ier);
03987
03988
03989 extern int inxca_(integer *i__, integer *ir, integer *idxa, integer *na);
03990
03991 extern int qagse_(E_fp f, real *a, real *b, real *epsabs, real *epsrel, integer *limit, real *result, real *abserr, integer *neval, integer *ier, real *alist__, real *blist, real *rlist, real *elist, integer *iord, integer *last);
03992
03993
03994
03995
03996 extern int sgtsl_(integer *n, real *c__, real *d__, real *e, real *b, integer *info);
03997 extern int xsetun_(integer *iunit);
03998
03999 extern int cgefa_(complex *a, integer *lda, integer *n, integer *ipvt, integer *info);
04000
04001
04002
04003 extern doublereal dbesi0_(doublereal *x);
04004
04005
04006
04007
04008
04009 extern int dhstrt_(S_fp df, integer *neq, doublereal *a, doublereal *b, doublereal *y, doublereal *yprime, doublereal *etol, integer *morder, doublereal *small, doublereal *big, doublereal *spy, doublereal *pv, doublereal *yp, doublereal *sf, doublereal *rpar, integer *ipar, doublereal *h__);
04010
04011 extern doublereal drj_(doublereal *x, doublereal *y, doublereal *z__, doublereal *p, integer *ier);
04012
04013
04014
04015 extern int inxcb_(integer *i__, integer *ir, integer *idx, integer *idp);
04016
04017 extern int qawc_(E_fp f, real *a, real *b, real *c__, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier, integer *limit, integer *lenw, integer *last, integer *iwork, real *work);
04018
04019
04020 extern E_f sindg_(real *x);
04021 extern int yairy_(real *x, real *rx, real *c__, real *bi, real *dbi);
04022 extern int cgefs_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work, integer *iwork);
04023
04024
04025
04026
04027
04028 extern doublereal dbesi1_(doublereal *x);
04029
04030
04031
04032
04033
04034 extern E_f diff_(real *x, real *y);
04035 extern int drkfab_(integer *ncomp, doublereal *xpts, integer *nxpts, integer *nfc, integer *iflag, doublereal *z__, integer *mxnon, doublereal *p, integer *ntp, integer *ip, doublereal *yhp, integer *niv, doublereal *u, doublereal *v, doublereal *w, doublereal *s, doublereal *stowa, doublereal *g, doublereal *work, integer *iwork, integer *nfcc);
04036
04037
04038
04039
04040
04041
04042
04043
04044 extern int inxcc_(integer *i__, integer *ir, integer *idxc, integer *nc);
04045
04046 extern int qawce_(E_fp f, real *a, real *b, real *c__, real *epsabs, real *epsrel, integer *limit, real *result, real *abserr, integer *neval, integer *ier, real *alist__, real *blist, real *rlist, real *elist, integer *iord, integer *last);
04047
04048
04049
04050 extern int sinqb_(integer *n, real *x, real *wsave);
04051