Functions
int	cbdsqr_ (char uplo, integer n, integer ncvt, integer nru, integer ncc, real d__, real e, complex vt, integer ldvt, complex u, integer ldu, complex c__, integer ldc, real rwork, integer *info)

int	cgbbrd_ (char vect, integer m, integer n, integer ncc, integer kl, integer ku, complex ab, integer ldab, real d__, real e, complex q, integer ldq, complex pt, integer ldpt, complex c__, integer ldc, complex work, real rwork, integer *info)

int	cgbcon_ (char norm, integer n, integer kl, integer ku, complex ab, integer ldab, integer ipiv, real anorm, real rcond, complex work, real rwork, integer info)

int	cgbequ_ (integer m, integer n, integer kl, integer ku, complex ab, integer ldab, real r__, real c__, real rowcnd, real colcnd, real amax, integer info)

int	cgbrfs_ (char trans, integer n, integer kl, integer ku, integer nrhs, complex ab, integer ldab, complex afb, integer ldafb, integer ipiv, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	cgbsv_ (integer n, integer kl, integer ku, integer nrhs, complex ab, integer ldab, integer ipiv, complex b, integer ldb, integer info)

int	cgbsvx_ (char fact, char trans, integer n, integer kl, integer ku, integer nrhs, complex ab, integer ldab, complex afb, integer ldafb, integer ipiv, char equed, real r__, real c__, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer info)

int	cgbtf2_ (integer m, integer n, integer kl, integer ku, complex ab, integer ldab, integer ipiv, integer info)

int	cgbtrf_ (integer m, integer n, integer kl, integer ku, complex ab, integer ldab, integer ipiv, integer info)

int	cgbtrs_ (char trans, integer n, integer kl, integer ku, integer nrhs, complex ab, integer ldab, integer ipiv, complex b, integer ldb, integer *info)

int	cgebak_ (char job, char side, integer n, integer ilo, integer ihi, real scale, integer m, complex v, integer ldv, integer info)

int	cgebal_ (char job, integer n, complex a, integer lda, integer ilo, integer ihi, real scale, integer info)

int	cgebd2_ (integer m, integer n, complex a, integer lda, real d__, real e, complex tauq, complex taup, complex work, integer info)

int	cgebrd_ (integer m, integer n, complex a, integer lda, real d__, real e, complex tauq, complex taup, complex work, integer lwork, integer *info)

int	cgecon_ (char norm, integer n, complex a, integer lda, real anorm, real rcond, complex work, real rwork, integer *info)

int	cgeequ_ (integer m, integer n, complex a, integer lda, real r__, real c__, real rowcnd, real colcnd, real amax, integer info)

int	cgees_ (char jobvs, char sort, L_fp select, integer n, complex a, integer lda, integer sdim, complex w, complex vs, integer ldvs, complex work, integer lwork, real rwork, logical bwork, integer info)

int	cgeesx_ (char jobvs, char sort, L_fp select, char sense, integer n, complex a, integer lda, integer sdim, complex w, complex vs, integer ldvs, real rconde, real rcondv, complex work, integer lwork, real rwork, logical bwork, integer *info)

int	cgeev_ (char jobvl, char jobvr, integer n, complex a, integer lda, complex w, complex vl, integer ldvl, complex vr, integer ldvr, complex work, integer lwork, real rwork, integer info)

int	cgeevx_ (char balanc, char jobvl, char jobvr, char sense, integer n, complex a, integer lda, complex w, complex vl, integer ldvl, complex vr, integer ldvr, integer ilo, integer ihi, real scale, real abnrm, real rconde, real rcondv, complex work, integer lwork, real rwork, integer info)

int	cgegs_ (char jobvsl, char jobvsr, integer n, complex a, integer lda, complex b, integer ldb, complex alpha, complex beta, complex vsl, integer ldvsl, complex vsr, integer ldvsr, complex work, integer lwork, real rwork, integer *info)

int	cgegv_ (char jobvl, char jobvr, integer n, complex a, integer lda, complex b, integer ldb, complex alpha, complex beta, complex vl, integer ldvl, complex vr, integer ldvr, complex work, integer lwork, real rwork, integer *info)

int	cgehd2_ (integer n, integer ilo, integer ihi, complex a, integer lda, complex tau, complex work, integer info)

int	cgehrd_ (integer n, integer ilo, integer ihi, complex a, integer lda, complex tau, complex work, integer lwork, integer *info)

int	cgelq2_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer *info)

int	cgelqf_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer lwork, integer info)

int	cgels_ (char trans, integer m, integer n, integer nrhs, complex a, integer lda, complex b, integer ldb, complex work, integer lwork, integer *info)

int	cgelsx_ (integer m, integer n, integer nrhs, complex a, integer lda, complex b, integer ldb, integer jpvt, real rcond, integer rank, complex work, real rwork, integer *info)

int	cgelsy_ (integer m, integer n, integer nrhs, complex a, integer lda, complex b, integer ldb, integer jpvt, real rcond, integer rank, complex work, integer lwork, real rwork, integer info)

int	cgeql2_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer *info)

int	cgeqlf_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer lwork, integer info)

int	cgeqp3_ (integer m, integer n, complex a, integer lda, integer jpvt, complex tau, complex work, integer lwork, real rwork, integer info)

int	cgeqpf_ (integer m, integer n, complex a, integer lda, integer jpvt, complex tau, complex work, real rwork, integer *info)

int	cgeqr2_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer *info)

int	cgeqrf_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer lwork, integer info)

int	cgerfs_ (char trans, integer n, integer nrhs, complex a, integer lda, complex af, integer ldaf, integer ipiv, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	cgerq2_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer *info)

int	cgerqf_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer lwork, integer info)

int	cgesc2_ (integer n, complex a, integer lda, complex rhs, integer ipiv, integer jpiv, real *scale)

int	cgesv_ (integer n, integer nrhs, complex a, integer lda, integer ipiv, complex b, integer ldb, integer info)

int	cgesvx_ (char fact, char trans, integer n, integer nrhs, complex a, integer lda, complex af, integer ldaf, integer ipiv, char equed, real r__, real c__, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer info)

int	cgetc2_ (integer n, complex a, integer lda, integer ipiv, integer jpiv, integer info)

int	cgetf2_ (integer m, integer n, complex a, integer lda, integer ipiv, integer info)

int	cgetrf_ (integer m, integer n, complex a, integer lda, integer ipiv, integer info)

int	cgetri_ (integer n, complex a, integer lda, integer ipiv, complex work, integer lwork, integer *info)

int	cgetrs_ (char trans, integer n, integer nrhs, complex a, integer lda, integer ipiv, complex b, integer ldb, integer *info)

int	cggbak_ (char job, char side, integer n, integer ilo, integer ihi, real lscale, real rscale, integer m, complex v, integer ldv, integer *info)

int	cggbal_ (char job, integer n, complex a, integer lda, complex b, integer ldb, integer ilo, integer ihi, real lscale, real rscale, real work, integer info)

