Doxygen Source Code Documentation

Main Page Alphabetical List Data Structures File List Data Fields Globals Search

clamlib.h File Reference


Functions
int	cgeir_ (complex a, integer lda, integer n, complex v, integer itask, integer ind, complex work, integer iwork)
int	dbesj_ (doublereal x, doublereal alpha, integer n, doublereal y, integer *nz)
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)
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)
integer	iploc_ (integer loc, real sx, integer *ix)
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)
int	sinqf_ (integer n, real x, real *wsave)
int	cgesl_ (complex a, integer lda, integer n, integer ipvt, complex b, integer job)
doublereal	dbesj0_ (doublereal *x)
int	dintrp_ (doublereal x, doublereal y, doublereal xout, doublereal yout, doublereal ypout, integer neqn, integer kold, doublereal phi, doublereal *psi)
int	drot_ (integer n, doublereal dx, integer incx, doublereal dy, integer incy, doublereal dc, doublereal *ds)
integer	isamax_ (integer n, real sx, integer *incx)
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)
int	sinqi_ (integer n, real wsave)
int	cgtsl_ (integer n, complex c__, complex d__, complex e, complex b, integer info)
doublereal	dbesj1_ (doublereal *x)
int	dintrv_ (doublereal xt, integer lxt, doublereal x, integer ilo, integer ileft, integer mflag)
int	drotg_ (doublereal da, doublereal db, doublereal dc, doublereal ds)
integer	isamin_ (integer n, real sx, integer *incx)
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)
int	sint_ (integer n, real x, real *wsave)
int	aaaaaa_ (void)
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)
int	dbesk_ (doublereal x, doublereal fnu, integer kode, integer n, doublereal y, integer nz)
int	dintyd_ (doublereal t, integer k, doublereal yh, integer nyh, doublereal dky, integer iflag)
int	drotm_ (integer n, doublereal dx, integer incx, doublereal dy, integer incy, doublereal dparam)
integer	ismax_ (integer n, real sx, integer *incx)
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)
int	sinti_ (integer n, real wsave)
E_f	acosh_ (real *x)
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)
doublereal	dbesk0_ (doublereal *x)
int	djairy_ (doublereal x, doublereal rx, doublereal c__, doublereal ai, doublereal *dai)
int	drotmg_ (doublereal dd1, doublereal dd2, doublereal dx1, doublereal dy1, doublereal *dparam)
integer	ismin_ (integer n, real sx, integer *incx)
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)
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)
E_f	ai_ (real *x)
int	chfev_ (real x1, real x2, real f1, real f2, real d1, real d2, integer ne, real xe, real fe, integer next, integer *ierr)
doublereal	dbesk1_ (doublereal *x)
doublereal	dlbeta_ (doublereal a, doublereal b)
int	drsco_ (doublereal rsav, integer isav)
int	isort_ (integer x, integer y, integer n, integer kflag)
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)
int	slvs_ (real wm, integer iwm, real x, real tem)
E_f	aie_ (real *x)
E_f	chfiv_ (real x1, real x2, real f1, real f2, real d1, real d2, real a, real b, integer *ierr)
int	dbesks_ (doublereal xnu, doublereal x, integer nin, doublereal bk)
int	dlgams_ (doublereal x, doublereal dlgam, doublereal *sgngam)
int	dscal_ (integer n, doublereal da, doublereal dx, integer incx)
int	iswap_ (integer n, integer ix, integer incx, integer iy, integer *incy)
int	qc25c_ (E_fp f, real a, real b, real c__, real result, real abserr, integer krul, integer *neval)
int	smout_ (integer m, integer n, integer lda, real a, char ifmt, integer idigit, ftnlen ifmt_len)
E_f	albeta_ (real a, real b)
integer	chfmc_ (real d1, real d2, real *delta)
int	dbesy_ (doublereal x, doublereal fnu, integer n, doublereal y)
doublereal	dli_ (doublereal *x)
doublereal	dsdot_ (integer n, real sx, integer incx, real sy, integer *incy)
int	ivout_ (integer n, integer ix, char ifmt, integer idigit, ftnlen ifmt_len)
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)
int	snbco_ (real abe, integer lda, integer n, integer ml, integer mu, integer ipvt, real rcond, real z__)
int	algams_ (real x, real algam, real *sgngam)
int	chico_ (complex a, integer lda, integer n, integer kpvt, real rcond, complex z__)
doublereal	dbesy0_ (doublereal *x)
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)
int	dsico_ (doublereal a, integer lda, integer n, integer kpvt, doublereal rcond, doublereal z__)
integer	j4save_ (integer iwhich, integer ivalue, logical *iset)
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)
int	snbdi_ (real abe, integer lda, integer n, integer ml, integer mu, integer ipvt, real *det)
E_f	ali_ (real *x)
int	chidi_ (complex a, integer lda, integer n, integer kpvt, real det, integer inert, complex work, integer job)
doublereal	dbesy1_ (doublereal *x)
doublereal	dlngam_ (doublereal *x)
int	dsidi_ (doublereal a, integer lda, integer n, integer kpvt, doublereal det, integer inert, doublereal work, integer job)
int	jairy_ (real x, real rx, real c__, real ai, real *dai)
int	qcheb_ (real x, real fval, real cheb12, real cheb24)
int	snbfa_ (real abe, integer lda, integer n, integer ml, integer mu, integer ipvt, integer *info)
E_f	alngam_ (real *x)
int	chiev_ (real a, integer lda, integer n, real e, real v, integer ldv, real work, integer job, integer *info)
doublereal	dbeta_ (doublereal a, doublereal b)
doublereal	dlnrel_ (doublereal *x)
int	dsifa_ (doublereal a, integer lda, integer n, integer kpvt, integer *info)
int	la05ad_ (doublereal a, integer ind, integer nz, integer ia, integer n, integer ip, integer iw, doublereal w, doublereal g, doublereal u)
int	qelg_ (integer n, real epstab, real result, real abserr, real res3la, integer nres)
int	snbfs_ (real abe, integer lda, integer n, integer ml, integer mu, real v, integer itask, integer ind, real work, integer iwork)
E_f	alnrel_ (real *x)
int	chifa_ (complex a, integer lda, integer n, integer kpvt, integer *info)
doublereal	dbetai_ (doublereal x, doublereal pin, doublereal *qin)
int	dlpdp_ (doublereal a, integer mda, integer m, integer n1, integer n2, doublereal prgopt, doublereal x, doublereal wnorm, integer mode, doublereal ws, integer *is)
doublereal	dsindg_ (doublereal *x)
int	la05as_ (real a, integer ind, integer nz, integer ia, integer n, integer ip, integer iw, real w, real g, real u)
int	qform_ (integer m, integer n, real q, integer ldq, real *wa)
int	snbir_ (real abe, integer lda, integer n, integer ml, integer mu, real v, integer itask, integer ind, real work, integer iwork)
E_f	asinh_ (real *x)
int	chisl_ (complex a, integer lda, integer n, integer kpvt, complex *b)
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)
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)
int	dsisl_ (doublereal a, integer lda, integer n, integer kpvt, doublereal *b)
int	la05bd_ (doublereal a, integer ind, integer ia, integer n, integer ip, integer iw, doublereal w, doublereal g, doublereal b, logical trans)
int	qk15_ (E_fp f, real a, real b, real result, real abserr, real resabs, real resasc)
int	snbsl_ (real abe, integer lda, integer n, integer ml, integer mu, integer ipvt, real b, integer job)
int	asyik_ (real x, real fnu, integer kode, real flgik, real ra, real arg, integer in, real y)
int	chkder_ (integer m, integer n, real x, real fvec, real fjac, integer ldfjac, real xp, real fvecp, integer mode, real err)
doublereal	dbi_ (doublereal *x)
int	dlsi_ (doublereal w, integer mdw, integer ma, integer mg, integer n, doublereal prgopt, doublereal x, doublereal rnorm, integer mode, doublereal ws, integer *ip)
int	dslvs_ (doublereal wm, integer iwm, doublereal x, doublereal tem)
int	la05bs_ (real a, integer ind, integer ia, integer n, integer ip, integer iw, real w, real g, real b, logical trans)
int	qk15i_ (E_fp f, real boun, integer inf, real a, real b, real result, real abserr, real resabs, real resasc)
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)
int	asyjy_ (S_fp funjy, real x, real fnu, real flgjy, integer in, real y, real wk, integer *iflw)
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)
doublereal	dbie_ (doublereal *x)
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)
int	dsort_ (doublereal x, doublereal y, integer n, integer kflag)
int	la05cd_ (doublereal a, integer ind, integer ia, integer n, integer ip, integer iw, doublereal w, doublereal g, doublereal u, integer mm)
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)
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)
E_f	atanh_ (real *x)
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)
doublereal	dbinom_ (integer n, integer m)
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)
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)
int	la05cs_ (real a, integer ind, integer ia, integer n, integer ip, integer iw, real w, real g, real u, integer mm)
int	qk21_ (E_fp f, real a, real b, real result, real abserr, real resabs, real resasc)
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)
int	avint_ (real x, real y, integer n, real xlo, real xup, real ans, integer *ierr)
int	chksn4_ (integer mbdcnd, integer nbdcnd, real alpha, real beta, S_fp cofx, logical *singlr)
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)
int	dmacon_ (void)
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)
int	la05ed_ (doublereal a, integer irn, integer ip, integer n, integer iw, integer ia, logical *reals)
int	qk31_ (E_fp f, real a, real b, real result, real abserr, real resabs, real resasc)
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)
int	bakvec_ (integer nm, integer n, real t, real e, integer m, real z__, integer *ierr)
int	chksng_ (integer mbdcnd, integer nbdcnd, real alpha, real beta, real gama, real xnu, S_fp cofx, S_fp cofy, logical *singlr)
int	dbintk_ (doublereal x, doublereal y, doublereal t, integer n, integer k, doublereal bcoef, doublereal q, doublereal work)
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)
int	dsossl_ (integer k, integer n, integer l, doublereal x, doublereal c__, doublereal b, integer *m)
int	la05es_ (real a, integer irn, integer ip, integer n, integer iw, integer ia, logical *reals)
int	qk41_ (E_fp f, real a, real b, real result, real abserr, real resabs, real resasc)
E_f	snrm2_ (integer n, real sx, integer *incx)
int	balanc_ (integer nm, integer n, real a, integer low, integer igh, real scale)
int	chpco_ (complex ap, integer n, integer kpvt, real rcond, complex *z__)
int	dbkias_ (doublereal x, integer n, integer ktrms, doublereal t, doublereal ans, integer ind, integer ms, doublereal gmrn, doublereal h__, integer ierr)
int	dmout_ (integer m, integer n, integer lda, doublereal a, char ifmt, integer idigit, ftnlen ifmt_len)
int	dspco_ (doublereal ap, integer n, integer kpvt, doublereal rcond, doublereal *z__)
int	lagre_ (integer m, integer k, real aa, real z__)
int	qk51_ (E_fp f, real a, real b, real result, real abserr, real resabs, real resasc)
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)
int	balbak_ (integer nm, integer n, integer low, integer igh, real scale, integer m, real *z__)
int	chpdi_ (complex ap, integer n, integer kpvt, real det, integer inert, complex work, integer *job)
int	dbkisr_ (doublereal x, integer n, doublereal sum, integer ierr)
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)
int	dspdi_ (doublereal ap, integer n, integer kpvt, doublereal det, integer inert, doublereal work, integer *job)
int	lgndr_ (integer m, integer k, real aa, real z__)
int	qk61_ (E_fp f, real a, real b, real result, real abserr, real resabs, real resasc)
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)
int	bandr_ (integer nm, integer n, integer mb, real a, real d__, real e, real e2, logical matz, real *z__)
int	chpfa_ (complex ap, integer n, integer kpvt, integer info)
int	dbksol_ (integer n, doublereal a, doublereal *x)
int	dnbco_ (doublereal abe, integer lda, integer n, integer ml, integer mu, integer ipvt, doublereal rcond, doublereal z__)
doublereal	dspenc_ (doublereal *x)
int	lgndrx_ (integer n, integer k, real aa, real z__)
int	qmomo_ (real alfa, real beta, real ri, real rj, real rg, real rh, integer *integr)
int	sods_ (real a, real x, real b, integer neq, integer nuk, integer nrda, integer iflag, real work, integer *iwork)
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)
int	chpsl_ (complex ap, integer n, integer kpvt, complex b)
int	dbndac_ (doublereal g, integer mdg, integer nb, integer ip, integer ir, integer mt, integer *jt)
int	dnbdi_ (doublereal abe, integer lda, integer n, integer ml, integer mu, integer ipvt, doublereal *det)
int	dspfa_ (doublereal ap, integer n, integer kpvt, integer info)
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)
int	qnc79_ (E_fp fun, real a, real b, real err, real ans, integer ierr, integer k)
int	sopenm_ (integer ipage, integer lpage)
E_f	bcrh_ (real xll, real xrr, integer iz, real c__, real a, real bh, E_fp f, real *sgn)
E_f	chu_ (real a, real b, real *x)
int	dbndsl_ (integer mode, doublereal g, integer mdg, integer nb, integer ip, integer ir, doublereal x, integer n, doublereal *rnorm)
int	dnbfa_ (doublereal abe, integer lda, integer n, integer ml, integer mu, integer ipvt, integer *info)
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)
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)
int	qng_ (E_fp f, real a, real b, real epsabs, real epsrel, real result, real abserr, integer neval, integer ier)
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)
int	bdiff_ (integer l, real v)
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)
int	dbnfac_ (doublereal w, integer nroww, integer nrow, integer nbandl, integer nbandu, integer iflag)
int	dnbfs_ (doublereal abe, integer lda, integer n, integer ml, integer mu, doublereal v, integer itask, integer ind, doublereal work, integer iwork)
int	dspsl_ (doublereal ap, integer n, integer kpvt, doublereal b)
int	lpdp_ (real a, integer mda, integer m, integer n1, integer n2, real prgopt, real x, real wnorm, integer mode, real ws, integer *is)
int	qpdoc_ (void)
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)
int	besi_ (real x, real alpha, integer kode, integer n, real y, integer nz)
C_f	clbeta_ (complex ret_val, complex a, complex *b)
int	dbnslv_ (doublereal w, integer nroww, integer nrow, integer nbandl, integer nbandu, doublereal b)
int	dnbsl_ (doublereal abe, integer lda, integer n, integer ml, integer mu, integer ipvt, doublereal b, integer job)
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)
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)
int	qpsrt_ (integer limit, integer last, integer maxerr, real ermax, real elist, integer iord, integer *nrmax)
int	sossol_ (integer k, integer n, integer l, real x, real c__, real b, integer *m)
E_f	besi0_ (real *x)
C_f	clngam_ (complex ret_val, complex zin)
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)
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)
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)
int	lsi_ (real w, integer mdw, integer ma, integer mg, integer n, real prgopt, real x, real rnorm, integer mode, real ws, integer *ip)
int	qqsort_ (integer n, real x, integer j, integer l, real *y)
int	spbco_ (real abd, integer lda, integer n, integer m, real rcond, real z__, integer *info)
E_f	besi0e_ (real *x)
C_f	clnrel_ (complex ret_val, complex z__)
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)
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)
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)
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)
int	qrfac_ (integer m, integer n, real a, integer lda, logical pivot, integer ipvt, integer lipvt, real sigma, real acnorm, real wa)
int	spbdi_ (real abd, integer lda, integer n, integer m, real *det)
E_f	besi1_ (real *x)
C_f	clog10_ (complex ret_val, complex z__)
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)
doublereal	dnrm2_ (integer n, doublereal dx, integer *incx)
int	dstor1_ (doublereal u, doublereal yh, doublereal v, doublereal yp, integer ntemp, integer ndisk, integer *ntape)
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)
int	qrsolv_ (integer n, real r__, integer ldr, integer ipvt, real diag, real qtb, real x, real sigma, real *wa)
int	spbfa_ (real abd, integer lda, integer n, integer m, integer *info)
E_f	besi1e_ (real *x)
int	cmgnbn_ (integer nperod, integer n, integer mperod, integer m, complex a, complex b, complex c__, integer idimy, complex y, integer ierror, complex *w)
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)
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)
int	dstway_ (doublereal u, doublereal v, doublereal yhp, integer inout, doublereal *stowa)
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)
E_f	qwgtc_ (real x, real c__, real p2, real p3, real p4, integer kp)
int	spbsl_ (real abd, integer lda, integer n, integer m, real *b)
int	besj_ (real x, real alpha, integer n, real y, integer *nz)
int	cmpcsg_ (integer n, integer ijump, real fnum, real fden, complex *a)
doublereal	dbsi0e_ (doublereal *x)
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)
int	dsuds_ (doublereal a, doublereal x, doublereal b, integer neq, integer nuk, integer nrda, integer iflag, integer mlso, doublereal work, integer iwork)
int	macon_ (void)
E_f	qwgtf_ (real x, real omega, real p2, real p3, real p4, integer integr)
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)
E_f	besj0_ (real *x)
int	cmpmrg_ (complex tcos, integer i1, integer m1, integer i2, integer m2, integer i3)
doublereal	dbsi1e_ (doublereal *x)
int	dnterv_ (doublereal xt, integer lxt, doublereal x, integer ileft, integer *mflag)
int	dsvco_ (doublereal rsav, integer isav)
int	mc20ad_ (integer nc, integer maxa, doublereal a, integer inum, integer jptr, integer jnum, integer *jdisp)
E_f	qwgts_ (real x, real a, real b, real alfa, real beta, integer integr)
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)
E_f	besj1_ (real *x)
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)
doublereal	dbsk0e_ (doublereal *x)
int	dogleg_ (integer n, real r__, integer lr, real diag, real qtb, real delta, real x, real wa1, real *wa2)
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)
int	mc20as_ (integer nc, integer maxa, real a, integer inum, integer jptr, integer jnum, integer *jdisp)
int	qzhes_ (integer nm, integer n, real a, real b, logical matz, real z__)
E_f	spenc_ (real *x)
int	besk_ (real x, real fnu, integer kode, integer n, real y, integer nz)
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)
doublereal	dbsk1e_ (doublereal *x)
int	dohtrl_ (doublereal q, integer n, integer nrda, doublereal diag, integer irank, doublereal div, doublereal *td)
int	dswap_ (integer n, doublereal dx, integer incx, doublereal dy, integer *incy)
int	menu_ (void)
int	qzit_ (integer nm, integer n, real a, real b, real eps1, logical matz, real z__, integer ierr)
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)
E_f	besk0_ (real *x)
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)
int	dbskes_ (doublereal xnu, doublereal x, integer nin, doublereal bke)
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)
int	dtrco_ (doublereal t, integer ldt, integer n, doublereal rcond, doublereal z__, integer job)
int	merge_ (real tcos, integer i1, integer m1, integer i2, integer m2, integer i3)
int	qzval_ (integer nm, integer n, real a, real b, real alfr, real alfi, real beta, logical matz, real *z__)
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)
E_f	besk0e_ (real *x)
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)
int	dbskin_ (doublereal x, integer n, integer kode, integer m, doublereal y, integer nz, integer *ierr)
int	dp1vlu_ (integer l, integer nder, doublereal x, doublereal yfit, doublereal yp, doublereal a)
int	dtrdi_ (doublereal t, integer ldt, integer n, doublereal det, integer job, integer info)
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)
int	qzvec_ (integer nm, integer n, real a, real b, real alfr, real alfi, real beta, real z__)
E_f	spintg_ (integer l, real v1, real v2, real x, real f, real w, integer n, integer ij)
E_f	besk1_ (real *x)
int	cmptrx_ (integer idegbr, integer idegcr, integer m, complex a, complex b, complex c__, complex y, complex tcos, complex d__, complex w)
int	dbsknu_ (doublereal x, doublereal fnu, integer kode, integer n, doublereal y, integer nz)
int	dpbco_ (doublereal abd, integer lda, integer n, integer m, doublereal rcond, doublereal z__, integer *info)
int	dtrsl_ (doublereal t, integer ldt, integer n, doublereal b, integer job, integer info)
int	minfit_ (integer nm, integer m, integer n, real a, real w, integer ip, real b, integer ierr, real *rv1)
E_f	r1mach_ (integer *i__)
int	spl1d1_ (integer n, real x, real f, real w, integer iop, integer ij, real a, real b, real *c__)
E_f	besk1e_ (real *x)
int	cnbco_ (complex abe, integer lda, integer n, integer ml, integer mu, integer ipvt, real rcond, complex z__)
int	dbspdr_ (doublereal t, doublereal a, integer n, integer k, integer nderiv, doublereal ad)
int	dpbdi_ (doublereal abd, integer lda, integer n, integer m, doublereal *det)
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)
int	minso4_ (real usol, integer idmn, real zn, real zm, real *pertb)
int	r1mpyq_ (integer m, integer n, real a, integer lda, real v, real w)
int	spl1d2_ (integer n, real x, real f, real w, integer ij, real y, real *tab)
int	beskes_ (real xnu, real x, integer nin, real bke)
int	cnbdi_ (complex abe, integer lda, integer n, integer ml, integer mu, integer ipvt, complex *det)
int	dbspev_ (doublereal t, doublereal ad, integer n, integer k, integer nderiv, doublereal x, integer inev, doublereal svalue, doublereal *work)
int	dpbfa_ (doublereal abd, integer lda, integer n, integer m, integer *info)
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)
int	minsol_ (real usol, integer idmn, real zn, real zm, real *pertb)
int	r1updt_ (integer m, integer n, real s, integer ls, real u, real v, real w, logical sing)
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)
int	besknu_ (real x, real fnu, integer kode, integer n, real y, integer nz)
int	cnbfa_ (complex abe, integer lda, integer n, integer ml, integer mu, integer ipvt, integer *info)
int	dbsppp_ (doublereal t, doublereal a, integer n, integer k, integer ldc, doublereal c__, doublereal xi, integer lxi, doublereal *work)
int	dpbsl_ (doublereal abd, integer lda, integer n, integer m, doublereal *b)
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)
int	mpadd_ (integer x, integer y, integer *z__)
int	r9aimp_ (real x, real ampl, real *theta)
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)
int	besks_ (real xnu, real x, integer nin, real bk)
int	cnbfs_ (complex abe, integer lda, integer n, integer ml, integer mu, complex v, integer itask, integer ind, complex work, integer iwork)
int	dbspvd_ (doublereal t, integer k, integer nderiv, doublereal x, integer ileft, integer ldvnik, doublereal vnikx, doublereal work)
int	dpchce_ (integer ic, doublereal vc, integer n, doublereal x, doublereal h__, doublereal slope, doublereal d__, integer incfd, integer *ierr)
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)
int	mpadd2_ (integer x, integer y, integer z__, integer y1, integer *trunc)
E_f	r9atn1_ (real *x)
E_f	spl2d3_ (integer ixd, integer iyd)
int	besy_ (real x, real fnu, integer n, real y)
int	cnbir_ (complex abe, integer lda, integer n, integer ml, integer mu, complex v, integer itask, integer ind, complex work, integer iwork)
int	dbspvn_ (doublereal t, integer jhigh, integer k, integer index, doublereal x, integer ileft, doublereal vnikx, doublereal work, integer *iwork)
int	dpchci_ (integer n, doublereal h__, doublereal slope, doublereal d__, integer *incfd)
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)
int	mpadd3_ (integer x, integer y, integer s, integer med, integer *re)
E_f	r9chu_ (real a, real b, real *z__)
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)
E_f	besy0_ (real *x)
int	cnbsl_ (complex abe, integer lda, integer n, integer ml, integer mu, integer ipvt, complex b, integer job)
int	dbsqad_ (doublereal t, doublereal bcoef, integer n, integer k, doublereal x1, doublereal x2, doublereal bquad, doublereal work)
int	dpchcs_ (doublereal switch__, integer n, doublereal h__, doublereal slope, doublereal d__, integer incfd, integer *ierr)
int	dusrmt_ (integer i__, integer j, doublereal aij, integer indcat, doublereal prgopt, doublereal dattrv, integer *iflag)
int	mpblas_ (integer *i1)
E_f	r9gmic_ (real a, real x, real *alx)
E_f	splint_ (integer n, real x, real f, real w, integer ij, real a, real *b)
E_f	besy1_ (real *x)
int	combak_ (integer nm, integer low, integer igh, real ar, real ai, integer int__, integer m, real zr, real *zi)
int	dbsynu_ (doublereal x, doublereal fnu, integer n, doublereal y)
doublereal	dpchdf_ (integer k, doublereal x, doublereal s, integer ierr)
int	dvecs_ (integer ncomp, integer lnfc, doublereal yhp, doublereal work, integer iwork, integer inhomo, integer *iflag)
int	mpcdm_ (doublereal dx, integer z__)
E_f	r9gmit_ (real a, real x, real algap1, real sgngam, real *alx)
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)
int	besynu_ (real x, real fnu, integer n, real y)
int	comhes_ (integer nm, integer n, integer low, integer igh, real ar, real ai, integer *int__)
doublereal	dbvalu_ (doublereal t, doublereal a, integer n, integer k, integer ideriv, doublereal x, integer inbv, doublereal work)
int	dpchfd_ (integer n, doublereal x, doublereal f, doublereal d__, integer incfd, logical skip, integer ne, doublereal xe, doublereal fe, doublereal de, integer *ierr)
doublereal	dvnorm_ (doublereal v, integer ncomp)
int	mpchk_ (integer i__, integer j)
int	r9knus_ (real xnu, real x, real bknu, real bknu1, integer *iswtch)
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)
E_f	beta_ (real a, real b)
int	comlr_ (integer nm, integer n, integer low, integer igh, real hr, real hi, real wr, real wi, integer *ierr)
int	dbvder_ (doublereal x, doublereal y, doublereal yp, doublereal g, integer *ipar)
int	dpchfe_ (integer n, doublereal x, doublereal f, doublereal d__, integer incfd, logical skip, integer ne, doublereal xe, doublereal fe, integer ierr)
doublereal	dvnrms_ (integer n, doublereal v, doublereal *w)
int	mpcmd_ (integer x, doublereal dz)
E_f	r9lgic_ (real a, real x, real *alx)
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)
E_f	betai_ (real x, real pin, real *qin)
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)
doublereal	dbvlue_ (doublereal t, doublereal a, integer n, integer k, doublereal x, integer ideriv)
doublereal	dpchia_ (integer n, doublereal x, doublereal f, doublereal d__, integer incfd, logical skip, doublereal a, doublereal b, integer *ierr)
int	dvout_ (integer n, doublereal dx, char ifmt, integer idigit, ftnlen ifmt_len)
int	mpdivi_ (integer x, integer iy, integer *z__)
E_f	r9lgit_ (real a, real x, real *algap1)
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)
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)
int	compb_ (integer n, integer ierror, real an, real bn, real cn, real b, real ah, real bh)
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)
int	dpchic_ (integer ic, doublereal vc, doublereal switch__, integer n, doublereal x, doublereal f, doublereal d__, integer incfd, doublereal wk, integer nwk, integer *ierr)
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)
int	mperr_ (void)
E_f	r9lgmc_ (real *x)
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)
E_f	bi_ (real *x)
int	comqr_ (integer nm, integer n, integer low, integer igh, real hr, real hi, real wr, real wi, integer *ierr)
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)
doublereal	dpchid_ (integer n, doublereal x, doublereal f, doublereal d__, integer incfd, logical skip, integer ia, integer ib, integer *ierr)
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__)
int	mpmaxr_ (integer *x)
E_f	r9ln2r_ (real *x)
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)
E_f	bie_ (real *x)
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)
doublereal	dcbrt_ (doublereal *x)
int	dpchim_ (integer n, doublereal x, doublereal f, doublereal d__, integer incfd, integer ierr)
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)
int	mpmlp_ (integer u, integer v, integer w, integer j)
E_f	r9pak_ (real y, integer n)
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)
E_f	binom_ (integer n, integer m)
int	cortb_ (integer nm, integer low, integer igh, real ar, real ai, real ortr, real orti, integer m, real zr, real zi)
int	dcdot_ (integer n, doublereal fm, complex cx, integer incx, complex cy, integer incy, doublereal dcr, doublereal dci)
int	dpchmc_ (integer n, doublereal x, doublereal f, doublereal d__, integer incfd, logical skip, integer ismon, integer ierr)
int	dwritp_ (integer ipage, integer list, doublereal rlist, integer lpage, integer *irec)
int	mpmul_ (integer x, integer y, integer *z__)
int	r9upak_ (real x, real y, integer *n)
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)
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)
int	corth_ (integer nm, integer n, integer low, integer igh, real ar, real ai, real ortr, real orti)
int	dcfod_ (integer meth, doublereal elco, doublereal *tesco)
int	dpchng_ (integer ii, doublereal xval, integer iplace, doublereal sx, integer ix, integer ircx)
int	dwupdt_ (integer n, doublereal r__, integer ldr, doublereal w, doublereal b, doublereal alpha, doublereal cos__, doublereal sin__)
int	mpmul2_ (integer x, integer iy, integer z__, integer trunc)
int	radb2_ (integer ido, integer l1, real cc, real ch, real *wa1)
int	spoco_ (real a, integer lda, integer n, real rcond, real z__, integer info)
int	bintk_ (real x, real y, real t, integer n, integer k, real bcoef, real q, real work)
E_f	cosdg_ (real *x)
int	dchdc_ (doublereal a, integer lda, integer p, doublereal work, integer jpvt, integer job, integer *info)
int	dpchsp_ (integer ic, doublereal vc, integer n, doublereal x, doublereal f, doublereal d__, integer incfd, doublereal wk, integer nwk, integer ierr)
int	dx_ (real u, integer idmn, integer i__, integer j, real uxxx, real uxxxx)
int	mpmuli_ (integer x, integer iy, integer *z__)
int	radb3_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2)
int	spodi_ (real a, integer lda, integer n, real det, integer *job)
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)
int	cosgen_ (integer n, integer ijump, real fnum, real fden, real *a)
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)
doublereal	dpchst_ (doublereal arg1, doublereal arg2)
int	dx4_ (real u, integer idmn, integer i__, integer j, real uxxx, real uxxxx)
int	mpnzr_ (integer rs, integer re, integer z__, integer trunc)
int	radb4_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2, real *wa3)
int	spofa_ (real a, integer lda, integer n, integer info)
int	bkias_ (real x, integer n, integer ktrms, real t, real ans, integer ind, integer ms, real gmrn, real h__, integer ierr)
int	cosqb_ (integer n, real x, real *wsave)
int	dchex_ (doublereal r__, integer ldr, integer p, integer k, integer l, doublereal z__, integer ldz, integer nz, doublereal c__, doublereal s, integer *job)
int	dpchsw_ (doublereal dfmax, integer iextrm, doublereal d1, doublereal d2, doublereal h__, doublereal slope, integer *ierr)
int	dy_ (real u, integer idmn, integer i__, integer j, real uyyy, real uyyyy)
int	mpovfl_ (integer *x)
int	radb5_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2, real wa3, real wa4)
int	spofs_ (real a, integer lda, integer n, real v, integer itask, integer ind, real *work)
int	bkisr_ (real x, integer n, real sum, integer ierr)
int	cosqb1_ (integer n, real x, real w, real xh)
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)
int	dpcoef_ (integer l, doublereal c__, doublereal tc, doublereal a)
int	dy4_ (real u, integer idmn, integer i__, integer j, real uyyy, real uyyyy)
int	mpstr_ (integer x, integer y)
int	radbg_ (integer ido, integer ip, integer l1, integer idl1, real cc, real c1, real c2, real ch, real ch2, real wa)
int	spoir_ (real a, integer lda, integer n, real v, integer itask, integer ind, real *work)
int	bksol_ (integer n, real a, real *x)
int	cosqf_ (integer n, real x, real *wsave)
int	dchfev_ (doublereal x1, doublereal x2, doublereal f1, doublereal f2, doublereal d1, doublereal d2, integer ne, doublereal xe, doublereal fe, integer next, integer *ierr)
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)
int	dyairy_ (doublereal x, doublereal rx, doublereal c__, doublereal bi, doublereal *dbi)
int	mpunfl_ (integer *x)
int	radf2_ (integer ido, integer l1, real cc, real ch, real *wa1)
int	spopt_ (real prgopt, integer mrelas, integer nvars__, integer info, real csc, integer ibasis, real ropt, integer intopt, logical *lopt)
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)
int	cosqf1_ (integer n, real x, real w, real xh)
doublereal	dchfiv_ (doublereal x1, doublereal x2, doublereal f1, doublereal f2, doublereal d1, doublereal d2, doublereal a, doublereal b, integer *ierr)
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)
E_f	e1_ (real *x)
integer	numxer_ (integer *nerr)
int	radf3_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2)
int	sposl_ (real a, integer lda, integer n, real b)
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)
int	cosqi_ (integer n, real wsave)
integer	dchfmc_ (doublereal d1, doublereal d2, doublereal *delta)
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)
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)
int	ohtrol_ (real q, integer n, integer nrda, real diag, integer irank, real div, real *td)
int	radf4_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2, real *wa3)
int	sppco_ (real ap, integer n, real rcond, real z__, integer *info)
int	bndacc_ (real g, integer mdg, integer nb, integer ip, integer ir, integer mt, integer *jt)
int	cost_ (integer n, real x, real *wsave)
doublereal	dchu_ (doublereal a, doublereal b, doublereal *x)
int	dpintm_ (integer m, integer n, doublereal sx, integer ix, integer lmx, integer ipagef)
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)
int	ohtror_ (real q, integer n, integer nrda, real diag, integer irank, real div, real *td)
int	radf5_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2, real wa3, real wa4)
int	sppdi_ (real ap, integer n, real det, integer job)
int	bndsol_ (integer mode, real g, integer mdg, integer nb, integer ip, integer ir, real x, integer n, real *rnorm)
int	costi_ (integer n, real wsave)
int	dchud_ (doublereal r__, integer ldr, integer p, doublereal x, doublereal z__, integer ldz, integer nz, doublereal y, doublereal rho, doublereal c__, doublereal *s)
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)
E_f	ei_ (real *x)
int	ortbak_ (integer nm, integer low, integer igh, real a, real ort, integer m, real *z__)
int	radfg_ (integer ido, integer ip, integer l1, integer idl1, real cc, real c1, real c2, real ch, real ch2, real wa)
int	sppfa_ (real ap, integer n, integer *info)
int	bnfac_ (real w, integer nroww, integer nrow, integer nbandl, integer nbandu, integer iflag)
E_f	cot_ (real *x)
int	dckder_ (integer m, integer n, doublereal x, doublereal fvec, doublereal fjac, integer ldfjac, doublereal xp, doublereal fvecp, integer mode, doublereal err)
int	dplint_ (integer n, doublereal x, doublereal y, doublereal c__)
int	eisdoc_ (void)
int	orthes_ (integer nm, integer n, integer low, integer igh, real a, real ort)
E_f	rand_ (real *r__)
int	sppsl_ (real ap, integer n, real *b)
int	bnslv_ (real w, integer nroww, integer nrow, integer nbandl, integer nbandu, real b)
int	cpadd_ (integer n, integer ierror, real a, real c__, complex cbp, real bp, real *bh)
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)
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)
int	elmbak_ (integer nm, integer low, integer igh, real a, integer int__, integer m, real *z__)
int	ortho4_ (real usol, integer idmn, real zn, real zm, real *pertrb)
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)
int	sptsl_ (integer n, real d__, real e, real b)
int	bqr_ (integer nm, integer n, integer mb, real a, real t, real r__, integer ierr, integer nv, real *rv)
int	cpbco_ (complex abd, integer lda, integer n, integer m, real rcond, complex z__, integer *info)
int	dcopy_ (integer n, doublereal dx, integer incx, doublereal dy, integer *incy)
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)
int	elmhes_ (integer nm, integer n, integer low, integer igh, real a, integer int__)
int	orthog_ (real usol, integer idmn, real zn, real zm, real *pertrb)
E_f	rc_ (real x, real y, integer *ier)
int	sqrdc_ (real x, integer ldx, integer n, integer p, real qraux, integer jpvt, real work, integer job)
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)
int	cpbdi_ (complex abd, integer lda, integer n, integer m, real *det)
int	dcopym_ (integer n, doublereal dx, integer incx, doublereal dy, integer *incy)
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)
int	eltran_ (integer nm, integer n, integer low, integer igh, real a, integer int__, real *z__)
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)
E_f	rd_ (real x, real y, real z__, integer ier)
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)
int	bskin_ (real x, integer n, integer kode, integer m, real y, integer nz, integer *ierr)
int	cpbfa_ (complex abd, integer lda, integer n, integer m, integer *info)
doublereal	dcosdg_ (doublereal *x)
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)
E_f	enorm_ (integer n, real x)
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)
int	rebak_ (integer nm, integer n, real b, real dl, integer m, real z__)
int	sreadp_ (integer ipage, integer list, real rlist, integer lpage, integer *irec)
int	bspdoc_ (void)
int	cpbsl_ (complex abd, integer lda, integer n, integer m, complex *b)
doublereal	dcot_ (doublereal *x)
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)
E_f	epmach_ (real *dum)
int	ortran_ (integer nm, integer n, integer low, integer igh, real a, real ort, real *z__)
int	rebakb_ (integer nm, integer n, real b, real dl, integer m, real z__)
int	srot_ (integer n, real sx, integer incx, real sy, integer incy, real sc, real *ss)
int	bspdr_ (real t, real a, integer n, integer k, integer nderiv, real ad)
int	cpevl_ (integer n, integer m, complex a, complex z__, complex c__, complex b, logical *kbd)
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)
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)
E_f	erf_ (real *x)
int	passb_ (integer nac, integer ido, integer ip, integer l1, integer idl1, real cc, real c1, real c2, real ch, real ch2, real *wa)
int	reduc_ (integer nm, integer n, real a, real b, real dl, integer ierr)
int	srotg_ (real sa, real sb, real sc, real ss)
int	bspev_ (real t, real ad, integer n, integer k, integer nderiv, real x, integer inev, real svalue, real *work)
int	cpevlr_ (integer n, integer m, real a, real x, real *c__)
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)
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)
E_f	erfc_ (real *x)
int	passb2_ (integer ido, integer l1, real cc, real ch, real *wa1)
int	reduc2_ (integer nm, integer n, real a, real b, real dl, integer ierr)
int	srotm_ (integer n, real sx, integer incx, real sy, integer incy, real sparam)
int	bsplvd_ (real t, integer k, real x, integer ileft, real vnikx, integer nderiv)
int	cpoco_ (complex a, integer lda, integer n, real rcond, complex z__, integer info)
doublereal	dcsevl_ (doublereal x, doublereal a, integer *n)
int	dpnnzr_ (integer i__, doublereal xval, integer iplace, doublereal sx, integer ix, integer ircx)
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)
int	passb3_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2)
int	reort_ (integer ncomp, real y, real yp, real yhp, integer niv, real w, real s, real p, integer ip, real stowa, integer *iflag)
int	srotmg_ (real sd1, real sd2, real sx1, real sy1, real *sparam)
int	bsplvn_ (real t, integer jhigh, integer index, real x, integer ileft, real vnikx)
int	cpodi_ (complex a, integer lda, integer n, real det, integer *job)
doublereal	dcv_ (doublereal xval, integer ndata, integer nconst, integer nord, integer nbkpt, doublereal bkpt, doublereal *w)
doublereal	dpoch_ (doublereal a, doublereal x)
int	exint_ (real x, integer n, integer kode, integer m, real tol, real en, integer *ierr)
int	passb4_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2, real *wa3)
E_f	rf_ (real x, real y, real z__, integer ier)
int	sscal_ (integer n, real sa, real sx, integer incx)
int	bsppp_ (real t, real a, integer n, integer k, integer ldc, real c__, real xi, integer lxi, real *work)
int	cpofa_ (complex a, integer lda, integer n, integer info)
doublereal	ddaws_ (doublereal *x)
doublereal	dpoch1_ (doublereal a, doublereal x)
E_f	exprel_ (real *x)
int	passb5_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2, real wa3, real wa4)
int	rfftb_ (integer n, real r__, real *wsave)
int	ssico_ (real a, integer lda, integer n, integer kpvt, real rcond, real z__)
int	bspvd_ (real t, integer k, integer nderiv, real x, integer ileft, integer ldvnik, real vnikx, real work)
int	cpofs_ (complex a, integer lda, integer n, complex v, integer itask, integer ind, complex *work)
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__)
int	dpoco_ (doublereal a, integer lda, integer n, doublereal rcond, doublereal z__, integer info)
int	ezfft1_ (integer n, real wa, integer *ifac)
int	passf_ (integer nac, integer ido, integer ip, integer l1, integer idl1, real cc, real c1, real c2, real ch, real ch2, real *wa)
int	rfftb1_ (integer n, real c__, real ch, real wa, integer *ifac)
int	ssidi_ (real a, integer lda, integer n, integer kpvt, real det, integer inert, real work, integer job)
int	bspvn_ (real t, integer jhigh, integer k, integer index, real x, integer ileft, real vnikx, real work, integer *iwork)
int	cpoir_ (complex a, integer lda, integer n, complex v, integer itask, integer ind, complex *work)
int	ddcstb_ (integer maxord, integer mint, integer iswflg, doublereal el, doublereal *tq)
int	dpodi_ (doublereal a, integer lda, integer n, doublereal det, integer *job)
int	ezfftb_ (integer n, real r__, real azero, real a, real b, real wsave)
int	passf2_ (integer ido, integer l1, real cc, real ch, real *wa1)
int	rfftf_ (integer n, real r__, real *wsave)
int	ssiev_ (real a, integer lda, integer n, real e, real work, integer job, integer *info)
int	bsqad_ (real t, real bcoef, integer n, integer k, real x1, real x2, real bquad, real work)
int	cposl_ (complex a, integer lda, integer n, complex b)
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)
int	dpofa_ (doublereal a, integer lda, integer n, integer info)
int	ezfftf_ (integer n, real r__, real azero, real a, real b, real wsave)
int	passf3_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2)
int	rfftf1_ (integer n, real c__, real ch, real wa, integer *ifac)
int	ssifa_ (real a, integer lda, integer n, integer kpvt, integer *info)
E_f	bsrh_ (real xll, real xrr, integer iz, real c__, real a, real bh, E_fp f, real *sgn)
int	cppco_ (complex ap, integer n, real rcond, complex z__, integer *info)
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)
int	dpofs_ (doublereal a, integer lda, integer n, doublereal v, integer itask, integer ind, doublereal *work)
int	ezffti_ (integer n, real wsave)
int	passf4_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2, real *wa3)
int	rffti_ (integer n, real wsave)
int	ssisl_ (real a, integer lda, integer n, integer kpvt, real *b)
E_f	bvalu_ (real t, real a, integer n, integer k, integer ideriv, real x, integer inbv, real work)
int	cppdi_ (complex ap, integer n, real det, integer job)
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)
int	dpolcf_ (doublereal xx, integer n, doublereal x, doublereal c__, doublereal d__, doublereal work)
E_f	fac_ (integer *n)
int	passf5_ (integer ido, integer l1, real cc, real ch, real wa1, real wa2, real wa3, real wa4)
int	rffti1_ (integer n, real wa, integer *ifac)
int	ssort_ (real x, real y, integer n, integer kflag)
E_f	bvalue_ (real t, real a, integer n, integer k, real x, integer ideriv)
int	cppfa_ (complex ap, integer n, integer *info)
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)
int	dpolft_ (integer n, doublereal x, doublereal y, doublereal w, integer maxdeg, integer ndeg, doublereal eps, doublereal r__, integer ierr, doublereal a)
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)
int	pchce_ (integer ic, real vc, integer n, real x, real h__, real slope, real d__, integer incfd, integer *ierr)
int	rg_ (integer nm, integer n, real a, real wr, real wi, integer matz, real z__, integer iv1, real fv1, integer ierr)
int	sspco_ (real ap, integer n, integer kpvt, real rcond, real *z__)
int	bvder_ (real x, real y, real yp, real g, integer *ipar)
int	cppsl_ (complex ap, integer n, complex *b)
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)
int	dpolvl_ (integer nder, doublereal xx, doublereal yfit, doublereal yp, integer n, doublereal x, doublereal c__, doublereal work, integer *ierr)
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)
int	pchci_ (integer n, real h__, real slope, real d__, integer *incfd)
E_f	rgauss_ (real xmean, real sd)
int	sspdi_ (real ap, integer n, integer kpvt, real det, integer inert, real work, integer *job)
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)
int	cpqr79_ (integer ndeg, complex coeff, complex root, integer ierr, real *work)
doublereal	ddiff_ (doublereal x, doublereal y)
int	dpopt_ (doublereal prgopt, integer mrelas, integer nvars__, integer info, doublereal csc, integer ibasis, doublereal ropt, integer intopt, logical *lopt)
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)
int	pchcs_ (real switch__, integer n, real h__, real slope, real d__, integer incfd, integer *ierr)
int	rgg_ (integer nm, integer n, real a, real b, real alfr, real alfi, real beta, integer matz, real z__, integer ierr)
int	sspev_ (real a, integer n, real e, real v, integer ldv, real work, integer job, integer info)
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)
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)
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)
int	dposl_ (doublereal a, integer lda, integer n, doublereal b)
int	fdjac2_ (S_fp fcn, integer m, integer n, real x, real fvec, real fjac, integer ldfjac, integer iflag, real epsfcn, real *wa)
E_f	pchdf_ (integer k, real x, real s, integer ierr)
E_f	rj_ (real x, real y, real z__, real p, integer *ier)
int	sspfa_ (real ap, integer n, integer kpvt, integer info)
C_f	c0lgmc_ (complex ret_val, complex z__)
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)
int	ddntpb_ (doublereal h__, integer k, integer n, integer nq, doublereal t, doublereal tout, doublereal yh, doublereal y)
int	dppco_ (doublereal ap, integer n, doublereal rcond, doublereal z__, integer *info)
int	fdjac3_ (S_fp fcn, integer m, integer n, real x, real fvec, real fjac, integer ldfjac, integer iflag, real epsfcn, real *wa)
int	pchdoc_ (void)
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)
int	sspsl_ (real ap, integer n, integer kpvt, real b)
C_f	c9lgmc_ (complex ret_val, complex zin)
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)
int	ddoglg_ (integer n, doublereal r__, integer lr, doublereal diag, doublereal qtb, doublereal delta, doublereal x, doublereal wa1, doublereal *wa2)
int	dppdi_ (doublereal ap, integer n, doublereal det, integer job)
int	fdump_ (void)
int	pchfd_ (integer n, real x, real f, real d__, integer incfd, logical skip, integer ne, real xe, real fe, real de, integer *ierr)
int	rpqr79_ (integer ndeg, real coeff, complex root, integer ierr, real *work)
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)
C_f	c9ln2r_ (complex ret_val, complex z__)
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)
doublereal	ddot_ (integer n, doublereal dx, integer incx, doublereal dy, integer *incy)
int	dppfa_ (doublereal ap, integer n, integer *info)
int	fftdoc_ (void)
int	pchfe_ (integer n, real x, real f, real d__, integer incfd, logical skip, integer ne, real xe, real fe, integer ierr)
int	rpzero_ (integer n, real a, complex r__, complex t, integer iflg, real s)
int	sswap_ (integer n, real sx, integer incx, real sy, integer *incy)
C_f	cacos_ (complex ret_val, complex z__)
C_f	cpsi_ (complex ret_val, complex zin)
int	ddpscb_ (integer ksgn, integer n, integer nq, doublereal yh)
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)
int	figi_ (integer nm, integer n, real t, real d__, real e, real e2, integer *ierr)
E_f	pchia_ (integer n, real x, real f, real d__, integer incfd, logical skip, real a, real b, integer *ierr)
int	rs_ (integer nm, integer n, real a, real w, integer matz, real z__, real fv1, real fv2, integer *ierr)
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)
C_f	cacosh_ (complex ret_val, complex z__)
int	cptsl_ (integer n, complex d__, complex e, complex b)
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)
int	dppqad_ (integer ldc, doublereal c__, doublereal xi, integer lxi, integer k, doublereal x1, doublereal x2, doublereal pquad)
int	figi2_ (integer nm, integer n, real t, real d__, real e, real z__, integer *ierr)
int	pchic_ (integer ic, real vc, real switch__, integer n, real x, real f, real d__, integer incfd, real wk, integer nwk, integer *ierr)
int	rsb_ (integer nm, integer n, integer mb, real a, real w, integer matz, real z__, real fv1, real fv2, integer ierr)
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)
E_f	carg_ (complex *z__)
int	cpzero_ (integer in, complex a, complex r__, complex t, integer iflg, real s)
int	ddrvb1_ (integer n, doublereal t, doublereal y, doublereal tout, integer mstate, doublereal eps, doublereal work, integer lenw)
int	dppsl_ (doublereal ap, integer n, doublereal *b)
int	fnlibd_ (void)
E_f	pchid_ (integer n, real x, real f, real d__, integer incfd, logical skip, integer ia, integer ib, integer *ierr)
int	rsco_ (real rsav, integer isav)
int	stltjs_ (integer m, integer n, doublereal b, doublereal g, doublereal fm, integer jsng, D_fp wf, D_fp phi, real endptl, real endptr)
C_f	casin_ (complex ret_val, complex zinp)
int	cqrdc_ (complex x, integer ldx, integer n, integer p, complex qraux, integer jpvt, complex work, integer job)
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)
doublereal	dppval_ (integer ldc, doublereal c__, doublereal xi, integer lxi, integer k, integer ideriv, doublereal x, integer inppv)
int	fulmat_ (integer i__, integer j, real aij, integer indcat, real prgopt, real dattrv, integer *iflag)
int	pchim_ (integer n, real x, real f, real d__, integer incfd, integer ierr)
int	rsg_ (integer nm, integer n, real a, real b, real w, integer matz, real z__, real fv1, real fv2, integer ierr)
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)
C_f	casinh_ (complex ret_val, complex z__)
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)
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)
doublereal	dprvec_ (integer m, doublereal u, doublereal *v)
int	fzero_ (E_fp f, real b, real c__, real r__, real re, real ae, integer iflag)
int	pchmc_ (integer n, real x, real f, real d__, integer incfd, logical skip, integer ismon, integer ierr)
int	rsgab_ (integer nm, integer n, real a, real b, real w, integer matz, real z__, real fv1, real fv2, integer ierr)
int	stor1_ (real u, real yh, real v, real yp, integer ntemp, integer ndisk, integer *ntape)
C_f	catan_ (complex ret_val, complex z__)
int	crotg_ (complex ca, complex cb, real c__, complex s)
int	ddsclb_ (doublereal hmax, integer n, integer nq, doublereal rmax, doublereal h__, doublereal rc, doublereal rh, doublereal yh)
int	dprwpg_ (integer key, integer ipage, integer lpg, doublereal sx, integer *ix)
E_f	gami_ (real a, real x)
int	pchngs_ (integer ii, real xval, integer iplace, real sx, integer ix, integer ircx)
int	rsgba_ (integer nm, integer n, real a, real b, real w, integer matz, real z__, real fv1, real fv2, integer ierr)
int	strco_ (real t, integer ldt, integer n, real rcond, real z__, integer job)
C_f	catan2_ (complex ret_val, complex csn, complex *ccs)
int	cscal_ (integer n, complex ca, complex cx, integer incx)
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)
int	dprwvr_ (integer key, integer ipage, integer lpg, doublereal sx, integer *ix)
E_f	gamic_ (real a, real x)
int	pchsp_ (integer ic, real vc, integer n, real x, real f, real d__, integer incfd, real wk, integer nwk, integer ierr)
int	rsp_ (integer nm, integer n, integer nv, real a, real w, integer matz, real z__, real fv1, real fv2, integer ierr)
int	strdi_ (real t, integer ldt, integer n, real det, integer job, integer info)
C_f	catanh_ (complex ret_val, complex z__)
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)
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)
doublereal	dpsi_ (doublereal *x)
E_f	gamit_ (real a, real x)
E_f	pchst_ (real arg1, real arg2)
int	rst_ (integer nm, integer n, real w, real e, integer matz, real z__, integer *ierr)
int	strsl_ (real t, integer ldt, integer n, real b, integer job, integer info)
int	caxpy_ (integer n, complex ca, complex cx, integer incx, complex cy, integer incy)
E_f	csevl_ (real x, real cs, integer *n)
doublereal	de1_ (doublereal *x)
int	dpsifn_ (doublereal x, integer n, integer kode, integer m, doublereal ans, integer nz, integer *ierr)
int	gamlim_ (real xmin, real xmax)
int	pchsw_ (real dfmax, integer iextrm, real d1, real d2, real h__, real slope, integer *ierr)
int	rt_ (integer nm, integer n, real a, real w, integer matz, real z__, real fv1, integer ierr)
int	stway_ (real u, real v, real yhp, integer inout, real *stowa)
int	cbabk2_ (integer nm, integer n, integer low, integer igh, real scale, integer m, real zr, real zi)
int	csico_ (complex a, integer lda, integer n, integer kpvt, real rcond, complex z__)
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)
doublereal	dpsixn_ (integer *n)
E_f	gamma_ (real *x)
int	pcoef_ (integer l, real c__, real tc, real a)
E_f	runif_ (real t, integer n)
int	suds_ (real a, real x, real b, integer neq, integer nuk, integer nrda, integer iflag, integer mlso, real work, integer iwork)
int	cbal_ (integer nm, integer n, real ar, real ai, integer low, integer igh, real *scale)
int	csidi_ (complex a, integer lda, integer n, integer kpvt, complex det, complex work, integer *job)
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)
int	dptsl_ (integer n, doublereal d__, doublereal e, doublereal b)
E_f	gamr_ (real *x)
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)
int	rwupdt_ (integer n, real r__, integer ldr, real w, real b, real alpha, real cos__, real sin__)
int	svco_ (real rsav, integer isav)
C_f	cbeta_ (complex ret_val, complex a, complex *b)
int	csifa_ (complex a, integer lda, integer n, integer kpvt, integer *info)
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)
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)
E_f	gamrn_ (real *x)
E_f	pgsf_ (real x, integer iz, real c__, real a, real *bh)
int	s88fmt_ (integer n, integer ivalue, integer *ifmt)
int	svd_ (integer nm, integer m, integer n, real a, real w, logical matu, real u, logical matv, real v, integer ierr, real *rv1)
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)
C_f	csinh_ (complex ret_val, complex z__)
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)
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)
int	gaus8_ (E_fp fun, real a, real b, real err, real ans, integer *ierr)
doublereal	phi_ (doublereal x, doublereal phiprm, real a, real b)
E_f	sasum_ (integer n, real sx, integer *incx)
int	svecs_ (integer ncomp, integer lnfc, real yhp, real work, integer iwork, integer inhomo, integer *iflag)
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)
int	csisl_ (complex a, integer lda, integer n, integer kpvt, complex *b)
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)
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)
E_f	gauss_ (integer n, E_fp y, integer m, S_fp ltbl)
E_f	pimach_ (real *dum)
int	saxpy_ (integer n, real sa, real sx, integer incx, real sy, integer incy)
int	svout_ (integer n, real sx, char ifmt, integer idigit, ftnlen ifmt_len)
E_f	cbrt_ (real *x)
int	cspco_ (complex ap, integer n, integer kpvt, real rcond, complex *z__)
int	defe4_ (S_fp cofx, integer idmn, real usol, real *grhs)
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)
int	gaussq_ (integer m, doublereal t, doublereal w, doublereal b, doublereal g, doublereal fm)
int	pinitm_ (integer m, integer n, real sx, integer ix, integer lmx, integer ipagef)
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)
int	swritp_ (integer ipage, integer list, real rlist, integer lpage, integer *irec)
int	cbshv_ (integer m, integer k, real aa, real z__)
int	cspdi_ (complex ap, integer n, integer kpvt, complex det, complex work, integer job)
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)
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)
int	genbun_ (integer nperod, integer n, integer mperod, integer m, real a, real b, real c__, integer idimy, real y, integer ierror, real *w)
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)
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)
int	tevlc_ (integer n, real d__, real e2, integer ierr)
C_f	ccbrt_ (complex ret_val, complex z__)
int	cspfa_ (complex ap, integer n, integer kpvt, integer info)
int	defer_ (S_fp cofx, S_fp cofy, integer idmn, real usol, real *grhs)
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)
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)
int	pnnzrs_ (integer i__, real xval, integer iplace, real sx, integer ix, integer ircx)
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)
int	tevls_ (integer n, real d__, real e2, integer ierr)
int	cchdc_ (complex a, integer lda, integer p, complex work, integer jpvt, integer job, integer *info)
int	cspsl_ (complex ap, integer n, integer kpvt, complex b)
doublereal	dei_ (doublereal *x)
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)
int	h12_ (integer mode, integer lpivot, integer l1, integer m, real u, integer iue, real up, real c__, integer ice, integer icv, integer *ncv)
E_f	poch_ (real a, real x)
E_f	scasum_ (integer n, complex cx, integer *incx)
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)
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)
int	csroot_ (real xr, real xi, real yr, real yi)
doublereal	denorm_ (integer n, doublereal x)
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)
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)
E_f	poch1_ (real a, real x)
int	schdc_ (real a, integer lda, integer p, real work, integer jpvt, integer job, integer *info)
int	tql1_ (integer n, real d__, real e, integer ierr)
int	cchex_ (complex r__, integer ldr, integer p, integer k, integer l, complex z__, integer ldz, integer nz, real c__, complex s, integer *job)
int	csrot_ (integer n, complex cx, integer incx, complex cy, integer incy, real c__, real *s)
doublereal	derf_ (doublereal *x)
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)
int	hkseq_ (real x, integer m, real h__, integer ierr)
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)
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)
int	tql2_ (integer nm, integer n, real d__, real e, real z__, integer ierr)
int	cchud_ (complex r__, integer ldr, integer p, complex x, complex z__, integer ldz, integer nz, complex y, real rho, real c__, complex *s)
int	csscal_ (integer n, real sa, complex cx, integer incx)
doublereal	derfc_ (doublereal *x)
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)
int	hqr_ (integer nm, integer n, integer low, integer igh, real h__, real wr, real wi, integer ierr)
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)
int	schex_ (real r__, integer ldr, integer p, integer k, integer l, real z__, integer ldz, integer nz, real c__, real s, integer *job)
int	tqlrat_ (integer n, real d__, real e2, integer ierr)
int	ccmpb_ (integer n, integer ierror, real an, real bn, real cn, real b, real ah, real bh)
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)
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)
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)
int	hqr2_ (integer nm, integer n, integer low, integer igh, real h__, real wr, real wi, real z__, integer *ierr)
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)
int	schud_ (real r__, integer ldr, integer p, real x, real z__, integer ldz, integer nz, real y, real rho, real c__, real *s)
int	trbak1_ (integer nm, integer n, real a, real e, integer m, real z__)
int	ccopy_ (integer n, complex cx, integer incx, complex cy, integer *incy)
int	cswap_ (integer n, complex cx, integer incx, complex cy, integer *incy)
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)
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)
int	hrmte_ (integer m, integer k, real aa, real z__)
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)
int	sclosm_ (integer *ipage)
int	trbak3_ (integer nm, integer n, integer nv, real a, integer m, real z__)
C_f	ccosh_ (complex ret_val, complex z__)
C_f	ctan_ (complex ret_val, complex z__)
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)
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)
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__)
int	poistg_ (integer nperod, integer n, integer mperod, integer m, real a, real b, real c__, integer idimy, real y, integer ierror, real *w)
E_f	scnrm2_ (integer n, complex cx, integer *incx)
int	tred1_ (integer nm, integer n, real a, real d__, real e, real e2)
C_f	ccot_ (complex ret_val, complex z__)
C_f	ctanh_ (complex ret_val, complex z__)
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)
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)
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)
int	polcof_ (real xx, integer n, real x, real c__, real d__, real work)
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)
int	tred2_ (integer nm, integer n, real a, real d__, real e, real z__)
C_f	cdcdot_ (complex ret_val, integer n, complex cb, complex cx, integer incx, complex cy, integer *incy)
int	ctrco_ (complex t, integer ldt, integer n, real rcond, complex z__, integer job)
int	dexint_ (doublereal x, integer n, integer kode, integer m, doublereal tol, doublereal en, integer *ierr)
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)
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)
int	polfit_ (integer n, real x, real y, real w, integer maxdeg, integer ndeg, real eps, real r__, integer ierr, real a)
int	scopy_ (integer n, real sx, integer incx, real sy, integer *incy)
int	tred3_ (integer n, integer nv, real a, real d__, real e, real e2)
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__)
int	ctrdi_ (complex t, integer ldt, integer n, complex det, integer job, integer info)
doublereal	dexprl_ (doublereal *x)
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)
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)
int	polint_ (integer n, real x, real y, real c__)
int	scopym_ (integer n, real sx, integer incx, real sy, integer *incy)
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)
int	cdcstb_ (integer maxord, integer mint, integer iswflg, real el, real *tq)
int	ctrsl_ (complex t, integer ldt, integer n, complex b, integer job, integer info)
doublereal	dfac_ (integer *n)
int	dqc25c_ (D_fp f, doublereal a, doublereal b, doublereal c__, doublereal result, doublereal abserr, integer krul, integer *neval)
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)
int	polyvl_ (integer nder, real xx, real yfit, real yp, integer n, real x, real c__, real work, integer *ierr)
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)
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)
int	cdiv_ (real ar, real ai, real br, real bi, real cr, real ci)
E_f	cv_ (real xval, integer ndata, integer nconst, integer nord, integer nbkpt, real bkpt, real *w)
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)
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)
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)
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)
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__)
int	tridq_ (integer mr, real a, real b, real c__, real y, real d__)
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)
doublereal	d1mach_ (integer *i__)
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)
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)
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)
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)
int	sdcstb_ (integer maxord, integer mint, integer iswflg, real el, real *tq)
int	tris4_ (integer n, real a, real b, real c__, real d__, real u, real *z__)
int	cdntpb_ (real h__, integer k, integer n, integer nq, real t, real tout, complex yh, complex y)
int	d1mpyq_ (integer m, integer n, doublereal a, integer lda, doublereal v, doublereal w)
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)
int	dqcheb_ (doublereal x, doublereal fval, doublereal cheb12, doublereal cheb24)
int	htrib3_ (integer nm, integer n, real a, real tau, integer m, real zr, real *zi)
int	ppadd_ (integer n, integer ierror, real a, real c__, complex cbp, real bp, real *bh)
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)
int	trisp_ (integer n, real a, real b, real c__, real d__, real u, real *z__)
C_f	cdotc_ (complex ret_val, integer n, complex cx, integer incx, complex cy, integer incy)
int	d1updt_ (integer m, integer n, doublereal s, integer ls, doublereal u, doublereal v, doublereal w, logical sing)
int	dfdjc3_ (S_fp fcn, integer m, integer n, doublereal x, doublereal fvec, doublereal fjac, integer ldfjac, integer iflag, doublereal epsfcn, doublereal *wa)
doublereal	dqdota_ (integer n, doublereal db, integer qc, doublereal dx, integer incx, doublereal dy, integer *incy)
int	htribk_ (integer nm, integer n, real ar, real ai, real tau, integer m, real zr, real zi)
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)
int	sdntpb_ (real h__, integer k, integer n, integer nq, real t, real tout, real yh, real y)
int	trix_ (integer idegbr, integer idegcr, integer m, real a, real b, real c__, real y, real tcos, real d__, real w)
C_f	cdotu_ (complex ret_val, integer n, complex cx, integer incx, complex cy, integer incy)
int	d9aimp_ (doublereal x, doublereal ampl, doublereal *theta)
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)
doublereal	dqdoti_ (integer n, doublereal db, integer qc, doublereal dx, integer incx, doublereal dy, integer *incy)
int	htrid3_ (integer nm, integer n, real a, real d__, real e, real e2, real *tau)
E_f	ppgsf_ (real x, integer iz, real c__, real a, real *bh)
E_f	sdot_ (integer n, real sx, integer incx, real sy, integer *incy)
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)
int	cdpscb_ (integer ksgn, integer n, integer nq, complex yh)
doublereal	d9atn1_ (doublereal *x)
int	dfspvd_ (doublereal t, integer k, doublereal x, integer ileft, doublereal vnikx, integer nderiv)
int	dqelg_ (integer n, doublereal epstab, doublereal result, doublereal abserr, doublereal res3la, integer nres)
int	htridi_ (integer nm, integer n, real ar, real ai, real d__, real e, real e2, real tau)
E_f	pppsf_ (real x, integer iz, real c__, real a, real *bh)
int	sdpscb_ (integer ksgn, integer n, integer nq, real yh)
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)
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)
int	d9b0mp_ (doublereal x, doublereal ampl, doublereal *theta)
int	dfspvn_ (doublereal t, integer jhigh, integer index, doublereal x, integer ileft, doublereal vnikx)
int	dqform_ (integer m, integer n, doublereal q, integer ldq, doublereal *wa)
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)
int	ppqad_ (integer ldc, real c__, real xi, integer lxi, integer k, real x1, real x2, real pquad)
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)
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)
int	cdrvb1_ (integer n, real t, complex y, real tout, integer mstate, real eps, complex work, integer lenw)
int	d9b1mp_ (doublereal x, doublereal ampl, doublereal *theta)
int	dfulmt_ (integer i__, integer j, doublereal aij, integer indcat, doublereal prgopt, doublereal dattrv, integer *iflag)
int	dqk15_ (D_fp f, doublereal a, doublereal b, doublereal result, doublereal abserr, doublereal resabs, doublereal resasc)
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)
E_f	ppsgf_ (real x, integer iz, real c__, real a, real *bh)
int	sdrvb1_ (integer n, real t, real y, real tout, integer mstate, real eps, real work, integer lenw)
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)
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)
doublereal	d9chu_ (doublereal a, doublereal b, doublereal *z__)
int	dfzero_ (D_fp f, doublereal b, doublereal c__, doublereal r__, doublereal re, doublereal ae, integer iflag)
int	dqk15i_ (D_fp f, doublereal boun, integer inf, doublereal a, doublereal b, doublereal result, doublereal abserr, doublereal resabs, doublereal resasc)
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)
E_f	ppspf_ (real x, integer iz, real c__, real a, real *bh)
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)
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)
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)
doublereal	d9gmic_ (doublereal a, doublereal x, doublereal *alx)
doublereal	dgami_ (doublereal a, doublereal x)
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)
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)
E_f	ppval_ (integer ldc, real c__, real xi, integer lxi, integer k, integer ideriv, real x, integer inppv)
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)
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)
int	cdsclb_ (real hmax, integer n, integer nq, real rmax, real h__, real rc, real rh, complex yh)
doublereal	d9gmit_ (doublereal a, doublereal x, doublereal algap1, doublereal sgngam, doublereal *alx)
doublereal	dgamic_ (doublereal a, doublereal x)
int	dqk21_ (D_fp f, doublereal a, doublereal b, doublereal result, doublereal abserr, doublereal resabs, doublereal resasc)
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)
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)
int	sdsclb_ (real hmax, integer n, integer nq, real rmax, real h__, real rc, real rh, real yh)
int	usrmat_ (integer i__, integer j, real aij, integer indcat, real prgopt, real dattrv, integer *iflag)
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)
int	d9knus_ (doublereal xnu, doublereal x, doublereal bknu, doublereal bknu1, integer *iswtch)
doublereal	dgamit_ (doublereal a, doublereal x)
int	dqk31_ (D_fp f, doublereal a, doublereal b, doublereal result, doublereal abserr, doublereal resabs, doublereal resasc)
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)
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)
E_f	sdsdot_ (integer n, real sb, real sx, integer incx, real sy, integer incy)
E_f	vnorm_ (real v, integer ncomp)
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)
doublereal	d9lgic_ (doublereal a, doublereal x, doublereal *alx)
int	dgamlm_ (doublereal xmin, doublereal xmax)
int	dqk41_ (D_fp f, doublereal a, doublereal b, doublereal result, doublereal abserr, doublereal resabs, doublereal resasc)
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__)
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)
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)
E_f	vnwrms_ (integer n, real v, real *w)
C_f	cexprl_ (complex ret_val, complex z__)
doublereal	d9lgit_ (doublereal a, doublereal x, doublereal *algap1)
doublereal	dgamma_ (doublereal *x)
int	dqk51_ (D_fp f, doublereal a, doublereal b, doublereal result, doublereal abserr, doublereal resabs, doublereal resasc)
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)
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)
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)
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)
int	cfftb_ (integer n, complex c__, real *wsave)
doublereal	d9lgmc_ (doublereal *x)
doublereal	dgamr_ (doublereal *x)
int	dqk61_ (D_fp f, doublereal a, doublereal b, doublereal result, doublereal abserr, doublereal resabs, doublereal resasc)
integer	i1mach_ (integer *i__)
E_f	prvec_ (integer m, real u, real *v)
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)
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__)
int	cfftb1_ (integer n, real c__, real ch, real wa, integer *ifac)
doublereal	d9ln2r_ (doublereal *x)
doublereal	dgamrn_ (doublereal *x)
int	dqmomo_ (doublereal alfa, doublereal beta, doublereal ri, doublereal rj, doublereal rg, doublereal rh, integer *integr)
integer	icamax_ (integer n, complex cx, integer *incx)
int	prwpge_ (integer key, integer ipage, integer lpg, real sx, integer *ix)
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)
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)
int	cfftf_ (integer n, complex c__, real *wsave)
doublereal	d9pak_ (doublereal y, integer n)
int	dgaus8_ (D_fp fun, doublereal a, doublereal b, doublereal err, doublereal ans, integer *ierr)
int	dqnc79_ (D_fp fun, doublereal a, doublereal b, doublereal err, doublereal ans, integer ierr, integer k)
integer	idamax_ (integer n, doublereal dx, integer *incx)
int	prwvir_ (integer key, integer ipage, integer lpg, real sx, integer *ix)
int	sgbco_ (real abd, integer lda, integer n, integer ml, integer mu, integer ipvt, real rcond, real z__)
int	xerabt_ (char messg, integer nmessg, ftnlen messg_len)
int	cfftf1_ (integer n, real c__, real ch, real wa, integer *ifac)
int	d9upak_ (doublereal x, doublereal y, integer *n)
int	dgbco_ (doublereal abd, integer lda, integer n, integer ml, integer mu, integer ipvt, doublereal rcond, doublereal z__)
int	dqng_ (D_fp f, doublereal a, doublereal b, doublereal epsabs, doublereal epsrel, doublereal result, doublereal abserr, integer neval, integer ier)
int	imtql1_ (integer n, real d__, real e, integer ierr)
E_f	psgf_ (real x, integer iz, real c__, real a, real *bh)
int	sgbdi_ (real abd, integer lda, integer n, integer ml, integer mu, integer ipvt, real *det)
int	xerclr_ (void)
int	cffti_ (integer n, real wsave)
doublereal	dacosh_ (doublereal *x)
int	dgbdi_ (doublereal abd, integer lda, integer n, integer ml, integer mu, integer ipvt, doublereal *det)
int	dqpsrt_ (integer limit, integer last, integer maxerr, doublereal ermax, doublereal elist, integer iord, integer *nrmax)
int	imtql2_ (integer nm, integer n, real d__, real e, real z__, integer ierr)
E_f	psi_ (real *x)
int	sgbfa_ (real abd, integer lda, integer n, integer ml, integer mu, integer ipvt, integer *info)
int	xerctl_ (char messg1, integer nmessg, integer nerr, integer level, integer *kontrl, ftnlen messg1_len)
int	cffti1_ (integer n, real wa, integer *ifac)
doublereal	dai_ (doublereal *x)
int	dgbfa_ (doublereal abd, integer lda, integer n, integer ml, integer mu, integer ipvt, integer *info)
int	dqrdc_ (doublereal x, integer ldx, integer n, integer p, doublereal qraux, integer jpvt, doublereal work, integer job)
int	imtqlv_ (integer n, real d__, real e, real e2, real w, integer ind, integer ierr, real rv1)
int	psifn_ (real x, integer n, integer kode, integer m, real ans, integer nz, integer *ierr)
int	sgbsl_ (real abd, integer lda, integer n, integer ml, integer mu, integer ipvt, real b, integer job)
int	xerdmp_ (void)
int	cfod_ (integer meth, real elco, real *tesco)
doublereal	daie_ (doublereal *x)
int	dgbsl_ (doublereal abd, integer lda, integer n, integer ml, integer mu, integer ipvt, doublereal b, integer job)
int	dqrfac_ (integer m, integer n, doublereal a, integer lda, logical pivot, integer ipvt, integer lipvt, doublereal sigma, doublereal acnorm, doublereal wa)
int	indxa_ (integer i__, integer ir, integer idxa, integer na)
E_f	psixn_ (integer *n)
int	sgeco_ (real a, integer lda, integer n, integer ipvt, real rcond, real z__)
int	xermax_ (integer *max__)
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)
doublereal	dasinh_ (doublereal *x)
int	dgeco_ (doublereal a, integer lda, integer n, integer ipvt, doublereal rcond, doublereal z__)
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)
int	indxb_ (integer i__, integer ir, integer idx, integer idp)
int	pvalue_ (integer l, integer nder, real x, real yfit, real yp, real a)
int	sgedi_ (real a, integer lda, integer n, integer ipvt, real det, real work, integer *job)
int	xerprt_ (char messg, integer nmessg, ftnlen messg_len)
C_f	cgamma_ (complex ret_val, complex z__)
doublereal	dasum_ (integer n, doublereal dx, integer *incx)
int	dgedi_ (doublereal a, integer lda, integer n, integer ipvt, doublereal det, doublereal work, integer *job)
int	dqrslv_ (integer n, doublereal r__, integer ldr, integer ipvt, doublereal diag, doublereal qtb, doublereal x, doublereal sigma, doublereal *wa)
int	indxc_ (integer i__, integer ir, integer idxc, integer nc)
E_f	pythag_ (real a, real b)
int	sgeev_ (real a, integer lda, integer n, real e, real v, integer ldv, real work, integer job, integer *info)
int	xerror_ (char messg, integer nmessg, integer nerr, integer level, ftnlen messg_len)
C_f	cgamr_ (complex ret_val, complex z__)
int	dasyik_ (doublereal x, doublereal fnu, integer kode, doublereal flgik, doublereal ra, doublereal arg, integer in, doublereal y)
int	dgefa_ (doublereal a, integer lda, integer n, integer ipvt, integer *info)
doublereal	dqwgtc_ (doublereal x, doublereal c__, doublereal p2, doublereal p3, doublereal p4, integer kp)
integer	initds_ (doublereal dos, integer nos, real *eta)
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)
int	sgefa_ (real a, integer lda, integer n, integer ipvt, integer *info)
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)
int	cgbco_ (complex abd, integer lda, integer n, integer ml, integer mu, integer ipvt, real rcond, complex z__)
int	dasyjy_ (S_fp funjy, doublereal x, doublereal fnu, doublereal flgjy, integer in, doublereal y, doublereal wk, integer *iflw)
int	dgefs_ (doublereal a, integer lda, integer n, doublereal v, integer itask, integer ind, doublereal work, integer iwork)
doublereal	dqwgtf_ (doublereal x, doublereal omega, doublereal p2, doublereal p3, doublereal p4, integer integr)
integer	inits_ (real os, integer nos, real *eta)
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)
int	sgefs_ (real a, integer lda, integer n, real v, integer itask, integer ind, real work, integer iwork)
int	xersav_ (char messg, integer nmessg, integer nerr, integer level, integer *icount, ftnlen messg_len)
int	cgbdi_ (complex abd, integer lda, integer n, integer ml, integer mu, integer ipvt, complex *det)
doublereal	datanh_ (doublereal *x)
int	dgesl_ (doublereal a, integer lda, integer n, integer ipvt, doublereal b, integer job)
doublereal	dqwgts_ (doublereal x, doublereal a, doublereal b, doublereal alfa, doublereal beta, integer integr)
int	interv_ (real xt, integer lxt, real x, integer ileft, integer *mflag)
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)
int	sgeir_ (real a, integer lda, integer n, real v, integer itask, integer ind, real work, integer iwork)
int	xgetf_ (integer *kontrl)
int	cgbfa_ (complex abd, integer lda, integer n, integer ml, integer mu, integer ipvt, integer *info)
int	davint_ (doublereal x, doublereal y, integer n, doublereal xlo, doublereal xup, doublereal ans, integer *ierr)
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)
doublereal	drc_ (doublereal x, doublereal y, integer *ier)
int	intrp_ (real x, real y, real xout, real yout, real ypout, integer neqn, integer kold, real phi, real *psi)
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)
int	sgemm_ (integer m, integer n, integer l, real a, integer ia, real b, integer ib, real c__, integer ic, integer jtrpos, integer *job)
int	xgetua_ (integer iunita, integer n)
int	cgbsl_ (complex abd, integer lda, integer n, integer ml, integer mu, integer ipvt, complex b, integer job)
E_f	daws_ (real *x)
int	dgtsl_ (integer n, doublereal c__, doublereal d__, doublereal e, doublereal b, integer info)
doublereal	drd_ (doublereal x, doublereal y, doublereal z__, integer ier)
int	intrv_ (real xt, integer lxt, real x, integer ilo, integer ileft, integer mflag)
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)
int	sgemv_ (integer m, integer n, real a, integer ia, real x, integer ix, real y, integer iy, integer *job)
int	xgetun_ (integer *iunit)
int	cgeco_ (complex a, integer lda, integer n, integer ipvt, real rcond, complex z__)
int	daxpy_ (integer n, doublereal da, doublereal dx, integer incx, doublereal dy, integer incy)
int	dh12_ (integer mode, integer lpivot, integer l1, integer m, doublereal u, integer iue, doublereal up, doublereal c__, integer ice, integer icv, integer *ncv)
int	dreadp_ (integer ipage, integer list, doublereal rlist, integer lpage, integer *irec)
int	intyd_ (real t, integer k, real yh, integer nyh, real dky, integer iflag)
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)
int	sgesl_ (real a, integer lda, integer n, integer ipvt, real b, integer job)
int	xsetf_ (integer *kontrl)
int	cgedi_ (complex a, integer lda, integer n, integer ipvt, complex det, complex work, integer *job)
int	dbdiff_ (integer l, doublereal v)
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)
int	dreort_ (integer ncomp, doublereal y, doublereal yp, doublereal yhp, integer niv, doublereal w, doublereal s, doublereal p, integer ip, doublereal stowa, integer *iflag)
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)
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)
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)
int	xsetua_ (integer iunita, integer n)
int	cgeev_ (real a, integer lda, integer n, real e, real v, integer ldv, real work, integer job, integer *info)
int	dbesi_ (doublereal x, doublereal alpha, integer kode, integer n, doublereal y, integer nz)
int	dhkseq_ (doublereal x, integer m, doublereal h__, integer ierr)
doublereal	drf_ (doublereal x, doublereal y, doublereal z__, integer ier)
int	inxca_ (integer i__, integer ir, integer idxa, integer na)
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)
int	sgtsl_ (integer n, real c__, real d__, real e, real b, integer info)
int	xsetun_ (integer *iunit)
int	cgefa_ (complex a, integer lda, integer n, integer ipvt, integer *info)
doublereal	dbesi0_ (doublereal *x)
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__)
doublereal	drj_ (doublereal x, doublereal y, doublereal z__, doublereal p, integer *ier)
int	inxcb_ (integer i__, integer ir, integer idx, integer idp)
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)
E_f	sindg_ (real *x)
int	yairy_ (real x, real rx, real c__, real bi, real *dbi)
int	cgefs_ (complex a, integer lda, integer n, complex v, integer itask, integer ind, complex work, integer iwork)
doublereal	dbesi1_ (doublereal *x)
E_f	diff_ (real x, real y)
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)
int	inxcc_ (integer i__, integer ir, integer idxc, integer nc)
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)
int	sinqb_ (integer n, real x, real *wsave)

