00001 extern int cgeir_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work, integer *iwork);
00002 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00003 /*:ref: cgefa_ 14 5 8 4 4 4 4 */
00004 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */
00005 /*:ref: scasum_ 6 3 4 8 4 */
00006 /*:ref: cdcdot_ 8 7 8 4 8 8 4 8 4 */
00007 /*:ref: r1mach_ 6 1 4 */
00008 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00009 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
00010 extern int dbesj_(doublereal *x, doublereal *alpha, integer *n, doublereal *y, integer *nz);
00011 /*:ref: d1mach_ 7 1 4 */
00012 /*:ref: i1mach_ 4 1 4 */
00013 /*:ref: dasyjy_ 14 8 200 7 7 7 4 7 7 4 */
00014 /*:ref: dlngam_ 7 1 7 */
00015 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: d1mach_ 7 1 4 */
00019 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00020 /*:ref: dvnorm_ 7 2 7 4 */
00021 /*:ref: dhstrt_ 14 17 214 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 7 */
00022 /*:ref: dfehl_ 14 14 214 4 7 7 7 7 7 7 7 7 7 7 7 4 */
00023 extern integer iploc_(integer *loc, real *sx, integer *ix);
00024 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00025 /*:ref: prwpge_ 14 5 4 4 4 6 4 */
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 /*:ref: qawfe_ 14 23 206 6 6 4 6 4 4 4 6 6 4 4 6 6 4 4 6 6 6 6 4 4 6 */
00028 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00029 extern int sinqf_(integer *n, real *x, real *wsave);
00030 /*:ref: cosqf_ 14 3 4 6 6 */
00031 extern int cgesl_(complex *a, integer *lda, integer *n, integer *ipvt, complex *b, integer *job);
00032 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00033 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
00034 extern doublereal dbesj0_(doublereal *x);
00035 /*:ref: initds_ 4 3 7 4 6 */
00036 /*:ref: d1mach_ 7 1 4 */
00037 /*:ref: dcsevl_ 7 3 7 7 4 */
00038 /*:ref: d9b0mp_ 14 3 7 7 7 */
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 /*:ref: qagie_ 14 16 200 6 4 6 6 4 6 6 4 4 6 6 6 6 4 4 */
00044 /*:ref: r1mach_ 6 1 4 */
00045 /*:ref: qawoe_ 14 23 200 6 6 6 4 6 6 4 4 4 6 6 4 4 4 6 6 6 6 4 4 4 6 */
00046 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */
00047 extern int sinqi_(integer *n, real *wsave);
00048 /*:ref: cosqi_ 14 2 4 6 */
00049 extern int cgtsl_(integer *n, complex *c__, complex *d__, complex *e, complex *b, integer *info);
00050 extern doublereal dbesj1_(doublereal *x);
00051 /*:ref: initds_ 4 3 7 4 6 */
00052 /*:ref: d1mach_ 7 1 4 */
00053 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00054 /*:ref: dcsevl_ 7 3 7 7 4 */
00055 /*:ref: d9b1mp_ 14 3 7 7 7 */
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 /*:ref: qawoe_ 14 23 206 6 6 6 4 6 6 4 4 4 6 6 4 4 4 6 6 6 6 4 4 4 6 */
00061 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00062 extern int sint_(integer *n, real *x, real *wsave);
00063 /*:ref: rfftf_ 14 3 4 6 6 */
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 /*:ref: htridi_ 14 8 4 4 6 6 6 6 6 6 */
00067 /*:ref: tqlrat_ 14 4 4 6 6 4 */
00068 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */
00069 /*:ref: htribk_ 14 8 4 4 6 6 6 4 6 6 */
00070 extern int dbesk_(doublereal *x, doublereal *fnu, integer *kode, integer *n, doublereal *y, integer *nz);
00071 /*:ref: i1mach_ 4 1 4 */
00072 /*:ref: d1mach_ 7 1 4 */
00073 /*:ref: dasyik_ 14 8 7 7 4 7 7 7 4 7 */
00074 /*:ref: dbesk0_ 7 1 7 */
00075 /*:ref: dbsk0e_ 7 1 7 */
00076 /*:ref: dbesk1_ 7 1 7 */
00077 /*:ref: dbsk1e_ 7 1 7 */
00078 /*:ref: dbsknu_ 14 6 7 7 4 4 7 4 */
00079 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00080 extern int dintyd_(doublereal *t, integer *k, doublereal *yh, integer *nyh, doublereal *dky, integer *iflag);
00081 /* comlen ddebd1_ 1876 */
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 /*:ref: r1mach_ 6 1 4 */
00086 /*:ref: qc25f_ 14 15 206 6 6 6 4 4 4 4 6 6 4 6 6 4 6 */
00087 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */
00088 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */
00089 extern int sinti_(integer *n, real *wsave);
00090 /*:ref: rffti_ 14 2 4 6 */
00091 extern E_f acosh_(real *x);
00092 /*:ref: r1mach_ 6 1 4 */
00093 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00096 extern doublereal dbesk0_(doublereal *x);
00097 /*:ref: initds_ 4 3 7 4 6 */
00098 /*:ref: d1mach_ 7 1 4 */
00099 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00100 /*:ref: dbesi0_ 7 1 7 */
00101 /*:ref: dcsevl_ 7 3 7 7 4 */
00102 /*:ref: dbsk0e_ 7 1 7 */
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 /*:ref: qawse_ 14 19 206 6 6 6 6 4 6 6 4 6 6 4 4 6 6 6 6 4 4 */
00108 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: inits_ 4 3 6 4 6 */
00112 /*:ref: r1mach_ 6 1 4 */
00113 /*:ref: r9aimp_ 14 3 6 6 6 */
00114 /*:ref: csevl_ 6 3 6 6 4 */
00115 /*:ref: aie_ 6 1 6 */
00116 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00119 extern doublereal dbesk1_(doublereal *x);
00120 /*:ref: initds_ 4 3 7 4 6 */
00121 /*:ref: d1mach_ 7 1 4 */
00122 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00123 /*:ref: dbesi1_ 7 1 7 */
00124 /*:ref: dcsevl_ 7 3 7 7 4 */
00125 /*:ref: dbsk1e_ 7 1 7 */
00126 extern doublereal dlbeta_(doublereal *a, doublereal *b);
00127 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00128 /*:ref: dgamma_ 7 1 7 */
00129 /*:ref: d9lgmc_ 7 1 7 */
00130 /*:ref: dlngam_ 7 1 7 */
00131 /*:ref: dlnrel_ 7 1 7 */
00132 extern int drsco_(doublereal *rsav, integer *isav);
00133 /* comlen ddebd1_ 1876 */
00134 extern int isort_(integer *x, integer *y, integer *n, integer *kflag);
00135 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
00138 /*:ref: qmomo_ 14 7 6 6 6 6 6 6 4 */
00139 /*:ref: qc25s_ 14 16 206 6 6 6 6 6 6 6 6 6 6 6 6 6 4 4 */
00140 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */
00141 extern int slvs_(real *wm, integer *iwm, real *x, real *tem);
00142 /* comlen debdf1_ 1004 */
00143 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */
00144 /*:ref: sgbsl_ 14 8 6 4 4 4 4 4 6 4 */
00145 extern E_f aie_(real *x);
00146 /*:ref: r1mach_ 6 1 4 */
00147 /*:ref: inits_ 4 3 6 4 6 */
00148 /*:ref: r9aimp_ 14 3 6 6 6 */
00149 /*:ref: csevl_ 6 3 6 6 4 */
00150 extern E_f chfiv_(real *x1, real *x2, real *f1, real *f2, real *d1, real *d2, real *a, real *b, integer *ierr);
00151 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00152 extern int dbesks_(doublereal *xnu, doublereal *x, integer *nin, doublereal *bk);
00153 /*:ref: d1mach_ 7 1 4 */
00154 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00155 /*:ref: dbskes_ 14 4 7 7 4 7 */
00156 extern int dlgams_(doublereal *x, doublereal *dlgam, doublereal *sgngam);
00157 /*:ref: dlngam_ 7 1 7 */
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 /*:ref: qk15w_ 14 13 206 206 6 6 6 6 4 6 6 6 6 6 6 */
00162 /*:ref: qwgtc_ 6 :*/
00163 /*:ref: qcheb_ 14 4 6 6 6 6 */
00164 extern int smout_(integer *m, integer *n, integer *lda, real *a, char *ifmt, integer *idigit, ftnlen ifmt_len);
00165 /*:ref: i1mach_ 4 1 4 */
00166 extern E_f albeta_(real *a, real *b);
00167 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00168 /*:ref: gamma_ 6 1 6 */
00169 /*:ref: r9lgmc_ 6 1 6 */
00170 /*:ref: alngam_ 6 1 6 */
00171 /*:ref: alnrel_ 6 1 6 */
00172 extern integer chfmc_(real *d1, real *d2, real *delta);
00173 /*:ref: r1mach_ 6 1 4 */
00174 extern int dbesy_(doublereal *x, doublereal *fnu, integer *n, doublereal *y);
00175 /*:ref: i1mach_ 4 1 4 */
00176 /*:ref: d1mach_ 7 1 4 */
00177 /*:ref: dasyjy_ 14 8 200 7 7 7 4 7 7 4 */
00178 /*:ref: dbesy0_ 7 1 7 */
00179 /*:ref: dbesy1_ 7 1 7 */
00180 /*:ref: dbsynu_ 14 4 7 7 4 7 */
00181 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00182 extern doublereal dli_(doublereal *x);
00183 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00184 /*:ref: dei_ 7 1 7 */
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 /*:ref: i1mach_ 4 1 4 */
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 /*:ref: r1mach_ 6 1 4 */
00190 /*:ref: qk15w_ 14 13 206 206 6 6 6 6 4 6 6 6 6 6 6 */
00191 /*:ref: qwgtf_ 6 :*/
00192 /*:ref: sgtsl_ 14 6 4 6 6 6 6 4 */
00193 /*:ref: qcheb_ 14 4 6 6 6 6 */
00194 extern int snbco_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, real *z__);
00195 /*:ref: sasum_ 6 3 4 6 4 */
00196 /*:ref: snbfa_ 14 7 6 4 4 4 4 4 4 */
00197 /*:ref: sscal_ 14 4 4 6 6 4 */
00198 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00199 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00200 extern int algams_(real *x, real *algam, real *sgngam);
00201 /*:ref: alngam_ 6 1 6 */
00202 extern int chico_(complex *a, integer *lda, integer *n, integer *kpvt, real *rcond, complex *z__);
00203 /*:ref: scasum_ 6 3 4 8 4 */
00204 /*:ref: chifa_ 14 5 8 4 4 4 4 */
00205 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00206 /*:ref: csscal_ 14 4 4 6 8 4 */
00207 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
00208 extern doublereal dbesy0_(doublereal *x);
00209 /*:ref: initds_ 4 3 7 4 6 */
00210 /*:ref: d1mach_ 7 1 4 */
00211 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00212 /*:ref: dbesj0_ 7 1 7 */
00213 /*:ref: dcsevl_ 7 3 7 7 4 */
00214 /*:ref: d9b0mp_ 14 3 7 7 7 */
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 /*:ref: d1mach_ 7 1 4 */
00217 /*:ref: du11ls_ 14 15 7 4 4 4 7 7 4 4 4 4 7 7 7 4 4 */
00218 /*:ref: du12ls_ 14 14 7 4 4 4 7 4 4 4 4 7 7 7 4 4 */
00219 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00220 extern int dsico_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *rcond, doublereal *z__);
00221 /*:ref: dasum_ 7 3 4 7 4 */
00222 /*:ref: dsifa_ 14 5 7 4 4 4 4 */
00223 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00224 /*:ref: dscal_ 14 4 4 7 7 4 */
00225 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: qk15w_ 14 13 206 206 6 6 6 6 4 6 6 6 6 6 6 */
00229 /*:ref: qwgts_ 6 :*/
00230 /*:ref: qcheb_ 14 4 6 6 6 6 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00234 /*:ref: ei_ 6 1 6 */
00235 extern int chidi_(complex *a, integer *lda, integer *n, integer *kpvt, real *det, integer *inert, complex *work, integer *job);
00236 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00237 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
00238 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00239 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00240 extern doublereal dbesy1_(doublereal *x);
00241 /*:ref: initds_ 4 3 7 4 6 */
00242 /*:ref: d1mach_ 7 1 4 */
00243 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00244 /*:ref: dbesj1_ 7 1 7 */
00245 /*:ref: dcsevl_ 7 3 7 7 4 */
00246 /*:ref: d9b1mp_ 14 3 7 7 7 */
00247 extern doublereal dlngam_(doublereal *x);
00248 /*:ref: d1mach_ 7 1 4 */
00249 /*:ref: dgamma_ 7 1 7 */
00250 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00251 /*:ref: d9lgmc_ 7 1 7 */
00252 extern int dsidi_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *det, integer *inert, doublereal *work, integer *job);
00253 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00254 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00255 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00256 /*:ref: dswap_ 14 5 4 7 4 7 4 */
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 /*:ref: isamax_ 4 3 4 6 4 */
00261 /*:ref: sswap_ 14 5 4 6 4 6 4 */
00262 /*:ref: sscal_ 14 4 4 6 6 4 */
00263 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00264 extern E_f alngam_(real *x);
00265 /*:ref: r1mach_ 6 1 4 */
00266 /*:ref: gamma_ 6 1 6 */
00267 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00268 /*:ref: r9lgmc_ 6 1 6 */
00269 extern int chiev_(real *a, integer *lda, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info);
00270 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00271 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00272 /*:ref: scopym_ 14 5 4 6 4 6 4 */
00273 /*:ref: htridi_ 14 8 4 4 6 6 6 6 6 6 */
00274 /*:ref: tqlrat_ 14 4 4 6 6 4 */
00275 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */
00276 /*:ref: htribk_ 14 8 4 4 6 6 6 4 6 6 */
00277 extern doublereal dbeta_(doublereal *a, doublereal *b);
00278 /*:ref: dgamlm_ 14 2 7 7 */
00279 /*:ref: d1mach_ 7 1 4 */
00280 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00281 /*:ref: dgamma_ 7 1 7 */
00282 /*:ref: dlbeta_ 7 2 7 7 */
00283 extern doublereal dlnrel_(doublereal *x);
00284 /*:ref: initds_ 4 3 7 4 6 */
00285 /*:ref: d1mach_ 7 1 4 */
00286 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00287 /*:ref: dcsevl_ 7 3 7 7 4 */
00288 extern int dsifa_(doublereal *a, integer *lda, integer *n, integer *kpvt, integer *info);
00289 /*:ref: idamax_ 4 3 4 7 4 */
00290 /*:ref: dswap_ 14 5 4 7 4 7 4 */
00291 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /* comlen la05dd_ 32 */
00294 /*:ref: xsetun_ 14 1 4 */
00295 /*:ref: mc20ad_ 14 7 4 4 7 4 4 4 4 */
00296 /*:ref: la05ed_ 14 7 7 4 4 4 4 4 12 */
00297 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00298 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00299 extern int qelg_(integer *n, real *epstab, real *result, real *abserr, real *res3la, integer *nres);
00300 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: snbco_ 14 8 6 4 4 4 4 4 6 6 */
00303 /*:ref: r1mach_ 6 1 4 */
00304 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00305 /*:ref: snbsl_ 14 8 6 4 4 4 4 4 6 4 */
00306 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
00307 extern E_f alnrel_(real *x);
00308 /*:ref: inits_ 4 3 6 4 6 */
00309 /*:ref: r1mach_ 6 1 4 */
00310 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00311 /*:ref: csevl_ 6 3 6 6 4 */
00312 extern int chifa_(complex *a, integer *lda, integer *n, integer *kpvt, integer *info);
00313 /*:ref: icamax_ 4 3 4 8 4 */
00314 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00315 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00316 extern doublereal dbetai_(doublereal *x, doublereal *pin, doublereal *qin);
00317 /*:ref: d1mach_ 7 1 4 */
00318 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00319 /*:ref: dlbeta_ 7 2 7 7 */
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 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00322 /*:ref: dnrm2_ 7 3 4 7 4 */
00323 /*:ref: dscal_ 14 4 4 7 7 4 */
00324 /*:ref: dwnnls_ 14 12 7 4 4 4 4 4 7 7 7 4 4 7 */
00325 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /* comlen la05ds_ 28 */
00329 /*:ref: xsetun_ 14 1 4 */
00330 /*:ref: mc20as_ 14 7 4 4 6 4 4 4 4 */
00331 /*:ref: la05es_ 14 7 6 4 4 4 4 4 12 */
00332 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00333 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00337 /*:ref: snbfa_ 14 7 6 4 4 4 4 4 4 */
00338 /*:ref: snbsl_ 14 8 6 4 4 4 4 4 6 4 */
00339 /*:ref: sasum_ 6 3 4 6 4 */
00340 /*:ref: sdsdot_ 6 6 4 6 6 4 6 4 */
00341 /*:ref: r1mach_ 6 1 4 */
00342 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00343 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
00344 extern E_f asinh_(real *x);
00345 /*:ref: inits_ 4 3 6 4 6 */
00346 /*:ref: r1mach_ 6 1 4 */
00347 /*:ref: csevl_ 6 3 6 6 4 */
00348 extern int chisl_(complex *a, integer *lda, integer *n, integer *kpvt, complex *b);
00349 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00350 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
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 /*:ref: d1mach_ 7 1 4 */
00353 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */
00354 /*:ref: dbsgq8_ 14 13 207 7 7 4 4 4 7 7 4 7 7 4 7 */
00355 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00358 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00359 /*:ref: dasum_ 7 3 4 7 4 */
00360 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00361 /*:ref: dswap_ 14 5 4 7 4 7 4 */
00362 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */
00363 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00364 /*:ref: dnrm2_ 7 3 4 7 4 */
00365 /*:ref: dlsi_ 14 11 7 4 4 4 4 7 7 7 4 7 4 */
00366 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00367 /*:ref: dscal_ 14 4 4 7 7 4 */
00368 extern int dsisl_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *b);
00369 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00370 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /* comlen la05dd_ 32 */
00373 /*:ref: xsetun_ 14 1 4 */
00374 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00375 extern int qk15_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00376 /*:ref: r1mach_ 6 1 4 */
00377 extern int snbsl_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *b, integer *job);
00378 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00379 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00380 extern int asyik_(real *x, real *fnu, integer *kode, real *flgik, real *ra, real *arg, integer *in, real *y);
00381 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: r1mach_ 6 1 4 */
00384 extern doublereal dbi_(doublereal *x);
00385 /*:ref: d1mach_ 7 1 4 */
00386 /*:ref: initds_ 4 3 7 4 6 */
00387 /*:ref: d9aimp_ 14 3 7 7 7 */
00388 /*:ref: dcsevl_ 7 3 7 7 4 */
00389 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00390 /*:ref: dbie_ 7 1 7 */
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 /*:ref: dasum_ 7 3 4 7 4 */
00393 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00394 /*:ref: dhfti_ 14 13 7 4 4 4 7 4 4 7 4 7 7 7 4 */
00395 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00396 /*:ref: dswap_ 14 5 4 7 4 7 4 */
00397 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */
00398 /*:ref: dlpdp_ 14 11 7 4 4 4 4 7 7 7 4 7 4 */
00399 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00400 /*:ref: dscal_ 14 4 4 7 7 4 */
00401 extern int dslvs_(doublereal *wm, integer *iwm, doublereal *x, doublereal *tem);
00402 /* comlen ddebd1_ 1876 */
00403 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */
00404 /*:ref: dgbsl_ 14 8 7 4 4 4 4 4 7 4 */
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 /* comlen la05ds_ 28 */
00407 /*:ref: xsetun_ 14 1 4 */
00408 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00409 extern int qk15i_(E_fp f, real *boun, integer *inf, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00410 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00413 /*:ref: r1mach_ 6 1 4 */
00414 /*:ref: enorm_ 6 2 4 6 */
00415 /*:ref: fdjac2_ 14 10 214 4 4 6 6 6 4 4 6 6 */
00416 /*:ref: qrfac_ 14 10 4 4 6 4 12 4 4 6 6 6 */
00417 /*:ref: rwupdt_ 14 8 4 6 4 6 6 6 6 6 */
00418 /*:ref: lmpar_ 14 12 4 6 4 4 6 6 6 6 6 6 6 6 */
00419 extern int asyjy_(S_fp funjy, real *x, real *fnu, real *flgjy, integer *in, real *y, real *wk, integer *iflw);
00420 /*:ref: r1mach_ 6 1 4 */
00421 /*:ref: i1mach_ 4 1 4 */
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 /*:ref: d1mach_ 7 1 4 */
00425 /*:ref: initds_ 4 3 7 4 6 */
00426 /*:ref: d9aimp_ 14 3 7 7 7 */
00427 /*:ref: dcsevl_ 7 3 7 7 4 */
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 /* comlen ddebd1_ 1876 */
00430 /*:ref: d1mach_ 7 1 4 */
00431 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00432 /*:ref: dhstrt_ 14 17 214 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 7 */
00433 /*:ref: dintyd_ 14 6 7 4 7 4 7 4 */
00434 /*:ref: dvnrms_ 7 3 4 7 7 */
00435 /*:ref: dstod_ 14 14 4 7 7 4 7 7 7 7 7 4 214 200 7 4 */
00436 extern int dsort_(doublereal *x, doublereal *y, integer *n, integer *kflag);
00437 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen la05dd_ 32 */
00440 /*:ref: xsetun_ 14 1 4 */
00441 /*:ref: la05ed_ 14 7 7 4 4 4 4 4 12 */
00442 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00443 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: r1mach_ 6 1 4 */
00448 /*:ref: enorm_ 6 2 4 6 */
00449 /*:ref: chkder_ 14 10 4 4 6 6 6 4 6 6 4 6 */
00450 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00451 /*:ref: fdjac3_ 14 10 214 4 4 6 6 6 4 4 6 6 */
00452 /*:ref: qrfac_ 14 10 4 4 6 4 12 4 4 6 6 6 */
00453 /*:ref: rwupdt_ 14 8 4 6 4 6 6 6 6 6 */
00454 /*:ref: lmpar_ 14 12 4 6 4 4 6 6 6 6 6 6 6 6 */
00455 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00456 extern E_f atanh_(real *x);
00457 /*:ref: inits_ 4 3 6 4 6 */
00458 /*:ref: r1mach_ 6 1 4 */
00459 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00460 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: d1mach_ 7 1 4 */
00464 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00465 /*:ref: d9lgmc_ 7 1 7 */
00466 /*:ref: dlnrel_ 7 1 7 */
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 /*:ref: d1mach_ 7 1 4 */
00469 /*:ref: xgetf_ 14 1 4 */
00470 /*:ref: j4save_ 4 3 4 4 12 */
00471 /*:ref: xsetf_ 14 1 4 */
00472 /*:ref: xermax_ 14 1 4 */
00473 /*:ref: dorthr_ 14 12 7 4 4 4 4 4 4 7 4 7 7 7 */
00474 /*:ref: dohtrl_ 14 7 7 4 4 7 4 7 7 */
00475 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00476 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00479 /*:ref: dsoseq_ 14 22 207 4 7 7 7 7 4 4 4 4 4 4 7 7 4 7 7 7 7 7 7 4 */
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 /* comlen la05ds_ 28 */
00482 /*:ref: xsetun_ 14 1 4 */
00483 /*:ref: la05es_ 14 7 6 4 4 4 4 4 12 */
00484 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00485 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00486 extern int qk21_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00487 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: snls1_ 14 26 200 4 4 4 6 6 6 4 6 6 6 4 6 6 4 6 4 4 4 4 4 6 6 6 6 6 */
00490 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00491 extern int avint_(real *x, real *y, integer *n, real *xlo, real *xup, real *ans, integer *ierr);
00492 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00493 extern int chksn4_(integer *mbdcnd, integer *nbdcnd, real *alpha, real *beta, S_fp cofx, logical *singlr);
00494 /* comlen spl4_ 80 */
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 /*:ref: d1mach_ 7 1 4 */
00497 /*:ref: dbspvd_ 14 8 7 4 4 7 4 4 7 7 */
00498 /*:ref: dbnfac_ 14 6 7 4 4 4 4 4 */
00499 /*:ref: dbnslv_ 14 6 7 4 4 4 4 7 */
00500 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00501 extern int dmacon_(void);
00502 /* comlen dml5mc_ 52 */
00503 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: d1mach_ 7 1 4 */
00506 /*:ref: i1mach_ 4 1 4 */
00507 /*:ref: dsossl_ 14 7 4 4 4 7 7 7 4 */
00508 extern int la05ed_(doublereal *a, integer *irn, integer *ip, integer *n, integer *iw, integer *ia, logical *reals);
00509 /* comlen la05dd_ 32 */
00510 extern int qk31_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00511 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00514 /*:ref: snls_ 14 27 200 200 4 4 4 6 6 6 4 6 6 6 4 6 6 4 6 4 4 4 4 4 6 6 6 6 6 */
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 /* comlen splpzz_ 80 */
00518 extern int dbintk_(doublereal *x, doublereal *y, doublereal *t, integer *n, integer *k, doublereal *bcoef, doublereal *q, doublereal *work);
00519 /*:ref: dbspvn_ 14 9 7 4 4 4 7 4 7 7 4 */
00520 /*:ref: dbnfac_ 14 6 7 4 4 4 4 4 */
00521 /*:ref: dbnslv_ 14 6 7 4 4 4 4 7 */
00522 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen dml18j_ 84 */
00525 /* comlen dml5mc_ 52 */
00526 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00527 /*:ref: dprvec_ 7 3 4 7 7 */
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 /* comlen la05ds_ 28 */
00531 extern int qk41_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc);
00532 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: scasum_ 6 3 4 8 4 */
00537 /*:ref: chpfa_ 14 4 8 4 4 4 */
00538 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00539 /*:ref: csscal_ 14 4 4 6 8 4 */
00540 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
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 /*:ref: d1mach_ 7 1 4 */
00543 /*:ref: dgamrn_ 7 1 7 */
00544 /*:ref: dhkseq_ 14 4 7 4 7 4 */
00545 /*:ref: dbdiff_ 14 2 4 7 */
00546 extern int dmout_(integer *m, integer *n, integer *lda, doublereal *a, char *ifmt, integer *idigit, ftnlen ifmt_len);
00547 /*:ref: i1mach_ 4 1 4 */
00548 extern int dspco_(doublereal *ap, integer *n, integer *kpvt, doublereal *rcond, doublereal *z__);
00549 /*:ref: dasum_ 7 3 4 7 4 */
00550 /*:ref: dspfa_ 14 4 7 4 4 4 */
00551 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00552 /*:ref: dscal_ 14 4 4 7 7 4 */
00553 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: r1mach_ 6 1 4 */
00559 /*:ref: enorm_ 6 2 4 6 */
00560 /*:ref: fdjac1_ 14 12 214 4 6 6 6 4 4 4 4 6 6 6 */
00561 /*:ref: qrfac_ 14 10 4 4 6 4 12 4 4 6 6 6 */
00562 /*:ref: qform_ 14 5 4 4 6 4 6 */
00563 /*:ref: dogleg_ 14 9 4 6 4 6 6 6 6 6 6 */
00564 /*:ref: r1updt_ 14 8 4 4 6 4 6 6 6 12 */
00565 /*:ref: r1mpyq_ 14 6 4 4 6 4 6 6 */
00566 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00570 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
00571 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00572 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00573 extern int dbkisr_(doublereal *x, integer *n, doublereal *sum, integer *ierr);
00574 /*:ref: d1mach_ 7 1 4 */
00575 /*:ref: dpsixn_ 7 1 4 */
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 /*:ref: d1mach_ 7 1 4 */
00578 /*:ref: denorm_ 7 2 4 7 */
00579 /*:ref: dqrslv_ 14 9 4 7 4 4 7 7 7 7 7 */
00580 extern int dspdi_(doublereal *ap, integer *n, integer *kpvt, doublereal *det, integer *inert, doublereal *work, integer *job);
00581 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00582 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00583 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00584 /*:ref: dswap_ 14 5 4 7 4 7 4 */
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 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: snsq_ 14 27 200 200 4 4 6 6 6 4 6 4 4 4 6 6 4 6 4 4 4 4 6 4 6 6 6 6 6 */
00590 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: icamax_ 4 3 4 8 4 */
00594 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00595 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00596 extern int dbksol_(integer *n, doublereal *a, doublereal *x);
00597 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00598 extern int dnbco_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *rcond, doublereal *z__);
00599 /*:ref: dasum_ 7 3 4 7 4 */
00600 /*:ref: dnbfa_ 14 7 7 4 4 4 4 4 4 */
00601 /*:ref: dscal_ 14 4 4 7 7 4 */
00602 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00603 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00604 extern doublereal dspenc_(doublereal *x);
00605 /*:ref: initds_ 4 3 7 4 7 */
00606 /*:ref: d1mach_ 7 1 4 */
00607 /*:ref: dcsevl_ 7 3 7 7 4 */
00608 extern int lgndrx_(integer *n, integer *k, real *aa, real *z__);
00609 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: lssods_ 14 20 6 6 6 4 4 4 4 4 4 6 6 4 4 6 6 6 6 6 6 6 */
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 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00616 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
00617 extern int dbndac_(doublereal *g, integer *mdg, integer *nb, integer *ip, integer *ir, integer *mt, integer *jt);
00618 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00619 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */
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 /*:ref: idamax_ 4 3 4 7 4 */
00623 /*:ref: dswap_ 14 5 4 7 4 7 4 */
00624 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: r1mach_ 6 1 4 */
00627 /*:ref: u11ls_ 14 15 6 4 4 4 6 6 4 4 4 4 6 6 6 4 4 */
00628 /*:ref: u12ls_ 14 14 6 4 4 4 6 4 4 4 4 6 6 6 4 4 */
00629 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00630 extern int qnc79_(E_fp fun, real *a, real *b, real *err, real *ans, integer *ierr, integer *k);
00631 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00632 /*:ref: r1mach_ 6 1 4 */
00633 /*:ref: i1mach_ 4 1 4 */
00634 extern int sopenm_(integer *ipage, integer *lpage);
00635 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00636 extern E_f bcrh_(real *xll, real *xrr, integer *iz, real *c__, real *a, real *bh, E_fp f, real *sgn);
00637 /* comlen ccblk_ 28 */
00638 extern E_f chu_(real *a, real *b, real *x);
00639 /*:ref: r1mach_ 6 1 4 */
00640 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00641 /*:ref: poch_ 6 2 6 6 */
00642 /*:ref: gamma_ 6 1 6 */
00643 /*:ref: gamr_ 6 1 6 */
00644 /*:ref: poch1_ 6 2 6 6 */
00645 /*:ref: exprel_ 6 1 6 */
00646 /*:ref: r9chu_ 6 3 6 6 6 */
00647 extern int dbndsl_(integer *mode, doublereal *g, integer *mdg, integer *nb, integer *ip, integer *ir, doublereal *x, integer *n, doublereal *rnorm);
00648 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00649 extern int dnbfa_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
00650 /*:ref: idamax_ 4 3 4 7 4 */
00651 /*:ref: dswap_ 14 5 4 7 4 7 4 */
00652 /*:ref: dscal_ 14 4 4 7 7 4 */
00653 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
00656 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00657 /*:ref: dplpmn_ 14 32 200 4 4 7 7 7 7 7 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 4 4 4 4 4 4 4 4 */
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 /*:ref: r1mach_ 6 1 4 */
00660 /*:ref: enorm_ 6 2 4 6 */
00661 /*:ref: qrsolv_ 14 9 4 6 4 4 6 6 6 6 6 */
00662 extern int qng_(E_fp f, real *a, real *b, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier);
00663 /*:ref: r1mach_ 6 1 4 */
00664 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00667 /*:ref: soseqs_ 14 22 200 4 6 6 6 6 4 4 4 4 4 4 6 6 4 6 6 6 6 6 6 4 */
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 /*:ref: pythag_ 6 2 6 6 */
00671 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */
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 /*:ref: dnbco_ 14 8 7 4 4 4 4 4 7 7 */
00675 /*:ref: d1mach_ 7 1 4 */
00676 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00677 /*:ref: dnbsl_ 14 8 7 4 4 4 4 4 7 4 */
00678 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
00679 extern int dspsl_(doublereal *ap, integer *n, integer *kpvt, doublereal *b);
00680 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00681 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00684 /*:ref: snrm2_ 6 3 4 6 4 */
00685 /*:ref: sscal_ 14 4 4 6 6 4 */
00686 /*:ref: wnnls_ 14 12 6 4 4 4 4 4 6 6 6 4 4 6 */
00687 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: r1mach_ 6 1 4 */
00691 /*:ref: i1mach_ 4 1 4 */
00692 /*:ref: sossol_ 14 7 4 4 4 6 6 6 4 */
00693 extern int besi_(real *x, real *alpha, integer *kode, integer *n, real *y, integer *nz);
00694 /*:ref: r1mach_ 6 1 4 */
00695 /*:ref: i1mach_ 4 1 4 */
00696 /*:ref: asyik_ 14 8 6 6 4 6 6 6 4 6 */
00697 /*:ref: alngam_ 6 1 6 */
00698 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00699 extern C_f clbeta_(complex * ret_val, complex *a, complex *b);
00700 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00701 /*:ref: clngam_ 8 2 8 8 */
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 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00705 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: d1mach_ 7 1 4 */
00708 /*:ref: dhstrt_ 14 17 214 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 7 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00711 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00712 /*:ref: sasum_ 6 3 4 6 4 */
00713 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00714 /*:ref: sswap_ 14 5 4 6 4 6 4 */
00715 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */
00716 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00717 /*:ref: snrm2_ 6 3 4 6 4 */
00718 /*:ref: lsi_ 14 11 6 4 4 4 4 6 6 6 4 6 4 */
00719 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00720 /*:ref: sscal_ 14 4 4 6 6 4 */
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 /*:ref: inits_ 4 3 6 4 6 */
00725 /*:ref: r1mach_ 6 1 4 */
00726 /*:ref: csevl_ 6 3 6 6 4 */
00727 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00728 /*:ref: besi0e_ 6 1 6 */
00729 extern C_f clngam_(complex * ret_val, complex *zin);
00730 /*:ref: r1mach_ 6 1 4 */
00731 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00732 /*:ref: clnrel_ 8 2 8 8 */
00733 /*:ref: c9lgmc_ 8 2 8 8 */
00734 /*:ref: carg_ 6 1 8 */
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 /*:ref: d1mach_ 7 1 4 */
00737 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00738 /*:ref: dbols_ 14 13 7 4 4 4 7 7 4 4 7 7 4 7 4 */
00739 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00740 /*:ref: dasum_ 7 3 4 7 4 */
00741 /*:ref: dnrm2_ 7 3 4 7 4 */
00742 /*:ref: dscal_ 14 4 4 7 7 4 */
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 /*:ref: d1mach_ 7 1 4 */
00745 /*:ref: denorm_ 7 2 4 7 */
00746 /*:ref: dckder_ 14 10 4 4 7 7 7 4 7 7 4 7 */
00747 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
00748 /*:ref: dfdjc3_ 14 10 214 4 4 7 7 7 4 4 7 7 */
00749 /*:ref: dqrfac_ 14 10 4 4 7 4 12 4 4 7 7 7 */
00750 /*:ref: dwupdt_ 14 8 4 7 4 7 7 7 7 7 */
00751 /*:ref: dmpar_ 14 12 4 7 4 4 7 7 7 7 7 7 7 7 */
00752 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: d1mach_ 7 1 4 */
00755 /*:ref: dhstrt_ 14 17 214 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 7 */
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 /*:ref: sasum_ 6 3 4 6 4 */
00758 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00759 /*:ref: hfti_ 14 13 6 4 4 4 6 4 4 6 4 6 6 6 4 */
00760 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00761 /*:ref: sswap_ 14 5 4 6 4 6 4 */
00762 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */
00763 /*:ref: lpdp_ 14 11 6 4 4 4 4 6 6 6 4 6 4 */
00764 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00765 /*:ref: sscal_ 14 4 4 6 6 4 */
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 /*:ref: sasum_ 6 3 4 6 4 */
00769 /*:ref: spbfa_ 14 5 6 4 4 4 4 */
00770 /*:ref: sscal_ 14 4 4 6 6 4 */
00771 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00772 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00773 extern E_f besi0e_(real *x);
00774 /*:ref: inits_ 4 3 6 4 6 */
00775 /*:ref: r1mach_ 6 1 4 */
00776 /*:ref: csevl_ 6 3 6 6 4 */
00777 extern C_f clnrel_(complex * ret_val, complex *z__);
00778 /*:ref: r1mach_ 6 1 4 */
00779 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00780 /*:ref: alnrel_ 6 1 6 */
00781 /*:ref: carg_ 6 1 8 */
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 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00784 /*:ref: idamax_ 4 3 4 7 4 */
00785 /*:ref: drotg_ 14 4 7 7 7 7 */
00786 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
00787 /*:ref: dnrm2_ 7 3 4 7 4 */
00788 /*:ref: dbolsm_ 14 16 7 4 4 4 7 7 4 4 7 7 4 7 7 7 4 4 */
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 /*:ref: dnls1_ 14 26 200 4 4 4 7 7 7 4 7 7 7 4 7 7 4 7 4 4 4 4 4 7 7 7 7 7 */
00791 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen ddebd1_ 1876 */
00794 /*:ref: dcfod_ 14 3 4 7 7 */
00795 /*:ref: dvnrms_ 7 3 4 7 7 */
00796 /*:ref: dpjac_ 14 13 4 7 7 4 7 7 7 7 4 214 200 7 4 */
00797 /*:ref: dslvs_ 14 4 7 4 7 7 */
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 /* comlen debdf1_ 1004 */
00800 /*:ref: r1mach_ 6 1 4 */
00801 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
00802 /*:ref: hstart_ 14 17 214 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 6 */
00803 /*:ref: intyd_ 14 6 6 4 6 4 6 4 */
00804 /*:ref: vnwrms_ 6 3 4 6 6 */
00805 /*:ref: stod_ 14 14 4 6 6 4 6 6 6 6 6 4 214 200 6 4 */
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 /*:ref: r1mach_ 6 1 4 */
00808 /*:ref: enorm_ 6 2 4 6 */
00809 extern int spbdi_(real *abd, integer *lda, integer *n, integer *m, real *det);
00810 extern E_f besi1_(real *x);
00811 /*:ref: inits_ 4 3 6 4 6 */
00812 /*:ref: r1mach_ 6 1 4 */
00813 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00814 /*:ref: csevl_ 6 3 6 6 4 */
00815 /*:ref: besi1e_ 6 1 6 */
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 /*:ref: dmout_ 14 7 4 4 4 7 13 4 124 */
00819 /*:ref: dvout_ 14 5 4 7 13 4 124 */
00820 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
00821 /*:ref: dnrm2_ 7 3 4 7 4 */
00822 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00823 /*:ref: ivout_ 14 5 4 4 13 4 124 */
00824 /*:ref: dswap_ 14 5 4 7 4 7 4 */
00825 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
00826 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00827 /*:ref: d1mach_ 7 1 4 */
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 /* comlen dml8sz_ 36 */
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 /*:ref: r1mach_ 6 1 4 */
00833 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00834 /*:ref: xgetf_ 14 1 4 */
00835 /*:ref: j4save_ 4 3 4 4 12 */
00836 /*:ref: xsetf_ 14 1 4 */
00837 /*:ref: xermax_ 14 1 4 */
00838 /*:ref: orthol_ 14 12 6 4 4 4 4 4 4 6 4 6 6 6 */
00839 /*:ref: ohtror_ 14 7 6 4 4 6 4 6 6 */
00840 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00841 /*:ref: sdsdot_ 6 6 4 6 6 4 6 4 */
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 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00845 extern E_f besi1e_(real *x);
00846 /*:ref: inits_ 4 3 6 4 6 */
00847 /*:ref: r1mach_ 6 1 4 */
00848 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00849 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: cmposp_ 14 16 4 4 8 8 8 8 4 8 8 8 8 8 8 8 8 8 */
00852 /*:ref: cmposd_ 14 13 4 4 4 8 8 8 8 4 8 8 8 8 8 */
00853 /*:ref: cmposn_ 14 18 4 4 4 4 8 8 8 8 4 8 8 8 8 8 8 8 8 8 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00856 /*:ref: i1mach_ 4 1 4 */
00857 /*:ref: d1mach_ 7 1 4 */
00858 /*:ref: dbvalu_ 7 8 7 7 4 4 4 7 4 7 */
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 /*:ref: d1mach_ 7 1 4 */
00861 /*:ref: denorm_ 7 2 4 7 */
00862 /*:ref: dfdjc1_ 14 12 214 4 7 7 7 4 4 4 4 7 7 7 */
00863 /*:ref: dqrfac_ 14 10 4 4 7 4 12 4 4 7 7 7 */
00864 /*:ref: dqform_ 14 5 4 4 7 4 7 */
00865 /*:ref: ddoglg_ 14 9 4 7 4 7 7 7 7 7 7 */
00866 /*:ref: d1updt_ 14 8 4 4 7 4 7 7 7 12 */
00867 /*:ref: d1mpyq_ 14 6 4 4 7 4 7 7 */
00868 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00869 extern int dstway_(doublereal *u, doublereal *v, doublereal *yhp, integer *inout, doublereal *stowa);
00870 /* comlen dml8sz_ 36 */
00871 /* comlen dml15t_ 148 */
00872 /* comlen dml18j_ 84 */
00873 /*:ref: dstor1_ 14 7 7 7 7 7 4 4 4 */
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 /*:ref: r1mach_ 6 1 4 */
00876 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00877 /*:ref: xgetf_ 14 1 4 */
00878 /*:ref: j4save_ 4 3 4 4 12 */
00879 /*:ref: xsetf_ 14 1 4 */
00880 /*:ref: xermax_ 14 1 4 */
00881 /*:ref: orthor_ 14 12 6 4 4 4 4 4 4 6 4 6 6 6 */
00882 /*:ref: ohtrol_ 14 7 6 4 4 6 4 6 6 */
00883 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00887 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00888 extern int besj_(real *x, real *alpha, integer *n, real *y, integer *nz);
00889 /*:ref: r1mach_ 6 1 4 */
00890 /*:ref: i1mach_ 4 1 4 */
00891 /*:ref: asyjy_ 14 8 200 6 6 6 4 6 6 4 */
00892 /*:ref: alngam_ 6 1 6 */
00893 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00894 extern int cmpcsg_(integer *n, integer *ijump, real *fnum, real *fden, complex *a);
00895 /*:ref: pimach_ 6 1 6 */
00896 extern doublereal dbsi0e_(doublereal *x);
00897 /*:ref: d1mach_ 7 1 4 */
00898 /*:ref: initds_ 4 3 7 4 6 */
00899 /*:ref: dcsevl_ 7 3 7 7 4 */
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 /*:ref: dnsq_ 14 27 200 200 4 4 7 7 7 4 7 4 4 4 7 7 4 7 4 4 4 4 7 4 7 7 7 7 7 */
00902 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dlssud_ 14 20 7 7 7 4 4 4 7 4 4 4 4 4 7 7 4 7 7 7 4 7 */
00905 extern int macon_(void);
00906 /* comlen ml5mco_ 28 */
00907 /*:ref: r1mach_ 6 1 4 */
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 /* comlen spl4_ 80 */
00911 /*:ref: chksn4_ 14 6 4 4 6 6 214 12 */
00912 /*:ref: tris4_ 14 7 4 6 6 6 6 6 6 */
00913 /*:ref: ortho4_ 14 5 6 4 6 6 6 */
00914 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
00915 /*:ref: minso4_ 14 5 6 4 6 6 6 */
00916 /*:ref: defe4_ 14 4 214 4 6 6 */
00917 extern E_f besj0_(real *x);
00918 /*:ref: inits_ 4 3 6 4 6 */
00919 /*:ref: r1mach_ 6 1 4 */
00920 /*:ref: csevl_ 6 3 6 6 4 */
00921 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00922 extern int cmpmrg_(complex *tcos, integer *i1, integer *m1, integer *i2, integer *m2, integer *i3);
00923 extern doublereal dbsi1e_(doublereal *x);
00924 /*:ref: d1mach_ 7 1 4 */
00925 /*:ref: initds_ 4 3 7 4 6 */
00926 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00927 /*:ref: dcsevl_ 7 3 7 7 4 */
00928 extern int dnterv_(doublereal *xt, integer *lxt, doublereal *x, integer *ileft, integer *mflag);
00929 extern int dsvco_(doublereal *rsav, integer *isav);
00930 /* comlen ddebd1_ 1876 */
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 /* comlen splpzz_ 80 */
00935 /*:ref: chksng_ 14 9 4 4 6 6 6 6 214 214 12 */
00936 /*:ref: trisp_ 14 7 4 6 6 6 6 6 6 */
00937 /*:ref: blktri_ 14 15 4 4 4 6 6 6 4 4 6 6 6 4 6 4 6 */
00938 /*:ref: orthog_ 14 5 6 4 6 6 6 */
00939 /*:ref: minsol_ 14 5 6 4 6 6 6 */
00940 /*:ref: defer_ 14 5 214 214 4 6 6 */
00941 extern E_f besj1_(real *x);
00942 /*:ref: inits_ 4 3 6 4 6 */
00943 /*:ref: r1mach_ 6 1 4 */
00944 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00945 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: cmptrx_ 14 10 4 4 4 8 8 8 8 8 8 8 */
00948 /*:ref: cmpcsg_ 14 5 4 4 6 6 8 */
00949 /*:ref: cmpmrg_ 14 6 8 4 4 4 4 4 */
00950 extern doublereal dbsk0e_(doublereal *x);
00951 /*:ref: d1mach_ 7 1 4 */
00952 /*:ref: initds_ 4 3 7 4 6 */
00953 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00954 /*:ref: dbesi0_ 7 1 7 */
00955 /*:ref: dcsevl_ 7 3 7 7 4 */
00956 extern int dogleg_(integer *n, real *r__, integer *lr, real *diag, real *qtb, real *delta, real *x, real *wa1, real *wa2);
00957 /*:ref: r1mach_ 6 1 4 */
00958 /*:ref: enorm_ 6 2 4 6 */
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 /*:ref: dnrm2_ 7 3 4 7 4 */
00961 /*:ref: dscal_ 14 4 4 7 7 4 */
00962 /*:ref: ddot_ 7 5 4 7 4 7 4 */
00963 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
00964 /*:ref: drotg_ 14 4 7 7 7 7 */
00965 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
00966 /*:ref: dswap_ 14 5 4 7 4 7 4 */
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 /*:ref: inits_ 4 3 6 4 6 */
00971 /*:ref: r1mach_ 6 1 4 */
00972 /*:ref: csevl_ 6 3 6 6 4 */
00973 extern int besk_(real *x, real *fnu, integer *kode, integer *n, real *y, integer *nz);
00974 /*:ref: i1mach_ 4 1 4 */
00975 /*:ref: r1mach_ 6 1 4 */
00976 /*:ref: asyik_ 14 8 6 6 4 6 6 6 4 6 */
00977 /*:ref: besk0_ 6 1 6 */
00978 /*:ref: besk0e_ 6 1 6 */
00979 /*:ref: besk1_ 6 1 6 */
00980 /*:ref: besk1e_ 6 1 6 */
00981 /*:ref: besknu_ 14 6 6 6 4 4 6 4 */
00982 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: cmpcsg_ 14 5 4 4 6 6 8 */
00985 /*:ref: cmptrx_ 14 10 4 4 4 8 8 8 8 8 8 8 */
00986 /*:ref: cmpmrg_ 14 6 8 4 4 4 4 4 */
00987 /*:ref: cmptr3_ 14 13 4 8 8 8 4 8 8 8 8 8 8 8 8 */
00988 extern doublereal dbsk1e_(doublereal *x);
00989 /*:ref: d1mach_ 7 1 4 */
00990 /*:ref: initds_ 4 3 7 4 6 */
00991 /*:ref: xerror_ 14 5 13 4 4 4 124 */
00992 /*:ref: dbesi1_ 7 1 7 */
00993 /*:ref: dcsevl_ 7 3 7 7 4 */
00994 extern int dohtrl_(doublereal *q, integer *n, integer *nrda, doublereal *diag, integer *irank, doublereal *div, doublereal *td);
00995 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01001 /*:ref: iploc_ 4 3 4 6 4 */
01002 /*:ref: prwpge_ 14 5 4 4 4 6 4 */
01003 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */
01004 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01005 extern E_f besk0_(real *x);
01006 /*:ref: inits_ 4 3 6 4 6 */
01007 /*:ref: r1mach_ 6 1 4 */
01008 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01009 /*:ref: besi0_ 6 1 6 */
01010 /*:ref: csevl_ 6 3 6 6 4 */
01011 /*:ref: besk0e_ 6 1 6 */
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 /*:ref: cmposd_ 14 13 4 4 4 8 8 8 8 4 8 8 8 8 8 */
01014 /*:ref: cmposn_ 14 18 4 4 4 4 8 8 8 8 4 8 8 8 8 8 8 8 8 8 */
01015 extern int dbskes_(doublereal *xnu, doublereal *x, integer *nin, doublereal *bke);
01016 /*:ref: d1mach_ 7 1 4 */
01017 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01018 /*:ref: d9knus_ 14 5 7 7 7 7 4 */
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 /*:ref: d1mach_ 7 1 4 */
01021 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01022 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01023 /*:ref: dcscal_ 14 12 7 4 4 4 7 7 7 7 7 7 4 4 */
01024 extern int dtrco_(doublereal *t, integer *ldt, integer *n, doublereal *rcond, doublereal *z__, integer *job);
01025 /*:ref: dasum_ 7 3 4 7 4 */
01026 /*:ref: dscal_ 14 4 4 7 7 4 */
01027 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */
01032 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01033 /*:ref: sasum_ 6 3 4 6 4 */
01034 extern E_f besk0e_(real *x);
01035 /*:ref: inits_ 4 3 6 4 6 */
01036 /*:ref: r1mach_ 6 1 4 */
01037 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01038 /*:ref: besi0_ 6 1 6 */
01039 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: i1mach_ 4 1 4 */
01043 /*:ref: d1mach_ 7 1 4 */
01044 /*:ref: dbkisr_ 14 4 7 4 7 4 */
01045 /*:ref: dbkias_ 14 10 7 4 4 7 7 4 4 7 7 4 */
01046 /*:ref: dexint_ 14 8 7 4 4 4 7 7 4 4 */
01047 /*:ref: dgamrn_ 7 1 7 */
01048 extern int dp1vlu_(integer *l, integer *nder, doublereal *x, doublereal *yfit, doublereal *yp, doublereal *a);
01049 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
01050 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01051 extern int dtrdi_(doublereal *t, integer *ldt, integer *n, doublereal *det, integer *job, integer *info);
01052 /*:ref: dscal_ 14 4 4 7 7 4 */
01053 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /* comlen ml18jr_ 72 */
01056 /* comlen ml5mco_ 28 */
01057 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01058 /*:ref: prvec_ 6 3 4 6 6 */
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 /*:ref: inits_ 4 3 6 4 6 */
01063 /*:ref: r1mach_ 6 1 4 */
01064 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01065 /*:ref: besi1_ 6 1 6 */
01066 /*:ref: csevl_ 6 3 6 6 4 */
01067 /*:ref: besk1e_ 6 1 6 */
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 /*:ref: i1mach_ 4 1 4 */
01071 /*:ref: d1mach_ 7 1 4 */
01072 /*:ref: dgamma_ 7 1 7 */
01073 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01074 extern int dpbco_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *rcond, doublereal *z__, integer *info);
01075 /*:ref: dasum_ 7 3 4 7 4 */
01076 /*:ref: dpbfa_ 14 5 7 4 4 4 4 */
01077 /*:ref: dscal_ 14 4 4 7 7 4 */
01078 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
01079 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01080 extern int dtrsl_(doublereal *t, integer *ldt, integer *n, doublereal *b, integer *job, integer *info);
01081 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
01082 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01083 extern int minfit_(integer *nm, integer *m, integer *n, real *a, real *w, integer *ip, real *b, integer *ierr, real *rv1);
01084 /*:ref: pythag_ 6 2 6 6 */
01085 extern E_f r1mach_(integer *i__);
01086 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01087 extern int spl1d1_(integer *n, real *x, real *f, real *w, integer *iop, integer *ij, real *a, real *b, real *c__);
01088 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01089 extern E_f besk1e_(real *x);
01090 /*:ref: inits_ 4 3 6 4 6 */
01091 /*:ref: r1mach_ 6 1 4 */
01092 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01093 /*:ref: besi1_ 6 1 6 */
01094 /*:ref: csevl_ 6 3 6 6 4 */
01095 extern int cnbco_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, complex *z__);
01096 /*:ref: scasum_ 6 3 4 8 4 */
01097 /*:ref: cnbfa_ 14 7 8 4 4 4 4 4 4 */
01098 /*:ref: csscal_ 14 4 4 6 8 4 */
01099 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01100 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01101 extern int dbspdr_(doublereal *t, doublereal *a, integer *n, integer *k, integer *nderiv, doublereal *ad);
01102 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dnrm2_ 7 3 4 7 4 */
01106 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01107 /*:ref: dswap_ 14 5 4 7 4 7 4 */
01108 /*:ref: iswap_ 14 5 4 4 4 4 4 */
01109 /*:ref: idamax_ 4 3 4 7 4 */
01110 /*:ref: dscal_ 14 4 4 7 7 4 */
01111 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01112 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
01113 extern int minso4_(real *usol, integer *idmn, real *zn, real *zm, real *pertb);
01114 /* comlen spl4_ 80 */
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 /*:ref: interv_ 14 5 6 4 6 4 4 */
01118 extern int beskes_(real *xnu, real *x, integer *nin, real *bke);
01119 /*:ref: r1mach_ 6 1 4 */
01120 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01121 /*:ref: r9knus_ 14 5 6 6 6 6 4 */
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 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */
01125 /*:ref: dbspvn_ 14 9 7 4 4 4 7 4 7 7 4 */
01126 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01127 extern int dpbfa_(doublereal *abd, integer *lda, integer *n, integer *m, integer *info);
01128 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: dnrm2_ 7 3 4 7 4 */
01131 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01132 /*:ref: dswap_ 14 5 4 7 4 7 4 */
01133 /*:ref: iswap_ 14 5 4 4 4 4 4 */
01134 /*:ref: idamax_ 4 3 4 7 4 */
01135 /*:ref: dscal_ 14 4 4 7 7 4 */
01136 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01137 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
01138 extern int minsol_(real *usol, integer *idmn, real *zn, real *zm, real *pertb);
01139 /* comlen splpzz_ 80 */
01140 extern int r1updt_(integer *m, integer *n, real *s, integer *ls, real *u, real *v, real *w, logical *sing);
01141 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: spl1d1_ 14 9 4 6 6 6 4 4 6 6 6 */
01144 extern int besknu_(real *x, real *fnu, integer *kode, integer *n, real *y, integer *nz);
01145 /*:ref: i1mach_ 4 1 4 */
01146 /*:ref: r1mach_ 6 1 4 */
01147 /*:ref: gamma_ 6 1 6 */
01148 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01149 extern int cnbfa_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
01150 /*:ref: icamax_ 4 3 4 8 4 */
01151 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01152 /*:ref: cscal_ 14 4 4 8 8 4 */
01153 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01154 extern int dbsppp_(doublereal *t, doublereal *a, integer *n, integer *k, integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, doublereal *work);
01155 /*:ref: dbspdr_ 14 6 7 7 4 4 4 7 */
01156 /*:ref: dbspev_ 14 9 7 7 4 4 4 7 4 7 7 */
01157 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01158 extern int dpbsl_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *b);
01159 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01160 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: dnrm2_ 7 3 4 7 4 */
01163 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01164 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
01165 /*:ref: dswap_ 14 5 4 7 4 7 4 */
01166 extern int mpadd_(integer *x, integer *y, integer *z__);
01167 /*:ref: mpadd2_ 14 5 4 4 4 4 4 */
01168 extern int r9aimp_(real *x, real *ampl, real *theta);
01169 /*:ref: r1mach_ 6 1 4 */
01170 /*:ref: inits_ 4 3 6 4 6 */
01171 /*:ref: csevl_ 6 3 6 6 4 */
01172 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen spl2d4_ 160 */
01175 /*:ref: interv_ 14 5 6 4 6 4 4 */
01176 /*:ref: spl2d3_ 6 2 4 4 */
01177 extern int besks_(real *xnu, real *x, integer *nin, real *bk);
01178 /*:ref: r1mach_ 6 1 4 */
01179 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01180 /*:ref: beskes_ 14 4 6 6 4 6 */
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 /*:ref: cnbco_ 14 8 8 4 4 4 4 4 6 8 */
01183 /*:ref: r1mach_ 6 1 4 */
01184 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01185 /*:ref: cnbsl_ 14 8 8 4 4 4 4 4 8 4 */
01186 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
01187 extern int dbspvd_(doublereal *t, integer *k, integer *nderiv, doublereal *x, integer *ileft, integer *ldvnik, doublereal *vnikx, doublereal *work);
01188 /*:ref: dbspvn_ 14 9 7 4 4 4 7 4 7 7 4 */
01189 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01190 extern int dpchce_(integer *ic, doublereal *vc, integer *n, doublereal *x, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd, integer *ierr);
01191 /*:ref: dpchdf_ 7 4 4 7 7 4 */
01192 /*:ref: dpchst_ 7 2 7 7 */
01193 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dnrm2_ 7 3 4 7 4 */
01196 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01197 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
01198 /*:ref: dswap_ 14 5 4 7 4 7 4 */
01199 extern int mpadd2_(integer *x, integer *y, integer *z__, integer *y1, integer *trunc);
01200 /* comlen mpcom_ 68 */
01201 /*:ref: mpstr_ 14 2 4 4 */
01202 /*:ref: mpchk_ 14 2 4 4 */
01203 /*:ref: mperr_ 14 0 */
01204 /*:ref: mpadd3_ 14 5 4 4 4 4 4 */
01205 /*:ref: mpnzr_ 14 4 4 4 4 4 */
01206 extern E_f r9atn1_(real *x);
01207 /*:ref: r1mach_ 6 1 4 */
01208 /*:ref: inits_ 4 3 6 4 6 */
01209 /*:ref: csevl_ 6 3 6 6 4 */
01210 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01211 extern E_f spl2d3_(integer *ixd, integer *iyd);
01212 /* comlen spl2d4_ 160 */
01213 extern int besy_(real *x, real *fnu, integer *n, real *y);
01214 /*:ref: i1mach_ 4 1 4 */
01215 /*:ref: r1mach_ 6 1 4 */
01216 /*:ref: asyjy_ 14 8 200 6 6 6 4 6 6 4 */
01217 /*:ref: besy0_ 6 1 6 */
01218 /*:ref: besy1_ 6 1 6 */
01219 /*:ref: besynu_ 14 4 6 6 4 6 */
01220 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01223 /*:ref: cnbfa_ 14 7 8 4 4 4 4 4 4 */
01224 /*:ref: cnbsl_ 14 8 8 4 4 4 4 4 8 4 */
01225 /*:ref: scasum_ 6 3 4 8 4 */
01226 /*:ref: cdcdot_ 8 7 8 4 8 8 4 8 4 */
01227 /*:ref: r1mach_ 6 1 4 */
01228 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01229 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
01230 extern int dbspvn_(doublereal *t, integer *jhigh, integer *k, integer *index, doublereal *x, integer *ileft, doublereal *vnikx, doublereal *work, integer *iwork);
01231 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01232 extern int dpchci_(integer *n, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd);
01233 /*:ref: dpchst_ 7 2 7 7 */
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 /*:ref: d1mach_ 7 1 4 */
01236 /*:ref: du11us_ 14 15 7 4 4 4 7 7 4 4 4 4 7 7 7 4 4 */
01237 /*:ref: du12us_ 14 14 7 4 4 4 7 4 4 4 4 7 7 7 4 4 */
01238 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01239 extern int mpadd3_(integer *x, integer *y, integer *s, integer *med, integer *re);
01240 /* comlen mpcom_ 68 */
01241 extern E_f r9chu_(real *a, real *b, real *z__);
01242 /*:ref: r1mach_ 6 1 4 */
01243 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: interv_ 14 5 6 4 6 4 4 */
01246 /*:ref: splint_ 6 7 4 6 6 6 4 6 6 */
01247 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01248 extern E_f besy0_(real *x);
01249 /*:ref: inits_ 4 3 6 4 6 */
01250 /*:ref: r1mach_ 6 1 4 */
01251 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01252 /*:ref: besj0_ 6 1 6 */
01253 /*:ref: csevl_ 6 3 6 6 4 */
01254 extern int cnbsl_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *b, integer *job);
01255 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01256 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01257 extern int dbsqad_(doublereal *t, doublereal *bcoef, integer *n, integer *k, doublereal *x1, doublereal *x2, doublereal *bquad, doublereal *work);
01258 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */
01259 /*:ref: dbvalu_ 7 8 7 7 4 4 4 7 4 7 */
01260 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01261 extern int dpchcs_(doublereal *switch__, integer *n, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd, integer *ierr);
01262 /*:ref: dpchst_ 7 2 7 7 */
01263 /*:ref: dpchsw_ 14 7 7 4 7 7 7 7 4 */
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 /* comlen mpcom_ 68 */
01267 /*:ref: i1mach_ 4 1 4 */
01268 extern E_f r9gmic_(real *a, real *x, real *alx);
01269 /*:ref: r1mach_ 6 1 4 */
01270 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01271 /*:ref: alngam_ 6 1 6 */
01272 extern E_f splint_(integer *n, real *x, real *f, real *w, integer *ij, real *a, real *b);
01273 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01274 /*:ref: interv_ 14 5 6 4 6 4 4 */
01275 /*:ref: spintg_ 6 8 4 6 6 6 6 6 4 4 */
01276 extern E_f besy1_(real *x);
01277 /*:ref: inits_ 4 3 6 4 6 */
01278 /*:ref: r1mach_ 6 1 4 */
01279 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01280 /*:ref: besj1_ 6 1 6 */
01281 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: d1mach_ 7 1 4 */
01285 /*:ref: dgamma_ 7 1 7 */
01286 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01287 extern doublereal dpchdf_(integer *k, doublereal *x, doublereal *s, integer *ierr);
01288 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01289 extern int dvecs_(integer *ncomp, integer *lnfc, doublereal *yhp, doublereal *work, integer *iwork, integer *inhomo, integer *iflag);
01290 /* comlen dml18j_ 84 */
01291 /*:ref: dmgsbv_ 14 13 4 4 7 4 4 4 7 7 4 4 7 7 7 */
01292 extern int mpcdm_(doublereal *dx, integer *z__);
01293 /* comlen mpcom_ 68 */
01294 /*:ref: mpchk_ 14 2 4 4 */
01295 /*:ref: mpnzr_ 14 4 4 4 4 4 */
01296 /*:ref: mpdivi_ 14 3 4 4 4 */
01297 /*:ref: mpmuli_ 14 3 4 4 4 */
01298 extern E_f r9gmit_(real *a, real *x, real *algap1, real *sgngam, real *alx);
01299 /*:ref: r1mach_ 6 1 4 */
01300 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01301 /*:ref: alngam_ 6 1 6 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
01304 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01305 /*:ref: splpmn_ 14 32 200 4 4 6 6 6 6 6 4 4 6 6 6 6 6 6 6 6 6 6 6 6 6 6 4 4 4 4 4 4 4 4 */
01306 extern int besynu_(real *x, real *fnu, integer *n, real *y);
01307 /*:ref: r1mach_ 6 1 4 */
01308 /*:ref: gamma_ 6 1 6 */
01309 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01310 extern int comhes_(integer *nm, integer *n, integer *low, integer *igh, real *ar, real *ai, integer *int__);
01311 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */
01312 extern doublereal dbvalu_(doublereal *t, doublereal *a, integer *n, integer *k, integer *ideriv, doublereal *x, integer *inbv, doublereal *work);
01313 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */
01314 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dchfdv_ 14 12 7 7 7 7 7 7 4 7 7 7 4 4 */
01317 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01318 extern doublereal dvnorm_(doublereal *v, integer *ncomp);
01319 extern int mpchk_(integer *i__, integer *j);
01320 /* comlen mpcom_ 68 */
01321 /*:ref: i1mach_ 4 1 4 */
01322 /*:ref: mperr_ 14 0 */
01323 extern int r9knus_(real *xnu, real *x, real *bknu, real *bknu1, integer *iswtch);
01324 /*:ref: inits_ 4 3 6 4 6 */
01325 /*:ref: r1mach_ 6 1 4 */
01326 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01327 /*:ref: gamma_ 6 1 6 */
01328 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */
01331 /*:ref: sasum_ 6 3 4 6 4 */
01332 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01333 /*:ref: iploc_ 4 3 4 6 4 */
01334 /*:ref: prwpge_ 14 5 4 4 4 6 4 */
01335 extern E_f beta_(real *a, real *b);
01336 /*:ref: gamlim_ 14 2 6 6 */
01337 /*:ref: r1mach_ 6 1 4 */
01338 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01339 /*:ref: gamma_ 6 1 6 */
01340 /*:ref: albeta_ 6 2 6 6 */
01341 extern int comlr_(integer *nm, integer *n, integer *low, integer *igh, real *hr, real *hi, real *wr, real *wi, integer *ierr);
01342 /*:ref: csroot_ 14 4 6 6 6 6 */
01343 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */
01344 extern int dbvder_(doublereal *x, doublereal *y, doublereal *yp, doublereal *g, integer *ipar);
01345 /* comlen dml8sz_ 36 */
01346 /* comlen dmlivp_ 4 */
01347 /*:ref: duivp_ 14 3 7 7 7 */
01348 /*:ref: dfmat_ 14 3 7 7 7 */
01349 /*:ref: dgvec_ 14 2 7 7 */
01350 /*:ref: duvec_ 14 3 7 7 7 */
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 /*:ref: dchfev_ 14 11 7 7 7 7 7 7 4 7 7 4 4 */
01353 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01354 extern doublereal dvnrms_(integer *n, doublereal *v, doublereal *w);
01355 extern int mpcmd_(integer *x, doublereal *dz);
01356 /* comlen mpcom_ 68 */
01357 /*:ref: mpchk_ 14 2 4 4 */
01358 /*:ref: mperr_ 14 0 */
01359 extern E_f r9lgic_(real *a, real *x, real *alx);
01360 /*:ref: r1mach_ 6 1 4 */
01361 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen la05ds_ 28 */
01364 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */
01365 /*:ref: sasum_ 6 3 4 6 4 */
01366 /*:ref: la05as_ 14 10 6 4 4 4 4 4 4 6 6 6 */
01367 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01368 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
01369 extern E_f betai_(real *x, real *pin, real *qin);
01370 /*:ref: r1mach_ 6 1 4 */
01371 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01372 /*:ref: albeta_ 6 2 6 6 */
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 /*:ref: csroot_ 14 4 6 6 6 6 */
01375 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */
01376 extern doublereal dbvlue_(doublereal *t, doublereal *a, integer *n, integer *k, doublereal *x, integer *ideriv);
01377 /*:ref: dnterv_ 14 5 7 4 7 4 4 */
01378 extern doublereal dpchia_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, doublereal *a, doublereal *b, integer *ierr);
01379 /*:ref: dchfiv_ 7 9 7 7 7 7 7 7 7 7 4 */
01380 /*:ref: dpchid_ 7 9 4 7 7 7 4 12 4 4 4 */
01381 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01382 extern int dvout_(integer *n, doublereal *dx, char *ifmt, integer *idigit, ftnlen ifmt_len);
01383 /*:ref: i1mach_ 4 1 4 */
01384 extern int mpdivi_(integer *x, integer *iy, integer *z__);
01385 /* comlen mpcom_ 68 */
01386 /*:ref: mpstr_ 14 2 4 4 */
01387 /*:ref: mpnzr_ 14 4 4 4 4 4 */
01388 /*:ref: mpchk_ 14 2 4 4 */
01389 /*:ref: mperr_ 14 0 */
01390 /*:ref: mpunfl_ 14 1 4 */
01391 extern E_f r9lgit_(real *a, real *x, real *algap1);
01392 /*:ref: r1mach_ 6 1 4 */
01393 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01396 /*:ref: iploc_ 4 3 4 6 4 */
01397 /*:ref: prwpge_ 14 5 4 4 4 6 4 */
01398 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */
01399 /*:ref: sasum_ 6 3 4 6 4 */
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 /*:ref: r1mach_ 6 1 4 */
01402 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */
01403 /*:ref: bsgq8_ 14 13 206 6 6 4 4 4 6 6 4 6 6 4 6 */
01404 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01405 extern int compb_(integer *n, integer *ierror, real *an, real *bn, real *cn, real *b, real *ah, real *bh);
01406 /* comlen cblkt_ 28 */
01407 /*:ref: epmach_ 6 1 6 */
01408 /*:ref: indxb_ 14 4 4 4 4 4 */
01409 /*:ref: tevls_ 14 4 4 6 6 4 */
01410 /*:ref: ppadd_ 14 7 4 4 6 6 6 6 6 */
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 /* comlen dml8sz_ 36 */
01413 /* comlen dml15t_ 148 */
01414 /* comlen dml18j_ 84 */
01415 /*:ref: dlssud_ 14 20 7 7 7 4 4 4 7 4 4 4 4 4 7 7 4 7 7 7 4 7 */
01416 /*:ref: dvecs_ 14 7 4 4 7 7 4 4 4 */
01417 /*:ref: dstor1_ 14 7 7 7 7 7 4 4 4 */
01418 /*:ref: dstway_ 14 5 7 7 7 4 7 */
01419 /*:ref: drkfab_ 14 21 4 7 4 4 4 7 4 7 4 4 7 4 7 7 7 7 7 7 7 4 4 */
01420 /*:ref: dcoef_ 14 18 7 7 4 4 4 4 7 7 7 4 7 7 7 7 7 4 4 4 */
01421 /*:ref: dbksol_ 14 3 4 7 7 */
01422 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: dpchci_ 14 5 4 7 7 7 4 */
01425 /*:ref: dpchcs_ 14 7 7 4 7 7 7 4 4 */
01426 /*:ref: dpchce_ 14 9 4 7 4 7 7 7 7 4 4 */
01427 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: drotmg_ 14 5 7 7 7 7 7 */
01430 /*:ref: drotm_ 14 6 4 7 4 7 4 7 */
01431 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
01432 /*:ref: dswap_ 14 5 4 7 4 7 4 */
01433 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */
01434 /*:ref: idamax_ 4 3 4 7 4 */
01435 extern int mperr_(void);
01436 /* comlen mpcom_ 68 */
01437 extern E_f r9lgmc_(real *x);
01438 /*:ref: inits_ 4 3 6 4 6 */
01439 /*:ref: r1mach_ 6 1 4 */
01440 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01441 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: r1mach_ 6 1 4 */
01445 /*:ref: inits_ 4 3 6 4 6 */
01446 /*:ref: r9aimp_ 14 3 6 6 6 */
01447 /*:ref: csevl_ 6 3 6 6 4 */
01448 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01449 /*:ref: bie_ 6 1 6 */
01450 extern int comqr_(integer *nm, integer *n, integer *low, integer *igh, real *hr, real *hi, real *wr, real *wi, integer *ierr);
01451 /*:ref: pythag_ 6 2 6 6 */
01452 /*:ref: csroot_ 14 4 6 6 6 6 */
01453 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */
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 /* comlen dml8sz_ 36 */
01456 /* comlen dml18j_ 84 */
01457 /* comlen dml17b_ 72 */
01458 /* comlen dml15t_ 148 */
01459 /* comlen dml5mc_ 52 */
01460 /*:ref: dmacon_ 14 0 */
01461 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
01462 /*:ref: dexbvp_ 14 12 7 4 7 7 4 7 7 4 7 4 7 4 */
01463 extern doublereal dpchid_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, integer *ia, integer *ib, integer *ierr);
01464 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
01467 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01468 /*:ref: dnrm2_ 7 3 4 7 4 */
01469 /*:ref: dscal_ 14 4 4 7 7 4 */
01470 /*:ref: dasum_ 7 3 4 7 4 */
01471 /*:ref: idamax_ 4 3 4 7 4 */
01472 /*:ref: d1mach_ 7 1 4 */
01473 /*:ref: dwnlit_ 14 13 7 4 4 4 4 4 4 7 7 7 4 7 12 */
01474 /*:ref: dswap_ 14 5 4 7 4 7 4 */
01475 /*:ref: drotmg_ 14 5 7 7 7 7 7 */
01476 /*:ref: drotm_ 14 6 4 7 4 7 4 7 */
01477 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */
01478 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
01479 extern int mpmaxr_(integer *x);
01480 /* comlen mpcom_ 68 */
01481 /*:ref: mpchk_ 14 2 4 4 */
01482 extern E_f r9ln2r_(real *x);
01483 /*:ref: r1mach_ 6 1 4 */
01484 /*:ref: inits_ 4 3 6 4 6 */
01485 /*:ref: csevl_ 6 3 6 6 4 */
01486 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen la05ds_ 28 */
01489 /*:ref: spopt_ 14 9 6 4 4 4 6 4 6 4 12 */
01490 /*:ref: pinitm_ 14 6 4 4 6 4 4 4 */
01491 /*:ref: splpup_ 14 14 200 4 4 6 6 6 6 4 4 6 4 12 6 6 */
01492 /*:ref: spinit_ 14 20 4 4 6 6 6 4 6 4 6 6 6 6 6 6 6 6 4 4 4 12 */
01493 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01494 /*:ref: ivout_ 14 5 4 4 13 4 124 */
01495 /*:ref: sasum_ 6 3 4 6 4 */
01496 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01497 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */
01498 /*:ref: svout_ 14 5 4 6 13 4 124 */
01499 /*:ref: prwpge_ 14 5 4 4 4 6 4 */
01500 /*:ref: splpdm_ 14 24 4 4 4 4 4 4 4 4 4 4 4 4 4 4 6 6 6 6 6 6 6 6 12 12 */
01501 /*:ref: splpce_ 14 27 4 4 4 4 4 4 4 4 4 4 4 4 4 6 6 6 6 6 6 6 6 6 6 6 6 12 12 */
01502 /*:ref: spincw_ 14 28 4 4 4 4 4 4 4 4 4 4 4 4 4 6 6 6 6 6 6 6 6 6 6 6 6 6 6 12 */
01503 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
01504 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */
01505 /*:ref: splpfe_ 14 29 4 4 4 4 4 4 4 4 4 4 4 4 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 12 */
01506 /*:ref: splpfl_ 14 19 4 4 4 4 4 4 4 6 6 6 6 6 6 6 6 6 6 12 12 */
01507 /*:ref: splpmu_ 14 50 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 12 12 12 12 */
01508 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01509 /*:ref: sclosm_ 14 1 4 */
01510 extern E_f bie_(real *x);
01511 /*:ref: r1mach_ 6 1 4 */
01512 /*:ref: inits_ 4 3 6 4 6 */
01513 /*:ref: r9aimp_ 14 3 6 6 6 */
01514 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: pythag_ 6 2 6 6 */
01517 /*:ref: csroot_ 14 4 6 6 6 6 */
01518 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */
01519 extern doublereal dcbrt_(doublereal *x);
01520 /*:ref: d1mach_ 7 1 4 */
01521 /*:ref: d9upak_ 14 3 7 7 4 */
01522 /*:ref: d9pak_ 7 2 7 4 */
01523 extern int dpchim_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, integer *ierr);
01524 /*:ref: dpchst_ 7 2 7 7 */
01525 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
01528 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01529 /*:ref: dwnlsm_ 14 18 7 4 4 4 4 4 7 7 7 4 4 4 7 7 7 7 7 7 */
01530 extern int mpmlp_(integer *u, integer *v, integer *w, integer *j);
01531 extern E_f r9pak_(real *y, integer *n);
01532 /*:ref: i1mach_ 4 1 4 */
01533 /*:ref: r1mach_ 6 1 4 */
01534 /*:ref: r9upak_ 14 3 6 6 4 */
01535 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen la05ds_ 28 */
01538 /*:ref: sasum_ 6 3 4 6 4 */
01539 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01540 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */
01541 /*:ref: la05cs_ 14 10 6 4 4 4 4 4 6 6 6 4 */
01542 /*:ref: splpdm_ 14 24 4 4 4 4 4 4 4 4 4 4 4 4 4 4 6 6 6 6 6 6 6 6 12 12 */
01543 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01544 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01545 /*:ref: iploc_ 4 3 4 6 4 */
01546 /*:ref: prwpge_ 14 5 4 4 4 6 4 */
01547 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */
01548 extern E_f binom_(integer *n, integer *m);
01549 /*:ref: r1mach_ 6 1 4 */
01550 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01551 /*:ref: r9lgmc_ 6 1 6 */
01552 /*:ref: alnrel_ 6 1 6 */
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 /*:ref: dchfmc_ 4 3 7 7 7 */
01557 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01558 extern int dwritp_(integer *ipage, integer *list, doublereal *rlist, integer *lpage, integer *irec);
01559 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
01560 extern int mpmul_(integer *x, integer *y, integer *z__);
01561 /* comlen mpcom_ 68 */
01562 /*:ref: mpchk_ 14 2 4 4 */
01563 /*:ref: mpmlp_ 14 4 4 4 4 4 */
01564 /*:ref: mpnzr_ 14 4 4 4 4 4 */
01565 /*:ref: mperr_ 14 0 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01569 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
01570 /*:ref: pchngs_ 14 6 4 6 4 6 4 4 */
01571 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */
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 /*:ref: r1mach_ 6 1 4 */
01574 /*:ref: bspvd_ 14 8 6 4 4 6 4 4 6 6 */
01575 /*:ref: bnfac_ 14 6 6 4 4 4 4 4 */
01576 /*:ref: bnslv_ 14 6 6 4 4 4 4 6 */
01577 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01578 extern int corth_(integer *nm, integer *n, integer *low, integer *igh, real *ar, real *ai, real *ortr, real *orti);
01579 /*:ref: pythag_ 6 2 6 6 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01583 /*:ref: iploc_ 4 3 4 7 4 */
01584 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */
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 /* comlen mpcom_ 68 */
01588 /*:ref: mpchk_ 14 2 4 4 */
01589 /*:ref: mpovfl_ 14 1 4 */
01590 /*:ref: mpstr_ 14 2 4 4 */
01591 /*:ref: mpnzr_ 14 4 4 4 4 4 */
01592 /*:ref: mperr_ 14 0 */
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 /*:ref: sasum_ 6 3 4 6 4 */
01596 /*:ref: spofa_ 14 4 6 4 4 4 */
01597 /*:ref: sscal_ 14 4 4 6 6 4 */
01598 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
01599 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01600 extern int bintk_(real *x, real *y, real *t, integer *n, integer *k, real *bcoef, real *q, real *work);
01601 /*:ref: bspvn_ 14 9 6 4 4 4 6 4 6 6 4 */
01602 /*:ref: bnfac_ 14 6 6 4 4 4 4 4 */
01603 /*:ref: bnslv_ 14 6 6 4 4 4 4 6 */
01604 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dswap_ 14 5 4 7 4 7 4 */
01608 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: dpchdf_ 7 4 4 7 7 4 */
01611 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01612 extern int dx_(real *u, integer *idmn, integer *i__, integer *j, real *uxxx, real *uxxxx);
01613 /* comlen splpzz_ 80 */
01614 extern int mpmuli_(integer *x, integer *iy, integer *z__);
01615 /*:ref: mpmul2_ 14 4 4 4 4 4 */
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 /*:ref: sscal_ 14 4 4 6 6 4 */
01619 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
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 /*:ref: pimach_ 6 1 6 */
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 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01625 /*:ref: dnrm2_ 7 3 4 7 4 */
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 /* comlen spl4_ 80 */
01629 extern int mpnzr_(integer *rs, integer *re, integer *z__, integer *trunc);
01630 /* comlen mpcom_ 68 */
01631 /*:ref: mperr_ 14 0 */
01632 /*:ref: mpovfl_ 14 1 4 */
01633 /*:ref: mpunfl_ 14 1 4 */
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 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: r1mach_ 6 1 4 */
01639 /*:ref: gamrn_ 6 1 6 */
01640 /*:ref: hkseq_ 14 4 6 4 6 4 */
01641 /*:ref: bdiff_ 14 2 4 6 */
01642 extern int cosqb_(integer *n, real *x, real *wsave);
01643 /*:ref: cosqb1_ 14 4 4 6 6 6 */
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 /*:ref: drotg_ 14 4 7 7 7 7 */
01646 extern int dpchsw_(doublereal *dfmax, integer *iextrm, doublereal *d1, doublereal *d2, doublereal *h__, doublereal *slope, integer *ierr);
01647 /*:ref: d1mach_ 6 1 4 */
01648 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01649 extern int dy_(real *u, integer *idmn, integer *i__, integer *j, real *uyyy, real *uyyyy);
01650 /* comlen splpzz_ 80 */
01651 extern int mpovfl_(integer *x);
01652 /* comlen mpcom_ 68 */
01653 /*:ref: mpchk_ 14 2 4 4 */
01654 /*:ref: mpmaxr_ 14 1 4 */
01655 /*:ref: mperr_ 14 0 */
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 /*:ref: spoco_ 14 6 6 4 4 6 6 4 */
01659 /*:ref: r1mach_ 6 1 4 */
01660 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01661 /*:ref: sposl_ 14 4 6 4 4 6 */
01662 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
01663 extern int bkisr_(real *x, integer *n, real *sum, integer *ierr);
01664 /*:ref: r1mach_ 6 1 4 */
01665 /*:ref: psixn_ 6 1 4 */
01666 extern int cosqb1_(integer *n, real *x, real *w, real *xh);
01667 /*:ref: rfftb_ 14 3 4 6 6 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01670 extern int dpcoef_(integer *l, doublereal *c__, doublereal *tc, doublereal *a);
01671 /*:ref: dp1vlu_ 14 6 4 4 7 7 7 7 */
01672 extern int dy4_(real *u, integer *idmn, integer *i__, integer *j, real *uyyy, real *uyyyy);
01673 /* comlen spl4_ 80 */
01674 extern int mpstr_(integer *x, integer *y);
01675 /* comlen mpcom_ 68 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01679 /*:ref: spofa_ 14 4 6 4 4 4 */
01680 /*:ref: sposl_ 14 4 6 4 4 6 */
01681 /*:ref: sasum_ 6 3 4 6 4 */
01682 /*:ref: dsdot_ 7 5 4 6 4 6 4 */
01683 /*:ref: r1mach_ 6 1 4 */
01684 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01685 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
01686 extern int bksol_(integer *n, real *a, real *x);
01687 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01688 extern int cosqf_(integer *n, real *x, real *wsave);
01689 /*:ref: cosqf1_ 14 4 4 6 6 6 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: d1mach_ 7 1 4 */
01694 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */
01695 /*:ref: dppgq8_ 14 13 207 4 7 7 4 4 4 7 7 4 7 7 4 */
01696 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01697 extern int dyairy_(doublereal *x, doublereal *rx, doublereal *c__, doublereal *bi, doublereal *dbi);
01698 extern int mpunfl_(integer *x);
01699 /*:ref: mpchk_ 14 2 4 4 */
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 /*:ref: r1mach_ 6 1 4 */
01703 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen cblkt_ 28 */
01706 /*:ref: indxb_ 14 4 4 4 4 4 */
01707 /*:ref: indxc_ 14 4 4 4 4 4 */
01708 /*:ref: indxa_ 14 4 4 4 4 4 */
01709 extern int cosqf1_(integer *n, real *x, real *w, real *xh);
01710 /*:ref: rfftf_ 14 3 4 6 6 */
01711 extern doublereal dchfiv_(doublereal *x1, doublereal *x2, doublereal *f1, doublereal *f2, doublereal *d1, doublereal *d2, doublereal *a, doublereal *b, integer *ierr);
01712 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
01715 /*:ref: iploc_ 4 3 4 7 4 */
01716 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */
01717 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */
01718 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01719 extern E_f e1_(real *x);
01720 /*:ref: r1mach_ 6 1 4 */
01721 /*:ref: inits_ 4 3 6 4 6 */
01722 /*:ref: csevl_ 6 3 6 6 4 */
01723 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01724 extern integer numxer_(integer *nerr);
01725 /*:ref: j4save_ 4 3 4 4 12 */
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 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01729 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
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 /* comlen cblkt_ 28 */
01732 /*:ref: compb_ 14 8 4 4 6 6 6 6 6 6 */
01733 /*:ref: blktr1_ 14 19 4 6 6 6 4 6 6 6 4 6 6 6 6 6 6 6 6 200 200 */
01734 extern int cosqi_(integer *n, real *wsave);
01735 /*:ref: rffti_ 14 2 4 6 */
01736 extern integer dchfmc_(doublereal *d1, doublereal *d2, doublereal *delta);
01737 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */
01740 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
01741 /*:ref: dasum_ 7 3 4 7 4 */
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 /*:ref: efcmn_ 14 19 4 6 6 6 4 4 6 4 4 6 6 6 6 6 6 4 6 4 4 */
01744 extern int ohtrol_(real *q, integer *n, integer *nrda, real *diag, integer *irank, real *div, real *td);
01745 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: sasum_ 6 3 4 6 4 */
01749 /*:ref: sppfa_ 14 3 6 4 4 */
01750 /*:ref: sscal_ 14 4 4 6 6 4 */
01751 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
01752 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01753 extern int bndacc_(real *g, integer *mdg, integer *nb, integer *ip, integer *ir, integer *mt, integer *jt);
01754 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01755 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */
01756 extern int cost_(integer *n, real *x, real *wsave);
01757 /*:ref: rfftf_ 14 3 4 6 6 */
01758 extern doublereal dchu_(doublereal *a, doublereal *b, doublereal *x);
01759 /*:ref: d1mach_ 7 1 4 */
01760 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01761 /*:ref: dpoch_ 7 2 7 7 */
01762 /*:ref: dgamma_ 7 1 7 */
01763 /*:ref: dgamr_ 7 1 7 */
01764 /*:ref: dpoch1_ 7 2 7 7 */
01765 /*:ref: dexprl_ 7 1 7 */
01766 /*:ref: d9chu_ 7 3 7 7 7 */
01767 extern int dpintm_(integer *m, integer *n, doublereal *sx, integer *ix, integer *lmx, integer *ipagef);
01768 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01771 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01772 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
01773 /*:ref: ssort_ 14 4 6 6 4 4 */
01774 /*:ref: bndacc_ 14 7 6 4 4 4 4 4 4 */
01775 /*:ref: bsplvn_ 14 6 6 4 4 6 4 6 */
01776 /*:ref: sscal_ 14 4 4 6 6 4 */
01777 /*:ref: bndsol_ 14 9 4 6 4 4 4 4 6 4 6 */
01778 extern int ohtror_(real *q, integer *n, integer *nrda, real *diag, integer *irank, real *div, real *td);
01779 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: sscal_ 14 4 4 6 6 4 */
01783 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
01784 extern int bndsol_(integer *mode, real *g, integer *mdg, integer *nb, integer *ip, integer *ir, real *x, integer *n, real *rnorm);
01785 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01786 extern int costi_(integer *n, real *wsave);
01787 /*:ref: rffti_ 14 2 4 6 */
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 /*:ref: drotg_ 14 4 7 7 7 7 */
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 /* comlen ddebd1_ 1876 */
01792 /*:ref: dvnrms_ 7 3 4 7 7 */
01793 /*:ref: dgefa_ 14 5 7 4 4 4 4 */
01794 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */
01795 extern E_f ei_(real *x);
01796 /*:ref: e1_ 6 1 6 */
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 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01801 extern int bnfac_(real *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, integer *iflag);
01802 extern E_f cot_(real *x);
01803 /*:ref: inits_ 4 3 6 4 6 */
01804 /*:ref: r1mach_ 6 1 4 */
01805 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01806 /*:ref: csevl_ 6 3 6 6 4 */
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 /*:ref: d1mach_ 7 1 4 */
01809 extern int dplint_(integer *n, doublereal *x, doublereal *y, doublereal *c__);
01810 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01816 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
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 /* comlen ccblk_ 28 */
01820 /*:ref: pgsf_ 6 5 6 4 6 6 6 */
01821 /*:ref: bcrh_ 6 8 6 6 4 6 6 6 206 6 */
01822 /*:ref: ppgsf_ 6 5 6 4 6 6 6 */
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 /* comlen dml5mc_ 52 */
01825 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01826 /*:ref: xgetf_ 14 1 4 */
01827 /*:ref: xsetf_ 14 1 4 */
01828 /*:ref: dsuds_ 14 10 7 7 7 4 4 4 4 4 7 4 */
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 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */
01831 /*:ref: dasum_ 7 3 4 7 4 */
01832 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
01833 /*:ref: iploc_ 4 3 4 7 4 */
01834 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */
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 /* comlen spl4_ 80 */
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 /*:ref: pythag_ 6 2 6 6 */
01842 extern int cpbco_(complex *abd, integer *lda, integer *n, integer *m, real *rcond, complex *z__, integer *info);
01843 /*:ref: scasum_ 6 3 4 8 4 */
01844 /*:ref: cpbfa_ 14 5 8 4 4 4 4 */
01845 /*:ref: csscal_ 14 4 4 6 8 4 */
01846 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01847 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
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 /* comlen la05dd_ 32 */
01851 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */
01852 /*:ref: dasum_ 6 3 4 7 4 */
01853 /*:ref: la05ad_ 14 10 7 4 4 4 4 4 4 7 7 7 */
01854 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01855 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 6 124 */
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 /* comlen splpzz_ 80 */
01859 extern E_f rc_(real *x, real *y, integer *ier);
01860 /*:ref: r1mach_ 6 1 4 */
01861 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01862 extern int sqrdc_(real *x, integer *ldx, integer *n, integer *p, real *qraux, integer *jpvt, real *work, integer *job);
01863 /*:ref: sswap_ 14 5 4 6 4 6 4 */
01864 /*:ref: snrm2_ 6 3 4 6 4 */
01865 /*:ref: sscal_ 14 4 4 6 6 4 */
01866 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01867 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01870 /*:ref: i1mach_ 4 1 4 */
01871 /*:ref: r1mach_ 6 1 4 */
01872 /*:ref: bvalu_ 6 8 6 6 4 4 4 6 4 6 */
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 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
01877 /*:ref: iploc_ 4 3 4 7 4 */
01878 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */
01879 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */
01880 /*:ref: dasum_ 7 3 4 7 4 */
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 /*:ref: r1mach_ 6 1 4 */
01884 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01885 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01886 /*:ref: cscale_ 14 12 6 4 4 4 6 6 6 6 6 6 4 4 */
01887 extern E_f rd_(real *x, real *y, real *z__, integer *ier);
01888 /*:ref: r1mach_ 6 1 4 */
01889 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01892 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01893 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
01894 extern int bskin_(real *x, integer *n, integer *kode, integer *m, real *y, integer *nz, integer *ierr);
01895 /*:ref: i1mach_ 4 1 4 */
01896 /*:ref: r1mach_ 6 1 4 */
01897 /*:ref: bkisr_ 14 4 6 4 6 4 */
01898 /*:ref: bkias_ 14 10 6 4 4 6 6 4 4 6 6 4 */
01899 /*:ref: exint_ 14 8 6 4 4 4 6 6 4 4 */
01900 /*:ref: gamrn_ 6 1 6 */
01901 extern int cpbfa_(complex *abd, integer *lda, integer *n, integer *m, integer *info);
01902 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
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 /*:ref: r1mach_ 6 1 4 */
01908 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01909 /*:ref: sdot_ 6 5 4 6 4 6 4 */
01910 /*:ref: cscale_ 14 12 6 4 4 4 6 6 6 6 6 6 4 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
01914 extern int bspdoc_(void);
01915 extern int cpbsl_(complex *abd, integer *lda, integer *n, integer *m, complex *b);
01916 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01917 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01918 extern doublereal dcot_(doublereal *x);
01919 /*:ref: initds_ 4 3 7 4 6 */
01920 /*:ref: d1mach_ 7 1 4 */
01921 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01922 /*:ref: dcsevl_ 7 3 7 7 4 */
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 /* comlen la05dd_ 32 */
01925 /*:ref: dpopt_ 14 9 7 4 4 4 7 4 7 4 12 */
01926 /*:ref: dpintm_ 14 6 4 4 7 4 4 4 */
01927 /*:ref: dplpup_ 14 14 200 4 4 7 7 7 7 4 4 7 4 12 7 7 */
01928 /*:ref: dpinit_ 14 20 4 4 7 7 7 4 7 4 7 7 7 7 7 7 7 7 4 4 4 12 */
01929 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01930 /*:ref: ivout_ 14 5 4 4 13 4 124 */
01931 /*:ref: dasum_ 7 3 4 7 4 */
01932 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
01933 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */
01934 /*:ref: dvout_ 14 5 4 7 13 4 124 */
01935 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */
01936 /*:ref: dplpdm_ 14 24 4 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 12 12 */
01937 /*:ref: dplpce_ 14 27 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 12 12 */
01938 /*:ref: dpincw_ 14 28 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 */
01939 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
01940 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */
01941 /*:ref: dplpfe_ 14 29 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 */
01942 /*:ref: dplpfl_ 14 19 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 12 12 */
01943 /*:ref: dplpmu_ 14 50 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 12 12 12 */
01944 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01945 /*:ref: sclosm_ 14 1 4 */
01946 extern E_f epmach_(real *dum);
01947 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01953 extern int cpevl_(integer *n, integer *m, complex *a, complex *z__, complex *c__, complex *b, logical *kbd);
01954 /*:ref: i1mach_ 4 1 4 */
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 /*:ref: denorm_ 7 2 4 7 */
01957 /*:ref: dfdjc3_ 14 10 214 4 4 7 7 7 4 4 7 7 */
01958 /*:ref: dqrfac_ 14 10 4 4 7 4 12 4 4 7 7 7 */
01959 /*:ref: dwupdt_ 14 8 4 7 4 7 7 7 7 7 */
01960 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen la05dd_ 32 */
01963 /*:ref: dasum_ 7 3 4 7 4 */
01964 /*:ref: ddot_ 7 5 4 7 4 7 4 */
01965 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */
01966 /*:ref: la05cd_ 14 10 7 4 4 4 4 4 7 7 7 4 */
01967 /*:ref: dplpdm_ 14 24 4 4 4 4 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 12 12 */
01968 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01969 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
01970 /*:ref: iploc_ 4 3 4 7 4 */
01971 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */
01972 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */
01973 extern E_f erf_(real *x);
01974 /*:ref: inits_ 4 3 6 4 6 */
01975 /*:ref: r1mach_ 6 1 4 */
01976 /*:ref: csevl_ 6 3 6 6 4 */
01977 /*:ref: erfc_ 6 1 6 */
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 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */
01983 /*:ref: bspvn_ 14 9 6 4 4 4 6 4 6 6 4 */
01984 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
01990 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
01991 /*:ref: dpchng_ 14 6 4 7 4 7 4 4 */
01992 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */
01993 extern E_f erfc_(real *x);
01994 /*:ref: r1mach_ 6 1 4 */
01995 /*:ref: inits_ 4 3 6 4 6 */
01996 /*:ref: csevl_ 6 3 6 6 4 */
01997 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: bsplvn_ 14 6 6 4 4 6 4 6 */
02003 extern int cpoco_(complex *a, integer *lda, integer *n, real *rcond, complex *z__, integer *info);
02004 /*:ref: scasum_ 6 3 4 8 4 */
02005 /*:ref: cpofa_ 14 4 8 4 4 4 */
02006 /*:ref: csscal_ 14 4 4 6 8 4 */
02007 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02008 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
02009 extern doublereal dcsevl_(doublereal *x, doublereal *a, integer *n);
02010 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02011 extern int dpnnzr_(integer *i__, doublereal *xval, integer *iplace, doublereal *sx, integer *ix, integer *ircx);
02012 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02013 /*:ref: iploc_ 4 3 4 7 4 */
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 /* comlen ml8sz_ 28 */
02016 /* comlen ml18jr_ 72 */
02017 /* comlen ml15to_ 116 */
02018 /* comlen ml17bw_ 72 */
02019 /* comlen ml5mco_ 28 */
02020 /*:ref: bvpor_ 14 31 6 4 4 6 4 6 4 6 4 6 4 6 4 4 6 4 6 4 4 6 4 6 6 6 6 6 6 6 6 4 4 */
02021 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
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 /* comlen ml8sz_ 28 */
02025 /* comlen ml15to_ 116 */
02026 /* comlen ml18jr_ 72 */
02027 /*:ref: stor1_ 14 7 6 6 6 6 4 4 4 */
02028 /*:ref: mgsbv_ 14 13 4 4 6 4 4 4 6 6 4 4 6 6 6 */
02029 /*:ref: stway_ 14 5 6 6 6 4 6 */
02030 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: cscal_ 14 4 4 8 8 4 */
02035 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02036 extern doublereal dcv_(doublereal *xval, integer *ndata, integer *nconst, integer *nord, integer *nbkpt, doublereal *bkpt, doublereal *w);
02037 /*:ref: dfspvn_ 14 6 7 4 4 7 4 7 */
02038 /*:ref: ddot_ 7 5 4 7 4 7 4 */
02039 extern doublereal dpoch_(doublereal *a, doublereal *x);
02040 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02041 /*:ref: dfac_ 7 1 4 */
02042 /*:ref: dlnrel_ 7 1 7 */
02043 /*:ref: d9lgmc_ 7 1 7 */
02044 /*:ref: dgamma_ 7 1 7 */
02045 /*:ref: dgamr_ 7 1 7 */
02046 /*:ref: dcot_ 7 1 7 */
02047 /*:ref: dlgams_ 14 3 7 7 7 */
02048 extern int exint_(real *x, integer *n, integer *kode, integer *m, real *tol, real *en, integer *ierr);
02049 /*:ref: r1mach_ 6 1 4 */
02050 /*:ref: i1mach_ 4 1 4 */
02051 /*:ref: psixn_ 6 1 4 */
02052 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
02056 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: bspdr_ 14 6 6 6 4 4 4 6 */
02060 /*:ref: bspev_ 14 9 6 6 4 4 4 6 4 6 6 */
02061 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02062 extern int cpofa_(complex *a, integer *lda, integer *n, integer *info);
02063 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
02064 extern doublereal ddaws_(doublereal *x);
02065 /*:ref: d1mach_ 7 1 4 */
02066 /*:ref: initds_ 4 3 7 4 6 */
02067 /*:ref: dcsevl_ 7 3 7 7 4 */
02068 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02069 extern doublereal dpoch1_(doublereal *a, doublereal *x);
02070 /*:ref: d1mach_ 7 1 4 */
02071 /*:ref: dpsi_ 7 1 7 */
02072 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02073 /*:ref: dexprl_ 7 1 7 */
02074 /*:ref: dcot_ 7 1 7 */
02075 /*:ref: dpoch_ 7 2 7 7 */
02076 extern E_f exprel_(real *x);
02077 /*:ref: r1mach_ 6 1 4 */
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 /*:ref: rfftb1_ 14 5 4 6 6 6 6 */
02081 extern int ssico_(real *a, integer *lda, integer *n, integer *kpvt, real *rcond, real *z__);
02082 /*:ref: sasum_ 6 3 4 6 4 */
02083 /*:ref: ssifa_ 14 5 6 4 4 4 4 */
02084 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02085 /*:ref: sscal_ 14 4 4 6 6 4 */
02086 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02087 extern int bspvd_(real *t, integer *k, integer *nderiv, real *x, integer *ileft, integer *ldvnik, real *vnikx, real *work);
02088 /*:ref: bspvn_ 14 9 6 4 4 4 6 4 6 6 4 */
02089 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02090 extern int cpofs_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work);
02091 /*:ref: cpoco_ 14 6 8 4 4 6 8 4 */
02092 /*:ref: r1mach_ 6 1 4 */
02093 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02094 /*:ref: cposl_ 14 4 8 4 4 8 */
02095 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
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 /*:ref: dnrm2_ 7 3 4 7 4 */
02098 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */
02099 /*:ref: dgbsl_ 14 8 7 4 4 4 4 4 7 4 */
02100 /*:ref: users_ 14 12 7 7 7 7 7 7 7 7 4 4 4 4 */
02101 extern int dpoco_(doublereal *a, integer *lda, integer *n, doublereal *rcond, doublereal *z__, integer *info);
02102 /*:ref: dasum_ 7 3 4 7 4 */
02103 /*:ref: dpofa_ 14 4 7 4 4 4 */
02104 /*:ref: dscal_ 14 4 4 7 7 4 */
02105 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
02106 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: radb4_ 14 7 4 4 6 6 6 6 6 */
02111 /*:ref: radb2_ 14 5 4 4 6 6 6 */
02112 /*:ref: radb3_ 14 6 4 4 6 6 6 6 */
02113 /*:ref: radb5_ 14 8 4 4 6 6 6 6 6 6 */
02114 /*:ref: radbg_ 14 10 4 4 4 4 6 6 6 6 6 6 */
02115 extern int ssidi_(real *a, integer *lda, integer *n, integer *kpvt, real *det, integer *inert, real *work, integer *job);
02116 /*:ref: scopy_ 14 5 4 6 4 6 4 */
02117 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02118 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02119 /*:ref: sswap_ 14 5 4 6 4 6 4 */
02120 extern int bspvn_(real *t, integer *jhigh, integer *k, integer *index, real *x, integer *ileft, real *vnikx, real *work, integer *iwork);
02121 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02122 extern int cpoir_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work);
02123 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
02124 /*:ref: cpofa_ 14 4 8 4 4 4 */
02125 /*:ref: cposl_ 14 4 8 4 4 8 */
02126 /*:ref: scasum_ 6 3 4 8 4 */
02127 /*:ref: dcdot_ 14 8 4 7 8 4 8 4 7 7 */
02128 /*:ref: r1mach_ 6 1 4 */
02129 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02130 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
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 /*:ref: dscal_ 14 4 4 7 7 4 */
02134 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
02135 extern int ezfftb_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave);
02136 /*:ref: rfftb_ 14 3 4 6 6 */
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 /*:ref: rfftf1_ 14 5 4 6 6 6 6 */
02140 extern int ssiev_(real *a, integer *lda, integer *n, real *e, real *work, integer *job, integer *info);
02141 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02142 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */
02143 /*:ref: tqlrat_ 14 4 4 6 6 4 */
02144 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */
02145 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */
02146 extern int bsqad_(real *t, real *bcoef, integer *n, integer *k, real *x1, real *x2, real *bquad, real *work);
02147 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */
02148 /*:ref: bvalu_ 6 8 6 6 4 4 4 6 4 6 */
02149 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02150 extern int cposl_(complex *a, integer *lda, integer *n, complex *b);
02151 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
02152 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
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 /*:ref: d1mach_ 7 1 4 */
02155 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02156 /*:ref: dintrp_ 14 9 7 7 7 7 7 4 4 7 7 */
02157 /*:ref: dstep2_ 14 30 214 4 7 7 7 7 7 12 7 4 4 12 7 7 7 7 7 7 7 7 7 7 12 4 12 4 7 7 7 4 */
02158 extern int dpofa_(doublereal *a, integer *lda, integer *n, integer *info);
02159 /*:ref: ddot_ 7 5 4 7 4 7 4 */
02160 extern int ezfftf_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave);
02161 /*:ref: rfftf_ 14 3 4 6 6 */
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 /*:ref: radf4_ 14 7 4 4 6 6 6 6 6 */
02165 /*:ref: radf2_ 14 5 4 4 6 6 6 */
02166 /*:ref: radf3_ 14 6 4 4 6 6 6 6 */
02167 /*:ref: radf5_ 14 8 4 4 6 6 6 6 6 6 */
02168 /*:ref: radfg_ 14 10 4 4 4 4 6 6 6 6 6 6 */
02169 extern int ssifa_(real *a, integer *lda, integer *n, integer *kpvt, integer *info);
02170 /*:ref: isamax_ 4 3 4 6 4 */
02171 /*:ref: sswap_ 14 5 4 6 4 6 4 */
02172 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02173 extern E_f bsrh_(real *xll, real *xrr, integer *iz, real *c__, real *a, real *bh, E_fp f, real *sgn);
02174 /* comlen cblkt_ 28 */
02175 extern int cppco_(complex *ap, integer *n, real *rcond, complex *z__, integer *info);
02176 /*:ref: scasum_ 6 3 4 8 4 */
02177 /*:ref: cppfa_ 14 3 8 4 4 */
02178 /*:ref: csscal_ 14 4 4 6 8 4 */
02179 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02180 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02183 /*:ref: ddes_ 14 51 200 4 7 7 7 4 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 7 12 12 12 12 12 4 4 4 4 4 4 4 4 4 4 4 7 4 */
02184 extern int dpofs_(doublereal *a, integer *lda, integer *n, doublereal *v, integer *itask, integer *ind, doublereal *work);
02185 /*:ref: dpoco_ 14 6 7 4 4 7 7 4 */
02186 /*:ref: d1mach_ 7 1 4 */
02187 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02188 /*:ref: dposl_ 14 4 7 4 4 7 */
02189 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
02190 extern int ezffti_(integer *n, real *wsave);
02191 /*:ref: ezfft1_ 14 3 4 6 6 */
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 /*:ref: rffti1_ 14 3 4 6 6 */
02195 extern int ssisl_(real *a, integer *lda, integer *n, integer *kpvt, real *b);
02196 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02197 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02198 extern E_f bvalu_(real *t, real *a, integer *n, integer *k, integer *ideriv, real *x, integer *inbv, real *work);
02199 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */
02200 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02201 extern int cppdi_(complex *ap, integer *n, real *det, integer *job);
02202 /*:ref: cscal_ 14 4 4 8 8 4 */
02203 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
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 /* comlen ddebd1_ 1876 */
02206 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02207 /*:ref: dlsod_ 14 23 200 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 200 12 7 7 7 7 4 */
02208 extern int dpolcf_(doublereal *xx, integer *n, doublereal *x, doublereal *c__, doublereal *d__, doublereal *work);
02209 extern E_f fac_(integer *n);
02210 /*:ref: gamlim_ 14 2 6 6 */
02211 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02212 /*:ref: r9lgmc_ 6 1 6 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02217 extern E_f bvalue_(real *t, real *a, integer *n, integer *k, real *x, integer *ideriv);
02218 /*:ref: interv_ 14 5 6 4 6 4 4 */
02219 extern int cppfa_(complex *ap, integer *n, integer *info);
02220 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02223 /*:ref: drkfs_ 14 32 200 4 7 7 7 4 7 7 4 7 7 7 7 7 7 7 7 7 7 7 7 7 4 4 4 4 12 12 4 4 7 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02226 /*:ref: dp1vlu_ 14 6 4 4 7 7 6 7 */
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 /*:ref: fcmn_ 14 23 4 6 6 6 4 4 6 4 6 6 4 4 6 6 6 6 6 6 4 6 4 6 4 */
02229 extern int pchce_(integer *ic, real *vc, integer *n, real *x, real *h__, real *slope, real *d__, integer *incfd, integer *ierr);
02230 /*:ref: pchdf_ 6 4 4 6 6 4 */
02231 /*:ref: pchst_ 6 2 6 6 */
02232 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: balanc_ 14 6 4 4 6 4 4 6 */
02235 /*:ref: elmhes_ 14 6 4 4 4 4 6 4 */
02236 /*:ref: hqr_ 14 8 4 4 4 4 6 6 6 4 */
02237 /*:ref: eltran_ 14 7 4 4 4 4 6 4 6 */
02238 /*:ref: hqr2_ 14 9 4 4 4 4 6 6 6 6 4 */
02239 /*:ref: balbak_ 14 7 4 4 4 4 6 4 6 */
02240 extern int sspco_(real *ap, integer *n, integer *kpvt, real *rcond, real *z__);
02241 /*:ref: sasum_ 6 3 4 6 4 */
02242 /*:ref: sspfa_ 14 4 6 4 4 4 */
02243 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02244 /*:ref: sscal_ 14 4 4 6 6 4 */
02245 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02246 extern int bvder_(real *x, real *y, real *yp, real *g, integer *ipar);
02247 /* comlen ml8sz_ 28 */
02248 /* comlen mlivp_ 4 */
02249 /*:ref: uivp_ 14 3 6 6 6 */
02250 /*:ref: fmat_ 14 3 6 6 6 */
02251 /*:ref: gvec_ 14 2 6 6 */
02252 /*:ref: uvec_ 14 3 6 6 6 */
02253 extern int cppsl_(complex *ap, integer *n, complex *b);
02254 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
02255 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
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 /*:ref: d1mach_ 7 1 4 */
02258 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02259 /*:ref: dintp_ 14 17 7 7 7 7 7 4 4 7 4 4 4 6 7 7 7 6 7 */
02260 /*:ref: dsteps_ 14 36 214 4 7 7 7 7 7 12 7 4 4 12 7 7 7 7 7 7 7 7 7 7 12 4 12 4 7 7 6 4 4 4 4 6 7 4 */
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 /*:ref: bndsol_ 14 9 4 6 4 4 4 4 6 4 6 */
02264 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02265 /*:ref: lsei_ 14 13 6 4 4 4 4 4 6 6 6 6 4 6 4 */
02266 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02267 /*:ref: scopy_ 14 5 4 6 4 6 4 */
02268 /*:ref: ssort_ 14 4 6 6 4 4 */
02269 /*:ref: bndacc_ 14 7 6 4 4 4 4 4 4 */
02270 /*:ref: bsplvn_ 14 6 6 4 4 6 4 6 */
02271 /*:ref: sscal_ 14 4 4 6 6 4 */
02272 /*:ref: bsplvd_ 14 6 6 4 6 4 6 4 */
02273 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02274 extern int pchci_(integer *n, real *h__, real *slope, real *d__, integer *incfd);
02275 /*:ref: pchst_ 6 2 6 6 */
02276 extern E_f rgauss_(real *xmean, real *sd);
02277 /*:ref: rand_ 6 1 6 */
02278 extern int sspdi_(real *ap, integer *n, integer *kpvt, real *det, integer *inert, real *work, integer *job);
02279 /*:ref: scopy_ 14 5 4 6 4 6 4 */
02280 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02281 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02282 /*:ref: sswap_ 14 5 4 6 4 6 4 */
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 /* comlen ml8sz_ 28 */
02285 /* comlen ml15to_ 116 */
02286 /* comlen ml18jr_ 72 */
02287 /*:ref: lssuds_ 14 20 6 6 6 4 4 4 6 4 4 4 4 4 6 6 4 6 6 6 4 6 */
02288 /*:ref: svecs_ 14 7 4 4 6 6 4 4 4 */
02289 /*:ref: stor1_ 14 7 6 6 6 6 4 4 4 */
02290 /*:ref: stway_ 14 5 6 6 6 4 6 */
02291 /*:ref: rkfab_ 14 21 4 6 4 4 4 6 4 6 4 4 6 4 6 6 6 6 6 6 6 4 4 */
02292 /*:ref: scoef_ 14 18 6 6 4 4 4 4 6 6 6 4 6 6 6 6 6 4 4 4 */
02293 /*:ref: bksol_ 14 3 4 6 6 */
02294 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02295 extern int cpqr79_(integer *ndeg, complex *coeff, complex *root, integer *ierr, real *work);
02296 /*:ref: comqr_ 14 9 4 4 4 4 6 6 6 6 4 */
02297 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: d1mach_ 7 1 4 */
02301 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
02304 extern int pchcs_(real *switch__, integer *n, real *h__, real *slope, real *d__, integer *incfd, integer *ierr);
02305 /*:ref: pchst_ 6 2 6 6 */
02306 /*:ref: pchsw_ 14 7 6 4 6 6 6 6 4 */
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 /*:ref: qzhes_ 14 6 4 4 6 6 12 6 */
02309 /*:ref: qzit_ 14 8 4 4 6 6 6 12 6 4 */
02310 /*:ref: qzval_ 14 9 4 4 6 6 6 6 6 12 6 */
02311 /*:ref: qzvec_ 14 8 4 4 6 6 6 6 6 6 */
02312 extern int sspev_(real *a, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info);
02313 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02314 /*:ref: tred3_ 14 6 4 4 6 6 6 6 */
02315 /*:ref: tqlrat_ 14 4 4 6 6 4 */
02316 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */
02317 /*:ref: trbak3_ 14 6 4 4 4 6 4 6 */
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 /* comlen ml8sz_ 28 */
02320 /* comlen ml18jr_ 72 */
02321 /* comlen ml17bw_ 72 */
02322 /* comlen ml15to_ 116 */
02323 /* comlen ml5mco_ 28 */
02324 /*:ref: macon_ 14 0 */
02325 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02326 /*:ref: exbvp_ 14 12 6 4 6 6 4 6 6 4 6 4 6 4 */
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 /*:ref: ddcstb_ 14 5 4 4 4 7 7 */
02330 /*:ref: users_ 14 12 7 7 7 7 7 7 7 7 4 4 4 4 */
02331 /*:ref: dgefa_ 14 5 7 4 4 4 4 */
02332 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */
02333 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */
02334 /*:ref: dgbsl_ 14 8 7 4 4 4 4 4 7 4 */
02335 /*:ref: dnrm2_ 7 3 4 7 4 */
02336 /*:ref: ddsclb_ 14 8 7 4 4 7 7 7 7 7 */
02337 extern int dposl_(doublereal *a, integer *lda, integer *n, doublereal *b);
02338 /*:ref: ddot_ 7 5 4 7 4 7 4 */
02339 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: r1mach_ 6 1 4 */
02342 extern E_f pchdf_(integer *k, real *x, real *s, integer *ierr);
02343 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02344 extern E_f rj_(real *x, real *y, real *z__, real *p, integer *ier);
02345 /*:ref: r1mach_ 6 1 4 */
02346 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02347 /*:ref: rc_ 6 3 6 6 4 */
02348 extern int sspfa_(real *ap, integer *n, integer *kpvt, integer *info);
02349 /*:ref: isamax_ 4 3 4 6 4 */
02350 /*:ref: sswap_ 14 5 4 6 4 6 4 */
02351 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02352 extern C_f c0lgmc_(complex * ret_val, complex *z__);
02353 /*:ref: r1mach_ 6 1 4 */
02354 /*:ref: c9ln2r_ 8 2 8 8 */
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 /*:ref: dasum_ 7 3 4 7 4 */
02359 /*:ref: dppfa_ 14 3 7 4 4 */
02360 /*:ref: dscal_ 14 4 4 7 7 4 */
02361 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
02362 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: r1mach_ 6 1 4 */
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 /* comlen ml8sz_ 28 */
02368 /* comlen ml15to_ 116 */
02369 /* comlen ml18jr_ 72 */
02370 /* comlen ml17bw_ 72 */
02371 /*:ref: derkf_ 14 15 200 4 6 6 6 4 6 6 4 6 4 4 4 6 4 */
02372 /*:ref: deabm_ 14 15 200 4 6 6 6 4 6 6 4 6 4 4 4 6 4 */
02373 /*:ref: reort_ 14 11 4 6 6 6 4 6 6 6 4 6 4 */
02374 /*:ref: stor1_ 14 7 6 6 6 6 4 4 4 */
02375 extern int sspsl_(real *ap, integer *n, integer *kpvt, real *b);
02376 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02377 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02378 extern C_f c9lgmc_(complex * ret_val, complex *zin);
02379 /*:ref: r1mach_ 6 1 4 */
02380 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: d1mach_ 7 1 4 */
02384 /*:ref: denorm_ 7 2 4 7 */
02385 extern int dppdi_(doublereal *ap, integer *n, doublereal *det, integer *job);
02386 /*:ref: dscal_ 14 4 4 7 7 4 */
02387 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: chfdv_ 14 12 6 6 6 6 6 6 4 6 6 6 4 4 */
02391 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02392 extern int rpqr79_(integer *ndeg, real *coeff, complex *root, integer *ierr, real *work);
02393 /*:ref: hqr_ 14 8 4 4 4 4 6 6 6 4 */
02394 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: snrm2_ 6 3 4 6 4 */
02397 /*:ref: sscal_ 14 4 4 6 6 4 */
02398 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02399 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02400 /*:ref: srotg_ 14 4 6 6 6 6 */
02401 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
02402 /*:ref: sswap_ 14 5 4 6 4 6 4 */
02403 extern C_f c9ln2r_(complex * ret_val, complex *z__);
02404 /*:ref: r9ln2r_ 6 1 6 */
02405 /*:ref: r9atn1_ 6 1 6 */
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 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: chfev_ 14 11 6 6 6 6 6 6 4 6 6 4 4 */
02413 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02414 extern int rpzero_(integer *n, real *a, complex *r__, complex *t, integer *iflg, real *s);
02415 /*:ref: cpzero_ 14 6 4 8 8 8 4 6 */
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 /*:ref: casin_ 8 2 8 8 */
02419 extern C_f cpsi_(complex * ret_val, complex *zin);
02420 /*:ref: r1mach_ 6 1 4 */
02421 /*:ref: ccot_ 8 2 8 8 */
02422 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02426 /*:ref: i1mach_ 4 1 4 */
02427 /*:ref: d1mach_ 7 1 4 */
02428 /*:ref: dppval_ 7 8 4 7 7 4 4 4 7 4 */
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 /*:ref: chfiv_ 6 9 6 6 6 6 6 6 6 6 4 */
02432 /*:ref: pchid_ 6 9 4 6 6 6 4 12 4 4 4 */
02433 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02434 extern int rs_(integer *nm, integer *n, real *a, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr);
02435 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */
02436 /*:ref: tqlrat_ 14 4 4 6 6 4 */
02437 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */
02438 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */
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 /*:ref: r1mach_ 6 1 4 */
02441 /*:ref: hstart_ 14 17 214 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 6 */
02442 extern C_f cacosh_(complex * ret_val, complex *z__);
02443 /*:ref: cacos_ 8 2 8 8 */
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 /*:ref: dnrm2_ 7 3 4 7 4 */
02447 /*:ref: dgefa_ 14 5 7 4 4 4 4 */
02448 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */
02449 /*:ref: users_ 14 12 7 7 7 7 7 7 7 7 4 4 4 4 */
02450 extern int dppqad_(integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, integer *k, doublereal *x1, doublereal *x2, doublereal *pquad);
02451 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */
02452 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: pchci_ 14 5 4 6 6 6 4 */
02456 /*:ref: pchcs_ 14 7 6 4 6 6 6 4 4 */
02457 /*:ref: pchce_ 14 9 4 6 4 6 6 6 6 4 4 */
02458 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: bandr_ 14 9 4 4 4 6 6 6 6 12 6 */
02461 /*:ref: tqlrat_ 14 4 4 6 6 4 */
02462 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */
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 /*:ref: r1mach_ 6 1 4 */
02465 /*:ref: hstart_ 14 17 214 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 6 */
02466 extern E_f carg_(complex *z__);
02467 extern int cpzero_(integer *in, complex *a, complex *r__, complex *t, integer *iflg, real *s);
02468 /*:ref: cpevl_ 14 7 4 4 8 8 8 8 12 */
02469 extern int ddrvb1_(integer *n, doublereal *t, doublereal *y, doublereal *tout, integer *mstate, doublereal *eps, doublereal *work, integer *lenw);
02470 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02471 /*:ref: d1mach_ 7 1 4 */
02472 /*:ref: ddrvb3_ 14 27 4 7 7 200 4 7 4 4 7 7 4 4 4 4 4 4 4 7 7 4 4 4 200 200 4 4 207 */
02473 /*:ref: g_ 7 :*/
02474 extern int dppsl_(doublereal *ap, integer *n, doublereal *b);
02475 /*:ref: ddot_ 7 5 4 7 4 7 4 */
02476 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02480 extern int rsco_(real *rsav, integer *isav);
02481 /* comlen debdf1_ 1004 */
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 /*:ref: d1mach_ 6 1 4 */
02484 extern C_f casin_(complex * ret_val, complex *zinp);
02485 /*:ref: r1mach_ 6 1 4 */
02486 extern int cqrdc_(complex *x, integer *ldx, integer *n, integer *p, complex *qraux, integer *jpvt, complex *work, integer *job);
02487 /*:ref: cswap_ 14 5 4 8 4 8 4 */
02488 /*:ref: scnrm2_ 6 3 4 8 4 */
02489 /*:ref: cscal_ 14 4 4 8 8 4 */
02490 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
02491 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02494 /*:ref: d1mach_ 7 1 4 */
02495 /*:ref: ddrvb3_ 14 27 4 7 7 200 4 7 4 4 7 7 4 4 4 4 4 4 4 7 7 4 4 4 200 200 4 4 207 */
02496 extern doublereal dppval_(integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, integer *k, integer *ideriv, doublereal *x, integer *inppv);
02497 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */
02498 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02499 extern int fulmat_(integer *i__, integer *j, real *aij, integer *indcat, real *prgopt, real *dattrv, integer *iflag);
02500 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02501 extern int pchim_(integer *n, real *x, real *f, real *d__, integer *incfd, integer *ierr);
02502 /*:ref: pchst_ 6 2 6 6 */
02503 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: reduc_ 14 6 4 4 6 6 6 4 */
02506 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */
02507 /*:ref: tqlrat_ 14 4 4 6 6 4 */
02508 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */
02509 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */
02510 /*:ref: rebak_ 14 6 4 4 6 6 4 6 */
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 /* comlen debdf1_ 1004 */
02513 /*:ref: cfod_ 14 3 4 6 6 */
02514 /*:ref: vnwrms_ 6 3 4 6 6 */
02515 /*:ref: pjac_ 14 13 4 6 6 4 6 6 6 6 4 214 200 6 4 */
02516 /*:ref: slvs_ 14 4 6 4 6 6 */
02517 extern C_f casinh_(complex * ret_val, complex *z__);
02518 /*:ref: casin_ 8 2 8 8 */
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 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
02521 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
02522 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
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 /*:ref: d1mach_ 7 1 4 */
02525 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02526 /*:ref: ddntpb_ 14 8 7 4 4 4 7 7 7 7 */
02527 /*:ref: users_ 14 12 7 7 7 7 7 7 7 7 4 4 4 4 */
02528 /*:ref: dgefa_ 14 5 7 4 4 4 4 */
02529 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */
02530 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */
02531 /*:ref: dgbsl_ 14 8 7 4 4 4 4 4 7 4 */
02532 /*:ref: dnrm2_ 7 3 4 7 4 */
02533 /*:ref: ddstpb_ 14 48 7 214 214 7 4 200 4 4 4 4 4 4 4 4 7 7 7 7 7 7 4 4 4 4 4 4 4 7 7 7 7 12 7 7 7 4 4 4 4 7 7 7 7 7 7 4 4 4 */
02534 /*:ref: ddzrob_ 14 15 7 207 7 4 4 4 7 7 7 7 7 7 7 7 7 */
02535 extern doublereal dprvec_(integer *m, doublereal *u, doublereal *v);
02536 /*:ref: ddot_ 6 5 4 7 4 7 4 */
02537 extern int fzero_(E_fp f, real *b, real *c__, real *r__, real *re, real *ae, integer *iflag);
02538 /*:ref: r1mach_ 6 1 4 */
02539 extern int pchmc_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, integer *ismon, integer *ierr);
02540 /*:ref: chfmc_ 4 3 6 6 6 */
02541 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: reduc2_ 14 6 4 4 6 6 6 4 */
02544 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */
02545 /*:ref: tqlrat_ 14 4 4 6 6 4 */
02546 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */
02547 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */
02548 /*:ref: rebak_ 14 6 4 4 6 6 4 6 */
02549 extern int stor1_(real *u, real *yh, real *v, real *yp, integer *ntemp, integer *ndisk, integer *ntape);
02550 /* comlen ml8sz_ 28 */
02551 extern C_f catan_(complex * ret_val, complex *z__);
02552 /*:ref: r1mach_ 6 1 4 */
02553 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02558 /*:ref: dprwvr_ 14 5 4 4 4 7 4 */
02559 extern E_f gami_(real *a, real *x);
02560 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02561 /*:ref: alngam_ 6 1 6 */
02562 /*:ref: gamit_ 6 2 6 6 */
02563 extern int pchngs_(integer *ii, real *xval, integer *iplace, real *sx, integer *ix, integer *ircx);
02564 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02565 /*:ref: iploc_ 4 3 4 6 4 */
02566 /*:ref: prwpge_ 14 5 4 4 4 6 4 */
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 /*:ref: reduc2_ 14 6 4 4 6 6 6 4 */
02569 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */
02570 /*:ref: tqlrat_ 14 4 4 6 6 4 */
02571 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */
02572 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */
02573 /*:ref: rebakb_ 14 6 4 4 6 6 4 6 */
02574 extern int strco_(real *t, integer *ldt, integer *n, real *rcond, real *z__, integer *job);
02575 /*:ref: sasum_ 6 3 4 6 4 */
02576 /*:ref: sscal_ 14 4 4 6 6 4 */
02577 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02578 extern C_f catan2_(complex * ret_val, complex *csn, complex *ccs);
02579 /*:ref: catan_ 8 2 8 8 */
02580 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: ddntlb_ 14 38 7 214 200 7 7 4 4 4 4 4 4 4 4 4 4 7 7 7 7 7 4 4 4 7 7 7 12 7 12 4 4 4 7 7 7 7 7 4 */
02584 /*:ref: ddpscb_ 14 4 4 4 4 7 */
02585 /*:ref: ddpstb_ 14 28 7 214 200 7 4 200 4 4 4 4 4 4 4 7 7 7 7 7 7 4 4 7 7 12 4 7 4 7 */
02586 /*:ref: ddcorb_ 14 22 7 7 200 7 4 4 4 4 4 4 4 4 4 7 7 7 7 12 7 7 7 7 */
02587 /*:ref: dnrm2_ 7 3 4 7 4 */
02588 /*:ref: ddsclb_ 14 8 7 4 4 7 7 7 7 7 */
02589 /*:ref: ddcstb_ 14 5 4 4 4 7 7 */
02590 extern int dprwvr_(integer *key, integer *ipage, integer *lpg, doublereal *sx, integer *ix);
02591 /*:ref: sopenm_ 14 2 4 4 */
02592 /*:ref: dreadp_ 14 5 4 4 7 4 4 */
02593 /*:ref: dwritp_ 14 5 4 4 7 4 4 */
02594 extern E_f gamic_(real *a, real *x);
02595 /*:ref: r1mach_ 6 1 4 */
02596 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02597 /*:ref: alngam_ 6 1 6 */
02598 /*:ref: r9gmic_ 6 3 6 6 6 */
02599 /*:ref: algams_ 14 3 6 6 6 */
02600 /*:ref: r9gmit_ 6 5 6 6 6 6 6 */
02601 /*:ref: r9lgic_ 6 3 6 6 6 */
02602 /*:ref: r9lgit_ 6 3 6 6 6 */
02603 /*:ref: xerclr_ 14 0 */
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 /*:ref: pchdf_ 6 4 4 6 6 4 */
02606 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: tred3_ 14 6 4 4 6 6 6 6 */
02609 /*:ref: tqlrat_ 14 4 4 6 6 4 */
02610 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */
02611 /*:ref: trbak3_ 14 6 4 4 4 6 4 6 */
02612 extern int strdi_(real *t, integer *ldt, integer *n, real *det, integer *job, integer *info);
02613 /*:ref: sscal_ 14 4 4 6 6 4 */
02614 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02615 extern C_f catanh_(complex * ret_val, complex *z__);
02616 /*:ref: catan_ 8 2 8 8 */
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 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: ddntpb_ 14 8 7 4 4 4 7 7 7 7 */
02621 extern doublereal dpsi_(doublereal *x);
02622 /*:ref: initds_ 4 3 7 4 6 */
02623 /*:ref: d1mach_ 7 1 4 */
02624 /*:ref: dcsevl_ 7 3 7 7 4 */
02625 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02626 /*:ref: dcot_ 7 1 7 */
02627 extern E_f gamit_(real *a, real *x);
02628 /*:ref: r1mach_ 6 1 4 */
02629 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02630 /*:ref: gamr_ 6 1 6 */
02631 /*:ref: algams_ 14 3 6 6 6 */
02632 /*:ref: r9gmit_ 6 5 6 6 6 6 6 */
02633 /*:ref: r9lgit_ 6 3 6 6 6 */
02634 /*:ref: alngam_ 6 1 6 */
02635 /*:ref: xerclr_ 14 0 */
02636 /*:ref: r9lgic_ 6 3 6 6 6 */
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 /*:ref: imtql1_ 14 4 4 6 6 4 */
02640 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */
02641 extern int strsl_(real *t, integer *ldt, integer *n, real *b, integer *job, integer *info);
02642 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02643 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02647 extern doublereal de1_(doublereal *x);
02648 /*:ref: d1mach_ 7 1 4 */
02649 /*:ref: initds_ 4 3 7 4 6 */
02650 /*:ref: dcsevl_ 7 3 7 7 4 */
02651 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02652 extern int dpsifn_(doublereal *x, integer *n, integer *kode, integer *m, doublereal *ans, integer *nz, integer *ierr);
02653 /*:ref: i1mach_ 4 1 4 */
02654 /*:ref: d1mach_ 7 1 4 */
02655 extern int gamlim_(real *xmin, real *xmax);
02656 /*:ref: r1mach_ 6 1 4 */
02657 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02658 extern int pchsw_(real *dfmax, integer *iextrm, real *d1, real *d2, real *h__, real *slope, integer *ierr);
02659 /*:ref: r1mach_ 6 1 4 */
02660 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02661 extern int rt_(integer *nm, integer *n, real *a, real *w, integer *matz, real *z__, real *fv1, integer *ierr);
02662 /*:ref: figi_ 14 7 4 4 6 6 6 6 4 */
02663 /*:ref: imtql1_ 14 4 4 6 6 4 */
02664 /*:ref: figi2_ 14 7 4 4 6 6 6 6 4 */
02665 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */
02666 extern int stway_(real *u, real *v, real *yhp, integer *inout, real *stowa);
02667 /* comlen ml8sz_ 28 */
02668 /* comlen ml15to_ 116 */
02669 /* comlen ml18jr_ 72 */
02670 /*:ref: stor1_ 14 7 6 6 6 6 4 4 4 */
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 /*:ref: scasum_ 6 3 4 8 4 */
02674 /*:ref: csifa_ 14 5 8 4 4 4 4 */
02675 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02676 /*:ref: csscal_ 14 4 4 6 8 4 */
02677 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
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 /*:ref: r1mach_ 6 1 4 */
02680 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02681 /*:ref: intrp_ 14 9 6 6 6 6 6 4 4 6 6 */
02682 /*:ref: step2_ 14 30 214 4 6 6 6 6 6 12 6 4 4 12 6 6 6 6 6 6 6 6 6 6 12 4 12 4 6 6 6 4 */
02683 extern doublereal dpsixn_(integer *n);
02684 /*:ref: d1mach_ 7 1 4 */
02685 extern E_f gamma_(real *x);
02686 /*:ref: inits_ 4 3 6 4 6 */
02687 /*:ref: r1mach_ 6 1 4 */
02688 /*:ref: gamlim_ 14 2 6 6 */
02689 /*:ref: csevl_ 6 3 6 6 4 */
02690 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02691 /*:ref: r9lgmc_ 6 1 6 */
02692 extern int pcoef_(integer *l, real *c__, real *tc, real *a);
02693 /*:ref: pvalue_ 14 6 4 4 6 6 6 6 */
02694 extern E_f runif_(real *t, integer *n);
02695 /*:ref: rand_ 6 1 6 */
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 /*:ref: lssuds_ 14 20 6 6 6 4 4 4 6 4 4 4 4 4 6 6 4 6 6 6 4 6 */
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 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
02701 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
02702 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02703 /*:ref: cswap_ 14 5 4 8 4 8 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02706 /*:ref: des_ 14 51 200 4 6 6 6 4 6 6 4 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 6 12 12 12 12 12 4 4 4 4 4 4 4 4 4 4 4 6 4 */
02707 extern int dptsl_(integer *n, doublereal *d__, doublereal *e, doublereal *b);
02708 extern E_f gamr_(real *x);
02709 /*:ref: xgetf_ 14 1 4 */
02710 /*:ref: xsetf_ 14 1 4 */
02711 /*:ref: gamma_ 6 1 6 */
02712 /*:ref: xerclr_ 14 0 */
02713 /*:ref: algams_ 14 3 6 6 6 */
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 /*:ref: r1mach_ 6 1 4 */
02716 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */
02717 /*:ref: ppgq8_ 14 13 206 4 6 6 4 4 4 6 6 4 6 6 4 */
02718 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen debdf1_ 1004 */
02722 extern C_f cbeta_(complex * ret_val, complex *a, complex *b);
02723 /*:ref: gamlim_ 14 2 6 6 */
02724 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02725 /*:ref: cgamma_ 8 2 8 8 */
02726 /*:ref: clbeta_ 8 3 8 8 8 */
02727 extern int csifa_(complex *a, integer *lda, integer *n, integer *kpvt, integer *info);
02728 /*:ref: icamax_ 4 3 4 8 4 */
02729 /*:ref: cswap_ 14 5 4 8 4 8 4 */
02730 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
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 /* comlen debdf1_ 1004 */
02733 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02734 /*:ref: lsod_ 14 23 200 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 200 12 6 6 6 6 4 */
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 /*:ref: dqage_ 14 17 207 7 7 7 7 4 4 7 7 4 4 7 7 7 7 4 4 */
02737 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02738 extern E_f gamrn_(real *x);
02739 /*:ref: r1mach_ 6 1 4 */
02740 /*:ref: i1mach_ 4 1 4 */
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 /*:ref: pythag_ 6 2 6 6 */
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 /* comlen ccblk_ 28 */
02747 /*:ref: inxcb_ 14 4 4 4 4 4 */
02748 /*:ref: inxcc_ 14 4 4 4 4 4 */
02749 /*:ref: inxca_ 14 4 4 4 4 4 */
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 /*:ref: defcmn_ 14 19 4 7 7 7 4 4 7 4 4 7 7 7 7 7 7 4 7 4 4 */
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 /*:ref: d1mach_ 7 1 4 */
02755 /*:ref: dqk15_ 14 7 207 7 7 7 7 7 7 */
02756 /*:ref: dqk21_ 14 7 207 7 7 7 7 7 7 */
02757 /*:ref: dqk31_ 14 7 207 7 7 7 7 7 7 */
02758 /*:ref: dqk41_ 14 7 207 7 7 7 7 7 7 */
02759 /*:ref: dqk51_ 14 7 207 7 7 7 7 7 7 */
02760 /*:ref: dqk61_ 14 7 207 7 7 7 7 7 7 */
02761 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */
02762 extern int gaus8_(E_fp fun, real *a, real *b, real *err, real *ans, integer *ierr);
02763 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02764 /*:ref: i1mach_ 4 1 4 */
02765 /*:ref: r1mach_ 6 1 4 */
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 /* comlen ml18jr_ 72 */
02770 /*:ref: mgsbv_ 14 13 4 4 6 4 4 4 6 6 4 4 6 6 6 */
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 /* comlen ccblk_ 28 */
02773 /*:ref: ccmpb_ 14 8 4 4 6 6 6 6 6 6 */
02774 /*:ref: cblkt1_ 14 19 4 6 6 6 4 8 8 8 4 8 6 6 6 6 6 6 6 200 200 */
02775 extern int csisl_(complex *a, integer *lda, integer *n, integer *kpvt, complex *b);
02776 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02777 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
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 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02780 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02781 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
02782 /*:ref: dsort_ 14 4 7 7 4 4 */
02783 /*:ref: dbndac_ 14 7 7 4 4 4 4 4 4 */
02784 /*:ref: dfspvn_ 14 6 7 4 4 7 4 7 */
02785 /*:ref: dscal_ 14 4 4 7 7 4 */
02786 /*:ref: dbndsl_ 14 9 4 7 4 4 4 4 7 4 7 */
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 /*:ref: dqagie_ 14 16 207 7 4 7 7 4 7 7 4 4 7 7 7 7 4 4 */
02789 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02790 extern E_f gauss_(integer *n, E_fp y, integer *m, S_fp ltbl);
02791 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: i1mach_ 4 1 4 */
02796 extern E_f cbrt_(real *x);
02797 /*:ref: r1mach_ 6 1 4 */
02798 /*:ref: r9upak_ 14 3 6 6 4 */
02799 /*:ref: r9pak_ 6 2 6 4 */
02800 extern int cspco_(complex *ap, integer *n, integer *kpvt, real *rcond, complex *z__);
02801 /*:ref: scasum_ 6 3 4 8 4 */
02802 /*:ref: cspfa_ 14 4 8 4 4 4 */
02803 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02804 /*:ref: csscal_ 14 4 4 6 8 4 */
02805 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
02806 extern int defe4_(S_fp cofx, integer *idmn, real *usol, real *grhs);
02807 /* comlen spl4_ 80 */
02808 /*:ref: dx4_ 14 6 6 4 4 4 6 6 */
02809 /*:ref: dy4_ 14 6 6 4 4 4 6 6 */
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 /*:ref: d1mach_ 7 1 4 */
02812 /*:ref: dqk15i_ 14 9 207 7 4 7 7 7 7 7 7 */
02813 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */
02814 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */
02815 extern int gaussq_(integer *m, doublereal *t, doublereal *w, doublereal *b, doublereal *g, doublereal *fm);
02816 /*:ref: d1mach_ 6 1 4 */
02817 extern int pinitm_(integer *m, integer *n, real *sx, integer *ix, integer *lmx, integer *ipagef);
02818 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
02821 /*:ref: scopy_ 14 5 4 6 4 6 4 */
02822 /*:ref: sbols_ 14 13 6 4 4 4 6 6 4 4 6 6 4 6 4 */
02823 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02824 /*:ref: sasum_ 6 3 4 6 4 */
02825 /*:ref: snrm2_ 6 3 4 6 4 */
02826 /*:ref: sscal_ 14 4 4 6 6 4 */
02827 extern int swritp_(integer *ipage, integer *list, real *rlist, integer *lpage, integer *irec);
02828 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
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 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
02832 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
02833 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02834 /*:ref: cswap_ 14 5 4 8 4 8 4 */
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 /*:ref: dqagpe_ 14 21 207 7 7 4 7 7 7 4 7 7 4 4 7 7 7 7 7 4 4 4 4 */
02838 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: poisp2_ 14 16 4 4 6 6 6 6 4 6 6 6 6 6 6 6 6 6 */
02841 /*:ref: poisd2_ 14 13 4 4 4 6 6 6 6 4 6 6 6 6 6 */
02842 /*:ref: poisn2_ 14 18 4 4 4 4 6 6 6 6 4 6 6 6 6 6 6 6 6 6 */
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 /* comlen debdf1_ 1004 */
02845 /*:ref: vnwrms_ 6 3 4 6 6 */
02846 /*:ref: sgefa_ 14 5 6 4 4 4 4 */
02847 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
02850 /*:ref: isamax_ 4 3 4 6 4 */
02851 /*:ref: srotg_ 14 4 6 6 6 6 */
02852 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
02853 /*:ref: snrm2_ 6 3 4 6 4 */
02854 /*:ref: sbolsm_ 14 16 6 4 4 4 6 6 4 4 6 6 4 6 6 6 4 4 */
02855 extern int tevlc_(integer *n, real *d__, real *e2, integer *ierr);
02856 /* comlen ccblk_ 28 */
02857 extern C_f ccbrt_(complex * ret_val, complex *z__);
02858 /*:ref: carg_ 6 1 8 */
02859 /*:ref: cbrt_ 6 1 6 */
02860 extern int cspfa_(complex *ap, integer *n, integer *kpvt, integer *info);
02861 /*:ref: icamax_ 4 3 4 8 4 */
02862 /*:ref: cswap_ 14 5 4 8 4 8 4 */
02863 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02864 extern int defer_(S_fp cofx, S_fp cofy, integer *idmn, real *usol, real *grhs);
02865 /* comlen splpzz_ 80 */
02866 /*:ref: dx_ 14 6 6 4 4 4 6 6 */
02867 /*:ref: dy_ 14 6 6 4 4 4 6 6 */
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 /*:ref: d1mach_ 7 1 4 */
02870 /*:ref: dqk21_ 14 7 207 7 7 7 7 7 7 */
02871 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */
02872 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */
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 /*:ref: stltjs_ 14 10 4 4 7 7 7 4 7 207 6 6 */
02875 /*:ref: phi_ 7 :*/
02876 /*:ref: gaussq_ 14 6 4 7 7 7 7 7 */
02877 extern int pnnzrs_(integer *i__, real *xval, integer *iplace, real *sx, integer *ix, integer *ircx);
02878 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02879 /*:ref: iploc_ 4 3 4 6 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
02882 /*:ref: smout_ 14 7 4 4 4 6 13 4 124 */
02883 /*:ref: svout_ 14 5 4 6 13 4 124 */
02884 /*:ref: scopy_ 14 5 4 6 4 6 4 */
02885 /*:ref: snrm2_ 6 3 4 6 4 */
02886 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02887 /*:ref: ivout_ 14 5 4 4 13 4 124 */
02888 /*:ref: srotg_ 14 4 6 6 6 6 */
02889 /*:ref: sswap_ 14 5 4 6 4 6 4 */
02890 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
02891 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02892 /*:ref: r1mach_ 6 1 4 */
02893 extern int tevls_(integer *n, real *d__, real *e2, integer *ierr);
02894 /* comlen cblkt_ 28 */
02895 extern int cchdc_(complex *a, integer *lda, integer *p, complex *work, integer *jpvt, integer *job, integer *info);
02896 /*:ref: cswap_ 14 5 4 8 4 8 4 */
02897 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02898 extern int cspsl_(complex *ap, integer *n, integer *kpvt, complex *b);
02899 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
02900 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
02901 extern doublereal dei_(doublereal *x);
02902 /*:ref: de1_ 7 1 7 */
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 /*:ref: dqagse_ 14 16 207 7 7 7 7 4 7 7 4 4 7 7 7 7 4 4 */
02905 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: sswap_ 14 5 4 6 4 6 4 */
02908 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02909 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02910 extern E_f poch_(real *a, real *x);
02911 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02912 /*:ref: fac_ 6 1 4 */
02913 /*:ref: alnrel_ 6 1 6 */
02914 /*:ref: r9lgmc_ 6 1 6 */
02915 /*:ref: gamma_ 6 1 6 */
02916 /*:ref: gamr_ 6 1 6 */
02917 /*:ref: cot_ 6 1 6 */
02918 /*:ref: algams_ 14 3 6 6 6 */
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 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
02923 /*:ref: scnrm2_ 6 3 4 8 4 */
02924 extern int csroot_(real *xr, real *xi, real *yr, real *yi);
02925 /*:ref: pythag_ 6 2 6 6 */
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 /*:ref: d1mach_ 7 1 4 */
02929 /*:ref: dqk21_ 14 7 207 7 7 7 7 7 7 */
02930 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */
02931 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02934 /*:ref: diff_ 6 2 6 6 */
02935 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */
02936 extern E_f poch1_(real *a, real *x);
02937 /*:ref: r1mach_ 6 1 4 */
02938 /*:ref: psi_ 6 1 6 */
02939 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02940 /*:ref: exprel_ 6 1 6 */
02941 /*:ref: cot_ 6 1 6 */
02942 /*:ref: poch_ 6 2 6 6 */
02943 extern int schdc_(real *a, integer *lda, integer *p, real *work, integer *jpvt, integer *job, integer *info);
02944 /*:ref: sswap_ 14 5 4 6 4 6 4 */
02945 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
02946 extern int tql1_(integer *n, real *d__, real *e, integer *ierr);
02947 /*:ref: pythag_ 6 2 6 6 */
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 /*:ref: crotg_ 14 4 8 8 6 8 */
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 /*:ref: initds_ 4 3 7 4 6 */
02953 /*:ref: d1mach_ 7 1 4 */
02954 /*:ref: dcsevl_ 7 3 7 7 4 */
02955 /*:ref: derfc_ 7 1 7 */
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 /*:ref: dqawce_ 14 17 207 7 7 7 7 7 4 7 7 4 4 7 7 7 7 4 4 */
02958 /*:ref: xerror_ 14 5 13 4 4 4 124 */
02959 extern int hkseq_(real *x, integer *m, real *h__, integer *ierr);
02960 /*:ref: r1mach_ 6 1 4 */
02961 /*:ref: i1mach_ 4 1 4 */
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 /*:ref: pos3d1_ 14 20 4 4 4 4 4 6 6 6 4 4 6 6 6 6 6 6 6 6 6 6 */
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 /*:ref: sdot_ 6 5 4 6 4 6 4 */
02966 /*:ref: snrm2_ 6 3 4 6 4 */
02967 extern int tql2_(integer *nm, integer *n, real *d__, real *e, real *z__, integer *ierr);
02968 /*:ref: pythag_ 6 2 6 6 */
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 /*:ref: crotg_ 14 4 8 8 6 8 */
02971 extern int csscal_(integer *n, real *sa, complex *cx, integer *incx);
02972 extern doublereal derfc_(doublereal *x);
02973 /*:ref: d1mach_ 7 1 4 */
02974 /*:ref: initds_ 4 3 7 4 6 */
02975 /*:ref: dcsevl_ 7 3 7 7 4 */
02976 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: d1mach_ 7 1 4 */
02979 /*:ref: dqc25c_ 14 8 207 7 7 7 7 7 4 4 */
02980 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */
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 /*:ref: trix_ 14 10 4 4 4 6 6 6 6 6 6 6 */
02984 /*:ref: cosgen_ 14 5 4 4 6 6 6 */
02985 /*:ref: merge_ 14 6 6 4 4 4 4 4 */
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 /*:ref: srotg_ 14 4 6 6 6 6 */
02988 extern int tqlrat_(integer *n, real *d__, real *e2, integer *ierr);
02989 /*:ref: pythag_ 6 2 6 6 */
02990 extern int ccmpb_(integer *n, integer *ierror, real *an, real *bn, real *cn, real *b, real *ah, real *bh);
02991 /* comlen ccblk_ 28 */
02992 /*:ref: epmach_ 6 1 6 */
02993 /*:ref: inxcb_ 14 4 4 4 4 4 */
02994 /*:ref: tevlc_ 14 4 4 6 6 4 */
02995 /*:ref: cpadd_ 14 7 4 4 6 6 6 6 6 */
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 /*:ref: scnrm2_ 6 3 4 8 4 */
02998 /*:ref: cscal_ 14 4 4 8 8 4 */
02999 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
03000 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
03001 /*:ref: srotg_ 14 4 6 6 6 6 */
03002 /*:ref: csrot_ 14 7 4 8 4 8 4 6 6 */
03003 /*:ref: cswap_ 14 5 4 8 4 8 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
03006 /*:ref: derkfs_ 14 32 200 4 6 6 6 4 6 6 4 6 6 6 6 6 6 6 6 6 6 6 6 6 4 4 4 4 12 12 4 4 6 4 */
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 /*:ref: dqawfe_ 14 23 207 7 7 4 7 4 4 4 7 7 4 4 7 7 4 4 7 7 7 7 4 4 7 */
03009 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03010 extern int hqr2_(integer *nm, integer *n, integer *low, integer *igh, real *h__, real *wr, real *wi, real *z__, integer *ierr);
03011 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */
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 /*:ref: cosgen_ 14 5 4 4 6 6 6 */
03014 /*:ref: trix_ 14 10 4 4 4 6 6 6 6 6 6 6 */
03015 /*:ref: merge_ 14 6 6 4 4 4 4 4 */
03016 /*:ref: tri3_ 14 13 4 6 6 6 4 6 6 6 6 6 6 6 6 */
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 /*:ref: srotg_ 14 4 6 6 6 6 */
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 /*:ref: r1mach_ 6 1 4 */
03024 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
03025 /*:ref: vnorm_ 6 2 6 4 */
03026 /*:ref: hstart_ 14 17 214 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 6 */
03027 /*:ref: defehl_ 14 14 214 4 6 6 6 6 6 6 6 6 6 6 6 4 */
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 /*:ref: dqagie_ 14 16 207 7 4 7 7 4 7 7 4 4 7 7 7 7 4 4 */
03030 /*:ref: d1mach_ 7 1 4 */
03031 /*:ref: dqawoe_ 14 23 207 7 7 7 4 7 7 4 4 4 7 7 4 4 4 7 7 7 7 4 4 4 7 */
03032 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */
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 /*:ref: poisd2_ 14 13 4 4 4 6 6 6 6 4 6 6 6 6 6 */
03036 /*:ref: poisn2_ 14 18 4 4 4 4 6 6 6 6 4 6 6 6 6 6 6 6 6 6 */
03037 extern int sclosm_(integer *ipage);
03038 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
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 /*:ref: r1mach_ 6 1 4 */
03043 /*:ref: xerclr_ 14 0 */
03044 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
03047 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
03048 /*:ref: sintrp_ 14 17 6 6 6 6 6 4 4 6 4 4 4 6 6 6 6 6 6 */
03049 /*:ref: steps_ 14 36 214 4 6 6 6 6 6 12 6 4 4 12 6 6 6 6 6 6 6 6 6 6 12 4 12 4 6 6 6 4 4 4 4 6 6 4 */
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 /*:ref: dqawoe_ 14 23 207 7 7 7 4 7 7 4 4 4 7 7 4 4 4 7 7 7 7 4 4 4 7 */
03052 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: vnorm_ 6 2 6 4 */
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 /*:ref: postg2_ 14 17 4 4 4 6 6 6 4 6 6 6 6 6 6 6 6 6 6 */
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 /*:ref: r1mach_ 6 1 4 */
03061 /*:ref: xerclr_ 14 0 */
03062 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03063 extern C_f ctanh_(complex * ret_val, complex *z__);
03064 /*:ref: ctan_ 8 2 8 8 */
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 /* comlen dml8sz_ 36 */
03067 /* comlen dml18j_ 84 */
03068 /* comlen dml15t_ 148 */
03069 /* comlen dml17b_ 72 */
03070 /* comlen dml5mc_ 52 */
03071 /*:ref: dbvpor_ 14 31 7 4 4 7 4 7 4 7 4 7 4 7 4 4 7 4 7 4 4 7 4 7 7 7 7 7 7 7 7 4 4 */
03072 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
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 /*:ref: d1mach_ 7 1 4 */
03075 /*:ref: dqc25f_ 14 15 207 7 7 7 4 4 4 4 7 7 4 7 7 4 7 */
03076 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */
03077 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */
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 /*:ref: poistg_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
03080 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
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 /* comlen ml5mco_ 28 */
03084 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03085 /*:ref: xgetf_ 14 1 4 */
03086 /*:ref: xsetf_ 14 1 4 */
03087 /*:ref: suds_ 14 10 6 6 6 4 4 4 4 4 6 4 */
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 /*:ref: scasum_ 6 3 4 8 4 */
03092 /*:ref: csscal_ 14 4 4 6 8 4 */
03093 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
03094 extern int dexint_(doublereal *x, integer *n, integer *kode, integer *m, doublereal *tol, doublereal *en, integer *ierr);
03095 /*:ref: d1mach_ 7 1 4 */
03096 /*:ref: i1mach_ 4 1 4 */
03097 /*:ref: dpsixn_ 7 1 4 */
03098 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dqawse_ 14 19 207 7 7 7 7 4 7 7 4 7 7 4 4 7 7 7 7 4 4 */
03101 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: blktri_ 14 15 4 4 4 6 6 6 4 4 6 6 6 4 6 4 6 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03106 /*:ref: pvalue_ 14 6 4 4 6 6 6 6 */
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 /*:ref: scnrm2_ 6 3 4 8 4 */
03111 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */
03112 /*:ref: cgbsl_ 14 8 8 4 4 4 4 4 8 4 */
03113 /*:ref: users_ 14 12 8 8 8 8 8 6 6 6 4 4 4 4 */
03114 extern int ctrdi_(complex *t, integer *ldt, integer *n, complex *det, integer *job, integer *info);
03115 /*:ref: cscal_ 14 4 4 8 8 4 */
03116 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
03117 extern doublereal dexprl_(doublereal *x);
03118 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: d1mach_ 7 1 4 */
03121 /*:ref: dqmomo_ 14 7 7 7 7 7 7 7 4 */
03122 /*:ref: dqc25s_ 14 16 207 7 7 7 7 7 7 7 7 7 7 7 7 7 4 4 */
03123 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */
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 /*:ref: pimach_ 6 1 6 */
03126 /*:ref: hstcs1_ 14 27 4 6 6 4 4 6 6 6 6 4 4 6 6 6 6 4 6 4 6 6 6 6 6 6 6 6 6 */
03127 extern int polint_(integer *n, real *x, real *y, real *c__);
03128 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
03134 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
03135 extern doublereal dfac_(integer *n);
03136 /*:ref: dgamlm_ 14 2 7 7 */
03137 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03138 /*:ref: d9lgmc_ 7 1 7 */
03139 extern int dqc25c_(D_fp f, doublereal *a, doublereal *b, doublereal *c__, doublereal *result, doublereal *abserr, integer *krul, integer *neval);
03140 /*:ref: dqk15w_ 14 13 207 207 7 7 7 7 4 7 7 7 7 7 7 */
03141 /*:ref: dqwgtc_ 7 :*/
03142 /*:ref: dqcheb_ 14 4 7 7 7 7 */
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 /*:ref: poistg_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
03145 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
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 /*:ref: enorm_ 6 2 4 6 */
03149 /*:ref: fdjac3_ 14 10 214 4 4 6 6 6 4 4 6 6 */
03150 /*:ref: qrfac_ 14 10 4 4 6 4 12 4 4 6 6 6 */
03151 /*:ref: rwupdt_ 14 8 4 6 4 6 6 6 6 6 */
03152 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: bsplvn_ 14 6 6 4 4 6 4 6 */
03157 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: dfcmn_ 14 23 4 7 7 7 4 4 7 4 7 7 4 4 7 7 7 7 7 7 4 7 4 7 4 */
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 /*:ref: d1mach_ 7 1 4 */
03162 /*:ref: dqk15w_ 14 13 207 207 7 7 7 7 4 7 7 7 7 7 7 */
03163 /*:ref: dqwgtf_ 7 :*/
03164 /*:ref: dgtsl_ 14 6 4 7 7 7 7 4 */
03165 /*:ref: dqcheb_ 14 4 7 7 7 7 */
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 /*:ref: poistg_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
03168 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
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 /*:ref: pimach_ 6 1 6 */
03171 /*:ref: sinti_ 14 2 4 6 */
03172 /*:ref: costi_ 14 2 4 6 */
03173 /*:ref: rffti_ 14 2 4 6 */
03174 /*:ref: sinqi_ 14 2 4 6 */
03175 /*:ref: cosqi_ 14 2 4 6 */
03176 /*:ref: rfftf_ 14 3 4 6 6 */
03177 /*:ref: rfftb_ 14 3 4 6 6 */
03178 /*:ref: sint_ 14 3 4 6 6 */
03179 /*:ref: sinqf_ 14 3 4 6 6 */
03180 /*:ref: sinqb_ 14 3 4 6 6 */
03181 /*:ref: cost_ 14 3 4 6 6 */
03182 /*:ref: cosqf_ 14 3 4 6 6 */
03183 /*:ref: cosqb_ 14 3 4 6 6 */
03184 /*:ref: tridq_ 14 6 4 6 6 6 6 6 */
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 /*:ref: snrm2_ 6 3 4 6 4 */
03187 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */
03188 /*:ref: sgbsl_ 14 8 6 4 4 4 4 4 6 4 */
03189 /*:ref: users_ 14 12 6 6 6 6 6 6 6 6 4 4 4 4 */
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 /*:ref: cdcstb_ 14 5 4 4 4 6 6 */
03193 /*:ref: users_ 14 12 8 8 8 8 8 6 6 6 4 4 4 4 */
03194 /*:ref: cgefa_ 14 5 8 4 4 4 4 */
03195 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */
03196 /*:ref: cgbfa_ 14 7 8 4 4 4 4 4 4 */
03197 /*:ref: cgbsl_ 14 8 8 4 4 4 4 4 8 4 */
03198 /*:ref: scnrm2_ 6 3 4 8 4 */
03199 /*:ref: cdsclb_ 14 8 6 4 4 6 6 6 6 8 */
03200 extern doublereal d1mach_(integer *i__);
03201 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dbndsl_ 14 9 4 7 4 4 4 4 7 4 7 */
03204 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
03205 /*:ref: dlsei_ 14 13 7 4 4 4 4 4 7 7 7 7 4 7 4 */
03206 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03207 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03208 /*:ref: dsort_ 14 4 7 7 4 4 */
03209 /*:ref: dbndac_ 14 7 7 4 4 4 4 4 4 */
03210 /*:ref: dfspvn_ 14 6 7 4 4 7 4 7 */
03211 /*:ref: dscal_ 14 4 4 7 7 4 */
03212 /*:ref: dfspvd_ 14 6 7 4 7 4 7 4 */
03213 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: dqk15w_ 14 13 207 207 7 7 7 7 4 7 7 7 7 7 7 */
03216 /*:ref: dqwgts_ 7 :*/
03217 /*:ref: dqcheb_ 14 4 7 7 7 7 */
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 /*:ref: pimach_ 6 1 6 */
03220 /*:ref: poistg_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
03221 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
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 /*:ref: cosgen_ 14 5 4 4 6 6 6 */
03224 /*:ref: trix_ 14 10 4 4 4 6 6 6 6 6 6 6 */
03225 /*:ref: merge_ 14 6 6 4 4 4 4 4 */
03226 /*:ref: tri3_ 14 13 4 6 6 6 4 6 6 6 6 6 6 6 6 */
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 /*:ref: d1mach_ 7 1 4 */
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 /* comlen cblkt_ 28 */
03237 /*:ref: psgf_ 6 5 6 4 6 6 6 */
03238 /*:ref: bsrh_ 6 8 6 6 4 6 6 6 206 6 */
03239 /*:ref: ppsgf_ 6 5 6 4 6 6 6 */
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 /*:ref: sdcstb_ 14 5 4 4 4 6 6 */
03242 /*:ref: users_ 14 12 6 6 6 6 6 6 6 6 4 4 4 4 */
03243 /*:ref: sgefa_ 14 5 6 4 4 4 4 */
03244 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */
03245 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */
03246 /*:ref: sgbsl_ 14 8 6 4 4 4 4 4 6 4 */
03247 /*:ref: snrm2_ 6 3 4 6 4 */
03248 /*:ref: sdsclb_ 14 8 6 4 4 6 6 6 6 6 */
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 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: d1mach_ 7 1 4 */
03255 extern doublereal dqdota_(integer *n, doublereal *db, integer *qc, doublereal *dx, integer *incx, doublereal *dy, integer *incy);
03256 /* comlen mpcom_ 68 */
03257 /*:ref: mpblas_ 14 1 4 */
03258 /*:ref: mpcdm_ 14 2 7 4 */
03259 /*:ref: mpadd_ 14 3 4 4 4 */
03260 /*:ref: mpmul_ 14 3 4 4 4 */
03261 /*:ref: mpcmd_ 14 2 4 7 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03265 /*:ref: i1mach_ 4 1 4 */
03266 /*:ref: r1mach_ 6 1 4 */
03267 /*:ref: ppval_ 6 8 4 6 6 4 4 4 6 4 */
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 /*:ref: d1mach_ 7 1 4 */
03273 /*:ref: initds_ 4 3 7 4 6 */
03274 /*:ref: dcsevl_ 7 3 7 7 4 */
03275 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /* comlen mpcom_ 68 */
03279 /*:ref: mpblas_ 14 1 4 */
03280 /*:ref: mpcdm_ 14 2 7 4 */
03281 /*:ref: mpadd_ 14 3 4 4 4 */
03282 /*:ref: mpmul_ 14 3 4 4 4 */
03283 /*:ref: mpcmd_ 14 2 4 7 */
03284 extern int htrid3_(integer *nm, integer *n, real *a, real *d__, real *e, real *e2, real *tau);
03285 /*:ref: pythag_ 6 2 6 6 */
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 /*:ref: d1mach_ 7 1 4 */
03292 /*:ref: initds_ 4 3 7 4 6 */
03293 /*:ref: dcsevl_ 7 3 7 7 4 */
03294 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03295 extern int dfspvd_(doublereal *t, integer *k, doublereal *x, integer *ileft, doublereal *vnikx, integer *nderiv);
03296 /*:ref: dfspvn_ 14 6 7 4 4 7 4 7 */
03297 extern int dqelg_(integer *n, doublereal *epstab, doublereal *result, doublereal *abserr, doublereal *res3la, integer *nres);
03298 /*:ref: d1mach_ 7 1 4 */
03299 extern int htridi_(integer *nm, integer *n, real *ar, real *ai, real *d__, real *e, real *e2, real *tau);
03300 /*:ref: pythag_ 6 2 6 6 */
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 /*:ref: snrm2_ 6 3 4 6 4 */
03305 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03306 /*:ref: sswap_ 14 5 4 6 4 6 4 */
03307 /*:ref: iswap_ 14 5 4 4 4 4 4 */
03308 /*:ref: isamax_ 4 3 4 6 4 */
03309 /*:ref: sscal_ 14 4 4 6 6 4 */
03310 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03311 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
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 /*:ref: scnrm2_ 6 3 4 8 4 */
03314 /*:ref: cgefa_ 14 5 8 4 4 4 4 */
03315 /*:ref: cgbfa_ 14 7 8 4 4 4 4 4 4 */
03316 /*:ref: users_ 14 12 8 8 8 8 8 6 6 6 4 4 4 4 */
03317 extern int d9b0mp_(doublereal *x, doublereal *ampl, doublereal *theta);
03318 /*:ref: d1mach_ 7 1 4 */
03319 /*:ref: initds_ 4 3 7 4 6 */
03320 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03321 /*:ref: dcsevl_ 7 3 7 7 4 */
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 /*:ref: pois3d_ 14 16 4 4 6 4 4 6 4 4 6 6 6 4 4 6 4 6 */
03326 extern int ppqad_(integer *ldc, real *c__, real *xi, integer *lxi, integer *k, real *x1, real *x2, real *pquad);
03327 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */
03328 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: snrm2_ 6 3 4 6 4 */
03331 /*:ref: sgefa_ 14 5 6 4 4 4 4 */
03332 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */
03333 /*:ref: users_ 14 12 6 6 6 6 6 6 6 6 4 4 4 4 */
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 /*:ref: snrm2_ 6 3 4 6 4 */
03336 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03337 /*:ref: sswap_ 14 5 4 6 4 6 4 */
03338 /*:ref: iswap_ 14 5 4 4 4 4 4 */
03339 /*:ref: isamax_ 4 3 4 6 4 */
03340 /*:ref: sscal_ 14 4 4 6 6 4 */
03341 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03342 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03343 extern int cdrvb1_(integer *n, real *t, complex *y, real *tout, integer *mstate, real *eps, complex *work, integer *lenw);
03344 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03345 /*:ref: r1mach_ 6 1 4 */
03346 /*:ref: cdrvb3_ 14 27 4 6 8 200 4 6 4 4 6 6 4 4 4 4 4 4 4 6 8 4 4 4 200 200 4 4 206 */
03347 /*:ref: g_ 6 :*/
03348 extern int d9b1mp_(doublereal *x, doublereal *ampl, doublereal *theta);
03349 /*:ref: d1mach_ 7 1 4 */
03350 /*:ref: initds_ 4 3 7 4 6 */
03351 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03352 /*:ref: dcsevl_ 7 3 7 7 4 */
03353 extern int dfulmt_(integer *i__, integer *j, doublereal *aij, integer *indcat, doublereal *prgopt, doublereal *dattrv, integer *iflag);
03354 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03355 extern int dqk15_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03356 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03362 /*:ref: r1mach_ 6 1 4 */
03363 /*:ref: sdrvb3_ 14 27 4 6 6 200 4 6 4 4 6 6 4 4 4 4 4 4 4 6 6 4 4 4 200 200 4 4 206 */
03364 /*:ref: g_ 6 :*/
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 /*:ref: snrm2_ 6 3 4 6 4 */
03367 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03368 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03369 /*:ref: sswap_ 14 5 4 6 4 6 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03372 /*:ref: r1mach_ 6 1 4 */
03373 /*:ref: cdrvb3_ 14 27 4 6 8 200 4 6 4 4 6 6 4 4 4 4 4 4 4 6 8 4 4 4 200 200 4 4 206 */
03374 extern doublereal d9chu_(doublereal *a, doublereal *b, doublereal *z__);
03375 /*:ref: d1mach_ 7 1 4 */
03376 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03377 extern int dfzero_(D_fp f, doublereal *b, doublereal *c__, doublereal *r__, doublereal *re, doublereal *ae, integer *iflag);
03378 /*:ref: d1mach_ 7 1 4 */
03379 extern int dqk15i_(D_fp f, doublereal *boun, integer *inf, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03380 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: pimach_ 6 1 6 */
03383 /*:ref: epmach_ 6 1 6 */
03384 /*:ref: blktri_ 14 15 4 4 4 6 6 6 4 4 6 6 6 4 6 4 6 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03388 /*:ref: r1mach_ 6 1 4 */
03389 /*:ref: sdrvb3_ 14 27 4 6 6 200 4 6 4 4 6 6 4 4 4 4 4 4 4 6 6 4 4 4 200 200 4 4 206 */
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 /*:ref: snrm2_ 6 3 4 6 4 */
03392 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03393 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03394 /*:ref: sswap_ 14 5 4 6 4 6 4 */
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 /*:ref: r1mach_ 6 1 4 */
03397 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03398 /*:ref: cdntpb_ 14 8 6 4 4 4 6 6 8 8 */
03399 /*:ref: users_ 14 12 8 8 8 8 8 6 6 8 4 4 4 4 */
03400 /*:ref: cgefa_ 14 5 8 4 4 4 4 */
03401 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */
03402 /*:ref: cgbfa_ 14 7 8 4 4 4 4 4 4 */
03403 /*:ref: cgbsl_ 14 8 8 4 4 4 4 4 8 4 */
03404 /*:ref: scnrm2_ 6 3 4 8 4 */
03405 /*:ref: cdstpb_ 14 48 6 214 214 6 4 200 4 4 4 4 4 4 4 4 8 6 6 6 6 6 4 4 4 4 4 4 4 6 8 8 8 12 8 6 6 4 4 4 4 6 6 8 8 6 6 4 4 4 */
03406 /*:ref: cdzrob_ 14 15 6 206 6 4 4 4 6 6 8 6 6 6 6 6 8 */
03407 extern doublereal d9gmic_(doublereal *a, doublereal *x, doublereal *alx);
03408 /*:ref: d1mach_ 7 1 4 */
03409 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03410 /*:ref: dlngam_ 7 1 7 */
03411 extern doublereal dgami_(doublereal *a, doublereal *x);
03412 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03413 /*:ref: dlngam_ 7 1 7 */
03414 /*:ref: dgamit_ 7 2 7 7 */
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 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: pimach_ 6 1 6 */
03419 /*:ref: hwscs1_ 14 28 4 6 6 4 4 6 6 6 6 4 4 6 6 6 6 4 6 6 6 6 6 6 6 6 6 6 6 6 */
03420 extern E_f ppval_(integer *ldc, real *c__, real *xi, integer *lxi, integer *k, integer *ideriv, real *x, integer *inppv);
03421 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */
03422 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
03425 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03426 /*:ref: sdntpb_ 14 8 6 4 4 4 6 6 6 6 */
03427 /*:ref: users_ 14 12 6 6 6 6 6 6 6 6 4 4 4 4 */
03428 /*:ref: sgefa_ 14 5 6 4 4 4 4 */
03429 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */
03430 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */
03431 /*:ref: sgbsl_ 14 8 6 4 4 4 4 4 6 4 */
03432 /*:ref: snrm2_ 6 3 4 6 4 */
03433 /*:ref: sdstpb_ 14 48 6 214 214 6 4 200 4 4 4 4 4 4 4 4 6 6 6 6 6 6 4 4 4 4 4 4 4 6 6 6 6 12 6 6 6 4 4 4 4 6 6 6 6 6 6 4 4 4 */
03434 /*:ref: sdzrob_ 14 15 6 206 6 4 4 4 6 6 6 6 6 6 6 6 6 */
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 /*:ref: r1mach_ 6 1 4 */
03437 /*:ref: u11us_ 14 15 6 4 4 4 6 6 4 4 4 4 6 6 6 4 4 */
03438 /*:ref: u12us_ 14 14 6 4 4 4 6 4 4 4 4 6 6 6 4 4 */
03439 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: d1mach_ 7 1 4 */
03443 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03444 /*:ref: dlngam_ 7 1 7 */
03445 extern doublereal dgamic_(doublereal *a, doublereal *x);
03446 /*:ref: d1mach_ 7 1 4 */
03447 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03448 /*:ref: dlngam_ 7 1 7 */
03449 /*:ref: d9gmic_ 7 3 7 7 7 */
03450 /*:ref: dlgams_ 14 3 7 7 7 */
03451 /*:ref: d9gmit_ 7 5 7 7 7 7 7 */
03452 /*:ref: d9lgic_ 7 3 7 7 7 */
03453 /*:ref: d9lgit_ 7 3 7 7 7 */
03454 /*:ref: xerclr_ 14 0 */
03455 extern int dqk21_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03456 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
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 /*:ref: cdntlb_ 14 38 6 214 200 6 6 4 4 4 4 4 4 4 4 4 4 8 6 8 8 6 4 4 4 6 8 8 12 6 12 4 4 4 6 6 8 6 6 4 */
03464 /*:ref: cdpscb_ 14 4 4 4 4 8 */
03465 /*:ref: cdpstb_ 14 28 6 214 200 6 4 200 4 4 4 4 4 4 4 8 6 8 8 8 6 4 4 8 8 12 4 8 4 6 */
03466 /*:ref: cdcorb_ 14 22 8 6 200 6 4 4 4 4 4 4 4 4 4 6 8 8 8 12 8 8 8 6 */
03467 /*:ref: scnrm2_ 6 3 4 8 4 */
03468 /*:ref: cdsclb_ 14 8 6 4 4 6 6 6 6 8 */
03469 /*:ref: cdcstb_ 14 5 4 4 4 6 6 */
03470 extern int d9knus_(doublereal *xnu, doublereal *x, doublereal *bknu, doublereal *bknu1, integer *iswtch);
03471 /*:ref: d1mach_ 7 1 4 */
03472 /*:ref: initds_ 4 3 7 4 6 */
03473 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03474 /*:ref: dgamma_ 7 1 7 */
03475 /*:ref: dcsevl_ 7 3 7 7 4 */
03476 extern doublereal dgamit_(doublereal *a, doublereal *x);
03477 /*:ref: d1mach_ 7 1 4 */
03478 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03479 /*:ref: dgamr_ 7 1 7 */
03480 /*:ref: dlgams_ 14 3 7 7 7 */
03481 /*:ref: d9gmit_ 7 5 7 7 7 7 7 */
03482 /*:ref: d9lgit_ 7 3 7 7 7 */
03483 /*:ref: dlngam_ 7 1 7 */
03484 /*:ref: xerclr_ 14 0 */
03485 /*:ref: d9lgic_ 7 3 7 7 7 */
03486 extern int dqk31_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03487 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
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 /*:ref: cdntpb_ 14 8 6 4 4 4 6 6 8 8 */
03495 extern doublereal d9lgic_(doublereal *a, doublereal *x, doublereal *alx);
03496 /*:ref: d1mach_ 7 1 4 */
03497 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03498 extern int dgamlm_(doublereal *xmin, doublereal *xmax);
03499 /*:ref: d1mach_ 7 1 4 */
03500 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03501 extern int dqk41_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03502 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: pimach_ 6 1 6 */
03505 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */
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 /*:ref: sdntlb_ 14 38 6 214 200 6 6 4 4 4 4 4 4 4 4 4 4 6 6 6 6 6 4 4 4 6 6 6 12 6 12 4 4 4 6 6 6 6 6 4 */
03509 /*:ref: sdpscb_ 14 4 4 4 4 6 */
03510 /*:ref: sdpstb_ 14 28 6 214 200 6 4 200 4 4 4 4 4 4 4 6 6 6 6 6 6 4 4 6 6 12 4 6 4 6 */
03511 /*:ref: sdcorb_ 14 22 6 6 200 6 4 4 4 4 4 4 4 4 4 6 6 6 6 12 6 6 6 6 */
03512 /*:ref: snrm2_ 6 3 4 6 4 */
03513 /*:ref: sdsclb_ 14 8 6 4 4 6 6 6 6 6 */
03514 /*:ref: sdcstb_ 14 5 4 4 4 6 6 */
03515 extern E_f vnwrms_(integer *n, real *v, real *w);
03516 extern C_f cexprl_(complex * ret_val, complex *z__);
03517 /*:ref: r1mach_ 6 1 4 */
03518 extern doublereal d9lgit_(doublereal *a, doublereal *x, doublereal *algap1);
03519 /*:ref: d1mach_ 7 1 4 */
03520 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03521 extern doublereal dgamma_(doublereal *x);
03522 /*:ref: initds_ 4 3 7 4 6 */
03523 /*:ref: d1mach_ 7 1 4 */
03524 /*:ref: dgamlm_ 14 2 7 7 */
03525 /*:ref: dcsevl_ 7 3 7 7 4 */
03526 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03527 /*:ref: d9lgmc_ 7 1 7 */
03528 extern int dqk51_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03529 /*:ref: d1mach_ 7 1 4 */
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 /*:ref: pimach_ 6 1 6 */
03532 /*:ref: hwsss1_ 14 23 6 6 4 4 6 6 6 6 4 4 6 6 6 6 4 6 6 6 6 6 6 6 6 */
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 /*:ref: sdntpb_ 14 8 6 4 4 4 6 6 6 6 */
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 /*:ref: srotmg_ 14 5 6 6 6 6 6 */
03538 /*:ref: srotm_ 14 6 4 6 4 6 4 6 */
03539 /*:ref: isamax_ 4 3 4 6 4 */
03540 /*:ref: scopy_ 14 5 4 6 4 6 4 */
03541 /*:ref: sswap_ 14 5 4 6 4 6 4 */
03542 /*:ref: sscal_ 14 4 4 6 6 4 */
03543 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */
03544 extern int cfftb_(integer *n, complex *c__, real *wsave);
03545 /*:ref: cfftb1_ 14 5 4 8 6 6 6 */
03546 extern doublereal d9lgmc_(doublereal *x);
03547 /*:ref: initds_ 4 3 7 4 6 */
03548 /*:ref: d1mach_ 7 1 4 */
03549 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03550 /*:ref: dcsevl_ 7 3 7 7 4 */
03551 extern doublereal dgamr_(doublereal *x);
03552 /*:ref: xgetf_ 14 1 4 */
03553 /*:ref: xsetf_ 14 1 4 */
03554 /*:ref: dgamma_ 7 1 7 */
03555 /*:ref: xerclr_ 14 0 */
03556 /*:ref: dlgams_ 14 3 7 7 7 */
03557 extern int dqk61_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc);
03558 /*:ref: d1mach_ 7 1 4 */
03559 extern integer i1mach_(integer *i__);
03560 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03561 extern E_f prvec_(integer *m, real *u, real *v);
03562 /*:ref: sdot_ 6 5 4 6 4 6 4 */
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 /*:ref: chkprm_ 14 14 4 4 6 6 4 4 6 6 4 4 200 200 4 4 */
03565 /*:ref: spelip_ 14 38 4 4 6 6 4 4 6 6 6 6 6 6 4 4 6 6 6 6 200 200 6 6 6 6 6 6 6 6 6 6 6 6 6 6 4 6 6 4 */
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 /*:ref: scopy_ 14 5 4 6 4 6 4 */
03568 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03569 /*:ref: snrm2_ 6 3 4 6 4 */
03570 /*:ref: sscal_ 14 4 4 6 6 4 */
03571 /*:ref: sasum_ 6 3 4 6 4 */
03572 /*:ref: isamax_ 4 3 4 6 4 */
03573 /*:ref: wnlit_ 14 13 6 4 4 4 4 4 4 6 6 6 4 6 12 */
03574 /*:ref: sswap_ 14 5 4 6 4 6 4 */
03575 /*:ref: srotmg_ 14 5 6 6 6 6 6 */
03576 /*:ref: srotm_ 14 6 4 6 4 6 4 6 */
03577 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */
03578 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03579 extern int cfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac);
03580 /*:ref: passb4_ 14 7 4 4 6 6 6 6 6 */
03581 /*:ref: passb2_ 14 5 4 4 6 6 6 */
03582 /*:ref: passb3_ 14 6 4 4 6 6 6 6 */
03583 /*:ref: passb5_ 14 8 4 4 6 6 6 6 6 6 */
03584 /*:ref: passb_ 14 11 4 4 4 4 4 6 6 6 6 6 6 */
03585 extern doublereal d9ln2r_(doublereal *x);
03586 /*:ref: d1mach_ 7 1 4 */
03587 /*:ref: initds_ 4 3 7 4 6 */
03588 /*:ref: dcsevl_ 7 3 7 7 4 */
03589 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03590 extern doublereal dgamrn_(doublereal *x);
03591 /*:ref: d1mach_ 7 1 4 */
03592 /*:ref: i1mach_ 4 1 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03597 /*:ref: prwvir_ 14 5 4 4 4 6 4 */
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 /*:ref: chkpr4_ 14 12 4 6 6 4 4 6 6 4 4 200 4 4 */
03600 /*:ref: speli4_ 14 34 4 6 6 4 4 6 6 6 6 6 6 4 4 6 6 200 6 6 6 6 6 6 6 6 6 6 6 6 6 6 4 6 6 4 */
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 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
03603 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03604 /*:ref: wnlsm_ 14 18 6 4 4 4 4 4 6 6 6 4 4 4 6 6 6 6 6 6 */
03605 extern int cfftf_(integer *n, complex *c__, real *wsave);
03606 /*:ref: cfftf1_ 14 5 4 8 6 6 6 */
03607 extern doublereal d9pak_(doublereal *y, integer *n);
03608 /*:ref: i1mach_ 4 1 4 */
03609 /*:ref: d1mach_ 7 1 4 */
03610 /*:ref: d9upak_ 14 3 7 7 4 */
03611 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03612 extern int dgaus8_(D_fp fun, doublereal *a, doublereal *b, doublereal *err, doublereal *ans, integer *ierr);
03613 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03614 /*:ref: d1mach_ 7 1 4 */
03615 /*:ref: i1mach_ 4 1 4 */
03616 extern int dqnc79_(D_fp fun, doublereal *a, doublereal *b, doublereal *err, doublereal *ans, integer *ierr, integer *k);
03617 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03618 /*:ref: d1mach_ 7 1 4 */
03619 /*:ref: i1mach_ 4 1 4 */
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 /*:ref: sopenm_ 14 2 4 4 */
03623 /*:ref: sreadp_ 14 5 4 4 6 4 4 */
03624 /*:ref: swritp_ 14 5 4 4 6 4 4 */
03625 extern int sgbco_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, real *z__);
03626 /*:ref: sasum_ 6 3 4 6 4 */
03627 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */
03628 /*:ref: sscal_ 14 4 4 6 6 4 */
03629 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03630 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
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 /*:ref: passf4_ 14 7 4 4 6 6 6 6 6 */
03634 /*:ref: passf2_ 14 5 4 4 6 6 6 */
03635 /*:ref: passf3_ 14 6 4 4 6 6 6 6 */
03636 /*:ref: passf5_ 14 8 4 4 6 6 6 6 6 6 */
03637 /*:ref: passf_ 14 11 4 4 4 4 4 6 6 6 6 6 6 */
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 /*:ref: dasum_ 7 3 4 7 4 */
03641 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */
03642 /*:ref: dscal_ 14 4 4 7 7 4 */
03643 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03644 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03645 extern int dqng_(D_fp f, doublereal *a, doublereal *b, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier);
03646 /*:ref: d1mach_ 7 1 4 */
03647 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03648 extern int imtql1_(integer *n, real *d__, real *e, integer *ierr);
03649 /*:ref: pythag_ 6 2 6 6 */
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 /*:ref: j4save_ 4 3 4 4 12 */
03654 extern int cffti_(integer *n, real *wsave);
03655 /*:ref: cffti1_ 14 3 4 6 6 */
03656 extern doublereal dacosh_(doublereal *x);
03657 /*:ref: d1mach_ 7 1 4 */
03658 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: pythag_ 6 2 6 6 */
03663 extern E_f psi_(real *x);
03664 /*:ref: inits_ 4 3 6 4 6 */
03665 /*:ref: r1mach_ 6 1 4 */
03666 /*:ref: csevl_ 6 3 6 6 4 */
03667 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03668 /*:ref: cot_ 6 1 6 */
03669 extern int sgbfa_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
03670 /*:ref: isamax_ 4 3 4 6 4 */
03671 /*:ref: sscal_ 14 4 4 6 6 4 */
03672 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
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 /*:ref: initds_ 4 3 7 4 6 */
03677 /*:ref: d1mach_ 7 1 4 */
03678 /*:ref: d9aimp_ 14 3 7 7 7 */
03679 /*:ref: dcsevl_ 7 3 7 7 4 */
03680 /*:ref: daie_ 7 1 7 */
03681 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03682 extern int dgbfa_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
03683 /*:ref: idamax_ 4 3 4 7 4 */
03684 /*:ref: dscal_ 14 4 4 7 7 4 */
03685 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03686 extern int dqrdc_(doublereal *x, integer *ldx, integer *n, integer *p, doublereal *qraux, integer *jpvt, doublereal *work, integer *job);
03687 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03688 /*:ref: dnrm2_ 7 3 4 7 4 */
03689 /*:ref: dscal_ 14 4 4 7 7 4 */
03690 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03691 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03692 extern int imtqlv_(integer *n, real *d__, real *e, real *e2, real *w, integer *ind, integer *ierr, real *rv1);
03693 /*:ref: pythag_ 6 2 6 6 */
03694 extern int psifn_(real *x, integer *n, integer *kode, integer *m, real *ans, integer *nz, integer *ierr);
03695 /*:ref: i1mach_ 4 1 4 */
03696 /*:ref: r1mach_ 6 1 4 */
03697 extern int sgbsl_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *b, integer *job);
03698 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03699 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03700 extern int xerdmp_(void);
03701 /*:ref: xersav_ 14 6 13 4 4 4 4 124 */
03702 extern int cfod_(integer *meth, real *elco, real *tesco);
03703 extern doublereal daie_(doublereal *x);
03704 /*:ref: d1mach_ 7 1 4 */
03705 /*:ref: initds_ 4 3 7 4 6 */
03706 /*:ref: d9aimp_ 14 3 7 7 7 */
03707 /*:ref: dcsevl_ 7 3 7 7 4 */
03708 extern int dgbsl_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *b, integer *job);
03709 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03710 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: d1mach_ 7 1 4 */
03713 /*:ref: denorm_ 7 2 4 7 */
03714 extern int indxa_(integer *i__, integer *ir, integer *idxa, integer *na);
03715 /* comlen cblkt_ 28 */
03716 extern E_f psixn_(integer *n);
03717 /*:ref: r1mach_ 6 1 4 */
03718 extern int sgeco_(real *a, integer *lda, integer *n, integer *ipvt, real *rcond, real *z__);
03719 /*:ref: sasum_ 6 3 4 6 4 */
03720 /*:ref: sgefa_ 14 5 6 4 4 4 4 */
03721 /*:ref: sscal_ 14 4 4 6 6 4 */
03722 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03723 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03724 extern int xermax_(integer *max__);
03725 /*:ref: j4save_ 4 3 4 4 12 */
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 /*:ref: cbal_ 14 7 4 4 6 6 4 4 6 */
03728 /*:ref: corth_ 14 8 4 4 4 4 6 6 6 6 */
03729 /*:ref: comqr_ 14 9 4 4 4 4 6 6 6 6 4 */
03730 /*:ref: comqr2_ 14 13 4 4 4 4 6 6 6 6 6 6 6 6 4 */
03731 /*:ref: cbabk2_ 14 8 4 4 4 4 6 4 6 6 */
03732 extern doublereal dasinh_(doublereal *x);
03733 /*:ref: initds_ 4 3 7 4 6 */
03734 /*:ref: d1mach_ 7 1 4 */
03735 /*:ref: dcsevl_ 7 3 7 7 4 */
03736 extern int dgeco_(doublereal *a, integer *lda, integer *n, integer *ipvt, doublereal *rcond, doublereal *z__);
03737 /*:ref: dasum_ 7 3 4 7 4 */
03738 /*:ref: dgefa_ 14 5 7 4 4 4 4 */
03739 /*:ref: dscal_ 14 4 4 7 7 4 */
03740 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03741 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03744 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03745 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03746 extern int indxb_(integer *i__, integer *ir, integer *idx, integer *idp);
03747 /* comlen cblkt_ 28 */
03748 extern int pvalue_(integer *l, integer *nder, real *x, real *yfit, real *yp, real *a);
03749 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
03750 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03751 extern int sgedi_(real *a, integer *lda, integer *n, integer *ipvt, real *det, real *work, integer *job);
03752 /*:ref: sscal_ 14 4 4 6 6 4 */
03753 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03754 /*:ref: sswap_ 14 5 4 6 4 6 4 */
03755 extern int xerprt_(char *messg, integer *nmessg, ftnlen messg_len);
03756 /*:ref: xgetua_ 14 2 4 4 */
03757 /*:ref: i1mach_ 4 1 4 */
03758 extern C_f cgamma_(complex * ret_val, complex *z__);
03759 /*:ref: clngam_ 8 2 8 8 */
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 /*:ref: dscal_ 14 4 4 7 7 4 */
03763 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03764 /*:ref: dswap_ 14 5 4 7 4 7 4 */
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 /* comlen cblkt_ 28 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03771 /*:ref: scopy_ 14 5 4 6 4 6 4 */
03772 /*:ref: balanc_ 14 6 4 4 6 4 4 6 */
03773 /*:ref: orthes_ 14 6 4 4 4 4 6 6 */
03774 /*:ref: hqr_ 14 8 4 4 4 4 6 6 6 4 */
03775 /*:ref: ortran_ 14 7 4 4 4 4 6 6 6 */
03776 /*:ref: hqr2_ 14 9 4 4 4 4 6 6 6 6 4 */
03777 /*:ref: balbak_ 14 7 4 4 4 4 6 4 6 */
03778 /*:ref: scopym_ 14 5 4 6 4 6 4 */
03779 extern int xerror_(char *messg, integer *nmessg, integer *nerr, integer *level, ftnlen messg_len);
03780 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
03781 extern C_f cgamr_(complex * ret_val, complex *z__);
03782 /*:ref: xgetf_ 14 1 4 */
03783 /*:ref: xsetf_ 14 1 4 */
03784 /*:ref: clngam_ 8 2 8 8 */
03785 /*:ref: xerclr_ 14 0 */
03786 extern int dasyik_(doublereal *x, doublereal *fnu, integer *kode, doublereal *flgik, doublereal *ra, doublereal *arg, integer *in, doublereal *y);
03787 /*:ref: d1mach_ 7 1 4 */
03788 extern int dgefa_(doublereal *a, integer *lda, integer *n, integer *ipvt, integer *info);
03789 /*:ref: idamax_ 4 3 4 7 4 */
03790 /*:ref: dscal_ 14 4 4 7 7 4 */
03791 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: qage_ 14 17 206 6 6 6 6 4 4 6 6 4 4 6 6 6 6 4 4 */
03797 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03798 extern int sgefa_(real *a, integer *lda, integer *n, integer *ipvt, integer *info);
03799 /*:ref: isamax_ 4 3 4 6 4 */
03800 /*:ref: sscal_ 14 4 4 6 6 4 */
03801 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
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 /*:ref: j4save_ 4 3 4 4 12 */
03804 /*:ref: xerprt_ 14 3 13 4 124 */
03805 /*:ref: fdump_ 14 0 */
03806 /*:ref: xersav_ 14 6 13 4 4 4 4 124 */
03807 /*:ref: xerabt_ 14 3 13 4 124 */
03808 /*:ref: xerctl_ 14 6 13 4 4 4 4 124 */
03809 /*:ref: xgetua_ 14 2 4 4 */
03810 /*:ref: i1mach_ 4 1 4 */
03811 extern int cgbco_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, complex *z__);
03812 /*:ref: scasum_ 6 3 4 8 4 */
03813 /*:ref: cgbfa_ 14 7 8 4 4 4 4 4 4 */
03814 /*:ref: csscal_ 14 4 4 6 8 4 */
03815 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
03816 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
03817 extern int dasyjy_(S_fp funjy, doublereal *x, doublereal *fnu, doublereal *flgjy, integer *in, doublereal *y, doublereal *wk, integer *iflw);
03818 /*:ref: d1mach_ 7 1 4 */
03819 /*:ref: i1mach_ 4 1 4 */
03820 extern int dgefs_(doublereal *a, integer *lda, integer *n, doublereal *v, integer *itask, integer *ind, doublereal *work, integer *iwork);
03821 /*:ref: dgeco_ 14 6 7 4 4 4 7 7 */
03822 /*:ref: d1mach_ 7 1 4 */
03823 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03824 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */
03825 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
03831 /*:ref: qk15_ 14 7 206 6 6 6 6 6 6 */
03832 /*:ref: qk21_ 14 7 206 6 6 6 6 6 6 */
03833 /*:ref: qk31_ 14 7 206 6 6 6 6 6 6 */
03834 /*:ref: qk41_ 14 7 206 6 6 6 6 6 6 */
03835 /*:ref: qk51_ 14 7 206 6 6 6 6 6 6 */
03836 /*:ref: qk61_ 14 7 206 6 6 6 6 6 6 */
03837 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */
03838 extern int sgefs_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work, integer *iwork);
03839 /*:ref: sgeco_ 14 6 6 4 4 4 6 6 */
03840 /*:ref: r1mach_ 6 1 4 */
03841 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03842 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */
03843 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
03844 extern int xersav_(char *messg, integer *nmessg, integer *nerr, integer *level, integer *icount, ftnlen messg_len);
03845 /*:ref: xgetua_ 14 2 4 4 */
03846 /*:ref: i1mach_ 4 1 4 */
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 /*:ref: initds_ 4 3 7 4 6 */
03850 /*:ref: d1mach_ 7 1 4 */
03851 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03852 /*:ref: dcsevl_ 7 3 7 7 4 */
03853 extern int dgesl_(doublereal *a, integer *lda, integer *n, integer *ipvt, doublereal *b, integer *job);
03854 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03855 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: qagie_ 14 16 206 6 4 6 6 4 6 6 4 4 6 6 6 6 4 4 */
03860 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03861 extern int sgeir_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work, integer *iwork);
03862 /*:ref: scopy_ 14 5 4 6 4 6 4 */
03863 /*:ref: sgefa_ 14 5 6 4 4 4 4 */
03864 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */
03865 /*:ref: sasum_ 6 3 4 6 4 */
03866 /*:ref: sdsdot_ 6 6 4 6 6 4 6 4 */
03867 /*:ref: r1mach_ 6 1 4 */
03868 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03869 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
03870 extern int xgetf_(integer *kontrl);
03871 /*:ref: j4save_ 4 3 4 4 12 */
03872 extern int cgbfa_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info);
03873 /*:ref: icamax_ 4 3 4 8 4 */
03874 /*:ref: cscal_ 14 4 4 8 8 4 */
03875 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
03876 extern int davint_(doublereal *x, doublereal *y, integer *n, doublereal *xlo, doublereal *xup, doublereal *ans, integer *ierr);
03877 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: dllsia_ 14 20 7 4 4 4 7 4 4 7 7 4 4 4 4 4 7 7 4 4 4 4 */
03880 /*:ref: dulsia_ 14 20 7 4 4 4 7 4 4 7 7 4 4 4 4 4 7 7 4 4 4 4 */
03881 extern doublereal drc_(doublereal *x, doublereal *y, integer *ier);
03882 /*:ref: d1mach_ 7 1 4 */
03883 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: r1mach_ 6 1 4 */
03887 /*:ref: qk15i_ 14 9 206 6 4 6 6 6 6 6 6 */
03888 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */
03889 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */
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 /*:ref: sgemv_ 14 9 4 4 6 4 6 4 6 4 4 */
03892 extern int xgetua_(integer *iunita, integer *n);
03893 /*:ref: j4save_ 4 3 4 4 12 */
03894 extern int cgbsl_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *b, integer *job);
03895 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
03896 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
03897 extern E_f daws_(real *x);
03898 /*:ref: r1mach_ 6 1 4 */
03899 /*:ref: inits_ 4 3 6 4 6 */
03900 /*:ref: csevl_ 6 3 6 6 4 */
03901 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: d1mach_ 7 1 4 */
03905 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: qagpe_ 14 21 206 6 6 4 6 6 6 4 6 6 4 4 6 6 6 6 6 4 4 4 4 */
03909 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03910 extern int sgemv_(integer *m, integer *n, real *a, integer *ia, real *x, integer *ix, real *y, integer *iy, integer *job);
03911 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03912 extern int xgetun_(integer *iunit);
03913 /*:ref: j4save_ 4 3 4 4 12 */
03914 extern int cgeco_(complex *a, integer *lda, integer *n, integer *ipvt, real *rcond, complex *z__);
03915 /*:ref: scasum_ 6 3 4 8 4 */
03916 /*:ref: cgefa_ 14 5 8 4 4 4 4 */
03917 /*:ref: csscal_ 14 4 4 6 8 4 */
03918 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
03919 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
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 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03923 /*:ref: ddot_ 6 5 4 7 4 7 4 */
03924 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03925 extern int dreadp_(integer *ipage, integer *list, doublereal *rlist, integer *lpage, integer *irec);
03926 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */
03927 extern int intyd_(real *t, integer *k, real *yh, integer *nyh, real *dky, integer *iflag);
03928 /* comlen debdf1_ 1004 */
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 /*:ref: r1mach_ 6 1 4 */
03931 /*:ref: qk21_ 14 7 206 6 6 6 6 6 6 */
03932 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */
03933 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */
03934 extern int sgesl_(real *a, integer *lda, integer *n, integer *ipvt, real *b, integer *job);
03935 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
03936 /*:ref: sdot_ 6 5 4 6 4 6 4 */
03937 extern int xsetf_(integer *kontrl);
03938 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
03939 /*:ref: j4save_ 4 3 4 4 12 */
03940 extern int cgedi_(complex *a, integer *lda, integer *n, integer *ipvt, complex *det, complex *work, integer *job);
03941 /*:ref: cscal_ 14 4 4 8 8 4 */
03942 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
03943 /*:ref: cswap_ 14 5 4 8 4 8 4 */
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 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03947 /*:ref: ddiff_ 7 2 7 7 */
03948 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */
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 /* comlen dml8sz_ 36 */
03951 /* comlen dml15t_ 148 */
03952 /* comlen dml18j_ 84 */
03953 /*:ref: dstor1_ 14 7 7 7 7 7 4 4 4 */
03954 /*:ref: dmgsbv_ 14 13 4 4 7 4 4 4 7 7 4 4 7 7 7 */
03955 /*:ref: dstway_ 14 5 7 7 7 4 7 */
03956 /*:ref: ddot_ 7 5 4 7 4 7 4 */
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 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */
03959 /*:ref: pythag_ 6 2 6 6 */
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 /*:ref: qagse_ 14 16 206 6 6 6 6 4 6 6 4 4 6 6 6 6 4 4 */
03962 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: llsia_ 14 20 6 4 4 4 6 4 4 6 6 4 4 4 4 4 6 6 4 4 4 4 */
03965 /*:ref: ulsia_ 14 20 6 4 4 4 6 4 4 6 6 4 4 4 4 4 6 6 4 4 4 4 */
03966 extern int xsetua_(integer *iunita, integer *n);
03967 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */
03968 /*:ref: j4save_ 4 3 4 4 12 */
03969 extern int cgeev_(real *a, integer *lda, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info);
03970 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03971 /*:ref: scopy_ 14 5 4 6 4 6 4 */
03972 /*:ref: cbal_ 14 7 4 4 6 6 4 4 6 */
03973 /*:ref: corth_ 14 8 4 4 4 4 6 6 6 6 */
03974 /*:ref: comqr_ 14 9 4 4 4 4 6 6 6 6 4 */
03975 /*:ref: comqr2_ 14 13 4 4 4 4 6 6 6 6 6 6 6 6 4 */
03976 /*:ref: cbabk2_ 14 8 4 4 4 4 6 4 6 6 */
03977 extern int dbesi_(doublereal *x, doublereal *alpha, integer *kode, integer *n, doublereal *y, integer *nz);
03978 /*:ref: d1mach_ 7 1 4 */
03979 /*:ref: i1mach_ 4 1 4 */
03980 /*:ref: dasyik_ 14 8 7 7 4 7 7 7 4 7 */
03981 /*:ref: dlngam_ 7 1 7 */
03982 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03983 extern int dhkseq_(doublereal *x, integer *m, doublereal *h__, integer *ierr);
03984 /*:ref: d1mach_ 7 1 4 */
03985 /*:ref: i1mach_ 4 1 4 */
03986 extern doublereal drf_(doublereal *x, doublereal *y, doublereal *z__, integer *ier);
03987 /*:ref: d1mach_ 7 1 4 */
03988 /*:ref: xerror_ 14 5 13 4 4 4 124 */
03989 extern int inxca_(integer *i__, integer *ir, integer *idxa, integer *na);
03990 /* comlen ccblk_ 28 */
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 /*:ref: r1mach_ 6 1 4 */
03993 /*:ref: qk21_ 14 7 206 6 6 6 6 6 6 */
03994 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */
03995 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */
03996 extern int sgtsl_(integer *n, real *c__, real *d__, real *e, real *b, integer *info);
03997 extern int xsetun_(integer *iunit);
03998 /*:ref: j4save_ 4 3 4 4 12 */
03999 extern int cgefa_(complex *a, integer *lda, integer *n, integer *ipvt, integer *info);
04000 /*:ref: icamax_ 4 3 4 8 4 */
04001 /*:ref: cscal_ 14 4 4 8 8 4 */
04002 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
04003 extern doublereal dbesi0_(doublereal *x);
04004 /*:ref: initds_ 4 3 7 4 6 */
04005 /*:ref: d1mach_ 7 1 4 */
04006 /*:ref: dcsevl_ 7 3 7 7 4 */
04007 /*:ref: xerror_ 14 5 13 4 4 4 124 */
04008 /*:ref: dbsi0e_ 7 1 7 */
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 /*:ref: dvnorm_ 7 2 7 4 */
04011 extern doublereal drj_(doublereal *x, doublereal *y, doublereal *z__, doublereal *p, integer *ier);
04012 /*:ref: d1mach_ 7 1 4 */
04013 /*:ref: xerror_ 14 5 13 4 4 4 124 */
04014 /*:ref: drc_ 7 3 7 7 4 */
04015 extern int inxcb_(integer *i__, integer *ir, integer *idx, integer *idp);
04016 /* comlen ccblk_ 28 */
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 /*:ref: qawce_ 14 17 206 6 6 6 6 6 4 6 6 4 4 6 6 6 6 4 4 */
04019 /*:ref: xerror_ 14 5 13 4 4 4 124 */
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 /*:ref: cgeco_ 14 6 8 4 4 4 6 8 */
04024 /*:ref: r1mach_ 6 1 4 */
04025 /*:ref: xerror_ 14 5 13 4 4 4 124 */
04026 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */
04027 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */
04028 extern doublereal dbesi1_(doublereal *x);
04029 /*:ref: initds_ 4 3 7 4 6 */
04030 /*:ref: d1mach_ 7 1 4 */
04031 /*:ref: xerror_ 14 5 13 4 4 4 124 */
04032 /*:ref: dcsevl_ 7 3 7 7 4 */
04033 /*:ref: dbsi1e_ 7 1 7 */
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 /* comlen dml8sz_ 36 */
04037 /* comlen dml15t_ 148 */
04038 /* comlen dml18j_ 84 */
04039 /* comlen dml17b_ 72 */
04040 /*:ref: dderkf_ 14 15 200 4 7 7 7 4 7 7 4 7 4 4 4 7 4 */
04041 /*:ref: ddeabm_ 14 15 200 4 7 7 7 4 7 7 4 7 4 4 4 7 4 */
04042 /*:ref: dreort_ 14 11 4 7 7 7 4 7 7 7 4 7 4 */
04043 /*:ref: dstor1_ 14 7 7 7 7 7 4 4 4 */
04044 extern int inxcc_(integer *i__, integer *ir, integer *idxc, integer *nc);
04045 /* comlen ccblk_ 28 */
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 /*:ref: r1mach_ 6 1 4 */
04048 /*:ref: qc25c_ 14 8 206 6 6 6 6 6 4 4 */
04049 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */
04050 extern int sinqb_(integer *n, real *x, real *wsave);
04051 /*:ref: cosqb_ 14 3 4 6 6 */