int	cgges_ (char jobvsl, char jobvsr, char sort, L_fp selctg, integer n, complex a, integer lda, complex b, integer ldb, integer sdim, complex alpha, complex beta, complex vsl, integer ldvsl, complex vsr, integer ldvsr, complex work, integer lwork, real rwork, logical bwork, integer info)

int	cggesx_ (char jobvsl, char jobvsr, char sort, L_fp selctg, char sense, integer n, complex a, integer lda, complex b, integer ldb, integer sdim, complex alpha, complex beta, complex vsl, integer ldvsl, complex vsr, integer ldvsr, real rconde, real rcondv, complex work, integer lwork, real rwork, integer iwork, integer liwork, logical bwork, integer *info)

int	cggev_ (char jobvl, char jobvr, integer n, complex a, integer lda, complex b, integer ldb, complex alpha, complex beta, complex vl, integer ldvl, complex vr, integer ldvr, complex work, integer lwork, real rwork, integer *info)

int	cggevx_ (char balanc, char jobvl, char jobvr, char sense, integer n, complex a, integer lda, complex b, integer ldb, complex alpha, complex beta, complex vl, integer ldvl, complex vr, integer ldvr, integer ilo, integer ihi, real lscale, real rscale, real abnrm, real bbnrm, real rconde, real rcondv, complex work, integer lwork, real rwork, integer iwork, logical bwork, integer *info)

int	cggglm_ (integer n, integer m, integer p, complex a, integer lda, complex b, integer ldb, complex d__, complex x, complex y, complex work, integer lwork, integer *info)

int	cgghrd_ (char compq, char compz, integer n, integer ilo, integer ihi, complex a, integer lda, complex b, integer ldb, complex q, integer ldq, complex z__, integer ldz, integer info)

int	cgglse_ (integer m, integer n, integer p, complex a, integer lda, complex b, integer ldb, complex c__, complex d__, complex x, complex work, integer lwork, integer *info)

int	cggqrf_ (integer n, integer m, integer p, complex a, integer lda, complex taua, complex b, integer ldb, complex taub, complex work, integer lwork, integer info)

int	cggrqf_ (integer m, integer p, integer n, complex a, integer lda, complex taua, complex b, integer ldb, complex taub, complex work, integer lwork, integer info)

int	cggsvd_ (char jobu, char jobv, char jobq, integer m, integer n, integer p, integer k, integer l, complex a, integer lda, complex b, integer ldb, real alpha, real beta, complex u, integer ldu, complex v, integer ldv, complex q, integer ldq, complex work, real rwork, integer iwork, integer info)

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

int	cgtcon_ (char norm, integer n, complex dl, complex d__, complex du, complex du2, integer ipiv, real anorm, real rcond, complex work, integer *info)

int	cgtrfs_ (char trans, integer n, integer nrhs, complex dl, complex d__, complex du, complex dlf, complex df, complex duf, complex du2, integer ipiv, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer info)

int	cgtsv_ (integer n, integer nrhs, complex dl, complex d__, complex du, complex b, integer ldb, integer info)

int	cgtsvx_ (char fact, char trans, integer n, integer nrhs, complex dl, complex d__, complex du, complex dlf, complex df, complex duf, complex du2, integer ipiv, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer info)

int	cgttrf_ (integer n, complex dl, complex d__, complex du, complex du2, integer ipiv, integer *info)

int	cgttrs_ (char trans, integer n, integer nrhs, complex dl, complex d__, complex du, complex du2, integer ipiv, complex b, integer ldb, integer *info)

int	cgtts2_ (integer itrans, integer n, integer nrhs, complex dl, complex d__, complex du, complex du2, integer ipiv, complex b, integer ldb)

int	chbev_ (char jobz, char uplo, integer n, integer kd, complex ab, integer ldab, real w, complex z__, integer ldz, complex work, real rwork, integer info)

int	chbevd_ (char jobz, char uplo, integer n, integer kd, complex ab, integer ldab, real w, complex z__, integer ldz, complex work, integer lwork, real rwork, integer lrwork, integer iwork, integer liwork, integer info)

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

int	chbgst_ (char vect, char uplo, integer n, integer ka, integer kb, complex ab, integer ldab, complex bb, integer ldbb, complex x, integer ldx, complex work, real rwork, integer info)

int	chbgv_ (char jobz, char uplo, integer n, integer ka, integer kb, complex ab, integer ldab, complex bb, integer ldbb, real w, complex z__, integer ldz, complex work, real rwork, integer *info)

int	chbgvx_ (char jobz, char range, char uplo, integer n, integer ka, integer kb, complex ab, integer ldab, complex bb, integer ldbb, complex q, integer ldq, real vl, real vu, integer il, integer iu, real abstol, integer m, real w, complex z__, integer ldz, complex work, real rwork, integer iwork, integer ifail, integer info)

int	chbtrd_ (char vect, char uplo, integer n, integer kd, complex ab, integer ldab, real d__, real e, complex q, integer ldq, complex work, integer info)

int	checon_ (char uplo, integer n, complex a, integer lda, integer ipiv, real anorm, real rcond, complex work, integer *info)

int	cheev_ (char jobz, char uplo, integer n, complex a, integer lda, real w, complex work, integer lwork, real rwork, integer info)

int	cheevd_ (char jobz, char uplo, integer n, complex a, integer lda, real w, complex work, integer lwork, real rwork, integer lrwork, integer iwork, integer liwork, integer *info)

int	cheevr_ (char jobz, char range, char uplo, integer n, complex a, integer lda, real vl, real vu, integer il, integer iu, real abstol, integer m, real w, complex z__, integer ldz, integer isuppz, complex work, integer lwork, real rwork, integer lrwork, integer iwork, integer liwork, integer *info)

int	cheevx_ (char jobz, char range, char uplo, integer n, complex a, integer lda, real vl, real vu, integer il, integer iu, real abstol, integer m, real w, complex z__, integer ldz, complex work, integer lwork, real rwork, integer iwork, integer ifail, integer *info)

int	chegs2_ (integer itype, char uplo, integer n, complex a, integer lda, complex b, integer ldb, integer info)

int	chegst_ (integer itype, char uplo, integer n, complex a, integer lda, complex b, integer ldb, integer info)

int	chegv_ (integer itype, char jobz, char uplo, integer n, complex a, integer lda, complex b, integer ldb, real w, complex work, integer lwork, real rwork, integer *info)

int	chegvd_ (integer itype, char jobz, char uplo, integer n, complex a, integer lda, complex b, integer ldb, real w, complex work, integer lwork, real rwork, integer lrwork, integer iwork, integer liwork, integer info)

int	chegvx_ (integer itype, char jobz, char range, char uplo, integer n, complex a, integer lda, complex b, integer ldb, real vl, real vu, integer il, integer iu, real abstol, integer m, real w, complex z__, integer ldz, complex work, integer lwork, real rwork, integer iwork, integer ifail, integer info)