Function Documentation

int aaaaaa_

(

void

)

E_f acosh_

(

real *

)

E_f ai_

(

real *

)

E_f aie_

(

real *

)

E_f albeta_	(	real *	a,
		real *	b
	)

int algams_	(	real *	x,
		real *	algam,
		real *	sgngam
	)

E_f ali_

(

real *

)

E_f alngam_

(

real *

)

E_f alnrel_

(

real *

)

E_f asinh_

(

real *

)

int asyik_	(	real *	x,
		real *	fnu,
		integer *	kode,
		real *	flgik,
		real *	ra,
		real *	arg,
		integer *	in,
		real *	y
	)

int asyjy_	(	S_fp	funjy,
		real *	x,
		real *	fnu,
		real *	flgjy,
		integer *	in,
		real *	y,
		real *	wk,
		integer *	iflw
	)

E_f atanh_

(

real *

)

int avint_	(	real *	x,
		real *	y,
		integer *	n,
		real *	xlo,
		real *	xup,
		real *	ans,
		integer *	ierr
	)

int bakvec_	(	integer *	nm,
		integer *	n,
		real *	t,
		real *	e,
		integer *	m,
		real *	z__,
		integer *	ierr
	)

int balanc_	(	integer *	nm,
		integer *	n,
		real *	a,
		integer *	low,
		integer *	igh,
		real *	scale
	)

