00001 #ifndef __CLAPACK_H
00002 #define __CLAPACK_H
00003
00004 #include "f2c.h"
00005
00006 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 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 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 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 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 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 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 int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
00041 complex *ab, integer *ldab, integer *ipiv, integer *info);
00042
00043 int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
00044 complex *ab, integer *ldab, integer *ipiv, integer *info);
00045
00046 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 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 int cgebal_(char *job, integer *n, complex *a, integer *lda,
00055 integer *ilo, integer *ihi, real *scale, integer *info);
00056
00057 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 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 int cgecon_(char *norm, integer *n, complex *a, integer *lda,
00066 real *anorm, real *rcond, complex *work, real *rwork, integer *info);
00067
00068 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 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 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 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 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 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 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 int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
00104 a, integer *lda, complex *tau, complex *work, integer *info);
00105
00106 int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
00107 a, integer *lda, complex *tau, complex *work, integer *lwork, integer
00108 *info);
00109
00110 int cgelq2_(integer *m, integer *n, complex *a, integer *lda,
00111 complex *tau, complex *work, integer *info);
00112
00113 int cgelqf_(integer *m, integer *n, complex *a, integer *lda,
00114 complex *tau, complex *work, integer *lwork, integer *info);
00115
00116 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 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 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 int cgeql2_(integer *m, integer *n, complex *a, integer *lda,
00130 complex *tau, complex *work, integer *info);
00131
00132 int cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
00133 complex *tau, complex *work, integer *lwork, integer *info);
00134
00135 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 int cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
00140 integer *jpvt, complex *tau, complex *work, real *rwork, integer *
00141 info);
00142
00143 int cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
00144 complex *tau, complex *work, integer *info);
00145
00146 int cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
00147 complex *tau, complex *work, integer *lwork, integer *info);
00148
00149 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 int cgerq2_(integer *m, integer *n, complex *a, integer *lda,
00155 complex *tau, complex *work, integer *info);
00156
00157 int cgerqf_(integer *m, integer *n, complex *a, integer *lda,
00158 complex *tau, complex *work, integer *lwork, integer *info);
00159
00160 int cgesc2_(integer *n, complex *a, integer *lda, complex *
00161 rhs, integer *ipiv, integer *jpiv, real *scale);
00162
00163 int cgesv_(integer *n, integer *nrhs, complex *a, integer *
00164 lda, integer *ipiv, complex *b, integer *ldb, integer *info);
00165
00166 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 int cgetc2_(integer *n, complex *a, integer *lda, integer *
00173 ipiv, integer *jpiv, integer *info);
00174
00175 int cgetf2_(integer *m, integer *n, complex *a, integer *lda,
00176 integer *ipiv, integer *info);
00177
00178 int cgetrf_(integer *m, integer *n, complex *a, integer *lda,
00179 integer *ipiv, integer *info);
00180
00181 int cgetri_(integer *n, complex *a, integer *lda, integer *
00182 ipiv, complex *work, integer *lwork, integer *info);
00183
00184 int cgetrs_(char *trans, integer *n, integer *nrhs, complex *
00185 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
00186 info);
00187
00188 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *
00266 d__, complex *du, complex *b, integer *ldb, integer *info);
00267
00268 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 int cgttrf_(integer *n, complex *dl, complex *d__, complex *
00275 du, complex *du2, integer *ipiv, integer *info);
00276
00277 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 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 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 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 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 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 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 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 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 int checon_(char *uplo, integer *n, complex *a, integer *lda,
00321 integer *ipiv, real *anorm, real *rcond, complex *work, integer *
00322 info);
00323
00324 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 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 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 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 int chegs2_(integer *itype, char *uplo, integer *n, complex *
00345 a, integer *lda, complex *b, integer *ldb, integer *info);
00346
00347 int chegst_(integer *itype, char *uplo, integer *n, complex *
00348 a, integer *lda, complex *b, integer *ldb, integer *info);
00349
00350 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 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 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 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 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 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 int chetf2_(char *uplo, integer *n, complex *a, integer *lda,
00381 integer *ipiv, integer *info);
00382
00383 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 int chetrf_(char *uplo, integer *n, complex *a, integer *lda,
00388 integer *ipiv, complex *work, integer *lwork, integer *info);
00389
00390 int chetri_(char *uplo, integer *n, complex *a, integer *lda,
00391 integer *ipiv, complex *work, integer *info);
00392
00393 int chetrs_(char *uplo, integer *n, integer *nrhs, complex *
00394 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
00395 info);
00396
00397 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 int chpcon_(char *uplo, integer *n, complex *ap, integer *
00404 ipiv, real *anorm, real *rcond, complex *work, integer *info);
00405
00406 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 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 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 int chpgst_(integer *itype, char *uplo, integer *n, complex *
00421 ap, complex *bp, integer *info);
00422
00423 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 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 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 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 int chpsv_(char *uplo, integer *n, integer *nrhs, complex *
00444 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
00445
00446 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 int chptrd_(char *uplo, integer *n, complex *ap, real *d__,
00452 real *e, complex *tau, integer *info);
00453
00454 int chptrf_(char *uplo, integer *n, complex *ap, integer *
00455 ipiv, integer *info);
00456
00457 int chptri_(char *uplo, integer *n, complex *ap, integer *
00458 ipiv, complex *work, integer *info);
00459
00460 int chptrs_(char *uplo, integer *n, integer *nrhs, complex *
00461 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
00462
00463 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 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 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 int clacgv_(integer *n, complex *x, integer *incx);
00478
00479 int clacon_(integer *n, complex *v, complex *x, real *est,
00480 integer *kase);
00481
00482 int clacp2_(char *uplo, integer *m, integer *n, real *a,
00483 integer *lda, complex *b, integer *ldb);
00484
00485 int clacpy_(char *uplo, integer *m, integer *n, complex *a,
00486 integer *lda, complex *b, integer *ldb);
00487
00488 int clacrm_(integer *m, integer *n, complex *a, integer *lda,
00489 real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
00490
00491 int clacrt_(integer *n, complex *cx, integer *incx, complex *
00492 cy, integer *incy, complex *c__, complex *s);
00493
00494 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 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 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 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 int claesy_(complex *a, complex *b, complex *c__, complex *
00516 rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
00517
00518 int claev2_(complex *a, complex *b, complex *c__, real *rt1,
00519 real *rt2, real *cs1, complex *sn1);
00520
00521 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 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 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 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 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 int claic1_(integer *job, integer *j, complex *x, real *sest,
00543 complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
00544
00545 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 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 int clapll_(integer *n, complex *x, integer *incx, complex *
00560 y, integer *incy, real *ssmin);
00561
00562 int clapmt_(logical *forwrd, integer *m, integer *n, complex
00563 *x, integer *ldx, integer *k);
00564
00565 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 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 int claqhb_(char *uplo, integer *n, integer *kd, complex *ab,
00574 integer *ldab, real *s, real *scond, real *amax, char *equed);
00575
00576 int claqhe_(char *uplo, integer *n, complex *a, integer *lda,
00577 real *s, real *scond, real *amax, char *equed);
00578
00579 int claqhp_(char *uplo, integer *n, complex *ap, real *s,
00580 real *scond, real *amax, char *equed);
00581
00582 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 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 int claqsb_(char *uplo, integer *n, integer *kd, complex *ab,
00591 integer *ldab, real *s, real *scond, real *amax, char *equed);
00592
00593 int claqsp_(char *uplo, integer *n, complex *ap, real *s,
00594 real *scond, real *amax, char *equed);
00595
00596 int claqsy_(char *uplo, integer *n, complex *a, integer *lda,
00597 real *s, real *scond, real *amax, char *equed);
00598
00599 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 int clar2v_(integer *n, complex *x, complex *y, complex *z__,
00605 integer *incx, real *c__, complex *s, integer *incc);
00606
00607 int clarcm_(integer *m, integer *n, real *a, integer *lda,
00608 complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
00609
00610 int clarf_(char *side, integer *m, integer *n, complex *v,
00611 integer *incv, complex *tau, complex *c__, integer *ldc, complex *
00612 work);
00613
00614 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 int clarfg_(integer *n, complex *alpha, complex *x, integer *
00620 incx, complex *tau);
00621
00622 int clarft_(char *direct, char *storev, integer *n, integer *
00623 k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
00624
00625 int clarfx_(char *side, integer *m, integer *n, complex *v,
00626 complex *tau, complex *c__, integer *ldc, complex *work);
00627
00628 int clargv_(integer *n, complex *x, integer *incx, complex *
00629 y, integer *incy, real *c__, integer *incc);
00630
00631 int clarnv_(integer *idist, integer *iseed, integer *n,
00632 complex *x);
00633
00634 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 int clartg_(complex *f, complex *g, real *cs, complex *sn,
00640 complex *r__);
00641
00642 int clartv_(integer *n, complex *x, integer *incx, complex *
00643 y, integer *incy, real *c__, complex *s, integer *incc);
00644
00645 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 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 int clarzt_(char *direct, char *storev, integer *n, integer *
00655 k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
00656
00657 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 int claset_(char *uplo, integer *m, integer *n, complex *
00662 alpha, complex *beta, complex *a, integer *lda);
00663
00664 int clasr_(char *side, char *pivot, char *direct, integer *m,
00665 integer *n, real *c__, real *s, complex *a, integer *lda);
00666
00667 int classq_(integer *n, complex *x, integer *incx, real *
00668 scale, real *sumsq);
00669
00670 int claswp_(integer *n, complex *a, integer *lda, integer *
00671 k1, integer *k2, integer *ipiv, integer *incx);
00672
00673 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 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 int clatdf_(integer *ijob, integer *n, complex *z__, integer
00682 *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer
00683 *jpiv);
00684
00685 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 int clatrd_(char *uplo, integer *n, integer *nb, complex *a,
00690 integer *lda, real *e, complex *tau, complex *w, integer *ldw);
00691
00692 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 int clatrz_(integer *m, integer *n, integer *l, complex *a,
00697 integer *lda, complex *tau, complex *work);
00698
00699 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 int clauu2_(char *uplo, integer *n, complex *a, integer *lda,
00704 integer *info);
00705
00706 int clauum_(char *uplo, integer *n, complex *a, integer *lda,
00707 integer *info);
00708
00709 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 int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab,
00714 integer *ldab, real *s, real *scond, real *amax, integer *info);
00715
00716 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 int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab,
00722 integer *ldab, integer *info);
00723
00724 int cpbsv_(char *uplo, integer *n, integer *kd, integer *
00725 nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
00726 info);
00727
00728 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 int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab,
00735 integer *ldab, integer *info);
00736
00737 int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab,
00738 integer *ldab, integer *info);
00739
00740 int cpbtrs_(char *uplo, integer *n, integer *kd, integer *
00741 nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
00742 info);
00743
00744 int cpocon_(char *uplo, integer *n, complex *a, integer *lda,
00745 real *anorm, real *rcond, complex *work, real *rwork, integer *info);
00746
00747 int cpoequ_(integer *n, complex *a, integer *lda, real *s,
00748 real *scond, real *amax, integer *info);
00749
00750 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 int cposv_(char *uplo, integer *n, integer *nrhs, complex *a,
00756 integer *lda, complex *b, integer *ldb, integer *info);
00757
00758 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 int cpotf2_(char *uplo, integer *n, complex *a, integer *lda,
00765 integer *info);
00766
00767 int cpotrf_(char *uplo, integer *n, complex *a, integer *lda,
00768 integer *info);
00769
00770 int cpotri_(char *uplo, integer *n, complex *a, integer *lda,
00771 integer *info);
00772
00773 int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *
00774 a, integer *lda, complex *b, integer *ldb, integer *info);
00775
00776 int cppcon_(char *uplo, integer *n, complex *ap, real *anorm,
00777 real *rcond, complex *work, real *rwork, integer *info);
00778
00779 int cppequ_(char *uplo, integer *n, complex *ap, real *s,
00780 real *scond, real *amax, integer *info);
00781
00782 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 int cppsv_(char *uplo, integer *n, integer *nrhs, complex *
00787 ap, complex *b, integer *ldb, integer *info);
00788
00789 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 int cpptrf_(char *uplo, integer *n, complex *ap, integer *
00795 info);
00796
00797 int cpptri_(char *uplo, integer *n, complex *ap, integer *
00798 info);
00799
00800 int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *
00801 ap, complex *b, integer *ldb, integer *info);
00802
00803 int cptcon_(integer *n, real *d__, complex *e, real *anorm,
00804 real *rcond, real *rwork, integer *info);
00805
00806 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 int cptsv_(integer *n, integer *nrhs, real *d__, complex *e,
00812 complex *b, integer *ldb, integer *info);
00813
00814 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 int cpttrf_(integer *n, real *d__, complex *e, integer *info);
00820
00821 int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__,
00822 complex *e, complex *b, integer *ldb, integer *info);
00823
00824 int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *
00825 d__, complex *e, complex *b, integer *ldb);
00826
00827 int crot_(integer *n, complex *cx, integer *incx, complex *
00828 cy, integer *incy, real *c__, complex *s);
00829
00830 int cspcon_(char *uplo, integer *n, complex *ap, integer *
00831 ipiv, real *anorm, real *rcond, complex *work, integer *info);
00832
00833 int cspmv_(char *uplo, integer *n, complex *alpha, complex *
00834 ap, complex *x, integer *incx, complex *beta, complex *y, integer *
00835 incy);
00836
00837 int cspr_(char *uplo, integer *n, complex *alpha, complex *x,
00838 integer *incx, complex *ap);
00839
00840 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 int cspsv_(char *uplo, integer *n, integer *nrhs, complex *
00846 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
00847
00848 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 int csptrf_(char *uplo, integer *n, complex *ap, integer *
00854 ipiv, integer *info);
00855
00856 int csptri_(char *uplo, integer *n, complex *ap, integer *
00857 ipiv, complex *work, integer *info);
00858
00859 int csptrs_(char *uplo, integer *n, integer *nrhs, complex *
00860 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
00861
00862 int csrot_(integer *n, complex *cx, integer *incx, complex *
00863 cy, integer *incy, real *c__, real *s);
00864
00865 int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
00866
00867 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 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 int csteqr_(char *compz, integer *n, real *d__, real *e,
00877 complex *z__, integer *ldz, real *work, integer *info);
00878
00879 int csycon_(char *uplo, integer *n, complex *a, integer *lda,
00880 integer *ipiv, real *anorm, real *rcond, complex *work, integer *
00881 info);
00882
00883 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 int csyr_(char *uplo, integer *n, complex *alpha, complex *x,
00888 integer *incx, complex *a, integer *lda);
00889
00890 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 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 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 int csytf2_(char *uplo, integer *n, complex *a, integer *lda,
00906 integer *ipiv, integer *info);
00907
00908 int csytrf_(char *uplo, integer *n, complex *a, integer *lda,
00909 integer *ipiv, complex *work, integer *lwork, integer *info);
00910
00911 int csytri_(char *uplo, integer *n, complex *a, integer *lda,
00912 integer *ipiv, complex *work, integer *info);
00913
00914 int csytrs_(char *uplo, integer *n, integer *nrhs, complex *
00915 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
00916 info);
00917
00918 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 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 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 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 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 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 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 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 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 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 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 int ctpcon_(char *norm, char *uplo, char *diag, integer *n,
00978 complex *ap, real *rcond, complex *work, real *rwork, integer *info);
00979
00980 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 int ctptri_(char *uplo, char *diag, integer *n, complex *ap,
00986 integer *info);
00987
00988 int ctptrs_(char *uplo, char *trans, char *diag, integer *n,
00989 integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info);
00990
00991 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 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 int ctrexc_(char *compq, integer *n, complex *t, integer *
01001 ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *
01002 info);
01003
01004 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 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 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 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 int ctrti2_(char *uplo, char *diag, integer *n, complex *a,
01024 integer *lda, integer *info);
01025
01026 int ctrtri_(char *uplo, char *diag, integer *n, complex *a,
01027 integer *lda, integer *info);
01028
01029 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 int ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
01034 complex *tau, integer *info);
01035
01036 int ctzrzf_(integer *m, integer *n, complex *a, integer *lda,
01037 complex *tau, complex *work, integer *lwork, integer *info);
01038
01039 int cung2l_(integer *m, integer *n, integer *k, complex *a,
01040 integer *lda, complex *tau, complex *work, integer *info);
01041
01042 int cung2r_(integer *m, integer *n, integer *k, complex *a,
01043 integer *lda, complex *tau, complex *work, integer *info);
01044
01045 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 int cunghr_(integer *n, integer *ilo, integer *ihi, complex *
01050 a, integer *lda, complex *tau, complex *work, integer *lwork, integer
01051 *info);
01052
01053 int cungl2_(integer *m, integer *n, integer *k, complex *a,
01054 integer *lda, complex *tau, complex *work, integer *info);
01055
01056 int cunglq_(integer *m, integer *n, integer *k, complex *a,
01057 integer *lda, complex *tau, complex *work, integer *lwork, integer *
01058 info);
01059
01060 int cungql_(integer *m, integer *n, integer *k, complex *a,
01061 integer *lda, complex *tau, complex *work, integer *lwork, integer *
01062 info);
01063
01064 int cungqr_(integer *m, integer *n, integer *k, complex *a,
01065 integer *lda, complex *tau, complex *work, integer *lwork, integer *
01066 info);
01067
01068 int cungr2_(integer *m, integer *n, integer *k, complex *a,
01069 integer *lda, complex *tau, complex *work, integer *info);
01070
01071 int cungrq_(integer *m, integer *n, integer *k, complex *a,
01072 integer *lda, complex *tau, complex *work, integer *lwork, integer *
01073 info);
01074
01075 int cungtr_(char *uplo, integer *n, complex *a, integer *lda,
01076 complex *tau, complex *work, integer *lwork, integer *info);
01077
01078 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 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 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 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 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 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 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 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 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 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 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 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 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 int cupgtr_(char *uplo, integer *n, complex *ap, complex *
01134 tau, complex *q, integer *ldq, complex *work, integer *info);
01135
01136 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 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 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 int ddisna_(char *job, integer *m, integer *n, doublereal *
01151 d__, doublereal *sep, integer *info);
01152
01153 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 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 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 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 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 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 int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
01186 doublereal *ab, integer *ldab, integer *ipiv, integer *info);
01187
01188 int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
01189 doublereal *ab, integer *ldab, integer *ipiv, integer *info);
01190
01191 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 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 int dgebal_(char *job, integer *n, doublereal *a, integer *
01200 lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
01201
01202 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 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 int dgecon_(char *norm, integer *n, doublereal *a, integer *
01211 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
01212 iwork, integer *info);
01213
01214 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 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 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 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 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 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 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 int dgehd2_(integer *n, integer *ilo, integer *ihi,
01254 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
01255 integer *info);
01256
01257 int dgehrd_(integer *n, integer *ilo, integer *ihi,
01258 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
01259 integer *lwork, integer *info);
01260
01261 int dgelq2_(integer *m, integer *n, doublereal *a, integer *
01262 lda, doublereal *tau, doublereal *work, integer *info);
01263
01264 int dgelqf_(integer *m, integer *n, doublereal *a, integer *
01265 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01266
01267 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 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 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 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 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 int dgeql2_(integer *m, integer *n, doublereal *a, integer *
01292 lda, doublereal *tau, doublereal *work, integer *info);
01293
01294 int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
01295 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01296
01297 int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
01298 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
01299 integer *info);
01300
01301 int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
01302 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
01303
01304 int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
01305 lda, doublereal *tau, doublereal *work, integer *info);
01306
01307 int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
01308 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01309
01310 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 int dgerq2_(integer *m, integer *n, doublereal *a, integer *
01317 lda, doublereal *tau, doublereal *work, integer *info);
01318
01319 int dgerqf_(integer *m, integer *n, doublereal *a, integer *
01320 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01321
01322 int dgesc2_(integer *n, doublereal *a, integer *lda,
01323 doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
01324
01325 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 int dgesv_(integer *n, integer *nrhs, doublereal *a, integer
01331 *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
01332
01333 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 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 int dgetc2_(integer *n, doublereal *a, integer *lda, integer
01346 *ipiv, integer *jpiv, integer *info);
01347
01348 int dgetf2_(integer *m, integer *n, doublereal *a, integer *
01349 lda, integer *ipiv, integer *info);
01350
01351 int dgetrf_(integer *m, integer *n, doublereal *a, integer *
01352 lda, integer *ipiv, integer *info);
01353
01354 int dgetri_(integer *n, doublereal *a, integer *lda, integer
01355 *ipiv, doublereal *work, integer *lwork, integer *info);
01356
01357 int dgetrs_(char *trans, integer *n, integer *nrhs,
01358 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
01359 ldb, integer *info);
01360
01361 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 int dgtsv_(integer *n, integer *nrhs, doublereal *dl,
01450 doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer
01451 *info);
01452
01453 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 int dgttrf_(integer *n, doublereal *dl, doublereal *d__,
01461 doublereal *du, doublereal *du2, integer *ipiv, integer *info);
01462
01463 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 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 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 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 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 int dlabad_(doublereal *ssmall, doublereal *llarge);
01489
01490 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 int dlacon_(integer *n, doublereal *v, doublereal *x,
01496 integer *isgn, doublereal *est, integer *kase);
01497
01498 int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
01499 a, integer *lda, doublereal *b, integer *ldb);
01500
01501 int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
01502 doublereal *d__, doublereal *p, doublereal *q);
01503
01504 int dlae2_(doublereal *a, doublereal *b, doublereal *c__,
01505 doublereal *rt1, doublereal *rt2);
01506
01507 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 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 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 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 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 int dlaed4_(integer *n, integer *i__, doublereal *d__,
01535 doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
01536 integer *info);
01537
01538 int dlaed5_(integer *i__, doublereal *d__, doublereal *z__,
01539 doublereal *delta, doublereal *rho, doublereal *dlam);
01540
01541 int dlaed6_(integer *kniter, logical *orgati, doublereal *
01542 rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
01543 tau, integer *info);
01544
01545 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 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 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 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 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 int dlaev2_(doublereal *a, doublereal *b, doublereal *c__,
01576 doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
01577
01578 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 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 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 int dlagtf_(integer *n, doublereal *a, doublereal *lambda,
01592 doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__,
01593 integer *in, integer *info);
01594
01595 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 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 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 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 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 int dlaic1_(integer *job, integer *j, doublereal *x,
01619 doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
01620 sestpr, doublereal *s, doublereal *c__);
01621
01622 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 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 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 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 int dlamc1_(integer *beta, integer *t, logical *rnd, logical
01649 *ieee1);
01650
01651 int dlamc2_(integer *beta, integer *t, logical *rnd,
01652 doublereal *eps, integer *emin, doublereal *rmin, integer *emax,
01653 doublereal *rmax);
01654
01655 int dlamc4_(integer *emin, doublereal *start, integer *base);
01656
01657 int dlamc5_(integer *beta, integer *p, integer *emin,
01658 logical *ieee, integer *emax, doublereal *rmax);
01659
01660 int dlamrg_(integer *n1, integer *n2, doublereal *a, integer
01661 *dtrd1, integer *dtrd2, integer *index);
01662
01663 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 int dlapll_(integer *n, doublereal *x, integer *incx,
01668 doublereal *y, integer *incy, doublereal *ssmin);
01669
01670 int dlapmt_(logical *forwrd, integer *m, integer *n,
01671 doublereal *x, integer *ldx, integer *k);
01672
01673 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 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 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 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 int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
01691 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
01692 char *equed);
01693
01694 int dlaqsp_(char *uplo, integer *n, doublereal *ap,
01695 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
01696
01697 int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
01698 lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
01699
01700 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 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 int dlar2v_(integer *n, doublereal *x, doublereal *y,
01710 doublereal *z__, integer *incx, doublereal *c__, doublereal *s,
01711 integer *incc);
01712
01713 int dlarf_(char *side, integer *m, integer *n, doublereal *v,
01714 integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
01715 doublereal *work);
01716
01717 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 int dlarfg_(integer *n, doublereal *alpha, doublereal *x,
01723 integer *incx, doublereal *tau);
01724
01725 int dlarft_(char *direct, char *storev, integer *n, integer *
01726 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
01727 integer *ldt);
01728
01729 int dlarfx_(char *side, integer *m, integer *n, doublereal *
01730 v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
01731
01732 int dlargv_(integer *n, doublereal *x, integer *incx,
01733 doublereal *y, integer *incy, doublereal *c__, integer *incc);
01734
01735 int dlarnv_(integer *idist, integer *iseed, integer *n,
01736 doublereal *x);
01737
01738 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 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 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 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 int dlartg_(doublereal *f, doublereal *g, doublereal *cs,
01760 doublereal *sn, doublereal *r__);
01761
01762 int dlartv_(integer *n, doublereal *x, integer *incx,
01763 doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer
01764 *incc);
01765
01766 int dlaruv_(integer *iseed, integer *n, doublereal *x);
01767
01768 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 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 int dlarzt_(char *direct, char *storev, integer *n, integer *
01778 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
01779 integer *ldt);
01780
01781 int dlas2_(doublereal *f, doublereal *g, doublereal *h__,
01782 doublereal *ssmin, doublereal *ssmax);
01783
01784 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 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 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 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 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 int dlasd4_(integer *n, integer *i__, doublereal *d__,
01812 doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
01813 sigma, doublereal *work, integer *info);
01814
01815 int dlasd5_(integer *i__, doublereal *d__, doublereal *z__,
01816 doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
01817 work);
01818
01819 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 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 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 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 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 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 int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
01858 inode, integer *ndiml, integer *ndimr, integer *msub);
01859
01860 int dlaset_(char *uplo, integer *m, integer *n, doublereal *
01861 alpha, doublereal *beta, doublereal *a, integer *lda);
01862
01863 int dlasq1_(integer *n, doublereal *d__, doublereal *e,
01864 doublereal *work, integer *info);
01865
01866 int dlasq2_(integer *n, doublereal *z__, integer *info);
01867
01868 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 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 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 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 int dlasr_(char *side, char *pivot, char *direct, integer *m,
01888 integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
01889 lda);
01890
01891 int dlasrt_(char *id, integer *n, doublereal *d__, integer *
01892 info);
01893
01894 int dlassq_(integer *n, doublereal *x, integer *incx,
01895 doublereal *scale, doublereal *sumsq);
01896
01897 int dlasv2_(doublereal *f, doublereal *g, doublereal *h__,
01898 doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
01899 csr, doublereal *snl, doublereal *csl);
01900
01901 int dlaswp_(integer *n, doublereal *a, integer *lda, integer
01902 *k1, integer *k2, integer *ipiv, integer *incx);
01903
01904 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 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 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 int dlatdf_(integer *ijob, integer *n, doublereal *z__,
01918 integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal,
01919 integer *ipiv, integer *jpiv);
01920
01921 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 int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
01926 a, integer *lda, doublereal *e, doublereal *tau, doublereal *w,
01927 integer *ldw);
01928
01929 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 int dlatrz_(integer *m, integer *n, integer *l, doublereal *
01934 a, integer *lda, doublereal *tau, doublereal *work);
01935
01936 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 int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
01941 lda, integer *info);
01942
01943 int dlauum_(char *uplo, integer *n, doublereal *a, integer *
01944 lda, integer *info);
01945
01946 int dopgtr_(char *uplo, integer *n, doublereal *ap,
01947 doublereal *tau, doublereal *q, integer *ldq, doublereal *work,
01948 integer *info);
01949
01950 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 int dorg2l_(integer *m, integer *n, integer *k, doublereal *
01955 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
01956
01957 int dorg2r_(integer *m, integer *n, integer *k, doublereal *
01958 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
01959
01960 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 int dorghr_(integer *n, integer *ilo, integer *ihi,
01965 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
01966 integer *lwork, integer *info);
01967
01968 int dorgl2_(integer *m, integer *n, integer *k, doublereal *
01969 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
01970
01971 int dorglq_(integer *m, integer *n, integer *k, doublereal *
01972 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
01973 integer *info);
01974
01975 int dorgql_(integer *m, integer *n, integer *k, doublereal *
01976 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
01977 integer *info);
01978
01979 int dorgqr_(integer *m, integer *n, integer *k, doublereal *
01980 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
01981 integer *info);
01982
01983 int dorgr2_(integer *m, integer *n, integer *k, doublereal *
01984 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
01985
01986 int dorgrq_(integer *m, integer *n, integer *k, doublereal *
01987 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
01988 integer *info);
01989
01990 int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
01991 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01992
01993 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 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 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 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 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 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 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 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 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 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 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 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 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 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 int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
02053 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
02054 integer *info);
02055
02056 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 int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
02063 ab, integer *ldab, integer *info);
02064
02065 int dpbsv_(char *uplo, integer *n, integer *kd, integer *
02066 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
02067 integer *info);
02068
02069 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 int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
02076 ab, integer *ldab, integer *info);
02077
02078 int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
02079 ab, integer *ldab, integer *info);
02080
02081 int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
02082 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
02083 integer *info);
02084
02085 int dpocon_(char *uplo, integer *n, doublereal *a, integer *
02086 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
02087 iwork, integer *info);
02088
02089 int dpoequ_(integer *n, doublereal *a, integer *lda,
02090 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
02091
02092 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 int dposv_(char *uplo, integer *n, integer *nrhs, doublereal
02099 *a, integer *lda, doublereal *b, integer *ldb, integer *info);
02100
02101 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 int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
02108 lda, integer *info);
02109
02110 int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
02111 lda, integer *info);
02112
02113 int dpotri_(char *uplo, integer *n, doublereal *a, integer *
02114 lda, integer *info);
02115
02116 int dpotrs_(char *uplo, integer *n, integer *nrhs,
02117 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
02118 info);
02119
02120 int dppcon_(char *uplo, integer *n, doublereal *ap,
02121 doublereal *anorm, doublereal *rcond, doublereal *work, integer *
02122 iwork, integer *info);
02123
02124 int dppequ_(char *uplo, integer *n, doublereal *ap,
02125 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
02126
02127 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 int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal
02133 *ap, doublereal *b, integer *ldb, integer *info);
02134
02135 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 int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
02142 info);
02143
02144 int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
02145 info);
02146
02147 int dpptrs_(char *uplo, integer *n, integer *nrhs,
02148 doublereal *ap, doublereal *b, integer *ldb, integer *info);
02149
02150 int dptcon_(integer *n, doublereal *d__, doublereal *e,
02151 doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
02152
02153 int dpteqr_(char *compz, integer *n, doublereal *d__,
02154 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
02155 integer *info);
02156
02157 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 int dptsv_(integer *n, integer *nrhs, doublereal *d__,
02163 doublereal *e, doublereal *b, integer *ldb, integer *info);
02164
02165 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 int dpttrf_(integer *n, doublereal *d__, doublereal *e,
02172 integer *info);
02173
02174 int dpttrs_(integer *n, integer *nrhs, doublereal *d__,
02175 doublereal *e, doublereal *b, integer *ldb, integer *info);
02176
02177 int dptts2_(integer *n, integer *nrhs, doublereal *d__,
02178 doublereal *e, doublereal *b, integer *ldb);
02179
02180 int drscl_(integer *n, doublereal *sa, doublereal *sx,
02181 integer *incx);
02182
02183 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 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 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 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 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 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 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 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 int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
02225 ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer
02226 *iwork, integer *info);
02227
02228 int dspev_(char *jobz, char *uplo, integer *n, doublereal *
02229 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
02230 integer *info);
02231
02232 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 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 int dspgst_(integer *itype, char *uplo, integer *n,
02243 doublereal *ap, doublereal *bp, integer *info);
02244
02245 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 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 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 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 int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal
02266 *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
02267
02268 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 int dsptrd_(char *uplo, integer *n, doublereal *ap,
02275 doublereal *d__, doublereal *e, doublereal *tau, integer *info);
02276
02277 int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
02278 ipiv, integer *info);
02279
02280 int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
02281 ipiv, doublereal *work, integer *info);
02282
02283 int dsptrs_(char *uplo, integer *n, integer *nrhs,
02284 doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
02285 info);
02286
02287 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 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 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 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 int dsteqr_(char *compz, integer *n, doublereal *d__,
02309 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
02310 integer *info);
02311
02312 int dsterf_(integer *n, doublereal *d__, doublereal *e,
02313 integer *info);
02314
02315 int dstev_(char *jobz, integer *n, doublereal *d__,
02316 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
02317 integer *info);
02318
02319 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 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 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 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 int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
02340 integer *lda, doublereal *w, doublereal *work, integer *lwork,
02341 integer *info);
02342
02343 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 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 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 int dsygs2_(integer *itype, char *uplo, integer *n,
02360 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
02361 info);
02362
02363 int dsygst_(integer *itype, char *uplo, integer *n,
02364 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
02365 info);
02366
02367 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 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 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 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 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 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 int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
02400 lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
02401
02402 int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
02403 lda, integer *ipiv, integer *info);
02404
02405 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 int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
02410 lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
02411
02412 int dsytri_(char *uplo, integer *n, doublereal *a, integer *
02413 lda, integer *ipiv, doublereal *work, integer *info);
02414
02415 int dsytrs_(char *uplo, integer *n, integer *nrhs,
02416 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
02417 ldb, integer *info);
02418
02419 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 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 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 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 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 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 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 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 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 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 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 int dtpcon_(char *norm, char *uplo, char *diag, integer *n,
02483 doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork,
02484 integer *info);
02485
02486 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 int dtptri_(char *uplo, char *diag, integer *n, doublereal *
02492 ap, integer *info);
02493
02494 int dtptrs_(char *uplo, char *trans, char *diag, integer *n,
02495 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
02496 info);
02497
02498 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 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 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 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 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 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 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 int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
02533 a, integer *lda, integer *info);
02534
02535 int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
02536 a, integer *lda, integer *info);
02537
02538 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 int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
02543 lda, doublereal *tau, integer *info);
02544
02545 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 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 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 int sdisna_(char *job, integer *m, integer *n, real *d__,
02567 real *sep, integer *info);
02568
02569 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 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 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 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 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 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 int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
02598 real *ab, integer *ldab, integer *ipiv, integer *info);
02599
02600 int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
02601 real *ab, integer *ldab, integer *ipiv, integer *info);
02602
02603 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 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 int sgebal_(char *job, integer *n, real *a, integer *lda,
02612 integer *ilo, integer *ihi, real *scale, integer *info);
02613
02614 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 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 int sgecon_(char *norm, integer *n, real *a, integer *lda,
02622 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
02623
02624 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 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 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 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 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 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 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 int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a,
02660 integer *lda, real *tau, real *work, integer *info);
02661
02662 int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a,
02663 integer *lda, real *tau, real *work, integer *lwork, integer *info);
02664
02665 int sgelq2_(integer *m, integer *n, real *a, integer *lda,
02666 real *tau, real *work, integer *info);
02667
02668 int sgelqf_(integer *m, integer *n, real *a, integer *lda,
02669 real *tau, real *work, integer *lwork, integer *info);
02670
02671 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 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 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 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 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 int sgeql2_(integer *m, integer *n, real *a, integer *lda,
02692 real *tau, real *work, integer *info);
02693
02694 int sgeqlf_(integer *m, integer *n, real *a, integer *lda,
02695 real *tau, real *work, integer *lwork, integer *info);
02696
02697 int sgeqp3_(integer *m, integer *n, real *a, integer *lda,
02698 integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
02699
02700 int sgeqpf_(integer *m, integer *n, real *a, integer *lda,
02701 integer *jpvt, real *tau, real *work, integer *info);
02702
02703 int sgeqr2_(integer *m, integer *n, real *a, integer *lda,
02704 real *tau, real *work, integer *info);
02705
02706 int sgeqrf_(integer *m, integer *n, real *a, integer *lda,
02707 real *tau, real *work, integer *lwork, integer *info);
02708
02709 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 int sgerq2_(integer *m, integer *n, real *a, integer *lda,
02715 real *tau, real *work, integer *info);
02716
02717 int sgerqf_(integer *m, integer *n, real *a, integer *lda,
02718 real *tau, real *work, integer *lwork, integer *info);
02719
02720 int sgesc2_(integer *n, real *a, integer *lda, real *rhs,
02721 integer *ipiv, integer *jpiv, real *scale);
02722
02723 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 int sgesv_(integer *n, integer *nrhs, real *a, integer *lda,
02728 integer *ipiv, real *b, integer *ldb, integer *info);
02729
02730 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 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 int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv,
02741 integer *jpiv, integer *info);
02742
02743 int sgetf2_(integer *m, integer *n, real *a, integer *lda,
02744 integer *ipiv, integer *info);
02745
02746 int sgetrf_(integer *m, integer *n, real *a, integer *lda,
02747 integer *ipiv, integer *info);
02748
02749 int sgetri_(integer *n, real *a, integer *lda, integer *ipiv,
02750 real *work, integer *lwork, integer *info);
02751
02752 int sgetrs_(char *trans, integer *n, integer *nrhs, real *a,
02753 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
02754
02755 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__,
02830 real *du, real *b, integer *ldb, integer *info);
02831
02832 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 int sgttrf_(integer *n, real *dl, real *d__, real *du, real *
02839 du2, integer *ipiv, integer *info);
02840
02841 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 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 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 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 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 int slabad_(real *ssmall, real *llarge);
02864
02865 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 int slacon_(integer *n, real *v, real *x, integer *isgn,
02870 real *est, integer *kase);
02871
02872 int slacpy_(char *uplo, integer *m, integer *n, real *a,
02873 integer *lda, real *b, integer *ldb);
02874
02875 int sladiv_(real *a, real *b, real *c__, real *d__, real *p,
02876 real *q);
02877
02878 int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
02879
02880 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 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 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 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 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 int slaed4_(integer *n, integer *i__, real *d__, real *z__,
02904 real *delta, real *rho, real *dlam, integer *info);
02905
02906 int slaed5_(integer *i__, real *d__, real *z__, real *delta,
02907 real *rho, real *dlam);
02908
02909 int slaed6_(integer *kniter, logical *orgati, real *rho,
02910 real *d__, real *z__, real *finit, real *tau, integer *info);
02911
02912 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 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 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 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 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 int slaev2_(real *a, real *b, real *c__, real *rt1, real *
02940 rt2, real *cs1, real *sn1);
02941
02942 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 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 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 int slagtf_(integer *n, real *a, real *lambda, real *b, real
02955 *c__, real *tol, real *d__, integer *in, integer *info);
02956
02957 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 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 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 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 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 int slaic1_(integer *job, integer *j, real *x, real *sest,
02977 real *w, real *gamma, real *sestpr, real *s, real *c__);
02978
02979 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 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 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 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 int slamc1_(integer *beta, integer *t, logical *rnd, logical
03003 *ieee1);
03004
03005 int slamc2_(integer *beta, integer *t, logical *rnd, real *
03006 eps, integer *emin, real *rmin, integer *emax, real *rmax);
03007
03008 int slamc4_(integer *emin, real *start, integer *base);
03009
03010 int slamc5_(integer *beta, integer *p, integer *emin,
03011 logical *ieee, integer *emax, real *rmax);
03012
03013 int slamrg_(integer *n1, integer *n2, real *a, integer *
03014 strd1, integer *strd2, integer *index);
03015
03016 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 int slapll_(integer *n, real *x, integer *incx, real *y,
03020 integer *incy, real *ssmin);
03021
03022 int slapmt_(logical *forwrd, integer *m, integer *n, real *x,
03023 integer *ldx, integer *k);
03024
03025 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 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 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 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 int slaqsb_(char *uplo, integer *n, integer *kd, real *ab,
03042 integer *ldab, real *s, real *scond, real *amax, char *equed);
03043
03044 int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *
03045 scond, real *amax, char *equed);
03046
03047 int slaqsy_(char *uplo, integer *n, real *a, integer *lda,
03048 real *s, real *scond, real *amax, char *equed);
03049
03050 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 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 int slar2v_(integer *n, real *x, real *y, real *z__, integer
03060 *incx, real *c__, real *s, integer *incc);
03061
03062 int slarf_(char *side, integer *m, integer *n, real *v,
03063 integer *incv, real *tau, real *c__, integer *ldc, real *work);
03064
03065 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 int slarfg_(integer *n, real *alpha, real *x, integer *incx,
03071 real *tau);
03072
03073 int slarft_(char *direct, char *storev, integer *n, integer *
03074 k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
03075
03076 int slarfx_(char *side, integer *m, integer *n, real *v,
03077 real *tau, real *c__, integer *ldc, real *work);
03078
03079 int slargv_(integer *n, real *x, integer *incx, real *y,
03080 integer *incy, real *c__, integer *incc);
03081
03082 int slarnv_(integer *idist, integer *iseed, integer *n, real
03083 *x);
03084
03085 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 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 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 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 int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
03103
03104 int slartv_(integer *n, real *x, integer *incx, real *y,
03105 integer *incy, real *c__, real *s, integer *incc);
03106
03107 int slaruv_(integer *iseed, integer *n, real *x);
03108
03109 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 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 int slarzt_(char *direct, char *storev, integer *n, integer *
03119 k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
03120
03121 int slas2_(real *f, real *g, real *h__, real *ssmin, real *
03122 ssmax);
03123
03124 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 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 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 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 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 int slasd4_(integer *n, integer *i__, real *d__, real *z__,
03150 real *delta, real *rho, real *sigma, real *work, integer *info);
03151
03152 int slasd5_(integer *i__, real *d__, real *z__, real *delta,
03153 real *rho, real *dsigma, real *work);
03154
03155 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 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 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 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 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 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 int slasdt_(integer *n, integer *lvl, integer *nd, integer *
03189 inode, integer *ndiml, integer *ndimr, integer *msub);
03190
03191 int slaset_(char *uplo, integer *m, integer *n, real *alpha,
03192 real *beta, real *a, integer *lda);
03193
03194 int slasq1_(integer *n, real *d__, real *e, real *work,
03195 integer *info);
03196
03197 int slasq2_(integer *n, real *z__, integer *info);
03198
03199 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 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 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 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 int slasr_(char *side, char *pivot, char *direct, integer *m,
03216 integer *n, real *c__, real *s, real *a, integer *lda);
03217
03218 int slasrt_(char *id, integer *n, real *d__, integer *info);
03219
03220 int slassq_(integer *n, real *x, integer *incx, real *scale,
03221 real *sumsq);
03222
03223 int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
03224 ssmax, real *snr, real *csr, real *snl, real *csl);
03225
03226 int slaswp_(integer *n, real *a, integer *lda, integer *k1,
03227 integer *k2, integer *ipiv, integer *incx);
03228
03229 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 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 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 int slatdf_(integer *ijob, integer *n, real *z__, integer *
03243 ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *
03244 jpiv);
03245
03246 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 int slatrd_(char *uplo, integer *n, integer *nb, real *a,
03251 integer *lda, real *e, real *tau, real *w, integer *ldw);
03252
03253 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 int slatrz_(integer *m, integer *n, integer *l, real *a,
03258 integer *lda, real *tau, real *work);
03259
03260 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 int slauu2_(char *uplo, integer *n, real *a, integer *lda,
03265 integer *info);
03266
03267 int slauum_(char *uplo, integer *n, real *a, integer *lda,
03268 integer *info);
03269
03270 int sopgtr_(char *uplo, integer *n, real *ap, real *tau,
03271 real *q, integer *ldq, real *work, integer *info);
03272
03273 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 int sorg2l_(integer *m, integer *n, integer *k, real *a,
03278 integer *lda, real *tau, real *work, integer *info);
03279
03280 int sorg2r_(integer *m, integer *n, integer *k, real *a,
03281 integer *lda, real *tau, real *work, integer *info);
03282
03283 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 int sorghr_(integer *n, integer *ilo, integer *ihi, real *a,
03288 integer *lda, real *tau, real *work, integer *lwork, integer *info);
03289
03290 int sorgl2_(integer *m, integer *n, integer *k, real *a,
03291 integer *lda, real *tau, real *work, integer *info);
03292
03293 int sorglq_(integer *m, integer *n, integer *k, real *a,
03294 integer *lda, real *tau, real *work, integer *lwork, integer *info);
03295
03296 int sorgql_(integer *m, integer *n, integer *k, real *a,
03297 integer *lda, real *tau, real *work, integer *lwork, integer *info);
03298
03299 int sorgqr_(integer *m, integer *n, integer *k, real *a,
03300 integer *lda, real *tau, real *work, integer *lwork, integer *info);
03301
03302 int sorgr2_(integer *m, integer *n, integer *k, real *a,
03303 integer *lda, real *tau, real *work, integer *info);
03304
03305 int sorgrq_(integer *m, integer *n, integer *k, real *a,
03306 integer *lda, real *tau, real *work, integer *lwork, integer *info);
03307
03308 int sorgtr_(char *uplo, integer *n, real *a, integer *lda,
03309 real *tau, real *work, integer *lwork, integer *info);
03310
03311 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 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 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 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 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 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 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 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 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 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 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 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 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 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 int spbequ_(char *uplo, integer *n, integer *kd, real *ab,
03368 integer *ldab, real *s, real *scond, real *amax, integer *info);
03369
03370 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 int spbstf_(char *uplo, integer *n, integer *kd, real *ab,
03376 integer *ldab, integer *info);
03377
03378 int spbsv_(char *uplo, integer *n, integer *kd, integer *
03379 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
03380
03381 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 int spbtf2_(char *uplo, integer *n, integer *kd, real *ab,
03388 integer *ldab, integer *info);
03389
03390 int spbtrf_(char *uplo, integer *n, integer *kd, real *ab,
03391 integer *ldab, integer *info);
03392
03393 int spbtrs_(char *uplo, integer *n, integer *kd, integer *
03394 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
03395
03396 int spocon_(char *uplo, integer *n, real *a, integer *lda,
03397 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
03398
03399 int spoequ_(integer *n, real *a, integer *lda, real *s, real
03400 *scond, real *amax, integer *info);
03401
03402 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 int sposv_(char *uplo, integer *n, integer *nrhs, real *a,
03408 integer *lda, real *b, integer *ldb, integer *info);
03409
03410 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 int spotf2_(char *uplo, integer *n, real *a, integer *lda,
03416 integer *info);
03417
03418 int spotrf_(char *uplo, integer *n, real *a, integer *lda,
03419 integer *info);
03420
03421 int spotri_(char *uplo, integer *n, real *a, integer *lda,
03422 integer *info);
03423
03424 int spotrs_(char *uplo, integer *n, integer *nrhs, real *a,
03425 integer *lda, real *b, integer *ldb, integer *info);
03426
03427 int sppcon_(char *uplo, integer *n, real *ap, real *anorm,
03428 real *rcond, real *work, integer *iwork, integer *info);
03429
03430 int sppequ_(char *uplo, integer *n, real *ap, real *s, real *
03431 scond, real *amax, integer *info);
03432
03433 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 int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap,
03438 real *b, integer *ldb, integer *info);
03439
03440 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 int spptrf_(char *uplo, integer *n, real *ap, integer *info);
03446
03447 int spptri_(char *uplo, integer *n, real *ap, integer *info);
03448
03449 int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
03450 real *b, integer *ldb, integer *info);
03451
03452 int sptcon_(integer *n, real *d__, real *e, real *anorm,
03453 real *rcond, real *work, integer *info);
03454
03455 int spteqr_(char *compz, integer *n, real *d__, real *e,
03456 real *z__, integer *ldz, real *work, integer *info);
03457
03458 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 int sptsv_(integer *n, integer *nrhs, real *d__, real *e,
03463 real *b, integer *ldb, integer *info);
03464
03465 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 int spttrf_(integer *n, real *d__, real *e, integer *info);
03470
03471 int spttrs_(integer *n, integer *nrhs, real *d__, real *e,
03472 real *b, integer *ldb, integer *info);
03473
03474 int sptts2_(integer *n, integer *nrhs, real *d__, real *e,
03475 real *b, integer *ldb);
03476
03477 int srscl_(integer *n, real *sa, real *sx, integer *incx);
03478
03479 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 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 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 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 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 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 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 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 int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv,
03517 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
03518
03519 int sspev_(char *jobz, char *uplo, integer *n, real *ap,
03520 real *w, real *z__, integer *ldz, real *work, integer *info);
03521
03522 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 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 int sspgst_(integer *itype, char *uplo, integer *n, real *ap,
03532 real *bp, integer *info);
03533
03534 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 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 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 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 int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap,
03553 integer *ipiv, real *b, integer *ldb, integer *info);
03554
03555 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 int ssptrd_(char *uplo, integer *n, real *ap, real *d__,
03561 real *e, real *tau, integer *info);
03562
03563 int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv,
03564 integer *info);
03565
03566 int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv,
03567 real *work, integer *info);
03568
03569 int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
03570 integer *ipiv, real *b, integer *ldb, integer *info);
03571
03572 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 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 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 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 int ssteqr_(char *compz, integer *n, real *d__, real *e,
03591 real *z__, integer *ldz, real *work, integer *info);
03592
03593 int ssterf_(integer *n, real *d__, real *e, integer *info);
03594
03595 int sstev_(char *jobz, integer *n, real *d__, real *e, real *
03596 z__, integer *ldz, real *work, integer *info);
03597
03598 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 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 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 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 int ssyev_(char *jobz, char *uplo, integer *n, real *a,
03617 integer *lda, real *w, real *work, integer *lwork, integer *info);
03618
03619 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 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 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 int ssygs2_(integer *itype, char *uplo, integer *n, real *a,
03635 integer *lda, real *b, integer *ldb, integer *info);
03636
03637 int ssygst_(integer *itype, char *uplo, integer *n, real *a,
03638 integer *lda, real *b, integer *ldb, integer *info);
03639
03640 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 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 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 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 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 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 int ssytd2_(char *uplo, integer *n, real *a, integer *lda,
03670 real *d__, real *e, real *tau, integer *info);
03671
03672 int ssytf2_(char *uplo, integer *n, real *a, integer *lda,
03673 integer *ipiv, integer *info);
03674
03675 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 int ssytrf_(char *uplo, integer *n, real *a, integer *lda,
03680 integer *ipiv, real *work, integer *lwork, integer *info);
03681
03682 int ssytri_(char *uplo, integer *n, real *a, integer *lda,
03683 integer *ipiv, real *work, integer *info);
03684
03685 int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a,
03686 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
03687
03688 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 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 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 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 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 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 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 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 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 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 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 int stpcon_(char *norm, char *uplo, char *diag, integer *n,
03748 real *ap, real *rcond, real *work, integer *iwork, integer *info);
03749
03750 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 int stptri_(char *uplo, char *diag, integer *n, real *ap,
03755 integer *info);
03756
03757 int stptrs_(char *uplo, char *trans, char *diag, integer *n,
03758 integer *nrhs, real *ap, real *b, integer *ldb, integer *info);
03759
03760 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 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 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 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 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 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 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 int strti2_(char *uplo, char *diag, integer *n, real *a,
03792 integer *lda, integer *info);
03793
03794 int strtri_(char *uplo, char *diag, integer *n, real *a,
03795 integer *lda, integer *info);
03796
03797 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 int stzrqf_(integer *m, integer *n, real *a, integer *lda,
03802 real *tau, integer *info);
03803
03804 int stzrzf_(integer *m, integer *n, real *a, integer *lda,
03805 real *tau, real *work, integer *lwork, integer *info);
03806
03807 int xerbla_(char *srname, integer *info);
03808
03809 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 int zdrot_(integer *n, doublecomplex *cx, integer *incx,
03815 doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
03816
03817 int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx,
03818 integer *incx);
03819
03820 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 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 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 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 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 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 int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
03855 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
03856
03857 int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
03858 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
03859
03860 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 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 int zgebal_(char *job, integer *n, doublecomplex *a, integer
03869 *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
03870
03871 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 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 int zgecon_(char *norm, integer *n, doublecomplex *a,
03881 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
03882 work, doublereal *rwork, integer *info);
03883
03884 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 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 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 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 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 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 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 int zgehd2_(integer *n, integer *ilo, integer *ihi,
03924 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
03925 work, integer *info);
03926
03927 int zgehrd_(integer *n, integer *ilo, integer *ihi,
03928 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
03929 work, integer *lwork, integer *info);
03930
03931 int zgelq2_(integer *m, integer *n, doublecomplex *a,
03932 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
03933
03934 int zgelqf_(integer *m, integer *n, doublecomplex *a,
03935 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
03936 integer *info);
03937
03938 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 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 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 int zgeql2_(integer *m, integer *n, doublecomplex *a,
03953 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
03954
03955 int zgeqlf_(integer *m, integer *n, doublecomplex *a,
03956 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
03957 integer *info);
03958
03959 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 int zgeqpf_(integer *m, integer *n, doublecomplex *a,
03964 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
03965 doublereal *rwork, integer *info);
03966
03967 int zgeqr2_(integer *m, integer *n, doublecomplex *a,
03968 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
03969
03970 int zgeqrf_(integer *m, integer *n, doublecomplex *a,
03971 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
03972 integer *info);
03973
03974 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 int zgerq2_(integer *m, integer *n, doublecomplex *a,
03981 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
03982
03983 int zgerqf_(integer *m, integer *n, doublecomplex *a,
03984 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
03985 integer *info);
03986
03987 int zgesc2_(integer *n, doublecomplex *a, integer *lda,
03988 doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
03989
03990 int zgesv_(integer *n, integer *nrhs, doublecomplex *a,
03991 integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *
03992 info);
03993
03994 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 int zgetc2_(integer *n, doublecomplex *a, integer *lda,
04002 integer *ipiv, integer *jpiv, integer *info);
04003
04004 int zgetf2_(integer *m, integer *n, doublecomplex *a,
04005 integer *lda, integer *ipiv, integer *info);
04006
04007 int zgetrf_(integer *m, integer *n, doublecomplex *a,
04008 integer *lda, integer *ipiv, integer *info);
04009
04010 int zgetri_(integer *n, doublecomplex *a, integer *lda,
04011 integer *ipiv, doublecomplex *work, integer *lwork, integer *info);
04012
04013 int zgetrs_(char *trans, integer *n, integer *nrhs,
04014 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
04015 integer *ldb, integer *info);
04016
04017 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 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 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 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 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 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 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 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 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 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 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 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 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 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 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 int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl,
04108 doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb,
04109 integer *info);
04110
04111 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 int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *
04120 d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *
04121 info);
04122
04123 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 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 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 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 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 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 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 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 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 int zhecon_(char *uplo, integer *n, doublecomplex *a,
04171 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
04172 doublecomplex *work, integer *info);
04173
04174 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 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 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 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 int zhegs2_(integer *itype, char *uplo, integer *n,
04198 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
04199 integer *info);
04200
04201 int zhegst_(integer *itype, char *uplo, integer *n,
04202 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
04203 integer *info);
04204
04205 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 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 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 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 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 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 int zhetf2_(char *uplo, integer *n, doublecomplex *a,
04239 integer *lda, integer *ipiv, integer *info);
04240
04241 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 int zhetrf_(char *uplo, integer *n, doublecomplex *a,
04246 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
04247 integer *info);
04248
04249 int zhetri_(char *uplo, integer *n, doublecomplex *a,
04250 integer *lda, integer *ipiv, doublecomplex *work, integer *info);
04251
04252 int zhetrs_(char *uplo, integer *n, integer *nrhs,
04253 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
04254 integer *ldb, integer *info);
04255
04256 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 int zhpcon_(char *uplo, integer *n, doublecomplex *ap,
04264 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
04265 work, integer *info);
04266
04267 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 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 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 int zhpgst_(integer *itype, char *uplo, integer *n,
04283 doublecomplex *ap, doublecomplex *bp, integer *info);
04284
04285 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 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 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 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 int zhpsv_(char *uplo, integer *n, integer *nrhs,
04310 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
04311 integer *info);
04312
04313 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 int zhptrd_(char *uplo, integer *n, doublecomplex *ap,
04320 doublereal *d__, doublereal *e, doublecomplex *tau, integer *info);
04321
04322 int zhptrf_(char *uplo, integer *n, doublecomplex *ap,
04323 integer *ipiv, integer *info);
04324
04325 int zhptri_(char *uplo, integer *n, doublecomplex *ap,
04326 integer *ipiv, doublecomplex *work, integer *info);
04327
04328 int zhptrs_(char *uplo, integer *n, integer *nrhs,
04329 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
04330 integer *info);
04331
04332 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 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 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 int zlacgv_(integer *n, doublecomplex *x, integer *incx);
04349
04350 int zlacon_(integer *n, doublecomplex *v, doublecomplex *x,
04351 doublereal *est, integer *kase);
04352
04353 int zlacp2_(char *uplo, integer *m, integer *n, doublereal *
04354 a, integer *lda, doublecomplex *b, integer *ldb);
04355
04356 int zlacpy_(char *uplo, integer *m, integer *n,
04357 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb);
04358
04359 int zlacrm_(integer *m, integer *n, doublecomplex *a,
04360 integer *lda, doublereal *b, integer *ldb, doublecomplex *c__,
04361 integer *ldc, doublereal *rwork);
04362
04363 int zlacrt_(integer *n, doublecomplex *cx, integer *incx,
04364 doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *
04365 s);
04366
04367 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 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 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 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 int zlaesy_(doublecomplex *a, doublecomplex *b,
04391 doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2,
04392 doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
04393
04394 int zlaev2_(doublecomplex *a, doublecomplex *b,
04395 doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1,
04396 doublecomplex *sn1);
04397
04398 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 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 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 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 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 int zlaic1_(integer *job, integer *j, doublecomplex *x,
04422 doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *
04423 sestpr, doublecomplex *s, doublecomplex *c__);
04424
04425 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 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 int zlapll_(integer *n, doublecomplex *x, integer *incx,
04442 doublecomplex *y, integer *incy, doublereal *ssmin);
04443
04444 int zlapmt_(logical *forwrd, integer *m, integer *n,
04445 doublecomplex *x, integer *ldx, integer *k);
04446
04447 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 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 int zlaqhb_(char *uplo, integer *n, integer *kd,
04456 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
04457 doublereal *amax, char *equed);
04458
04459 int zlaqhe_(char *uplo, integer *n, doublecomplex *a,
04460 integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
04461 char *equed);
04462
04463 int zlaqhp_(char *uplo, integer *n, doublecomplex *ap,
04464 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
04465
04466 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 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 int zlaqsb_(char *uplo, integer *n, integer *kd,
04476 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
04477 doublereal *amax, char *equed);
04478
04479 int zlaqsp_(char *uplo, integer *n, doublecomplex *ap,
04480 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
04481
04482 int zlaqsy_(char *uplo, integer *n, doublecomplex *a,
04483 integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
04484 char *equed);
04485
04486 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 int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y,
04492 doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s,
04493 integer *incc);
04494
04495 int zlarcm_(integer *m, integer *n, doublereal *a, integer *
04496 lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc,
04497 doublereal *rwork);
04498
04499 int zlarf_(char *side, integer *m, integer *n, doublecomplex
04500 *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *
04501 ldc, doublecomplex *work);
04502
04503 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 int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *
04509 x, integer *incx, doublecomplex *tau);
04510
04511 int zlarft_(char *direct, char *storev, integer *n, integer *
04512 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
04513 t, integer *ldt);
04514
04515 int zlarfx_(char *side, integer *m, integer *n,
04516 doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *
04517 ldc, doublecomplex *work);
04518
04519 int zlargv_(integer *n, doublecomplex *x, integer *incx,
04520 doublecomplex *y, integer *incy, doublereal *c__, integer *incc);
04521
04522 int zlarnv_(integer *idist, integer *iseed, integer *n,
04523 doublecomplex *x);
04524
04525 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 int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *
04531 cs, doublecomplex *sn, doublecomplex *r__);
04532
04533 int zlartv_(integer *n, doublecomplex *x, integer *incx,
04534 doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s,
04535 integer *incc);
04536
04537 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 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 int zlarzt_(char *direct, char *storev, integer *n, integer *
04547 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
04548 t, integer *ldt);
04549
04550 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 int zlaset_(char *uplo, integer *m, integer *n,
04555 doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *
04556 lda);
04557
04558 int zlasr_(char *side, char *pivot, char *direct, integer *m,
04559 integer *n, doublereal *c__, doublereal *s, doublecomplex *a,
04560 integer *lda);
04561
04562 int zlassq_(integer *n, doublecomplex *x, integer *incx,
04563 doublereal *scale, doublereal *sumsq);
04564
04565 int zlaswp_(integer *n, doublecomplex *a, integer *lda,
04566 integer *k1, integer *k2, integer *ipiv, integer *incx);
04567
04568 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 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 int zlatdf_(integer *ijob, integer *n, doublecomplex *z__,
04577 integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *
04578 rdscal, integer *ipiv, integer *jpiv);
04579
04580 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 int zlatrd_(char *uplo, integer *n, integer *nb,
04585 doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau,
04586 doublecomplex *w, integer *ldw);
04587
04588 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 int zlatrz_(integer *m, integer *n, integer *l,
04593 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04594 work);
04595
04596 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 int zlauu2_(char *uplo, integer *n, doublecomplex *a,
04601 integer *lda, integer *info);
04602
04603 int zlauum_(char *uplo, integer *n, doublecomplex *a,
04604 integer *lda, integer *info);
04605
04606 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 int zpbequ_(char *uplo, integer *n, integer *kd,
04611 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
04612 doublereal *amax, integer *info);
04613
04614 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 int zpbstf_(char *uplo, integer *n, integer *kd,
04621 doublecomplex *ab, integer *ldab, integer *info);
04622
04623 int zpbsv_(char *uplo, integer *n, integer *kd, integer *
04624 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
04625 ldb, integer *info);
04626
04627 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 int zpbtf2_(char *uplo, integer *n, integer *kd,
04635 doublecomplex *ab, integer *ldab, integer *info);
04636
04637 int zpbtrf_(char *uplo, integer *n, integer *kd,
04638 doublecomplex *ab, integer *ldab, integer *info);
04639
04640 int zpbtrs_(char *uplo, integer *n, integer *kd, integer *
04641 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
04642 ldb, integer *info);
04643
04644 int zpocon_(char *uplo, integer *n, doublecomplex *a,
04645 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
04646 work, doublereal *rwork, integer *info);
04647
04648 int zpoequ_(integer *n, doublecomplex *a, integer *lda,
04649 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
04650
04651 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 int zposv_(char *uplo, integer *n, integer *nrhs,
04658 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
04659 integer *info);
04660
04661 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 int zpotf2_(char *uplo, integer *n, doublecomplex *a,
04669 integer *lda, integer *info);
04670
04671 int zpotrf_(char *uplo, integer *n, doublecomplex *a,
04672 integer *lda, integer *info);
04673
04674 int zpotri_(char *uplo, integer *n, doublecomplex *a,
04675 integer *lda, integer *info);
04676
04677 int zpotrs_(char *uplo, integer *n, integer *nrhs,
04678 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
04679 integer *info);
04680
04681 int zppcon_(char *uplo, integer *n, doublecomplex *ap,
04682 doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal
04683 *rwork, integer *info);
04684
04685 int zppequ_(char *uplo, integer *n, doublecomplex *ap,
04686 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
04687
04688 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 int zppsv_(char *uplo, integer *n, integer *nrhs,
04694 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
04695
04696 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 int zpptrf_(char *uplo, integer *n, doublecomplex *ap,
04703 integer *info);
04704
04705 int zpptri_(char *uplo, integer *n, doublecomplex *ap,
04706 integer *info);
04707
04708 int zpptrs_(char *uplo, integer *n, integer *nrhs,
04709 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
04710
04711 int zptcon_(integer *n, doublereal *d__, doublecomplex *e,
04712 doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *
04713 info);
04714
04715 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 int zptsv_(integer *n, integer *nrhs, doublereal *d__,
04722 doublecomplex *e, doublecomplex *b, integer *ldb, integer *info);
04723
04724 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 int zpttrf_(integer *n, doublereal *d__, doublecomplex *e,
04731 integer *info);
04732
04733 int zpttrs_(char *uplo, integer *n, integer *nrhs,
04734 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb,
04735 integer *info);
04736
04737 int zptts2_(integer *iuplo, integer *n, integer *nrhs,
04738 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb);
04739
04740 int zrot_(integer *n, doublecomplex *cx, integer *incx,
04741 doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);
04742
04743 int zspcon_(char *uplo, integer *n, doublecomplex *ap,
04744 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
04745 work, integer *info);
04746
04747 int zspmv_(char *uplo, integer *n, doublecomplex *alpha,
04748 doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
04749 beta, doublecomplex *y, integer *incy);
04750
04751 int zspr_(char *uplo, integer *n, doublecomplex *alpha,
04752 doublecomplex *x, integer *incx, doublecomplex *ap);
04753
04754 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 int zspsv_(char *uplo, integer *n, integer *nrhs,
04761 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
04762 integer *info);
04763
04764 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 int zsptrf_(char *uplo, integer *n, doublecomplex *ap,
04771 integer *ipiv, integer *info);
04772
04773 int zsptri_(char *uplo, integer *n, doublecomplex *ap,
04774 integer *ipiv, doublecomplex *work, integer *info);
04775
04776 int zsptrs_(char *uplo, integer *n, integer *nrhs,
04777 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
04778 integer *info);
04779
04780 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 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 int zsteqr_(char *compz, integer *n, doublereal *d__,
04791 doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work,
04792 integer *info);
04793
04794 int zsycon_(char *uplo, integer *n, doublecomplex *a,
04795 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
04796 doublecomplex *work, integer *info);
04797
04798 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 int zsyr_(char *uplo, integer *n, doublecomplex *alpha,
04803 doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
04804
04805 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 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 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 int zsytf2_(char *uplo, integer *n, doublecomplex *a,
04822 integer *lda, integer *ipiv, integer *info);
04823
04824 int zsytrf_(char *uplo, integer *n, doublecomplex *a,
04825 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
04826 integer *info);
04827
04828 int zsytri_(char *uplo, integer *n, doublecomplex *a,
04829 integer *lda, integer *ipiv, doublecomplex *work, integer *info);
04830
04831 int zsytrs_(char *uplo, integer *n, integer *nrhs,
04832 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
04833 integer *ldb, integer *info);
04834
04835 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 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 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 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 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 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 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 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 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 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 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 int ztpcon_(char *norm, char *uplo, char *diag, integer *n,
04901 doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal
04902 *rwork, integer *info);
04903
04904 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 int ztptri_(char *uplo, char *diag, integer *n,
04910 doublecomplex *ap, integer *info);
04911
04912 int ztptrs_(char *uplo, char *trans, char *diag, integer *n,
04913 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
04914 integer *info);
04915
04916 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 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 int ztrexc_(char *compq, integer *n, doublecomplex *t,
04926 integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *
04927 ilst, integer *info);
04928
04929 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 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 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 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 int ztrti2_(char *uplo, char *diag, integer *n,
04952 doublecomplex *a, integer *lda, integer *info);
04953
04954 int ztrtri_(char *uplo, char *diag, integer *n,
04955 doublecomplex *a, integer *lda, integer *info);
04956
04957 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 int ztzrqf_(integer *m, integer *n, doublecomplex *a,
04962 integer *lda, doublecomplex *tau, integer *info);
04963
04964 int ztzrzf_(integer *m, integer *n, doublecomplex *a,
04965 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
04966 integer *info);
04967
04968 int zung2l_(integer *m, integer *n, integer *k,
04969 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04970 work, integer *info);
04971
04972 int zung2r_(integer *m, integer *n, integer *k,
04973 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04974 work, integer *info);
04975
04976 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 int zunghr_(integer *n, integer *ilo, integer *ihi,
04981 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04982 work, integer *lwork, integer *info);
04983
04984 int zungl2_(integer *m, integer *n, integer *k,
04985 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04986 work, integer *info);
04987
04988 int zunglq_(integer *m, integer *n, integer *k,
04989 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04990 work, integer *lwork, integer *info);
04991
04992 int zungql_(integer *m, integer *n, integer *k,
04993 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04994 work, integer *lwork, integer *info);
04995
04996 int zungqr_(integer *m, integer *n, integer *k,
04997 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04998 work, integer *lwork, integer *info);
04999
05000 int zungr2_(integer *m, integer *n, integer *k,
05001 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05002 work, integer *info);
05003
05004 int zungrq_(integer *m, integer *n, integer *k,
05005 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05006 work, integer *lwork, integer *info);
05007
05008 int zungtr_(char *uplo, integer *n, doublecomplex *a,
05009 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
05010 integer *info);
05011
05012 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 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 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 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 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 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 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 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 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 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 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 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 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 int zupgtr_(char *uplo, integer *n, doublecomplex *ap,
05074 doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *
05075 work, integer *info);
05076
05077 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