clapack_double: Libgretl Reference Manual

clapack_double

Functions

int	dbdsdc_ ()
int	dbdsqr_ ()
int	ddisna_ ()
int	dgbbrd_ ()
int	dgbcon_ ()
int	dgbequ_ ()
int	dgbrfs_ ()
int	dgbsv_ ()
int	dgbsvx_ ()
int	dgbtf2_ ()
int	dgbtrf_ ()
int	dgbtrs_ ()
int	dgebak_ ()
int	dgebal_ ()
int	dgebd2_ ()
int	dgebrd_ ()
int	dgecon_ ()
int	dgeequ_ ()
int	dgees_ ()
int	dgeesx_ ()
int	dgeev_ ()
int	dgeevx_ ()
int	dgegs_ ()
int	dgehd2_ ()
int	dgehrd_ ()
int	dgelq2_ ()
int	dgelqf_ ()
int	dgels_ ()
int	dgelsd_ ()
int	dgelss_ ()
int	dgelsx_ ()
int	dgelsy_ ()
int	dgeql2_ ()
int	dgeqlf_ ()
int	dgeqp3_ ()
int	dgeqpf_ ()
int	dgeqr2_ ()
int	dgeqrf_ ()
int	dgerfs_ ()
int	dgerq2_ ()
int	dgerqf_ ()
int	dgesc2_ ()
int	dgesdd_ ()
int	dgesv_ ()
int	dgesvd_ ()
int	dgesvx_ ()
int	dgetc2_ ()
int	dgetf2_ ()
int	dgetrf_ ()
int	dgetri_ ()
int	dgetrs_ ()
int	dggbak_ ()
int	dggbal_ ()
int	dgges_ ()
int	dggesx_ ()
int	dggev_ ()
int	dggevx_ ()
int	dggglm_ ()
int	dgghrd_ ()
int	dgglse_ ()
int	dggqrf_ ()
int	dggrqf_ ()
int	dggsvd_ ()
int	dggsvp_ ()
int	dgtcon_ ()
int	dgtrfs_ ()
int	dgtsv_ ()
int	dgtsvx_ ()
int	dgttrf_ ()
int	dgttrs_ ()
int	dgtts2_ ()
int	dhgeqz_ ()
int	dhsein_ ()
int	dhseqr_ ()
int	dlabad_ ()
int	dlabrd_ ()
int	dlacon_ ()
int	dlacpy_ ()
int	dladiv_ ()
int	dlae2_ ()
int	dlaebz_ ()
int	dlaed0_ ()
int	dlaed1_ ()
int	dlaed2_ ()
int	dlaed3_ ()
int	dlaed4_ ()
int	dlaed5_ ()
int	dlaed6_ ()
int	dlaed7_ ()
int	dlaed8_ ()
int	dlaed9_ ()
int	dlaeda_ ()
int	dlaein_ ()
int	dlaev2_ ()
int	dlaexc_ ()
int	dlag2_ ()
int	dlags2_ ()
int	dlagtf_ ()
int	dlagtm_ ()
int	dlagts_ ()
int	dlagv2_ ()
int	dlahqr_ ()
int	dlahrd_ ()
int	dlaic1_ ()
int	dlaln2_ ()
int	dlals0_ ()
int	dlalsa_ ()
int	dlalsd_ ()
int	dlamc1_ ()
int	dlamc2_ ()
int	dlamc4_ ()
int	dlamc5_ ()
int	dlamrg_ ()
int	dlanv2_ ()
int	dlapll_ ()
int	dlapmt_ ()
int	dlaqgb_ ()
int	dlaqge_ ()
int	dlaqp2_ ()
int	dlaqps_ ()
int	dlaqsb_ ()
int	dlaqsp_ ()
int	dlaqsy_ ()
int	dlaqtr_ ()
int	dlar1v_ ()
int	dlar2v_ ()
int	dlarf_ ()
int	dlarfb_ ()
int	dlarfg_ ()
int	dlarft_ ()
int	dlarfx_ ()
int	dlargv_ ()
int	dlarnv_ ()
int	dlarrb_ ()
int	dlarre_ ()
int	dlarrf_ ()
int	dlarrv_ ()
int	dlartg_ ()
int	dlartv_ ()
int	dlaruv_ ()
int	dlarz_ ()
int	dlarzb_ ()
int	dlarzt_ ()
int	dlas2_ ()
int	dlascl_ ()
int	dlasd0_ ()
int	dlasd1_ ()
int	dlasd2_ ()
int	dlasd3_ ()
int	dlasd4_ ()
int	dlasd5_ ()
int	dlasd6_ ()
int	dlasd7_ ()
int	dlasd8_ ()
int	dlasd9_ ()
int	dlasda_ ()
int	dlasdq_ ()
int	dlasdt_ ()
int	dlaset_ ()
int	dlasq1_ ()
int	dlasq2_ ()
int	dlasq3_ ()
int	dlasq4_ ()
int	dlasq5_ ()
int	dlasq6_ ()
int	dlasr_ ()
int	dlasrt_ ()
int	dlassq_ ()
int	dlasv2_ ()
int	dlaswp_ ()
int	dlasy2_ ()
int	dlasyf_ ()
int	dlatbs_ ()
int	dlatdf_ ()
int	dlatps_ ()
int	dlatrd_ ()
int	dlatrs_ ()
int	dlatrz_ ()
int	dlatzm_ ()
int	dlauu2_ ()
int	dlauum_ ()
int	dopgtr_ ()
int	dopmtr_ ()
int	dorg2l_ ()
int	dorg2r_ ()
int	dorgbr_ ()
int	dorghr_ ()
int	dorgl2_ ()
int	dorglq_ ()
int	dorgql_ ()
int	dorgqr_ ()
int	dorgr2_ ()
int	dorgrq_ ()
int	dorgtr_ ()
int	dorm2l_ ()
int	dorm2r_ ()
int	dormbr_ ()
int	dormhr_ ()
int	dorml2_ ()
int	dormlq_ ()
int	dormql_ ()
int	dormqr_ ()
int	dormr2_ ()
int	dormr3_ ()
int	dormrq_ ()
int	dormrz_ ()
int	dormtr_ ()
int	dpbcon_ ()
int	dpbequ_ ()
int	dpbrfs_ ()
int	dpbstf_ ()
int	dpbsv_ ()
int	dpbsvx_ ()
int	dpbtf2_ ()
int	dpbtrf_ ()
int	dpbtrs_ ()
int	dpocon_ ()
int	dpoequ_ ()
int	dporfs_ ()
int	dposv_ ()
int	dposvx_ ()
int	dpotf2_ ()
int	dpotrf_ ()
int	dpotri_ ()
int	dpotrs_ ()
int	dppcon_ ()
int	dppequ_ ()
int	dpprfs_ ()
int	dppsv_ ()
int	dppsvx_ ()
int	dpptrf_ ()
int	dpptri_ ()
int	dpptrs_ ()
int	dptcon_ ()
int	dpteqr_ ()
int	dptrfs_ ()
int	dptsv_ ()
int	dptsvx_ ()
int	dpttrf_ ()
int	dpttrs_ ()
int	dptts2_ ()
int	drscl_ ()
int	dsbev_ ()
int	dsbevd_ ()
int	dsbevx_ ()
int	dsbgst_ ()
int	dsbgv_ ()
int	dsbgvd_ ()
int	dsbgvx_ ()
int	dsbtrd_ ()
int	dspcon_ ()
int	dspev_ ()
int	dspevd_ ()
int	dspevx_ ()
int	dspgst_ ()
int	dspgv_ ()
int	dspgvd_ ()
int	dspgvx_ ()
int	dsprfs_ ()
int	dspsv_ ()
int	dspsvx_ ()
int	dsptrd_ ()
int	dsptrf_ ()
int	dsptri_ ()
int	dsptrs_ ()
int	dstebz_ ()
int	dstedc_ ()
int	dstegr_ ()
int	dstein_ ()
int	dsteqr_ ()
int	dsterf_ ()
int	dstev_ ()
int	dstevd_ ()
int	dstevr_ ()
int	dstevx_ ()
int	dsycon_ ()
int	dsyev_ ()
int	dsyevd_ ()
int	dsyevr_ ()
int	dsyevx_ ()
int	dsygs2_ ()
int	dsygst_ ()
int	dsygv_ ()
int	dsygvd_ ()
int	dsygvx_ ()
int	dsyrfs_ ()
int	dsysv_ ()
int	dsysvx_ ()
int	dsytd2_ ()
int	dsytf2_ ()
int	dsytrd_ ()
int	dsytrf_ ()
int	dsytri_ ()
int	dsytrs_ ()
int	dtbcon_ ()
int	dtbrfs_ ()
int	dtbtrs_ ()
int	dtgevc_ ()
int	dtgex2_ ()
int	dtgexc_ ()
int	dtgsen_ ()
int	dtgsja_ ()
int	dtgsna_ ()
int	dtgsy2_ ()
int	dtgsyl_ ()
int	dtpcon_ ()
int	dtprfs_ ()
int	dtptri_ ()
int	dtptrs_ ()
int	dtrcon_ ()
int	dtrevc_ ()
int	dtrexc_ ()
int	dtrrfs_ ()
int	dtrsen_ ()
int	dtrsna_ ()
int	dtrsyl_ ()
int	dtrti2_ ()
int	dtrtri_ ()
int	dtrtrs_ ()
int	dtzrqf_ ()
int	dtzrzf_ ()
int	dpstrf_ ()
integer	icmax1_ ()
integer	ieeeck_ ()
integer	ilaenv_ ()
integer	izmax1_ ()
void	dgemm_ ()
void	dsyrk_ ()
double	dnrm2_ ()
void	daxpy_ ()
double	ddot_ ()
void	dscal_ ()
void	dcopy_ ()
double	dlamch_ ()
void	dgejsv_ ()

Description

Functions

dbdsdc_ ()