int balbak_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	scale,
		integer *	m,
		real *	z__
	)

int bandr_	(	integer *	nm,
		integer *	n,
		integer *	mb,
		real *	a,
		real *	d__,
		real *	e,
		real *	e2,
		logical *	matz,
		real *	z__
	)

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
	)

E_f bcrh_	(	real *	xll,
		real *	xrr,
		integer *	iz,
		real *	c__,
		real *	a,
		real *	bh,
		E_fp	f,
		real *	sgn
	)

int bdiff_	(	integer *	l,
		real *	v
	)

E_f besi0_

(

real *

)

E_f besi0e_

(

real *

)

E_f besi1_

(

real *

)

E_f besi1e_

(

real *

)

int besi_	(	real *	x,
		real *	alpha,
		integer *	kode,
		integer *	n,
		real *	y,
		integer *	nz
	)

E_f besj0_

(

real *

)

E_f besj1_

(

real *

)

int besj_	(	real *	x,
		real *	alpha,
		integer *	n,
		real *	y,
		integer *	nz
	)

E_f besk0_

(

real *

)

E_f besk0e_

(

real *

)

E_f besk1_

(

real *

)

E_f besk1e_

(

real *

)

int besk_	(	real *	x,
		real *	fnu,
		integer *	kode,
		integer *	n,
		real *	y,
		integer *	nz
	)

