1 #ifndef _clapack_h_ 2 #define _clapack_h_ 3 4 #include "melder.h" 5 6 /* double precision version of CLAPACK 3.2.1 interface */ 7 8 void chla_transtype__(char *ret_val, integer ret_val_len, integer *trans); 9 10 int dbdsdc_(const char *uplo, const char *compq, integer *n, double * 11 d__, double *e, double *u, integer *ldu, double *vt, 12 integer *ldvt, double *q, integer *iq, double *work, integer * 13 iwork, integer *info); 14 15 int dbdsqr_(const char *uplo, integer *n, integer *ncvt, integer * 16 nru, integer *ncc, double *d__, double *e, double *vt, 17 integer *ldvt, double *u, integer *ldu, double *c__, integer * 18 ldc, double *work, integer *info); 19 20 int ddisna_(const char *job, integer *m, integer *n, double *d__, double *sep, integer *info); 21 22 int dgbbrd_(const char *vect, integer *m, integer *n, integer *ncc, 23 integer *kl, integer *ku, double *ab, integer *ldab, double * 24 d__, double *e, double *q, integer *ldq, double *pt, 25 integer *ldpt, double *c__, integer *ldc, double *work, 26 integer *info); 27 28 int dgbcon_(const char *norm, integer *n, integer *kl, integer *ku, 29 double *ab, integer *ldab, integer *ipiv, double *anorm, 30 double *rcond, double *work, integer *iwork, integer *info); 31 32 int dgbequ_(integer *m, integer *n, integer *kl, integer *ku, 33 double *ab, integer *ldab, double *r__, double *c__, 34 double *rowcnd, double *colcnd, double *amax, integer * 35 info); 36 37 int dgbequb_(integer *m, integer *n, integer *kl, integer * 38 ku, double *ab, integer *ldab, double *r__, double *c__, 39 double *rowcnd, double *colcnd, double *amax, integer *info); 40 41 int dgbrfs_(const char *trans, integer *n, integer *kl, integer * 42 ku, integer *nrhs, double *ab, integer *ldab, double *afb, 43 integer *ldafb, integer *ipiv, double *b, integer *ldb, 44 double *x, integer *ldx, double *ferr, double *berr, 45 double *work, integer *iwork, integer *info); 46 47 int dgbrfsx_(const char *trans, const char *equed, integer *n, integer * 48 kl, integer *ku, integer *nrhs, double *ab, integer *ldab, 49 double *afb, integer *ldafb, integer *ipiv, double *r__, 50 double *c__, double *b, integer *ldb, double *x, integer * 51 ldx, double *rcond, double *berr, integer *n_err_bnds__, 52 double *err_bnds_norm__, double *err_bnds_comp__, integer * 53 nparams, double *params, double *work, integer *iwork, integer *info); 54 55 int dgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, double *ab, integer *ldab, 56 integer *ipiv, double *b, integer *ldb, integer *info); 57 58 int dgbsvxx_(const char *fact, const char *trans, integer *n, integer * 59 kl, integer *ku, integer *nrhs, double *ab, integer *ldab, 60 double *afb, integer *ldafb, integer *ipiv, char *equed, 61 double *r__, double *c__, double *b, integer *ldb, 62 double *x, integer *ldx, double *rcond, double *rpvgrw, 63 double *berr, integer *n_err_bnds__, double *err_bnds_norm__, 64 double *err_bnds_comp__, integer *nparams, double *params, 65 double *work, integer *iwork, integer *info); 66 67 int dgbsvx_(const char *fact, const char *trans, integer *n, integer *kl, 68 integer *ku, integer *nrhs, double *ab, integer *ldab, 69 double *afb, integer *ldafb, integer *ipiv, char *equed, 70 double *r__, double *c__, double *b, integer *ldb, 71 double *x, integer *ldx, double *rcond, double *ferr, 72 double *berr, double *work, integer *iwork, integer *info); 73 74 int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 75 double *ab, integer *ldab, integer *ipiv, integer *info); 76 77 int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 78 double *ab, integer *ldab, integer *ipiv, integer *info); 79 80 int dgbtrs_(const char *trans, integer *n, integer *kl, integer * 81 ku, integer *nrhs, double *ab, integer *ldab, integer *ipiv, 82 double *b, integer *ldb, integer *info); 83 84 int dgebak_(const char *job, const char *side, integer *n, integer *ilo, 85 integer *ihi, double *scale, integer *m, double *v, integer * 86 ldv, integer *info); 87 88 int dgebal_(const char *job, integer *n, double *a, integer * 89 lda, integer *ilo, integer *ihi, double *scale, integer *info); 90 91 int dgebd2_(integer *m, integer *n, double *a, integer * 92 lda, double *d__, double *e, double *tauq, double * 93 taup, double *work, integer *info); 94 95 int dgebrd_(integer *m, integer *n, double *a, integer * 96 lda, double *d__, double *e, double *tauq, double * 97 taup, double *work, integer *lwork, integer *info); 98 99 int dgecon_(const char *norm, integer *n, double *a, integer * 100 lda, double *anorm, double *rcond, double *work, integer * 101 iwork, integer *info); 102 103 int dgeequ_(integer *m, integer *n, double *a, integer * 104 lda, double *r__, double *c__, double *rowcnd, double 105 *colcnd, double *amax, integer *info); 106 107 int dgeequb_(integer *m, integer *n, double *a, integer *lda, double *r__, double *c__, 108 double *rowcnd, double *colcnd, double *amax, integer *info); 109 110 int dgees_(const char *jobvs, const char *sort, bool (*select)(const double *, const double *), 111 integer *n, double *a, integer *lda, integer *sdim, double *wr, 112 double *wi, double *vs, integer *ldvs, double *work, 113 integer *lwork, bool *bwork, integer *info); 114 115 int dgeesx_(const char *jobvs, const char *sort, bool (*select)(const double *, const double *), 116 const char *sense, integer *n, double *a, integer *lda, integer *sdim, 117 double *wr, double *wi, double *vs, integer *ldvs, 118 double *rconde, double *rcondv, double *work, integer * 119 lwork, integer *iwork, integer *liwork, bool *bwork, integer *info); 120 121 int dgeev_(const char *jobvl, const char *jobvr, integer *n, double *a, integer *lda, 122 double *wr, double *wi, double *vl, integer *ldvl, double *vr, integer *ldvr, 123 double *work, integer *lwork, integer *info); 124 125 int dgeevx_(const char *balanc, const char *jobvl, const char *jobvr, const char * 126 sense, integer *n, double *a, integer *lda, double *wr, 127 double *wi, double *vl, integer *ldvl, double *vr, 128 integer *ldvr, integer *ilo, integer *ihi, double *scale, 129 double *abnrm, double *rconde, double *rcondv, double 130 *work, integer *lwork, integer *iwork, integer *info); 131 132 int dgegs_(const char *jobvsl, const char *jobvsr, integer *n, 133 double *a, integer *lda, double *b, integer *ldb, double * 134 alphar, double *alphai, double *beta, double *vsl, 135 integer *ldvsl, double *vsr, integer *ldvsr, double *work, 136 integer *lwork, integer *info); 137 138 int dgegv_(const char *jobvl, const char *jobvr, integer *n, double * 139 a, integer *lda, double *b, integer *ldb, double *alphar, 140 double *alphai, double *beta, double *vl, integer *ldvl, 141 double *vr, integer *ldvr, double *work, integer *lwork, 142 integer *info); 143 144 int dgehd2_(integer *n, integer *ilo, integer *ihi, 145 double *a, integer *lda, double *tau, double *work, 146 integer *info); 147 148 int dgehrd_(integer *n, integer *ilo, integer *ihi, 149 double *a, integer *lda, double *tau, double *work, 150 integer *lwork, integer *info); 151 152 int dgelq2_(integer *m, integer *n, double *a, integer * 153 lda, double *tau, double *work, integer *info); 154 155 int dgelqf_(integer *m, integer *n, double *a, integer * 156 lda, double *tau, double *work, integer *lwork, integer *info); 157 158 int dgels_(const char *trans, integer *m, integer *n, integer * 159 nrhs, double *a, integer *lda, double *b, integer *ldb, 160 double *work, integer *lwork, integer *info); 161 162 int dgelsd_(integer *m, integer *n, integer *nrhs, 163 double *a, integer *lda, double *b, integer *ldb, double * 164 s, double *rcond, integer *rank, double *work, integer *lwork, 165 integer *iwork, integer *info); 166 167 int dgelss_(integer *m, integer *n, integer *nrhs, 168 double *a, integer *lda, double *b, integer *ldb, double * 169 s, double *rcond, integer *rank, double *work, integer *lwork, 170 integer *info); 171 172 int dgelsx_(integer *m, integer *n, integer *nrhs, 173 double *a, integer *lda, double *b, integer *ldb, integer * 174 jpvt, double *rcond, integer *rank, double *work, integer * 175 info); 176 177 int dgelsy_(integer *m, integer *n, integer *nrhs, 178 double *a, integer *lda, double *b, integer *ldb, integer * 179 jpvt, double *rcond, integer *rank, double *work, integer * 180 lwork, integer *info); 181 182 int dgeql2_(integer *m, integer *n, double *a, integer * 183 lda, double *tau, double *work, integer *info); 184 185 int dgeqlf_(integer *m, integer *n, double *a, integer * 186 lda, double *tau, double *work, integer *lwork, integer *info); 187 188 int dgeqp3_(integer *m, integer *n, double *a, integer * 189 lda, integer *jpvt, double *tau, double *work, integer *lwork, 190 integer *info); 191 192 int dgeqpf_(integer *m, integer *n, double *a, integer * 193 lda, integer *jpvt, double *tau, double *work, integer *info); 194 195 int dgeqr2_(integer *m, integer *n, double *a, integer * 196 lda, double *tau, double *work, integer *info); 197 198 int dgeqrf_(integer *m, integer *n, double *a, integer * 199 lda, double *tau, double *work, integer *lwork, integer *info); 200 201 int dgerfs_(const char *trans, integer *n, integer *nrhs, 202 double *a, integer *lda, double *af, integer *ldaf, integer * 203 ipiv, double *b, integer *ldb, double *x, integer *ldx, 204 double *ferr, double *berr, double *work, integer *iwork, 205 integer *info); 206 207 int dgerq2_(integer *m, integer *n, double *a, integer * 208 lda, double *tau, double *work, integer *info); 209 210 int dgerqf_(integer *m, integer *n, double *a, integer * 211 lda, double *tau, double *work, integer *lwork, integer *info); 212 213 int dgesc2_(integer *n, double *a, integer *lda, 214 double *rhs, integer *ipiv, integer *jpiv, double *scale); 215 216 int dgesdd_(const char *jobz, integer *m, integer *n, double * 217 a, integer *lda, double *s, double *u, integer *ldu, 218 double *vt, integer *ldvt, double *work, integer *lwork, 219 integer *iwork, integer *info); 220 221 int dgesv_(integer *n, integer *nrhs, double *a, integer 222 *lda, integer *ipiv, double *b, integer *ldb, integer *info); 223 224 int dgesvd_(const char *jobu, const char *jobvt, integer *m, integer *n, 225 double *a, integer *lda, double *s, double *u, integer * 226 ldu, double *vt, integer *ldvt, double *work, integer *lwork, 227 integer *info); 228 229 int dgesvx_(const char *fact, const char *trans, integer *n, integer * 230 nrhs, double *a, integer *lda, double *af, integer *ldaf, 231 integer *ipiv, char *equed, double *r__, double *c__, 232 double *b, integer *ldb, double *x, integer *ldx, double * 233 rcond, double *ferr, double *berr, double *work, integer * 234 iwork, integer *info); 235 236 int dgetc2_(integer *n, double *a, integer *lda, integer *ipiv, integer *jpiv, integer *info); 237 238 int dgetf2_(integer *m, integer *n, double *a, integer *lda, integer *ipiv, integer *info); 239 240 int dgetrf_(integer *m, integer *n, double *a, integer *lda, integer *ipiv, integer *info); 241 242 int dgetri_(integer *n, double *a, integer *lda, integer *ipiv, double *work, integer *lwork, integer *info); 243 244 int dgetrs_(const char *trans, integer *n, integer *nrhs, 245 double *a, integer *lda, integer *ipiv, double *b, integer * 246 ldb, integer *info); 247 248 int dggbak_(const char *job, const char *side, integer *n, integer *ilo, 249 integer *ihi, double *lscale, double *rscale, integer *m, 250 double *v, integer *ldv, integer *info); 251 252 int dggbal_(const char *job, integer *n, double *a, integer * 253 lda, double *b, integer *ldb, integer *ilo, integer *ihi, 254 double *lscale, double *rscale, double *work, integer * 255 info); 256 257 int dgges_(const char *jobvsl, const char *jobvsr, const char *sort, 258 bool (*selctg)(const double *, const double *, const double *), 259 integer *n, double *a, integer *lda, double *b, 260 integer *ldb, integer *sdim, double *alphar, double *alphai, 261 double *beta, double *vsl, integer *ldvsl, double *vsr, 262 integer *ldvsr, double *work, integer *lwork, bool *bwork, 263 integer *info); 264 265 int dggesx_(const char *jobvsl, const char *jobvsr, const char *sort, 266 bool (*selctg)(const double *, const double *, const double *), 267 const char *sense, integer *n, double *a, integer *lda, 268 double *b, integer *ldb, integer *sdim, double *alphar, 269 double *alphai, double *beta, double *vsl, integer *ldvsl, 270 double *vsr, integer *ldvsr, double *rconde, double * 271 rcondv, double *work, integer *lwork, integer *iwork, integer * 272 liwork, bool *bwork, integer *info); 273 274 int dggev_(const char *jobvl, const char *jobvr, integer *n, double * 275 a, integer *lda, double *b, integer *ldb, double *alphar, 276 double *alphai, double *beta, double *vl, integer *ldvl, 277 double *vr, integer *ldvr, double *work, integer *lwork, 278 integer *info); 279 280 int dggevx_(const char *balanc, const char *jobvl, const char *jobvr, const char * 281 sense, integer *n, double *a, integer *lda, double *b, 282 integer *ldb, double *alphar, double *alphai, double * 283 beta, double *vl, integer *ldvl, double *vr, integer *ldvr, 284 integer *ilo, integer *ihi, double *lscale, double *rscale, 285 double *abnrm, double *bbnrm, double *rconde, double * 286 rcondv, double *work, integer *lwork, integer *iwork, bool * 287 bwork, integer *info); 288 289 int dggglm_(integer *n, integer *m, integer *p, double * 290 a, integer *lda, double *b, integer *ldb, double *d__, 291 double *x, double *y, double *work, integer *lwork, 292 integer *info); 293 294 int dgghrd_(const char *compq, const char *compz, integer *n, integer * 295 ilo, integer *ihi, double *a, integer *lda, double *b, 296 integer *ldb, double *q, integer *ldq, double *z__, integer * 297 ldz, integer *info); 298 299 int dgglse_(integer *m, integer *n, integer *p, double * 300 a, integer *lda, double *b, integer *ldb, double *c__, 301 double *d__, double *x, double *work, integer *lwork, 302 integer *info); 303 304 int dggqrf_(integer *n, integer *m, integer *p, double * 305 a, integer *lda, double *taua, double *b, integer *ldb, 306 double *taub, double *work, integer *lwork, integer *info); 307 308 int dggrqf_(integer *m, integer *p, integer *n, double * 309 a, integer *lda, double *taua, double *b, integer *ldb, 310 double *taub, double *work, integer *lwork, integer *info); 311 312 int dggsvd_(const char *jobu, const char *jobv, const char *jobq, integer *m, 313 integer *n, integer *p, integer *k, integer *l, double *a, 314 integer *lda, double *b, integer *ldb, double *alpha, 315 double *beta, double *u, integer *ldu, double *v, integer 316 *ldv, double *q, integer *ldq, double *work, integer *iwork, 317 integer *info); 318 319 int dggsvp_(const char *jobu, const char *jobv, const char *jobq, integer *m, 320 integer *p, integer *n, double *a, integer *lda, double *b, 321 integer *ldb, double *tola, double *tolb, integer *k, integer 322 *l, double *u, integer *ldu, double *v, integer *ldv, 323 double *q, integer *ldq, integer *iwork, double *tau, 324 double *work, integer *info); 325 326 int dgtcon_(const char *norm, integer *n, double *dl, 327 double *d__, double *du, double *du2, integer *ipiv, 328 double *anorm, double *rcond, double *work, integer * 329 iwork, integer *info); 330 331 int dgtrfs_(const char *trans, integer *n, integer *nrhs, 332 double *dl, double *d__, double *du, double *dlf, 333 double *df, double *duf, double *du2, integer *ipiv, 334 double *b, integer *ldb, double *x, integer *ldx, double * 335 ferr, double *berr, double *work, integer *iwork, integer * 336 info); 337 338 int dgtsv_(integer *n, integer *nrhs, double *dl, 339 double *d__, double *du, double *b, integer *ldb, integer 340 *info); 341 342 int dgtsvx_(const char *fact, const char *trans, integer *n, integer * 343 nrhs, double *dl, double *d__, double *du, double * 344 dlf, double *df, double *duf, double *du2, integer *ipiv, 345 double *b, integer *ldb, double *x, integer *ldx, double * 346 rcond, double *ferr, double *berr, double *work, integer * 347 iwork, integer *info); 348 349 int dgttrf_(integer *n, double *dl, double *d__, 350 double *du, double *du2, integer *ipiv, integer *info); 351 352 int dgttrs_(const char *trans, integer *n, integer *nrhs, 353 double *dl, double *d__, double *du, double *du2, 354 integer *ipiv, double *b, integer *ldb, integer *info); 355 356 int dgtts2_(integer *itrans, integer *n, integer *nrhs, 357 double *dl, double *d__, double *du, double *du2, 358 integer *ipiv, double *b, integer *ldb); 359 360 int dhgeqz_(const char *job, const char *compq, const char *compz, integer *n, 361 integer *ilo, integer *ihi, double *h__, integer *ldh, double 362 *t, integer *ldt, double *alphar, double *alphai, double * 363 beta, double *q, integer *ldq, double *z__, integer *ldz, 364 double *work, integer *lwork, integer *info); 365 366 int dhsein_(const char *side, const char *eigsrc, const char *initv, bool * 367 select, integer *n, double *h__, integer *ldh, double *wr, 368 double *wi, double *vl, integer *ldvl, double *vr, 369 integer *ldvr, integer *mm, integer *m, double *work, integer * 370 ifaill, integer *ifailr, integer *info); 371 372 int dhseqr_(const char *job, const char *compz, integer *n, integer *ilo, integer *ihi, 373 double *h__, integer *ldh, double *wr, double *wi, double *z__, integer *ldz, 374 double *work, integer *lwork, integer *info); 375 376 bool disnan_(double *din); 377 378 double dla_gbrcond__(const char *trans, integer *n, integer *kl, integer *ku, 379 double *ab, integer *ldab, double *afb, integer *ldafb, 380 integer *ipiv, integer *cmode, double *c__, integer *info, 381 double *work, integer *iwork, integer trans_len); 382 383 int dla_gbrfsx_extended__(integer *prec_type__, integer * 384 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 385 double *ab, integer *ldab, double *afb, integer *ldafb, 386 integer *ipiv, bool *colequ, double *c__, double *b, 387 integer *ldb, double *y, integer *ldy, double *berr_out__, 388 integer *n_norms__, double *err_bnds_norm__, double * 389 err_bnds_comp__, double *res, double *ayb, double *dy, 390 double *y_tail__, double *rcond, integer *ithresh, double 391 *rthresh, double *dz_ub__, bool *ignore_cwise__, integer *info); 392 393 double dla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *ncols, 394 double *ab, integer *ldab, double *afb, integer *ldafb); 395 396 double dla_porcond__(const char *uplo, integer *n, double *a, integer *lda, 397 double *af, integer *ldaf, integer *cmode, double *c__, 398 integer *info, double *work, integer *iwork, integer uplo_len); 399 400 int dla_wwaddw__(integer *n, double *x, double *y, double *w); 401 402 int dlabad_(double *small, double *large); 403 404 int dlabrd_(integer *m, integer *n, integer *nb, double * 405 a, integer *lda, double *d__, double *e, double *tauq, 406 double *taup, double *x, integer *ldx, double *y, integer 407 *ldy); 408 409 int dlacn2_(integer *n, double *v, double *x, 410 integer *isgn, double *est, integer *kase, integer *isave); 411 412 int dlacon_(integer *n, double *v, double *x, 413 integer *isgn, double *est, integer *kase); 414 415 int dlacpy_(const char *uplo, integer *m, integer *n, double * 416 a, integer *lda, double *b, integer *ldb); 417 418 int dladiv_(double *a, double *b, double *c__, 419 double *d__, double *p, double *q); 420 421 int dlae2_(double *a, double *b, double *c__, 422 double *rt1, double *rt2); 423 424 int dlaebz_(integer *ijob, integer *nitmax, integer *n, 425 integer *mmax, integer *minp, integer *nbmin, double *abstol, 426 double *reltol, double *pivmin, double *d__, double * 427 e, double *e2, integer *nval, double *ab, double *c__, 428 integer *mout, integer *nab, double *work, integer *iwork, 429 integer *info); 430 431 int dlaed0_(integer *icompq, integer *qsiz, integer *n, 432 double *d__, double *e, double *q, integer *ldq, 433 double *qstore, integer *ldqs, double *work, integer *iwork, 434 integer *info); 435 436 int dlaed1_(integer *n, double *d__, double *q, 437 integer *ldq, integer *indxq, double *rho, integer *cutpnt, 438 double *work, integer *iwork, integer *info); 439 440 int dlaed2_(integer *k, integer *n, integer *n1, double * 441 d__, double *q, integer *ldq, integer *indxq, double *rho, 442 double *z__, double *dlamda, double *w, double *q2, 443 integer *indx, integer *indxc, integer *indxp, integer *coltyp, 444 integer *info); 445 446 int dlaed3_(integer *k, integer *n, integer *n1, double * 447 d__, double *q, integer *ldq, double *rho, double *dlamda, 448 double *q2, integer *indx, integer *ctot, double *w, 449 double *s, integer *info); 450 451 int dlaed4_(integer *n, integer *i__, double *d__, 452 double *z__, double *delta, double *rho, double *dlam, 453 integer *info); 454 455 int dlaed5_(integer *i__, double *d__, double *z__, 456 double *delta, double *rho, double *dlam); 457 458 int dlaed6_(integer *kniter, bool *orgati, double * 459 rho, double *d__, double *z__, double *finit, double * 460 tau, integer *info); 461 462 int dlaed7_(integer *icompq, integer *n, integer *qsiz, 463 integer *tlvls, integer *curlvl, integer *curpbm, double *d__, 464 double *q, integer *ldq, integer *indxq, double *rho, integer 465 *cutpnt, double *qstore, integer *qptr, integer *prmptr, integer * 466 perm, integer *givptr, integer *givcol, double *givnum, 467 double *work, integer *iwork, integer *info); 468 469 int dlaed8_(integer *icompq, integer *k, integer *n, integer 470 *qsiz, double *d__, double *q, integer *ldq, integer *indxq, 471 double *rho, integer *cutpnt, double *z__, double *dlamda, 472 double *q2, integer *ldq2, double *w, integer *perm, integer 473 *givptr, integer *givcol, double *givnum, integer *indxp, integer 474 *indx, integer *info); 475 476 int dlaed9_(integer *k, integer *kstart, integer *kstop, 477 integer *n, double *d__, double *q, integer *ldq, double * 478 rho, double *dlamda, double *w, double *s, integer *lds, 479 integer *info); 480 481 int dlaeda_(integer *n, integer *tlvls, integer *curlvl, 482 integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 483 integer *givcol, double *givnum, double *q, integer *qptr, 484 double *z__, double *ztemp, integer *info); 485 486 int dlaein_(bool *rightv, bool *noinit, integer *n, 487 double *h__, integer *ldh, double *wr, double *wi, 488 double *vr, double *vi, double *b, integer *ldb, 489 double *work, double *eps3, double *smlnum, double * 490 bignum, integer *info); 491 492 int dlaev2_(double *a, double *b, double *c__, 493 double *rt1, double *rt2, double *cs1, double *sn1); 494 495 int dlaexc_(bool *wantq, integer *n, double *t, 496 integer *ldt, double *q, integer *ldq, integer *j1, integer *n1, 497 integer *n2, double *work, integer *info); 498 499 int dlag2_(double *a, integer *lda, double *b, integer *ldb, double *safmin, double *scale1, 500 double *scale2, double *wr1, double *wr2, double *wi); 501 502 int dlag2s_(integer *m, integer *n, double *a, integer *lda, float *sa, integer *ldsa, integer *info); 503 504 int dlags2_(bool *upper, double *a1, double *a2, 505 double *a3, double *b1, double *b2, double *b3, 506 double *csu, double *snu, double *csv, double *snv, 507 double *csq, double *snq); 508 509 int dlagtf_(integer *n, double *a, double *lambda, 510 double *b, double *c__, double *tol, double *d__, 511 integer *in, integer *info); 512 513 int dlagtm_(const char *trans, integer *n, integer *nrhs, 514 double *alpha, double *dl, double *d__, double *du, 515 double *x, integer *ldx, double *beta, double *b, integer 516 *ldb); 517 518 int dlagts_(integer *job, integer *n, double *a, 519 double *b, double *c__, double *d__, integer *in, 520 double *y, double *tol, integer *info); 521 522 int dlagv2_(double *a, integer *lda, double *b, 523 integer *ldb, double *alphar, double *alphai, double * 524 beta, double *csl, double *snl, double *csr, double * 525 snr); 526 527 int dlahqr_(bool *wantt, bool *wantz, integer *n, 528 integer *ilo, integer *ihi, double *h__, integer *ldh, double 529 *wr, double *wi, integer *iloz, integer *ihiz, double *z__, 530 integer *ldz, integer *info); 531 532 int dlahr2_(integer *n, integer *k, integer *nb, double * 533 a, integer *lda, double *tau, double *t, integer *ldt, 534 double *y, integer *ldy); 535 536 int dlahrd_(integer *n, integer *k, integer *nb, double * 537 a, integer *lda, double *tau, double *t, integer *ldt, 538 double *y, integer *ldy); 539 540 int dlaic1_(integer *job, integer *j, double *x, 541 double *sest, double *w, double *gamma, double * 542 sestpr, double *s, double *c__); 543 544 bool dlaisnan_(double *din1, double *din2); 545 546 int dlaln2_(bool *ltrans, integer *na, integer *nw, 547 double *smin, double *ca, double *a, integer *lda, 548 double *d1, double *d2, double *b, integer *ldb, 549 double *wr, double *wi, double *x, integer *ldx, 550 double *scale, double *xnorm, integer *info); 551 552 int dlals0_(integer *icompq, integer *nl, integer *nr, 553 integer *sqre, integer *nrhs, double *b, integer *ldb, double 554 *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, 555 integer *ldgcol, double *givnum, integer *ldgnum, double * 556 poles, double *difl, double *difr, double *z__, integer * 557 k, double *c__, double *s, double *work, integer *info); 558 559 int dlalsa_(integer *icompq, integer *smlsiz, integer *n, 560 integer *nrhs, double *b, integer *ldb, double *bx, integer * 561 ldbx, double *u, integer *ldu, double *vt, integer *k, 562 double *difl, double *difr, double *z__, double * 563 poles, integer *givptr, integer *givcol, integer *ldgcol, integer * 564 perm, double *givnum, double *c__, double *s, double * 565 work, integer *iwork, integer *info); 566 567 int dlalsd_(const char *uplo, integer *smlsiz, integer *n, integer 568 *nrhs, double *d__, double *e, double *b, integer *ldb, 569 double *rcond, integer *rank, double *work, integer *iwork, 570 integer *info); 571 572 int dlamc1_ (integer *beta, integer *t, bool *rnd, bool *ieee1); 573 574 int dlamc2_ (integer *beta, integer *t, bool *rnd, 575 double *eps, integer *emin, double *rmin, integer *emax, double *rmax); 576 577 double dlamc3_ (double *a, double *b); 578 579 int dlamc4_ (integer *emin, double *start, integer *base); 580 581 int dlamc5_ (integer *beta, integer *p, integer *emin, 582 bool *ieee, integer *emax, double *rmax); 583 584 double dlamch_ (const char *cmach); 585 586 int dlamrg_(integer *n1, integer *n2, double *a, integer 587 *dtrd1, integer *dtrd2, integer *index); 588 589 integer dlaneg_(integer *n, double *d__, double *lld, double * 590 sigma, double *pivmin, integer *r__); 591 592 double dlangb_(const char *norm, integer *n, integer *kl, integer *ku, 593 double *ab, integer *ldab, double *work); 594 595 double dlange_(const char *norm, integer *m, integer *n, double *a, integer 596 *lda, double *work); 597 598 double dlangt_(const char *norm, integer *n, double *dl, double *d__, 599 double *du); 600 601 double dlanhs_ (const char *norm, integer *n, double *a, integer *lda, 602 double *work); 603 604 double dlansb_(const char *norm, const char *uplo, integer *n, integer *k, double 605 *ab, integer *ldab, double *work); 606 607 double dlansp_(const char *norm, const char *uplo, integer *n, double *ap, 608 double *work); 609 610 double dlanst_(const char *norm, integer *n, double *d__, double *e); 611 612 double dlansy_(const char *norm, const char *uplo, integer *n, double *a, integer 613 *lda, double *work); 614 615 double dlantb_(const char *norm, const char *uplo, const char *diag, integer *n, integer *k, 616 double *ab, integer *ldab, double *work); 617 618 double dlantp_(const char *norm, const char *uplo, const char *diag, integer *n, double *ap, double *work); 619 620 double dlantr_(const char *norm, const char *uplo, const char *diag, integer *m, integer *n, 621 double *a, integer *lda, double *work); 622 623 double dlansf_(const char *norm, char *transr, char *uplo, integer *n, double *a, double *work); 624 625 int dlanv2_(double *a, double *b, double *c__, 626 double *d__, double *rt1r, double *rt1i, double *rt2r, 627 double *rt2i, double *cs, double *sn); 628 629 int dlapll_(integer *n, double *x, integer *incx, 630 double *y, integer *incy, double *ssmin); 631 632 int dlapmt_(bool *forwrd, integer *m, integer *n, 633 double *x, integer *ldx, integer *k); 634 635 double dlapy2_(double *x, double *y); 636 637 double dlapy3_(double *x, double *y, double *z__); 638 639 int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku, 640 double *ab, integer *ldab, double *r__, double *c__, 641 double *rowcnd, double *colcnd, double *amax, char *equed); 642 643 int dlaqge_(integer *m, integer *n, double *a, integer * 644 lda, double *r__, double *c__, double *rowcnd, double 645 *colcnd, double *amax, char *equed); 646 647 int dlaqp2_(integer *m, integer *n, integer *offset, 648 double *a, integer *lda, integer *jpvt, double *tau, 649 double *vn1, double *vn2, double *work); 650 651 int dlaqps_(integer *m, integer *n, integer *offset, integer 652 *nb, integer *kb, double *a, integer *lda, integer *jpvt, 653 double *tau, double *vn1, double *vn2, double *auxv, 654 double *f, integer *ldf); 655 656 int dlaqr0_(bool *wantt, bool *wantz, integer *n, integer *ilo, integer *ihi, double *h__, 657 integer *ldh, double *wr, double *wi, integer *iloz, integer *ihiz, double *z__, 658 integer *ldz, double *work, integer *lwork, integer *info); 659 660 int dlaqr1_(integer *n, double *h__, integer *ldh, double *sr1, double *si1, 661 double *sr2, double *si2, double *v); 662 663 int dlaqr2_(bool *wantt, bool *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, 664 double *h__, integer *ldh, integer *iloz, integer *ihiz, double *z__, integer *ldz, 665 integer *ns, integer *nd, double *sr, double *si, double *v, integer *ldv, integer *nh, 666 double *t, integer *ldt, integer *nv, double *wv, integer *ldwv, double *work, integer *lwork); 667 int dlaqr3_(bool *wantt, bool *wantz, integer *n, integer *ktop, integer *kbot, integer *nw, 668 double *h__, integer *ldh, integer *iloz, integer *ihiz, double *z__, integer *ldz, 669 integer *ns, integer *nd, double *sr, double *si, double *v, integer *ldv, integer *nh, 670 double *t, integer *ldt, integer *nv, double *wv, integer *ldwv, double *work, integer *lwork); 671 672 int dlaqr4_(bool *wantt, bool *wantz, integer *n, integer *ilo, integer *ihi, double *h__, 673 integer *ldh, double *wr, double *wi, integer *iloz, integer *ihiz, double *z__, 674 integer *ldz, double *work, integer *lwork, integer *info); 675 676 int dlaqr5_(bool *wantt, bool *wantz, integer *kacc22, integer *n, integer *ktop, integer *kbot, 677 integer *nshfts, double *sr, double *si, double *h__, integer *ldh, integer *iloz, 678 integer *ihiz, double *z__, integer *ldz, double *v, integer *ldv, double *u, integer *ldu, 679 integer *nv, double *wv, integer *ldwv, integer *nh, double *wh, integer *ldwh); 680 681 int dlaqsb_(const char *uplo, integer *n, integer *kd, double *ab, integer *ldab, double *s, 682 double *scond, double *amax, const char *equed); 683 684 int dlaqsp_(const char *uplo, integer *n, double *ap, double *s, double *scond, double *amax, char *equed); 685 686 int dlaqsy_(const char *uplo, integer *n, double *a, integer *lda, double *s, double *scond, 687 double *amax, char *equed); 688 689 int dlaqtr_(bool *ltran, bool *lfloat, integer *n, double *t, integer *ldt, double *b, 690 double *w, double *scale, double *x, double *work, integer *info); 691 692 int dlar1v_(integer *n, integer *b1, integer *bn, double *lambda, double *d__, double *l, 693 double *ld, double *lld, double *pivmin, double *gaptol, double *z__, bool *wantnc, 694 integer *negcnt, double *ztz, double *mingma, integer *r__, integer *isuppz, 695 double *nrminv, double *resid, double *rqcorr, double *work); 696 697 int dlar2v_(integer *n, double *x, double *y, double *z__, integer *incx, double *c__, 698 double *s, integer *incc); 699 700 int dlarf_(const char *side, integer *m, integer *n, double *v, integer *incv, double *tau, 701 double *c__, integer *ldc, double *work); 702 703 int dlarfb_(const char *side, const char *trans, const char *direct, const char *storev, integer *m, 704 integer *n, integer *k, double *v, integer *ldv, double *t, integer *ldt, double *c__, 705 integer *ldc, double *work, integer *ldwork); 706 707 int dlarfg_(integer *n, double *alpha, double *x, integer *incx, double *tau); 708 709 int dlarfp_(integer *n, double *alpha, double *x, integer *incx, double *tau); 710 711 int dlarft_(const char *direct, const char *storev, integer *n, integer *k, double *v, 712 integer *ldv, double *tau, double *t, integer *ldt); 713 714 int dlarfx_(const char *side, integer *m, integer *n, double *v, double *tau, double *c__, integer *ldc, double *work); 715 716 int dlargv_(integer *n, double *x, integer *incx, double *y, integer *incy, double *c__, integer *incc); 717 718 int dlarnv_(integer *idist, integer *iseed, integer *n, double *x); 719 720 int dlarra_(integer *n, double *d__, double *e, double *e2, double *spltol, double *tnrm, 721 integer *nsplit, integer *isplit, integer *info); 722 723 int dlarrb_(integer *n, double *d__, double *lld, integer *ifirst, integer *ilast, double *rtol1, 724 double *rtol2, integer *offset, double *w, double *wgap, double *werr, double *work, 725 integer *iwork, double *pivmin, double *spdiam, integer *twist, integer *info); 726 727 int dlarrc_(const char *jobt, integer *n, double *vl, double *vu, double *d__, double *e, double *pivmin, 728 integer *eigcnt, integer *lcnt, integer *rcnt, integer *info); 729 730 int dlarrd_(const char *range, const char *order, integer *n, double *vl, double *vu, integer *il, 731 integer *iu, double *gers, double *reltol, double *d__, double *e, double *e2, double *pivmin, 732 integer *nsplit, integer *isplit, integer *m, double *w, double *werr, double *wl, double *wu, 733 integer *iblock, integer *indexw, double *work, integer *iwork, integer *info); 734 735 int dlarre_(const char *range, integer *n, double *vl, double *vu, integer *il, integer *iu, 736 double *d__, double *e, double *e2, double *rtol1, double *rtol2, double *spltol, integer *nsplit, 737 integer *isplit, integer *m, double *w, double *werr, double *wgap, integer *iblock, 738 integer *indexw, double *gers, double *pivmin, double *work, integer *iwork, integer *info); 739 740 int dlarrf_(integer *n, double *d__, double *l, double *ld, integer *clstrt, integer *clend, 741 double *w, double *wgap, double *werr, double *spdiam, double *clgapl, double *clgapr, 742 double *pivmin, double *sigma, double *dplus, double *lplus, double *work, integer *info); 743 744 int dlarrj_(integer *n, double *d__, double *e2, integer *ifirst, integer *ilast, double *rtol, 745 integer *offset, double *w, double *werr, double *work, integer *iwork, 746 double *pivmin, double *spdiam, integer *info); 747 748 int dlarrk_(integer *n, integer *iw, double *gl, double *gu, double *d__, double *e2, 749 double *pivmin, double *reltol, double *w, double *werr, integer *info); 750 751 int dlarrr_(integer *n, double *d__, double *e, integer *info); 752 753 int dlarrv_(integer *n, double *vl, double *vu, 754 double *d__, double *l, double *pivmin, integer *isplit, 755 integer *m, integer *dol, integer *dou, double *minrgp, 756 double *rtol1, double *rtol2, double *w, double *werr, 757 double *wgap, integer *iblock, integer *indexw, double *gers, 758 double *z__, integer *ldz, integer *isuppz, double *work, 759 integer *iwork, integer *info); 760 761 int dlarscl2_(integer *m, integer *n, double *d__, double *x, integer *ldx); 762 763 int dlartg_(double *f, double *g, double *cs, double *sn, double *r__); 764 765 int dlartv_(integer *n, double *x, integer *incx, double *y, integer *incy, 766 double *c__, double *s, integer *incc); 767 768 int dlaruv_(integer *iseed, integer *n, double *x); 769 770 int dlarz_(const char *side, integer *m, integer *n, integer *l, 771 double *v, integer *incv, double *tau, double *c__, 772 integer *ldc, double *work); 773 774 int dlarzb_(const char *side, const char *trans, const char *direct, const char *storev, 775 integer *m, integer *n, integer *k, integer *l, double *v, integer *ldv, double *t, 776 integer *ldt, double *c__, integer *ldc, double *work, integer *ldwork); 777 778 int dlarzt_(const char *direct, const char *storev, integer *n, integer * 779 k, double *v, integer *ldv, double *tau, double *t, integer *ldt); 780 781 int dlas2_(double *f, double *g, double *h__, double *ssmin, double *ssmax); 782 783 int dlascl_(const char *type__, integer *kl, integer *ku, double *cfrom, double *cto, 784 integer *m, integer *n, double *a, integer *lda, integer *info); 785 786 int dlascl2_(integer *m, integer *n, double *d__, double *x, integer *ldx); 787 788 int dlasd0_(integer *n, integer *sqre, double *d__, 789 double *e, double *u, integer *ldu, double *vt, integer * 790 ldvt, integer *smlsiz, integer *iwork, double *work, integer * 791 info); 792 793 int dlasd1_(integer *nl, integer *nr, integer *sqre, 794 double *d__, double *alpha, double *beta, double *u, 795 integer *ldu, double *vt, integer *ldvt, integer *idxq, integer * 796 iwork, double *work, integer *info); 797 798 int dlasd2_(integer *nl, integer *nr, integer *sqre, integer 799 *k, double *d__, double *z__, double *alpha, double * 800 beta, double *u, integer *ldu, double *vt, integer *ldvt, 801 double *dsigma, double *u2, integer *ldu2, double *vt2, 802 integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer * 803 idxq, integer *coltyp, integer *info); 804 805 int dlasd3_(integer *nl, integer *nr, integer *sqre, integer 806 *k, double *d__, double *q, integer *ldq, double *dsigma, 807 double *u, integer *ldu, double *u2, integer *ldu2, 808 double *vt, integer *ldvt, double *vt2, integer *ldvt2, 809 integer *idxc, integer *ctot, double *z__, integer *info); 810 811 int dlasd4_(integer *n, integer *i__, double *d__, 812 double *z__, double *delta, double *rho, double * 813 sigma, double *work, integer *info); 814 815 int dlasd5_(integer *i__, double *d__, double *z__, 816 double *delta, double *rho, double *dsigma, double * 817 work); 818 819 int dlasd6_(integer *icompq, integer *nl, integer *nr, 820 integer *sqre, double *d__, double *vf, double *vl, 821 double *alpha, double *beta, integer *idxq, integer *perm, 822 integer *givptr, integer *givcol, integer *ldgcol, double *givnum, 823 integer *ldgnum, double *poles, double *difl, double * 824 difr, double *z__, integer *k, double *c__, double *s, 825 double *work, integer *iwork, integer *info); 826 827 int dlasd7_(integer *icompq, integer *nl, integer *nr, 828 integer *sqre, integer *k, double *d__, double *z__, 829 double *zw, double *vf, double *vfw, double *vl, 830 double *vlw, double *alpha, double *beta, double * 831 dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, 832 integer *givptr, integer *givcol, integer *ldgcol, double *givnum, 833 integer *ldgnum, double *c__, double *s, integer *info); 834 835 int dlasd8_(integer *icompq, integer *k, double *d__, 836 double *z__, double *vf, double *vl, double *difl, 837 double *difr, integer *lddifr, double *dsigma, double * 838 work, integer *info); 839 840 int dlasda_(integer *icompq, integer *smlsiz, integer *n, 841 integer *sqre, double *d__, double *e, double *u, integer 842 *ldu, double *vt, integer *k, double *difl, double *difr, 843 double *z__, double *poles, integer *givptr, integer *givcol, 844 integer *ldgcol, integer *perm, double *givnum, double *c__, 845 double *s, double *work, integer *iwork, integer *info); 846 847 int dlasdq_(const char *uplo, integer *sqre, integer *n, integer * 848 ncvt, integer *nru, integer *ncc, double *d__, double *e, 849 double *vt, integer *ldvt, double *u, integer *ldu, 850 double *c__, integer *ldc, double *work, integer *info); 851 852 int dlasdt_(integer *n, integer *lvl, integer *nd, integer * 853 inode, integer *ndiml, integer *ndimr, integer *msub); 854 855 int dlaset_(const char *uplo, integer *m, integer *n, double * 856 alpha, double *beta, double *a, integer *lda); 857 858 int dlasq1_(integer *n, double *d__, double *e, 859 double *work, integer *info); 860 861 int dlasq2_(integer *n, double *z__, integer *info); 862 863 int dlasq3_(integer *i0, integer *n0, double *z__, integer *pp, double *dmin__, double *sigma, 864 double *desig, double *qmax, integer *nfail, integer *iter, integer *ndiv, bool *ieee, 865 integer *ttype, double *dmin1, double *dmin2, double *dn, double *dn1, double *dn2, 866 double *g, double *tau); 867 868 int dlasq4_(integer *i0, integer *n0, double *z__, 869 integer *pp, integer *n0in, double *dmin__, double *dmin1, 870 double *dmin2, double *dn, double *dn1, double *dn2, 871 double *tau, integer *ttype, double *g); 872 873 int dlasq5_(integer *i0, integer *n0, double *z__, 874 integer *pp, double *tau, double *dmin__, double *dmin1, 875 double *dmin2, double *dn, double *dnm1, double *dnm2, 876 bool *ieee); 877 878 int dlasq6_(integer *i0, integer *n0, double *z__, 879 integer *pp, double *dmin__, double *dmin1, double *dmin2, 880 double *dn, double *dnm1, double *dnm2); 881 882 int dlasr_(const char *side, const char *pivot, const char *direct, integer *m, 883 integer *n, double *c__, double *s, double *a, integer * 884 lda); 885 886 int dlasrt_(const char *id, integer *n, double *d__, integer * 887 info); 888 889 int dlassq_(integer *n, double *x, integer *incx, 890 double *scale, double *sumsq); 891 892 int dlasv2_(double *f, double *g, double *h__, 893 double *ssmin, double *ssmax, double *snr, double * 894 csr, double *snl, double *csl); 895 896 int dlaswp_(integer *n, double *a, integer *lda, integer 897 *k1, integer *k2, integer *ipiv, integer *incx); 898 899 int dlasy2_(bool *ltranl, bool *ltranr, integer *isgn, 900 integer *n1, integer *n2, double *tl, integer *ldtl, double * 901 tr, integer *ldtr, double *b, integer *ldb, double *scale, 902 double *x, integer *ldx, double *xnorm, integer *info); 903 904 int dlasyf_(const char *uplo, integer *n, integer *nb, integer *kb, double *a, integer *lda, 905 integer *ipiv, double *w, integer *ldw, integer *info); 906 907 int dlat2s_(const char *uplo, integer *n, double *a, integer *lda, float *sa, integer *ldsa, integer *info); 908 909 int dlatbs_(const char *uplo, const char *trans, const char *diag,const char *normin, integer *n, 910 integer *kd, double *ab, integer *ldab, double *x, double *scale, double *cnorm, integer *info); 911 912 int dlatdf_(integer *ijob, integer *n, double *z__, 913 integer *ldz, double *rhs, double *rdsum, double *rdscal, 914 integer *ipiv, integer *jpiv); 915 916 int dlatps_(const char *uplo, const char *trans, const char *diag, const char * 917 normin, integer *n, double *ap, double *x, double *scale, 918 double *cnorm, integer *info); 919 920 int dlatrd_(const char *uplo, integer *n, integer *nb, double * 921 a, integer *lda, double *e, double *tau, double *w, 922 integer *ldw); 923 924 int dlatrs_(const char *uplo, const char *trans, const char *diag, const char * 925 normin, integer *n, double *a, integer *lda, double *x, 926 double *scale, double *cnorm, integer *info); 927 928 int dlatrz_(integer *m, integer *n, integer *l, double * 929 a, integer *lda, double *tau, double *work); 930 931 int dlatzm_(const char *side, integer *m, integer *n, double * 932 v, integer *incv, double *tau, double *c1, double *c2, 933 integer *ldc, double *work); 934 935 int dlauu2_(const char *uplo, integer *n, double *a, integer * 936 lda, integer *info); 937 938 int dlauum_(const char *uplo, integer *n, double *a, integer * 939 lda, integer *info); 940 941 int dlazq3_(integer *i0, integer *n0, double *z__, 942 integer *pp, double *dmin__, double *sigma, double *desig, 943 double *qmax, integer *nfail, integer *iter, integer *ndiv, 944 bool *ieee, integer *ttype, double *dmin1, double *dmin2, 945 double *dn, double *dn1, double *dn2, double *tau); 946 947 int dlazq4_(integer *i0, integer *n0, double *z__, integer *pp, integer *n0in, double *dmin__, 948 double *dmin1, double *dmin2, double *dn, double *dn1, double *dn2, double *tau, integer *ttype, double *g); 949 950 integer dmaxloc_(double *a, integer *dimm); 951 952 double dnrm2_(integer *n, double *x, integer *incx); 953 954 int dopgtr_(const char *uplo, integer *n, double *ap, double *tau, double *q, integer *ldq, double *work, integer *info); 955 956 int dopmtr_(const char *side, const char *uplo, const char *trans, integer *m, integer *n, 957 double *ap, double *tau, double *c__, integer *ldc, double *work, integer *info); 958 959 int dorg2l_(integer *m, integer *n, integer *k, double *a, integer *lda, double *tau, double *work, integer *info); 960 961 int dorg2r_(integer *m, integer *n, integer *k, double *a, integer *lda, double *tau, double *work, integer *info); 962 963 int dorgbr_(const char *vect, integer *m, integer *n, integer *k, 964 double *a, integer *lda, double *tau, double *work, 965 integer *lwork, integer *info); 966 967 int dorghr_(integer *n, integer *ilo, integer *ihi, 968 double *a, integer *lda, double *tau, double *work, 969 integer *lwork, integer *info); 970 971 int dorgl2_(integer *m, integer *n, integer *k, double * 972 a, integer *lda, double *tau, double *work, integer *info); 973 974 int dorglq_(integer *m, integer *n, integer *k, double * 975 a, integer *lda, double *tau, double *work, integer *lwork, 976 integer *info); 977 978 int dorgql_(integer *m, integer *n, integer *k, double * 979 a, integer *lda, double *tau, double *work, integer *lwork, 980 integer *info); 981 982 int dorgqr_(integer *m, integer *n, integer *k, double * 983 a, integer *lda, double *tau, double *work, integer *lwork, 984 integer *info); 985 986 int dorgr2_(integer *m, integer *n, integer *k, double * 987 a, integer *lda, double *tau, double *work, integer *info); 988 989 int dorgrq_(integer *m, integer *n, integer *k, double * 990 a, integer *lda, double *tau, double *work, integer *lwork, 991 integer *info); 992 993 int dorgtr_(const char *uplo, integer *n, double *a, integer * 994 lda, double *tau, double *work, integer *lwork, integer *info); 995 996 int dorm2l_(const char *side, const char *trans, integer *m, integer *n, 997 integer *k, double *a, integer *lda, double *tau, double * 998 c__, integer *ldc, double *work, integer *info); 999 1000 int dorm2r_(const char *side, const char *trans, integer *m, integer *n, 1001 integer *k, double *a, integer *lda, double *tau, double * 1002 c__, integer *ldc, double *work, integer *info); 1003 1004 int dormbr_(const char *vect, const char *side, const char *trans, integer *m, 1005 integer *n, integer *k, double *a, integer *lda, double *tau, 1006 double *c__, integer *ldc, double *work, integer *lwork, 1007 integer *info); 1008 1009 int dormhr_(const char *side, const char *trans, integer *m, integer *n, 1010 integer *ilo, integer *ihi, double *a, integer *lda, double * 1011 tau, double *c__, integer *ldc, double *work, integer *lwork, 1012 integer *info); 1013 1014 int dorml2_(const char *side, const char *trans, integer *m, integer *n, 1015 integer *k, double *a, integer *lda, double *tau, double * 1016 c__, integer *ldc, double *work, integer *info); 1017 1018 int dormlq_(const char *side, const char *trans, integer *m, integer *n, 1019 integer *k, double *a, integer *lda, double *tau, double * 1020 c__, integer *ldc, double *work, integer *lwork, integer *info); 1021 1022 int dormql_(const char *side, const char *trans, integer *m, integer *n, 1023 integer *k, double *a, integer *lda, double *tau, double * 1024 c__, integer *ldc, double *work, integer *lwork, integer *info); 1025 1026 int dormqr_(const char *side, const char *trans, integer *m, integer *n, 1027 integer *k, double *a, integer *lda, double *tau, double * 1028 c__, integer *ldc, double *work, integer *lwork, integer *info); 1029 1030 int dormr2_(const char *side, const char *trans, integer *m, integer *n, 1031 integer *k, double *a, integer *lda, double *tau, double * 1032 c__, integer *ldc, double *work, integer *info); 1033 1034 int dormr3_(const char *side, const char *trans, integer *m, integer *n, 1035 integer *k, integer *l, double *a, integer *lda, double *tau, 1036 double *c__, integer *ldc, double *work, integer *info); 1037 1038 int dormrq_(const char *side, const char *trans, integer *m, integer *n, 1039 integer *k, double *a, integer *lda, double *tau, double * 1040 c__, integer *ldc, double *work, integer *lwork, integer *info); 1041 1042 int dormrz_(const char *side, const char *trans, integer *m, integer *n, 1043 integer *k, integer *l, double *a, integer *lda, double *tau, 1044 double *c__, integer *ldc, double *work, integer *lwork, 1045 integer *info); 1046 1047 int dormtr_(const char *side, const char *uplo, const char *trans, integer *m, 1048 integer *n, double *a, integer *lda, double *tau, double * 1049 c__, integer *ldc, double *work, integer *lwork, integer *info); 1050 1051 int dpbcon_(const char *uplo, integer *n, integer *kd, double * 1052 ab, integer *ldab, double *anorm, double *rcond, double * 1053 work, integer *iwork, integer *info); 1054 1055 int dpbequ_(const char *uplo, integer *n, integer *kd, double * 1056 ab, integer *ldab, double *s, double *scond, double *amax, 1057 integer *info); 1058 1059 int dpbrfs_(const char *uplo, integer *n, integer *kd, integer * 1060 nrhs, double *ab, integer *ldab, double *afb, integer *ldafb, 1061 double *b, integer *ldb, double *x, integer *ldx, double * 1062 ferr, double *berr, double *work, integer *iwork, integer * 1063 info); 1064 1065 int dpbstf_(const char *uplo, integer *n, integer *kd, double * 1066 ab, integer *ldab, integer *info); 1067 1068 int dpbsv_(const char *uplo, integer *n, integer *kd, integer * 1069 nrhs, double *ab, integer *ldab, double *b, integer *ldb, 1070 integer *info); 1071 1072 int dpbsvx_(const char *fact, const char *uplo, integer *n, integer *kd, 1073 integer *nrhs, double *ab, integer *ldab, double *afb, 1074 integer *ldafb, char *equed, double *s, double *b, integer * 1075 ldb, double *x, integer *ldx, double *rcond, double *ferr, 1076 double *berr, double *work, integer *iwork, integer *info); 1077 1078 int dpbtf2_(const char *uplo, integer *n, integer *kd, double * 1079 ab, integer *ldab, integer *info); 1080 1081 int dpbtrf_(const char *uplo, integer *n, integer *kd, double *ab, integer *ldab, integer *info); 1082 1083 int dpbtrs_(const char *uplo, integer *n, integer *kd, integer *nrhs, double *ab, 1084 integer *ldab, double *b, integer *ldb, integer *info); 1085 1086 int dpftrf_(const char *transr, const char *uplo, integer *n, double *a, integer *info); 1087 1088 int dpftri_(const char *transr, const char *uplo, integer *n, double *a, integer *info); 1089 1090 int dpftrs_(char *transr, char *uplo, integer *n, integer *nrhs, double *a, double *b, integer *ldb, integer *info); 1091 1092 int dpocon_(const char *uplo, integer *n, double *a, integer *lda, double *anorm, 1093 double *rcond, double *work, integer *iwork, integer *info); 1094 1095 int dpoequ_(integer *n, double *a, integer *lda, double *s, double *scond, double *amax, integer *info); 1096 1097 int dpoequb_(integer *n, double *a, integer *lda, double *s, double *scond, double *amax, integer *info); 1098 1099 int dporfs_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, 1100 double *af, integer *ldaf, double *b, integer *ldb, double *x, integer *ldx, 1101 double *ferr, double *berr, double *work, integer *iwork, integer *info); 1102 1103 int dporfsx_(const char *uplo, const char *equed, integer *n, integer *nrhs, double *a, integer *lda, 1104 double *af, integer *ldaf, double *s, double *b, integer *ldb, double *x, integer * 1105 ldx, double *rcond, double *berr, integer *n_err_bnds__, double *err_bnds_norm__, double *err_bnds_comp__, 1106 integer *nparams, double *params, double *work, integer *iwork, integer *info); 1107 1108 int dposv_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, double *b, 1109 integer *ldb, integer *info); 1110 1111 int dposvx_(const char *fact, const char *uplo, integer *n, integer * 1112 nrhs, double *a, integer *lda, double *af, integer *ldaf, 1113 char *equed, double *s, double *b, integer *ldb, double * 1114 x, integer *ldx, double *rcond, double *ferr, double * 1115 berr, double *work, integer *iwork, integer *info); 1116 1117 int dposvxx_(const char *fact, const char *uplo, integer *n, integer *nrhs, double *a, 1118 integer *lda, double *af, integer *ldaf, char *equed, double *s, double *b, 1119 integer *ldb, double *x, integer *ldx, double *rcond, double *rpvgrw, double *berr, 1120 integer *n_err_bnds__, double *err_bnds_norm__, double *err_bnds_comp__, 1121 integer *nparams, double *params, double *work, integer *iwork, integer *info); 1122 1123 int dpotf2_(const char *uplo, integer *n, double *a, integer *lda, integer *info); 1124 1125 int dpotrf_(const char *uplo, integer *n, double *a, integer *lda, integer *info); 1126 1127 int dpotri_(const char *uplo, integer *n, double *a, integer *lda, integer *info); 1128 1129 int dpotrs_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, double *b, 1130 integer *ldb, integer * info); 1131 1132 int dppcon_(const char *uplo, integer *n, double *ap, 1133 double *anorm, double *rcond, double *work, integer * 1134 iwork, integer *info); 1135 1136 int dppequ_(const char *uplo, integer *n, double *ap, 1137 double *s, double *scond, double *amax, integer *info); 1138 1139 int dpprfs_(const char *uplo, integer *n, integer *nrhs, 1140 double *ap, double *afp, double *b, integer *ldb, 1141 double *x, integer *ldx, double *ferr, double *berr, 1142 double *work, integer *iwork, integer *info); 1143 1144 int dppsv_(const char *uplo, integer *n, integer *nrhs, double *ap, double *b, integer *ldb, integer *info); 1145 1146 int dppsvx_(const char *fact, const char *uplo, integer *n, integer *nrhs, double *ap, double *afp, 1147 char *equed, double *s, double *b, integer *ldb, double *x, integer *ldx, double *rcond, 1148 double *ferr, double *berr, double *work, integer *iwork, integer *info); 1149 1150 int dpptrf_(const char *uplo, integer *n, double *ap, integer *info); 1151 1152 int dpptri_(const char *uplo, integer *n, double *ap, integer *info); 1153 1154 int dpptrs_(const char *uplo, integer *n, integer *nrhs, double *ap, double *b, integer *ldb, integer *info); 1155 1156 int dpstf2_(const char *uplo, integer *n, double *a, integer *lda, integer *piv, integer *rank, 1157 double *tol, double *work, integer *info); 1158 1159 int dpstrf_(const char *uplo, integer *n, double *a, integer *lda, integer *piv, integer *rank, 1160 double *tol, double *work, integer *info); 1161 1162 int dptcon_(integer *n, double *d__, double *e, double *anorm, double *rcond, double *work, integer *info); 1163 1164 int dpteqr_(const char *compz, integer *n, double *d__, double *e, double *z__, integer *ldz, 1165 double *work, integer *info); 1166 1167 int dptrfs_(integer *n, integer *nrhs, double *d__, double *e, double *df, double *ef, double *b, 1168 integer *ldb, double *x, integer *ldx, double *ferr, double *berr, double *work, integer *info); 1169 1170 int dptsv_(integer *n, integer *nrhs, double *d__, double *e, double *b, integer *ldb, integer *info); 1171 1172 int dptsvx_(const char *fact, integer *n, integer *nrhs, 1173 double *d__, double *e, double *df, double *ef, 1174 double *b, integer *ldb, double *x, integer *ldx, double * 1175 rcond, double *ferr, double *berr, double *work, integer * 1176 info); 1177 1178 int dpttrf_(integer *n, double *d__, double *e, 1179 integer *info); 1180 1181 int dpttrs_(integer *n, integer *nrhs, double *d__, 1182 double *e, double *b, integer *ldb, integer *info); 1183 1184 int dptts2_(integer *n, integer *nrhs, double *d__, 1185 double *e, double *b, integer *ldb); 1186 1187 int drscl_(integer *n, double *sa, double *sx, 1188 integer *incx); 1189 1190 int dsbev_(const char *jobz, const char *uplo, integer *n, integer *kd, 1191 double *ab, integer *ldab, double *w, double *z__, 1192 integer *ldz, double *work, integer *info); 1193 1194 int dsbevd_(const char *jobz, const char *uplo, integer *n, integer *kd, 1195 double *ab, integer *ldab, double *w, double *z__, 1196 integer *ldz, double *work, integer *lwork, integer *iwork, 1197 integer *liwork, integer *info); 1198 1199 int dsbevx_(const char *jobz, const char *range, const char *uplo, integer *n, 1200 integer *kd, double *ab, integer *ldab, double *q, integer * 1201 ldq, double *vl, double *vu, integer *il, integer *iu, 1202 double *abstol, integer *m, double *w, double *z__, 1203 integer *ldz, double *work, integer *iwork, integer *ifail, 1204 integer *info); 1205 1206 int dsbgst_(const char *vect, const char *uplo, integer *n, integer *ka, 1207 integer *kb, double *ab, integer *ldab, double *bb, integer * 1208 ldbb, double *x, integer *ldx, double *work, integer *info); 1209 1210 int dsbgv_(const char *jobz, const char *uplo, integer *n, integer *ka, 1211 integer *kb, double *ab, integer *ldab, double *bb, integer * 1212 ldbb, double *w, double *z__, integer *ldz, double *work, 1213 integer *info); 1214 1215 int dsbgvd_(const char *jobz, const char *uplo, integer *n, integer *ka, 1216 integer *kb, double *ab, integer *ldab, double *bb, integer * 1217 ldbb, double *w, double *z__, integer *ldz, double *work, 1218 integer *lwork, integer *iwork, integer *liwork, integer *info); 1219 1220 int dsbgvx_(const char *jobz, const char *range, const char *uplo, integer *n, 1221 integer *ka, integer *kb, double *ab, integer *ldab, double * 1222 bb, integer *ldbb, double *q, integer *ldq, double *vl, 1223 double *vu, integer *il, integer *iu, double *abstol, integer 1224 *m, double *w, double *z__, integer *ldz, double *work, 1225 integer *iwork, integer *ifail, integer *info); 1226 1227 int dsbtrd_(const char *vect, const char *uplo, integer *n, integer *kd, double *ab, integer *ldab, 1228 double *d__, double *e, double *q, integer *ldq, double *work, integer *info); 1229 1230 int dsgesv_(integer *n, integer *nrhs, double *a, integer *lda, integer *ipiv, double *b, integer *ldb, 1231 double *x, integer *ldx, double *work, float *swork, integer *iter, integer *info); 1232 1233 int dspcon_(const char *uplo, integer *n, double *ap, integer *ipiv, double *anorm, double *rcond, 1234 double *work, integer *iwork, integer *info); 1235 1236 int dspev_(const char *jobz, const char *uplo, integer *n, double * 1237 ap, double *w, double *z__, integer *ldz, double *work, 1238 integer *info); 1239 1240 int dspevd_(const char *jobz, const char *uplo, integer *n, double * 1241 ap, double *w, double *z__, integer *ldz, double *work, 1242 integer *lwork, integer *iwork, integer *liwork, integer *info); 1243 1244 int dspevx_(const char *jobz, const char *range, const char *uplo, integer *n, 1245 double *ap, double *vl, double *vu, integer *il, integer * 1246 iu, double *abstol, integer *m, double *w, double *z__, 1247 integer *ldz, double *work, integer *iwork, integer *ifail, 1248 integer *info); 1249 1250 int dspgst_(integer *itype, const char *uplo, integer *n, 1251 double *ap, double *bp, integer *info); 1252 1253 int dspgv_(integer *itype, const char *jobz, const char *uplo, integer * 1254 n, double *ap, double *bp, double *w, double *z__, 1255 integer *ldz, double *work, integer *info); 1256 1257 int dspgvd_(integer *itype, const char *jobz, const char *uplo, integer * 1258 n, double *ap, double *bp, double *w, double *z__, 1259 integer *ldz, double *work, integer *lwork, integer *iwork, 1260 integer *liwork, integer *info); 1261 1262 int dspgvx_(integer *itype, const char *jobz, const char *range, const char *uplo, integer *n, double *ap, 1263 double *bp, double *vl, double *vu, integer *il, integer *iu, double *abstol, integer *m, 1264 double *w, double *z__, integer *ldz, double *work, integer *iwork, integer *ifail, integer *info); 1265 1266 int dsposv_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, double *b, integer *ldb, 1267 double *x, integer *ldx, double *work, float *swork, integer *iter, integer *info); 1268 1269 int dsprfs_(const char *uplo, integer *n, integer *nrhs, double *ap, double *afp, integer *ipiv, 1270 double *b, integer *ldb, double *x, integer *ldx, double *ferr, 1271 double *berr, double *work, integer *iwork, integer *info); 1272 1273 int dspsv_(const char *uplo, integer *n, integer *nrhs, double *ap, integer *ipiv, double *b, 1274 integer *ldb, integer *info); 1275 1276 int dspsvx_(const char *fact, const char *uplo, integer *n, integer * 1277 nrhs, double *ap, double *afp, integer *ipiv, double *b, 1278 integer *ldb, double *x, integer *ldx, double *rcond, 1279 double *ferr, double *berr, double *work, integer *iwork, 1280 integer *info); 1281 1282 int dsptrd_(const char *uplo, integer *n, double *ap, 1283 double *d__, double *e, double *tau, integer *info); 1284 1285 int dsptrf_(const char *uplo, integer *n, double *ap, integer * 1286 ipiv, integer *info); 1287 1288 int dsptri_(const char *uplo, integer *n, double *ap, integer * 1289 ipiv, double *work, integer *info); 1290 1291 int dsptrs_(const char *uplo, integer *n, integer *nrhs, 1292 double *ap, integer *ipiv, double *b, integer *ldb, integer * 1293 info); 1294 1295 int dstebz_(const char *range, const char *order, integer *n, double 1296 *vl, double *vu, integer *il, integer *iu, double *abstol, 1297 double *d__, double *e, integer *m, integer *nsplit, 1298 double *w, integer *iblock, integer *isplit, double *work, 1299 integer *iwork, integer *info); 1300 1301 int dstedc_(const char *compz, integer *n, double *d__, 1302 double *e, double *z__, integer *ldz, double *work, 1303 integer *lwork, integer *iwork, integer *liwork, integer *info); 1304 1305 int dstegr_(const char *jobz, const char *range, integer *n, double * 1306 d__, double *e, double *vl, double *vu, integer *il, 1307 integer *iu, double *abstol, integer *m, double *w, 1308 double *z__, integer *ldz, integer *isuppz, double *work, 1309 integer *lwork, integer *iwork, integer *liwork, integer *info); 1310 1311 int dstein_(integer *n, double *d__, double *e, 1312 integer *m, double *w, integer *iblock, integer *isplit, 1313 double *z__, integer *ldz, double *work, integer *iwork, 1314 integer *ifail, integer *info); 1315 1316 int dstemr_(const char *jobz, const char *range, integer *n, double * 1317 d__, double *e, double *vl, double *vu, integer *il, 1318 integer *iu, integer *m, double *w, double *z__, integer *ldz, 1319 integer *nzc, integer *isuppz, bool *tryrac, double *work, 1320 integer *lwork, integer *iwork, integer *liwork, integer *info); 1321 1322 int dsteqr_(const char *compz, integer *n, double *d__, 1323 double *e, double *z__, integer *ldz, double *work, 1324 integer *info); 1325 1326 int dsterf_(integer *n, double *d__, double *e, 1327 integer *info); 1328 1329 int dstev_(const char *jobz, integer *n, double *d__, 1330 double *e, double *z__, integer *ldz, double *work, 1331 integer *info); 1332 1333 int dstevd_(const char *jobz, integer *n, double *d__, 1334 double *e, double *z__, integer *ldz, double *work, 1335 integer *lwork, integer *iwork, integer *liwork, integer *info); 1336 1337 int dstevr_(const char *jobz, const char *range, integer *n, double * 1338 d__, double *e, double *vl, double *vu, integer *il, 1339 integer *iu, double *abstol, integer *m, double *w, 1340 double *z__, integer *ldz, integer *isuppz, double *work, 1341 integer *lwork, integer *iwork, integer *liwork, integer *info); 1342 1343 int dstevx_(const char *jobz, const char *range, integer *n, double *d__, double *e, 1344 double *vl, double *vu, integer *il, integer *iu, double *abstol, integer *m, 1345 double *w, double *z__, integer *ldz, double *work, integer *iwork, 1346 integer *ifail, integer *info); 1347 1348 int dsycon_(const char *uplo, integer *n, double *a, integer *lda, integer *ipiv, double *anorm, 1349 double *rcond, double *work, integer *iwork, integer *info); 1350 1351 int dsyequb_(const char *uplo, integer *n, double *a, integer *lda, double *s, double *scond, 1352 double *amax, double *work, integer *info); 1353 1354 int dsyev_(const char *jobz, const char *uplo, integer *n, double *a, 1355 integer *lda, double *w, double *work, integer *lwork, integer *info); 1356 1357 int dsyevd_(const char *jobz, const char *uplo, integer *n, double *a, integer *lda, 1358 double *w, double *work, integer *lwork, integer *iwork, integer *liwork, integer *info); 1359 1360 int dsyevr_(const char *jobz, const char *range, const char *uplo, integer *n, double *a, 1361 integer *lda, double *vl, double *vu, integer *il, integer *iu, double *abstol, integer *m, 1362 double *w, double *z__, integer *ldz, integer *isuppz, double *work, 1363 integer *lwork, integer *iwork, integer *liwork, integer *info); 1364 1365 int dsyevx_(const char *jobz, const char *range, const char *uplo, integer *n, 1366 double *a, integer *lda, double *vl, double *vu, integer * 1367 il, integer *iu, double *abstol, integer *m, double *w, 1368 double *z__, integer *ldz, double *work, integer *lwork, 1369 integer *iwork, integer *ifail, integer *info); 1370 1371 int dsygs2_(integer *itype, const char *uplo, integer *n, 1372 double *a, integer *lda, double *b, integer *ldb, integer * 1373 info); 1374 1375 int dsygst_(integer *itype, const char *uplo, integer *n, 1376 double *a, integer *lda, double *b, integer *ldb, integer * 1377 info); 1378 1379 int dsygv_(integer *itype, const char *jobz, const char *uplo, integer * 1380 n, double *a, integer *lda, double *b, integer *ldb, 1381 double *w, double *work, integer *lwork, integer *info); 1382 1383 int dsygvd_(integer *itype, const char *jobz, const char *uplo, integer *n, double *a, 1384 integer *lda, double *b, integer *ldb, double *w, double *work, integer *lwork, 1385 integer *iwork, integer *liwork, integer *info); 1386 1387 int dsygvx_(integer *itype, const char *jobz, const char *range, const char *uplo, 1388 integer *n, double *a, integer *lda, double *b, integer *ldb, double *vl, double *vu, 1389 integer *il, integer *iu, double *abstol, integer *m, double *w, double *z__, 1390 integer *ldz, double *work, integer *lwork, integer *iwork, integer *ifail, integer *info); 1391 1392 int dsyrfs_(const char *uplo, integer *n, integer *nrhs, 1393 double *a, integer *lda, double *af, integer *ldaf, integer * 1394 ipiv, double *b, integer *ldb, double *x, integer *ldx, 1395 double *ferr, double *berr, double *work, integer *iwork, integer *info); 1396 1397 int dsyrfsx_(const char *uplo, const char *equed, integer *n, integer *nrhs, double *a, 1398 integer *lda, double *af, integer *ldaf, integer *ipiv, double *s, double *b, integer *ldb, 1399 double *x, integer *ldx, double *rcond, double *berr, integer *n_err_bnds__, 1400 double *err_bnds_norm__, double *err_bnds_comp__, integer *nparams, double *params, 1401 double *work, integer *iwork, integer *info); 1402 1403 int dsysv_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, integer *ipiv, 1404 double *b, integer *ldb, double *work, integer *lwork, integer *info); 1405 1406 int dsysvx_(const char *fact, const char *uplo, integer *n, integer * 1407 nrhs, double *a, integer *lda, double *af, integer *ldaf, 1408 integer *ipiv, double *b, integer *ldb, double *x, integer * 1409 ldx, double *rcond, double *ferr, double *berr, 1410 double *work, integer *lwork, integer *iwork, integer *info); 1411 1412 int dsysvxx_(const char *fact, const char *uplo, integer *n, integer *nrhs, double *a, 1413 integer *lda, double *af, integer *ldaf, integer *ipiv, char *equed, double *s, double *b, 1414 integer *ldb, double *x, integer *ldx, double *rcond, double *rpvgrw, double *berr, 1415 integer *n_err_bnds__, double *err_bnds_norm__, double *err_bnds_comp__, integer *nparams, 1416 double *params, double *work, integer *iwork, integer *info); 1417 1418 int dsytd2_(const char *uplo, integer *n, double *a, integer *lda, double *d__, double *e, double *tau, integer *info); 1419 1420 int dsytf2_(const char *uplo, integer *n, double *a, integer *lda, integer *ipiv, integer *info); 1421 1422 int dsytrd_(const char *uplo, integer *n, double *a, integer *lda, double *d__, double *e, double *tau, 1423 double *work, integer *lwork, integer *info); 1424 1425 int dsytrf_(const char *uplo, integer *n, double *a, integer *lda, integer *ipiv, double *work, 1426 integer *lwork, integer *info); 1427 1428 int dsytri_(const char *uplo, integer *n, double *a, integer *lda, integer *ipiv, double *work, integer *info); 1429 1430 int dsytrs_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, integer *ipiv, 1431 double *b, integer *ldb, integer *info); 1432 1433 int dtbcon_(const char *norm, const char *uplo, const char *diag, integer *n, integer *kd, 1434 double *ab, integer *ldab, double *rcond, double *work, integer *iwork, integer *info); 1435 1436 int dtbrfs_(const char *uplo, const char *trans, const char *diag, integer *n, integer *kd, 1437 integer *nrhs, double *ab, integer *ldab, double *b, integer *ldb, double *x, integer *ldx, 1438 double *ferr, double *berr, double *work, integer *iwork, integer *info); 1439 1440 int dtbtrs_(const char *uplo, const char *trans, const char *diag, integer *n, integer *kd, 1441 integer *nrhs, double *ab, integer *ldab, double *b, integer *ldb, integer *info); 1442 1443 int dtfsm_(const char *transr, const char *side, const char *uplo, const char *trans, 1444 const char *diag, integer *m, integer *n, double *alpha, double *a, double *b, integer *ldb); 1445 1446 int dtftri_(const char *transr, const char *uplo, const char *diag, integer *n, double *a, integer *info); 1447 1448 int dtfttp_(const char *transr, const char *uplo, integer *n, double *arf, double *ap, integer *info); 1449 1450 int dtfttr_(const char *transr, const char *uplo, integer *n, double *arf, double *a, integer *lda, integer *info); 1451 1452 int dtgevc_(const char *side, const char *howmny, bool *select, integer *n, double *s, 1453 integer *lds, double *p, integer *ldp, double *vl, integer *ldvl, double *vr, 1454 integer *ldvr, integer *mm, integer *m, double *work, integer *info); 1455 1456 int dtgex2_(bool *wantq, bool *wantz, integer *n, 1457 double *a, integer *lda, double *b, integer *ldb, double * 1458 q, integer *ldq, double *z__, integer *ldz, integer *j1, integer * 1459 n1, integer *n2, double *work, integer *lwork, integer *info); 1460 1461 int dtgexc_(bool *wantq, bool *wantz, integer *n, 1462 double *a, integer *lda, double *b, integer *ldb, double * 1463 q, integer *ldq, double *z__, integer *ldz, integer *ifst, 1464 integer *ilst, double *work, integer *lwork, integer *info); 1465 1466 int dtgsen_(integer *ijob, bool *wantq, bool *wantz, 1467 bool *select, integer *n, double *a, integer *lda, double * 1468 b, integer *ldb, double *alphar, double *alphai, double * 1469 beta, double *q, integer *ldq, double *z__, integer *ldz, 1470 integer *m, double *pl, double *pr, double *dif, 1471 double *work, integer *lwork, integer *iwork, integer *liwork, 1472 integer *info); 1473 1474 int dtgsja_(const char *jobu, const char *jobv, const char *jobq, integer *m, 1475 integer *p, integer *n, integer *k, integer *l, double *a, 1476 integer *lda, double *b, integer *ldb, double *tola, 1477 double *tolb, double *alpha, double *beta, double *u, 1478 integer *ldu, double *v, integer *ldv, double *q, integer * 1479 ldq, double *work, integer *ncycle, integer *info); 1480 1481 int dtgsna_(const char *job, const char *howmny, bool *select, 1482 integer *n, double *a, integer *lda, double *b, integer *ldb, 1483 double *vl, integer *ldvl, double *vr, integer *ldvr, 1484 double *s, double *dif, integer *mm, integer *m, double * 1485 work, integer *lwork, integer *iwork, integer *info); 1486 1487 int dtgsy2_(const char *trans, integer *ijob, integer *m, integer * 1488 n, double *a, integer *lda, double *b, integer *ldb, 1489 double *c__, integer *ldc, double *d__, integer *ldd, 1490 double *e, integer *lde, double *f, integer *ldf, double * 1491 scale, double *rdsum, double *rdscal, integer *iwork, integer 1492 *pq, integer *info); 1493 1494 int dtgsyl_(const char *trans, integer *ijob, integer *m, integer * 1495 n, double *a, integer *lda, double *b, integer *ldb, 1496 double *c__, integer *ldc, double *d__, integer *ldd, 1497 double *e, integer *lde, double *f, integer *ldf, double * 1498 scale, double *dif, double *work, integer *lwork, integer * 1499 iwork, integer *info); 1500 1501 int dtpcon_(const char *norm, const char *uplo, const char *diag, integer *n, 1502 double *ap, double *rcond, double *work, integer *iwork, 1503 integer *info); 1504 1505 int dtprfs_(const char *uplo, const char *trans, const char *diag, integer *n, 1506 integer *nrhs, double *ap, double *b, integer *ldb, 1507 double *x, integer *ldx, double *ferr, double *berr, 1508 double *work, integer *iwork, integer *info); 1509 1510 int dtptri_(const char *uplo, const char *diag, integer *n, double *ap, integer *info); 1511 1512 int dtptrs_(const char *uplo, const char *trans, const char *diag, integer *n, 1513 integer *nrhs, double *ap, double *b, integer *ldb, integer *info); 1514 1515 int dtpttf_(const char *transr, const char *uplo, integer *n, double *ap, double *arf, integer *info); 1516 1517 int dtpttr_(const char *uplo, integer *n, double *ap, double *a, integer *lda, integer *info); 1518 1519 int dtrcon_(const char *norm, const char *uplo, const char *diag, integer *n, 1520 double *a, integer *lda, double *rcond, double *work, integer *iwork, integer *info); 1521 1522 int dtrevc_(const char *side, const char *howmny, bool *select, integer *n, double *t, integer *ldt, 1523 double *vl, integer *ldvl, double *vr, integer *ldvr, integer *mm, integer *m, 1524 double *work, integer *info); 1525 1526 int dtrexc_(const char *compq, integer *n, double *t, integer *ldt, double *q, integer *ldq, 1527 integer *ifst, integer *ilst, double *work, integer *info); 1528 1529 int dtrrfs_(const char *uplo, const char *trans, const char *diag, integer *n, integer *nrhs, 1530 double *a, integer *lda, double *b, integer *ldb, double *x, integer *ldx, double *ferr, 1531 double *berr, double *work, integer *iwork, integer *info); 1532 1533 int dtrsen_(const char *job, const char *compq, bool *select, integer 1534 *n, double *t, integer *ldt, double *q, integer *ldq, 1535 double *wr, double *wi, integer *m, double *s, double 1536 *sep, double *work, integer *lwork, integer *iwork, integer * 1537 liwork, integer *info); 1538 1539 int dtrsna_(const char *job, const char *howmny, bool *select, integer *n, double *t, integer *ldt, 1540 double *vl, integer *ldvl, double *vr, integer *ldvr, double *s, double *sep, integer *mm, 1541 integer *m, double *work, integer *ldwork, integer *iwork, integer *info); 1542 1543 int dtrsyl_(const char *trana, const char *tranb, integer *isgn, integer *m, integer *n, double *a, 1544 integer *lda, double *b, integer *ldb, double *c__, integer *ldc, double *scale, integer *info); 1545 1546 int dtrti2_(const char *uplo, const char *diag, integer *n, double *a, integer *lda, integer *info); 1547 1548 int dtrtri_(const char *uplo, const char *diag, integer *n, double *a, integer *lda, integer *info); 1549 1550 int dtrtrs_(const char *uplo, const char *trans, const char *diag, integer *n, integer *nrhs, double *a, 1551 integer *lda, double *b, integer *ldb, integer *info); 1552 1553 int dtrttf_(const char *transr, const char *uplo, integer *n, double *a, integer *lda, double *arf, integer *info); 1554 1555 int dtrttp_(const char *uplo, integer *n, double *a, integer *lda, double *ap, integer *info); 1556 1557 int dtzrqf_(integer *m, integer *n, double *a, integer *lda, double *tau, integer *info); 1558 1559 int dtzrzf_(integer *m, integer *n, double *a, integer *lda, double *tau, double *work, integer *lwork, integer *info); 1560 1561 integer ieeeck_(integer *ispec, float *zero, float *one); 1562 1563 integer iladlc_(integer *m, integer *n, double *a, integer *lda); 1564 1565 integer iladlr_(integer *m, integer *n, double *a, integer *lda); 1566 1567 integer ilaenv_(integer *ispec, const char *name__, const char *opts, integer *n1, 1568 integer *n2, integer *n3, integer *n4); 1569 1570 integer ilaprec_(const char *prec); 1571 1572 integer ilatrans_(const char *trans); 1573 1574 int ilaver_(integer *vers_major__, integer *vers_minor__, integer *vers_patch__); 1575 1576 integer iparmq_ (integer *ispec, const char *name__, const char *opts, integer *n, integer 1577 *ilo, integer *ihi, integer *lwork); 1578 1579 /* Some single precision routines needed in approximations */ 1580 1581 int sgetrf_(integer *m, integer *n, float *a, integer *lda, integer *ipiv, integer *info); 1582 1583 int sgetrs_(const char *trans, integer *n, integer *nrhs, float *a, integer *lda, integer *ipiv, 1584 float *b, integer *ldb, integer *info); 1585 1586 int slag2d_(integer *m, integer *n, float *sa, integer *ldsa, double *a, integer *lda, integer *info); 1587 1588 double slamch_(const char *cmach); 1589 1590 #endif /* _clapack_h_ */ 1591