int	cherfs_ (char uplo, integer n, integer nrhs, complex a, integer lda, complex af, integer ldaf, integer ipiv, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	chesv_ (char uplo, integer n, integer nrhs, complex a, integer lda, integer ipiv, complex b, integer ldb, complex work, integer lwork, integer *info)

int	chesvx_ (char fact, char uplo, integer n, integer nrhs, complex a, integer lda, complex af, integer ldaf, integer ipiv, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, integer lwork, real rwork, integer info)

int	chetf2_ (char uplo, integer n, complex a, integer lda, integer ipiv, integer info)

int	chetrd_ (char uplo, integer n, complex a, integer lda, real d__, real e, complex tau, complex work, integer lwork, integer info)

int	chetrf_ (char uplo, integer n, complex a, integer lda, integer ipiv, complex work, integer lwork, integer info)

int	chetri_ (char uplo, integer n, complex a, integer lda, integer ipiv, complex work, integer *info)

int	chetrs_ (char uplo, integer n, integer nrhs, complex a, integer lda, integer ipiv, complex b, integer ldb, integer *info)

int	chgeqz_ (char job, char compq, char compz, integer n, integer ilo, integer ihi, complex a, integer lda, complex b, integer ldb, complex alpha, complex beta, complex q, integer ldq, complex z__, integer ldz, complex work, integer lwork, real rwork, integer info)

int	chpcon_ (char uplo, integer n, complex ap, integer ipiv, real anorm, real rcond, complex work, integer info)

int	chpev_ (char jobz, char uplo, integer n, complex ap, real w, complex z__, integer ldz, complex work, real rwork, integer info)

int	chpevd_ (char jobz, char uplo, integer n, complex ap, real w, complex z__, integer ldz, complex work, integer lwork, real rwork, integer lrwork, integer iwork, integer liwork, integer info)

int	chpevx_ (char jobz, char range, char uplo, integer n, complex ap, real vl, real vu, integer il, integer iu, real abstol, integer m, real w, complex z__, integer ldz, complex work, real rwork, integer iwork, integer ifail, integer *info)

int	chpgst_ (integer itype, char uplo, integer n, complex ap, complex bp, integer info)

int	chpgv_ (integer itype, char jobz, char uplo, integer n, complex ap, complex bp, real w, complex z__, integer ldz, complex work, real rwork, integer info)

int	chpgvd_ (integer itype, char jobz, char uplo, integer n, complex ap, complex bp, real w, complex z__, integer ldz, complex work, integer lwork, real rwork, integer lrwork, integer iwork, integer liwork, integer info)

int	chpgvx_ (integer itype, char jobz, char range, char uplo, integer n, complex ap, complex bp, real vl, real vu, integer il, integer iu, real abstol, integer m, real w, complex z__, integer ldz, complex work, real rwork, integer iwork, integer ifail, integer *info)

int	chprfs_ (char uplo, integer n, integer nrhs, complex ap, complex afp, integer ipiv, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	chpsv_ (char uplo, integer n, integer nrhs, complex ap, integer ipiv, complex b, integer ldb, integer info)

int	chpsvx_ (char fact, char uplo, integer n, integer nrhs, complex ap, complex afp, integer ipiv, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer *info)

int	chptrd_ (char uplo, integer n, complex ap, real d__, real e, complex tau, integer *info)

int	chptrf_ (char uplo, integer n, complex ap, integer ipiv, integer *info)

int	chptri_ (char uplo, integer n, complex ap, integer ipiv, complex work, integer info)

int	chptrs_ (char uplo, integer n, integer nrhs, complex ap, integer ipiv, complex b, integer ldb, integer info)

int	chsein_ (char side, char eigsrc, char initv, logical select, integer n, complex h__, integer ldh, complex w, complex vl, integer ldvl, complex vr, integer ldvr, integer mm, integer m, complex work, real rwork, integer ifaill, integer ifailr, integer *info)

int	chseqr_ (char job, char compz, integer n, integer ilo, integer ihi, complex h__, integer ldh, complex w, complex z__, integer ldz, complex work, integer lwork, integer *info)

int	clabrd_ (integer m, integer n, integer nb, complex a, integer lda, real d__, real e, complex tauq, complex taup, complex x, integer ldx, complex y, integer *ldy)

int	clacgv_ (integer n, complex x, integer *incx)

int	clacon_ (integer n, complex v, complex x, real est, integer *kase)

int	clacp2_ (char uplo, integer m, integer n, real a, integer lda, complex b, integer *ldb)

int	clacpy_ (char uplo, integer m, integer n, complex a, integer lda, complex b, integer *ldb)

int	clacrm_ (integer m, integer n, complex a, integer lda, real b, integer ldb, complex c__, integer ldc, real *rwork)

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

int	claed0_ (integer qsiz, integer n, real d__, real e, complex q, integer ldq, complex qstore, integer ldqs, real rwork, integer iwork, integer *info)

int	claed7_ (integer n, integer cutpnt, integer qsiz, integer tlvls, integer curlvl, integer curpbm, real d__, complex q, integer ldq, real rho, integer indxq, real qstore, integer qptr, integer prmptr, integer perm, integer givptr, integer givcol, real givnum, complex work, real rwork, integer iwork, integer info)

int	claed8_ (integer k, integer n, integer qsiz, complex q, integer ldq, real d__, real rho, integer cutpnt, real z__, real dlamda, complex q2, integer ldq2, real w, integer indxp, integer indx, integer indxq, integer perm, integer givptr, integer givcol, real givnum, integer *info)

int	claein_ (logical rightv, logical noinit, integer n, complex h__, integer ldh, complex w, complex v, complex b, integer ldb, real rwork, real eps3, real smlnum, integer *info)

int	claesy_ (complex a, complex b, complex c__, complex rt1, complex rt2, complex evscal, complex cs1, complex sn1)

int	claev2_ (complex a, complex b, complex c__, real rt1, real rt2, real cs1, complex *sn1)

int	clags2_ (logical upper, real a1, complex a2, real a3, real b1, complex b2, real b3, real csu, complex snu, real csv, complex snv, real csq, complex *snq)

int	clagtm_ (char trans, integer n, integer nrhs, real alpha, complex dl, complex d__, complex du, complex x, integer ldx, real beta, complex b, integer ldb)

int	clahef_ (char uplo, integer n, integer nb, integer kb, complex a, integer lda, integer ipiv, complex w, integer ldw, integer info)

int	clahqr_ (logical wantt, logical wantz, integer n, integer ilo, integer ihi, complex h__, integer ldh, complex w, integer iloz, integer ihiz, complex z__, integer ldz, integer *info)

int	clahrd_ (integer n, integer k, integer nb, complex a, integer lda, complex tau, complex t, integer ldt, complex y, integer ldy)

int	claic1_ (integer job, integer j, complex x, real sest, complex w, complex gamma, real sestpr, complex s, complex *c__)

int	clals0_ (integer icompq, integer nl, integer nr, integer sqre, integer nrhs, complex b, integer ldb, complex bx, integer ldbx, integer perm, integer givptr, integer givcol, integer ldgcol, real givnum, integer ldgnum, real poles, real difl, real difr, real z__, integer k, real c__, real s, real rwork, integer info)

int	clalsa_ (integer icompq, integer smlsiz, integer n, integer nrhs, complex b, integer ldb, complex bx, integer ldbx, real u, integer ldu, real vt, integer k, real difl, real difr, real z__, real poles, integer givptr, integer givcol, integer ldgcol, integer perm, real givnum, real c__, real s, real rwork, integer iwork, integer info)

int	clapll_ (integer n, complex x, integer incx, complex y, integer incy, real ssmin)

int	clapmt_ (logical forwrd, integer m, integer n, complex x, integer ldx, integer k)

int	claqgb_ (integer m, integer n, integer kl, integer ku, complex ab, integer ldab, real r__, real c__, real rowcnd, real colcnd, real amax, char equed)

int	claqge_ (integer m, integer n, complex a, integer lda, real r__, real c__, real rowcnd, real colcnd, real amax, char equed)

int	claqhb_ (char uplo, integer n, integer kd, complex ab, integer ldab, real s, real scond, real amax, char *equed)

int	claqhe_ (char uplo, integer n, complex a, integer lda, real s, real scond, real amax, char equed)

int	claqhp_ (char uplo, integer n, complex ap, real s, real scond, real amax, char *equed)

int	claqp2_ (integer m, integer n, integer offset, complex a, integer lda, integer jpvt, complex tau, real vn1, real vn2, complex work)

int	claqps_ (integer m, integer n, integer offset, integer nb, integer kb, complex a, integer lda, integer jpvt, complex tau, real vn1, real vn2, complex auxv, complex f, integer ldf)

int	claqsb_ (char uplo, integer n, integer kd, complex ab, integer ldab, real s, real scond, real amax, char *equed)

int	claqsp_ (char uplo, integer n, complex ap, real s, real scond, real amax, char *equed)

int	claqsy_ (char uplo, integer n, complex a, integer lda, real s, real scond, real amax, char equed)

int	clar1v_ (integer n, integer b1, integer bn, real sigma, real d__, real l, real ld, real lld, real gersch, complex z__, real ztz, real mingma, integer r__, integer isuppz, real *work)

int	clar2v_ (integer n, complex x, complex y, complex z__, integer incx, real c__, complex s, integer incc)

int	clarcm_ (integer m, integer n, real a, integer lda, complex b, integer ldb, complex c__, integer ldc, real *rwork)

int	clarf_ (char side, integer m, integer n, complex v, integer incv, complex tau, complex c__, integer ldc, complex *work)

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

int	clarfg_ (integer n, complex alpha, complex x, integer incx, complex *tau)

int	clarft_ (char direct, char storev, integer n, integer k, complex v, integer ldv, complex tau, complex t, integer *ldt)

int	clarfx_ (char side, integer m, integer n, complex v, complex tau, complex c__, integer ldc, complex work)

int	clargv_ (integer n, complex x, integer incx, complex y, integer incy, real c__, integer *incc)

int	clarnv_ (integer idist, integer iseed, integer n, complex x)

int	clarrv_ (integer n, real d__, real l, integer isplit, integer m, real w, integer iblock, real gersch, real tol, complex z__, integer ldz, integer isuppz, real work, integer iwork, integer *info)

int	clartg_ (complex f, complex g, real cs, complex sn, complex *r__)

int	clartv_ (integer n, complex x, integer incx, complex y, integer incy, real c__, complex s, integer incc)

int	clarz_ (char side, integer m, integer n, integer l, complex v, integer incv, complex tau, complex c__, integer ldc, complex work)

int	clarzb_ (char side, char trans, char direct, char storev, integer m, integer n, integer k, integer l, complex v, integer ldv, complex t, integer ldt, complex c__, integer ldc, complex work, integer ldwork)

int	clarzt_ (char direct, char storev, integer n, integer k, complex v, integer ldv, complex tau, complex t, integer *ldt)

int	clascl_ (char type__, integer kl, integer ku, real cfrom, real cto, integer m, integer n, complex a, integer lda, integer info)

int	claset_ (char uplo, integer m, integer n, complex alpha, complex beta, complex a, integer *lda)

int	clasr_ (char side, char pivot, char direct, integer m, integer n, real c__, real s, complex a, integer *lda)

int	classq_ (integer n, complex x, integer incx, real scale, real *sumsq)

int	claswp_ (integer n, complex a, integer lda, integer k1, integer k2, integer ipiv, integer *incx)

int	clasyf_ (char uplo, integer n, integer nb, integer kb, complex a, integer lda, integer ipiv, complex w, integer ldw, integer info)

int	clatbs_ (char uplo, char trans, char diag, char normin, integer n, integer kd, complex ab, integer ldab, complex x, real scale, real cnorm, integer info)

int	clatdf_ (integer ijob, integer n, complex z__, integer ldz, complex rhs, real rdsum, real rdscal, integer ipiv, integer *jpiv)

int	clatps_ (char uplo, char trans, char diag, char normin, integer n, complex ap, complex x, real scale, real cnorm, integer info)

int	clatrd_ (char uplo, integer n, integer nb, complex a, integer lda, real e, complex tau, complex w, integer *ldw)

int	clatrs_ (char uplo, char trans, char diag, char normin, integer n, complex a, integer lda, complex x, real scale, real cnorm, integer *info)

int	clatrz_ (integer m, integer n, integer l, complex a, integer lda, complex tau, complex *work)

int	clatzm_ (char side, integer m, integer n, complex v, integer incv, complex tau, complex c1, complex c2, integer ldc, complex work)

int	clauu2_ (char uplo, integer n, complex a, integer lda, integer *info)

int	clauum_ (char uplo, integer n, complex a, integer lda, integer *info)

int	cpbcon_ (char uplo, integer n, integer kd, complex ab, integer ldab, real anorm, real rcond, complex work, real rwork, integer info)

int	cpbequ_ (char uplo, integer n, integer kd, complex ab, integer ldab, real s, real scond, real amax, integer *info)

int	cpbrfs_ (char uplo, integer n, integer kd, integer nrhs, complex ab, integer ldab, complex afb, integer ldafb, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	cpbstf_ (char uplo, integer n, integer kd, complex ab, integer ldab, integer info)

int	cpbsv_ (char uplo, integer n, integer kd, integer nrhs, complex ab, integer ldab, complex b, integer ldb, integer *info)

int	cpbsvx_ (char fact, char uplo, integer n, integer kd, integer nrhs, complex ab, integer ldab, complex afb, integer ldafb, char equed, real s, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer *info)

int	cpbtf2_ (char uplo, integer n, integer kd, complex ab, integer ldab, integer info)

int	cpbtrf_ (char uplo, integer n, integer kd, complex ab, integer ldab, integer info)

int	cpbtrs_ (char uplo, integer n, integer kd, integer nrhs, complex ab, integer ldab, complex b, integer ldb, integer *info)

int	cpocon_ (char uplo, integer n, complex a, integer lda, real anorm, real rcond, complex work, real rwork, integer *info)

int	cpoequ_ (integer n, complex a, integer lda, real s, real scond, real amax, integer *info)

int	cporfs_ (char uplo, integer n, integer nrhs, complex a, integer lda, complex af, integer ldaf, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer info)

int	cposv_ (char uplo, integer n, integer nrhs, complex a, integer lda, complex b, integer ldb, integer info)

int	cposvx_ (char fact, char uplo, integer n, integer nrhs, complex a, integer lda, complex af, integer ldaf, char equed, real s, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer info)

int	cpotf2_ (char uplo, integer n, complex a, integer lda, integer *info)

int	cpotrf_ (char uplo, integer n, complex a, integer lda, integer *info)

int	cpotri_ (char uplo, integer n, complex a, integer lda, integer *info)

int	cpotrs_ (char uplo, integer n, integer nrhs, complex a, integer lda, complex b, integer ldb, integer info)

int	cppcon_ (char uplo, integer n, complex ap, real anorm, real rcond, complex work, real rwork, integer info)

int	cppequ_ (char uplo, integer n, complex ap, real s, real scond, real amax, integer *info)

int	cpprfs_ (char uplo, integer n, integer nrhs, complex ap, complex afp, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer info)

int	cppsv_ (char uplo, integer n, integer nrhs, complex ap, complex b, integer ldb, integer *info)

int	cppsvx_ (char fact, char uplo, integer n, integer nrhs, complex ap, complex afp, char equed, real s, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer info)

int	cpptrf_ (char uplo, integer n, complex ap, integer info)

int	cpptri_ (char uplo, integer n, complex ap, integer info)

int	cpptrs_ (char uplo, integer n, integer nrhs, complex ap, complex b, integer ldb, integer *info)

int	cptcon_ (integer n, real d__, complex e, real anorm, real rcond, real rwork, integer *info)

int	cptrfs_ (char uplo, integer n, integer nrhs, real d__, complex e, real df, complex ef, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer info)

int	cptsv_ (integer n, integer nrhs, real d__, complex e, complex b, integer ldb, integer *info)

int	cptsvx_ (char fact, integer n, integer nrhs, real d__, complex e, real df, complex ef, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer *info)

int	cpttrf_ (integer n, real d__, complex e, integer info)

int	cpttrs_ (char uplo, integer n, integer nrhs, real d__, complex e, complex b, integer ldb, integer info)

int	cptts2_ (integer iuplo, integer n, integer nrhs, real d__, complex e, complex b, integer *ldb)

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

int	cspcon_ (char uplo, integer n, complex ap, integer ipiv, real anorm, real rcond, complex work, integer info)

int	cspmv_ (char uplo, integer n, complex alpha, complex ap, complex x, integer incx, complex beta, complex y, integer *incy)

int	cspr_ (char uplo, integer n, complex alpha, complex x, integer incx, complex ap)

int	csprfs_ (char uplo, integer n, integer nrhs, complex ap, complex afp, integer ipiv, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	cspsv_ (char uplo, integer n, integer nrhs, complex ap, integer ipiv, complex b, integer ldb, integer info)

int	cspsvx_ (char fact, char uplo, integer n, integer nrhs, complex ap, complex afp, integer ipiv, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, real rwork, integer *info)

int	csptrf_ (char uplo, integer n, complex ap, integer ipiv, integer *info)

int	csptri_ (char uplo, integer n, complex ap, integer ipiv, complex work, integer info)

int	csptrs_ (char uplo, integer n, integer nrhs, complex ap, integer ipiv, complex b, integer ldb, integer info)

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

int	csrscl_ (integer n, real sa, complex sx, integer incx)

int	cstedc_ (char compz, integer n, real d__, real e, complex z__, integer ldz, complex work, integer lwork, real rwork, integer lrwork, integer iwork, integer liwork, integer *info)

int	cstein_ (integer n, real d__, real e, integer m, real w, integer iblock, integer isplit, complex z__, integer ldz, real work, integer iwork, integer ifail, integer *info)

int	csteqr_ (char compz, integer n, real d__, real e, complex z__, integer ldz, real work, integer info)

int	csycon_ (char uplo, integer n, complex a, integer lda, integer ipiv, real anorm, real rcond, complex work, integer *info)

int	csymv_ (char uplo, integer n, complex alpha, complex a, integer lda, complex x, integer incx, complex beta, complex y, integer incy)

int	csyr_ (char uplo, integer n, complex alpha, complex x, integer incx, complex a, integer *lda)

int	csyrfs_ (char uplo, integer n, integer nrhs, complex a, integer lda, complex af, integer ldaf, integer ipiv, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	csysv_ (char uplo, integer n, integer nrhs, complex a, integer lda, integer ipiv, complex b, integer ldb, complex work, integer lwork, integer *info)

int	csysvx_ (char fact, char uplo, integer n, integer nrhs, complex a, integer lda, complex af, integer ldaf, integer ipiv, complex b, integer ldb, complex x, integer ldx, real rcond, real ferr, real berr, complex work, integer lwork, real rwork, integer info)

int	csytf2_ (char uplo, integer n, complex a, integer lda, integer ipiv, integer info)

int	csytrf_ (char uplo, integer n, complex a, integer lda, integer ipiv, complex work, integer lwork, integer info)

int	csytri_ (char uplo, integer n, complex a, integer lda, integer ipiv, complex work, integer *info)

int	csytrs_ (char uplo, integer n, integer nrhs, complex a, integer lda, integer ipiv, complex b, integer ldb, integer *info)

int	ctbcon_ (char norm, char uplo, char diag, integer n, integer kd, complex ab, integer ldab, real rcond, complex work, real rwork, integer *info)

int	ctbrfs_ (char uplo, char trans, char diag, integer n, integer kd, integer nrhs, complex ab, integer ldab, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	ctbtrs_ (char uplo, char trans, char diag, integer n, integer kd, integer nrhs, complex ab, integer ldab, complex b, integer ldb, integer *info)

int	ctgevc_ (char side, char howmny, logical select, integer n, complex a, integer lda, complex b, integer ldb, complex vl, integer ldvl, complex vr, integer ldvr, integer mm, integer m, complex work, real rwork, integer *info)

int	ctgex2_ (logical wantq, logical wantz, integer n, complex a, integer lda, complex b, integer ldb, complex q, integer ldq, complex z__, integer ldz, integer j1, integer *info)

int	ctgexc_ (logical wantq, logical wantz, integer n, complex a, integer lda, complex b, integer ldb, complex q, integer ldq, complex z__, integer ldz, integer ifst, integer ilst, integer info)

int	ctgsen_ (integer ijob, logical wantq, logical wantz, logical select, integer n, complex a, integer lda, complex b, integer ldb, complex alpha, complex beta, complex q, integer ldq, complex z__, integer ldz, integer m, real pl, real pr, real dif, complex work, integer lwork, integer iwork, integer liwork, integer info)

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

int	ctgsna_ (char job, char howmny, logical select, integer n, complex a, integer lda, complex b, integer ldb, complex vl, integer ldvl, complex vr, integer ldvr, real s, real dif, integer mm, integer m, complex work, integer lwork, integer iwork, integer info)

int	ctgsy2_ (char trans, integer ijob, integer m, integer n, complex a, integer lda, complex b, integer ldb, complex c__, integer ldc, complex d__, integer ldd, complex e, integer lde, complex f, integer ldf, real scale, real rdsum, real rdscal, integer info)

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

int	ctpcon_ (char norm, char uplo, char diag, integer n, complex ap, real rcond, complex work, real rwork, integer *info)

int	ctprfs_ (char uplo, char trans, char diag, integer n, integer nrhs, complex ap, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer *info)

int	ctptri_ (char uplo, char diag, integer n, complex ap, integer *info)

int	ctptrs_ (char uplo, char trans, char diag, integer n, integer nrhs, complex ap, complex b, integer ldb, integer *info)

int	ctrcon_ (char norm, char uplo, char diag, integer n, complex a, integer lda, real rcond, complex work, real rwork, integer info)

int	ctrevc_ (char side, char howmny, logical select, integer n, complex t, integer ldt, complex vl, integer ldvl, complex vr, integer ldvr, integer mm, integer m, complex work, real rwork, integer *info)

int	ctrexc_ (char compq, integer n, complex t, integer ldt, complex q, integer ldq, integer ifst, integer ilst, integer *info)

int	ctrrfs_ (char uplo, char trans, char diag, integer n, integer nrhs, complex a, integer lda, complex b, integer ldb, complex x, integer ldx, real ferr, real berr, complex work, real rwork, integer info)

int	ctrsen_ (char job, char compq, logical select, integer n, complex t, integer ldt, complex q, integer ldq, complex w, integer m, real s, real sep, complex work, integer lwork, integer *info)

int	ctrsna_ (char job, char howmny, logical select, integer n, complex t, integer ldt, complex vl, integer ldvl, complex vr, integer ldvr, real s, real sep, integer mm, integer m, complex work, integer ldwork, real rwork, integer info)

int	ctrsyl_ (char trana, char tranb, integer isgn, integer m, integer n, complex a, integer lda, complex b, integer ldb, complex c__, integer ldc, real scale, integer *info)

int	ctrti2_ (char uplo, char diag, integer n, complex a, integer lda, integer info)

int	ctrtri_ (char uplo, char diag, integer n, complex a, integer lda, integer info)

int	ctrtrs_ (char uplo, char trans, char diag, integer n, integer nrhs, complex a, integer lda, complex b, integer ldb, integer info)

int	ctzrqf_ (integer m, integer n, complex a, integer lda, complex tau, integer info)

int	ctzrzf_ (integer m, integer n, complex a, integer lda, complex tau, complex work, integer lwork, integer info)

int	cung2l_ (integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer info)

int	cung2r_ (integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer info)

int	cungbr_ (char vect, integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer lwork, integer info)

int	cunghr_ (integer n, integer ilo, integer ihi, complex a, integer lda, complex tau, complex work, integer lwork, integer *info)

int	cungl2_ (integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer info)

int	cunglq_ (integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer lwork, integer *info)

int	cungql_ (integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer lwork, integer *info)

int	cungqr_ (integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer lwork, integer *info)

int	cungr2_ (integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer info)

int	cungrq_ (integer m, integer n, integer k, complex a, integer lda, complex tau, complex work, integer lwork, integer *info)

int	cungtr_ (char uplo, integer n, complex a, integer lda, complex tau, complex work, integer lwork, integer info)

int	cunm2l_ (char side, char trans, integer m, integer n, integer k, complex a, integer lda, complex tau, complex c__, integer ldc, complex work, integer info)

int	cunm2r_ (char side, char trans, integer m, integer n, integer k, complex a, integer lda, complex tau, complex c__, integer ldc, complex work, integer info)

int	cunmbr_ (char vect, char side, char trans, integer m, integer n, integer k, complex a, integer lda, complex tau, complex c__, integer ldc, complex work, integer lwork, integer info)

int	cunmhr_ (char side, char trans, integer m, integer n, integer ilo, integer ihi, complex a, integer lda, complex tau, complex c__, integer ldc, complex work, integer lwork, integer info)

int	cunml2_ (char side, char trans, integer m, integer n, integer k, complex a, integer lda, complex tau, complex c__, integer ldc, complex work, integer info)

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

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

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

int	cunmr2_ (char side, char trans, integer m, integer n, integer k, complex a, integer lda, complex tau, complex c__, integer ldc, complex work, integer info)

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

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

int	cunmrz_ (char side, char trans, integer m, integer n, integer k, integer l, complex a, integer lda, complex tau, complex c__, integer ldc, complex work, integer lwork, integer info)

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

int	cupgtr_ (char uplo, integer n, complex ap, complex tau, complex q, integer ldq, complex work, integer info)

int	cupmtr_ (char side, char uplo, char trans, integer m, integer n, complex ap, complex tau, complex c__, integer ldc, complex work, integer *info)

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)

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)

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

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)

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)

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)

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)

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

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)

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

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

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

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

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

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

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

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

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

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)

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)

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)

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)

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)