int beskes_	(	real *	xnu,
		real *	x,
		integer *	nin,
		real *	bke
	)

int besknu_	(	real *	x,
		real *	fnu,
		integer *	kode,
		integer *	n,
		real *	y,
		integer *	nz
	)

int besks_	(	real *	xnu,
		real *	x,
		integer *	nin,
		real *	bk
	)

E_f besy0_

(

real *

)

E_f besy1_

(

real *

)

int besy_	(	real *	x,
		real *	fnu,
		integer *	n,
		real *	y
	)

int besynu_	(	real *	x,
		real *	fnu,
		integer *	n,
		real *	y
	)

E_f beta_	(	real *	a,
		real *	b
	)

E_f betai_	(	real *	x,
		real *	pin,
		real *	qin
	)

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
	)

E_f bi_

(

real *

)

E_f bie_

(

real *

)

E_f binom_	(	integer *	n,
		integer *	m
	)

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
	)

int bintk_	(	real *	x,
		real *	y,
		real *	t,
		integer *	n,
		integer *	k,
		real *	bcoef,
		real *	q,
		real *	work
	)

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
	)

int bkias_	(	real *	x,
		integer *	n,
		integer *	ktrms,
		real *	t,
		real *	ans,
		integer *	ind,
		integer *	ms,
		real *	gmrn,
		real *	h__,
		integer *	ierr
	)

int bkisr_	(	real *	x,
		integer *	n,
		real *	sum,
		integer *	ierr
	)

int bksol_	(	integer *	n,
		real *	a,
		real *	x
	)

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
	)

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
	)

int bndacc_	(	real *	g,
		integer *	mdg,
		integer *	nb,
		integer *	ip,
		integer *	ir,
		integer *	mt,
		integer *	jt
	)

int bndsol_	(	integer *	mode,
		real *	g,
		integer *	mdg,
		integer *	nb,
		integer *	ip,
		integer *	ir,
		real *	x,
		integer *	n,
		real *	rnorm
	)

int bnfac_	(	real *	w,
		integer *	nroww,
		integer *	nrow,
		integer *	nbandl,
		integer *	nbandu,
		integer *	iflag
	)

int bnslv_	(	real *	w,
		integer *	nroww,
		integer *	nrow,
		integer *	nbandl,
		integer *	nbandu,
		real *	b
	)

int bqr_	(	integer *	nm,
		integer *	n,
		integer *	mb,
		real *	a,
		real *	t,
		real *	r__,
		integer *	ierr,
		integer *	nv,
		real *	rv
	)

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
	)

int bskin_	(	real *	x,
		integer *	n,
		integer *	kode,
		integer *	m,
		real *	y,
		integer *	nz,
		integer *	ierr
	)

int bspdoc_

(

void

)

int bspdr_	(	real *	t,
		real *	a,
		integer *	n,
		integer *	k,
		integer *	nderiv,
		real *	ad
	)

int bspev_	(	real *	t,
		real *	ad,
		integer *	n,
		integer *	k,
		integer *	nderiv,
		real *	x,
		integer *	inev,
		real *	svalue,
		real *	work
	)

int bsplvd_	(	real *	t,
		integer *	k,
		real *	x,
		integer *	ileft,
		real *	vnikx,
		integer *	nderiv
	)

int bsplvn_	(	real *	t,
		integer *	jhigh,
		integer *	index,
		real *	x,
		integer *	ileft,
		real *	vnikx
	)

int bsppp_	(	real *	t,
		real *	a,
		integer *	n,
		integer *	k,
		integer *	ldc,
		real *	c__,
		real *	xi,
		integer *	lxi,
		real *	work
	)

int bspvd_	(	real *	t,
		integer *	k,
		integer *	nderiv,
		real *	x,
		integer *	ileft,
		integer *	ldvnik,
		real *	vnikx,
		real *	work
	)

int bspvn_	(	real *	t,
		integer *	jhigh,
		integer *	k,
		integer *	index,
		real *	x,
		integer *	ileft,
		real *	vnikx,
		real *	work,
		integer *	iwork
	)

int bsqad_	(	real *	t,
		real *	bcoef,
		integer *	n,
		integer *	k,
		real *	x1,
		real *	x2,
		real *	bquad,
		real *	work
	)

E_f bsrh_	(	real *	xll,
		real *	xrr,
		integer *	iz,
		real *	c__,
		real *	a,
		real *	bh,
		E_fp	f,
		real *	sgn
	)

E_f bvalu_	(	real *	t,
		real *	a,
		integer *	n,
		integer *	k,
		integer *	ideriv,
		real *	x,
		integer *	inbv,
		real *	work
	)

E_f bvalue_	(	real *	t,
		real *	a,
		integer *	n,
		integer *	k,
		real *	x,
		integer *	ideriv
	)

int bvder_	(	real *	x,
		real *	y,
		real *	yp,
		real *	g,
		integer *	ipar
	)

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
	)

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
	)

C_f c0lgmc_	(	complex *	ret_val,
		complex *	z__
	)

C_f c9lgmc_	(	complex *	ret_val,
		complex *	zin
	)

C_f c9ln2r_	(	complex *	ret_val,
		complex *	z__
	)

C_f cacos_	(	complex *	ret_val,
		complex *	z__
	)

C_f cacosh_	(	complex *	ret_val,
		complex *	z__
	)

E_f carg_

(

complex *

z__

)

C_f casin_	(	complex *	ret_val,
		complex *	zinp
	)

C_f casinh_	(	complex *	ret_val,
		complex *	z__
	)

C_f catan2_	(	complex *	ret_val,
		complex *	csn,
		complex *	ccs
	)

C_f catan_	(	complex *	ret_val,
		complex *	z__
	)

C_f catanh_	(	complex *	ret_val,
		complex *	z__
	)

int caxpy_	(	integer *	n,
		complex *	ca,
		complex *	cx,
		integer *	incx,
		complex *	cy,
		integer *	incy
	)

int cbabk2_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	scale,
		integer *	m,
		real *	zr,
		real *	zi
	)

int cbal_	(	integer *	nm,
		integer *	n,
		real *	ar,
		real *	ai,
		integer *	low,
		integer *	igh,
		real *	scale
	)

C_f cbeta_	(	complex *	ret_val,
		complex *	a,
		complex *	b
	)

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
	)

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
	)

E_f cbrt_

(

real *

)

int cbshv_	(	integer *	m,
		integer *	k,
		real *	aa,
		real *	z__
	)

C_f ccbrt_	(	complex *	ret_val,
		complex *	z__
	)

int cchdc_	(	complex *	a,
		integer *	lda,
		integer *	p,
		complex *	work,
		integer *	jpvt,
		integer *	job,
		integer *	info
	)

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
	)

int cchex_	(	complex *	r__,
		integer *	ldr,
		integer *	p,
		integer *	k,
		integer *	l,
		complex *	z__,
		integer *	ldz,
		integer *	nz,
		real *	c__,
		complex *	s,
		integer *	job
	)

int cchud_	(	complex *	r__,
		integer *	ldr,
		integer *	p,
		complex *	x,
		complex *	z__,
		integer *	ldz,
		integer *	nz,
		complex *	y,
		real *	rho,
		real *	c__,
		complex *	s
	)

int ccmpb_	(	integer *	n,
		integer *	ierror,
		real *	an,
		real *	bn,
		real *	cn,
		real *	b,
		real *	ah,
		real *	bh
	)

int ccopy_	(	integer *	n,
		complex *	cx,
		integer *	incx,
		complex *	cy,
		integer *	incy
	)

C_f ccosh_	(	complex *	ret_val,
		complex *	z__
	)

C_f ccot_	(	complex *	ret_val,
		complex *	z__
	)

C_f cdcdot_	(	complex *	ret_val,
		integer *	n,
		complex *	cb,
		complex *	cx,
		integer *	incx,
		complex *	cy,
		integer *	incy
	)

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__
	)

int cdcstb_	(	integer *	maxord,
		integer *	mint,
		integer *	iswflg,
		real *	el,
		real *	tq
	)

int cdiv_	(	real *	ar,
		real *	ai,
		real *	br,
		real *	bi,
		real *	cr,
		real *	ci
	)

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
	)

int cdntpb_	(	real *	h__,
		integer *	k,
		integer *	n,
		integer *	nq,
		real *	t,
		real *	tout,
		complex *	yh,
		complex *	y
	)

C_f cdotc_	(	complex *	ret_val,
		integer *	n,
		complex *	cx,
		integer *	incx,
		complex *	cy,
		integer *	incy
	)

C_f cdotu_	(	complex *	ret_val,
		integer *	n,
		complex *	cx,
		integer *	incx,
		complex *	cy,
		integer *	incy
	)

int cdpscb_	(	integer *	ksgn,
		integer *	n,
		integer *	nq,
		complex *	yh
	)

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
	)

int cdrvb1_	(	integer *	n,
		real *	t,
		complex *	y,
		real *	tout,
		integer *	mstate,
		real *	eps,
		complex *	work,
		integer *	lenw
	)

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
	)

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
	)

int cdsclb_	(	real *	hmax,
		integer *	n,
		integer *	nq,
		real *	rmax,
		real *	h__,
		real *	rc,
		real *	rh,
		complex *	yh
	)

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
	)

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
	)

C_f cexprl_	(	complex *	ret_val,
		complex *	z__
	)

int cfftb1_	(	integer *	n,
		real *	c__,
		real *	ch,
		real *	wa,
		integer *	ifac
	)

int cfftb_	(	integer *	n,
		complex *	c__,
		real *	wsave
	)

int cfftf1_	(	integer *	n,
		real *	c__,
		real *	ch,
		real *	wa,
		integer *	ifac
	)

int cfftf_	(	integer *	n,
		complex *	c__,
		real *	wsave
	)

int cffti1_	(	integer *	n,
		real *	wa,
		integer *	ifac
	)

int cffti_	(	integer *	n,
		real *	wsave
	)

int cfod_	(	integer *	meth,
		real *	elco,
		real *	tesco
	)

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
	)

C_f cgamma_	(	complex *	ret_val,
		complex *	z__
	)

C_f cgamr_	(	complex *	ret_val,
		complex *	z__
	)

int cgbco_	(	complex *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		real *	rcond,
		complex *	z__
	)

int cgbdi_	(	complex *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		complex *	det
	)

int cgbfa_	(	complex *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		integer *	info
	)

int cgbsl_	(	complex *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		complex *	b,
		integer *	job
	)

int cgeco_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		real *	rcond,
		complex *	z__
	)

int cgedi_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		complex *	det,
		complex *	work,
		integer *	job
	)

int cgeev_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	e,
		real *	v,
		integer *	ldv,
		real *	work,
		integer *	job,
		integer *	info
	)

int cgefa_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		integer *	info
	)

int cgefs_	(	complex *	a,
		integer *	lda,
		integer *	n,
		complex *	v,
		integer *	itask,
		integer *	ind,
		complex *	work,
		integer *	iwork
	)

int cgeir_	(	complex *	a,
		integer *	lda,
		integer *	n,
		complex *	v,
		integer *	itask,
		integer *	ind,
		complex *	work,
		integer *	iwork
	)

int cgesl_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		complex *	b,
		integer *	job
	)

int cgtsl_	(	integer *	n,
		complex *	c__,
		complex *	d__,
		complex *	e,
		complex *	b,
		integer *	info
	)

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
	)

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
	)

int chfev_	(	real *	x1,
		real *	x2,
		real *	f1,
		real *	f2,
		real *	d1,
		real *	d2,
		integer *	ne,
		real *	xe,
		real *	fe,
		integer *	next,
		integer *	ierr
	)

E_f chfiv_	(	real *	x1,
		real *	x2,
		real *	f1,
		real *	f2,
		real *	d1,
		real *	d2,
		real *	a,
		real *	b,
		integer *	ierr
	)

integer chfmc_	(	real *	d1,
		real *	d2,
		real *	delta
	)

int chico_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		real *	rcond,
		complex *	z__
	)

int chidi_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		real *	det,
		integer *	inert,
		complex *	work,
		integer *	job
	)

int chiev_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	e,
		real *	v,
		integer *	ldv,
		real *	work,
		integer *	job,
		integer *	info
	)

int chifa_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		integer *	info
	)

int chisl_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		complex *	b
	)

int chkder_	(	integer *	m,
		integer *	n,
		real *	x,
		real *	fvec,
		real *	fjac,
		integer *	ldfjac,
		real *	xp,
		real *	fvecp,
		integer *	mode,
		real *	err
	)

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
	)

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
	)

int chksn4_	(	integer *	mbdcnd,
		integer *	nbdcnd,
		real *	alpha,
		real *	beta,
		S_fp	cofx,
		logical *	singlr
	)

int chksng_	(	integer *	mbdcnd,
		integer *	nbdcnd,
		real *	alpha,
		real *	beta,
		real *	gama,
		real *	xnu,
		S_fp	cofx,
		S_fp	cofy,
		logical *	singlr
	)

int chpco_	(	complex *	ap,
		integer *	n,
		integer *	kpvt,
		real *	rcond,
		complex *	z__
	)

int chpdi_	(	complex *	ap,
		integer *	n,
		integer *	kpvt,
		real *	det,
		integer *	inert,
		complex *	work,
		integer *	job
	)

int chpfa_	(	complex *	ap,
		integer *	n,
		integer *	kpvt,
		integer *	info
	)

int chpsl_	(	complex *	ap,
		integer *	n,
		integer *	kpvt,
		complex *	b
	)

E_f chu_	(	real *	a,
		real *	b,
		real *	x
	)

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
	)

C_f clbeta_	(	complex *	ret_val,
		complex *	a,
		complex *	b
	)

C_f clngam_	(	complex *	ret_val,
		complex *	zin
	)

C_f clnrel_	(	complex *	ret_val,
		complex *	z__
	)

C_f clog10_	(	complex *	ret_val,
		complex *	z__
	)

int cmgnbn_	(	integer *	nperod,
		integer *	n,
		integer *	mperod,
		integer *	m,
		complex *	a,
		complex *	b,
		complex *	c__,
		integer *	idimy,
		complex *	y,
		integer *	ierror,
		complex *	w
	)

int cmpcsg_	(	integer *	n,
		integer *	ijump,
		real *	fnum,
		real *	fden,
		complex *	a
	)

int cmpmrg_	(	complex *	tcos,
		integer *	i1,
		integer *	m1,
		integer *	i2,
		integer *	m2,
		integer *	i3
	)

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
	)

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
	)

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
	)

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
	)

int cmptrx_	(	integer *	idegbr,
		integer *	idegcr,
		integer *	m,
		complex *	a,
		complex *	b,
		complex *	c__,
		complex *	y,
		complex *	tcos,
		complex *	d__,
		complex *	w
	)

int cnbco_	(	complex *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		real *	rcond,
		complex *	z__
	)

int cnbdi_	(	complex *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		complex *	det
	)