int
dbdsdc_ (char *uplo,
         char *compq,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *u,
         integer *ldu,
         doublereal *vt,
         integer *ldvt,
         doublereal *q,
         integer *iq,
         doublereal *work,
         integer *iwork,
         integer *info);

dbdsqr_ ()

int
dbdsqr_ (char *uplo,
         integer *n,
         integer *ncvt,
         integer *nru,
         integer *ncc,
         doublereal *d__,
         doublereal *e,
         doublereal *vt,
         integer *ldvt,
         doublereal *u,
         integer *ldu,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

ddisna_ ()

int
ddisna_ (char *job,
         integer *m,
         integer *n,
         doublereal *d__,
         doublereal *sep,
         integer *info);

dgbbrd_ ()

int
dgbbrd_ (char *vect,
         integer *m,
         integer *n,
         integer *ncc,
         integer *kl,
         integer *ku,
         doublereal *ab,
         integer *ldab,
         doublereal *d__,
         doublereal *e,
         doublereal *q,
         integer *ldq,
         doublereal *pt,
         integer *ldpt,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

dgbcon_ ()

int
dgbcon_ (char *norm,
         integer *n,
         integer *kl,
         integer *ku,
         doublereal *ab,
         integer *ldab,
         integer *ipiv,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dgbequ_ ()

int
dgbequ_ (integer *m,
         integer *n,
         integer *kl,
         integer *ku,
         doublereal *ab,
         integer *ldab,
         doublereal *r__,
         doublereal *c__,
         doublereal *rowcnd,
         doublereal *colcnd,
         doublereal *amax,
         integer *info);

dgbrfs_ ()

int
dgbrfs_ (char *trans,
         integer *n,
         integer *kl,
         integer *ku,
         integer *nrhs,
         doublereal *ab,
         integer *ldab,
         doublereal *afb,
         integer *ldafb,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dgbsv_ ()

int
dgbsv_ (integer *n,
        integer *kl,
        integer *ku,
        integer *nrhs,
        doublereal *ab,
        integer *ldab,
        integer *ipiv,
        doublereal *b,
        integer *ldb,
        integer *info);

dgbsvx_ ()

int
dgbsvx_ (char *fact,
         char *trans,
         integer *n,
         integer *kl,
         integer *ku,
         integer *nrhs,
         doublereal *ab,
         integer *ldab,
         doublereal *afb,
         integer *ldafb,
         integer *ipiv,
         char *equed,
         doublereal *r__,
         doublereal *c__,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dgbtf2_ ()

int
dgbtf2_ (integer *m,
         integer *n,
         integer *kl,
         integer *ku,
         doublereal *ab,
         integer *ldab,
         integer *ipiv,
         integer *info);

dgbtrf_ ()

int
dgbtrf_ (integer *m,
         integer *n,
         integer *kl,
         integer *ku,
         doublereal *ab,
         integer *ldab,
         integer *ipiv,
         integer *info);

dgbtrs_ ()

int
dgbtrs_ (char *trans,
         integer *n,
         integer *kl,
         integer *ku,
         integer *nrhs,
         doublereal *ab,
         integer *ldab,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         integer *info);

dgebak_ ()

int
dgebak_ (char *job,
         char *side,
         integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *scale,
         integer *m,
         doublereal *v,
         integer *ldv,
         integer *info);

dgebal_ ()

int
dgebal_ (char *job,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *ilo,
         integer *ihi,
         doublereal *scale,
         integer *info);

dgebd2_ ()

int
dgebd2_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *d__,
         doublereal *e,
         doublereal *tauq,
         doublereal *taup,
         doublereal *work,
         integer *info);

dgebrd_ ()

int
dgebrd_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *d__,
         doublereal *e,
         doublereal *tauq,
         doublereal *taup,
         doublereal *work,
         integer *lwork,
         integer *info);

dgecon_ ()

int
dgecon_ (char *norm,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dgeequ_ ()

int
dgeequ_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *r__,
         doublereal *c__,
         doublereal *rowcnd,
         doublereal *colcnd,
         doublereal *amax,
         integer *info);

dgees_ ()

int
dgees_ (char *jobvs,
        char *sort,
        L_fp select,
        integer *n,
        doublereal *a,
        integer *lda,
        integer *sdim,
        doublereal *wr,
        doublereal *wi,
        doublereal *vs,
        integer *ldvs,
        doublereal *work,
        integer *lwork,
        logical *bwork,
        integer *info);

dgeesx_ ()

int
dgeesx_ (char *jobvs,
         char *sort,
         L_fp select,
         char *sense,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *sdim,
         doublereal *wr,
         doublereal *wi,
         doublereal *vs,
         integer *ldvs,
         doublereal *rconde,
         doublereal *rcondv,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         logical *bwork,
         integer *info);

dgeev_ ()

int
dgeev_ (char *jobvl,
        char *jobvr,
        integer *n,
        doublereal *a,
        integer *lda,
        doublereal *wr,
        doublereal *wi,
        doublereal *vl,
        integer *ldvl,
        doublereal *vr,
        integer *ldvr,
        doublereal *work,
        integer *lwork,
        integer *info);

dgeevx_ ()

int
dgeevx_ (char *balanc,
         char *jobvl,
         char *jobvr,
         char *sense,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *wr,
         doublereal *wi,
         doublereal *vl,
         integer *ldvl,
         doublereal *vr,
         integer *ldvr,
         integer *ilo,
         integer *ihi,
         doublereal *scale,
         doublereal *abnrm,
         doublereal *rconde,
         doublereal *rcondv,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *info);

dgegs_ ()

int
dgegs_ (char *jobvsl,
        char *jobvsr,
        integer *n,
        doublereal *a,
        integer *lda,
        doublereal *b,
        integer *ldb,
        doublereal *alphar,
        doublereal *alphai,
        doublereal *beta,
        doublereal *vsl,
        integer *ldvsl,
        doublereal *vsr,
        integer *ldvsr,
        doublereal *work,
        integer *lwork,
        integer *info);

dgehd2_ ()

int
dgehd2_ (integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dgehrd_ ()

int
dgehrd_ (integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dgelq2_ ()

int
dgelq2_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dgelqf_ ()

int
dgelqf_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dgels_ ()

int
dgels_ (char *trans,
        integer *m,
        integer *n,
        integer *nrhs,
        doublereal *a,
        integer *lda,
        doublereal *b,
        integer *ldb,
        doublereal *work,
        integer *lwork,
        integer *info);

dgelsd_ ()

int
dgelsd_ (integer *m,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *s,
         doublereal *rcond,
         integer *rank,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *info);

dgelss_ ()

int
dgelss_ (integer *m,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *s,
         doublereal *rcond,
         integer *rank,
         doublereal *work,
         integer *lwork,
         integer *info);

dgelsx_ ()

int
dgelsx_ (integer *m,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         integer *jpvt,
         doublereal *rcond,
         integer *rank,
         doublereal *work,
         integer *info);

dgelsy_ ()

int
dgelsy_ (integer *m,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         integer *jpvt,
         doublereal *rcond,
         integer *rank,
         doublereal *work,
         integer *lwork,
         integer *info);

dgeql2_ ()

int
dgeql2_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dgeqlf_ ()

int
dgeqlf_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dgeqp3_ ()

int
dgeqp3_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *jpvt,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dgeqpf_ ()

int
dgeqpf_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *jpvt,
         doublereal *tau,
         doublereal *work,
         integer *info);

dgeqr2_ ()

int
dgeqr2_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dgeqrf_ ()

int
dgeqrf_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dgerfs_ ()

int
dgerfs_ (char *trans,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *af,
         integer *ldaf,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dgerq2_ ()

int
dgerq2_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dgerqf_ ()

int
dgerqf_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dgesc2_ ()

int
dgesc2_ (integer *n,
         doublereal *a,
         integer *lda,
         doublereal *rhs,
         integer *ipiv,
         integer *jpiv,
         doublereal *scale);

dgesdd_ ()

int
dgesdd_ (char *jobz,
         integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *s,
         doublereal *u,
         integer *ldu,
         doublereal *vt,
         integer *ldvt,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *info);

dgesv_ ()

int
dgesv_ (integer *n,
        integer *nrhs,
        doublereal *a,
        integer *lda,
        integer *ipiv,
        doublereal *b,
        integer *ldb,
        integer *info);

dgesvd_ ()

int
dgesvd_ (char *jobu,
         char *jobvt,
         integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *s,
         doublereal *u,
         integer *ldu,
         doublereal *vt,
         integer *ldvt,
         doublereal *work,
         integer *lwork,
         integer *info);

dgesvx_ ()

int
dgesvx_ (char *fact,
         char *trans,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *af,
         integer *ldaf,
         integer *ipiv,
         char *equed,
         doublereal *r__,
         doublereal *c__,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dgetc2_ ()

int
dgetc2_ (integer *n,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         integer *jpiv,
         integer *info);

dgetf2_ ()

int
dgetf2_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         integer *info);

dgetrf_ ()

int
dgetrf_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         integer *info);

dgetri_ ()

int
dgetri_ (integer *n,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         doublereal *work,
         integer *lwork,
         integer *info);

dgetrs_ ()

int
dgetrs_ (char *trans,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         integer *info);

dggbak_ ()

int
dggbak_ (char *job,
         char *side,
         integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *lscale,
         doublereal *rscale,
         integer *m,
         doublereal *v,
         integer *ldv,
         integer *info);

dggbal_ ()

int
dggbal_ (char *job,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         integer *ilo,
         integer *ihi,
         doublereal *lscale,
         doublereal *rscale,
         doublereal *work,
         integer *info);

dgges_ ()

int
dgges_ (char *jobvsl,
        char *jobvsr,
        char *sort,
        L_fp delctg,
        integer *n,
        doublereal *a,
        integer *lda,
        doublereal *b,
        integer *ldb,
        integer *sdim,
        doublereal *alphar,
        doublereal *alphai,
        doublereal *beta,
        doublereal *vsl,
        integer *ldvsl,
        doublereal *vsr,
        integer *ldvsr,
        doublereal *work,
        integer *lwork,
        logical *bwork,
        integer *info);

dggesx_ ()

int
dggesx_ (char *jobvsl,
         char *jobvsr,
         char *sort,
         L_fp delctg,
         char *sense,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         integer *sdim,
         doublereal *alphar,
         doublereal *alphai,
         doublereal *beta,
         doublereal *vsl,
         integer *ldvsl,
         doublereal *vsr,
         integer *ldvsr,
         doublereal *rconde,
         doublereal *rcondv,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         logical *bwork,
         integer *info);

dggev_ ()

int
dggev_ (char *jobvl,
        char *jobvr,
        integer *n,
        doublereal *a,
        integer *lda,
        doublereal *b,
        integer *ldb,
        doublereal *alphar,
        doublereal *alphai,
        doublereal *beta,
        doublereal *vl,
        integer *ldvl,
        doublereal *vr,
        integer *ldvr,
        doublereal *work,
        integer *lwork,
        integer *info);

dggevx_ ()

int
dggevx_ (char *balanc,
         char *jobvl,
         char *jobvr,
         char *sense,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *alphar,
         doublereal *alphai,
         doublereal *beta,
         doublereal *vl,
         integer *ldvl,
         doublereal *vr,
         integer *ldvr,
         integer *ilo,
         integer *ihi,
         doublereal *lscale,
         doublereal *rscale,
         doublereal *abnrm,
         doublereal *bbnrm,
         doublereal *rconde,
         doublereal *rcondv,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         logical *bwork,
         integer *info);

dggglm_ ()

int
dggglm_ (integer *n,
         integer *m,
         integer *p,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *d__,
         doublereal *x,
         doublereal *y,
         doublereal *work,
         integer *lwork,
         integer *info);

dgghrd_ ()

int
dgghrd_ (char *compq,
         char *compz,
         integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *q,
         integer *ldq,
         doublereal *z__,
         integer *ldz,
         integer *info);

dgglse_ ()

int
dgglse_ (integer *m,
         integer *n,
         integer *p,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *c__,
         doublereal *d__,
         doublereal *x,
         doublereal *work,
         integer *lwork,
         integer *info);

dggqrf_ ()

int
dggqrf_ (integer *n,
         integer *m,
         integer *p,
         doublereal *a,
         integer *lda,
         doublereal *taua,
         doublereal *b,
         integer *ldb,
         doublereal *taub,
         doublereal *work,
         integer *lwork,
         integer *info);

dggrqf_ ()

int
dggrqf_ (integer *m,
         integer *p,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *taua,
         doublereal *b,
         integer *ldb,
         doublereal *taub,
         doublereal *work,
         integer *lwork,
         integer *info);

dggsvd_ ()

int
dggsvd_ (char *jobu,
         char *jobv,
         char *jobq,
         integer *m,
         integer *n,
         integer *p,
         integer *k,
         integer *l,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *alpha,
         doublereal *beta,
         doublereal *u,
         integer *ldu,
         doublereal *v,
         integer *ldv,
         doublereal *q,
         integer *ldq,
         doublereal *work,
         integer *iwork,
         integer *info);

dggsvp_ ()

int
dggsvp_ (char *jobu,
         char *jobv,
         char *jobq,
         integer *m,
         integer *p,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *tola,
         doublereal *tolb,
         integer *k,
         integer *l,
         doublereal *u,
         integer *ldu,
         doublereal *v,
         integer *ldv,
         doublereal *q,
         integer *ldq,
         integer *iwork,
         doublereal *tau,
         doublereal *work,
         integer *info);

dgtcon_ ()

int
dgtcon_ (char *norm,
         integer *n,
         doublereal *dl,
         doublereal *d__,
         doublereal *du,
         doublereal *du2,
         integer *ipiv,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dgtrfs_ ()

int
dgtrfs_ (char *trans,
         integer *n,
         integer *nrhs,
         doublereal *dl,
         doublereal *d__,
         doublereal *du,
         doublereal *dlf,
         doublereal *df,
         doublereal *duf,
         doublereal *du2,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dgtsv_ ()

int
dgtsv_ (integer *n,
        integer *nrhs,
        doublereal *dl,
        doublereal *d__,
        doublereal *du,
        doublereal *b,
        integer *ldb,
        integer *info);

dgtsvx_ ()

int
dgtsvx_ (char *fact,
         char *trans,
         integer *n,
         integer *nrhs,
         doublereal *dl,
         doublereal *d__,
         doublereal *du,
         doublereal *dlf,
         doublereal *df,
         doublereal *duf,
         doublereal *du2,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dgttrf_ ()

int
dgttrf_ (integer *n,
         doublereal *dl,
         doublereal *d__,
         doublereal *du,
         doublereal *du2,
         integer *ipiv,
         integer *info);

dgttrs_ ()

int
dgttrs_ (char *trans,
         integer *n,
         integer *nrhs,
         doublereal *dl,
         doublereal *d__,
         doublereal *du,
         doublereal *du2,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         integer *info);

dgtts2_ ()

int
dgtts2_ (integer *itrans,
         integer *n,
         integer *nrhs,
         doublereal *dl,
         doublereal *d__,
         doublereal *du,
         doublereal *du2,
         integer *ipiv,
         doublereal *b,
         integer *ldb);

dhgeqz_ ()

int
dhgeqz_ (char *job,
         char *compq,
         char *compz,
         integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *alphar,
         doublereal *alphai,
         doublereal *beta,
         doublereal *q,
         integer *ldq,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *info);

dhsein_ ()

int
dhsein_ (char *side,
         char *eigsrc,
         char *initv,
         logical *select,
         integer *n,
         doublereal *h__,
         integer *ldh,
         doublereal *wr,
         doublereal *wi,
         doublereal *vl,
         integer *ldvl,
         doublereal *vr,
         integer *ldvr,
         integer *mm,
         integer *m,
         doublereal *work,
         integer *ifaill,
         integer *ifailr,
         integer *info);

dhseqr_ ()

int
dhseqr_ (char *job,
         char *compz,
         integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *h__,
         integer *ldh,
         doublereal *wr,
         doublereal *wi,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *info);

dlabad_ ()

int
dlabad_ (doublereal *smal,
         doublereal *lrge);

dlabrd_ ()

int
dlabrd_ (integer *m,
         integer *n,
         integer *nb,
         doublereal *a,
         integer *lda,
         doublereal *d__,
         doublereal *e,
         doublereal *tauq,
         doublereal *taup,
         doublereal *x,
         integer *ldx,
         doublereal *y,
         integer *ldy);

dlacon_ ()

int
dlacon_ (integer *n,
         doublereal *v,
         doublereal *x,
         integer *isgn,
         doublereal *est,
         integer *kase);

dlacpy_ ()

int
dlacpy_ (char *uplo,
         integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb);

dladiv_ ()

int
dladiv_ (doublereal *a,
         doublereal *b,
         doublereal *c__,
         doublereal *d__,
         doublereal *p,
         doublereal *q);

dlae2_ ()

int
dlae2_ (doublereal *a,
        doublereal *b,
        doublereal *c__,
        doublereal *rt1,
        doublereal *rt2);

dlaebz_ ()

int
dlaebz_ (integer *ijob,
         integer *nitmax,
         integer *n,
         integer *mmax,
         integer *minp,
         integer *nbmin,
         doublereal *abstol,
         doublereal *reltol,
         doublereal *pivmin,
         doublereal *d__,
         doublereal *e,
         doublereal *e2,
         integer *nval,
         doublereal *ab,
         doublereal *c__,
         integer *mout,
         integer *nab,
         doublereal *work,
         integer *iwork,
         integer *info);

dlaed0_ ()

int
dlaed0_ (integer *icompq,
         integer *qsiz,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *q,
         integer *ldq,
         doublereal *qstore,
         integer *ldqs,
         doublereal *work,
         integer *iwork,
         integer *info);

dlaed1_ ()

int
dlaed1_ (integer *n,
         doublereal *d__,
         doublereal *q,
         integer *ldq,
         integer *indxq,
         doublereal *rho,
         integer *cutpnt,
         doublereal *work,
         integer *iwork,
         integer *info);

dlaed2_ ()

int
dlaed2_ (integer *k,
         integer *n,
         integer *n1,
         doublereal *d__,
         doublereal *q,
         integer *ldq,
         integer *indxq,
         doublereal *rho,
         doublereal *z__,
         doublereal *dlamda,
         doublereal *w,
         doublereal *q2,
         integer *indx,
         integer *indxc,
         integer *indxp,
         integer *coltyp,
         integer *info);

dlaed3_ ()

int
dlaed3_ (integer *k,
         integer *n,
         integer *n1,
         doublereal *d__,
         doublereal *q,
         integer *ldq,
         doublereal *rho,
         doublereal *dlamda,
         doublereal *q2,
         integer *indx,
         integer *ctot,
         doublereal *w,
         doublereal *s,
         integer *info);

dlaed4_ ()

int
dlaed4_ (integer *n,
         integer *i__,
         doublereal *d__,
         doublereal *z__,
         doublereal *delta,
         doublereal *rho,
         doublereal *dlam,
         integer *info);

dlaed5_ ()

int
dlaed5_ (integer *i__,
         doublereal *d__,
         doublereal *z__,
         doublereal *delta,
         doublereal *rho,
         doublereal *dlam);

dlaed6_ ()

int
dlaed6_ (integer *kniter,
         logical *orgati,
         doublereal *rho,
         doublereal *d__,
         doublereal *z__,
         doublereal *finit,
         doublereal *tau,
         integer *info);

dlaed7_ ()

int
dlaed7_ (integer *icompq,
         integer *n,
         integer *qsiz,
         integer *tlvls,
         integer *curlvl,
         integer *curpbm,
         doublereal *d__,
         doublereal *q,
         integer *ldq,
         integer *indxq,
         doublereal *rho,
         integer *cutpnt,
         doublereal *qstore,
         integer *qptr,
         integer *prmptr,
         integer *perm,
         integer *givptr,
         integer *givcol,
         doublereal *givnum,
         doublereal *work,
         integer *iwork,
         integer *info);

dlaed8_ ()

int
dlaed8_ (integer *icompq,
         integer *k,
         integer *n,
         integer *qsiz,
         doublereal *d__,
         doublereal *q,
         integer *ldq,
         integer *indxq,
         doublereal *rho,
         integer *cutpnt,
         doublereal *z__,
         doublereal *dlamda,
         doublereal *q2,
         integer *ldq2,
         doublereal *w,
         integer *perm,
         integer *givptr,
         integer *givcol,
         doublereal *givnum,
         integer *indxp,
         integer *indx,
         integer *info);

dlaed9_ ()

int
dlaed9_ (integer *k,
         integer *kstart,
         integer *kstop,
         integer *n,
         doublereal *d__,
         doublereal *q,
         integer *ldq,
         doublereal *rho,
         doublereal *dlamda,
         doublereal *w,
         doublereal *s,
         integer *lds,
         integer *info);

dlaeda_ ()

int
dlaeda_ (integer *n,
         integer *tlvls,
         integer *curlvl,
         integer *curpbm,
         integer *prmptr,
         integer *perm,
         integer *givptr,
         integer *givcol,
         doublereal *givnum,
         doublereal *q,
         integer *qptr,
         doublereal *z__,
         doublereal *ztemp,
         integer *info);

dlaein_ ()

int
dlaein_ (logical *rightv,
         logical *noinit,
         integer *n,
         doublereal *h__,
         integer *ldh,
         doublereal *wr,
         doublereal *wi,
         doublereal *vr,
         doublereal *vi,
         doublereal *b,
         integer *ldb,
         doublereal *work,
         doublereal *eps3,
         doublereal *smlnum,
         doublereal *bignum,
         integer *info);

dlaev2_ ()

int
dlaev2_ (doublereal *a,
         doublereal *b,
         doublereal *c__,
         doublereal *rt1,
         doublereal *rt2,
         doublereal *cs1,
         doublereal *sn1);

dlaexc_ ()

int
dlaexc_ (logical *wantq,
         integer *n,
         doublereal *t,
         integer *ldt,
         doublereal *q,
         integer *ldq,
         integer *j1,
         integer *n1,
         integer *n2,
         doublereal *work,
         integer *info);

dlag2_ ()

int
dlag2_ (doublereal *a,
        integer *lda,
        doublereal *b,
        integer *ldb,
        doublereal *safmin,
        doublereal *scale1,
        doublereal *scale2,
        doublereal *wr1,
        doublereal *wr2,
        doublereal *wi);

dlags2_ ()

int
dlags2_ (logical *upper,
         doublereal *a1,
         doublereal *a2,
         doublereal *a3,
         doublereal *b1,
         doublereal *b2,
         doublereal *b3,
         doublereal *csu,
         doublereal *snu,
         doublereal *csv,
         doublereal *snv,
         doublereal *csq,
         doublereal *snq);

dlagtf_ ()

int
dlagtf_ (integer *n,
         doublereal *a,
         doublereal *lambda,
         doublereal *b,
         doublereal *c__,
         doublereal *tol,
         doublereal *d__,
         integer *in,
         integer *info);

dlagtm_ ()

int
dlagtm_ (char *trans,
         integer *n,
         integer *nrhs,
         doublereal *alpha,
         doublereal *dl,
         doublereal *d__,
         doublereal *du,
         doublereal *x,
         integer *ldx,
         doublereal *beta,
         doublereal *b,
         integer *ldb);

dlagts_ ()

int
dlagts_ (integer *job,
         integer *n,
         doublereal *a,
         doublereal *b,
         doublereal *c__,
         doublereal *d__,
         integer *in,
         doublereal *y,
         doublereal *tol,
         integer *info);

dlagv2_ ()

int
dlagv2_ (doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *alphar,
         doublereal *alphai,
         doublereal *beta,
         doublereal *csl,
         doublereal *snl,
         doublereal *csr,
         doublereal *snr);

dlahqr_ ()

int
dlahqr_ (logical *wantt,
         logical *wantz,
         integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *h__,
         integer *ldh,
         doublereal *wr,
         doublereal *wi,
         integer *iloz,
         integer *ihiz,
         doublereal *z__,
         integer *ldz,
         integer *info);

dlahrd_ ()

int
dlahrd_ (integer *n,
         integer *k,
         integer *nb,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *t,
         integer *ldt,
         doublereal *y,
         integer *ldy);

dlaic1_ ()

int
dlaic1_ (integer *job,
         integer *j,
         doublereal *x,
         doublereal *sest,
         doublereal *w,
         doublereal *gamma,
         doublereal *sestpr,
         doublereal *s,
         doublereal *c__);

dlaln2_ ()

int
dlaln2_ (logical *ltrans,
         integer *na,
         integer *nw,
         doublereal *smin,
         doublereal *ca,
         doublereal *a,
         integer *lda,
         doublereal *d1,
         doublereal *d2,
         doublereal *b,
         integer *ldb,
         doublereal *wr,
         doublereal *wi,
         doublereal *x,
         integer *ldx,
         doublereal *scale,
         doublereal *xnorm,
         integer *info);

dlals0_ ()

int
dlals0_ (integer *icompq,
         integer *nl,
         integer *nr,
         integer *sqre,
         integer *nrhs,
         doublereal *b,
         integer *ldb,
         doublereal *bx,
         integer *ldbx,
         integer *perm,
         integer *givptr,
         integer *givcol,
         integer *ldgcol,
         doublereal *givnum,
         integer *ldgnum,
         doublereal *poles,
         doublereal *difl,
         doublereal *difr,
         doublereal *z__,
         integer *k,
         doublereal *c__,
         doublereal *s,
         doublereal *work,
         integer *info);

dlalsa_ ()

int
dlalsa_ (integer *icompq,
         integer *smlsiz,
         integer *n,
         integer *nrhs,
         doublereal *b,
         integer *ldb,
         doublereal *bx,
         integer *ldbx,
         doublereal *u,
         integer *ldu,
         doublereal *vt,
         integer *k,
         doublereal *difl,
         doublereal *difr,
         doublereal *z__,
         doublereal *poles,
         integer *givptr,
         integer *givcol,
         integer *ldgcol,
         integer *perm,
         doublereal *givnum,
         doublereal *c__,
         doublereal *s,
         doublereal *work,
         integer *iwork,
         integer *info);

dlalsd_ ()

int
dlalsd_ (char *uplo,
         integer *smlsiz,
         integer *n,
         integer *nrhs,
         doublereal *d__,
         doublereal *e,
         doublereal *b,
         integer *ldb,
         doublereal *rcond,
         integer *rank,
         doublereal *work,
         integer *iwork,
         integer *info);

dlamc1_ ()

int
dlamc1_ (integer *beta,
         integer *t,
         logical *rnd,
         logical *ieee1);

dlamc2_ ()

int
dlamc2_ (integer *beta,
         integer *t,
         logical *rnd,
         doublereal *eps,
         integer *emin,
         doublereal *rmin,
         integer *emax,
         doublereal *rmax);

dlamc4_ ()

int
dlamc4_ (integer *emin,
         doublereal *start,
         integer *base);

dlamc5_ ()

int
dlamc5_ (integer *beta,
         integer *p,
         integer *emin,
         logical *ieee,
         integer *emax,
         doublereal *rmax);

dlamrg_ ()

int
dlamrg_ (integer *n1,
         integer *n2,
         doublereal *a,
         integer *dtrd1,
         integer *dtrd2,
         integer *index);

dlanv2_ ()

int
dlanv2_ (doublereal *a,
         doublereal *b,
         doublereal *c__,
         doublereal *d__,
         doublereal *rt1r,
         doublereal *rt1i,
         doublereal *rt2r,
         doublereal *rt2i,
         doublereal *cs,
         doublereal *sn);

dlapll_ ()

int
dlapll_ (integer *n,
         doublereal *x,
         integer *incx,
         doublereal *y,
         integer *incy,
         doublereal *ssmin);

dlapmt_ ()

int
dlapmt_ (logical *forwrd,
         integer *m,
         integer *n,
         doublereal *x,
         integer *ldx,
         integer *k);

dlaqgb_ ()

int
dlaqgb_ (integer *m,
         integer *n,
         integer *kl,
         integer *ku,
         doublereal *ab,
         integer *ldab,
         doublereal *r__,
         doublereal *c__,
         doublereal *rowcnd,
         doublereal *colcnd,
         doublereal *amax,
         char *equed);

dlaqge_ ()

int
dlaqge_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *r__,
         doublereal *c__,
         doublereal *rowcnd,
         doublereal *colcnd,
         doublereal *amax,
         char *equed);

dlaqp2_ ()

int
dlaqp2_ (integer *m,
         integer *n,
         integer *offset,
         doublereal *a,
         integer *lda,
         integer *jpvt,
         doublereal *tau,
         doublereal *vn1,
         doublereal *vn2,
         doublereal *work);

dlaqps_ ()

int
dlaqps_ (integer *m,
         integer *n,
         integer *offset,
         integer *nb,
         integer *kb,
         doublereal *a,
         integer *lda,
         integer *jpvt,
         doublereal *tau,
         doublereal *vn1,
         doublereal *vn2,
         doublereal *auxv,
         doublereal *f,
         integer *ldf);

dlaqsb_ ()

int
dlaqsb_ (char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         doublereal *s,
         doublereal *scond,
         doublereal *amax,
         char *equed);

dlaqsp_ ()

int
dlaqsp_ (char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *s,
         doublereal *scond,
         doublereal *amax,
         char *equed);

dlaqsy_ ()

int
dlaqsy_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *s,
         doublereal *scond,
         doublereal *amax,
         char *equed);

dlaqtr_ ()

int
dlaqtr_ (logical *ltran,
         logical *lreal,
         integer *n,
         doublereal *t,
         integer *ldt,
         doublereal *b,
         doublereal *w,
         doublereal *scale,
         doublereal *x,
         doublereal *work,
         integer *info);

dlar1v_ ()

int
dlar1v_ (integer *n,
         integer *b1,
         integer *bn,
         doublereal *sigma,
         doublereal *d__,
         doublereal *l,
         doublereal *ld,
         doublereal *lld,
         doublereal *gersch,
         doublereal *z__,
         doublereal *ztz,
         doublereal *mingma,
         integer *r__,
         integer *isuppz,
         doublereal *work);

dlar2v_ ()

int
dlar2v_ (integer *n,
         doublereal *x,
         doublereal *y,
         doublereal *z__,
         integer *incx,
         doublereal *c__,
         doublereal *s,
         integer *incc);

dlarf_ ()

int
dlarf_ (char *side,
        integer *m,
        integer *n,
        doublereal *v,
        integer *incv,
        doublereal *tau,
        doublereal *c__,
        integer *ldc,
        doublereal *work);

dlarfb_ ()

int
dlarfb_ (char *side,
         char *trans,
         char *direct,
         char *storev,
         integer *m,
         integer *n,
         integer *k,
         doublereal *v,
         integer *ldv,
         doublereal *t,
         integer *ldt,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *ldwork);

dlarfg_ ()

int
dlarfg_ (integer *n,
         doublereal *alpha,
         doublereal *x,
         integer *incx,
         doublereal *tau);

dlarft_ ()

int
dlarft_ (char *direct,
         char *storev,
         integer *n,
         integer *k,
         doublereal *v,
         integer *ldv,
         doublereal *tau,
         doublereal *t,
         integer *ldt);

dlarfx_ ()

int
dlarfx_ (char *side,
         integer *m,
         integer *n,
         doublereal *v,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work);

dlargv_ ()

int
dlargv_ (integer *n,
         doublereal *x,
         integer *incx,
         doublereal *y,
         integer *incy,
         doublereal *c__,
         integer *incc);

dlarnv_ ()

int
dlarnv_ (integer *idist,
         integer *iseed,
         integer *n,
         doublereal *x);

dlarrb_ ()

int
dlarrb_ (integer *n,
         doublereal *d__,
         doublereal *l,
         doublereal *ld,
         doublereal *lld,
         integer *ifirst,
         integer *ilast,
         doublereal *sigma,
         doublereal *reltol,
         doublereal *w,
         doublereal *wgap,
         doublereal *werr,
         doublereal *work,
         integer *iwork,
         integer *info);

dlarre_ ()

int
dlarre_ (integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *tol,
         integer *nsplit,
         integer *isplit,
         integer *m,
         doublereal *w,
         doublereal *woff,
         doublereal *gersch,
         doublereal *work,
         integer *info);

dlarrf_ ()

int
dlarrf_ (integer *n,
         doublereal *d__,
         doublereal *l,
         doublereal *ld,
         doublereal *lld,
         integer *ifirst,
         integer *ilast,
         doublereal *w,
         doublereal *dplus,
         doublereal *lplus,
         doublereal *work,
         integer *iwork,
         integer *info);

dlarrv_ ()

int
dlarrv_ (integer *n,
         doublereal *d__,
         doublereal *l,
         integer *isplit,
         integer *m,
         doublereal *w,
         integer *iblock,
         doublereal *gersch,
         doublereal *tol,
         doublereal *z__,
         integer *ldz,
         integer *isuppz,
         doublereal *work,
         integer *iwork,
         integer *info);

dlartg_ ()

int
dlartg_ (doublereal *f,
         doublereal *g,
         doublereal *cs,
         doublereal *sn,
         doublereal *r__);

dlartv_ ()

int
dlartv_ (integer *n,
         doublereal *x,
         integer *incx,
         doublereal *y,
         integer *incy,
         doublereal *c__,
         doublereal *s,
         integer *incc);

dlaruv_ ()

int
dlaruv_ (integer *iseed,
         integer *n,
         doublereal *x);

dlarz_ ()

int
dlarz_ (char *side,
        integer *m,
        integer *n,
        integer *l,
        doublereal *v,
        integer *incv,
        doublereal *tau,
        doublereal *c__,
        integer *ldc,
        doublereal *work);

dlarzb_ ()

int
dlarzb_ (char *side,
         char *trans,
         char *direct,
         char *storev,
         integer *m,
         integer *n,
         integer *k,
         integer *l,
         doublereal *v,
         integer *ldv,
         doublereal *t,
         integer *ldt,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *ldwork);

dlarzt_ ()

int
dlarzt_ (char *direct,
         char *storev,
         integer *n,
         integer *k,
         doublereal *v,
         integer *ldv,
         doublereal *tau,
         doublereal *t,
         integer *ldt);

dlas2_ ()

int
dlas2_ (doublereal *f,
        doublereal *g,
        doublereal *h__,
        doublereal *ssmin,
        doublereal *ssmax);

dlascl_ ()

int
dlascl_ (char *type__,
         integer *kl,
         integer *ku,
         doublereal *cfrom,
         doublereal *cto,
         integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *info);

dlasd0_ ()

int
dlasd0_ (integer *n,
         integer *sqre,
         doublereal *d__,
         doublereal *e,
         doublereal *u,
         integer *ldu,
         doublereal *vt,
         integer *ldvt,
         integer *smlsiz,
         integer *iwork,
         doublereal *work,
         integer *info);

dlasd1_ ()

int
dlasd1_ (integer *nl,
         integer *nr,
         integer *sqre,
         doublereal *d__,
         doublereal *alpha,
         doublereal *beta,
         doublereal *u,
         integer *ldu,
         doublereal *vt,
         integer *ldvt,
         integer *idxq,
         integer *iwork,
         doublereal *work,
         integer *info);

dlasd2_ ()

int
dlasd2_ (integer *nl,
         integer *nr,
         integer *sqre,
         integer *k,
         doublereal *d__,
         doublereal *z__,
         doublereal *alpha,
         doublereal *beta,
         doublereal *u,
         integer *ldu,
         doublereal *vt,
         integer *ldvt,
         doublereal *dsigma,
         doublereal *u2,
         integer *ldu2,
         doublereal *vt2,
         integer *ldvt2,
         integer *idxp,
         integer *idx,
         integer *idxc,
         integer *idxq,
         integer *coltyp,
         integer *info);

dlasd3_ ()

int
dlasd3_ (integer *nl,
         integer *nr,
         integer *sqre,
         integer *k,
         doublereal *d__,
         doublereal *q,
         integer *ldq,
         doublereal *dsigma,
         doublereal *u,
         integer *ldu,
         doublereal *u2,
         integer *ldu2,
         doublereal *vt,
         integer *ldvt,
         doublereal *vt2,
         integer *ldvt2,
         integer *idxc,
         integer *ctot,
         doublereal *z__,
         integer *info);

dlasd4_ ()

int
dlasd4_ (integer *n,
         integer *i__,
         doublereal *d__,
         doublereal *z__,
         doublereal *delta,
         doublereal *rho,
         doublereal *sigma,
         doublereal *work,
         integer *info);

dlasd5_ ()

int
dlasd5_ (integer *i__,
         doublereal *d__,
         doublereal *z__,
         doublereal *delta,
         doublereal *rho,
         doublereal *dsigma,
         doublereal *work);

dlasd6_ ()

int
dlasd6_ (integer *icompq,
         integer *nl,
         integer *nr,
         integer *sqre,
         doublereal *d__,
         doublereal *vf,
         doublereal *vl,
         doublereal *alpha,
         doublereal *beta,
         integer *idxq,
         integer *perm,
         integer *givptr,
         integer *givcol,
         integer *ldgcol,
         doublereal *givnum,
         integer *ldgnum,
         doublereal *poles,
         doublereal *difl,
         doublereal *difr,
         doublereal *z__,
         integer *k,
         doublereal *c__,
         doublereal *s,
         doublereal *work,
         integer *iwork,
         integer *info);

dlasd7_ ()

int
dlasd7_ (integer *icompq,
         integer *nl,
         integer *nr,
         integer *sqre,
         integer *k,
         doublereal *d__,
         doublereal *z__,
         doublereal *zw,
         doublereal *vf,
         doublereal *vfw,
         doublereal *vl,
         doublereal *vlw,
         doublereal *alpha,
         doublereal *beta,
         doublereal *dsigma,
         integer *idx,
         integer *idxp,
         integer *idxq,
         integer *perm,
         integer *givptr,
         integer *givcol,
         integer *ldgcol,
         doublereal *givnum,
         integer *ldgnum,
         doublereal *c__,
         doublereal *s,
         integer *info);

dlasd8_ ()

int
dlasd8_ (integer *icompq,
         integer *k,
         doublereal *d__,
         doublereal *z__,
         doublereal *vf,
         doublereal *vl,
         doublereal *difl,
         doublereal *difr,
         integer *lddifr,
         doublereal *dsigma,
         doublereal *work,
         integer *info);

dlasd9_ ()

int
dlasd9_ (integer *icompq,
         integer *ldu,
         integer *k,
         doublereal *d__,
         doublereal *z__,
         doublereal *vf,
         doublereal *vl,
         doublereal *difl,
         doublereal *difr,
         doublereal *dsigma,
         doublereal *work,
         integer *info);

dlasda_ ()

int
dlasda_ (integer *icompq,
         integer *smlsiz,
         integer *n,
         integer *sqre,
         doublereal *d__,
         doublereal *e,
         doublereal *u,
         integer *ldu,
         doublereal *vt,
         integer *k,
         doublereal *difl,
         doublereal *difr,
         doublereal *z__,
         doublereal *poles,
         integer *givptr,
         integer *givcol,
         integer *ldgcol,
         integer *perm,
         doublereal *givnum,
         doublereal *c__,
         doublereal *s,
         doublereal *work,
         integer *iwork,
         integer *info);

dlasdq_ ()

int
dlasdq_ (char *uplo,
         integer *sqre,
         integer *n,
         integer *ncvt,
         integer *nru,
         integer *ncc,
         doublereal *d__,
         doublereal *e,
         doublereal *vt,
         integer *ldvt,
         doublereal *u,
         integer *ldu,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

dlasdt_ ()

int
dlasdt_ (integer *n,
         integer *lvl,
         integer *nd,
         integer *inode,
         integer *ndiml,
         integer *ndimr,
         integer *msub);

dlaset_ ()

int
dlaset_ (char *uplo,
         integer *m,
         integer *n,
         doublereal *alpha,
         doublereal *beta,
         doublereal *a,
         integer *lda);

dlasq1_ ()

int
dlasq1_ (integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *work,
         integer *info);

dlasq2_ ()

int
dlasq2_ (integer *n,
         doublereal *z__,
         integer *info);

dlasq3_ ()

int
dlasq3_ (integer *i0,
         integer *n0,
         doublereal *z__,
         integer *pp,
         doublereal *dmin__,
         doublereal *sigma,
         doublereal *desig,
         doublereal *qmax,
         integer *nfail,
         integer *iter,
         integer *ndiv,
         logical *ieee);

dlasq4_ ()

int
dlasq4_ (integer *i0,
         integer *n0,
         doublereal *z__,
         integer *pp,
         integer *n0in,
         doublereal *dmin__,
         doublereal *dmin1,
         doublereal *dmin2,
         doublereal *dn,
         doublereal *dn1,
         doublereal *dn2,
         doublereal *tau,
         integer *ttype);

dlasq5_ ()

int
dlasq5_ (integer *i0,
         integer *n0,
         doublereal *z__,
         integer *pp,
         doublereal *tau,
         doublereal *dmin__,
         doublereal *dmin1,
         doublereal *dmin2,
         doublereal *dn,
         doublereal *dnm1,
         doublereal *dnm2,
         logical *ieee);

dlasq6_ ()

int
dlasq6_ (integer *i0,
         integer *n0,
         doublereal *z__,
         integer *pp,
         doublereal *dmin__,
         doublereal *dmin1,
         doublereal *dmin2,
         doublereal *dn,
         doublereal *dnm1,
         doublereal *dnm2);

dlasr_ ()

int
dlasr_ (char *side,
        char *pivot,
        char *direct,
        integer *m,
        integer *n,
        doublereal *c__,
        doublereal *s,
        doublereal *a,
        integer *lda);

dlasrt_ ()

int
dlasrt_ (char *id,
         integer *n,
         doublereal *d__,
         integer *info);

dlassq_ ()

int
dlassq_ (integer *n,
         doublereal *x,
         integer *incx,
         doublereal *scale,
         doublereal *sumsq);

dlasv2_ ()

int
dlasv2_ (doublereal *f,
         doublereal *g,
         doublereal *h__,
         doublereal *ssmin,
         doublereal *ssmax,
         doublereal *snr,
         doublereal *csr,
         doublereal *snl,
         doublereal *csl);

dlaswp_ ()

int
dlaswp_ (integer *n,
         doublereal *a,
         integer *lda,
         integer *k1,
         integer *k2,
         integer *ipiv,
         integer *incx);

dlasy2_ ()

int
dlasy2_ (logical *ltranl,
         logical *ltranr,
         integer *isgn,
         integer *n1,
         integer *n2,
         doublereal *tl,
         integer *ldtl,
         doublereal *tr,
         integer *ldtr,
         doublereal *b,
         integer *ldb,
         doublereal *scale,
         doublereal *x,
         integer *ldx,
         doublereal *xnorm,
         integer *info);

dlasyf_ ()

int
dlasyf_ (char *uplo,
         integer *n,
         integer *nb,
         integer *kb,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         doublereal *w,
         integer *ldw,
         integer *info);

dlatbs_ ()

int
dlatbs_ (char *uplo,
         char *trans,
         char *diag,
         char *normin,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         doublereal *x,
         doublereal *scale,
         doublereal *cnorm,
         integer *info);

dlatdf_ ()

int
dlatdf_ (integer *ijob,
         integer *n,
         doublereal *z__,
         integer *ldz,
         doublereal *rhs,
         doublereal *rdsum,
         doublereal *rdscal,
         integer *ipiv,
         integer *jpiv);

dlatps_ ()

int
dlatps_ (char *uplo,
         char *trans,
         char *diag,
         char *normin,
         integer *n,
         doublereal *ap,
         doublereal *x,
         doublereal *scale,
         doublereal *cnorm,
         integer *info);

dlatrd_ ()

int
dlatrd_ (char *uplo,
         integer *n,
         integer *nb,
         doublereal *a,
         integer *lda,
         doublereal *e,
         doublereal *tau,
         doublereal *w,
         integer *ldw);

dlatrs_ ()

int
dlatrs_ (char *uplo,
         char *trans,
         char *diag,
         char *normin,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *x,
         doublereal *scale,
         doublereal *cnorm,
         integer *info);

dlatrz_ ()

int
dlatrz_ (integer *m,
         integer *n,
         integer *l,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work);

dlatzm_ ()

int
dlatzm_ (char *side,
         integer *m,
         integer *n,
         doublereal *v,
         integer *incv,
         doublereal *tau,
         doublereal *c1,
         doublereal *c2,
         integer *ldc,
         doublereal *work);

dlauu2_ ()

int
dlauu2_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *info);

dlauum_ ()

int
dlauum_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *info);

dopgtr_ ()

int
dopgtr_ (char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *tau,
         doublereal *q,
         integer *ldq,
         doublereal *work,
         integer *info);

dopmtr_ ()

int
dopmtr_ (char *side,
         char *uplo,
         char *trans,
         integer *m,
         integer *n,
         doublereal *ap,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

dorg2l_ ()

int
dorg2l_ (integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dorg2r_ ()

int
dorg2r_ (integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dorgbr_ ()

int
dorgbr_ (char *vect,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dorghr_ ()

int
dorghr_ (integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dorgl2_ ()

int
dorgl2_ (integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dorglq_ ()

int
dorglq_ (integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dorgql_ ()

int
dorgql_ (integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dorgqr_ ()

int
dorgqr_ (integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dorgr2_ ()

int
dorgr2_ (integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *info);

dorgrq_ ()

int
dorgrq_ (integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dorgtr_ ()

int
dorgtr_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dorm2l_ ()

int
dorm2l_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

dorm2r_ ()

int
dorm2r_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

dormbr_ ()

int
dormbr_ (char *vect,
         char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *lwork,
         integer *info);

dormhr_ ()

int
dormhr_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *ilo,
         integer *ihi,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *lwork,
         integer *info);

dorml2_ ()

int
dorml2_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

dormlq_ ()

int
dormlq_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *lwork,
         integer *info);

dormql_ ()

int
dormql_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *lwork,
         integer *info);

dormqr_ ()

int
dormqr_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *lwork,
         integer *info);

dormr2_ ()

int
dormr2_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

dormr3_ ()

int
dormr3_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         integer *l,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *info);

dormrq_ ()

int
dormrq_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *lwork,
         integer *info);

dormrz_ ()

int
dormrz_ (char *side,
         char *trans,
         integer *m,
         integer *n,
         integer *k,
         integer *l,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *lwork,
         integer *info);

dormtr_ ()

int
dormtr_ (char *side,
         char *uplo,
         char *trans,
         integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *c__,
         integer *ldc,
         doublereal *work,
         integer *lwork,
         integer *info);

dpbcon_ ()

int
dpbcon_ (char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dpbequ_ ()

int
dpbequ_ (char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         doublereal *s,
         doublereal *scond,
         doublereal *amax,
         integer *info);

dpbrfs_ ()

int
dpbrfs_ (char *uplo,
         integer *n,
         integer *kd,
         integer *nrhs,
         doublereal *ab,
         integer *ldab,
         doublereal *afb,
         integer *ldafb,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dpbstf_ ()

int
dpbstf_ (char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         integer *info);

dpbsv_ ()

int
dpbsv_ (char *uplo,
        integer *n,
        integer *kd,
        integer *nrhs,
        doublereal *ab,
        integer *ldab,
        doublereal *b,
        integer *ldb,
        integer *info);

dpbsvx_ ()

int
dpbsvx_ (char *fact,
         char *uplo,
         integer *n,
         integer *kd,
         integer *nrhs,
         doublereal *ab,
         integer *ldab,
         doublereal *afb,
         integer *ldafb,
         char *equed,
         doublereal *s,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dpbtf2_ ()

int
dpbtf2_ (char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         integer *info);

dpbtrf_ ()

int
dpbtrf_ (char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         integer *info);

dpbtrs_ ()

int
dpbtrs_ (char *uplo,
         integer *n,
         integer *kd,
         integer *nrhs,
         doublereal *ab,
         integer *ldab,
         doublereal *b,
         integer *ldb,
         integer *info);

dpocon_ ()

int
dpocon_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dpoequ_ ()

int
dpoequ_ (integer *n,
         doublereal *a,
         integer *lda,
         doublereal *s,
         doublereal *scond,
         doublereal *amax,
         integer *info);

dporfs_ ()

int
dporfs_ (char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *af,
         integer *ldaf,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dposv_ ()

int
dposv_ (char *uplo,
        integer *n,
        integer *nrhs,
        doublereal *a,
        integer *lda,
        doublereal *b,
        integer *ldb,
        integer *info);

dposvx_ ()

int
dposvx_ (char *fact,
         char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *af,
         integer *ldaf,
         char *equed,
         doublereal *s,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dpotf2_ ()

int
dpotf2_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *info);

dpotrf_ ()

int
dpotrf_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *info);

dpotri_ ()

int
dpotri_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *info);

dpotrs_ ()

int
dpotrs_ (char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         integer *info);

dppcon_ ()

int
dppcon_ (char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dppequ_ ()

int
dppequ_ (char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *s,
         doublereal *scond,
         doublereal *amax,
         integer *info);

dpprfs_ ()

int
dpprfs_ (char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *ap,
         doublereal *afp,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dppsv_ ()

int
dppsv_ (char *uplo,
        integer *n,
        integer *nrhs,
        doublereal *ap,
        doublereal *b,
        integer *ldb,
        integer *info);

dppsvx_ ()

int
dppsvx_ (char *fact,
         char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *ap,
         doublereal *afp,
         char *equed,
         doublereal *s,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dpptrf_ ()

int
dpptrf_ (char *uplo,
         integer *n,
         doublereal *ap,
         integer *info);

dpptri_ ()

int
dpptri_ (char *uplo,
         integer *n,
         doublereal *ap,
         integer *info);

dpptrs_ ()

int
dpptrs_ (char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *ap,
         doublereal *b,
         integer *ldb,
         integer *info);

dptcon_ ()

int
dptcon_ (integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *info);

dpteqr_ ()

int
dpteqr_ (char *compz,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *info);

dptrfs_ ()

int
dptrfs_ (integer *n,
         integer *nrhs,
         doublereal *d__,
         doublereal *e,
         doublereal *df,
         doublereal *ef,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *info);

dptsv_ ()

int
dptsv_ (integer *n,
        integer *nrhs,
        doublereal *d__,
        doublereal *e,
        doublereal *b,
        integer *ldb,
        integer *info);

dptsvx_ ()

int
dptsvx_ (char *fact,
         integer *n,
         integer *nrhs,
         doublereal *d__,
         doublereal *e,
         doublereal *df,
         doublereal *ef,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *info);

dpttrf_ ()

int
dpttrf_ (integer *n,
         doublereal *d__,
         doublereal *e,
         integer *info);

dpttrs_ ()

int
dpttrs_ (integer *n,
         integer *nrhs,
         doublereal *d__,
         doublereal *e,
         doublereal *b,
         integer *ldb,
         integer *info);

dptts2_ ()

int
dptts2_ (integer *n,
         integer *nrhs,
         doublereal *d__,
         doublereal *e,
         doublereal *b,
         integer *ldb);

drscl_ ()

int
drscl_ (integer *n,
        doublereal *sa,
        doublereal *sx,
        integer *incx);

dsbev_ ()

int
dsbev_ (char *jobz,
        char *uplo,
        integer *n,
        integer *kd,
        doublereal *ab,
        integer *ldab,
        doublereal *w,
        doublereal *z__,
        integer *ldz,
        doublereal *work,
        integer *info);

dsbevd_ ()

int
dsbevd_ (char *jobz,
         char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dsbevx_ ()

int
dsbevx_ (char *jobz,
         char *range,
         char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         doublereal *q,
         integer *ldq,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *iwork,
         integer *ifail,
         integer *info);

dsbgst_ ()

int
dsbgst_ (char *vect,
         char *uplo,
         integer *n,
         integer *ka,
         integer *kb,
         doublereal *ab,
         integer *ldab,
         doublereal *bb,
         integer *ldbb,
         doublereal *x,
         integer *ldx,
         doublereal *work,
         integer *info);

dsbgv_ ()

int
dsbgv_ (char *jobz,
        char *uplo,
        integer *n,
        integer *ka,
        integer *kb,
        doublereal *ab,
        integer *ldab,
        doublereal *bb,
        integer *ldbb,
        doublereal *w,
        doublereal *z__,
        integer *ldz,
        doublereal *work,
        integer *info);

dsbgvd_ ()

int
dsbgvd_ (char *jobz,
         char *uplo,
         integer *n,
         integer *ka,
         integer *kb,
         doublereal *ab,
         integer *ldab,
         doublereal *bb,
         integer *ldbb,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dsbgvx_ ()

int
dsbgvx_ (char *jobz,
         char *range,
         char *uplo,
         integer *n,
         integer *ka,
         integer *kb,
         doublereal *ab,
         integer *ldab,
         doublereal *bb,
         integer *ldbb,
         doublereal *q,
         integer *ldq,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *iwork,
         integer *ifail,
         integer *info);

dsbtrd_ ()

int
dsbtrd_ (char *vect,
         char *uplo,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         doublereal *d__,
         doublereal *e,
         doublereal *q,
         integer *ldq,
         doublereal *work,
         integer *info);

dspcon_ ()

int
dspcon_ (char *uplo,
         integer *n,
         doublereal *ap,
         integer *ipiv,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dspev_ ()

int
dspev_ (char *jobz,
        char *uplo,
        integer *n,
        doublereal *ap,
        doublereal *w,
        doublereal *z__,
        integer *ldz,
        doublereal *work,
        integer *info);

dspevd_ ()

int
dspevd_ (char *jobz,
         char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dspevx_ ()

int
dspevx_ (char *jobz,
         char *range,
         char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *iwork,
         integer *ifail,
         integer *info);

dspgst_ ()

int
dspgst_ (integer *itype,
         char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *bp,
         integer *info);

dspgv_ ()

int
dspgv_ (integer *itype,
        char *jobz,
        char *uplo,
        integer *n,
        doublereal *ap,
        doublereal *bp,
        doublereal *w,
        doublereal *z__,
        integer *ldz,
        doublereal *work,
        integer *info);

dspgvd_ ()

int
dspgvd_ (integer *itype,
         char *jobz,
         char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *bp,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dspgvx_ ()

int
dspgvx_ (integer *itype,
         char *jobz,
         char *range,
         char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *bp,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *iwork,
         integer *ifail,
         integer *info);

dsprfs_ ()

int
dsprfs_ (char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *ap,
         doublereal *afp,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dspsv_ ()

int
dspsv_ (char *uplo,
        integer *n,
        integer *nrhs,
        doublereal *ap,
        integer *ipiv,
        doublereal *b,
        integer *ldb,
        integer *info);

dspsvx_ ()

int
dspsvx_ (char *fact,
         char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *ap,
         doublereal *afp,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dsptrd_ ()

int
dsptrd_ (char *uplo,
         integer *n,
         doublereal *ap,
         doublereal *d__,
         doublereal *e,
         doublereal *tau,
         integer *info);

dsptrf_ ()

int
dsptrf_ (char *uplo,
         integer *n,
         doublereal *ap,
         integer *ipiv,
         integer *info);

dsptri_ ()

int
dsptri_ (char *uplo,
         integer *n,
         doublereal *ap,
         integer *ipiv,
         doublereal *work,
         integer *info);

dsptrs_ ()

int
dsptrs_ (char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *ap,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         integer *info);

dstebz_ ()

int
dstebz_ (char *range,
         char *order,
         integer *n,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         doublereal *d__,
         doublereal *e,
         integer *m,
         integer *nsplit,
         doublereal *w,
         integer *iblock,
         integer *isplit,
         doublereal *work,
         integer *iwork,
         integer *info);

dstedc_ ()

int
dstedc_ (char *compz,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dstegr_ ()

int
dstegr_ (char *jobz,
         char *range,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         integer *isuppz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dstein_ ()

int
dstein_ (integer *n,
         doublereal *d__,
         doublereal *e,
         integer *m,
         doublereal *w,
         integer *iblock,
         integer *isplit,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *iwork,
         integer *ifail,
         integer *info);

dsteqr_ ()

int
dsteqr_ (char *compz,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *info);

dsterf_ ()

int
dsterf_ (integer *n,
         doublereal *d__,
         doublereal *e,
         integer *info);

dstev_ ()

int
dstev_ (char *jobz,
        integer *n,
        doublereal *d__,
        doublereal *e,
        doublereal *z__,
        integer *ldz,
        doublereal *work,
        integer *info);

dstevd_ ()

int
dstevd_ (char *jobz,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dstevr_ ()

int
dstevr_ (char *jobz,
         char *range,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         integer *isuppz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dstevx_ ()

int
dstevx_ (char *jobz,
         char *range,
         integer *n,
         doublereal *d__,
         doublereal *e,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *iwork,
         integer *ifail,
         integer *info);

dsycon_ ()

int
dsycon_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         doublereal *anorm,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dsyev_ ()

int
dsyev_ (char *jobz,
        char *uplo,
        integer *n,
        doublereal *a,
        integer *lda,
        doublereal *w,
        doublereal *work,
        integer *lwork,
        integer *info);

dsyevd_ ()

int
dsyevd_ (char *jobz,
         char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *w,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dsyevr_ ()

int
dsyevr_ (char *jobz,
         char *range,
         char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         integer *isuppz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dsyevx_ ()

int
dsyevx_ (char *jobz,
         char *range,
         char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *ifail,
         integer *info);

dsygs2_ ()

int
dsygs2_ (integer *itype,
         char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         integer *info);

dsygst_ ()

int
dsygst_ (integer *itype,
         char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         integer *info);

dsygv_ ()

int
dsygv_ (integer *itype,
        char *jobz,
        char *uplo,
        integer *n,
        doublereal *a,
        integer *lda,
        doublereal *b,
        integer *ldb,
        doublereal *w,
        doublereal *work,
        integer *lwork,
        integer *info);

dsygvd_ ()

int
dsygvd_ (integer *itype,
         char *jobz,
         char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *w,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dsygvx_ ()

int
dsygvx_ (integer *itype,
         char *jobz,
         char *range,
         char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *vl,
         doublereal *vu,
         integer *il,
         integer *iu,
         doublereal *abstol,
         integer *m,
         doublereal *w,
         doublereal *z__,
         integer *ldz,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *ifail,
         integer *info);

dsyrfs_ ()

int
dsyrfs_ (char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *af,
         integer *ldaf,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dsysv_ ()

int
dsysv_ (char *uplo,
        integer *n,
        integer *nrhs,
        doublereal *a,
        integer *lda,
        integer *ipiv,
        doublereal *b,
        integer *ldb,
        doublereal *work,
        integer *lwork,
        integer *info);

dsysvx_ ()

int
dsysvx_ (char *fact,
         char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *af,
         integer *ldaf,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *rcond,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *info);

dsytd2_ ()

int
dsytd2_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *d__,
         doublereal *e,
         doublereal *tau,
         integer *info);

dsytf2_ ()

int
dsytf2_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         integer *info);

dsytrd_ ()

int
dsytrd_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *d__,
         doublereal *e,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dsytrf_ ()

int
dsytrf_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         doublereal *work,
         integer *lwork,
         integer *info);

dsytri_ ()

int
dsytri_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         doublereal *work,
         integer *info);

dsytrs_ ()

int
dsytrs_ (char *uplo,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         integer *ipiv,
         doublereal *b,
         integer *ldb,
         integer *info);

dtbcon_ ()

int
dtbcon_ (char *norm,
         char *uplo,
         char *diag,
         integer *n,
         integer *kd,
         doublereal *ab,
         integer *ldab,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dtbrfs_ ()

int
dtbrfs_ (char *uplo,
         char *trans,
         char *diag,
         integer *n,
         integer *kd,
         integer *nrhs,
         doublereal *ab,
         integer *ldab,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dtbtrs_ ()

int
dtbtrs_ (char *uplo,
         char *trans,
         char *diag,
         integer *n,
         integer *kd,
         integer *nrhs,
         doublereal *ab,
         integer *ldab,
         doublereal *b,
         integer *ldb,
         integer *info);

dtgevc_ ()

int
dtgevc_ (char *side,
         char *howmny,
         logical *select,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *vl,
         integer *ldvl,
         doublereal *vr,
         integer *ldvr,
         integer *mm,
         integer *m,
         doublereal *work,
         integer *info);

dtgex2_ ()

int
dtgex2_ (logical *wantq,
         logical *wantz,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *q,
         integer *ldq,
         doublereal *z__,
         integer *ldz,
         integer *j1,
         integer *n1,
         integer *n2,
         doublereal *work,
         integer *lwork,
         integer *info);

dtgexc_ ()

int
dtgexc_ (logical *wantq,
         logical *wantz,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *q,
         integer *ldq,
         doublereal *z__,
         integer *ldz,
         integer *ifst,
         integer *ilst,
         doublereal *work,
         integer *lwork,
         integer *info);

dtgsen_ ()

int
dtgsen_ (integer *ijob,
         logical *wantq,
         logical *wantz,
         logical *select,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *alphar,
         doublereal *alphai,
         doublereal *beta,
         doublereal *q,
         integer *ldq,
         doublereal *z__,
         integer *ldz,
         integer *m,
         doublereal *pl,
         doublereal *pr,
         doublereal *dif,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dtgsja_ ()

int
dtgsja_ (char *jobu,
         char *jobv,
         char *jobq,
         integer *m,
         integer *p,
         integer *n,
         integer *k,
         integer *l,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *tola,
         doublereal *tolb,
         doublereal *alpha,
         doublereal *beta,
         doublereal *u,
         integer *ldu,
         doublereal *v,
         integer *ldv,
         doublereal *q,
         integer *ldq,
         doublereal *work,
         integer *ncycle,
         integer *info);

dtgsna_ ()

int
dtgsna_ (char *job,
         char *howmny,
         logical *select,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *vl,
         integer *ldvl,
         doublereal *vr,
         integer *ldvr,
         doublereal *s,
         doublereal *dif,
         integer *mm,
         integer *m,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *info);

dtgsy2_ ()

int
dtgsy2_ (char *trans,
         integer *ijob,
         integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *c__,
         integer *ldc,
         doublereal *d__,
         integer *ldd,
         doublereal *e,
         integer *lde,
         doublereal *f,
         integer *ldf,
         doublereal *scale,
         doublereal *rdsum,
         doublereal *rdscal,
         integer *iwork,
         integer *pq,
         integer *info);

dtgsyl_ ()

int
dtgsyl_ (char *trans,
         integer *ijob,
         integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *c__,
         integer *ldc,
         doublereal *d__,
         integer *ldd,
         doublereal *e,
         integer *lde,
         doublereal *f,
         integer *ldf,
         doublereal *scale,
         doublereal *dif,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *info);

dtpcon_ ()

int
dtpcon_ (char *norm,
         char *uplo,
         char *diag,
         integer *n,
         doublereal *ap,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dtprfs_ ()

int
dtprfs_ (char *uplo,
         char *trans,
         char *diag,
         integer *n,
         integer *nrhs,
         doublereal *ap,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dtptri_ ()

int
dtptri_ (char *uplo,
         char *diag,
         integer *n,
         doublereal *ap,
         integer *info);

dtptrs_ ()

int
dtptrs_ (char *uplo,
         char *trans,
         char *diag,
         integer *n,
         integer *nrhs,
         doublereal *ap,
         doublereal *b,
         integer *ldb,
         integer *info);

dtrcon_ ()

int
dtrcon_ (char *norm,
         char *uplo,
         char *diag,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *rcond,
         doublereal *work,
         integer *iwork,
         integer *info);

dtrevc_ ()

int
dtrevc_ (char *side,
         char *howmny,
         logical *select,
         integer *n,
         doublereal *t,
         integer *ldt,
         doublereal *vl,
         integer *ldvl,
         doublereal *vr,
         integer *ldvr,
         integer *mm,
         integer *m,
         doublereal *work,
         integer *info);

dtrexc_ ()

int
dtrexc_ (char *compq,
         integer *n,
         doublereal *t,
         integer *ldt,
         doublereal *q,
         integer *ldq,
         integer *ifst,
         integer *ilst,
         doublereal *work,
         integer *info);

dtrrfs_ ()

int
dtrrfs_ (char *uplo,
         char *trans,
         char *diag,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *x,
         integer *ldx,
         doublereal *ferr,
         doublereal *berr,
         doublereal *work,
         integer *iwork,
         integer *info);

dtrsen_ ()

int
dtrsen_ (char *job,
         char *compq,
         logical *select,
         integer *n,
         doublereal *t,
         integer *ldt,
         doublereal *q,
         integer *ldq,
         doublereal *wr,
         doublereal *wi,
         integer *m,
         doublereal *s,
         doublereal *sep,
         doublereal *work,
         integer *lwork,
         integer *iwork,
         integer *liwork,
         integer *info);

dtrsna_ ()

int
dtrsna_ (char *job,
         char *howmny,
         logical *select,
         integer *n,
         doublereal *t,
         integer *ldt,
         doublereal *vl,
         integer *ldvl,
         doublereal *vr,
         integer *ldvr,
         doublereal *s,
         doublereal *sep,
         integer *mm,
         integer *m,
         doublereal *work,
         integer *ldwork,
         integer *iwork,
         integer *info);

dtrsyl_ ()

int
dtrsyl_ (char *trana,
         char *tranb,
         integer *isgn,
         integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         doublereal *c__,
         integer *ldc,
         doublereal *scale,
         integer *info);

dtrti2_ ()

int
dtrti2_ (char *uplo,
         char *diag,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *info);

dtrtri_ ()

int
dtrtri_ (char *uplo,
         char *diag,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *info);

dtrtrs_ ()

int
dtrtrs_ (char *uplo,
         char *trans,
         char *diag,
         integer *n,
         integer *nrhs,
         doublereal *a,
         integer *lda,
         doublereal *b,
         integer *ldb,
         integer *info);

dtzrqf_ ()

int
dtzrqf_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         integer *info);

dtzrzf_ ()

int
dtzrzf_ (integer *m,
         integer *n,
         doublereal *a,
         integer *lda,
         doublereal *tau,
         doublereal *work,
         integer *lwork,
         integer *info);

dpstrf_ ()

int
dpstrf_ (char *uplo,
         integer *n,
         doublereal *a,
         integer *lda,
         integer *piv,
         integer *rank,
         double *tol,
         double *work,
         integer *info);

icmax1_ ()

integer
icmax1_ (integer *n,
         complex *cx,
         integer *incx);

ieeeck_ ()

integer
ieeeck_ (integer *ispec,
         real *zero,
         real *one);

ilaenv_ ()

integer
ilaenv_ (integer *ispec,
         char *name__,
         char *opts,
         integer *n1,
         integer *n2,
         integer *n3,
         integer *n4,
         ftnlen name_len,
         ftnlen opts_len);

izmax1_ ()

integer
izmax1_ (integer *n,
         doublecomplex *cx,
         integer *incx);

dgemm_ ()

void
dgemm_ (const char *TRANSA,
        const char *TRANSB,
        const integer *M,
        const integer *N,
        const integer *K,
        const double *ALPHA,
        const double *A,
        const integer *LDA,
        const double *B,
        const integer *LDB,
        const double *BETA,
        double *C,
        const integer *LDC);

dsyrk_ ()

void
dsyrk_ (const char *UPLO,
        const char *TRANS,
        const integer *N,
        const integer *K,
        const double *ALPHA,
        const double *A,
        const integer *LDA,
        const double *BETA,
        double *C,
        const integer *LDC);

dnrm2_ ()

double
dnrm2_ (const integer *n,
        double *X,
        const integer *incx);

daxpy_ ()

void
daxpy_ (integer *n,
        double *da,
        double *dx,
        integer *incx,
        double *dy,
        integer *incy);

ddot_ ()

double
ddot_ (integer *n,
       double *dx,
       integer *incx,
       double *dy,
       integer *incy);

dscal_ ()

void
dscal_ (integer *n,
        double *da,
        double *dx,
        integer *incx);

dcopy_ ()

void
dcopy_ (integer *n,
        double *dx,
        integer *incx,
        double *dy,
        integer *incy);

dlamch_ ()

double
dlamch_ (char *cmach);

dgejsv_ ()

void
dgejsv_ (const char *joba,
         const char *jobu,
         const char *jobv,
         const char *jobr,
         const char *jobt,
         const char *jobp,
         integer *m,
         integer *n,
         double *a,
         integer *lda,
         double *sva,
         double *u,
         integer *ldu,
         double *vv,
         integer *ldv,
         double *work,
         integer *lwork,
         integer *iwork,
         integer *info);