int	dgegv_ (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)

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

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

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

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

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

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)

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)

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)

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)

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

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

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

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

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

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

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)

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

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

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

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)

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

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)

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)

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

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

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

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

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

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

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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

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)

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

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

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

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)

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)

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)

int	dlabad_ (doublereal small, doublereal large)

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)

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

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

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

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

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)

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)

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

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)

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)

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

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

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

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)

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)

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)

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)

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)

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

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

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

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)

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

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)

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

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

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)

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

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

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)

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)

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)

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)

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

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

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

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

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

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

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

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

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)

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

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

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)

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

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

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

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

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)

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

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

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)

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

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

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

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

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

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)

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)

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)

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)

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

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

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

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

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)

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

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

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

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)

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)

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)

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)

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

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

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)

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)

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)

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)

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)

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)

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

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

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

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

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)

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)

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)

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

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

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

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

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

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

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)

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

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)

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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)

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

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

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)

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

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

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)

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

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

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

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

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

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)

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

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)

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

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

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

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

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

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

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)

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

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)

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

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

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

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

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

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)

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

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)

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

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

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

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

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

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)

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)

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)

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)

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)

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)

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)

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

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

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)

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)

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

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

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)

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)

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)

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

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)

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

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

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

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

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)

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

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)

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)

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

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

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

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

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)

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)

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

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

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

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)

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)

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

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

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)

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)

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)

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)

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

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)

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

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

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

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

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

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

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

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)

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

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)

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)

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)

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)

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)

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)

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)

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)

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

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)

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

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

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

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)

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

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)

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)

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)

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)

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

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

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

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

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

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

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

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

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