int cnbfa_	(	complex *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		integer *	info
	)

int cnbfs_	(	complex *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		complex *	v,
		integer *	itask,
		integer *	ind,
		complex *	work,
		integer *	iwork
	)

int cnbir_	(	complex *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		complex *	v,
		integer *	itask,
		integer *	ind,
		complex *	work,
		integer *	iwork
	)

int cnbsl_	(	complex *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		complex *	b,
		integer *	job
	)

int combak_	(	integer *	nm,
		integer *	low,
		integer *	igh,
		real *	ar,
		real *	ai,
		integer *	int__,
		integer *	m,
		real *	zr,
		real *	zi
	)

int comhes_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	ar,
		real *	ai,
		integer *	int__
	)

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
	)

int comlr_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	hr,
		real *	hi,
		real *	wr,
		real *	wi,
		integer *	ierr
	)

int compb_	(	integer *	n,
		integer *	ierror,
		real *	an,
		real *	bn,
		real *	cn,
		real *	b,
		real *	ah,
		real *	bh
	)

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
	)

int comqr_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	hr,
		real *	hi,
		real *	wr,
		real *	wi,
		integer *	ierr
	)

int cortb_	(	integer *	nm,
		integer *	low,
		integer *	igh,
		real *	ar,
		real *	ai,
		real *	ortr,
		real *	orti,
		integer *	m,
		real *	zr,
		real *	zi
	)

int corth_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	ar,
		real *	ai,
		real *	ortr,
		real *	orti
	)

E_f cosdg_

(

real *

)

int cosgen_	(	integer *	n,
		integer *	ijump,
		real *	fnum,
		real *	fden,
		real *	a
	)

int cosqb1_	(	integer *	n,
		real *	x,
		real *	w,
		real *	xh
	)

int cosqb_	(	integer *	n,
		real *	x,
		real *	wsave
	)

int cosqf1_	(	integer *	n,
		real *	x,
		real *	w,
		real *	xh
	)

int cosqf_	(	integer *	n,
		real *	x,
		real *	wsave
	)

int cosqi_	(	integer *	n,
		real *	wsave
	)

int cost_	(	integer *	n,
		real *	x,
		real *	wsave
	)

int costi_	(	integer *	n,
		real *	wsave
	)

E_f cot_

(

real *

)

int cpadd_	(	integer *	n,
		integer *	ierror,
		real *	a,
		real *	c__,
		complex *	cbp,
		real *	bp,
		real *	bh
	)

int cpbco_	(	complex *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		real *	rcond,
		complex *	z__,
		integer *	info
	)

int cpbdi_	(	complex *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		real *	det
	)

int cpbfa_	(	complex *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		integer *	info
	)

int cpbsl_	(	complex *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		complex *	b
	)

int cpevl_	(	integer *	n,
		integer *	m,
		complex *	a,
		complex *	z__,
		complex *	c__,
		complex *	b,
		logical *	kbd
	)

int cpevlr_	(	integer *	n,
		integer *	m,
		real *	a,
		real *	x,
		real *	c__
	)

int cpoco_	(	complex *	a,
		integer *	lda,
		integer *	n,
		real *	rcond,
		complex *	z__,
		integer *	info
	)

int cpodi_	(	complex *	a,
		integer *	lda,
		integer *	n,
		real *	det,
		integer *	job
	)

int cpofa_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	info
	)

int cpofs_	(	complex *	a,
		integer *	lda,
		integer *	n,
		complex *	v,
		integer *	itask,
		integer *	ind,
		complex *	work
	)

int cpoir_	(	complex *	a,
		integer *	lda,
		integer *	n,
		complex *	v,
		integer *	itask,
		integer *	ind,
		complex *	work
	)

int cposl_	(	complex *	a,
		integer *	lda,
		integer *	n,
		complex *	b
	)

int cppco_	(	complex *	ap,
		integer *	n,
		real *	rcond,
		complex *	z__,
		integer *	info
	)

int cppdi_	(	complex *	ap,
		integer *	n,
		real *	det,
		integer *	job
	)

int cppfa_	(	complex *	ap,
		integer *	n,
		integer *	info
	)

int cppsl_	(	complex *	ap,
		integer *	n,
		complex *	b
	)

int cpqr79_	(	integer *	ndeg,
		complex *	coeff,
		complex *	root,
		integer *	ierr,
		real *	work
	)

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
	)

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
	)

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
	)

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
	)

C_f cpsi_	(	complex *	ret_val,
		complex *	zin
	)

int cptsl_	(	integer *	n,
		complex *	d__,
		complex *	e,
		complex *	b
	)

int cpzero_	(	integer *	in,
		complex *	a,
		complex *	r__,
		complex *	t,
		integer *	iflg,
		real *	s
	)

int cqrdc_	(	complex *	x,
		integer *	ldx,
		integer *	n,
		integer *	p,
		complex *	qraux,
		integer *	jpvt,
		complex *	work,
		integer *	job
	)

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
	)

int crotg_	(	complex *	ca,
		complex *	cb,
		real *	c__,
		complex *	s
	)

int cscal_	(	integer *	n,
		complex *	ca,
		complex *	cx,
		integer *	incx
	)

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
	)

E_f csevl_	(	real *	x,
		real *	cs,
		integer *	n
	)

int csico_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		real *	rcond,
		complex *	z__
	)

int csidi_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		complex *	det,
		complex *	work,
		integer *	job
	)

int csifa_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		integer *	info
	)

C_f csinh_	(	complex *	ret_val,
		complex *	z__
	)

int csisl_	(	complex *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		complex *	b
	)

int cspco_	(	complex *	ap,
		integer *	n,
		integer *	kpvt,
		real *	rcond,
		complex *	z__
	)

int cspdi_	(	complex *	ap,
		integer *	n,
		integer *	kpvt,
		complex *	det,
		complex *	work,
		integer *	job
	)

int cspfa_	(	complex *	ap,
		integer *	n,
		integer *	kpvt,
		integer *	info
	)

int cspsl_	(	complex *	ap,
		integer *	n,
		integer *	kpvt,
		complex *	b
	)

int csroot_	(	real *	xr,
		real *	xi,
		real *	yr,
		real *	yi
	)

int csrot_	(	integer *	n,
		complex *	cx,
		integer *	incx,
		complex *	cy,
		integer *	incy,
		real *	c__,
		real *	s
	)

int csscal_	(	integer *	n,
		real *	sa,
		complex *	cx,
		integer *	incx
	)

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
	)

int cswap_	(	integer *	n,
		complex *	cx,
		integer *	incx,
		complex *	cy,
		integer *	incy
	)

C_f ctan_	(	complex *	ret_val,
		complex *	z__
	)

C_f ctanh_	(	complex *	ret_val,
		complex *	z__
	)

int ctrco_	(	complex *	t,
		integer *	ldt,
		integer *	n,
		real *	rcond,
		complex *	z__,
		integer *	job
	)

int ctrdi_	(	complex *	t,
		integer *	ldt,
		integer *	n,
		complex *	det,
		integer *	job,
		integer *	info
	)

int ctrsl_	(	complex *	t,
		integer *	ldt,
		integer *	n,
		complex *	b,
		integer *	job,
		integer *	info
	)

E_f cv_	(	real *	xval,
		integer *	ndata,
		integer *	nconst,
		integer *	nord,
		integer *	nbkpt,
		real *	bkpt,
		real *	w
	)

doublereal d1mach_

(

integer *

i__

)

int d1mpyq_	(	integer *	m,
		integer *	n,
		doublereal *	a,
		integer *	lda,
		doublereal *	v,
		doublereal *	w
	)

int d1updt_	(	integer *	m,
		integer *	n,
		doublereal *	s,
		integer *	ls,
		doublereal *	u,
		doublereal *	v,
		doublereal *	w,
		logical *	sing
	)

int d9aimp_	(	doublereal *	x,
		doublereal *	ampl,
		doublereal *	theta
	)

doublereal d9atn1_

(

doublereal *

)

int d9b0mp_	(	doublereal *	x,
		doublereal *	ampl,
		doublereal *	theta
	)

int d9b1mp_	(	doublereal *	x,
		doublereal *	ampl,
		doublereal *	theta
	)

doublereal d9chu_	(	doublereal *	a,
		doublereal *	b,
		doublereal *	z__
	)

doublereal d9gmic_	(	doublereal *	a,
		doublereal *	x,
		doublereal *	alx
	)

doublereal d9gmit_	(	doublereal *	a,
		doublereal *	x,
		doublereal *	algap1,
		doublereal *	sgngam,
		doublereal *	alx
	)

int d9knus_	(	doublereal *	xnu,
		doublereal *	x,
		doublereal *	bknu,
		doublereal *	bknu1,
		integer *	iswtch
	)

doublereal d9lgic_	(	doublereal *	a,
		doublereal *	x,
		doublereal *	alx
	)

doublereal d9lgit_	(	doublereal *	a,
		doublereal *	x,
		doublereal *	algap1
	)

doublereal d9lgmc_

(

doublereal *

)

doublereal d9ln2r_

(

doublereal *

)

doublereal d9pak_	(	doublereal *	y,
		integer *	n
	)

int d9upak_	(	doublereal *	x,
		doublereal *	y,
		integer *	n
	)

doublereal dacosh_

(

doublereal *

)

doublereal dai_

(

doublereal *

)

Definition at line 4207 of file parser.c.

References qqqerr_().

Referenced by pareval_(), and parevec_().

04208 {
04209     /* System generated locals */
04210     doublereal ret_val;
04211 
04212     /* Local variables */
04213     extern /* Subroutine */ int qqqerr_(void);
04214 
04215     qqqerr_();
04216     ret_val = 0.;
04217     return ret_val;
04218 } /* dai_ */

doublereal daie_

(

doublereal *

)

doublereal dasinh_

(

doublereal *

)

doublereal dasum_	(	integer *	n,
		doublereal *	dx,
		integer *	incx
	)

int dasyik_	(	doublereal *	x,
		doublereal *	fnu,
		integer *	kode,
		doublereal *	flgik,
		doublereal *	ra,
		doublereal *	arg,
		integer *	in,
		doublereal *	y
	)

int dasyjy_	(	S_fp	funjy,
		doublereal *	x,
		doublereal *	fnu,
		doublereal *	flgjy,
		integer *	in,
		doublereal *	y,
		doublereal *	wk,
		integer *	iflw
	)

doublereal datanh_

(

doublereal *

)

int davint_	(	doublereal *	x,
		doublereal *	y,
		integer *	n,
		doublereal *	xlo,
		doublereal *	xup,
		doublereal *	ans,
		integer *	ierr
	)

E_f daws_

(

real *

)

int daxpy_	(	integer *	n,
		doublereal *	da,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

int dbdiff_	(	integer *	l,
		doublereal *	v
	)

doublereal dbesi0_

(

doublereal *

)

Definition at line 4246 of file parser.c.

References qqqerr_().

Referenced by pareval_(), and parevec_().

04247 {
04248     /* System generated locals */
04249     doublereal ret_val;
04250 
04251     /* Local variables */
04252     extern /* Subroutine */ int qqqerr_(void);
04253 
04254     qqqerr_();
04255     ret_val = 0.;
04256     return ret_val;
04257 } /* dbesi0_ */

doublereal dbesi1_

(

doublereal *

)

Definition at line 4259 of file parser.c.

References qqqerr_().

Referenced by pareval_(), and parevec_().

04260 {
04261     /* System generated locals */
04262     doublereal ret_val;
04263 
04264     /* Local variables */
04265     extern /* Subroutine */ int qqqerr_(void);
04266 
04267     qqqerr_();
04268     ret_val = 0.;
04269     return ret_val;
04270 } /* dbesi1_ */

int dbesi_	(	doublereal *	x,
		doublereal *	alpha,
		integer *	kode,
		integer *	n,
		doublereal *	y,
		integer *	nz
	)

doublereal dbesj0_

(

doublereal *

)

Definition at line 228 of file parser_int.c.

Referenced by pareval_(), and parevec_().

00229 { return (doublereal) j0( (double) *x ) ; }

doublereal dbesj1_

(

doublereal *

)

Definition at line 231 of file parser_int.c.

Referenced by pareval_(), and parevec_().

00232 { return (doublereal) j1( (double) *x ) ; }

int dbesj_	(	doublereal *	x,
		doublereal *	alpha,
		integer *	n,
		doublereal *	y,
		integer *	nz
	)

doublereal dbesk0_

(

doublereal *

)

Definition at line 4280 of file parser.c.

References qqqerr_().

Referenced by pareval_(), and parevec_().

04281 {
04282     /* System generated locals */
04283     doublereal ret_val;
04284 
04285     /* Local variables */
04286     extern /* Subroutine */ int qqqerr_(void);
04287 
04288     qqqerr_();
04289     ret_val = 0.;
04290     return ret_val;
04291 } /* dbesk0_ */

doublereal dbesk1_

(

doublereal *

)

Definition at line 4293 of file parser.c.

References qqqerr_().

Referenced by pareval_(), and parevec_().

04294 {
04295     /* System generated locals */
04296     doublereal ret_val;
04297 
04298     /* Local variables */
04299     extern /* Subroutine */ int qqqerr_(void);
04300 
04301     qqqerr_();
04302     ret_val = 0.;
04303     return ret_val;
04304 } /* dbesk1_ */

int dbesk_	(	doublereal *	x,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	y,
		integer *	nz
	)

int dbesks_	(	doublereal *	xnu,
		doublereal *	x,
		integer *	nin,
		doublereal *	bk
	)

doublereal dbesy0_

(

doublereal *

)

Definition at line 234 of file parser_int.c.

References y0.

Referenced by pareval_(), and parevec_().

00235 { return (doublereal) (*x>0) ? y0( (double) *x ) : 0.0 ; }

doublereal dbesy1_

(

doublereal *

)

Definition at line 237 of file parser_int.c.

References y1.

Referenced by pareval_(), and parevec_().

00238 { return (doublereal) (*x>0) ? y1( (double) *x ) : 0.0 ; }

int dbesy_	(	doublereal *	x,
		doublereal *	fnu,
		integer *	n,
		doublereal *	y
	)

doublereal dbeta_	(	doublereal *	a,
		doublereal *	b
	)

doublereal dbetai_	(	doublereal *	x,
		doublereal *	pin,
		doublereal *	qin
	)

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
	)

doublereal dbi_

(

doublereal *

)

doublereal dbie_

(

doublereal *

)

doublereal dbinom_	(	integer *	n,
		integer *	m
	)

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
	)

int dbintk_	(	doublereal *	x,
		doublereal *	y,
		doublereal *	t,
		integer *	n,
		integer *	k,
		doublereal *	bcoef,
		doublereal *	q,
		doublereal *	work
	)

int dbkias_	(	doublereal *	x,
		integer *	n,
		integer *	ktrms,
		doublereal *	t,
		doublereal *	ans,
		integer *	ind,
		integer *	ms,
		doublereal *	gmrn,
		doublereal *	h__,
		integer *	ierr
	)

int dbkisr_	(	doublereal *	x,
		integer *	n,
		doublereal *	sum,
		integer *	ierr
	)

int dbksol_	(	integer *	n,
		doublereal *	a,
		doublereal *	x
	)

int dbndac_	(	doublereal *	g,
		integer *	mdg,
		integer *	nb,
		integer *	ip,
		integer *	ir,
		integer *	mt,
		integer *	jt
	)

int dbndsl_	(	integer *	mode,
		doublereal *	g,
		integer *	mdg,
		integer *	nb,
		integer *	ip,
		integer *	ir,
		doublereal *	x,
		integer *	n,
		doublereal *	rnorm
	)

int dbnfac_	(	doublereal *	w,
		integer *	nroww,
		integer *	nrow,
		integer *	nbandl,
		integer *	nbandu,
		integer *	iflag
	)

int dbnslv_	(	doublereal *	w,
		integer *	nroww,
		integer *	nrow,
		integer *	nbandl,
		integer *	nbandu,
		doublereal *	b
	)

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
	)

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
	)

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
	)

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
	)

doublereal dbsi0e_

(

doublereal *

)

doublereal dbsi1e_

(

doublereal *

)

doublereal dbsk0e_

(

doublereal *

)

doublereal dbsk1e_

(

doublereal *

)

int dbskes_	(	doublereal *	xnu,
		doublereal *	x,
		integer *	nin,
		doublereal *	bke
	)

int dbskin_	(	doublereal *	x,
		integer *	n,
		integer *	kode,
		integer *	m,
		doublereal *	y,
		integer *	nz,
		integer *	ierr
	)

int dbsknu_	(	doublereal *	x,
		doublereal *	fnu,
		integer *	kode,
		integer *	n,
		doublereal *	y,
		integer *	nz
	)

int dbspdr_	(	doublereal *	t,
		doublereal *	a,
		integer *	n,
		integer *	k,
		integer *	nderiv,
		doublereal *	ad
	)

int dbspev_	(	doublereal *	t,
		doublereal *	ad,
		integer *	n,
		integer *	k,
		integer *	nderiv,
		doublereal *	x,
		integer *	inev,
		doublereal *	svalue,
		doublereal *	work
	)

int dbsppp_	(	doublereal *	t,
		doublereal *	a,
		integer *	n,
		integer *	k,
		integer *	ldc,
		doublereal *	c__,
		doublereal *	xi,
		integer *	lxi,
		doublereal *	work
	)

int dbspvd_	(	doublereal *	t,
		integer *	k,
		integer *	nderiv,
		doublereal *	x,
		integer *	ileft,
		integer *	ldvnik,
		doublereal *	vnikx,
		doublereal *	work
	)

int dbspvn_	(	doublereal *	t,
		integer *	jhigh,
		integer *	k,
		integer *	index,
		doublereal *	x,
		integer *	ileft,
		doublereal *	vnikx,
		doublereal *	work,
		integer *	iwork
	)

int dbsqad_	(	doublereal *	t,
		doublereal *	bcoef,
		integer *	n,
		integer *	k,
		doublereal *	x1,
		doublereal *	x2,
		doublereal *	bquad,
		doublereal *	work
	)

int dbsynu_	(	doublereal *	x,
		doublereal *	fnu,
		integer *	n,
		doublereal *	y
	)

doublereal dbvalu_	(	doublereal *	t,
		doublereal *	a,
		integer *	n,
		integer *	k,
		integer *	ideriv,
		doublereal *	x,
		integer *	inbv,
		doublereal *	work
	)

int dbvder_	(	doublereal *	x,
		doublereal *	y,
		doublereal *	yp,
		doublereal *	g,
		integer *	ipar
	)

doublereal dbvlue_	(	doublereal *	t,
		doublereal *	a,
		integer *	n,
		integer *	k,
		doublereal *	x,
		integer *	ideriv
	)

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
	)

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
	)

doublereal dcbrt_

(

doublereal *

)

int dcdot_	(	integer *	n,
		doublereal *	fm,
		complex *	cx,
		integer *	incx,
		complex *	cy,
		integer *	incy,
		doublereal *	dcr,
		doublereal *	dci
	)

int dcfod_	(	integer *	meth,
		doublereal *	elco,
		doublereal *	tesco
	)

int dchdc_	(	doublereal *	a,
		integer *	lda,
		integer *	p,
		doublereal *	work,
		integer *	jpvt,
		integer *	job,
		integer *	info
	)

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
	)

int dchex_	(	doublereal *	r__,
		integer *	ldr,
		integer *	p,
		integer *	k,
		integer *	l,
		doublereal *	z__,
		integer *	ldz,
		integer *	nz,
		doublereal *	c__,
		doublereal *	s,
		integer *	job
	)

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
	)

int dchfev_	(	doublereal *	x1,
		doublereal *	x2,
		doublereal *	f1,
		doublereal *	f2,
		doublereal *	d1,
		doublereal *	d2,
		integer *	ne,
		doublereal *	xe,
		doublereal *	fe,
		integer *	next,
		integer *	ierr
	)

doublereal dchfiv_	(	doublereal *	x1,
		doublereal *	x2,
		doublereal *	f1,
		doublereal *	f2,
		doublereal *	d1,
		doublereal *	d2,
		doublereal *	a,
		doublereal *	b,
		integer *	ierr
	)

integer dchfmc_	(	doublereal *	d1,
		doublereal *	d2,
		doublereal *	delta
	)

doublereal dchu_	(	doublereal *	a,
		doublereal *	b,
		doublereal *	x
	)

int dchud_	(	doublereal *	r__,
		integer *	ldr,
		integer *	p,
		doublereal *	x,
		doublereal *	z__,
		integer *	ldz,
		integer *	nz,
		doublereal *	y,
		doublereal *	rho,
		doublereal *	c__,
		doublereal *	s
	)

int dckder_	(	integer *	m,
		integer *	n,
		doublereal *	x,
		doublereal *	fvec,
		doublereal *	fjac,
		integer *	ldfjac,
		doublereal *	xp,
		doublereal *	fvecp,
		integer *	mode,
		doublereal *	err
	)

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
	)

int dcopy_	(	integer *	n,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

int dcopym_	(	integer *	n,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

doublereal dcosdg_

(

doublereal *

)

doublereal dcot_

(

doublereal *

)

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
	)

Referenced by MAIN__().

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
	)

doublereal dcsevl_	(	doublereal *	x,
		doublereal *	a,
		integer *	n
	)

doublereal dcv_	(	doublereal *	xval,
		integer *	ndata,
		integer *	nconst,
		integer *	nord,
		integer *	nbkpt,
		doublereal *	bkpt,
		doublereal *	w
	)

doublereal ddaws_

(

doublereal *

)

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__
	)

int ddcstb_	(	integer *	maxord,
		integer *	mint,
		integer *	iswflg,
		doublereal *	el,
		doublereal *	tq
	)

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
	)

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
	)

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
	)

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
	)

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
	)

doublereal ddiff_	(	doublereal *	x,
		doublereal *	y
	)

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
	)

int ddntpb_	(	doublereal *	h__,
		integer *	k,
		integer *	n,
		integer *	nq,
		doublereal *	t,
		doublereal *	tout,
		doublereal *	yh,
		doublereal *	y
	)

int ddoglg_	(	integer *	n,
		doublereal *	r__,
		integer *	lr,
		doublereal *	diag,
		doublereal *	qtb,
		doublereal *	delta,
		doublereal *	x,
		doublereal *	wa1,
		doublereal *	wa2
	)

doublereal ddot_	(	integer *	n,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

int ddpscb_	(	integer *	ksgn,
		integer *	n,
		integer *	nq,
		doublereal *	yh
	)

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
	)

int ddrvb1_	(	integer *	n,
		doublereal *	t,
		doublereal *	y,
		doublereal *	tout,
		integer *	mstate,
		doublereal *	eps,
		doublereal *	work,
		integer *	lenw
	)

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
	)

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
	)

int ddsclb_	(	doublereal *	hmax,
		integer *	n,
		integer *	nq,
		doublereal *	rmax,
		doublereal *	h__,
		doublereal *	rc,
		doublereal *	rh,
		doublereal *	yh
	)

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
	)

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
	)

doublereal de1_

(

doublereal *

)

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
	)

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
	)

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
	)

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
	)

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
	)

int defe4_	(	S_fp	cofx,
		integer *	idmn,
		real *	usol,
		real *	grhs
	)

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
	)

int defer_	(	S_fp	cofx,
		S_fp	cofy,
		integer *	idmn,
		real *	usol,
		real *	grhs
	)

doublereal dei_

(

doublereal *

)

doublereal denorm_	(	integer *	n,
		doublereal *	x
	)

doublereal derf_

(

doublereal *

)

Definition at line 8 of file derf_.c.

References erf().

Referenced by pareval_(), and parevec_().

00010 {
00011 return( erf(*x) );
00012 }

doublereal derfc_

(

doublereal *

)

Definition at line 10 of file derfc_.c.

References erfc().

Referenced by pareval_(), parevec_(), qg_(), and qginv_().

00012 {
00013 return( erfc(*x) );
00014 }

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
	)

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
	)

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
	)

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
	)

int dexint_	(	doublereal *	x,
		integer *	n,
		integer *	kode,
		integer *	m,
		doublereal *	tol,
		doublereal *	en,
		integer *	ierr
	)

doublereal dexprl_

(

doublereal *

)

doublereal dfac_

(

integer *

)

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
	)

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
	)

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
	)

int dfdjc3_	(	S_fp	fcn,
		integer *	m,
		integer *	n,
		doublereal *	x,
		doublereal *	fvec,
		doublereal *	fjac,
		integer *	ldfjac,
		integer *	iflag,
		doublereal *	epsfcn,
		doublereal *	wa
	)

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
	)

