1 extern int cgeir_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work, integer *iwork); 2 /*:ref: ccopy_ 14 5 4 8 4 8 4 */ 3 /*:ref: cgefa_ 14 5 8 4 4 4 4 */ 4 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */ 5 /*:ref: scasum_ 6 3 4 8 4 */ 6 /*:ref: cdcdot_ 8 7 8 4 8 8 4 8 4 */ 7 /*:ref: r1mach_ 6 1 4 */ 8 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 9 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 10 extern int dbesj_(doublereal *x, doublereal *alpha, integer *n, doublereal *y, integer *nz); 11 /*:ref: d1mach_ 7 1 4 */ 12 /*:ref: i1mach_ 4 1 4 */ 13 /*:ref: dasyjy_ 14 8 200 7 7 7 4 7 7 4 */ 14 /*:ref: dlngam_ 7 1 7 */ 15 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 16 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); 17 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); 18 /*:ref: d1mach_ 7 1 4 */ 19 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 20 /*:ref: dvnorm_ 7 2 7 4 */ 21 /*:ref: dhstrt_ 14 17 214 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 7 */ 22 /*:ref: dfehl_ 14 14 214 4 7 7 7 7 7 7 7 7 7 7 7 4 */ 23 extern integer iploc_(integer *loc, real *sx, integer *ix); 24 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 25 /*:ref: prwpge_ 14 5 4 4 4 6 4 */ 26 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); 27 /*: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 */ 28 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 29 extern int sinqf_(integer *n, real *x, real *wsave); 30 /*:ref: cosqf_ 14 3 4 6 6 */ 31 extern int cgesl_(complex *a, integer *lda, integer *n, integer *ipvt, complex *b, integer *job); 32 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 33 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 34 extern doublereal dbesj0_(doublereal *x); 35 /*:ref: initds_ 4 3 7 4 6 */ 36 /*:ref: d1mach_ 7 1 4 */ 37 /*:ref: dcsevl_ 7 3 7 7 4 */ 38 /*:ref: d9b0mp_ 14 3 7 7 7 */ 39 extern int dintrp_(doublereal *x, doublereal *y, doublereal *xout, doublereal *yout, doublereal *ypout, integer *neqn, integer *kold, doublereal *phi, doublereal *psi); 40 extern int drot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *dc, doublereal *ds); 41 extern integer isamax_(integer *n, real *sx, integer *incx); 42 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); 43 /*:ref: qagie_ 14 16 200 6 4 6 6 4 6 6 4 4 6 6 6 6 4 4 */ 44 /*:ref: r1mach_ 6 1 4 */ 45 /*: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 */ 46 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */ 47 extern int sinqi_(integer *n, real *wsave); 48 /*:ref: cosqi_ 14 2 4 6 */ 49 extern int cgtsl_(integer *n, complex *c__, complex *d__, complex *e, complex *b, integer *info); 50 extern doublereal dbesj1_(doublereal *x); 51 /*:ref: initds_ 4 3 7 4 6 */ 52 /*:ref: d1mach_ 7 1 4 */ 53 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 54 /*:ref: dcsevl_ 7 3 7 7 4 */ 55 /*:ref: d9b1mp_ 14 3 7 7 7 */ 56 extern int dintrv_(doublereal *xt, integer *lxt, doublereal *x, integer *ilo, integer *ileft, integer *mflag); 57 extern int drotg_(doublereal *da, doublereal *db, doublereal *dc, doublereal *ds); 58 extern integer isamin_(integer *n, real *sx, integer *incx); 59 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); 60 /*: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 */ 61 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 62 extern int sint_(integer *n, real *x, real *wsave); 63 /*:ref: rfftf_ 14 3 4 6 6 */ 64 extern int aaaaaa_(void); 65 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); 66 /*:ref: htridi_ 14 8 4 4 6 6 6 6 6 6 */ 67 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 68 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */ 69 /*:ref: htribk_ 14 8 4 4 6 6 6 4 6 6 */ 70 extern int dbesk_(doublereal *x, doublereal *fnu, integer *kode, integer *n, doublereal *y, integer *nz); 71 /*:ref: i1mach_ 4 1 4 */ 72 /*:ref: d1mach_ 7 1 4 */ 73 /*:ref: dasyik_ 14 8 7 7 4 7 7 7 4 7 */ 74 /*:ref: dbesk0_ 7 1 7 */ 75 /*:ref: dbsk0e_ 7 1 7 */ 76 /*:ref: dbesk1_ 7 1 7 */ 77 /*:ref: dbsk1e_ 7 1 7 */ 78 /*:ref: dbsknu_ 14 6 7 7 4 4 7 4 */ 79 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 80 extern int dintyd_(doublereal *t, integer *k, doublereal *yh, integer *nyh, doublereal *dky, integer *iflag); 81 /* comlen ddebd1_ 1876 */ 82 extern int drotm_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy, doublereal *dparam); 83 extern integer ismax_(integer *n, real *sx, integer *incx); 84 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); 85 /*:ref: r1mach_ 6 1 4 */ 86 /*:ref: qc25f_ 14 15 206 6 6 6 4 4 4 4 6 6 4 6 6 4 6 */ 87 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */ 88 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */ 89 extern int sinti_(integer *n, real *wsave); 90 /*:ref: rffti_ 14 2 4 6 */ 91 extern E_f acosh_(real *x); 92 /*:ref: r1mach_ 6 1 4 */ 93 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 94 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); 95 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 96 extern doublereal dbesk0_(doublereal *x); 97 /*:ref: initds_ 4 3 7 4 6 */ 98 /*:ref: d1mach_ 7 1 4 */ 99 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 100 /*:ref: dbesi0_ 7 1 7 */ 101 /*:ref: dcsevl_ 7 3 7 7 4 */ 102 /*:ref: dbsk0e_ 7 1 7 */ 103 extern int djairy_(doublereal *x, doublereal *rx, doublereal *c__, doublereal *ai, doublereal *dai); 104 extern int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *dx1, doublereal *dy1, doublereal *dparam); 105 extern integer ismin_(integer *n, real *sx, integer *incx); 106 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); 107 /*:ref: qawse_ 14 19 206 6 6 6 6 4 6 6 4 6 6 4 4 6 6 6 6 4 4 */ 108 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 109 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); 110 extern E_f ai_(real *x); 111 /*:ref: inits_ 4 3 6 4 6 */ 112 /*:ref: r1mach_ 6 1 4 */ 113 /*:ref: r9aimp_ 14 3 6 6 6 */ 114 /*:ref: csevl_ 6 3 6 6 4 */ 115 /*:ref: aie_ 6 1 6 */ 116 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 117 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); 118 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 119 extern doublereal dbesk1_(doublereal *x); 120 /*:ref: initds_ 4 3 7 4 6 */ 121 /*:ref: d1mach_ 7 1 4 */ 122 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 123 /*:ref: dbesi1_ 7 1 7 */ 124 /*:ref: dcsevl_ 7 3 7 7 4 */ 125 /*:ref: dbsk1e_ 7 1 7 */ 126 extern doublereal dlbeta_(doublereal *a, doublereal *b); 127 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 128 /*:ref: dgamma_ 7 1 7 */ 129 /*:ref: d9lgmc_ 7 1 7 */ 130 /*:ref: dlngam_ 7 1 7 */ 131 /*:ref: dlnrel_ 7 1 7 */ 132 extern int drsco_(doublereal *rsav, integer *isav); 133 /* comlen ddebd1_ 1876 */ 134 extern int isort_(integer *x, integer *y, integer *n, integer *kflag); 135 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 136 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); 137 /*:ref: r1mach_ 6 1 4 */ 138 /*:ref: qmomo_ 14 7 6 6 6 6 6 6 4 */ 139 /*:ref: qc25s_ 14 16 206 6 6 6 6 6 6 6 6 6 6 6 6 6 4 4 */ 140 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */ 141 extern int slvs_(real *wm, integer *iwm, real *x, real *tem); 142 /* comlen debdf1_ 1004 */ 143 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */ 144 /*:ref: sgbsl_ 14 8 6 4 4 4 4 4 6 4 */ 145 extern E_f aie_(real *x); 146 /*:ref: r1mach_ 6 1 4 */ 147 /*:ref: inits_ 4 3 6 4 6 */ 148 /*:ref: r9aimp_ 14 3 6 6 6 */ 149 /*:ref: csevl_ 6 3 6 6 4 */ 150 extern E_f chfiv_(real *x1, real *x2, real *f1, real *f2, real *d1, real *d2, real *a, real *b, integer *ierr); 151 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 152 extern int dbesks_(doublereal *xnu, doublereal *x, integer *nin, doublereal *bk); 153 /*:ref: d1mach_ 7 1 4 */ 154 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 155 /*:ref: dbskes_ 14 4 7 7 4 7 */ 156 extern int dlgams_(doublereal *x, doublereal *dlgam, doublereal *sgngam); 157 /*:ref: dlngam_ 7 1 7 */ 158 extern int dscal_(integer *n, doublereal *da, doublereal *dx, integer *incx); 159 extern int iswap_(integer *n, integer *ix, integer *incx, integer *iy, integer *incy); 160 extern int qc25c_(E_fp f, real *a, real *b, real *c__, real *result, real *abserr, integer *krul, integer *neval); 161 /*:ref: qk15w_ 14 13 206 206 6 6 6 6 4 6 6 6 6 6 6 */ 162 /*:ref: qwgtc_ 6 :*/ 163 /*:ref: qcheb_ 14 4 6 6 6 6 */ 164 extern int smout_(integer *m, integer *n, integer *lda, real *a, char *ifmt, integer *idigit, ftnlen ifmt_len); 165 /*:ref: i1mach_ 4 1 4 */ 166 extern E_f albeta_(real *a, real *b); 167 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 168 /*:ref: gamma_ 6 1 6 */ 169 /*:ref: r9lgmc_ 6 1 6 */ 170 /*:ref: alngam_ 6 1 6 */ 171 /*:ref: alnrel_ 6 1 6 */ 172 extern integer chfmc_(real *d1, real *d2, real *delta); 173 /*:ref: r1mach_ 6 1 4 */ 174 extern int dbesy_(doublereal *x, doublereal *fnu, integer *n, doublereal *y); 175 /*:ref: i1mach_ 4 1 4 */ 176 /*:ref: d1mach_ 7 1 4 */ 177 /*:ref: dasyjy_ 14 8 200 7 7 7 4 7 7 4 */ 178 /*:ref: dbesy0_ 7 1 7 */ 179 /*:ref: dbesy1_ 7 1 7 */ 180 /*:ref: dbsynu_ 14 4 7 7 4 7 */ 181 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 182 extern doublereal dli_(doublereal *x); 183 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 184 /*:ref: dei_ 7 1 7 */ 185 extern doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 186 extern int ivout_(integer *n, integer *ix, char *ifmt, integer *idigit, ftnlen ifmt_len); 187 /*:ref: i1mach_ 4 1 4 */ 188 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); 189 /*:ref: r1mach_ 6 1 4 */ 190 /*:ref: qk15w_ 14 13 206 206 6 6 6 6 4 6 6 6 6 6 6 */ 191 /*:ref: qwgtf_ 6 :*/ 192 /*:ref: sgtsl_ 14 6 4 6 6 6 6 4 */ 193 /*:ref: qcheb_ 14 4 6 6 6 6 */ 194 extern int snbco_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, real *z__); 195 /*:ref: sasum_ 6 3 4 6 4 */ 196 /*:ref: snbfa_ 14 7 6 4 4 4 4 4 4 */ 197 /*:ref: sscal_ 14 4 4 6 6 4 */ 198 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 199 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 200 extern int algams_(real *x, real *algam, real *sgngam); 201 /*:ref: alngam_ 6 1 6 */ 202 extern int chico_(complex *a, integer *lda, integer *n, integer *kpvt, real *rcond, complex *z__); 203 /*:ref: scasum_ 6 3 4 8 4 */ 204 /*:ref: chifa_ 14 5 8 4 4 4 4 */ 205 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 206 /*:ref: csscal_ 14 4 4 6 8 4 */ 207 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 208 extern doublereal dbesy0_(doublereal *x); 209 /*:ref: initds_ 4 3 7 4 6 */ 210 /*:ref: d1mach_ 7 1 4 */ 211 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 212 /*:ref: dbesj0_ 7 1 7 */ 213 /*:ref: dcsevl_ 7 3 7 7 4 */ 214 /*:ref: d9b0mp_ 14 3 7 7 7 */ 215 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); 216 /*:ref: d1mach_ 7 1 4 */ 217 /*:ref: du11ls_ 14 15 7 4 4 4 7 7 4 4 4 4 7 7 7 4 4 */ 218 /*:ref: du12ls_ 14 14 7 4 4 4 7 4 4 4 4 7 7 7 4 4 */ 219 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 220 extern int dsico_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *rcond, doublereal *z__); 221 /*:ref: dasum_ 7 3 4 7 4 */ 222 /*:ref: dsifa_ 14 5 7 4 4 4 4 */ 223 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 224 /*:ref: dscal_ 14 4 4 7 7 4 */ 225 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 226 extern integer j4save_(integer *iwhich, integer *ivalue, logical *iset); 227 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); 228 /*:ref: qk15w_ 14 13 206 206 6 6 6 6 4 6 6 6 6 6 6 */ 229 /*:ref: qwgts_ 6 :*/ 230 /*:ref: qcheb_ 14 4 6 6 6 6 */ 231 extern int snbdi_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *det); 232 extern E_f ali_(real *x); 233 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 234 /*:ref: ei_ 6 1 6 */ 235 extern int chidi_(complex *a, integer *lda, integer *n, integer *kpvt, real *det, integer *inert, complex *work, integer *job); 236 /*:ref: ccopy_ 14 5 4 8 4 8 4 */ 237 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 238 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 239 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 240 extern doublereal dbesy1_(doublereal *x); 241 /*:ref: initds_ 4 3 7 4 6 */ 242 /*:ref: d1mach_ 7 1 4 */ 243 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 244 /*:ref: dbesj1_ 7 1 7 */ 245 /*:ref: dcsevl_ 7 3 7 7 4 */ 246 /*:ref: d9b1mp_ 14 3 7 7 7 */ 247 extern doublereal dlngam_(doublereal *x); 248 /*:ref: d1mach_ 7 1 4 */ 249 /*:ref: dgamma_ 7 1 7 */ 250 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 251 /*:ref: d9lgmc_ 7 1 7 */ 252 extern int dsidi_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *det, integer *inert, doublereal *work, integer *job); 253 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 254 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 255 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 256 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 257 extern int jairy_(real *x, real *rx, real *c__, real *ai, real *dai); 258 extern int qcheb_(real *x, real *fval, real *cheb12, real *cheb24); 259 extern int snbfa_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info); 260 /*:ref: isamax_ 4 3 4 6 4 */ 261 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 262 /*:ref: sscal_ 14 4 4 6 6 4 */ 263 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 264 extern E_f alngam_(real *x); 265 /*:ref: r1mach_ 6 1 4 */ 266 /*:ref: gamma_ 6 1 6 */ 267 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 268 /*:ref: r9lgmc_ 6 1 6 */ 269 extern int chiev_(real *a, integer *lda, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info); 270 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 271 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 272 /*:ref: scopym_ 14 5 4 6 4 6 4 */ 273 /*:ref: htridi_ 14 8 4 4 6 6 6 6 6 6 */ 274 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 275 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */ 276 /*:ref: htribk_ 14 8 4 4 6 6 6 4 6 6 */ 277 extern doublereal dbeta_(doublereal *a, doublereal *b); 278 /*:ref: dgamlm_ 14 2 7 7 */ 279 /*:ref: d1mach_ 7 1 4 */ 280 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 281 /*:ref: dgamma_ 7 1 7 */ 282 /*:ref: dlbeta_ 7 2 7 7 */ 283 extern doublereal dlnrel_(doublereal *x); 284 /*:ref: initds_ 4 3 7 4 6 */ 285 /*:ref: d1mach_ 7 1 4 */ 286 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 287 /*:ref: dcsevl_ 7 3 7 7 4 */ 288 extern int dsifa_(doublereal *a, integer *lda, integer *n, integer *kpvt, integer *info); 289 /*:ref: idamax_ 4 3 4 7 4 */ 290 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 291 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 292 extern int la05ad_(doublereal *a, integer *ind, integer *nz, integer *ia, integer *n, integer *ip, integer *iw, doublereal *w, doublereal *g, doublereal *u); 293 /* comlen la05dd_ 32 */ 294 /*:ref: xsetun_ 14 1 4 */ 295 /*:ref: mc20ad_ 14 7 4 4 7 4 4 4 4 */ 296 /*:ref: la05ed_ 14 7 7 4 4 4 4 4 12 */ 297 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 298 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 299 extern int qelg_(integer *n, real *epstab, real *result, real *abserr, real *res3la, integer *nres); 300 /*:ref: r1mach_ 6 1 4 */ 301 extern int snbfs_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, real *v, integer *itask, integer *ind, real *work, integer *iwork); 302 /*:ref: snbco_ 14 8 6 4 4 4 4 4 6 6 */ 303 /*:ref: r1mach_ 6 1 4 */ 304 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 305 /*:ref: snbsl_ 14 8 6 4 4 4 4 4 6 4 */ 306 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 307 extern E_f alnrel_(real *x); 308 /*:ref: inits_ 4 3 6 4 6 */ 309 /*:ref: r1mach_ 6 1 4 */ 310 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 311 /*:ref: csevl_ 6 3 6 6 4 */ 312 extern int chifa_(complex *a, integer *lda, integer *n, integer *kpvt, integer *info); 313 /*:ref: icamax_ 4 3 4 8 4 */ 314 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 315 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 316 extern doublereal dbetai_(doublereal *x, doublereal *pin, doublereal *qin); 317 /*:ref: d1mach_ 7 1 4 */ 318 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 319 /*:ref: dlbeta_ 7 2 7 7 */ 320 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); 321 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 322 /*:ref: dnrm2_ 7 3 4 7 4 */ 323 /*:ref: dscal_ 14 4 4 7 7 4 */ 324 /*:ref: dwnnls_ 14 12 7 4 4 4 4 4 7 7 7 4 4 7 */ 325 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 326 extern doublereal dsindg_(doublereal *x); 327 extern int la05as_(real *a, integer *ind, integer *nz, integer *ia, integer *n, integer *ip, integer *iw, real *w, real *g, real *u); 328 /* comlen la05ds_ 28 */ 329 /*:ref: xsetun_ 14 1 4 */ 330 /*:ref: mc20as_ 14 7 4 4 6 4 4 4 4 */ 331 /*:ref: la05es_ 14 7 6 4 4 4 4 4 12 */ 332 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 333 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 334 extern int qform_(integer *m, integer *n, real *q, integer *ldq, real *wa); 335 extern int snbir_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, real *v, integer *itask, integer *ind, real *work, integer *iwork); 336 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 337 /*:ref: snbfa_ 14 7 6 4 4 4 4 4 4 */ 338 /*:ref: snbsl_ 14 8 6 4 4 4 4 4 6 4 */ 339 /*:ref: sasum_ 6 3 4 6 4 */ 340 /*:ref: sdsdot_ 6 6 4 6 6 4 6 4 */ 341 /*:ref: r1mach_ 6 1 4 */ 342 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 343 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 344 extern E_f asinh_(real *x); 345 /*:ref: inits_ 4 3 6 4 6 */ 346 /*:ref: r1mach_ 6 1 4 */ 347 /*:ref: csevl_ 6 3 6 6 4 */ 348 extern int chisl_(complex *a, integer *lda, integer *n, integer *kpvt, complex *b); 349 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 350 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 351 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); 352 /*:ref: d1mach_ 7 1 4 */ 353 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */ 354 /*:ref: dbsgq8_ 14 13 207 7 7 4 4 4 7 7 4 7 7 4 7 */ 355 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 356 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); 357 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 358 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 359 /*:ref: dasum_ 7 3 4 7 4 */ 360 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 361 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 362 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */ 363 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 364 /*:ref: dnrm2_ 7 3 4 7 4 */ 365 /*:ref: dlsi_ 14 11 7 4 4 4 4 7 7 7 4 7 4 */ 366 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 367 /*:ref: dscal_ 14 4 4 7 7 4 */ 368 extern int dsisl_(doublereal *a, integer *lda, integer *n, integer *kpvt, doublereal *b); 369 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 370 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 371 extern int la05bd_(doublereal *a, integer *ind, integer *ia, integer *n, integer *ip, integer *iw, doublereal *w, doublereal *g, doublereal *b, logical *trans); 372 /* comlen la05dd_ 32 */ 373 /*:ref: xsetun_ 14 1 4 */ 374 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 375 extern int qk15_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc); 376 /*:ref: r1mach_ 6 1 4 */ 377 extern int snbsl_(real *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *b, integer *job); 378 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 379 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 380 extern int asyik_(real *x, real *fnu, integer *kode, real *flgik, real *ra, real *arg, integer *in, real *y); 381 /*:ref: r1mach_ 6 1 4 */ 382 extern int chkder_(integer *m, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, real *xp, real *fvecp, integer *mode, real *err); 383 /*:ref: r1mach_ 6 1 4 */ 384 extern doublereal dbi_(doublereal *x); 385 /*:ref: d1mach_ 7 1 4 */ 386 /*:ref: initds_ 4 3 7 4 6 */ 387 /*:ref: d9aimp_ 14 3 7 7 7 */ 388 /*:ref: dcsevl_ 7 3 7 7 4 */ 389 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 390 /*:ref: dbie_ 7 1 7 */ 391 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); 392 /*:ref: dasum_ 7 3 4 7 4 */ 393 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 394 /*:ref: dhfti_ 14 13 7 4 4 4 7 4 4 7 4 7 7 7 4 */ 395 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 396 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 397 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */ 398 /*:ref: dlpdp_ 14 11 7 4 4 4 4 7 7 7 4 7 4 */ 399 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 400 /*:ref: dscal_ 14 4 4 7 7 4 */ 401 extern int dslvs_(doublereal *wm, integer *iwm, doublereal *x, doublereal *tem); 402 /* comlen ddebd1_ 1876 */ 403 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */ 404 /*:ref: dgbsl_ 14 8 7 4 4 4 4 4 7 4 */ 405 extern int la05bs_(real *a, integer *ind, integer *ia, integer *n, integer *ip, integer *iw, real *w, real *g, real *b, logical *trans); 406 /* comlen la05ds_ 28 */ 407 /*:ref: xsetun_ 14 1 4 */ 408 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 409 extern int qk15i_(E_fp f, real *boun, integer *inf, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc); 410 /*:ref: r1mach_ 6 1 4 */ 411 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); 412 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 413 /*:ref: r1mach_ 6 1 4 */ 414 /*:ref: enorm_ 6 2 4 6 */ 415 /*:ref: fdjac2_ 14 10 214 4 4 6 6 6 4 4 6 6 */ 416 /*:ref: qrfac_ 14 10 4 4 6 4 12 4 4 6 6 6 */ 417 /*:ref: rwupdt_ 14 8 4 6 4 6 6 6 6 6 */ 418 /*:ref: lmpar_ 14 12 4 6 4 4 6 6 6 6 6 6 6 6 */ 419 extern int asyjy_(S_fp funjy, real *x, real *fnu, real *flgjy, integer *in, real *y, real *wk, integer *iflw); 420 /*:ref: r1mach_ 6 1 4 */ 421 /*:ref: i1mach_ 4 1 4 */ 422 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); 423 extern doublereal dbie_(doublereal *x); 424 /*:ref: d1mach_ 7 1 4 */ 425 /*:ref: initds_ 4 3 7 4 6 */ 426 /*:ref: d9aimp_ 14 3 7 7 7 */ 427 /*:ref: dcsevl_ 7 3 7 7 4 */ 428 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); 429 /* comlen ddebd1_ 1876 */ 430 /*:ref: d1mach_ 7 1 4 */ 431 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 432 /*:ref: dhstrt_ 14 17 214 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 7 */ 433 /*:ref: dintyd_ 14 6 7 4 7 4 7 4 */ 434 /*:ref: dvnrms_ 7 3 4 7 7 */ 435 /*:ref: dstod_ 14 14 4 7 7 4 7 7 7 7 7 4 214 200 7 4 */ 436 extern int dsort_(doublereal *x, doublereal *y, integer *n, integer *kflag); 437 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 438 extern int la05cd_(doublereal *a, integer *ind, integer *ia, integer *n, integer *ip, integer *iw, doublereal *w, doublereal *g, doublereal *u, integer *mm); 439 /* comlen la05dd_ 32 */ 440 /*:ref: xsetun_ 14 1 4 */ 441 /*:ref: la05ed_ 14 7 7 4 4 4 4 4 12 */ 442 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 443 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 444 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); 445 /*:ref: r1mach_ 6 1 4 */ 446 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); 447 /*:ref: r1mach_ 6 1 4 */ 448 /*:ref: enorm_ 6 2 4 6 */ 449 /*:ref: chkder_ 14 10 4 4 6 6 6 4 6 6 4 6 */ 450 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 451 /*:ref: fdjac3_ 14 10 214 4 4 6 6 6 4 4 6 6 */ 452 /*:ref: qrfac_ 14 10 4 4 6 4 12 4 4 6 6 6 */ 453 /*:ref: rwupdt_ 14 8 4 6 4 6 6 6 6 6 */ 454 /*:ref: lmpar_ 14 12 4 6 4 4 6 6 6 6 6 6 6 6 */ 455 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 456 extern E_f atanh_(real *x); 457 /*:ref: inits_ 4 3 6 4 6 */ 458 /*:ref: r1mach_ 6 1 4 */ 459 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 460 /*:ref: csevl_ 6 3 6 6 4 */ 461 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); 462 extern doublereal dbinom_(integer *n, integer *m); 463 /*:ref: d1mach_ 7 1 4 */ 464 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 465 /*:ref: d9lgmc_ 7 1 7 */ 466 /*:ref: dlnrel_ 7 1 7 */ 467 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); 468 /*:ref: d1mach_ 7 1 4 */ 469 /*:ref: xgetf_ 14 1 4 */ 470 /*:ref: j4save_ 4 3 4 4 12 */ 471 /*:ref: xsetf_ 14 1 4 */ 472 /*:ref: xermax_ 14 1 4 */ 473 /*:ref: dorthr_ 14 12 7 4 4 4 4 4 4 7 4 7 7 7 */ 474 /*:ref: dohtrl_ 14 7 7 4 4 7 4 7 7 */ 475 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 476 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 477 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); 478 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 479 /*: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 */ 480 extern int la05cs_(real *a, integer *ind, integer *ia, integer *n, integer *ip, integer *iw, real *w, real *g, real *u, integer *mm); 481 /* comlen la05ds_ 28 */ 482 /*:ref: xsetun_ 14 1 4 */ 483 /*:ref: la05es_ 14 7 6 4 4 4 4 4 12 */ 484 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 485 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 486 extern int qk21_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc); 487 /*:ref: r1mach_ 6 1 4 */ 488 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); 489 /*: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 */ 490 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 491 extern int avint_(real *x, real *y, integer *n, real *xlo, real *xup, real *ans, integer *ierr); 492 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 493 extern int chksn4_(integer *mbdcnd, integer *nbdcnd, real *alpha, real *beta, S_fp cofx, logical *singlr); 494 /* comlen spl4_ 80 */ 495 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); 496 /*:ref: d1mach_ 7 1 4 */ 497 /*:ref: dbspvd_ 14 8 7 4 4 7 4 4 7 7 */ 498 /*:ref: dbnfac_ 14 6 7 4 4 4 4 4 */ 499 /*:ref: dbnslv_ 14 6 7 4 4 4 4 7 */ 500 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 501 extern int dmacon_(void); 502 /* comlen dml5mc_ 52 */ 503 /*:ref: d1mach_ 7 1 4 */ 504 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); 505 /*:ref: d1mach_ 7 1 4 */ 506 /*:ref: i1mach_ 4 1 4 */ 507 /*:ref: dsossl_ 14 7 4 4 4 7 7 7 4 */ 508 extern int la05ed_(doublereal *a, integer *irn, integer *ip, integer *n, integer *iw, integer *ia, logical *reals); 509 /* comlen la05dd_ 32 */ 510 extern int qk31_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc); 511 /*:ref: r1mach_ 6 1 4 */ 512 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); 513 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 514 /*: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 */ 515 extern int bakvec_(integer *nm, integer *n, real *t, real *e, integer *m, real *z__, integer *ierr); 516 extern int chksng_(integer *mbdcnd, integer *nbdcnd, real *alpha, real *beta, real *gama, real *xnu, S_fp cofx, S_fp cofy, logical *singlr); 517 /* comlen splpzz_ 80 */ 518 extern int dbintk_(doublereal *x, doublereal *y, doublereal *t, integer *n, integer *k, doublereal *bcoef, doublereal *q, doublereal *work); 519 /*:ref: dbspvn_ 14 9 7 4 4 4 7 4 7 7 4 */ 520 /*:ref: dbnfac_ 14 6 7 4 4 4 4 4 */ 521 /*:ref: dbnslv_ 14 6 7 4 4 4 4 7 */ 522 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 523 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); 524 /* comlen dml18j_ 84 */ 525 /* comlen dml5mc_ 52 */ 526 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 527 /*:ref: dprvec_ 7 3 4 7 7 */ 528 extern int dsossl_(integer *k, integer *n, integer *l, doublereal *x, doublereal *c__, doublereal *b, integer *m); 529 extern int la05es_(real *a, integer *irn, integer *ip, integer *n, integer *iw, integer *ia, logical *reals); 530 /* comlen la05ds_ 28 */ 531 extern int qk41_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc); 532 /*:ref: r1mach_ 6 1 4 */ 533 extern E_f snrm2_(integer *n, real *sx, integer *incx); 534 extern int balanc_(integer *nm, integer *n, real *a, integer *low, integer *igh, real *scale); 535 extern int chpco_(complex *ap, integer *n, integer *kpvt, real *rcond, complex *z__); 536 /*:ref: scasum_ 6 3 4 8 4 */ 537 /*:ref: chpfa_ 14 4 8 4 4 4 */ 538 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 539 /*:ref: csscal_ 14 4 4 6 8 4 */ 540 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 541 extern int dbkias_(doublereal *x, integer *n, integer *ktrms, doublereal *t, doublereal *ans, integer *ind, integer *ms, doublereal *gmrn, doublereal *h__, integer *ierr); 542 /*:ref: d1mach_ 7 1 4 */ 543 /*:ref: dgamrn_ 7 1 7 */ 544 /*:ref: dhkseq_ 14 4 7 4 7 4 */ 545 /*:ref: dbdiff_ 14 2 4 7 */ 546 extern int dmout_(integer *m, integer *n, integer *lda, doublereal *a, char *ifmt, integer *idigit, ftnlen ifmt_len); 547 /*:ref: i1mach_ 4 1 4 */ 548 extern int dspco_(doublereal *ap, integer *n, integer *kpvt, doublereal *rcond, doublereal *z__); 549 /*:ref: dasum_ 7 3 4 7 4 */ 550 /*:ref: dspfa_ 14 4 7 4 4 4 */ 551 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 552 /*:ref: dscal_ 14 4 4 7 7 4 */ 553 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 554 extern int lagre_(integer *m, integer *k, real *aa, real *z__); 555 extern int qk51_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc); 556 /*:ref: r1mach_ 6 1 4 */ 557 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); 558 /*:ref: r1mach_ 6 1 4 */ 559 /*:ref: enorm_ 6 2 4 6 */ 560 /*:ref: fdjac1_ 14 12 214 4 6 6 6 4 4 4 4 6 6 6 */ 561 /*:ref: qrfac_ 14 10 4 4 6 4 12 4 4 6 6 6 */ 562 /*:ref: qform_ 14 5 4 4 6 4 6 */ 563 /*:ref: dogleg_ 14 9 4 6 4 6 6 6 6 6 6 */ 564 /*:ref: r1updt_ 14 8 4 4 6 4 6 6 6 12 */ 565 /*:ref: r1mpyq_ 14 6 4 4 6 4 6 6 */ 566 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 567 extern int balbak_(integer *nm, integer *n, integer *low, integer *igh, real *scale, integer *m, real *z__); 568 extern int chpdi_(complex *ap, integer *n, integer *kpvt, real *det, integer *inert, complex *work, integer *job); 569 /*:ref: ccopy_ 14 5 4 8 4 8 4 */ 570 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 571 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 572 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 573 extern int dbkisr_(doublereal *x, integer *n, doublereal *sum, integer *ierr); 574 /*:ref: d1mach_ 7 1 4 */ 575 /*:ref: dpsixn_ 7 1 4 */ 576 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); 577 /*:ref: d1mach_ 7 1 4 */ 578 /*:ref: denorm_ 7 2 4 7 */ 579 /*:ref: dqrslv_ 14 9 4 7 4 4 7 7 7 7 7 */ 580 extern int dspdi_(doublereal *ap, integer *n, integer *kpvt, doublereal *det, integer *inert, doublereal *work, integer *job); 581 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 582 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 583 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 584 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 585 extern int lgndr_(integer *m, integer *k, real *aa, real *z__); 586 extern int qk61_(E_fp f, real *a, real *b, real *result, real *abserr, real *resabs, real *resasc); 587 /*:ref: r1mach_ 6 1 4 */ 588 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); 589 /*: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 */ 590 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 591 extern int bandr_(integer *nm, integer *n, integer *mb, real *a, real *d__, real *e, real *e2, logical *matz, real *z__); 592 extern int chpfa_(complex *ap, integer *n, integer *kpvt, integer *info); 593 /*:ref: icamax_ 4 3 4 8 4 */ 594 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 595 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 596 extern int dbksol_(integer *n, doublereal *a, doublereal *x); 597 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 598 extern int dnbco_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *rcond, doublereal *z__); 599 /*:ref: dasum_ 7 3 4 7 4 */ 600 /*:ref: dnbfa_ 14 7 7 4 4 4 4 4 4 */ 601 /*:ref: dscal_ 14 4 4 7 7 4 */ 602 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 603 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 604 extern doublereal dspenc_(doublereal *x); 605 /*:ref: initds_ 4 3 7 4 7 */ 606 /*:ref: d1mach_ 7 1 4 */ 607 /*:ref: dcsevl_ 7 3 7 7 4 */ 608 extern int lgndrx_(integer *n, integer *k, real *aa, real *z__); 609 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 610 extern int qmomo_(real *alfa, real *beta, real *ri, real *rj, real *rg, real *rh, integer *integr); 611 extern int sods_(real *a, real *x, real *b, integer *neq, integer *nuk, integer *nrda, integer *iflag, real *work, integer *iwork); 612 /*:ref: lssods_ 14 20 6 6 6 4 4 4 4 4 4 6 6 4 4 6 6 6 6 6 6 6 */ 613 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); 614 extern int chpsl_(complex *ap, integer *n, integer *kpvt, complex *b); 615 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 616 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 617 extern int dbndac_(doublereal *g, integer *mdg, integer *nb, integer *ip, integer *ir, integer *mt, integer *jt); 618 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 619 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */ 620 extern int dnbdi_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *det); 621 extern int dspfa_(doublereal *ap, integer *n, integer *kpvt, integer *info); 622 /*:ref: idamax_ 4 3 4 7 4 */ 623 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 624 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 625 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); 626 /*:ref: r1mach_ 6 1 4 */ 627 /*:ref: u11ls_ 14 15 6 4 4 4 6 6 4 4 4 4 6 6 6 4 4 */ 628 /*:ref: u12ls_ 14 14 6 4 4 4 6 4 4 4 4 6 6 6 4 4 */ 629 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 630 extern int qnc79_(E_fp fun, real *a, real *b, real *err, real *ans, integer *ierr, integer *k); 631 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 632 /*:ref: r1mach_ 6 1 4 */ 633 /*:ref: i1mach_ 4 1 4 */ 634 extern int sopenm_(integer *ipage, integer *lpage); 635 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 636 extern E_f bcrh_(real *xll, real *xrr, integer *iz, real *c__, real *a, real *bh, E_fp f, real *sgn); 637 /* comlen ccblk_ 28 */ 638 extern E_f chu_(real *a, real *b, real *x); 639 /*:ref: r1mach_ 6 1 4 */ 640 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 641 /*:ref: poch_ 6 2 6 6 */ 642 /*:ref: gamma_ 6 1 6 */ 643 /*:ref: gamr_ 6 1 6 */ 644 /*:ref: poch1_ 6 2 6 6 */ 645 /*:ref: exprel_ 6 1 6 */ 646 /*:ref: r9chu_ 6 3 6 6 6 */ 647 extern int dbndsl_(integer *mode, doublereal *g, integer *mdg, integer *nb, integer *ip, integer *ir, doublereal *x, integer *n, doublereal *rnorm); 648 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 649 extern int dnbfa_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info); 650 /*:ref: idamax_ 4 3 4 7 4 */ 651 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 652 /*:ref: dscal_ 14 4 4 7 7 4 */ 653 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 654 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); 655 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 656 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 657 /*: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 */ 658 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); 659 /*:ref: r1mach_ 6 1 4 */ 660 /*:ref: enorm_ 6 2 4 6 */ 661 /*:ref: qrsolv_ 14 9 4 6 4 4 6 6 6 6 6 */ 662 extern int qng_(E_fp f, real *a, real *b, real *epsabs, real *epsrel, real *result, real *abserr, integer *neval, integer *ier); 663 /*:ref: r1mach_ 6 1 4 */ 664 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 665 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); 666 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 667 /*: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 */ 668 extern int bdiff_(integer *l, real *v); 669 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); 670 /*:ref: pythag_ 6 2 6 6 */ 671 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */ 672 extern int dbnfac_(doublereal *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, integer *iflag); 673 extern int dnbfs_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, doublereal *v, integer *itask, integer *ind, doublereal *work, integer *iwork); 674 /*:ref: dnbco_ 14 8 7 4 4 4 4 4 7 7 */ 675 /*:ref: d1mach_ 7 1 4 */ 676 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 677 /*:ref: dnbsl_ 14 8 7 4 4 4 4 4 7 4 */ 678 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 679 extern int dspsl_(doublereal *ap, integer *n, integer *kpvt, doublereal *b); 680 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 681 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 682 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); 683 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 684 /*:ref: snrm2_ 6 3 4 6 4 */ 685 /*:ref: sscal_ 14 4 4 6 6 4 */ 686 /*:ref: wnnls_ 14 12 6 4 4 4 4 4 6 6 6 4 4 6 */ 687 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 688 extern int qpdoc_(void); 689 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); 690 /*:ref: r1mach_ 6 1 4 */ 691 /*:ref: i1mach_ 4 1 4 */ 692 /*:ref: sossol_ 14 7 4 4 4 6 6 6 4 */ 693 extern int besi_(real *x, real *alpha, integer *kode, integer *n, real *y, integer *nz); 694 /*:ref: r1mach_ 6 1 4 */ 695 /*:ref: i1mach_ 4 1 4 */ 696 /*:ref: asyik_ 14 8 6 6 4 6 6 6 4 6 */ 697 /*:ref: alngam_ 6 1 6 */ 698 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 699 extern C_f clbeta_(complex * ret_val, complex *a, complex *b); 700 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 701 /*:ref: clngam_ 8 2 8 8 */ 702 extern int dbnslv_(doublereal *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, doublereal *b); 703 extern int dnbsl_(doublereal *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *b, integer *job); 704 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 705 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 706 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); 707 /*:ref: d1mach_ 7 1 4 */ 708 /*:ref: dhstrt_ 14 17 214 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 7 */ 709 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); 710 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 711 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 712 /*:ref: sasum_ 6 3 4 6 4 */ 713 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 714 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 715 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */ 716 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 717 /*:ref: snrm2_ 6 3 4 6 4 */ 718 /*:ref: lsi_ 14 11 6 4 4 4 4 6 6 6 4 6 4 */ 719 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 720 /*:ref: sscal_ 14 4 4 6 6 4 */ 721 extern int qpsrt_(integer *limit, integer *last, integer *maxerr, real *ermax, real *elist, integer *iord, integer *nrmax); 722 extern int sossol_(integer *k, integer *n, integer *l, real *x, real *c__, real *b, integer *m); 723 extern E_f besi0_(real *x); 724 /*:ref: inits_ 4 3 6 4 6 */ 725 /*:ref: r1mach_ 6 1 4 */ 726 /*:ref: csevl_ 6 3 6 6 4 */ 727 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 728 /*:ref: besi0e_ 6 1 6 */ 729 extern C_f clngam_(complex * ret_val, complex *zin); 730 /*:ref: r1mach_ 6 1 4 */ 731 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 732 /*:ref: clnrel_ 8 2 8 8 */ 733 /*:ref: c9lgmc_ 8 2 8 8 */ 734 /*:ref: carg_ 6 1 8 */ 735 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); 736 /*:ref: d1mach_ 7 1 4 */ 737 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 738 /*:ref: dbols_ 14 13 7 4 4 4 7 7 4 4 7 7 4 7 4 */ 739 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 740 /*:ref: dasum_ 7 3 4 7 4 */ 741 /*:ref: dnrm2_ 7 3 4 7 4 */ 742 /*:ref: dscal_ 14 4 4 7 7 4 */ 743 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); 744 /*:ref: d1mach_ 7 1 4 */ 745 /*:ref: denorm_ 7 2 4 7 */ 746 /*:ref: dckder_ 14 10 4 4 7 7 7 4 7 7 4 7 */ 747 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 748 /*:ref: dfdjc3_ 14 10 214 4 4 7 7 7 4 4 7 7 */ 749 /*:ref: dqrfac_ 14 10 4 4 7 4 12 4 4 7 7 7 */ 750 /*:ref: dwupdt_ 14 8 4 7 4 7 7 7 7 7 */ 751 /*:ref: dmpar_ 14 12 4 7 4 4 7 7 7 7 7 7 7 7 */ 752 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 753 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); 754 /*:ref: d1mach_ 7 1 4 */ 755 /*:ref: dhstrt_ 14 17 214 4 7 7 7 7 7 4 7 7 7 7 7 7 7 4 7 */ 756 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); 757 /*:ref: sasum_ 6 3 4 6 4 */ 758 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 759 /*:ref: hfti_ 14 13 6 4 4 4 6 4 4 6 4 6 6 6 4 */ 760 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 761 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 762 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */ 763 /*:ref: lpdp_ 14 11 6 4 4 4 4 6 6 6 4 6 4 */ 764 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 765 /*:ref: sscal_ 14 4 4 6 6 4 */ 766 extern int qqsort_(integer *n, real *x, integer *j, integer *l, real *y); 767 extern int spbco_(real *abd, integer *lda, integer *n, integer *m, real *rcond, real *z__, integer *info); 768 /*:ref: sasum_ 6 3 4 6 4 */ 769 /*:ref: spbfa_ 14 5 6 4 4 4 4 */ 770 /*:ref: sscal_ 14 4 4 6 6 4 */ 771 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 772 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 773 extern E_f besi0e_(real *x); 774 /*:ref: inits_ 4 3 6 4 6 */ 775 /*:ref: r1mach_ 6 1 4 */ 776 /*:ref: csevl_ 6 3 6 6 4 */ 777 extern C_f clnrel_(complex * ret_val, complex *z__); 778 /*:ref: r1mach_ 6 1 4 */ 779 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 780 /*:ref: alnrel_ 6 1 6 */ 781 /*:ref: carg_ 6 1 8 */ 782 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); 783 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 784 /*:ref: idamax_ 4 3 4 7 4 */ 785 /*:ref: drotg_ 14 4 7 7 7 7 */ 786 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */ 787 /*:ref: dnrm2_ 7 3 4 7 4 */ 788 /*:ref: dbolsm_ 14 16 7 4 4 4 7 7 4 4 7 7 4 7 7 7 4 4 */ 789 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); 790 /*: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 */ 791 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 792 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); 793 /* comlen ddebd1_ 1876 */ 794 /*:ref: dcfod_ 14 3 4 7 7 */ 795 /*:ref: dvnrms_ 7 3 4 7 7 */ 796 /*:ref: dpjac_ 14 13 4 7 7 4 7 7 7 7 4 214 200 7 4 */ 797 /*:ref: dslvs_ 14 4 7 4 7 7 */ 798 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); 799 /* comlen debdf1_ 1004 */ 800 /*:ref: r1mach_ 6 1 4 */ 801 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 802 /*:ref: hstart_ 14 17 214 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 6 */ 803 /*:ref: intyd_ 14 6 6 4 6 4 6 4 */ 804 /*:ref: vnwrms_ 6 3 4 6 6 */ 805 /*:ref: stod_ 14 14 4 6 6 4 6 6 6 6 6 4 214 200 6 4 */ 806 extern int qrfac_(integer *m, integer *n, real *a, integer *lda, logical *pivot, integer *ipvt, integer *lipvt, real *sigma, real *acnorm, real *wa); 807 /*:ref: r1mach_ 6 1 4 */ 808 /*:ref: enorm_ 6 2 4 6 */ 809 extern int spbdi_(real *abd, integer *lda, integer *n, integer *m, real *det); 810 extern E_f besi1_(real *x); 811 /*:ref: inits_ 4 3 6 4 6 */ 812 /*:ref: r1mach_ 6 1 4 */ 813 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 814 /*:ref: csevl_ 6 3 6 6 4 */ 815 /*:ref: besi1e_ 6 1 6 */ 816 extern C_f clog10_(complex * ret_val, complex *z__); 817 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); 818 /*:ref: dmout_ 14 7 4 4 4 7 13 4 124 */ 819 /*:ref: dvout_ 14 5 4 7 13 4 124 */ 820 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 821 /*:ref: dnrm2_ 7 3 4 7 4 */ 822 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 823 /*:ref: ivout_ 14 5 4 4 13 4 124 */ 824 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 825 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */ 826 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 827 /*:ref: d1mach_ 7 1 4 */ 828 extern doublereal dnrm2_(integer *n, doublereal *dx, integer *incx); 829 extern int dstor1_(doublereal *u, doublereal *yh, doublereal *v, doublereal *yp, integer *ntemp, integer *ndisk, integer *ntape); 830 /* comlen dml8sz_ 36 */ 831 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); 832 /*:ref: r1mach_ 6 1 4 */ 833 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 834 /*:ref: xgetf_ 14 1 4 */ 835 /*:ref: j4save_ 4 3 4 4 12 */ 836 /*:ref: xsetf_ 14 1 4 */ 837 /*:ref: xermax_ 14 1 4 */ 838 /*:ref: orthol_ 14 12 6 4 4 4 4 4 4 6 4 6 6 6 */ 839 /*:ref: ohtror_ 14 7 6 4 4 6 4 6 6 */ 840 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 841 /*:ref: sdsdot_ 6 6 4 6 6 4 6 4 */ 842 extern int qrsolv_(integer *n, real *r__, integer *ldr, integer *ipvt, real *diag, real *qtb, real *x, real *sigma, real *wa); 843 extern int spbfa_(real *abd, integer *lda, integer *n, integer *m, integer *info); 844 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 845 extern E_f besi1e_(real *x); 846 /*:ref: inits_ 4 3 6 4 6 */ 847 /*:ref: r1mach_ 6 1 4 */ 848 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 849 /*:ref: csevl_ 6 3 6 6 4 */ 850 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); 851 /*:ref: cmposp_ 14 16 4 4 8 8 8 8 4 8 8 8 8 8 8 8 8 8 */ 852 /*:ref: cmposd_ 14 13 4 4 4 8 8 8 8 4 8 8 8 8 8 */ 853 /*:ref: cmposn_ 14 18 4 4 4 4 8 8 8 8 4 8 8 8 8 8 8 8 8 8 */ 854 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); 855 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 856 /*:ref: i1mach_ 4 1 4 */ 857 /*:ref: d1mach_ 7 1 4 */ 858 /*:ref: dbvalu_ 7 8 7 7 4 4 4 7 4 7 */ 859 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); 860 /*:ref: d1mach_ 7 1 4 */ 861 /*:ref: denorm_ 7 2 4 7 */ 862 /*:ref: dfdjc1_ 14 12 214 4 7 7 7 4 4 4 4 7 7 7 */ 863 /*:ref: dqrfac_ 14 10 4 4 7 4 12 4 4 7 7 7 */ 864 /*:ref: dqform_ 14 5 4 4 7 4 7 */ 865 /*:ref: ddoglg_ 14 9 4 7 4 7 7 7 7 7 7 */ 866 /*:ref: d1updt_ 14 8 4 4 7 4 7 7 7 12 */ 867 /*:ref: d1mpyq_ 14 6 4 4 7 4 7 7 */ 868 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 869 extern int dstway_(doublereal *u, doublereal *v, doublereal *yhp, integer *inout, doublereal *stowa); 870 /* comlen dml8sz_ 36 */ 871 /* comlen dml15t_ 148 */ 872 /* comlen dml18j_ 84 */ 873 /*:ref: dstor1_ 14 7 7 7 7 7 4 4 4 */ 874 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); 875 /*:ref: r1mach_ 6 1 4 */ 876 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 877 /*:ref: xgetf_ 14 1 4 */ 878 /*:ref: j4save_ 4 3 4 4 12 */ 879 /*:ref: xsetf_ 14 1 4 */ 880 /*:ref: xermax_ 14 1 4 */ 881 /*:ref: orthor_ 14 12 6 4 4 4 4 4 4 6 4 6 6 6 */ 882 /*:ref: ohtrol_ 14 7 6 4 4 6 4 6 6 */ 883 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 884 extern E_f qwgtc_(real *x, real *c__, real *p2, real *p3, real *p4, integer *kp); 885 extern int spbsl_(real *abd, integer *lda, integer *n, integer *m, real *b); 886 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 887 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 888 extern int besj_(real *x, real *alpha, integer *n, real *y, integer *nz); 889 /*:ref: r1mach_ 6 1 4 */ 890 /*:ref: i1mach_ 4 1 4 */ 891 /*:ref: asyjy_ 14 8 200 6 6 6 4 6 6 4 */ 892 /*:ref: alngam_ 6 1 6 */ 893 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 894 extern int cmpcsg_(integer *n, integer *ijump, real *fnum, real *fden, complex *a); 895 /*:ref: pimach_ 6 1 6 */ 896 extern doublereal dbsi0e_(doublereal *x); 897 /*:ref: d1mach_ 7 1 4 */ 898 /*:ref: initds_ 4 3 7 4 6 */ 899 /*:ref: dcsevl_ 7 3 7 7 4 */ 900 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); 901 /*: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 */ 902 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 903 extern int dsuds_(doublereal *a, doublereal *x, doublereal *b, integer *neq, integer *nuk, integer *nrda, integer *iflag, integer *mlso, doublereal *work, integer *iwork); 904 /*:ref: dlssud_ 14 20 7 7 7 4 4 4 7 4 4 4 4 4 7 7 4 7 7 7 4 7 */ 905 extern int macon_(void); 906 /* comlen ml5mco_ 28 */ 907 /*:ref: r1mach_ 6 1 4 */ 908 extern E_f qwgtf_(real *x, real *omega, real *p2, real *p3, real *p4, integer *integr); 909 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); 910 /* comlen spl4_ 80 */ 911 /*:ref: chksn4_ 14 6 4 4 6 6 214 12 */ 912 /*:ref: tris4_ 14 7 4 6 6 6 6 6 6 */ 913 /*:ref: ortho4_ 14 5 6 4 6 6 6 */ 914 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 915 /*:ref: minso4_ 14 5 6 4 6 6 6 */ 916 /*:ref: defe4_ 14 4 214 4 6 6 */ 917 extern E_f besj0_(real *x); 918 /*:ref: inits_ 4 3 6 4 6 */ 919 /*:ref: r1mach_ 6 1 4 */ 920 /*:ref: csevl_ 6 3 6 6 4 */ 921 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 922 extern int cmpmrg_(complex *tcos, integer *i1, integer *m1, integer *i2, integer *m2, integer *i3); 923 extern doublereal dbsi1e_(doublereal *x); 924 /*:ref: d1mach_ 7 1 4 */ 925 /*:ref: initds_ 4 3 7 4 6 */ 926 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 927 /*:ref: dcsevl_ 7 3 7 7 4 */ 928 extern int dnterv_(doublereal *xt, integer *lxt, doublereal *x, integer *ileft, integer *mflag); 929 extern int dsvco_(doublereal *rsav, integer *isav); 930 /* comlen ddebd1_ 1876 */ 931 extern int mc20ad_(integer *nc, integer *maxa, doublereal *a, integer *inum, integer *jptr, integer *jnum, integer *jdisp); 932 extern E_f qwgts_(real *x, real *a, real *b, real *alfa, real *beta, integer *integr); 933 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); 934 /* comlen splpzz_ 80 */ 935 /*:ref: chksng_ 14 9 4 4 6 6 6 6 214 214 12 */ 936 /*:ref: trisp_ 14 7 4 6 6 6 6 6 6 */ 937 /*:ref: blktri_ 14 15 4 4 4 6 6 6 4 4 6 6 6 4 6 4 6 */ 938 /*:ref: orthog_ 14 5 6 4 6 6 6 */ 939 /*:ref: minsol_ 14 5 6 4 6 6 6 */ 940 /*:ref: defer_ 14 5 214 214 4 6 6 */ 941 extern E_f besj1_(real *x); 942 /*:ref: inits_ 4 3 6 4 6 */ 943 /*:ref: r1mach_ 6 1 4 */ 944 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 945 /*:ref: csevl_ 6 3 6 6 4 */ 946 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); 947 /*:ref: cmptrx_ 14 10 4 4 4 8 8 8 8 8 8 8 */ 948 /*:ref: cmpcsg_ 14 5 4 4 6 6 8 */ 949 /*:ref: cmpmrg_ 14 6 8 4 4 4 4 4 */ 950 extern doublereal dbsk0e_(doublereal *x); 951 /*:ref: d1mach_ 7 1 4 */ 952 /*:ref: initds_ 4 3 7 4 6 */ 953 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 954 /*:ref: dbesi0_ 7 1 7 */ 955 /*:ref: dcsevl_ 7 3 7 7 4 */ 956 extern int dogleg_(integer *n, real *r__, integer *lr, real *diag, real *qtb, real *delta, real *x, real *wa1, real *wa2); 957 /*:ref: r1mach_ 6 1 4 */ 958 /*:ref: enorm_ 6 2 4 6 */ 959 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); 960 /*:ref: dnrm2_ 7 3 4 7 4 */ 961 /*:ref: dscal_ 14 4 4 7 7 4 */ 962 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 963 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 964 /*:ref: drotg_ 14 4 7 7 7 7 */ 965 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */ 966 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 967 extern int mc20as_(integer *nc, integer *maxa, real *a, integer *inum, integer *jptr, integer *jnum, integer *jdisp); 968 extern int qzhes_(integer *nm, integer *n, real *a, real *b, logical *matz, real *z__); 969 extern E_f spenc_(real *x); 970 /*:ref: inits_ 4 3 6 4 6 */ 971 /*:ref: r1mach_ 6 1 4 */ 972 /*:ref: csevl_ 6 3 6 6 4 */ 973 extern int besk_(real *x, real *fnu, integer *kode, integer *n, real *y, integer *nz); 974 /*:ref: i1mach_ 4 1 4 */ 975 /*:ref: r1mach_ 6 1 4 */ 976 /*:ref: asyik_ 14 8 6 6 4 6 6 6 4 6 */ 977 /*:ref: besk0_ 6 1 6 */ 978 /*:ref: besk0e_ 6 1 6 */ 979 /*:ref: besk1_ 6 1 6 */ 980 /*:ref: besk1e_ 6 1 6 */ 981 /*:ref: besknu_ 14 6 6 6 4 4 6 4 */ 982 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 983 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); 984 /*:ref: cmpcsg_ 14 5 4 4 6 6 8 */ 985 /*:ref: cmptrx_ 14 10 4 4 4 8 8 8 8 8 8 8 */ 986 /*:ref: cmpmrg_ 14 6 8 4 4 4 4 4 */ 987 /*:ref: cmptr3_ 14 13 4 8 8 8 4 8 8 8 8 8 8 8 8 */ 988 extern doublereal dbsk1e_(doublereal *x); 989 /*:ref: d1mach_ 7 1 4 */ 990 /*:ref: initds_ 4 3 7 4 6 */ 991 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 992 /*:ref: dbesi1_ 7 1 7 */ 993 /*:ref: dcsevl_ 7 3 7 7 4 */ 994 extern int dohtrl_(doublereal *q, integer *n, integer *nrda, doublereal *diag, integer *irank, doublereal *div, doublereal *td); 995 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 996 extern int dswap_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 997 extern int menu_(void); 998 extern int qzit_(integer *nm, integer *n, real *a, real *b, real *eps1, logical *matz, real *z__, integer *ierr); 999 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); 1000 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1001 /*:ref: iploc_ 4 3 4 6 4 */ 1002 /*:ref: prwpge_ 14 5 4 4 4 6 4 */ 1003 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */ 1004 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1005 extern E_f besk0_(real *x); 1006 /*:ref: inits_ 4 3 6 4 6 */ 1007 /*:ref: r1mach_ 6 1 4 */ 1008 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1009 /*:ref: besi0_ 6 1 6 */ 1010 /*:ref: csevl_ 6 3 6 6 4 */ 1011 /*:ref: besk0e_ 6 1 6 */ 1012 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); 1013 /*:ref: cmposd_ 14 13 4 4 4 8 8 8 8 4 8 8 8 8 8 */ 1014 /*:ref: cmposn_ 14 18 4 4 4 4 8 8 8 8 4 8 8 8 8 8 8 8 8 8 */ 1015 extern int dbskes_(doublereal *xnu, doublereal *x, integer *nin, doublereal *bke); 1016 /*:ref: d1mach_ 7 1 4 */ 1017 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1018 /*:ref: d9knus_ 14 5 7 7 7 7 4 */ 1019 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); 1020 /*:ref: d1mach_ 7 1 4 */ 1021 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1022 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1023 /*:ref: dcscal_ 14 12 7 4 4 4 7 7 7 7 7 7 4 4 */ 1024 extern int dtrco_(doublereal *t, integer *ldt, integer *n, doublereal *rcond, doublereal *z__, integer *job); 1025 /*:ref: dasum_ 7 3 4 7 4 */ 1026 /*:ref: dscal_ 14 4 4 7 7 4 */ 1027 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1028 extern int merge_(real *tcos, integer *i1, integer *m1, integer *i2, integer *m2, integer *i3); 1029 extern int qzval_(integer *nm, integer *n, real *a, real *b, real *alfr, real *alfi, real *beta, logical *matz, real *z__); 1030 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); 1031 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */ 1032 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1033 /*:ref: sasum_ 6 3 4 6 4 */ 1034 extern E_f besk0e_(real *x); 1035 /*:ref: inits_ 4 3 6 4 6 */ 1036 /*:ref: r1mach_ 6 1 4 */ 1037 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1038 /*:ref: besi0_ 6 1 6 */ 1039 /*:ref: csevl_ 6 3 6 6 4 */ 1040 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); 1041 extern int dbskin_(doublereal *x, integer *n, integer *kode, integer *m, doublereal *y, integer *nz, integer *ierr); 1042 /*:ref: i1mach_ 4 1 4 */ 1043 /*:ref: d1mach_ 7 1 4 */ 1044 /*:ref: dbkisr_ 14 4 7 4 7 4 */ 1045 /*:ref: dbkias_ 14 10 7 4 4 7 7 4 4 7 7 4 */ 1046 /*:ref: dexint_ 14 8 7 4 4 4 7 7 4 4 */ 1047 /*:ref: dgamrn_ 7 1 7 */ 1048 extern int dp1vlu_(integer *l, integer *nder, doublereal *x, doublereal *yfit, doublereal *yp, doublereal *a); 1049 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 1050 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1051 extern int dtrdi_(doublereal *t, integer *ldt, integer *n, doublereal *det, integer *job, integer *info); 1052 /*:ref: dscal_ 14 4 4 7 7 4 */ 1053 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1054 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); 1055 /* comlen ml18jr_ 72 */ 1056 /* comlen ml5mco_ 28 */ 1057 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1058 /*:ref: prvec_ 6 3 4 6 6 */ 1059 extern int qzvec_(integer *nm, integer *n, real *a, real *b, real *alfr, real *alfi, real *beta, real *z__); 1060 extern E_f spintg_(integer *l, real *v1, real *v2, real *x, real *f, real *w, integer *n, integer *ij); 1061 extern E_f besk1_(real *x); 1062 /*:ref: inits_ 4 3 6 4 6 */ 1063 /*:ref: r1mach_ 6 1 4 */ 1064 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1065 /*:ref: besi1_ 6 1 6 */ 1066 /*:ref: csevl_ 6 3 6 6 4 */ 1067 /*:ref: besk1e_ 6 1 6 */ 1068 extern int cmptrx_(integer *idegbr, integer *idegcr, integer *m, complex *a, complex *b, complex *c__, complex *y, complex *tcos, complex *d__, complex *w); 1069 extern int dbsknu_(doublereal *x, doublereal *fnu, integer *kode, integer *n, doublereal *y, integer *nz); 1070 /*:ref: i1mach_ 4 1 4 */ 1071 /*:ref: d1mach_ 7 1 4 */ 1072 /*:ref: dgamma_ 7 1 7 */ 1073 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1074 extern int dpbco_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *rcond, doublereal *z__, integer *info); 1075 /*:ref: dasum_ 7 3 4 7 4 */ 1076 /*:ref: dpbfa_ 14 5 7 4 4 4 4 */ 1077 /*:ref: dscal_ 14 4 4 7 7 4 */ 1078 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1079 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1080 extern int dtrsl_(doublereal *t, integer *ldt, integer *n, doublereal *b, integer *job, integer *info); 1081 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1082 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1083 extern int minfit_(integer *nm, integer *m, integer *n, real *a, real *w, integer *ip, real *b, integer *ierr, real *rv1); 1084 /*:ref: pythag_ 6 2 6 6 */ 1085 extern E_f r1mach_(integer *i__); 1086 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1087 extern int spl1d1_(integer *n, real *x, real *f, real *w, integer *iop, integer *ij, real *a, real *b, real *c__); 1088 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1089 extern E_f besk1e_(real *x); 1090 /*:ref: inits_ 4 3 6 4 6 */ 1091 /*:ref: r1mach_ 6 1 4 */ 1092 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1093 /*:ref: besi1_ 6 1 6 */ 1094 /*:ref: csevl_ 6 3 6 6 4 */ 1095 extern int cnbco_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, complex *z__); 1096 /*:ref: scasum_ 6 3 4 8 4 */ 1097 /*:ref: cnbfa_ 14 7 8 4 4 4 4 4 4 */ 1098 /*:ref: csscal_ 14 4 4 6 8 4 */ 1099 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 1100 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 1101 extern int dbspdr_(doublereal *t, doublereal *a, integer *n, integer *k, integer *nderiv, doublereal *ad); 1102 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1103 extern int dpbdi_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *det); 1104 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); 1105 /*:ref: dnrm2_ 7 3 4 7 4 */ 1106 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1107 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 1108 /*:ref: iswap_ 14 5 4 4 4 4 4 */ 1109 /*:ref: idamax_ 4 3 4 7 4 */ 1110 /*:ref: dscal_ 14 4 4 7 7 4 */ 1111 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1112 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1113 extern int minso4_(real *usol, integer *idmn, real *zn, real *zm, real *pertb); 1114 /* comlen spl4_ 80 */ 1115 extern int r1mpyq_(integer *m, integer *n, real *a, integer *lda, real *v, real *w); 1116 extern int spl1d2_(integer *n, real *x, real *f, real *w, integer *ij, real *y, real *tab); 1117 /*:ref: interv_ 14 5 6 4 6 4 4 */ 1118 extern int beskes_(real *xnu, real *x, integer *nin, real *bke); 1119 /*:ref: r1mach_ 6 1 4 */ 1120 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1121 /*:ref: r9knus_ 14 5 6 6 6 6 4 */ 1122 extern int cnbdi_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *det); 1123 extern int dbspev_(doublereal *t, doublereal *ad, integer *n, integer *k, integer *nderiv, doublereal *x, integer *inev, doublereal *svalue, doublereal *work); 1124 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */ 1125 /*:ref: dbspvn_ 14 9 7 4 4 4 7 4 7 7 4 */ 1126 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1127 extern int dpbfa_(doublereal *abd, integer *lda, integer *n, integer *m, integer *info); 1128 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1129 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); 1130 /*:ref: dnrm2_ 7 3 4 7 4 */ 1131 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1132 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 1133 /*:ref: iswap_ 14 5 4 4 4 4 4 */ 1134 /*:ref: idamax_ 4 3 4 7 4 */ 1135 /*:ref: dscal_ 14 4 4 7 7 4 */ 1136 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1137 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1138 extern int minsol_(real *usol, integer *idmn, real *zn, real *zm, real *pertb); 1139 /* comlen splpzz_ 80 */ 1140 extern int r1updt_(integer *m, integer *n, real *s, integer *ls, real *u, real *v, real *w, logical *sing); 1141 /*:ref: r1mach_ 6 1 4 */ 1142 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); 1143 /*:ref: spl1d1_ 14 9 4 6 6 6 4 4 6 6 6 */ 1144 extern int besknu_(real *x, real *fnu, integer *kode, integer *n, real *y, integer *nz); 1145 /*:ref: i1mach_ 4 1 4 */ 1146 /*:ref: r1mach_ 6 1 4 */ 1147 /*:ref: gamma_ 6 1 6 */ 1148 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1149 extern int cnbfa_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info); 1150 /*:ref: icamax_ 4 3 4 8 4 */ 1151 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 1152 /*:ref: cscal_ 14 4 4 8 8 4 */ 1153 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 1154 extern int dbsppp_(doublereal *t, doublereal *a, integer *n, integer *k, integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, doublereal *work); 1155 /*:ref: dbspdr_ 14 6 7 7 4 4 4 7 */ 1156 /*:ref: dbspev_ 14 9 7 7 4 4 4 7 4 7 7 */ 1157 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1158 extern int dpbsl_(doublereal *abd, integer *lda, integer *n, integer *m, doublereal *b); 1159 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1160 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1161 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); 1162 /*:ref: dnrm2_ 7 3 4 7 4 */ 1163 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1164 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1165 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 1166 extern int mpadd_(integer *x, integer *y, integer *z__); 1167 /*:ref: mpadd2_ 14 5 4 4 4 4 4 */ 1168 extern int r9aimp_(real *x, real *ampl, real *theta); 1169 /*:ref: r1mach_ 6 1 4 */ 1170 /*:ref: inits_ 4 3 6 4 6 */ 1171 /*:ref: csevl_ 6 3 6 6 4 */ 1172 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1173 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); 1174 /* comlen spl2d4_ 160 */ 1175 /*:ref: interv_ 14 5 6 4 6 4 4 */ 1176 /*:ref: spl2d3_ 6 2 4 4 */ 1177 extern int besks_(real *xnu, real *x, integer *nin, real *bk); 1178 /*:ref: r1mach_ 6 1 4 */ 1179 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1180 /*:ref: beskes_ 14 4 6 6 4 6 */ 1181 extern int cnbfs_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, complex *v, integer *itask, integer *ind, complex *work, integer *iwork); 1182 /*:ref: cnbco_ 14 8 8 4 4 4 4 4 6 8 */ 1183 /*:ref: r1mach_ 6 1 4 */ 1184 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1185 /*:ref: cnbsl_ 14 8 8 4 4 4 4 4 8 4 */ 1186 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 1187 extern int dbspvd_(doublereal *t, integer *k, integer *nderiv, doublereal *x, integer *ileft, integer *ldvnik, doublereal *vnikx, doublereal *work); 1188 /*:ref: dbspvn_ 14 9 7 4 4 4 7 4 7 7 4 */ 1189 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1190 extern int dpchce_(integer *ic, doublereal *vc, integer *n, doublereal *x, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd, integer *ierr); 1191 /*:ref: dpchdf_ 7 4 4 7 7 4 */ 1192 /*:ref: dpchst_ 7 2 7 7 */ 1193 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1194 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); 1195 /*:ref: dnrm2_ 7 3 4 7 4 */ 1196 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1197 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1198 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 1199 extern int mpadd2_(integer *x, integer *y, integer *z__, integer *y1, integer *trunc); 1200 /* comlen mpcom_ 68 */ 1201 /*:ref: mpstr_ 14 2 4 4 */ 1202 /*:ref: mpchk_ 14 2 4 4 */ 1203 /*:ref: mperr_ 14 0 */ 1204 /*:ref: mpadd3_ 14 5 4 4 4 4 4 */ 1205 /*:ref: mpnzr_ 14 4 4 4 4 4 */ 1206 extern E_f r9atn1_(real *x); 1207 /*:ref: r1mach_ 6 1 4 */ 1208 /*:ref: inits_ 4 3 6 4 6 */ 1209 /*:ref: csevl_ 6 3 6 6 4 */ 1210 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1211 extern E_f spl2d3_(integer *ixd, integer *iyd); 1212 /* comlen spl2d4_ 160 */ 1213 extern int besy_(real *x, real *fnu, integer *n, real *y); 1214 /*:ref: i1mach_ 4 1 4 */ 1215 /*:ref: r1mach_ 6 1 4 */ 1216 /*:ref: asyjy_ 14 8 200 6 6 6 4 6 6 4 */ 1217 /*:ref: besy0_ 6 1 6 */ 1218 /*:ref: besy1_ 6 1 6 */ 1219 /*:ref: besynu_ 14 4 6 6 4 6 */ 1220 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1221 extern int cnbir_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, complex *v, integer *itask, integer *ind, complex *work, integer *iwork); 1222 /*:ref: ccopy_ 14 5 4 8 4 8 4 */ 1223 /*:ref: cnbfa_ 14 7 8 4 4 4 4 4 4 */ 1224 /*:ref: cnbsl_ 14 8 8 4 4 4 4 4 8 4 */ 1225 /*:ref: scasum_ 6 3 4 8 4 */ 1226 /*:ref: cdcdot_ 8 7 8 4 8 8 4 8 4 */ 1227 /*:ref: r1mach_ 6 1 4 */ 1228 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1229 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 1230 extern int dbspvn_(doublereal *t, integer *jhigh, integer *k, integer *index, doublereal *x, integer *ileft, doublereal *vnikx, doublereal *work, integer *iwork); 1231 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1232 extern int dpchci_(integer *n, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd); 1233 /*:ref: dpchst_ 7 2 7 7 */ 1234 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); 1235 /*:ref: d1mach_ 7 1 4 */ 1236 /*:ref: du11us_ 14 15 7 4 4 4 7 7 4 4 4 4 7 7 7 4 4 */ 1237 /*:ref: du12us_ 14 14 7 4 4 4 7 4 4 4 4 7 7 7 4 4 */ 1238 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1239 extern int mpadd3_(integer *x, integer *y, integer *s, integer *med, integer *re); 1240 /* comlen mpcom_ 68 */ 1241 extern E_f r9chu_(real *a, real *b, real *z__); 1242 /*:ref: r1mach_ 6 1 4 */ 1243 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1244 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); 1245 /*:ref: interv_ 14 5 6 4 6 4 4 */ 1246 /*:ref: splint_ 6 7 4 6 6 6 4 6 6 */ 1247 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1248 extern E_f besy0_(real *x); 1249 /*:ref: inits_ 4 3 6 4 6 */ 1250 /*:ref: r1mach_ 6 1 4 */ 1251 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1252 /*:ref: besj0_ 6 1 6 */ 1253 /*:ref: csevl_ 6 3 6 6 4 */ 1254 extern int cnbsl_(complex *abe, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *b, integer *job); 1255 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 1256 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 1257 extern int dbsqad_(doublereal *t, doublereal *bcoef, integer *n, integer *k, doublereal *x1, doublereal *x2, doublereal *bquad, doublereal *work); 1258 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */ 1259 /*:ref: dbvalu_ 7 8 7 7 4 4 4 7 4 7 */ 1260 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1261 extern int dpchcs_(doublereal *switch__, integer *n, doublereal *h__, doublereal *slope, doublereal *d__, integer *incfd, integer *ierr); 1262 /*:ref: dpchst_ 7 2 7 7 */ 1263 /*:ref: dpchsw_ 14 7 7 4 7 7 7 7 4 */ 1264 extern int dusrmt_(integer *i__, integer *j, doublereal *aij, integer *indcat, doublereal *prgopt, doublereal *dattrv, integer *iflag); 1265 extern int mpblas_(integer *i1); 1266 /* comlen mpcom_ 68 */ 1267 /*:ref: i1mach_ 4 1 4 */ 1268 extern E_f r9gmic_(real *a, real *x, real *alx); 1269 /*:ref: r1mach_ 6 1 4 */ 1270 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1271 /*:ref: alngam_ 6 1 6 */ 1272 extern E_f splint_(integer *n, real *x, real *f, real *w, integer *ij, real *a, real *b); 1273 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1274 /*:ref: interv_ 14 5 6 4 6 4 4 */ 1275 /*:ref: spintg_ 6 8 4 6 6 6 6 6 4 4 */ 1276 extern E_f besy1_(real *x); 1277 /*:ref: inits_ 4 3 6 4 6 */ 1278 /*:ref: r1mach_ 6 1 4 */ 1279 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1280 /*:ref: besj1_ 6 1 6 */ 1281 /*:ref: csevl_ 6 3 6 6 4 */ 1282 extern int combak_(integer *nm, integer *low, integer *igh, real *ar, real *ai, integer *int__, integer *m, real *zr, real *zi); 1283 extern int dbsynu_(doublereal *x, doublereal *fnu, integer *n, doublereal *y); 1284 /*:ref: d1mach_ 7 1 4 */ 1285 /*:ref: dgamma_ 7 1 7 */ 1286 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1287 extern doublereal dpchdf_(integer *k, doublereal *x, doublereal *s, integer *ierr); 1288 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1289 extern int dvecs_(integer *ncomp, integer *lnfc, doublereal *yhp, doublereal *work, integer *iwork, integer *inhomo, integer *iflag); 1290 /* comlen dml18j_ 84 */ 1291 /*:ref: dmgsbv_ 14 13 4 4 7 4 4 4 7 7 4 4 7 7 7 */ 1292 extern int mpcdm_(doublereal *dx, integer *z__); 1293 /* comlen mpcom_ 68 */ 1294 /*:ref: mpchk_ 14 2 4 4 */ 1295 /*:ref: mpnzr_ 14 4 4 4 4 4 */ 1296 /*:ref: mpdivi_ 14 3 4 4 4 */ 1297 /*:ref: mpmuli_ 14 3 4 4 4 */ 1298 extern E_f r9gmit_(real *a, real *x, real *algap1, real *sgngam, real *alx); 1299 /*:ref: r1mach_ 6 1 4 */ 1300 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1301 /*:ref: alngam_ 6 1 6 */ 1302 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); 1303 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 1304 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1305 /*: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 */ 1306 extern int besynu_(real *x, real *fnu, integer *n, real *y); 1307 /*:ref: r1mach_ 6 1 4 */ 1308 /*:ref: gamma_ 6 1 6 */ 1309 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1310 extern int comhes_(integer *nm, integer *n, integer *low, integer *igh, real *ar, real *ai, integer *int__); 1311 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */ 1312 extern doublereal dbvalu_(doublereal *t, doublereal *a, integer *n, integer *k, integer *ideriv, doublereal *x, integer *inbv, doublereal *work); 1313 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */ 1314 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1315 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); 1316 /*:ref: dchfdv_ 14 12 7 7 7 7 7 7 4 7 7 7 4 4 */ 1317 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1318 extern doublereal dvnorm_(doublereal *v, integer *ncomp); 1319 extern int mpchk_(integer *i__, integer *j); 1320 /* comlen mpcom_ 68 */ 1321 /*:ref: i1mach_ 4 1 4 */ 1322 /*:ref: mperr_ 14 0 */ 1323 extern int r9knus_(real *xnu, real *x, real *bknu, real *bknu1, integer *iswtch); 1324 /*:ref: inits_ 4 3 6 4 6 */ 1325 /*:ref: r1mach_ 6 1 4 */ 1326 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1327 /*:ref: gamma_ 6 1 6 */ 1328 /*:ref: csevl_ 6 3 6 6 4 */ 1329 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); 1330 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */ 1331 /*:ref: sasum_ 6 3 4 6 4 */ 1332 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1333 /*:ref: iploc_ 4 3 4 6 4 */ 1334 /*:ref: prwpge_ 14 5 4 4 4 6 4 */ 1335 extern E_f beta_(real *a, real *b); 1336 /*:ref: gamlim_ 14 2 6 6 */ 1337 /*:ref: r1mach_ 6 1 4 */ 1338 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1339 /*:ref: gamma_ 6 1 6 */ 1340 /*:ref: albeta_ 6 2 6 6 */ 1341 extern int comlr_(integer *nm, integer *n, integer *low, integer *igh, real *hr, real *hi, real *wr, real *wi, integer *ierr); 1342 /*:ref: csroot_ 14 4 6 6 6 6 */ 1343 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */ 1344 extern int dbvder_(doublereal *x, doublereal *y, doublereal *yp, doublereal *g, integer *ipar); 1345 /* comlen dml8sz_ 36 */ 1346 /* comlen dmlivp_ 4 */ 1347 /*:ref: duivp_ 14 3 7 7 7 */ 1348 /*:ref: dfmat_ 14 3 7 7 7 */ 1349 /*:ref: dgvec_ 14 2 7 7 */ 1350 /*:ref: duvec_ 14 3 7 7 7 */ 1351 extern int dpchfe_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, integer *ne, doublereal *xe, doublereal *fe, integer *ierr); 1352 /*:ref: dchfev_ 14 11 7 7 7 7 7 7 4 7 7 4 4 */ 1353 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1354 extern doublereal dvnrms_(integer *n, doublereal *v, doublereal *w); 1355 extern int mpcmd_(integer *x, doublereal *dz); 1356 /* comlen mpcom_ 68 */ 1357 /*:ref: mpchk_ 14 2 4 4 */ 1358 /*:ref: mperr_ 14 0 */ 1359 extern E_f r9lgic_(real *a, real *x, real *alx); 1360 /*:ref: r1mach_ 6 1 4 */ 1361 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1362 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); 1363 /* comlen la05ds_ 28 */ 1364 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */ 1365 /*:ref: sasum_ 6 3 4 6 4 */ 1366 /*:ref: la05as_ 14 10 6 4 4 4 4 4 4 6 6 6 */ 1367 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1368 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 1369 extern E_f betai_(real *x, real *pin, real *qin); 1370 /*:ref: r1mach_ 6 1 4 */ 1371 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1372 /*:ref: albeta_ 6 2 6 6 */ 1373 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); 1374 /*:ref: csroot_ 14 4 6 6 6 6 */ 1375 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */ 1376 extern doublereal dbvlue_(doublereal *t, doublereal *a, integer *n, integer *k, doublereal *x, integer *ideriv); 1377 /*:ref: dnterv_ 14 5 7 4 7 4 4 */ 1378 extern doublereal dpchia_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, doublereal *a, doublereal *b, integer *ierr); 1379 /*:ref: dchfiv_ 7 9 7 7 7 7 7 7 7 7 4 */ 1380 /*:ref: dpchid_ 7 9 4 7 7 7 4 12 4 4 4 */ 1381 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1382 extern int dvout_(integer *n, doublereal *dx, char *ifmt, integer *idigit, ftnlen ifmt_len); 1383 /*:ref: i1mach_ 4 1 4 */ 1384 extern int mpdivi_(integer *x, integer *iy, integer *z__); 1385 /* comlen mpcom_ 68 */ 1386 /*:ref: mpstr_ 14 2 4 4 */ 1387 /*:ref: mpnzr_ 14 4 4 4 4 4 */ 1388 /*:ref: mpchk_ 14 2 4 4 */ 1389 /*:ref: mperr_ 14 0 */ 1390 /*:ref: mpunfl_ 14 1 4 */ 1391 extern E_f r9lgit_(real *a, real *x, real *algap1); 1392 /*:ref: r1mach_ 6 1 4 */ 1393 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1394 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); 1395 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1396 /*:ref: iploc_ 4 3 4 6 4 */ 1397 /*:ref: prwpge_ 14 5 4 4 4 6 4 */ 1398 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */ 1399 /*:ref: sasum_ 6 3 4 6 4 */ 1400 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); 1401 /*:ref: r1mach_ 6 1 4 */ 1402 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */ 1403 /*:ref: bsgq8_ 14 13 206 6 6 4 4 4 6 6 4 6 6 4 6 */ 1404 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1405 extern int compb_(integer *n, integer *ierror, real *an, real *bn, real *cn, real *b, real *ah, real *bh); 1406 /* comlen cblkt_ 28 */ 1407 /*:ref: epmach_ 6 1 6 */ 1408 /*:ref: indxb_ 14 4 4 4 4 4 */ 1409 /*:ref: tevls_ 14 4 4 6 6 4 */ 1410 /*:ref: ppadd_ 14 7 4 4 6 6 6 6 6 */ 1411 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); 1412 /* comlen dml8sz_ 36 */ 1413 /* comlen dml15t_ 148 */ 1414 /* comlen dml18j_ 84 */ 1415 /*:ref: dlssud_ 14 20 7 7 7 4 4 4 7 4 4 4 4 4 7 7 4 7 7 7 4 7 */ 1416 /*:ref: dvecs_ 14 7 4 4 7 7 4 4 4 */ 1417 /*:ref: dstor1_ 14 7 7 7 7 7 4 4 4 */ 1418 /*:ref: dstway_ 14 5 7 7 7 4 7 */ 1419 /*: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 */ 1420 /*:ref: dcoef_ 14 18 7 7 4 4 4 4 7 7 7 4 7 7 7 7 7 4 4 4 */ 1421 /*:ref: dbksol_ 14 3 4 7 7 */ 1422 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1423 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); 1424 /*:ref: dpchci_ 14 5 4 7 7 7 4 */ 1425 /*:ref: dpchcs_ 14 7 7 4 7 7 7 4 4 */ 1426 /*:ref: dpchce_ 14 9 4 7 4 7 7 7 7 4 4 */ 1427 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1428 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); 1429 /*:ref: drotmg_ 14 5 7 7 7 7 7 */ 1430 /*:ref: drotm_ 14 6 4 7 4 7 4 7 */ 1431 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 1432 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 1433 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */ 1434 /*:ref: idamax_ 4 3 4 7 4 */ 1435 extern int mperr_(void); 1436 /* comlen mpcom_ 68 */ 1437 extern E_f r9lgmc_(real *x); 1438 /*:ref: inits_ 4 3 6 4 6 */ 1439 /*:ref: r1mach_ 6 1 4 */ 1440 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1441 /*:ref: csevl_ 6 3 6 6 4 */ 1442 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); 1443 extern E_f bi_(real *x); 1444 /*:ref: r1mach_ 6 1 4 */ 1445 /*:ref: inits_ 4 3 6 4 6 */ 1446 /*:ref: r9aimp_ 14 3 6 6 6 */ 1447 /*:ref: csevl_ 6 3 6 6 4 */ 1448 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1449 /*:ref: bie_ 6 1 6 */ 1450 extern int comqr_(integer *nm, integer *n, integer *low, integer *igh, real *hr, real *hi, real *wr, real *wi, integer *ierr); 1451 /*:ref: pythag_ 6 2 6 6 */ 1452 /*:ref: csroot_ 14 4 6 6 6 6 */ 1453 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */ 1454 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); 1455 /* comlen dml8sz_ 36 */ 1456 /* comlen dml18j_ 84 */ 1457 /* comlen dml17b_ 72 */ 1458 /* comlen dml15t_ 148 */ 1459 /* comlen dml5mc_ 52 */ 1460 /*:ref: dmacon_ 14 0 */ 1461 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 1462 /*:ref: dexbvp_ 14 12 7 4 7 7 4 7 7 4 7 4 7 4 */ 1463 extern doublereal dpchid_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, integer *ia, integer *ib, integer *ierr); 1464 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1465 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__); 1466 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 1467 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1468 /*:ref: dnrm2_ 7 3 4 7 4 */ 1469 /*:ref: dscal_ 14 4 4 7 7 4 */ 1470 /*:ref: dasum_ 7 3 4 7 4 */ 1471 /*:ref: idamax_ 4 3 4 7 4 */ 1472 /*:ref: d1mach_ 7 1 4 */ 1473 /*:ref: dwnlit_ 14 13 7 4 4 4 4 4 4 7 7 7 4 7 12 */ 1474 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 1475 /*:ref: drotmg_ 14 5 7 7 7 7 7 */ 1476 /*:ref: drotm_ 14 6 4 7 4 7 4 7 */ 1477 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */ 1478 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1479 extern int mpmaxr_(integer *x); 1480 /* comlen mpcom_ 68 */ 1481 /*:ref: mpchk_ 14 2 4 4 */ 1482 extern E_f r9ln2r_(real *x); 1483 /*:ref: r1mach_ 6 1 4 */ 1484 /*:ref: inits_ 4 3 6 4 6 */ 1485 /*:ref: csevl_ 6 3 6 6 4 */ 1486 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1487 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); 1488 /* comlen la05ds_ 28 */ 1489 /*:ref: spopt_ 14 9 6 4 4 4 6 4 6 4 12 */ 1490 /*:ref: pinitm_ 14 6 4 4 6 4 4 4 */ 1491 /*:ref: splpup_ 14 14 200 4 4 6 6 6 6 4 4 6 4 12 6 6 */ 1492 /*:ref: spinit_ 14 20 4 4 6 6 6 4 6 4 6 6 6 6 6 6 6 6 4 4 4 12 */ 1493 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1494 /*:ref: ivout_ 14 5 4 4 13 4 124 */ 1495 /*:ref: sasum_ 6 3 4 6 4 */ 1496 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1497 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */ 1498 /*:ref: svout_ 14 5 4 6 13 4 124 */ 1499 /*:ref: prwpge_ 14 5 4 4 4 6 4 */ 1500 /*: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 */ 1501 /*: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 */ 1502 /*: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 */ 1503 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 1504 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */ 1505 /*: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 */ 1506 /*:ref: splpfl_ 14 19 4 4 4 4 4 4 4 6 6 6 6 6 6 6 6 6 6 12 12 */ 1507 /*: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 */ 1508 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1509 /*:ref: sclosm_ 14 1 4 */ 1510 extern E_f bie_(real *x); 1511 /*:ref: r1mach_ 6 1 4 */ 1512 /*:ref: inits_ 4 3 6 4 6 */ 1513 /*:ref: r9aimp_ 14 3 6 6 6 */ 1514 /*:ref: csevl_ 6 3 6 6 4 */ 1515 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); 1516 /*:ref: pythag_ 6 2 6 6 */ 1517 /*:ref: csroot_ 14 4 6 6 6 6 */ 1518 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */ 1519 extern doublereal dcbrt_(doublereal *x); 1520 /*:ref: d1mach_ 7 1 4 */ 1521 /*:ref: d9upak_ 14 3 7 7 4 */ 1522 /*:ref: d9pak_ 7 2 7 4 */ 1523 extern int dpchim_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, integer *ierr); 1524 /*:ref: dpchst_ 7 2 7 7 */ 1525 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1526 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); 1527 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 1528 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1529 /*:ref: dwnlsm_ 14 18 7 4 4 4 4 4 7 7 7 4 4 4 7 7 7 7 7 7 */ 1530 extern int mpmlp_(integer *u, integer *v, integer *w, integer *j); 1531 extern E_f r9pak_(real *y, integer *n); 1532 /*:ref: i1mach_ 4 1 4 */ 1533 /*:ref: r1mach_ 6 1 4 */ 1534 /*:ref: r9upak_ 14 3 6 6 4 */ 1535 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1536 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); 1537 /* comlen la05ds_ 28 */ 1538 /*:ref: sasum_ 6 3 4 6 4 */ 1539 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1540 /*:ref: la05bs_ 14 10 6 4 4 4 4 4 6 6 6 12 */ 1541 /*:ref: la05cs_ 14 10 6 4 4 4 4 4 6 6 6 4 */ 1542 /*: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 */ 1543 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1544 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1545 /*:ref: iploc_ 4 3 4 6 4 */ 1546 /*:ref: prwpge_ 14 5 4 4 4 6 4 */ 1547 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */ 1548 extern E_f binom_(integer *n, integer *m); 1549 /*:ref: r1mach_ 6 1 4 */ 1550 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1551 /*:ref: r9lgmc_ 6 1 6 */ 1552 /*:ref: alnrel_ 6 1 6 */ 1553 extern int cortb_(integer *nm, integer *low, integer *igh, real *ar, real *ai, real *ortr, real *orti, integer *m, real *zr, real *zi); 1554 extern int dcdot_(integer *n, doublereal *fm, complex *cx, integer *incx, complex *cy, integer *incy, doublereal *dcr, doublereal *dci); 1555 extern int dpchmc_(integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, logical *skip, integer *ismon, integer *ierr); 1556 /*:ref: dchfmc_ 4 3 7 7 7 */ 1557 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1558 extern int dwritp_(integer *ipage, integer *list, doublereal *rlist, integer *lpage, integer *irec); 1559 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 1560 extern int mpmul_(integer *x, integer *y, integer *z__); 1561 /* comlen mpcom_ 68 */ 1562 /*:ref: mpchk_ 14 2 4 4 */ 1563 /*:ref: mpmlp_ 14 4 4 4 4 4 */ 1564 /*:ref: mpnzr_ 14 4 4 4 4 4 */ 1565 /*:ref: mperr_ 14 0 */ 1566 extern int r9upak_(real *x, real *y, integer *n); 1567 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); 1568 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1569 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 1570 /*:ref: pchngs_ 14 6 4 6 4 6 4 4 */ 1571 /*:ref: pnnzrs_ 14 6 4 6 4 6 4 4 */ 1572 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); 1573 /*:ref: r1mach_ 6 1 4 */ 1574 /*:ref: bspvd_ 14 8 6 4 4 6 4 4 6 6 */ 1575 /*:ref: bnfac_ 14 6 6 4 4 4 4 4 */ 1576 /*:ref: bnslv_ 14 6 6 4 4 4 4 6 */ 1577 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1578 extern int corth_(integer *nm, integer *n, integer *low, integer *igh, real *ar, real *ai, real *ortr, real *orti); 1579 /*:ref: pythag_ 6 2 6 6 */ 1580 extern int dcfod_(integer *meth, doublereal *elco, doublereal *tesco); 1581 extern int dpchng_(integer *ii, doublereal *xval, integer *iplace, doublereal *sx, integer *ix, integer *ircx); 1582 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1583 /*:ref: iploc_ 4 3 4 7 4 */ 1584 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */ 1585 extern int dwupdt_(integer *n, doublereal *r__, integer *ldr, doublereal *w, doublereal *b, doublereal *alpha, doublereal *cos__, doublereal *sin__); 1586 extern int mpmul2_(integer *x, integer *iy, integer *z__, integer *trunc); 1587 /* comlen mpcom_ 68 */ 1588 /*:ref: mpchk_ 14 2 4 4 */ 1589 /*:ref: mpovfl_ 14 1 4 */ 1590 /*:ref: mpstr_ 14 2 4 4 */ 1591 /*:ref: mpnzr_ 14 4 4 4 4 4 */ 1592 /*:ref: mperr_ 14 0 */ 1593 extern int radb2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1); 1594 extern int spoco_(real *a, integer *lda, integer *n, real *rcond, real *z__, integer *info); 1595 /*:ref: sasum_ 6 3 4 6 4 */ 1596 /*:ref: spofa_ 14 4 6 4 4 4 */ 1597 /*:ref: sscal_ 14 4 4 6 6 4 */ 1598 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 1599 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1600 extern int bintk_(real *x, real *y, real *t, integer *n, integer *k, real *bcoef, real *q, real *work); 1601 /*:ref: bspvn_ 14 9 6 4 4 4 6 4 6 6 4 */ 1602 /*:ref: bnfac_ 14 6 6 4 4 4 4 4 */ 1603 /*:ref: bnslv_ 14 6 6 4 4 4 4 6 */ 1604 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1605 extern E_f cosdg_(real *x); 1606 extern int dchdc_(doublereal *a, integer *lda, integer *p, doublereal *work, integer *jpvt, integer *job, integer *info); 1607 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 1608 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 1609 extern int dpchsp_(integer *ic, doublereal *vc, integer *n, doublereal *x, doublereal *f, doublereal *d__, integer *incfd, doublereal *wk, integer *nwk, integer *ierr); 1610 /*:ref: dpchdf_ 7 4 4 7 7 4 */ 1611 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1612 extern int dx_(real *u, integer *idmn, integer *i__, integer *j, real *uxxx, real *uxxxx); 1613 /* comlen splpzz_ 80 */ 1614 extern int mpmuli_(integer *x, integer *iy, integer *z__); 1615 /*:ref: mpmul2_ 14 4 4 4 4 4 */ 1616 extern int radb3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2); 1617 extern int spodi_(real *a, integer *lda, integer *n, real *det, integer *job); 1618 /*:ref: sscal_ 14 4 4 6 6 4 */ 1619 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 1620 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); 1621 extern int cosgen_(integer *n, integer *ijump, real *fnum, real *fden, real *a); 1622 /*:ref: pimach_ 6 1 6 */ 1623 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); 1624 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1625 /*:ref: dnrm2_ 7 3 4 7 4 */ 1626 extern doublereal dpchst_(doublereal *arg1, doublereal *arg2); 1627 extern int dx4_(real *u, integer *idmn, integer *i__, integer *j, real *uxxx, real *uxxxx); 1628 /* comlen spl4_ 80 */ 1629 extern int mpnzr_(integer *rs, integer *re, integer *z__, integer *trunc); 1630 /* comlen mpcom_ 68 */ 1631 /*:ref: mperr_ 14 0 */ 1632 /*:ref: mpovfl_ 14 1 4 */ 1633 /*:ref: mpunfl_ 14 1 4 */ 1634 extern int radb4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3); 1635 extern int spofa_(real *a, integer *lda, integer *n, integer *info); 1636 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1637 extern int bkias_(real *x, integer *n, integer *ktrms, real *t, real *ans, integer *ind, integer *ms, real *gmrn, real *h__, integer *ierr); 1638 /*:ref: r1mach_ 6 1 4 */ 1639 /*:ref: gamrn_ 6 1 6 */ 1640 /*:ref: hkseq_ 14 4 6 4 6 4 */ 1641 /*:ref: bdiff_ 14 2 4 6 */ 1642 extern int cosqb_(integer *n, real *x, real *wsave); 1643 /*:ref: cosqb1_ 14 4 4 6 6 6 */ 1644 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); 1645 /*:ref: drotg_ 14 4 7 7 7 7 */ 1646 extern int dpchsw_(doublereal *dfmax, integer *iextrm, doublereal *d1, doublereal *d2, doublereal *h__, doublereal *slope, integer *ierr); 1647 /*:ref: d1mach_ 6 1 4 */ 1648 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1649 extern int dy_(real *u, integer *idmn, integer *i__, integer *j, real *uyyy, real *uyyyy); 1650 /* comlen splpzz_ 80 */ 1651 extern int mpovfl_(integer *x); 1652 /* comlen mpcom_ 68 */ 1653 /*:ref: mpchk_ 14 2 4 4 */ 1654 /*:ref: mpmaxr_ 14 1 4 */ 1655 /*:ref: mperr_ 14 0 */ 1656 extern int radb5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4); 1657 extern int spofs_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work); 1658 /*:ref: spoco_ 14 6 6 4 4 6 6 4 */ 1659 /*:ref: r1mach_ 6 1 4 */ 1660 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1661 /*:ref: sposl_ 14 4 6 4 4 6 */ 1662 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 1663 extern int bkisr_(real *x, integer *n, real *sum, integer *ierr); 1664 /*:ref: r1mach_ 6 1 4 */ 1665 /*:ref: psixn_ 6 1 4 */ 1666 extern int cosqb1_(integer *n, real *x, real *w, real *xh); 1667 /*:ref: rfftb_ 14 3 4 6 6 */ 1668 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); 1669 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1670 extern int dpcoef_(integer *l, doublereal *c__, doublereal *tc, doublereal *a); 1671 /*:ref: dp1vlu_ 14 6 4 4 7 7 7 7 */ 1672 extern int dy4_(real *u, integer *idmn, integer *i__, integer *j, real *uyyy, real *uyyyy); 1673 /* comlen spl4_ 80 */ 1674 extern int mpstr_(integer *x, integer *y); 1675 /* comlen mpcom_ 68 */ 1676 extern int radbg_(integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa); 1677 extern int spoir_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work); 1678 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1679 /*:ref: spofa_ 14 4 6 4 4 4 */ 1680 /*:ref: sposl_ 14 4 6 4 4 6 */ 1681 /*:ref: sasum_ 6 3 4 6 4 */ 1682 /*:ref: dsdot_ 7 5 4 6 4 6 4 */ 1683 /*:ref: r1mach_ 6 1 4 */ 1684 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1685 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 1686 extern int bksol_(integer *n, real *a, real *x); 1687 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1688 extern int cosqf_(integer *n, real *x, real *wsave); 1689 /*:ref: cosqf1_ 14 4 4 6 6 6 */ 1690 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); 1691 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1692 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); 1693 /*:ref: d1mach_ 7 1 4 */ 1694 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */ 1695 /*:ref: dppgq8_ 14 13 207 4 7 7 4 4 4 7 7 4 7 7 4 */ 1696 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1697 extern int dyairy_(doublereal *x, doublereal *rx, doublereal *c__, doublereal *bi, doublereal *dbi); 1698 extern int mpunfl_(integer *x); 1699 /*:ref: mpchk_ 14 2 4 4 */ 1700 extern int radf2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1); 1701 extern int spopt_(real *prgopt, integer *mrelas, integer *nvars__, integer *info, real *csc, integer *ibasis, real *ropt, integer *intopt, logical *lopt); 1702 /*:ref: r1mach_ 6 1 4 */ 1703 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1704 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); 1705 /* comlen cblkt_ 28 */ 1706 /*:ref: indxb_ 14 4 4 4 4 4 */ 1707 /*:ref: indxc_ 14 4 4 4 4 4 */ 1708 /*:ref: indxa_ 14 4 4 4 4 4 */ 1709 extern int cosqf1_(integer *n, real *x, real *w, real *xh); 1710 /*:ref: rfftf_ 14 3 4 6 6 */ 1711 extern doublereal dchfiv_(doublereal *x1, doublereal *x2, doublereal *f1, doublereal *f2, doublereal *d1, doublereal *d2, doublereal *a, doublereal *b, integer *ierr); 1712 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1713 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); 1714 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 1715 /*:ref: iploc_ 4 3 4 7 4 */ 1716 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */ 1717 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */ 1718 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1719 extern E_f e1_(real *x); 1720 /*:ref: r1mach_ 6 1 4 */ 1721 /*:ref: inits_ 4 3 6 4 6 */ 1722 /*:ref: csevl_ 6 3 6 6 4 */ 1723 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1724 extern integer numxer_(integer *nerr); 1725 /*:ref: j4save_ 4 3 4 4 12 */ 1726 extern int radf3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2); 1727 extern int sposl_(real *a, integer *lda, integer *n, real *b); 1728 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1729 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 1730 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); 1731 /* comlen cblkt_ 28 */ 1732 /*:ref: compb_ 14 8 4 4 6 6 6 6 6 6 */ 1733 /*:ref: blktr1_ 14 19 4 6 6 6 4 6 6 6 4 6 6 6 6 6 6 6 6 200 200 */ 1734 extern int cosqi_(integer *n, real *wsave); 1735 /*:ref: rffti_ 14 2 4 6 */ 1736 extern integer dchfmc_(doublereal *d1, doublereal *d2, doublereal *delta); 1737 /*:ref: d1mach_ 7 1 4 */ 1738 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); 1739 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */ 1740 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 1741 /*:ref: dasum_ 7 3 4 7 4 */ 1742 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); 1743 /*:ref: efcmn_ 14 19 4 6 6 6 4 4 6 4 4 6 6 6 6 6 6 4 6 4 4 */ 1744 extern int ohtrol_(real *q, integer *n, integer *nrda, real *diag, integer *irank, real *div, real *td); 1745 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1746 extern int radf4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3); 1747 extern int sppco_(real *ap, integer *n, real *rcond, real *z__, integer *info); 1748 /*:ref: sasum_ 6 3 4 6 4 */ 1749 /*:ref: sppfa_ 14 3 6 4 4 */ 1750 /*:ref: sscal_ 14 4 4 6 6 4 */ 1751 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 1752 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1753 extern int bndacc_(real *g, integer *mdg, integer *nb, integer *ip, integer *ir, integer *mt, integer *jt); 1754 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1755 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */ 1756 extern int cost_(integer *n, real *x, real *wsave); 1757 /*:ref: rfftf_ 14 3 4 6 6 */ 1758 extern doublereal dchu_(doublereal *a, doublereal *b, doublereal *x); 1759 /*:ref: d1mach_ 7 1 4 */ 1760 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1761 /*:ref: dpoch_ 7 2 7 7 */ 1762 /*:ref: dgamma_ 7 1 7 */ 1763 /*:ref: dgamr_ 7 1 7 */ 1764 /*:ref: dpoch1_ 7 2 7 7 */ 1765 /*:ref: dexprl_ 7 1 7 */ 1766 /*:ref: d9chu_ 7 3 7 7 7 */ 1767 extern int dpintm_(integer *m, integer *n, doublereal *sx, integer *ix, integer *lmx, integer *ipagef); 1768 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1769 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); 1770 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1771 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1772 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 1773 /*:ref: ssort_ 14 4 6 6 4 4 */ 1774 /*:ref: bndacc_ 14 7 6 4 4 4 4 4 4 */ 1775 /*:ref: bsplvn_ 14 6 6 4 4 6 4 6 */ 1776 /*:ref: sscal_ 14 4 4 6 6 4 */ 1777 /*:ref: bndsol_ 14 9 4 6 4 4 4 4 6 4 6 */ 1778 extern int ohtror_(real *q, integer *n, integer *nrda, real *diag, integer *irank, real *div, real *td); 1779 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1780 extern int radf5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4); 1781 extern int sppdi_(real *ap, integer *n, real *det, integer *job); 1782 /*:ref: sscal_ 14 4 4 6 6 4 */ 1783 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 1784 extern int bndsol_(integer *mode, real *g, integer *mdg, integer *nb, integer *ip, integer *ir, real *x, integer *n, real *rnorm); 1785 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1786 extern int costi_(integer *n, real *wsave); 1787 /*:ref: rffti_ 14 2 4 6 */ 1788 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); 1789 /*:ref: drotg_ 14 4 7 7 7 7 */ 1790 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); 1791 /* comlen ddebd1_ 1876 */ 1792 /*:ref: dvnrms_ 7 3 4 7 7 */ 1793 /*:ref: dgefa_ 14 5 7 4 4 4 4 */ 1794 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */ 1795 extern E_f ei_(real *x); 1796 /*:ref: e1_ 6 1 6 */ 1797 extern int ortbak_(integer *nm, integer *low, integer *igh, real *a, real *ort, integer *m, real *z__); 1798 extern int radfg_(integer *ido, integer *ip, integer *l1, integer *idl1, real *cc, real *c1, real *c2, real *ch, real *ch2, real *wa); 1799 extern int sppfa_(real *ap, integer *n, integer *info); 1800 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1801 extern int bnfac_(real *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, integer *iflag); 1802 extern E_f cot_(real *x); 1803 /*:ref: inits_ 4 3 6 4 6 */ 1804 /*:ref: r1mach_ 6 1 4 */ 1805 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1806 /*:ref: csevl_ 6 3 6 6 4 */ 1807 extern int dckder_(integer *m, integer *n, doublereal *x, doublereal *fvec, doublereal *fjac, integer *ldfjac, doublereal *xp, doublereal *fvecp, integer *mode, doublereal *err); 1808 /*:ref: d1mach_ 7 1 4 */ 1809 extern int dplint_(integer *n, doublereal *x, doublereal *y, doublereal *c__); 1810 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1811 extern int eisdoc_(void); 1812 extern int orthes_(integer *nm, integer *n, integer *low, integer *igh, real *a, real *ort); 1813 extern E_f rand_(real *r__); 1814 extern int sppsl_(real *ap, integer *n, real *b); 1815 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1816 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 1817 extern int bnslv_(real *w, integer *nroww, integer *nrow, integer *nbandl, integer *nbandu, real *b); 1818 extern int cpadd_(integer *n, integer *ierror, real *a, real *c__, complex *cbp, real *bp, real *bh); 1819 /* comlen ccblk_ 28 */ 1820 /*:ref: pgsf_ 6 5 6 4 6 6 6 */ 1821 /*:ref: bcrh_ 6 8 6 6 4 6 6 6 206 6 */ 1822 /*:ref: ppgsf_ 6 5 6 4 6 6 6 */ 1823 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); 1824 /* comlen dml5mc_ 52 */ 1825 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1826 /*:ref: xgetf_ 14 1 4 */ 1827 /*:ref: xsetf_ 14 1 4 */ 1828 /*:ref: dsuds_ 14 10 7 7 7 4 4 4 4 4 7 4 */ 1829 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); 1830 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */ 1831 /*:ref: dasum_ 7 3 4 7 4 */ 1832 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 1833 /*:ref: iploc_ 4 3 4 7 4 */ 1834 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */ 1835 extern int elmbak_(integer *nm, integer *low, integer *igh, real *a, integer *int__, integer *m, real *z__); 1836 extern int ortho4_(real *usol, integer *idmn, real *zn, real *zm, real *pertrb); 1837 /* comlen spl4_ 80 */ 1838 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); 1839 extern int sptsl_(integer *n, real *d__, real *e, real *b); 1840 extern int bqr_(integer *nm, integer *n, integer *mb, real *a, real *t, real *r__, integer *ierr, integer *nv, real *rv); 1841 /*:ref: pythag_ 6 2 6 6 */ 1842 extern int cpbco_(complex *abd, integer *lda, integer *n, integer *m, real *rcond, complex *z__, integer *info); 1843 /*:ref: scasum_ 6 3 4 8 4 */ 1844 /*:ref: cpbfa_ 14 5 8 4 4 4 4 */ 1845 /*:ref: csscal_ 14 4 4 6 8 4 */ 1846 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 1847 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 1848 extern int dcopy_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 1849 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); 1850 /* comlen la05dd_ 32 */ 1851 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */ 1852 /*:ref: dasum_ 6 3 4 7 4 */ 1853 /*:ref: la05ad_ 14 10 7 4 4 4 4 4 4 7 7 7 */ 1854 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1855 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 6 124 */ 1856 extern int elmhes_(integer *nm, integer *n, integer *low, integer *igh, real *a, integer *int__); 1857 extern int orthog_(real *usol, integer *idmn, real *zn, real *zm, real *pertrb); 1858 /* comlen splpzz_ 80 */ 1859 extern E_f rc_(real *x, real *y, integer *ier); 1860 /*:ref: r1mach_ 6 1 4 */ 1861 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1862 extern int sqrdc_(real *x, integer *ldx, integer *n, integer *p, real *qraux, integer *jpvt, real *work, integer *job); 1863 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 1864 /*:ref: snrm2_ 6 3 4 6 4 */ 1865 /*:ref: sscal_ 14 4 4 6 6 4 */ 1866 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1867 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 1868 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); 1869 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1870 /*:ref: i1mach_ 4 1 4 */ 1871 /*:ref: r1mach_ 6 1 4 */ 1872 /*:ref: bvalu_ 6 8 6 6 4 4 4 6 4 6 */ 1873 extern int cpbdi_(complex *abd, integer *lda, integer *n, integer *m, real *det); 1874 extern int dcopym_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 1875 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); 1876 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 1877 /*:ref: iploc_ 4 3 4 7 4 */ 1878 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */ 1879 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */ 1880 /*:ref: dasum_ 7 3 4 7 4 */ 1881 extern int eltran_(integer *nm, integer *n, integer *low, integer *igh, real *a, integer *int__, real *z__); 1882 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); 1883 /*:ref: r1mach_ 6 1 4 */ 1884 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1885 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1886 /*:ref: cscale_ 14 12 6 4 4 4 6 6 6 6 6 6 4 4 */ 1887 extern E_f rd_(real *x, real *y, real *z__, integer *ier); 1888 /*:ref: r1mach_ 6 1 4 */ 1889 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1890 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); 1891 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 1892 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1893 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 1894 extern int bskin_(real *x, integer *n, integer *kode, integer *m, real *y, integer *nz, integer *ierr); 1895 /*:ref: i1mach_ 4 1 4 */ 1896 /*:ref: r1mach_ 6 1 4 */ 1897 /*:ref: bkisr_ 14 4 6 4 6 4 */ 1898 /*:ref: bkias_ 14 10 6 4 4 6 6 4 4 6 6 4 */ 1899 /*:ref: exint_ 14 8 6 4 4 4 6 6 4 4 */ 1900 /*:ref: gamrn_ 6 1 6 */ 1901 extern int cpbfa_(complex *abd, integer *lda, integer *n, integer *m, integer *info); 1902 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 1903 extern doublereal dcosdg_(doublereal *x); 1904 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); 1905 extern E_f enorm_(integer *n, real *x); 1906 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); 1907 /*:ref: r1mach_ 6 1 4 */ 1908 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1909 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 1910 /*:ref: cscale_ 14 12 6 4 4 4 6 6 6 6 6 6 4 4 */ 1911 extern int rebak_(integer *nm, integer *n, real *b, real *dl, integer *m, real *z__); 1912 extern int sreadp_(integer *ipage, integer *list, real *rlist, integer *lpage, integer *irec); 1913 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 1914 extern int bspdoc_(void); 1915 extern int cpbsl_(complex *abd, integer *lda, integer *n, integer *m, complex *b); 1916 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 1917 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 1918 extern doublereal dcot_(doublereal *x); 1919 /*:ref: initds_ 4 3 7 4 6 */ 1920 /*:ref: d1mach_ 7 1 4 */ 1921 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1922 /*:ref: dcsevl_ 7 3 7 7 4 */ 1923 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); 1924 /* comlen la05dd_ 32 */ 1925 /*:ref: dpopt_ 14 9 7 4 4 4 7 4 7 4 12 */ 1926 /*:ref: dpintm_ 14 6 4 4 7 4 4 4 */ 1927 /*:ref: dplpup_ 14 14 200 4 4 7 7 7 7 4 4 7 4 12 7 7 */ 1928 /*:ref: dpinit_ 14 20 4 4 7 7 7 4 7 4 7 7 7 7 7 7 7 7 4 4 4 12 */ 1929 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1930 /*:ref: ivout_ 14 5 4 4 13 4 124 */ 1931 /*:ref: dasum_ 7 3 4 7 4 */ 1932 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 1933 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */ 1934 /*:ref: dvout_ 14 5 4 7 13 4 124 */ 1935 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */ 1936 /*: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 */ 1937 /*: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 */ 1938 /*: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 */ 1939 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 1940 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */ 1941 /*: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 */ 1942 /*:ref: dplpfl_ 14 19 4 4 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 12 12 */ 1943 /*: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 */ 1944 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1945 /*:ref: sclosm_ 14 1 4 */ 1946 extern E_f epmach_(real *dum); 1947 /*:ref: r1mach_ 6 1 4 */ 1948 extern int ortran_(integer *nm, integer *n, integer *low, integer *igh, real *a, real *ort, real *z__); 1949 extern int rebakb_(integer *nm, integer *n, real *b, real *dl, integer *m, real *z__); 1950 extern int srot_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *sc, real *ss); 1951 extern int bspdr_(real *t, real *a, integer *n, integer *k, integer *nderiv, real *ad); 1952 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1953 extern int cpevl_(integer *n, integer *m, complex *a, complex *z__, complex *c__, complex *b, logical *kbd); 1954 /*:ref: i1mach_ 4 1 4 */ 1955 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); 1956 /*:ref: denorm_ 7 2 4 7 */ 1957 /*:ref: dfdjc3_ 14 10 214 4 4 7 7 7 4 4 7 7 */ 1958 /*:ref: dqrfac_ 14 10 4 4 7 4 12 4 4 7 7 7 */ 1959 /*:ref: dwupdt_ 14 8 4 7 4 7 7 7 7 7 */ 1960 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1961 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); 1962 /* comlen la05dd_ 32 */ 1963 /*:ref: dasum_ 7 3 4 7 4 */ 1964 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1965 /*:ref: la05bd_ 14 10 7 4 4 4 4 4 7 7 7 12 */ 1966 /*:ref: la05cd_ 14 10 7 4 4 4 4 4 7 7 7 4 */ 1967 /*: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 */ 1968 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1969 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 1970 /*:ref: iploc_ 4 3 4 7 4 */ 1971 /*:ref: dprwpg_ 14 5 4 4 4 7 4 */ 1972 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */ 1973 extern E_f erf_(real *x); 1974 /*:ref: inits_ 4 3 6 4 6 */ 1975 /*:ref: r1mach_ 6 1 4 */ 1976 /*:ref: csevl_ 6 3 6 6 4 */ 1977 /*:ref: erfc_ 6 1 6 */ 1978 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); 1979 extern int reduc_(integer *nm, integer *n, real *a, real *b, real *dl, integer *ierr); 1980 extern int srotg_(real *sa, real *sb, real *sc, real *ss); 1981 extern int bspev_(real *t, real *ad, integer *n, integer *k, integer *nderiv, real *x, integer *inev, real *svalue, real *work); 1982 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */ 1983 /*:ref: bspvn_ 14 9 6 4 4 4 6 4 6 6 4 */ 1984 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1985 extern int cpevlr_(integer *n, integer *m, real *a, real *x, real *c__); 1986 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); 1987 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 1988 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); 1989 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1990 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 1991 /*:ref: dpchng_ 14 6 4 7 4 7 4 4 */ 1992 /*:ref: dpnnzr_ 14 6 4 7 4 7 4 4 */ 1993 extern E_f erfc_(real *x); 1994 /*:ref: r1mach_ 6 1 4 */ 1995 /*:ref: inits_ 4 3 6 4 6 */ 1996 /*:ref: csevl_ 6 3 6 6 4 */ 1997 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 1998 extern int passb2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1); 1999 extern int reduc2_(integer *nm, integer *n, real *a, real *b, real *dl, integer *ierr); 2000 extern int srotm_(integer *n, real *sx, integer *incx, real *sy, integer *incy, real *sparam); 2001 extern int bsplvd_(real *t, integer *k, real *x, integer *ileft, real *vnikx, integer *nderiv); 2002 /*:ref: bsplvn_ 14 6 6 4 4 6 4 6 */ 2003 extern int cpoco_(complex *a, integer *lda, integer *n, real *rcond, complex *z__, integer *info); 2004 /*:ref: scasum_ 6 3 4 8 4 */ 2005 /*:ref: cpofa_ 14 4 8 4 4 4 */ 2006 /*:ref: csscal_ 14 4 4 6 8 4 */ 2007 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2008 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2009 extern doublereal dcsevl_(doublereal *x, doublereal *a, integer *n); 2010 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2011 extern int dpnnzr_(integer *i__, doublereal *xval, integer *iplace, doublereal *sx, integer *ix, integer *ircx); 2012 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2013 /*:ref: iploc_ 4 3 4 7 4 */ 2014 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); 2015 /* comlen ml8sz_ 28 */ 2016 /* comlen ml18jr_ 72 */ 2017 /* comlen ml15to_ 116 */ 2018 /* comlen ml17bw_ 72 */ 2019 /* comlen ml5mco_ 28 */ 2020 /*: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 */ 2021 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2022 extern int passb3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2); 2023 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); 2024 /* comlen ml8sz_ 28 */ 2025 /* comlen ml15to_ 116 */ 2026 /* comlen ml18jr_ 72 */ 2027 /*:ref: stor1_ 14 7 6 6 6 6 4 4 4 */ 2028 /*:ref: mgsbv_ 14 13 4 4 6 4 4 4 6 6 4 4 6 6 6 */ 2029 /*:ref: stway_ 14 5 6 6 6 4 6 */ 2030 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2031 extern int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real *sparam); 2032 extern int bsplvn_(real *t, integer *jhigh, integer *index, real *x, integer *ileft, real *vnikx); 2033 extern int cpodi_(complex *a, integer *lda, integer *n, real *det, integer *job); 2034 /*:ref: cscal_ 14 4 4 8 8 4 */ 2035 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2036 extern doublereal dcv_(doublereal *xval, integer *ndata, integer *nconst, integer *nord, integer *nbkpt, doublereal *bkpt, doublereal *w); 2037 /*:ref: dfspvn_ 14 6 7 4 4 7 4 7 */ 2038 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 2039 extern doublereal dpoch_(doublereal *a, doublereal *x); 2040 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2041 /*:ref: dfac_ 7 1 4 */ 2042 /*:ref: dlnrel_ 7 1 7 */ 2043 /*:ref: d9lgmc_ 7 1 7 */ 2044 /*:ref: dgamma_ 7 1 7 */ 2045 /*:ref: dgamr_ 7 1 7 */ 2046 /*:ref: dcot_ 7 1 7 */ 2047 /*:ref: dlgams_ 14 3 7 7 7 */ 2048 extern int exint_(real *x, integer *n, integer *kode, integer *m, real *tol, real *en, integer *ierr); 2049 /*:ref: r1mach_ 6 1 4 */ 2050 /*:ref: i1mach_ 4 1 4 */ 2051 /*:ref: psixn_ 6 1 4 */ 2052 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2053 extern int passb4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3); 2054 extern E_f rf_(real *x, real *y, real *z__, integer *ier); 2055 /*:ref: r1mach_ 6 1 4 */ 2056 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2057 extern int sscal_(integer *n, real *sa, real *sx, integer *incx); 2058 extern int bsppp_(real *t, real *a, integer *n, integer *k, integer *ldc, real *c__, real *xi, integer *lxi, real *work); 2059 /*:ref: bspdr_ 14 6 6 6 4 4 4 6 */ 2060 /*:ref: bspev_ 14 9 6 6 4 4 4 6 4 6 6 */ 2061 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2062 extern int cpofa_(complex *a, integer *lda, integer *n, integer *info); 2063 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2064 extern doublereal ddaws_(doublereal *x); 2065 /*:ref: d1mach_ 7 1 4 */ 2066 /*:ref: initds_ 4 3 7 4 6 */ 2067 /*:ref: dcsevl_ 7 3 7 7 4 */ 2068 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2069 extern doublereal dpoch1_(doublereal *a, doublereal *x); 2070 /*:ref: d1mach_ 7 1 4 */ 2071 /*:ref: dpsi_ 7 1 7 */ 2072 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2073 /*:ref: dexprl_ 7 1 7 */ 2074 /*:ref: dcot_ 7 1 7 */ 2075 /*:ref: dpoch_ 7 2 7 7 */ 2076 extern E_f exprel_(real *x); 2077 /*:ref: r1mach_ 6 1 4 */ 2078 extern int passb5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4); 2079 extern int rfftb_(integer *n, real *r__, real *wsave); 2080 /*:ref: rfftb1_ 14 5 4 6 6 6 6 */ 2081 extern int ssico_(real *a, integer *lda, integer *n, integer *kpvt, real *rcond, real *z__); 2082 /*:ref: sasum_ 6 3 4 6 4 */ 2083 /*:ref: ssifa_ 14 5 6 4 4 4 4 */ 2084 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2085 /*:ref: sscal_ 14 4 4 6 6 4 */ 2086 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2087 extern int bspvd_(real *t, integer *k, integer *nderiv, real *x, integer *ileft, integer *ldvnik, real *vnikx, real *work); 2088 /*:ref: bspvn_ 14 9 6 4 4 4 6 4 6 6 4 */ 2089 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2090 extern int cpofs_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work); 2091 /*:ref: cpoco_ 14 6 8 4 4 6 8 4 */ 2092 /*:ref: r1mach_ 6 1 4 */ 2093 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2094 /*:ref: cposl_ 14 4 8 4 4 8 */ 2095 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 2096 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__); 2097 /*:ref: dnrm2_ 7 3 4 7 4 */ 2098 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */ 2099 /*:ref: dgbsl_ 14 8 7 4 4 4 4 4 7 4 */ 2100 /*:ref: users_ 14 12 7 7 7 7 7 7 7 7 4 4 4 4 */ 2101 extern int dpoco_(doublereal *a, integer *lda, integer *n, doublereal *rcond, doublereal *z__, integer *info); 2102 /*:ref: dasum_ 7 3 4 7 4 */ 2103 /*:ref: dpofa_ 14 4 7 4 4 4 */ 2104 /*:ref: dscal_ 14 4 4 7 7 4 */ 2105 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 2106 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 2107 extern int ezfft1_(integer *n, real *wa, integer *ifac); 2108 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); 2109 extern int rfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac); 2110 /*:ref: radb4_ 14 7 4 4 6 6 6 6 6 */ 2111 /*:ref: radb2_ 14 5 4 4 6 6 6 */ 2112 /*:ref: radb3_ 14 6 4 4 6 6 6 6 */ 2113 /*:ref: radb5_ 14 8 4 4 6 6 6 6 6 6 */ 2114 /*:ref: radbg_ 14 10 4 4 4 4 6 6 6 6 6 6 */ 2115 extern int ssidi_(real *a, integer *lda, integer *n, integer *kpvt, real *det, integer *inert, real *work, integer *job); 2116 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 2117 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2118 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2119 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 2120 extern int bspvn_(real *t, integer *jhigh, integer *k, integer *index, real *x, integer *ileft, real *vnikx, real *work, integer *iwork); 2121 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2122 extern int cpoir_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work); 2123 /*:ref: ccopy_ 14 5 4 8 4 8 4 */ 2124 /*:ref: cpofa_ 14 4 8 4 4 4 */ 2125 /*:ref: cposl_ 14 4 8 4 4 8 */ 2126 /*:ref: scasum_ 6 3 4 8 4 */ 2127 /*:ref: dcdot_ 14 8 4 7 8 4 8 4 7 7 */ 2128 /*:ref: r1mach_ 6 1 4 */ 2129 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2130 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 2131 extern int ddcstb_(integer *maxord, integer *mint, integer *iswflg, doublereal *el, doublereal *tq); 2132 extern int dpodi_(doublereal *a, integer *lda, integer *n, doublereal *det, integer *job); 2133 /*:ref: dscal_ 14 4 4 7 7 4 */ 2134 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 2135 extern int ezfftb_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave); 2136 /*:ref: rfftb_ 14 3 4 6 6 */ 2137 extern int passf2_(integer *ido, integer *l1, real *cc, real *ch, real *wa1); 2138 extern int rfftf_(integer *n, real *r__, real *wsave); 2139 /*:ref: rfftf1_ 14 5 4 6 6 6 6 */ 2140 extern int ssiev_(real *a, integer *lda, integer *n, real *e, real *work, integer *job, integer *info); 2141 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2142 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */ 2143 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 2144 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */ 2145 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */ 2146 extern int bsqad_(real *t, real *bcoef, integer *n, integer *k, real *x1, real *x2, real *bquad, real *work); 2147 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */ 2148 /*:ref: bvalu_ 6 8 6 6 4 4 4 6 4 6 */ 2149 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2150 extern int cposl_(complex *a, integer *lda, integer *n, complex *b); 2151 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2152 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2153 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); 2154 /*:ref: d1mach_ 7 1 4 */ 2155 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2156 /*:ref: dintrp_ 14 9 7 7 7 7 7 4 4 7 7 */ 2157 /*: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 */ 2158 extern int dpofa_(doublereal *a, integer *lda, integer *n, integer *info); 2159 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 2160 extern int ezfftf_(integer *n, real *r__, real *azero, real *a, real *b, real *wsave); 2161 /*:ref: rfftf_ 14 3 4 6 6 */ 2162 extern int passf3_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2); 2163 extern int rfftf1_(integer *n, real *c__, real *ch, real *wa, integer *ifac); 2164 /*:ref: radf4_ 14 7 4 4 6 6 6 6 6 */ 2165 /*:ref: radf2_ 14 5 4 4 6 6 6 */ 2166 /*:ref: radf3_ 14 6 4 4 6 6 6 6 */ 2167 /*:ref: radf5_ 14 8 4 4 6 6 6 6 6 6 */ 2168 /*:ref: radfg_ 14 10 4 4 4 4 6 6 6 6 6 6 */ 2169 extern int ssifa_(real *a, integer *lda, integer *n, integer *kpvt, integer *info); 2170 /*:ref: isamax_ 4 3 4 6 4 */ 2171 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 2172 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2173 extern E_f bsrh_(real *xll, real *xrr, integer *iz, real *c__, real *a, real *bh, E_fp f, real *sgn); 2174 /* comlen cblkt_ 28 */ 2175 extern int cppco_(complex *ap, integer *n, real *rcond, complex *z__, integer *info); 2176 /*:ref: scasum_ 6 3 4 8 4 */ 2177 /*:ref: cppfa_ 14 3 8 4 4 */ 2178 /*:ref: csscal_ 14 4 4 6 8 4 */ 2179 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2180 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2181 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); 2182 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2183 /*: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 */ 2184 extern int dpofs_(doublereal *a, integer *lda, integer *n, doublereal *v, integer *itask, integer *ind, doublereal *work); 2185 /*:ref: dpoco_ 14 6 7 4 4 7 7 4 */ 2186 /*:ref: d1mach_ 7 1 4 */ 2187 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2188 /*:ref: dposl_ 14 4 7 4 4 7 */ 2189 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 2190 extern int ezffti_(integer *n, real *wsave); 2191 /*:ref: ezfft1_ 14 3 4 6 6 */ 2192 extern int passf4_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3); 2193 extern int rffti_(integer *n, real *wsave); 2194 /*:ref: rffti1_ 14 3 4 6 6 */ 2195 extern int ssisl_(real *a, integer *lda, integer *n, integer *kpvt, real *b); 2196 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2197 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2198 extern E_f bvalu_(real *t, real *a, integer *n, integer *k, integer *ideriv, real *x, integer *inbv, real *work); 2199 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */ 2200 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2201 extern int cppdi_(complex *ap, integer *n, real *det, integer *job); 2202 /*:ref: cscal_ 14 4 4 8 8 4 */ 2203 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2204 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); 2205 /* comlen ddebd1_ 1876 */ 2206 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2207 /*: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 */ 2208 extern int dpolcf_(doublereal *xx, integer *n, doublereal *x, doublereal *c__, doublereal *d__, doublereal *work); 2209 extern E_f fac_(integer *n); 2210 /*:ref: gamlim_ 14 2 6 6 */ 2211 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2212 /*:ref: r9lgmc_ 6 1 6 */ 2213 extern int passf5_(integer *ido, integer *l1, real *cc, real *ch, real *wa1, real *wa2, real *wa3, real *wa4); 2214 extern int rffti1_(integer *n, real *wa, integer *ifac); 2215 extern int ssort_(real *x, real *y, integer *n, integer *kflag); 2216 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2217 extern E_f bvalue_(real *t, real *a, integer *n, integer *k, real *x, integer *ideriv); 2218 /*:ref: interv_ 14 5 6 4 6 4 4 */ 2219 extern int cppfa_(complex *ap, integer *n, integer *info); 2220 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2221 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); 2222 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2223 /*: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 */ 2224 extern int dpolft_(integer *n, doublereal *x, doublereal *y, doublereal *w, integer *maxdeg, integer *ndeg, doublereal *eps, doublereal *r__, integer *ierr, doublereal *a); 2225 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2226 /*:ref: dp1vlu_ 14 6 4 4 7 7 6 7 */ 2227 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); 2228 /*: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 */ 2229 extern int pchce_(integer *ic, real *vc, integer *n, real *x, real *h__, real *slope, real *d__, integer *incfd, integer *ierr); 2230 /*:ref: pchdf_ 6 4 4 6 6 4 */ 2231 /*:ref: pchst_ 6 2 6 6 */ 2232 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2233 extern int rg_(integer *nm, integer *n, real *a, real *wr, real *wi, integer *matz, real *z__, integer *iv1, real *fv1, integer *ierr); 2234 /*:ref: balanc_ 14 6 4 4 6 4 4 6 */ 2235 /*:ref: elmhes_ 14 6 4 4 4 4 6 4 */ 2236 /*:ref: hqr_ 14 8 4 4 4 4 6 6 6 4 */ 2237 /*:ref: eltran_ 14 7 4 4 4 4 6 4 6 */ 2238 /*:ref: hqr2_ 14 9 4 4 4 4 6 6 6 6 4 */ 2239 /*:ref: balbak_ 14 7 4 4 4 4 6 4 6 */ 2240 extern int sspco_(real *ap, integer *n, integer *kpvt, real *rcond, real *z__); 2241 /*:ref: sasum_ 6 3 4 6 4 */ 2242 /*:ref: sspfa_ 14 4 6 4 4 4 */ 2243 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2244 /*:ref: sscal_ 14 4 4 6 6 4 */ 2245 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2246 extern int bvder_(real *x, real *y, real *yp, real *g, integer *ipar); 2247 /* comlen ml8sz_ 28 */ 2248 /* comlen mlivp_ 4 */ 2249 /*:ref: uivp_ 14 3 6 6 6 */ 2250 /*:ref: fmat_ 14 3 6 6 6 */ 2251 /*:ref: gvec_ 14 2 6 6 */ 2252 /*:ref: uvec_ 14 3 6 6 6 */ 2253 extern int cppsl_(complex *ap, integer *n, complex *b); 2254 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2255 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2256 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); 2257 /*:ref: d1mach_ 7 1 4 */ 2258 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2259 /*:ref: dintp_ 14 17 7 7 7 7 7 4 4 7 4 4 4 6 7 7 7 6 7 */ 2260 /*: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 */ 2261 extern int dpolvl_(integer *nder, doublereal *xx, doublereal *yfit, doublereal *yp, integer *n, doublereal *x, doublereal *c__, doublereal *work, integer *ierr); 2262 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); 2263 /*:ref: bndsol_ 14 9 4 6 4 4 4 4 6 4 6 */ 2264 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2265 /*:ref: lsei_ 14 13 6 4 4 4 4 4 6 6 6 6 4 6 4 */ 2266 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2267 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 2268 /*:ref: ssort_ 14 4 6 6 4 4 */ 2269 /*:ref: bndacc_ 14 7 6 4 4 4 4 4 4 */ 2270 /*:ref: bsplvn_ 14 6 6 4 4 6 4 6 */ 2271 /*:ref: sscal_ 14 4 4 6 6 4 */ 2272 /*:ref: bsplvd_ 14 6 6 4 6 4 6 4 */ 2273 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2274 extern int pchci_(integer *n, real *h__, real *slope, real *d__, integer *incfd); 2275 /*:ref: pchst_ 6 2 6 6 */ 2276 extern E_f rgauss_(real *xmean, real *sd); 2277 /*:ref: rand_ 6 1 6 */ 2278 extern int sspdi_(real *ap, integer *n, integer *kpvt, real *det, integer *inert, real *work, integer *job); 2279 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 2280 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2281 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2282 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 2283 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); 2284 /* comlen ml8sz_ 28 */ 2285 /* comlen ml15to_ 116 */ 2286 /* comlen ml18jr_ 72 */ 2287 /*:ref: lssuds_ 14 20 6 6 6 4 4 4 6 4 4 4 4 4 6 6 4 6 6 6 4 6 */ 2288 /*:ref: svecs_ 14 7 4 4 6 6 4 4 4 */ 2289 /*:ref: stor1_ 14 7 6 6 6 6 4 4 4 */ 2290 /*:ref: stway_ 14 5 6 6 6 4 6 */ 2291 /*: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 */ 2292 /*:ref: scoef_ 14 18 6 6 4 4 4 4 6 6 6 4 6 6 6 6 6 4 4 4 */ 2293 /*:ref: bksol_ 14 3 4 6 6 */ 2294 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2295 extern int cpqr79_(integer *ndeg, complex *coeff, complex *root, integer *ierr, real *work); 2296 /*:ref: comqr_ 14 9 4 4 4 4 6 6 6 6 4 */ 2297 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2298 extern doublereal ddiff_(doublereal *x, doublereal *y); 2299 extern int dpopt_(doublereal *prgopt, integer *mrelas, integer *nvars__, integer *info, doublereal *csc, integer *ibasis, doublereal *ropt, integer *intopt, logical *lopt); 2300 /*:ref: d1mach_ 7 1 4 */ 2301 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2302 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); 2303 /*:ref: r1mach_ 6 1 4 */ 2304 extern int pchcs_(real *switch__, integer *n, real *h__, real *slope, real *d__, integer *incfd, integer *ierr); 2305 /*:ref: pchst_ 6 2 6 6 */ 2306 /*:ref: pchsw_ 14 7 6 4 6 6 6 6 4 */ 2307 extern int rgg_(integer *nm, integer *n, real *a, real *b, real *alfr, real *alfi, real *beta, integer *matz, real *z__, integer *ierr); 2308 /*:ref: qzhes_ 14 6 4 4 6 6 12 6 */ 2309 /*:ref: qzit_ 14 8 4 4 6 6 6 12 6 4 */ 2310 /*:ref: qzval_ 14 9 4 4 6 6 6 6 6 12 6 */ 2311 /*:ref: qzvec_ 14 8 4 4 6 6 6 6 6 6 */ 2312 extern int sspev_(real *a, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info); 2313 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2314 /*:ref: tred3_ 14 6 4 4 6 6 6 6 */ 2315 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 2316 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */ 2317 /*:ref: trbak3_ 14 6 4 4 4 6 4 6 */ 2318 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); 2319 /* comlen ml8sz_ 28 */ 2320 /* comlen ml18jr_ 72 */ 2321 /* comlen ml17bw_ 72 */ 2322 /* comlen ml15to_ 116 */ 2323 /* comlen ml5mco_ 28 */ 2324 /*:ref: macon_ 14 0 */ 2325 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2326 /*:ref: exbvp_ 14 12 6 4 6 6 4 6 6 4 6 4 6 4 */ 2327 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); 2328 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); 2329 /*:ref: ddcstb_ 14 5 4 4 4 7 7 */ 2330 /*:ref: users_ 14 12 7 7 7 7 7 7 7 7 4 4 4 4 */ 2331 /*:ref: dgefa_ 14 5 7 4 4 4 4 */ 2332 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */ 2333 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */ 2334 /*:ref: dgbsl_ 14 8 7 4 4 4 4 4 7 4 */ 2335 /*:ref: dnrm2_ 7 3 4 7 4 */ 2336 /*:ref: ddsclb_ 14 8 7 4 4 7 7 7 7 7 */ 2337 extern int dposl_(doublereal *a, integer *lda, integer *n, doublereal *b); 2338 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 2339 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 2340 extern int fdjac2_(S_fp fcn, integer *m, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, integer *iflag, real *epsfcn, real *wa); 2341 /*:ref: r1mach_ 6 1 4 */ 2342 extern E_f pchdf_(integer *k, real *x, real *s, integer *ierr); 2343 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2344 extern E_f rj_(real *x, real *y, real *z__, real *p, integer *ier); 2345 /*:ref: r1mach_ 6 1 4 */ 2346 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2347 /*:ref: rc_ 6 3 6 6 4 */ 2348 extern int sspfa_(real *ap, integer *n, integer *kpvt, integer *info); 2349 /*:ref: isamax_ 4 3 4 6 4 */ 2350 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 2351 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2352 extern C_f c0lgmc_(complex * ret_val, complex *z__); 2353 /*:ref: r1mach_ 6 1 4 */ 2354 /*:ref: c9ln2r_ 8 2 8 8 */ 2355 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); 2356 extern int ddntpb_(doublereal *h__, integer *k, integer *n, integer *nq, doublereal *t, doublereal *tout, doublereal *yh, doublereal *y); 2357 extern int dppco_(doublereal *ap, integer *n, doublereal *rcond, doublereal *z__, integer *info); 2358 /*:ref: dasum_ 7 3 4 7 4 */ 2359 /*:ref: dppfa_ 14 3 7 4 4 */ 2360 /*:ref: dscal_ 14 4 4 7 7 4 */ 2361 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 2362 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 2363 extern int fdjac3_(S_fp fcn, integer *m, integer *n, real *x, real *fvec, real *fjac, integer *ldfjac, integer *iflag, real *epsfcn, real *wa); 2364 /*:ref: r1mach_ 6 1 4 */ 2365 extern int pchdoc_(void); 2366 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); 2367 /* comlen ml8sz_ 28 */ 2368 /* comlen ml15to_ 116 */ 2369 /* comlen ml18jr_ 72 */ 2370 /* comlen ml17bw_ 72 */ 2371 /*:ref: derkf_ 14 15 200 4 6 6 6 4 6 6 4 6 4 4 4 6 4 */ 2372 /*:ref: deabm_ 14 15 200 4 6 6 6 4 6 6 4 6 4 4 4 6 4 */ 2373 /*:ref: reort_ 14 11 4 6 6 6 4 6 6 6 4 6 4 */ 2374 /*:ref: stor1_ 14 7 6 6 6 6 4 4 4 */ 2375 extern int sspsl_(real *ap, integer *n, integer *kpvt, real *b); 2376 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2377 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2378 extern C_f c9lgmc_(complex * ret_val, complex *zin); 2379 /*:ref: r1mach_ 6 1 4 */ 2380 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2381 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); 2382 extern int ddoglg_(integer *n, doublereal *r__, integer *lr, doublereal *diag, doublereal *qtb, doublereal *delta, doublereal *x, doublereal *wa1, doublereal *wa2); 2383 /*:ref: d1mach_ 7 1 4 */ 2384 /*:ref: denorm_ 7 2 4 7 */ 2385 extern int dppdi_(doublereal *ap, integer *n, doublereal *det, integer *job); 2386 /*:ref: dscal_ 14 4 4 7 7 4 */ 2387 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 2388 extern int fdump_(void); 2389 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); 2390 /*:ref: chfdv_ 14 12 6 6 6 6 6 6 4 6 6 6 4 4 */ 2391 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2392 extern int rpqr79_(integer *ndeg, real *coeff, complex *root, integer *ierr, real *work); 2393 /*:ref: hqr_ 14 8 4 4 4 4 6 6 6 4 */ 2394 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2395 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); 2396 /*:ref: snrm2_ 6 3 4 6 4 */ 2397 /*:ref: sscal_ 14 4 4 6 6 4 */ 2398 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2399 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2400 /*:ref: srotg_ 14 4 6 6 6 6 */ 2401 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */ 2402 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 2403 extern C_f c9ln2r_(complex * ret_val, complex *z__); 2404 /*:ref: r9ln2r_ 6 1 6 */ 2405 /*:ref: r9atn1_ 6 1 6 */ 2406 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); 2407 extern doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 2408 extern int dppfa_(doublereal *ap, integer *n, integer *info); 2409 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 2410 extern int fftdoc_(void); 2411 extern int pchfe_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, integer *ne, real *xe, real *fe, integer *ierr); 2412 /*:ref: chfev_ 14 11 6 6 6 6 6 6 4 6 6 4 4 */ 2413 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2414 extern int rpzero_(integer *n, real *a, complex *r__, complex *t, integer *iflg, real *s); 2415 /*:ref: cpzero_ 14 6 4 8 8 8 4 6 */ 2416 extern int sswap_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 2417 extern C_f cacos_(complex * ret_val, complex *z__); 2418 /*:ref: casin_ 8 2 8 8 */ 2419 extern C_f cpsi_(complex * ret_val, complex *zin); 2420 /*:ref: r1mach_ 6 1 4 */ 2421 /*:ref: ccot_ 8 2 8 8 */ 2422 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2423 extern int ddpscb_(integer *ksgn, integer *n, integer *nq, doublereal *yh); 2424 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); 2425 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2426 /*:ref: i1mach_ 4 1 4 */ 2427 /*:ref: d1mach_ 7 1 4 */ 2428 /*:ref: dppval_ 7 8 4 7 7 4 4 4 7 4 */ 2429 extern int figi_(integer *nm, integer *n, real *t, real *d__, real *e, real *e2, integer *ierr); 2430 extern E_f pchia_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, real *a, real *b, integer *ierr); 2431 /*:ref: chfiv_ 6 9 6 6 6 6 6 6 6 6 4 */ 2432 /*:ref: pchid_ 6 9 4 6 6 6 4 12 4 4 4 */ 2433 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2434 extern int rs_(integer *nm, integer *n, real *a, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr); 2435 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */ 2436 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 2437 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */ 2438 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */ 2439 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); 2440 /*:ref: r1mach_ 6 1 4 */ 2441 /*:ref: hstart_ 14 17 214 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 6 */ 2442 extern C_f cacosh_(complex * ret_val, complex *z__); 2443 /*:ref: cacos_ 8 2 8 8 */ 2444 extern int cptsl_(integer *n, complex *d__, complex *e, complex *b); 2445 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); 2446 /*:ref: dnrm2_ 7 3 4 7 4 */ 2447 /*:ref: dgefa_ 14 5 7 4 4 4 4 */ 2448 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */ 2449 /*:ref: users_ 14 12 7 7 7 7 7 7 7 7 4 4 4 4 */ 2450 extern int dppqad_(integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, integer *k, doublereal *x1, doublereal *x2, doublereal *pquad); 2451 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */ 2452 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2453 extern int figi2_(integer *nm, integer *n, real *t, real *d__, real *e, real *z__, integer *ierr); 2454 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); 2455 /*:ref: pchci_ 14 5 4 6 6 6 4 */ 2456 /*:ref: pchcs_ 14 7 6 4 6 6 6 4 4 */ 2457 /*:ref: pchce_ 14 9 4 6 4 6 6 6 6 4 4 */ 2458 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2459 extern int rsb_(integer *nm, integer *n, integer *mb, real *a, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr); 2460 /*:ref: bandr_ 14 9 4 4 4 6 6 6 6 12 6 */ 2461 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 2462 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */ 2463 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); 2464 /*:ref: r1mach_ 6 1 4 */ 2465 /*:ref: hstart_ 14 17 214 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 6 */ 2466 extern E_f carg_(complex *z__); 2467 extern int cpzero_(integer *in, complex *a, complex *r__, complex *t, integer *iflg, real *s); 2468 /*:ref: cpevl_ 14 7 4 4 8 8 8 8 12 */ 2469 extern int ddrvb1_(integer *n, doublereal *t, doublereal *y, doublereal *tout, integer *mstate, doublereal *eps, doublereal *work, integer *lenw); 2470 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2471 /*:ref: d1mach_ 7 1 4 */ 2472 /*: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 */ 2473 /*:ref: g_ 7 :*/ 2474 extern int dppsl_(doublereal *ap, integer *n, doublereal *b); 2475 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 2476 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 2477 extern int fnlibd_(void); 2478 extern E_f pchid_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, integer *ia, integer *ib, integer *ierr); 2479 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2480 extern int rsco_(real *rsav, integer *isav); 2481 /* comlen debdf1_ 1004 */ 2482 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); 2483 /*:ref: d1mach_ 6 1 4 */ 2484 extern C_f casin_(complex * ret_val, complex *zinp); 2485 /*:ref: r1mach_ 6 1 4 */ 2486 extern int cqrdc_(complex *x, integer *ldx, integer *n, integer *p, complex *qraux, integer *jpvt, complex *work, integer *job); 2487 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 2488 /*:ref: scnrm2_ 6 3 4 8 4 */ 2489 /*:ref: cscal_ 14 4 4 8 8 4 */ 2490 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2491 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2492 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); 2493 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2494 /*:ref: d1mach_ 7 1 4 */ 2495 /*: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 */ 2496 extern doublereal dppval_(integer *ldc, doublereal *c__, doublereal *xi, integer *lxi, integer *k, integer *ideriv, doublereal *x, integer *inppv); 2497 /*:ref: dintrv_ 14 6 7 4 7 4 4 4 */ 2498 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2499 extern int fulmat_(integer *i__, integer *j, real *aij, integer *indcat, real *prgopt, real *dattrv, integer *iflag); 2500 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2501 extern int pchim_(integer *n, real *x, real *f, real *d__, integer *incfd, integer *ierr); 2502 /*:ref: pchst_ 6 2 6 6 */ 2503 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2504 extern int rsg_(integer *nm, integer *n, real *a, real *b, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr); 2505 /*:ref: reduc_ 14 6 4 4 6 6 6 4 */ 2506 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */ 2507 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 2508 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */ 2509 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */ 2510 /*:ref: rebak_ 14 6 4 4 6 6 4 6 */ 2511 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); 2512 /* comlen debdf1_ 1004 */ 2513 /*:ref: cfod_ 14 3 4 6 6 */ 2514 /*:ref: vnwrms_ 6 3 4 6 6 */ 2515 /*:ref: pjac_ 14 13 4 6 6 4 6 6 6 6 4 214 200 6 4 */ 2516 /*:ref: slvs_ 14 4 6 4 6 6 */ 2517 extern C_f casinh_(complex * ret_val, complex *z__); 2518 /*:ref: casin_ 8 2 8 8 */ 2519 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); 2520 /*:ref: ccopy_ 14 5 4 8 4 8 4 */ 2521 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2522 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2523 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); 2524 /*:ref: d1mach_ 7 1 4 */ 2525 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2526 /*:ref: ddntpb_ 14 8 7 4 4 4 7 7 7 7 */ 2527 /*:ref: users_ 14 12 7 7 7 7 7 7 7 7 4 4 4 4 */ 2528 /*:ref: dgefa_ 14 5 7 4 4 4 4 */ 2529 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */ 2530 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */ 2531 /*:ref: dgbsl_ 14 8 7 4 4 4 4 4 7 4 */ 2532 /*:ref: dnrm2_ 7 3 4 7 4 */ 2533 /*: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 */ 2534 /*:ref: ddzrob_ 14 15 7 207 7 4 4 4 7 7 7 7 7 7 7 7 7 */ 2535 extern doublereal dprvec_(integer *m, doublereal *u, doublereal *v); 2536 /*:ref: ddot_ 6 5 4 7 4 7 4 */ 2537 extern int fzero_(E_fp f, real *b, real *c__, real *r__, real *re, real *ae, integer *iflag); 2538 /*:ref: r1mach_ 6 1 4 */ 2539 extern int pchmc_(integer *n, real *x, real *f, real *d__, integer *incfd, logical *skip, integer *ismon, integer *ierr); 2540 /*:ref: chfmc_ 4 3 6 6 6 */ 2541 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2542 extern int rsgab_(integer *nm, integer *n, real *a, real *b, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr); 2543 /*:ref: reduc2_ 14 6 4 4 6 6 6 4 */ 2544 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */ 2545 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 2546 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */ 2547 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */ 2548 /*:ref: rebak_ 14 6 4 4 6 6 4 6 */ 2549 extern int stor1_(real *u, real *yh, real *v, real *yp, integer *ntemp, integer *ndisk, integer *ntape); 2550 /* comlen ml8sz_ 28 */ 2551 extern C_f catan_(complex * ret_val, complex *z__); 2552 /*:ref: r1mach_ 6 1 4 */ 2553 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2554 extern int crotg_(complex *ca, complex *cb, real *c__, complex *s); 2555 extern int ddsclb_(doublereal *hmax, integer *n, integer *nq, doublereal *rmax, doublereal *h__, doublereal *rc, doublereal *rh, doublereal *yh); 2556 extern int dprwpg_(integer *key, integer *ipage, integer *lpg, doublereal *sx, integer *ix); 2557 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2558 /*:ref: dprwvr_ 14 5 4 4 4 7 4 */ 2559 extern E_f gami_(real *a, real *x); 2560 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2561 /*:ref: alngam_ 6 1 6 */ 2562 /*:ref: gamit_ 6 2 6 6 */ 2563 extern int pchngs_(integer *ii, real *xval, integer *iplace, real *sx, integer *ix, integer *ircx); 2564 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2565 /*:ref: iploc_ 4 3 4 6 4 */ 2566 /*:ref: prwpge_ 14 5 4 4 4 6 4 */ 2567 extern int rsgba_(integer *nm, integer *n, real *a, real *b, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr); 2568 /*:ref: reduc2_ 14 6 4 4 6 6 6 4 */ 2569 /*:ref: tred1_ 14 6 4 4 6 6 6 6 */ 2570 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 2571 /*:ref: tred2_ 14 6 4 4 6 6 6 6 */ 2572 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */ 2573 /*:ref: rebakb_ 14 6 4 4 6 6 4 6 */ 2574 extern int strco_(real *t, integer *ldt, integer *n, real *rcond, real *z__, integer *job); 2575 /*:ref: sasum_ 6 3 4 6 4 */ 2576 /*:ref: sscal_ 14 4 4 6 6 4 */ 2577 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2578 extern C_f catan2_(complex * ret_val, complex *csn, complex *ccs); 2579 /*:ref: catan_ 8 2 8 8 */ 2580 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2581 extern int cscal_(integer *n, complex *ca, complex *cx, integer *incx); 2582 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); 2583 /*: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 */ 2584 /*:ref: ddpscb_ 14 4 4 4 4 7 */ 2585 /*: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 */ 2586 /*: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 */ 2587 /*:ref: dnrm2_ 7 3 4 7 4 */ 2588 /*:ref: ddsclb_ 14 8 7 4 4 7 7 7 7 7 */ 2589 /*:ref: ddcstb_ 14 5 4 4 4 7 7 */ 2590 extern int dprwvr_(integer *key, integer *ipage, integer *lpg, doublereal *sx, integer *ix); 2591 /*:ref: sopenm_ 14 2 4 4 */ 2592 /*:ref: dreadp_ 14 5 4 4 7 4 4 */ 2593 /*:ref: dwritp_ 14 5 4 4 7 4 4 */ 2594 extern E_f gamic_(real *a, real *x); 2595 /*:ref: r1mach_ 6 1 4 */ 2596 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2597 /*:ref: alngam_ 6 1 6 */ 2598 /*:ref: r9gmic_ 6 3 6 6 6 */ 2599 /*:ref: algams_ 14 3 6 6 6 */ 2600 /*:ref: r9gmit_ 6 5 6 6 6 6 6 */ 2601 /*:ref: r9lgic_ 6 3 6 6 6 */ 2602 /*:ref: r9lgit_ 6 3 6 6 6 */ 2603 /*:ref: xerclr_ 14 0 */ 2604 extern int pchsp_(integer *ic, real *vc, integer *n, real *x, real *f, real *d__, integer *incfd, real *wk, integer *nwk, integer *ierr); 2605 /*:ref: pchdf_ 6 4 4 6 6 4 */ 2606 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2607 extern int rsp_(integer *nm, integer *n, integer *nv, real *a, real *w, integer *matz, real *z__, real *fv1, real *fv2, integer *ierr); 2608 /*:ref: tred3_ 14 6 4 4 6 6 6 6 */ 2609 /*:ref: tqlrat_ 14 4 4 6 6 4 */ 2610 /*:ref: tql2_ 14 6 4 4 6 6 6 4 */ 2611 /*:ref: trbak3_ 14 6 4 4 4 6 4 6 */ 2612 extern int strdi_(real *t, integer *ldt, integer *n, real *det, integer *job, integer *info); 2613 /*:ref: sscal_ 14 4 4 6 6 4 */ 2614 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2615 extern C_f catanh_(complex * ret_val, complex *z__); 2616 /*:ref: catan_ 8 2 8 8 */ 2617 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); 2618 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2619 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); 2620 /*:ref: ddntpb_ 14 8 7 4 4 4 7 7 7 7 */ 2621 extern doublereal dpsi_(doublereal *x); 2622 /*:ref: initds_ 4 3 7 4 6 */ 2623 /*:ref: d1mach_ 7 1 4 */ 2624 /*:ref: dcsevl_ 7 3 7 7 4 */ 2625 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2626 /*:ref: dcot_ 7 1 7 */ 2627 extern E_f gamit_(real *a, real *x); 2628 /*:ref: r1mach_ 6 1 4 */ 2629 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2630 /*:ref: gamr_ 6 1 6 */ 2631 /*:ref: algams_ 14 3 6 6 6 */ 2632 /*:ref: r9gmit_ 6 5 6 6 6 6 6 */ 2633 /*:ref: r9lgit_ 6 3 6 6 6 */ 2634 /*:ref: alngam_ 6 1 6 */ 2635 /*:ref: xerclr_ 14 0 */ 2636 /*:ref: r9lgic_ 6 3 6 6 6 */ 2637 extern E_f pchst_(real *arg1, real *arg2); 2638 extern int rst_(integer *nm, integer *n, real *w, real *e, integer *matz, real *z__, integer *ierr); 2639 /*:ref: imtql1_ 14 4 4 6 6 4 */ 2640 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */ 2641 extern int strsl_(real *t, integer *ldt, integer *n, real *b, integer *job, integer *info); 2642 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2643 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2644 extern int caxpy_(integer *n, complex *ca, complex *cx, integer *incx, complex *cy, integer *incy); 2645 extern E_f csevl_(real *x, real *cs, integer *n); 2646 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2647 extern doublereal de1_(doublereal *x); 2648 /*:ref: d1mach_ 7 1 4 */ 2649 /*:ref: initds_ 4 3 7 4 6 */ 2650 /*:ref: dcsevl_ 7 3 7 7 4 */ 2651 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2652 extern int dpsifn_(doublereal *x, integer *n, integer *kode, integer *m, doublereal *ans, integer *nz, integer *ierr); 2653 /*:ref: i1mach_ 4 1 4 */ 2654 /*:ref: d1mach_ 7 1 4 */ 2655 extern int gamlim_(real *xmin, real *xmax); 2656 /*:ref: r1mach_ 6 1 4 */ 2657 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2658 extern int pchsw_(real *dfmax, integer *iextrm, real *d1, real *d2, real *h__, real *slope, integer *ierr); 2659 /*:ref: r1mach_ 6 1 4 */ 2660 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2661 extern int rt_(integer *nm, integer *n, real *a, real *w, integer *matz, real *z__, real *fv1, integer *ierr); 2662 /*:ref: figi_ 14 7 4 4 6 6 6 6 4 */ 2663 /*:ref: imtql1_ 14 4 4 6 6 4 */ 2664 /*:ref: figi2_ 14 7 4 4 6 6 6 6 4 */ 2665 /*:ref: imtql2_ 14 6 4 4 6 6 6 4 */ 2666 extern int stway_(real *u, real *v, real *yhp, integer *inout, real *stowa); 2667 /* comlen ml8sz_ 28 */ 2668 /* comlen ml15to_ 116 */ 2669 /* comlen ml18jr_ 72 */ 2670 /*:ref: stor1_ 14 7 6 6 6 6 4 4 4 */ 2671 extern int cbabk2_(integer *nm, integer *n, integer *low, integer *igh, real *scale, integer *m, real *zr, real *zi); 2672 extern int csico_(complex *a, integer *lda, integer *n, integer *kpvt, real *rcond, complex *z__); 2673 /*:ref: scasum_ 6 3 4 8 4 */ 2674 /*:ref: csifa_ 14 5 8 4 4 4 4 */ 2675 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2676 /*:ref: csscal_ 14 4 4 6 8 4 */ 2677 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */ 2678 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); 2679 /*:ref: r1mach_ 6 1 4 */ 2680 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2681 /*:ref: intrp_ 14 9 6 6 6 6 6 4 4 6 6 */ 2682 /*: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 */ 2683 extern doublereal dpsixn_(integer *n); 2684 /*:ref: d1mach_ 7 1 4 */ 2685 extern E_f gamma_(real *x); 2686 /*:ref: inits_ 4 3 6 4 6 */ 2687 /*:ref: r1mach_ 6 1 4 */ 2688 /*:ref: gamlim_ 14 2 6 6 */ 2689 /*:ref: csevl_ 6 3 6 6 4 */ 2690 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2691 /*:ref: r9lgmc_ 6 1 6 */ 2692 extern int pcoef_(integer *l, real *c__, real *tc, real *a); 2693 /*:ref: pvalue_ 14 6 4 4 6 6 6 6 */ 2694 extern E_f runif_(real *t, integer *n); 2695 /*:ref: rand_ 6 1 6 */ 2696 extern int suds_(real *a, real *x, real *b, integer *neq, integer *nuk, integer *nrda, integer *iflag, integer *mlso, real *work, integer *iwork); 2697 /*:ref: lssuds_ 14 20 6 6 6 4 4 4 6 4 4 4 4 4 6 6 4 6 6 6 4 6 */ 2698 extern int cbal_(integer *nm, integer *n, real *ar, real *ai, integer *low, integer *igh, real *scale); 2699 extern int csidi_(complex *a, integer *lda, integer *n, integer *kpvt, complex *det, complex *work, integer *job); 2700 /*:ref: ccopy_ 14 5 4 8 4 8 4 */ 2701 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */ 2702 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2703 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 2704 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); 2705 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2706 /*: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 */ 2707 extern int dptsl_(integer *n, doublereal *d__, doublereal *e, doublereal *b); 2708 extern E_f gamr_(real *x); 2709 /*:ref: xgetf_ 14 1 4 */ 2710 /*:ref: xsetf_ 14 1 4 */ 2711 /*:ref: gamma_ 6 1 6 */ 2712 /*:ref: xerclr_ 14 0 */ 2713 /*:ref: algams_ 14 3 6 6 6 */ 2714 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); 2715 /*:ref: r1mach_ 6 1 4 */ 2716 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */ 2717 /*:ref: ppgq8_ 14 13 206 4 6 6 4 4 4 6 6 4 6 6 4 */ 2718 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2719 extern int rwupdt_(integer *n, real *r__, integer *ldr, real *w, real *b, real *alpha, real *cos__, real *sin__); 2720 extern int svco_(real *rsav, integer *isav); 2721 /* comlen debdf1_ 1004 */ 2722 extern C_f cbeta_(complex * ret_val, complex *a, complex *b); 2723 /*:ref: gamlim_ 14 2 6 6 */ 2724 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2725 /*:ref: cgamma_ 8 2 8 8 */ 2726 /*:ref: clbeta_ 8 3 8 8 8 */ 2727 extern int csifa_(complex *a, integer *lda, integer *n, integer *kpvt, integer *info); 2728 /*:ref: icamax_ 4 3 4 8 4 */ 2729 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 2730 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2731 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); 2732 /* comlen debdf1_ 1004 */ 2733 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2734 /*: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 */ 2735 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); 2736 /*:ref: dqage_ 14 17 207 7 7 7 7 4 4 7 7 4 4 7 7 7 7 4 4 */ 2737 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2738 extern E_f gamrn_(real *x); 2739 /*:ref: r1mach_ 6 1 4 */ 2740 /*:ref: i1mach_ 4 1 4 */ 2741 extern E_f pgsf_(real *x, integer *iz, real *c__, real *a, real *bh); 2742 extern int s88fmt_(integer *n, integer *ivalue, integer *ifmt); 2743 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); 2744 /*:ref: pythag_ 6 2 6 6 */ 2745 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); 2746 /* comlen ccblk_ 28 */ 2747 /*:ref: inxcb_ 14 4 4 4 4 4 */ 2748 /*:ref: inxcc_ 14 4 4 4 4 4 */ 2749 /*:ref: inxca_ 14 4 4 4 4 4 */ 2750 extern C_f csinh_(complex * ret_val, complex *z__); 2751 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); 2752 /*:ref: defcmn_ 14 19 4 7 7 7 4 4 7 4 4 7 7 7 7 7 7 4 7 4 4 */ 2753 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); 2754 /*:ref: d1mach_ 7 1 4 */ 2755 /*:ref: dqk15_ 14 7 207 7 7 7 7 7 7 */ 2756 /*:ref: dqk21_ 14 7 207 7 7 7 7 7 7 */ 2757 /*:ref: dqk31_ 14 7 207 7 7 7 7 7 7 */ 2758 /*:ref: dqk41_ 14 7 207 7 7 7 7 7 7 */ 2759 /*:ref: dqk51_ 14 7 207 7 7 7 7 7 7 */ 2760 /*:ref: dqk61_ 14 7 207 7 7 7 7 7 7 */ 2761 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */ 2762 extern int gaus8_(E_fp fun, real *a, real *b, real *err, real *ans, integer *ierr); 2763 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2764 /*:ref: i1mach_ 4 1 4 */ 2765 /*:ref: r1mach_ 6 1 4 */ 2766 extern doublereal phi_(doublereal *x, doublereal *phiprm, real *a, real *b); 2767 extern E_f sasum_(integer *n, real *sx, integer *incx); 2768 extern int svecs_(integer *ncomp, integer *lnfc, real *yhp, real *work, integer *iwork, integer *inhomo, integer *iflag); 2769 /* comlen ml18jr_ 72 */ 2770 /*:ref: mgsbv_ 14 13 4 4 6 4 4 4 6 6 4 4 6 6 6 */ 2771 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); 2772 /* comlen ccblk_ 28 */ 2773 /*:ref: ccmpb_ 14 8 4 4 6 6 6 6 6 6 */ 2774 /*:ref: cblkt1_ 14 19 4 6 6 6 4 8 8 8 4 8 6 6 6 6 6 6 6 200 200 */ 2775 extern int csisl_(complex *a, integer *lda, integer *n, integer *kpvt, complex *b); 2776 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2777 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */ 2778 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); 2779 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 2780 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2781 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 2782 /*:ref: dsort_ 14 4 7 7 4 4 */ 2783 /*:ref: dbndac_ 14 7 7 4 4 4 4 4 4 */ 2784 /*:ref: dfspvn_ 14 6 7 4 4 7 4 7 */ 2785 /*:ref: dscal_ 14 4 4 7 7 4 */ 2786 /*:ref: dbndsl_ 14 9 4 7 4 4 4 4 7 4 7 */ 2787 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); 2788 /*:ref: dqagie_ 14 16 207 7 4 7 7 4 7 7 4 4 7 7 7 7 4 4 */ 2789 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2790 extern E_f gauss_(integer *n, E_fp y, integer *m, S_fp ltbl); 2791 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2792 extern E_f pimach_(real *dum); 2793 extern int saxpy_(integer *n, real *sa, real *sx, integer *incx, real *sy, integer *incy); 2794 extern int svout_(integer *n, real *sx, char *ifmt, integer *idigit, ftnlen ifmt_len); 2795 /*:ref: i1mach_ 4 1 4 */ 2796 extern E_f cbrt_(real *x); 2797 /*:ref: r1mach_ 6 1 4 */ 2798 /*:ref: r9upak_ 14 3 6 6 4 */ 2799 /*:ref: r9pak_ 6 2 6 4 */ 2800 extern int cspco_(complex *ap, integer *n, integer *kpvt, real *rcond, complex *z__); 2801 /*:ref: scasum_ 6 3 4 8 4 */ 2802 /*:ref: cspfa_ 14 4 8 4 4 4 */ 2803 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2804 /*:ref: csscal_ 14 4 4 6 8 4 */ 2805 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */ 2806 extern int defe4_(S_fp cofx, integer *idmn, real *usol, real *grhs); 2807 /* comlen spl4_ 80 */ 2808 /*:ref: dx4_ 14 6 6 4 4 4 6 6 */ 2809 /*:ref: dy4_ 14 6 6 4 4 4 6 6 */ 2810 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); 2811 /*:ref: d1mach_ 7 1 4 */ 2812 /*:ref: dqk15i_ 14 9 207 7 4 7 7 7 7 7 7 */ 2813 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */ 2814 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */ 2815 extern int gaussq_(integer *m, doublereal *t, doublereal *w, doublereal *b, doublereal *g, doublereal *fm); 2816 /*:ref: d1mach_ 6 1 4 */ 2817 extern int pinitm_(integer *m, integer *n, real *sx, integer *ix, integer *lmx, integer *ipagef); 2818 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2819 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); 2820 /*:ref: r1mach_ 6 1 4 */ 2821 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 2822 /*:ref: sbols_ 14 13 6 4 4 4 6 6 4 4 6 6 4 6 4 */ 2823 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2824 /*:ref: sasum_ 6 3 4 6 4 */ 2825 /*:ref: snrm2_ 6 3 4 6 4 */ 2826 /*:ref: sscal_ 14 4 4 6 6 4 */ 2827 extern int swritp_(integer *ipage, integer *list, real *rlist, integer *lpage, integer *irec); 2828 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2829 extern int cbshv_(integer *m, integer *k, real *aa, real *z__); 2830 extern int cspdi_(complex *ap, integer *n, integer *kpvt, complex *det, complex *work, integer *job); 2831 /*:ref: ccopy_ 14 5 4 8 4 8 4 */ 2832 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */ 2833 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2834 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 2835 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); 2836 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); 2837 /*: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 */ 2838 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2839 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); 2840 /*:ref: poisp2_ 14 16 4 4 6 6 6 6 4 6 6 6 6 6 6 6 6 6 */ 2841 /*:ref: poisd2_ 14 13 4 4 4 6 6 6 6 4 6 6 6 6 6 */ 2842 /*:ref: poisn2_ 14 18 4 4 4 4 6 6 6 6 4 6 6 6 6 6 6 6 6 6 */ 2843 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); 2844 /* comlen debdf1_ 1004 */ 2845 /*:ref: vnwrms_ 6 3 4 6 6 */ 2846 /*:ref: sgefa_ 14 5 6 4 4 4 4 */ 2847 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */ 2848 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); 2849 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 2850 /*:ref: isamax_ 4 3 4 6 4 */ 2851 /*:ref: srotg_ 14 4 6 6 6 6 */ 2852 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */ 2853 /*:ref: snrm2_ 6 3 4 6 4 */ 2854 /*:ref: sbolsm_ 14 16 6 4 4 4 6 6 4 4 6 6 4 6 6 6 4 4 */ 2855 extern int tevlc_(integer *n, real *d__, real *e2, integer *ierr); 2856 /* comlen ccblk_ 28 */ 2857 extern C_f ccbrt_(complex * ret_val, complex *z__); 2858 /*:ref: carg_ 6 1 8 */ 2859 /*:ref: cbrt_ 6 1 6 */ 2860 extern int cspfa_(complex *ap, integer *n, integer *kpvt, integer *info); 2861 /*:ref: icamax_ 4 3 4 8 4 */ 2862 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 2863 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2864 extern int defer_(S_fp cofx, S_fp cofy, integer *idmn, real *usol, real *grhs); 2865 /* comlen splpzz_ 80 */ 2866 /*:ref: dx_ 14 6 6 4 4 4 6 6 */ 2867 /*:ref: dy_ 14 6 6 4 4 4 6 6 */ 2868 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); 2869 /*:ref: d1mach_ 7 1 4 */ 2870 /*:ref: dqk21_ 14 7 207 7 7 7 7 7 7 */ 2871 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */ 2872 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */ 2873 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); 2874 /*:ref: stltjs_ 14 10 4 4 7 7 7 4 7 207 6 6 */ 2875 /*:ref: phi_ 7 :*/ 2876 /*:ref: gaussq_ 14 6 4 7 7 7 7 7 */ 2877 extern int pnnzrs_(integer *i__, real *xval, integer *iplace, real *sx, integer *ix, integer *ircx); 2878 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2879 /*:ref: iploc_ 4 3 4 6 4 */ 2880 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); 2881 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 2882 /*:ref: smout_ 14 7 4 4 4 6 13 4 124 */ 2883 /*:ref: svout_ 14 5 4 6 13 4 124 */ 2884 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 2885 /*:ref: snrm2_ 6 3 4 6 4 */ 2886 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2887 /*:ref: ivout_ 14 5 4 4 13 4 124 */ 2888 /*:ref: srotg_ 14 4 6 6 6 6 */ 2889 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 2890 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */ 2891 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2892 /*:ref: r1mach_ 6 1 4 */ 2893 extern int tevls_(integer *n, real *d__, real *e2, integer *ierr); 2894 /* comlen cblkt_ 28 */ 2895 extern int cchdc_(complex *a, integer *lda, integer *p, complex *work, integer *jpvt, integer *job, integer *info); 2896 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 2897 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2898 extern int cspsl_(complex *ap, integer *n, integer *kpvt, complex *b); 2899 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 2900 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */ 2901 extern doublereal dei_(doublereal *x); 2902 /*:ref: de1_ 7 1 7 */ 2903 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); 2904 /*:ref: dqagse_ 14 16 207 7 7 7 7 4 7 7 4 4 7 7 7 7 4 4 */ 2905 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2906 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); 2907 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 2908 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2909 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2910 extern E_f poch_(real *a, real *x); 2911 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2912 /*:ref: fac_ 6 1 4 */ 2913 /*:ref: alnrel_ 6 1 6 */ 2914 /*:ref: r9lgmc_ 6 1 6 */ 2915 /*:ref: gamma_ 6 1 6 */ 2916 /*:ref: gamr_ 6 1 6 */ 2917 /*:ref: cot_ 6 1 6 */ 2918 /*:ref: algams_ 14 3 6 6 6 */ 2919 extern E_f scasum_(integer *n, complex *cx, integer *incx); 2920 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); 2921 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); 2922 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 2923 /*:ref: scnrm2_ 6 3 4 8 4 */ 2924 extern int csroot_(real *xr, real *xi, real *yr, real *yi); 2925 /*:ref: pythag_ 6 2 6 6 */ 2926 extern doublereal denorm_(integer *n, doublereal *x); 2927 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); 2928 /*:ref: d1mach_ 7 1 4 */ 2929 /*:ref: dqk21_ 14 7 207 7 7 7 7 7 7 */ 2930 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */ 2931 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */ 2932 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); 2933 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2934 /*:ref: diff_ 6 2 6 6 */ 2935 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */ 2936 extern E_f poch1_(real *a, real *x); 2937 /*:ref: r1mach_ 6 1 4 */ 2938 /*:ref: psi_ 6 1 6 */ 2939 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2940 /*:ref: exprel_ 6 1 6 */ 2941 /*:ref: cot_ 6 1 6 */ 2942 /*:ref: poch_ 6 2 6 6 */ 2943 extern int schdc_(real *a, integer *lda, integer *p, real *work, integer *jpvt, integer *job, integer *info); 2944 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 2945 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 2946 extern int tql1_(integer *n, real *d__, real *e, integer *ierr); 2947 /*:ref: pythag_ 6 2 6 6 */ 2948 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); 2949 /*:ref: crotg_ 14 4 8 8 6 8 */ 2950 extern int csrot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, real *s); 2951 extern doublereal derf_(doublereal *x); 2952 /*:ref: initds_ 4 3 7 4 6 */ 2953 /*:ref: d1mach_ 7 1 4 */ 2954 /*:ref: dcsevl_ 7 3 7 7 4 */ 2955 /*:ref: derfc_ 7 1 7 */ 2956 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); 2957 /*:ref: dqawce_ 14 17 207 7 7 7 7 7 4 7 7 4 4 7 7 7 7 4 4 */ 2958 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2959 extern int hkseq_(real *x, integer *m, real *h__, integer *ierr); 2960 /*:ref: r1mach_ 6 1 4 */ 2961 /*:ref: i1mach_ 4 1 4 */ 2962 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); 2963 /*:ref: pos3d1_ 14 20 4 4 4 4 4 6 6 6 4 4 6 6 6 6 6 6 6 6 6 6 */ 2964 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); 2965 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 2966 /*:ref: snrm2_ 6 3 4 6 4 */ 2967 extern int tql2_(integer *nm, integer *n, real *d__, real *e, real *z__, integer *ierr); 2968 /*:ref: pythag_ 6 2 6 6 */ 2969 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); 2970 /*:ref: crotg_ 14 4 8 8 6 8 */ 2971 extern int csscal_(integer *n, real *sa, complex *cx, integer *incx); 2972 extern doublereal derfc_(doublereal *x); 2973 /*:ref: d1mach_ 7 1 4 */ 2974 /*:ref: initds_ 4 3 7 4 6 */ 2975 /*:ref: dcsevl_ 7 3 7 7 4 */ 2976 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 2977 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); 2978 /*:ref: d1mach_ 7 1 4 */ 2979 /*:ref: dqc25c_ 14 8 207 7 7 7 7 7 4 4 */ 2980 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */ 2981 extern int hqr_(integer *nm, integer *n, integer *low, integer *igh, real *h__, real *wr, real *wi, integer *ierr); 2982 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); 2983 /*:ref: trix_ 14 10 4 4 4 6 6 6 6 6 6 6 */ 2984 /*:ref: cosgen_ 14 5 4 4 6 6 6 */ 2985 /*:ref: merge_ 14 6 6 4 4 4 4 4 */ 2986 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); 2987 /*:ref: srotg_ 14 4 6 6 6 6 */ 2988 extern int tqlrat_(integer *n, real *d__, real *e2, integer *ierr); 2989 /*:ref: pythag_ 6 2 6 6 */ 2990 extern int ccmpb_(integer *n, integer *ierror, real *an, real *bn, real *cn, real *b, real *ah, real *bh); 2991 /* comlen ccblk_ 28 */ 2992 /*:ref: epmach_ 6 1 6 */ 2993 /*:ref: inxcb_ 14 4 4 4 4 4 */ 2994 /*:ref: tevlc_ 14 4 4 6 6 4 */ 2995 /*:ref: cpadd_ 14 7 4 4 6 6 6 6 6 */ 2996 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); 2997 /*:ref: scnrm2_ 6 3 4 8 4 */ 2998 /*:ref: cscal_ 14 4 4 8 8 4 */ 2999 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 3000 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3001 /*:ref: srotg_ 14 4 6 6 6 6 */ 3002 /*:ref: csrot_ 14 7 4 8 4 8 4 6 6 */ 3003 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 3004 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); 3005 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3006 /*: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 */ 3007 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); 3008 /*: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 */ 3009 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3010 extern int hqr2_(integer *nm, integer *n, integer *low, integer *igh, real *h__, real *wr, real *wi, real *z__, integer *ierr); 3011 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */ 3012 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); 3013 /*:ref: cosgen_ 14 5 4 4 6 6 6 */ 3014 /*:ref: trix_ 14 10 4 4 4 6 6 6 6 6 6 6 */ 3015 /*:ref: merge_ 14 6 6 4 4 4 4 4 */ 3016 /*:ref: tri3_ 14 13 4 6 6 6 4 6 6 6 6 6 6 6 6 */ 3017 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); 3018 /*:ref: srotg_ 14 4 6 6 6 6 */ 3019 extern int trbak1_(integer *nm, integer *n, real *a, real *e, integer *m, real *z__); 3020 extern int ccopy_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy); 3021 extern int cswap_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy); 3022 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); 3023 /*:ref: r1mach_ 6 1 4 */ 3024 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3025 /*:ref: vnorm_ 6 2 6 4 */ 3026 /*:ref: hstart_ 14 17 214 4 6 6 6 6 6 4 6 6 6 6 6 6 6 4 6 */ 3027 /*:ref: defehl_ 14 14 214 4 6 6 6 6 6 6 6 6 6 6 6 4 */ 3028 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); 3029 /*:ref: dqagie_ 14 16 207 7 4 7 7 4 7 7 4 4 7 7 7 7 4 4 */ 3030 /*:ref: d1mach_ 7 1 4 */ 3031 /*: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 */ 3032 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */ 3033 extern int hrmte_(integer *m, integer *k, real *aa, real *z__); 3034 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); 3035 /*:ref: poisd2_ 14 13 4 4 4 6 6 6 6 4 6 6 6 6 6 */ 3036 /*:ref: poisn2_ 14 18 4 4 4 4 6 6 6 6 4 6 6 6 6 6 6 6 6 6 */ 3037 extern int sclosm_(integer *ipage); 3038 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3039 extern int trbak3_(integer *nm, integer *n, integer *nv, real *a, integer *m, real *z__); 3040 extern C_f ccosh_(complex * ret_val, complex *z__); 3041 extern C_f ctan_(complex * ret_val, complex *z__); 3042 /*:ref: r1mach_ 6 1 4 */ 3043 /*:ref: xerclr_ 14 0 */ 3044 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3045 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); 3046 /*:ref: r1mach_ 6 1 4 */ 3047 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3048 /*:ref: sintrp_ 14 17 6 6 6 6 6 4 4 6 4 4 4 6 6 6 6 6 6 */ 3049 /*: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 */ 3050 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); 3051 /*: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 */ 3052 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3053 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__); 3054 /*:ref: vnorm_ 6 2 6 4 */ 3055 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); 3056 /*:ref: postg2_ 14 17 4 4 4 6 6 6 4 6 6 6 6 6 6 6 6 6 6 */ 3057 extern E_f scnrm2_(integer *n, complex *cx, integer *incx); 3058 extern int tred1_(integer *nm, integer *n, real *a, real *d__, real *e, real *e2); 3059 extern C_f ccot_(complex * ret_val, complex *z__); 3060 /*:ref: r1mach_ 6 1 4 */ 3061 /*:ref: xerclr_ 14 0 */ 3062 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3063 extern C_f ctanh_(complex * ret_val, complex *z__); 3064 /*:ref: ctan_ 8 2 8 8 */ 3065 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); 3066 /* comlen dml8sz_ 36 */ 3067 /* comlen dml18j_ 84 */ 3068 /* comlen dml15t_ 148 */ 3069 /* comlen dml17b_ 72 */ 3070 /* comlen dml5mc_ 52 */ 3071 /*: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 */ 3072 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3073 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); 3074 /*:ref: d1mach_ 7 1 4 */ 3075 /*:ref: dqc25f_ 14 15 207 7 7 7 4 4 4 4 7 7 4 7 7 4 7 */ 3076 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */ 3077 /*:ref: dqelg_ 14 6 4 7 7 7 7 4 */ 3078 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); 3079 /*:ref: poistg_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3080 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3081 extern int polcof_(real *xx, integer *n, real *x, real *c__, real *d__, real *work); 3082 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); 3083 /* comlen ml5mco_ 28 */ 3084 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3085 /*:ref: xgetf_ 14 1 4 */ 3086 /*:ref: xsetf_ 14 1 4 */ 3087 /*:ref: suds_ 14 10 6 6 6 4 4 4 4 4 6 4 */ 3088 extern int tred2_(integer *nm, integer *n, real *a, real *d__, real *e, real *z__); 3089 extern C_f cdcdot_(complex * ret_val, integer *n, complex *cb, complex *cx, integer *incx, complex *cy, integer *incy); 3090 extern int ctrco_(complex *t, integer *ldt, integer *n, real *rcond, complex *z__, integer *job); 3091 /*:ref: scasum_ 6 3 4 8 4 */ 3092 /*:ref: csscal_ 14 4 4 6 8 4 */ 3093 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3094 extern int dexint_(doublereal *x, integer *n, integer *kode, integer *m, doublereal *tol, doublereal *en, integer *ierr); 3095 /*:ref: d1mach_ 7 1 4 */ 3096 /*:ref: i1mach_ 4 1 4 */ 3097 /*:ref: dpsixn_ 7 1 4 */ 3098 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3099 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); 3100 /*:ref: dqawse_ 14 19 207 7 7 7 7 4 7 7 4 7 7 4 4 7 7 7 7 4 4 */ 3101 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3102 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); 3103 /*:ref: blktri_ 14 15 4 4 4 6 6 6 4 4 6 6 6 4 6 4 6 */ 3104 extern int polfit_(integer *n, real *x, real *y, real *w, integer *maxdeg, integer *ndeg, real *eps, real *r__, integer *ierr, real *a); 3105 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3106 /*:ref: pvalue_ 14 6 4 4 6 6 6 6 */ 3107 extern int scopy_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 3108 extern int tred3_(integer *n, integer *nv, real *a, real *d__, real *e, real *e2); 3109 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__); 3110 /*:ref: scnrm2_ 6 3 4 8 4 */ 3111 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */ 3112 /*:ref: cgbsl_ 14 8 8 4 4 4 4 4 8 4 */ 3113 /*:ref: users_ 14 12 8 8 8 8 8 6 6 6 4 4 4 4 */ 3114 extern int ctrdi_(complex *t, integer *ldt, integer *n, complex *det, integer *job, integer *info); 3115 /*:ref: cscal_ 14 4 4 8 8 4 */ 3116 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3117 extern doublereal dexprl_(doublereal *x); 3118 /*:ref: d1mach_ 7 1 4 */ 3119 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); 3120 /*:ref: d1mach_ 7 1 4 */ 3121 /*:ref: dqmomo_ 14 7 7 7 7 7 7 7 4 */ 3122 /*:ref: dqc25s_ 14 16 207 7 7 7 7 7 7 7 7 7 7 7 7 7 4 4 */ 3123 /*:ref: dqpsrt_ 14 7 4 4 4 7 7 4 4 */ 3124 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); 3125 /*:ref: pimach_ 6 1 6 */ 3126 /*: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 */ 3127 extern int polint_(integer *n, real *x, real *y, real *c__); 3128 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3129 extern int scopym_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 3130 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); 3131 extern int cdcstb_(integer *maxord, integer *mint, integer *iswflg, real *el, real *tq); 3132 extern int ctrsl_(complex *t, integer *ldt, integer *n, complex *b, integer *job, integer *info); 3133 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3134 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 3135 extern doublereal dfac_(integer *n); 3136 /*:ref: dgamlm_ 14 2 7 7 */ 3137 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3138 /*:ref: d9lgmc_ 7 1 7 */ 3139 extern int dqc25c_(D_fp f, doublereal *a, doublereal *b, doublereal *c__, doublereal *result, doublereal *abserr, integer *krul, integer *neval); 3140 /*:ref: dqk15w_ 14 13 207 207 7 7 7 7 4 7 7 7 7 7 7 */ 3141 /*:ref: dqwgtc_ 7 :*/ 3142 /*:ref: dqcheb_ 14 4 7 7 7 7 */ 3143 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); 3144 /*:ref: poistg_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3145 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3146 extern int polyvl_(integer *nder, real *xx, real *yfit, real *yp, integer *n, real *x, real *c__, real *work, integer *ierr); 3147 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); 3148 /*:ref: enorm_ 6 2 4 6 */ 3149 /*:ref: fdjac3_ 14 10 214 4 4 6 6 6 4 4 6 6 */ 3150 /*:ref: qrfac_ 14 10 4 4 6 4 12 4 4 6 6 6 */ 3151 /*:ref: rwupdt_ 14 8 4 6 4 6 6 6 6 6 */ 3152 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3153 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); 3154 extern int cdiv_(real *ar, real *ai, real *br, real *bi, real *cr, real *ci); 3155 extern E_f cv_(real *xval, integer *ndata, integer *nconst, integer *nord, integer *nbkpt, real *bkpt, real *w); 3156 /*:ref: bsplvn_ 14 6 6 4 4 6 4 6 */ 3157 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3158 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); 3159 /*: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 */ 3160 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); 3161 /*:ref: d1mach_ 7 1 4 */ 3162 /*:ref: dqk15w_ 14 13 207 207 7 7 7 7 4 7 7 7 7 7 7 */ 3163 /*:ref: dqwgtf_ 7 :*/ 3164 /*:ref: dgtsl_ 14 6 4 7 7 7 7 4 */ 3165 /*:ref: dqcheb_ 14 4 7 7 7 7 */ 3166 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); 3167 /*:ref: poistg_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3168 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3169 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); 3170 /*:ref: pimach_ 6 1 6 */ 3171 /*:ref: sinti_ 14 2 4 6 */ 3172 /*:ref: costi_ 14 2 4 6 */ 3173 /*:ref: rffti_ 14 2 4 6 */ 3174 /*:ref: sinqi_ 14 2 4 6 */ 3175 /*:ref: cosqi_ 14 2 4 6 */ 3176 /*:ref: rfftf_ 14 3 4 6 6 */ 3177 /*:ref: rfftb_ 14 3 4 6 6 */ 3178 /*:ref: sint_ 14 3 4 6 6 */ 3179 /*:ref: sinqf_ 14 3 4 6 6 */ 3180 /*:ref: sinqb_ 14 3 4 6 6 */ 3181 /*:ref: cost_ 14 3 4 6 6 */ 3182 /*:ref: cosqf_ 14 3 4 6 6 */ 3183 /*:ref: cosqb_ 14 3 4 6 6 */ 3184 /*:ref: tridq_ 14 6 4 6 6 6 6 6 */ 3185 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__); 3186 /*:ref: snrm2_ 6 3 4 6 4 */ 3187 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */ 3188 /*:ref: sgbsl_ 14 8 6 4 4 4 4 4 6 4 */ 3189 /*:ref: users_ 14 12 6 6 6 6 6 6 6 6 4 4 4 4 */ 3190 extern int tridq_(integer *mr, real *a, real *b, real *c__, real *y, real *d__); 3191 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); 3192 /*:ref: cdcstb_ 14 5 4 4 4 6 6 */ 3193 /*:ref: users_ 14 12 8 8 8 8 8 6 6 6 4 4 4 4 */ 3194 /*:ref: cgefa_ 14 5 8 4 4 4 4 */ 3195 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */ 3196 /*:ref: cgbfa_ 14 7 8 4 4 4 4 4 4 */ 3197 /*:ref: cgbsl_ 14 8 8 4 4 4 4 4 8 4 */ 3198 /*:ref: scnrm2_ 6 3 4 8 4 */ 3199 /*:ref: cdsclb_ 14 8 6 4 4 6 6 6 6 8 */ 3200 extern doublereal d1mach_(integer *i__); 3201 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3202 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); 3203 /*:ref: dbndsl_ 14 9 4 7 4 4 4 4 7 4 7 */ 3204 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 3205 /*:ref: dlsei_ 14 13 7 4 4 4 4 4 7 7 7 7 4 7 4 */ 3206 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3207 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 3208 /*:ref: dsort_ 14 4 7 7 4 4 */ 3209 /*:ref: dbndac_ 14 7 7 4 4 4 4 4 4 */ 3210 /*:ref: dfspvn_ 14 6 7 4 4 7 4 7 */ 3211 /*:ref: dscal_ 14 4 4 7 7 4 */ 3212 /*:ref: dfspvd_ 14 6 7 4 7 4 7 4 */ 3213 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3214 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); 3215 /*:ref: dqk15w_ 14 13 207 207 7 7 7 7 4 7 7 7 7 7 7 */ 3216 /*:ref: dqwgts_ 7 :*/ 3217 /*:ref: dqcheb_ 14 4 7 7 7 7 */ 3218 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); 3219 /*:ref: pimach_ 6 1 6 */ 3220 /*:ref: poistg_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3221 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3222 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); 3223 /*:ref: cosgen_ 14 5 4 4 6 6 6 */ 3224 /*:ref: trix_ 14 10 4 4 4 6 6 6 6 6 6 6 */ 3225 /*:ref: merge_ 14 6 6 4 4 4 4 4 */ 3226 /*:ref: tri3_ 14 13 4 6 6 6 4 6 6 6 6 6 6 6 6 */ 3227 extern int sdcstb_(integer *maxord, integer *mint, integer *iswflg, real *el, real *tq); 3228 extern int tris4_(integer *n, real *a, real *b, real *c__, real *d__, real *u, real *z__); 3229 extern int cdntpb_(real *h__, integer *k, integer *n, integer *nq, real *t, real *tout, complex *yh, complex *y); 3230 extern int d1mpyq_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *v, doublereal *w); 3231 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); 3232 /*:ref: d1mach_ 7 1 4 */ 3233 extern int dqcheb_(doublereal *x, doublereal *fval, doublereal *cheb12, doublereal *cheb24); 3234 extern int htrib3_(integer *nm, integer *n, real *a, real *tau, integer *m, real *zr, real *zi); 3235 extern int ppadd_(integer *n, integer *ierror, real *a, real *c__, complex *cbp, real *bp, real *bh); 3236 /* comlen cblkt_ 28 */ 3237 /*:ref: psgf_ 6 5 6 4 6 6 6 */ 3238 /*:ref: bsrh_ 6 8 6 6 4 6 6 6 206 6 */ 3239 /*:ref: ppsgf_ 6 5 6 4 6 6 6 */ 3240 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); 3241 /*:ref: sdcstb_ 14 5 4 4 4 6 6 */ 3242 /*:ref: users_ 14 12 6 6 6 6 6 6 6 6 4 4 4 4 */ 3243 /*:ref: sgefa_ 14 5 6 4 4 4 4 */ 3244 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */ 3245 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */ 3246 /*:ref: sgbsl_ 14 8 6 4 4 4 4 4 6 4 */ 3247 /*:ref: snrm2_ 6 3 4 6 4 */ 3248 /*:ref: sdsclb_ 14 8 6 4 4 6 6 6 6 6 */ 3249 extern int trisp_(integer *n, real *a, real *b, real *c__, real *d__, real *u, real *z__); 3250 extern C_f cdotc_(complex * ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy); 3251 extern int d1updt_(integer *m, integer *n, doublereal *s, integer *ls, doublereal *u, doublereal *v, doublereal *w, logical *sing); 3252 /*:ref: d1mach_ 7 1 4 */ 3253 extern int dfdjc3_(S_fp fcn, integer *m, integer *n, doublereal *x, doublereal *fvec, doublereal *fjac, integer *ldfjac, integer *iflag, doublereal *epsfcn, doublereal *wa); 3254 /*:ref: d1mach_ 7 1 4 */ 3255 extern doublereal dqdota_(integer *n, doublereal *db, integer *qc, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 3256 /* comlen mpcom_ 68 */ 3257 /*:ref: mpblas_ 14 1 4 */ 3258 /*:ref: mpcdm_ 14 2 7 4 */ 3259 /*:ref: mpadd_ 14 3 4 4 4 */ 3260 /*:ref: mpmul_ 14 3 4 4 4 */ 3261 /*:ref: mpcmd_ 14 2 4 7 */ 3262 extern int htribk_(integer *nm, integer *n, real *ar, real *ai, real *tau, integer *m, real *zr, real *zi); 3263 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); 3264 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3265 /*:ref: i1mach_ 4 1 4 */ 3266 /*:ref: r1mach_ 6 1 4 */ 3267 /*:ref: ppval_ 6 8 4 6 6 4 4 4 6 4 */ 3268 extern int sdntpb_(real *h__, integer *k, integer *n, integer *nq, real *t, real *tout, real *yh, real *y); 3269 extern int trix_(integer *idegbr, integer *idegcr, integer *m, real *a, real *b, real *c__, real *y, real *tcos, real *d__, real *w); 3270 extern C_f cdotu_(complex * ret_val, integer *n, complex *cx, integer *incx, complex *cy, integer *incy); 3271 extern int d9aimp_(doublereal *x, doublereal *ampl, doublereal *theta); 3272 /*:ref: d1mach_ 7 1 4 */ 3273 /*:ref: initds_ 4 3 7 4 6 */ 3274 /*:ref: dcsevl_ 7 3 7 7 4 */ 3275 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3276 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); 3277 extern doublereal dqdoti_(integer *n, doublereal *db, integer *qc, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 3278 /* comlen mpcom_ 68 */ 3279 /*:ref: mpblas_ 14 1 4 */ 3280 /*:ref: mpcdm_ 14 2 7 4 */ 3281 /*:ref: mpadd_ 14 3 4 4 4 */ 3282 /*:ref: mpmul_ 14 3 4 4 4 */ 3283 /*:ref: mpcmd_ 14 2 4 7 */ 3284 extern int htrid3_(integer *nm, integer *n, real *a, real *d__, real *e, real *e2, real *tau); 3285 /*:ref: pythag_ 6 2 6 6 */ 3286 extern E_f ppgsf_(real *x, integer *iz, real *c__, real *a, real *bh); 3287 extern E_f sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 3288 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); 3289 extern int cdpscb_(integer *ksgn, integer *n, integer *nq, complex *yh); 3290 extern doublereal d9atn1_(doublereal *x); 3291 /*:ref: d1mach_ 7 1 4 */ 3292 /*:ref: initds_ 4 3 7 4 6 */ 3293 /*:ref: dcsevl_ 7 3 7 7 4 */ 3294 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3295 extern int dfspvd_(doublereal *t, integer *k, doublereal *x, integer *ileft, doublereal *vnikx, integer *nderiv); 3296 /*:ref: dfspvn_ 14 6 7 4 4 7 4 7 */ 3297 extern int dqelg_(integer *n, doublereal *epstab, doublereal *result, doublereal *abserr, doublereal *res3la, integer *nres); 3298 /*:ref: d1mach_ 7 1 4 */ 3299 extern int htridi_(integer *nm, integer *n, real *ar, real *ai, real *d__, real *e, real *e2, real *tau); 3300 /*:ref: pythag_ 6 2 6 6 */ 3301 extern E_f pppsf_(real *x, integer *iz, real *c__, real *a, real *bh); 3302 extern int sdpscb_(integer *ksgn, integer *n, integer *nq, real *yh); 3303 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); 3304 /*:ref: snrm2_ 6 3 4 6 4 */ 3305 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3306 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 3307 /*:ref: iswap_ 14 5 4 4 4 4 4 */ 3308 /*:ref: isamax_ 4 3 4 6 4 */ 3309 /*:ref: sscal_ 14 4 4 6 6 4 */ 3310 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3311 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3312 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); 3313 /*:ref: scnrm2_ 6 3 4 8 4 */ 3314 /*:ref: cgefa_ 14 5 8 4 4 4 4 */ 3315 /*:ref: cgbfa_ 14 7 8 4 4 4 4 4 4 */ 3316 /*:ref: users_ 14 12 8 8 8 8 8 6 6 6 4 4 4 4 */ 3317 extern int d9b0mp_(doublereal *x, doublereal *ampl, doublereal *theta); 3318 /*:ref: d1mach_ 7 1 4 */ 3319 /*:ref: initds_ 4 3 7 4 6 */ 3320 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3321 /*:ref: dcsevl_ 7 3 7 7 4 */ 3322 extern int dfspvn_(doublereal *t, integer *jhigh, integer *index, doublereal *x, integer *ileft, doublereal *vnikx); 3323 extern int dqform_(integer *m, integer *n, doublereal *q, integer *ldq, doublereal *wa); 3324 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); 3325 /*:ref: pois3d_ 14 16 4 4 6 4 4 6 4 4 6 6 6 4 4 6 4 6 */ 3326 extern int ppqad_(integer *ldc, real *c__, real *xi, integer *lxi, integer *k, real *x1, real *x2, real *pquad); 3327 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */ 3328 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3329 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); 3330 /*:ref: snrm2_ 6 3 4 6 4 */ 3331 /*:ref: sgefa_ 14 5 6 4 4 4 4 */ 3332 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */ 3333 /*:ref: users_ 14 12 6 6 6 6 6 6 6 6 4 4 4 4 */ 3334 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); 3335 /*:ref: snrm2_ 6 3 4 6 4 */ 3336 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3337 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 3338 /*:ref: iswap_ 14 5 4 4 4 4 4 */ 3339 /*:ref: isamax_ 4 3 4 6 4 */ 3340 /*:ref: sscal_ 14 4 4 6 6 4 */ 3341 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3342 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3343 extern int cdrvb1_(integer *n, real *t, complex *y, real *tout, integer *mstate, real *eps, complex *work, integer *lenw); 3344 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3345 /*:ref: r1mach_ 6 1 4 */ 3346 /*: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 */ 3347 /*:ref: g_ 6 :*/ 3348 extern int d9b1mp_(doublereal *x, doublereal *ampl, doublereal *theta); 3349 /*:ref: d1mach_ 7 1 4 */ 3350 /*:ref: initds_ 4 3 7 4 6 */ 3351 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3352 /*:ref: dcsevl_ 7 3 7 7 4 */ 3353 extern int dfulmt_(integer *i__, integer *j, doublereal *aij, integer *indcat, doublereal *prgopt, doublereal *dattrv, integer *iflag); 3354 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3355 extern int dqk15_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc); 3356 /*:ref: d1mach_ 7 1 4 */ 3357 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); 3358 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3359 extern E_f ppsgf_(real *x, integer *iz, real *c__, real *a, real *bh); 3360 extern int sdrvb1_(integer *n, real *t, real *y, real *tout, integer *mstate, real *eps, real *work, integer *lenw); 3361 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3362 /*:ref: r1mach_ 6 1 4 */ 3363 /*: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 */ 3364 /*:ref: g_ 6 :*/ 3365 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); 3366 /*:ref: snrm2_ 6 3 4 6 4 */ 3367 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3368 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3369 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 3370 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); 3371 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3372 /*:ref: r1mach_ 6 1 4 */ 3373 /*: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 */ 3374 extern doublereal d9chu_(doublereal *a, doublereal *b, doublereal *z__); 3375 /*:ref: d1mach_ 7 1 4 */ 3376 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3377 extern int dfzero_(D_fp f, doublereal *b, doublereal *c__, doublereal *r__, doublereal *re, doublereal *ae, integer *iflag); 3378 /*:ref: d1mach_ 7 1 4 */ 3379 extern int dqk15i_(D_fp f, doublereal *boun, integer *inf, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc); 3380 /*:ref: d1mach_ 7 1 4 */ 3381 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); 3382 /*:ref: pimach_ 6 1 6 */ 3383 /*:ref: epmach_ 6 1 6 */ 3384 /*:ref: blktri_ 14 15 4 4 4 6 6 6 4 4 6 6 6 4 6 4 6 */ 3385 extern E_f ppspf_(real *x, integer *iz, real *c__, real *a, real *bh); 3386 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); 3387 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3388 /*:ref: r1mach_ 6 1 4 */ 3389 /*: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 */ 3390 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); 3391 /*:ref: snrm2_ 6 3 4 6 4 */ 3392 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3393 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3394 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 3395 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); 3396 /*:ref: r1mach_ 6 1 4 */ 3397 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3398 /*:ref: cdntpb_ 14 8 6 4 4 4 6 6 8 8 */ 3399 /*:ref: users_ 14 12 8 8 8 8 8 6 6 8 4 4 4 4 */ 3400 /*:ref: cgefa_ 14 5 8 4 4 4 4 */ 3401 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */ 3402 /*:ref: cgbfa_ 14 7 8 4 4 4 4 4 4 */ 3403 /*:ref: cgbsl_ 14 8 8 4 4 4 4 4 8 4 */ 3404 /*:ref: scnrm2_ 6 3 4 8 4 */ 3405 /*: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 */ 3406 /*:ref: cdzrob_ 14 15 6 206 6 4 4 4 6 6 8 6 6 6 6 6 8 */ 3407 extern doublereal d9gmic_(doublereal *a, doublereal *x, doublereal *alx); 3408 /*:ref: d1mach_ 7 1 4 */ 3409 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3410 /*:ref: dlngam_ 7 1 7 */ 3411 extern doublereal dgami_(doublereal *a, doublereal *x); 3412 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3413 /*:ref: dlngam_ 7 1 7 */ 3414 /*:ref: dgamit_ 7 2 7 7 */ 3415 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); 3416 /*:ref: d1mach_ 7 1 4 */ 3417 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); 3418 /*:ref: pimach_ 6 1 6 */ 3419 /*: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 */ 3420 extern E_f ppval_(integer *ldc, real *c__, real *xi, integer *lxi, integer *k, integer *ideriv, real *x, integer *inppv); 3421 /*:ref: intrv_ 14 6 6 4 6 4 4 4 */ 3422 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3423 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); 3424 /*:ref: r1mach_ 6 1 4 */ 3425 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3426 /*:ref: sdntpb_ 14 8 6 4 4 4 6 6 6 6 */ 3427 /*:ref: users_ 14 12 6 6 6 6 6 6 6 6 4 4 4 4 */ 3428 /*:ref: sgefa_ 14 5 6 4 4 4 4 */ 3429 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */ 3430 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */ 3431 /*:ref: sgbsl_ 14 8 6 4 4 4 4 4 6 4 */ 3432 /*:ref: snrm2_ 6 3 4 6 4 */ 3433 /*: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 */ 3434 /*:ref: sdzrob_ 14 15 6 206 6 4 4 4 6 6 6 6 6 6 6 6 6 */ 3435 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); 3436 /*:ref: r1mach_ 6 1 4 */ 3437 /*:ref: u11us_ 14 15 6 4 4 4 6 6 4 4 4 4 6 6 6 4 4 */ 3438 /*:ref: u12us_ 14 14 6 4 4 4 6 4 4 4 4 6 6 6 4 4 */ 3439 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3440 extern int cdsclb_(real *hmax, integer *n, integer *nq, real *rmax, real *h__, real *rc, real *rh, complex *yh); 3441 extern doublereal d9gmit_(doublereal *a, doublereal *x, doublereal *algap1, doublereal *sgngam, doublereal *alx); 3442 /*:ref: d1mach_ 7 1 4 */ 3443 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3444 /*:ref: dlngam_ 7 1 7 */ 3445 extern doublereal dgamic_(doublereal *a, doublereal *x); 3446 /*:ref: d1mach_ 7 1 4 */ 3447 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3448 /*:ref: dlngam_ 7 1 7 */ 3449 /*:ref: d9gmic_ 7 3 7 7 7 */ 3450 /*:ref: dlgams_ 14 3 7 7 7 */ 3451 /*:ref: d9gmit_ 7 5 7 7 7 7 7 */ 3452 /*:ref: d9lgic_ 7 3 7 7 7 */ 3453 /*:ref: d9lgit_ 7 3 7 7 7 */ 3454 /*:ref: xerclr_ 14 0 */ 3455 extern int dqk21_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc); 3456 /*:ref: d1mach_ 7 1 4 */ 3457 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); 3458 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3459 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); 3460 extern int sdsclb_(real *hmax, integer *n, integer *nq, real *rmax, real *h__, real *rc, real *rh, real *yh); 3461 extern int usrmat_(integer *i__, integer *j, real *aij, integer *indcat, real *prgopt, real *dattrv, integer *iflag); 3462 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); 3463 /*: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 */ 3464 /*:ref: cdpscb_ 14 4 4 4 4 8 */ 3465 /*: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 */ 3466 /*: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 */ 3467 /*:ref: scnrm2_ 6 3 4 8 4 */ 3468 /*:ref: cdsclb_ 14 8 6 4 4 6 6 6 6 8 */ 3469 /*:ref: cdcstb_ 14 5 4 4 4 6 6 */ 3470 extern int d9knus_(doublereal *xnu, doublereal *x, doublereal *bknu, doublereal *bknu1, integer *iswtch); 3471 /*:ref: d1mach_ 7 1 4 */ 3472 /*:ref: initds_ 4 3 7 4 6 */ 3473 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3474 /*:ref: dgamma_ 7 1 7 */ 3475 /*:ref: dcsevl_ 7 3 7 7 4 */ 3476 extern doublereal dgamit_(doublereal *a, doublereal *x); 3477 /*:ref: d1mach_ 7 1 4 */ 3478 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3479 /*:ref: dgamr_ 7 1 7 */ 3480 /*:ref: dlgams_ 14 3 7 7 7 */ 3481 /*:ref: d9gmit_ 7 5 7 7 7 7 7 */ 3482 /*:ref: d9lgit_ 7 3 7 7 7 */ 3483 /*:ref: dlngam_ 7 1 7 */ 3484 /*:ref: xerclr_ 14 0 */ 3485 /*:ref: d9lgic_ 7 3 7 7 7 */ 3486 extern int dqk31_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc); 3487 /*:ref: d1mach_ 7 1 4 */ 3488 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); 3489 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3490 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); 3491 extern E_f sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, integer *incy); 3492 extern E_f vnorm_(real *v, integer *ncomp); 3493 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); 3494 /*:ref: cdntpb_ 14 8 6 4 4 4 6 6 8 8 */ 3495 extern doublereal d9lgic_(doublereal *a, doublereal *x, doublereal *alx); 3496 /*:ref: d1mach_ 7 1 4 */ 3497 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3498 extern int dgamlm_(doublereal *xmin, doublereal *xmax); 3499 /*:ref: d1mach_ 7 1 4 */ 3500 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3501 extern int dqk41_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc); 3502 /*:ref: d1mach_ 7 1 4 */ 3503 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__); 3504 /*:ref: pimach_ 6 1 6 */ 3505 /*:ref: genbun_ 14 11 4 4 4 4 6 6 6 4 6 4 6 */ 3506 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); 3507 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); 3508 /*: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 */ 3509 /*:ref: sdpscb_ 14 4 4 4 4 6 */ 3510 /*: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 */ 3511 /*: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 */ 3512 /*:ref: snrm2_ 6 3 4 6 4 */ 3513 /*:ref: sdsclb_ 14 8 6 4 4 6 6 6 6 6 */ 3514 /*:ref: sdcstb_ 14 5 4 4 4 6 6 */ 3515 extern E_f vnwrms_(integer *n, real *v, real *w); 3516 extern C_f cexprl_(complex * ret_val, complex *z__); 3517 /*:ref: r1mach_ 6 1 4 */ 3518 extern doublereal d9lgit_(doublereal *a, doublereal *x, doublereal *algap1); 3519 /*:ref: d1mach_ 7 1 4 */ 3520 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3521 extern doublereal dgamma_(doublereal *x); 3522 /*:ref: initds_ 4 3 7 4 6 */ 3523 /*:ref: d1mach_ 7 1 4 */ 3524 /*:ref: dgamlm_ 14 2 7 7 */ 3525 /*:ref: dcsevl_ 7 3 7 7 4 */ 3526 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3527 /*:ref: d9lgmc_ 7 1 7 */ 3528 extern int dqk51_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc); 3529 /*:ref: d1mach_ 7 1 4 */ 3530 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); 3531 /*:ref: pimach_ 6 1 6 */ 3532 /*: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 */ 3533 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); 3534 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); 3535 /*:ref: sdntpb_ 14 8 6 4 4 4 6 6 6 6 */ 3536 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); 3537 /*:ref: srotmg_ 14 5 6 6 6 6 6 */ 3538 /*:ref: srotm_ 14 6 4 6 4 6 4 6 */ 3539 /*:ref: isamax_ 4 3 4 6 4 */ 3540 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 3541 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 3542 /*:ref: sscal_ 14 4 4 6 6 4 */ 3543 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */ 3544 extern int cfftb_(integer *n, complex *c__, real *wsave); 3545 /*:ref: cfftb1_ 14 5 4 8 6 6 6 */ 3546 extern doublereal d9lgmc_(doublereal *x); 3547 /*:ref: initds_ 4 3 7 4 6 */ 3548 /*:ref: d1mach_ 7 1 4 */ 3549 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3550 /*:ref: dcsevl_ 7 3 7 7 4 */ 3551 extern doublereal dgamr_(doublereal *x); 3552 /*:ref: xgetf_ 14 1 4 */ 3553 /*:ref: xsetf_ 14 1 4 */ 3554 /*:ref: dgamma_ 7 1 7 */ 3555 /*:ref: xerclr_ 14 0 */ 3556 /*:ref: dlgams_ 14 3 7 7 7 */ 3557 extern int dqk61_(D_fp f, doublereal *a, doublereal *b, doublereal *result, doublereal *abserr, doublereal *resabs, doublereal *resasc); 3558 /*:ref: d1mach_ 7 1 4 */ 3559 extern integer i1mach_(integer *i__); 3560 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3561 extern E_f prvec_(integer *m, real *u, real *v); 3562 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3563 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); 3564 /*:ref: chkprm_ 14 14 4 4 6 6 4 4 6 6 4 4 200 200 4 4 */ 3565 /*: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 */ 3566 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__); 3567 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 3568 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3569 /*:ref: snrm2_ 6 3 4 6 4 */ 3570 /*:ref: sscal_ 14 4 4 6 6 4 */ 3571 /*:ref: sasum_ 6 3 4 6 4 */ 3572 /*:ref: isamax_ 4 3 4 6 4 */ 3573 /*:ref: wnlit_ 14 13 6 4 4 4 4 4 4 6 6 6 4 6 12 */ 3574 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 3575 /*:ref: srotmg_ 14 5 6 6 6 6 6 */ 3576 /*:ref: srotm_ 14 6 4 6 4 6 4 6 */ 3577 /*:ref: h12_ 14 11 4 4 4 4 6 4 6 6 4 4 4 */ 3578 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3579 extern int cfftb1_(integer *n, real *c__, real *ch, real *wa, integer *ifac); 3580 /*:ref: passb4_ 14 7 4 4 6 6 6 6 6 */ 3581 /*:ref: passb2_ 14 5 4 4 6 6 6 */ 3582 /*:ref: passb3_ 14 6 4 4 6 6 6 6 */ 3583 /*:ref: passb5_ 14 8 4 4 6 6 6 6 6 6 */ 3584 /*:ref: passb_ 14 11 4 4 4 4 4 6 6 6 6 6 6 */ 3585 extern doublereal d9ln2r_(doublereal *x); 3586 /*:ref: d1mach_ 7 1 4 */ 3587 /*:ref: initds_ 4 3 7 4 6 */ 3588 /*:ref: dcsevl_ 7 3 7 7 4 */ 3589 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3590 extern doublereal dgamrn_(doublereal *x); 3591 /*:ref: d1mach_ 7 1 4 */ 3592 /*:ref: i1mach_ 4 1 4 */ 3593 extern int dqmomo_(doublereal *alfa, doublereal *beta, doublereal *ri, doublereal *rj, doublereal *rg, doublereal *rh, integer *integr); 3594 extern integer icamax_(integer *n, complex *cx, integer *incx); 3595 extern int prwpge_(integer *key, integer *ipage, integer *lpg, real *sx, integer *ix); 3596 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3597 /*:ref: prwvir_ 14 5 4 4 4 6 4 */ 3598 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); 3599 /*:ref: chkpr4_ 14 12 4 6 6 4 4 6 6 4 4 200 4 4 */ 3600 /*: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 */ 3601 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); 3602 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3603 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3604 /*:ref: wnlsm_ 14 18 6 4 4 4 4 4 6 6 6 4 4 4 6 6 6 6 6 6 */ 3605 extern int cfftf_(integer *n, complex *c__, real *wsave); 3606 /*:ref: cfftf1_ 14 5 4 8 6 6 6 */ 3607 extern doublereal d9pak_(doublereal *y, integer *n); 3608 /*:ref: i1mach_ 4 1 4 */ 3609 /*:ref: d1mach_ 7 1 4 */ 3610 /*:ref: d9upak_ 14 3 7 7 4 */ 3611 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3612 extern int dgaus8_(D_fp fun, doublereal *a, doublereal *b, doublereal *err, doublereal *ans, integer *ierr); 3613 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3614 /*:ref: d1mach_ 7 1 4 */ 3615 /*:ref: i1mach_ 4 1 4 */ 3616 extern int dqnc79_(D_fp fun, doublereal *a, doublereal *b, doublereal *err, doublereal *ans, integer *ierr, integer *k); 3617 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3618 /*:ref: d1mach_ 7 1 4 */ 3619 /*:ref: i1mach_ 4 1 4 */ 3620 extern integer idamax_(integer *n, doublereal *dx, integer *incx); 3621 extern int prwvir_(integer *key, integer *ipage, integer *lpg, real *sx, integer *ix); 3622 /*:ref: sopenm_ 14 2 4 4 */ 3623 /*:ref: sreadp_ 14 5 4 4 6 4 4 */ 3624 /*:ref: swritp_ 14 5 4 4 6 4 4 */ 3625 extern int sgbco_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, real *z__); 3626 /*:ref: sasum_ 6 3 4 6 4 */ 3627 /*:ref: sgbfa_ 14 7 6 4 4 4 4 4 4 */ 3628 /*:ref: sscal_ 14 4 4 6 6 4 */ 3629 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3630 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3631 extern int xerabt_(char *messg, integer *nmessg, ftnlen messg_len); 3632 extern int cfftf1_(integer *n, real *c__, real *ch, real *wa, integer *ifac); 3633 /*:ref: passf4_ 14 7 4 4 6 6 6 6 6 */ 3634 /*:ref: passf2_ 14 5 4 4 6 6 6 */ 3635 /*:ref: passf3_ 14 6 4 4 6 6 6 6 */ 3636 /*:ref: passf5_ 14 8 4 4 6 6 6 6 6 6 */ 3637 /*:ref: passf_ 14 11 4 4 4 4 4 6 6 6 6 6 6 */ 3638 extern int d9upak_(doublereal *x, doublereal *y, integer *n); 3639 extern int dgbco_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *rcond, doublereal *z__); 3640 /*:ref: dasum_ 7 3 4 7 4 */ 3641 /*:ref: dgbfa_ 14 7 7 4 4 4 4 4 4 */ 3642 /*:ref: dscal_ 14 4 4 7 7 4 */ 3643 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 3644 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3645 extern int dqng_(D_fp f, doublereal *a, doublereal *b, doublereal *epsabs, doublereal *epsrel, doublereal *result, doublereal *abserr, integer *neval, integer *ier); 3646 /*:ref: d1mach_ 7 1 4 */ 3647 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3648 extern int imtql1_(integer *n, real *d__, real *e, integer *ierr); 3649 /*:ref: pythag_ 6 2 6 6 */ 3650 extern E_f psgf_(real *x, integer *iz, real *c__, real *a, real *bh); 3651 extern int sgbdi_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *det); 3652 extern int xerclr_(void); 3653 /*:ref: j4save_ 4 3 4 4 12 */ 3654 extern int cffti_(integer *n, real *wsave); 3655 /*:ref: cffti1_ 14 3 4 6 6 */ 3656 extern doublereal dacosh_(doublereal *x); 3657 /*:ref: d1mach_ 7 1 4 */ 3658 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3659 extern int dgbdi_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *det); 3660 extern int dqpsrt_(integer *limit, integer *last, integer *maxerr, doublereal *ermax, doublereal *elist, integer *iord, integer *nrmax); 3661 extern int imtql2_(integer *nm, integer *n, real *d__, real *e, real *z__, integer *ierr); 3662 /*:ref: pythag_ 6 2 6 6 */ 3663 extern E_f psi_(real *x); 3664 /*:ref: inits_ 4 3 6 4 6 */ 3665 /*:ref: r1mach_ 6 1 4 */ 3666 /*:ref: csevl_ 6 3 6 6 4 */ 3667 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3668 /*:ref: cot_ 6 1 6 */ 3669 extern int sgbfa_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info); 3670 /*:ref: isamax_ 4 3 4 6 4 */ 3671 /*:ref: sscal_ 14 4 4 6 6 4 */ 3672 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3673 extern int xerctl_(char *messg1, integer *nmessg, integer *nerr, integer *level, integer *kontrl, ftnlen messg1_len); 3674 extern int cffti1_(integer *n, real *wa, integer *ifac); 3675 extern doublereal dai_(doublereal *x); 3676 /*:ref: initds_ 4 3 7 4 6 */ 3677 /*:ref: d1mach_ 7 1 4 */ 3678 /*:ref: d9aimp_ 14 3 7 7 7 */ 3679 /*:ref: dcsevl_ 7 3 7 7 4 */ 3680 /*:ref: daie_ 7 1 7 */ 3681 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3682 extern int dgbfa_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info); 3683 /*:ref: idamax_ 4 3 4 7 4 */ 3684 /*:ref: dscal_ 14 4 4 7 7 4 */ 3685 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3686 extern int dqrdc_(doublereal *x, integer *ldx, integer *n, integer *p, doublereal *qraux, integer *jpvt, doublereal *work, integer *job); 3687 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 3688 /*:ref: dnrm2_ 7 3 4 7 4 */ 3689 /*:ref: dscal_ 14 4 4 7 7 4 */ 3690 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 3691 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3692 extern int imtqlv_(integer *n, real *d__, real *e, real *e2, real *w, integer *ind, integer *ierr, real *rv1); 3693 /*:ref: pythag_ 6 2 6 6 */ 3694 extern int psifn_(real *x, integer *n, integer *kode, integer *m, real *ans, integer *nz, integer *ierr); 3695 /*:ref: i1mach_ 4 1 4 */ 3696 /*:ref: r1mach_ 6 1 4 */ 3697 extern int sgbsl_(real *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *b, integer *job); 3698 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3699 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3700 extern int xerdmp_(void); 3701 /*:ref: xersav_ 14 6 13 4 4 4 4 124 */ 3702 extern int cfod_(integer *meth, real *elco, real *tesco); 3703 extern doublereal daie_(doublereal *x); 3704 /*:ref: d1mach_ 7 1 4 */ 3705 /*:ref: initds_ 4 3 7 4 6 */ 3706 /*:ref: d9aimp_ 14 3 7 7 7 */ 3707 /*:ref: dcsevl_ 7 3 7 7 4 */ 3708 extern int dgbsl_(doublereal *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, doublereal *b, integer *job); 3709 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3710 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 3711 extern int dqrfac_(integer *m, integer *n, doublereal *a, integer *lda, logical *pivot, integer *ipvt, integer *lipvt, doublereal *sigma, doublereal *acnorm, doublereal *wa); 3712 /*:ref: d1mach_ 7 1 4 */ 3713 /*:ref: denorm_ 7 2 4 7 */ 3714 extern int indxa_(integer *i__, integer *ir, integer *idxa, integer *na); 3715 /* comlen cblkt_ 28 */ 3716 extern E_f psixn_(integer *n); 3717 /*:ref: r1mach_ 6 1 4 */ 3718 extern int sgeco_(real *a, integer *lda, integer *n, integer *ipvt, real *rcond, real *z__); 3719 /*:ref: sasum_ 6 3 4 6 4 */ 3720 /*:ref: sgefa_ 14 5 6 4 4 4 4 */ 3721 /*:ref: sscal_ 14 4 4 6 6 4 */ 3722 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3723 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3724 extern int xermax_(integer *max__); 3725 /*:ref: j4save_ 4 3 4 4 12 */ 3726 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); 3727 /*:ref: cbal_ 14 7 4 4 6 6 4 4 6 */ 3728 /*:ref: corth_ 14 8 4 4 4 4 6 6 6 6 */ 3729 /*:ref: comqr_ 14 9 4 4 4 4 6 6 6 6 4 */ 3730 /*:ref: comqr2_ 14 13 4 4 4 4 6 6 6 6 6 6 6 6 4 */ 3731 /*:ref: cbabk2_ 14 8 4 4 4 4 6 4 6 6 */ 3732 extern doublereal dasinh_(doublereal *x); 3733 /*:ref: initds_ 4 3 7 4 6 */ 3734 /*:ref: d1mach_ 7 1 4 */ 3735 /*:ref: dcsevl_ 7 3 7 7 4 */ 3736 extern int dgeco_(doublereal *a, integer *lda, integer *n, integer *ipvt, doublereal *rcond, doublereal *z__); 3737 /*:ref: dasum_ 7 3 4 7 4 */ 3738 /*:ref: dgefa_ 14 5 7 4 4 4 4 */ 3739 /*:ref: dscal_ 14 4 4 7 7 4 */ 3740 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 3741 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3742 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); 3743 /*:ref: dcopy_ 14 5 4 7 4 7 4 */ 3744 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 3745 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3746 extern int indxb_(integer *i__, integer *ir, integer *idx, integer *idp); 3747 /* comlen cblkt_ 28 */ 3748 extern int pvalue_(integer *l, integer *nder, real *x, real *yfit, real *yp, real *a); 3749 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3750 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3751 extern int sgedi_(real *a, integer *lda, integer *n, integer *ipvt, real *det, real *work, integer *job); 3752 /*:ref: sscal_ 14 4 4 6 6 4 */ 3753 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3754 /*:ref: sswap_ 14 5 4 6 4 6 4 */ 3755 extern int xerprt_(char *messg, integer *nmessg, ftnlen messg_len); 3756 /*:ref: xgetua_ 14 2 4 4 */ 3757 /*:ref: i1mach_ 4 1 4 */ 3758 extern C_f cgamma_(complex * ret_val, complex *z__); 3759 /*:ref: clngam_ 8 2 8 8 */ 3760 extern doublereal dasum_(integer *n, doublereal *dx, integer *incx); 3761 extern int dgedi_(doublereal *a, integer *lda, integer *n, integer *ipvt, doublereal *det, doublereal *work, integer *job); 3762 /*:ref: dscal_ 14 4 4 7 7 4 */ 3763 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3764 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 3765 extern int dqrslv_(integer *n, doublereal *r__, integer *ldr, integer *ipvt, doublereal *diag, doublereal *qtb, doublereal *x, doublereal *sigma, doublereal *wa); 3766 extern int indxc_(integer *i__, integer *ir, integer *idxc, integer *nc); 3767 /* comlen cblkt_ 28 */ 3768 extern E_f pythag_(real *a, real *b); 3769 extern int sgeev_(real *a, integer *lda, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info); 3770 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3771 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 3772 /*:ref: balanc_ 14 6 4 4 6 4 4 6 */ 3773 /*:ref: orthes_ 14 6 4 4 4 4 6 6 */ 3774 /*:ref: hqr_ 14 8 4 4 4 4 6 6 6 4 */ 3775 /*:ref: ortran_ 14 7 4 4 4 4 6 6 6 */ 3776 /*:ref: hqr2_ 14 9 4 4 4 4 6 6 6 6 4 */ 3777 /*:ref: balbak_ 14 7 4 4 4 4 6 4 6 */ 3778 /*:ref: scopym_ 14 5 4 6 4 6 4 */ 3779 extern int xerror_(char *messg, integer *nmessg, integer *nerr, integer *level, ftnlen messg_len); 3780 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3781 extern C_f cgamr_(complex * ret_val, complex *z__); 3782 /*:ref: xgetf_ 14 1 4 */ 3783 /*:ref: xsetf_ 14 1 4 */ 3784 /*:ref: clngam_ 8 2 8 8 */ 3785 /*:ref: xerclr_ 14 0 */ 3786 extern int dasyik_(doublereal *x, doublereal *fnu, integer *kode, doublereal *flgik, doublereal *ra, doublereal *arg, integer *in, doublereal *y); 3787 /*:ref: d1mach_ 7 1 4 */ 3788 extern int dgefa_(doublereal *a, integer *lda, integer *n, integer *ipvt, integer *info); 3789 /*:ref: idamax_ 4 3 4 7 4 */ 3790 /*:ref: dscal_ 14 4 4 7 7 4 */ 3791 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3792 extern doublereal dqwgtc_(doublereal *x, doublereal *c__, doublereal *p2, doublereal *p3, doublereal *p4, integer *kp); 3793 extern integer initds_(doublereal *dos, integer *nos, real *eta); 3794 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3795 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); 3796 /*:ref: qage_ 14 17 206 6 6 6 6 4 4 6 6 4 4 6 6 6 6 4 4 */ 3797 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3798 extern int sgefa_(real *a, integer *lda, integer *n, integer *ipvt, integer *info); 3799 /*:ref: isamax_ 4 3 4 6 4 */ 3800 /*:ref: sscal_ 14 4 4 6 6 4 */ 3801 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3802 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); 3803 /*:ref: j4save_ 4 3 4 4 12 */ 3804 /*:ref: xerprt_ 14 3 13 4 124 */ 3805 /*:ref: fdump_ 14 0 */ 3806 /*:ref: xersav_ 14 6 13 4 4 4 4 124 */ 3807 /*:ref: xerabt_ 14 3 13 4 124 */ 3808 /*:ref: xerctl_ 14 6 13 4 4 4 4 124 */ 3809 /*:ref: xgetua_ 14 2 4 4 */ 3810 /*:ref: i1mach_ 4 1 4 */ 3811 extern int cgbco_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, real *rcond, complex *z__); 3812 /*:ref: scasum_ 6 3 4 8 4 */ 3813 /*:ref: cgbfa_ 14 7 8 4 4 4 4 4 4 */ 3814 /*:ref: csscal_ 14 4 4 6 8 4 */ 3815 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 3816 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3817 extern int dasyjy_(S_fp funjy, doublereal *x, doublereal *fnu, doublereal *flgjy, integer *in, doublereal *y, doublereal *wk, integer *iflw); 3818 /*:ref: d1mach_ 7 1 4 */ 3819 /*:ref: i1mach_ 4 1 4 */ 3820 extern int dgefs_(doublereal *a, integer *lda, integer *n, doublereal *v, integer *itask, integer *ind, doublereal *work, integer *iwork); 3821 /*:ref: dgeco_ 14 6 7 4 4 4 7 7 */ 3822 /*:ref: d1mach_ 7 1 4 */ 3823 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3824 /*:ref: dgesl_ 14 6 7 4 4 4 7 4 */ 3825 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 3826 extern doublereal dqwgtf_(doublereal *x, doublereal *omega, doublereal *p2, doublereal *p3, doublereal *p4, integer *integr); 3827 extern integer inits_(real *os, integer *nos, real *eta); 3828 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3829 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); 3830 /*:ref: r1mach_ 6 1 4 */ 3831 /*:ref: qk15_ 14 7 206 6 6 6 6 6 6 */ 3832 /*:ref: qk21_ 14 7 206 6 6 6 6 6 6 */ 3833 /*:ref: qk31_ 14 7 206 6 6 6 6 6 6 */ 3834 /*:ref: qk41_ 14 7 206 6 6 6 6 6 6 */ 3835 /*:ref: qk51_ 14 7 206 6 6 6 6 6 6 */ 3836 /*:ref: qk61_ 14 7 206 6 6 6 6 6 6 */ 3837 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */ 3838 extern int sgefs_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work, integer *iwork); 3839 /*:ref: sgeco_ 14 6 6 4 4 4 6 6 */ 3840 /*:ref: r1mach_ 6 1 4 */ 3841 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3842 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */ 3843 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 3844 extern int xersav_(char *messg, integer *nmessg, integer *nerr, integer *level, integer *icount, ftnlen messg_len); 3845 /*:ref: xgetua_ 14 2 4 4 */ 3846 /*:ref: i1mach_ 4 1 4 */ 3847 extern int cgbdi_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *det); 3848 extern doublereal datanh_(doublereal *x); 3849 /*:ref: initds_ 4 3 7 4 6 */ 3850 /*:ref: d1mach_ 7 1 4 */ 3851 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3852 /*:ref: dcsevl_ 7 3 7 7 4 */ 3853 extern int dgesl_(doublereal *a, integer *lda, integer *n, integer *ipvt, doublereal *b, integer *job); 3854 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3855 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 3856 extern doublereal dqwgts_(doublereal *x, doublereal *a, doublereal *b, doublereal *alfa, doublereal *beta, integer *integr); 3857 extern int interv_(real *xt, integer *lxt, real *x, integer *ileft, integer *mflag); 3858 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); 3859 /*:ref: qagie_ 14 16 206 6 4 6 6 4 6 6 4 4 6 6 6 6 4 4 */ 3860 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3861 extern int sgeir_(real *a, integer *lda, integer *n, real *v, integer *itask, integer *ind, real *work, integer *iwork); 3862 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 3863 /*:ref: sgefa_ 14 5 6 4 4 4 4 */ 3864 /*:ref: sgesl_ 14 6 6 4 4 4 6 4 */ 3865 /*:ref: sasum_ 6 3 4 6 4 */ 3866 /*:ref: sdsdot_ 6 6 4 6 6 4 6 4 */ 3867 /*:ref: r1mach_ 6 1 4 */ 3868 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3869 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 3870 extern int xgetf_(integer *kontrl); 3871 /*:ref: j4save_ 4 3 4 4 12 */ 3872 extern int cgbfa_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, integer *info); 3873 /*:ref: icamax_ 4 3 4 8 4 */ 3874 /*:ref: cscal_ 14 4 4 8 8 4 */ 3875 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3876 extern int davint_(doublereal *x, doublereal *y, integer *n, doublereal *xlo, doublereal *xup, doublereal *ans, integer *ierr); 3877 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3878 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); 3879 /*:ref: dllsia_ 14 20 7 4 4 4 7 4 4 7 7 4 4 4 4 4 7 7 4 4 4 4 */ 3880 /*:ref: dulsia_ 14 20 7 4 4 4 7 4 4 7 7 4 4 4 4 4 7 7 4 4 4 4 */ 3881 extern doublereal drc_(doublereal *x, doublereal *y, integer *ier); 3882 /*:ref: d1mach_ 7 1 4 */ 3883 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3884 extern int intrp_(real *x, real *y, real *xout, real *yout, real *ypout, integer *neqn, integer *kold, real *phi, real *psi); 3885 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); 3886 /*:ref: r1mach_ 6 1 4 */ 3887 /*:ref: qk15i_ 14 9 206 6 4 6 6 6 6 6 6 */ 3888 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */ 3889 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */ 3890 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); 3891 /*:ref: sgemv_ 14 9 4 4 6 4 6 4 6 4 4 */ 3892 extern int xgetua_(integer *iunita, integer *n); 3893 /*:ref: j4save_ 4 3 4 4 12 */ 3894 extern int cgbsl_(complex *abd, integer *lda, integer *n, integer *ml, integer *mu, integer *ipvt, complex *b, integer *job); 3895 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3896 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 3897 extern E_f daws_(real *x); 3898 /*:ref: r1mach_ 6 1 4 */ 3899 /*:ref: inits_ 4 3 6 4 6 */ 3900 /*:ref: csevl_ 6 3 6 6 4 */ 3901 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3902 extern int dgtsl_(integer *n, doublereal *c__, doublereal *d__, doublereal *e, doublereal *b, integer *info); 3903 extern doublereal drd_(doublereal *x, doublereal *y, doublereal *z__, integer *ier); 3904 /*:ref: d1mach_ 7 1 4 */ 3905 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3906 extern int intrv_(real *xt, integer *lxt, real *x, integer *ilo, integer *ileft, integer *mflag); 3907 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); 3908 /*: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 */ 3909 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3910 extern int sgemv_(integer *m, integer *n, real *a, integer *ia, real *x, integer *ix, real *y, integer *iy, integer *job); 3911 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3912 extern int xgetun_(integer *iunit); 3913 /*:ref: j4save_ 4 3 4 4 12 */ 3914 extern int cgeco_(complex *a, integer *lda, integer *n, integer *ipvt, real *rcond, complex *z__); 3915 /*:ref: scasum_ 6 3 4 8 4 */ 3916 /*:ref: cgefa_ 14 5 8 4 4 4 4 */ 3917 /*:ref: csscal_ 14 4 4 6 8 4 */ 3918 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */ 3919 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3920 extern int daxpy_(integer *n, doublereal *da, doublereal *dx, integer *incx, doublereal *dy, integer *incy); 3921 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); 3922 /*:ref: dswap_ 14 5 4 7 4 7 4 */ 3923 /*:ref: ddot_ 6 5 4 7 4 7 4 */ 3924 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */ 3925 extern int dreadp_(integer *ipage, integer *list, doublereal *rlist, integer *lpage, integer *irec); 3926 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 7 7 124 */ 3927 extern int intyd_(real *t, integer *k, real *yh, integer *nyh, real *dky, integer *iflag); 3928 /* comlen debdf1_ 1004 */ 3929 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); 3930 /*:ref: r1mach_ 6 1 4 */ 3931 /*:ref: qk21_ 14 7 206 6 6 6 6 6 6 */ 3932 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */ 3933 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */ 3934 extern int sgesl_(real *a, integer *lda, integer *n, integer *ipvt, real *b, integer *job); 3935 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */ 3936 /*:ref: sdot_ 6 5 4 6 4 6 4 */ 3937 extern int xsetf_(integer *kontrl); 3938 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3939 /*:ref: j4save_ 4 3 4 4 12 */ 3940 extern int cgedi_(complex *a, integer *lda, integer *n, integer *ipvt, complex *det, complex *work, integer *job); 3941 /*:ref: cscal_ 14 4 4 8 8 4 */ 3942 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 3943 /*:ref: cswap_ 14 5 4 8 4 8 4 */ 3944 extern int dbdiff_(integer *l, doublereal *v); 3945 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); 3946 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3947 /*:ref: ddiff_ 7 2 7 7 */ 3948 /*:ref: dh12_ 14 11 4 4 4 4 7 4 7 7 4 4 4 */ 3949 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); 3950 /* comlen dml8sz_ 36 */ 3951 /* comlen dml15t_ 148 */ 3952 /* comlen dml18j_ 84 */ 3953 /*:ref: dstor1_ 14 7 7 7 7 7 4 4 4 */ 3954 /*:ref: dmgsbv_ 14 13 4 4 7 4 4 4 7 7 4 4 7 7 7 */ 3955 /*:ref: dstway_ 14 5 7 7 7 4 7 */ 3956 /*:ref: ddot_ 7 5 4 7 4 7 4 */ 3957 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); 3958 /*:ref: cdiv_ 14 6 6 6 6 6 6 6 */ 3959 /*:ref: pythag_ 6 2 6 6 */ 3960 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); 3961 /*:ref: qagse_ 14 16 206 6 6 6 6 4 6 6 4 4 6 6 6 6 4 4 */ 3962 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3963 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); 3964 /*:ref: llsia_ 14 20 6 4 4 4 6 4 4 6 6 4 4 4 4 4 6 6 4 4 4 4 */ 3965 /*:ref: ulsia_ 14 20 6 4 4 4 6 4 4 6 6 4 4 4 4 4 6 6 4 4 4 4 */ 3966 extern int xsetua_(integer *iunita, integer *n); 3967 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 6 6 124 */ 3968 /*:ref: j4save_ 4 3 4 4 12 */ 3969 extern int cgeev_(real *a, integer *lda, integer *n, real *e, real *v, integer *ldv, real *work, integer *job, integer *info); 3970 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3971 /*:ref: scopy_ 14 5 4 6 4 6 4 */ 3972 /*:ref: cbal_ 14 7 4 4 6 6 4 4 6 */ 3973 /*:ref: corth_ 14 8 4 4 4 4 6 6 6 6 */ 3974 /*:ref: comqr_ 14 9 4 4 4 4 6 6 6 6 4 */ 3975 /*:ref: comqr2_ 14 13 4 4 4 4 6 6 6 6 6 6 6 6 4 */ 3976 /*:ref: cbabk2_ 14 8 4 4 4 4 6 4 6 6 */ 3977 extern int dbesi_(doublereal *x, doublereal *alpha, integer *kode, integer *n, doublereal *y, integer *nz); 3978 /*:ref: d1mach_ 7 1 4 */ 3979 /*:ref: i1mach_ 4 1 4 */ 3980 /*:ref: dasyik_ 14 8 7 7 4 7 7 7 4 7 */ 3981 /*:ref: dlngam_ 7 1 7 */ 3982 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3983 extern int dhkseq_(doublereal *x, integer *m, doublereal *h__, integer *ierr); 3984 /*:ref: d1mach_ 7 1 4 */ 3985 /*:ref: i1mach_ 4 1 4 */ 3986 extern doublereal drf_(doublereal *x, doublereal *y, doublereal *z__, integer *ier); 3987 /*:ref: d1mach_ 7 1 4 */ 3988 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 3989 extern int inxca_(integer *i__, integer *ir, integer *idxa, integer *na); 3990 /* comlen ccblk_ 28 */ 3991 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); 3992 /*:ref: r1mach_ 6 1 4 */ 3993 /*:ref: qk21_ 14 7 206 6 6 6 6 6 6 */ 3994 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */ 3995 /*:ref: qelg_ 14 6 4 6 6 6 6 4 */ 3996 extern int sgtsl_(integer *n, real *c__, real *d__, real *e, real *b, integer *info); 3997 extern int xsetun_(integer *iunit); 3998 /*:ref: j4save_ 4 3 4 4 12 */ 3999 extern int cgefa_(complex *a, integer *lda, integer *n, integer *ipvt, integer *info); 4000 /*:ref: icamax_ 4 3 4 8 4 */ 4001 /*:ref: cscal_ 14 4 4 8 8 4 */ 4002 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */ 4003 extern doublereal dbesi0_(doublereal *x); 4004 /*:ref: initds_ 4 3 7 4 6 */ 4005 /*:ref: d1mach_ 7 1 4 */ 4006 /*:ref: dcsevl_ 7 3 7 7 4 */ 4007 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 4008 /*:ref: dbsi0e_ 7 1 7 */ 4009 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__); 4010 /*:ref: dvnorm_ 7 2 7 4 */ 4011 extern doublereal drj_(doublereal *x, doublereal *y, doublereal *z__, doublereal *p, integer *ier); 4012 /*:ref: d1mach_ 7 1 4 */ 4013 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 4014 /*:ref: drc_ 7 3 7 7 4 */ 4015 extern int inxcb_(integer *i__, integer *ir, integer *idx, integer *idp); 4016 /* comlen ccblk_ 28 */ 4017 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); 4018 /*:ref: qawce_ 14 17 206 6 6 6 6 6 4 6 6 4 4 6 6 6 6 4 4 */ 4019 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 4020 extern E_f sindg_(real *x); 4021 extern int yairy_(real *x, real *rx, real *c__, real *bi, real *dbi); 4022 extern int cgefs_(complex *a, integer *lda, integer *n, complex *v, integer *itask, integer *ind, complex *work, integer *iwork); 4023 /*:ref: cgeco_ 14 6 8 4 4 4 6 8 */ 4024 /*:ref: r1mach_ 6 1 4 */ 4025 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 4026 /*:ref: cgesl_ 14 6 8 4 4 4 8 4 */ 4027 /*:ref: xerrwv_ 14 11 13 4 4 4 4 4 4 4 4 4 124 */ 4028 extern doublereal dbesi1_(doublereal *x); 4029 /*:ref: initds_ 4 3 7 4 6 */ 4030 /*:ref: d1mach_ 7 1 4 */ 4031 /*:ref: xerror_ 14 5 13 4 4 4 124 */ 4032 /*:ref: dcsevl_ 7 3 7 7 4 */ 4033 /*:ref: dbsi1e_ 7 1 7 */ 4034 extern E_f diff_(real *x, real *y); 4035 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); 4036 /* comlen dml8sz_ 36 */ 4037 /* comlen dml15t_ 148 */ 4038 /* comlen dml18j_ 84 */ 4039 /* comlen dml17b_ 72 */ 4040 /*:ref: dderkf_ 14 15 200 4 7 7 7 4 7 7 4 7 4 4 4 7 4 */ 4041 /*:ref: ddeabm_ 14 15 200 4 7 7 7 4 7 7 4 7 4 4 4 7 4 */ 4042 /*:ref: dreort_ 14 11 4 7 7 7 4 7 7 7 4 7 4 */ 4043 /*:ref: dstor1_ 14 7 7 7 7 7 4 4 4 */ 4044 extern int inxcc_(integer *i__, integer *ir, integer *idxc, integer *nc); 4045 /* comlen ccblk_ 28 */ 4046 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); 4047 /*:ref: r1mach_ 6 1 4 */ 4048 /*:ref: qc25c_ 14 8 206 6 6 6 6 6 4 4 */ 4049 /*:ref: qpsrt_ 14 7 4 4 4 6 6 4 4 */ 4050 extern int sinqb_(integer *n, real *x, real *wsave); 4051 /*:ref: cosqb_ 14 3 4 6 6 */ 4052