int	sbdsdc_ (char uplo, char compq, integer n, real d__, real e, real u, integer ldu, real vt, integer ldvt, real q, integer iq, real work, integer iwork, integer info)

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

int	sdisna_ (char job, integer m, integer n, real d__, real sep, integer info)

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

int	sgbcon_ (char norm, integer n, integer kl, integer ku, real ab, integer ldab, integer ipiv, real anorm, real rcond, real work, integer iwork, integer info)

int	sgbequ_ (integer m, integer n, integer kl, integer ku, real ab, integer ldab, real r__, real c__, real rowcnd, real colcnd, real amax, integer info)

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

int	sgbsv_ (integer n, integer kl, integer ku, integer nrhs, real ab, integer ldab, integer ipiv, real b, integer ldb, integer info)

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

int	sgbtf2_ (integer m, integer n, integer kl, integer ku, real ab, integer ldab, integer ipiv, integer info)

int	sgbtrf_ (integer m, integer n, integer kl, integer ku, real ab, integer ldab, integer ipiv, integer info)

int	sgbtrs_ (char trans, integer n, integer kl, integer ku, integer nrhs, real ab, integer ldab, integer ipiv, real b, integer ldb, integer *info)

int	sgebak_ (char job, char side, integer n, integer ilo, integer ihi, real scale, integer m, real v, integer ldv, integer info)