int dfspvd_	(	doublereal *	t,
		integer *	k,
		doublereal *	x,
		integer *	ileft,
		doublereal *	vnikx,
		integer *	nderiv
	)

int dfspvn_	(	doublereal *	t,
		integer *	jhigh,
		integer *	index,
		doublereal *	x,
		integer *	ileft,
		doublereal *	vnikx
	)

int dfulmt_	(	integer *	i__,
		integer *	j,
		doublereal *	aij,
		integer *	indcat,
		doublereal *	prgopt,
		doublereal *	dattrv,
		integer *	iflag
	)

int dfzero_	(	D_fp	f,
		doublereal *	b,
		doublereal *	c__,
		doublereal *	r__,
		doublereal *	re,
		doublereal *	ae,
		integer *	iflag
	)

doublereal dgami_	(	doublereal *	a,
		doublereal *	x
	)

doublereal dgamic_	(	doublereal *	a,
		doublereal *	x
	)

doublereal dgamit_	(	doublereal *	a,
		doublereal *	x
	)

int dgamlm_	(	doublereal *	xmin,
		doublereal *	xmax
	)

doublereal dgamma_

(

doublereal *

)

Definition at line 4233 of file parser.c.

References qqqerr_().

Referenced by pareval_(), and parevec_().

04234 {
04235     /* System generated locals */
04236     doublereal ret_val;
04237 
04238     /* Local variables */
04239     extern /* Subroutine */ int qqqerr_(void);
04240 
04241     qqqerr_();
04242     ret_val = 0.;
04243     return ret_val;
04244 } /* dgamma_ */

doublereal dgamr_

(

doublereal *

)

doublereal dgamrn_

(

doublereal *

)

int dgaus8_	(	D_fp	fun,
		doublereal *	a,
		doublereal *	b,
		doublereal *	err,
		doublereal *	ans,
		integer *	ierr
	)

int dgbco_	(	doublereal *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		doublereal *	rcond,
		doublereal *	z__
	)

int dgbdi_	(	doublereal *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		doublereal *	det
	)

int dgbfa_	(	doublereal *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		integer *	info
	)

int dgbsl_	(	doublereal *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		doublereal *	b,
		integer *	job
	)

int dgeco_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		doublereal *	rcond,
		doublereal *	z__
	)

int dgedi_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		doublereal *	det,
		doublereal *	work,
		integer *	job
	)

int dgefa_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		integer *	info
	)

int dgefs_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		doublereal *	v,
		integer *	itask,
		integer *	ind,
		doublereal *	work,
		integer *	iwork
	)

int dgesl_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		doublereal *	b,
		integer *	job
	)

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
	)

int dgtsl_	(	integer *	n,
		doublereal *	c__,
		doublereal *	d__,
		doublereal *	e,
		doublereal *	b,
		integer *	info
	)

int dh12_	(	integer *	mode,
		integer *	lpivot,
		integer *	l1,
		integer *	m,
		doublereal *	u,
		integer *	iue,
		doublereal *	up,
		doublereal *	c__,
		integer *	ice,
		integer *	icv,
		integer *	ncv
	)

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
	)

int dhkseq_	(	doublereal *	x,
		integer *	m,
		doublereal *	h__,
		integer *	ierr
	)

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__
	)

E_f diff_	(	real *	x,
		real *	y
	)

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
	)

int dintrp_	(	doublereal *	x,
		doublereal *	y,
		doublereal *	xout,
		doublereal *	yout,
		doublereal *	ypout,
		integer *	neqn,
		integer *	kold,
		doublereal *	phi,
		doublereal *	psi
	)

int dintrv_	(	doublereal *	xt,
		integer *	lxt,
		doublereal *	x,
		integer *	ilo,
		integer *	ileft,
		integer *	mflag
	)

int dintyd_	(	doublereal *	t,
		integer *	k,
		doublereal *	yh,
		integer *	nyh,
		doublereal *	dky,
		integer *	iflag
	)

int djairy_	(	doublereal *	x,
		doublereal *	rx,
		doublereal *	c__,
		doublereal *	ai,
		doublereal *	dai
	)

doublereal dlbeta_	(	doublereal *	a,
		doublereal *	b
	)

int dlgams_	(	doublereal *	x,
		doublereal *	dlgam,
		doublereal *	sgngam
	)

doublereal dli_

(

doublereal *

)

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
	)

doublereal dlngam_

(

doublereal *

)

doublereal dlnrel_

(

doublereal *

)

int dlpdp_	(	doublereal *	a,
		integer *	mda,
		integer *	m,
		integer *	n1,
		integer *	n2,
		doublereal *	prgopt,
		doublereal *	x,
		doublereal *	wnorm,
		integer *	mode,
		doublereal *	ws,
		integer *	is
	)

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
	)

int dlsi_	(	doublereal *	w,
		integer *	mdw,
		integer *	ma,
		integer *	mg,
		integer *	n,
		doublereal *	prgopt,
		doublereal *	x,
		doublereal *	rnorm,
		integer *	mode,
		doublereal *	ws,
		integer *	ip
	)

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
	)

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
	)

int dmacon_

(

void

)

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
	)

int dmout_	(	integer *	m,
		integer *	n,
		integer *	lda,
		doublereal *	a,
		char *	ifmt,
		integer *	idigit,
		ftnlen	ifmt_len
	)

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
	)

int dnbco_	(	doublereal *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		doublereal *	rcond,
		doublereal *	z__
	)

int dnbdi_	(	doublereal *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		doublereal *	det
	)

int dnbfa_	(	doublereal *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		integer *	info
	)

int dnbfs_	(	doublereal *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		doublereal *	v,
		integer *	itask,
		integer *	ind,
		doublereal *	work,
		integer *	iwork
	)

int dnbsl_	(	doublereal *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		doublereal *	b,
		integer *	job
	)

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
	)

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
	)

Referenced by MAIN__().

doublereal dnrm2_	(	integer *	n,
		doublereal *	dx,
		integer *	incx
	)

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
	)

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
	)

int dnterv_	(	doublereal *	xt,
		integer *	lxt,
		doublereal *	x,
		integer *	ileft,
		integer *	mflag
	)

int dogleg_	(	integer *	n,
		real *	r__,
		integer *	lr,
		real *	diag,
		real *	qtb,
		real *	delta,
		real *	x,
		real *	wa1,
		real *	wa2
	)

int dohtrl_	(	doublereal *	q,
		integer *	n,
		integer *	nrda,
		doublereal *	diag,
		integer *	irank,
		doublereal *	div,
		doublereal *	td
	)

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
	)

int dp1vlu_	(	integer *	l,
		integer *	nder,
		doublereal *	x,
		doublereal *	yfit,
		doublereal *	yp,
		doublereal *	a
	)

int dpbco_	(	doublereal *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		doublereal *	rcond,
		doublereal *	z__,
		integer *	info
	)

int dpbdi_	(	doublereal *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		doublereal *	det
	)

int dpbfa_	(	doublereal *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		integer *	info
	)

int dpbsl_	(	doublereal *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		doublereal *	b
	)

int dpchce_	(	integer *	ic,
		doublereal *	vc,
		integer *	n,
		doublereal *	x,
		doublereal *	h__,
		doublereal *	slope,
		doublereal *	d__,
		integer *	incfd,
		integer *	ierr
	)

int dpchci_	(	integer *	n,
		doublereal *	h__,
		doublereal *	slope,
		doublereal *	d__,
		integer *	incfd
	)

int dpchcs_	(	doublereal *	switch__,
		integer *	n,
		doublereal *	h__,
		doublereal *	slope,
		doublereal *	d__,
		integer *	incfd,
		integer *	ierr
	)

doublereal dpchdf_	(	integer *	k,
		doublereal *	x,
		doublereal *	s,
		integer *	ierr
	)

int dpchfd_	(	integer *	n,
		doublereal *	x,
		doublereal *	f,
		doublereal *	d__,
		integer *	incfd,
		logical *	skip,
		integer *	ne,
		doublereal *	xe,
		doublereal *	fe,
		doublereal *	de,
		integer *	ierr
	)

int dpchfe_	(	integer *	n,
		doublereal *	x,
		doublereal *	f,
		doublereal *	d__,
		integer *	incfd,
		logical *	skip,
		integer *	ne,
		doublereal *	xe,
		doublereal *	fe,
		integer *	ierr
	)

doublereal dpchia_	(	integer *	n,
		doublereal *	x,
		doublereal *	f,
		doublereal *	d__,
		integer *	incfd,
		logical *	skip,
		doublereal *	a,
		doublereal *	b,
		integer *	ierr
	)

int dpchic_	(	integer *	ic,
		doublereal *	vc,
		doublereal *	switch__,
		integer *	n,
		doublereal *	x,
		doublereal *	f,
		doublereal *	d__,
		integer *	incfd,
		doublereal *	wk,
		integer *	nwk,
		integer *	ierr
	)

doublereal dpchid_	(	integer *	n,
		doublereal *	x,
		doublereal *	f,
		doublereal *	d__,
		integer *	incfd,
		logical *	skip,
		integer *	ia,
		integer *	ib,
		integer *	ierr
	)

int dpchim_	(	integer *	n,
		doublereal *	x,
		doublereal *	f,
		doublereal *	d__,
		integer *	incfd,
		integer *	ierr
	)

int dpchmc_	(	integer *	n,
		doublereal *	x,
		doublereal *	f,
		doublereal *	d__,
		integer *	incfd,
		logical *	skip,
		integer *	ismon,
		integer *	ierr
	)

int dpchng_	(	integer *	ii,
		doublereal *	xval,
		integer *	iplace,
		doublereal *	sx,
		integer *	ix,
		integer *	ircx
	)

int dpchsp_	(	integer *	ic,
		doublereal *	vc,
		integer *	n,
		doublereal *	x,
		doublereal *	f,
		doublereal *	d__,
		integer *	incfd,
		doublereal *	wk,
		integer *	nwk,
		integer *	ierr
	)

doublereal dpchst_	(	doublereal *	arg1,
		doublereal *	arg2
	)

int dpchsw_	(	doublereal *	dfmax,
		integer *	iextrm,
		doublereal *	d1,
		doublereal *	d2,
		doublereal *	h__,
		doublereal *	slope,
		integer *	ierr
	)

int dpcoef_	(	integer *	l,
		doublereal *	c__,
		doublereal *	tc,
		doublereal *	a
	)

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
	)

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
	)

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
	)

int dpintm_	(	integer *	m,
		integer *	n,
		doublereal *	sx,
		integer *	ix,
		integer *	lmx,
		integer *	ipagef
	)

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
	)

int dplint_	(	integer *	n,
		doublereal *	x,
		doublereal *	y,
		doublereal *	c__
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

int dpnnzr_	(	integer *	i__,
		doublereal *	xval,
		integer *	iplace,
		doublereal *	sx,
		integer *	ix,
		integer *	ircx
	)

doublereal dpoch1_	(	doublereal *	a,
		doublereal *	x
	)

doublereal dpoch_	(	doublereal *	a,
		doublereal *	x
	)

int dpoco_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		doublereal *	rcond,
		doublereal *	z__,
		integer *	info
	)

int dpodi_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		doublereal *	det,
		integer *	job
	)

int dpofa_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	info
	)

int dpofs_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		doublereal *	v,
		integer *	itask,
		integer *	ind,
		doublereal *	work
	)

int dpolcf_	(	doublereal *	xx,
		integer *	n,
		doublereal *	x,
		doublereal *	c__,
		doublereal *	d__,
		doublereal *	work
	)

int dpolft_	(	integer *	n,
		doublereal *	x,
		doublereal *	y,
		doublereal *	w,
		integer *	maxdeg,
		integer *	ndeg,
		doublereal *	eps,
		doublereal *	r__,
		integer *	ierr,
		doublereal *	a
	)

int dpolvl_	(	integer *	nder,
		doublereal *	xx,
		doublereal *	yfit,
		doublereal *	yp,
		integer *	n,
		doublereal *	x,
		doublereal *	c__,
		doublereal *	work,
		integer *	ierr
	)

int dpopt_	(	doublereal *	prgopt,
		integer *	mrelas,
		integer *	nvars__,
		integer *	info,
		doublereal *	csc,
		integer *	ibasis,
		doublereal *	ropt,
		integer *	intopt,
		logical *	lopt
	)

int dposl_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		doublereal *	b
	)

int dppco_	(	doublereal *	ap,
		integer *	n,
		doublereal *	rcond,
		doublereal *	z__,
		integer *	info
	)

int dppdi_	(	doublereal *	ap,
		integer *	n,
		doublereal *	det,
		integer *	job
	)

int dppfa_	(	doublereal *	ap,
		integer *	n,
		integer *	info
	)

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
	)

int dppqad_	(	integer *	ldc,
		doublereal *	c__,
		doublereal *	xi,
		integer *	lxi,
		integer *	k,
		doublereal *	x1,
		doublereal *	x2,
		doublereal *	pquad
	)

int dppsl_	(	doublereal *	ap,
		integer *	n,
		doublereal *	b
	)

doublereal dppval_	(	integer *	ldc,
		doublereal *	c__,
		doublereal *	xi,
		integer *	lxi,
		integer *	k,
		integer *	ideriv,
		doublereal *	x,
		integer *	inppv
	)

doublereal dprvec_	(	integer *	m,
		doublereal *	u,
		doublereal *	v
	)

int dprwpg_	(	integer *	key,
		integer *	ipage,
		integer *	lpg,
		doublereal *	sx,
		integer *	ix
	)

int dprwvr_	(	integer *	key,
		integer *	ipage,
		integer *	lpg,
		doublereal *	sx,
		integer *	ix
	)

doublereal dpsi_

(

doublereal *

)

int dpsifn_	(	doublereal *	x,
		integer *	n,
		integer *	kode,
		integer *	m,
		doublereal *	ans,
		integer *	nz,
		integer *	ierr
	)

doublereal dpsixn_

(

integer *

)

int dptsl_	(	integer *	n,
		doublereal *	d__,
		doublereal *	e,
		doublereal *	b
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

int dqc25c_	(	D_fp	f,
		doublereal *	a,
		doublereal *	b,
		doublereal *	c__,
		doublereal *	result,
		doublereal *	abserr,
		integer *	krul,
		integer *	neval
	)

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
	)

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
	)

int dqcheb_	(	doublereal *	x,
		doublereal *	fval,
		doublereal *	cheb12,
		doublereal *	cheb24
	)

doublereal dqdota_	(	integer *	n,
		doublereal *	db,
		integer *	qc,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

doublereal dqdoti_	(	integer *	n,
		doublereal *	db,
		integer *	qc,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

int dqelg_	(	integer *	n,
		doublereal *	epstab,
		doublereal *	result,
		doublereal *	abserr,
		doublereal *	res3la,
		integer *	nres
	)

int dqform_	(	integer *	m,
		integer *	n,
		doublereal *	q,
		integer *	ldq,
		doublereal *	wa
	)

int dqk15_	(	D_fp	f,
		doublereal *	a,
		doublereal *	b,
		doublereal *	result,
		doublereal *	abserr,
		doublereal *	resabs,
		doublereal *	resasc
	)

int dqk15i_	(	D_fp	f,
		doublereal *	boun,
		integer *	inf,
		doublereal *	a,
		doublereal *	b,
		doublereal *	result,
		doublereal *	abserr,
		doublereal *	resabs,
		doublereal *	resasc
	)

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
	)

int dqk21_	(	D_fp	f,
		doublereal *	a,
		doublereal *	b,
		doublereal *	result,
		doublereal *	abserr,
		doublereal *	resabs,
		doublereal *	resasc
	)

int dqk31_	(	D_fp	f,
		doublereal *	a,
		doublereal *	b,
		doublereal *	result,
		doublereal *	abserr,
		doublereal *	resabs,
		doublereal *	resasc
	)

int dqk41_	(	D_fp	f,
		doublereal *	a,
		doublereal *	b,
		doublereal *	result,
		doublereal *	abserr,
		doublereal *	resabs,
		doublereal *	resasc
	)

int dqk51_	(	D_fp	f,
		doublereal *	a,
		doublereal *	b,
		doublereal *	result,
		doublereal *	abserr,
		doublereal *	resabs,
		doublereal *	resasc
	)

int dqk61_	(	D_fp	f,
		doublereal *	a,
		doublereal *	b,
		doublereal *	result,
		doublereal *	abserr,
		doublereal *	resabs,
		doublereal *	resasc
	)

int dqmomo_	(	doublereal *	alfa,
		doublereal *	beta,
		doublereal *	ri,
		doublereal *	rj,
		doublereal *	rg,
		doublereal *	rh,
		integer *	integr
	)

int dqnc79_	(	D_fp	fun,
		doublereal *	a,
		doublereal *	b,
		doublereal *	err,
		doublereal *	ans,
		integer *	ierr,
		integer *	k
	)

int dqng_	(	D_fp	f,
		doublereal *	a,
		doublereal *	b,
		doublereal *	epsabs,
		doublereal *	epsrel,
		doublereal *	result,
		doublereal *	abserr,
		integer *	neval,
		integer *	ier
	)

int dqpsrt_	(	integer *	limit,
		integer *	last,
		integer *	maxerr,
		doublereal *	ermax,
		doublereal *	elist,
		integer *	iord,
		integer *	nrmax
	)

int dqrdc_	(	doublereal *	x,
		integer *	ldx,
		integer *	n,
		integer *	p,
		doublereal *	qraux,
		integer *	jpvt,
		doublereal *	work,
		integer *	job
	)

int dqrfac_	(	integer *	m,
		integer *	n,
		doublereal *	a,
		integer *	lda,
		logical *	pivot,
		integer *	ipvt,
		integer *	lipvt,
		doublereal *	sigma,
		doublereal *	acnorm,
		doublereal *	wa
	)

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
	)

int dqrslv_	(	integer *	n,
		doublereal *	r__,
		integer *	ldr,
		integer *	ipvt,
		doublereal *	diag,
		doublereal *	qtb,
		doublereal *	x,
		doublereal *	sigma,
		doublereal *	wa
	)

doublereal dqwgtc_	(	doublereal *	x,
		doublereal *	c__,
		doublereal *	p2,
		doublereal *	p3,
		doublereal *	p4,
		integer *	kp
	)

doublereal dqwgtf_	(	doublereal *	x,
		doublereal *	omega,
		doublereal *	p2,
		doublereal *	p3,
		doublereal *	p4,
		integer *	integr
	)

doublereal dqwgts_	(	doublereal *	x,
		doublereal *	a,
		doublereal *	b,
		doublereal *	alfa,
		doublereal *	beta,
		integer *	integr
	)

doublereal drc_	(	doublereal *	x,
		doublereal *	y,
		integer *	ier
	)

doublereal drd_	(	doublereal *	x,
		doublereal *	y,
		doublereal *	z__,
		integer *	ier
	)

int dreadp_	(	integer *	ipage,
		integer *	list,
		doublereal *	rlist,
		integer *	lpage,
		integer *	irec
	)

int dreort_	(	integer *	ncomp,
		doublereal *	y,
		doublereal *	yp,
		doublereal *	yhp,
		integer *	niv,
		doublereal *	w,
		doublereal *	s,
		doublereal *	p,
		integer *	ip,
		doublereal *	stowa,
		integer *	iflag
	)

doublereal drf_	(	doublereal *	x,
		doublereal *	y,
		doublereal *	z__,
		integer *	ier
	)

doublereal drj_	(	doublereal *	x,
		doublereal *	y,
		doublereal *	z__,
		doublereal *	p,
		integer *	ier
	)

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
	)

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
	)

int drot_	(	integer *	n,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy,
		doublereal *	dc,
		doublereal *	ds
	)

int drotg_	(	doublereal *	da,
		doublereal *	db,
		doublereal *	dc,
		doublereal *	ds
	)

int drotm_	(	integer *	n,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy,
		doublereal *	dparam
	)

int drotmg_	(	doublereal *	dd1,
		doublereal *	dd2,
		doublereal *	dx1,
		doublereal *	dy1,
		doublereal *	dparam
	)

int drsco_	(	doublereal *	rsav,
		integer *	isav
	)

int dscal_	(	integer *	n,
		doublereal *	da,
		doublereal *	dx,
		integer *	incx
	)

doublereal dsdot_	(	integer *	n,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy
	)

int dsico_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		doublereal *	rcond,
		doublereal *	z__
	)

int dsidi_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		doublereal *	det,
		integer *	inert,
		doublereal *	work,
		integer *	job
	)

int dsifa_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		integer *	info
	)

doublereal dsindg_

(

doublereal *

)

int dsisl_	(	doublereal *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		doublereal *	b
	)

int dslvs_	(	doublereal *	wm,
		integer *	iwm,
		doublereal *	x,
		doublereal *	tem
	)

int dsort_	(	doublereal *	x,
		doublereal *	y,
		integer *	n,
		integer *	kflag
	)

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
	)

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
	)

int dsossl_	(	integer *	k,
		integer *	n,
		integer *	l,
		doublereal *	x,
		doublereal *	c__,
		doublereal *	b,
		integer *	m
	)

int dspco_	(	doublereal *	ap,
		integer *	n,
		integer *	kpvt,
		doublereal *	rcond,
		doublereal *	z__
	)

int dspdi_	(	doublereal *	ap,
		integer *	n,
		integer *	kpvt,
		doublereal *	det,
		integer *	inert,
		doublereal *	work,
		integer *	job
	)

doublereal dspenc_

(

doublereal *

)

int dspfa_	(	doublereal *	ap,
		integer *	n,
		integer *	kpvt,
		integer *	info
	)

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
	)

int dspsl_	(	doublereal *	ap,
		integer *	n,
		integer *	kpvt,
		doublereal *	b
	)

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
	)

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
	)

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
	)

int dstor1_	(	doublereal *	u,
		doublereal *	yh,
		doublereal *	v,
		doublereal *	yp,
		integer *	ntemp,
		integer *	ndisk,
		integer *	ntape
	)

int dstway_	(	doublereal *	u,
		doublereal *	v,
		doublereal *	yhp,
		integer *	inout,
		doublereal *	stowa
	)

int dsuds_	(	doublereal *	a,
		doublereal *	x,
		doublereal *	b,
		integer *	neq,
		integer *	nuk,
		integer *	nrda,
		integer *	iflag,
		integer *	mlso,
		doublereal *	work,
		integer *	iwork
	)

int dsvco_	(	doublereal *	rsav,
		integer *	isav
	)

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
	)

int dswap_	(	integer *	n,
		doublereal *	dx,
		integer *	incx,
		doublereal *	dy,
		integer *	incy
	)

int dtrco_	(	doublereal *	t,
		integer *	ldt,
		integer *	n,
		doublereal *	rcond,
		doublereal *	z__,
		integer *	job
	)

int dtrdi_	(	doublereal *	t,
		integer *	ldt,
		integer *	n,
		doublereal *	det,
		integer *	job,
		integer *	info
	)

int dtrsl_	(	doublereal *	t,
		integer *	ldt,
		integer *	n,
		doublereal *	b,
		integer *	job,
		integer *	info
	)

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
	)

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
	)

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
	)

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
	)

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
	)

int dusrmt_	(	integer *	i__,
		integer *	j,
		doublereal *	aij,
		integer *	indcat,
		doublereal *	prgopt,
		doublereal *	dattrv,
		integer *	iflag
	)

int dvecs_	(	integer *	ncomp,
		integer *	lnfc,
		doublereal *	yhp,
		doublereal *	work,
		integer *	iwork,
		integer *	inhomo,
		integer *	iflag
	)

doublereal dvnorm_	(	doublereal *	v,
		integer *	ncomp
	)

doublereal dvnrms_	(	integer *	n,
		doublereal *	v,
		doublereal *	w
	)

int dvout_	(	integer *	n,
		doublereal *	dx,
		char *	ifmt,
		integer *	idigit,
		ftnlen	ifmt_len
	)

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
	)

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__
	)

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
	)

int dwritp_	(	integer *	ipage,
		integer *	list,
		doublereal *	rlist,
		integer *	lpage,
		integer *	irec
	)

int dwupdt_	(	integer *	n,
		doublereal *	r__,
		integer *	ldr,
		doublereal *	w,
		doublereal *	b,
		doublereal *	alpha,
		doublereal *	cos__,
		doublereal *	sin__
	)

