1 /* header file for clapack 3.2.1 */ 2 3 #ifndef __CLAPACK_H 4 #define __CLAPACK_H 5 6 #ifdef __cplusplus 7 extern "C" { 8 #endif 9 10 /* Subroutine */ int caxpy_(integer *n, complex *ca, complex *cx, integer * 11 incx, complex *cy, integer *incy); 12 13 /* Subroutine */ int ccopy_(integer *n, complex *cx, integer *incx, complex * 14 cy, integer *incy); 15 16 /* Complex */ VOID cdotc_(complex * ret_val, integer *n, complex *cx, integer 17 *incx, complex *cy, integer *incy); 18 19 /* Complex */ VOID cdotu_(complex * ret_val, integer *n, complex *cx, integer 20 *incx, complex *cy, integer *incy); 21 22 /* Subroutine */ int cgbmv_(char *trans, integer *m, integer *n, integer *kl, 23 integer *ku, complex *alpha, complex *a, integer *lda, complex *x, 24 integer *incx, complex *beta, complex *y, integer *incy); 25 26 /* Subroutine */ int cgemm_(char *transa, char *transb, integer *m, integer * 27 n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, 28 integer *ldb, complex *beta, complex *c__, integer *ldc); 29 30 /* Subroutine */ int cgemv_(char *trans, integer *m, integer *n, complex * 31 alpha, complex *a, integer *lda, complex *x, integer *incx, complex * 32 beta, complex *y, integer *incy); 33 34 /* Subroutine */ int cgerc_(integer *m, integer *n, complex *alpha, complex * 35 x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); 36 37 /* Subroutine */ int cgeru_(integer *m, integer *n, complex *alpha, complex * 38 x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); 39 40 /* Subroutine */ int chbmv_(char *uplo, integer *n, integer *k, complex * 41 alpha, complex *a, integer *lda, complex *x, integer *incx, complex * 42 beta, complex *y, integer *incy); 43 44 /* Subroutine */ int chemm_(char *side, char *uplo, integer *m, integer *n, 45 complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, 46 complex *beta, complex *c__, integer *ldc); 47 48 /* Subroutine */ int chemv_(char *uplo, integer *n, complex *alpha, complex * 49 a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, 50 integer *incy); 51 52 /* Subroutine */ int cher_(char *uplo, integer *n, real *alpha, complex *x, 53 integer *incx, complex *a, integer *lda); 54 55 /* Subroutine */ int cher2_(char *uplo, integer *n, complex *alpha, complex * 56 x, integer *incx, complex *y, integer *incy, complex *a, integer *lda); 57 58 /* Subroutine */ int cher2k_(char *uplo, char *trans, integer *n, integer *k, 59 complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, 60 real *beta, complex *c__, integer *ldc); 61 62 /* Subroutine */ int cherk_(char *uplo, char *trans, integer *n, integer *k, 63 real *alpha, complex *a, integer *lda, real *beta, complex *c__, 64 integer *ldc); 65 66 /* Subroutine */ int chpmv_(char *uplo, integer *n, complex *alpha, complex * 67 ap, complex *x, integer *incx, complex *beta, complex *y, integer * 68 incy); 69 70 /* Subroutine */ int chpr_(char *uplo, integer *n, real *alpha, complex *x, 71 integer *incx, complex *ap); 72 73 /* Subroutine */ int chpr2_(char *uplo, integer *n, complex *alpha, complex * 74 x, integer *incx, complex *y, integer *incy, complex *ap); 75 76 /* Subroutine */ int crotg_(complex *ca, complex *cb, real *c__, complex *s); 77 78 /* Subroutine */ int cscal_(integer *n, complex *ca, complex *cx, integer * 79 incx); 80 81 /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex * 82 cy, integer *incy, real *c__, real *s); 83 84 /* Subroutine */ int csscal_(integer *n, real *sa, complex *cx, integer *incx); 85 86 /* Subroutine */ int cswap_(integer *n, complex *cx, integer *incx, complex * 87 cy, integer *incy); 88 89 /* Subroutine */ int csymm_(char *side, char *uplo, integer *m, integer *n, 90 complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, 91 complex *beta, complex *c__, integer *ldc); 92 93 /* Subroutine */ int csyr2k_(char *uplo, char *trans, integer *n, integer *k, 94 complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, 95 complex *beta, complex *c__, integer *ldc); 96 97 /* Subroutine */ int csyrk_(char *uplo, char *trans, integer *n, integer *k, 98 complex *alpha, complex *a, integer *lda, complex *beta, complex *c__, 99 integer *ldc); 100 101 /* Subroutine */ int ctbmv_(char *uplo, char *trans, char *diag, integer *n, 102 integer *k, complex *a, integer *lda, complex *x, integer *incx); 103 104 /* Subroutine */ int ctbsv_(char *uplo, char *trans, char *diag, integer *n, 105 integer *k, complex *a, integer *lda, complex *x, integer *incx); 106 107 /* Subroutine */ int ctpmv_(char *uplo, char *trans, char *diag, integer *n, 108 complex *ap, complex *x, integer *incx); 109 110 /* Subroutine */ int ctpsv_(char *uplo, char *trans, char *diag, integer *n, 111 complex *ap, complex *x, integer *incx); 112 113 /* Subroutine */ int ctrmm_(char *side, char *uplo, char *transa, char *diag, 114 integer *m, integer *n, complex *alpha, complex *a, integer *lda, 115 complex *b, integer *ldb); 116 117 /* Subroutine */ int ctrmv_(char *uplo, char *trans, char *diag, integer *n, 118 complex *a, integer *lda, complex *x, integer *incx); 119 120 /* Subroutine */ int ctrsm_(char *side, char *uplo, char *transa, char *diag, 121 integer *m, integer *n, complex *alpha, complex *a, integer *lda, 122 complex *b, integer *ldb); 123 124 /* Subroutine */ int ctrsv_(char *uplo, char *trans, char *diag, integer *n, 125 complex *a, integer *lda, complex *x, integer *incx); 126 127 doublereal dasum_(integer *n, doublereal *dx, integer *incx); 128 129 /* Subroutine */ int daxpy_(integer *n, doublereal *da, doublereal *dx, 130 integer *incx, doublereal *dy, integer *incy); 131 132 doublereal dcabs1_(doublecomplex *z__); 133 134 /* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx, 135 doublereal *dy, integer *incy); 136 137 doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, 138 integer *incy); 139 140 /* Subroutine */ int dgbmv_(char *trans, integer *m, integer *n, integer *kl, 141 integer *ku, doublereal *alpha, doublereal *a, integer *lda, 142 doublereal *x, integer *incx, doublereal *beta, doublereal *y, 143 integer *incy); 144 145 /* Subroutine */ int dgemm_(char *transa, char *transb, integer *m, integer * 146 n, integer *k, doublereal *alpha, doublereal *a, integer *lda, 147 doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, 148 integer *ldc); 149 150 /* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal * 151 alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 152 doublereal *beta, doublereal *y, integer *incy); 153 154 /* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha, 155 doublereal *x, integer *incx, doublereal *y, integer *incy, 156 doublereal *a, integer *lda); 157 158 doublereal dnrm2_(integer *n, doublereal *x, integer *incx); 159 160 /* Subroutine */ int drot_(integer *n, doublereal *dx, integer *incx, 161 doublereal *dy, integer *incy, doublereal *c__, doublereal *s); 162 163 /* Subroutine */ int drotg_(doublereal *da, doublereal *db, doublereal *c__, 164 doublereal *s); 165 166 /* Subroutine */ int drotm_(integer *n, doublereal *dx, integer *incx, 167 doublereal *dy, integer *incy, doublereal *dparam); 168 169 /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal * 170 dx1, doublereal *dy1, doublereal *dparam); 171 172 /* Subroutine */ int dsbmv_(char *uplo, integer *n, integer *k, doublereal * 173 alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 174 doublereal *beta, doublereal *y, integer *incy); 175 176 /* Subroutine */ int dscal_(integer *n, doublereal *da, doublereal *dx, 177 integer *incx); 178 179 doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer * 180 incy); 181 182 /* Subroutine */ int dspmv_(char *uplo, integer *n, doublereal *alpha, 183 doublereal *ap, doublereal *x, integer *incx, doublereal *beta, 184 doublereal *y, integer *incy); 185 186 /* Subroutine */ int dspr_(char *uplo, integer *n, doublereal *alpha, 187 doublereal *x, integer *incx, doublereal *ap); 188 189 /* Subroutine */ int dspr2_(char *uplo, integer *n, doublereal *alpha, 190 doublereal *x, integer *incx, doublereal *y, integer *incy, 191 doublereal *ap); 192 193 /* Subroutine */ int dswap_(integer *n, doublereal *dx, integer *incx, 194 doublereal *dy, integer *incy); 195 196 /* Subroutine */ int dsymm_(char *side, char *uplo, integer *m, integer *n, 197 doublereal *alpha, doublereal *a, integer *lda, doublereal *b, 198 integer *ldb, doublereal *beta, doublereal *c__, integer *ldc); 199 200 /* Subroutine */ int dsymv_(char *uplo, integer *n, doublereal *alpha, 201 doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal 202 *beta, doublereal *y, integer *incy); 203 204 /* Subroutine */ int dsyr_(char *uplo, integer *n, doublereal *alpha, 205 doublereal *x, integer *incx, doublereal *a, integer *lda); 206 207 /* Subroutine */ int dsyr2_(char *uplo, integer *n, doublereal *alpha, 208 doublereal *x, integer *incx, doublereal *y, integer *incy, 209 doublereal *a, integer *lda); 210 211 /* Subroutine */ int dsyr2k_(char *uplo, char *trans, integer *n, integer *k, 212 doublereal *alpha, doublereal *a, integer *lda, doublereal *b, 213 integer *ldb, doublereal *beta, doublereal *c__, integer *ldc); 214 215 /* Subroutine */ int dsyrk_(char *uplo, char *trans, integer *n, integer *k, 216 doublereal *alpha, doublereal *a, integer *lda, doublereal *beta, 217 doublereal *c__, integer *ldc); 218 219 /* Subroutine */ int dtbmv_(char *uplo, char *trans, char *diag, integer *n, 220 integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx); 221 222 /* Subroutine */ int dtbsv_(char *uplo, char *trans, char *diag, integer *n, 223 integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx); 224 225 /* Subroutine */ int dtpmv_(char *uplo, char *trans, char *diag, integer *n, 226 doublereal *ap, doublereal *x, integer *incx); 227 228 /* Subroutine */ int dtpsv_(char *uplo, char *trans, char *diag, integer *n, 229 doublereal *ap, doublereal *x, integer *incx); 230 231 /* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag, 232 integer *m, integer *n, doublereal *alpha, doublereal *a, integer * 233 lda, doublereal *b, integer *ldb); 234 235 /* Subroutine */ int dtrmv_(char *uplo, char *trans, char *diag, integer *n, 236 doublereal *a, integer *lda, doublereal *x, integer *incx); 237 238 /* Subroutine */ int dtrsm_(char *side, char *uplo, char *transa, char *diag, 239 integer *m, integer *n, doublereal *alpha, doublereal *a, integer * 240 lda, doublereal *b, integer *ldb); 241 242 /* Subroutine */ int dtrsv_(char *uplo, char *trans, char *diag, integer *n, 243 doublereal *a, integer *lda, doublereal *x, integer *incx); 244 245 doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx); 246 247 doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx); 248 249 integer icamax_(integer *n, complex *cx, integer *incx); 250 251 integer idamax_(integer *n, doublereal *dx, integer *incx); 252 253 integer isamax_(integer *n, real *sx, integer *incx); 254 255 integer izamax_(integer *n, doublecomplex *zx, integer *incx); 256 257 logical lsame_(char *ca, char *cb); 258 259 doublereal sasum_(integer *n, real *sx, integer *incx); 260 261 /* Subroutine */ int saxpy_(integer *n, real *sa, real *sx, integer *incx, 262 real *sy, integer *incy); 263 264 doublereal scabs1_(complex *z__); 265 266 doublereal scasum_(integer *n, complex *cx, integer *incx); 267 268 doublereal scnrm2_(integer *n, complex *x, integer *incx); 269 270 /* Subroutine */ int scopy_(integer *n, real *sx, integer *incx, real *sy, 271 integer *incy); 272 273 doublereal sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 274 275 doublereal sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, 276 integer *incy); 277 278 /* Subroutine */ int sgbmv_(char *trans, integer *m, integer *n, integer *kl, 279 integer *ku, real *alpha, real *a, integer *lda, real *x, integer * 280 incx, real *beta, real *y, integer *incy); 281 282 /* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer * 283 n, integer *k, real *alpha, real *a, integer *lda, real *b, integer * 284 ldb, real *beta, real *c__, integer *ldc); 285 286 /* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha, 287 real *a, integer *lda, real *x, integer *incx, real *beta, real *y, 288 integer *incy); 289 290 /* Subroutine */ int sger_(integer *m, integer *n, real *alpha, real *x, 291 integer *incx, real *y, integer *incy, real *a, integer *lda); 292 293 doublereal snrm2_(integer *n, real *x, integer *incx); 294 295 /* Subroutine */ int srot_(integer *n, real *sx, integer *incx, real *sy, 296 integer *incy, real *c__, real *s); 297 298 /* Subroutine */ int srotg_(real *sa, real *sb, real *c__, real *s); 299 300 /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy, 301 integer *incy, real *sparam); 302 303 /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real 304 *sparam); 305 306 /* Subroutine */ int ssbmv_(char *uplo, integer *n, integer *k, real *alpha, 307 real *a, integer *lda, real *x, integer *incx, real *beta, real *y, 308 integer *incy); 309 310 /* Subroutine */ int sscal_(integer *n, real *sa, real *sx, integer *incx); 311 312 /* Subroutine */ int sspmv_(char *uplo, integer *n, real *alpha, real *ap, 313 real *x, integer *incx, real *beta, real *y, integer *incy); 314 315 /* Subroutine */ int sspr_(char *uplo, integer *n, real *alpha, real *x, 316 integer *incx, real *ap); 317 318 /* Subroutine */ int sspr2_(char *uplo, integer *n, real *alpha, real *x, 319 integer *incx, real *y, integer *incy, real *ap); 320 321 /* Subroutine */ int sswap_(integer *n, real *sx, integer *incx, real *sy, 322 integer *incy); 323 324 /* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n, 325 real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, 326 real *c__, integer *ldc); 327 328 /* Subroutine */ int ssymv_(char *uplo, integer *n, real *alpha, real *a, 329 integer *lda, real *x, integer *incx, real *beta, real *y, integer * 330 incy); 331 332 /* Subroutine */ int ssyr_(char *uplo, integer *n, real *alpha, real *x, 333 integer *incx, real *a, integer *lda); 334 335 /* Subroutine */ int ssyr2_(char *uplo, integer *n, real *alpha, real *x, 336 integer *incx, real *y, integer *incy, real *a, integer *lda); 337 338 /* Subroutine */ int ssyr2k_(char *uplo, char *trans, integer *n, integer *k, 339 real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, 340 real *c__, integer *ldc); 341 342 /* Subroutine */ int ssyrk_(char *uplo, char *trans, integer *n, integer *k, 343 real *alpha, real *a, integer *lda, real *beta, real *c__, integer * 344 ldc); 345 346 /* Subroutine */ int stbmv_(char *uplo, char *trans, char *diag, integer *n, 347 integer *k, real *a, integer *lda, real *x, integer *incx); 348 349 /* Subroutine */ int stbsv_(char *uplo, char *trans, char *diag, integer *n, 350 integer *k, real *a, integer *lda, real *x, integer *incx); 351 352 /* Subroutine */ int stpmv_(char *uplo, char *trans, char *diag, integer *n, 353 real *ap, real *x, integer *incx); 354 355 /* Subroutine */ int stpsv_(char *uplo, char *trans, char *diag, integer *n, 356 real *ap, real *x, integer *incx); 357 358 /* Subroutine */ int strmm_(char *side, char *uplo, char *transa, char *diag, 359 integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, 360 integer *ldb); 361 362 /* Subroutine */ int strmv_(char *uplo, char *trans, char *diag, integer *n, 363 real *a, integer *lda, real *x, integer *incx); 364 365 /* Subroutine */ int strsm_(char *side, char *uplo, char *transa, char *diag, 366 integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, 367 integer *ldb); 368 369 /* Subroutine */ int strsv_(char *uplo, char *trans, char *diag, integer *n, 370 real *a, integer *lda, real *x, integer *incx); 371 372 /* Subroutine */ int xerbla_(char *srname, integer *info); 373 374 /* Subroutine */ int xerbla_array__(char *srname_array__, integer * 375 srname_len__, integer *info, ftnlen srname_array_len); 376 377 /* Subroutine */ int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx, 378 integer *incx, doublecomplex *zy, integer *incy); 379 380 /* Subroutine */ int zcopy_(integer *n, doublecomplex *zx, integer *incx, 381 doublecomplex *zy, integer *incy); 382 383 /* Double Complex */ VOID zdotc_(doublecomplex * ret_val, integer *n, 384 doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 385 386 /* Double Complex */ VOID zdotu_(doublecomplex * ret_val, integer *n, 387 doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 388 389 /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx, 390 doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s); 391 392 /* Subroutine */ int zdscal_(integer *n, doublereal *da, doublecomplex *zx, 393 integer *incx); 394 395 /* Subroutine */ int zgbmv_(char *trans, integer *m, integer *n, integer *kl, 396 integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda, 397 doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex * 398 y, integer *incy); 399 400 /* Subroutine */ int zgemm_(char *transa, char *transb, integer *m, integer * 401 n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, 402 doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex * 403 c__, integer *ldc); 404 405 /* Subroutine */ int zgemv_(char *trans, integer *m, integer *n, 406 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 407 x, integer *incx, doublecomplex *beta, doublecomplex *y, integer * 408 incy); 409 410 /* Subroutine */ int zgerc_(integer *m, integer *n, doublecomplex *alpha, 411 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 412 doublecomplex *a, integer *lda); 413 414 /* Subroutine */ int zgeru_(integer *m, integer *n, doublecomplex *alpha, 415 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 416 doublecomplex *a, integer *lda); 417 418 /* Subroutine */ int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex 419 *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer * 420 incx, doublecomplex *beta, doublecomplex *y, integer *incy); 421 422 /* Subroutine */ int zhemm_(char *side, char *uplo, integer *m, integer *n, 423 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 424 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * 425 ldc); 426 427 /* Subroutine */ int zhemv_(char *uplo, integer *n, doublecomplex *alpha, 428 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 429 doublecomplex *beta, doublecomplex *y, integer *incy); 430 431 /* Subroutine */ int zher_(char *uplo, integer *n, doublereal *alpha, 432 doublecomplex *x, integer *incx, doublecomplex *a, integer *lda); 433 434 /* Subroutine */ int zher2_(char *uplo, integer *n, doublecomplex *alpha, 435 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 436 doublecomplex *a, integer *lda); 437 438 /* Subroutine */ int zher2k_(char *uplo, char *trans, integer *n, integer *k, 439 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 440 b, integer *ldb, doublereal *beta, doublecomplex *c__, integer *ldc); 441 442 /* Subroutine */ int zherk_(char *uplo, char *trans, integer *n, integer *k, 443 doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta, 444 doublecomplex *c__, integer *ldc); 445 446 /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, 447 doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex * 448 beta, doublecomplex *y, integer *incy); 449 450 /* Subroutine */ int zhpr_(char *uplo, integer *n, doublereal *alpha, 451 doublecomplex *x, integer *incx, doublecomplex *ap); 452 453 /* Subroutine */ int zhpr2_(char *uplo, integer *n, doublecomplex *alpha, 454 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 455 doublecomplex *ap); 456 457 /* Subroutine */ int zrotg_(doublecomplex *ca, doublecomplex *cb, doublereal * 458 c__, doublecomplex *s); 459 460 /* Subroutine */ int zscal_(integer *n, doublecomplex *za, doublecomplex *zx, 461 integer *incx); 462 463 /* Subroutine */ int zswap_(integer *n, doublecomplex *zx, integer *incx, 464 doublecomplex *zy, integer *incy); 465 466 /* Subroutine */ int zsymm_(char *side, char *uplo, integer *m, integer *n, 467 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 468 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * 469 ldc); 470 471 /* Subroutine */ int zsyr2k_(char *uplo, char *trans, integer *n, integer *k, 472 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 473 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * 474 ldc); 475 476 /* Subroutine */ int zsyrk_(char *uplo, char *trans, integer *n, integer *k, 477 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 478 beta, doublecomplex *c__, integer *ldc); 479 480 /* Subroutine */ int ztbmv_(char *uplo, char *trans, char *diag, integer *n, 481 integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer 482 *incx); 483 484 /* Subroutine */ int ztbsv_(char *uplo, char *trans, char *diag, integer *n, 485 integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer 486 *incx); 487 488 /* Subroutine */ int ztpmv_(char *uplo, char *trans, char *diag, integer *n, 489 doublecomplex *ap, doublecomplex *x, integer *incx); 490 491 /* Subroutine */ int ztpsv_(char *uplo, char *trans, char *diag, integer *n, 492 doublecomplex *ap, doublecomplex *x, integer *incx); 493 494 /* Subroutine */ int ztrmm_(char *side, char *uplo, char *transa, char *diag, 495 integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, 496 integer *lda, doublecomplex *b, integer *ldb); 497 498 /* Subroutine */ int ztrmv_(char *uplo, char *trans, char *diag, integer *n, 499 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); 500 501 /* Subroutine */ int ztrsm_(char *side, char *uplo, char *transa, char *diag, 502 integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, 503 integer *lda, doublecomplex *b, integer *ldb); 504 505 /* Subroutine */ int ztrsv_(char *uplo, char *trans, char *diag, integer *n, 506 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); 507 508 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer * 509 nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt, 510 complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork, 511 integer *info); 512 513 /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 514 integer *kl, integer *ku, complex *ab, integer *ldab, real *d__, 515 real *e, complex *q, integer *ldq, complex *pt, integer *ldpt, 516 complex *c__, integer *ldc, complex *work, real *rwork, integer *info); 517 518 /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku, 519 complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, 520 complex *work, real *rwork, integer *info); 521 522 /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku, 523 complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 524 *colcnd, real *amax, integer *info); 525 526 /* Subroutine */ int cgbequb_(integer *m, integer *n, integer *kl, integer * 527 ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, 528 real *colcnd, real *amax, integer *info); 529 530 /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer * 531 ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer * 532 ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer * 533 ldx, real *ferr, real *berr, complex *work, real *rwork, integer * 534 info); 535 536 /* Subroutine */ int cgbrfsx_(char *trans, char *equed, integer *n, integer * 537 kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex * 538 afb, integer *ldafb, integer *ipiv, real *r__, real *c__, complex *b, 539 integer *ldb, complex *x, integer *ldx, real *rcond, real *berr, 540 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 541 integer *nparams, real *params, complex *work, real *rwork, integer * 542 info); 543 544 /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer * 545 nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer * 546 ldb, integer *info); 547 548 /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl, 549 integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, 550 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 551 complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real 552 *ferr, real *berr, complex *work, real *rwork, integer *info); 553 554 /* Subroutine */ int cgbsvxx_(char *fact, char *trans, integer *n, integer * 555 kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex * 556 afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 557 complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, 558 real *rpvgrw, real *berr, integer *n_err_bnds__, real * 559 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 560 params, complex *work, real *rwork, integer *info); 561 562 /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 563 complex *ab, integer *ldab, integer *ipiv, integer *info); 564 565 /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 566 complex *ab, integer *ldab, integer *ipiv, integer *info); 567 568 /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer * 569 ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex 570 *b, integer *ldb, integer *info); 571 572 /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo, 573 integer *ihi, real *scale, integer *m, complex *v, integer *ldv, 574 integer *info); 575 576 /* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda, 577 integer *ilo, integer *ihi, real *scale, integer *info); 578 579 /* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda, 580 real *d__, real *e, complex *tauq, complex *taup, complex *work, 581 integer *info); 582 583 /* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda, 584 real *d__, real *e, complex *tauq, complex *taup, complex *work, 585 integer *lwork, integer *info); 586 587 /* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda, 588 real *anorm, real *rcond, complex *work, real *rwork, integer *info); 589 590 /* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda, 591 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, 592 integer *info); 593 594 /* Subroutine */ int cgeequb_(integer *m, integer *n, complex *a, integer * 595 lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, 596 integer *info); 597 598 /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n, 599 complex *a, integer *lda, integer *sdim, complex *w, complex *vs, 600 integer *ldvs, complex *work, integer *lwork, real *rwork, logical * 601 bwork, integer *info); 602 603 /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char * 604 sense, integer *n, complex *a, integer *lda, integer *sdim, complex * 605 w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex * 606 work, integer *lwork, real *rwork, logical *bwork, integer *info); 607 608 /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, 609 integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, 610 integer *ldvr, complex *work, integer *lwork, real *rwork, integer * 611 info); 612 613 /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char * 614 sense, integer *n, complex *a, integer *lda, complex *w, complex *vl, 615 integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi, 616 real *scale, real *abnrm, real *rconde, real *rcondv, complex *work, 617 integer *lwork, real *rwork, integer *info); 618 619 /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex * 620 a, integer *lda, complex *b, integer *ldb, complex *alpha, complex * 621 beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, 622 complex *work, integer *lwork, real *rwork, integer *info); 623 624 /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a, 625 integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, 626 complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex * 627 work, integer *lwork, real *rwork, integer *info); 628 629 /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex * 630 a, integer *lda, complex *tau, complex *work, integer *info); 631 632 /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex * 633 a, integer *lda, complex *tau, complex *work, integer *lwork, integer 634 *info); 635 636 /* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda, 637 complex *tau, complex *work, integer *info); 638 639 /* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda, 640 complex *tau, complex *work, integer *lwork, integer *info); 641 642 /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer * 643 nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex * 644 work, integer *lwork, integer *info); 645 646 /* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, complex * 647 a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, 648 integer *rank, complex *work, integer *lwork, real *rwork, integer * 649 iwork, integer *info); 650 651 /* Subroutine */ int cgelss_(integer *m, integer *n, integer *nrhs, complex * 652 a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, 653 integer *rank, complex *work, integer *lwork, real *rwork, integer * 654 info); 655 656 /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex * 657 a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, 658 integer *rank, complex *work, real *rwork, integer *info); 659 660 /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex * 661 a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, 662 integer *rank, complex *work, integer *lwork, real *rwork, integer * 663 info); 664 665 /* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda, 666 complex *tau, complex *work, integer *info); 667 668 /* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda, 669 complex *tau, complex *work, integer *lwork, integer *info); 670 671 /* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda, 672 integer *jpvt, complex *tau, complex *work, integer *lwork, real * 673 rwork, integer *info); 674 675 /* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda, 676 integer *jpvt, complex *tau, complex *work, real *rwork, integer * 677 info); 678 679 /* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, 680 complex *tau, complex *work, integer *info); 681 682 /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda, 683 complex *tau, complex *work, integer *lwork, integer *info); 684 685 /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex * 686 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * 687 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 688 complex *work, real *rwork, integer *info); 689 690 /* Subroutine */ int cgerfsx_(char *trans, char *equed, integer *n, integer * 691 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 692 ipiv, real *r__, real *c__, complex *b, integer *ldb, complex *x, 693 integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real * 694 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 695 params, complex *work, real *rwork, integer *info); 696 697 /* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda, 698 complex *tau, complex *work, integer *info); 699 700 /* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda, 701 complex *tau, complex *work, integer *lwork, integer *info); 702 703 /* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex * 704 rhs, integer *ipiv, integer *jpiv, real *scale); 705 706 /* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, complex *a, 707 integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer 708 *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork, 709 integer *info); 710 711 /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer * 712 lda, integer *ipiv, complex *b, integer *ldb, integer *info); 713 714 /* Subroutine */ int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 715 complex *a, integer *lda, real *s, complex *u, integer *ldu, complex * 716 vt, integer *ldvt, complex *work, integer *lwork, real *rwork, 717 integer *info); 718 719 /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer * 720 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 721 ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, 722 complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 723 complex *work, real *rwork, integer *info); 724 725 /* Subroutine */ int cgesvxx_(char *fact, char *trans, integer *n, integer * 726 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 727 ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, 728 complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, 729 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 730 integer *nparams, real *params, complex *work, real *rwork, integer * 731 info); 732 733 /* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer * 734 ipiv, integer *jpiv, integer *info); 735 736 /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda, 737 integer *ipiv, integer *info); 738 739 /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda, 740 integer *ipiv, integer *info); 741 742 /* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer * 743 ipiv, complex *work, integer *lwork, integer *info); 744 745 /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex * 746 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * 747 info); 748 749 /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo, 750 integer *ihi, real *lscale, real *rscale, integer *m, complex *v, 751 integer *ldv, integer *info); 752 753 /* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda, 754 complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, 755 real *rscale, real *work, integer *info); 756 757 /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 758 selctg, integer *n, complex *a, integer *lda, complex *b, integer * 759 ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl, 760 integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer * 761 lwork, real *rwork, logical *bwork, integer *info); 762 763 /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 764 selctg, char *sense, integer *n, complex *a, integer *lda, complex *b, 765 integer *ldb, integer *sdim, complex *alpha, complex *beta, complex * 766 vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real 767 *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork, 768 integer *liwork, logical *bwork, integer *info); 769 770 /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a, 771 integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, 772 complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex * 773 work, integer *lwork, real *rwork, integer *info); 774 775 /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char * 776 sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb, 777 complex *alpha, complex *beta, complex *vl, integer *ldvl, complex * 778 vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real * 779 rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex 780 *work, integer *lwork, real *rwork, integer *iwork, logical *bwork, 781 integer *info); 782 783 /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a, 784 integer *lda, complex *b, integer *ldb, complex *d__, complex *x, 785 complex *y, complex *work, integer *lwork, integer *info); 786 787 /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer * 788 ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb, 789 complex *q, integer *ldq, complex *z__, integer *ldz, integer *info); 790 791 /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a, 792 integer *lda, complex *b, integer *ldb, complex *c__, complex *d__, 793 complex *x, complex *work, integer *lwork, integer *info); 794 795 /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a, 796 integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, 797 complex *work, integer *lwork, integer *info); 798 799 /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a, 800 integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, 801 complex *work, integer *lwork, integer *info); 802 803 /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 804 integer *n, integer *p, integer *k, integer *l, complex *a, integer * 805 lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u, 806 integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, 807 complex *work, real *rwork, integer *iwork, integer *info); 808 809 /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 810 integer *p, integer *n, complex *a, integer *lda, complex *b, integer 811 *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u, 812 integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, 813 integer *iwork, real *rwork, complex *tau, complex *work, integer * 814 info); 815 816 /* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex * 817 d__, complex *du, complex *du2, integer *ipiv, real *anorm, real * 818 rcond, complex *work, integer *info); 819 820 /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex * 821 dl, complex *d__, complex *du, complex *dlf, complex *df, complex * 822 duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex * 823 x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 824 integer *info); 825 826 /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex * 827 d__, complex *du, complex *b, integer *ldb, integer *info); 828 829 /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer * 830 nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex * 831 df, complex *duf, complex *du2, integer *ipiv, complex *b, integer * 832 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 833 complex *work, real *rwork, integer *info); 834 835 /* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex * 836 du, complex *du2, integer *ipiv, integer *info); 837 838 /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex * 839 dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex * 840 b, integer *ldb, integer *info); 841 842 /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs, 843 complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, 844 complex *b, integer *ldb); 845 846 /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd, 847 complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, 848 complex *work, real *rwork, integer *info); 849 850 /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd, 851 complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, 852 complex *work, integer *lwork, real *rwork, integer *lrwork, integer * 853 iwork, integer *liwork, integer *info); 854 855 /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n, 856 integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq, 857 real *vl, real *vu, integer *il, integer *iu, real *abstol, integer * 858 m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, 859 integer *iwork, integer *ifail, integer *info); 860 861 /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka, 862 integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, 863 complex *x, integer *ldx, complex *work, real *rwork, integer *info); 864 865 /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka, 866 integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, 867 real *w, complex *z__, integer *ldz, complex *work, real *rwork, 868 integer *info); 869 870 /* Subroutine */ int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 871 integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, 872 real *w, complex *z__, integer *ldz, complex *work, integer *lwork, 873 real *rwork, integer *lrwork, integer *iwork, integer *liwork, 874 integer *info); 875 876 /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n, 877 integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, 878 integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer * 879 il, integer *iu, real *abstol, integer *m, real *w, complex *z__, 880 integer *ldz, complex *work, real *rwork, integer *iwork, integer * 881 ifail, integer *info); 882 883 /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd, 884 complex *ab, integer *ldab, real *d__, real *e, complex *q, integer * 885 ldq, complex *work, integer *info); 886 887 /* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda, 888 integer *ipiv, real *anorm, real *rcond, complex *work, integer * 889 info); 890 891 /* Subroutine */ int cheequb_(char *uplo, integer *n, complex *a, integer * 892 lda, real *s, real *scond, real *amax, complex *work, integer *info); 893 894 /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a, 895 integer *lda, real *w, complex *work, integer *lwork, real *rwork, 896 integer *info); 897 898 /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a, 899 integer *lda, real *w, complex *work, integer *lwork, real *rwork, 900 integer *lrwork, integer *iwork, integer *liwork, integer *info); 901 902 /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n, 903 complex *a, integer *lda, real *vl, real *vu, integer *il, integer * 904 iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, 905 integer *isuppz, complex *work, integer *lwork, real *rwork, integer * 906 lrwork, integer *iwork, integer *liwork, integer *info); 907 908 /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n, 909 complex *a, integer *lda, real *vl, real *vu, integer *il, integer * 910 iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, 911 complex *work, integer *lwork, real *rwork, integer *iwork, integer * 912 ifail, integer *info); 913 914 /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex * 915 a, integer *lda, complex *b, integer *ldb, integer *info); 916 917 /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex * 918 a, integer *lda, complex *b, integer *ldb, integer *info); 919 920 /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer * 921 n, complex *a, integer *lda, complex *b, integer *ldb, real *w, 922 complex *work, integer *lwork, real *rwork, integer *info); 923 924 /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer * 925 n, complex *a, integer *lda, complex *b, integer *ldb, real *w, 926 complex *work, integer *lwork, real *rwork, integer *lrwork, integer * 927 iwork, integer *liwork, integer *info); 928 929 /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char * 930 uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, 931 real *vl, real *vu, integer *il, integer *iu, real *abstol, integer * 932 m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, 933 real *rwork, integer *iwork, integer *ifail, integer *info); 934 935 /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex * 936 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * 937 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 938 complex *work, real *rwork, integer *info); 939 940 /* Subroutine */ int cherfsx_(char *uplo, char *equed, integer *n, integer * 941 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 942 ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 943 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 944 real *err_bnds_comp__, integer *nparams, real *params, complex *work, 945 real *rwork, integer *info); 946 947 /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a, 948 integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, 949 integer *lwork, integer *info); 950 951 /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer * 952 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 953 ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, 954 real *ferr, real *berr, complex *work, integer *lwork, real *rwork, 955 integer *info); 956 957 /* Subroutine */ int chesvxx_(char *fact, char *uplo, integer *n, integer * 958 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 959 ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x, 960 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * 961 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * 962 nparams, real *params, complex *work, real *rwork, integer *info); 963 964 /* Subroutine */ int chetd2_(char *uplo, integer *n, complex *a, integer *lda, 965 real *d__, real *e, complex *tau, integer *info); 966 967 /* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda, 968 integer *ipiv, integer *info); 969 970 /* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, 971 real *d__, real *e, complex *tau, complex *work, integer *lwork, 972 integer *info); 973 974 /* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda, 975 integer *ipiv, complex *work, integer *lwork, integer *info); 976 977 /* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda, 978 integer *ipiv, complex *work, integer *info); 979 980 /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex * 981 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * 982 info); 983 984 /* Subroutine */ int chfrk_(char *transr, char *uplo, char *trans, integer *n, 985 integer *k, real *alpha, complex *a, integer *lda, real *beta, 986 complex *c__); 987 988 /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n, 989 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *t, 990 integer *ldt, complex *alpha, complex *beta, complex *q, integer *ldq, 991 complex *z__, integer *ldz, complex *work, integer *lwork, real * 992 rwork, integer *info); 993 994 /* Character */ VOID chla_transtype__(char *ret_val, ftnlen ret_val_len, 995 integer *trans); 996 997 /* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer * 998 ipiv, real *anorm, real *rcond, complex *work, integer *info); 999 1000 /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap, 1001 real *w, complex *z__, integer *ldz, complex *work, real *rwork, 1002 integer *info); 1003 1004 /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap, 1005 real *w, complex *z__, integer *ldz, complex *work, integer *lwork, 1006 real *rwork, integer *lrwork, integer *iwork, integer *liwork, 1007 integer *info); 1008 1009 /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n, 1010 complex *ap, real *vl, real *vu, integer *il, integer *iu, real * 1011 abstol, integer *m, real *w, complex *z__, integer *ldz, complex * 1012 work, real *rwork, integer *iwork, integer *ifail, integer *info); 1013 1014 /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex * 1015 ap, complex *bp, integer *info); 1016 1017 /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer * 1018 n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, 1019 complex *work, real *rwork, integer *info); 1020 1021 /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer * 1022 n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, 1023 complex *work, integer *lwork, real *rwork, integer *lrwork, integer * 1024 iwork, integer *liwork, integer *info); 1025 1026 /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char * 1027 uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu, 1028 integer *il, integer *iu, real *abstol, integer *m, real *w, complex * 1029 z__, integer *ldz, complex *work, real *rwork, integer *iwork, 1030 integer *ifail, integer *info); 1031 1032 /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex * 1033 ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, 1034 integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 1035 integer *info); 1036 1037 /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex * 1038 ap, integer *ipiv, complex *b, integer *ldb, integer *info); 1039 1040 /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer * 1041 nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer * 1042 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 1043 complex *work, real *rwork, integer *info); 1044 1045 /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__, 1046 real *e, complex *tau, integer *info); 1047 1048 /* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer * 1049 ipiv, integer *info); 1050 1051 /* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer * 1052 ipiv, complex *work, integer *info); 1053 1054 /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex * 1055 ap, integer *ipiv, complex *b, integer *ldb, integer *info); 1056 1057 /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical * 1058 select, integer *n, complex *h__, integer *ldh, complex *w, complex * 1059 vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer * 1060 m, complex *work, real *rwork, integer *ifaill, integer *ifailr, 1061 integer *info); 1062 1063 /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo, 1064 integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__, 1065 integer *ldz, complex *work, integer *lwork, integer *info); 1066 1067 /* Subroutine */ int cla_gbamv__(integer *trans, integer *m, integer *n, 1068 integer *kl, integer *ku, real *alpha, complex *ab, integer *ldab, 1069 complex *x, integer *incx, real *beta, real *y, integer *incy); 1070 1071 doublereal cla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku, 1072 complex *ab, integer *ldab, complex *afb, integer *ldafb, integer * 1073 ipiv, real *c__, logical *capply, integer *info, complex *work, real * 1074 rwork, ftnlen trans_len); 1075 1076 doublereal cla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku, 1077 complex *ab, integer *ldab, complex *afb, integer *ldafb, integer * 1078 ipiv, complex *x, integer *info, complex *work, real *rwork, ftnlen 1079 trans_len); 1080 1081 /* Subroutine */ int cla_gbrfsx_extended__(integer *prec_type__, integer * 1082 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 1083 complex *ab, integer *ldab, complex *afb, integer *ldafb, integer * 1084 ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex * 1085 y, integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__, 1086 real *errs_c__, complex *res, real *ayb, complex *dy, complex * 1087 y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__, 1088 logical *ignore_cwise__, integer *info); 1089 1090 doublereal cla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * 1091 ncols, complex *ab, integer *ldab, complex *afb, integer *ldafb); 1092 1093 /* Subroutine */ int cla_geamv__(integer *trans, integer *m, integer *n, real 1094 *alpha, complex *a, integer *lda, complex *x, integer *incx, real * 1095 beta, real *y, integer *incy); 1096 1097 doublereal cla_gercond_c__(char *trans, integer *n, complex *a, integer *lda, 1098 complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply, 1099 integer *info, complex *work, real *rwork, ftnlen trans_len); 1100 1101 doublereal cla_gercond_x__(char *trans, integer *n, complex *a, integer *lda, 1102 complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info, 1103 complex *work, real *rwork, ftnlen trans_len); 1104 1105 /* Subroutine */ int cla_gerfsx_extended__(integer *prec_type__, integer * 1106 trans_type__, integer *n, integer *nrhs, complex *a, integer *lda, 1107 complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, 1108 complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__, 1109 integer *n_norms__, real *errs_n__, real *errs_c__, complex *res, 1110 real *ayb, complex *dy, complex *y_tail__, real *rcond, integer * 1111 ithresh, real *rthresh, real *dz_ub__, logical *ignore_cwise__, 1112 integer *info); 1113 1114 /* Subroutine */ int cla_heamv__(integer *uplo, integer *n, real *alpha, 1115 complex *a, integer *lda, complex *x, integer *incx, real *beta, real 1116 *y, integer *incy); 1117 1118 doublereal cla_hercond_c__(char *uplo, integer *n, complex *a, integer *lda, 1119 complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply, 1120 integer *info, complex *work, real *rwork, ftnlen uplo_len); 1121 1122 doublereal cla_hercond_x__(char *uplo, integer *n, complex *a, integer *lda, 1123 complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info, 1124 complex *work, real *rwork, ftnlen uplo_len); 1125 1126 /* Subroutine */ int cla_herfsx_extended__(integer *prec_type__, char *uplo, 1127 integer *n, integer *nrhs, complex *a, integer *lda, complex *af, 1128 integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, 1129 integer *ldb, complex *y, integer *ldy, real *berr_out__, integer * 1130 n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb, 1131 complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real * 1132 rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info, 1133 ftnlen uplo_len); 1134 1135 doublereal cla_herpvgrw__(char *uplo, integer *n, integer *info, complex *a, 1136 integer *lda, complex *af, integer *ldaf, integer *ipiv, real *work, 1137 ftnlen uplo_len); 1138 1139 /* Subroutine */ int cla_lin_berr__(integer *n, integer *nz, integer *nrhs, 1140 complex *res, real *ayb, real *berr); 1141 1142 doublereal cla_porcond_c__(char *uplo, integer *n, complex *a, integer *lda, 1143 complex *af, integer *ldaf, real *c__, logical *capply, integer *info, 1144 complex *work, real *rwork, ftnlen uplo_len); 1145 1146 doublereal cla_porcond_x__(char *uplo, integer *n, complex *a, integer *lda, 1147 complex *af, integer *ldaf, complex *x, integer *info, complex *work, 1148 real *rwork, ftnlen uplo_len); 1149 1150 /* Subroutine */ int cla_porfsx_extended__(integer *prec_type__, char *uplo, 1151 integer *n, integer *nrhs, complex *a, integer *lda, complex *af, 1152 integer *ldaf, logical *colequ, real *c__, complex *b, integer *ldb, 1153 complex *y, integer *ldy, real *berr_out__, integer *n_norms__, real * 1154 errs_n__, real *errs_c__, complex *res, real *ayb, complex *dy, 1155 complex *y_tail__, real *rcond, integer *ithresh, real *rthresh, real 1156 *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen uplo_len); 1157 1158 doublereal cla_porpvgrw__(char *uplo, integer *ncols, complex *a, integer * 1159 lda, complex *af, integer *ldaf, real *work, ftnlen uplo_len); 1160 1161 doublereal cla_rpvgrw__(integer *n, integer *ncols, complex *a, integer *lda, 1162 complex *af, integer *ldaf); 1163 1164 /* Subroutine */ int cla_syamv__(integer *uplo, integer *n, real *alpha, 1165 complex *a, integer *lda, complex *x, integer *incx, real *beta, real 1166 *y, integer *incy); 1167 1168 doublereal cla_syrcond_c__(char *uplo, integer *n, complex *a, integer *lda, 1169 complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply, 1170 integer *info, complex *work, real *rwork, ftnlen uplo_len); 1171 1172 doublereal cla_syrcond_x__(char *uplo, integer *n, complex *a, integer *lda, 1173 complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info, 1174 complex *work, real *rwork, ftnlen uplo_len); 1175 1176 /* Subroutine */ int cla_syrfsx_extended__(integer *prec_type__, char *uplo, 1177 integer *n, integer *nrhs, complex *a, integer *lda, complex *af, 1178 integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, 1179 integer *ldb, complex *y, integer *ldy, real *berr_out__, integer * 1180 n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb, 1181 complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real * 1182 rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info, 1183 ftnlen uplo_len); 1184 1185 doublereal cla_syrpvgrw__(char *uplo, integer *n, integer *info, complex *a, 1186 integer *lda, complex *af, integer *ldaf, integer *ipiv, real *work, 1187 ftnlen uplo_len); 1188 1189 /* Subroutine */ int cla_wwaddw__(integer *n, complex *x, complex *y, complex 1190 *w); 1191 1192 /* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, complex *a, 1193 integer *lda, real *d__, real *e, complex *tauq, complex *taup, 1194 complex *x, integer *ldx, complex *y, integer *ldy); 1195 1196 /* Subroutine */ int clacgv_(integer *n, complex *x, integer *incx); 1197 1198 /* Subroutine */ int clacn2_(integer *n, complex *v, complex *x, real *est, 1199 integer *kase, integer *isave); 1200 1201 /* Subroutine */ int clacon_(integer *n, complex *v, complex *x, real *est, 1202 integer *kase); 1203 1204 /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a, 1205 integer *lda, complex *b, integer *ldb); 1206 1207 /* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, complex *a, 1208 integer *lda, complex *b, integer *ldb); 1209 1210 /* Subroutine */ int clacrm_(integer *m, integer *n, complex *a, integer *lda, 1211 real *b, integer *ldb, complex *c__, integer *ldc, real *rwork); 1212 1213 /* Subroutine */ int clacrt_(integer *n, complex *cx, integer *incx, complex * 1214 cy, integer *incy, complex *c__, complex *s); 1215 1216 /* Complex */ VOID cladiv_(complex * ret_val, complex *x, complex *y); 1217 1218 /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e, 1219 complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork, 1220 integer *iwork, integer *info); 1221 1222 /* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz, 1223 integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex * 1224 q, integer *ldq, real *rho, integer *indxq, real *qstore, integer * 1225 qptr, integer *prmptr, integer *perm, integer *givptr, integer * 1226 givcol, real *givnum, complex *work, real *rwork, integer *iwork, 1227 integer *info); 1228 1229 /* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, complex * 1230 q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__, 1231 real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp, 1232 integer *indx, integer *indxq, integer *perm, integer *givptr, 1233 integer *givcol, real *givnum, integer *info); 1234 1235 /* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n, 1236 complex *h__, integer *ldh, complex *w, complex *v, complex *b, 1237 integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info); 1238 1239 /* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex * 1240 rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1); 1241 1242 /* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1, 1243 real *rt2, real *cs1, complex *sn1); 1244 1245 /* Subroutine */ int clag2z_(integer *m, integer *n, complex *sa, integer * 1246 ldsa, doublecomplex *a, integer *lda, integer *info); 1247 1248 /* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3, 1249 real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv, 1250 complex *snv, real *csq, complex *snq); 1251 1252 /* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real * 1253 alpha, complex *dl, complex *d__, complex *du, complex *x, integer * 1254 ldx, real *beta, complex *b, integer *ldb); 1255 1256 /* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb, 1257 complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, 1258 integer *info); 1259 1260 /* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n, 1261 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, 1262 integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer * 1263 info); 1264 1265 /* Subroutine */ int clahr2_(integer *n, integer *k, integer *nb, complex *a, 1266 integer *lda, complex *tau, complex *t, integer *ldt, complex *y, 1267 integer *ldy); 1268 1269 /* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a, 1270 integer *lda, complex *tau, complex *t, integer *ldt, complex *y, 1271 integer *ldy); 1272 1273 /* Subroutine */ int claic1_(integer *job, integer *j, complex *x, real *sest, 1274 complex *w, complex *gamma, real *sestpr, complex *s, complex *c__); 1275 1276 /* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr, 1277 integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx, 1278 integer *ldbx, integer *perm, integer *givptr, integer *givcol, 1279 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * 1280 difl, real *difr, real *z__, integer *k, real *c__, real *s, real * 1281 rwork, integer *info); 1282 1283 /* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n, 1284 integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, 1285 real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, 1286 real *z__, real *poles, integer *givptr, integer *givcol, integer * 1287 ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork, 1288 integer *iwork, integer *info); 1289 1290 /* Subroutine */ int clalsd_(char *uplo, integer *smlsiz, integer *n, integer 1291 *nrhs, real *d__, real *e, complex *b, integer *ldb, real *rcond, 1292 integer *rank, complex *work, real *rwork, integer *iwork, integer * 1293 info); 1294 1295 doublereal clangb_(char *norm, integer *n, integer *kl, integer *ku, complex * 1296 ab, integer *ldab, real *work); 1297 1298 doublereal clange_(char *norm, integer *m, integer *n, complex *a, integer * 1299 lda, real *work); 1300 1301 doublereal clangt_(char *norm, integer *n, complex *dl, complex *d__, complex 1302 *du); 1303 1304 doublereal clanhb_(char *norm, char *uplo, integer *n, integer *k, complex * 1305 ab, integer *ldab, real *work); 1306 1307 doublereal clanhe_(char *norm, char *uplo, integer *n, complex *a, integer * 1308 lda, real *work); 1309 1310 doublereal clanhf_(char *norm, char *transr, char *uplo, integer *n, complex * 1311 a, real *work); 1312 1313 doublereal clanhp_(char *norm, char *uplo, integer *n, complex *ap, real * 1314 work); 1315 1316 doublereal clanhs_(char *norm, integer *n, complex *a, integer *lda, real * 1317 work); 1318 1319 doublereal clanht_(char *norm, integer *n, real *d__, complex *e); 1320 1321 doublereal clansb_(char *norm, char *uplo, integer *n, integer *k, complex * 1322 ab, integer *ldab, real *work); 1323 1324 doublereal clansp_(char *norm, char *uplo, integer *n, complex *ap, real * 1325 work); 1326 1327 doublereal clansy_(char *norm, char *uplo, integer *n, complex *a, integer * 1328 lda, real *work); 1329 1330 doublereal clantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 1331 complex *ab, integer *ldab, real *work); 1332 1333 doublereal clantp_(char *norm, char *uplo, char *diag, integer *n, complex * 1334 ap, real *work); 1335 1336 doublereal clantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 1337 complex *a, integer *lda, real *work); 1338 1339 /* Subroutine */ int clapll_(integer *n, complex *x, integer *incx, complex * 1340 y, integer *incy, real *ssmin); 1341 1342 /* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, complex 1343 *x, integer *ldx, integer *k); 1344 1345 /* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku, 1346 complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 1347 *colcnd, real *amax, char *equed); 1348 1349 /* Subroutine */ int claqge_(integer *m, integer *n, complex *a, integer *lda, 1350 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char * 1351 equed); 1352 1353 /* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, complex *ab, 1354 integer *ldab, real *s, real *scond, real *amax, char *equed); 1355 1356 /* Subroutine */ int claqhe_(char *uplo, integer *n, complex *a, integer *lda, 1357 real *s, real *scond, real *amax, char *equed); 1358 1359 /* Subroutine */ int claqhp_(char *uplo, integer *n, complex *ap, real *s, 1360 real *scond, real *amax, char *equed); 1361 1362 /* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, complex 1363 *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, 1364 complex *work); 1365 1366 /* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer 1367 *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex * 1368 tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf); 1369 1370 /* Subroutine */ int claqr0_(logical *wantt, logical *wantz, integer *n, 1371 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, 1372 integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex * 1373 work, integer *lwork, integer *info); 1374 1375 /* Subroutine */ int claqr1_(integer *n, complex *h__, integer *ldh, complex * 1376 s1, complex *s2, complex *v); 1377 1378 /* Subroutine */ int claqr2_(logical *wantt, logical *wantz, integer *n, 1379 integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh, 1380 integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer * 1381 ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh, 1382 complex *t, integer *ldt, integer *nv, complex *wv, integer *ldwv, 1383 complex *work, integer *lwork); 1384 1385 /* Subroutine */ int claqr3_(logical *wantt, logical *wantz, integer *n, 1386 integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh, 1387 integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer * 1388 ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh, 1389 complex *t, integer *ldt, integer *nv, complex *wv, integer *ldwv, 1390 complex *work, integer *lwork); 1391 1392 /* Subroutine */ int claqr4_(logical *wantt, logical *wantz, integer *n, 1393 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, 1394 integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex * 1395 work, integer *lwork, integer *info); 1396 1397 /* Subroutine */ int claqr5_(logical *wantt, logical *wantz, integer *kacc22, 1398 integer *n, integer *ktop, integer *kbot, integer *nshfts, complex *s, 1399 complex *h__, integer *ldh, integer *iloz, integer *ihiz, complex * 1400 z__, integer *ldz, complex *v, integer *ldv, complex *u, integer *ldu, 1401 integer *nv, complex *wv, integer *ldwv, integer *nh, complex *wh, 1402 integer *ldwh); 1403 1404 /* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, complex *ab, 1405 integer *ldab, real *s, real *scond, real *amax, char *equed); 1406 1407 /* Subroutine */ int claqsp_(char *uplo, integer *n, complex *ap, real *s, 1408 real *scond, real *amax, char *equed); 1409 1410 /* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda, 1411 real *s, real *scond, real *amax, char *equed); 1412 1413 /* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real * 1414 lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real * 1415 gaptol, complex *z__, logical *wantnc, integer *negcnt, real *ztz, 1416 real *mingma, integer *r__, integer *isuppz, real *nrminv, real * 1417 resid, real *rqcorr, real *work); 1418 1419 /* Subroutine */ int clar2v_(integer *n, complex *x, complex *y, complex *z__, 1420 integer *incx, real *c__, complex *s, integer *incc); 1421 1422 /* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda, 1423 complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork); 1424 1425 /* Subroutine */ int clarf_(char *side, integer *m, integer *n, complex *v, 1426 integer *incv, complex *tau, complex *c__, integer *ldc, complex * 1427 work); 1428 1429 /* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char * 1430 storev, integer *m, integer *n, integer *k, complex *v, integer *ldv, 1431 complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, 1432 integer *ldwork); 1433 1434 /* Subroutine */ int clarfg_(integer *n, complex *alpha, complex *x, integer * 1435 incx, complex *tau); 1436 1437 /* Subroutine */ int clarfp_(integer *n, complex *alpha, complex *x, integer * 1438 incx, complex *tau); 1439 1440 /* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer * 1441 k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt); 1442 1443 /* Subroutine */ int clarfx_(char *side, integer *m, integer *n, complex *v, 1444 complex *tau, complex *c__, integer *ldc, complex *work); 1445 1446 /* Subroutine */ int clargv_(integer *n, complex *x, integer *incx, complex * 1447 y, integer *incy, real *c__, integer *incc); 1448 1449 /* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n, 1450 complex *x); 1451 1452 /* Subroutine */ int clarrv_(integer *n, real *vl, real *vu, real *d__, real * 1453 l, real *pivmin, integer *isplit, integer *m, integer *dol, integer * 1454 dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr, 1455 real *wgap, integer *iblock, integer *indexw, real *gers, complex * 1456 z__, integer *ldz, integer *isuppz, real *work, integer *iwork, 1457 integer *info); 1458 1459 /* Subroutine */ int clarscl2_(integer *m, integer *n, real *d__, complex *x, 1460 integer *ldx); 1461 1462 /* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn, 1463 complex *r__); 1464 1465 /* Subroutine */ int clartv_(integer *n, complex *x, integer *incx, complex * 1466 y, integer *incy, real *c__, complex *s, integer *incc); 1467 1468 /* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l, 1469 complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, 1470 complex *work); 1471 1472 /* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char * 1473 storev, integer *m, integer *n, integer *k, integer *l, complex *v, 1474 integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc, 1475 complex *work, integer *ldwork); 1476 1477 /* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer * 1478 k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt); 1479 1480 /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real * 1481 cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda, 1482 integer *info); 1483 1484 /* Subroutine */ int clascl2_(integer *m, integer *n, real *d__, complex *x, 1485 integer *ldx); 1486 1487 /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex * 1488 alpha, complex *beta, complex *a, integer *lda); 1489 1490 /* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m, 1491 integer *n, real *c__, real *s, complex *a, integer *lda); 1492 1493 /* Subroutine */ int classq_(integer *n, complex *x, integer *incx, real * 1494 scale, real *sumsq); 1495 1496 /* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer * 1497 k1, integer *k2, integer *ipiv, integer *incx); 1498 1499 /* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb, 1500 complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, 1501 integer *info); 1502 1503 /* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char * 1504 normin, integer *n, integer *kd, complex *ab, integer *ldab, complex * 1505 x, real *scale, real *cnorm, integer *info); 1506 1507 /* Subroutine */ int clatdf_(integer *ijob, integer *n, complex *z__, integer 1508 *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer 1509 *jpiv); 1510 1511 /* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char * 1512 normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm, 1513 integer *info); 1514 1515 /* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, complex *a, 1516 integer *lda, real *e, complex *tau, complex *w, integer *ldw); 1517 1518 /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char * 1519 normin, integer *n, complex *a, integer *lda, complex *x, real *scale, 1520 real *cnorm, integer *info); 1521 1522 /* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, complex *a, 1523 integer *lda, complex *tau, complex *work); 1524 1525 /* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v, 1526 integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc, 1527 complex *work); 1528 1529 /* Subroutine */ int clauu2_(char *uplo, integer *n, complex *a, integer *lda, 1530 integer *info); 1531 1532 /* Subroutine */ int clauum_(char *uplo, integer *n, complex *a, integer *lda, 1533 integer *info); 1534 1535 /* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab, 1536 integer *ldab, real *anorm, real *rcond, complex *work, real *rwork, 1537 integer *info); 1538 1539 /* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab, 1540 integer *ldab, real *s, real *scond, real *amax, integer *info); 1541 1542 /* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer * 1543 nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, 1544 complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real * 1545 berr, complex *work, real *rwork, integer *info); 1546 1547 /* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab, 1548 integer *ldab, integer *info); 1549 1550 /* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer * 1551 nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer * 1552 info); 1553 1554 /* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 1555 integer *nrhs, complex *ab, integer *ldab, complex *afb, integer * 1556 ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x, 1557 integer *ldx, real *rcond, real *ferr, real *berr, complex *work, 1558 real *rwork, integer *info); 1559 1560 /* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab, 1561 integer *ldab, integer *info); 1562 1563 /* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab, 1564 integer *ldab, integer *info); 1565 1566 /* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer * 1567 nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer * 1568 info); 1569 1570 /* Subroutine */ int cpftrf_(char *transr, char *uplo, integer *n, complex *a, 1571 integer *info); 1572 1573 /* Subroutine */ int cpftri_(char *transr, char *uplo, integer *n, complex *a, 1574 integer *info); 1575 1576 /* Subroutine */ int cpftrs_(char *transr, char *uplo, integer *n, integer * 1577 nrhs, complex *a, complex *b, integer *ldb, integer *info); 1578 1579 /* Subroutine */ int cpocon_(char *uplo, integer *n, complex *a, integer *lda, 1580 real *anorm, real *rcond, complex *work, real *rwork, integer *info); 1581 1582 /* Subroutine */ int cpoequ_(integer *n, complex *a, integer *lda, real *s, 1583 real *scond, real *amax, integer *info); 1584 1585 /* Subroutine */ int cpoequb_(integer *n, complex *a, integer *lda, real *s, 1586 real *scond, real *amax, integer *info); 1587 1588 /* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, complex * 1589 a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb, 1590 complex *x, integer *ldx, real *ferr, real *berr, complex *work, 1591 real *rwork, integer *info); 1592 1593 /* Subroutine */ int cporfsx_(char *uplo, char *equed, integer *n, integer * 1594 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, real *s, 1595 complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real 1596 *berr, integer *n_err_bnds__, real *err_bnds_norm__, real * 1597 err_bnds_comp__, integer *nparams, real *params, complex *work, real * 1598 rwork, integer *info); 1599 1600 /* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, complex *a, 1601 integer *lda, complex *b, integer *ldb, integer *info); 1602 1603 /* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer * 1604 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char * 1605 equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 1606 real *rcond, real *ferr, real *berr, complex *work, real *rwork, 1607 integer *info); 1608 1609 /* Subroutine */ int cposvxx_(char *fact, char *uplo, integer *n, integer * 1610 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char * 1611 equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 1612 real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real * 1613 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 1614 params, complex *work, real *rwork, integer *info); 1615 1616 /* Subroutine */ int cpotf2_(char *uplo, integer *n, complex *a, integer *lda, 1617 integer *info); 1618 1619 /* Subroutine */ int cpotrf_(char *uplo, integer *n, complex *a, integer *lda, 1620 integer *info); 1621 1622 /* Subroutine */ int cpotri_(char *uplo, integer *n, complex *a, integer *lda, 1623 integer *info); 1624 1625 /* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, complex * 1626 a, integer *lda, complex *b, integer *ldb, integer *info); 1627 1628 /* Subroutine */ int cppcon_(char *uplo, integer *n, complex *ap, real *anorm, 1629 real *rcond, complex *work, real *rwork, integer *info); 1630 1631 /* Subroutine */ int cppequ_(char *uplo, integer *n, complex *ap, real *s, 1632 real *scond, real *amax, integer *info); 1633 1634 /* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, complex * 1635 ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx, 1636 real *ferr, real *berr, complex *work, real *rwork, integer *info); 1637 1638 /* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, complex * 1639 ap, complex *b, integer *ldb, integer *info); 1640 1641 /* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer * 1642 nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b, 1643 integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real 1644 *berr, complex *work, real *rwork, integer *info); 1645 1646 /* Subroutine */ int cpptrf_(char *uplo, integer *n, complex *ap, integer * 1647 info); 1648 1649 /* Subroutine */ int cpptri_(char *uplo, integer *n, complex *ap, integer * 1650 info); 1651 1652 /* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, complex * 1653 ap, complex *b, integer *ldb, integer *info); 1654 1655 /* Subroutine */ int cpstf2_(char *uplo, integer *n, complex *a, integer *lda, 1656 integer *piv, integer *rank, real *tol, real *work, integer *info); 1657 1658 /* Subroutine */ int cpstrf_(char *uplo, integer *n, complex *a, integer *lda, 1659 integer *piv, integer *rank, real *tol, real *work, integer *info); 1660 1661 /* Subroutine */ int cptcon_(integer *n, real *d__, complex *e, real *anorm, 1662 real *rcond, real *rwork, integer *info); 1663 1664 /* Subroutine */ int cpteqr_(char *compz, integer *n, real *d__, real *e, 1665 complex *z__, integer *ldz, real *work, integer *info); 1666 1667 /* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__, 1668 complex *e, real *df, complex *ef, complex *b, integer *ldb, complex 1669 *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 1670 integer *info); 1671 1672 /* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, complex *e, 1673 complex *b, integer *ldb, integer *info); 1674 1675 /* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__, 1676 complex *e, real *df, complex *ef, complex *b, integer *ldb, complex 1677 *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, 1678 real *rwork, integer *info); 1679 1680 /* Subroutine */ int cpttrf_(integer *n, real *d__, complex *e, integer *info); 1681 1682 /* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, 1683 complex *e, complex *b, integer *ldb, integer *info); 1684 1685 /* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real * 1686 d__, complex *e, complex *b, integer *ldb); 1687 1688 /* Subroutine */ int crot_(integer *n, complex *cx, integer *incx, complex * 1689 cy, integer *incy, real *c__, complex *s); 1690 1691 /* Subroutine */ int cspcon_(char *uplo, integer *n, complex *ap, integer * 1692 ipiv, real *anorm, real *rcond, complex *work, integer *info); 1693 1694 /* Subroutine */ int cspmv_(char *uplo, integer *n, complex *alpha, complex * 1695 ap, complex *x, integer *incx, complex *beta, complex *y, integer * 1696 incy); 1697 1698 /* Subroutine */ int cspr_(char *uplo, integer *n, complex *alpha, complex *x, 1699 integer *incx, complex *ap); 1700 1701 /* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, complex * 1702 ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, 1703 integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 1704 integer *info); 1705 1706 /* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, complex * 1707 ap, integer *ipiv, complex *b, integer *ldb, integer *info); 1708 1709 /* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer * 1710 nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer * 1711 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 1712 complex *work, real *rwork, integer *info); 1713 1714 /* Subroutine */ int csptrf_(char *uplo, integer *n, complex *ap, integer * 1715 ipiv, integer *info); 1716 1717 /* Subroutine */ int csptri_(char *uplo, integer *n, complex *ap, integer * 1718 ipiv, complex *work, integer *info); 1719 1720 /* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, complex * 1721 ap, integer *ipiv, complex *b, integer *ldb, integer *info); 1722 1723 /* Subroutine */ int csrscl_(integer *n, real *sa, complex *sx, integer *incx); 1724 1725 /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e, 1726 complex *z__, integer *ldz, complex *work, integer *lwork, real * 1727 rwork, integer *lrwork, integer *iwork, integer *liwork, integer * 1728 info); 1729 1730 /* Subroutine */ int cstegr_(char *jobz, char *range, integer *n, real *d__, 1731 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 1732 integer *m, real *w, complex *z__, integer *ldz, integer *isuppz, 1733 real *work, integer *lwork, integer *iwork, integer *liwork, integer * 1734 info); 1735 1736 /* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real 1737 *w, integer *iblock, integer *isplit, complex *z__, integer *ldz, 1738 real *work, integer *iwork, integer *ifail, integer *info); 1739 1740 /* Subroutine */ int cstemr_(char *jobz, char *range, integer *n, real *d__, 1741 real *e, real *vl, real *vu, integer *il, integer *iu, integer *m, 1742 real *w, complex *z__, integer *ldz, integer *nzc, integer *isuppz, 1743 logical *tryrac, real *work, integer *lwork, integer *iwork, integer * 1744 liwork, integer *info); 1745 1746 /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e, 1747 complex *z__, integer *ldz, real *work, integer *info); 1748 1749 /* Subroutine */ int csycon_(char *uplo, integer *n, complex *a, integer *lda, 1750 integer *ipiv, real *anorm, real *rcond, complex *work, integer * 1751 info); 1752 1753 /* Subroutine */ int csyequb_(char *uplo, integer *n, complex *a, integer * 1754 lda, real *s, real *scond, real *amax, complex *work, integer *info); 1755 1756 /* Subroutine */ int csymv_(char *uplo, integer *n, complex *alpha, complex * 1757 a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, 1758 integer *incy); 1759 1760 /* Subroutine */ int csyr_(char *uplo, integer *n, complex *alpha, complex *x, 1761 integer *incx, complex *a, integer *lda); 1762 1763 /* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, complex * 1764 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex * 1765 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 1766 complex *work, real *rwork, integer *info); 1767 1768 /* Subroutine */ int csyrfsx_(char *uplo, char *equed, integer *n, integer * 1769 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 1770 ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 1771 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 1772 real *err_bnds_comp__, integer *nparams, real *params, complex *work, 1773 real *rwork, integer *info); 1774 1775 /* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, complex *a, 1776 integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, 1777 integer *lwork, integer *info); 1778 1779 /* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer * 1780 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 1781 ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, 1782 real *ferr, real *berr, complex *work, integer *lwork, real *rwork, 1783 integer *info); 1784 1785 /* Subroutine */ int csysvxx_(char *fact, char *uplo, integer *n, integer * 1786 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer * 1787 ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x, 1788 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * 1789 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * 1790 nparams, real *params, complex *work, real *rwork, integer *info); 1791 1792 /* Subroutine */ int csytf2_(char *uplo, integer *n, complex *a, integer *lda, 1793 integer *ipiv, integer *info); 1794 1795 /* Subroutine */ int csytrf_(char *uplo, integer *n, complex *a, integer *lda, 1796 integer *ipiv, complex *work, integer *lwork, integer *info); 1797 1798 /* Subroutine */ int csytri_(char *uplo, integer *n, complex *a, integer *lda, 1799 integer *ipiv, complex *work, integer *info); 1800 1801 /* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, complex * 1802 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer * 1803 info); 1804 1805 /* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n, 1806 integer *kd, complex *ab, integer *ldab, real *rcond, complex *work, 1807 real *rwork, integer *info); 1808 1809 /* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n, 1810 integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, 1811 integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 1812 complex *work, real *rwork, integer *info); 1813 1814 /* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n, 1815 integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, 1816 integer *ldb, integer *info); 1817 1818 /* Subroutine */ int ctfsm_(char *transr, char *side, char *uplo, char *trans, 1819 char *diag, integer *m, integer *n, complex *alpha, complex *a, 1820 complex *b, integer *ldb); 1821 1822 /* Subroutine */ int ctftri_(char *transr, char *uplo, char *diag, integer *n, 1823 complex *a, integer *info); 1824 1825 /* Subroutine */ int ctfttp_(char *transr, char *uplo, integer *n, complex * 1826 arf, complex *ap, integer *info); 1827 1828 /* Subroutine */ int ctfttr_(char *transr, char *uplo, integer *n, complex * 1829 arf, complex *a, integer *lda, integer *info); 1830 1831 /* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select, 1832 integer *n, complex *s, integer *lds, complex *p, integer *ldp, 1833 complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, 1834 integer *m, complex *work, real *rwork, integer *info); 1835 1836 /* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n, 1837 complex *a, integer *lda, complex *b, integer *ldb, complex *q, 1838 integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info); 1839 1840 /* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n, 1841 complex *a, integer *lda, complex *b, integer *ldb, complex *q, 1842 integer *ldq, complex *z__, integer *ldz, integer *ifst, integer * 1843 ilst, integer *info); 1844 1845 /* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz, 1846 logical *select, integer *n, complex *a, integer *lda, complex *b, 1847 integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq, 1848 complex *z__, integer *ldz, integer *m, real *pl, real *pr, real * 1849 dif, complex *work, integer *lwork, integer *iwork, integer *liwork, 1850 integer *info); 1851 1852 /* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m, 1853 integer *p, integer *n, integer *k, integer *l, complex *a, integer * 1854 lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha, 1855 real *beta, complex *u, integer *ldu, complex *v, integer *ldv, 1856 complex *q, integer *ldq, complex *work, integer *ncycle, integer * 1857 info); 1858 1859 /* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select, 1860 integer *n, complex *a, integer *lda, complex *b, integer *ldb, 1861 complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real 1862 *dif, integer *mm, integer *m, complex *work, integer *lwork, integer 1863 *iwork, integer *info); 1864 1865 /* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer * 1866 n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, 1867 integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, 1868 complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal, 1869 integer *info); 1870 1871 /* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer * 1872 n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, 1873 integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, 1874 complex *f, integer *ldf, real *scale, real *dif, complex *work, 1875 integer *lwork, integer *iwork, integer *info); 1876 1877 /* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n, 1878 complex *ap, real *rcond, complex *work, real *rwork, integer *info); 1879 1880 /* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n, 1881 integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x, 1882 integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 1883 integer *info); 1884 1885 /* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, complex *ap, 1886 integer *info); 1887 1888 /* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n, 1889 integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info); 1890 1891 /* Subroutine */ int ctpttf_(char *transr, char *uplo, integer *n, complex * 1892 ap, complex *arf, integer *info); 1893 1894 /* Subroutine */ int ctpttr_(char *uplo, integer *n, complex *ap, complex *a, 1895 integer *lda, integer *info); 1896 1897 /* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n, 1898 complex *a, integer *lda, real *rcond, complex *work, real *rwork, 1899 integer *info); 1900 1901 /* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select, 1902 integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, 1903 complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, 1904 real *rwork, integer *info); 1905 1906 /* Subroutine */ int ctrexc_(char *compq, integer *n, complex *t, integer * 1907 ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer * 1908 info); 1909 1910 /* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n, 1911 integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, 1912 complex *x, integer *ldx, real *ferr, real *berr, complex *work, real 1913 *rwork, integer *info); 1914 1915 /* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer 1916 *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w, 1917 integer *m, real *s, real *sep, complex *work, integer *lwork, 1918 integer *info); 1919 1920 /* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select, 1921 integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, 1922 complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer * 1923 m, complex *work, integer *ldwork, real *rwork, integer *info); 1924 1925 /* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer 1926 *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, 1927 complex *c__, integer *ldc, real *scale, integer *info); 1928 1929 /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a, 1930 integer *lda, integer *info); 1931 1932 /* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, complex *a, 1933 integer *lda, integer *info); 1934 1935 /* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n, 1936 integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, 1937 integer *info); 1938 1939 /* Subroutine */ int ctrttf_(char *transr, char *uplo, integer *n, complex *a, 1940 integer *lda, complex *arf, integer *info); 1941 1942 /* Subroutine */ int ctrttp_(char *uplo, integer *n, complex *a, integer *lda, 1943 complex *ap, integer *info); 1944 1945 /* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda, 1946 complex *tau, integer *info); 1947 1948 /* Subroutine */ int ctzrzf_(integer *m, integer *n, complex *a, integer *lda, 1949 complex *tau, complex *work, integer *lwork, integer *info); 1950 1951 /* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, complex *a, 1952 integer *lda, complex *tau, complex *work, integer *info); 1953 1954 /* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, complex *a, 1955 integer *lda, complex *tau, complex *work, integer *info); 1956 1957 /* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k, 1958 complex *a, integer *lda, complex *tau, complex *work, integer *lwork, 1959 integer *info); 1960 1961 /* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, complex * 1962 a, integer *lda, complex *tau, complex *work, integer *lwork, integer 1963 *info); 1964 1965 /* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, complex *a, 1966 integer *lda, complex *tau, complex *work, integer *info); 1967 1968 /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a, 1969 integer *lda, complex *tau, complex *work, integer *lwork, integer * 1970 info); 1971 1972 /* Subroutine */ int cungql_(integer *m, integer *n, integer *k, complex *a, 1973 integer *lda, complex *tau, complex *work, integer *lwork, integer * 1974 info); 1975 1976 /* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, complex *a, 1977 integer *lda, complex *tau, complex *work, integer *lwork, integer * 1978 info); 1979 1980 /* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, complex *a, 1981 integer *lda, complex *tau, complex *work, integer *info); 1982 1983 /* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, complex *a, 1984 integer *lda, complex *tau, complex *work, integer *lwork, integer * 1985 info); 1986 1987 /* Subroutine */ int cungtr_(char *uplo, integer *n, complex *a, integer *lda, 1988 complex *tau, complex *work, integer *lwork, integer *info); 1989 1990 /* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n, 1991 integer *k, complex *a, integer *lda, complex *tau, complex *c__, 1992 integer *ldc, complex *work, integer *info); 1993 1994 /* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n, 1995 integer *k, complex *a, integer *lda, complex *tau, complex *c__, 1996 integer *ldc, complex *work, integer *info); 1997 1998 /* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m, 1999 integer *n, integer *k, complex *a, integer *lda, complex *tau, 2000 complex *c__, integer *ldc, complex *work, integer *lwork, integer * 2001 info); 2002 2003 /* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n, 2004 integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, 2005 complex *c__, integer *ldc, complex *work, integer *lwork, integer * 2006 info); 2007 2008 /* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n, 2009 integer *k, complex *a, integer *lda, complex *tau, complex *c__, 2010 integer *ldc, complex *work, integer *info); 2011 2012 /* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n, 2013 integer *k, complex *a, integer *lda, complex *tau, complex *c__, 2014 integer *ldc, complex *work, integer *lwork, integer *info); 2015 2016 /* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n, 2017 integer *k, complex *a, integer *lda, complex *tau, complex *c__, 2018 integer *ldc, complex *work, integer *lwork, integer *info); 2019 2020 /* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n, 2021 integer *k, complex *a, integer *lda, complex *tau, complex *c__, 2022 integer *ldc, complex *work, integer *lwork, integer *info); 2023 2024 /* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n, 2025 integer *k, complex *a, integer *lda, complex *tau, complex *c__, 2026 integer *ldc, complex *work, integer *info); 2027 2028 /* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n, 2029 integer *k, integer *l, complex *a, integer *lda, complex *tau, 2030 complex *c__, integer *ldc, complex *work, integer *info); 2031 2032 /* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n, 2033 integer *k, complex *a, integer *lda, complex *tau, complex *c__, 2034 integer *ldc, complex *work, integer *lwork, integer *info); 2035 2036 /* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n, 2037 integer *k, integer *l, complex *a, integer *lda, complex *tau, 2038 complex *c__, integer *ldc, complex *work, integer *lwork, integer * 2039 info); 2040 2041 /* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m, 2042 integer *n, complex *a, integer *lda, complex *tau, complex *c__, 2043 integer *ldc, complex *work, integer *lwork, integer *info); 2044 2045 /* Subroutine */ int cupgtr_(char *uplo, integer *n, complex *ap, complex * 2046 tau, complex *q, integer *ldq, complex *work, integer *info); 2047 2048 /* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m, 2049 integer *n, complex *ap, complex *tau, complex *c__, integer *ldc, 2050 complex *work, integer *info); 2051 2052 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal * 2053 d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, 2054 integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer * 2055 iwork, integer *info); 2056 2057 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer * 2058 nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, 2059 integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer * 2060 ldc, doublereal *work, integer *info); 2061 2062 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal * 2063 d__, doublereal *sep, integer *info); 2064 2065 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 2066 integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal * 2067 d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt, 2068 integer *ldpt, doublereal *c__, integer *ldc, doublereal *work, 2069 integer *info); 2070 2071 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku, 2072 doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm, 2073 doublereal *rcond, doublereal *work, integer *iwork, integer *info); 2074 2075 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku, 2076 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 2077 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * 2078 info); 2079 2080 /* Subroutine */ int dgbequb_(integer *m, integer *n, integer *kl, integer * 2081 ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 2082 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * 2083 info); 2084 2085 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer * 2086 ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 2087 integer *ldafb, integer *ipiv, doublereal *b, integer *ldb, 2088 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 2089 doublereal *work, integer *iwork, integer *info); 2090 2091 /* Subroutine */ int dgbrfsx_(char *trans, char *equed, integer *n, integer * 2092 kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 2093 doublereal *afb, integer *ldafb, integer *ipiv, doublereal *r__, 2094 doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer * 2095 ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__, 2096 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 2097 nparams, doublereal *params, doublereal *work, integer *iwork, 2098 integer *info); 2099 2100 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer * 2101 nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, 2102 integer *ldb, integer *info); 2103 2104 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl, 2105 integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 2106 doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 2107 doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 2108 doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 2109 doublereal *berr, doublereal *work, integer *iwork, integer *info); 2110 2111 /* Subroutine */ int dgbsvxx_(char *fact, char *trans, integer *n, integer * 2112 kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 2113 doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 2114 doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 2115 doublereal *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 2116 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 2117 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 2118 doublereal *work, integer *iwork, integer *info); 2119 2120 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 2121 doublereal *ab, integer *ldab, integer *ipiv, integer *info); 2122 2123 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 2124 doublereal *ab, integer *ldab, integer *ipiv, integer *info); 2125 2126 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer * 2127 ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, 2128 doublereal *b, integer *ldb, integer *info); 2129 2130 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo, 2131 integer *ihi, doublereal *scale, integer *m, doublereal *v, integer * 2132 ldv, integer *info); 2133 2134 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer * 2135 lda, integer *ilo, integer *ihi, doublereal *scale, integer *info); 2136 2137 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer * 2138 lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal * 2139 taup, doublereal *work, integer *info); 2140 2141 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer * 2142 lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal * 2143 taup, doublereal *work, integer *lwork, integer *info); 2144 2145 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer * 2146 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer * 2147 iwork, integer *info); 2148 2149 /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer * 2150 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 2151 *colcnd, doublereal *amax, integer *info); 2152 2153 /* Subroutine */ int dgeequb_(integer *m, integer *n, doublereal *a, integer * 2154 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 2155 *colcnd, doublereal *amax, integer *info); 2156 2157 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n, 2158 doublereal *a, integer *lda, integer *sdim, doublereal *wr, 2159 doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work, 2160 integer *lwork, logical *bwork, integer *info); 2161 2162 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char * 2163 sense, integer *n, doublereal *a, integer *lda, integer *sdim, 2164 doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, 2165 doublereal *rconde, doublereal *rcondv, doublereal *work, integer * 2166 lwork, integer *iwork, integer *liwork, logical *bwork, integer *info); 2167 2168 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal * 2169 a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, 2170 integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, 2171 integer *lwork, integer *info); 2172 2173 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char * 2174 sense, integer *n, doublereal *a, integer *lda, doublereal *wr, 2175 doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 2176 integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, 2177 doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal 2178 *work, integer *lwork, integer *iwork, integer *info); 2179 2180 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n, 2181 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 2182 alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, 2183 integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, 2184 integer *lwork, integer *info); 2185 2186 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal * 2187 a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 2188 doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 2189 doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 2190 integer *info); 2191 2192 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi, 2193 doublereal *a, integer *lda, doublereal *tau, doublereal *work, 2194 integer *info); 2195 2196 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi, 2197 doublereal *a, integer *lda, doublereal *tau, doublereal *work, 2198 integer *lwork, integer *info); 2199 2200 /* Subroutine */ int dgejsv_(char *joba, char *jobu, char *jobv, char *jobr, 2201 char *jobt, char *jobp, integer *m, integer *n, doublereal *a, 2202 integer *lda, doublereal *sva, doublereal *u, integer *ldu, 2203 doublereal *v, integer *ldv, doublereal *work, integer *lwork, 2204 integer *iwork, integer *info); 2205 2206 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer * 2207 lda, doublereal *tau, doublereal *work, integer *info); 2208 2209 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer * 2210 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 2211 2212 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer * 2213 nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, 2214 doublereal *work, integer *lwork, integer *info); 2215 2216 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs, 2217 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 2218 s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, 2219 integer *iwork, integer *info); 2220 2221 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs, 2222 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 2223 s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, 2224 integer *info); 2225 2226 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs, 2227 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 2228 jpvt, doublereal *rcond, integer *rank, doublereal *work, integer * 2229 info); 2230 2231 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs, 2232 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 2233 jpvt, doublereal *rcond, integer *rank, doublereal *work, integer * 2234 lwork, integer *info); 2235 2236 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer * 2237 lda, doublereal *tau, doublereal *work, integer *info); 2238 2239 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer * 2240 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 2241 2242 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer * 2243 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork, 2244 integer *info); 2245 2246 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer * 2247 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info); 2248 2249 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer * 2250 lda, doublereal *tau, doublereal *work, integer *info); 2251 2252 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer * 2253 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 2254 2255 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs, 2256 doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer * 2257 ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 2258 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 2259 integer *info); 2260 2261 /* Subroutine */ int dgerfsx_(char *trans, char *equed, integer *n, integer * 2262 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 2263 integer *ipiv, doublereal *r__, doublereal *c__, doublereal *b, 2264 integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, 2265 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 2266 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 2267 doublereal *work, integer *iwork, integer *info); 2268 2269 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer * 2270 lda, doublereal *tau, doublereal *work, integer *info); 2271 2272 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer * 2273 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 2274 2275 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda, 2276 doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale); 2277 2278 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal * 2279 a, integer *lda, doublereal *s, doublereal *u, integer *ldu, 2280 doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 2281 integer *iwork, integer *info); 2282 2283 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer 2284 *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info); 2285 2286 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 2287 doublereal *a, integer *lda, doublereal *s, doublereal *u, integer * 2288 ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 2289 integer *info); 2290 2291 /* Subroutine */ int dgesvj_(char *joba, char *jobu, char *jobv, integer *m, 2292 integer *n, doublereal *a, integer *lda, doublereal *sva, integer *mv, 2293 doublereal *v, integer *ldv, doublereal *work, integer *lwork, 2294 integer *info); 2295 2296 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer * 2297 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 2298 integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 2299 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 2300 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * 2301 iwork, integer *info); 2302 2303 /* Subroutine */ int dgesvxx_(char *fact, char *trans, integer *n, integer * 2304 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 2305 integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 2306 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 2307 rcond, doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 2308 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 2309 nparams, doublereal *params, doublereal *work, integer *iwork, 2310 integer *info); 2311 2312 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer 2313 *ipiv, integer *jpiv, integer *info); 2314 2315 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer * 2316 lda, integer *ipiv, integer *info); 2317 2318 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer * 2319 lda, integer *ipiv, integer *info); 2320 2321 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer 2322 *ipiv, doublereal *work, integer *lwork, integer *info); 2323 2324 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs, 2325 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * 2326 ldb, integer *info); 2327 2328 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo, 2329 integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 2330 doublereal *v, integer *ldv, integer *info); 2331 2332 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer * 2333 lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi, 2334 doublereal *lscale, doublereal *rscale, doublereal *work, integer * 2335 info); 2336 2337 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 2338 selctg, integer *n, doublereal *a, integer *lda, doublereal *b, 2339 integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, 2340 doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, 2341 integer *ldvsr, doublereal *work, integer *lwork, logical *bwork, 2342 integer *info); 2343 2344 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 2345 selctg, char *sense, integer *n, doublereal *a, integer *lda, 2346 doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, 2347 doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, 2348 doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal * 2349 rcondv, doublereal *work, integer *lwork, integer *iwork, integer * 2350 liwork, logical *bwork, integer *info); 2351 2352 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal * 2353 a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 2354 doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 2355 doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 2356 integer *info); 2357 2358 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char * 2359 sense, integer *n, doublereal *a, integer *lda, doublereal *b, 2360 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * 2361 beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 2362 integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 2363 doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal * 2364 rcondv, doublereal *work, integer *lwork, integer *iwork, logical * 2365 bwork, integer *info); 2366 2367 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal * 2368 a, integer *lda, doublereal *b, integer *ldb, doublereal *d__, 2369 doublereal *x, doublereal *y, doublereal *work, integer *lwork, 2370 integer *info); 2371 2372 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer * 2373 ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, 2374 integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer * 2375 ldz, integer *info); 2376 2377 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal * 2378 a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, 2379 doublereal *d__, doublereal *x, doublereal *work, integer *lwork, 2380 integer *info); 2381 2382 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal * 2383 a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 2384 doublereal *taub, doublereal *work, integer *lwork, integer *info); 2385 2386 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal * 2387 a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 2388 doublereal *taub, doublereal *work, integer *lwork, integer *info); 2389 2390 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 2391 integer *n, integer *p, integer *k, integer *l, doublereal *a, 2392 integer *lda, doublereal *b, integer *ldb, doublereal *alpha, 2393 doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer 2394 *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork, 2395 integer *info); 2396 2397 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 2398 integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, 2399 integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer 2400 *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, 2401 doublereal *q, integer *ldq, integer *iwork, doublereal *tau, 2402 doublereal *work, integer *info); 2403 2404 /* Subroutine */ int dgsvj0_(char *jobv, integer *m, integer *n, doublereal * 2405 a, integer *lda, doublereal *d__, doublereal *sva, integer *mv, 2406 doublereal *v, integer *ldv, doublereal *eps, doublereal *sfmin, 2407 doublereal *tol, integer *nsweep, doublereal *work, integer *lwork, 2408 integer *info); 2409 2410 /* Subroutine */ int dgsvj1_(char *jobv, integer *m, integer *n, integer *n1, 2411 doublereal *a, integer *lda, doublereal *d__, doublereal *sva, 2412 integer *mv, doublereal *v, integer *ldv, doublereal *eps, doublereal 2413 *sfmin, doublereal *tol, integer *nsweep, doublereal *work, integer * 2414 lwork, integer *info); 2415 2416 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl, 2417 doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, 2418 doublereal *anorm, doublereal *rcond, doublereal *work, integer * 2419 iwork, integer *info); 2420 2421 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs, 2422 doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf, 2423 doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 2424 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 2425 ferr, doublereal *berr, doublereal *work, integer *iwork, integer * 2426 info); 2427 2428 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl, 2429 doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer 2430 *info); 2431 2432 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer * 2433 nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal * 2434 dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 2435 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 2436 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * 2437 iwork, integer *info); 2438 2439 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__, 2440 doublereal *du, doublereal *du2, integer *ipiv, integer *info); 2441 2442 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs, 2443 doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 2444 integer *ipiv, doublereal *b, integer *ldb, integer *info); 2445 2446 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs, 2447 doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 2448 integer *ipiv, doublereal *b, integer *ldb); 2449 2450 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n, 2451 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 2452 *t, integer *ldt, doublereal *alphar, doublereal *alphai, doublereal * 2453 beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 2454 doublereal *work, integer *lwork, integer *info); 2455 2456 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical * 2457 select, integer *n, doublereal *h__, integer *ldh, doublereal *wr, 2458 doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 2459 integer *ldvr, integer *mm, integer *m, doublereal *work, integer * 2460 ifaill, integer *ifailr, integer *info); 2461 2462 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo, 2463 integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, 2464 doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, 2465 integer *lwork, integer *info); 2466 2467 logical disnan_(doublereal *din); 2468 2469 /* Subroutine */ int dla_gbamv__(integer *trans, integer *m, integer *n, 2470 integer *kl, integer *ku, doublereal *alpha, doublereal *ab, integer * 2471 ldab, doublereal *x, integer *incx, doublereal *beta, doublereal *y, 2472 integer *incy); 2473 2474 doublereal dla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku, 2475 doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 2476 integer *ipiv, integer *cmode, doublereal *c__, integer *info, 2477 doublereal *work, integer *iwork, ftnlen trans_len); 2478 2479 /* Subroutine */ int dla_gbrfsx_extended__(integer *prec_type__, integer * 2480 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 2481 doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 2482 integer *ipiv, logical *colequ, doublereal *c__, doublereal *b, 2483 integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__, 2484 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 2485 doublereal *res, doublereal *ayb, doublereal *dy, doublereal * 2486 y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 2487 doublereal *dz_ub__, logical *ignore_cwise__, integer *info); 2488 2489 doublereal dla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * 2490 ncols, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb); 2491 2492 /* Subroutine */ int dla_geamv__(integer *trans, integer *m, integer *n, 2493 doublereal *alpha, doublereal *a, integer *lda, doublereal *x, 2494 integer *incx, doublereal *beta, doublereal *y, integer *incy); 2495 2496 doublereal dla_gercond__(char *trans, integer *n, doublereal *a, integer *lda, 2497 doublereal *af, integer *ldaf, integer *ipiv, integer *cmode, 2498 doublereal *c__, integer *info, doublereal *work, integer *iwork, 2499 ftnlen trans_len); 2500 2501 /* Subroutine */ int dla_gerfsx_extended__(integer *prec_type__, integer * 2502 trans_type__, integer *n, integer *nrhs, doublereal *a, integer *lda, 2503 doublereal *af, integer *ldaf, integer *ipiv, logical *colequ, 2504 doublereal *c__, doublereal *b, integer *ldb, doublereal *y, integer * 2505 ldy, doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__, 2506 doublereal *errs_c__, doublereal *res, doublereal *ayb, doublereal * 2507 dy, doublereal *y_tail__, doublereal *rcond, integer *ithresh, 2508 doublereal *rthresh, doublereal *dz_ub__, logical *ignore_cwise__, 2509 integer *info); 2510 2511 /* Subroutine */ int dla_lin_berr__(integer *n, integer *nz, integer *nrhs, 2512 doublereal *res, doublereal *ayb, doublereal *berr); 2513 2514 doublereal dla_porcond__(char *uplo, integer *n, doublereal *a, integer *lda, 2515 doublereal *af, integer *ldaf, integer *cmode, doublereal *c__, 2516 integer *info, doublereal *work, integer *iwork, ftnlen uplo_len); 2517 2518 /* Subroutine */ int dla_porfsx_extended__(integer *prec_type__, char *uplo, 2519 integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal * 2520 af, integer *ldaf, logical *colequ, doublereal *c__, doublereal *b, 2521 integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__, 2522 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 2523 doublereal *res, doublereal *ayb, doublereal *dy, doublereal * 2524 y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 2525 doublereal *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen 2526 uplo_len); 2527 2528 doublereal dla_porpvgrw__(char *uplo, integer *ncols, doublereal *a, integer * 2529 lda, doublereal *af, integer *ldaf, doublereal *work, ftnlen uplo_len); 2530 2531 doublereal dla_rpvgrw__(integer *n, integer *ncols, doublereal *a, integer * 2532 lda, doublereal *af, integer *ldaf); 2533 2534 /* Subroutine */ int dla_syamv__(integer *uplo, integer *n, doublereal *alpha, 2535 doublereal *a, integer *lda, doublereal *x, integer *incx, 2536 doublereal *beta, doublereal *y, integer *incy); 2537 2538 doublereal dla_syrcond__(char *uplo, integer *n, doublereal *a, integer *lda, 2539 doublereal *af, integer *ldaf, integer *ipiv, integer *cmode, 2540 doublereal *c__, integer *info, doublereal *work, integer *iwork, 2541 ftnlen uplo_len); 2542 2543 /* Subroutine */ int dla_syrfsx_extended__(integer *prec_type__, char *uplo, 2544 integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal * 2545 af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__, 2546 doublereal *b, integer *ldb, doublereal *y, integer *ldy, doublereal * 2547 berr_out__, integer *n_norms__, doublereal *errs_n__, doublereal * 2548 errs_c__, doublereal *res, doublereal *ayb, doublereal *dy, 2549 doublereal *y_tail__, doublereal *rcond, integer *ithresh, doublereal 2550 *rthresh, doublereal *dz_ub__, logical *ignore_cwise__, integer *info, 2551 ftnlen uplo_len); 2552 2553 doublereal dla_syrpvgrw__(char *uplo, integer *n, integer *info, doublereal * 2554 a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, 2555 doublereal *work, ftnlen uplo_len); 2556 2557 /* Subroutine */ int dla_wwaddw__(integer *n, doublereal *x, doublereal *y, 2558 doublereal *w); 2559 2560 /* Subroutine */ int dlabad_(doublereal *small, doublereal *large); 2561 2562 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal * 2563 a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, 2564 doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer 2565 *ldy); 2566 2567 /* Subroutine */ int dlacn2_(integer *n, doublereal *v, doublereal *x, 2568 integer *isgn, doublereal *est, integer *kase, integer *isave); 2569 2570 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x, 2571 integer *isgn, doublereal *est, integer *kase); 2572 2573 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal * 2574 a, integer *lda, doublereal *b, integer *ldb); 2575 2576 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__, 2577 doublereal *d__, doublereal *p, doublereal *q); 2578 2579 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__, 2580 doublereal *rt1, doublereal *rt2); 2581 2582 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n, 2583 integer *mmax, integer *minp, integer *nbmin, doublereal *abstol, 2584 doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal * 2585 e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__, 2586 integer *mout, integer *nab, doublereal *work, integer *iwork, 2587 integer *info); 2588 2589 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n, 2590 doublereal *d__, doublereal *e, doublereal *q, integer *ldq, 2591 doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, 2592 integer *info); 2593 2594 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q, 2595 integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, 2596 doublereal *work, integer *iwork, integer *info); 2597 2598 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal * 2599 d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, 2600 doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2, 2601 integer *indx, integer *indxc, integer *indxp, integer *coltyp, 2602 integer *info); 2603 2604 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal * 2605 d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda, 2606 doublereal *q2, integer *indx, integer *ctot, doublereal *w, 2607 doublereal *s, integer *info); 2608 2609 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__, 2610 doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam, 2611 integer *info); 2612 2613 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, 2614 doublereal *delta, doublereal *rho, doublereal *dlam); 2615 2616 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal * 2617 rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal * 2618 tau, integer *info); 2619 2620 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz, 2621 integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 2622 doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer 2623 *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer * 2624 perm, integer *givptr, integer *givcol, doublereal *givnum, 2625 doublereal *work, integer *iwork, integer *info); 2626 2627 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer 2628 *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, 2629 doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda, 2630 doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer 2631 *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer 2632 *indx, integer *info); 2633 2634 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop, 2635 integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal * 2636 rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds, 2637 integer *info); 2638 2639 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl, 2640 integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 2641 integer *givcol, doublereal *givnum, doublereal *q, integer *qptr, 2642 doublereal *z__, doublereal *ztemp, integer *info); 2643 2644 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n, 2645 doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, 2646 doublereal *vr, doublereal *vi, doublereal *b, integer *ldb, 2647 doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal * 2648 bignum, integer *info); 2649 2650 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, 2651 doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1); 2652 2653 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t, 2654 integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, 2655 integer *n2, doublereal *work, integer *info); 2656 2657 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b, 2658 integer *ldb, doublereal *safmin, doublereal *scale1, doublereal * 2659 scale2, doublereal *wr1, doublereal *wr2, doublereal *wi); 2660 2661 /* Subroutine */ int dlag2s_(integer *m, integer *n, doublereal *a, integer * 2662 lda, real *sa, integer *ldsa, integer *info); 2663 2664 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2, 2665 doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3, 2666 doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv, 2667 doublereal *csq, doublereal *snq); 2668 2669 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda, 2670 doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, 2671 integer *in, integer *info); 2672 2673 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs, 2674 doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, 2675 doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer 2676 *ldb); 2677 2678 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a, 2679 doublereal *b, doublereal *c__, doublereal *d__, integer *in, 2680 doublereal *y, doublereal *tol, integer *info); 2681 2682 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b, 2683 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * 2684 beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal * 2685 snr); 2686 2687 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n, 2688 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 2689 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 2690 integer *ldz, integer *info); 2691 2692 /* Subroutine */ int dlahr2_(integer *n, integer *k, integer *nb, doublereal * 2693 a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 2694 doublereal *y, integer *ldy); 2695 2696 /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal * 2697 a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 2698 doublereal *y, integer *ldy); 2699 2700 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x, 2701 doublereal *sest, doublereal *w, doublereal *gamma, doublereal * 2702 sestpr, doublereal *s, doublereal *c__); 2703 2704 logical dlaisnan_(doublereal *din1, doublereal *din2); 2705 2706 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw, 2707 doublereal *smin, doublereal *ca, doublereal *a, integer *lda, 2708 doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, 2709 doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, 2710 doublereal *scale, doublereal *xnorm, integer *info); 2711 2712 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr, 2713 integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal 2714 *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, 2715 integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal * 2716 poles, doublereal *difl, doublereal *difr, doublereal *z__, integer * 2717 k, doublereal *c__, doublereal *s, doublereal *work, integer *info); 2718 2719 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n, 2720 integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer * 2721 ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, 2722 doublereal *difl, doublereal *difr, doublereal *z__, doublereal * 2723 poles, integer *givptr, integer *givcol, integer *ldgcol, integer * 2724 perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal * 2725 work, integer *iwork, integer *info); 2726 2727 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer 2728 *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, 2729 doublereal *rcond, integer *rank, doublereal *work, integer *iwork, 2730 integer *info); 2731 2732 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer 2733 *dtrd1, integer *dtrd2, integer *index); 2734 2735 integer dlaneg_(integer *n, doublereal *d__, doublereal *lld, doublereal * 2736 sigma, doublereal *pivmin, integer *r__); 2737 2738 doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku, 2739 doublereal *ab, integer *ldab, doublereal *work); 2740 2741 doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer 2742 *lda, doublereal *work); 2743 2744 doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__, 2745 doublereal *du); 2746 2747 doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda, 2748 doublereal *work); 2749 2750 doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal 2751 *ab, integer *ldab, doublereal *work); 2752 2753 doublereal dlansf_(char *norm, char *transr, char *uplo, integer *n, 2754 doublereal *a, doublereal *work); 2755 2756 doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap, 2757 doublereal *work); 2758 2759 doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e); 2760 2761 doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer 2762 *lda, doublereal *work); 2763 2764 doublereal dlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 2765 doublereal *ab, integer *ldab, doublereal *work); 2766 2767 doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal 2768 *ap, doublereal *work); 2769 2770 doublereal dlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 2771 doublereal *a, integer *lda, doublereal *work); 2772 2773 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, 2774 doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r, 2775 doublereal *rt2i, doublereal *cs, doublereal *sn); 2776 2777 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx, 2778 doublereal *y, integer *incy, doublereal *ssmin); 2779 2780 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n, 2781 doublereal *x, integer *ldx, integer *k); 2782 2783 doublereal dlapy2_(doublereal *x, doublereal *y); 2784 2785 doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__); 2786 2787 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku, 2788 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 2789 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed); 2790 2791 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer * 2792 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 2793 *colcnd, doublereal *amax, char *equed); 2794 2795 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset, 2796 doublereal *a, integer *lda, integer *jpvt, doublereal *tau, 2797 doublereal *vn1, doublereal *vn2, doublereal *work); 2798 2799 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer 2800 *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt, 2801 doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv, 2802 doublereal *f, integer *ldf); 2803 2804 /* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, integer *n, 2805 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 2806 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 2807 integer *ldz, doublereal *work, integer *lwork, integer *info); 2808 2809 /* Subroutine */ int dlaqr1_(integer *n, doublereal *h__, integer *ldh, 2810 doublereal *sr1, doublereal *si1, doublereal *sr2, doublereal *si2, 2811 doublereal *v); 2812 2813 /* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, integer *n, 2814 integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer * 2815 ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, 2816 integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal * 2817 v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer * 2818 nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork); 2819 2820 /* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, integer *n, 2821 integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer * 2822 ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, 2823 integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal * 2824 v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer * 2825 nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork); 2826 2827 /* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, integer *n, 2828 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 2829 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 2830 integer *ldz, doublereal *work, integer *lwork, integer *info); 2831 2832 /* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, integer *kacc22, 2833 integer *n, integer *ktop, integer *kbot, integer *nshfts, doublereal 2834 *sr, doublereal *si, doublereal *h__, integer *ldh, integer *iloz, 2835 integer *ihiz, doublereal *z__, integer *ldz, doublereal *v, integer * 2836 ldv, doublereal *u, integer *ldu, integer *nv, doublereal *wv, 2837 integer *ldwv, integer *nh, doublereal *wh, integer *ldwh); 2838 2839 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal * 2840 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, 2841 char *equed); 2842 2843 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap, 2844 doublereal *s, doublereal *scond, doublereal *amax, char *equed); 2845 2846 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer * 2847 lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed); 2848 2849 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n, 2850 doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal 2851 *scale, doublereal *x, doublereal *work, integer *info); 2852 2853 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal 2854 *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal * 2855 lld, doublereal *pivmin, doublereal *gaptol, doublereal *z__, logical 2856 *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, 2857 integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid, 2858 doublereal *rqcorr, doublereal *work); 2859 2860 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y, 2861 doublereal *z__, integer *incx, doublereal *c__, doublereal *s, 2862 integer *incc); 2863 2864 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v, 2865 integer *incv, doublereal *tau, doublereal *c__, integer *ldc, 2866 doublereal *work); 2867 2868 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char * 2869 storev, integer *m, integer *n, integer *k, doublereal *v, integer * 2870 ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, 2871 doublereal *work, integer *ldwork); 2872 2873 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x, 2874 integer *incx, doublereal *tau); 2875 2876 /* Subroutine */ int dlarfp_(integer *n, doublereal *alpha, doublereal *x, 2877 integer *incx, doublereal *tau); 2878 2879 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer * 2880 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 2881 integer *ldt); 2882 2883 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal * 2884 v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work); 2885 2886 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx, 2887 doublereal *y, integer *incy, doublereal *c__, integer *incc); 2888 2889 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n, 2890 doublereal *x); 2891 2892 /* Subroutine */ int dlarra_(integer *n, doublereal *d__, doublereal *e, 2893 doublereal *e2, doublereal *spltol, doublereal *tnrm, integer *nsplit, 2894 integer *isplit, integer *info); 2895 2896 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *lld, 2897 integer *ifirst, integer *ilast, doublereal *rtol1, doublereal *rtol2, 2898 integer *offset, doublereal *w, doublereal *wgap, doublereal *werr, 2899 doublereal *work, integer *iwork, doublereal *pivmin, doublereal * 2900 spdiam, integer *twist, integer *info); 2901 2902 /* Subroutine */ int dlarrc_(char *jobt, integer *n, doublereal *vl, 2903 doublereal *vu, doublereal *d__, doublereal *e, doublereal *pivmin, 2904 integer *eigcnt, integer *lcnt, integer *rcnt, integer *info); 2905 2906 /* Subroutine */ int dlarrd_(char *range, char *order, integer *n, doublereal 2907 *vl, doublereal *vu, integer *il, integer *iu, doublereal *gers, 2908 doublereal *reltol, doublereal *d__, doublereal *e, doublereal *e2, 2909 doublereal *pivmin, integer *nsplit, integer *isplit, integer *m, 2910 doublereal *w, doublereal *werr, doublereal *wl, doublereal *wu, 2911 integer *iblock, integer *indexw, doublereal *work, integer *iwork, 2912 integer *info); 2913 2914 /* Subroutine */ int dlarre_(char *range, integer *n, doublereal *vl, 2915 doublereal *vu, integer *il, integer *iu, doublereal *d__, doublereal 2916 *e, doublereal *e2, doublereal *rtol1, doublereal *rtol2, doublereal * 2917 spltol, integer *nsplit, integer *isplit, integer *m, doublereal *w, 2918 doublereal *werr, doublereal *wgap, integer *iblock, integer *indexw, 2919 doublereal *gers, doublereal *pivmin, doublereal *work, integer * 2920 iwork, integer *info); 2921 2922 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l, 2923 doublereal *ld, integer *clstrt, integer *clend, doublereal *w, 2924 doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal * 2925 clgapl, doublereal *clgapr, doublereal *pivmin, doublereal *sigma, 2926 doublereal *dplus, doublereal *lplus, doublereal *work, integer *info); 2927 2928 /* Subroutine */ int dlarrj_(integer *n, doublereal *d__, doublereal *e2, 2929 integer *ifirst, integer *ilast, doublereal *rtol, integer *offset, 2930 doublereal *w, doublereal *werr, doublereal *work, integer *iwork, 2931 doublereal *pivmin, doublereal *spdiam, integer *info); 2932 2933 /* Subroutine */ int dlarrk_(integer *n, integer *iw, doublereal *gl, 2934 doublereal *gu, doublereal *d__, doublereal *e2, doublereal *pivmin, 2935 doublereal *reltol, doublereal *w, doublereal *werr, integer *info); 2936 2937 /* Subroutine */ int dlarrr_(integer *n, doublereal *d__, doublereal *e, 2938 integer *info); 2939 2940 /* Subroutine */ int dlarrv_(integer *n, doublereal *vl, doublereal *vu, 2941 doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, 2942 integer *m, integer *dol, integer *dou, doublereal *minrgp, 2943 doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr, 2944 doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers, 2945 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 2946 integer *iwork, integer *info); 2947 2948 /* Subroutine */ int dlarscl2_(integer *m, integer *n, doublereal *d__, 2949 doublereal *x, integer *ldx); 2950 2951 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs, 2952 doublereal *sn, doublereal *r__); 2953 2954 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx, 2955 doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer 2956 *incc); 2957 2958 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x); 2959 2960 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l, 2961 doublereal *v, integer *incv, doublereal *tau, doublereal *c__, 2962 integer *ldc, doublereal *work); 2963 2964 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char * 2965 storev, integer *m, integer *n, integer *k, integer *l, doublereal *v, 2966 integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer * 2967 ldc, doublereal *work, integer *ldwork); 2968 2969 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer * 2970 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 2971 integer *ldt); 2972 2973 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__, 2974 doublereal *ssmin, doublereal *ssmax); 2975 2976 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku, 2977 doublereal *cfrom, doublereal *cto, integer *m, integer *n, 2978 doublereal *a, integer *lda, integer *info); 2979 2980 /* Subroutine */ int dlascl2_(integer *m, integer *n, doublereal *d__, 2981 doublereal *x, integer *ldx); 2982 2983 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__, 2984 doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer * 2985 ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer * 2986 info); 2987 2988 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre, 2989 doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u, 2990 integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer * 2991 iwork, doublereal *work, integer *info); 2992 2993 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer 2994 *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal * 2995 beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, 2996 doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2, 2997 integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer * 2998 idxq, integer *coltyp, integer *info); 2999 3000 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer 3001 *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma, 3002 doublereal *u, integer *ldu, doublereal *u2, integer *ldu2, 3003 doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2, 3004 integer *idxc, integer *ctot, doublereal *z__, integer *info); 3005 3006 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__, 3007 doublereal *z__, doublereal *delta, doublereal *rho, doublereal * 3008 sigma, doublereal *work, integer *info); 3009 3010 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, 3011 doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal * 3012 work); 3013 3014 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr, 3015 integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl, 3016 doublereal *alpha, doublereal *beta, integer *idxq, integer *perm, 3017 integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, 3018 integer *ldgnum, doublereal *poles, doublereal *difl, doublereal * 3019 difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, 3020 doublereal *work, integer *iwork, integer *info); 3021 3022 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr, 3023 integer *sqre, integer *k, doublereal *d__, doublereal *z__, 3024 doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl, 3025 doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal * 3026 dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, 3027 integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, 3028 integer *ldgnum, doublereal *c__, doublereal *s, integer *info); 3029 3030 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__, 3031 doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, 3032 doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal * 3033 work, integer *info); 3034 3035 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n, 3036 integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer 3037 *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, 3038 doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, 3039 integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, 3040 doublereal *s, doublereal *work, integer *iwork, integer *info); 3041 3042 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer * 3043 ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, 3044 doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, 3045 doublereal *c__, integer *ldc, doublereal *work, integer *info); 3046 3047 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer * 3048 inode, integer *ndiml, integer *ndimr, integer *msub); 3049 3050 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal * 3051 alpha, doublereal *beta, doublereal *a, integer *lda); 3052 3053 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e, 3054 doublereal *work, integer *info); 3055 3056 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info); 3057 3058 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__, 3059 integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig, 3060 doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, 3061 logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2, 3062 doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *g, 3063 doublereal *tau); 3064 3065 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__, 3066 integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, 3067 doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, 3068 doublereal *tau, integer *ttype, doublereal *g); 3069 3070 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__, 3071 integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, 3072 doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2, 3073 logical *ieee); 3074 3075 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__, 3076 integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, 3077 doublereal *dn, doublereal *dnm1, doublereal *dnm2); 3078 3079 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m, 3080 integer *n, doublereal *c__, doublereal *s, doublereal *a, integer * 3081 lda); 3082 3083 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer * 3084 info); 3085 3086 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx, 3087 doublereal *scale, doublereal *sumsq); 3088 3089 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, 3090 doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal * 3091 csr, doublereal *snl, doublereal *csl); 3092 3093 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer 3094 *k1, integer *k2, integer *ipiv, integer *incx); 3095 3096 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, 3097 integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal * 3098 tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, 3099 doublereal *x, integer *ldx, doublereal *xnorm, integer *info); 3100 3101 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb, 3102 doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer * 3103 ldw, integer *info); 3104 3105 /* Subroutine */ int dlat2s_(char *uplo, integer *n, doublereal *a, integer * 3106 lda, real *sa, integer *ldsa, integer *info); 3107 3108 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char * 3109 normin, integer *n, integer *kd, doublereal *ab, integer *ldab, 3110 doublereal *x, doublereal *scale, doublereal *cnorm, integer *info); 3111 3112 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__, 3113 integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, 3114 integer *ipiv, integer *jpiv); 3115 3116 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char * 3117 normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale, 3118 doublereal *cnorm, integer *info); 3119 3120 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal * 3121 a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, 3122 integer *ldw); 3123 3124 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char * 3125 normin, integer *n, doublereal *a, integer *lda, doublereal *x, 3126 doublereal *scale, doublereal *cnorm, integer *info); 3127 3128 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal * 3129 a, integer *lda, doublereal *tau, doublereal *work); 3130 3131 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal * 3132 v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, 3133 integer *ldc, doublereal *work); 3134 3135 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer * 3136 lda, integer *info); 3137 3138 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer * 3139 lda, integer *info); 3140 3141 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap, 3142 doublereal *tau, doublereal *q, integer *ldq, doublereal *work, 3143 integer *info); 3144 3145 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m, 3146 integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer 3147 *ldc, doublereal *work, integer *info); 3148 3149 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal * 3150 a, integer *lda, doublereal *tau, doublereal *work, integer *info); 3151 3152 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal * 3153 a, integer *lda, doublereal *tau, doublereal *work, integer *info); 3154 3155 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k, 3156 doublereal *a, integer *lda, doublereal *tau, doublereal *work, 3157 integer *lwork, integer *info); 3158 3159 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi, 3160 doublereal *a, integer *lda, doublereal *tau, doublereal *work, 3161 integer *lwork, integer *info); 3162 3163 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal * 3164 a, integer *lda, doublereal *tau, doublereal *work, integer *info); 3165 3166 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal * 3167 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 3168 integer *info); 3169 3170 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal * 3171 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 3172 integer *info); 3173 3174 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal * 3175 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 3176 integer *info); 3177 3178 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal * 3179 a, integer *lda, doublereal *tau, doublereal *work, integer *info); 3180 3181 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal * 3182 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 3183 integer *info); 3184 3185 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer * 3186 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 3187 3188 /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n, 3189 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 3190 c__, integer *ldc, doublereal *work, integer *info); 3191 3192 /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n, 3193 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 3194 c__, integer *ldc, doublereal *work, integer *info); 3195 3196 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m, 3197 integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, 3198 doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 3199 integer *info); 3200 3201 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n, 3202 integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal * 3203 tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 3204 integer *info); 3205 3206 /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n, 3207 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 3208 c__, integer *ldc, doublereal *work, integer *info); 3209 3210 /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n, 3211 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 3212 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 3213 3214 /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n, 3215 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 3216 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 3217 3218 /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n, 3219 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 3220 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 3221 3222 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n, 3223 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 3224 c__, integer *ldc, doublereal *work, integer *info); 3225 3226 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n, 3227 integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 3228 doublereal *c__, integer *ldc, doublereal *work, integer *info); 3229 3230 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n, 3231 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 3232 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 3233 3234 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n, 3235 integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 3236 doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 3237 integer *info); 3238 3239 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m, 3240 integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal * 3241 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 3242 3243 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal * 3244 ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal * 3245 work, integer *iwork, integer *info); 3246 3247 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal * 3248 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, 3249 integer *info); 3250 3251 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer * 3252 nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 3253 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 3254 ferr, doublereal *berr, doublereal *work, integer *iwork, integer * 3255 info); 3256 3257 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal * 3258 ab, integer *ldab, integer *info); 3259 3260 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer * 3261 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 3262 integer *info); 3263 3264 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 3265 integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 3266 integer *ldafb, char *equed, doublereal *s, doublereal *b, integer * 3267 ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 3268 doublereal *berr, doublereal *work, integer *iwork, integer *info); 3269 3270 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal * 3271 ab, integer *ldab, integer *info); 3272 3273 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal * 3274 ab, integer *ldab, integer *info); 3275 3276 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer * 3277 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 3278 integer *info); 3279 3280 /* Subroutine */ int dpftrf_(char *transr, char *uplo, integer *n, doublereal 3281 *a, integer *info); 3282 3283 /* Subroutine */ int dpftri_(char *transr, char *uplo, integer *n, doublereal 3284 *a, integer *info); 3285 3286 /* Subroutine */ int dpftrs_(char *transr, char *uplo, integer *n, integer * 3287 nrhs, doublereal *a, doublereal *b, integer *ldb, integer *info); 3288 3289 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer * 3290 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer * 3291 iwork, integer *info); 3292 3293 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda, 3294 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 3295 3296 /* Subroutine */ int dpoequb_(integer *n, doublereal *a, integer *lda, 3297 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 3298 3299 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs, 3300 doublereal *a, integer *lda, doublereal *af, integer *ldaf, 3301 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 3302 ferr, doublereal *berr, doublereal *work, integer *iwork, integer * 3303 info); 3304 3305 /* Subroutine */ int dporfsx_(char *uplo, char *equed, integer *n, integer * 3306 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 3307 doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer * 3308 ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__, 3309 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 3310 nparams, doublereal *params, doublereal *work, integer *iwork, 3311 integer *info); 3312 3313 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal 3314 *a, integer *lda, doublereal *b, integer *ldb, integer *info); 3315 3316 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer * 3317 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 3318 char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal * 3319 x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal * 3320 berr, doublereal *work, integer *iwork, integer *info); 3321 3322 /* Subroutine */ int dposvxx_(char *fact, char *uplo, integer *n, integer * 3323 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 3324 char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal * 3325 x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, doublereal * 3326 berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 3327 err_bnds_comp__, integer *nparams, doublereal *params, doublereal * 3328 work, integer *iwork, integer *info); 3329 3330 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer * 3331 lda, integer *info); 3332 3333 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer * 3334 lda, integer *info); 3335 3336 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer * 3337 lda, integer *info); 3338 3339 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs, 3340 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 3341 info); 3342 3343 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap, 3344 doublereal *anorm, doublereal *rcond, doublereal *work, integer * 3345 iwork, integer *info); 3346 3347 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap, 3348 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 3349 3350 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs, 3351 doublereal *ap, doublereal *afp, doublereal *b, integer *ldb, 3352 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 3353 doublereal *work, integer *iwork, integer *info); 3354 3355 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal 3356 *ap, doublereal *b, integer *ldb, integer *info); 3357 3358 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer * 3359 nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s, 3360 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 3361 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * 3362 iwork, integer *info); 3363 3364 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer * 3365 info); 3366 3367 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer * 3368 info); 3369 3370 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs, 3371 doublereal *ap, doublereal *b, integer *ldb, integer *info); 3372 3373 /* Subroutine */ int dpstf2_(char *uplo, integer *n, doublereal *a, integer * 3374 lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, 3375 integer *info); 3376 3377 /* Subroutine */ int dpstrf_(char *uplo, integer *n, doublereal *a, integer * 3378 lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, 3379 integer *info); 3380 3381 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e, 3382 doublereal *anorm, doublereal *rcond, doublereal *work, integer *info); 3383 3384 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__, 3385 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 3386 integer *info); 3387 3388 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__, 3389 doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer 3390 *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 3391 doublereal *work, integer *info); 3392 3393 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__, 3394 doublereal *e, doublereal *b, integer *ldb, integer *info); 3395 3396 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs, 3397 doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, 3398 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 3399 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * 3400 info); 3401 3402 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e, 3403 integer *info); 3404 3405 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__, 3406 doublereal *e, doublereal *b, integer *ldb, integer *info); 3407 3408 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__, 3409 doublereal *e, doublereal *b, integer *ldb); 3410 3411 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx, 3412 integer *incx); 3413 3414 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd, 3415 doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 3416 integer *ldz, doublereal *work, integer *info); 3417 3418 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd, 3419 doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 3420 integer *ldz, doublereal *work, integer *lwork, integer *iwork, 3421 integer *liwork, integer *info); 3422 3423 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n, 3424 integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer * 3425 ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, 3426 doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 3427 integer *ldz, doublereal *work, integer *iwork, integer *ifail, 3428 integer *info); 3429 3430 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka, 3431 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * 3432 ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info); 3433 3434 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, 3435 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * 3436 ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 3437 integer *info); 3438 3439 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 3440 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * 3441 ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 3442 integer *lwork, integer *iwork, integer *liwork, integer *info); 3443 3444 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n, 3445 integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal * 3446 bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl, 3447 doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer 3448 *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 3449 integer *iwork, integer *ifail, integer *info); 3450 3451 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd, 3452 doublereal *ab, integer *ldab, doublereal *d__, doublereal *e, 3453 doublereal *q, integer *ldq, doublereal *work, integer *info); 3454 3455 /* Subroutine */ int dsfrk_(char *transr, char *uplo, char *trans, integer *n, 3456 integer *k, doublereal *alpha, doublereal *a, integer *lda, 3457 doublereal *beta, doublereal *c__); 3458 3459 /* Subroutine */ int dsgesv_(integer *n, integer *nrhs, doublereal *a, 3460 integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal * 3461 x, integer *ldx, doublereal *work, real *swork, integer *iter, 3462 integer *info); 3463 3464 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer * 3465 ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer 3466 *iwork, integer *info); 3467 3468 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal * 3469 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 3470 integer *info); 3471 3472 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal * 3473 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 3474 integer *lwork, integer *iwork, integer *liwork, integer *info); 3475 3476 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n, 3477 doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer * 3478 iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 3479 integer *ldz, doublereal *work, integer *iwork, integer *ifail, 3480 integer *info); 3481 3482 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n, 3483 doublereal *ap, doublereal *bp, integer *info); 3484 3485 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer * 3486 n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, 3487 integer *ldz, doublereal *work, integer *info); 3488 3489 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer * 3490 n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, 3491 integer *ldz, doublereal *work, integer *lwork, integer *iwork, 3492 integer *liwork, integer *info); 3493 3494 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char * 3495 uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl, 3496 doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer 3497 *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 3498 integer *iwork, integer *ifail, integer *info); 3499 3500 /* Subroutine */ int dsposv_(char *uplo, integer *n, integer *nrhs, 3501 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 3502 x, integer *ldx, doublereal *work, real *swork, integer *iter, 3503 integer *info); 3504 3505 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs, 3506 doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, 3507 integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, 3508 doublereal *berr, doublereal *work, integer *iwork, integer *info); 3509 3510 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal 3511 *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info); 3512 3513 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer * 3514 nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, 3515 integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, 3516 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 3517 integer *info); 3518 3519 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap, 3520 doublereal *d__, doublereal *e, doublereal *tau, integer *info); 3521 3522 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer * 3523 ipiv, integer *info); 3524 3525 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer * 3526 ipiv, doublereal *work, integer *info); 3527 3528 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs, 3529 doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer * 3530 info); 3531 3532 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal 3533 *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, 3534 doublereal *d__, doublereal *e, integer *m, integer *nsplit, 3535 doublereal *w, integer *iblock, integer *isplit, doublereal *work, 3536 integer *iwork, integer *info); 3537 3538 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__, 3539 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 3540 integer *lwork, integer *iwork, integer *liwork, integer *info); 3541 3542 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal * 3543 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 3544 integer *iu, doublereal *abstol, integer *m, doublereal *w, 3545 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 3546 integer *lwork, integer *iwork, integer *liwork, integer *info); 3547 3548 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e, 3549 integer *m, doublereal *w, integer *iblock, integer *isplit, 3550 doublereal *z__, integer *ldz, doublereal *work, integer *iwork, 3551 integer *ifail, integer *info); 3552 3553 /* Subroutine */ int dstemr_(char *jobz, char *range, integer *n, doublereal * 3554 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 3555 integer *iu, integer *m, doublereal *w, doublereal *z__, integer *ldz, 3556 integer *nzc, integer *isuppz, logical *tryrac, doublereal *work, 3557 integer *lwork, integer *iwork, integer *liwork, integer *info); 3558 3559 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__, 3560 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 3561 integer *info); 3562 3563 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e, 3564 integer *info); 3565 3566 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__, 3567 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 3568 integer *info); 3569 3570 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__, 3571 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 3572 integer *lwork, integer *iwork, integer *liwork, integer *info); 3573 3574 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal * 3575 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 3576 integer *iu, doublereal *abstol, integer *m, doublereal *w, 3577 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 3578 integer *lwork, integer *iwork, integer *liwork, integer *info); 3579 3580 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal * 3581 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 3582 integer *iu, doublereal *abstol, integer *m, doublereal *w, 3583 doublereal *z__, integer *ldz, doublereal *work, integer *iwork, 3584 integer *ifail, integer *info); 3585 3586 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer * 3587 lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal * 3588 work, integer *iwork, integer *info); 3589 3590 /* Subroutine */ int dsyequb_(char *uplo, integer *n, doublereal *a, integer * 3591 lda, doublereal *s, doublereal *scond, doublereal *amax, doublereal * 3592 work, integer *info); 3593 3594 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a, 3595 integer *lda, doublereal *w, doublereal *work, integer *lwork, 3596 integer *info); 3597 3598 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal * 3599 a, integer *lda, doublereal *w, doublereal *work, integer *lwork, 3600 integer *iwork, integer *liwork, integer *info); 3601 3602 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n, 3603 doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer * 3604 il, integer *iu, doublereal *abstol, integer *m, doublereal *w, 3605 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 3606 integer *lwork, integer *iwork, integer *liwork, integer *info); 3607 3608 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n, 3609 doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer * 3610 il, integer *iu, doublereal *abstol, integer *m, doublereal *w, 3611 doublereal *z__, integer *ldz, doublereal *work, integer *lwork, 3612 integer *iwork, integer *ifail, integer *info); 3613 3614 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n, 3615 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 3616 info); 3617 3618 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n, 3619 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 3620 info); 3621 3622 /* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer * 3623 n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 3624 doublereal *w, doublereal *work, integer *lwork, integer *info); 3625 3626 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer * 3627 n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 3628 doublereal *w, doublereal *work, integer *lwork, integer *iwork, 3629 integer *liwork, integer *info); 3630 3631 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char * 3632 uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer 3633 *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu, 3634 doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 3635 integer *ldz, doublereal *work, integer *lwork, integer *iwork, 3636 integer *ifail, integer *info); 3637 3638 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs, 3639 doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer * 3640 ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 3641 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 3642 integer *info); 3643 3644 /* Subroutine */ int dsyrfsx_(char *uplo, char *equed, integer *n, integer * 3645 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 3646 integer *ipiv, doublereal *s, doublereal *b, integer *ldb, doublereal 3647 *x, integer *ldx, doublereal *rcond, doublereal *berr, integer * 3648 n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 3649 err_bnds_comp__, integer *nparams, doublereal *params, doublereal * 3650 work, integer *iwork, integer *info); 3651 3652 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal 3653 *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, 3654 doublereal *work, integer *lwork, integer *info); 3655 3656 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer * 3657 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 3658 integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer * 3659 ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 3660 doublereal *work, integer *lwork, integer *iwork, integer *info); 3661 3662 /* Subroutine */ int dsysvxx_(char *fact, char *uplo, integer *n, integer * 3663 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 3664 integer *ipiv, char *equed, doublereal *s, doublereal *b, integer * 3665 ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal * 3666 rpvgrw, doublereal *berr, integer *n_err_bnds__, doublereal * 3667 err_bnds_norm__, doublereal *err_bnds_comp__, integer *nparams, 3668 doublereal *params, doublereal *work, integer *iwork, integer *info); 3669 3670 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer * 3671 lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info); 3672 3673 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer * 3674 lda, integer *ipiv, integer *info); 3675 3676 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer * 3677 lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal * 3678 work, integer *lwork, integer *info); 3679 3680 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer * 3681 lda, integer *ipiv, doublereal *work, integer *lwork, integer *info); 3682 3683 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer * 3684 lda, integer *ipiv, doublereal *work, integer *info); 3685 3686 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs, 3687 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * 3688 ldb, integer *info); 3689 3690 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n, 3691 integer *kd, doublereal *ab, integer *ldab, doublereal *rcond, 3692 doublereal *work, integer *iwork, integer *info); 3693 3694 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n, 3695 integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal 3696 *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, 3697 doublereal *berr, doublereal *work, integer *iwork, integer *info); 3698 3699 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n, 3700 integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal 3701 *b, integer *ldb, integer *info); 3702 3703 /* Subroutine */ int dtfsm_(char *transr, char *side, char *uplo, char *trans, 3704 char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, 3705 doublereal *b, integer *ldb); 3706 3707 /* Subroutine */ int dtftri_(char *transr, char *uplo, char *diag, integer *n, 3708 doublereal *a, integer *info); 3709 3710 /* Subroutine */ int dtfttp_(char *transr, char *uplo, integer *n, doublereal 3711 *arf, doublereal *ap, integer *info); 3712 3713 /* Subroutine */ int dtfttr_(char *transr, char *uplo, integer *n, doublereal 3714 *arf, doublereal *a, integer *lda, integer *info); 3715 3716 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select, 3717 integer *n, doublereal *s, integer *lds, doublereal *p, integer *ldp, 3718 doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer 3719 *mm, integer *m, doublereal *work, integer *info); 3720 3721 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n, 3722 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 3723 q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer * 3724 n1, integer *n2, doublereal *work, integer *lwork, integer *info); 3725 3726 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n, 3727 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 3728 q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst, 3729 integer *ilst, doublereal *work, integer *lwork, integer *info); 3730 3731 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz, 3732 logical *select, integer *n, doublereal *a, integer *lda, doublereal * 3733 b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * 3734 beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 3735 integer *m, doublereal *pl, doublereal *pr, doublereal *dif, 3736 doublereal *work, integer *lwork, integer *iwork, integer *liwork, 3737 integer *info); 3738 3739 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m, 3740 integer *p, integer *n, integer *k, integer *l, doublereal *a, 3741 integer *lda, doublereal *b, integer *ldb, doublereal *tola, 3742 doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u, 3743 integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer * 3744 ldq, doublereal *work, integer *ncycle, integer *info); 3745 3746 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select, 3747 integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 3748 doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 3749 doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal * 3750 work, integer *lwork, integer *iwork, integer *info); 3751 3752 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer * 3753 n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 3754 doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, 3755 doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal * 3756 scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer 3757 *pq, integer *info); 3758 3759 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer * 3760 n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 3761 doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, 3762 doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal * 3763 scale, doublereal *dif, doublereal *work, integer *lwork, integer * 3764 iwork, integer *info); 3765 3766 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n, 3767 doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork, 3768 integer *info); 3769 3770 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n, 3771 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, 3772 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 3773 doublereal *work, integer *iwork, integer *info); 3774 3775 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal * 3776 ap, integer *info); 3777 3778 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n, 3779 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer * 3780 info); 3781 3782 /* Subroutine */ int dtpttf_(char *transr, char *uplo, integer *n, doublereal 3783 *ap, doublereal *arf, integer *info); 3784 3785 /* Subroutine */ int dtpttr_(char *uplo, integer *n, doublereal *ap, 3786 doublereal *a, integer *lda, integer *info); 3787 3788 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n, 3789 doublereal *a, integer *lda, doublereal *rcond, doublereal *work, 3790 integer *iwork, integer *info); 3791 3792 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select, 3793 integer *n, doublereal *t, integer *ldt, doublereal *vl, integer * 3794 ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, 3795 doublereal *work, integer *info); 3796 3797 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer * 3798 ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst, 3799 doublereal *work, integer *info); 3800 3801 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n, 3802 integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer * 3803 ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 3804 doublereal *work, integer *iwork, integer *info); 3805 3806 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer 3807 *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, 3808 doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal 3809 *sep, doublereal *work, integer *lwork, integer *iwork, integer * 3810 liwork, integer *info); 3811 3812 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select, 3813 integer *n, doublereal *t, integer *ldt, doublereal *vl, integer * 3814 ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep, 3815 integer *mm, integer *m, doublereal *work, integer *ldwork, integer * 3816 iwork, integer *info); 3817 3818 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer 3819 *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer * 3820 ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info); 3821 3822 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal * 3823 a, integer *lda, integer *info); 3824 3825 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal * 3826 a, integer *lda, integer *info); 3827 3828 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n, 3829 integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer * 3830 ldb, integer *info); 3831 3832 /* Subroutine */ int dtrttf_(char *transr, char *uplo, integer *n, doublereal 3833 *a, integer *lda, doublereal *arf, integer *info); 3834 3835 /* Subroutine */ int dtrttp_(char *uplo, integer *n, doublereal *a, integer * 3836 lda, doublereal *ap, integer *info); 3837 3838 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer * 3839 lda, doublereal *tau, integer *info); 3840 3841 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer * 3842 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 3843 3844 doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx); 3845 3846 integer icmax1_(integer *n, complex *cx, integer *incx); 3847 3848 integer ieeeck_(integer *ispec, real *zero, real *one); 3849 3850 integer ilaclc_(integer *m, integer *n, complex *a, integer *lda); 3851 3852 integer ilaclr_(integer *m, integer *n, complex *a, integer *lda); 3853 3854 integer iladiag_(char *diag); 3855 3856 integer iladlc_(integer *m, integer *n, doublereal *a, integer *lda); 3857 3858 integer iladlr_(integer *m, integer *n, doublereal *a, integer *lda); 3859 3860 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 3861 integer *n2, integer *n3, integer *n4); 3862 3863 integer ilaprec_(char *prec); 3864 3865 integer ilaslc_(integer *m, integer *n, real *a, integer *lda); 3866 3867 integer ilaslr_(integer *m, integer *n, real *a, integer *lda); 3868 3869 integer ilatrans_(char *trans); 3870 3871 integer ilauplo_(char *uplo); 3872 3873 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__, 3874 integer *vers_patch__); 3875 3876 integer ilazlc_(integer *m, integer *n, doublecomplex *a, integer *lda); 3877 3878 integer ilazlr_(integer *m, integer *n, doublecomplex *a, integer *lda); 3879 3880 integer iparmq_(integer *ispec, char *name__, char *opts, integer *n, integer 3881 *ilo, integer *ihi, integer *lwork); 3882 3883 integer izmax1_(integer *n, doublecomplex *cx, integer *incx); 3884 3885 logical lsamen_(integer *n, char *ca, char *cb); 3886 3887 integer smaxloc_(real *a, integer *dimm); 3888 3889 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__, 3890 real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q, 3891 integer *iq, real *work, integer *iwork, integer *info); 3892 3893 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer * 3894 nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real * 3895 u, integer *ldu, real *c__, integer *ldc, real *work, integer *info); 3896 3897 doublereal scsum1_(integer *n, complex *cx, integer *incx); 3898 3899 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__, 3900 real *sep, integer *info); 3901 3902 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 3903 integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real * 3904 e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer 3905 *ldc, real *work, integer *info); 3906 3907 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku, 3908 real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, 3909 real *work, integer *iwork, integer *info); 3910 3911 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku, 3912 real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real * 3913 colcnd, real *amax, integer *info); 3914 3915 /* Subroutine */ int sgbequb_(integer *m, integer *n, integer *kl, integer * 3916 ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 3917 *colcnd, real *amax, integer *info); 3918 3919 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer * 3920 ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, 3921 integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real * 3922 ferr, real *berr, real *work, integer *iwork, integer *info); 3923 3924 /* Subroutine */ int sgbrfsx_(char *trans, char *equed, integer *n, integer * 3925 kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 3926 integer *ldafb, integer *ipiv, real *r__, real *c__, real *b, integer 3927 *ldb, real *x, integer *ldx, real *rcond, real *berr, integer * 3928 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * 3929 nparams, real *params, real *work, integer *iwork, integer *info); 3930 3931 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer * 3932 nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, 3933 integer *info); 3934 3935 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl, 3936 integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 3937 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 3938 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, 3939 real *berr, real *work, integer *iwork, integer *info); 3940 3941 /* Subroutine */ int sgbsvxx_(char *fact, char *trans, integer *n, integer * 3942 kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 3943 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 3944 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real * 3945 rpvgrw, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 3946 real *err_bnds_comp__, integer *nparams, real *params, real *work, 3947 integer *iwork, integer *info); 3948 3949 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 3950 real *ab, integer *ldab, integer *ipiv, integer *info); 3951 3952 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 3953 real *ab, integer *ldab, integer *ipiv, integer *info); 3954 3955 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer * 3956 ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, 3957 integer *ldb, integer *info); 3958 3959 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo, 3960 integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer 3961 *info); 3962 3963 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda, 3964 integer *ilo, integer *ihi, real *scale, integer *info); 3965 3966 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda, 3967 real *d__, real *e, real *tauq, real *taup, real *work, integer *info); 3968 3969 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda, 3970 real *d__, real *e, real *tauq, real *taup, real *work, integer * 3971 lwork, integer *info); 3972 3973 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda, 3974 real *anorm, real *rcond, real *work, integer *iwork, integer *info); 3975 3976 /* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda, 3977 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer 3978 *info); 3979 3980 /* Subroutine */ int sgeequb_(integer *m, integer *n, real *a, integer *lda, 3981 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer 3982 *info); 3983 3984 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n, 3985 real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs, 3986 integer *ldvs, real *work, integer *lwork, logical *bwork, integer * 3987 info); 3988 3989 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char * 3990 sense, integer *n, real *a, integer *lda, integer *sdim, real *wr, 3991 real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real * 3992 work, integer *lwork, integer *iwork, integer *liwork, logical *bwork, 3993 integer *info); 3994 3995 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a, 3996 integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr, 3997 integer *ldvr, real *work, integer *lwork, integer *info); 3998 3999 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char * 4000 sense, integer *n, real *a, integer *lda, real *wr, real *wi, real * 4001 vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer * 4002 ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work, 4003 integer *lwork, integer *iwork, integer *info); 4004 4005 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a, 4006 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 4007 *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real * 4008 work, integer *lwork, integer *info); 4009 4010 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a, 4011 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 4012 *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, 4013 integer *lwork, integer *info); 4014 4015 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, 4016 integer *lda, real *tau, real *work, integer *info); 4017 4018 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, 4019 integer *lda, real *tau, real *work, integer *lwork, integer *info); 4020 4021 /* Subroutine */ int sgejsv_(char *joba, char *jobu, char *jobv, char *jobr, 4022 char *jobt, char *jobp, integer *m, integer *n, real *a, integer *lda, 4023 real *sva, real *u, integer *ldu, real *v, integer *ldv, real *work, 4024 integer *lwork, integer *iwork, integer *info); 4025 4026 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda, 4027 real *tau, real *work, integer *info); 4028 4029 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda, 4030 real *tau, real *work, integer *lwork, integer *info); 4031 4032 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer * 4033 nrhs, real *a, integer *lda, real *b, integer *ldb, real *work, 4034 integer *lwork, integer *info); 4035 4036 /* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a, 4037 integer *lda, real *b, integer *ldb, real *s, real *rcond, integer * 4038 rank, real *work, integer *lwork, integer *iwork, integer *info); 4039 4040 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a, 4041 integer *lda, real *b, integer *ldb, real *s, real *rcond, integer * 4042 rank, real *work, integer *lwork, integer *info); 4043 4044 /* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a, 4045 integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, 4046 integer *rank, real *work, integer *info); 4047 4048 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a, 4049 integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, 4050 integer *rank, real *work, integer *lwork, integer *info); 4051 4052 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda, 4053 real *tau, real *work, integer *info); 4054 4055 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda, 4056 real *tau, real *work, integer *lwork, integer *info); 4057 4058 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda, 4059 integer *jpvt, real *tau, real *work, integer *lwork, integer *info); 4060 4061 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda, 4062 integer *jpvt, real *tau, real *work, integer *info); 4063 4064 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda, 4065 real *tau, real *work, integer *info); 4066 4067 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda, 4068 real *tau, real *work, integer *lwork, integer *info); 4069 4070 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a, 4071 integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, 4072 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * 4073 work, integer *iwork, integer *info); 4074 4075 /* Subroutine */ int sgerfsx_(char *trans, char *equed, integer *n, integer * 4076 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 4077 real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, 4078 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 4079 real *err_bnds_comp__, integer *nparams, real *params, real *work, 4080 integer *iwork, integer *info); 4081 4082 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda, 4083 real *tau, real *work, integer *info); 4084 4085 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda, 4086 real *tau, real *work, integer *lwork, integer *info); 4087 4088 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs, 4089 integer *ipiv, integer *jpiv, real *scale); 4090 4091 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a, 4092 integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt, 4093 real *work, integer *lwork, integer *iwork, integer *info); 4094 4095 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda, 4096 integer *ipiv, real *b, integer *ldb, integer *info); 4097 4098 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 4099 real *a, integer *lda, real *s, real *u, integer *ldu, real *vt, 4100 integer *ldvt, real *work, integer *lwork, integer *info); 4101 4102 /* Subroutine */ int sgesvj_(char *joba, char *jobu, char *jobv, integer *m, 4103 integer *n, real *a, integer *lda, real *sva, integer *mv, real *v, 4104 integer *ldv, real *work, integer *lwork, integer *info); 4105 4106 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer * 4107 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 4108 char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, 4109 integer *ldx, real *rcond, real *ferr, real *berr, real *work, 4110 integer *iwork, integer *info); 4111 4112 /* Subroutine */ int sgesvxx_(char *fact, char *trans, integer *n, integer * 4113 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 4114 char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, 4115 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * 4116 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * 4117 nparams, real *params, real *work, integer *iwork, integer *info); 4118 4119 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv, 4120 integer *jpiv, integer *info); 4121 4122 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda, 4123 integer *ipiv, integer *info); 4124 4125 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda, 4126 integer *ipiv, integer *info); 4127 4128 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, 4129 real *work, integer *lwork, integer *info); 4130 4131 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a, 4132 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info); 4133 4134 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo, 4135 integer *ihi, real *lscale, real *rscale, integer *m, real *v, 4136 integer *ldv, integer *info); 4137 4138 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda, 4139 real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real 4140 *rscale, real *work, integer *info); 4141 4142 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 4143 selctg, integer *n, real *a, integer *lda, real *b, integer *ldb, 4144 integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, 4145 integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork, 4146 logical *bwork, integer *info); 4147 4148 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 4149 selctg, char *sense, integer *n, real *a, integer *lda, real *b, 4150 integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, 4151 real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde, 4152 real *rcondv, real *work, integer *lwork, integer *iwork, integer * 4153 liwork, logical *bwork, integer *info); 4154 4155 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a, 4156 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 4157 *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, 4158 integer *lwork, integer *info); 4159 4160 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char * 4161 sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real 4162 *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, 4163 integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale, 4164 real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work, 4165 integer *lwork, integer *iwork, logical *bwork, integer *info); 4166 4167 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a, 4168 integer *lda, real *b, integer *ldb, real *d__, real *x, real *y, 4169 real *work, integer *lwork, integer *info); 4170 4171 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer * 4172 ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real 4173 *q, integer *ldq, real *z__, integer *ldz, integer *info); 4174 4175 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a, 4176 integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x, 4177 real *work, integer *lwork, integer *info); 4178 4179 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a, 4180 integer *lda, real *taua, real *b, integer *ldb, real *taub, real * 4181 work, integer *lwork, integer *info); 4182 4183 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a, 4184 integer *lda, real *taua, real *b, integer *ldb, real *taub, real * 4185 work, integer *lwork, integer *info); 4186 4187 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 4188 integer *n, integer *p, integer *k, integer *l, real *a, integer *lda, 4189 real *b, integer *ldb, real *alpha, real *beta, real *u, integer * 4190 ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, 4191 integer *iwork, integer *info); 4192 4193 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 4194 integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb, 4195 real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu, 4196 real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real * 4197 tau, real *work, integer *info); 4198 4199 /* Subroutine */ int sgsvj0_(char *jobv, integer *m, integer *n, real *a, 4200 integer *lda, real *d__, real *sva, integer *mv, real *v, integer * 4201 ldv, real *eps, real *sfmin, real *tol, integer *nsweep, real *work, 4202 integer *lwork, integer *info); 4203 4204 /* Subroutine */ int sgsvj1_(char *jobv, integer *m, integer *n, integer *n1, 4205 real *a, integer *lda, real *d__, real *sva, integer *mv, real *v, 4206 integer *ldv, real *eps, real *sfmin, real *tol, integer *nsweep, 4207 real *work, integer *lwork, integer *info); 4208 4209 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__, 4210 real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real * 4211 work, integer *iwork, integer *info); 4212 4213 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl, 4214 real *d__, real *du, real *dlf, real *df, real *duf, real *du2, 4215 integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real * 4216 ferr, real *berr, real *work, integer *iwork, integer *info); 4217 4218 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, 4219 real *du, real *b, integer *ldb, integer *info); 4220 4221 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer * 4222 nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf, 4223 real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer * 4224 ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, 4225 integer *info); 4226 4227 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real * 4228 du2, integer *ipiv, integer *info); 4229 4230 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl, 4231 real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb, 4232 integer *info); 4233 4234 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real 4235 *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer * 4236 ldb); 4237 4238 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n, 4239 integer *ilo, integer *ihi, real *h__, integer *ldh, real *t, integer 4240 *ldt, real *alphar, real *alphai, real *beta, real *q, integer *ldq, 4241 real *z__, integer *ldz, real *work, integer *lwork, integer *info); 4242 4243 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical * 4244 select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real 4245 *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, 4246 real *work, integer *ifaill, integer *ifailr, integer *info); 4247 4248 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo, 4249 integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__, 4250 integer *ldz, real *work, integer *lwork, integer *info); 4251 4252 logical sisnan_(real *sin__); 4253 4254 /* Subroutine */ int sla_gbamv__(integer *trans, integer *m, integer *n, 4255 integer *kl, integer *ku, real *alpha, real *ab, integer *ldab, real * 4256 x, integer *incx, real *beta, real *y, integer *incy); 4257 4258 doublereal sla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku, 4259 real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, 4260 integer *cmode, real *c__, integer *info, real *work, integer *iwork, 4261 ftnlen trans_len); 4262 4263 /* Subroutine */ int sla_gbrfsx_extended__(integer *prec_type__, integer * 4264 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 4265 real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, 4266 logical *colequ, real *c__, real *b, integer *ldb, real *y, integer * 4267 ldy, real *berr_out__, integer *n_norms__, real *errs_n__, real * 4268 errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real *rcond, 4269 integer *ithresh, real *rthresh, real *dz_ub__, logical * 4270 ignore_cwise__, integer *info); 4271 4272 doublereal sla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * 4273 ncols, real *ab, integer *ldab, real *afb, integer *ldafb); 4274 4275 /* Subroutine */ int sla_geamv__(integer *trans, integer *m, integer *n, real 4276 *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, 4277 real *y, integer *incy); 4278 4279 doublereal sla_gercond__(char *trans, integer *n, real *a, integer *lda, real 4280 *af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer 4281 *info, real *work, integer *iwork, ftnlen trans_len); 4282 4283 /* Subroutine */ int sla_gerfsx_extended__(integer *prec_type__, integer * 4284 trans_type__, integer *n, integer *nrhs, real *a, integer *lda, real * 4285 af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, real *b, 4286 integer *ldb, real *y, integer *ldy, real *berr_out__, integer * 4287 n_norms__, real *errs_n__, real *errs_c__, real *res, real *ayb, real 4288 *dy, real *y_tail__, real *rcond, integer *ithresh, real *rthresh, 4289 real *dz_ub__, logical *ignore_cwise__, integer *info); 4290 4291 /* Subroutine */ int sla_lin_berr__(integer *n, integer *nz, integer *nrhs, 4292 real *res, real *ayb, real *berr); 4293 4294 doublereal sla_porcond__(char *uplo, integer *n, real *a, integer *lda, real * 4295 af, integer *ldaf, integer *cmode, real *c__, integer *info, real * 4296 work, integer *iwork, ftnlen uplo_len); 4297 4298 /* Subroutine */ int sla_porfsx_extended__(integer *prec_type__, char *uplo, 4299 integer *n, integer *nrhs, real *a, integer *lda, real *af, integer * 4300 ldaf, logical *colequ, real *c__, real *b, integer *ldb, real *y, 4301 integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__, 4302 real *errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real * 4303 rcond, integer *ithresh, real *rthresh, real *dz_ub__, logical * 4304 ignore_cwise__, integer *info, ftnlen uplo_len); 4305 4306 doublereal sla_porpvgrw__(char *uplo, integer *ncols, real *a, integer *lda, 4307 real *af, integer *ldaf, real *work, ftnlen uplo_len); 4308 4309 doublereal sla_rpvgrw__(integer *n, integer *ncols, real *a, integer *lda, 4310 real *af, integer *ldaf); 4311 4312 /* Subroutine */ int sla_syamv__(integer *uplo, integer *n, real *alpha, real 4313 *a, integer *lda, real *x, integer *incx, real *beta, real *y, 4314 integer *incy); 4315 4316 doublereal sla_syrcond__(char *uplo, integer *n, real *a, integer *lda, real * 4317 af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer * 4318 info, real *work, integer *iwork, ftnlen uplo_len); 4319 4320 /* Subroutine */ int sla_syrfsx_extended__(integer *prec_type__, char *uplo, 4321 integer *n, integer *nrhs, real *a, integer *lda, real *af, integer * 4322 ldaf, integer *ipiv, logical *colequ, real *c__, real *b, integer * 4323 ldb, real *y, integer *ldy, real *berr_out__, integer *n_norms__, 4324 real *errs_n__, real *errs_c__, real *res, real *ayb, real *dy, real * 4325 y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__, 4326 logical *ignore_cwise__, integer *info, ftnlen uplo_len); 4327 4328 doublereal sla_syrpvgrw__(char *uplo, integer *n, integer *info, real *a, 4329 integer *lda, real *af, integer *ldaf, integer *ipiv, real *work, 4330 ftnlen uplo_len); 4331 4332 /* Subroutine */ int sla_wwaddw__(integer *n, real *x, real *y, real *w); 4333 4334 /* Subroutine */ int slabad_(real *small, real *large); 4335 4336 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a, 4337 integer *lda, real *d__, real *e, real *tauq, real *taup, real *x, 4338 integer *ldx, real *y, integer *ldy); 4339 4340 /* Subroutine */ int slacn2_(integer *n, real *v, real *x, integer *isgn, 4341 real *est, integer *kase, integer *isave); 4342 4343 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn, 4344 real *est, integer *kase); 4345 4346 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a, 4347 integer *lda, real *b, integer *ldb); 4348 4349 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p, 4350 real *q); 4351 4352 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2); 4353 4354 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n, 4355 integer *mmax, integer *minp, integer *nbmin, real *abstol, real * 4356 reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval, 4357 real *ab, real *c__, integer *mout, integer *nab, real *work, integer 4358 *iwork, integer *info); 4359 4360 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real 4361 *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs, 4362 real *work, integer *iwork, integer *info); 4363 4364 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq, 4365 integer *indxq, real *rho, integer *cutpnt, real *work, integer * 4366 iwork, integer *info); 4367 4368 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__, 4369 real *q, integer *ldq, integer *indxq, real *rho, real *z__, real * 4370 dlamda, real *w, real *q2, integer *indx, integer *indxc, integer * 4371 indxp, integer *coltyp, integer *info); 4372 4373 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__, 4374 real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer * 4375 indx, integer *ctot, real *w, real *s, integer *info); 4376 4377 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__, 4378 real *delta, real *rho, real *dlam, integer *info); 4379 4380 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta, 4381 real *rho, real *dlam); 4382 4383 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho, 4384 real *d__, real *z__, real *finit, real *tau, integer *info); 4385 4386 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz, 4387 integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q, 4388 integer *ldq, integer *indxq, real *rho, integer *cutpnt, real * 4389 qstore, integer *qptr, integer *prmptr, integer *perm, integer * 4390 givptr, integer *givcol, real *givnum, real *work, integer *iwork, 4391 integer *info); 4392 4393 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer 4394 *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho, 4395 integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2, 4396 real *w, integer *perm, integer *givptr, integer *givcol, real * 4397 givnum, integer *indxp, integer *indx, integer *info); 4398 4399 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop, 4400 integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda, 4401 real *w, real *s, integer *lds, integer *info); 4402 4403 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl, 4404 integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 4405 integer *givcol, real *givnum, real *q, integer *qptr, real *z__, 4406 real *ztemp, integer *info); 4407 4408 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n, 4409 real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real 4410 *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum, 4411 integer *info); 4412 4413 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real * 4414 rt2, real *cs1, real *sn1); 4415 4416 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer * 4417 ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, 4418 real *work, integer *info); 4419 4420 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb, 4421 real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real * 4422 wi); 4423 4424 /* Subroutine */ int slag2d_(integer *m, integer *n, real *sa, integer *ldsa, 4425 doublereal *a, integer *lda, integer *info); 4426 4427 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3, 4428 real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real * 4429 snv, real *csq, real *snq); 4430 4431 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real 4432 *c__, real *tol, real *d__, integer *in, integer *info); 4433 4434 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real * 4435 alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real * 4436 beta, real *b, integer *ldb); 4437 4438 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real 4439 *c__, real *d__, integer *in, real *y, real *tol, integer *info); 4440 4441 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb, 4442 real *alphar, real *alphai, real *beta, real *csl, real *snl, real * 4443 csr, real *snr); 4444 4445 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n, 4446 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * 4447 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer * 4448 info); 4449 4450 /* Subroutine */ int slahr2_(integer *n, integer *k, integer *nb, real *a, 4451 integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy); 4452 4453 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a, 4454 integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy); 4455 4456 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest, 4457 real *w, real *gamma, real *sestpr, real *s, real *c__); 4458 4459 logical slaisnan_(real *sin1, real *sin2); 4460 4461 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real * 4462 smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b, 4463 integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale, 4464 real *xnorm, integer *info); 4465 4466 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr, 4467 integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx, 4468 integer *ldbx, integer *perm, integer *givptr, integer *givcol, 4469 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * 4470 difl, real *difr, real *z__, integer *k, real *c__, real *s, real * 4471 work, integer *info); 4472 4473 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n, 4474 integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real * 4475 u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real * 4476 z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol, 4477 integer *perm, real *givnum, real *c__, real *s, real *work, integer * 4478 iwork, integer *info); 4479 4480 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer 4481 *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond, 4482 integer *rank, real *work, integer *iwork, integer *info); 4483 4484 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer * 4485 strd1, integer *strd2, integer *index); 4486 4487 integer slaneg_(integer *n, real *d__, real *lld, real *sigma, real *pivmin, 4488 integer *r__); 4489 4490 doublereal slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab, 4491 integer *ldab, real *work); 4492 4493 doublereal slange_(char *norm, integer *m, integer *n, real *a, integer *lda, 4494 real *work); 4495 4496 doublereal slangt_(char *norm, integer *n, real *dl, real *d__, real *du); 4497 4498 doublereal slanhs_(char *norm, integer *n, real *a, integer *lda, real *work); 4499 4500 doublereal slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab, 4501 integer *ldab, real *work); 4502 4503 doublereal slansf_(char *norm, char *transr, char *uplo, integer *n, real *a, 4504 real *work); 4505 4506 doublereal slansp_(char *norm, char *uplo, integer *n, real *ap, real *work); 4507 4508 doublereal slanst_(char *norm, integer *n, real *d__, real *e); 4509 4510 doublereal slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda, 4511 real *work); 4512 4513 doublereal slantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 4514 real *ab, integer *ldab, real *work); 4515 4516 doublereal slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap, 4517 real *work); 4518 4519 doublereal slantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 4520 real *a, integer *lda, real *work); 4521 4522 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real * 4523 rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn); 4524 4525 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y, 4526 integer *incy, real *ssmin); 4527 4528 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x, 4529 integer *ldx, integer *k); 4530 4531 doublereal slapy2_(real *x, real *y); 4532 4533 doublereal slapy3_(real *x, real *y, real *z__); 4534 4535 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku, 4536 real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real * 4537 colcnd, real *amax, char *equed); 4538 4539 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda, 4540 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char * 4541 equed); 4542 4543 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a, 4544 integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real * 4545 work); 4546 4547 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer 4548 *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau, 4549 real *vn1, real *vn2, real *auxv, real *f, integer *ldf); 4550 4551 /* Subroutine */ int slaqr0_(logical *wantt, logical *wantz, integer *n, 4552 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * 4553 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work, 4554 integer *lwork, integer *info); 4555 4556 /* Subroutine */ int slaqr1_(integer *n, real *h__, integer *ldh, real *sr1, 4557 real *si1, real *sr2, real *si2, real *v); 4558 4559 /* Subroutine */ int slaqr2_(logical *wantt, logical *wantz, integer *n, 4560 integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh, 4561 integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns, 4562 integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh, 4563 real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real * 4564 work, integer *lwork); 4565 4566 /* Subroutine */ int slaqr3_(logical *wantt, logical *wantz, integer *n, 4567 integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh, 4568 integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns, 4569 integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh, 4570 real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real * 4571 work, integer *lwork); 4572 4573 /* Subroutine */ int slaqr4_(logical *wantt, logical *wantz, integer *n, 4574 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * 4575 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work, 4576 integer *lwork, integer *info); 4577 4578 /* Subroutine */ int slaqr5_(logical *wantt, logical *wantz, integer *kacc22, 4579 integer *n, integer *ktop, integer *kbot, integer *nshfts, real *sr, 4580 real *si, real *h__, integer *ldh, integer *iloz, integer *ihiz, real 4581 *z__, integer *ldz, real *v, integer *ldv, real *u, integer *ldu, 4582 integer *nv, real *wv, integer *ldwv, integer *nh, real *wh, integer * 4583 ldwh); 4584 4585 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab, 4586 integer *ldab, real *s, real *scond, real *amax, char *equed); 4587 4588 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real * 4589 scond, real *amax, char *equed); 4590 4591 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda, 4592 real *s, real *scond, real *amax, char *equed); 4593 4594 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real 4595 *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work, 4596 integer *info); 4597 4598 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real * 4599 lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real * 4600 gaptol, real *z__, logical *wantnc, integer *negcnt, real *ztz, real * 4601 mingma, integer *r__, integer *isuppz, real *nrminv, real *resid, 4602 real *rqcorr, real *work); 4603 4604 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer 4605 *incx, real *c__, real *s, integer *incc); 4606 4607 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v, 4608 integer *incv, real *tau, real *c__, integer *ldc, real *work); 4609 4610 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char * 4611 storev, integer *m, integer *n, integer *k, real *v, integer *ldv, 4612 real *t, integer *ldt, real *c__, integer *ldc, real *work, integer * 4613 ldwork); 4614 4615 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx, 4616 real *tau); 4617 4618 /* Subroutine */ int slarfp_(integer *n, real *alpha, real *x, integer *incx, 4619 real *tau); 4620 4621 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer * 4622 k, real *v, integer *ldv, real *tau, real *t, integer *ldt); 4623 4624 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v, 4625 real *tau, real *c__, integer *ldc, real *work); 4626 4627 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y, 4628 integer *incy, real *c__, integer *incc); 4629 4630 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real 4631 *x); 4632 4633 /* Subroutine */ int slarra_(integer *n, real *d__, real *e, real *e2, real * 4634 spltol, real *tnrm, integer *nsplit, integer *isplit, integer *info); 4635 4636 /* Subroutine */ int slarrb_(integer *n, real *d__, real *lld, integer * 4637 ifirst, integer *ilast, real *rtol1, real *rtol2, integer *offset, 4638 real *w, real *wgap, real *werr, real *work, integer *iwork, real * 4639 pivmin, real *spdiam, integer *twist, integer *info); 4640 4641 /* Subroutine */ int slarrc_(char *jobt, integer *n, real *vl, real *vu, real 4642 *d__, real *e, real *pivmin, integer *eigcnt, integer *lcnt, integer * 4643 rcnt, integer *info); 4644 4645 /* Subroutine */ int slarrd_(char *range, char *order, integer *n, real *vl, 4646 real *vu, integer *il, integer *iu, real *gers, real *reltol, real * 4647 d__, real *e, real *e2, real *pivmin, integer *nsplit, integer * 4648 isplit, integer *m, real *w, real *werr, real *wl, real *wu, integer * 4649 iblock, integer *indexw, real *work, integer *iwork, integer *info); 4650 4651 /* Subroutine */ int slarre_(char *range, integer *n, real *vl, real *vu, 4652 integer *il, integer *iu, real *d__, real *e, real *e2, real *rtol1, 4653 real *rtol2, real *spltol, integer *nsplit, integer *isplit, integer * 4654 m, real *w, real *werr, real *wgap, integer *iblock, integer *indexw, 4655 real *gers, real *pivmin, real *work, integer *iwork, integer *info); 4656 4657 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld, 4658 integer *clstrt, integer *clend, real *w, real *wgap, real *werr, 4659 real *spdiam, real *clgapl, real *clgapr, real *pivmin, real *sigma, 4660 real *dplus, real *lplus, real *work, integer *info); 4661 4662 /* Subroutine */ int slarrj_(integer *n, real *d__, real *e2, integer *ifirst, 4663 integer *ilast, real *rtol, integer *offset, real *w, real *werr, 4664 real *work, integer *iwork, real *pivmin, real *spdiam, integer *info); 4665 4666 /* Subroutine */ int slarrk_(integer *n, integer *iw, real *gl, real *gu, 4667 real *d__, real *e2, real *pivmin, real *reltol, real *w, real *werr, 4668 integer *info); 4669 4670 /* Subroutine */ int slarrr_(integer *n, real *d__, real *e, integer *info); 4671 4672 /* Subroutine */ int slarrv_(integer *n, real *vl, real *vu, real *d__, real * 4673 l, real *pivmin, integer *isplit, integer *m, integer *dol, integer * 4674 dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr, 4675 real *wgap, integer *iblock, integer *indexw, real *gers, real *z__, 4676 integer *ldz, integer *isuppz, real *work, integer *iwork, integer * 4677 info); 4678 4679 /* Subroutine */ int slarscl2_(integer *m, integer *n, real *d__, real *x, 4680 integer *ldx); 4681 4682 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__); 4683 4684 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y, 4685 integer *incy, real *c__, real *s, integer *incc); 4686 4687 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x); 4688 4689 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l, 4690 real *v, integer *incv, real *tau, real *c__, integer *ldc, real * 4691 work); 4692 4693 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char * 4694 storev, integer *m, integer *n, integer *k, integer *l, real *v, 4695 integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real * 4696 work, integer *ldwork); 4697 4698 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer * 4699 k, real *v, integer *ldv, real *tau, real *t, integer *ldt); 4700 4701 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real * 4702 ssmax); 4703 4704 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real * 4705 cfrom, real *cto, integer *m, integer *n, real *a, integer *lda, 4706 integer *info); 4707 4708 /* Subroutine */ int slascl2_(integer *m, integer *n, real *d__, real *x, 4709 integer *ldx); 4710 4711 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e, 4712 real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz, 4713 integer *iwork, real *work, integer *info); 4714 4715 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real * 4716 d__, real *alpha, real *beta, real *u, integer *ldu, real *vt, 4717 integer *ldvt, integer *idxq, integer *iwork, real *work, integer * 4718 info); 4719 4720 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer 4721 *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer * 4722 ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2, 4723 real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc, 4724 integer *idxq, integer *coltyp, integer *info); 4725 4726 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer 4727 *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer * 4728 ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2, 4729 integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer * 4730 info); 4731 4732 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__, 4733 real *delta, real *rho, real *sigma, real *work, integer *info); 4734 4735 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta, 4736 real *rho, real *dsigma, real *work); 4737 4738 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr, 4739 integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta, 4740 integer *idxq, integer *perm, integer *givptr, integer *givcol, 4741 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * 4742 difl, real *difr, real *z__, integer *k, real *c__, real *s, real * 4743 work, integer *iwork, integer *info); 4744 4745 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr, 4746 integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf, 4747 real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma, 4748 integer *idx, integer *idxp, integer *idxq, integer *perm, integer * 4749 givptr, integer *givcol, integer *ldgcol, real *givnum, integer * 4750 ldgnum, real *c__, real *s, integer *info); 4751 4752 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real * 4753 z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr, 4754 real *dsigma, real *work, integer *info); 4755 4756 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n, 4757 integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt, 4758 integer *k, real *difl, real *difr, real *z__, real *poles, integer * 4759 givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum, 4760 real *c__, real *s, real *work, integer *iwork, integer *info); 4761 4762 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer * 4763 ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt, 4764 integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real * 4765 work, integer *info); 4766 4767 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer * 4768 inode, integer *ndiml, integer *ndimr, integer *msub); 4769 4770 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha, 4771 real *beta, real *a, integer *lda); 4772 4773 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work, 4774 integer *info); 4775 4776 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info); 4777 4778 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp, 4779 real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail, 4780 integer *iter, integer *ndiv, logical *ieee, integer *ttype, real * 4781 dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *g, real * 4782 tau); 4783 4784 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp, 4785 integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn, 4786 real *dn1, real *dn2, real *tau, integer *ttype, real *g); 4787 4788 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp, 4789 real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real * 4790 dnm1, real *dnm2, logical *ieee); 4791 4792 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp, 4793 real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real * 4794 dnm2); 4795 4796 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m, 4797 integer *n, real *c__, real *s, real *a, integer *lda); 4798 4799 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info); 4800 4801 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale, 4802 real *sumsq); 4803 4804 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real * 4805 ssmax, real *snr, real *csr, real *snl, real *csl); 4806 4807 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1, 4808 integer *k2, integer *ipiv, integer *incx); 4809 4810 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn, 4811 integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer * 4812 ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real 4813 *xnorm, integer *info); 4814 4815 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb, 4816 real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer 4817 *info); 4818 4819 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char * 4820 normin, integer *n, integer *kd, real *ab, integer *ldab, real *x, 4821 real *scale, real *cnorm, integer *info); 4822 4823 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer * 4824 ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer * 4825 jpiv); 4826 4827 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char * 4828 normin, integer *n, real *ap, real *x, real *scale, real *cnorm, 4829 integer *info); 4830 4831 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a, 4832 integer *lda, real *e, real *tau, real *w, integer *ldw); 4833 4834 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char * 4835 normin, integer *n, real *a, integer *lda, real *x, real *scale, real 4836 *cnorm, integer *info); 4837 4838 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a, 4839 integer *lda, real *tau, real *work); 4840 4841 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v, 4842 integer *incv, real *tau, real *c1, real *c2, integer *ldc, real * 4843 work); 4844 4845 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda, 4846 integer *info); 4847 4848 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda, 4849 integer *info); 4850 4851 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau, 4852 real *q, integer *ldq, real *work, integer *info); 4853 4854 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m, 4855 integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work, 4856 integer *info); 4857 4858 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a, 4859 integer *lda, real *tau, real *work, integer *info); 4860 4861 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a, 4862 integer *lda, real *tau, real *work, integer *info); 4863 4864 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k, 4865 real *a, integer *lda, real *tau, real *work, integer *lwork, integer 4866 *info); 4867 4868 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a, 4869 integer *lda, real *tau, real *work, integer *lwork, integer *info); 4870 4871 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a, 4872 integer *lda, real *tau, real *work, integer *info); 4873 4874 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a, 4875 integer *lda, real *tau, real *work, integer *lwork, integer *info); 4876 4877 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a, 4878 integer *lda, real *tau, real *work, integer *lwork, integer *info); 4879 4880 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a, 4881 integer *lda, real *tau, real *work, integer *lwork, integer *info); 4882 4883 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a, 4884 integer *lda, real *tau, real *work, integer *info); 4885 4886 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a, 4887 integer *lda, real *tau, real *work, integer *lwork, integer *info); 4888 4889 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda, 4890 real *tau, real *work, integer *lwork, integer *info); 4891 4892 /* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n, 4893 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4894 real *work, integer *info); 4895 4896 /* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n, 4897 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4898 real *work, integer *info); 4899 4900 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m, 4901 integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, 4902 integer *ldc, real *work, integer *lwork, integer *info); 4903 4904 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n, 4905 integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real * 4906 c__, integer *ldc, real *work, integer *lwork, integer *info); 4907 4908 /* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n, 4909 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4910 real *work, integer *info); 4911 4912 /* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n, 4913 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4914 real *work, integer *lwork, integer *info); 4915 4916 /* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n, 4917 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4918 real *work, integer *lwork, integer *info); 4919 4920 /* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n, 4921 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4922 real *work, integer *lwork, integer *info); 4923 4924 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n, 4925 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4926 real *work, integer *info); 4927 4928 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n, 4929 integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, 4930 integer *ldc, real *work, integer *info); 4931 4932 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n, 4933 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4934 real *work, integer *lwork, integer *info); 4935 4936 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n, 4937 integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, 4938 integer *ldc, real *work, integer *lwork, integer *info); 4939 4940 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m, 4941 integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc, 4942 real *work, integer *lwork, integer *info); 4943 4944 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab, 4945 integer *ldab, real *anorm, real *rcond, real *work, integer *iwork, 4946 integer *info); 4947 4948 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab, 4949 integer *ldab, real *s, real *scond, real *amax, integer *info); 4950 4951 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer * 4952 nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b, 4953 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * 4954 work, integer *iwork, integer *info); 4955 4956 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab, 4957 integer *ldab, integer *info); 4958 4959 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer * 4960 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info); 4961 4962 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd, 4963 integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, 4964 char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, 4965 real *rcond, real *ferr, real *berr, real *work, integer *iwork, 4966 integer *info); 4967 4968 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab, 4969 integer *ldab, integer *info); 4970 4971 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab, 4972 integer *ldab, integer *info); 4973 4974 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer * 4975 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info); 4976 4977 /* Subroutine */ int spftrf_(char *transr, char *uplo, integer *n, real *a, 4978 integer *info); 4979 4980 /* Subroutine */ int spftri_(char *transr, char *uplo, integer *n, real *a, 4981 integer *info); 4982 4983 /* Subroutine */ int spftrs_(char *transr, char *uplo, integer *n, integer * 4984 nrhs, real *a, real *b, integer *ldb, integer *info); 4985 4986 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda, 4987 real *anorm, real *rcond, real *work, integer *iwork, integer *info); 4988 4989 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real 4990 *scond, real *amax, integer *info); 4991 4992 /* Subroutine */ int spoequb_(integer *n, real *a, integer *lda, real *s, 4993 real *scond, real *amax, integer *info); 4994 4995 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a, 4996 integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x, 4997 integer *ldx, real *ferr, real *berr, real *work, integer *iwork, 4998 integer *info); 4999 5000 /* Subroutine */ int sporfsx_(char *uplo, char *equed, integer *n, integer * 5001 nrhs, real *a, integer *lda, real *af, integer *ldaf, real *s, real * 5002 b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr, 5003 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 5004 integer *nparams, real *params, real *work, integer *iwork, integer * 5005 info); 5006 5007 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a, 5008 integer *lda, real *b, integer *ldb, integer *info); 5009 5010 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer * 5011 nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, 5012 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 5013 real *ferr, real *berr, real *work, integer *iwork, integer *info); 5014 5015 /* Subroutine */ int sposvxx_(char *fact, char *uplo, integer *n, integer * 5016 nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, 5017 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 5018 real *rpvgrw, real *berr, integer *n_err_bnds__, real * 5019 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 5020 params, real *work, integer *iwork, integer *info); 5021 5022 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda, 5023 integer *info); 5024 5025 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda, 5026 integer *info); 5027 5028 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda, 5029 integer *info); 5030 5031 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, 5032 integer *lda, real *b, integer *ldb, integer *info); 5033 5034 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm, 5035 real *rcond, real *work, integer *iwork, integer *info); 5036 5037 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real * 5038 scond, real *amax, integer *info); 5039 5040 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap, 5041 real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr, 5042 real *berr, real *work, integer *iwork, integer *info); 5043 5044 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, 5045 real *b, integer *ldb, integer *info); 5046 5047 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer * 5048 nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer * 5049 ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real 5050 *work, integer *iwork, integer *info); 5051 5052 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info); 5053 5054 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info); 5055 5056 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, 5057 real *b, integer *ldb, integer *info); 5058 5059 /* Subroutine */ int spstf2_(char *uplo, integer *n, real *a, integer *lda, 5060 integer *piv, integer *rank, real *tol, real *work, integer *info); 5061 5062 /* Subroutine */ int spstrf_(char *uplo, integer *n, real *a, integer *lda, 5063 integer *piv, integer *rank, real *tol, real *work, integer *info); 5064 5065 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm, 5066 real *rcond, real *work, integer *info); 5067 5068 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e, 5069 real *z__, integer *ldz, real *work, integer *info); 5070 5071 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e, 5072 real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx, 5073 real *ferr, real *berr, real *work, integer *info); 5074 5075 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e, 5076 real *b, integer *ldb, integer *info); 5077 5078 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__, 5079 real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer 5080 *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info); 5081 5082 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info); 5083 5084 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e, 5085 real *b, integer *ldb, integer *info); 5086 5087 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e, 5088 real *b, integer *ldb); 5089 5090 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx); 5091 5092 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd, 5093 real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, 5094 integer *info); 5095 5096 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd, 5097 real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, 5098 integer *lwork, integer *iwork, integer *liwork, integer *info); 5099 5100 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n, 5101 integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl, 5102 real *vu, integer *il, integer *iu, real *abstol, integer *m, real * 5103 w, real *z__, integer *ldz, real *work, integer *iwork, integer * 5104 ifail, integer *info); 5105 5106 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka, 5107 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * 5108 x, integer *ldx, real *work, integer *info); 5109 5110 /* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka, 5111 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * 5112 w, real *z__, integer *ldz, real *work, integer *info); 5113 5114 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 5115 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * 5116 w, real *z__, integer *ldz, real *work, integer *lwork, integer * 5117 iwork, integer *liwork, integer *info); 5118 5119 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n, 5120 integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer * 5121 ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer 5122 *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real 5123 *work, integer *iwork, integer *ifail, integer *info); 5124 5125 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd, 5126 real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq, 5127 real *work, integer *info); 5128 5129 /* Subroutine */ int ssfrk_(char *transr, char *uplo, char *trans, integer *n, 5130 integer *k, real *alpha, real *a, integer *lda, real *beta, real * 5131 c__); 5132 5133 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, 5134 real *anorm, real *rcond, real *work, integer *iwork, integer *info); 5135 5136 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap, 5137 real *w, real *z__, integer *ldz, real *work, integer *info); 5138 5139 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap, 5140 real *w, real *z__, integer *ldz, real *work, integer *lwork, integer 5141 *iwork, integer *liwork, integer *info); 5142 5143 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n, 5144 real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol, 5145 integer *m, real *w, real *z__, integer *ldz, real *work, integer * 5146 iwork, integer *ifail, integer *info); 5147 5148 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap, 5149 real *bp, integer *info); 5150 5151 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer * 5152 n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, 5153 integer *info); 5154 5155 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer * 5156 n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, 5157 integer *lwork, integer *iwork, integer *liwork, integer *info); 5158 5159 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char * 5160 uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il, 5161 integer *iu, real *abstol, integer *m, real *w, real *z__, integer * 5162 ldz, real *work, integer *iwork, integer *ifail, integer *info); 5163 5164 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap, 5165 real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer * 5166 ldx, real *ferr, real *berr, real *work, integer *iwork, integer * 5167 info); 5168 5169 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, 5170 integer *ipiv, real *b, integer *ldb, integer *info); 5171 5172 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer * 5173 nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real 5174 *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, 5175 integer *iwork, integer *info); 5176 5177 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__, 5178 real *e, real *tau, integer *info); 5179 5180 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv, 5181 integer *info); 5182 5183 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, 5184 real *work, integer *info); 5185 5186 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, 5187 integer *ipiv, real *b, integer *ldb, integer *info); 5188 5189 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl, 5190 real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e, 5191 integer *m, integer *nsplit, real *w, integer *iblock, integer * 5192 isplit, real *work, integer *iwork, integer *info); 5193 5194 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e, 5195 real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, 5196 integer *liwork, integer *info); 5197 5198 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__, 5199 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 5200 integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real * 5201 work, integer *lwork, integer *iwork, integer *liwork, integer *info); 5202 5203 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real 5204 *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real * 5205 work, integer *iwork, integer *ifail, integer *info); 5206 5207 /* Subroutine */ int sstemr_(char *jobz, char *range, integer *n, real *d__, 5208 real *e, real *vl, real *vu, integer *il, integer *iu, integer *m, 5209 real *w, real *z__, integer *ldz, integer *nzc, integer *isuppz, 5210 logical *tryrac, real *work, integer *lwork, integer *iwork, integer * 5211 liwork, integer *info); 5212 5213 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e, 5214 real *z__, integer *ldz, real *work, integer *info); 5215 5216 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info); 5217 5218 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real * 5219 z__, integer *ldz, real *work, integer *info); 5220 5221 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real 5222 *z__, integer *ldz, real *work, integer *lwork, integer *iwork, 5223 integer *liwork, integer *info); 5224 5225 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__, 5226 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 5227 integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real * 5228 work, integer *lwork, integer *iwork, integer *liwork, integer *info); 5229 5230 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__, 5231 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 5232 integer *m, real *w, real *z__, integer *ldz, real *work, integer * 5233 iwork, integer *ifail, integer *info); 5234 5235 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda, 5236 integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, 5237 integer *info); 5238 5239 /* Subroutine */ int ssyequb_(char *uplo, integer *n, real *a, integer *lda, 5240 real *s, real *scond, real *amax, real *work, integer *info); 5241 5242 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a, 5243 integer *lda, real *w, real *work, integer *lwork, integer *info); 5244 5245 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a, 5246 integer *lda, real *w, real *work, integer *lwork, integer *iwork, 5247 integer *liwork, integer *info); 5248 5249 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n, 5250 real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, 5251 real *abstol, integer *m, real *w, real *z__, integer *ldz, integer * 5252 isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, 5253 integer *info); 5254 5255 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n, 5256 real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, 5257 real *abstol, integer *m, real *w, real *z__, integer *ldz, real * 5258 work, integer *lwork, integer *iwork, integer *ifail, integer *info); 5259 5260 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a, 5261 integer *lda, real *b, integer *ldb, integer *info); 5262 5263 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a, 5264 integer *lda, real *b, integer *ldb, integer *info); 5265 5266 /* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer * 5267 n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, 5268 integer *lwork, integer *info); 5269 5270 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer * 5271 n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, 5272 integer *lwork, integer *iwork, integer *liwork, integer *info); 5273 5274 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char * 5275 uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real * 5276 vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, 5277 real *w, real *z__, integer *ldz, real *work, integer *lwork, integer 5278 *iwork, integer *ifail, integer *info); 5279 5280 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a, 5281 integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, 5282 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * 5283 work, integer *iwork, integer *info); 5284 5285 /* Subroutine */ int ssyrfsx_(char *uplo, char *equed, integer *n, integer * 5286 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 5287 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 5288 real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real * 5289 err_bnds_comp__, integer *nparams, real *params, real *work, integer * 5290 iwork, integer *info); 5291 5292 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a, 5293 integer *lda, integer *ipiv, real *b, integer *ldb, real *work, 5294 integer *lwork, integer *info); 5295 5296 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer * 5297 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 5298 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, 5299 real *berr, real *work, integer *lwork, integer *iwork, integer * 5300 info); 5301 5302 /* Subroutine */ int ssysvxx_(char *fact, char *uplo, integer *n, integer * 5303 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 5304 char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, 5305 real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real * 5306 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 5307 params, real *work, integer *iwork, integer *info); 5308 5309 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda, 5310 real *d__, real *e, real *tau, integer *info); 5311 5312 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda, 5313 integer *ipiv, integer *info); 5314 5315 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda, 5316 real *d__, real *e, real *tau, real *work, integer *lwork, integer * 5317 info); 5318 5319 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda, 5320 integer *ipiv, real *work, integer *lwork, integer *info); 5321 5322 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda, 5323 integer *ipiv, real *work, integer *info); 5324 5325 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, 5326 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info); 5327 5328 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n, 5329 integer *kd, real *ab, integer *ldab, real *rcond, real *work, 5330 integer *iwork, integer *info); 5331 5332 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n, 5333 integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer 5334 *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, 5335 integer *iwork, integer *info); 5336 5337 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n, 5338 integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer 5339 *ldb, integer *info); 5340 5341 /* Subroutine */ int stfsm_(char *transr, char *side, char *uplo, char *trans, 5342 char *diag, integer *m, integer *n, real *alpha, real *a, real *b, 5343 integer *ldb); 5344 5345 /* Subroutine */ int stftri_(char *transr, char *uplo, char *diag, integer *n, 5346 real *a, integer *info); 5347 5348 /* Subroutine */ int stfttp_(char *transr, char *uplo, integer *n, real *arf, 5349 real *ap, integer *info); 5350 5351 /* Subroutine */ int stfttr_(char *transr, char *uplo, integer *n, real *arf, 5352 real *a, integer *lda, integer *info); 5353 5354 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select, 5355 integer *n, real *s, integer *lds, real *p, integer *ldp, real *vl, 5356 integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real 5357 *work, integer *info); 5358 5359 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real 5360 *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real * 5361 z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work, 5362 integer *lwork, integer *info); 5363 5364 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real 5365 *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real * 5366 z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer * 5367 lwork, integer *info); 5368 5369 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz, 5370 logical *select, integer *n, real *a, integer *lda, real *b, integer * 5371 ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq, 5372 real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif, 5373 real *work, integer *lwork, integer *iwork, integer *liwork, integer * 5374 info); 5375 5376 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m, 5377 integer *p, integer *n, integer *k, integer *l, real *a, integer *lda, 5378 real *b, integer *ldb, real *tola, real *tolb, real *alpha, real * 5379 beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer * 5380 ldq, real *work, integer *ncycle, integer *info); 5381 5382 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select, 5383 integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, 5384 integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer * 5385 mm, integer *m, real *work, integer *lwork, integer *iwork, integer * 5386 info); 5387 5388 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer * 5389 n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer * 5390 ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer 5391 *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer 5392 *pq, integer *info); 5393 5394 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer * 5395 n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer * 5396 ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer 5397 *ldf, real *scale, real *dif, real *work, integer *lwork, integer * 5398 iwork, integer *info); 5399 5400 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n, 5401 real *ap, real *rcond, real *work, integer *iwork, integer *info); 5402 5403 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n, 5404 integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx, 5405 real *ferr, real *berr, real *work, integer *iwork, integer *info); 5406 5407 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap, 5408 integer *info); 5409 5410 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n, 5411 integer *nrhs, real *ap, real *b, integer *ldb, integer *info); 5412 5413 /* Subroutine */ int stpttf_(char *transr, char *uplo, integer *n, real *ap, 5414 real *arf, integer *info); 5415 5416 /* Subroutine */ int stpttr_(char *uplo, integer *n, real *ap, real *a, 5417 integer *lda, integer *info); 5418 5419 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n, 5420 real *a, integer *lda, real *rcond, real *work, integer *iwork, 5421 integer *info); 5422 5423 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select, 5424 integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, 5425 integer *ldvr, integer *mm, integer *m, real *work, integer *info); 5426 5427 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt, 5428 real *q, integer *ldq, integer *ifst, integer *ilst, real *work, 5429 integer *info); 5430 5431 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n, 5432 integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x, 5433 integer *ldx, real *ferr, real *berr, real *work, integer *iwork, 5434 integer *info); 5435 5436 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer 5437 *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi, 5438 integer *m, real *s, real *sep, real *work, integer *lwork, integer * 5439 iwork, integer *liwork, integer *info); 5440 5441 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select, 5442 integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, 5443 integer *ldvr, real *s, real *sep, integer *mm, integer *m, real * 5444 work, integer *ldwork, integer *iwork, integer *info); 5445 5446 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer 5447 *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real * 5448 c__, integer *ldc, real *scale, integer *info); 5449 5450 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a, 5451 integer *lda, integer *info); 5452 5453 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a, 5454 integer *lda, integer *info); 5455 5456 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n, 5457 integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer * 5458 info); 5459 5460 /* Subroutine */ int strttf_(char *transr, char *uplo, integer *n, real *a, 5461 integer *lda, real *arf, integer *info); 5462 5463 /* Subroutine */ int strttp_(char *uplo, integer *n, real *a, integer *lda, 5464 real *ap, integer *info); 5465 5466 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda, 5467 real *tau, integer *info); 5468 5469 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda, 5470 real *tau, real *work, integer *lwork, integer *info); 5471 5472 /* Subroutine */ int xerbla_(char *srname, integer *info); 5473 5474 /* Subroutine */ int xerbla_array__(char *srname_array__, integer * 5475 srname_len__, integer *info, ftnlen srname_array_len); 5476 5477 /* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer * 5478 nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt, 5479 integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__, 5480 integer *ldc, doublereal *rwork, integer *info); 5481 5482 /* Subroutine */ int zcgesv_(integer *n, integer *nrhs, doublecomplex *a, 5483 integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, 5484 doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, 5485 doublereal *rwork, integer *iter, integer *info); 5486 5487 /* Subroutine */ int zcposv_(char *uplo, integer *n, integer *nrhs, 5488 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5489 doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, 5490 doublereal *rwork, integer *iter, integer *info); 5491 5492 /* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, 5493 integer *incx); 5494 5495 /* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 5496 integer *kl, integer *ku, doublecomplex *ab, integer *ldab, 5497 doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, 5498 doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc, 5499 doublecomplex *work, doublereal *rwork, integer *info); 5500 5501 /* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku, 5502 doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm, 5503 doublereal *rcond, doublecomplex *work, doublereal *rwork, integer * 5504 info); 5505 5506 /* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku, 5507 doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, 5508 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * 5509 info); 5510 5511 /* Subroutine */ int zgbequb_(integer *m, integer *n, integer *kl, integer * 5512 ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal * 5513 c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, 5514 integer *info); 5515 5516 /* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer * 5517 ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex * 5518 afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb, 5519 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 5520 doublecomplex *work, doublereal *rwork, integer *info); 5521 5522 /* Subroutine */ int zgbrfsx_(char *trans, char *equed, integer *n, integer * 5523 kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 5524 doublecomplex *afb, integer *ldafb, integer *ipiv, doublereal *r__, 5525 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x, 5526 integer *ldx, doublereal *rcond, doublereal *berr, integer * 5527 n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 5528 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 5529 work, doublereal *rwork, integer *info); 5530 5531 /* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer * 5532 nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex * 5533 b, integer *ldb, integer *info); 5534 5535 /* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl, 5536 integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 5537 doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, 5538 doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, 5539 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 5540 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 5541 info); 5542 5543 /* Subroutine */ int zgbsvxx_(char *fact, char *trans, integer *n, integer * 5544 kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 5545 doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, 5546 doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, 5547 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 5548 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 5549 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 5550 doublecomplex *work, doublereal *rwork, integer *info); 5551 5552 /* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 5553 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info); 5554 5555 /* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 5556 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info); 5557 5558 /* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer * 5559 ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, 5560 doublecomplex *b, integer *ldb, integer *info); 5561 5562 /* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo, 5563 integer *ihi, doublereal *scale, integer *m, doublecomplex *v, 5564 integer *ldv, integer *info); 5565 5566 /* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer 5567 *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info); 5568 5569 /* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a, 5570 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, 5571 doublecomplex *taup, doublecomplex *work, integer *info); 5572 5573 /* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a, 5574 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, 5575 doublecomplex *taup, doublecomplex *work, integer *lwork, integer * 5576 info); 5577 5578 /* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a, 5579 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex * 5580 work, doublereal *rwork, integer *info); 5581 5582 /* Subroutine */ int zgeequ_(integer *m, integer *n, doublecomplex *a, 5583 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 5584 doublereal *colcnd, doublereal *amax, integer *info); 5585 5586 /* Subroutine */ int zgeequb_(integer *m, integer *n, doublecomplex *a, 5587 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 5588 doublereal *colcnd, doublereal *amax, integer *info); 5589 5590 /* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n, 5591 doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, 5592 doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork, 5593 doublereal *rwork, logical *bwork, integer *info); 5594 5595 /* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char * 5596 sense, integer *n, doublecomplex *a, integer *lda, integer *sdim, 5597 doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal * 5598 rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, 5599 doublereal *rwork, logical *bwork, integer *info); 5600 5601 /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n, 5602 doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, 5603 integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, 5604 integer *lwork, doublereal *rwork, integer *info); 5605 5606 /* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char * 5607 sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w, 5608 doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 5609 integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm, 5610 doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer * 5611 lwork, doublereal *rwork, integer *info); 5612 5613 /* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n, 5614 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5615 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, 5616 integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex * 5617 work, integer *lwork, doublereal *rwork, integer *info); 5618 5619 /* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n, 5620 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5621 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer 5622 *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer 5623 *lwork, doublereal *rwork, integer *info); 5624 5625 /* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi, 5626 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 5627 work, integer *info); 5628 5629 /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi, 5630 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 5631 work, integer *lwork, integer *info); 5632 5633 /* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a, 5634 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info); 5635 5636 /* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a, 5637 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 5638 integer *info); 5639 5640 /* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer * 5641 nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5642 doublecomplex *work, integer *lwork, integer *info); 5643 5644 /* Subroutine */ int zgelsd_(integer *m, integer *n, integer *nrhs, 5645 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5646 doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, 5647 integer *lwork, doublereal *rwork, integer *iwork, integer *info); 5648 5649 /* Subroutine */ int zgelss_(integer *m, integer *n, integer *nrhs, 5650 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5651 doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, 5652 integer *lwork, doublereal *rwork, integer *info); 5653 5654 /* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs, 5655 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5656 integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, 5657 doublereal *rwork, integer *info); 5658 5659 /* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs, 5660 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5661 integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, 5662 integer *lwork, doublereal *rwork, integer *info); 5663 5664 /* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a, 5665 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info); 5666 5667 /* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a, 5668 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 5669 integer *info); 5670 5671 /* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a, 5672 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, 5673 integer *lwork, doublereal *rwork, integer *info); 5674 5675 /* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a, 5676 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, 5677 doublereal *rwork, integer *info); 5678 5679 /* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a, 5680 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info); 5681 5682 /* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a, 5683 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 5684 integer *info); 5685 5686 /* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs, 5687 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 5688 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 5689 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 5690 doublereal *rwork, integer *info); 5691 5692 /* Subroutine */ int zgerfsx_(char *trans, char *equed, integer *n, integer * 5693 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 5694 ldaf, integer *ipiv, doublereal *r__, doublereal *c__, doublecomplex * 5695 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 5696 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 5697 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 5698 doublecomplex *work, doublereal *rwork, integer *info); 5699 5700 /* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a, 5701 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info); 5702 5703 /* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a, 5704 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 5705 integer *info); 5706 5707 /* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda, 5708 doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale); 5709 5710 /* Subroutine */ int zgesdd_(char *jobz, integer *m, integer *n, 5711 doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, 5712 integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, 5713 integer *lwork, doublereal *rwork, integer *iwork, integer *info); 5714 5715 /* Subroutine */ int zgesv_(integer *n, integer *nrhs, doublecomplex *a, 5716 integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer * 5717 info); 5718 5719 /* Subroutine */ int zgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 5720 doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, 5721 integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, 5722 integer *lwork, doublereal *rwork, integer *info); 5723 5724 /* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer * 5725 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 5726 ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 5727 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 5728 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 5729 work, doublereal *rwork, integer *info); 5730 5731 /* Subroutine */ int zgesvxx_(char *fact, char *trans, integer *n, integer * 5732 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 5733 ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 5734 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 5735 doublereal *rcond, doublereal *rpvgrw, doublereal *berr, integer * 5736 n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 5737 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 5738 work, doublereal *rwork, integer *info); 5739 5740 /* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda, 5741 integer *ipiv, integer *jpiv, integer *info); 5742 5743 /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a, 5744 integer *lda, integer *ipiv, integer *info); 5745 5746 /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a, 5747 integer *lda, integer *ipiv, integer *info); 5748 5749 /* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda, 5750 integer *ipiv, doublecomplex *work, integer *lwork, integer *info); 5751 5752 /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs, 5753 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 5754 integer *ldb, integer *info); 5755 5756 /* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo, 5757 integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 5758 doublecomplex *v, integer *ldv, integer *info); 5759 5760 /* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer 5761 *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi, 5762 doublereal *lscale, doublereal *rscale, doublereal *work, integer * 5763 info); 5764 5765 /* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 5766 selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 5767 integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex * 5768 beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer 5769 *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork, 5770 logical *bwork, integer *info); 5771 5772 /* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 5773 selctg, char *sense, integer *n, doublecomplex *a, integer *lda, 5774 doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, 5775 doublecomplex *beta, doublecomplex *vsl, integer *ldvsl, 5776 doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal * 5777 rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, 5778 integer *iwork, integer *liwork, logical *bwork, integer *info); 5779 5780 /* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n, 5781 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5782 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer 5783 *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer 5784 *lwork, doublereal *rwork, integer *info); 5785 5786 /* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char * 5787 sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 5788 integer *ldb, doublecomplex *alpha, doublecomplex *beta, 5789 doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 5790 integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 5791 doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal * 5792 rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, 5793 integer *iwork, logical *bwork, integer *info); 5794 5795 /* Subroutine */ int zggglm_(integer *n, integer *m, integer *p, 5796 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5797 doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex 5798 *work, integer *lwork, integer *info); 5799 5800 /* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer * 5801 ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b, 5802 integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, 5803 integer *ldz, integer *info); 5804 5805 /* Subroutine */ int zgglse_(integer *m, integer *n, integer *p, 5806 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5807 doublecomplex *c__, doublecomplex *d__, doublecomplex *x, 5808 doublecomplex *work, integer *lwork, integer *info); 5809 5810 /* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p, 5811 doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, 5812 integer *ldb, doublecomplex *taub, doublecomplex *work, integer * 5813 lwork, integer *info); 5814 5815 /* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n, 5816 doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, 5817 integer *ldb, doublecomplex *taub, doublecomplex *work, integer * 5818 lwork, integer *info); 5819 5820 /* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 5821 integer *n, integer *p, integer *k, integer *l, doublecomplex *a, 5822 integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha, 5823 doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, 5824 integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work, 5825 doublereal *rwork, integer *iwork, integer *info); 5826 5827 /* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 5828 integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex 5829 *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, 5830 integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer 5831 *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal * 5832 rwork, doublecomplex *tau, doublecomplex *work, integer *info); 5833 5834 /* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl, 5835 doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer * 5836 ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, 5837 integer *info); 5838 5839 /* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs, 5840 doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 5841 doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, 5842 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 5843 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 5844 doublecomplex *work, doublereal *rwork, integer *info); 5845 5846 /* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, 5847 doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb, 5848 integer *info); 5849 5850 /* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer * 5851 nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 5852 doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, 5853 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 5854 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 5855 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 5856 info); 5857 5858 /* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex * 5859 d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer * 5860 info); 5861 5862 /* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs, 5863 doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 5864 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 5865 integer *info); 5866 5867 /* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs, 5868 doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 5869 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb); 5870 5871 /* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd, 5872 doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, 5873 integer *ldz, doublecomplex *work, doublereal *rwork, integer *info); 5874 5875 /* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd, 5876 doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, 5877 integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, 5878 integer *lrwork, integer *iwork, integer *liwork, integer *info); 5879 5880 /* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n, 5881 integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q, 5882 integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer * 5883 iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, 5884 integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork, 5885 integer *ifail, integer *info); 5886 5887 /* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka, 5888 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 5889 integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work, 5890 doublereal *rwork, integer *info); 5891 5892 /* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka, 5893 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 5894 integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, 5895 doublecomplex *work, doublereal *rwork, integer *info); 5896 5897 /* Subroutine */ int zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 5898 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 5899 integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, 5900 doublecomplex *work, integer *lwork, doublereal *rwork, integer * 5901 lrwork, integer *iwork, integer *liwork, integer *info); 5902 5903 /* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n, 5904 integer *ka, integer *kb, doublecomplex *ab, integer *ldab, 5905 doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq, 5906 doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal * 5907 abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, 5908 doublecomplex *work, doublereal *rwork, integer *iwork, integer * 5909 ifail, integer *info); 5910 5911 /* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd, 5912 doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, 5913 doublecomplex *q, integer *ldq, doublecomplex *work, integer *info); 5914 5915 /* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a, 5916 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, 5917 doublecomplex *work, integer *info); 5918 5919 /* Subroutine */ int zheequb_(char *uplo, integer *n, doublecomplex *a, 5920 integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 5921 doublecomplex *work, integer *info); 5922 5923 /* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex 5924 *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, 5925 doublereal *rwork, integer *info); 5926 5927 /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n, 5928 doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, 5929 integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, 5930 integer *liwork, integer *info); 5931 5932 /* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n, 5933 doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, 5934 integer *il, integer *iu, doublereal *abstol, integer *m, doublereal * 5935 w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex * 5936 work, integer *lwork, doublereal *rwork, integer *lrwork, integer * 5937 iwork, integer *liwork, integer *info); 5938 5939 /* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n, 5940 doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, 5941 integer *il, integer *iu, doublereal *abstol, integer *m, doublereal * 5942 w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer * 5943 lwork, doublereal *rwork, integer *iwork, integer *ifail, integer * 5944 info); 5945 5946 /* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n, 5947 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5948 integer *info); 5949 5950 /* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n, 5951 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5952 integer *info); 5953 5954 /* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer * 5955 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5956 doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, 5957 integer *info); 5958 5959 /* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer * 5960 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 5961 doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, 5962 integer *lrwork, integer *iwork, integer *liwork, integer *info); 5963 5964 /* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char * 5965 uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 5966 integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer * 5967 iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, 5968 integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, 5969 integer *iwork, integer *ifail, integer *info); 5970 5971 /* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs, 5972 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 5973 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 5974 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 5975 doublereal *rwork, integer *info); 5976 5977 /* Subroutine */ int zherfsx_(char *uplo, char *equed, integer *n, integer * 5978 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 5979 ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb, 5980 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr, 5981 integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 5982 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 5983 work, doublereal *rwork, integer *info); 5984 5985 /* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs, 5986 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 5987 integer *ldb, doublecomplex *work, integer *lwork, integer *info); 5988 5989 /* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer * 5990 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 5991 ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 5992 integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 5993 doublecomplex *work, integer *lwork, doublereal *rwork, integer *info); 5994 5995 /* Subroutine */ int zhesvxx_(char *fact, char *uplo, integer *n, integer * 5996 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 5997 ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b, 5998 integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 5999 doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 6000 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 6001 nparams, doublereal *params, doublecomplex *work, doublereal *rwork, 6002 integer *info); 6003 6004 /* Subroutine */ int zhetd2_(char *uplo, integer *n, doublecomplex *a, 6005 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, 6006 integer *info); 6007 6008 /* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a, 6009 integer *lda, integer *ipiv, integer *info); 6010 6011 /* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a, 6012 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, 6013 doublecomplex *work, integer *lwork, integer *info); 6014 6015 /* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a, 6016 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, 6017 integer *info); 6018 6019 /* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a, 6020 integer *lda, integer *ipiv, doublecomplex *work, integer *info); 6021 6022 /* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs, 6023 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 6024 integer *ldb, integer *info); 6025 6026 /* Subroutine */ int zhfrk_(char *transr, char *uplo, char *trans, integer *n, 6027 integer *k, doublereal *alpha, doublecomplex *a, integer *lda, 6028 doublereal *beta, doublecomplex *c__); 6029 6030 /* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n, 6031 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 6032 doublecomplex *t, integer *ldt, doublecomplex *alpha, doublecomplex * 6033 beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer * 6034 ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer * 6035 info); 6036 6037 /* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap, 6038 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex * 6039 work, integer *info); 6040 6041 /* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex 6042 *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex * 6043 work, doublereal *rwork, integer *info); 6044 6045 /* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n, 6046 doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz, 6047 doublecomplex *work, integer *lwork, doublereal *rwork, integer * 6048 lrwork, integer *iwork, integer *liwork, integer *info); 6049 6050 /* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n, 6051 doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il, 6052 integer *iu, doublereal *abstol, integer *m, doublereal *w, 6053 doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal * 6054 rwork, integer *iwork, integer *ifail, integer *info); 6055 6056 /* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n, 6057 doublecomplex *ap, doublecomplex *bp, integer *info); 6058 6059 /* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer * 6060 n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex 6061 *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer * 6062 info); 6063 6064 /* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer * 6065 n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex 6066 *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal * 6067 rwork, integer *lrwork, integer *iwork, integer *liwork, integer * 6068 info); 6069 6070 /* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char * 6071 uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal * 6072 vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, 6073 integer *m, doublereal *w, doublecomplex *z__, integer *ldz, 6074 doublecomplex *work, doublereal *rwork, integer *iwork, integer * 6075 ifail, integer *info); 6076 6077 /* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs, 6078 doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex * 6079 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 6080 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 6081 info); 6082 6083 /* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs, 6084 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 6085 integer *info); 6086 6087 /* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer * 6088 nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, 6089 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 6090 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 6091 work, doublereal *rwork, integer *info); 6092 6093 /* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap, 6094 doublereal *d__, doublereal *e, doublecomplex *tau, integer *info); 6095 6096 /* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap, 6097 integer *ipiv, integer *info); 6098 6099 /* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap, 6100 integer *ipiv, doublecomplex *work, integer *info); 6101 6102 /* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs, 6103 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 6104 integer *info); 6105 6106 /* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical * 6107 select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex * 6108 w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 6109 integer *mm, integer *m, doublecomplex *work, doublereal *rwork, 6110 integer *ifaill, integer *ifailr, integer *info); 6111 6112 /* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo, 6113 integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, 6114 doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, 6115 integer *info); 6116 6117 /* Subroutine */ int zla_gbamv__(integer *trans, integer *m, integer *n, 6118 integer *kl, integer *ku, doublereal *alpha, doublecomplex *ab, 6119 integer *ldab, doublecomplex *x, integer *incx, doublereal *beta, 6120 doublereal *y, integer *incy); 6121 6122 doublereal zla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku, 6123 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 6124 integer *ipiv, doublereal *c__, logical *capply, integer *info, 6125 doublecomplex *work, doublereal *rwork, ftnlen trans_len); 6126 6127 doublereal zla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku, 6128 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 6129 integer *ipiv, doublecomplex *x, integer *info, doublecomplex *work, 6130 doublereal *rwork, ftnlen trans_len); 6131 6132 /* Subroutine */ int zla_gbrfsx_extended__(integer *prec_type__, integer * 6133 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 6134 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 6135 integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b, 6136 integer *ldb, doublecomplex *y, integer *ldy, doublereal *berr_out__, 6137 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 6138 doublecomplex *res, doublereal *ayb, doublecomplex *dy, doublecomplex 6139 *y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 6140 doublereal *dz_ub__, logical *ignore_cwise__, integer *info); 6141 6142 doublereal zla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * 6143 ncols, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer * 6144 ldafb); 6145 6146 /* Subroutine */ int zla_geamv__(integer *trans, integer *m, integer *n, 6147 doublereal *alpha, doublecomplex *a, integer *lda, doublecomplex *x, 6148 integer *incx, doublereal *beta, doublereal *y, integer *incy); 6149 6150 doublereal zla_gercond_c__(char *trans, integer *n, doublecomplex *a, integer 6151 *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal * 6152 c__, logical *capply, integer *info, doublecomplex *work, doublereal * 6153 rwork, ftnlen trans_len); 6154 6155 doublereal zla_gercond_x__(char *trans, integer *n, doublecomplex *a, integer 6156 *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex * 6157 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 6158 trans_len); 6159 6160 /* Subroutine */ int zla_gerfsx_extended__(integer *prec_type__, integer * 6161 trans_type__, integer *n, integer *nrhs, doublecomplex *a, integer * 6162 lda, doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, 6163 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 6164 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal * 6165 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 6166 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 6167 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical * 6168 ignore_cwise__, integer *info); 6169 6170 /* Subroutine */ int zla_heamv__(integer *uplo, integer *n, doublereal *alpha, 6171 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 6172 doublereal *beta, doublereal *y, integer *incy); 6173 6174 doublereal zla_hercond_c__(char *uplo, integer *n, doublecomplex *a, integer * 6175 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__, 6176 logical *capply, integer *info, doublecomplex *work, doublereal * 6177 rwork, ftnlen uplo_len); 6178 6179 doublereal zla_hercond_x__(char *uplo, integer *n, doublecomplex *a, integer * 6180 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex * 6181 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 6182 uplo_len); 6183 6184 /* Subroutine */ int zla_herfsx_extended__(integer *prec_type__, char *uplo, 6185 integer *n, integer *nrhs, doublecomplex *a, integer *lda, 6186 doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, 6187 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 6188 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal * 6189 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 6190 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 6191 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical * 6192 ignore_cwise__, integer *info, ftnlen uplo_len); 6193 6194 doublereal zla_herpvgrw__(char *uplo, integer *n, integer *info, 6195 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 6196 integer *ipiv, doublereal *work, ftnlen uplo_len); 6197 6198 /* Subroutine */ int zla_lin_berr__(integer *n, integer *nz, integer *nrhs, 6199 doublecomplex *res, doublereal *ayb, doublereal *berr); 6200 6201 doublereal zla_porcond_c__(char *uplo, integer *n, doublecomplex *a, integer * 6202 lda, doublecomplex *af, integer *ldaf, doublereal *c__, logical * 6203 capply, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 6204 uplo_len); 6205 6206 doublereal zla_porcond_x__(char *uplo, integer *n, doublecomplex *a, integer * 6207 lda, doublecomplex *af, integer *ldaf, doublecomplex *x, integer * 6208 info, doublecomplex *work, doublereal *rwork, ftnlen uplo_len); 6209 6210 /* Subroutine */ int zla_porfsx_extended__(integer *prec_type__, char *uplo, 6211 integer *n, integer *nrhs, doublecomplex *a, integer *lda, 6212 doublecomplex *af, integer *ldaf, logical *colequ, doublereal *c__, 6213 doublecomplex *b, integer *ldb, doublecomplex *y, integer *ldy, 6214 doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__, 6215 doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 6216 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 6217 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical * 6218 ignore_cwise__, integer *info, ftnlen uplo_len); 6219 6220 doublereal zla_porpvgrw__(char *uplo, integer *ncols, doublecomplex *a, 6221 integer *lda, doublecomplex *af, integer *ldaf, doublereal *work, 6222 ftnlen uplo_len); 6223 6224 doublereal zla_rpvgrw__(integer *n, integer *ncols, doublecomplex *a, integer 6225 *lda, doublecomplex *af, integer *ldaf); 6226 6227 /* Subroutine */ int zla_syamv__(integer *uplo, integer *n, doublereal *alpha, 6228 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 6229 doublereal *beta, doublereal *y, integer *incy); 6230 6231 doublereal zla_syrcond_c__(char *uplo, integer *n, doublecomplex *a, integer * 6232 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__, 6233 logical *capply, integer *info, doublecomplex *work, doublereal * 6234 rwork, ftnlen uplo_len); 6235 6236 doublereal zla_syrcond_x__(char *uplo, integer *n, doublecomplex *a, integer * 6237 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex * 6238 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 6239 uplo_len); 6240 6241 /* Subroutine */ int zla_syrfsx_extended__(integer *prec_type__, char *uplo, 6242 integer *n, integer *nrhs, doublecomplex *a, integer *lda, 6243 doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, 6244 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 6245 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal * 6246 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 6247 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 6248 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical * 6249 ignore_cwise__, integer *info, ftnlen uplo_len); 6250 6251 doublereal zla_syrpvgrw__(char *uplo, integer *n, integer *info, 6252 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 6253 integer *ipiv, doublereal *work, ftnlen uplo_len); 6254 6255 /* Subroutine */ int zla_wwaddw__(integer *n, doublecomplex *x, doublecomplex 6256 *y, doublecomplex *w); 6257 6258 /* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb, 6259 doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, 6260 doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer * 6261 ldx, doublecomplex *y, integer *ldy); 6262 6263 /* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx); 6264 6265 /* Subroutine */ int zlacn2_(integer *n, doublecomplex *v, doublecomplex *x, 6266 doublereal *est, integer *kase, integer *isave); 6267 6268 /* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, 6269 doublereal *est, integer *kase); 6270 6271 /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal * 6272 a, integer *lda, doublecomplex *b, integer *ldb); 6273 6274 /* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n, 6275 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb); 6276 6277 /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a, 6278 integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, 6279 integer *ldc, doublereal *rwork); 6280 6281 /* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx, 6282 doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex * 6283 s); 6284 6285 /* Double Complex */ VOID zladiv_(doublecomplex * ret_val, doublecomplex *x, 6286 doublecomplex *y); 6287 6288 /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__, 6289 doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, 6290 integer *ldqs, doublereal *rwork, integer *iwork, integer *info); 6291 6292 /* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz, 6293 integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 6294 doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq, 6295 doublereal *qstore, integer *qptr, integer *prmptr, integer *perm, 6296 integer *givptr, integer *givcol, doublereal *givnum, doublecomplex * 6297 work, doublereal *rwork, integer *iwork, integer *info); 6298 6299 /* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz, 6300 doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho, 6301 integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex * 6302 q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx, 6303 integer *indxq, integer *perm, integer *givptr, integer *givcol, 6304 doublereal *givnum, integer *info); 6305 6306 /* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n, 6307 doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v, 6308 doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3, 6309 doublereal *smlnum, integer *info); 6310 6311 /* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b, 6312 doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2, 6313 doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1); 6314 6315 /* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b, 6316 doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, 6317 doublecomplex *sn1); 6318 6319 /* Subroutine */ int zlag2c_(integer *m, integer *n, doublecomplex *a, 6320 integer *lda, complex *sa, integer *ldsa, integer *info); 6321 6322 /* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex * 6323 a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3, 6324 doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex * 6325 snv, doublereal *csq, doublecomplex *snq); 6326 6327 /* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs, 6328 doublereal *alpha, doublecomplex *dl, doublecomplex *d__, 6329 doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta, 6330 doublecomplex *b, integer *ldb); 6331 6332 /* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb, 6333 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, 6334 integer *ldw, integer *info); 6335 6336 /* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n, 6337 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 6338 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 6339 integer *ldz, integer *info); 6340 6341 /* Subroutine */ int zlahr2_(integer *n, integer *k, integer *nb, 6342 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, 6343 integer *ldt, doublecomplex *y, integer *ldy); 6344 6345 /* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb, 6346 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, 6347 integer *ldt, doublecomplex *y, integer *ldy); 6348 6349 /* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x, 6350 doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal * 6351 sestpr, doublecomplex *s, doublecomplex *c__); 6352 6353 /* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr, 6354 integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb, 6355 doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr, 6356 integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, 6357 doublereal *poles, doublereal *difl, doublereal *difr, doublereal * 6358 z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork, 6359 integer *info); 6360 6361 /* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n, 6362 integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx, 6363 integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer * 6364 k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal * 6365 poles, integer *givptr, integer *givcol, integer *ldgcol, integer * 6366 perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal * 6367 rwork, integer *iwork, integer *info); 6368 6369 /* Subroutine */ int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer 6370 *nrhs, doublereal *d__, doublereal *e, doublecomplex *b, integer *ldb, 6371 doublereal *rcond, integer *rank, doublecomplex *work, doublereal * 6372 rwork, integer *iwork, integer *info); 6373 6374 doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku, 6375 doublecomplex *ab, integer *ldab, doublereal *work); 6376 6377 doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, 6378 integer *lda, doublereal *work); 6379 6380 doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex * 6381 d__, doublecomplex *du); 6382 6383 doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k, 6384 doublecomplex *ab, integer *ldab, doublereal *work); 6385 6386 doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a, 6387 integer *lda, doublereal *work); 6388 6389 doublereal zlanhf_(char *norm, char *transr, char *uplo, integer *n, 6390 doublecomplex *a, doublereal *work); 6391 6392 doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap, 6393 doublereal *work); 6394 6395 doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda, 6396 doublereal *work); 6397 6398 doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e); 6399 6400 doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k, 6401 doublecomplex *ab, integer *ldab, doublereal *work); 6402 6403 doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap, 6404 doublereal *work); 6405 6406 doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a, 6407 integer *lda, doublereal *work); 6408 6409 doublereal zlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 6410 doublecomplex *ab, integer *ldab, doublereal *work); 6411 6412 doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n, 6413 doublecomplex *ap, doublereal *work); 6414 6415 doublereal zlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 6416 doublecomplex *a, integer *lda, doublereal *work); 6417 6418 /* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx, 6419 doublecomplex *y, integer *incy, doublereal *ssmin); 6420 6421 /* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n, 6422 doublecomplex *x, integer *ldx, integer *k); 6423 6424 /* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku, 6425 doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, 6426 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed); 6427 6428 /* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a, 6429 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 6430 doublereal *colcnd, doublereal *amax, char *equed); 6431 6432 /* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd, 6433 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 6434 doublereal *amax, char *equed); 6435 6436 /* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a, 6437 integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 6438 char *equed); 6439 6440 /* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, 6441 doublereal *s, doublereal *scond, doublereal *amax, char *equed); 6442 6443 /* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset, 6444 doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, 6445 doublereal *vn1, doublereal *vn2, doublecomplex *work); 6446 6447 /* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer 6448 *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt, 6449 doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex * 6450 auxv, doublecomplex *f, integer *ldf); 6451 6452 /* Subroutine */ int zlaqr0_(logical *wantt, logical *wantz, integer *n, 6453 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 6454 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 6455 integer *ldz, doublecomplex *work, integer *lwork, integer *info); 6456 6457 /* Subroutine */ int zlaqr1_(integer *n, doublecomplex *h__, integer *ldh, 6458 doublecomplex *s1, doublecomplex *s2, doublecomplex *v); 6459 6460 /* Subroutine */ int zlaqr2_(logical *wantt, logical *wantz, integer *n, 6461 integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, 6462 integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, 6463 integer *ldz, integer *ns, integer *nd, doublecomplex *sh, 6464 doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t, 6465 integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv, 6466 doublecomplex *work, integer *lwork); 6467 6468 /* Subroutine */ int zlaqr3_(logical *wantt, logical *wantz, integer *n, 6469 integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, 6470 integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, 6471 integer *ldz, integer *ns, integer *nd, doublecomplex *sh, 6472 doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t, 6473 integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv, 6474 doublecomplex *work, integer *lwork); 6475 6476 /* Subroutine */ int zlaqr4_(logical *wantt, logical *wantz, integer *n, 6477 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 6478 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 6479 integer *ldz, doublecomplex *work, integer *lwork, integer *info); 6480 6481 /* Subroutine */ int zlaqr5_(logical *wantt, logical *wantz, integer *kacc22, 6482 integer *n, integer *ktop, integer *kbot, integer *nshfts, 6483 doublecomplex *s, doublecomplex *h__, integer *ldh, integer *iloz, 6484 integer *ihiz, doublecomplex *z__, integer *ldz, doublecomplex *v, 6485 integer *ldv, doublecomplex *u, integer *ldu, integer *nv, 6486 doublecomplex *wv, integer *ldwv, integer *nh, doublecomplex *wh, 6487 integer *ldwh); 6488 6489 /* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd, 6490 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 6491 doublereal *amax, char *equed); 6492 6493 /* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, 6494 doublereal *s, doublereal *scond, doublereal *amax, char *equed); 6495 6496 /* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a, 6497 integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 6498 char *equed); 6499 6500 /* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal 6501 *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal * 6502 lld, doublereal *pivmin, doublereal *gaptol, doublecomplex *z__, 6503 logical *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, 6504 integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid, 6505 doublereal *rqcorr, doublereal *work); 6506 6507 /* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, 6508 doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s, 6509 integer *incc); 6510 6511 /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer * 6512 lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, 6513 doublereal *rwork); 6514 6515 /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex 6516 *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer * 6517 ldc, doublecomplex *work); 6518 6519 /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char * 6520 storev, integer *m, integer *n, integer *k, doublecomplex *v, integer 6521 *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer * 6522 ldc, doublecomplex *work, integer *ldwork); 6523 6524 /* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex * 6525 x, integer *incx, doublecomplex *tau); 6526 6527 /* Subroutine */ int zlarfp_(integer *n, doublecomplex *alpha, doublecomplex * 6528 x, integer *incx, doublecomplex *tau); 6529 6530 /* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer * 6531 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex * 6532 t, integer *ldt); 6533 6534 /* Subroutine */ int zlarfx_(char *side, integer *m, integer *n, 6535 doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer * 6536 ldc, doublecomplex *work); 6537 6538 /* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx, 6539 doublecomplex *y, integer *incy, doublereal *c__, integer *incc); 6540 6541 /* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n, 6542 doublecomplex *x); 6543 6544 /* Subroutine */ int zlarrv_(integer *n, doublereal *vl, doublereal *vu, 6545 doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, 6546 integer *m, integer *dol, integer *dou, doublereal *minrgp, 6547 doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr, 6548 doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers, 6549 doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, 6550 integer *iwork, integer *info); 6551 6552 /* Subroutine */ int zlarscl2_(integer *m, integer *n, doublereal *d__, 6553 doublecomplex *x, integer *ldx); 6554 6555 /* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal * 6556 cs, doublecomplex *sn, doublecomplex *r__); 6557 6558 /* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx, 6559 doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s, 6560 integer *incc); 6561 6562 /* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l, 6563 doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex * 6564 c__, integer *ldc, doublecomplex *work); 6565 6566 /* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char * 6567 storev, integer *m, integer *n, integer *k, integer *l, doublecomplex 6568 *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, 6569 integer *ldc, doublecomplex *work, integer *ldwork); 6570 6571 /* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer * 6572 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex * 6573 t, integer *ldt); 6574 6575 /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku, 6576 doublereal *cfrom, doublereal *cto, integer *m, integer *n, 6577 doublecomplex *a, integer *lda, integer *info); 6578 6579 /* Subroutine */ int zlascl2_(integer *m, integer *n, doublereal *d__, 6580 doublecomplex *x, integer *ldx); 6581 6582 /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n, 6583 doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer * 6584 lda); 6585 6586 /* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m, 6587 integer *n, doublereal *c__, doublereal *s, doublecomplex *a, 6588 integer *lda); 6589 6590 /* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx, 6591 doublereal *scale, doublereal *sumsq); 6592 6593 /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda, 6594 integer *k1, integer *k2, integer *ipiv, integer *incx); 6595 6596 /* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb, 6597 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, 6598 integer *ldw, integer *info); 6599 6600 /* Subroutine */ int zlat2c_(char *uplo, integer *n, doublecomplex *a, 6601 integer *lda, complex *sa, integer *ldsa, integer *info); 6602 6603 /* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char * 6604 normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab, 6605 doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info); 6606 6607 /* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__, 6608 integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal * 6609 rdscal, integer *ipiv, integer *jpiv); 6610 6611 /* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char * 6612 normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal * 6613 scale, doublereal *cnorm, integer *info); 6614 6615 /* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb, 6616 doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau, 6617 doublecomplex *w, integer *ldw); 6618 6619 /* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char * 6620 normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, 6621 doublereal *scale, doublereal *cnorm, integer *info); 6622 6623 /* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l, 6624 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 6625 work); 6626 6627 /* Subroutine */ int zlatzm_(char *side, integer *m, integer *n, 6628 doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex * 6629 c1, doublecomplex *c2, integer *ldc, doublecomplex *work); 6630 6631 /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a, 6632 integer *lda, integer *info); 6633 6634 /* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a, 6635 integer *lda, integer *info); 6636 6637 /* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd, 6638 doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal * 6639 rcond, doublecomplex *work, doublereal *rwork, integer *info); 6640 6641 /* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd, 6642 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 6643 doublereal *amax, integer *info); 6644 6645 /* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer * 6646 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer * 6647 ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 6648 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * 6649 rwork, integer *info); 6650 6651 /* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd, 6652 doublecomplex *ab, integer *ldab, integer *info); 6653 6654 /* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer * 6655 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer * 6656 ldb, integer *info); 6657 6658 /* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 6659 integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, 6660 integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer 6661 *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal * 6662 ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, 6663 integer *info); 6664 6665 /* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd, 6666 doublecomplex *ab, integer *ldab, integer *info); 6667 6668 /* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd, 6669 doublecomplex *ab, integer *ldab, integer *info); 6670 6671 /* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer * 6672 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer * 6673 ldb, integer *info); 6674 6675 /* Subroutine */ int zpftrf_(char *transr, char *uplo, integer *n, 6676 doublecomplex *a, integer *info); 6677 6678 /* Subroutine */ int zpftri_(char *transr, char *uplo, integer *n, 6679 doublecomplex *a, integer *info); 6680 6681 /* Subroutine */ int zpftrs_(char *transr, char *uplo, integer *n, integer * 6682 nrhs, doublecomplex *a, doublecomplex *b, integer *ldb, integer *info); 6683 6684 /* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a, 6685 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex * 6686 work, doublereal *rwork, integer *info); 6687 6688 /* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda, 6689 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 6690 6691 /* Subroutine */ int zpoequb_(integer *n, doublecomplex *a, integer *lda, 6692 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 6693 6694 /* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs, 6695 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 6696 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 6697 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * 6698 rwork, integer *info); 6699 6700 /* Subroutine */ int zporfsx_(char *uplo, char *equed, integer *n, integer * 6701 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 6702 ldaf, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, 6703 integer *ldx, doublereal *rcond, doublereal *berr, integer * 6704 n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 6705 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 6706 work, doublereal *rwork, integer *info); 6707 6708 /* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs, 6709 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 6710 integer *info); 6711 6712 /* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer * 6713 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 6714 ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, 6715 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 6716 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 6717 info); 6718 6719 /* Subroutine */ int zposvxx_(char *fact, char *uplo, integer *n, integer * 6720 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 6721 ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, 6722 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 6723 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 6724 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 6725 doublecomplex *work, doublereal *rwork, integer *info); 6726 6727 /* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a, 6728 integer *lda, integer *info); 6729 6730 /* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a, 6731 integer *lda, integer *info); 6732 6733 /* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a, 6734 integer *lda, integer *info); 6735 6736 /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs, 6737 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 6738 integer *info); 6739 6740 /* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap, 6741 doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal 6742 *rwork, integer *info); 6743 6744 /* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap, 6745 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 6746 6747 /* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs, 6748 doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb, 6749 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 6750 doublecomplex *work, doublereal *rwork, integer *info); 6751 6752 /* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs, 6753 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info); 6754 6755 /* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer * 6756 nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal * 6757 s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 6758 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 6759 work, doublereal *rwork, integer *info); 6760 6761 /* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap, 6762 integer *info); 6763 6764 /* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap, 6765 integer *info); 6766 6767 /* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs, 6768 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info); 6769 6770 /* Subroutine */ int zpstf2_(char *uplo, integer *n, doublecomplex *a, 6771 integer *lda, integer *piv, integer *rank, doublereal *tol, 6772 doublereal *work, integer *info); 6773 6774 /* Subroutine */ int zpstrf_(char *uplo, integer *n, doublecomplex *a, 6775 integer *lda, integer *piv, integer *rank, doublereal *tol, 6776 doublereal *work, integer *info); 6777 6778 /* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e, 6779 doublereal *anorm, doublereal *rcond, doublereal *rwork, integer * 6780 info); 6781 6782 /* Subroutine */ int zpteqr_(char *compz, integer *n, doublereal *d__, 6783 doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, 6784 integer *info); 6785 6786 /* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs, 6787 doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, 6788 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 6789 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * 6790 rwork, integer *info); 6791 6792 /* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__, 6793 doublecomplex *e, doublecomplex *b, integer *ldb, integer *info); 6794 6795 /* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs, 6796 doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, 6797 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 6798 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 6799 work, doublereal *rwork, integer *info); 6800 6801 /* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e, 6802 integer *info); 6803 6804 /* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs, 6805 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, 6806 integer *info); 6807 6808 /* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs, 6809 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb); 6810 6811 /* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx, 6812 doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s); 6813 6814 /* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap, 6815 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex * 6816 work, integer *info); 6817 6818 /* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha, 6819 doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex * 6820 beta, doublecomplex *y, integer *incy); 6821 6822 /* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha, 6823 doublecomplex *x, integer *incx, doublecomplex *ap); 6824 6825 /* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs, 6826 doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex * 6827 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 6828 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 6829 info); 6830 6831 /* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs, 6832 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 6833 integer *info); 6834 6835 /* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer * 6836 nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, 6837 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 6838 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 6839 work, doublereal *rwork, integer *info); 6840 6841 /* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap, 6842 integer *ipiv, integer *info); 6843 6844 /* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap, 6845 integer *ipiv, doublecomplex *work, integer *info); 6846 6847 /* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs, 6848 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 6849 integer *info); 6850 6851 /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__, 6852 doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work, 6853 integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, 6854 integer *liwork, integer *info); 6855 6856 /* Subroutine */ int zstegr_(char *jobz, char *range, integer *n, doublereal * 6857 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 6858 integer *iu, doublereal *abstol, integer *m, doublereal *w, 6859 doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, 6860 integer *lwork, integer *iwork, integer *liwork, integer *info); 6861 6862 /* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e, 6863 integer *m, doublereal *w, integer *iblock, integer *isplit, 6864 doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork, 6865 integer *ifail, integer *info); 6866 6867 /* Subroutine */ int zstemr_(char *jobz, char *range, integer *n, doublereal * 6868 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 6869 integer *iu, integer *m, doublereal *w, doublecomplex *z__, integer * 6870 ldz, integer *nzc, integer *isuppz, logical *tryrac, doublereal *work, 6871 integer *lwork, integer *iwork, integer *liwork, integer *info); 6872 6873 /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__, 6874 doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, 6875 integer *info); 6876 6877 /* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a, 6878 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, 6879 doublecomplex *work, integer *info); 6880 6881 /* Subroutine */ int zsyequb_(char *uplo, integer *n, doublecomplex *a, 6882 integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 6883 doublecomplex *work, integer *info); 6884 6885 /* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha, 6886 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 6887 doublecomplex *beta, doublecomplex *y, integer *incy); 6888 6889 /* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha, 6890 doublecomplex *x, integer *incx, doublecomplex *a, integer *lda); 6891 6892 /* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs, 6893 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 6894 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 6895 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 6896 doublereal *rwork, integer *info); 6897 6898 /* Subroutine */ int zsyrfsx_(char *uplo, char *equed, integer *n, integer * 6899 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 6900 ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb, 6901 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr, 6902 integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 6903 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 6904 work, doublereal *rwork, integer *info); 6905 6906 /* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs, 6907 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 6908 integer *ldb, doublecomplex *work, integer *lwork, integer *info); 6909 6910 /* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer * 6911 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 6912 ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 6913 integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 6914 doublecomplex *work, integer *lwork, doublereal *rwork, integer *info); 6915 6916 /* Subroutine */ int zsysvxx_(char *fact, char *uplo, integer *n, integer * 6917 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 6918 ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b, 6919 integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 6920 doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 6921 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 6922 nparams, doublereal *params, doublecomplex *work, doublereal *rwork, 6923 integer *info); 6924 6925 /* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a, 6926 integer *lda, integer *ipiv, integer *info); 6927 6928 /* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a, 6929 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, 6930 integer *info); 6931 6932 /* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a, 6933 integer *lda, integer *ipiv, doublecomplex *work, integer *info); 6934 6935 /* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs, 6936 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 6937 integer *ldb, integer *info); 6938 6939 /* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n, 6940 integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond, 6941 doublecomplex *work, doublereal *rwork, integer *info); 6942 6943 /* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n, 6944 integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, 6945 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 6946 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * 6947 rwork, integer *info); 6948 6949 /* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n, 6950 integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, 6951 doublecomplex *b, integer *ldb, integer *info); 6952 6953 /* Subroutine */ int ztfsm_(char *transr, char *side, char *uplo, char *trans, 6954 char *diag, integer *m, integer *n, doublecomplex *alpha, 6955 doublecomplex *a, doublecomplex *b, integer *ldb); 6956 6957 /* Subroutine */ int ztftri_(char *transr, char *uplo, char *diag, integer *n, 6958 doublecomplex *a, integer *info); 6959 6960 /* Subroutine */ int ztfttp_(char *transr, char *uplo, integer *n, 6961 doublecomplex *arf, doublecomplex *ap, integer *info); 6962 6963 /* Subroutine */ int ztfttr_(char *transr, char *uplo, integer *n, 6964 doublecomplex *arf, doublecomplex *a, integer *lda, integer *info); 6965 6966 /* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select, 6967 integer *n, doublecomplex *s, integer *lds, doublecomplex *p, integer 6968 *ldp, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer * 6969 ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, 6970 integer *info); 6971 6972 /* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n, 6973 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 6974 doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, 6975 integer *j1, integer *info); 6976 6977 /* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n, 6978 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 6979 doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, 6980 integer *ifst, integer *ilst, integer *info); 6981 6982 /* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz, 6983 logical *select, integer *n, doublecomplex *a, integer *lda, 6984 doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex * 6985 beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer * 6986 ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif, 6987 doublecomplex *work, integer *lwork, integer *iwork, integer *liwork, 6988 integer *info); 6989 6990 /* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m, 6991 integer *p, integer *n, integer *k, integer *l, doublecomplex *a, 6992 integer *lda, doublecomplex *b, integer *ldb, doublereal *tola, 6993 doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex * 6994 u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q, 6995 integer *ldq, doublecomplex *work, integer *ncycle, integer *info); 6996 6997 /* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select, 6998 integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer 6999 *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer * 7000 ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m, 7001 doublecomplex *work, integer *lwork, integer *iwork, integer *info); 7002 7003 /* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer * 7004 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 7005 doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, 7006 doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, 7007 doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer * 7008 info); 7009 7010 /* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer * 7011 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 7012 doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, 7013 doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, 7014 doublereal *scale, doublereal *dif, doublecomplex *work, integer * 7015 lwork, integer *iwork, integer *info); 7016 7017 /* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n, 7018 doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal 7019 *rwork, integer *info); 7020 7021 /* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n, 7022 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, 7023 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 7024 doublecomplex *work, doublereal *rwork, integer *info); 7025 7026 /* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n, 7027 doublecomplex *ap, integer *info); 7028 7029 /* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n, 7030 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, 7031 integer *info); 7032 7033 /* Subroutine */ int ztpttf_(char *transr, char *uplo, integer *n, 7034 doublecomplex *ap, doublecomplex *arf, integer *info); 7035 7036 /* Subroutine */ int ztpttr_(char *uplo, integer *n, doublecomplex *ap, 7037 doublecomplex *a, integer *lda, integer *info); 7038 7039 /* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n, 7040 doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex * 7041 work, doublereal *rwork, integer *info); 7042 7043 /* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select, 7044 integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, 7045 integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer 7046 *m, doublecomplex *work, doublereal *rwork, integer *info); 7047 7048 /* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t, 7049 integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer * 7050 ilst, integer *info); 7051 7052 /* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n, 7053 integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, 7054 integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 7055 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 7056 info); 7057 7058 /* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer 7059 *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, 7060 doublecomplex *w, integer *m, doublereal *s, doublereal *sep, 7061 doublecomplex *work, integer *lwork, integer *info); 7062 7063 /* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select, 7064 integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, 7065 integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s, 7066 doublereal *sep, integer *mm, integer *m, doublecomplex *work, 7067 integer *ldwork, doublereal *rwork, integer *info); 7068 7069 /* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer 7070 *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 7071 integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, 7072 integer *info); 7073 7074 /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n, 7075 doublecomplex *a, integer *lda, integer *info); 7076 7077 /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n, 7078 doublecomplex *a, integer *lda, integer *info); 7079 7080 /* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n, 7081 integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, 7082 integer *ldb, integer *info); 7083 7084 /* Subroutine */ int ztrttf_(char *transr, char *uplo, integer *n, 7085 doublecomplex *a, integer *lda, doublecomplex *arf, integer *info); 7086 7087 /* Subroutine */ int ztrttp_(char *uplo, integer *n, doublecomplex *a, 7088 integer *lda, doublecomplex *ap, integer *info); 7089 7090 /* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a, 7091 integer *lda, doublecomplex *tau, integer *info); 7092 7093 /* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a, 7094 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 7095 integer *info); 7096 7097 /* Subroutine */ int zung2l_(integer *m, integer *n, integer *k, 7098 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7099 work, integer *info); 7100 7101 /* Subroutine */ int zung2r_(integer *m, integer *n, integer *k, 7102 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7103 work, integer *info); 7104 7105 /* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k, 7106 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7107 work, integer *lwork, integer *info); 7108 7109 /* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi, 7110 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7111 work, integer *lwork, integer *info); 7112 7113 /* Subroutine */ int zungl2_(integer *m, integer *n, integer *k, 7114 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7115 work, integer *info); 7116 7117 /* Subroutine */ int zunglq_(integer *m, integer *n, integer *k, 7118 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7119 work, integer *lwork, integer *info); 7120 7121 /* Subroutine */ int zungql_(integer *m, integer *n, integer *k, 7122 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7123 work, integer *lwork, integer *info); 7124 7125 /* Subroutine */ int zungqr_(integer *m, integer *n, integer *k, 7126 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7127 work, integer *lwork, integer *info); 7128 7129 /* Subroutine */ int zungr2_(integer *m, integer *n, integer *k, 7130 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7131 work, integer *info); 7132 7133 /* Subroutine */ int zungrq_(integer *m, integer *n, integer *k, 7134 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 7135 work, integer *lwork, integer *info); 7136 7137 /* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a, 7138 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 7139 integer *info); 7140 7141 /* Subroutine */ int zunm2l_(char *side, char *trans, integer *m, integer *n, 7142 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 7143 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info); 7144 7145 /* Subroutine */ int zunm2r_(char *side, char *trans, integer *m, integer *n, 7146 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 7147 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info); 7148 7149 /* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m, 7150 integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex 7151 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * 7152 lwork, integer *info); 7153 7154 /* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n, 7155 integer *ilo, integer *ihi, doublecomplex *a, integer *lda, 7156 doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex * 7157 work, integer *lwork, integer *info); 7158 7159 /* Subroutine */ int zunml2_(char *side, char *trans, integer *m, integer *n, 7160 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 7161 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info); 7162 7163 /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n, 7164 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 7165 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 7166 integer *info); 7167 7168 /* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n, 7169 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 7170 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 7171 integer *info); 7172 7173 /* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n, 7174 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 7175 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 7176 integer *info); 7177 7178 /* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n, 7179 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 7180 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info); 7181 7182 /* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n, 7183 integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex 7184 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * 7185 info); 7186 7187 /* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n, 7188 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 7189 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 7190 integer *info); 7191 7192 /* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n, 7193 integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex 7194 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * 7195 lwork, integer *info); 7196 7197 /* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m, 7198 integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, 7199 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 7200 integer *info); 7201 7202 /* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap, 7203 doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex * 7204 work, integer *info); 7205 7206 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m, 7207 integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__, 7208 integer *ldc, doublecomplex *work, integer *info); 7209 7210 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical 7211 *ieee1); 7212 7213 doublereal dsecnd_(); 7214 7215 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__, 7216 integer *vers_patch__); 7217 7218 logical lsame_(char *ca, char *cb); 7219 7220 doublereal second_(); 7221 7222 doublereal slamch_(char *cmach); 7223 7224 /* Subroutine */ int slamc1_(integer *beta, integer *t, logical *rnd, logical 7225 *ieee1); 7226 7227 /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real * 7228 eps, integer *emin, real *rmin, integer *emax, real *rmax); 7229 7230 doublereal slamc3_(real *a, real *b); 7231 7232 /* Subroutine */ int slamc4_(integer *emin, real *start, integer *base); 7233 7234 /* Subroutine */ int slamc5_(integer *beta, integer *p, integer *emin, 7235 logical *ieee, integer *emax, real *rmax); 7236 7237 7238 doublereal dlamch_(char *cmach); 7239 7240 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical 7241 *ieee1); 7242 7243 /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd, 7244 doublereal *eps, integer *emin, doublereal *rmin, integer *emax, 7245 doublereal *rmax); 7246 7247 doublereal dlamc3_(doublereal *a, doublereal *b); 7248 7249 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base); 7250 7251 /* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin, 7252 logical *ieee, integer *emax, doublereal *rmax); 7253 7254 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 7255 integer *n2, integer *n3, integer *n4); 7256 7257 #ifdef __cplusplus 7258 } 7259 #endif 7260 7261 7262 #endif /* __CLAPACK_H */ 7263