int	sgebal_ (char job, integer n, real a, integer lda, integer ilo, integer ihi, real scale, integer info)

int	sgebd2_ (integer m, integer n, real a, integer lda, real d__, real e, real tauq, real taup, real work, integer info)

int	sgebrd_ (integer m, integer n, real a, integer lda, real d__, real e, real tauq, real taup, real work, integer lwork, integer *info)

int	sgecon_ (char norm, integer n, real a, integer lda, real anorm, real rcond, real work, integer iwork, integer *info)

int	sgeequ_ (integer m, integer n, real a, integer lda, real r__, real c__, real rowcnd, real colcnd, real amax, integer info)

int	sgees_ (char jobvs, char sort, L_fp select, integer n, real a, integer lda, integer sdim, real wr, real wi, real vs, integer ldvs, real work, integer lwork, logical bwork, integer info)

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

int	sgeev_ (char jobvl, char jobvr, integer n, real a, integer lda, real wr, real wi, real vl, integer ldvl, real vr, integer ldvr, real work, integer lwork, integer info)

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

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

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

int	sgehd2_ (integer n, integer ilo, integer ihi, real a, integer lda, real tau, real work, integer info)

int	sgehrd_ (integer n, integer ilo, integer ihi, real a, integer lda, real tau, real work, integer lwork, integer *info)