int dx4_	(	real *	u,
		integer *	idmn,
		integer *	i__,
		integer *	j,
		real *	uxxx,
		real *	uxxxx
	)

int dx_	(	real *	u,
		integer *	idmn,
		integer *	i__,
		integer *	j,
		real *	uxxx,
		real *	uxxxx
	)

int dy4_	(	real *	u,
		integer *	idmn,
		integer *	i__,
		integer *	j,
		real *	uyyy,
		real *	uyyyy
	)

int dy_	(	real *	u,
		integer *	idmn,
		integer *	i__,
		integer *	j,
		real *	uyyy,
		real *	uyyyy
	)

int dyairy_	(	doublereal *	x,
		doublereal *	rx,
		doublereal *	c__,
		doublereal *	bi,
		doublereal *	dbi
	)

E_f e1_

(

real *

)

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
	)

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
	)

E_f ei_

(

real *

)

int eisdoc_

(

void

)

int elmbak_	(	integer *	nm,
		integer *	low,
		integer *	igh,
		real *	a,
		integer *	int__,
		integer *	m,
		real *	z__
	)

int elmhes_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	a,
		integer *	int__
	)

int eltran_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	a,
		integer *	int__,
		real *	z__
	)

E_f enorm_	(	integer *	n,
		real *	x
	)

E_f epmach_

(

real *

dum

)

E_f erf_

(

real *

)

Definition at line 8 of file erf_.c.

References erf().

00010 {
00011 return( erf(*x) );
00012 }

E_f erfc_

(

real *

)

Definition at line 8 of file erfc_.c.

References erfc().

00010 {
00011 return( erfc(*x) );
00012 }

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
	)

int exint_	(	real *	x,
		integer *	n,
		integer *	kode,
		integer *	m,
		real *	tol,
		real *	en,
		integer *	ierr
	)

E_f exprel_

(

real *

)

int ezfft1_	(	integer *	n,
		real *	wa,
		integer *	ifac
	)

int ezfftb_	(	integer *	n,
		real *	r__,
		real *	azero,
		real *	a,
		real *	b,
		real *	wsave
	)

int ezfftf_	(	integer *	n,
		real *	r__,
		real *	azero,
		real *	a,
		real *	b,
		real *	wsave
	)

int ezffti_	(	integer *	n,
		real *	wsave
	)

E_f fac_

(

integer *

)

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
	)

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
	)

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
	)

int fdjac2_	(	S_fp	fcn,
		integer *	m,
		integer *	n,
		real *	x,
		real *	fvec,
		real *	fjac,
		integer *	ldfjac,
		integer *	iflag,
		real *	epsfcn,
		real *	wa
	)

int fdjac3_	(	S_fp	fcn,
		integer *	m,
		integer *	n,
		real *	x,
		real *	fvec,
		real *	fjac,
		integer *	ldfjac,
		integer *	iflag,
		real *	epsfcn,
		real *	wa
	)

int fdump_

(

void

)

int fftdoc_

(

void

)

int figi2_	(	integer *	nm,
		integer *	n,
		real *	t,
		real *	d__,
		real *	e,
		real *	z__,
		integer *	ierr
	)

int figi_	(	integer *	nm,
		integer *	n,
		real *	t,
		real *	d__,
		real *	e,
		real *	e2,
		integer *	ierr
	)

int fnlibd_

(

void

)

int fulmat_	(	integer *	i__,
		integer *	j,
		real *	aij,
		integer *	indcat,
		real *	prgopt,
		real *	dattrv,
		integer *	iflag
	)

int fzero_	(	E_fp	f,
		real *	b,
		real *	c__,
		real *	r__,
		real *	re,
		real *	ae,
		integer *	iflag
	)

E_f gami_	(	real *	a,
		real *	x
	)

E_f gamic_	(	real *	a,
		real *	x
	)

E_f gamit_	(	real *	a,
		real *	x
	)

int gamlim_	(	real *	xmin,
		real *	xmax
	)

E_f gamma_

(

real *

)

E_f gamr_

(

real *

)

E_f gamrn_

(

real *

)

int gaus8_	(	E_fp	fun,
		real *	a,
		real *	b,
		real *	err,
		real *	ans,
		integer *	ierr
	)

E_f gauss_	(	integer *	n,
		E_fp	y,
		integer *	m,
		S_fp	ltbl
	)

int gaussq_	(	integer *	m,
		doublereal *	t,
		doublereal *	w,
		doublereal *	b,
		doublereal *	g,
		doublereal *	fm
	)

int genbun_	(	integer *	nperod,
		integer *	n,
		integer *	mperod,
		integer *	m,
		real *	a,
		real *	b,
		real *	c__,
		integer *	idimy,
		real *	y,
		integer *	ierror,
		real *	w
	)

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
	)

int h12_	(	integer *	mode,
		integer *	lpivot,
		integer *	l1,
		integer *	m,
		real *	u,
		integer *	iue,
		real *	up,
		real *	c__,
		integer *	ice,
		integer *	icv,
		integer *	ncv
	)

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
	)

int hkseq_	(	real *	x,
		integer *	m,
		real *	h__,
		integer *	ierr
	)

int hqr2_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	h__,
		real *	wr,
		real *	wi,
		real *	z__,
		integer *	ierr
	)

int hqr_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	h__,
		real *	wr,
		real *	wi,
		integer *	ierr
	)

int hrmte_	(	integer *	m,
		integer *	k,
		real *	aa,
		real *	z__
	)

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__
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

int htrib3_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	tau,
		integer *	m,
		real *	zr,
		real *	zi
	)

int htribk_	(	integer *	nm,
		integer *	n,
		real *	ar,
		real *	ai,
		real *	tau,
		integer *	m,
		real *	zr,
		real *	zi
	)

int htrid3_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	d__,
		real *	e,
		real *	e2,
		real *	tau
	)

int htridi_	(	integer *	nm,
		integer *	n,
		real *	ar,
		real *	ai,
		real *	d__,
		real *	e,
		real *	e2,
		real *	tau
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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__
	)

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
	)

integer i1mach_

(

integer *

i__

)

integer icamax_	(	integer *	n,
		complex *	cx,
		integer *	incx
	)

integer idamax_	(	integer *	n,
		doublereal *	dx,
		integer *	incx
	)

int imtql1_	(	integer *	n,
		real *	d__,
		real *	e,
		integer *	ierr
	)

int imtql2_	(	integer *	nm,
		integer *	n,
		real *	d__,
		real *	e,
		real *	z__,
		integer *	ierr
	)

int imtqlv_	(	integer *	n,
		real *	d__,
		real *	e,
		real *	e2,
		real *	w,
		integer *	ind,
		integer *	ierr,
		real *	rv1
	)

int indxa_	(	integer *	i__,
		integer *	ir,
		integer *	idxa,
		integer *	na
	)

int indxb_	(	integer *	i__,
		integer *	ir,
		integer *	idx,
		integer *	idp
	)

int indxc_	(	integer *	i__,
		integer *	ir,
		integer *	idxc,
		integer *	nc
	)

integer initds_	(	doublereal *	dos,
		integer *	nos,
		real *	eta
	)

integer inits_	(	real *	os,
		integer *	nos,
		real *	eta
	)

int interv_	(	real *	xt,
		integer *	lxt,
		real *	x,
		integer *	ileft,
		integer *	mflag
	)

int intrp_	(	real *	x,
		real *	y,
		real *	xout,
		real *	yout,
		real *	ypout,
		integer *	neqn,
		integer *	kold,
		real *	phi,
		real *	psi
	)

int intrv_	(	real *	xt,
		integer *	lxt,
		real *	x,
		integer *	ilo,
		integer *	ileft,
		integer *	mflag
	)

int intyd_	(	real *	t,
		integer *	k,
		real *	yh,
		integer *	nyh,
		real *	dky,
		integer *	iflag
	)

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
	)

int inxca_	(	integer *	i__,
		integer *	ir,
		integer *	idxa,
		integer *	na
	)

int inxcb_	(	integer *	i__,
		integer *	ir,
		integer *	idx,
		integer *	idp
	)

int inxcc_	(	integer *	i__,
		integer *	ir,
		integer *	idxc,
		integer *	nc
	)

integer iploc_	(	integer *	loc,
		real *	sx,
		integer *	ix
	)

integer isamax_	(	integer *	n,
		real *	sx,
		integer *	incx
	)

integer isamin_	(	integer *	n,
		real *	sx,
		integer *	incx
	)

integer ismax_	(	integer *	n,
		real *	sx,
		integer *	incx
	)

integer ismin_	(	integer *	n,
		real *	sx,
		integer *	incx
	)

int isort_	(	integer *	x,
		integer *	y,
		integer *	n,
		integer *	kflag
	)

int iswap_	(	integer *	n,
		integer *	ix,
		integer *	incx,
		integer *	iy,
		integer *	incy
	)

int ivout_	(	integer *	n,
		integer *	ix,
		char *	ifmt,
		integer *	idigit,
		ftnlen	ifmt_len
	)

integer j4save_	(	integer *	iwhich,
		integer *	ivalue,
		logical *	iset
	)

int jairy_	(	real *	x,
		real *	rx,
		real *	c__,
		real *	ai,
		real *	dai
	)

int la05ad_	(	doublereal *	a,
		integer *	ind,
		integer *	nz,
		integer *	ia,
		integer *	n,
		integer *	ip,
		integer *	iw,
		doublereal *	w,
		doublereal *	g,
		doublereal *	u
	)

int la05as_	(	real *	a,
		integer *	ind,
		integer *	nz,
		integer *	ia,
		integer *	n,
		integer *	ip,
		integer *	iw,
		real *	w,
		real *	g,
		real *	u
	)

int la05bd_	(	doublereal *	a,
		integer *	ind,
		integer *	ia,
		integer *	n,
		integer *	ip,
		integer *	iw,
		doublereal *	w,
		doublereal *	g,
		doublereal *	b,
		logical *	trans
	)

int la05bs_	(	real *	a,
		integer *	ind,
		integer *	ia,
		integer *	n,
		integer *	ip,
		integer *	iw,
		real *	w,
		real *	g,
		real *	b,
		logical *	trans
	)

int la05cd_	(	doublereal *	a,
		integer *	ind,
		integer *	ia,
		integer *	n,
		integer *	ip,
		integer *	iw,
		doublereal *	w,
		doublereal *	g,
		doublereal *	u,
		integer *	mm
	)

int la05cs_	(	real *	a,
		integer *	ind,
		integer *	ia,
		integer *	n,
		integer *	ip,
		integer *	iw,
		real *	w,
		real *	g,
		real *	u,
		integer *	mm
	)

int la05ed_	(	doublereal *	a,
		integer *	irn,
		integer *	ip,
		integer *	n,
		integer *	iw,
		integer *	ia,
		logical *	reals
	)

int la05es_	(	real *	a,
		integer *	irn,
		integer *	ip,
		integer *	n,
		integer *	iw,
		integer *	ia,
		logical *	reals
	)

int lagre_	(	integer *	m,
		integer *	k,
		real *	aa,
		real *	z__
	)

int lgndr_	(	integer *	m,
		integer *	k,
		real *	aa,
		real *	z__
	)

int lgndrx_	(	integer *	n,
		integer *	k,
		real *	aa,
		real *	z__
	)

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
	)

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
	)

int lpdp_	(	real *	a,
		integer *	mda,
		integer *	m,
		integer *	n1,
		integer *	n2,
		real *	prgopt,
		real *	x,
		real *	wnorm,
		integer *	mode,
		real *	ws,
		integer *	is
	)

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
	)

int lsi_	(	real *	w,
		integer *	mdw,
		integer *	ma,
		integer *	mg,
		integer *	n,
		real *	prgopt,
		real *	x,
		real *	rnorm,
		integer *	mode,
		real *	ws,
		integer *	ip
	)

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
	)

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
	)

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
	)

int macon_

(

void

)

int mc20ad_	(	integer *	nc,
		integer *	maxa,
		doublereal *	a,
		integer *	inum,
		integer *	jptr,
		integer *	jnum,
		integer *	jdisp
	)

int mc20as_	(	integer *	nc,
		integer *	maxa,
		real *	a,
		integer *	inum,
		integer *	jptr,
		integer *	jnum,
		integer *	jdisp
	)

int menu_

(

void

)

int merge_	(	real *	tcos,
		integer *	i1,
		integer *	m1,
		integer *	i2,
		integer *	m2,
		integer *	i3
	)

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
	)

int minfit_	(	integer *	nm,
		integer *	m,
		integer *	n,
		real *	a,
		real *	w,
		integer *	ip,
		real *	b,
		integer *	ierr,
		real *	rv1
	)

int minso4_	(	real *	usol,
		integer *	idmn,
		real *	zn,
		real *	zm,
		real *	pertb
	)

int minsol_	(	real *	usol,
		integer *	idmn,
		real *	zn,
		real *	zm,
		real *	pertb
	)

int mpadd2_	(	integer *	x,
		integer *	y,
		integer *	z__,
		integer *	y1,
		integer *	trunc
	)

int mpadd3_	(	integer *	x,
		integer *	y,
		integer *	s,
		integer *	med,
		integer *	re
	)

int mpadd_	(	integer *	x,
		integer *	y,
		integer *	z__
	)

int mpblas_

(

integer *

)

int mpcdm_	(	doublereal *	dx,
		integer *	z__
	)

int mpchk_	(	integer *	i__,
		integer *	j
	)

int mpcmd_	(	integer *	x,
		doublereal *	dz
	)

int mpdivi_	(	integer *	x,
		integer *	iy,
		integer *	z__
	)

int mperr_

(

void

)

int mpmaxr_

(

integer *

)

int mpmlp_	(	integer *	u,
		integer *	v,
		integer *	w,
		integer *	j
	)

int mpmul2_	(	integer *	x,
		integer *	iy,
		integer *	z__,
		integer *	trunc
	)

int mpmul_	(	integer *	x,
		integer *	y,
		integer *	z__
	)

int mpmuli_	(	integer *	x,
		integer *	iy,
		integer *	z__
	)

int mpnzr_	(	integer *	rs,
		integer *	re,
		integer *	z__,
		integer *	trunc
	)

int mpovfl_

(

integer *

)

int mpstr_	(	integer *	x,
		integer *	y
	)

int mpunfl_

(

integer *

)

integer numxer_

(

integer *

nerr

)

int ohtrol_	(	real *	q,
		integer *	n,
		integer *	nrda,
		real *	diag,
		integer *	irank,
		real *	div,
		real *	td
	)

int ohtror_	(	real *	q,
		integer *	n,
		integer *	nrda,
		real *	diag,
		integer *	irank,
		real *	div,
		real *	td
	)

int ortbak_	(	integer *	nm,
		integer *	low,
		integer *	igh,
		real *	a,
		real *	ort,
		integer *	m,
		real *	z__
	)

int orthes_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	a,
		real *	ort
	)

int ortho4_	(	real *	usol,
		integer *	idmn,
		real *	zn,
		real *	zm,
		real *	pertrb
	)

int orthog_	(	real *	usol,
		integer *	idmn,
		real *	zn,
		real *	zm,
		real *	pertrb
	)

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
	)

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
	)

int ortran_	(	integer *	nm,
		integer *	n,
		integer *	low,
		integer *	igh,
		real *	a,
		real *	ort,
		real *	z__
	)

int passb2_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1
	)

int passb3_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2
	)

int passb4_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2,
		real *	wa3
	)

int passb5_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2,
		real *	wa3,
		real *	wa4
	)

int passb_	(	integer *	nac,
		integer *	ido,
		integer *	ip,
		integer *	l1,
		integer *	idl1,
		real *	cc,
		real *	c1,
		real *	c2,
		real *	ch,
		real *	ch2,
		real *	wa
	)

int passf2_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1
	)

int passf3_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2
	)

int passf4_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2,
		real *	wa3
	)

int passf5_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2,
		real *	wa3,
		real *	wa4
	)

int passf_	(	integer *	nac,
		integer *	ido,
		integer *	ip,
		integer *	l1,
		integer *	idl1,
		real *	cc,
		real *	c1,
		real *	c2,
		real *	ch,
		real *	ch2,
		real *	wa
	)

int pchce_	(	integer *	ic,
		real *	vc,
		integer *	n,
		real *	x,
		real *	h__,
		real *	slope,
		real *	d__,
		integer *	incfd,
		integer *	ierr
	)

int pchci_	(	integer *	n,
		real *	h__,
		real *	slope,
		real *	d__,
		integer *	incfd
	)

int pchcs_	(	real *	switch__,
		integer *	n,
		real *	h__,
		real *	slope,
		real *	d__,
		integer *	incfd,
		integer *	ierr
	)

E_f pchdf_	(	integer *	k,
		real *	x,
		real *	s,
		integer *	ierr
	)

int pchdoc_

(

void

)

int pchfd_	(	integer *	n,
		real *	x,
		real *	f,
		real *	d__,
		integer *	incfd,
		logical *	skip,
		integer *	ne,
		real *	xe,
		real *	fe,
		real *	de,
		integer *	ierr
	)

int pchfe_	(	integer *	n,
		real *	x,
		real *	f,
		real *	d__,
		integer *	incfd,
		logical *	skip,
		integer *	ne,
		real *	xe,
		real *	fe,
		integer *	ierr
	)

E_f pchia_	(	integer *	n,
		real *	x,
		real *	f,
		real *	d__,
		integer *	incfd,
		logical *	skip,
		real *	a,
		real *	b,
		integer *	ierr
	)

int pchic_	(	integer *	ic,
		real *	vc,
		real *	switch__,
		integer *	n,
		real *	x,
		real *	f,
		real *	d__,
		integer *	incfd,
		real *	wk,
		integer *	nwk,
		integer *	ierr
	)

E_f pchid_	(	integer *	n,
		real *	x,
		real *	f,
		real *	d__,
		integer *	incfd,
		logical *	skip,
		integer *	ia,
		integer *	ib,
		integer *	ierr
	)

int pchim_	(	integer *	n,
		real *	x,
		real *	f,
		real *	d__,
		integer *	incfd,
		integer *	ierr
	)

int pchmc_	(	integer *	n,
		real *	x,
		real *	f,
		real *	d__,
		integer *	incfd,
		logical *	skip,
		integer *	ismon,
		integer *	ierr
	)

int pchngs_	(	integer *	ii,
		real *	xval,
		integer *	iplace,
		real *	sx,
		integer *	ix,
		integer *	ircx
	)

int pchsp_	(	integer *	ic,
		real *	vc,
		integer *	n,
		real *	x,
		real *	f,
		real *	d__,
		integer *	incfd,
		real *	wk,
		integer *	nwk,
		integer *	ierr
	)

E_f pchst_	(	real *	arg1,
		real *	arg2
	)

int pchsw_	(	real *	dfmax,
		integer *	iextrm,
		real *	d1,
		real *	d2,
		real *	h__,
		real *	slope,
		integer *	ierr
	)

int pcoef_	(	integer *	l,
		real *	c__,
		real *	tc,
		real *	a
	)

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
	)

E_f pgsf_	(	real *	x,
		integer *	iz,
		real *	c__,
		real *	a,
		real *	bh
	)

doublereal phi_	(	doublereal *	x,
		doublereal *	phiprm,
		real *	a,
		real *	b
	)

E_f pimach_

(

real *

dum

)

int pinitm_	(	integer *	m,
		integer *	n,
		real *	sx,
		integer *	ix,
		integer *	lmx,
		integer *	ipagef
	)

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
	)

int pnnzrs_	(	integer *	i__,
		real *	xval,
		integer *	iplace,
		real *	sx,
		integer *	ix,
		integer *	ircx
	)

E_f poch1_	(	real *	a,
		real *	x
	)

E_f poch_	(	real *	a,
		real *	x
	)

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
	)

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
	)

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
	)

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
	)

int poistg_	(	integer *	nperod,
		integer *	n,
		integer *	mperod,
		integer *	m,
		real *	a,
		real *	b,
		real *	c__,
		integer *	idimy,
		real *	y,
		integer *	ierror,
		real *	w
	)

int polcof_	(	real *	xx,
		integer *	n,
		real *	x,
		real *	c__,
		real *	d__,
		real *	work
	)

int polfit_	(	integer *	n,
		real *	x,
		real *	y,
		real *	w,
		integer *	maxdeg,
		integer *	ndeg,
		real *	eps,
		real *	r__,
		integer *	ierr,
		real *	a
	)

int polint_	(	integer *	n,
		real *	x,
		real *	y,
		real *	c__
	)

int polyvl_	(	integer *	nder,
		real *	xx,
		real *	yfit,
		real *	yp,
		integer *	n,
		real *	x,
		real *	c__,
		real *	work,
		integer *	ierr
	)

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
	)

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
	)

int ppadd_	(	integer *	n,
		integer *	ierror,
		real *	a,
		real *	c__,
		complex *	cbp,
		real *	bp,
		real *	bh
	)

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
	)

E_f ppgsf_	(	real *	x,
		integer *	iz,
		real *	c__,
		real *	a,
		real *	bh
	)

E_f pppsf_	(	real *	x,
		integer *	iz,
		real *	c__,
		real *	a,
		real *	bh
	)

int ppqad_	(	integer *	ldc,
		real *	c__,
		real *	xi,
		integer *	lxi,
		integer *	k,
		real *	x1,
		real *	x2,
		real *	pquad
	)

E_f ppsgf_	(	real *	x,
		integer *	iz,
		real *	c__,
		real *	a,
		real *	bh
	)

E_f ppspf_	(	real *	x,
		integer *	iz,
		real *	c__,
		real *	a,
		real *	bh
	)

E_f ppval_	(	integer *	ldc,
		real *	c__,
		real *	xi,
		integer *	lxi,
		integer *	k,
		integer *	ideriv,
		real *	x,
		integer *	inppv
	)

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
	)

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
	)

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
	)

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
	)

E_f prvec_	(	integer *	m,
		real *	u,
		real *	v
	)

int prwpge_	(	integer *	key,
		integer *	ipage,
		integer *	lpg,
		real *	sx,
		integer *	ix
	)

int prwvir_	(	integer *	key,
		integer *	ipage,
		integer *	lpg,
		real *	sx,
		integer *	ix
	)

E_f psgf_	(	real *	x,
		integer *	iz,
		real *	c__,
		real *	a,
		real *	bh
	)

E_f psi_

(

real *

)

int psifn_	(	real *	x,
		integer *	n,
		integer *	kode,
		integer *	m,
		real *	ans,
		integer *	nz,
		integer *	ierr
	)

E_f psixn_

(

integer *

)

int pvalue_	(	integer *	l,
		integer *	nder,
		real *	x,
		real *	yfit,
		real *	yp,
		real *	a
	)

E_f pythag_	(	real *	a,
		real *	b
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

int qc25c_	(	E_fp	f,
		real *	a,
		real *	b,
		real *	c__,
		real *	result,
		real *	abserr,
		integer *	krul,
		integer *	neval
	)

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
	)

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
	)

int qcheb_	(	real *	x,
		real *	fval,
		real *	cheb12,
		real *	cheb24
	)

int qelg_	(	integer *	n,
		real *	epstab,
		real *	result,
		real *	abserr,
		real *	res3la,
		integer *	nres
	)

int qform_	(	integer *	m,
		integer *	n,
		real *	q,
		integer *	ldq,
		real *	wa
	)

int qk15_	(	E_fp	f,
		real *	a,
		real *	b,
		real *	result,
		real *	abserr,
		real *	resabs,
		real *	resasc
	)

int qk15i_	(	E_fp	f,
		real *	boun,
		integer *	inf,
		real *	a,
		real *	b,
		real *	result,
		real *	abserr,
		real *	resabs,
		real *	resasc
	)

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
	)

int qk21_	(	E_fp	f,
		real *	a,
		real *	b,
		real *	result,
		real *	abserr,
		real *	resabs,
		real *	resasc
	)

int qk31_	(	E_fp	f,
		real *	a,
		real *	b,
		real *	result,
		real *	abserr,
		real *	resabs,
		real *	resasc
	)

int qk41_	(	E_fp	f,
		real *	a,
		real *	b,
		real *	result,
		real *	abserr,
		real *	resabs,
		real *	resasc
	)

int qk51_	(	E_fp	f,
		real *	a,
		real *	b,
		real *	result,
		real *	abserr,
		real *	resabs,
		real *	resasc
	)

int qk61_	(	E_fp	f,
		real *	a,
		real *	b,
		real *	result,
		real *	abserr,
		real *	resabs,
		real *	resasc
	)

