- Main Page
- Classes
- Files

- File List

# D:/work/as_smooth/MeshSmoothingTools/misc/atlas/clapack2.h

    00001 #ifndef __CLAPACK_H
    00002 #define __CLAPACK_H
    00003
    00004 #include "f2c.h"
    00005
    00006 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
    00007         nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt,
    00008         complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork,
    00009         integer *info);
    00010
    00011 /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
    00012          integer *kl, integer *ku, complex *ab, integer *ldab, real *d__,
    00013         real *e, complex *q, integer *ldq, complex *pt, integer *ldpt,
    00014         complex *c__, integer *ldc, complex *work, real *rwork, integer *info);
    00015
    00016 /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku,
    00017          complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
    00018         complex *work, real *rwork, integer *info);
    00019
    00020 /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku,
    00021          complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
    00022         *colcnd, real *amax, integer *info);
    00023
    00024 /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer *
    00025         ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
    00026         ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *
    00027         ldx, real *ferr, real *berr, complex *work, real *rwork, integer *
    00028         info);
    00029
    00030 /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer *
    00031         nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *
    00032         ldb, integer *info);
    00033
    00034 /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl,
    00035          integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb,
    00036          integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
    00037         complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real
    00038         *ferr, real *berr, complex *work, real *rwork, integer *info);
    00039
    00040 /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
    00041          complex *ab, integer *ldab, integer *ipiv, integer *info);
    00042
    00043 /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
    00044          complex *ab, integer *ldab, integer *ipiv, integer *info);
    00045
    00046 /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer *
    00047         ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex
    00048         *b, integer *ldb, integer *info);
    00049
    00050 /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo,
    00051         integer *ihi, real *scale, integer *m, complex *v, integer *ldv,
    00052         integer *info);
    00053
    00054 /* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda,
    00055         integer *ilo, integer *ihi, real *scale, integer *info);
    00056
    00057 /* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda,
    00058          real *d__, real *e, complex *tauq, complex *taup, complex *work,
    00059         integer *info);
    00060
    00061 /* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda,
    00062          real *d__, real *e, complex *tauq, complex *taup, complex *work,
    00063         integer *lwork, integer *info);
    00064
    00065 /* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda,
    00066          real *anorm, real *rcond, complex *work, real *rwork, integer *info);
    00067
    00068 /* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda,
    00069          real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
    00070         integer *info);
    00071
    00072 /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n,
    00073         complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
    00074         integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
    00075         bwork, integer *info);
    00076
    00077 /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char *
    00078         sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
    00079         w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
    00080         work, integer *lwork, real *rwork, logical *bwork, integer *info);
    00081
    00082 /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a,
    00083         integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr,
    00084         integer *ldvr, complex *work, integer *lwork, real *rwork, integer *
    00085         info);
    00086
    00087 /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
    00088         sense, integer *n, complex *a, integer *lda, complex *w, complex *vl,
    00089         integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi,
    00090          real *scale, real *abnrm, real *rconde, real *rcondv, complex *work,
    00091         integer *lwork, real *rwork, integer *info);
    00092
    00093 /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
    00094         a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
    00095         beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr,
    00096         complex *work, integer *lwork, real *rwork, integer *info);
    00097
    00098 /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a,
    00099         integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
    00100          complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
    00101         work, integer *lwork, real *rwork, integer *info);
    00102
    00103 /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
    00104         a, integer *lda, complex *tau, complex *work, integer *info);
    00105
    00106 /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
    00107         a, integer *lda, complex *tau, complex *work, integer *lwork, integer
    00108         *info);
    00109
    00110 /* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda,
    00111          complex *tau, complex *work, integer *info);
    00112
    00113 /* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda,
    00114          complex *tau, complex *work, integer *lwork, integer *info);
    00115
    00116 /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer *
    00117         nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
    00118         work, integer *lwork, integer *info);
    00119
    00120 /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex *
    00121         a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
    00122          integer *rank, complex *work, real *rwork, integer *info);
    00123
    00124 /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex *
    00125         a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
    00126          integer *rank, complex *work, integer *lwork, real *rwork, integer *
    00127         info);
    00128
    00129 /* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda,
    00130          complex *tau, complex *work, integer *info);
    00131
    00132 /* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
    00133          complex *tau, complex *work, integer *lwork, integer *info);
    00134
    00135 /* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda,
    00136          integer *jpvt, complex *tau, complex *work, integer *lwork, real *
    00137         rwork, integer *info);
    00138
    00139 /* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
    00140          integer *jpvt, complex *tau, complex *work, real *rwork, integer *
    00141         info);
    00142
    00143 /* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
    00144          complex *tau, complex *work, integer *info);
    00145
    00146 /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
    00147          complex *tau, complex *work, integer *lwork, integer *info);
    00148
    00149 /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex *
    00150         a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
    00151         b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
    00152         complex *work, real *rwork, integer *info);
    00153
    00154 /* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda,
    00155          complex *tau, complex *work, integer *info);
    00156
    00157 /* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda,
    00158          complex *tau, complex *work, integer *lwork, integer *info);
    00159
    00160 /* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex *
    00161         rhs, integer *ipiv, integer *jpiv, real *scale);
    00162
    00163 /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer *
    00164         lda, integer *ipiv, complex *b, integer *ldb, integer *info);
    00165
    00166 /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer *
    00167         nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
    00168         ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb,
    00169         complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
    00170         complex *work, real *rwork, integer *info);
    00171
    00172 /* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer *
    00173         ipiv, integer *jpiv, integer *info);
    00174
    00175 /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda,
    00176          integer *ipiv, integer *info);
    00177
    00178 /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda,
    00179          integer *ipiv, integer *info);
    00180
    00181 /* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer *
    00182         ipiv, complex *work, integer *lwork, integer *info);
    00183
    00184 /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex *
    00185         a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
    00186         info);
    00187
    00188 /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo,
    00189         integer *ihi, real *lscale, real *rscale, integer *m, complex *v,
    00190         integer *ldv, integer *info);
    00191
    00192 /* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda,
    00193         complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale,
    00194         real *rscale, real *work, integer *info);
    00195
    00196 /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
    00197         selctg, integer *n, complex *a, integer *lda, complex *b, integer *
    00198         ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
    00199         integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
    00200         lwork, real *rwork, logical *bwork, integer *info);
    00201
    00202 /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
    00203         selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
    00204          integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
    00205         vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real
    00206         *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork,
    00207         integer *liwork, logical *bwork, integer *info);
    00208
    00209 /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a,
    00210         integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
    00211          complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
    00212         work, integer *lwork, real *rwork, integer *info);
    00213
    00214 /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char *
    00215         sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
    00216          complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *
    00217         vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *
    00218         rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex
    00219         *work, integer *lwork, real *rwork, integer *iwork, logical *bwork,
    00220         integer *info);
    00221
    00222 /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a,
    00223         integer *lda, complex *b, integer *ldb, complex *d__, complex *x,
    00224         complex *y, complex *work, integer *lwork, integer *info);
    00225
    00226 /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer *
    00227         ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb,
    00228          complex *q, integer *ldq, complex *z__, integer *ldz, integer *info);
    00229
    00230 /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a,
    00231         integer *lda, complex *b, integer *ldb, complex *c__, complex *d__,
    00232         complex *x, complex *work, integer *lwork, integer *info);
    00233
    00234 /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a,
    00235         integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
    00236         complex *work, integer *lwork, integer *info);
    00237
    00238 /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a,
    00239         integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
    00240         complex *work, integer *lwork, integer *info);
    00241
    00242 /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
    00243         integer *n, integer *p, integer *k, integer *l, complex *a, integer *
    00244         lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u,
    00245         integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
    00246         complex *work, real *rwork, integer *iwork, integer *info);
    00247
    00248 /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
    00249         integer *p, integer *n, complex *a, integer *lda, complex *b, integer
    00250         *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u,
    00251         integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
    00252         integer *iwork, real *rwork, complex *tau, complex *work, integer *
    00253         info);
    00254
    00255 /* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex *
    00256         d__, complex *du, complex *du2, integer *ipiv, real *anorm, real *
    00257         rcond, complex *work, integer *info);
    00258
    00259 /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex *
    00260         dl, complex *d__, complex *du, complex *dlf, complex *df, complex *
    00261         duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex *
    00262         x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
    00263         integer *info);
    00264
    00265 /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *
    00266         d__, complex *du, complex *b, integer *ldb, integer *info);
    00267
    00268 /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer *
    00269         nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *
    00270         df, complex *duf, complex *du2, integer *ipiv, complex *b, integer *
    00271         ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
    00272         complex *work, real *rwork, integer *info);
    00273
    00274 /* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex *
    00275         du, complex *du2, integer *ipiv, integer *info);
    00276
    00277 /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex *
    00278         dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *
    00279         b, integer *ldb, integer *info);
    00280
    00281 /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs,
    00282         complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv,
    00283         complex *b, integer *ldb);
    00284
    00285 /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd,
    00286         complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
    00287         complex *work, real *rwork, integer *info);
    00288
    00289 /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd,
    00290         complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
    00291         complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
    00292         iwork, integer *liwork, integer *info);
    00293
    00294 /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n,
    00295         integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq,
    00296         real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
    00297         m, real *w, complex *z__, integer *ldz, complex *work, real *rwork,
    00298         integer *iwork, integer *ifail, integer *info);
    00299
    00300 /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka,
    00301         integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
    00302         complex *x, integer *ldx, complex *work, real *rwork, integer *info);
    00303
    00304 /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka,
    00305         integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
    00306         real *w, complex *z__, integer *ldz, complex *work, real *rwork,
    00307         integer *info);
    00308
    00309 /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n,
    00310         integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb,
    00311         integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer *
    00312         il, integer *iu, real *abstol, integer *m, real *w, complex *z__,
    00313         integer *ldz, complex *work, real *rwork, integer *iwork, integer *
    00314         ifail, integer *info);
    00315
    00316 /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd,
    00317         complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *
    00318         ldq, complex *work, integer *info);
    00319
    00320 /* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda,
    00321          integer *ipiv, real *anorm, real *rcond, complex *work, integer *
    00322         info);
    00323
    00324 /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a,
    00325         integer *lda, real *w, complex *work, integer *lwork, real *rwork,
    00326         integer *info);
    00327
    00328 /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a,
    00329         integer *lda, real *w, complex *work, integer *lwork, real *rwork,
    00330         integer *lrwork, integer *iwork, integer *liwork, integer *info);
    00331
    00332 /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n,
    00333         complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
    00334         iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
    00335         integer *isuppz, complex *work, integer *lwork, real *rwork, integer *
    00336         lrwork, integer *iwork, integer *liwork, integer *info);
    00337
    00338 /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n,
    00339         complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
    00340         iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
    00341         complex *work, integer *lwork, real *rwork, integer *iwork, integer *
    00342         ifail, integer *info);
    00343
    00344 /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex *
    00345         a, integer *lda, complex *b, integer *ldb, integer *info);
    00346
    00347 /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex *
    00348         a, integer *lda, complex *b, integer *ldb, integer *info);
    00349
    00350 /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer *
    00351         n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
    00352         complex *work, integer *lwork, real *rwork, integer *info);
    00353
    00354 /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer *
    00355         n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
    00356         complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
    00357         iwork, integer *liwork, integer *info);
    00358
    00359 /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char *
    00360         uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
    00361         real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
    00362         m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
    00363          real *rwork, integer *iwork, integer *ifail, integer *info);
    00364
    00365 /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex *
    00366         a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
    00367         b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
    00368         complex *work, real *rwork, integer *info);
    00369
    00370 /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a,
    00371          integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
    00372          integer *lwork, integer *info);
    00373
    00374 /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer *
    00375         nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
    00376         ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
    00377          real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
    00378         integer *info);
    00379
    00380 /* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda,
    00381          integer *ipiv, integer *info);
    00382
    00383 /* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda,
    00384          real *d__, real *e, complex *tau, complex *work, integer *lwork,
    00385         integer *info);
    00386
    00387 /* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda,
    00388          integer *ipiv, complex *work, integer *lwork, integer *info);
    00389
    00390 /* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda,
    00391          integer *ipiv, complex *work, integer *info);
    00392
    00393 /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex *
    00394         a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
    00395         info);
    00396
    00397 /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n,
    00398         integer *ilo, integer *ihi, complex *a, integer *lda, complex *b,
    00399         integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
    00400          complex *z__, integer *ldz, complex *work, integer *lwork, real *
    00401         rwork, integer *info);
    00402
    00403 /* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer *
    00404         ipiv, real *anorm, real *rcond, complex *work, integer *info);
    00405
    00406 /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap,
    00407         real *w, complex *z__, integer *ldz, complex *work, real *rwork,
    00408         integer *info);
    00409
    00410 /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap,
    00411         real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
    00412         real *rwork, integer *lrwork, integer *iwork, integer *liwork,
    00413         integer *info);
    00414
    00415 /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n,
    00416         complex *ap, real *vl, real *vu, integer *il, integer *iu, real *
    00417         abstol, integer *m, real *w, complex *z__, integer *ldz, complex *
    00418         work, real *rwork, integer *iwork, integer *ifail, integer *info);
    00419
    00420 /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex *
    00421         ap, complex *bp, integer *info);
    00422
    00423 /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer *
    00424         n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
    00425         complex *work, real *rwork, integer *info);
    00426
    00427 /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer *
    00428         n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
    00429         complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
    00430         iwork, integer *liwork, integer *info);
    00431
    00432 /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char *
    00433         uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu,
    00434         integer *il, integer *iu, real *abstol, integer *m, real *w, complex *
    00435         z__, integer *ldz, complex *work, real *rwork, integer *iwork,
    00436         integer *ifail, integer *info);
    00437
    00438 /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex *
    00439         ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
    00440          integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
    00441         integer *info);
    00442
    00443 /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex *
    00444         ap, integer *ipiv, complex *b, integer *ldb, integer *info);
    00445
    00446 /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer *
    00447         nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
    00448         ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
    00449         complex *work, real *rwork, integer *info);
    00450
    00451 /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__,
    00452         real *e, complex *tau, integer *info);
    00453
    00454 /* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer *
    00455         ipiv, integer *info);
    00456
    00457 /* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer *
    00458         ipiv, complex *work, integer *info);
    00459
    00460 /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex *
    00461         ap, integer *ipiv, complex *b, integer *ldb, integer *info);
    00462
    00463 /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical *
    00464         select, integer *n, complex *h__, integer *ldh, complex *w, complex *
    00465         vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *
    00466         m, complex *work, real *rwork, integer *ifaill, integer *ifailr,
    00467         integer *info);
    00468
    00469 /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo,
    00470          integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__,
    00471         integer *ldz, complex *work, integer *lwork, integer *info);
    00472
    00473 /* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, complex *a,
    00474         integer *lda, real *d__, real *e, complex *tauq, complex *taup,
    00475         complex *x, integer *ldx, complex *y, integer *ldy);
    00476
    00477 /* Subroutine */ int clacgv_(integer *n, complex *x, integer *incx);
    00478
    00479 /* Subroutine */ int clacon_(integer *n, complex *v, complex *x, real *est,
    00480         integer *kase);
    00481
    00482 /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a,
    00483         integer *lda, complex *b, integer *ldb);
    00484
    00485 /* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, complex *a,
    00486         integer *lda, complex *b, integer *ldb);
    00487
    00488 /* Subroutine */ int clacrm_(integer *m, integer *n, complex *a, integer *lda,
    00489          real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
    00490
    00491 /* Subroutine */ int clacrt_(integer *n, complex *cx, integer *incx, complex *
    00492         cy, integer *incy, complex *c__, complex *s);
    00493
    00494 /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e,
    00495         complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork,
    00496          integer *iwork, integer *info);
    00497
    00498 /* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz,
    00499         integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex *
    00500         q, integer *ldq, real *rho, integer *indxq, real *qstore, integer *
    00501         qptr, integer *prmptr, integer *perm, integer *givptr, integer *
    00502         givcol, real *givnum, complex *work, real *rwork, integer *iwork,
    00503         integer *info);
    00504
    00505 /* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, complex *
    00506         q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__,
    00507         real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp,
    00508         integer *indx, integer *indxq, integer *perm, integer *givptr,
    00509         integer *givcol, real *givnum, integer *info);
    00510
    00511 /* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n,
    00512         complex *h__, integer *ldh, complex *w, complex *v, complex *b,
    00513         integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info);
    00514
    00515 /* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex *
    00516         rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
    00517
    00518 /* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1,
    00519         real *rt2, real *cs1, complex *sn1);
    00520
    00521 /* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3,
    00522         real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv,
    00523         complex *snv, real *csq, complex *snq);
    00524
    00525 /* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real *
    00526         alpha, complex *dl, complex *d__, complex *du, complex *x, integer *
    00527         ldx, real *beta, complex *b, integer *ldb);
    00528
    00529 /* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb,
    00530          complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
    00531         integer *info);
    00532
    00533 /* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n,
    00534         integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
    00535         integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
    00536         info);
    00537
    00538 /* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a,
    00539         integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
    00540         integer *ldy);
    00541
    00542 /* Subroutine */ int claic1_(integer *job, integer *j, complex *x, real *sest,
    00543          complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
    00544
    00545 /* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr,
    00546         integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx,
    00547         integer *ldbx, integer *perm, integer *givptr, integer *givcol,
    00548         integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
    00549         difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
    00550         rwork, integer *info);
    00551
    00552 /* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n,
    00553         integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx,
    00554         real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr,
    00555         real *z__, real *poles, integer *givptr, integer *givcol, integer *
    00556         ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork,
    00557         integer *iwork, integer *info);
    00558
    00559 /* Subroutine */ int clapll_(integer *n, complex *x, integer *incx, complex *
    00560         y, integer *incy, real *ssmin);
    00561
    00562 /* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, complex
    00563         *x, integer *ldx, integer *k);
    00564
    00565 /* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku,
    00566          complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
    00567         *colcnd, real *amax, char *equed);
    00568
    00569 /* Subroutine */ int claqge_(integer *m, integer *n, complex *a, integer *lda,
    00570          real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
    00571         equed);
    00572
    00573 /* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, complex *ab,
    00574          integer *ldab, real *s, real *scond, real *amax, char *equed);
    00575
    00576 /* Subroutine */ int claqhe_(char *uplo, integer *n, complex *a, integer *lda,
    00577          real *s, real *scond, real *amax, char *equed);
    00578
    00579 /* Subroutine */ int claqhp_(char *uplo, integer *n, complex *ap, real *s,
    00580         real *scond, real *amax, char *equed);
    00581
    00582 /* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, complex
    00583         *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2,
    00584         complex *work);
    00585
    00586 /* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer
    00587         *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *
    00588         tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
    00589
    00590 /* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, complex *ab,
    00591          integer *ldab, real *s, real *scond, real *amax, char *equed);
    00592
    00593 /* Subroutine */ int claqsp_(char *uplo, integer *n, complex *ap, real *s,
    00594         real *scond, real *amax, char *equed);
    00595
    00596 /* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda,
    00597          real *s, real *scond, real *amax, char *equed);
    00598
    00599 /* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real *
    00600         sigma, real *d__, real *l, real *ld, real *lld, real *gersch, complex
    00601         *z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *
    00602         work);
    00603
    00604 /* Subroutine */ int clar2v_(integer *n, complex *x, complex *y, complex *z__,
    00605          integer *incx, real *c__, complex *s, integer *incc);
    00606
    00607 /* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda,
    00608         complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
    00609
    00610 /* Subroutine */ int clarf_(char *side, integer *m, integer *n, complex *v,
    00611         integer *incv, complex *tau, complex *c__, integer *ldc, complex *
    00612         work);
    00613
    00614 /* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char *
    00615         storev, integer *m, integer *n, integer *k, complex *v, integer *ldv,
    00616         complex *t, integer *ldt, complex *c__, integer *ldc, complex *work,
    00617         integer *ldwork);
    00618
    00619 /* Subroutine */ int clarfg_(integer *n, complex *alpha, complex *x, integer *
    00620         incx, complex *tau);
    00621
    00622 /* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer *
    00623         k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
    00624
    00625 /* Subroutine */ int clarfx_(char *side, integer *m, integer *n, complex *v,
    00626         complex *tau, complex *c__, integer *ldc, complex *work);
    00627
    00628 /* Subroutine */ int clargv_(integer *n, complex *x, integer *incx, complex *
    00629         y, integer *incy, real *c__, integer *incc);
    00630
    00631 /* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n,
    00632         complex *x);
    00633
    00634 /* Subroutine */ int clarrv_(integer *n, real *d__, real *l, integer *isplit,
    00635         integer *m, real *w, integer *iblock, real *gersch, real *tol,
    00636         complex *z__, integer *ldz, integer *isuppz, real *work, integer *
    00637         iwork, integer *info);
    00638
    00639 /* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn,
    00640         complex *r__);
    00641
    00642 /* Subroutine */ int clartv_(integer *n, complex *x, integer *incx, complex *
    00643         y, integer *incy, real *c__, complex *s, integer *incc);
    00644
    00645 /* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l,
    00646         complex *v, integer *incv, complex *tau, complex *c__, integer *ldc,
    00647         complex *work);
    00648
    00649 /* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char *
    00650         storev, integer *m, integer *n, integer *k, integer *l, complex *v,
    00651         integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc,
    00652         complex *work, integer *ldwork);
    00653
    00654 /* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer *
    00655         k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
    00656
    00657 /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real *
    00658         cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda,
    00659         integer *info);
    00660
    00661 /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex *
    00662         alpha, complex *beta, complex *a, integer *lda);
    00663
    00664 /* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m,
    00665          integer *n, real *c__, real *s, complex *a, integer *lda);
    00666
    00667 /* Subroutine */ int classq_(integer *n, complex *x, integer *incx, real *
    00668         scale, real *sumsq);
    00669
    00670 /* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer *
    00671         k1, integer *k2, integer *ipiv, integer *incx);
    00672
    00673 /* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb,
    00674          complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
    00675         integer *info);
    00676
    00677 /* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char *
    00678         normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *
    00679         x, real *scale, real *cnorm, integer *info);
    00680
    00681 /* Subroutine */ int clatdf_(integer *ijob, integer *n, complex *z__, integer
    00682         *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer
    00683         *jpiv);
    00684
    00685 /* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char *
    00686         normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm,
    00687          integer *info);
    00688
    00689 /* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, complex *a,
    00690         integer *lda, real *e, complex *tau, complex *w, integer *ldw);
    00691
    00692 /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char *
    00693         normin, integer *n, complex *a, integer *lda, complex *x, real *scale,
    00694          real *cnorm, integer *info);
    00695
    00696 /* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, complex *a,
    00697         integer *lda, complex *tau, complex *work);
    00698
    00699 /* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v,
    00700         integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc,
    00701         complex *work);
    00702
    00703 /* Subroutine */ int clauu2_(char *uplo, integer *n, complex *a, integer *lda,
    00704          integer *info);
    00705
    00706 /* Subroutine */ int clauum_(char *uplo, integer *n, complex *a, integer *lda,
    00707          integer *info);
    00708
    00709 /* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab,
    00710          integer *ldab, real *anorm, real *rcond, complex *work, real *rwork,
    00711         integer *info);
    00712
    00713 /* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab,
    00714          integer *ldab, real *s, real *scond, real *amax, integer *info);
    00715
    00716 /* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer *
    00717         nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb,
    00718         complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *
    00719         berr, complex *work, real *rwork, integer *info);
    00720
    00721 /* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab,
    00722          integer *ldab, integer *info);
    00723
    00724 /* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer *
    00725         nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
    00726         info);
    00727
    00728 /* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
    00729         integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
    00730         ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x,
    00731         integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
    00732         real *rwork, integer *info);
    00733
    00734 /* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab,
    00735          integer *ldab, integer *info);
    00736
    00737 /* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab,
    00738          integer *ldab, integer *info);
    00739
    00740 /* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer *
    00741         nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
    00742         info);
    00743
    00744 /* Subroutine */ int cpocon_(char *uplo, integer *n, complex *a, integer *lda,
    00745          real *anorm, real *rcond, complex *work, real *rwork, integer *info);
    00746
    00747 /* Subroutine */ int cpoequ_(integer *n, complex *a, integer *lda, real *s,
    00748         real *scond, real *amax, integer *info);
    00749
    00750 /* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, complex *
    00751         a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb,
    00752          complex *x, integer *ldx, real *ferr, real *berr, complex *work,
    00753         real *rwork, integer *info);
    00754
    00755 /* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, complex *a,
    00756          integer *lda, complex *b, integer *ldb, integer *info);
    00757
    00758 /* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer *
    00759         nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
    00760         equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
    00761         real *rcond, real *ferr, real *berr, complex *work, real *rwork,
    00762         integer *info);
    00763
    00764 /* Subroutine */ int cpotf2_(char *uplo, integer *n, complex *a, integer *lda,
    00765          integer *info);
    00766
    00767 /* Subroutine */ int cpotrf_(char *uplo, integer *n, complex *a, integer *lda,
    00768          integer *info);
    00769
    00770 /* Subroutine */ int cpotri_(char *uplo, integer *n, complex *a, integer *lda,
    00771          integer *info);
    00772
    00773 /* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *
    00774         a, integer *lda, complex *b, integer *ldb, integer *info);
    00775
    00776 /* Subroutine */ int cppcon_(char *uplo, integer *n, complex *ap, real *anorm,
    00777          real *rcond, complex *work, real *rwork, integer *info);
    00778
    00779 /* Subroutine */ int cppequ_(char *uplo, integer *n, complex *ap, real *s,
    00780         real *scond, real *amax, integer *info);
    00781
    00782 /* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *
    00783         ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx,
    00784         real *ferr, real *berr, complex *work, real *rwork, integer *info);
    00785
    00786 /* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, complex *
    00787         ap, complex *b, integer *ldb, integer *info);
    00788
    00789 /* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer *
    00790         nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b,
    00791         integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real
    00792         *berr, complex *work, real *rwork, integer *info);
    00793
    00794 /* Subroutine */ int cpptrf_(char *uplo, integer *n, complex *ap, integer *
    00795         info);
    00796
    00797 /* Subroutine */ int cpptri_(char *uplo, integer *n, complex *ap, integer *
    00798         info);
    00799
    00800 /* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *
    00801         ap, complex *b, integer *ldb, integer *info);
    00802
    00803 /* Subroutine */ int cptcon_(integer *n, real *d__, complex *e, real *anorm,
    00804         real *rcond, real *rwork, integer *info);
    00805
    00806 /* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__,
    00807          complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
    00808         *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
    00809         integer *info);
    00810
    00811 /* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, complex *e,
    00812         complex *b, integer *ldb, integer *info);
    00813
    00814 /* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
    00815          complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
    00816         *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
    00817         real *rwork, integer *info);
    00818
    00819 /* Subroutine */ int cpttrf_(integer *n, real *d__, complex *e, integer *info);
    00820
    00821 /* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__,
    00822          complex *e, complex *b, integer *ldb, integer *info);
    00823
    00824 /* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *
    00825         d__, complex *e, complex *b, integer *ldb);
    00826
    00827 /* Subroutine */ int crot_(integer *n, complex *cx, integer *incx, complex *
    00828         cy, integer *incy, real *c__, complex *s);
    00829
    00830 /* Subroutine */ int cspcon_(char *uplo, integer *n, complex *ap, integer *
    00831         ipiv, real *anorm, real *rcond, complex *work, integer *info);
    00832
    00833 /* Subroutine */ int cspmv_(char *uplo, integer *n, complex *alpha, complex *
    00834         ap, complex *x, integer *incx, complex *beta, complex *y, integer *
    00835         incy);
    00836
    00837 /* Subroutine */ int cspr_(char *uplo, integer *n, complex *alpha, complex *x,
    00838          integer *incx, complex *ap);
    00839
    00840 /* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, complex *
    00841         ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
    00842          integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
    00843         integer *info);
    00844
    00845 /* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, complex *
    00846         ap, integer *ipiv, complex *b, integer *ldb, integer *info);
    00847
    00848 /* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer *
    00849         nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
    00850         ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
    00851         complex *work, real *rwork, integer *info);
    00852
    00853 /* Subroutine */ int csptrf_(char *uplo, integer *n, complex *ap, integer *
    00854         ipiv, integer *info);
    00855
    00856 /* Subroutine */ int csptri_(char *uplo, integer *n, complex *ap, integer *
    00857         ipiv, complex *work, integer *info);
    00858
    00859 /* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, complex *
    00860         ap, integer *ipiv, complex *b, integer *ldb, integer *info);
    00861
    00862 /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex *
    00863         cy, integer *incy, real *c__, real *s);
    00864
    00865 /* Subroutine */ int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
    00866
    00867 /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e,
    00868         complex *z__, integer *ldz, complex *work, integer *lwork, real *
    00869         rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
    00870         info);
    00871
    00872 /* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real
    00873         *w, integer *iblock, integer *isplit, complex *z__, integer *ldz,
    00874         real *work, integer *iwork, integer *ifail, integer *info);
    00875
    00876 /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e,
    00877         complex *z__, integer *ldz, real *work, integer *info);
    00878
    00879 /* Subroutine */ int csycon_(char *uplo, integer *n, complex *a, integer *lda,
    00880          integer *ipiv, real *anorm, real *rcond, complex *work, integer *
    00881         info);
    00882
    00883 /* Subroutine */ int csymv_(char *uplo, integer *n, complex *alpha, complex *
    00884         a, integer *lda, complex *x, integer *incx, complex *beta, complex *y,
    00885          integer *incy);
    00886
    00887 /* Subroutine */ int csyr_(char *uplo, integer *n, complex *alpha, complex *x,
    00888          integer *incx, complex *a, integer *lda);
    00889
    00890 /* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, complex *
    00891         a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
    00892         b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
    00893         complex *work, real *rwork, integer *info);
    00894
    00895 /* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, complex *a,
    00896          integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
    00897          integer *lwork, integer *info);
    00898
    00899 /* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer *
    00900         nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
    00901         ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
    00902          real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
    00903         integer *info);
    00904
    00905 /* Subroutine */ int csytf2_(char *uplo, integer *n, complex *a, integer *lda,
    00906          integer *ipiv, integer *info);
    00907
    00908 /* Subroutine */ int csytrf_(char *uplo, integer *n, complex *a, integer *lda,
    00909          integer *ipiv, complex *work, integer *lwork, integer *info);
    00910
    00911 /* Subroutine */ int csytri_(char *uplo, integer *n, complex *a, integer *lda,
    00912          integer *ipiv, complex *work, integer *info);
    00913
    00914 /* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, complex *
    00915         a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
    00916         info);
    00917
    00918 /* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n,
    00919         integer *kd, complex *ab, integer *ldab, real *rcond, complex *work,
    00920         real *rwork, integer *info);
    00921
    00922 /* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n,
    00923         integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
    00924         integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
    00925         complex *work, real *rwork, integer *info);
    00926
    00927 /* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n,
    00928         integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
    00929         integer *ldb, integer *info);
    00930
    00931 /* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select,
    00932         integer *n, complex *a, integer *lda, complex *b, integer *ldb,
    00933         complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm,
    00934         integer *m, complex *work, real *rwork, integer *info);
    00935
    00936 /* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n,
    00937         complex *a, integer *lda, complex *b, integer *ldb, complex *q,
    00938         integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info);
    00939
    00940 /* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n,
    00941         complex *a, integer *lda, complex *b, integer *ldb, complex *q,
    00942         integer *ldq, complex *z__, integer *ldz, integer *ifst, integer *
    00943         ilst, integer *info);
    00944
    00945 /* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz,
    00946         logical *select, integer *n, complex *a, integer *lda, complex *b,
    00947         integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
    00948          complex *z__, integer *ldz, integer *m, real *pl, real *pr, real *
    00949         dif, complex *work, integer *lwork, integer *iwork, integer *liwork,
    00950         integer *info);
    00951
    00952 /* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m,
    00953         integer *p, integer *n, integer *k, integer *l, complex *a, integer *
    00954         lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha,
    00955         real *beta, complex *u, integer *ldu, complex *v, integer *ldv,
    00956         complex *q, integer *ldq, complex *work, integer *ncycle, integer *
    00957         info);
    00958
    00959 /* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select,
    00960         integer *n, complex *a, integer *lda, complex *b, integer *ldb,
    00961         complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real
    00962         *dif, integer *mm, integer *m, complex *work, integer *lwork, integer
    00963         *iwork, integer *info);
    00964
    00965 /* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer *
    00966         n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
    00967         integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
    00968         complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal,
    00969         integer *info);
    00970
    00971 /* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer *
    00972         n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
    00973         integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
    00974         complex *f, integer *ldf, real *scale, real *dif, complex *work,
    00975         integer *lwork, integer *iwork, integer *info);
    00976
    00977 /* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n,
    00978         complex *ap, real *rcond, complex *work, real *rwork, integer *info);
    00979
    00980 /* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n,
    00981         integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x,
    00982         integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
    00983         integer *info);
    00984
    00985 /* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, complex *ap,
    00986         integer *info);
    00987
    00988 /* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n,
    00989         integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info);
    00990
    00991 /* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n,
    00992         complex *a, integer *lda, real *rcond, complex *work, real *rwork,
    00993         integer *info);
    00994
    00995 /* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select,
    00996         integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
    00997         complex *vr, integer *ldvr, integer *mm, integer *m, complex *work,
    00998         real *rwork, integer *info);
    00999
    01000 /* Subroutine */ int ctrexc_(char *compq, integer *n, complex *t, integer *
    01001         ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *
    01002         info);
    01003
    01004 /* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n,
    01005         integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
    01006         complex *x, integer *ldx, real *ferr, real *berr, complex *work, real
    01007         *rwork, integer *info);
    01008
    01009 /* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer
    01010         *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w,
    01011         integer *m, real *s, real *sep, complex *work, integer *lwork,
    01012         integer *info);
    01013
    01014 /* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select,
    01015         integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
    01016         complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *
    01017         m, complex *work, integer *ldwork, real *rwork, integer *info);
    01018
    01019 /* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer
    01020         *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
    01021         complex *c__, integer *ldc, real *scale, integer *info);
    01022
    01023 /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a,
    01024         integer *lda, integer *info);
    01025
    01026 /* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, complex *a,
    01027         integer *lda, integer *info);
    01028
    01029 /* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n,
    01030         integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
    01031         integer *info);
    01032
    01033 /* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
    01034          complex *tau, integer *info);
    01035
    01036 /* Subroutine */ int ctzrzf_(integer *m, integer *n, complex *a, integer *lda,
    01037          complex *tau, complex *work, integer *lwork, integer *info);
    01038
    01039 /* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, complex *a,
    01040         integer *lda, complex *tau, complex *work, integer *info);
    01041
    01042 /* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, complex *a,
    01043         integer *lda, complex *tau, complex *work, integer *info);
    01044
    01045 /* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k,
    01046         complex *a, integer *lda, complex *tau, complex *work, integer *lwork,
    01047          integer *info);
    01048
    01049 /* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, complex *
    01050         a, integer *lda, complex *tau, complex *work, integer *lwork, integer
    01051         *info);
    01052
    01053 /* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, complex *a,
    01054         integer *lda, complex *tau, complex *work, integer *info);
    01055
    01056 /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a,
    01057         integer *lda, complex *tau, complex *work, integer *lwork, integer *
    01058         info);
    01059
    01060 /* Subroutine */ int cungql_(integer *m, integer *n, integer *k, complex *a,
    01061         integer *lda, complex *tau, complex *work, integer *lwork, integer *
    01062         info);
    01063
    01064 /* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, complex *a,
    01065         integer *lda, complex *tau, complex *work, integer *lwork, integer *
    01066         info);
    01067
    01068 /* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, complex *a,
    01069         integer *lda, complex *tau, complex *work, integer *info);
    01070
    01071 /* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, complex *a,
    01072         integer *lda, complex *tau, complex *work, integer *lwork, integer *
    01073         info);
    01074
    01075 /* Subroutine */ int cungtr_(char *uplo, integer *n, complex *a, integer *lda,
    01076          complex *tau, complex *work, integer *lwork, integer *info);
    01077
    01078 /* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n,
    01079         integer *k, complex *a, integer *lda, complex *tau, complex *c__,
    01080         integer *ldc, complex *work, integer *info);
    01081
    01082 /* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n,
    01083         integer *k, complex *a, integer *lda, complex *tau, complex *c__,
    01084         integer *ldc, complex *work, integer *info);
    01085
    01086 /* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m,
    01087         integer *n, integer *k, complex *a, integer *lda, complex *tau,
    01088         complex *c__, integer *ldc, complex *work, integer *lwork, integer *
    01089         info);
    01090
    01091 /* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n,
    01092         integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau,
    01093         complex *c__, integer *ldc, complex *work, integer *lwork, integer *
    01094         info);
    01095
    01096 /* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n,
    01097         integer *k, complex *a, integer *lda, complex *tau, complex *c__,
    01098         integer *ldc, complex *work, integer *info);
    01099
    01100 /* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n,
    01101         integer *k, complex *a, integer *lda, complex *tau, complex *c__,
    01102         integer *ldc, complex *work, integer *lwork, integer *info);
    01103
    01104 /* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n,
    01105         integer *k, complex *a, integer *lda, complex *tau, complex *c__,
    01106         integer *ldc, complex *work, integer *lwork, integer *info);
    01107
    01108 /* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n,
    01109         integer *k, complex *a, integer *lda, complex *tau, complex *c__,
    01110         integer *ldc, complex *work, integer *lwork, integer *info);
    01111
    01112 /* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n,
    01113         integer *k, complex *a, integer *lda, complex *tau, complex *c__,
    01114         integer *ldc, complex *work, integer *info);
    01115
    01116 /* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n,
    01117         integer *k, integer *l, complex *a, integer *lda, complex *tau,
    01118         complex *c__, integer *ldc, complex *work, integer *info);
    01119
    01120 /* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n,
    01121         integer *k, complex *a, integer *lda, complex *tau, complex *c__,
    01122         integer *ldc, complex *work, integer *lwork, integer *info);
    01123
    01124 /* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n,
    01125         integer *k, integer *l, complex *a, integer *lda, complex *tau,
    01126         complex *c__, integer *ldc, complex *work, integer *lwork, integer *
    01127         info);
    01128
    01129 /* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m,
    01130         integer *n, complex *a, integer *lda, complex *tau, complex *c__,
    01131         integer *ldc, complex *work, integer *lwork, integer *info);
    01132
    01133 /* Subroutine */ int cupgtr_(char *uplo, integer *n, complex *ap, complex *
    01134         tau, complex *q, integer *ldq, complex *work, integer *info);
    01135
    01136 /* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m,
    01137         integer *n, complex *ap, complex *tau, complex *c__, integer *ldc,
    01138         complex *work, integer *info);
    01139
    01140 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
    01141         d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt,
    01142         integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
    01143         iwork, integer *info);
    01144
    01145 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
    01146         nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt,
    01147         integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
    01148         ldc, doublereal *work, integer *info);
    01149
    01150 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal *
    01151         d__, doublereal *sep, integer *info);
    01152
    01153 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
    01154          integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
    01155         d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt,
    01156         integer *ldpt, doublereal *c__, integer *ldc, doublereal *work,
    01157         integer *info);
    01158
    01159 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
    01160          doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm,
    01161         doublereal *rcond, doublereal *work, integer *iwork, integer *info);
    01162
    01163 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
    01164          doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
    01165         doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
    01166         info);
    01167
    01168 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer *
    01169         ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
    01170         integer *ldafb, integer *ipiv, doublereal *b, integer *ldb,
    01171         doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
    01172         doublereal *work, integer *iwork, integer *info);
    01173
    01174 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer *
    01175         nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b,
    01176         integer *ldb, integer *info);
    01177
    01178 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
    01179          integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
    01180         doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
    01181         doublereal *r__, doublereal *c__, doublereal *b, integer *ldb,
    01182         doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
    01183         doublereal *berr, doublereal *work, integer *iwork, integer *info);
    01184
    01185 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
    01186          doublereal *ab, integer *ldab, integer *ipiv, integer *info);
    01187
    01188 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
    01189          doublereal *ab, integer *ldab, integer *ipiv, integer *info);
    01190
    01191 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer *
    01192         ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv,
    01193         doublereal *b, integer *ldb, integer *info);
    01194
    01195 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo,
    01196         integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
    01197         ldv, integer *info);
    01198
    01199 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer *
    01200         lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
    01201
    01202 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
    01203         lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
    01204         taup, doublereal *work, integer *info);
    01205
    01206 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer *
    01207         lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
    01208         taup, doublereal *work, integer *lwork, integer *info);
    01209
    01210 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer *
    01211         lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    01212         iwork, integer *info);
    01213
    01214 /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer *
    01215         lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
    01216         *colcnd, doublereal *amax, integer *info);
    01217
    01218 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n,
    01219         doublereal *a, integer *lda, integer *sdim, doublereal *wr,
    01220         doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
    01221         integer *lwork, logical *bwork, integer *info);
    01222
    01223 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
    01224         sense, integer *n, doublereal *a, integer *lda, integer *sdim,
    01225         doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
    01226         doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
    01227         lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
    01228
    01229 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
    01230         a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl,
    01231         integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work,
    01232         integer *lwork, integer *info);
    01233
    01234 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
    01235         sense, integer *n, doublereal *a, integer *lda, doublereal *wr,
    01236         doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
    01237         integer *ldvr, integer *ilo, integer *ihi, doublereal *scale,
    01238         doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal
    01239         *work, integer *lwork, integer *iwork, integer *info);
    01240
    01241 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n,
    01242         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    01243         alphar, doublereal *alphai, doublereal *beta, doublereal *vsl,
    01244         integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work,
    01245         integer *lwork, integer *info);
    01246
    01247 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
    01248         a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
    01249         doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
    01250         doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
    01251         integer *info);
    01252
    01253 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi,
    01254         doublereal *a, integer *lda, doublereal *tau, doublereal *work,
    01255         integer *info);
    01256
    01257 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi,
    01258         doublereal *a, integer *lda, doublereal *tau, doublereal *work,
    01259         integer *lwork, integer *info);
    01260
    01261 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
    01262         lda, doublereal *tau, doublereal *work, integer *info);
    01263
    01264 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
    01265         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    01266
    01267 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
    01268         nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb,
    01269         doublereal *work, integer *lwork, integer *info);
    01270
    01271 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs,
    01272         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    01273         s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
    01274          integer *iwork, integer *info);
    01275
    01276 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs,
    01277         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    01278         s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
    01279          integer *info);
    01280
    01281 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs,
    01282         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
    01283         jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
    01284         info);
    01285
    01286 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs,
    01287         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
    01288         jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
    01289         lwork, integer *info);
    01290
    01291 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer *
    01292         lda, doublereal *tau, doublereal *work, integer *info);
    01293
    01294 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
    01295         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    01296
    01297 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
    01298         lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
    01299          integer *info);
    01300
    01301 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
    01302         lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
    01303
    01304 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
    01305         lda, doublereal *tau, doublereal *work, integer *info);
    01306
    01307 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
    01308         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    01309
    01310 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs,
    01311         doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
    01312         ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
    01313         doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
    01314         integer *info);
    01315
    01316 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer *
    01317         lda, doublereal *tau, doublereal *work, integer *info);
    01318
    01319 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer *
    01320         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    01321
    01322 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda,
    01323         doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
    01324
    01325 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
    01326         a, integer *lda, doublereal *s, doublereal *u, integer *ldu,
    01327         doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
    01328         integer *iwork, integer *info);
    01329
    01330 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer
    01331         *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
    01332
    01333 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
    01334         doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
    01335         ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
    01336         integer *info);
    01337
    01338 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer *
    01339         nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
    01340         integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
    01341         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    01342         rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    01343         iwork, integer *info);
    01344
    01345 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer
    01346         *ipiv, integer *jpiv, integer *info);
    01347
    01348 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer *
    01349         lda, integer *ipiv, integer *info);
    01350
    01351 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
    01352         lda, integer *ipiv, integer *info);
    01353
    01354 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer
    01355         *ipiv, doublereal *work, integer *lwork, integer *info);
    01356
    01357 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs,
    01358         doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
    01359         ldb, integer *info);
    01360
    01361 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo,
    01362         integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
    01363         doublereal *v, integer *ldv, integer *info);
    01364
    01365 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer *
    01366         lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi,
    01367         doublereal *lscale, doublereal *rscale, doublereal *work, integer *
    01368         info);
    01369
    01370 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
    01371         delctg, integer *n, doublereal *a, integer *lda, doublereal *b,
    01372         integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
    01373         doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
    01374         integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,
    01375         integer *info);
    01376
    01377 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
    01378         delctg, char *sense, integer *n, doublereal *a, integer *lda,
    01379         doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
    01380         doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
    01381          doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
    01382         rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
    01383         liwork, logical *bwork, integer *info);
    01384
    01385 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
    01386         a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
    01387         doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
    01388         doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
    01389         integer *info);
    01390
    01391 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
    01392         sense, integer *n, doublereal *a, integer *lda, doublereal *b,
    01393         integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    01394         beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
    01395         integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
    01396         doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
    01397         rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
    01398         bwork, integer *info);
    01399
    01400 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal *
    01401         a, integer *lda, doublereal *b, integer *ldb, doublereal *d__,
    01402         doublereal *x, doublereal *y, doublereal *work, integer *lwork,
    01403         integer *info);
    01404
    01405 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer *
    01406         ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b,
    01407         integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
    01408         ldz, integer *info);
    01409
    01410 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal *
    01411         a, integer *lda, doublereal *b, integer *ldb, doublereal *c__,
    01412         doublereal *d__, doublereal *x, doublereal *work, integer *lwork,
    01413         integer *info);
    01414
    01415 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal *
    01416         a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
    01417         doublereal *taub, doublereal *work, integer *lwork, integer *info);
    01418
    01419 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal *
    01420         a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
    01421         doublereal *taub, doublereal *work, integer *lwork, integer *info);
    01422
    01423 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
    01424         integer *n, integer *p, integer *k, integer *l, doublereal *a,
    01425         integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
    01426         doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer
    01427         *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork,
    01428         integer *info);
    01429
    01430 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
    01431         integer *p, integer *n, doublereal *a, integer *lda, doublereal *b,
    01432         integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer
    01433         *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv,
    01434         doublereal *q, integer *ldq, integer *iwork, doublereal *tau,
    01435         doublereal *work, integer *info);
    01436
    01437 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl,
    01438         doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv,
    01439         doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    01440         iwork, integer *info);
    01441
    01442 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs,
    01443         doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf,
    01444         doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
    01445         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    01446         ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
    01447         info);
    01448
    01449 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl,
    01450         doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer
    01451         *info);
    01452
    01453 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer *
    01454         nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
    01455         dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
    01456         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    01457         rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    01458         iwork, integer *info);
    01459
    01460 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__,
    01461         doublereal *du, doublereal *du2, integer *ipiv, integer *info);
    01462
    01463 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs,
    01464         doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
    01465         integer *ipiv, doublereal *b, integer *ldb, integer *info);
    01466
    01467 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs,
    01468         doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
    01469         integer *ipiv, doublereal *b, integer *ldb);
    01470
    01471 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n,
    01472         integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
    01473         b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    01474         beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
    01475         doublereal *work, integer *lwork, integer *info);
    01476
    01477 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
    01478         select, integer *n, doublereal *h__, integer *ldh, doublereal *wr,
    01479         doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
    01480         integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
    01481         ifaill, integer *ifailr, integer *info);
    01482
    01483 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
    01484          integer *ihi, doublereal *h__, integer *ldh, doublereal *wr,
    01485         doublereal *wi, doublereal *z__, integer *ldz, doublereal *work,
    01486         integer *lwork, integer *info);
    01487
    01488 /* Subroutine */ int dlabad_(doublereal *ssmall, doublereal *llarge);
    01489
    01490 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
    01491         a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq,
    01492         doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer
    01493         *ldy);
    01494
    01495 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x,
    01496         integer *isgn, doublereal *est, integer *kase);
    01497
    01498 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
    01499         a, integer *lda, doublereal *b, integer *ldb);
    01500
    01501 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
    01502         doublereal *d__, doublereal *p, doublereal *q);
    01503
    01504 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__,
    01505         doublereal *rt1, doublereal *rt2);
    01506
    01507 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n,
    01508         integer *mmax, integer *minp, integer *nbmin, doublereal *abstol,
    01509         doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
    01510         e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__,
    01511         integer *mout, integer *nab, doublereal *work, integer *iwork,
    01512         integer *info);
    01513
    01514 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n,
    01515         doublereal *d__, doublereal *e, doublereal *q, integer *ldq,
    01516         doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork,
    01517         integer *info);
    01518
    01519 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q,
    01520         integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt,
    01521         doublereal *work, integer *iwork, integer *info);
    01522
    01523 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
    01524         d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho,
    01525         doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2,
    01526         integer *indx, integer *indxc, integer *indxp, integer *coltyp,
    01527         integer *info);
    01528
    01529 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
    01530         d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
    01531          doublereal *q2, integer *indx, integer *ctot, doublereal *w,
    01532         doublereal *s, integer *info);
    01533
    01534 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__,
    01535         doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
    01536          integer *info);
    01537
    01538 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__,
    01539         doublereal *delta, doublereal *rho, doublereal *dlam);
    01540
    01541 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal *
    01542         rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
    01543         tau, integer *info);
    01544
    01545 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz,
    01546         integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
    01547         doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer
    01548         *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
    01549         perm, integer *givptr, integer *givcol, doublereal *givnum,
    01550         doublereal *work, integer *iwork, integer *info);
    01551
    01552 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer
    01553         *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq,
    01554         doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
    01555          doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer
    01556         *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer
    01557         *indx, integer *info);
    01558
    01559 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop,
    01560         integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
    01561         rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds,
    01562         integer *info);
    01563
    01564 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl,
    01565         integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
    01566         integer *givcol, doublereal *givnum, doublereal *q, integer *qptr,
    01567         doublereal *z__, doublereal *ztemp, integer *info);
    01568
    01569 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n,
    01570         doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi,
    01571         doublereal *vr, doublereal *vi, doublereal *b, integer *ldb,
    01572         doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
    01573         bignum, integer *info);
    01574
    01575 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__,
    01576         doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
    01577
    01578 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t,
    01579         integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1,
    01580         integer *n2, doublereal *work, integer *info);
    01581
    01582 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b,
    01583         integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
    01584         scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
    01585
    01586 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2,
    01587         doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3,
    01588         doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv,
    01589         doublereal *csq, doublereal *snq);
    01590
    01591 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda,
    01592         doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__,
    01593         integer *in, integer *info);
    01594
    01595 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs,
    01596         doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du,
    01597         doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer
    01598         *ldb);
    01599
    01600 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a,
    01601         doublereal *b, doublereal *c__, doublereal *d__, integer *in,
    01602         doublereal *y, doublereal *tol, integer *info);
    01603
    01604 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b,
    01605         integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    01606         beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
    01607         snr);
    01608
    01609 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n,
    01610         integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
    01611         *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
    01612         integer *ldz, integer *info);
    01613
    01614 /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
    01615         a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
    01616         doublereal *y, integer *ldy);
    01617
    01618 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x,
    01619         doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
    01620         sestpr, doublereal *s, doublereal *c__);
    01621
    01622 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw,
    01623         doublereal *smin, doublereal *ca, doublereal *a, integer *lda,
    01624         doublereal *d1, doublereal *d2, doublereal *b, integer *ldb,
    01625         doublereal *wr, doublereal *wi, doublereal *x, integer *ldx,
    01626         doublereal *scale, doublereal *xnorm, integer *info);
    01627
    01628 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr,
    01629         integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal
    01630         *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol,
    01631         integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
    01632         poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
    01633         k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
    01634
    01635 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n,
    01636         integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
    01637         ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k,
    01638         doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
    01639         poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
    01640         perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
    01641         work, integer *iwork, integer *info);
    01642
    01643 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer
    01644         *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb,
    01645         doublereal *rcond, integer *rank, doublereal *work, integer *iwork,
    01646         integer *info);
    01647
    01648 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical
    01649         *ieee1);
    01650
    01651 /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd,
    01652         doublereal *eps, integer *emin, doublereal *rmin, integer *emax,
    01653         doublereal *rmax);
    01654
    01655 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base);
    01656
    01657 /* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin,
    01658         logical *ieee, integer *emax, doublereal *rmax);
    01659
    01660 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer
    01661         *dtrd1, integer *dtrd2, integer *index);
    01662
    01663 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__,
    01664         doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
    01665          doublereal *rt2i, doublereal *cs, doublereal *sn);
    01666
    01667 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx,
    01668         doublereal *y, integer *incy, doublereal *ssmin);
    01669
    01670 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n,
    01671         doublereal *x, integer *ldx, integer *k);
    01672
    01673 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
    01674          doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
    01675         doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
    01676
    01677 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer *
    01678         lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
    01679         *colcnd, doublereal *amax, char *equed);
    01680
    01681 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset,
    01682         doublereal *a, integer *lda, integer *jpvt, doublereal *tau,
    01683         doublereal *vn1, doublereal *vn2, doublereal *work);
    01684
    01685 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer
    01686         *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt,
    01687         doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv,
    01688         doublereal *f, integer *ldf);
    01689
    01690 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
    01691         ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
    01692          char *equed);
    01693
    01694 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap,
    01695         doublereal *s, doublereal *scond, doublereal *amax, char *equed);
    01696
    01697 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
    01698         lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
    01699
    01700 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n,
    01701         doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal
    01702         *scale, doublereal *x, doublereal *work, integer *info);
    01703
    01704 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal
    01705         *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
    01706         lld, doublereal *gersch, doublereal *z__, doublereal *ztz, doublereal
    01707         *mingma, integer *r__, integer *isuppz, doublereal *work);
    01708
    01709 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y,
    01710         doublereal *z__, integer *incx, doublereal *c__, doublereal *s,
    01711         integer *incc);
    01712
    01713 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v,
    01714          integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
    01715         doublereal *work);
    01716
    01717 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
    01718         storev, integer *m, integer *n, integer *k, doublereal *v, integer *
    01719         ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc,
    01720         doublereal *work, integer *ldwork);
    01721
    01722 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x,
    01723         integer *incx, doublereal *tau);
    01724
    01725 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
    01726         k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
    01727         integer *ldt);
    01728
    01729 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal *
    01730         v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
    01731
    01732 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx,
    01733         doublereal *y, integer *incy, doublereal *c__, integer *incc);
    01734
    01735 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n,
    01736         doublereal *x);
    01737
    01738 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *l,
    01739         doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast,
    01740         doublereal *sigma, doublereal *reltol, doublereal *w, doublereal *
    01741         wgap, doublereal *werr, doublereal *work, integer *iwork, integer *
    01742         info);
    01743
    01744 /* Subroutine */ int dlarre_(integer *n, doublereal *d__, doublereal *e,
    01745         doublereal *tol, integer *nsplit, integer *isplit, integer *m,
    01746         doublereal *w, doublereal *woff, doublereal *gersch, doublereal *work,
    01747          integer *info);
    01748
    01749 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l,
    01750         doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast,
    01751         doublereal *w, doublereal *dplus, doublereal *lplus, doublereal *work,
    01752          integer *iwork, integer *info);
    01753
    01754 /* Subroutine */ int dlarrv_(integer *n, doublereal *d__, doublereal *l,
    01755         integer *isplit, integer *m, doublereal *w, integer *iblock,
    01756         doublereal *gersch, doublereal *tol, doublereal *z__, integer *ldz,
    01757         integer *isuppz, doublereal *work, integer *iwork, integer *info);
    01758
    01759 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs,
    01760         doublereal *sn, doublereal *r__);
    01761
    01762 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx,
    01763         doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer
    01764         *incc);
    01765
    01766 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x);
    01767
    01768 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l,
    01769         doublereal *v, integer *incv, doublereal *tau, doublereal *c__,
    01770         integer *ldc, doublereal *work);
    01771
    01772 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
    01773         storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
    01774          integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
    01775         ldc, doublereal *work, integer *ldwork);
    01776
    01777 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer *
    01778         k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
    01779         integer *ldt);
    01780
    01781 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__,
    01782         doublereal *ssmin, doublereal *ssmax);
    01783
    01784 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku,
    01785         doublereal *cfrom, doublereal *cto, integer *m, integer *n,
    01786         doublereal *a, integer *lda, integer *info);
    01787
    01788 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__,
    01789         doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
    01790         ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
    01791         info);
    01792
    01793 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre,
    01794         doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u,
    01795         integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
    01796         iwork, doublereal *work, integer *info);
    01797
    01798 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer
    01799         *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
    01800         beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt,
    01801         doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2,
    01802         integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
    01803         idxq, integer *coltyp, integer *info);
    01804
    01805 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer
    01806         *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma,
    01807         doublereal *u, integer *ldu, doublereal *u2, integer *ldu2,
    01808         doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2,
    01809         integer *idxc, integer *ctot, doublereal *z__, integer *info);
    01810
    01811 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__,
    01812         doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
    01813         sigma, doublereal *work, integer *info);
    01814
    01815 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__,
    01816         doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
    01817         work);
    01818
    01819 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr,
    01820         integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl,
    01821         doublereal *alpha, doublereal *beta, integer *idxq, integer *perm,
    01822         integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
    01823          integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
    01824         difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s,
    01825         doublereal *work, integer *iwork, integer *info);
    01826
    01827 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr,
    01828         integer *sqre, integer *k, doublereal *d__, doublereal *z__,
    01829         doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl,
    01830         doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
    01831         dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm,
    01832         integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
    01833          integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
    01834
    01835 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__,
    01836         doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl,
    01837         doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
    01838         work, integer *info);
    01839
    01840 /* Subroutine */ int dlasd9_(integer *icompq, integer *ldu, integer *k,
    01841         doublereal *d__, doublereal *z__, doublereal *vf, doublereal *vl,
    01842         doublereal *difl, doublereal *difr, doublereal *dsigma, doublereal *
    01843         work, integer *info);
    01844
    01845 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n,
    01846         integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer
    01847         *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr,
    01848         doublereal *z__, doublereal *poles, integer *givptr, integer *givcol,
    01849         integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__,
    01850         doublereal *s, doublereal *work, integer *iwork, integer *info);
    01851
    01852 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
    01853         ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e,
    01854         doublereal *vt, integer *ldvt, doublereal *u, integer *ldu,
    01855         doublereal *c__, integer *ldc, doublereal *work, integer *info);
    01856
    01857 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
    01858         inode, integer *ndiml, integer *ndimr, integer *msub);
    01859
    01860 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
    01861         alpha, doublereal *beta, doublereal *a, integer *lda);
    01862
    01863 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e,
    01864         doublereal *work, integer *info);
    01865
    01866 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info);
    01867
    01868 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__,
    01869         integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
    01870          doublereal *qmax, integer *nfail, integer *iter, integer *ndiv,
    01871         logical *ieee);
    01872
    01873 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__,
    01874         integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1,
    01875         doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2,
    01876         doublereal *tau, integer *ttype);
    01877
    01878 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__,
    01879         integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1,
    01880         doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
    01881          logical *ieee);
    01882
    01883 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__,
    01884         integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
    01885          doublereal *dn, doublereal *dnm1, doublereal *dnm2);
    01886
    01887 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m,
    01888          integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
    01889         lda);
    01890
    01891 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
    01892         info);
    01893
    01894 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx,
    01895         doublereal *scale, doublereal *sumsq);
    01896
    01897 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__,
    01898         doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
    01899         csr, doublereal *snl, doublereal *csl);
    01900
    01901 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer
    01902         *k1, integer *k2, integer *ipiv, integer *incx);
    01903
    01904 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn,
    01905         integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
    01906         tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale,
    01907         doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
    01908
    01909 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
    01910          doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
    01911         ldw, integer *info);
    01912
    01913 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
    01914         normin, integer *n, integer *kd, doublereal *ab, integer *ldab,
    01915         doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
    01916
    01917 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__,
    01918         integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal,
    01919         integer *ipiv, integer *jpiv);
    01920
    01921 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
    01922         normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale,
    01923         doublereal *cnorm, integer *info);
    01924
    01925 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
    01926         a, integer *lda, doublereal *e, doublereal *tau, doublereal *w,
    01927         integer *ldw);
    01928
    01929 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
    01930         normin, integer *n, doublereal *a, integer *lda, doublereal *x,
    01931         doublereal *scale, doublereal *cnorm, integer *info);
    01932
    01933 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal *
    01934         a, integer *lda, doublereal *tau, doublereal *work);
    01935
    01936 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal *
    01937         v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2,
    01938         integer *ldc, doublereal *work);
    01939
    01940 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
    01941         lda, integer *info);
    01942
    01943 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer *
    01944         lda, integer *info);
    01945
    01946 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap,
    01947         doublereal *tau, doublereal *q, integer *ldq, doublereal *work,
    01948         integer *info);
    01949
    01950 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m,
    01951         integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer
    01952         *ldc, doublereal *work, integer *info);
    01953
    01954 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal *
    01955         a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    01956
    01957 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal *
    01958         a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    01959
    01960 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k,
    01961         doublereal *a, integer *lda, doublereal *tau, doublereal *work,
    01962         integer *lwork, integer *info);
    01963
    01964 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi,
    01965         doublereal *a, integer *lda, doublereal *tau, doublereal *work,
    01966         integer *lwork, integer *info);
    01967
    01968 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal *
    01969         a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    01970
    01971 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal *
    01972         a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
    01973         integer *info);
    01974
    01975 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal *
    01976         a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
    01977         integer *info);
    01978
    01979 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal *
    01980         a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
    01981         integer *info);
    01982
    01983 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal *
    01984         a, integer *lda, doublereal *tau, doublereal *work, integer *info);
    01985
    01986 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal *
    01987         a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
    01988         integer *info);
    01989
    01990 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
    01991         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    01992
    01993 /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n,
    01994         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    01995         c__, integer *ldc, doublereal *work, integer *info);
    01996
    01997 /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n,
    01998         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    01999         c__, integer *ldc, doublereal *work, integer *info);
    02000
    02001 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m,
    02002         integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau,
    02003         doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
    02004         integer *info);
    02005
    02006 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n,
    02007         integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
    02008         tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
    02009         integer *info);
    02010
    02011 /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n,
    02012         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    02013         c__, integer *ldc, doublereal *work, integer *info);
    02014
    02015 /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n,
    02016         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    02017         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    02018
    02019 /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n,
    02020         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    02021         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    02022
    02023 /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n,
    02024         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    02025         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    02026
    02027 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n,
    02028         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    02029         c__, integer *ldc, doublereal *work, integer *info);
    02030
    02031 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n,
    02032         integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
    02033         doublereal *c__, integer *ldc, doublereal *work, integer *info);
    02034
    02035 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n,
    02036         integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
    02037         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    02038
    02039 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n,
    02040         integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
    02041         doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
    02042         integer *info);
    02043
    02044 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m,
    02045         integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
    02046         c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
    02047
    02048 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
    02049         ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
    02050         work, integer *iwork, integer *info);
    02051
    02052 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
    02053         ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
    02054          integer *info);
    02055
    02056 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
    02057         nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
    02058         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    02059         ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
    02060         info);
    02061
    02062 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
    02063         ab, integer *ldab, integer *info);
    02064
    02065 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer *
    02066         nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
    02067         integer *info);
    02068
    02069 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
    02070         integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
    02071         integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
    02072         ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
    02073          doublereal *berr, doublereal *work, integer *iwork, integer *info);
    02074
    02075 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
    02076         ab, integer *ldab, integer *info);
    02077
    02078 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
    02079         ab, integer *ldab, integer *info);
    02080
    02081 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
    02082         nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
    02083         integer *info);
    02084
    02085 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer *
    02086         lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    02087         iwork, integer *info);
    02088
    02089 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda,
    02090         doublereal *s, doublereal *scond, doublereal *amax, integer *info);
    02091
    02092 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs,
    02093         doublereal *a, integer *lda, doublereal *af, integer *ldaf,
    02094         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    02095         ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
    02096         info);
    02097
    02098 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal
    02099         *a, integer *lda, doublereal *b, integer *ldb, integer *info);
    02100
    02101 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer *
    02102         nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
    02103         char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
    02104         x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
    02105         berr, doublereal *work, integer *iwork, integer *info);
    02106
    02107 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
    02108         lda, integer *info);
    02109
    02110 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
    02111         lda, integer *info);
    02112
    02113 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer *
    02114         lda, integer *info);
    02115
    02116 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs,
    02117         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
    02118         info);
    02119
    02120 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap,
    02121         doublereal *anorm, doublereal *rcond, doublereal *work, integer *
    02122         iwork, integer *info);
    02123
    02124 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap,
    02125         doublereal *s, doublereal *scond, doublereal *amax, integer *info);
    02126
    02127 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs,
    02128         doublereal *ap, doublereal *afp, doublereal *b, integer *ldb,
    02129         doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
    02130         doublereal *work, integer *iwork, integer *info);
    02131
    02132 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal
    02133         *ap, doublereal *b, integer *ldb, integer *info);
    02134
    02135 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer *
    02136         nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s,
    02137         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    02138         rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    02139         iwork, integer *info);
    02140
    02141 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
    02142         info);
    02143
    02144 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
    02145         info);
    02146
    02147 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs,
    02148         doublereal *ap, doublereal *b, integer *ldb, integer *info);
    02149
    02150 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e,
    02151         doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
    02152
    02153 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__,
    02154         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
    02155         integer *info);
    02156
    02157 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__,
    02158         doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer
    02159         *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
    02160          doublereal *work, integer *info);
    02161
    02162 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__,
    02163         doublereal *e, doublereal *b, integer *ldb, integer *info);
    02164
    02165 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs,
    02166         doublereal *d__, doublereal *e, doublereal *df, doublereal *ef,
    02167         doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
    02168         rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
    02169         info);
    02170
    02171 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e,
    02172         integer *info);
    02173
    02174 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__,
    02175         doublereal *e, doublereal *b, integer *ldb, integer *info);
    02176
    02177 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__,
    02178         doublereal *e, doublereal *b, integer *ldb);
    02179
    02180 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx,
    02181         integer *incx);
    02182
    02183 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd,
    02184         doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
    02185         integer *ldz, doublereal *work, integer *info);
    02186
    02187 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd,
    02188         doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
    02189         integer *ldz, doublereal *work, integer *lwork, integer *iwork,
    02190         integer *liwork, integer *info);
    02191
    02192 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n,
    02193         integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
    02194         ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu,
    02195         doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
    02196         integer *ldz, doublereal *work, integer *iwork, integer *ifail,
    02197         integer *info);
    02198
    02199 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka,
    02200         integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
    02201         ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
    02202
    02203 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka,
    02204         integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
    02205         ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
    02206         integer *info);
    02207
    02208 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
    02209         integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
    02210         ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
    02211         integer *lwork, integer *iwork, integer *liwork, integer *info);
    02212
    02213 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n,
    02214         integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
    02215         bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl,
    02216         doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
    02217         *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
    02218         integer *iwork, integer *ifail, integer *info);
    02219
    02220 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd,
    02221         doublereal *ab, integer *ldab, doublereal *d__, doublereal *e,
    02222         doublereal *q, integer *ldq, doublereal *work, integer *info);
    02223
    02224 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
    02225         ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer
    02226         *iwork, integer *info);
    02227
    02228 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal *
    02229         ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
    02230         integer *info);
    02231
    02232 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal *
    02233         ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
    02234         integer *lwork, integer *iwork, integer *liwork, integer *info);
    02235
    02236 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n,
    02237         doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *
    02238         iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
    02239         integer *ldz, doublereal *work, integer *iwork, integer *ifail,
    02240         integer *info);
    02241
    02242 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n,
    02243         doublereal *ap, doublereal *bp, integer *info);
    02244
    02245 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer *
    02246         n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
    02247         integer *ldz, doublereal *work, integer *info);
    02248
    02249 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer *
    02250         n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
    02251         integer *ldz, doublereal *work, integer *lwork, integer *iwork,
    02252         integer *liwork, integer *info);
    02253
    02254 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char *
    02255         uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl,
    02256         doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
    02257         *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
    02258         integer *iwork, integer *ifail, integer *info);
    02259
    02260 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs,
    02261         doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
    02262         integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
    02263         doublereal *berr, doublereal *work, integer *iwork, integer *info);
    02264
    02265 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal
    02266         *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
    02267
    02268 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer *
    02269         nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
    02270         integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
    02271         doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
    02272         integer *info);
    02273
    02274 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap,
    02275         doublereal *d__, doublereal *e, doublereal *tau, integer *info);
    02276
    02277 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
    02278         ipiv, integer *info);
    02279
    02280 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
    02281         ipiv, doublereal *work, integer *info);
    02282
    02283 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs,
    02284         doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
    02285         info);
    02286
    02287 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal
    02288         *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
    02289         doublereal *d__, doublereal *e, integer *m, integer *nsplit,
    02290         doublereal *w, integer *iblock, integer *isplit, doublereal *work,
    02291         integer *iwork, integer *info);
    02292
    02293 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__,
    02294         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
    02295         integer *lwork, integer *iwork, integer *liwork, integer *info);
    02296
    02297 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal *
    02298         d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
    02299         integer *iu, doublereal *abstol, integer *m, doublereal *w,
    02300         doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
    02301         integer *lwork, integer *iwork, integer *liwork, integer *info);
    02302
    02303 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e,
    02304         integer *m, doublereal *w, integer *iblock, integer *isplit,
    02305         doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
    02306         integer *ifail, integer *info);
    02307
    02308 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__,
    02309         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
    02310         integer *info);
    02311
    02312 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e,
    02313         integer *info);
    02314
    02315 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__,
    02316         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
    02317         integer *info);
    02318
    02319 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__,
    02320         doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
    02321         integer *lwork, integer *iwork, integer *liwork, integer *info);
    02322
    02323 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal *
    02324         d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
    02325         integer *iu, doublereal *abstol, integer *m, doublereal *w,
    02326         doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
    02327         integer *lwork, integer *iwork, integer *liwork, integer *info);
    02328
    02329 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal *
    02330         d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
    02331         integer *iu, doublereal *abstol, integer *m, doublereal *w,
    02332         doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
    02333         integer *ifail, integer *info);
    02334
    02335 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer *
    02336         lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *
    02337         work, integer *iwork, integer *info);
    02338
    02339 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
    02340          integer *lda, doublereal *w, doublereal *work, integer *lwork,
    02341         integer *info);
    02342
    02343 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *
    02344         a, integer *lda, doublereal *w, doublereal *work, integer *lwork,
    02345         integer *iwork, integer *liwork, integer *info);
    02346
    02347 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n,
    02348         doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
    02349         il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
    02350         doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
    02351         integer *lwork, integer *iwork, integer *liwork, integer *info);
    02352
    02353 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n,
    02354         doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
    02355         il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
    02356         doublereal *z__, integer *ldz, doublereal *work, integer *lwork,
    02357         integer *iwork, integer *ifail, integer *info);
    02358
    02359 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n,
    02360         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
    02361         info);
    02362
    02363 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n,
    02364         doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
    02365         info);
    02366
    02367 /* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer *
    02368         n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
    02369         doublereal *w, doublereal *work, integer *lwork, integer *info);
    02370
    02371 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer *
    02372         n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
    02373         doublereal *w, doublereal *work, integer *lwork, integer *iwork,
    02374         integer *liwork, integer *info);
    02375
    02376 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char *
    02377         uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer
    02378         *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu,
    02379         doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
    02380         integer *ldz, doublereal *work, integer *lwork, integer *iwork,
    02381         integer *ifail, integer *info);
    02382
    02383 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs,
    02384         doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
    02385         ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
    02386         doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
    02387         integer *info);
    02388
    02389 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal
    02390         *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb,
    02391         doublereal *work, integer *lwork, integer *info);
    02392
    02393 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer *
    02394         nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
    02395         integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *
    02396         ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
    02397         doublereal *work, integer *lwork, integer *iwork, integer *info);
    02398
    02399 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
    02400         lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
    02401
    02402 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
    02403         lda, integer *ipiv, integer *info);
    02404
    02405 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer *
    02406         lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *
    02407         work, integer *lwork, integer *info);
    02408
    02409 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
    02410         lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
    02411
    02412 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer *
    02413         lda, integer *ipiv, doublereal *work, integer *info);
    02414
    02415 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs,
    02416         doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
    02417         ldb, integer *info);
    02418
    02419 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n,
    02420         integer *kd, doublereal *ab, integer *ldab, doublereal *rcond,
    02421         doublereal *work, integer *iwork, integer *info);
    02422
    02423 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n,
    02424         integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
    02425         *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
    02426         doublereal *berr, doublereal *work, integer *iwork, integer *info);
    02427
    02428 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n,
    02429         integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
    02430         *b, integer *ldb, integer *info);
    02431
    02432 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select,
    02433         integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
    02434         doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer
    02435         *mm, integer *m, doublereal *work, integer *info);
    02436
    02437 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n,
    02438         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    02439         q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *
    02440         n1, integer *n2, doublereal *work, integer *lwork, integer *info);
    02441
    02442 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n,
    02443         doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
    02444         q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst,
    02445         integer *ilst, doublereal *work, integer *lwork, integer *info);
    02446
    02447 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz,
    02448         logical *select, integer *n, doublereal *a, integer *lda, doublereal *
    02449         b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
    02450         beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
    02451         integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
    02452         doublereal *work, integer *lwork, integer *iwork, integer *liwork,
    02453         integer *info);
    02454
    02455 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m,
    02456         integer *p, integer *n, integer *k, integer *l, doublereal *a,
    02457         integer *lda, doublereal *b, integer *ldb, doublereal *tola,
    02458         doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u,
    02459         integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *
    02460         ldq, doublereal *work, integer *ncycle, integer *info);
    02461
    02462 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select,
    02463         integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
    02464         doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
    02465         doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *
    02466         work, integer *lwork, integer *iwork, integer *info);
    02467
    02468 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
    02469         n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
    02470         doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
    02471         doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
    02472         scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer
    02473         *pq, integer *info);
    02474
    02475 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer *
    02476         n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
    02477         doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
    02478         doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
    02479         scale, doublereal *dif, doublereal *work, integer *lwork, integer *
    02480         iwork, integer *info);
    02481
    02482 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n,
    02483         doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork,
    02484         integer *info);
    02485
    02486 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n,
    02487         integer *nrhs, doublereal *ap, doublereal *b, integer *ldb,
    02488         doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
    02489         doublereal *work, integer *iwork, integer *info);
    02490
    02491 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal *
    02492         ap, integer *info);
    02493
    02494 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n,
    02495         integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
    02496         info);
    02497
    02498 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n,
    02499         doublereal *a, integer *lda, doublereal *rcond, doublereal *work,
    02500         integer *iwork, integer *info);
    02501
    02502 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select,
    02503         integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
    02504         ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m,
    02505         doublereal *work, integer *info);
    02506
    02507 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer *
    02508         ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst,
    02509         doublereal *work, integer *info);
    02510
    02511 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n,
    02512         integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
    02513         ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
    02514         doublereal *work, integer *iwork, integer *info);
    02515
    02516 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer
    02517         *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq,
    02518         doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal
    02519         *sep, doublereal *work, integer *lwork, integer *iwork, integer *
    02520         liwork, integer *info);
    02521
    02522 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select,
    02523         integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
    02524         ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep,
    02525         integer *mm, integer *m, doublereal *work, integer *ldwork, integer *
    02526         iwork, integer *info);
    02527
    02528 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer
    02529         *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *
    02530         ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info);
    02531
    02532 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
    02533         a, integer *lda, integer *info);
    02534
    02535 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
    02536         a, integer *lda, integer *info);
    02537
    02538 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n,
    02539         integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
    02540         ldb, integer *info);
    02541
    02542 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
    02543         lda, doublereal *tau, integer *info);
    02544
    02545 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer *
    02546         lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
    02547
    02548 integer icmax1_(integer *n, complex *cx, integer *incx);
    02549
    02550 integer ieeeck_(integer *ispec, real *zero, real *one);
    02551
    02552 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
    02553         integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen
    02554         opts_len);
    02555
    02556 integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
    02557
    02558 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__,
    02559         real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q,
    02560         integer *iq, real *work, integer *iwork, integer *info);
    02561
    02562 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
    02563         nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *
    02564         u, integer *ldu, real *c__, integer *ldc, real *work, integer *info);
    02565
    02566 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__,
    02567         real *sep, integer *info);
    02568
    02569 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
    02570          integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *
    02571         e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer
    02572         *ldc, real *work, integer *info);
    02573
    02574 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku,
    02575          real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
    02576         real *work, integer *iwork, integer *info);
    02577
    02578 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku,
    02579          real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
    02580         colcnd, real *amax, integer *info);
    02581
    02582 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer *
    02583         ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
    02584          integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
    02585         ferr, real *berr, real *work, integer *iwork, integer *info);
    02586
    02587 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer *
    02588         nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb,
    02589         integer *info);
    02590
    02591 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl,
    02592          integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
    02593         integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
    02594         real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
    02595          real *berr, real *work, integer *iwork, integer *info);
    02596
    02597 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
    02598          real *ab, integer *ldab, integer *ipiv, integer *info);
    02599
    02600 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
    02601          real *ab, integer *ldab, integer *ipiv, integer *info);
    02602
    02603 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer *
    02604         ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b,
    02605         integer *ldb, integer *info);
    02606
    02607 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo,
    02608         integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer
    02609         *info);
    02610
    02611 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda,
    02612         integer *ilo, integer *ihi, real *scale, integer *info);
    02613
    02614 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda,
    02615         real *d__, real *e, real *tauq, real *taup, real *work, integer *info);
    02616
    02617 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda,
    02618         real *d__, real *e, real *tauq, real *taup, real *work, integer *
    02619         lwork, integer *info);
    02620
    02621 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda,
    02622         real *anorm, real *rcond, real *work, integer *iwork, integer *info);
    02623
    02624 /* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda,
    02625         real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer
    02626         *info);
    02627
    02628 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n,
    02629         real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs,
    02630         integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
    02631         info);
    02632
    02633 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char *
    02634         sense, integer *n, real *a, integer *lda, integer *sdim, real *wr,
    02635         real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
    02636         work, integer *lwork, integer *iwork, integer *liwork, logical *bwork,
    02637          integer *info);
    02638
    02639 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a,
    02640         integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr,
    02641         integer *ldvr, real *work, integer *lwork, integer *info);
    02642
    02643 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *
    02644         sense, integer *n, real *a, integer *lda, real *wr, real *wi, real *
    02645         vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *
    02646         ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work,
    02647          integer *lwork, integer *iwork, integer *info);
    02648
    02649 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a,
    02650         integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
    02651         *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
    02652         work, integer *lwork, integer *info);
    02653
    02654 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a,
    02655         integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
    02656         *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
    02657         integer *lwork, integer *info);
    02658
    02659 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a,
    02660         integer *lda, real *tau, real *work, integer *info);
    02661
    02662 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a,
    02663         integer *lda, real *tau, real *work, integer *lwork, integer *info);
    02664
    02665 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda,
    02666         real *tau, real *work, integer *info);
    02667
    02668 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda,
    02669         real *tau, real *work, integer *lwork, integer *info);
    02670
    02671 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer *
    02672         nrhs, real *a, integer *lda, real *b, integer *ldb, real *work,
    02673         integer *lwork, integer *info);
    02674
    02675 /* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a,
    02676         integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
    02677         rank, real *work, integer *lwork, integer *iwork, integer *info);
    02678
    02679 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a,
    02680         integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
    02681         rank, real *work, integer *lwork, integer *info);
    02682
    02683 /* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a,
    02684         integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
    02685         integer *rank, real *work, integer *info);
    02686
    02687 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a,
    02688         integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
    02689         integer *rank, real *work, integer *lwork, integer *info);
    02690
    02691 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda,
    02692         real *tau, real *work, integer *info);
    02693
    02694 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda,
    02695         real *tau, real *work, integer *lwork, integer *info);
    02696
    02697 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda,
    02698         integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
    02699
    02700 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda,
    02701         integer *jpvt, real *tau, real *work, integer *info);
    02702
    02703 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda,
    02704         real *tau, real *work, integer *info);
    02705
    02706 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda,
    02707         real *tau, real *work, integer *lwork, integer *info);
    02708
    02709 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a,
    02710         integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
    02711         integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
    02712         work, integer *iwork, integer *info);
    02713
    02714 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda,
    02715         real *tau, real *work, integer *info);
    02716
    02717 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda,
    02718         real *tau, real *work, integer *lwork, integer *info);
    02719
    02720 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs,
    02721         integer *ipiv, integer *jpiv, real *scale);
    02722
    02723 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a,
    02724         integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt,
    02725          real *work, integer *lwork, integer *iwork, integer *info);
    02726
    02727 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda,
    02728         integer *ipiv, real *b, integer *ldb, integer *info);
    02729
    02730 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
    02731         real *a, integer *lda, real *s, real *u, integer *ldu, real *vt,
    02732         integer *ldvt, real *work, integer *lwork, integer *info);
    02733
    02734 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer *
    02735         nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
    02736         char *equed, real *r__, real *c__, real *b, integer *ldb, real *x,
    02737         integer *ldx, real *rcond, real *ferr, real *berr, real *work,
    02738         integer *iwork, integer *info);
    02739
    02740 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv,
    02741          integer *jpiv, integer *info);
    02742
    02743 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda,
    02744         integer *ipiv, integer *info);
    02745
    02746 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda,
    02747         integer *ipiv, integer *info);
    02748
    02749 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv,
    02750          real *work, integer *lwork, integer *info);
    02751
    02752 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a,
    02753         integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
    02754
    02755 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo,
    02756         integer *ihi, real *lscale, real *rscale, integer *m, real *v,
    02757         integer *ldv, integer *info);
    02758
    02759 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda,
    02760         real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real
    02761         *rscale, real *work, integer *info);
    02762
    02763 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
    02764         selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
    02765         integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
    02766         integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
    02767          logical *bwork, integer *info);
    02768
    02769 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
    02770         selctg, char *sense, integer *n, real *a, integer *lda, real *b,
    02771         integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta,
    02772         real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde,
    02773         real *rcondv, real *work, integer *lwork, integer *iwork, integer *
    02774         liwork, logical *bwork, integer *info);
    02775
    02776 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a,
    02777         integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
    02778         *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
    02779         integer *lwork, integer *info);
    02780
    02781 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char *
    02782         sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real
    02783         *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr,
    02784         integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale,
    02785          real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work,
    02786         integer *lwork, integer *iwork, logical *bwork, integer *info);
    02787
    02788 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a,
    02789         integer *lda, real *b, integer *ldb, real *d__, real *x, real *y,
    02790         real *work, integer *lwork, integer *info);
    02791
    02792 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer *
    02793         ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real
    02794         *q, integer *ldq, real *z__, integer *ldz, integer *info);
    02795
    02796 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a,
    02797         integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x,
    02798         real *work, integer *lwork, integer *info);
    02799
    02800 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a,
    02801         integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
    02802         work, integer *lwork, integer *info);
    02803
    02804 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a,
    02805         integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
    02806         work, integer *lwork, integer *info);
    02807
    02808 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
    02809         integer *n, integer *p, integer *k, integer *l, real *a, integer *lda,
    02810          real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
    02811         ldu, real *v, integer *ldv, real *q, integer *ldq, real *work,
    02812         integer *iwork, integer *info);
    02813
    02814 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
    02815         integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb,
    02816         real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu,
    02817          real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
    02818         tau, real *work, integer *info);
    02819
    02820 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__,
    02821         real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real *
    02822         work, integer *iwork, integer *info);
    02823
    02824 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl,
    02825          real *d__, real *du, real *dlf, real *df, real *duf, real *du2,
    02826         integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
    02827         ferr, real *berr, real *work, integer *iwork, integer *info);
    02828
    02829 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__,
    02830         real *du, real *b, integer *ldb, integer *info);
    02831
    02832 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer *
    02833         nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf,
    02834         real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *
    02835         ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork,
    02836         integer *info);
    02837
    02838 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real *
    02839         du2, integer *ipiv, integer *info);
    02840
    02841 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl,
    02842          real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb,
    02843          integer *info);
    02844
    02845 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real
    02846         *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *
    02847         ldb);
    02848
    02849 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n,
    02850         integer *ilo, integer *ihi, real *a, integer *lda, real *b, integer *
    02851         ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
    02852         real *z__, integer *ldz, real *work, integer *lwork, integer *info);
    02853
    02854 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical *
    02855         select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real
    02856         *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m,
    02857         real *work, integer *ifaill, integer *ifailr, integer *info);
    02858
    02859 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo,
    02860          integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__,
    02861          integer *ldz, real *work, integer *lwork, integer *info);
    02862
    02863 /* Subroutine */ int slabad_(real *ssmall, real *llarge);
    02864
    02865 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a,
    02866         integer *lda, real *d__, real *e, real *tauq, real *taup, real *x,
    02867         integer *ldx, real *y, integer *ldy);
    02868
    02869 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn,
    02870         real *est, integer *kase);
    02871
    02872 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a,
    02873         integer *lda, real *b, integer *ldb);
    02874
    02875 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p,
    02876         real *q);
    02877
    02878 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
    02879
    02880 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n,
    02881         integer *mmax, integer *minp, integer *nbmin, real *abstol, real *
    02882         reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval,
    02883         real *ab, real *c__, integer *mout, integer *nab, real *work, integer
    02884         *iwork, integer *info);
    02885
    02886 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real
    02887         *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs,
    02888         real *work, integer *iwork, integer *info);
    02889
    02890 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq,
    02891         integer *indxq, real *rho, integer *cutpnt, real *work, integer *
    02892         iwork, integer *info);
    02893
    02894 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__,
    02895         real *q, integer *ldq, integer *indxq, real *rho, real *z__, real *
    02896         dlamda, real *w, real *q2, integer *indx, integer *indxc, integer *
    02897         indxp, integer *coltyp, integer *info);
    02898
    02899 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__,
    02900         real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer *
    02901         indx, integer *ctot, real *w, real *s, integer *info);
    02902
    02903 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__,
    02904         real *delta, real *rho, real *dlam, integer *info);
    02905
    02906 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta,
    02907         real *rho, real *dlam);
    02908
    02909 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho,
    02910         real *d__, real *z__, real *finit, real *tau, integer *info);
    02911
    02912 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz,
    02913         integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q,
    02914         integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *
    02915         qstore, integer *qptr, integer *prmptr, integer *perm, integer *
    02916         givptr, integer *givcol, real *givnum, real *work, integer *iwork,
    02917         integer *info);
    02918
    02919 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer
    02920         *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho,
    02921         integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2,
    02922         real *w, integer *perm, integer *givptr, integer *givcol, real *
    02923         givnum, integer *indxp, integer *indx, integer *info);
    02924
    02925 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop,
    02926         integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda,
    02927          real *w, real *s, integer *lds, integer *info);
    02928
    02929 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl,
    02930         integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
    02931         integer *givcol, real *givnum, real *q, integer *qptr, real *z__,
    02932         real *ztemp, integer *info);
    02933
    02934 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n,
    02935         real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real
    02936         *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum,
    02937         integer *info);
    02938
    02939 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real *
    02940         rt2, real *cs1, real *sn1);
    02941
    02942 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer *
    02943         ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2,
    02944         real *work, integer *info);
    02945
    02946 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb,
    02947         real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *
    02948         wi);
    02949
    02950 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3,
    02951         real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *
    02952         snv, real *csq, real *snq);
    02953
    02954 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real
    02955         *c__, real *tol, real *d__, integer *in, integer *info);
    02956
    02957 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real *
    02958         alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *
    02959         beta, real *b, integer *ldb);
    02960
    02961 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real
    02962         *c__, real *d__, integer *in, real *y, real *tol, integer *info);
    02963
    02964 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb,
    02965         real *alphar, real *alphai, real *beta, real *csl, real *snl, real *
    02966         csr, real *snr);
    02967
    02968 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n,
    02969         integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
    02970         wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *
    02971         info);
    02972
    02973 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a,
    02974         integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
    02975
    02976 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest,
    02977         real *w, real *gamma, real *sestpr, real *s, real *c__);
    02978
    02979 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real *
    02980         smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b,
    02981         integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale,
    02982         real *xnorm, integer *info);
    02983
    02984 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr,
    02985         integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx,
    02986         integer *ldbx, integer *perm, integer *givptr, integer *givcol,
    02987         integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
    02988         difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
    02989         work, integer *info);
    02990
    02991 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n,
    02992         integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real *
    02993         u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *
    02994         z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol,
    02995         integer *perm, real *givnum, real *c__, real *s, real *work, integer *
    02996         iwork, integer *info);
    02997
    02998 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer
    02999         *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond,
    03000         integer *rank, real *work, integer *iwork, integer *info);
    03001
    03002 /* Subroutine */ int slamc1_(integer *beta, integer *t, logical *rnd, logical
    03003         *ieee1);
    03004
    03005 /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real *
    03006         eps, integer *emin, real *rmin, integer *emax, real *rmax);
    03007
    03008 /* Subroutine */ int slamc4_(integer *emin, real *start, integer *base);
    03009
    03010 /* Subroutine */ int slamc5_(integer *beta, integer *p, integer *emin,
    03011         logical *ieee, integer *emax, real *rmax);
    03012
    03013 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer *
    03014         strd1, integer *strd2, integer *index);
    03015
    03016 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real *
    03017         rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
    03018
    03019 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y,
    03020         integer *incy, real *ssmin);
    03021
    03022 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x,
    03023          integer *ldx, integer *k);
    03024
    03025 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku,
    03026          real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
    03027         colcnd, real *amax, char *equed);
    03028
    03029 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda,
    03030         real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
    03031         equed);
    03032
    03033 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a,
    03034          integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *
    03035         work);
    03036
    03037 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer
    03038         *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau,
    03039         real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
    03040
    03041 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab,
    03042         integer *ldab, real *s, real *scond, real *amax, char *equed);
    03043
    03044 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *
    03045         scond, real *amax, char *equed);
    03046
    03047 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda,
    03048         real *s, real *scond, real *amax, char *equed);
    03049
    03050 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real
    03051         *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work,
    03052         integer *info);
    03053
    03054 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real *
    03055         sigma, real *d__, real *l, real *ld, real *lld, real *gersch, real *
    03056         z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *
    03057         work);
    03058
    03059 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer
    03060         *incx, real *c__, real *s, integer *incc);
    03061
    03062 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v,
    03063         integer *incv, real *tau, real *c__, integer *ldc, real *work);
    03064
    03065 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char *
    03066         storev, integer *m, integer *n, integer *k, real *v, integer *ldv,
    03067         real *t, integer *ldt, real *c__, integer *ldc, real *work, integer *
    03068         ldwork);
    03069
    03070 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx,
    03071         real *tau);
    03072
    03073 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer *
    03074         k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
    03075
    03076 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v,
    03077         real *tau, real *c__, integer *ldc, real *work);
    03078
    03079 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y,
    03080         integer *incy, real *c__, integer *incc);
    03081
    03082 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real
    03083         *x);
    03084
    03085 /* Subroutine */ int slarrb_(integer *n, real *d__, real *l, real *ld, real *
    03086         lld, integer *ifirst, integer *ilast, real *sigma, real *reltol, real
    03087         *w, real *wgap, real *werr, real *work, integer *iwork, integer *info);
    03088
    03089 /* Subroutine */ int slarre_(integer *n, real *d__, real *e, real *tol,
    03090         integer *nsplit, integer *isplit, integer *m, real *w, real *woff,
    03091         real *gersch, real *work, integer *info);
    03092
    03093 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld, real *
    03094         lld, integer *ifirst, integer *ilast, real *w, real *dplus, real *
    03095         lplus, real *work, integer *iwork, integer *info);
    03096
    03097 /* Subroutine */ int slarrv_(integer *n, real *d__, real *l, integer *isplit,
    03098         integer *m, real *w, integer *iblock, real *gersch, real *tol, real *
    03099         z__, integer *ldz, integer *isuppz, real *work, integer *iwork,
    03100         integer *info);
    03101
    03102 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
    03103
    03104 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y,
    03105         integer *incy, real *c__, real *s, integer *incc);
    03106
    03107 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x);
    03108
    03109 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l,
    03110         real *v, integer *incv, real *tau, real *c__, integer *ldc, real *
    03111         work);
    03112
    03113 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char *
    03114         storev, integer *m, integer *n, integer *k, integer *l, real *v,
    03115         integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *
    03116         work, integer *ldwork);
    03117
    03118 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer *
    03119         k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
    03120
    03121 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real *
    03122         ssmax);
    03123
    03124 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real *
    03125         cfrom, real *cto, integer *m, integer *n, real *a, integer *lda,
    03126         integer *info);
    03127
    03128 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e,
    03129         real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz,
    03130         integer *iwork, real *work, integer *info);
    03131
    03132 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real *
    03133         d__, real *alpha, real *beta, real *u, integer *ldu, real *vt,
    03134         integer *ldvt, integer *idxq, integer *iwork, real *work, integer *
    03135         info);
    03136
    03137 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer
    03138         *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer *
    03139         ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2,
    03140         real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc,
    03141          integer *idxq, integer *coltyp, integer *info);
    03142
    03143 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer
    03144         *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer *
    03145         ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2,
    03146         integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer *
    03147         info);
    03148
    03149 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__,
    03150         real *delta, real *rho, real *sigma, real *work, integer *info);
    03151
    03152 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta,
    03153         real *rho, real *dsigma, real *work);
    03154
    03155 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr,
    03156         integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta,
    03157          integer *idxq, integer *perm, integer *givptr, integer *givcol,
    03158         integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
    03159         difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
    03160         work, integer *iwork, integer *info);
    03161
    03162 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr,
    03163         integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf,
    03164         real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma,
    03165          integer *idx, integer *idxp, integer *idxq, integer *perm, integer *
    03166         givptr, integer *givcol, integer *ldgcol, real *givnum, integer *
    03167         ldgnum, real *c__, real *s, integer *info);
    03168
    03169 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real *
    03170         z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr,
    03171         real *dsigma, real *work, integer *info);
    03172
    03173 /* Subroutine */ int slasd9_(integer *icompq, integer *ldu, integer *k, real *
    03174         d__, real *z__, real *vf, real *vl, real *difl, real *difr, real *
    03175         dsigma, real *work, integer *info);
    03176
    03177 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n,
    03178         integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt,
    03179         integer *k, real *difl, real *difr, real *z__, real *poles, integer *
    03180         givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum,
    03181          real *c__, real *s, real *work, integer *iwork, integer *info);
    03182
    03183 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer *
    03184         ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt,
    03185         integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *
    03186         work, integer *info);
    03187
    03188 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer *
    03189         inode, integer *ndiml, integer *ndimr, integer *msub);
    03190
    03191 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha,
    03192         real *beta, real *a, integer *lda);
    03193
    03194 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work,
    03195         integer *info);
    03196
    03197 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info);
    03198
    03199 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp,
    03200          real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail,
    03201         integer *iter, integer *ndiv, logical *ieee);
    03202
    03203 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp,
    03204          integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn,
    03205         real *dn1, real *dn2, real *tau, integer *ttype);
    03206
    03207 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp,
    03208          real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *
    03209         dnm1, real *dnm2, logical *ieee);
    03210
    03211 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp,
    03212          real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *
    03213         dnm2);
    03214
    03215 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m,
    03216          integer *n, real *c__, real *s, real *a, integer *lda);
    03217
    03218 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info);
    03219
    03220 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale,
    03221         real *sumsq);
    03222
    03223 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
    03224         ssmax, real *snr, real *csr, real *snl, real *csl);
    03225
    03226 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1,
    03227         integer *k2, integer *ipiv, integer *incx);
    03228
    03229 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn,
    03230         integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *
    03231         ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real
    03232         *xnorm, integer *info);
    03233
    03234 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb,
    03235          real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer
    03236         *info);
    03237
    03238 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char *
    03239         normin, integer *n, integer *kd, real *ab, integer *ldab, real *x,
    03240         real *scale, real *cnorm, integer *info);
    03241
    03242 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer *
    03243         ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *
    03244         jpiv);
    03245
    03246 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char *
    03247         normin, integer *n, real *ap, real *x, real *scale, real *cnorm,
    03248         integer *info);
    03249
    03250 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a,
    03251         integer *lda, real *e, real *tau, real *w, integer *ldw);
    03252
    03253 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char *
    03254         normin, integer *n, real *a, integer *lda, real *x, real *scale, real
    03255         *cnorm, integer *info);
    03256
    03257 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a,
    03258         integer *lda, real *tau, real *work);
    03259
    03260 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v,
    03261         integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
    03262         work);
    03263
    03264 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda,
    03265         integer *info);
    03266
    03267 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda,
    03268         integer *info);
    03269
    03270 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau,
    03271         real *q, integer *ldq, real *work, integer *info);
    03272
    03273 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m,
    03274         integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work,
    03275         integer *info);
    03276
    03277 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a,
    03278         integer *lda, real *tau, real *work, integer *info);
    03279
    03280 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a,
    03281         integer *lda, real *tau, real *work, integer *info);
    03282
    03283 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k,
    03284         real *a, integer *lda, real *tau, real *work, integer *lwork, integer
    03285         *info);
    03286
    03287 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a,
    03288         integer *lda, real *tau, real *work, integer *lwork, integer *info);
    03289
    03290 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a,
    03291         integer *lda, real *tau, real *work, integer *info);
    03292
    03293 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a,
    03294         integer *lda, real *tau, real *work, integer *lwork, integer *info);
    03295
    03296 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a,
    03297         integer *lda, real *tau, real *work, integer *lwork, integer *info);
    03298
    03299 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a,
    03300         integer *lda, real *tau, real *work, integer *lwork, integer *info);
    03301
    03302 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a,
    03303         integer *lda, real *tau, real *work, integer *info);
    03304
    03305 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a,
    03306         integer *lda, real *tau, real *work, integer *lwork, integer *info);
    03307
    03308 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda,
    03309         real *tau, real *work, integer *lwork, integer *info);
    03310
    03311 /* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n,
    03312         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03313          real *work, integer *info);
    03314
    03315 /* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n,
    03316         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03317          real *work, integer *info);
    03318
    03319 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m,
    03320         integer *n, integer *k, real *a, integer *lda, real *tau, real *c__,
    03321         integer *ldc, real *work, integer *lwork, integer *info);
    03322
    03323 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n,
    03324         integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *
    03325         c__, integer *ldc, real *work, integer *lwork, integer *info);
    03326
    03327 /* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n,
    03328         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03329          real *work, integer *info);
    03330
    03331 /* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n,
    03332         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03333          real *work, integer *lwork, integer *info);
    03334
    03335 /* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n,
    03336         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03337          real *work, integer *lwork, integer *info);
    03338
    03339 /* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n,
    03340         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03341          real *work, integer *lwork, integer *info);
    03342
    03343 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n,
    03344         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03345          real *work, integer *info);
    03346
    03347 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n,
    03348         integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
    03349         integer *ldc, real *work, integer *info);
    03350
    03351 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n,
    03352         integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03353          real *work, integer *lwork, integer *info);
    03354
    03355 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n,
    03356         integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
    03357         integer *ldc, real *work, integer *lwork, integer *info);
    03358
    03359 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m,
    03360         integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc,
    03361          real *work, integer *lwork, integer *info);
    03362
    03363 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab,
    03364         integer *ldab, real *anorm, real *rcond, real *work, integer *iwork,
    03365         integer *info);
    03366
    03367 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab,
    03368         integer *ldab, real *s, real *scond, real *amax, integer *info);
    03369
    03370 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer *
    03371         nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b,
    03372         integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
    03373         work, integer *iwork, integer *info);
    03374
    03375 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab,
    03376         integer *ldab, integer *info);
    03377
    03378 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer *
    03379         nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
    03380
    03381 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd,
    03382         integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
    03383         char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx,
    03384         real *rcond, real *ferr, real *berr, real *work, integer *iwork,
    03385         integer *info);
    03386
    03387 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab,
    03388         integer *ldab, integer *info);
    03389
    03390 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab,
    03391         integer *ldab, integer *info);
    03392
    03393 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer *
    03394         nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
    03395
    03396 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda,
    03397         real *anorm, real *rcond, real *work, integer *iwork, integer *info);
    03398
    03399 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real
    03400         *scond, real *amax, integer *info);
    03401
    03402 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a,
    03403         integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x,
    03404          integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
    03405         integer *info);
    03406
    03407 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a,
    03408         integer *lda, real *b, integer *ldb, integer *info);
    03409
    03410 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer *
    03411         nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed,
    03412         real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
    03413         real *ferr, real *berr, real *work, integer *iwork, integer *info);
    03414
    03415 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda,
    03416         integer *info);
    03417
    03418 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda,
    03419         integer *info);
    03420
    03421 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda,
    03422         integer *info);
    03423
    03424 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a,
    03425         integer *lda, real *b, integer *ldb, integer *info);
    03426
    03427 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm,
    03428         real *rcond, real *work, integer *iwork, integer *info);
    03429
    03430 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real *
    03431         scond, real *amax, integer *info);
    03432
    03433 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
    03434         real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr,
    03435         real *berr, real *work, integer *iwork, integer *info);
    03436
    03437 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap,
    03438         real *b, integer *ldb, integer *info);
    03439
    03440 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer *
    03441         nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *
    03442         ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real
    03443         *work, integer *iwork, integer *info);
    03444
    03445 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info);
    03446
    03447 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info);
    03448
    03449 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
    03450         real *b, integer *ldb, integer *info);
    03451
    03452 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm,
    03453         real *rcond, real *work, integer *info);
    03454
    03455 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e,
    03456         real *z__, integer *ldz, real *work, integer *info);
    03457
    03458 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e,
    03459         real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx,
    03460         real *ferr, real *berr, real *work, integer *info);
    03461
    03462 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e,
    03463         real *b, integer *ldb, integer *info);
    03464
    03465 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
    03466          real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer
    03467         *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info);
    03468
    03469 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info);
    03470
    03471 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e,
    03472         real *b, integer *ldb, integer *info);
    03473
    03474 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e,
    03475         real *b, integer *ldb);
    03476
    03477 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx);
    03478
    03479 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd,
    03480         real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
    03481          integer *info);
    03482
    03483 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd,
    03484         real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
    03485          integer *lwork, integer *iwork, integer *liwork, integer *info);
    03486
    03487 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n,
    03488         integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl,
    03489          real *vu, integer *il, integer *iu, real *abstol, integer *m, real *
    03490         w, real *z__, integer *ldz, real *work, integer *iwork, integer *
    03491         ifail, integer *info);
    03492
    03493 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka,
    03494         integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
    03495         x, integer *ldx, real *work, integer *info);
    03496
    03497 /* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka,
    03498         integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
    03499         w, real *z__, integer *ldz, real *work, integer *info);
    03500
    03501 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
    03502         integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
    03503         w, real *z__, integer *ldz, real *work, integer *lwork, integer *
    03504         iwork, integer *liwork, integer *info);
    03505
    03506 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n,
    03507         integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *
    03508         ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer
    03509         *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real
    03510         *work, integer *iwork, integer *ifail, integer *info);
    03511
    03512 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd,
    03513         real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq,
    03514         real *work, integer *info);
    03515
    03516 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv,
    03517         real *anorm, real *rcond, real *work, integer *iwork, integer *info);
    03518
    03519 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap,
    03520         real *w, real *z__, integer *ldz, real *work, integer *info);
    03521
    03522 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap,
    03523         real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
    03524         *iwork, integer *liwork, integer *info);
    03525
    03526 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n,
    03527         real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol,
    03528         integer *m, real *w, real *z__, integer *ldz, real *work, integer *
    03529         iwork, integer *ifail, integer *info);
    03530
    03531 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap,
    03532          real *bp, integer *info);
    03533
    03534 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer *
    03535         n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
    03536         integer *info);
    03537
    03538 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer *
    03539         n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
    03540         integer *lwork, integer *iwork, integer *liwork, integer *info);
    03541
    03542 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char *
    03543         uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il,
    03544          integer *iu, real *abstol, integer *m, real *w, real *z__, integer *
    03545         ldz, real *work, integer *iwork, integer *ifail, integer *info);
    03546
    03547 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
    03548         real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *
    03549         ldx, real *ferr, real *berr, real *work, integer *iwork, integer *
    03550         info);
    03551
    03552 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap,
    03553         integer *ipiv, real *b, integer *ldb, integer *info);
    03554
    03555 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer *
    03556         nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real
    03557         *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work,
    03558         integer *iwork, integer *info);
    03559
    03560 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__,
    03561         real *e, real *tau, integer *info);
    03562
    03563 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv,
    03564         integer *info);
    03565
    03566 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv,
    03567         real *work, integer *info);
    03568
    03569 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
    03570         integer *ipiv, real *b, integer *ldb, integer *info);
    03571
    03572 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl,
    03573         real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e,
    03574         integer *m, integer *nsplit, real *w, integer *iblock, integer *
    03575         isplit, real *work, integer *iwork, integer *info);
    03576
    03577 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e,
    03578         real *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
    03579         integer *liwork, integer *info);
    03580
    03581 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__,
    03582         real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
    03583         integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
    03584         work, integer *lwork, integer *iwork, integer *liwork, integer *info);
    03585
    03586 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real
    03587         *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real *
    03588         work, integer *iwork, integer *ifail, integer *info);
    03589
    03590 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e,
    03591         real *z__, integer *ldz, real *work, integer *info);
    03592
    03593 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info);
    03594
    03595 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real *
    03596         z__, integer *ldz, real *work, integer *info);
    03597
    03598 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real
    03599         *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
    03600         integer *liwork, integer *info);
    03601
    03602 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__,
    03603         real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
    03604         integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
    03605         work, integer *lwork, integer *iwork, integer *liwork, integer *info);
    03606
    03607 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__,
    03608         real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
    03609         integer *m, real *w, real *z__, integer *ldz, real *work, integer *
    03610         iwork, integer *ifail, integer *info);
    03611
    03612 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda,
    03613         integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork,
    03614         integer *info);
    03615
    03616 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a,
    03617         integer *lda, real *w, real *work, integer *lwork, integer *info);
    03618
    03619 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a,
    03620         integer *lda, real *w, real *work, integer *lwork, integer *iwork,
    03621         integer *liwork, integer *info);
    03622
    03623 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n,
    03624         real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
    03625         real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *
    03626         isuppz, real *work, integer *lwork, integer *iwork, integer *liwork,
    03627         integer *info);
    03628
    03629 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n,
    03630         real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
    03631         real *abstol, integer *m, real *w, real *z__, integer *ldz, real *
    03632         work, integer *lwork, integer *iwork, integer *ifail, integer *info);
    03633
    03634 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a,
    03635         integer *lda, real *b, integer *ldb, integer *info);
    03636
    03637 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a,
    03638         integer *lda, real *b, integer *ldb, integer *info);
    03639
    03640 /* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer *
    03641         n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
    03642         integer *lwork, integer *info);
    03643
    03644 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer *
    03645         n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
    03646         integer *lwork, integer *iwork, integer *liwork, integer *info);
    03647
    03648 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char *
    03649         uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
    03650         vl, real *vu, integer *il, integer *iu, real *abstol, integer *m,
    03651         real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
    03652         *iwork, integer *ifail, integer *info);
    03653
    03654 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a,
    03655         integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
    03656         integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
    03657         work, integer *iwork, integer *info);
    03658
    03659 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a,
    03660         integer *lda, integer *ipiv, real *b, integer *ldb, real *work,
    03661         integer *lwork, integer *info);
    03662
    03663 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer *
    03664         nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
    03665         real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
    03666          real *berr, real *work, integer *lwork, integer *iwork, integer *
    03667         info);
    03668
    03669 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda,
    03670         real *d__, real *e, real *tau, integer *info);
    03671
    03672 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda,
    03673         integer *ipiv, integer *info);
    03674
    03675 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda,
    03676         real *d__, real *e, real *tau, real *work, integer *lwork, integer *
    03677         info);
    03678
    03679 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda,
    03680         integer *ipiv, real *work, integer *lwork, integer *info);
    03681
    03682 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda,
    03683         integer *ipiv, real *work, integer *info);
    03684
    03685 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a,
    03686         integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
    03687
    03688 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n,
    03689         integer *kd, real *ab, integer *ldab, real *rcond, real *work,
    03690         integer *iwork, integer *info);
    03691
    03692 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n,
    03693         integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
    03694         *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work,
    03695         integer *iwork, integer *info);
    03696
    03697 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n,
    03698         integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
    03699         *ldb, integer *info);
    03700
    03701 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select,
    03702         integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl,
    03703         integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real
    03704         *work, integer *info);
    03705
    03706 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real
    03707         *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
    03708         z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work,
    03709         integer *lwork, integer *info);
    03710
    03711 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real
    03712         *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
    03713         z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer *
    03714         lwork, integer *info);
    03715
    03716 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz,
    03717         logical *select, integer *n, real *a, integer *lda, real *b, integer *
    03718         ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
    03719         real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif,
    03720         real *work, integer *lwork, integer *iwork, integer *liwork, integer *
    03721         info);
    03722
    03723 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m,
    03724         integer *p, integer *n, integer *k, integer *l, real *a, integer *lda,
    03725          real *b, integer *ldb, real *tola, real *tolb, real *alpha, real *
    03726         beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *
    03727         ldq, real *work, integer *ncycle, integer *info);
    03728
    03729 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select,
    03730         integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl,
    03731         integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer *
    03732         mm, integer *m, real *work, integer *lwork, integer *iwork, integer *
    03733         info);
    03734
    03735 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer *
    03736         n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
    03737         ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
    03738         *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer
    03739         *pq, integer *info);
    03740
    03741 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer *
    03742         n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
    03743         ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
    03744         *ldf, real *scale, real *dif, real *work, integer *lwork, integer *
    03745         iwork, integer *info);
    03746
    03747 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n,
    03748         real *ap, real *rcond, real *work, integer *iwork, integer *info);
    03749
    03750 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n,
    03751         integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx,
    03752          real *ferr, real *berr, real *work, integer *iwork, integer *info);
    03753
    03754 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap,
    03755         integer *info);
    03756
    03757 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n,
    03758         integer *nrhs, real *ap, real *b, integer *ldb, integer *info);
    03759
    03760 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n,
    03761         real *a, integer *lda, real *rcond, real *work, integer *iwork,
    03762         integer *info);
    03763
    03764 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select,
    03765         integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
    03766         integer *ldvr, integer *mm, integer *m, real *work, integer *info);
    03767
    03768 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt,
    03769         real *q, integer *ldq, integer *ifst, integer *ilst, real *work,
    03770         integer *info);
    03771
    03772 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n,
    03773         integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x,
    03774         integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
    03775         integer *info);
    03776
    03777 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer
    03778         *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi,
    03779         integer *m, real *s, real *sep, real *work, integer *lwork, integer *
    03780         iwork, integer *liwork, integer *info);
    03781
    03782 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select,
    03783         integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
    03784         integer *ldvr, real *s, real *sep, integer *mm, integer *m, real *
    03785         work, integer *ldwork, integer *iwork, integer *info);
    03786
    03787 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer
    03788         *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
    03789         c__, integer *ldc, real *scale, integer *info);
    03790
    03791 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a,
    03792         integer *lda, integer *info);
    03793
    03794 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a,
    03795         integer *lda, integer *info);
    03796
    03797 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n,
    03798         integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *
    03799         info);
    03800
    03801 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda,
    03802         real *tau, integer *info);
    03803
    03804 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda,
    03805         real *tau, real *work, integer *lwork, integer *info);
    03806
    03807 /* Subroutine */ int xerbla_(char *srname, integer *info);
    03808
    03809 /* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
    03810         nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt,
    03811         integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__,
    03812         integer *ldc, doublereal *rwork, integer *info);
    03813
    03814 /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx,
    03815         doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
    03816
    03817 /* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx,
    03818         integer *incx);
    03819
    03820 /* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
    03821          integer *kl, integer *ku, doublecomplex *ab, integer *ldab,
    03822         doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq,
    03823         doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc,
    03824         doublecomplex *work, doublereal *rwork, integer *info);
    03825
    03826 /* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku,
    03827          doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm,
    03828         doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *
    03829         info);
    03830
    03831 /* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku,
    03832          doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__,
    03833         doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
    03834         info);
    03835
    03836 /* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer *
    03837         ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *
    03838         afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb,
    03839         doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
    03840         doublecomplex *work, doublereal *rwork, integer *info);
    03841
    03842 /* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer *
    03843         nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *
    03844         b, integer *ldb, integer *info);
    03845
    03846 /* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl,
    03847          integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
    03848         doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed,
    03849         doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb,
    03850         doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
    03851         doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
    03852         info);
    03853
    03854 /* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
    03855          doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
    03856
    03857 /* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
    03858          doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
    03859
    03860 /* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer *
    03861         ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv,
    03862         doublecomplex *b, integer *ldb, integer *info);
    03863
    03864 /* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo,
    03865         integer *ihi, doublereal *scale, integer *m, doublecomplex *v,
    03866         integer *ldv, integer *info);
    03867
    03868 /* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer
    03869         *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
    03870
    03871 /* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a,
    03872         integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq,
    03873         doublecomplex *taup, doublecomplex *work, integer *info);
    03874
    03875 /* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a,
    03876         integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq,
    03877         doublecomplex *taup, doublecomplex *work, integer *lwork, integer *
    03878         info);
    03879
    03880 /* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a,
    03881         integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
    03882         work, doublereal *rwork, integer *info);
    03883
    03884 /* Subroutine */ int zgeequ_(integer *m, integer *n, doublecomplex *a,
    03885         integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
    03886         doublereal *colcnd, doublereal *amax, integer *info);
    03887
    03888 /* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n,
    03889         doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w,
    03890         doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork,
    03891          doublereal *rwork, logical *bwork, integer *info);
    03892
    03893 /* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char *
    03894         sense, integer *n, doublecomplex *a, integer *lda, integer *sdim,
    03895         doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *
    03896         rconde, doublereal *rcondv, doublecomplex *work, integer *lwork,
    03897         doublereal *rwork, logical *bwork, integer *info);
    03898
    03899 /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n,
    03900         doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl,
    03901         integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work,
    03902         integer *lwork, doublereal *rwork, integer *info);
    03903
    03904 /* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *
    03905         sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w,
    03906         doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
    03907         integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm,
    03908         doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *
    03909         lwork, doublereal *rwork, integer *info);
    03910
    03911 /* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n,
    03912         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    03913         doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl,
    03914         integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *
    03915         work, integer *lwork, doublereal *rwork, integer *info);
    03916
    03917 /* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n,
    03918         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    03919         doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
    03920         *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
    03921         *lwork, doublereal *rwork, integer *info);
    03922
    03923 /* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi,
    03924         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    03925         work, integer *info);
    03926
    03927 /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi,
    03928         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    03929         work, integer *lwork, integer *info);
    03930
    03931 /* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a,
    03932         integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
    03933
    03934 /* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a,
    03935         integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
    03936          integer *info);
    03937
    03938 /* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer *
    03939         nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    03940         doublecomplex *work, integer *lwork, integer *info);
    03941
    03942 /* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs,
    03943         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    03944         integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
    03945         doublereal *rwork, integer *info);
    03946
    03947 /* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs,
    03948         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    03949         integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
    03950         integer *lwork, doublereal *rwork, integer *info);
    03951
    03952 /* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a,
    03953         integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
    03954
    03955 /* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a,
    03956         integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
    03957          integer *info);
    03958
    03959 /* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a,
    03960         integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
    03961         integer *lwork, doublereal *rwork, integer *info);
    03962
    03963 /* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a,
    03964         integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
    03965         doublereal *rwork, integer *info);
    03966
    03967 /* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a,
    03968         integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
    03969
    03970 /* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a,
    03971         integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
    03972          integer *info);
    03973
    03974 /* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs,
    03975         doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
    03976         integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
    03977         integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
    03978          doublereal *rwork, integer *info);
    03979
    03980 /* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a,
    03981         integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
    03982
    03983 /* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a,
    03984         integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
    03985          integer *info);
    03986
    03987 /* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda,
    03988         doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
    03989
    03990 /* Subroutine */ int zgesv_(integer *n, integer *nrhs, doublecomplex *a,
    03991         integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *
    03992         info);
    03993
    03994 /* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer *
    03995         nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
    03996         ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
    03997         doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    03998         doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
    03999         work, doublereal *rwork, integer *info);
    04000
    04001 /* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda,
    04002         integer *ipiv, integer *jpiv, integer *info);
    04003
    04004 /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a,
    04005         integer *lda, integer *ipiv, integer *info);
    04006
    04007 /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a,
    04008         integer *lda, integer *ipiv, integer *info);
    04009
    04010 /* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda,
    04011         integer *ipiv, doublecomplex *work, integer *lwork, integer *info);
    04012
    04013 /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs,
    04014         doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
    04015         integer *ldb, integer *info);
    04016
    04017 /* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo,
    04018         integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
    04019         doublecomplex *v, integer *ldv, integer *info);
    04020
    04021 /* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer
    04022         *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi,
    04023         doublereal *lscale, doublereal *rscale, doublereal *work, integer *
    04024         info);
    04025
    04026 /* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
    04027         delctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
    04028         integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
    04029         beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer
    04030         *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork,
    04031         logical *bwork, integer *info);
    04032
    04033 /* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
    04034         delctg, char *sense, integer *n, doublecomplex *a, integer *lda,
    04035         doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha,
    04036         doublecomplex *beta, doublecomplex *vsl, integer *ldvsl,
    04037         doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *
    04038         rcondv, doublecomplex *work, integer *lwork, doublereal *rwork,
    04039         integer *iwork, integer *liwork, logical *bwork, integer *info);
    04040
    04041 /* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n,
    04042         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04043         doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
    04044         *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
    04045         *lwork, doublereal *rwork, integer *info);
    04046
    04047 /* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char *
    04048         sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
    04049         integer *ldb, doublecomplex *alpha, doublecomplex *beta,
    04050         doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
    04051         integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
    04052         doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
    04053         rcondv, doublecomplex *work, integer *lwork, doublereal *rwork,
    04054         integer *iwork, logical *bwork, integer *info);
    04055
    04056 /* Subroutine */ int zggglm_(integer *n, integer *m, integer *p,
    04057         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04058         doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex
    04059         *work, integer *lwork, integer *info);
    04060
    04061 /* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer *
    04062         ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b,
    04063         integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__,
    04064         integer *ldz, integer *info);
    04065
    04066 /* Subroutine */ int zgglse_(integer *m, integer *n, integer *p,
    04067         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04068         doublecomplex *c__, doublecomplex *d__, doublecomplex *x,
    04069         doublecomplex *work, integer *lwork, integer *info);
    04070
    04071 /* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p,
    04072         doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
    04073          integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
    04074         lwork, integer *info);
    04075
    04076 /* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n,
    04077         doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
    04078          integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
    04079         lwork, integer *info);
    04080
    04081 /* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
    04082         integer *n, integer *p, integer *k, integer *l, doublecomplex *a,
    04083         integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha,
    04084         doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v,
    04085         integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work,
    04086         doublereal *rwork, integer *iwork, integer *info);
    04087
    04088 /* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
    04089         integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex
    04090         *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k,
    04091         integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer
    04092         *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal *
    04093         rwork, doublecomplex *tau, doublecomplex *work, integer *info);
    04094
    04095 /* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl,
    04096         doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *
    04097         ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work,
    04098         integer *info);
    04099
    04100 /* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs,
    04101         doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
    04102         doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
    04103         doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
    04104         doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
    04105         doublecomplex *work, doublereal *rwork, integer *info);
    04106
    04107 /* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl,
    04108         doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb,
    04109          integer *info);
    04110
    04111 /* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer *
    04112         nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
    04113         doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
    04114         doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
    04115         doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
    04116         doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
    04117         info);
    04118
    04119 /* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *
    04120         d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *
    04121         info);
    04122
    04123 /* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs,
    04124         doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
    04125         doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
    04126         integer *info);
    04127
    04128 /* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs,
    04129         doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
    04130         doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb);
    04131
    04132 /* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd,
    04133         doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__,
    04134         integer *ldz, doublecomplex *work, doublereal *rwork, integer *info);
    04135
    04136 /* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd,
    04137         doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__,
    04138         integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
    04139         integer *lrwork, integer *iwork, integer *liwork, integer *info);
    04140
    04141 /* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n,
    04142         integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q,
    04143         integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *
    04144         iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
    04145          integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork,
    04146          integer *ifail, integer *info);
    04147
    04148 /* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka,
    04149         integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
    04150         integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work,
    04151         doublereal *rwork, integer *info);
    04152
    04153 /* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka,
    04154         integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
    04155         integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz,
    04156         doublecomplex *work, doublereal *rwork, integer *info);
    04157
    04158 /* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n,
    04159         integer *ka, integer *kb, doublecomplex *ab, integer *ldab,
    04160         doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq,
    04161         doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *
    04162         abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
    04163         doublecomplex *work, doublereal *rwork, integer *iwork, integer *
    04164         ifail, integer *info);
    04165
    04166 /* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd,
    04167         doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e,
    04168         doublecomplex *q, integer *ldq, doublecomplex *work, integer *info);
    04169
    04170 /* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a,
    04171         integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
    04172         doublecomplex *work, integer *info);
    04173
    04174 /* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex
    04175         *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork,
    04176         doublereal *rwork, integer *info);
    04177
    04178 /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n,
    04179         doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work,
    04180         integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork,
    04181         integer *liwork, integer *info);
    04182
    04183 /* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n,
    04184         doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu,
    04185         integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
    04186         w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex *
    04187         work, integer *lwork, doublereal *rwork, integer *lrwork, integer *
    04188         iwork, integer *liwork, integer *info);
    04189
    04190 /* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n,
    04191         doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu,
    04192         integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
    04193         w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *
    04194         lwork, doublereal *rwork, integer *iwork, integer *ifail, integer *
    04195         info);
    04196
    04197 /* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n,
    04198         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04199         integer *info);
    04200
    04201 /* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n,
    04202         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04203         integer *info);
    04204
    04205 /* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer *
    04206         n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04207         doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
    04208          integer *info);
    04209
    04210 /* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer *
    04211         n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04212         doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
    04213          integer *lrwork, integer *iwork, integer *liwork, integer *info);
    04214
    04215 /* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char *
    04216         uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
    04217         integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *
    04218         iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
    04219          integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
    04220          integer *iwork, integer *ifail, integer *info);
    04221
    04222 /* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs,
    04223         doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
    04224         integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
    04225         integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
    04226          doublereal *rwork, integer *info);
    04227
    04228 /* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs,
    04229         doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
    04230         integer *ldb, doublecomplex *work, integer *lwork, integer *info);
    04231
    04232 /* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer *
    04233         nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
    04234         ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
    04235          integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
    04236         doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
    04237
    04238 /* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a,
    04239         integer *lda, integer *ipiv, integer *info);
    04240
    04241 /* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a,
    04242         integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau,
    04243         doublecomplex *work, integer *lwork, integer *info);
    04244
    04245 /* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a,
    04246         integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
    04247         integer *info);
    04248
    04249 /* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a,
    04250         integer *lda, integer *ipiv, doublecomplex *work, integer *info);
    04251
    04252 /* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs,
    04253         doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
    04254         integer *ldb, integer *info);
    04255
    04256 /* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n,
    04257         integer *ilo, integer *ihi, doublecomplex *a, integer *lda,
    04258         doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
    04259         beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
    04260         ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *
    04261         info);
    04262
    04263 /* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap,
    04264         integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
    04265         work, integer *info);
    04266
    04267 /* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex
    04268         *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *
    04269         work, doublereal *rwork, integer *info);
    04270
    04271 /* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n,
    04272         doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz,
    04273         doublecomplex *work, integer *lwork, doublereal *rwork, integer *
    04274         lrwork, integer *iwork, integer *liwork, integer *info);
    04275
    04276 /* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n,
    04277         doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il,
    04278         integer *iu, doublereal *abstol, integer *m, doublereal *w,
    04279         doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *
    04280         rwork, integer *iwork, integer *ifail, integer *info);
    04281
    04282 /* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n,
    04283         doublecomplex *ap, doublecomplex *bp, integer *info);
    04284
    04285 /* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer *
    04286         n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex
    04287         *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *
    04288         info);
    04289
    04290 /* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer *
    04291         n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex
    04292         *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *
    04293         rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
    04294         info);
    04295
    04296 /* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char *
    04297         uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *
    04298         vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
    04299         integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
    04300         doublecomplex *work, doublereal *rwork, integer *iwork, integer *
    04301         ifail, integer *info);
    04302
    04303 /* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs,
    04304         doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
    04305         b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
    04306         doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
    04307         info);
    04308
    04309 /* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs,
    04310         doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
    04311         integer *info);
    04312
    04313 /* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer *
    04314         nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv,
    04315         doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    04316         doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
    04317         work, doublereal *rwork, integer *info);
    04318
    04319 /* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap,
    04320         doublereal *d__, doublereal *e, doublecomplex *tau, integer *info);
    04321
    04322 /* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap,
    04323         integer *ipiv, integer *info);
    04324
    04325 /* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap,
    04326         integer *ipiv, doublecomplex *work, integer *info);
    04327
    04328 /* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs,
    04329         doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
    04330         integer *info);
    04331
    04332 /* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical *
    04333         select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *
    04334         w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
    04335          integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
    04336         integer *ifaill, integer *ifailr, integer *info);
    04337
    04338 /* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo,
    04339          integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w,
    04340         doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork,
    04341          integer *info);
    04342
    04343 /* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb,
    04344         doublecomplex *a, integer *lda, doublereal *d__, doublereal *e,
    04345         doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer *
    04346         ldx, doublecomplex *y, integer *ldy);
    04347
    04348 /* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx);
    04349
    04350 /* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x,
    04351         doublereal *est, integer *kase);
    04352
    04353 /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal *
    04354         a, integer *lda, doublecomplex *b, integer *ldb);
    04355
    04356 /* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n,
    04357         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb);
    04358
    04359 /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a,
    04360         integer *lda, doublereal *b, integer *ldb, doublecomplex *c__,
    04361         integer *ldc, doublereal *rwork);
    04362
    04363 /* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx,
    04364         doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *
    04365         s);
    04366
    04367 /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__,
    04368         doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore,
    04369         integer *ldqs, doublereal *rwork, integer *iwork, integer *info);
    04370
    04371 /* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz,
    04372         integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
    04373         doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq,
    04374         doublereal *qstore, integer *qptr, integer *prmptr, integer *perm,
    04375         integer *givptr, integer *givcol, doublereal *givnum, doublecomplex *
    04376         work, doublereal *rwork, integer *iwork, integer *info);
    04377
    04378 /* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz,
    04379         doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho,
    04380         integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex *
    04381         q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx,
    04382         integer *indxq, integer *perm, integer *givptr, integer *givcol,
    04383         doublereal *givnum, integer *info);
    04384
    04385 /* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n,
    04386         doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v,
    04387         doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3,
    04388         doublereal *smlnum, integer *info);
    04389
    04390 /* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b,
    04391         doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2,
    04392         doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
    04393
    04394 /* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b,
    04395         doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1,
    04396          doublecomplex *sn1);
    04397
    04398 /* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex *
    04399         a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3,
    04400          doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex *
    04401         snv, doublereal *csq, doublecomplex *snq);
    04402
    04403 /* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs,
    04404         doublereal *alpha, doublecomplex *dl, doublecomplex *d__,
    04405         doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta,
    04406         doublecomplex *b, integer *ldb);
    04407
    04408 /* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb,
    04409          doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w,
    04410         integer *ldw, integer *info);
    04411
    04412 /* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n,
    04413         integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
    04414         doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__,
    04415         integer *ldz, integer *info);
    04416
    04417 /* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb,
    04418         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t,
    04419         integer *ldt, doublecomplex *y, integer *ldy);
    04420
    04421 /* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x,
    04422         doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *
    04423         sestpr, doublecomplex *s, doublecomplex *c__);
    04424
    04425 /* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr,
    04426         integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb,
    04427         doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr,
    04428         integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum,
    04429          doublereal *poles, doublereal *difl, doublereal *difr, doublereal *
    04430         z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork,
    04431         integer *info);
    04432
    04433 /* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n,
    04434         integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx,
    04435         integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *
    04436         k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
    04437         poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
    04438         perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
    04439         rwork, integer *iwork, integer *info);
    04440
    04441 /* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx,
    04442         doublecomplex *y, integer *incy, doublereal *ssmin);
    04443
    04444 /* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n,
    04445         doublecomplex *x, integer *ldx, integer *k);
    04446
    04447 /* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
    04448          doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__,
    04449         doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
    04450
    04451 /* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a,
    04452         integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
    04453         doublereal *colcnd, doublereal *amax, char *equed);
    04454
    04455 /* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd,
    04456         doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
    04457         doublereal *amax, char *equed);
    04458
    04459 /* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a,
    04460         integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
    04461         char *equed);
    04462
    04463 /* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap,
    04464         doublereal *s, doublereal *scond, doublereal *amax, char *equed);
    04465
    04466 /* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset,
    04467         doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau,
    04468         doublereal *vn1, doublereal *vn2, doublecomplex *work);
    04469
    04470 /* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer
    04471         *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt,
    04472         doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *
    04473         auxv, doublecomplex *f, integer *ldf);
    04474
    04475 /* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd,
    04476         doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
    04477         doublereal *amax, char *equed);
    04478
    04479 /* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap,
    04480         doublereal *s, doublereal *scond, doublereal *amax, char *equed);
    04481
    04482 /* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a,
    04483         integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
    04484         char *equed);
    04485
    04486 /* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal
    04487         *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
    04488         lld, doublereal *gersch, doublecomplex *z__, doublereal *ztz,
    04489         doublereal *mingma, integer *r__, integer *isuppz, doublereal *work);
    04490
    04491 /* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y,
    04492         doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s,
    04493         integer *incc);
    04494
    04495 /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer *
    04496         lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc,
    04497          doublereal *rwork);
    04498
    04499 /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex
    04500         *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *
    04501         ldc, doublecomplex *work);
    04502
    04503 /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char *
    04504         storev, integer *m, integer *n, integer *k, doublecomplex *v, integer
    04505         *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *
    04506         ldc, doublecomplex *work, integer *ldwork);
    04507
    04508 /* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *
    04509         x, integer *incx, doublecomplex *tau);
    04510
    04511 /* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer *
    04512         k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
    04513         t, integer *ldt);
    04514
    04515 /* Subroutine */ int zlarfx_(char *side, integer *m, integer *n,
    04516         doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *
    04517         ldc, doublecomplex *work);
    04518
    04519 /* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx,
    04520         doublecomplex *y, integer *incy, doublereal *c__, integer *incc);
    04521
    04522 /* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n,
    04523         doublecomplex *x);
    04524
    04525 /* Subroutine */ int zlarrv_(integer *n, doublereal *d__, doublereal *l,
    04526         integer *isplit, integer *m, doublereal *w, integer *iblock,
    04527         doublereal *gersch, doublereal *tol, doublecomplex *z__, integer *ldz,
    04528          integer *isuppz, doublereal *work, integer *iwork, integer *info);
    04529
    04530 /* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *
    04531         cs, doublecomplex *sn, doublecomplex *r__);
    04532
    04533 /* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx,
    04534         doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s,
    04535         integer *incc);
    04536
    04537 /* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l,
    04538         doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
    04539         c__, integer *ldc, doublecomplex *work);
    04540
    04541 /* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char *
    04542         storev, integer *m, integer *n, integer *k, integer *l, doublecomplex
    04543         *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__,
    04544         integer *ldc, doublecomplex *work, integer *ldwork);
    04545
    04546 /* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer *
    04547         k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
    04548         t, integer *ldt);
    04549
    04550 /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku,
    04551         doublereal *cfrom, doublereal *cto, integer *m, integer *n,
    04552         doublecomplex *a, integer *lda, integer *info);
    04553
    04554 /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n,
    04555         doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *
    04556         lda);
    04557
    04558 /* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m,
    04559          integer *n, doublereal *c__, doublereal *s, doublecomplex *a,
    04560         integer *lda);
    04561
    04562 /* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx,
    04563         doublereal *scale, doublereal *sumsq);
    04564
    04565 /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda,
    04566         integer *k1, integer *k2, integer *ipiv, integer *incx);
    04567
    04568 /* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
    04569          doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w,
    04570         integer *ldw, integer *info);
    04571
    04572 /* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char *
    04573         normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab,
    04574         doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info);
    04575
    04576 /* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__,
    04577         integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *
    04578         rdscal, integer *ipiv, integer *jpiv);
    04579
    04580 /* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char *
    04581         normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal *
    04582         scale, doublereal *cnorm, integer *info);
    04583
    04584 /* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb,
    04585         doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau,
    04586         doublecomplex *w, integer *ldw);
    04587
    04588 /* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char *
    04589         normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x,
    04590         doublereal *scale, doublereal *cnorm, integer *info);
    04591
    04592 /* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l,
    04593         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04594         work);
    04595
    04596 /* Subroutine */ int zlatzm_(char *side, integer *m, integer *n,
    04597         doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
    04598         c1, doublecomplex *c2, integer *ldc, doublecomplex *work);
    04599
    04600 /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a,
    04601         integer *lda, integer *info);
    04602
    04603 /* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a,
    04604         integer *lda, integer *info);
    04605
    04606 /* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd,
    04607         doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal *
    04608         rcond, doublecomplex *work, doublereal *rwork, integer *info);
    04609
    04610 /* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd,
    04611         doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
    04612         doublereal *amax, integer *info);
    04613
    04614 /* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer *
    04615         nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
    04616         ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    04617          doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
    04618         rwork, integer *info);
    04619
    04620 /* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd,
    04621         doublecomplex *ab, integer *ldab, integer *info);
    04622
    04623 /* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer *
    04624         nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
    04625         ldb, integer *info);
    04626
    04627 /* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
    04628         integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb,
    04629         integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer
    04630         *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *
    04631         ferr, doublereal *berr, doublecomplex *work, doublereal *rwork,
    04632         integer *info);
    04633
    04634 /* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd,
    04635         doublecomplex *ab, integer *ldab, integer *info);
    04636
    04637 /* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd,
    04638         doublecomplex *ab, integer *ldab, integer *info);
    04639
    04640 /* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer *
    04641         nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
    04642         ldb, integer *info);
    04643
    04644 /* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a,
    04645         integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
    04646         work, doublereal *rwork, integer *info);
    04647
    04648 /* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda,
    04649         doublereal *s, doublereal *scond, doublereal *amax, integer *info);
    04650
    04651 /* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs,
    04652         doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
    04653         doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    04654         doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
    04655         rwork, integer *info);
    04656
    04657 /* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs,
    04658         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04659         integer *info);
    04660
    04661 /* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer *
    04662         nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
    04663         ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb,
    04664         doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
    04665         doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
    04666         info);
    04667
    04668 /* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a,
    04669         integer *lda, integer *info);
    04670
    04671 /* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a,
    04672         integer *lda, integer *info);
    04673
    04674 /* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a,
    04675         integer *lda, integer *info);
    04676
    04677 /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs,
    04678         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04679         integer *info);
    04680
    04681 /* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap,
    04682         doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal
    04683         *rwork, integer *info);
    04684
    04685 /* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap,
    04686         doublereal *s, doublereal *scond, doublereal *amax, integer *info);
    04687
    04688 /* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs,
    04689         doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb,
    04690          doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
    04691         doublecomplex *work, doublereal *rwork, integer *info);
    04692
    04693 /* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs,
    04694         doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
    04695
    04696 /* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer *
    04697         nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal *
    04698         s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    04699         doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
    04700         work, doublereal *rwork, integer *info);
    04701
    04702 /* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap,
    04703         integer *info);
    04704
    04705 /* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap,
    04706         integer *info);
    04707
    04708 /* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs,
    04709         doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
    04710
    04711 /* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e,
    04712         doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *
    04713         info);
    04714
    04715 /* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs,
    04716         doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef,
    04717         doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    04718         doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
    04719         rwork, integer *info);
    04720
    04721 /* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__,
    04722         doublecomplex *e, doublecomplex *b, integer *ldb, integer *info);
    04723
    04724 /* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs,
    04725         doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef,
    04726         doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    04727         doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
    04728         work, doublereal *rwork, integer *info);
    04729
    04730 /* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e,
    04731         integer *info);
    04732
    04733 /* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs,
    04734         doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb,
    04735         integer *info);
    04736
    04737 /* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs,
    04738         doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb);
    04739
    04740 /* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx,
    04741         doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);
    04742
    04743 /* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap,
    04744         integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
    04745         work, integer *info);
    04746
    04747 /* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha,
    04748         doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
    04749         beta, doublecomplex *y, integer *incy);
    04750
    04751 /* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha,
    04752         doublecomplex *x, integer *incx, doublecomplex *ap);
    04753
    04754 /* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs,
    04755         doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
    04756         b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
    04757         doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
    04758         info);
    04759
    04760 /* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs,
    04761         doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
    04762         integer *info);
    04763
    04764 /* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer *
    04765         nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv,
    04766         doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    04767         doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
    04768         work, doublereal *rwork, integer *info);
    04769
    04770 /* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap,
    04771         integer *ipiv, integer *info);
    04772
    04773 /* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap,
    04774         integer *ipiv, doublecomplex *work, integer *info);
    04775
    04776 /* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs,
    04777         doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
    04778         integer *info);
    04779
    04780 /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__,
    04781         doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work,
    04782         integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork,
    04783         integer *liwork, integer *info);
    04784
    04785 /* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e,
    04786         integer *m, doublereal *w, integer *iblock, integer *isplit,
    04787         doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork,
    04788         integer *ifail, integer *info);
    04789
    04790 /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__,
    04791         doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work,
    04792         integer *info);
    04793
    04794 /* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a,
    04795         integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
    04796         doublecomplex *work, integer *info);
    04797
    04798 /* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha,
    04799         doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
    04800         doublecomplex *beta, doublecomplex *y, integer *incy);
    04801
    04802 /* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha,
    04803         doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
    04804
    04805 /* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs,
    04806         doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
    04807         integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
    04808         integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
    04809          doublereal *rwork, integer *info);
    04810
    04811 /* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs,
    04812         doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
    04813         integer *ldb, doublecomplex *work, integer *lwork, integer *info);
    04814
    04815 /* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer *
    04816         nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
    04817         ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
    04818          integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
    04819         doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
    04820
    04821 /* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a,
    04822         integer *lda, integer *ipiv, integer *info);
    04823
    04824 /* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a,
    04825         integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
    04826         integer *info);
    04827
    04828 /* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a,
    04829         integer *lda, integer *ipiv, doublecomplex *work, integer *info);
    04830
    04831 /* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs,
    04832         doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
    04833         integer *ldb, integer *info);
    04834
    04835 /* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n,
    04836         integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond,
    04837         doublecomplex *work, doublereal *rwork, integer *info);
    04838
    04839 /* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n,
    04840         integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab,
    04841         doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
    04842         doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
    04843         rwork, integer *info);
    04844
    04845 /* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n,
    04846         integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab,
    04847         doublecomplex *b, integer *ldb, integer *info);
    04848
    04849 /* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select,
    04850         integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer
    04851         *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
    04852         ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
    04853          integer *info);
    04854
    04855 /* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n,
    04856         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04857         doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz,
    04858         integer *j1, integer *info);
    04859
    04860 /* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n,
    04861         doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04862         doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz,
    04863         integer *ifst, integer *ilst, integer *info);
    04864
    04865 /* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz,
    04866         logical *select, integer *n, doublecomplex *a, integer *lda,
    04867         doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
    04868         beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
    04869         ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
    04870         doublecomplex *work, integer *lwork, integer *iwork, integer *liwork,
    04871         integer *info);
    04872
    04873 /* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m,
    04874         integer *p, integer *n, integer *k, integer *l, doublecomplex *a,
    04875         integer *lda, doublecomplex *b, integer *ldb, doublereal *tola,
    04876         doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex *
    04877         u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q,
    04878         integer *ldq, doublecomplex *work, integer *ncycle, integer *info);
    04879
    04880 /* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select,
    04881         integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer
    04882         *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
    04883         ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m,
    04884         doublecomplex *work, integer *lwork, integer *iwork, integer *info);
    04885
    04886 /* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer *
    04887         n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04888         doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd,
    04889         doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf,
    04890         doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer *
    04891         info);
    04892
    04893 /* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer *
    04894         n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
    04895         doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd,
    04896         doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf,
    04897         doublereal *scale, doublereal *dif, doublecomplex *work, integer *
    04898         lwork, integer *iwork, integer *info);
    04899
    04900 /* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n,
    04901         doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal
    04902         *rwork, integer *info);
    04903
    04904 /* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n,
    04905         integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
    04906         doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
    04907         doublecomplex *work, doublereal *rwork, integer *info);
    04908
    04909 /* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n,
    04910         doublecomplex *ap, integer *info);
    04911
    04912 /* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n,
    04913         integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
    04914         integer *info);
    04915
    04916 /* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n,
    04917         doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex *
    04918         work, doublereal *rwork, integer *info);
    04919
    04920 /* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select,
    04921         integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl,
    04922         integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer
    04923         *m, doublecomplex *work, doublereal *rwork, integer *info);
    04924
    04925 /* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t,
    04926         integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *
    04927         ilst, integer *info);
    04928
    04929 /* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n,
    04930         integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b,
    04931         integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
    04932         doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
    04933         info);
    04934
    04935 /* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer
    04936         *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq,
    04937         doublecomplex *w, integer *m, doublereal *s, doublereal *sep,
    04938         doublecomplex *work, integer *lwork, integer *info);
    04939
    04940 /* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select,
    04941         integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl,
    04942         integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s,
    04943         doublereal *sep, integer *mm, integer *m, doublecomplex *work,
    04944         integer *ldwork, doublereal *rwork, integer *info);
    04945
    04946 /* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer
    04947         *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
    04948         integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale,
    04949         integer *info);
    04950
    04951 /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n,
    04952         doublecomplex *a, integer *lda, integer *info);
    04953
    04954 /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n,
    04955         doublecomplex *a, integer *lda, integer *info);
    04956
    04957 /* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n,
    04958         integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b,
    04959         integer *ldb, integer *info);
    04960
    04961 /* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a,
    04962         integer *lda, doublecomplex *tau, integer *info);
    04963
    04964 /* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a,
    04965         integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
    04966          integer *info);
    04967
    04968 /* Subroutine */ int zung2l_(integer *m, integer *n, integer *k,
    04969         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04970         work, integer *info);
    04971
    04972 /* Subroutine */ int zung2r_(integer *m, integer *n, integer *k,
    04973         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04974         work, integer *info);
    04975
    04976 /* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k,
    04977         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04978         work, integer *lwork, integer *info);
    04979
    04980 /* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi,
    04981         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04982         work, integer *lwork, integer *info);
    04983
    04984 /* Subroutine */ int zungl2_(integer *m, integer *n, integer *k,
    04985         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04986         work, integer *info);
    04987
    04988 /* Subroutine */ int zunglq_(integer *m, integer *n, integer *k,
    04989         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04990         work, integer *lwork, integer *info);
    04991
    04992 /* Subroutine */ int zungql_(integer *m, integer *n, integer *k,
    04993         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04994         work, integer *lwork, integer *info);
    04995
    04996 /* Subroutine */ int zungqr_(integer *m, integer *n, integer *k,
    04997         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    04998         work, integer *lwork, integer *info);
    04999
    05000 /* Subroutine */ int zungr2_(integer *m, integer *n, integer *k,
    05001         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    05002         work, integer *info);
    05003
    05004 /* Subroutine */ int zungrq_(integer *m, integer *n, integer *k,
    05005         doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
    05006         work, integer *lwork, integer *info);
    05007
    05008 /* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a,
    05009         integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
    05010          integer *info);
    05011
    05012 /* Subroutine */ int zunm2l_(char *side, char *trans, integer *m, integer *n,
    05013         integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
    05014         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
    05015
    05016 /* Subroutine */ int zunm2r_(char *side, char *trans, integer *m, integer *n,
    05017         integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
    05018         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
    05019
    05020 /* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m,
    05021         integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex
    05022         *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
    05023         lwork, integer *info);
    05024
    05025 /* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n,
    05026         integer *ilo, integer *ihi, doublecomplex *a, integer *lda,
    05027         doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *
    05028         work, integer *lwork, integer *info);
    05029
    05030 /* Subroutine */ int zunml2_(char *side, char *trans, integer *m, integer *n,
    05031         integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
    05032         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
    05033
    05034 /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n,
    05035         integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
    05036         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
    05037          integer *info);
    05038
    05039 /* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n,
    05040         integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
    05041         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
    05042          integer *info);
    05043
    05044 /* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n,
    05045         integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
    05046         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
    05047          integer *info);
    05048
    05049 /* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n,
    05050         integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
    05051         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
    05052
    05053 /* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n,
    05054         integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex
    05055         *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
    05056         info);
    05057
    05058 /* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n,
    05059         integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
    05060         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
    05061          integer *info);
    05062
    05063 /* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n,
    05064         integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex
    05065         *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
    05066         lwork, integer *info);
    05067
    05068 /* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m,
    05069         integer *n, doublecomplex *a, integer *lda, doublecomplex *tau,
    05070         doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
    05071          integer *info);
    05072
    05073 /* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap,
    05074         doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *
    05075         work, integer *info);
    05076
    05077 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m,
    05078         integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__,
    05079          integer *ldc, doublecomplex *work, integer *info);
    05080
    05081 #endif /* __CLAPACK_H */

All Classes Functions Variables