int	sgelq2_ (integer m, integer n, real a, integer lda, real tau, real work, integer *info)

int	sgelqf_ (integer m, integer n, real a, integer lda, real tau, real work, integer lwork, integer info)

int	sgels_ (char trans, integer m, integer n, integer nrhs, real a, integer lda, real b, integer ldb, real work, integer lwork, integer *info)

int	sgelsd_ (integer m, integer n, integer nrhs, real a, integer lda, real b, integer ldb, real s, real rcond, integer rank, real work, integer lwork, integer iwork, integer info)

int	sgelss_ (integer m, integer n, integer nrhs, real a, integer lda, real b, integer ldb, real s, real rcond, integer rank, real work, integer lwork, integer *info)

int	sgelsx_ (integer m, integer n, integer nrhs, real a, integer lda, real b, integer ldb, integer jpvt, real rcond, integer rank, real work, integer info)

int	sgelsy_ (integer m, integer n, integer nrhs, real a, integer lda, real b, integer ldb, integer jpvt, real rcond, integer rank, real work, integer lwork, integer *info)

int	sgeql2_ (integer m, integer n, real a, integer lda, real tau, real work, integer *info)

int	sgeqlf_ (integer m, integer n, real a, integer lda, real tau, real work, integer lwork, integer info)

int	sgeqp3_ (integer m, integer n, real a, integer lda, integer jpvt, real tau, real work, integer lwork, integer *info)

int	sgeqpf_ (integer m, integer n, real a, integer lda, integer jpvt, real tau, real work, integer info)

int	sgeqr2_ (integer m, integer n, real a, integer lda, real tau, real work, integer *info)

int	sgeqrf_ (integer m, integer n, real a, integer lda, real tau, real work, integer lwork, integer info)

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

int	sgerq2_ (integer m, integer n, real a, integer lda, real tau, real work, integer *info)

int	sgerqf_ (integer m, integer n, real a, integer lda, real tau, real work, integer lwork, integer info)

int	sgesc2_ (integer n, real a, integer lda, real rhs, integer ipiv, integer jpiv, real *scale)

int	sgesdd_ (char jobz, integer m, integer n, real a, integer lda, real s, real u, integer ldu, real vt, integer ldvt, real work, integer lwork, integer iwork, integer info)

int	sgesv_ (integer n, integer nrhs, real a, integer lda, integer ipiv, real b, integer ldb, integer info)

int	sgesvd_ (char jobu, char jobvt, integer m, integer n, real a, integer lda, real s, real u, integer ldu, real vt, integer ldvt, real work, integer lwork, integer info)

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

int	sgetc2_ (integer n, real a, integer lda, integer ipiv, integer jpiv, integer info)

int	sgetf2_ (integer m, integer n, real a, integer lda, integer ipiv, integer info)

int	sgetrf_ (integer m, integer n, real a, integer lda, integer ipiv, integer info)

int	sgetri_ (integer n, real a, integer lda, integer ipiv, real work, integer lwork, integer *info)

int	sgetrs_ (char trans, integer n, integer nrhs, real a, integer lda, integer ipiv, real b, integer ldb, integer *info)

int	sggbak_ (char job, char side, integer n, integer ilo, integer ihi, real lscale, real rscale, integer m, real v, integer ldv, integer *info)

int	sggbal_ (char job, integer n, real a, integer lda, real b, integer ldb, integer ilo, integer ihi, real lscale, real rscale, real work, integer info)

int	sgges_ (char jobvsl, char jobvsr, char sort, L_fp selctg, integer n, real a, integer lda, real b, integer ldb, integer sdim, real alphar, real alphai, real beta, real vsl, integer ldvsl, real vsr, integer ldvsr, real work, integer lwork, logical bwork, integer info)

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

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

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

int	sggglm_ (integer n, integer m, integer p, real a, integer lda, real b, integer ldb, real d__, real x, real y, real work, integer lwork, integer *info)

int	sgghrd_ (char compq, char compz, integer n, integer ilo, integer ihi, real a, integer lda, real b, integer ldb, real q, integer ldq, real z__, integer ldz, integer info)

int	sgglse_ (integer m, integer n, integer p, real a, integer lda, real b, integer ldb, real c__, real d__, real x, real work, integer lwork, integer *info)

int	sggqrf_ (integer n, integer m, integer p, real a, integer lda, real taua, real b, integer ldb, real taub, real work, integer lwork, integer info)

int	sggrqf_ (integer m, integer p, integer n, real a, integer lda, real taua, real b, integer ldb, real taub, real work, integer lwork, integer info)

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

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

int	sgtcon_ (char norm, integer n, real dl, real d__, real du, real du2, integer ipiv, real anorm, real rcond, real work, integer iwork, integer info)

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

int	sgtsv_ (integer n, integer nrhs, real dl, real d__, real du, real b, integer ldb, integer info)

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

int	sgttrf_ (integer n, real dl, real d__, real du, real du2, integer ipiv, integer *info)

int	sgttrs_ (char trans, integer n, integer nrhs, real dl, real d__, real du, real du2, integer ipiv, real b, integer ldb, integer *info)