int qmomo_	(	real *	alfa,
		real *	beta,
		real *	ri,
		real *	rj,
		real *	rg,
		real *	rh,
		integer *	integr
	)

int qnc79_	(	E_fp	fun,
		real *	a,
		real *	b,
		real *	err,
		real *	ans,
		integer *	ierr,
		integer *	k
	)

int qng_	(	E_fp	f,
		real *	a,
		real *	b,
		real *	epsabs,
		real *	epsrel,
		real *	result,
		real *	abserr,
		integer *	neval,
		integer *	ier
	)

int qpdoc_

(

void

)

int qpsrt_	(	integer *	limit,
		integer *	last,
		integer *	maxerr,
		real *	ermax,
		real *	elist,
		integer *	iord,
		integer *	nrmax
	)

int qqsort_	(	integer *	n,
		real *	x,
		integer *	j,
		integer *	l,
		real *	y
	)

int qrfac_	(	integer *	m,
		integer *	n,
		real *	a,
		integer *	lda,
		logical *	pivot,
		integer *	ipvt,
		integer *	lipvt,
		real *	sigma,
		real *	acnorm,
		real *	wa
	)

int qrsolv_	(	integer *	n,
		real *	r__,
		integer *	ldr,
		integer *	ipvt,
		real *	diag,
		real *	qtb,
		real *	x,
		real *	sigma,
		real *	wa
	)

E_f qwgtc_	(	real *	x,
		real *	c__,
		real *	p2,
		real *	p3,
		real *	p4,
		integer *	kp
	)

E_f qwgtf_	(	real *	x,
		real *	omega,
		real *	p2,
		real *	p3,
		real *	p4,
		integer *	integr
	)

E_f qwgts_	(	real *	x,
		real *	a,
		real *	b,
		real *	alfa,
		real *	beta,
		integer *	integr
	)

int qzhes_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		logical *	matz,
		real *	z__
	)

int qzit_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	eps1,
		logical *	matz,
		real *	z__,
		integer *	ierr
	)

int qzval_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	alfr,
		real *	alfi,
		real *	beta,
		logical *	matz,
		real *	z__
	)

int qzvec_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	alfr,
		real *	alfi,
		real *	beta,
		real *	z__
	)

E_f r1mach_

(

integer *

i__

)

int r1mpyq_	(	integer *	m,
		integer *	n,
		real *	a,
		integer *	lda,
		real *	v,
		real *	w
	)

int r1updt_	(	integer *	m,
		integer *	n,
		real *	s,
		integer *	ls,
		real *	u,
		real *	v,
		real *	w,
		logical *	sing
	)

int r9aimp_	(	real *	x,
		real *	ampl,
		real *	theta
	)

E_f r9atn1_

(

real *

)

E_f r9chu_	(	real *	a,
		real *	b,
		real *	z__
	)

E_f r9gmic_	(	real *	a,
		real *	x,
		real *	alx
	)

E_f r9gmit_	(	real *	a,
		real *	x,
		real *	algap1,
		real *	sgngam,
		real *	alx
	)

int r9knus_	(	real *	xnu,
		real *	x,
		real *	bknu,
		real *	bknu1,
		integer *	iswtch
	)

E_f r9lgic_	(	real *	a,
		real *	x,
		real *	alx
	)

E_f r9lgit_	(	real *	a,
		real *	x,
		real *	algap1
	)

E_f r9lgmc_

(

real *

)

E_f r9ln2r_

(

real *

)

E_f r9pak_	(	real *	y,
		integer *	n
	)

int r9upak_	(	real *	x,
		real *	y,
		integer *	n
	)

int radb2_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1
	)

int radb3_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2
	)

int radb4_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2,
		real *	wa3
	)

int radb5_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2,
		real *	wa3,
		real *	wa4
	)

int radbg_	(	integer *	ido,
		integer *	ip,
		integer *	l1,
		integer *	idl1,
		real *	cc,
		real *	c1,
		real *	c2,
		real *	ch,
		real *	ch2,
		real *	wa
	)

int radf2_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1
	)

int radf3_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2
	)

int radf4_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2,
		real *	wa3
	)

int radf5_	(	integer *	ido,
		integer *	l1,
		real *	cc,
		real *	ch,
		real *	wa1,
		real *	wa2,
		real *	wa3,
		real *	wa4
	)

int radfg_	(	integer *	ido,
		integer *	ip,
		integer *	l1,
		integer *	idl1,
		real *	cc,
		real *	c1,
		real *	c2,
		real *	ch,
		real *	ch2,
		real *	wa
	)

E_f rand_

(

real *

r__

)

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
	)

E_f rc_	(	real *	x,
		real *	y,
		integer *	ier
	)

E_f rd_	(	real *	x,
		real *	y,
		real *	z__,
		integer *	ier
	)

int rebak_	(	integer *	nm,
		integer *	n,
		real *	b,
		real *	dl,
		integer *	m,
		real *	z__
	)

int rebakb_	(	integer *	nm,
		integer *	n,
		real *	b,
		real *	dl,
		integer *	m,
		real *	z__
	)

int reduc2_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	dl,
		integer *	ierr
	)

int reduc_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	dl,
		integer *	ierr
	)

int reort_	(	integer *	ncomp,
		real *	y,
		real *	yp,
		real *	yhp,
		integer *	niv,
		real *	w,
		real *	s,
		real *	p,
		integer *	ip,
		real *	stowa,
		integer *	iflag
	)

E_f rf_	(	real *	x,
		real *	y,
		real *	z__,
		integer *	ier
	)

int rfftb1_	(	integer *	n,
		real *	c__,
		real *	ch,
		real *	wa,
		integer *	ifac
	)

int rfftb_	(	integer *	n,
		real *	r__,
		real *	wsave
	)

int rfftf1_	(	integer *	n,
		real *	c__,
		real *	ch,
		real *	wa,
		integer *	ifac
	)

int rfftf_	(	integer *	n,
		real *	r__,
		real *	wsave
	)

int rffti1_	(	integer *	n,
		real *	wa,
		integer *	ifac
	)

int rffti_	(	integer *	n,
		real *	wsave
	)

int rg_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	wr,
		real *	wi,
		integer *	matz,
		real *	z__,
		integer *	iv1,
		real *	fv1,
		integer *	ierr
	)

E_f rgauss_	(	real *	xmean,
		real *	sd
	)

int rgg_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	alfr,
		real *	alfi,
		real *	beta,
		integer *	matz,
		real *	z__,
		integer *	ierr
	)

E_f rj_	(	real *	x,
		real *	y,
		real *	z__,
		real *	p,
		integer *	ier
	)

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
	)

int rpqr79_	(	integer *	ndeg,
		real *	coeff,
		complex *	root,
		integer *	ierr,
		real *	work
	)

int rpzero_	(	integer *	n,
		real *	a,
		complex *	r__,
		complex *	t,
		integer *	iflg,
		real *	s
	)

int rs_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	w,
		integer *	matz,
		real *	z__,
		real *	fv1,
		real *	fv2,
		integer *	ierr
	)

int rsb_	(	integer *	nm,
		integer *	n,
		integer *	mb,
		real *	a,
		real *	w,
		integer *	matz,
		real *	z__,
		real *	fv1,
		real *	fv2,
		integer *	ierr
	)

int rsco_	(	real *	rsav,
		integer *	isav
	)

int rsg_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	w,
		integer *	matz,
		real *	z__,
		real *	fv1,
		real *	fv2,
		integer *	ierr
	)

int rsgab_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	w,
		integer *	matz,
		real *	z__,
		real *	fv1,
		real *	fv2,
		integer *	ierr
	)

int rsgba_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	b,
		real *	w,
		integer *	matz,
		real *	z__,
		real *	fv1,
		real *	fv2,
		integer *	ierr
	)

int rsp_	(	integer *	nm,
		integer *	n,
		integer *	nv,
		real *	a,
		real *	w,
		integer *	matz,
		real *	z__,
		real *	fv1,
		real *	fv2,
		integer *	ierr
	)

int rst_	(	integer *	nm,
		integer *	n,
		real *	w,
		real *	e,
		integer *	matz,
		real *	z__,
		integer *	ierr
	)

int rt_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	w,
		integer *	matz,
		real *	z__,
		real *	fv1,
		integer *	ierr
	)

E_f runif_	(	real *	t,
		integer *	n
	)

int rwupdt_	(	integer *	n,
		real *	r__,
		integer *	ldr,
		real *	w,
		real *	b,
		real *	alpha,
		real *	cos__,
		real *	sin__
	)

int s88fmt_	(	integer *	n,
		integer *	ivalue,
		integer *	ifmt
	)

E_f sasum_	(	integer *	n,
		real *	sx,
		integer *	incx
	)

int saxpy_	(	integer *	n,
		real *	sa,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy
	)

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
	)

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
	)

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
	)

E_f scasum_	(	integer *	n,
		complex *	cx,
		integer *	incx
	)

int schdc_	(	real *	a,
		integer *	lda,
		integer *	p,
		real *	work,
		integer *	jpvt,
		integer *	job,
		integer *	info
	)

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
	)

int schex_	(	real *	r__,
		integer *	ldr,
		integer *	p,
		integer *	k,
		integer *	l,
		real *	z__,
		integer *	ldz,
		integer *	nz,
		real *	c__,
		real *	s,
		integer *	job
	)

int schud_	(	real *	r__,
		integer *	ldr,
		integer *	p,
		real *	x,
		real *	z__,
		integer *	ldz,
		integer *	nz,
		real *	y,
		real *	rho,
		real *	c__,
		real *	s
	)

int sclosm_

(

integer *

ipage

)

E_f scnrm2_	(	integer *	n,
		complex *	cx,
		integer *	incx
	)

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
	)

int scopy_	(	integer *	n,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy
	)

int scopym_	(	integer *	n,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy
	)

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
	)

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__
	)

int sdcstb_	(	integer *	maxord,
		integer *	mint,
		integer *	iswflg,
		real *	el,
		real *	tq
	)

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
	)

int sdntpb_	(	real *	h__,
		integer *	k,
		integer *	n,
		integer *	nq,
		real *	t,
		real *	tout,
		real *	yh,
		real *	y
	)

E_f sdot_	(	integer *	n,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy
	)

int sdpscb_	(	integer *	ksgn,
		integer *	n,
		integer *	nq,
		real *	yh
	)

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
	)

int sdrvb1_	(	integer *	n,
		real *	t,
		real *	y,
		real *	tout,
		integer *	mstate,
		real *	eps,
		real *	work,
		integer *	lenw
	)

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
	)

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
	)

int sdsclb_	(	real *	hmax,
		integer *	n,
		integer *	nq,
		real *	rmax,
		real *	h__,
		real *	rc,
		real *	rh,
		real *	yh
	)

E_f sdsdot_	(	integer *	n,
		real *	sb,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy
	)

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
	)

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
	)

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
	)

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
	)

int sgbco_	(	real *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		real *	rcond,
		real *	z__
	)

int sgbdi_	(	real *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		real *	det
	)

int sgbfa_	(	real *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		integer *	info
	)

int sgbsl_	(	real *	abd,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		real *	b,
		integer *	job
	)

int sgeco_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		real *	rcond,
		real *	z__
	)

int sgedi_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		real *	det,
		real *	work,
		integer *	job
	)

int sgeev_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	e,
		real *	v,
		integer *	ldv,
		real *	work,
		integer *	job,
		integer *	info
	)

int sgefa_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		integer *	info
	)

int sgefs_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	v,
		integer *	itask,
		integer *	ind,
		real *	work,
		integer *	iwork
	)

int sgeir_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	v,
		integer *	itask,
		integer *	ind,
		real *	work,
		integer *	iwork
	)

int sgemm_	(	integer *	m,
		integer *	n,
		integer *	l,
		real *	a,
		integer *	ia,
		real *	b,
		integer *	ib,
		real *	c__,
		integer *	ic,
		integer *	jtrpos,
		integer *	job
	)

int sgemv_	(	integer *	m,
		integer *	n,
		real *	a,
		integer *	ia,
		real *	x,
		integer *	ix,
		real *	y,
		integer *	iy,
		integer *	job
	)

int sgesl_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	ipvt,
		real *	b,
		integer *	job
	)

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
	)

int sgtsl_	(	integer *	n,
		real *	c__,
		real *	d__,
		real *	e,
		real *	b,
		integer *	info
	)

E_f sindg_

(

real *

)

int sinqb_	(	integer *	n,
		real *	x,
		real *	wsave
	)

int sinqf_	(	integer *	n,
		real *	x,
		real *	wsave
	)

int sinqi_	(	integer *	n,
		real *	wsave
	)

int sint_	(	integer *	n,
		real *	x,
		real *	wsave
	)

int sinti_	(	integer *	n,
		real *	wsave
	)

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
	)

int slvs_	(	real *	wm,
		integer *	iwm,
		real *	x,
		real *	tem
	)

int smout_	(	integer *	m,
		integer *	n,
		integer *	lda,
		real *	a,
		char *	ifmt,
		integer *	idigit,
		ftnlen	ifmt_len
	)

int snbco_	(	real *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		real *	rcond,
		real *	z__
	)

int snbdi_	(	real *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		real *	det
	)

int snbfa_	(	real *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		integer *	info
	)

int snbfs_	(	real *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		real *	v,
		integer *	itask,
		integer *	ind,
		real *	work,
		integer *	iwork
	)

int snbir_	(	real *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		real *	v,
		integer *	itask,
		integer *	ind,
		real *	work,
		integer *	iwork
	)

int snbsl_	(	real *	abe,
		integer *	lda,
		integer *	n,
		integer *	ml,
		integer *	mu,
		integer *	ipvt,
		real *	b,
		integer *	job
	)

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
	)

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
	)

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
	)

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
	)

E_f snrm2_	(	integer *	n,
		real *	sx,
		integer *	incx
	)

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
	)

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
	)

int sods_	(	real *	a,
		real *	x,
		real *	b,
		integer *	neq,
		integer *	nuk,
		integer *	nrda,
		integer *	iflag,
		real *	work,
		integer *	iwork
	)

int sopenm_	(	integer *	ipage,
		integer *	lpage
	)

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
	)

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
	)

int sossol_	(	integer *	k,
		integer *	n,
		integer *	l,
		real *	x,
		real *	c__,
		real *	b,
		integer *	m
	)

int spbco_	(	real *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		real *	rcond,
		real *	z__,
		integer *	info
	)

int spbdi_	(	real *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		real *	det
	)

int spbfa_	(	real *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		integer *	info
	)

int spbsl_	(	real *	abd,
		integer *	lda,
		integer *	n,
		integer *	m,
		real *	b
	)

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
	)

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
	)

E_f spenc_

(

real *

)

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
	)

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
	)

E_f spintg_	(	integer *	l,
		real *	v1,
		real *	v2,
		real *	x,
		real *	f,
		real *	w,
		integer *	n,
		integer *	ij
	)

int spl1d1_	(	integer *	n,
		real *	x,
		real *	f,
		real *	w,
		integer *	iop,
		integer *	ij,
		real *	a,
		real *	b,
		real *	c__
	)

int spl1d2_	(	integer *	n,
		real *	x,
		real *	f,
		real *	w,
		integer *	ij,
		real *	y,
		real *	tab
	)

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
	)

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
	)

E_f spl2d3_	(	integer *	ixd,
		integer *	iyd
	)

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
	)

E_f splint_	(	integer *	n,
		real *	x,
		real *	f,
		real *	w,
		integer *	ij,
		real *	a,
		real *	b
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

int spoco_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	rcond,
		real *	z__,
		integer *	info
	)

int spodi_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	det,
		integer *	job
	)

int spofa_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	info
	)

int spofs_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	v,
		integer *	itask,
		integer *	ind,
		real *	work
	)

int spoir_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	v,
		integer *	itask,
		integer *	ind,
		real *	work
	)

int spopt_	(	real *	prgopt,
		integer *	mrelas,
		integer *	nvars__,
		integer *	info,
		real *	csc,
		integer *	ibasis,
		real *	ropt,
		integer *	intopt,
		logical *	lopt
	)

int sposl_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	b
	)

int sppco_	(	real *	ap,
		integer *	n,
		real *	rcond,
		real *	z__,
		integer *	info
	)

int sppdi_	(	real *	ap,
		integer *	n,
		real *	det,
		integer *	job
	)

int sppfa_	(	real *	ap,
		integer *	n,
		integer *	info
	)

int sppsl_	(	real *	ap,
		integer *	n,
		real *	b
	)

int sptsl_	(	integer *	n,
		real *	d__,
		real *	e,
		real *	b
	)

int sqrdc_	(	real *	x,
		integer *	ldx,
		integer *	n,
		integer *	p,
		real *	qraux,
		integer *	jpvt,
		real *	work,
		integer *	job
	)

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
	)

int sreadp_	(	integer *	ipage,
		integer *	list,
		real *	rlist,
		integer *	lpage,
		integer *	irec
	)

int srot_	(	integer *	n,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy,
		real *	sc,
		real *	ss
	)

int srotg_	(	real *	sa,
		real *	sb,
		real *	sc,
		real *	ss
	)

int srotm_	(	integer *	n,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy,
		real *	sparam
	)

int srotmg_	(	real *	sd1,
		real *	sd2,
		real *	sx1,
		real *	sy1,
		real *	sparam
	)

int sscal_	(	integer *	n,
		real *	sa,
		real *	sx,
		integer *	incx
	)

int ssico_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		real *	rcond,
		real *	z__
	)

int ssidi_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		real *	det,
		integer *	inert,
		real *	work,
		integer *	job
	)

int ssiev_	(	real *	a,
		integer *	lda,
		integer *	n,
		real *	e,
		real *	work,
		integer *	job,
		integer *	info
	)

int ssifa_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		integer *	info
	)

int ssisl_	(	real *	a,
		integer *	lda,
		integer *	n,
		integer *	kpvt,
		real *	b
	)

int ssort_	(	real *	x,
		real *	y,
		integer *	n,
		integer *	kflag
	)

int sspco_	(	real *	ap,
		integer *	n,
		integer *	kpvt,
		real *	rcond,
		real *	z__
	)

int sspdi_	(	real *	ap,
		integer *	n,
		integer *	kpvt,
		real *	det,
		integer *	inert,
		real *	work,
		integer *	job
	)

int sspev_	(	real *	a,
		integer *	n,
		real *	e,
		real *	v,
		integer *	ldv,
		real *	work,
		integer *	job,
		integer *	info
	)

int sspfa_	(	real *	ap,
		integer *	n,
		integer *	kpvt,
		integer *	info
	)

int sspsl_	(	real *	ap,
		integer *	n,
		integer *	kpvt,
		real *	b
	)

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
	)

int sswap_	(	integer *	n,
		real *	sx,
		integer *	incx,
		real *	sy,
		integer *	incy
	)

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
	)

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
	)

int stltjs_	(	integer *	m,
		integer *	n,
		doublereal *	b,
		doublereal *	g,
		doublereal *	fm,
		integer *	jsng,
		D_fp	wf,
		D_fp	phi,
		real *	endptl,
		real *	endptr
	)

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
	)

int stor1_	(	real *	u,
		real *	yh,
		real *	v,
		real *	yp,
		integer *	ntemp,
		integer *	ndisk,
		integer *	ntape
	)

int strco_	(	real *	t,
		integer *	ldt,
		integer *	n,
		real *	rcond,
		real *	z__,
		integer *	job
	)

int strdi_	(	real *	t,
		integer *	ldt,
		integer *	n,
		real *	det,
		integer *	job,
		integer *	info
	)

int strsl_	(	real *	t,
		integer *	ldt,
		integer *	n,
		real *	b,
		integer *	job,
		integer *	info
	)

int stway_	(	real *	u,
		real *	v,
		real *	yhp,
		integer *	inout,
		real *	stowa
	)

int suds_	(	real *	a,
		real *	x,
		real *	b,
		integer *	neq,
		integer *	nuk,
		integer *	nrda,
		integer *	iflag,
		integer *	mlso,
		real *	work,
		integer *	iwork
	)

int svco_	(	real *	rsav,
		integer *	isav
	)

int svd_	(	integer *	nm,
		integer *	m,
		integer *	n,
		real *	a,
		real *	w,
		logical *	matu,
		real *	u,
		logical *	matv,
		real *	v,
		integer *	ierr,
		real *	rv1
	)

int svecs_	(	integer *	ncomp,
		integer *	lnfc,
		real *	yhp,
		real *	work,
		integer *	iwork,
		integer *	inhomo,
		integer *	iflag
	)

int svout_	(	integer *	n,
		real *	sx,
		char *	ifmt,
		integer *	idigit,
		ftnlen	ifmt_len
	)

int swritp_	(	integer *	ipage,
		integer *	list,
		real *	rlist,
		integer *	lpage,
		integer *	irec
	)

int tevlc_	(	integer *	n,
		real *	d__,
		real *	e2,
		integer *	ierr
	)

int tevls_	(	integer *	n,
		real *	d__,
		real *	e2,
		integer *	ierr
	)

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
	)

int tql1_	(	integer *	n,
		real *	d__,
		real *	e,
		integer *	ierr
	)

int tql2_	(	integer *	nm,
		integer *	n,
		real *	d__,
		real *	e,
		real *	z__,
		integer *	ierr
	)

int tqlrat_	(	integer *	n,
		real *	d__,
		real *	e2,
		integer *	ierr
	)

int trbak1_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	e,
		integer *	m,
		real *	z__
	)

int trbak3_	(	integer *	nm,
		integer *	n,
		integer *	nv,
		real *	a,
		integer *	m,
		real *	z__
	)

int tred1_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	d__,
		real *	e,
		real *	e2
	)

int tred2_	(	integer *	nm,
		integer *	n,
		real *	a,
		real *	d__,
		real *	e,
		real *	z__
	)

int tred3_	(	integer *	n,
		integer *	nv,
		real *	a,
		real *	d__,
		real *	e,
		real *	e2
	)

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
	)

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
	)

int tridq_	(	integer *	mr,
		real *	a,
		real *	b,
		real *	c__,
		real *	y,
		real *	d__
	)

int tris4_	(	integer *	n,
		real *	a,
		real *	b,
		real *	c__,
		real *	d__,
		real *	u,
		real *	z__
	)

int trisp_	(	integer *	n,
		real *	a,
		real *	b,
		real *	c__,
		real *	d__,
		real *	u,
		real *	z__
	)

int trix_	(	integer *	idegbr,
		integer *	idegcr,
		integer *	m,
		real *	a,
		real *	b,
		real *	c__,
		real *	y,
		real *	tcos,
		real *	d__,
		real *	w
	)

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
	)

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
	)

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
	)

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
	)

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
	)

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
	)

int usrmat_	(	integer *	i__,
		integer *	j,
		real *	aij,
		integer *	indcat,
		real *	prgopt,
		real *	dattrv,
		integer *	iflag
	)

E_f vnorm_	(	real *	v,
		integer *	ncomp
	)

E_f vnwrms_	(	integer *	n,
		real *	v,
		real *	w
	)

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
	)

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__
	)

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
	)

int xerabt_	(	char *	messg,
		integer *	nmessg,
		ftnlen	messg_len
	)

int xerclr_

(

void

)

int xerctl_	(	char *	messg1,
		integer *	nmessg,
		integer *	nerr,
		integer *	level,
		integer *	kontrl,
		ftnlen	messg1_len
	)

int xerdmp_

(

void

)

int xermax_

(

integer *

max__

)

int xerprt_	(	char *	messg,
		integer *	nmessg,
		ftnlen	messg_len
	)

int xerror_	(	char *	messg,
		integer *	nmessg,
		integer *	nerr,
		integer *	level,
		ftnlen	messg_len
	)

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
	)

int xersav_	(	char *	messg,
		integer *	nmessg,
		integer *	nerr,
		integer *	level,
		integer *	icount,
		ftnlen	messg_len
	)

int xgetf_

(

integer *

kontrl

)

int xgetua_	(	integer *	iunita,
		integer *	n
	)

int xgetun_

(

integer *

iunit

)

int xsetf_

(

integer *

kontrl

)

int xsetua_	(	integer *	iunita,
		integer *	n
	)

int xsetun_

(

integer *

iunit

)

int yairy_	(	real *	x,
		real *	rx,
		real *	c__,
		real *	bi,
		real *	dbi
	)

AFNI/NIfTI Server

Sections

Personal tools

Navigation

Doxygen Source Code Documentation

clamlib.h File Reference

Functions

Function Documentation