int	sgtts2_ (integer itrans, integer n, integer nrhs, real dl, real d__, real du, real du2, integer ipiv, real b, integer ldb)

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

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

int	shseqr_ (char job, char compz, integer n, integer ilo, integer ihi, real h__, integer ldh, real wr, real wi, real z__, integer ldz, real work, integer lwork, integer info)

int	slabad_ (real small, real large)

int	slabrd_ (integer m, integer n, integer nb, real a, integer lda, real d__, real e, real tauq, real taup, real x, integer ldx, real y, integer *ldy)

int	slacon_ (integer n, real v, real x, integer isgn, real est, integer kase)

int	slacpy_ (char uplo, integer m, integer n, real a, integer lda, real b, integer *ldb)

int	sladiv_ (real a, real b, real c__, real d__, real p, real q)

int	slae2_ (real a, real b, real c__, real rt1, real *rt2)

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

int	slaed0_ (integer icompq, integer qsiz, integer n, real d__, real e, real q, integer ldq, real qstore, integer ldqs, real work, integer iwork, integer info)

int	slaed1_ (integer n, real d__, real q, integer ldq, integer indxq, real rho, integer cutpnt, real work, integer iwork, integer info)

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

int	slaed3_ (integer k, integer n, integer n1, real d__, real q, integer ldq, real rho, real dlamda, real q2, integer indx, integer ctot, real w, real s, integer info)

int	slaed4_ (integer n, integer i__, real d__, real z__, real delta, real rho, real dlam, integer info)

int	slaed5_ (integer i__, real d__, real z__, real delta, real rho, real dlam)

int	slaed6_ (integer kniter, logical orgati, real rho, real d__, real z__, real finit, real tau, integer info)

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

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

int	slaed9_ (integer k, integer kstart, integer kstop, integer n, real d__, real q, integer ldq, real rho, real dlamda, real w, real s, integer lds, integer *info)

int	slaeda_ (integer n, integer tlvls, integer curlvl, integer curpbm, integer prmptr, integer perm, integer givptr, integer givcol, real givnum, real q, integer qptr, real z__, real ztemp, integer info)

int	slaein_ (logical rightv, logical noinit, integer n, real h__, integer ldh, real wr, real wi, real vr, real vi, real b, integer ldb, real work, real eps3, real smlnum, real bignum, integer info)

int	slaev2_ (real a, real b, real c__, real rt1, real rt2, real cs1, real *sn1)

int	slaexc_ (logical wantq, integer n, real t, integer ldt, real q, integer ldq, integer j1, integer n1, integer n2, real work, integer *info)

int	slag2_ (real a, integer lda, real b, integer ldb, real safmin, real scale1, real scale2, real wr1, real wr2, real wi)

int	slags2_ (logical upper, real a1, real a2, real a3, real b1, real b2, real b3, real csu, real snu, real csv, real snv, real csq, real *snq)

int	slagtf_ (integer n, real a, real lambda, real b, real c__, real tol, real d__, integer in, integer *info)

int	slagtm_ (char trans, integer n, integer nrhs, real alpha, real dl, real d__, real du, real x, integer ldx, real beta, real b, integer ldb)

int	slagts_ (integer job, integer n, real a, real b, real c__, real d__, integer in, real y, real tol, integer info)

int	slagv2_ (real a, integer lda, real b, integer ldb, real alphar, real alphai, real beta, real csl, real snl, real csr, real *snr)

int	slahqr_ (logical wantt, logical wantz, integer n, integer ilo, integer ihi, real h__, integer ldh, real wr, real wi, integer iloz, integer ihiz, real z__, integer ldz, integer info)

int	slahrd_ (integer n, integer k, integer nb, real a, integer lda, real tau, real t, integer ldt, real y, integer ldy)

int	slaic1_ (integer job, integer j, real x, real sest, real w, real gamma, real sestpr, real s, real *c__)

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

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

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

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

int	slamc1_ (integer beta, integer t, logical rnd, logical ieee1)

int	slamc2_ (integer beta, integer t, logical rnd, real eps, integer emin, real rmin, integer emax, real rmax)

int	slamc4_ (integer emin, real start, integer *base)

int	slamc5_ (integer beta, integer p, integer emin, logical ieee, integer emax, real rmax)

int	slamrg_ (integer n1, integer n2, real a, integer strd1, integer strd2, integer index)

int	slanv2_ (real a, real b, real c__, real d__, real rt1r, real rt1i, real rt2r, real rt2i, real cs, real sn)

int	slapll_ (integer n, real x, integer incx, real y, integer incy, real ssmin)

int	slapmt_ (logical forwrd, integer m, integer n, real x, integer ldx, integer k)

int	slaqgb_ (integer m, integer n, integer kl, integer ku, real ab, integer ldab, real r__, real c__, real rowcnd, real colcnd, real amax, char equed)

int	slaqge_ (integer m, integer n, real a, integer lda, real r__, real c__, real rowcnd, real colcnd, real amax, char equed)

int	slaqp2_ (integer m, integer n, integer offset, real a, integer lda, integer jpvt, real tau, real vn1, real vn2, real work)

int	slaqps_ (integer m, integer n, integer offset, integer nb, integer kb, real a, integer lda, integer jpvt, real tau, real vn1, real vn2, real auxv, real f, integer ldf)

int	slaqsb_ (char uplo, integer n, integer kd, real ab, integer ldab, real s, real scond, real amax, char *equed)

int	slaqsp_ (char uplo, integer n, real ap, real s, real scond, real amax, char *equed)

int	slaqsy_ (char uplo, integer n, real a, integer lda, real s, real scond, real amax, char equed)

int	slaqtr_ (logical ltran, logical lreal, integer n, real t, integer ldt, real b, real w, real scale, real x, real work, integer *info)

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

int	slar2v_ (integer n, real x, real y, real z__, integer incx, real c__, real s, integer incc)

int	slarf_ (char side, integer m, integer n, real v, integer incv, real tau, real c__, integer ldc, real *work)

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

int	slarfg_ (integer n, real alpha, real x, integer incx, real *tau)

int	slarft_ (char direct, char storev, integer n, integer k, real v, integer ldv, real tau, real t, integer *ldt)

int	slarfx_ (char side, integer m, integer n, real v, real tau, real c__, integer ldc, real work)

int	slargv_ (integer n, real x, integer incx, real y, integer incy, real c__, integer *incc)

int	slarnv_ (integer idist, integer iseed, integer n, real x)

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

int	slarre_ (integer n, real d__, real e, real tol, integer nsplit, integer isplit, integer m, real w, real woff, real gersch, real work, integer info)

int	slarrf_ (integer n, real d__, real l, real ld, real lld, integer ifirst, integer ilast, real w, real dplus, real lplus, real work, integer iwork, integer *info)

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

int	slartg_ (real f, real g, real cs, real sn, real *r__)

int	slartv_ (integer n, real x, integer incx, real y, integer incy, real c__, real s, integer incc)

int	slaruv_ (integer iseed, integer n, real *x)

int	slarz_ (char side, integer m, integer n, integer l, real v, integer incv, real tau, real c__,

Functions