mFES - molecular Finite Element Solver
0.4
|
00001 /* header file for clapack 3.2.1 */ 00002 00003 #ifndef __CLAPACK_H 00004 #define __CLAPACK_H 00005 00006 /* Subroutine */ int caxpy_(integer *n, singlecomplex *ca, singlecomplex *cx, integer * 00007 incx, singlecomplex *cy, integer *incy); 00008 00009 /* Subroutine */ int ccopy_(integer *n, singlecomplex *cx, integer *incx, singlecomplex * 00010 cy, integer *incy); 00011 00012 /* singlecomplex */ VOID cdotc_(singlecomplex * ret_val, integer *n, singlecomplex *cx, integer 00013 *incx, singlecomplex *cy, integer *incy); 00014 00015 /* singlecomplex */ VOID cdotu_(singlecomplex * ret_val, integer *n, singlecomplex *cx, integer 00016 *incx, singlecomplex *cy, integer *incy); 00017 00018 /* Subroutine */ int cgbmv_(char *trans, integer *m, integer *n, integer *kl, 00019 integer *ku, singlecomplex *alpha, singlecomplex *a, integer *lda, singlecomplex *x, 00020 integer *incx, singlecomplex *beta, singlecomplex *y, integer *incy); 00021 00022 /* Subroutine */ int cgemm_(char *transa, char *transb, integer *m, integer * 00023 n, integer *k, singlecomplex *alpha, singlecomplex *a, integer *lda, singlecomplex *b, 00024 integer *ldb, singlecomplex *beta, singlecomplex *c__, integer *ldc); 00025 00026 /* Subroutine */ int cgemv_(char *trans, integer *m, integer *n, singlecomplex * 00027 alpha, singlecomplex *a, integer *lda, singlecomplex *x, integer *incx, singlecomplex * 00028 beta, singlecomplex *y, integer *incy); 00029 00030 /* Subroutine */ int cgerc_(integer *m, integer *n, singlecomplex *alpha, singlecomplex * 00031 x, integer *incx, singlecomplex *y, integer *incy, singlecomplex *a, integer *lda); 00032 00033 /* Subroutine */ int cgeru_(integer *m, integer *n, singlecomplex *alpha, singlecomplex * 00034 x, integer *incx, singlecomplex *y, integer *incy, singlecomplex *a, integer *lda); 00035 00036 /* Subroutine */ int chbmv_(char *uplo, integer *n, integer *k, singlecomplex * 00037 alpha, singlecomplex *a, integer *lda, singlecomplex *x, integer *incx, singlecomplex * 00038 beta, singlecomplex *y, integer *incy); 00039 00040 /* Subroutine */ int chemm_(char *side, char *uplo, integer *m, integer *n, 00041 singlecomplex *alpha, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 00042 singlecomplex *beta, singlecomplex *c__, integer *ldc); 00043 00044 /* Subroutine */ int chemv_(char *uplo, integer *n, singlecomplex *alpha, singlecomplex * 00045 a, integer *lda, singlecomplex *x, integer *incx, singlecomplex *beta, singlecomplex *y, 00046 integer *incy); 00047 00048 /* Subroutine */ int cher_(char *uplo, integer *n, real *alpha, singlecomplex *x, 00049 integer *incx, singlecomplex *a, integer *lda); 00050 00051 /* Subroutine */ int cher2_(char *uplo, integer *n, singlecomplex *alpha, singlecomplex * 00052 x, integer *incx, singlecomplex *y, integer *incy, singlecomplex *a, integer *lda); 00053 00054 /* Subroutine */ int cher2k_(char *uplo, char *trans, integer *n, integer *k, 00055 singlecomplex *alpha, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 00056 real *beta, singlecomplex *c__, integer *ldc); 00057 00058 /* Subroutine */ int cherk_(char *uplo, char *trans, integer *n, integer *k, 00059 real *alpha, singlecomplex *a, integer *lda, real *beta, singlecomplex *c__, 00060 integer *ldc); 00061 00062 /* Subroutine */ int chpmv_(char *uplo, integer *n, singlecomplex *alpha, singlecomplex * 00063 ap, singlecomplex *x, integer *incx, singlecomplex *beta, singlecomplex *y, integer * 00064 incy); 00065 00066 /* Subroutine */ int chpr_(char *uplo, integer *n, real *alpha, singlecomplex *x, 00067 integer *incx, singlecomplex *ap); 00068 00069 /* Subroutine */ int chpr2_(char *uplo, integer *n, singlecomplex *alpha, singlecomplex * 00070 x, integer *incx, singlecomplex *y, integer *incy, singlecomplex *ap); 00071 00072 /* Subroutine */ int crotg_(singlecomplex *ca, singlecomplex *cb, real *c__, singlecomplex *s); 00073 00074 /* Subroutine */ int cscal_(integer *n, singlecomplex *ca, singlecomplex *cx, integer * 00075 incx); 00076 00077 /* Subroutine */ int csrot_(integer *n, singlecomplex *cx, integer *incx, singlecomplex * 00078 cy, integer *incy, real *c__, real *s); 00079 00080 /* Subroutine */ int csscal_(integer *n, real *sa, singlecomplex *cx, integer *incx); 00081 00082 /* Subroutine */ int cswap_(integer *n, singlecomplex *cx, integer *incx, singlecomplex * 00083 cy, integer *incy); 00084 00085 /* Subroutine */ int csymm_(char *side, char *uplo, integer *m, integer *n, 00086 singlecomplex *alpha, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 00087 singlecomplex *beta, singlecomplex *c__, integer *ldc); 00088 00089 /* Subroutine */ int csyr2k_(char *uplo, char *trans, integer *n, integer *k, 00090 singlecomplex *alpha, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 00091 singlecomplex *beta, singlecomplex *c__, integer *ldc); 00092 00093 /* Subroutine */ int csyrk_(char *uplo, char *trans, integer *n, integer *k, 00094 singlecomplex *alpha, singlecomplex *a, integer *lda, singlecomplex *beta, singlecomplex *c__, 00095 integer *ldc); 00096 00097 /* Subroutine */ int ctbmv_(char *uplo, char *trans, char *diag, integer *n, 00098 integer *k, singlecomplex *a, integer *lda, singlecomplex *x, integer *incx); 00099 00100 /* Subroutine */ int ctbsv_(char *uplo, char *trans, char *diag, integer *n, 00101 integer *k, singlecomplex *a, integer *lda, singlecomplex *x, integer *incx); 00102 00103 /* Subroutine */ int ctpmv_(char *uplo, char *trans, char *diag, integer *n, 00104 singlecomplex *ap, singlecomplex *x, integer *incx); 00105 00106 /* Subroutine */ int ctpsv_(char *uplo, char *trans, char *diag, integer *n, 00107 singlecomplex *ap, singlecomplex *x, integer *incx); 00108 00109 /* Subroutine */ int ctrmm_(char *side, char *uplo, char *transa, char *diag, 00110 integer *m, integer *n, singlecomplex *alpha, singlecomplex *a, integer *lda, 00111 singlecomplex *b, integer *ldb); 00112 00113 /* Subroutine */ int ctrmv_(char *uplo, char *trans, char *diag, integer *n, 00114 singlecomplex *a, integer *lda, singlecomplex *x, integer *incx); 00115 00116 /* Subroutine */ int ctrsm_(char *side, char *uplo, char *transa, char *diag, 00117 integer *m, integer *n, singlecomplex *alpha, singlecomplex *a, integer *lda, 00118 singlecomplex *b, integer *ldb); 00119 00120 /* Subroutine */ int ctrsv_(char *uplo, char *trans, char *diag, integer *n, 00121 singlecomplex *a, integer *lda, singlecomplex *x, integer *incx); 00122 00123 doublereal dasum_(integer *n, doublereal *dx, integer *incx); 00124 00125 /* Subroutine */ int daxpy_(integer *n, doublereal *da, doublereal *dx, 00126 integer *incx, doublereal *dy, integer *incy); 00127 00128 doublereal dcabs1_(doublecomplex *z__); 00129 00130 /* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx, 00131 doublereal *dy, integer *incy); 00132 00133 doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, 00134 integer *incy); 00135 00136 /* Subroutine */ int dgbmv_(char *trans, integer *m, integer *n, integer *kl, 00137 integer *ku, doublereal *alpha, doublereal *a, integer *lda, 00138 doublereal *x, integer *incx, doublereal *beta, doublereal *y, 00139 integer *incy); 00140 00141 /* Subroutine */ int dgemm_(char *transa, char *transb, integer *m, integer * 00142 n, integer *k, doublereal *alpha, doublereal *a, integer *lda, 00143 doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, 00144 integer *ldc); 00145 00146 /* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal * 00147 alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 00148 doublereal *beta, doublereal *y, integer *incy); 00149 00150 /* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha, 00151 doublereal *x, integer *incx, doublereal *y, integer *incy, 00152 doublereal *a, integer *lda); 00153 00154 doublereal dnrm2_(integer *n, doublereal *x, integer *incx); 00155 00156 /* Subroutine */ int drot_(integer *n, doublereal *dx, integer *incx, 00157 doublereal *dy, integer *incy, doublereal *c__, doublereal *s); 00158 00159 /* Subroutine */ int drotg_(doublereal *da, doublereal *db, doublereal *c__, 00160 doublereal *s); 00161 00162 /* Subroutine */ int drotm_(integer *n, doublereal *dx, integer *incx, 00163 doublereal *dy, integer *incy, doublereal *dparam); 00164 00165 /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal * 00166 dx1, doublereal *dy1, doublereal *dparam); 00167 00168 /* Subroutine */ int dsbmv_(char *uplo, integer *n, integer *k, doublereal * 00169 alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 00170 doublereal *beta, doublereal *y, integer *incy); 00171 00172 /* Subroutine */ int dscal_(integer *n, doublereal *da, doublereal *dx, 00173 integer *incx); 00174 00175 doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer * 00176 incy); 00177 00178 /* Subroutine */ int dspmv_(char *uplo, integer *n, doublereal *alpha, 00179 doublereal *ap, doublereal *x, integer *incx, doublereal *beta, 00180 doublereal *y, integer *incy); 00181 00182 /* Subroutine */ int dspr_(char *uplo, integer *n, doublereal *alpha, 00183 doublereal *x, integer *incx, doublereal *ap); 00184 00185 /* Subroutine */ int dspr2_(char *uplo, integer *n, doublereal *alpha, 00186 doublereal *x, integer *incx, doublereal *y, integer *incy, 00187 doublereal *ap); 00188 00189 /* Subroutine */ int dswap_(integer *n, doublereal *dx, integer *incx, 00190 doublereal *dy, integer *incy); 00191 00192 /* Subroutine */ int dsymm_(char *side, char *uplo, integer *m, integer *n, 00193 doublereal *alpha, doublereal *a, integer *lda, doublereal *b, 00194 integer *ldb, doublereal *beta, doublereal *c__, integer *ldc); 00195 00196 /* Subroutine */ int dsymv_(char *uplo, integer *n, doublereal *alpha, 00197 doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal 00198 *beta, doublereal *y, integer *incy); 00199 00200 /* Subroutine */ int dsyr_(char *uplo, integer *n, doublereal *alpha, 00201 doublereal *x, integer *incx, doublereal *a, integer *lda); 00202 00203 /* Subroutine */ int dsyr2_(char *uplo, integer *n, doublereal *alpha, 00204 doublereal *x, integer *incx, doublereal *y, integer *incy, 00205 doublereal *a, integer *lda); 00206 00207 /* Subroutine */ int dsyr2k_(char *uplo, char *trans, integer *n, integer *k, 00208 doublereal *alpha, doublereal *a, integer *lda, doublereal *b, 00209 integer *ldb, doublereal *beta, doublereal *c__, integer *ldc); 00210 00211 /* Subroutine */ int dsyrk_(char *uplo, char *trans, integer *n, integer *k, 00212 doublereal *alpha, doublereal *a, integer *lda, doublereal *beta, 00213 doublereal *c__, integer *ldc); 00214 00215 /* Subroutine */ int dtbmv_(char *uplo, char *trans, char *diag, integer *n, 00216 integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx); 00217 00218 /* Subroutine */ int dtbsv_(char *uplo, char *trans, char *diag, integer *n, 00219 integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx); 00220 00221 /* Subroutine */ int dtpmv_(char *uplo, char *trans, char *diag, integer *n, 00222 doublereal *ap, doublereal *x, integer *incx); 00223 00224 /* Subroutine */ int dtpsv_(char *uplo, char *trans, char *diag, integer *n, 00225 doublereal *ap, doublereal *x, integer *incx); 00226 00227 /* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag, 00228 integer *m, integer *n, doublereal *alpha, doublereal *a, integer * 00229 lda, doublereal *b, integer *ldb); 00230 00231 /* Subroutine */ int dtrmv_(char *uplo, char *trans, char *diag, integer *n, 00232 doublereal *a, integer *lda, doublereal *x, integer *incx); 00233 00234 /* Subroutine */ int dtrsm_(char *side, char *uplo, char *transa, char *diag, 00235 integer *m, integer *n, doublereal *alpha, doublereal *a, integer * 00236 lda, doublereal *b, integer *ldb); 00237 00238 /* Subroutine */ int dtrsv_(char *uplo, char *trans, char *diag, integer *n, 00239 doublereal *a, integer *lda, doublereal *x, integer *incx); 00240 00241 doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx); 00242 00243 doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx); 00244 00245 integer icamax_(integer *n, singlecomplex *cx, integer *incx); 00246 00247 integer idamax_(integer *n, doublereal *dx, integer *incx); 00248 00249 integer isamax_(integer *n, real *sx, integer *incx); 00250 00251 integer izamax_(integer *n, doublecomplex *zx, integer *incx); 00252 00253 logical lsame_(char *ca, char *cb); 00254 00255 doublereal sasum_(integer *n, real *sx, integer *incx); 00256 00257 /* Subroutine */ int saxpy_(integer *n, real *sa, real *sx, integer *incx, 00258 real *sy, integer *incy); 00259 00260 doublereal scabs1_(singlecomplex *z__); 00261 00262 doublereal scasum_(integer *n, singlecomplex *cx, integer *incx); 00263 00264 doublereal scnrm2_(integer *n, singlecomplex *x, integer *incx); 00265 00266 /* Subroutine */ int scopy_(integer *n, real *sx, integer *incx, real *sy, 00267 integer *incy); 00268 00269 doublereal sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy); 00270 00271 doublereal sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, 00272 integer *incy); 00273 00274 /* Subroutine */ int sgbmv_(char *trans, integer *m, integer *n, integer *kl, 00275 integer *ku, real *alpha, real *a, integer *lda, real *x, integer * 00276 incx, real *beta, real *y, integer *incy); 00277 00278 /* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer * 00279 n, integer *k, real *alpha, real *a, integer *lda, real *b, integer * 00280 ldb, real *beta, real *c__, integer *ldc); 00281 00282 /* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha, 00283 real *a, integer *lda, real *x, integer *incx, real *beta, real *y, 00284 integer *incy); 00285 00286 /* Subroutine */ int sger_(integer *m, integer *n, real *alpha, real *x, 00287 integer *incx, real *y, integer *incy, real *a, integer *lda); 00288 00289 doublereal snrm2_(integer *n, real *x, integer *incx); 00290 00291 /* Subroutine */ int srot_(integer *n, real *sx, integer *incx, real *sy, 00292 integer *incy, real *c__, real *s); 00293 00294 /* Subroutine */ int srotg_(real *sa, real *sb, real *c__, real *s); 00295 00296 /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy, 00297 integer *incy, real *sparam); 00298 00299 /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real 00300 *sparam); 00301 00302 /* Subroutine */ int ssbmv_(char *uplo, integer *n, integer *k, real *alpha, 00303 real *a, integer *lda, real *x, integer *incx, real *beta, real *y, 00304 integer *incy); 00305 00306 /* Subroutine */ int sscal_(integer *n, real *sa, real *sx, integer *incx); 00307 00308 /* Subroutine */ int sspmv_(char *uplo, integer *n, real *alpha, real *ap, 00309 real *x, integer *incx, real *beta, real *y, integer *incy); 00310 00311 /* Subroutine */ int sspr_(char *uplo, integer *n, real *alpha, real *x, 00312 integer *incx, real *ap); 00313 00314 /* Subroutine */ int sspr2_(char *uplo, integer *n, real *alpha, real *x, 00315 integer *incx, real *y, integer *incy, real *ap); 00316 00317 /* Subroutine */ int sswap_(integer *n, real *sx, integer *incx, real *sy, 00318 integer *incy); 00319 00320 /* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n, 00321 real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, 00322 real *c__, integer *ldc); 00323 00324 /* Subroutine */ int ssymv_(char *uplo, integer *n, real *alpha, real *a, 00325 integer *lda, real *x, integer *incx, real *beta, real *y, integer * 00326 incy); 00327 00328 /* Subroutine */ int ssyr_(char *uplo, integer *n, real *alpha, real *x, 00329 integer *incx, real *a, integer *lda); 00330 00331 /* Subroutine */ int ssyr2_(char *uplo, integer *n, real *alpha, real *x, 00332 integer *incx, real *y, integer *incy, real *a, integer *lda); 00333 00334 /* Subroutine */ int ssyr2k_(char *uplo, char *trans, integer *n, integer *k, 00335 real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, 00336 real *c__, integer *ldc); 00337 00338 /* Subroutine */ int ssyrk_(char *uplo, char *trans, integer *n, integer *k, 00339 real *alpha, real *a, integer *lda, real *beta, real *c__, integer * 00340 ldc); 00341 00342 /* Subroutine */ int stbmv_(char *uplo, char *trans, char *diag, integer *n, 00343 integer *k, real *a, integer *lda, real *x, integer *incx); 00344 00345 /* Subroutine */ int stbsv_(char *uplo, char *trans, char *diag, integer *n, 00346 integer *k, real *a, integer *lda, real *x, integer *incx); 00347 00348 /* Subroutine */ int stpmv_(char *uplo, char *trans, char *diag, integer *n, 00349 real *ap, real *x, integer *incx); 00350 00351 /* Subroutine */ int stpsv_(char *uplo, char *trans, char *diag, integer *n, 00352 real *ap, real *x, integer *incx); 00353 00354 /* Subroutine */ int strmm_(char *side, char *uplo, char *transa, char *diag, 00355 integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, 00356 integer *ldb); 00357 00358 /* Subroutine */ int strmv_(char *uplo, char *trans, char *diag, integer *n, 00359 real *a, integer *lda, real *x, integer *incx); 00360 00361 /* Subroutine */ int strsm_(char *side, char *uplo, char *transa, char *diag, 00362 integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, 00363 integer *ldb); 00364 00365 /* Subroutine */ int strsv_(char *uplo, char *trans, char *diag, integer *n, 00366 real *a, integer *lda, real *x, integer *incx); 00367 00368 /* Subroutine */ int xerbla_(char *srname, integer *info); 00369 00370 /* Subroutine */ int xerbla_array__(char *srname_array__, integer * 00371 srname_len__, integer *info, ftnlen srname_array_len); 00372 00373 /* Subroutine */ int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx, 00374 integer *incx, doublecomplex *zy, integer *incy); 00375 00376 /* Subroutine */ int zcopy_(integer *n, doublecomplex *zx, integer *incx, 00377 doublecomplex *zy, integer *incy); 00378 00379 /* Double singlecomplex */ VOID zdotc_(doublecomplex * ret_val, integer *n, 00380 doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 00381 00382 /* Double singlecomplex */ VOID zdotu_(doublecomplex * ret_val, integer *n, 00383 doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy); 00384 00385 /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx, 00386 doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s); 00387 00388 /* Subroutine */ int zdscal_(integer *n, doublereal *da, doublecomplex *zx, 00389 integer *incx); 00390 00391 /* Subroutine */ int zgbmv_(char *trans, integer *m, integer *n, integer *kl, 00392 integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda, 00393 doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex * 00394 y, integer *incy); 00395 00396 /* Subroutine */ int zgemm_(char *transa, char *transb, integer *m, integer * 00397 n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, 00398 doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex * 00399 c__, integer *ldc); 00400 00401 /* Subroutine */ int zgemv_(char *trans, integer *m, integer *n, 00402 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 00403 x, integer *incx, doublecomplex *beta, doublecomplex *y, integer * 00404 incy); 00405 00406 /* Subroutine */ int zgerc_(integer *m, integer *n, doublecomplex *alpha, 00407 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 00408 doublecomplex *a, integer *lda); 00409 00410 /* Subroutine */ int zgeru_(integer *m, integer *n, doublecomplex *alpha, 00411 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 00412 doublecomplex *a, integer *lda); 00413 00414 /* Subroutine */ int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex 00415 *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer * 00416 incx, doublecomplex *beta, doublecomplex *y, integer *incy); 00417 00418 /* Subroutine */ int zhemm_(char *side, char *uplo, integer *m, integer *n, 00419 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 00420 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * 00421 ldc); 00422 00423 /* Subroutine */ int zhemv_(char *uplo, integer *n, doublecomplex *alpha, 00424 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 00425 doublecomplex *beta, doublecomplex *y, integer *incy); 00426 00427 /* Subroutine */ int zher_(char *uplo, integer *n, doublereal *alpha, 00428 doublecomplex *x, integer *incx, doublecomplex *a, integer *lda); 00429 00430 /* Subroutine */ int zher2_(char *uplo, integer *n, doublecomplex *alpha, 00431 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 00432 doublecomplex *a, integer *lda); 00433 00434 /* Subroutine */ int zher2k_(char *uplo, char *trans, integer *n, integer *k, 00435 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 00436 b, integer *ldb, doublereal *beta, doublecomplex *c__, integer *ldc); 00437 00438 /* Subroutine */ int zherk_(char *uplo, char *trans, integer *n, integer *k, 00439 doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta, 00440 doublecomplex *c__, integer *ldc); 00441 00442 /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, 00443 doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex * 00444 beta, doublecomplex *y, integer *incy); 00445 00446 /* Subroutine */ int zhpr_(char *uplo, integer *n, doublereal *alpha, 00447 doublecomplex *x, integer *incx, doublecomplex *ap); 00448 00449 /* Subroutine */ int zhpr2_(char *uplo, integer *n, doublecomplex *alpha, 00450 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 00451 doublecomplex *ap); 00452 00453 /* Subroutine */ int zrotg_(doublecomplex *ca, doublecomplex *cb, doublereal * 00454 c__, doublecomplex *s); 00455 00456 /* Subroutine */ int zscal_(integer *n, doublecomplex *za, doublecomplex *zx, 00457 integer *incx); 00458 00459 /* Subroutine */ int zswap_(integer *n, doublecomplex *zx, integer *incx, 00460 doublecomplex *zy, integer *incy); 00461 00462 /* Subroutine */ int zsymm_(char *side, char *uplo, integer *m, integer *n, 00463 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 00464 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * 00465 ldc); 00466 00467 /* Subroutine */ int zsyr2k_(char *uplo, char *trans, integer *n, integer *k, 00468 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 00469 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer * 00470 ldc); 00471 00472 /* Subroutine */ int zsyrk_(char *uplo, char *trans, integer *n, integer *k, 00473 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex * 00474 beta, doublecomplex *c__, integer *ldc); 00475 00476 /* Subroutine */ int ztbmv_(char *uplo, char *trans, char *diag, integer *n, 00477 integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer 00478 *incx); 00479 00480 /* Subroutine */ int ztbsv_(char *uplo, char *trans, char *diag, integer *n, 00481 integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer 00482 *incx); 00483 00484 /* Subroutine */ int ztpmv_(char *uplo, char *trans, char *diag, integer *n, 00485 doublecomplex *ap, doublecomplex *x, integer *incx); 00486 00487 /* Subroutine */ int ztpsv_(char *uplo, char *trans, char *diag, integer *n, 00488 doublecomplex *ap, doublecomplex *x, integer *incx); 00489 00490 /* Subroutine */ int ztrmm_(char *side, char *uplo, char *transa, char *diag, 00491 integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, 00492 integer *lda, doublecomplex *b, integer *ldb); 00493 00494 /* Subroutine */ int ztrmv_(char *uplo, char *trans, char *diag, integer *n, 00495 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); 00496 00497 /* Subroutine */ int ztrsm_(char *side, char *uplo, char *transa, char *diag, 00498 integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, 00499 integer *lda, doublecomplex *b, integer *ldb); 00500 00501 /* Subroutine */ int ztrsv_(char *uplo, char *trans, char *diag, integer *n, 00502 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx); 00503 00504 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer * 00505 nru, integer *ncc, real *d__, real *e, singlecomplex *vt, integer *ldvt, 00506 singlecomplex *u, integer *ldu, singlecomplex *c__, integer *ldc, real *rwork, 00507 integer *info); 00508 00509 /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 00510 integer *kl, integer *ku, singlecomplex *ab, integer *ldab, real *d__, 00511 real *e, singlecomplex *q, integer *ldq, singlecomplex *pt, integer *ldpt, 00512 singlecomplex *c__, integer *ldc, singlecomplex *work, real *rwork, integer *info); 00513 00514 /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku, 00515 singlecomplex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, 00516 singlecomplex *work, real *rwork, integer *info); 00517 00518 /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku, 00519 singlecomplex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 00520 *colcnd, real *amax, integer *info); 00521 00522 /* Subroutine */ int cgbequb_(integer *m, integer *n, integer *kl, integer * 00523 ku, singlecomplex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, 00524 real *colcnd, real *amax, integer *info); 00525 00526 /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer * 00527 ku, integer *nrhs, singlecomplex *ab, integer *ldab, singlecomplex *afb, integer * 00528 ldafb, integer *ipiv, singlecomplex *b, integer *ldb, singlecomplex *x, integer * 00529 ldx, real *ferr, real *berr, singlecomplex *work, real *rwork, integer * 00530 info); 00531 00532 /* Subroutine */ int cgbrfsx_(char *trans, char *equed, integer *n, integer * 00533 kl, integer *ku, integer *nrhs, singlecomplex *ab, integer *ldab, singlecomplex * 00534 afb, integer *ldafb, integer *ipiv, real *r__, real *c__, singlecomplex *b, 00535 integer *ldb, singlecomplex *x, integer *ldx, real *rcond, real *berr, 00536 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 00537 integer *nparams, real *params, singlecomplex *work, real *rwork, integer * 00538 info); 00539 00540 /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer * 00541 nrhs, singlecomplex *ab, integer *ldab, integer *ipiv, singlecomplex *b, integer * 00542 ldb, integer *info); 00543 00544 /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl, 00545 integer *ku, integer *nrhs, singlecomplex *ab, integer *ldab, singlecomplex *afb, 00546 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 00547 singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, real *rcond, real 00548 *ferr, real *berr, singlecomplex *work, real *rwork, integer *info); 00549 00550 /* Subroutine */ int cgbsvxx_(char *fact, char *trans, integer *n, integer * 00551 kl, integer *ku, integer *nrhs, singlecomplex *ab, integer *ldab, singlecomplex * 00552 afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 00553 singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, real *rcond, 00554 real *rpvgrw, real *berr, integer *n_err_bnds__, real * 00555 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 00556 params, singlecomplex *work, real *rwork, integer *info); 00557 00558 /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 00559 singlecomplex *ab, integer *ldab, integer *ipiv, integer *info); 00560 00561 /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 00562 singlecomplex *ab, integer *ldab, integer *ipiv, integer *info); 00563 00564 /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer * 00565 ku, integer *nrhs, singlecomplex *ab, integer *ldab, integer *ipiv, singlecomplex 00566 *b, integer *ldb, integer *info); 00567 00568 /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo, 00569 integer *ihi, real *scale, integer *m, singlecomplex *v, integer *ldv, 00570 integer *info); 00571 00572 /* Subroutine */ int cgebal_(char *job, integer *n, singlecomplex *a, integer *lda, 00573 integer *ilo, integer *ihi, real *scale, integer *info); 00574 00575 /* Subroutine */ int cgebd2_(integer *m, integer *n, singlecomplex *a, integer *lda, 00576 real *d__, real *e, singlecomplex *tauq, singlecomplex *taup, singlecomplex *work, 00577 integer *info); 00578 00579 /* Subroutine */ int cgebrd_(integer *m, integer *n, singlecomplex *a, integer *lda, 00580 real *d__, real *e, singlecomplex *tauq, singlecomplex *taup, singlecomplex *work, 00581 integer *lwork, integer *info); 00582 00583 /* Subroutine */ int cgecon_(char *norm, integer *n, singlecomplex *a, integer *lda, 00584 real *anorm, real *rcond, singlecomplex *work, real *rwork, integer *info); 00585 00586 /* Subroutine */ int cgeequ_(integer *m, integer *n, singlecomplex *a, integer *lda, 00587 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, 00588 integer *info); 00589 00590 /* Subroutine */ int cgeequb_(integer *m, integer *n, singlecomplex *a, integer * 00591 lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, 00592 integer *info); 00593 00594 /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n, 00595 singlecomplex *a, integer *lda, integer *sdim, singlecomplex *w, singlecomplex *vs, 00596 integer *ldvs, singlecomplex *work, integer *lwork, real *rwork, logical * 00597 bwork, integer *info); 00598 00599 /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char * 00600 sense, integer *n, singlecomplex *a, integer *lda, integer *sdim, singlecomplex * 00601 w, singlecomplex *vs, integer *ldvs, real *rconde, real *rcondv, singlecomplex * 00602 work, integer *lwork, real *rwork, logical *bwork, integer *info); 00603 00604 /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, singlecomplex *a, 00605 integer *lda, singlecomplex *w, singlecomplex *vl, integer *ldvl, singlecomplex *vr, 00606 integer *ldvr, singlecomplex *work, integer *lwork, real *rwork, integer * 00607 info); 00608 00609 /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char * 00610 sense, integer *n, singlecomplex *a, integer *lda, singlecomplex *w, singlecomplex *vl, 00611 integer *ldvl, singlecomplex *vr, integer *ldvr, integer *ilo, integer *ihi, 00612 real *scale, real *abnrm, real *rconde, real *rcondv, singlecomplex *work, 00613 integer *lwork, real *rwork, integer *info); 00614 00615 /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, singlecomplex * 00616 a, integer *lda, singlecomplex *b, integer *ldb, singlecomplex *alpha, singlecomplex * 00617 beta, singlecomplex *vsl, integer *ldvsl, singlecomplex *vsr, integer *ldvsr, 00618 singlecomplex *work, integer *lwork, real *rwork, integer *info); 00619 00620 /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, singlecomplex *a, 00621 integer *lda, singlecomplex *b, integer *ldb, singlecomplex *alpha, singlecomplex *beta, 00622 singlecomplex *vl, integer *ldvl, singlecomplex *vr, integer *ldvr, singlecomplex * 00623 work, integer *lwork, real *rwork, integer *info); 00624 00625 /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, singlecomplex * 00626 a, integer *lda, singlecomplex *tau, singlecomplex *work, integer *info); 00627 00628 /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, singlecomplex * 00629 a, integer *lda, singlecomplex *tau, singlecomplex *work, integer *lwork, integer 00630 *info); 00631 00632 /* Subroutine */ int cgelq2_(integer *m, integer *n, singlecomplex *a, integer *lda, 00633 singlecomplex *tau, singlecomplex *work, integer *info); 00634 00635 /* Subroutine */ int cgelqf_(integer *m, integer *n, singlecomplex *a, integer *lda, 00636 singlecomplex *tau, singlecomplex *work, integer *lwork, integer *info); 00637 00638 /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer * 00639 nrhs, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, singlecomplex * 00640 work, integer *lwork, integer *info); 00641 00642 /* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, singlecomplex * 00643 a, integer *lda, singlecomplex *b, integer *ldb, real *s, real *rcond, 00644 integer *rank, singlecomplex *work, integer *lwork, real *rwork, integer * 00645 iwork, integer *info); 00646 00647 /* Subroutine */ int cgelss_(integer *m, integer *n, integer *nrhs, singlecomplex * 00648 a, integer *lda, singlecomplex *b, integer *ldb, real *s, real *rcond, 00649 integer *rank, singlecomplex *work, integer *lwork, real *rwork, integer * 00650 info); 00651 00652 /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, singlecomplex * 00653 a, integer *lda, singlecomplex *b, integer *ldb, integer *jpvt, real *rcond, 00654 integer *rank, singlecomplex *work, real *rwork, integer *info); 00655 00656 /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, singlecomplex * 00657 a, integer *lda, singlecomplex *b, integer *ldb, integer *jpvt, real *rcond, 00658 integer *rank, singlecomplex *work, integer *lwork, real *rwork, integer * 00659 info); 00660 00661 /* Subroutine */ int cgeql2_(integer *m, integer *n, singlecomplex *a, integer *lda, 00662 singlecomplex *tau, singlecomplex *work, integer *info); 00663 00664 /* Subroutine */ int cgeqlf_(integer *m, integer *n, singlecomplex *a, integer *lda, 00665 singlecomplex *tau, singlecomplex *work, integer *lwork, integer *info); 00666 00667 /* Subroutine */ int cgeqp3_(integer *m, integer *n, singlecomplex *a, integer *lda, 00668 integer *jpvt, singlecomplex *tau, singlecomplex *work, integer *lwork, real * 00669 rwork, integer *info); 00670 00671 /* Subroutine */ int cgeqpf_(integer *m, integer *n, singlecomplex *a, integer *lda, 00672 integer *jpvt, singlecomplex *tau, singlecomplex *work, real *rwork, integer * 00673 info); 00674 00675 /* Subroutine */ int cgeqr2_(integer *m, integer *n, singlecomplex *a, integer *lda, 00676 singlecomplex *tau, singlecomplex *work, integer *info); 00677 00678 /* Subroutine */ int cgeqrf_(integer *m, integer *n, singlecomplex *a, integer *lda, 00679 singlecomplex *tau, singlecomplex *work, integer *lwork, integer *info); 00680 00681 /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, singlecomplex * 00682 a, integer *lda, singlecomplex *af, integer *ldaf, integer *ipiv, singlecomplex * 00683 b, integer *ldb, singlecomplex *x, integer *ldx, real *ferr, real *berr, 00684 singlecomplex *work, real *rwork, integer *info); 00685 00686 /* Subroutine */ int cgerfsx_(char *trans, char *equed, integer *n, integer * 00687 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 00688 ipiv, real *r__, real *c__, singlecomplex *b, integer *ldb, singlecomplex *x, 00689 integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real * 00690 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 00691 params, singlecomplex *work, real *rwork, integer *info); 00692 00693 /* Subroutine */ int cgerq2_(integer *m, integer *n, singlecomplex *a, integer *lda, 00694 singlecomplex *tau, singlecomplex *work, integer *info); 00695 00696 /* Subroutine */ int cgerqf_(integer *m, integer *n, singlecomplex *a, integer *lda, 00697 singlecomplex *tau, singlecomplex *work, integer *lwork, integer *info); 00698 00699 /* Subroutine */ int cgesc2_(integer *n, singlecomplex *a, integer *lda, singlecomplex * 00700 rhs, integer *ipiv, integer *jpiv, real *scale); 00701 00702 /* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, singlecomplex *a, 00703 integer *lda, real *s, singlecomplex *u, integer *ldu, singlecomplex *vt, integer 00704 *ldvt, singlecomplex *work, integer *lwork, real *rwork, integer *iwork, 00705 integer *info); 00706 00707 /* Subroutine */ int cgesv_(integer *n, integer *nrhs, singlecomplex *a, integer * 00708 lda, integer *ipiv, singlecomplex *b, integer *ldb, integer *info); 00709 00710 /* Subroutine */ int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 00711 singlecomplex *a, integer *lda, real *s, singlecomplex *u, integer *ldu, singlecomplex * 00712 vt, integer *ldvt, singlecomplex *work, integer *lwork, real *rwork, 00713 integer *info); 00714 00715 /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer * 00716 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 00717 ipiv, char *equed, real *r__, real *c__, singlecomplex *b, integer *ldb, 00718 singlecomplex *x, integer *ldx, real *rcond, real *ferr, real *berr, 00719 singlecomplex *work, real *rwork, integer *info); 00720 00721 /* Subroutine */ int cgesvxx_(char *fact, char *trans, integer *n, integer * 00722 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 00723 ipiv, char *equed, real *r__, real *c__, singlecomplex *b, integer *ldb, 00724 singlecomplex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, 00725 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 00726 integer *nparams, real *params, singlecomplex *work, real *rwork, integer * 00727 info); 00728 00729 /* Subroutine */ int cgetc2_(integer *n, singlecomplex *a, integer *lda, integer * 00730 ipiv, integer *jpiv, integer *info); 00731 00732 /* Subroutine */ int cgetf2_(integer *m, integer *n, singlecomplex *a, integer *lda, 00733 integer *ipiv, integer *info); 00734 00735 /* Subroutine */ int cgetrf_(integer *m, integer *n, singlecomplex *a, integer *lda, 00736 integer *ipiv, integer *info); 00737 00738 /* Subroutine */ int cgetri_(integer *n, singlecomplex *a, integer *lda, integer * 00739 ipiv, singlecomplex *work, integer *lwork, integer *info); 00740 00741 /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, singlecomplex * 00742 a, integer *lda, integer *ipiv, singlecomplex *b, integer *ldb, integer * 00743 info); 00744 00745 /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo, 00746 integer *ihi, real *lscale, real *rscale, integer *m, singlecomplex *v, 00747 integer *ldv, integer *info); 00748 00749 /* Subroutine */ int cggbal_(char *job, integer *n, singlecomplex *a, integer *lda, 00750 singlecomplex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, 00751 real *rscale, real *work, integer *info); 00752 00753 /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 00754 selctg, integer *n, singlecomplex *a, integer *lda, singlecomplex *b, integer * 00755 ldb, integer *sdim, singlecomplex *alpha, singlecomplex *beta, singlecomplex *vsl, 00756 integer *ldvsl, singlecomplex *vsr, integer *ldvsr, singlecomplex *work, integer * 00757 lwork, real *rwork, logical *bwork, integer *info); 00758 00759 /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 00760 selctg, char *sense, integer *n, singlecomplex *a, integer *lda, singlecomplex *b, 00761 integer *ldb, integer *sdim, singlecomplex *alpha, singlecomplex *beta, singlecomplex * 00762 vsl, integer *ldvsl, singlecomplex *vsr, integer *ldvsr, real *rconde, real 00763 *rcondv, singlecomplex *work, integer *lwork, real *rwork, integer *iwork, 00764 integer *liwork, logical *bwork, integer *info); 00765 00766 /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, singlecomplex *a, 00767 integer *lda, singlecomplex *b, integer *ldb, singlecomplex *alpha, singlecomplex *beta, 00768 singlecomplex *vl, integer *ldvl, singlecomplex *vr, integer *ldvr, singlecomplex * 00769 work, integer *lwork, real *rwork, integer *info); 00770 00771 /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char * 00772 sense, integer *n, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 00773 singlecomplex *alpha, singlecomplex *beta, singlecomplex *vl, integer *ldvl, singlecomplex * 00774 vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real * 00775 rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, singlecomplex 00776 *work, integer *lwork, real *rwork, integer *iwork, logical *bwork, 00777 integer *info); 00778 00779 /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, singlecomplex *a, 00780 integer *lda, singlecomplex *b, integer *ldb, singlecomplex *d__, singlecomplex *x, 00781 singlecomplex *y, singlecomplex *work, integer *lwork, integer *info); 00782 00783 /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer * 00784 ilo, integer *ihi, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 00785 singlecomplex *q, integer *ldq, singlecomplex *z__, integer *ldz, integer *info); 00786 00787 /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, singlecomplex *a, 00788 integer *lda, singlecomplex *b, integer *ldb, singlecomplex *c__, singlecomplex *d__, 00789 singlecomplex *x, singlecomplex *work, integer *lwork, integer *info); 00790 00791 /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, singlecomplex *a, 00792 integer *lda, singlecomplex *taua, singlecomplex *b, integer *ldb, singlecomplex *taub, 00793 singlecomplex *work, integer *lwork, integer *info); 00794 00795 /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, singlecomplex *a, 00796 integer *lda, singlecomplex *taua, singlecomplex *b, integer *ldb, singlecomplex *taub, 00797 singlecomplex *work, integer *lwork, integer *info); 00798 00799 /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 00800 integer *n, integer *p, integer *k, integer *l, singlecomplex *a, integer * 00801 lda, singlecomplex *b, integer *ldb, real *alpha, real *beta, singlecomplex *u, 00802 integer *ldu, singlecomplex *v, integer *ldv, singlecomplex *q, integer *ldq, 00803 singlecomplex *work, real *rwork, integer *iwork, integer *info); 00804 00805 /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 00806 integer *p, integer *n, singlecomplex *a, integer *lda, singlecomplex *b, integer 00807 *ldb, real *tola, real *tolb, integer *k, integer *l, singlecomplex *u, 00808 integer *ldu, singlecomplex *v, integer *ldv, singlecomplex *q, integer *ldq, 00809 integer *iwork, real *rwork, singlecomplex *tau, singlecomplex *work, integer * 00810 info); 00811 00812 /* Subroutine */ int cgtcon_(char *norm, integer *n, singlecomplex *dl, singlecomplex * 00813 d__, singlecomplex *du, singlecomplex *du2, integer *ipiv, real *anorm, real * 00814 rcond, singlecomplex *work, integer *info); 00815 00816 /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, singlecomplex * 00817 dl, singlecomplex *d__, singlecomplex *du, singlecomplex *dlf, singlecomplex *df, singlecomplex * 00818 duf, singlecomplex *du2, integer *ipiv, singlecomplex *b, integer *ldb, singlecomplex * 00819 x, integer *ldx, real *ferr, real *berr, singlecomplex *work, real *rwork, 00820 integer *info); 00821 00822 /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, singlecomplex *dl, singlecomplex * 00823 d__, singlecomplex *du, singlecomplex *b, integer *ldb, integer *info); 00824 00825 /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer * 00826 nrhs, singlecomplex *dl, singlecomplex *d__, singlecomplex *du, singlecomplex *dlf, singlecomplex * 00827 df, singlecomplex *duf, singlecomplex *du2, integer *ipiv, singlecomplex *b, integer * 00828 ldb, singlecomplex *x, integer *ldx, real *rcond, real *ferr, real *berr, 00829 singlecomplex *work, real *rwork, integer *info); 00830 00831 /* Subroutine */ int cgttrf_(integer *n, singlecomplex *dl, singlecomplex *d__, singlecomplex * 00832 du, singlecomplex *du2, integer *ipiv, integer *info); 00833 00834 /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, singlecomplex * 00835 dl, singlecomplex *d__, singlecomplex *du, singlecomplex *du2, integer *ipiv, singlecomplex * 00836 b, integer *ldb, integer *info); 00837 00838 /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs, 00839 singlecomplex *dl, singlecomplex *d__, singlecomplex *du, singlecomplex *du2, integer *ipiv, 00840 singlecomplex *b, integer *ldb); 00841 00842 /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd, 00843 singlecomplex *ab, integer *ldab, real *w, singlecomplex *z__, integer *ldz, 00844 singlecomplex *work, real *rwork, integer *info); 00845 00846 /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd, 00847 singlecomplex *ab, integer *ldab, real *w, singlecomplex *z__, integer *ldz, 00848 singlecomplex *work, integer *lwork, real *rwork, integer *lrwork, integer * 00849 iwork, integer *liwork, integer *info); 00850 00851 /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n, 00852 integer *kd, singlecomplex *ab, integer *ldab, singlecomplex *q, integer *ldq, 00853 real *vl, real *vu, integer *il, integer *iu, real *abstol, integer * 00854 m, real *w, singlecomplex *z__, integer *ldz, singlecomplex *work, real *rwork, 00855 integer *iwork, integer *ifail, integer *info); 00856 00857 /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka, 00858 integer *kb, singlecomplex *ab, integer *ldab, singlecomplex *bb, integer *ldbb, 00859 singlecomplex *x, integer *ldx, singlecomplex *work, real *rwork, integer *info); 00860 00861 /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka, 00862 integer *kb, singlecomplex *ab, integer *ldab, singlecomplex *bb, integer *ldbb, 00863 real *w, singlecomplex *z__, integer *ldz, singlecomplex *work, real *rwork, 00864 integer *info); 00865 00866 /* Subroutine */ int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 00867 integer *kb, singlecomplex *ab, integer *ldab, singlecomplex *bb, integer *ldbb, 00868 real *w, singlecomplex *z__, integer *ldz, singlecomplex *work, integer *lwork, 00869 real *rwork, integer *lrwork, integer *iwork, integer *liwork, 00870 integer *info); 00871 00872 /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n, 00873 integer *ka, integer *kb, singlecomplex *ab, integer *ldab, singlecomplex *bb, 00874 integer *ldbb, singlecomplex *q, integer *ldq, real *vl, real *vu, integer * 00875 il, integer *iu, real *abstol, integer *m, real *w, singlecomplex *z__, 00876 integer *ldz, singlecomplex *work, real *rwork, integer *iwork, integer * 00877 ifail, integer *info); 00878 00879 /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd, 00880 singlecomplex *ab, integer *ldab, real *d__, real *e, singlecomplex *q, integer * 00881 ldq, singlecomplex *work, integer *info); 00882 00883 /* Subroutine */ int checon_(char *uplo, integer *n, singlecomplex *a, integer *lda, 00884 integer *ipiv, real *anorm, real *rcond, singlecomplex *work, integer * 00885 info); 00886 00887 /* Subroutine */ int cheequb_(char *uplo, integer *n, singlecomplex *a, integer * 00888 lda, real *s, real *scond, real *amax, singlecomplex *work, integer *info); 00889 00890 /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, singlecomplex *a, 00891 integer *lda, real *w, singlecomplex *work, integer *lwork, real *rwork, 00892 integer *info); 00893 00894 /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, singlecomplex *a, 00895 integer *lda, real *w, singlecomplex *work, integer *lwork, real *rwork, 00896 integer *lrwork, integer *iwork, integer *liwork, integer *info); 00897 00898 /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n, 00899 singlecomplex *a, integer *lda, real *vl, real *vu, integer *il, integer * 00900 iu, real *abstol, integer *m, real *w, singlecomplex *z__, integer *ldz, 00901 integer *isuppz, singlecomplex *work, integer *lwork, real *rwork, integer * 00902 lrwork, integer *iwork, integer *liwork, integer *info); 00903 00904 /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n, 00905 singlecomplex *a, integer *lda, real *vl, real *vu, integer *il, integer * 00906 iu, real *abstol, integer *m, real *w, singlecomplex *z__, integer *ldz, 00907 singlecomplex *work, integer *lwork, real *rwork, integer *iwork, integer * 00908 ifail, integer *info); 00909 00910 /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, singlecomplex * 00911 a, integer *lda, singlecomplex *b, integer *ldb, integer *info); 00912 00913 /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, singlecomplex * 00914 a, integer *lda, singlecomplex *b, integer *ldb, integer *info); 00915 00916 /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer * 00917 n, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, real *w, 00918 singlecomplex *work, integer *lwork, real *rwork, integer *info); 00919 00920 /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer * 00921 n, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, real *w, 00922 singlecomplex *work, integer *lwork, real *rwork, integer *lrwork, integer * 00923 iwork, integer *liwork, integer *info); 00924 00925 /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char * 00926 uplo, integer *n, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 00927 real *vl, real *vu, integer *il, integer *iu, real *abstol, integer * 00928 m, real *w, singlecomplex *z__, integer *ldz, singlecomplex *work, integer *lwork, 00929 real *rwork, integer *iwork, integer *ifail, integer *info); 00930 00931 /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 00932 a, integer *lda, singlecomplex *af, integer *ldaf, integer *ipiv, singlecomplex * 00933 b, integer *ldb, singlecomplex *x, integer *ldx, real *ferr, real *berr, 00934 singlecomplex *work, real *rwork, integer *info); 00935 00936 /* Subroutine */ int cherfsx_(char *uplo, char *equed, integer *n, integer * 00937 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 00938 ipiv, real *s, singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, 00939 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 00940 real *err_bnds_comp__, integer *nparams, real *params, singlecomplex *work, 00941 real *rwork, integer *info); 00942 00943 /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, singlecomplex *a, 00944 integer *lda, integer *ipiv, singlecomplex *b, integer *ldb, singlecomplex *work, 00945 integer *lwork, integer *info); 00946 00947 /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer * 00948 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 00949 ipiv, singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, real *rcond, 00950 real *ferr, real *berr, singlecomplex *work, integer *lwork, real *rwork, 00951 integer *info); 00952 00953 /* Subroutine */ int chesvxx_(char *fact, char *uplo, integer *n, integer * 00954 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 00955 ipiv, char *equed, real *s, singlecomplex *b, integer *ldb, singlecomplex *x, 00956 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * 00957 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * 00958 nparams, real *params, singlecomplex *work, real *rwork, integer *info); 00959 00960 /* Subroutine */ int chetd2_(char *uplo, integer *n, singlecomplex *a, integer *lda, 00961 real *d__, real *e, singlecomplex *tau, integer *info); 00962 00963 /* Subroutine */ int chetf2_(char *uplo, integer *n, singlecomplex *a, integer *lda, 00964 integer *ipiv, integer *info); 00965 00966 /* Subroutine */ int chetrd_(char *uplo, integer *n, singlecomplex *a, integer *lda, 00967 real *d__, real *e, singlecomplex *tau, singlecomplex *work, integer *lwork, 00968 integer *info); 00969 00970 /* Subroutine */ int chetrf_(char *uplo, integer *n, singlecomplex *a, integer *lda, 00971 integer *ipiv, singlecomplex *work, integer *lwork, integer *info); 00972 00973 /* Subroutine */ int chetri_(char *uplo, integer *n, singlecomplex *a, integer *lda, 00974 integer *ipiv, singlecomplex *work, integer *info); 00975 00976 /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 00977 a, integer *lda, integer *ipiv, singlecomplex *b, integer *ldb, integer * 00978 info); 00979 00980 /* Subroutine */ int chfrk_(char *transr, char *uplo, char *trans, integer *n, 00981 integer *k, real *alpha, singlecomplex *a, integer *lda, real *beta, 00982 singlecomplex *c__); 00983 00984 /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n, 00985 integer *ilo, integer *ihi, singlecomplex *h__, integer *ldh, singlecomplex *t, 00986 integer *ldt, singlecomplex *alpha, singlecomplex *beta, singlecomplex *q, integer *ldq, 00987 singlecomplex *z__, integer *ldz, singlecomplex *work, integer *lwork, real * 00988 rwork, integer *info); 00989 00990 /* Character */ VOID chla_transtype__(char *ret_val, ftnlen ret_val_len, 00991 integer *trans); 00992 00993 /* Subroutine */ int chpcon_(char *uplo, integer *n, singlecomplex *ap, integer * 00994 ipiv, real *anorm, real *rcond, singlecomplex *work, integer *info); 00995 00996 /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, singlecomplex *ap, 00997 real *w, singlecomplex *z__, integer *ldz, singlecomplex *work, real *rwork, 00998 integer *info); 00999 01000 /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, singlecomplex *ap, 01001 real *w, singlecomplex *z__, integer *ldz, singlecomplex *work, integer *lwork, 01002 real *rwork, integer *lrwork, integer *iwork, integer *liwork, 01003 integer *info); 01004 01005 /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n, 01006 singlecomplex *ap, real *vl, real *vu, integer *il, integer *iu, real * 01007 abstol, integer *m, real *w, singlecomplex *z__, integer *ldz, singlecomplex * 01008 work, real *rwork, integer *iwork, integer *ifail, integer *info); 01009 01010 /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, singlecomplex * 01011 ap, singlecomplex *bp, integer *info); 01012 01013 /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer * 01014 n, singlecomplex *ap, singlecomplex *bp, real *w, singlecomplex *z__, integer *ldz, 01015 singlecomplex *work, real *rwork, integer *info); 01016 01017 /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer * 01018 n, singlecomplex *ap, singlecomplex *bp, real *w, singlecomplex *z__, integer *ldz, 01019 singlecomplex *work, integer *lwork, real *rwork, integer *lrwork, integer * 01020 iwork, integer *liwork, integer *info); 01021 01022 /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char * 01023 uplo, integer *n, singlecomplex *ap, singlecomplex *bp, real *vl, real *vu, 01024 integer *il, integer *iu, real *abstol, integer *m, real *w, singlecomplex * 01025 z__, integer *ldz, singlecomplex *work, real *rwork, integer *iwork, 01026 integer *ifail, integer *info); 01027 01028 /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01029 ap, singlecomplex *afp, integer *ipiv, singlecomplex *b, integer *ldb, singlecomplex *x, 01030 integer *ldx, real *ferr, real *berr, singlecomplex *work, real *rwork, 01031 integer *info); 01032 01033 /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01034 ap, integer *ipiv, singlecomplex *b, integer *ldb, integer *info); 01035 01036 /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer * 01037 nrhs, singlecomplex *ap, singlecomplex *afp, integer *ipiv, singlecomplex *b, integer * 01038 ldb, singlecomplex *x, integer *ldx, real *rcond, real *ferr, real *berr, 01039 singlecomplex *work, real *rwork, integer *info); 01040 01041 /* Subroutine */ int chptrd_(char *uplo, integer *n, singlecomplex *ap, real *d__, 01042 real *e, singlecomplex *tau, integer *info); 01043 01044 /* Subroutine */ int chptrf_(char *uplo, integer *n, singlecomplex *ap, integer * 01045 ipiv, integer *info); 01046 01047 /* Subroutine */ int chptri_(char *uplo, integer *n, singlecomplex *ap, integer * 01048 ipiv, singlecomplex *work, integer *info); 01049 01050 /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01051 ap, integer *ipiv, singlecomplex *b, integer *ldb, integer *info); 01052 01053 /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical * 01054 select, integer *n, singlecomplex *h__, integer *ldh, singlecomplex *w, singlecomplex * 01055 vl, integer *ldvl, singlecomplex *vr, integer *ldvr, integer *mm, integer * 01056 m, singlecomplex *work, real *rwork, integer *ifaill, integer *ifailr, 01057 integer *info); 01058 01059 /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo, 01060 integer *ihi, singlecomplex *h__, integer *ldh, singlecomplex *w, singlecomplex *z__, 01061 integer *ldz, singlecomplex *work, integer *lwork, integer *info); 01062 01063 /* Subroutine */ int cla_gbamv__(integer *trans, integer *m, integer *n, 01064 integer *kl, integer *ku, real *alpha, singlecomplex *ab, integer *ldab, 01065 singlecomplex *x, integer *incx, real *beta, real *y, integer *incy); 01066 01067 doublereal cla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku, 01068 singlecomplex *ab, integer *ldab, singlecomplex *afb, integer *ldafb, integer * 01069 ipiv, real *c__, logical *capply, integer *info, singlecomplex *work, real * 01070 rwork, ftnlen trans_len); 01071 01072 doublereal cla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku, 01073 singlecomplex *ab, integer *ldab, singlecomplex *afb, integer *ldafb, integer * 01074 ipiv, singlecomplex *x, integer *info, singlecomplex *work, real *rwork, ftnlen 01075 trans_len); 01076 01077 /* Subroutine */ int cla_gbrfsx_extended__(integer *prec_type__, integer * 01078 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 01079 singlecomplex *ab, integer *ldab, singlecomplex *afb, integer *ldafb, integer * 01080 ipiv, logical *colequ, real *c__, singlecomplex *b, integer *ldb, singlecomplex * 01081 y, integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__, 01082 real *errs_c__, singlecomplex *res, real *ayb, singlecomplex *dy, singlecomplex * 01083 y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__, 01084 logical *ignore_cwise__, integer *info); 01085 01086 doublereal cla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * 01087 ncols, singlecomplex *ab, integer *ldab, singlecomplex *afb, integer *ldafb); 01088 01089 /* Subroutine */ int cla_geamv__(integer *trans, integer *m, integer *n, real 01090 *alpha, singlecomplex *a, integer *lda, singlecomplex *x, integer *incx, real * 01091 beta, real *y, integer *incy); 01092 01093 doublereal cla_gercond_c__(char *trans, integer *n, singlecomplex *a, integer *lda, 01094 singlecomplex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply, 01095 integer *info, singlecomplex *work, real *rwork, ftnlen trans_len); 01096 01097 doublereal cla_gercond_x__(char *trans, integer *n, singlecomplex *a, integer *lda, 01098 singlecomplex *af, integer *ldaf, integer *ipiv, singlecomplex *x, integer *info, 01099 singlecomplex *work, real *rwork, ftnlen trans_len); 01100 01101 /* Subroutine */ int cla_gerfsx_extended__(integer *prec_type__, integer * 01102 trans_type__, integer *n, integer *nrhs, singlecomplex *a, integer *lda, 01103 singlecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, 01104 singlecomplex *b, integer *ldb, singlecomplex *y, integer *ldy, real *berr_out__, 01105 integer *n_norms__, real *errs_n__, real *errs_c__, singlecomplex *res, 01106 real *ayb, singlecomplex *dy, singlecomplex *y_tail__, real *rcond, integer * 01107 ithresh, real *rthresh, real *dz_ub__, logical *ignore_cwise__, 01108 integer *info); 01109 01110 /* Subroutine */ int cla_heamv__(integer *uplo, integer *n, real *alpha, 01111 singlecomplex *a, integer *lda, singlecomplex *x, integer *incx, real *beta, real 01112 *y, integer *incy); 01113 01114 doublereal cla_hercond_c__(char *uplo, integer *n, singlecomplex *a, integer *lda, 01115 singlecomplex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply, 01116 integer *info, singlecomplex *work, real *rwork, ftnlen uplo_len); 01117 01118 doublereal cla_hercond_x__(char *uplo, integer *n, singlecomplex *a, integer *lda, 01119 singlecomplex *af, integer *ldaf, integer *ipiv, singlecomplex *x, integer *info, 01120 singlecomplex *work, real *rwork, ftnlen uplo_len); 01121 01122 /* Subroutine */ int cla_herfsx_extended__(integer *prec_type__, char *uplo, 01123 integer *n, integer *nrhs, singlecomplex *a, integer *lda, singlecomplex *af, 01124 integer *ldaf, integer *ipiv, logical *colequ, real *c__, singlecomplex *b, 01125 integer *ldb, singlecomplex *y, integer *ldy, real *berr_out__, integer * 01126 n_norms__, real *errs_n__, real *errs_c__, singlecomplex *res, real *ayb, 01127 singlecomplex *dy, singlecomplex *y_tail__, real *rcond, integer *ithresh, real * 01128 rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info, 01129 ftnlen uplo_len); 01130 01131 doublereal cla_herpvgrw__(char *uplo, integer *n, integer *info, singlecomplex *a, 01132 integer *lda, singlecomplex *af, integer *ldaf, integer *ipiv, real *work, 01133 ftnlen uplo_len); 01134 01135 /* Subroutine */ int cla_lin_berr__(integer *n, integer *nz, integer *nrhs, 01136 singlecomplex *res, real *ayb, real *berr); 01137 01138 doublereal cla_porcond_c__(char *uplo, integer *n, singlecomplex *a, integer *lda, 01139 singlecomplex *af, integer *ldaf, real *c__, logical *capply, integer *info, 01140 singlecomplex *work, real *rwork, ftnlen uplo_len); 01141 01142 doublereal cla_porcond_x__(char *uplo, integer *n, singlecomplex *a, integer *lda, 01143 singlecomplex *af, integer *ldaf, singlecomplex *x, integer *info, singlecomplex *work, 01144 real *rwork, ftnlen uplo_len); 01145 01146 /* Subroutine */ int cla_porfsx_extended__(integer *prec_type__, char *uplo, 01147 integer *n, integer *nrhs, singlecomplex *a, integer *lda, singlecomplex *af, 01148 integer *ldaf, logical *colequ, real *c__, singlecomplex *b, integer *ldb, 01149 singlecomplex *y, integer *ldy, real *berr_out__, integer *n_norms__, real * 01150 errs_n__, real *errs_c__, singlecomplex *res, real *ayb, singlecomplex *dy, 01151 singlecomplex *y_tail__, real *rcond, integer *ithresh, real *rthresh, real 01152 *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen uplo_len); 01153 01154 doublereal cla_porpvgrw__(char *uplo, integer *ncols, singlecomplex *a, integer * 01155 lda, singlecomplex *af, integer *ldaf, real *work, ftnlen uplo_len); 01156 01157 doublereal cla_rpvgrw__(integer *n, integer *ncols, singlecomplex *a, integer *lda, 01158 singlecomplex *af, integer *ldaf); 01159 01160 /* Subroutine */ int cla_syamv__(integer *uplo, integer *n, real *alpha, 01161 singlecomplex *a, integer *lda, singlecomplex *x, integer *incx, real *beta, real 01162 *y, integer *incy); 01163 01164 doublereal cla_syrcond_c__(char *uplo, integer *n, singlecomplex *a, integer *lda, 01165 singlecomplex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply, 01166 integer *info, singlecomplex *work, real *rwork, ftnlen uplo_len); 01167 01168 doublereal cla_syrcond_x__(char *uplo, integer *n, singlecomplex *a, integer *lda, 01169 singlecomplex *af, integer *ldaf, integer *ipiv, singlecomplex *x, integer *info, 01170 singlecomplex *work, real *rwork, ftnlen uplo_len); 01171 01172 /* Subroutine */ int cla_syrfsx_extended__(integer *prec_type__, char *uplo, 01173 integer *n, integer *nrhs, singlecomplex *a, integer *lda, singlecomplex *af, 01174 integer *ldaf, integer *ipiv, logical *colequ, real *c__, singlecomplex *b, 01175 integer *ldb, singlecomplex *y, integer *ldy, real *berr_out__, integer * 01176 n_norms__, real *errs_n__, real *errs_c__, singlecomplex *res, real *ayb, 01177 singlecomplex *dy, singlecomplex *y_tail__, real *rcond, integer *ithresh, real * 01178 rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info, 01179 ftnlen uplo_len); 01180 01181 doublereal cla_syrpvgrw__(char *uplo, integer *n, integer *info, singlecomplex *a, 01182 integer *lda, singlecomplex *af, integer *ldaf, integer *ipiv, real *work, 01183 ftnlen uplo_len); 01184 01185 /* Subroutine */ int cla_wwaddw__(integer *n, singlecomplex *x, singlecomplex *y, singlecomplex 01186 *w); 01187 01188 /* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, singlecomplex *a, 01189 integer *lda, real *d__, real *e, singlecomplex *tauq, singlecomplex *taup, 01190 singlecomplex *x, integer *ldx, singlecomplex *y, integer *ldy); 01191 01192 /* Subroutine */ int clacgv_(integer *n, singlecomplex *x, integer *incx); 01193 01194 /* Subroutine */ int clacn2_(integer *n, singlecomplex *v, singlecomplex *x, real *est, 01195 integer *kase, integer *isave); 01196 01197 /* Subroutine */ int clacon_(integer *n, singlecomplex *v, singlecomplex *x, real *est, 01198 integer *kase); 01199 01200 /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a, 01201 integer *lda, singlecomplex *b, integer *ldb); 01202 01203 /* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, singlecomplex *a, 01204 integer *lda, singlecomplex *b, integer *ldb); 01205 01206 /* Subroutine */ int clacrm_(integer *m, integer *n, singlecomplex *a, integer *lda, 01207 real *b, integer *ldb, singlecomplex *c__, integer *ldc, real *rwork); 01208 01209 /* Subroutine */ int clacrt_(integer *n, singlecomplex *cx, integer *incx, singlecomplex * 01210 cy, integer *incy, singlecomplex *c__, singlecomplex *s); 01211 01212 /* singlecomplex */ VOID cladiv_(singlecomplex * ret_val, singlecomplex *x, singlecomplex *y); 01213 01214 /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e, 01215 singlecomplex *q, integer *ldq, singlecomplex *qstore, integer *ldqs, real *rwork, 01216 integer *iwork, integer *info); 01217 01218 /* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz, 01219 integer *tlvls, integer *curlvl, integer *curpbm, real *d__, singlecomplex * 01220 q, integer *ldq, real *rho, integer *indxq, real *qstore, integer * 01221 qptr, integer *prmptr, integer *perm, integer *givptr, integer * 01222 givcol, real *givnum, singlecomplex *work, real *rwork, integer *iwork, 01223 integer *info); 01224 01225 /* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, singlecomplex * 01226 q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__, 01227 real *dlamda, singlecomplex *q2, integer *ldq2, real *w, integer *indxp, 01228 integer *indx, integer *indxq, integer *perm, integer *givptr, 01229 integer *givcol, real *givnum, integer *info); 01230 01231 /* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n, 01232 singlecomplex *h__, integer *ldh, singlecomplex *w, singlecomplex *v, singlecomplex *b, 01233 integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info); 01234 01235 /* Subroutine */ int claesy_(singlecomplex *a, singlecomplex *b, singlecomplex *c__, singlecomplex * 01236 rt1, singlecomplex *rt2, singlecomplex *evscal, singlecomplex *cs1, singlecomplex *sn1); 01237 01238 /* Subroutine */ int claev2_(singlecomplex *a, singlecomplex *b, singlecomplex *c__, real *rt1, 01239 real *rt2, real *cs1, singlecomplex *sn1); 01240 01241 /* Subroutine */ int clag2z_(integer *m, integer *n, singlecomplex *sa, integer * 01242 ldsa, doublecomplex *a, integer *lda, integer *info); 01243 01244 /* Subroutine */ int clags2_(logical *upper, real *a1, singlecomplex *a2, real *a3, 01245 real *b1, singlecomplex *b2, real *b3, real *csu, singlecomplex *snu, real *csv, 01246 singlecomplex *snv, real *csq, singlecomplex *snq); 01247 01248 /* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real * 01249 alpha, singlecomplex *dl, singlecomplex *d__, singlecomplex *du, singlecomplex *x, integer * 01250 ldx, real *beta, singlecomplex *b, integer *ldb); 01251 01252 /* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb, 01253 singlecomplex *a, integer *lda, integer *ipiv, singlecomplex *w, integer *ldw, 01254 integer *info); 01255 01256 /* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n, 01257 integer *ilo, integer *ihi, singlecomplex *h__, integer *ldh, singlecomplex *w, 01258 integer *iloz, integer *ihiz, singlecomplex *z__, integer *ldz, integer * 01259 info); 01260 01261 /* Subroutine */ int clahr2_(integer *n, integer *k, integer *nb, singlecomplex *a, 01262 integer *lda, singlecomplex *tau, singlecomplex *t, integer *ldt, singlecomplex *y, 01263 integer *ldy); 01264 01265 /* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, singlecomplex *a, 01266 integer *lda, singlecomplex *tau, singlecomplex *t, integer *ldt, singlecomplex *y, 01267 integer *ldy); 01268 01269 /* Subroutine */ int claic1_(integer *job, integer *j, singlecomplex *x, real *sest, 01270 singlecomplex *w, singlecomplex *gamma, real *sestpr, singlecomplex *s, singlecomplex *c__); 01271 01272 /* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr, 01273 integer *sqre, integer *nrhs, singlecomplex *b, integer *ldb, singlecomplex *bx, 01274 integer *ldbx, integer *perm, integer *givptr, integer *givcol, 01275 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * 01276 difl, real *difr, real *z__, integer *k, real *c__, real *s, real * 01277 rwork, integer *info); 01278 01279 /* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n, 01280 integer *nrhs, singlecomplex *b, integer *ldb, singlecomplex *bx, integer *ldbx, 01281 real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, 01282 real *z__, real *poles, integer *givptr, integer *givcol, integer * 01283 ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork, 01284 integer *iwork, integer *info); 01285 01286 /* Subroutine */ int clalsd_(char *uplo, integer *smlsiz, integer *n, integer 01287 *nrhs, real *d__, real *e, singlecomplex *b, integer *ldb, real *rcond, 01288 integer *rank, singlecomplex *work, real *rwork, integer *iwork, integer * 01289 info); 01290 01291 doublereal clangb_(char *norm, integer *n, integer *kl, integer *ku, singlecomplex * 01292 ab, integer *ldab, real *work); 01293 01294 doublereal clange_(char *norm, integer *m, integer *n, singlecomplex *a, integer * 01295 lda, real *work); 01296 01297 doublereal clangt_(char *norm, integer *n, singlecomplex *dl, singlecomplex *d__, singlecomplex 01298 *du); 01299 01300 doublereal clanhb_(char *norm, char *uplo, integer *n, integer *k, singlecomplex * 01301 ab, integer *ldab, real *work); 01302 01303 doublereal clanhe_(char *norm, char *uplo, integer *n, singlecomplex *a, integer * 01304 lda, real *work); 01305 01306 doublereal clanhf_(char *norm, char *transr, char *uplo, integer *n, singlecomplex * 01307 a, real *work); 01308 01309 doublereal clanhp_(char *norm, char *uplo, integer *n, singlecomplex *ap, real * 01310 work); 01311 01312 doublereal clanhs_(char *norm, integer *n, singlecomplex *a, integer *lda, real * 01313 work); 01314 01315 doublereal clanht_(char *norm, integer *n, real *d__, singlecomplex *e); 01316 01317 doublereal clansb_(char *norm, char *uplo, integer *n, integer *k, singlecomplex * 01318 ab, integer *ldab, real *work); 01319 01320 doublereal clansp_(char *norm, char *uplo, integer *n, singlecomplex *ap, real * 01321 work); 01322 01323 doublereal clansy_(char *norm, char *uplo, integer *n, singlecomplex *a, integer * 01324 lda, real *work); 01325 01326 doublereal clantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 01327 singlecomplex *ab, integer *ldab, real *work); 01328 01329 doublereal clantp_(char *norm, char *uplo, char *diag, integer *n, singlecomplex * 01330 ap, real *work); 01331 01332 doublereal clantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 01333 singlecomplex *a, integer *lda, real *work); 01334 01335 /* Subroutine */ int clapll_(integer *n, singlecomplex *x, integer *incx, singlecomplex * 01336 y, integer *incy, real *ssmin); 01337 01338 /* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, singlecomplex 01339 *x, integer *ldx, integer *k); 01340 01341 /* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku, 01342 singlecomplex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 01343 *colcnd, real *amax, char *equed); 01344 01345 /* Subroutine */ int claqge_(integer *m, integer *n, singlecomplex *a, integer *lda, 01346 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char * 01347 equed); 01348 01349 /* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, singlecomplex *ab, 01350 integer *ldab, real *s, real *scond, real *amax, char *equed); 01351 01352 /* Subroutine */ int claqhe_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01353 real *s, real *scond, real *amax, char *equed); 01354 01355 /* Subroutine */ int claqhp_(char *uplo, integer *n, singlecomplex *ap, real *s, 01356 real *scond, real *amax, char *equed); 01357 01358 /* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, singlecomplex 01359 *a, integer *lda, integer *jpvt, singlecomplex *tau, real *vn1, real *vn2, 01360 singlecomplex *work); 01361 01362 /* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer 01363 *nb, integer *kb, singlecomplex *a, integer *lda, integer *jpvt, singlecomplex * 01364 tau, real *vn1, real *vn2, singlecomplex *auxv, singlecomplex *f, integer *ldf); 01365 01366 /* Subroutine */ int claqr0_(logical *wantt, logical *wantz, integer *n, 01367 integer *ilo, integer *ihi, singlecomplex *h__, integer *ldh, singlecomplex *w, 01368 integer *iloz, integer *ihiz, singlecomplex *z__, integer *ldz, singlecomplex * 01369 work, integer *lwork, integer *info); 01370 01371 /* Subroutine */ int claqr1_(integer *n, singlecomplex *h__, integer *ldh, singlecomplex * 01372 s1, singlecomplex *s2, singlecomplex *v); 01373 01374 /* Subroutine */ int claqr2_(logical *wantt, logical *wantz, integer *n, 01375 integer *ktop, integer *kbot, integer *nw, singlecomplex *h__, integer *ldh, 01376 integer *iloz, integer *ihiz, singlecomplex *z__, integer *ldz, integer * 01377 ns, integer *nd, singlecomplex *sh, singlecomplex *v, integer *ldv, integer *nh, 01378 singlecomplex *t, integer *ldt, integer *nv, singlecomplex *wv, integer *ldwv, 01379 singlecomplex *work, integer *lwork); 01380 01381 /* Subroutine */ int claqr3_(logical *wantt, logical *wantz, integer *n, 01382 integer *ktop, integer *kbot, integer *nw, singlecomplex *h__, integer *ldh, 01383 integer *iloz, integer *ihiz, singlecomplex *z__, integer *ldz, integer * 01384 ns, integer *nd, singlecomplex *sh, singlecomplex *v, integer *ldv, integer *nh, 01385 singlecomplex *t, integer *ldt, integer *nv, singlecomplex *wv, integer *ldwv, 01386 singlecomplex *work, integer *lwork); 01387 01388 /* Subroutine */ int claqr4_(logical *wantt, logical *wantz, integer *n, 01389 integer *ilo, integer *ihi, singlecomplex *h__, integer *ldh, singlecomplex *w, 01390 integer *iloz, integer *ihiz, singlecomplex *z__, integer *ldz, singlecomplex * 01391 work, integer *lwork, integer *info); 01392 01393 /* Subroutine */ int claqr5_(logical *wantt, logical *wantz, integer *kacc22, 01394 integer *n, integer *ktop, integer *kbot, integer *nshfts, singlecomplex *s, 01395 singlecomplex *h__, integer *ldh, integer *iloz, integer *ihiz, singlecomplex * 01396 z__, integer *ldz, singlecomplex *v, integer *ldv, singlecomplex *u, integer *ldu, 01397 integer *nv, singlecomplex *wv, integer *ldwv, integer *nh, singlecomplex *wh, 01398 integer *ldwh); 01399 01400 /* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, singlecomplex *ab, 01401 integer *ldab, real *s, real *scond, real *amax, char *equed); 01402 01403 /* Subroutine */ int claqsp_(char *uplo, integer *n, singlecomplex *ap, real *s, 01404 real *scond, real *amax, char *equed); 01405 01406 /* Subroutine */ int claqsy_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01407 real *s, real *scond, real *amax, char *equed); 01408 01409 /* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real * 01410 lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real * 01411 gaptol, singlecomplex *z__, logical *wantnc, integer *negcnt, real *ztz, 01412 real *mingma, integer *r__, integer *isuppz, real *nrminv, real * 01413 resid, real *rqcorr, real *work); 01414 01415 /* Subroutine */ int clar2v_(integer *n, singlecomplex *x, singlecomplex *y, singlecomplex *z__, 01416 integer *incx, real *c__, singlecomplex *s, integer *incc); 01417 01418 /* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda, 01419 singlecomplex *b, integer *ldb, singlecomplex *c__, integer *ldc, real *rwork); 01420 01421 /* Subroutine */ int clarf_(char *side, integer *m, integer *n, singlecomplex *v, 01422 integer *incv, singlecomplex *tau, singlecomplex *c__, integer *ldc, singlecomplex * 01423 work); 01424 01425 /* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char * 01426 storev, integer *m, integer *n, integer *k, singlecomplex *v, integer *ldv, 01427 singlecomplex *t, integer *ldt, singlecomplex *c__, integer *ldc, singlecomplex *work, 01428 integer *ldwork); 01429 01430 /* Subroutine */ int clarfg_(integer *n, singlecomplex *alpha, singlecomplex *x, integer * 01431 incx, singlecomplex *tau); 01432 01433 /* Subroutine */ int clarfp_(integer *n, singlecomplex *alpha, singlecomplex *x, integer * 01434 incx, singlecomplex *tau); 01435 01436 /* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer * 01437 k, singlecomplex *v, integer *ldv, singlecomplex *tau, singlecomplex *t, integer *ldt); 01438 01439 /* Subroutine */ int clarfx_(char *side, integer *m, integer *n, singlecomplex *v, 01440 singlecomplex *tau, singlecomplex *c__, integer *ldc, singlecomplex *work); 01441 01442 /* Subroutine */ int clargv_(integer *n, singlecomplex *x, integer *incx, singlecomplex * 01443 y, integer *incy, real *c__, integer *incc); 01444 01445 /* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n, 01446 singlecomplex *x); 01447 01448 /* Subroutine */ int clarrv_(integer *n, real *vl, real *vu, real *d__, real * 01449 l, real *pivmin, integer *isplit, integer *m, integer *dol, integer * 01450 dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr, 01451 real *wgap, integer *iblock, integer *indexw, real *gers, singlecomplex * 01452 z__, integer *ldz, integer *isuppz, real *work, integer *iwork, 01453 integer *info); 01454 01455 /* Subroutine */ int clarscl2_(integer *m, integer *n, real *d__, singlecomplex *x, 01456 integer *ldx); 01457 01458 /* Subroutine */ int clartg_(singlecomplex *f, singlecomplex *g, real *cs, singlecomplex *sn, 01459 singlecomplex *r__); 01460 01461 /* Subroutine */ int clartv_(integer *n, singlecomplex *x, integer *incx, singlecomplex * 01462 y, integer *incy, real *c__, singlecomplex *s, integer *incc); 01463 01464 /* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l, 01465 singlecomplex *v, integer *incv, singlecomplex *tau, singlecomplex *c__, integer *ldc, 01466 singlecomplex *work); 01467 01468 /* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char * 01469 storev, integer *m, integer *n, integer *k, integer *l, singlecomplex *v, 01470 integer *ldv, singlecomplex *t, integer *ldt, singlecomplex *c__, integer *ldc, 01471 singlecomplex *work, integer *ldwork); 01472 01473 /* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer * 01474 k, singlecomplex *v, integer *ldv, singlecomplex *tau, singlecomplex *t, integer *ldt); 01475 01476 /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real * 01477 cfrom, real *cto, integer *m, integer *n, singlecomplex *a, integer *lda, 01478 integer *info); 01479 01480 /* Subroutine */ int clascl2_(integer *m, integer *n, real *d__, singlecomplex *x, 01481 integer *ldx); 01482 01483 /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, singlecomplex * 01484 alpha, singlecomplex *beta, singlecomplex *a, integer *lda); 01485 01486 /* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m, 01487 integer *n, real *c__, real *s, singlecomplex *a, integer *lda); 01488 01489 /* Subroutine */ int classq_(integer *n, singlecomplex *x, integer *incx, real * 01490 scale, real *sumsq); 01491 01492 /* Subroutine */ int claswp_(integer *n, singlecomplex *a, integer *lda, integer * 01493 k1, integer *k2, integer *ipiv, integer *incx); 01494 01495 /* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb, 01496 singlecomplex *a, integer *lda, integer *ipiv, singlecomplex *w, integer *ldw, 01497 integer *info); 01498 01499 /* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char * 01500 normin, integer *n, integer *kd, singlecomplex *ab, integer *ldab, singlecomplex * 01501 x, real *scale, real *cnorm, integer *info); 01502 01503 /* Subroutine */ int clatdf_(integer *ijob, integer *n, singlecomplex *z__, integer 01504 *ldz, singlecomplex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer 01505 *jpiv); 01506 01507 /* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char * 01508 normin, integer *n, singlecomplex *ap, singlecomplex *x, real *scale, real *cnorm, 01509 integer *info); 01510 01511 /* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, singlecomplex *a, 01512 integer *lda, real *e, singlecomplex *tau, singlecomplex *w, integer *ldw); 01513 01514 /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char * 01515 normin, integer *n, singlecomplex *a, integer *lda, singlecomplex *x, real *scale, 01516 real *cnorm, integer *info); 01517 01518 /* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, singlecomplex *a, 01519 integer *lda, singlecomplex *tau, singlecomplex *work); 01520 01521 /* Subroutine */ int clatzm_(char *side, integer *m, integer *n, singlecomplex *v, 01522 integer *incv, singlecomplex *tau, singlecomplex *c1, singlecomplex *c2, integer *ldc, 01523 singlecomplex *work); 01524 01525 /* Subroutine */ int clauu2_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01526 integer *info); 01527 01528 /* Subroutine */ int clauum_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01529 integer *info); 01530 01531 /* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, singlecomplex *ab, 01532 integer *ldab, real *anorm, real *rcond, singlecomplex *work, real *rwork, 01533 integer *info); 01534 01535 /* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, singlecomplex *ab, 01536 integer *ldab, real *s, real *scond, real *amax, integer *info); 01537 01538 /* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer * 01539 nrhs, singlecomplex *ab, integer *ldab, singlecomplex *afb, integer *ldafb, 01540 singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, real *ferr, real * 01541 berr, singlecomplex *work, real *rwork, integer *info); 01542 01543 /* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, singlecomplex *ab, 01544 integer *ldab, integer *info); 01545 01546 /* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer * 01547 nrhs, singlecomplex *ab, integer *ldab, singlecomplex *b, integer *ldb, integer * 01548 info); 01549 01550 /* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 01551 integer *nrhs, singlecomplex *ab, integer *ldab, singlecomplex *afb, integer * 01552 ldafb, char *equed, real *s, singlecomplex *b, integer *ldb, singlecomplex *x, 01553 integer *ldx, real *rcond, real *ferr, real *berr, singlecomplex *work, 01554 real *rwork, integer *info); 01555 01556 /* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, singlecomplex *ab, 01557 integer *ldab, integer *info); 01558 01559 /* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, singlecomplex *ab, 01560 integer *ldab, integer *info); 01561 01562 /* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer * 01563 nrhs, singlecomplex *ab, integer *ldab, singlecomplex *b, integer *ldb, integer * 01564 info); 01565 01566 /* Subroutine */ int cpftrf_(char *transr, char *uplo, integer *n, singlecomplex *a, 01567 integer *info); 01568 01569 /* Subroutine */ int cpftri_(char *transr, char *uplo, integer *n, singlecomplex *a, 01570 integer *info); 01571 01572 /* Subroutine */ int cpftrs_(char *transr, char *uplo, integer *n, integer * 01573 nrhs, singlecomplex *a, singlecomplex *b, integer *ldb, integer *info); 01574 01575 /* Subroutine */ int cpocon_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01576 real *anorm, real *rcond, singlecomplex *work, real *rwork, integer *info); 01577 01578 /* Subroutine */ int cpoequ_(integer *n, singlecomplex *a, integer *lda, real *s, 01579 real *scond, real *amax, integer *info); 01580 01581 /* Subroutine */ int cpoequb_(integer *n, singlecomplex *a, integer *lda, real *s, 01582 real *scond, real *amax, integer *info); 01583 01584 /* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01585 a, integer *lda, singlecomplex *af, integer *ldaf, singlecomplex *b, integer *ldb, 01586 singlecomplex *x, integer *ldx, real *ferr, real *berr, singlecomplex *work, 01587 real *rwork, integer *info); 01588 01589 /* Subroutine */ int cporfsx_(char *uplo, char *equed, integer *n, integer * 01590 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, real *s, 01591 singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, real *rcond, real 01592 *berr, integer *n_err_bnds__, real *err_bnds_norm__, real * 01593 err_bnds_comp__, integer *nparams, real *params, singlecomplex *work, real * 01594 rwork, integer *info); 01595 01596 /* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, singlecomplex *a, 01597 integer *lda, singlecomplex *b, integer *ldb, integer *info); 01598 01599 /* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer * 01600 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, char * 01601 equed, real *s, singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, 01602 real *rcond, real *ferr, real *berr, singlecomplex *work, real *rwork, 01603 integer *info); 01604 01605 /* Subroutine */ int cposvxx_(char *fact, char *uplo, integer *n, integer * 01606 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, char * 01607 equed, real *s, singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, 01608 real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real * 01609 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 01610 params, singlecomplex *work, real *rwork, integer *info); 01611 01612 /* Subroutine */ int cpotf2_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01613 integer *info); 01614 01615 /* Subroutine */ int cpotrf_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01616 integer *info); 01617 01618 /* Subroutine */ int cpotri_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01619 integer *info); 01620 01621 /* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01622 a, integer *lda, singlecomplex *b, integer *ldb, integer *info); 01623 01624 /* Subroutine */ int cppcon_(char *uplo, integer *n, singlecomplex *ap, real *anorm, 01625 real *rcond, singlecomplex *work, real *rwork, integer *info); 01626 01627 /* Subroutine */ int cppequ_(char *uplo, integer *n, singlecomplex *ap, real *s, 01628 real *scond, real *amax, integer *info); 01629 01630 /* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01631 ap, singlecomplex *afp, singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, 01632 real *ferr, real *berr, singlecomplex *work, real *rwork, integer *info); 01633 01634 /* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01635 ap, singlecomplex *b, integer *ldb, integer *info); 01636 01637 /* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer * 01638 nrhs, singlecomplex *ap, singlecomplex *afp, char *equed, real *s, singlecomplex *b, 01639 integer *ldb, singlecomplex *x, integer *ldx, real *rcond, real *ferr, real 01640 *berr, singlecomplex *work, real *rwork, integer *info); 01641 01642 /* Subroutine */ int cpptrf_(char *uplo, integer *n, singlecomplex *ap, integer * 01643 info); 01644 01645 /* Subroutine */ int cpptri_(char *uplo, integer *n, singlecomplex *ap, integer * 01646 info); 01647 01648 /* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01649 ap, singlecomplex *b, integer *ldb, integer *info); 01650 01651 /* Subroutine */ int cpstf2_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01652 integer *piv, integer *rank, real *tol, real *work, integer *info); 01653 01654 /* Subroutine */ int cpstrf_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01655 integer *piv, integer *rank, real *tol, real *work, integer *info); 01656 01657 /* Subroutine */ int cptcon_(integer *n, real *d__, singlecomplex *e, real *anorm, 01658 real *rcond, real *rwork, integer *info); 01659 01660 /* Subroutine */ int cpteqr_(char *compz, integer *n, real *d__, real *e, 01661 singlecomplex *z__, integer *ldz, real *work, integer *info); 01662 01663 /* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__, 01664 singlecomplex *e, real *df, singlecomplex *ef, singlecomplex *b, integer *ldb, singlecomplex 01665 *x, integer *ldx, real *ferr, real *berr, singlecomplex *work, real *rwork, 01666 integer *info); 01667 01668 /* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, singlecomplex *e, 01669 singlecomplex *b, integer *ldb, integer *info); 01670 01671 /* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__, 01672 singlecomplex *e, real *df, singlecomplex *ef, singlecomplex *b, integer *ldb, singlecomplex 01673 *x, integer *ldx, real *rcond, real *ferr, real *berr, singlecomplex *work, 01674 real *rwork, integer *info); 01675 01676 /* Subroutine */ int cpttrf_(integer *n, real *d__, singlecomplex *e, integer *info); 01677 01678 /* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, 01679 singlecomplex *e, singlecomplex *b, integer *ldb, integer *info); 01680 01681 /* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real * 01682 d__, singlecomplex *e, singlecomplex *b, integer *ldb); 01683 01684 /* Subroutine */ int crot_(integer *n, singlecomplex *cx, integer *incx, singlecomplex * 01685 cy, integer *incy, real *c__, singlecomplex *s); 01686 01687 /* Subroutine */ int cspcon_(char *uplo, integer *n, singlecomplex *ap, integer * 01688 ipiv, real *anorm, real *rcond, singlecomplex *work, integer *info); 01689 01690 /* Subroutine */ int cspmv_(char *uplo, integer *n, singlecomplex *alpha, singlecomplex * 01691 ap, singlecomplex *x, integer *incx, singlecomplex *beta, singlecomplex *y, integer * 01692 incy); 01693 01694 /* Subroutine */ int cspr_(char *uplo, integer *n, singlecomplex *alpha, singlecomplex *x, 01695 integer *incx, singlecomplex *ap); 01696 01697 /* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01698 ap, singlecomplex *afp, integer *ipiv, singlecomplex *b, integer *ldb, singlecomplex *x, 01699 integer *ldx, real *ferr, real *berr, singlecomplex *work, real *rwork, 01700 integer *info); 01701 01702 /* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01703 ap, integer *ipiv, singlecomplex *b, integer *ldb, integer *info); 01704 01705 /* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer * 01706 nrhs, singlecomplex *ap, singlecomplex *afp, integer *ipiv, singlecomplex *b, integer * 01707 ldb, singlecomplex *x, integer *ldx, real *rcond, real *ferr, real *berr, 01708 singlecomplex *work, real *rwork, integer *info); 01709 01710 /* Subroutine */ int csptrf_(char *uplo, integer *n, singlecomplex *ap, integer * 01711 ipiv, integer *info); 01712 01713 /* Subroutine */ int csptri_(char *uplo, integer *n, singlecomplex *ap, integer * 01714 ipiv, singlecomplex *work, integer *info); 01715 01716 /* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01717 ap, integer *ipiv, singlecomplex *b, integer *ldb, integer *info); 01718 01719 /* Subroutine */ int csrscl_(integer *n, real *sa, singlecomplex *sx, integer *incx); 01720 01721 /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e, 01722 singlecomplex *z__, integer *ldz, singlecomplex *work, integer *lwork, real * 01723 rwork, integer *lrwork, integer *iwork, integer *liwork, integer * 01724 info); 01725 01726 /* Subroutine */ int cstegr_(char *jobz, char *range, integer *n, real *d__, 01727 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 01728 integer *m, real *w, singlecomplex *z__, integer *ldz, integer *isuppz, 01729 real *work, integer *lwork, integer *iwork, integer *liwork, integer * 01730 info); 01731 01732 /* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real 01733 *w, integer *iblock, integer *isplit, singlecomplex *z__, integer *ldz, 01734 real *work, integer *iwork, integer *ifail, integer *info); 01735 01736 /* Subroutine */ int cstemr_(char *jobz, char *range, integer *n, real *d__, 01737 real *e, real *vl, real *vu, integer *il, integer *iu, integer *m, 01738 real *w, singlecomplex *z__, integer *ldz, integer *nzc, integer *isuppz, 01739 logical *tryrac, real *work, integer *lwork, integer *iwork, integer * 01740 liwork, integer *info); 01741 01742 /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e, 01743 singlecomplex *z__, integer *ldz, real *work, integer *info); 01744 01745 /* Subroutine */ int csycon_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01746 integer *ipiv, real *anorm, real *rcond, singlecomplex *work, integer * 01747 info); 01748 01749 /* Subroutine */ int csyequb_(char *uplo, integer *n, singlecomplex *a, integer * 01750 lda, real *s, real *scond, real *amax, singlecomplex *work, integer *info); 01751 01752 /* Subroutine */ int csymv_(char *uplo, integer *n, singlecomplex *alpha, singlecomplex * 01753 a, integer *lda, singlecomplex *x, integer *incx, singlecomplex *beta, singlecomplex *y, 01754 integer *incy); 01755 01756 /* Subroutine */ int csyr_(char *uplo, integer *n, singlecomplex *alpha, singlecomplex *x, 01757 integer *incx, singlecomplex *a, integer *lda); 01758 01759 /* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01760 a, integer *lda, singlecomplex *af, integer *ldaf, integer *ipiv, singlecomplex * 01761 b, integer *ldb, singlecomplex *x, integer *ldx, real *ferr, real *berr, 01762 singlecomplex *work, real *rwork, integer *info); 01763 01764 /* Subroutine */ int csyrfsx_(char *uplo, char *equed, integer *n, integer * 01765 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 01766 ipiv, real *s, singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, 01767 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 01768 real *err_bnds_comp__, integer *nparams, real *params, singlecomplex *work, 01769 real *rwork, integer *info); 01770 01771 /* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, singlecomplex *a, 01772 integer *lda, integer *ipiv, singlecomplex *b, integer *ldb, singlecomplex *work, 01773 integer *lwork, integer *info); 01774 01775 /* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer * 01776 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 01777 ipiv, singlecomplex *b, integer *ldb, singlecomplex *x, integer *ldx, real *rcond, 01778 real *ferr, real *berr, singlecomplex *work, integer *lwork, real *rwork, 01779 integer *info); 01780 01781 /* Subroutine */ int csysvxx_(char *fact, char *uplo, integer *n, integer * 01782 nrhs, singlecomplex *a, integer *lda, singlecomplex *af, integer *ldaf, integer * 01783 ipiv, char *equed, real *s, singlecomplex *b, integer *ldb, singlecomplex *x, 01784 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * 01785 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * 01786 nparams, real *params, singlecomplex *work, real *rwork, integer *info); 01787 01788 /* Subroutine */ int csytf2_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01789 integer *ipiv, integer *info); 01790 01791 /* Subroutine */ int csytrf_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01792 integer *ipiv, singlecomplex *work, integer *lwork, integer *info); 01793 01794 /* Subroutine */ int csytri_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01795 integer *ipiv, singlecomplex *work, integer *info); 01796 01797 /* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, singlecomplex * 01798 a, integer *lda, integer *ipiv, singlecomplex *b, integer *ldb, integer * 01799 info); 01800 01801 /* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n, 01802 integer *kd, singlecomplex *ab, integer *ldab, real *rcond, singlecomplex *work, 01803 real *rwork, integer *info); 01804 01805 /* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n, 01806 integer *kd, integer *nrhs, singlecomplex *ab, integer *ldab, singlecomplex *b, 01807 integer *ldb, singlecomplex *x, integer *ldx, real *ferr, real *berr, 01808 singlecomplex *work, real *rwork, integer *info); 01809 01810 /* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n, 01811 integer *kd, integer *nrhs, singlecomplex *ab, integer *ldab, singlecomplex *b, 01812 integer *ldb, integer *info); 01813 01814 /* Subroutine */ int ctfsm_(char *transr, char *side, char *uplo, char *trans, 01815 char *diag, integer *m, integer *n, singlecomplex *alpha, singlecomplex *a, 01816 singlecomplex *b, integer *ldb); 01817 01818 /* Subroutine */ int ctftri_(char *transr, char *uplo, char *diag, integer *n, 01819 singlecomplex *a, integer *info); 01820 01821 /* Subroutine */ int ctfttp_(char *transr, char *uplo, integer *n, singlecomplex * 01822 arf, singlecomplex *ap, integer *info); 01823 01824 /* Subroutine */ int ctfttr_(char *transr, char *uplo, integer *n, singlecomplex * 01825 arf, singlecomplex *a, integer *lda, integer *info); 01826 01827 /* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select, 01828 integer *n, singlecomplex *s, integer *lds, singlecomplex *p, integer *ldp, 01829 singlecomplex *vl, integer *ldvl, singlecomplex *vr, integer *ldvr, integer *mm, 01830 integer *m, singlecomplex *work, real *rwork, integer *info); 01831 01832 /* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n, 01833 singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, singlecomplex *q, 01834 integer *ldq, singlecomplex *z__, integer *ldz, integer *j1, integer *info); 01835 01836 /* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n, 01837 singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, singlecomplex *q, 01838 integer *ldq, singlecomplex *z__, integer *ldz, integer *ifst, integer * 01839 ilst, integer *info); 01840 01841 /* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz, 01842 logical *select, integer *n, singlecomplex *a, integer *lda, singlecomplex *b, 01843 integer *ldb, singlecomplex *alpha, singlecomplex *beta, singlecomplex *q, integer *ldq, 01844 singlecomplex *z__, integer *ldz, integer *m, real *pl, real *pr, real * 01845 dif, singlecomplex *work, integer *lwork, integer *iwork, integer *liwork, 01846 integer *info); 01847 01848 /* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m, 01849 integer *p, integer *n, integer *k, integer *l, singlecomplex *a, integer * 01850 lda, singlecomplex *b, integer *ldb, real *tola, real *tolb, real *alpha, 01851 real *beta, singlecomplex *u, integer *ldu, singlecomplex *v, integer *ldv, 01852 singlecomplex *q, integer *ldq, singlecomplex *work, integer *ncycle, integer * 01853 info); 01854 01855 /* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select, 01856 integer *n, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 01857 singlecomplex *vl, integer *ldvl, singlecomplex *vr, integer *ldvr, real *s, real 01858 *dif, integer *mm, integer *m, singlecomplex *work, integer *lwork, integer 01859 *iwork, integer *info); 01860 01861 /* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer * 01862 n, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, singlecomplex *c__, 01863 integer *ldc, singlecomplex *d__, integer *ldd, singlecomplex *e, integer *lde, 01864 singlecomplex *f, integer *ldf, real *scale, real *rdsum, real *rdscal, 01865 integer *info); 01866 01867 /* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer * 01868 n, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, singlecomplex *c__, 01869 integer *ldc, singlecomplex *d__, integer *ldd, singlecomplex *e, integer *lde, 01870 singlecomplex *f, integer *ldf, real *scale, real *dif, singlecomplex *work, 01871 integer *lwork, integer *iwork, integer *info); 01872 01873 /* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n, 01874 singlecomplex *ap, real *rcond, singlecomplex *work, real *rwork, integer *info); 01875 01876 /* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n, 01877 integer *nrhs, singlecomplex *ap, singlecomplex *b, integer *ldb, singlecomplex *x, 01878 integer *ldx, real *ferr, real *berr, singlecomplex *work, real *rwork, 01879 integer *info); 01880 01881 /* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, singlecomplex *ap, 01882 integer *info); 01883 01884 /* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n, 01885 integer *nrhs, singlecomplex *ap, singlecomplex *b, integer *ldb, integer *info); 01886 01887 /* Subroutine */ int ctpttf_(char *transr, char *uplo, integer *n, singlecomplex * 01888 ap, singlecomplex *arf, integer *info); 01889 01890 /* Subroutine */ int ctpttr_(char *uplo, integer *n, singlecomplex *ap, singlecomplex *a, 01891 integer *lda, integer *info); 01892 01893 /* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n, 01894 singlecomplex *a, integer *lda, real *rcond, singlecomplex *work, real *rwork, 01895 integer *info); 01896 01897 /* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select, 01898 integer *n, singlecomplex *t, integer *ldt, singlecomplex *vl, integer *ldvl, 01899 singlecomplex *vr, integer *ldvr, integer *mm, integer *m, singlecomplex *work, 01900 real *rwork, integer *info); 01901 01902 /* Subroutine */ int ctrexc_(char *compq, integer *n, singlecomplex *t, integer * 01903 ldt, singlecomplex *q, integer *ldq, integer *ifst, integer *ilst, integer * 01904 info); 01905 01906 /* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n, 01907 integer *nrhs, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 01908 singlecomplex *x, integer *ldx, real *ferr, real *berr, singlecomplex *work, real 01909 *rwork, integer *info); 01910 01911 /* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer 01912 *n, singlecomplex *t, integer *ldt, singlecomplex *q, integer *ldq, singlecomplex *w, 01913 integer *m, real *s, real *sep, singlecomplex *work, integer *lwork, 01914 integer *info); 01915 01916 /* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select, 01917 integer *n, singlecomplex *t, integer *ldt, singlecomplex *vl, integer *ldvl, 01918 singlecomplex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer * 01919 m, singlecomplex *work, integer *ldwork, real *rwork, integer *info); 01920 01921 /* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer 01922 *m, integer *n, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 01923 singlecomplex *c__, integer *ldc, real *scale, integer *info); 01924 01925 /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, singlecomplex *a, 01926 integer *lda, integer *info); 01927 01928 /* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, singlecomplex *a, 01929 integer *lda, integer *info); 01930 01931 /* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n, 01932 integer *nrhs, singlecomplex *a, integer *lda, singlecomplex *b, integer *ldb, 01933 integer *info); 01934 01935 /* Subroutine */ int ctrttf_(char *transr, char *uplo, integer *n, singlecomplex *a, 01936 integer *lda, singlecomplex *arf, integer *info); 01937 01938 /* Subroutine */ int ctrttp_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01939 singlecomplex *ap, integer *info); 01940 01941 /* Subroutine */ int ctzrqf_(integer *m, integer *n, singlecomplex *a, integer *lda, 01942 singlecomplex *tau, integer *info); 01943 01944 /* Subroutine */ int ctzrzf_(integer *m, integer *n, singlecomplex *a, integer *lda, 01945 singlecomplex *tau, singlecomplex *work, integer *lwork, integer *info); 01946 01947 /* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, singlecomplex *a, 01948 integer *lda, singlecomplex *tau, singlecomplex *work, integer *info); 01949 01950 /* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, singlecomplex *a, 01951 integer *lda, singlecomplex *tau, singlecomplex *work, integer *info); 01952 01953 /* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k, 01954 singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *work, integer *lwork, 01955 integer *info); 01956 01957 /* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, singlecomplex * 01958 a, integer *lda, singlecomplex *tau, singlecomplex *work, integer *lwork, integer 01959 *info); 01960 01961 /* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, singlecomplex *a, 01962 integer *lda, singlecomplex *tau, singlecomplex *work, integer *info); 01963 01964 /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, singlecomplex *a, 01965 integer *lda, singlecomplex *tau, singlecomplex *work, integer *lwork, integer * 01966 info); 01967 01968 /* Subroutine */ int cungql_(integer *m, integer *n, integer *k, singlecomplex *a, 01969 integer *lda, singlecomplex *tau, singlecomplex *work, integer *lwork, integer * 01970 info); 01971 01972 /* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, singlecomplex *a, 01973 integer *lda, singlecomplex *tau, singlecomplex *work, integer *lwork, integer * 01974 info); 01975 01976 /* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, singlecomplex *a, 01977 integer *lda, singlecomplex *tau, singlecomplex *work, integer *info); 01978 01979 /* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, singlecomplex *a, 01980 integer *lda, singlecomplex *tau, singlecomplex *work, integer *lwork, integer * 01981 info); 01982 01983 /* Subroutine */ int cungtr_(char *uplo, integer *n, singlecomplex *a, integer *lda, 01984 singlecomplex *tau, singlecomplex *work, integer *lwork, integer *info); 01985 01986 /* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n, 01987 integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 01988 integer *ldc, singlecomplex *work, integer *info); 01989 01990 /* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n, 01991 integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 01992 integer *ldc, singlecomplex *work, integer *info); 01993 01994 /* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m, 01995 integer *n, integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, 01996 singlecomplex *c__, integer *ldc, singlecomplex *work, integer *lwork, integer * 01997 info); 01998 01999 /* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n, 02000 integer *ilo, integer *ihi, singlecomplex *a, integer *lda, singlecomplex *tau, 02001 singlecomplex *c__, integer *ldc, singlecomplex *work, integer *lwork, integer * 02002 info); 02003 02004 /* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n, 02005 integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 02006 integer *ldc, singlecomplex *work, integer *info); 02007 02008 /* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n, 02009 integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 02010 integer *ldc, singlecomplex *work, integer *lwork, integer *info); 02011 02012 /* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n, 02013 integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 02014 integer *ldc, singlecomplex *work, integer *lwork, integer *info); 02015 02016 /* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n, 02017 integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 02018 integer *ldc, singlecomplex *work, integer *lwork, integer *info); 02019 02020 /* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n, 02021 integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 02022 integer *ldc, singlecomplex *work, integer *info); 02023 02024 /* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n, 02025 integer *k, integer *l, singlecomplex *a, integer *lda, singlecomplex *tau, 02026 singlecomplex *c__, integer *ldc, singlecomplex *work, integer *info); 02027 02028 /* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n, 02029 integer *k, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 02030 integer *ldc, singlecomplex *work, integer *lwork, integer *info); 02031 02032 /* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n, 02033 integer *k, integer *l, singlecomplex *a, integer *lda, singlecomplex *tau, 02034 singlecomplex *c__, integer *ldc, singlecomplex *work, integer *lwork, integer * 02035 info); 02036 02037 /* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m, 02038 integer *n, singlecomplex *a, integer *lda, singlecomplex *tau, singlecomplex *c__, 02039 integer *ldc, singlecomplex *work, integer *lwork, integer *info); 02040 02041 /* Subroutine */ int cupgtr_(char *uplo, integer *n, singlecomplex *ap, singlecomplex * 02042 tau, singlecomplex *q, integer *ldq, singlecomplex *work, integer *info); 02043 02044 /* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m, 02045 integer *n, singlecomplex *ap, singlecomplex *tau, singlecomplex *c__, integer *ldc, 02046 singlecomplex *work, integer *info); 02047 02048 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal * 02049 d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, 02050 integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer * 02051 iwork, integer *info); 02052 02053 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer * 02054 nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, 02055 integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer * 02056 ldc, doublereal *work, integer *info); 02057 02058 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal * 02059 d__, doublereal *sep, integer *info); 02060 02061 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 02062 integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal * 02063 d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt, 02064 integer *ldpt, doublereal *c__, integer *ldc, doublereal *work, 02065 integer *info); 02066 02067 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku, 02068 doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm, 02069 doublereal *rcond, doublereal *work, integer *iwork, integer *info); 02070 02071 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku, 02072 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 02073 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * 02074 info); 02075 02076 /* Subroutine */ int dgbequb_(integer *m, integer *n, integer *kl, integer * 02077 ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 02078 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * 02079 info); 02080 02081 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer * 02082 ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 02083 integer *ldafb, integer *ipiv, doublereal *b, integer *ldb, 02084 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 02085 doublereal *work, integer *iwork, integer *info); 02086 02087 /* Subroutine */ int dgbrfsx_(char *trans, char *equed, integer *n, integer * 02088 kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 02089 doublereal *afb, integer *ldafb, integer *ipiv, doublereal *r__, 02090 doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer * 02091 ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__, 02092 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 02093 nparams, doublereal *params, doublereal *work, integer *iwork, 02094 integer *info); 02095 02096 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer * 02097 nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, 02098 integer *ldb, integer *info); 02099 02100 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl, 02101 integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 02102 doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 02103 doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 02104 doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 02105 doublereal *berr, doublereal *work, integer *iwork, integer *info); 02106 02107 /* Subroutine */ int dgbsvxx_(char *fact, char *trans, integer *n, integer * 02108 kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 02109 doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 02110 doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 02111 doublereal *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 02112 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 02113 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 02114 doublereal *work, integer *iwork, integer *info); 02115 02116 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 02117 doublereal *ab, integer *ldab, integer *ipiv, integer *info); 02118 02119 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 02120 doublereal *ab, integer *ldab, integer *ipiv, integer *info); 02121 02122 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer * 02123 ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, 02124 doublereal *b, integer *ldb, integer *info); 02125 02126 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo, 02127 integer *ihi, doublereal *scale, integer *m, doublereal *v, integer * 02128 ldv, integer *info); 02129 02130 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer * 02131 lda, integer *ilo, integer *ihi, doublereal *scale, integer *info); 02132 02133 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer * 02134 lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal * 02135 taup, doublereal *work, integer *info); 02136 02137 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer * 02138 lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal * 02139 taup, doublereal *work, integer *lwork, integer *info); 02140 02141 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer * 02142 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer * 02143 iwork, integer *info); 02144 02145 /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer * 02146 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 02147 *colcnd, doublereal *amax, integer *info); 02148 02149 /* Subroutine */ int dgeequb_(integer *m, integer *n, doublereal *a, integer * 02150 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 02151 *colcnd, doublereal *amax, integer *info); 02152 02153 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n, 02154 doublereal *a, integer *lda, integer *sdim, doublereal *wr, 02155 doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work, 02156 integer *lwork, logical *bwork, integer *info); 02157 02158 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char * 02159 sense, integer *n, doublereal *a, integer *lda, integer *sdim, 02160 doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, 02161 doublereal *rconde, doublereal *rcondv, doublereal *work, integer * 02162 lwork, integer *iwork, integer *liwork, logical *bwork, integer *info); 02163 02164 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal * 02165 a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, 02166 integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, 02167 integer *lwork, integer *info); 02168 02169 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char * 02170 sense, integer *n, doublereal *a, integer *lda, doublereal *wr, 02171 doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 02172 integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, 02173 doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal 02174 *work, integer *lwork, integer *iwork, integer *info); 02175 02176 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n, 02177 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 02178 alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, 02179 integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, 02180 integer *lwork, integer *info); 02181 02182 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal * 02183 a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 02184 doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 02185 doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 02186 integer *info); 02187 02188 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi, 02189 doublereal *a, integer *lda, doublereal *tau, doublereal *work, 02190 integer *info); 02191 02192 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi, 02193 doublereal *a, integer *lda, doublereal *tau, doublereal *work, 02194 integer *lwork, integer *info); 02195 02196 /* Subroutine */ int dgejsv_(char *joba, char *jobu, char *jobv, char *jobr, 02197 char *jobt, char *jobp, integer *m, integer *n, doublereal *a, 02198 integer *lda, doublereal *sva, doublereal *u, integer *ldu, 02199 doublereal *v, integer *ldv, doublereal *work, integer *lwork, 02200 integer *iwork, integer *info); 02201 02202 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer * 02203 lda, doublereal *tau, doublereal *work, integer *info); 02204 02205 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer * 02206 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 02207 02208 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer * 02209 nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, 02210 doublereal *work, integer *lwork, integer *info); 02211 02212 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs, 02213 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 02214 s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, 02215 integer *iwork, integer *info); 02216 02217 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs, 02218 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 02219 s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, 02220 integer *info); 02221 02222 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs, 02223 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 02224 jpvt, doublereal *rcond, integer *rank, doublereal *work, integer * 02225 info); 02226 02227 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs, 02228 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 02229 jpvt, doublereal *rcond, integer *rank, doublereal *work, integer * 02230 lwork, integer *info); 02231 02232 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer * 02233 lda, doublereal *tau, doublereal *work, integer *info); 02234 02235 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer * 02236 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 02237 02238 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer * 02239 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork, 02240 integer *info); 02241 02242 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer * 02243 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info); 02244 02245 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer * 02246 lda, doublereal *tau, doublereal *work, integer *info); 02247 02248 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer * 02249 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 02250 02251 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs, 02252 doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer * 02253 ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 02254 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 02255 integer *info); 02256 02257 /* Subroutine */ int dgerfsx_(char *trans, char *equed, integer *n, integer * 02258 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 02259 integer *ipiv, doublereal *r__, doublereal *c__, doublereal *b, 02260 integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, 02261 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 02262 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 02263 doublereal *work, integer *iwork, integer *info); 02264 02265 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer * 02266 lda, doublereal *tau, doublereal *work, integer *info); 02267 02268 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer * 02269 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 02270 02271 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda, 02272 doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale); 02273 02274 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal * 02275 a, integer *lda, doublereal *s, doublereal *u, integer *ldu, 02276 doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 02277 integer *iwork, integer *info); 02278 02279 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer 02280 *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info); 02281 02282 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 02283 doublereal *a, integer *lda, doublereal *s, doublereal *u, integer * 02284 ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 02285 integer *info); 02286 02287 /* Subroutine */ int dgesvj_(char *joba, char *jobu, char *jobv, integer *m, 02288 integer *n, doublereal *a, integer *lda, doublereal *sva, integer *mv, 02289 doublereal *v, integer *ldv, doublereal *work, integer *lwork, 02290 integer *info); 02291 02292 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer * 02293 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 02294 integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 02295 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 02296 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * 02297 iwork, integer *info); 02298 02299 /* Subroutine */ int dgesvxx_(char *fact, char *trans, integer *n, integer * 02300 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 02301 integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 02302 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 02303 rcond, doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 02304 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 02305 nparams, doublereal *params, doublereal *work, integer *iwork, 02306 integer *info); 02307 02308 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer 02309 *ipiv, integer *jpiv, integer *info); 02310 02311 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer * 02312 lda, integer *ipiv, integer *info); 02313 02314 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer * 02315 lda, integer *ipiv, integer *info); 02316 02317 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer 02318 *ipiv, doublereal *work, integer *lwork, integer *info); 02319 02320 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs, 02321 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * 02322 ldb, integer *info); 02323 02324 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo, 02325 integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 02326 doublereal *v, integer *ldv, integer *info); 02327 02328 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer * 02329 lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi, 02330 doublereal *lscale, doublereal *rscale, doublereal *work, integer * 02331 info); 02332 02333 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 02334 selctg, integer *n, doublereal *a, integer *lda, doublereal *b, 02335 integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, 02336 doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, 02337 integer *ldvsr, doublereal *work, integer *lwork, logical *bwork, 02338 integer *info); 02339 02340 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 02341 selctg, char *sense, integer *n, doublereal *a, integer *lda, 02342 doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, 02343 doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, 02344 doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal * 02345 rcondv, doublereal *work, integer *lwork, integer *iwork, integer * 02346 liwork, logical *bwork, integer *info); 02347 02348 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal * 02349 a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 02350 doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 02351 doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 02352 integer *info); 02353 02354 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char * 02355 sense, integer *n, doublereal *a, integer *lda, doublereal *b, 02356 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * 02357 beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 02358 integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 02359 doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal * 02360 rcondv, doublereal *work, integer *lwork, integer *iwork, logical * 02361 bwork, integer *info); 02362 02363 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal * 02364 a, integer *lda, doublereal *b, integer *ldb, doublereal *d__, 02365 doublereal *x, doublereal *y, doublereal *work, integer *lwork, 02366 integer *info); 02367 02368 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer * 02369 ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, 02370 integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer * 02371 ldz, integer *info); 02372 02373 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal * 02374 a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, 02375 doublereal *d__, doublereal *x, doublereal *work, integer *lwork, 02376 integer *info); 02377 02378 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal * 02379 a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 02380 doublereal *taub, doublereal *work, integer *lwork, integer *info); 02381 02382 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal * 02383 a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 02384 doublereal *taub, doublereal *work, integer *lwork, integer *info); 02385 02386 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 02387 integer *n, integer *p, integer *k, integer *l, doublereal *a, 02388 integer *lda, doublereal *b, integer *ldb, doublereal *alpha, 02389 doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer 02390 *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork, 02391 integer *info); 02392 02393 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 02394 integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, 02395 integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer 02396 *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, 02397 doublereal *q, integer *ldq, integer *iwork, doublereal *tau, 02398 doublereal *work, integer *info); 02399 02400 /* Subroutine */ int dgsvj0_(char *jobv, integer *m, integer *n, doublereal * 02401 a, integer *lda, doublereal *d__, doublereal *sva, integer *mv, 02402 doublereal *v, integer *ldv, doublereal *eps, doublereal *sfmin, 02403 doublereal *tol, integer *nsweep, doublereal *work, integer *lwork, 02404 integer *info); 02405 02406 /* Subroutine */ int dgsvj1_(char *jobv, integer *m, integer *n, integer *n1, 02407 doublereal *a, integer *lda, doublereal *d__, doublereal *sva, 02408 integer *mv, doublereal *v, integer *ldv, doublereal *eps, doublereal 02409 *sfmin, doublereal *tol, integer *nsweep, doublereal *work, integer * 02410 lwork, integer *info); 02411 02412 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl, 02413 doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, 02414 doublereal *anorm, doublereal *rcond, doublereal *work, integer * 02415 iwork, integer *info); 02416 02417 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs, 02418 doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf, 02419 doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 02420 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 02421 ferr, doublereal *berr, doublereal *work, integer *iwork, integer * 02422 info); 02423 02424 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl, 02425 doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer 02426 *info); 02427 02428 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer * 02429 nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal * 02430 dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 02431 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 02432 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * 02433 iwork, integer *info); 02434 02435 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__, 02436 doublereal *du, doublereal *du2, integer *ipiv, integer *info); 02437 02438 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs, 02439 doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 02440 integer *ipiv, doublereal *b, integer *ldb, integer *info); 02441 02442 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs, 02443 doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 02444 integer *ipiv, doublereal *b, integer *ldb); 02445 02446 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n, 02447 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 02448 *t, integer *ldt, doublereal *alphar, doublereal *alphai, doublereal * 02449 beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 02450 doublereal *work, integer *lwork, integer *info); 02451 02452 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical * 02453 select, integer *n, doublereal *h__, integer *ldh, doublereal *wr, 02454 doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 02455 integer *ldvr, integer *mm, integer *m, doublereal *work, integer * 02456 ifaill, integer *ifailr, integer *info); 02457 02458 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo, 02459 integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, 02460 doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, 02461 integer *lwork, integer *info); 02462 02463 logical disnan_(doublereal *din); 02464 02465 /* Subroutine */ int dla_gbamv__(integer *trans, integer *m, integer *n, 02466 integer *kl, integer *ku, doublereal *alpha, doublereal *ab, integer * 02467 ldab, doublereal *x, integer *incx, doublereal *beta, doublereal *y, 02468 integer *incy); 02469 02470 doublereal dla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku, 02471 doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 02472 integer *ipiv, integer *cmode, doublereal *c__, integer *info, 02473 doublereal *work, integer *iwork, ftnlen trans_len); 02474 02475 /* Subroutine */ int dla_gbrfsx_extended__(integer *prec_type__, integer * 02476 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 02477 doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 02478 integer *ipiv, logical *colequ, doublereal *c__, doublereal *b, 02479 integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__, 02480 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 02481 doublereal *res, doublereal *ayb, doublereal *dy, doublereal * 02482 y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 02483 doublereal *dz_ub__, logical *ignore_cwise__, integer *info); 02484 02485 doublereal dla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * 02486 ncols, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb); 02487 02488 /* Subroutine */ int dla_geamv__(integer *trans, integer *m, integer *n, 02489 doublereal *alpha, doublereal *a, integer *lda, doublereal *x, 02490 integer *incx, doublereal *beta, doublereal *y, integer *incy); 02491 02492 doublereal dla_gercond__(char *trans, integer *n, doublereal *a, integer *lda, 02493 doublereal *af, integer *ldaf, integer *ipiv, integer *cmode, 02494 doublereal *c__, integer *info, doublereal *work, integer *iwork, 02495 ftnlen trans_len); 02496 02497 /* Subroutine */ int dla_gerfsx_extended__(integer *prec_type__, integer * 02498 trans_type__, integer *n, integer *nrhs, doublereal *a, integer *lda, 02499 doublereal *af, integer *ldaf, integer *ipiv, logical *colequ, 02500 doublereal *c__, doublereal *b, integer *ldb, doublereal *y, integer * 02501 ldy, doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__, 02502 doublereal *errs_c__, doublereal *res, doublereal *ayb, doublereal * 02503 dy, doublereal *y_tail__, doublereal *rcond, integer *ithresh, 02504 doublereal *rthresh, doublereal *dz_ub__, logical *ignore_cwise__, 02505 integer *info); 02506 02507 /* Subroutine */ int dla_lin_berr__(integer *n, integer *nz, integer *nrhs, 02508 doublereal *res, doublereal *ayb, doublereal *berr); 02509 02510 doublereal dla_porcond__(char *uplo, integer *n, doublereal *a, integer *lda, 02511 doublereal *af, integer *ldaf, integer *cmode, doublereal *c__, 02512 integer *info, doublereal *work, integer *iwork, ftnlen uplo_len); 02513 02514 /* Subroutine */ int dla_porfsx_extended__(integer *prec_type__, char *uplo, 02515 integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal * 02516 af, integer *ldaf, logical *colequ, doublereal *c__, doublereal *b, 02517 integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__, 02518 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 02519 doublereal *res, doublereal *ayb, doublereal *dy, doublereal * 02520 y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 02521 doublereal *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen 02522 uplo_len); 02523 02524 doublereal dla_porpvgrw__(char *uplo, integer *ncols, doublereal *a, integer * 02525 lda, doublereal *af, integer *ldaf, doublereal *work, ftnlen uplo_len); 02526 02527 doublereal dla_rpvgrw__(integer *n, integer *ncols, doublereal *a, integer * 02528 lda, doublereal *af, integer *ldaf); 02529 02530 /* Subroutine */ int dla_syamv__(integer *uplo, integer *n, doublereal *alpha, 02531 doublereal *a, integer *lda, doublereal *x, integer *incx, 02532 doublereal *beta, doublereal *y, integer *incy); 02533 02534 doublereal dla_syrcond__(char *uplo, integer *n, doublereal *a, integer *lda, 02535 doublereal *af, integer *ldaf, integer *ipiv, integer *cmode, 02536 doublereal *c__, integer *info, doublereal *work, integer *iwork, 02537 ftnlen uplo_len); 02538 02539 /* Subroutine */ int dla_syrfsx_extended__(integer *prec_type__, char *uplo, 02540 integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal * 02541 af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__, 02542 doublereal *b, integer *ldb, doublereal *y, integer *ldy, doublereal * 02543 berr_out__, integer *n_norms__, doublereal *errs_n__, doublereal * 02544 errs_c__, doublereal *res, doublereal *ayb, doublereal *dy, 02545 doublereal *y_tail__, doublereal *rcond, integer *ithresh, doublereal 02546 *rthresh, doublereal *dz_ub__, logical *ignore_cwise__, integer *info, 02547 ftnlen uplo_len); 02548 02549 doublereal dla_syrpvgrw__(char *uplo, integer *n, integer *info, doublereal * 02550 a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, 02551 doublereal *work, ftnlen uplo_len); 02552 02553 /* Subroutine */ int dla_wwaddw__(integer *n, doublereal *x, doublereal *y, 02554 doublereal *w); 02555 02556 /* Subroutine */ int dlabad_(doublereal *smallxx, doublereal *large); 02557 02558 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal * 02559 a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, 02560 doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer 02561 *ldy); 02562 02563 /* Subroutine */ int dlacn2_(integer *n, doublereal *v, doublereal *x, 02564 integer *isgn, doublereal *est, integer *kase, integer *isave); 02565 02566 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x, 02567 integer *isgn, doublereal *est, integer *kase); 02568 02569 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal * 02570 a, integer *lda, doublereal *b, integer *ldb); 02571 02572 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__, 02573 doublereal *d__, doublereal *p, doublereal *q); 02574 02575 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__, 02576 doublereal *rt1, doublereal *rt2); 02577 02578 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n, 02579 integer *mmax, integer *minp, integer *nbmin, doublereal *abstol, 02580 doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal * 02581 e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__, 02582 integer *mout, integer *nab, doublereal *work, integer *iwork, 02583 integer *info); 02584 02585 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n, 02586 doublereal *d__, doublereal *e, doublereal *q, integer *ldq, 02587 doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, 02588 integer *info); 02589 02590 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q, 02591 integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, 02592 doublereal *work, integer *iwork, integer *info); 02593 02594 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal * 02595 d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, 02596 doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2, 02597 integer *indx, integer *indxc, integer *indxp, integer *coltyp, 02598 integer *info); 02599 02600 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal * 02601 d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda, 02602 doublereal *q2, integer *indx, integer *ctot, doublereal *w, 02603 doublereal *s, integer *info); 02604 02605 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__, 02606 doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam, 02607 integer *info); 02608 02609 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, 02610 doublereal *delta, doublereal *rho, doublereal *dlam); 02611 02612 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal * 02613 rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal * 02614 tau, integer *info); 02615 02616 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz, 02617 integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 02618 doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer 02619 *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer * 02620 perm, integer *givptr, integer *givcol, doublereal *givnum, 02621 doublereal *work, integer *iwork, integer *info); 02622 02623 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer 02624 *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, 02625 doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda, 02626 doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer 02627 *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer 02628 *indx, integer *info); 02629 02630 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop, 02631 integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal * 02632 rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds, 02633 integer *info); 02634 02635 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl, 02636 integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 02637 integer *givcol, doublereal *givnum, doublereal *q, integer *qptr, 02638 doublereal *z__, doublereal *ztemp, integer *info); 02639 02640 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n, 02641 doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, 02642 doublereal *vr, doublereal *vi, doublereal *b, integer *ldb, 02643 doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal * 02644 bignum, integer *info); 02645 02646 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, 02647 doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1); 02648 02649 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t, 02650 integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, 02651 integer *n2, doublereal *work, integer *info); 02652 02653 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b, 02654 integer *ldb, doublereal *safmin, doublereal *scale1, doublereal * 02655 scale2, doublereal *wr1, doublereal *wr2, doublereal *wi); 02656 02657 /* Subroutine */ int dlag2s_(integer *m, integer *n, doublereal *a, integer * 02658 lda, real *sa, integer *ldsa, integer *info); 02659 02660 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2, 02661 doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3, 02662 doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv, 02663 doublereal *csq, doublereal *snq); 02664 02665 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda, 02666 doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, 02667 integer *in, integer *info); 02668 02669 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs, 02670 doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, 02671 doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer 02672 *ldb); 02673 02674 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a, 02675 doublereal *b, doublereal *c__, doublereal *d__, integer *in, 02676 doublereal *y, doublereal *tol, integer *info); 02677 02678 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b, 02679 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * 02680 beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal * 02681 snr); 02682 02683 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n, 02684 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 02685 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 02686 integer *ldz, integer *info); 02687 02688 /* Subroutine */ int dlahr2_(integer *n, integer *k, integer *nb, doublereal * 02689 a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 02690 doublereal *y, integer *ldy); 02691 02692 /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal * 02693 a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 02694 doublereal *y, integer *ldy); 02695 02696 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x, 02697 doublereal *sest, doublereal *w, doublereal *gamma, doublereal * 02698 sestpr, doublereal *s, doublereal *c__); 02699 02700 logical dlaisnan_(doublereal *din1, doublereal *din2); 02701 02702 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw, 02703 doublereal *smin, doublereal *ca, doublereal *a, integer *lda, 02704 doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, 02705 doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, 02706 doublereal *scale, doublereal *xnorm, integer *info); 02707 02708 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr, 02709 integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal 02710 *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, 02711 integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal * 02712 poles, doublereal *difl, doublereal *difr, doublereal *z__, integer * 02713 k, doublereal *c__, doublereal *s, doublereal *work, integer *info); 02714 02715 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n, 02716 integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer * 02717 ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, 02718 doublereal *difl, doublereal *difr, doublereal *z__, doublereal * 02719 poles, integer *givptr, integer *givcol, integer *ldgcol, integer * 02720 perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal * 02721 work, integer *iwork, integer *info); 02722 02723 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer 02724 *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, 02725 doublereal *rcond, integer *rank, doublereal *work, integer *iwork, 02726 integer *info); 02727 02728 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer 02729 *dtrd1, integer *dtrd2, integer *index); 02730 02731 integer dlaneg_(integer *n, doublereal *d__, doublereal *lld, doublereal * 02732 sigma, doublereal *pivmin, integer *r__); 02733 02734 doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku, 02735 doublereal *ab, integer *ldab, doublereal *work); 02736 02737 doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer 02738 *lda, doublereal *work); 02739 02740 doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__, 02741 doublereal *du); 02742 02743 doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda, 02744 doublereal *work); 02745 02746 doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal 02747 *ab, integer *ldab, doublereal *work); 02748 02749 doublereal dlansf_(char *norm, char *transr, char *uplo, integer *n, 02750 doublereal *a, doublereal *work); 02751 02752 doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap, 02753 doublereal *work); 02754 02755 doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e); 02756 02757 doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer 02758 *lda, doublereal *work); 02759 02760 doublereal dlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 02761 doublereal *ab, integer *ldab, doublereal *work); 02762 02763 doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal 02764 *ap, doublereal *work); 02765 02766 doublereal dlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 02767 doublereal *a, integer *lda, doublereal *work); 02768 02769 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, 02770 doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r, 02771 doublereal *rt2i, doublereal *cs, doublereal *sn); 02772 02773 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx, 02774 doublereal *y, integer *incy, doublereal *ssmin); 02775 02776 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n, 02777 doublereal *x, integer *ldx, integer *k); 02778 02779 doublereal dlapy2_(doublereal *x, doublereal *y); 02780 02781 doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__); 02782 02783 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku, 02784 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 02785 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed); 02786 02787 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer * 02788 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 02789 *colcnd, doublereal *amax, char *equed); 02790 02791 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset, 02792 doublereal *a, integer *lda, integer *jpvt, doublereal *tau, 02793 doublereal *vn1, doublereal *vn2, doublereal *work); 02794 02795 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer 02796 *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt, 02797 doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv, 02798 doublereal *f, integer *ldf); 02799 02800 /* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, integer *n, 02801 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 02802 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 02803 integer *ldz, doublereal *work, integer *lwork, integer *info); 02804 02805 /* Subroutine */ int dlaqr1_(integer *n, doublereal *h__, integer *ldh, 02806 doublereal *sr1, doublereal *si1, doublereal *sr2, doublereal *si2, 02807 doublereal *v); 02808 02809 /* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, integer *n, 02810 integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer * 02811 ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, 02812 integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal * 02813 v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer * 02814 nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork); 02815 02816 /* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, integer *n, 02817 integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer * 02818 ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, 02819 integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal * 02820 v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer * 02821 nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork); 02822 02823 /* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, integer *n, 02824 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 02825 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 02826 integer *ldz, doublereal *work, integer *lwork, integer *info); 02827 02828 /* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, integer *kacc22, 02829 integer *n, integer *ktop, integer *kbot, integer *nshfts, doublereal 02830 *sr, doublereal *si, doublereal *h__, integer *ldh, integer *iloz, 02831 integer *ihiz, doublereal *z__, integer *ldz, doublereal *v, integer * 02832 ldv, doublereal *u, integer *ldu, integer *nv, doublereal *wv, 02833 integer *ldwv, integer *nh, doublereal *wh, integer *ldwh); 02834 02835 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal * 02836 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, 02837 char *equed); 02838 02839 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap, 02840 doublereal *s, doublereal *scond, doublereal *amax, char *equed); 02841 02842 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer * 02843 lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed); 02844 02845 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n, 02846 doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal 02847 *scale, doublereal *x, doublereal *work, integer *info); 02848 02849 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal 02850 *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal * 02851 lld, doublereal *pivmin, doublereal *gaptol, doublereal *z__, logical 02852 *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, 02853 integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid, 02854 doublereal *rqcorr, doublereal *work); 02855 02856 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y, 02857 doublereal *z__, integer *incx, doublereal *c__, doublereal *s, 02858 integer *incc); 02859 02860 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v, 02861 integer *incv, doublereal *tau, doublereal *c__, integer *ldc, 02862 doublereal *work); 02863 02864 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char * 02865 storev, integer *m, integer *n, integer *k, doublereal *v, integer * 02866 ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, 02867 doublereal *work, integer *ldwork); 02868 02869 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x, 02870 integer *incx, doublereal *tau); 02871 02872 /* Subroutine */ int dlarfp_(integer *n, doublereal *alpha, doublereal *x, 02873 integer *incx, doublereal *tau); 02874 02875 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer * 02876 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 02877 integer *ldt); 02878 02879 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal * 02880 v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work); 02881 02882 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx, 02883 doublereal *y, integer *incy, doublereal *c__, integer *incc); 02884 02885 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n, 02886 doublereal *x); 02887 02888 /* Subroutine */ int dlarra_(integer *n, doublereal *d__, doublereal *e, 02889 doublereal *e2, doublereal *spltol, doublereal *tnrm, integer *nsplit, 02890 integer *isplit, integer *info); 02891 02892 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *lld, 02893 integer *ifirst, integer *ilast, doublereal *rtol1, doublereal *rtol2, 02894 integer *offset, doublereal *w, doublereal *wgap, doublereal *werr, 02895 doublereal *work, integer *iwork, doublereal *pivmin, doublereal * 02896 spdiam, integer *twist, integer *info); 02897 02898 /* Subroutine */ int dlarrc_(char *jobt, integer *n, doublereal *vl, 02899 doublereal *vu, doublereal *d__, doublereal *e, doublereal *pivmin, 02900 integer *eigcnt, integer *lcnt, integer *rcnt, integer *info); 02901 02902 /* Subroutine */ int dlarrd_(char *range, char *order, integer *n, doublereal 02903 *vl, doublereal *vu, integer *il, integer *iu, doublereal *gers, 02904 doublereal *reltol, doublereal *d__, doublereal *e, doublereal *e2, 02905 doublereal *pivmin, integer *nsplit, integer *isplit, integer *m, 02906 doublereal *w, doublereal *werr, doublereal *wl, doublereal *wu, 02907 integer *iblock, integer *indexw, doublereal *work, integer *iwork, 02908 integer *info); 02909 02910 /* Subroutine */ int dlarre_(char *range, integer *n, doublereal *vl, 02911 doublereal *vu, integer *il, integer *iu, doublereal *d__, doublereal 02912 *e, doublereal *e2, doublereal *rtol1, doublereal *rtol2, doublereal * 02913 spltol, integer *nsplit, integer *isplit, integer *m, doublereal *w, 02914 doublereal *werr, doublereal *wgap, integer *iblock, integer *indexw, 02915 doublereal *gers, doublereal *pivmin, doublereal *work, integer * 02916 iwork, integer *info); 02917 02918 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l, 02919 doublereal *ld, integer *clstrt, integer *clend, doublereal *w, 02920 doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal * 02921 clgapl, doublereal *clgapr, doublereal *pivmin, doublereal *sigma, 02922 doublereal *dplus, doublereal *lplus, doublereal *work, integer *info); 02923 02924 /* Subroutine */ int dlarrj_(integer *n, doublereal *d__, doublereal *e2, 02925 integer *ifirst, integer *ilast, doublereal *rtol, integer *offset, 02926 doublereal *w, doublereal *werr, doublereal *work, integer *iwork, 02927 doublereal *pivmin, doublereal *spdiam, integer *info); 02928 02929 /* Subroutine */ int dlarrk_(integer *n, integer *iw, doublereal *gl, 02930 doublereal *gu, doublereal *d__, doublereal *e2, doublereal *pivmin, 02931 doublereal *reltol, doublereal *w, doublereal *werr, integer *info); 02932 02933 /* Subroutine */ int dlarrr_(integer *n, doublereal *d__, doublereal *e, 02934 integer *info); 02935 02936 /* Subroutine */ int dlarrv_(integer *n, doublereal *vl, doublereal *vu, 02937 doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, 02938 integer *m, integer *dol, integer *dou, doublereal *minrgp, 02939 doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr, 02940 doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers, 02941 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 02942 integer *iwork, integer *info); 02943 02944 /* Subroutine */ int dlarscl2_(integer *m, integer *n, doublereal *d__, 02945 doublereal *x, integer *ldx); 02946 02947 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs, 02948 doublereal *sn, doublereal *r__); 02949 02950 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx, 02951 doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer 02952 *incc); 02953 02954 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x); 02955 02956 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l, 02957 doublereal *v, integer *incv, doublereal *tau, doublereal *c__, 02958 integer *ldc, doublereal *work); 02959 02960 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char * 02961 storev, integer *m, integer *n, integer *k, integer *l, doublereal *v, 02962 integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer * 02963 ldc, doublereal *work, integer *ldwork); 02964 02965 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer * 02966 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 02967 integer *ldt); 02968 02969 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__, 02970 doublereal *ssmin, doublereal *ssmax); 02971 02972 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku, 02973 doublereal *cfrom, doublereal *cto, integer *m, integer *n, 02974 doublereal *a, integer *lda, integer *info); 02975 02976 /* Subroutine */ int dlascl2_(integer *m, integer *n, doublereal *d__, 02977 doublereal *x, integer *ldx); 02978 02979 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__, 02980 doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer * 02981 ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer * 02982 info); 02983 02984 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre, 02985 doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u, 02986 integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer * 02987 iwork, doublereal *work, integer *info); 02988 02989 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer 02990 *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal * 02991 beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, 02992 doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2, 02993 integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer * 02994 idxq, integer *coltyp, integer *info); 02995 02996 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer 02997 *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma, 02998 doublereal *u, integer *ldu, doublereal *u2, integer *ldu2, 02999 doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2, 03000 integer *idxc, integer *ctot, doublereal *z__, integer *info); 03001 03002 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__, 03003 doublereal *z__, doublereal *delta, doublereal *rho, doublereal * 03004 sigma, doublereal *work, integer *info); 03005 03006 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, 03007 doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal * 03008 work); 03009 03010 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr, 03011 integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl, 03012 doublereal *alpha, doublereal *beta, integer *idxq, integer *perm, 03013 integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, 03014 integer *ldgnum, doublereal *poles, doublereal *difl, doublereal * 03015 difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, 03016 doublereal *work, integer *iwork, integer *info); 03017 03018 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr, 03019 integer *sqre, integer *k, doublereal *d__, doublereal *z__, 03020 doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl, 03021 doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal * 03022 dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, 03023 integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, 03024 integer *ldgnum, doublereal *c__, doublereal *s, integer *info); 03025 03026 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__, 03027 doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, 03028 doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal * 03029 work, integer *info); 03030 03031 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n, 03032 integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer 03033 *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, 03034 doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, 03035 integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, 03036 doublereal *s, doublereal *work, integer *iwork, integer *info); 03037 03038 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer * 03039 ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, 03040 doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, 03041 doublereal *c__, integer *ldc, doublereal *work, integer *info); 03042 03043 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer * 03044 inode, integer *ndiml, integer *ndimr, integer *msub); 03045 03046 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal * 03047 alpha, doublereal *beta, doublereal *a, integer *lda); 03048 03049 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e, 03050 doublereal *work, integer *info); 03051 03052 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info); 03053 03054 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__, 03055 integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig, 03056 doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, 03057 logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2, 03058 doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *g, 03059 doublereal *tau); 03060 03061 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__, 03062 integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, 03063 doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, 03064 doublereal *tau, integer *ttype, doublereal *g); 03065 03066 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__, 03067 integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, 03068 doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2, 03069 logical *ieee); 03070 03071 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__, 03072 integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, 03073 doublereal *dn, doublereal *dnm1, doublereal *dnm2); 03074 03075 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m, 03076 integer *n, doublereal *c__, doublereal *s, doublereal *a, integer * 03077 lda); 03078 03079 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer * 03080 info); 03081 03082 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx, 03083 doublereal *scale, doublereal *sumsq); 03084 03085 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, 03086 doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal * 03087 csr, doublereal *snl, doublereal *csl); 03088 03089 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer 03090 *k1, integer *k2, integer *ipiv, integer *incx); 03091 03092 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, 03093 integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal * 03094 tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, 03095 doublereal *x, integer *ldx, doublereal *xnorm, integer *info); 03096 03097 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb, 03098 doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer * 03099 ldw, integer *info); 03100 03101 /* Subroutine */ int dlat2s_(char *uplo, integer *n, doublereal *a, integer * 03102 lda, real *sa, integer *ldsa, integer *info); 03103 03104 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char * 03105 normin, integer *n, integer *kd, doublereal *ab, integer *ldab, 03106 doublereal *x, doublereal *scale, doublereal *cnorm, integer *info); 03107 03108 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__, 03109 integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, 03110 integer *ipiv, integer *jpiv); 03111 03112 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char * 03113 normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale, 03114 doublereal *cnorm, integer *info); 03115 03116 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal * 03117 a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, 03118 integer *ldw); 03119 03120 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char * 03121 normin, integer *n, doublereal *a, integer *lda, doublereal *x, 03122 doublereal *scale, doublereal *cnorm, integer *info); 03123 03124 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal * 03125 a, integer *lda, doublereal *tau, doublereal *work); 03126 03127 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal * 03128 v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, 03129 integer *ldc, doublereal *work); 03130 03131 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer * 03132 lda, integer *info); 03133 03134 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer * 03135 lda, integer *info); 03136 03137 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap, 03138 doublereal *tau, doublereal *q, integer *ldq, doublereal *work, 03139 integer *info); 03140 03141 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m, 03142 integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer 03143 *ldc, doublereal *work, integer *info); 03144 03145 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal * 03146 a, integer *lda, doublereal *tau, doublereal *work, integer *info); 03147 03148 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal * 03149 a, integer *lda, doublereal *tau, doublereal *work, integer *info); 03150 03151 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k, 03152 doublereal *a, integer *lda, doublereal *tau, doublereal *work, 03153 integer *lwork, integer *info); 03154 03155 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi, 03156 doublereal *a, integer *lda, doublereal *tau, doublereal *work, 03157 integer *lwork, integer *info); 03158 03159 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal * 03160 a, integer *lda, doublereal *tau, doublereal *work, integer *info); 03161 03162 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal * 03163 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 03164 integer *info); 03165 03166 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal * 03167 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 03168 integer *info); 03169 03170 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal * 03171 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 03172 integer *info); 03173 03174 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal * 03175 a, integer *lda, doublereal *tau, doublereal *work, integer *info); 03176 03177 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal * 03178 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 03179 integer *info); 03180 03181 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer * 03182 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 03183 03184 /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n, 03185 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 03186 c__, integer *ldc, doublereal *work, integer *info); 03187 03188 /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n, 03189 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 03190 c__, integer *ldc, doublereal *work, integer *info); 03191 03192 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m, 03193 integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, 03194 doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 03195 integer *info); 03196 03197 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n, 03198 integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal * 03199 tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 03200 integer *info); 03201 03202 /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n, 03203 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 03204 c__, integer *ldc, doublereal *work, integer *info); 03205 03206 /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n, 03207 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 03208 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 03209 03210 /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n, 03211 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 03212 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 03213 03214 /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n, 03215 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 03216 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 03217 03218 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n, 03219 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 03220 c__, integer *ldc, doublereal *work, integer *info); 03221 03222 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n, 03223 integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 03224 doublereal *c__, integer *ldc, doublereal *work, integer *info); 03225 03226 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n, 03227 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal * 03228 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 03229 03230 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n, 03231 integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 03232 doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 03233 integer *info); 03234 03235 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m, 03236 integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal * 03237 c__, integer *ldc, doublereal *work, integer *lwork, integer *info); 03238 03239 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal * 03240 ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal * 03241 work, integer *iwork, integer *info); 03242 03243 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal * 03244 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, 03245 integer *info); 03246 03247 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer * 03248 nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 03249 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 03250 ferr, doublereal *berr, doublereal *work, integer *iwork, integer * 03251 info); 03252 03253 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal * 03254 ab, integer *ldab, integer *info); 03255 03256 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer * 03257 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 03258 integer *info); 03259 03260 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 03261 integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 03262 integer *ldafb, char *equed, doublereal *s, doublereal *b, integer * 03263 ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 03264 doublereal *berr, doublereal *work, integer *iwork, integer *info); 03265 03266 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal * 03267 ab, integer *ldab, integer *info); 03268 03269 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal * 03270 ab, integer *ldab, integer *info); 03271 03272 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer * 03273 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 03274 integer *info); 03275 03276 /* Subroutine */ int dpftrf_(char *transr, char *uplo, integer *n, doublereal 03277 *a, integer *info); 03278 03279 /* Subroutine */ int dpftri_(char *transr, char *uplo, integer *n, doublereal 03280 *a, integer *info); 03281 03282 /* Subroutine */ int dpftrs_(char *transr, char *uplo, integer *n, integer * 03283 nrhs, doublereal *a, doublereal *b, integer *ldb, integer *info); 03284 03285 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer * 03286 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer * 03287 iwork, integer *info); 03288 03289 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda, 03290 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 03291 03292 /* Subroutine */ int dpoequb_(integer *n, doublereal *a, integer *lda, 03293 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 03294 03295 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs, 03296 doublereal *a, integer *lda, doublereal *af, integer *ldaf, 03297 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 03298 ferr, doublereal *berr, doublereal *work, integer *iwork, integer * 03299 info); 03300 03301 /* Subroutine */ int dporfsx_(char *uplo, char *equed, integer *n, integer * 03302 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 03303 doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer * 03304 ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__, 03305 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 03306 nparams, doublereal *params, doublereal *work, integer *iwork, 03307 integer *info); 03308 03309 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal 03310 *a, integer *lda, doublereal *b, integer *ldb, integer *info); 03311 03312 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer * 03313 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 03314 char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal * 03315 x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal * 03316 berr, doublereal *work, integer *iwork, integer *info); 03317 03318 /* Subroutine */ int dposvxx_(char *fact, char *uplo, integer *n, integer * 03319 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 03320 char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal * 03321 x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, doublereal * 03322 berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 03323 err_bnds_comp__, integer *nparams, doublereal *params, doublereal * 03324 work, integer *iwork, integer *info); 03325 03326 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer * 03327 lda, integer *info); 03328 03329 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer * 03330 lda, integer *info); 03331 03332 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer * 03333 lda, integer *info); 03334 03335 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs, 03336 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 03337 info); 03338 03339 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap, 03340 doublereal *anorm, doublereal *rcond, doublereal *work, integer * 03341 iwork, integer *info); 03342 03343 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap, 03344 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 03345 03346 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs, 03347 doublereal *ap, doublereal *afp, doublereal *b, integer *ldb, 03348 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 03349 doublereal *work, integer *iwork, integer *info); 03350 03351 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal 03352 *ap, doublereal *b, integer *ldb, integer *info); 03353 03354 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer * 03355 nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s, 03356 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 03357 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * 03358 iwork, integer *info); 03359 03360 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer * 03361 info); 03362 03363 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer * 03364 info); 03365 03366 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs, 03367 doublereal *ap, doublereal *b, integer *ldb, integer *info); 03368 03369 /* Subroutine */ int dpstf2_(char *uplo, integer *n, doublereal *a, integer * 03370 lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, 03371 integer *info); 03372 03373 /* Subroutine */ int dpstrf_(char *uplo, integer *n, doublereal *a, integer * 03374 lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, 03375 integer *info); 03376 03377 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e, 03378 doublereal *anorm, doublereal *rcond, doublereal *work, integer *info); 03379 03380 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__, 03381 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 03382 integer *info); 03383 03384 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__, 03385 doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer 03386 *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 03387 doublereal *work, integer *info); 03388 03389 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__, 03390 doublereal *e, doublereal *b, integer *ldb, integer *info); 03391 03392 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs, 03393 doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, 03394 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal * 03395 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer * 03396 info); 03397 03398 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e, 03399 integer *info); 03400 03401 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__, 03402 doublereal *e, doublereal *b, integer *ldb, integer *info); 03403 03404 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__, 03405 doublereal *e, doublereal *b, integer *ldb); 03406 03407 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx, 03408 integer *incx); 03409 03410 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd, 03411 doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 03412 integer *ldz, doublereal *work, integer *info); 03413 03414 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd, 03415 doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 03416 integer *ldz, doublereal *work, integer *lwork, integer *iwork, 03417 integer *liwork, integer *info); 03418 03419 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n, 03420 integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer * 03421 ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, 03422 doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 03423 integer *ldz, doublereal *work, integer *iwork, integer *ifail, 03424 integer *info); 03425 03426 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka, 03427 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * 03428 ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info); 03429 03430 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, 03431 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * 03432 ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 03433 integer *info); 03434 03435 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 03436 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer * 03437 ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 03438 integer *lwork, integer *iwork, integer *liwork, integer *info); 03439 03440 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n, 03441 integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal * 03442 bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl, 03443 doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer 03444 *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 03445 integer *iwork, integer *ifail, integer *info); 03446 03447 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd, 03448 doublereal *ab, integer *ldab, doublereal *d__, doublereal *e, 03449 doublereal *q, integer *ldq, doublereal *work, integer *info); 03450 03451 /* Subroutine */ int dsfrk_(char *transr, char *uplo, char *trans, integer *n, 03452 integer *k, doublereal *alpha, doublereal *a, integer *lda, 03453 doublereal *beta, doublereal *c__); 03454 03455 /* Subroutine */ int dsgesv_(integer *n, integer *nrhs, doublereal *a, 03456 integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal * 03457 x, integer *ldx, doublereal *work, real *swork, integer *iter, 03458 integer *info); 03459 03460 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer * 03461 ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer 03462 *iwork, integer *info); 03463 03464 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal * 03465 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 03466 integer *info); 03467 03468 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal * 03469 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 03470 integer *lwork, integer *iwork, integer *liwork, integer *info); 03471 03472 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n, 03473 doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer * 03474 iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 03475 integer *ldz, doublereal *work, integer *iwork, integer *ifail, 03476 integer *info); 03477 03478 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n, 03479 doublereal *ap, doublereal *bp, integer *info); 03480 03481 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer * 03482 n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, 03483 integer *ldz, doublereal *work, integer *info); 03484 03485 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer * 03486 n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, 03487 integer *ldz, doublereal *work, integer *lwork, integer *iwork, 03488 integer *liwork, integer *info); 03489 03490 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char * 03491 uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl, 03492 doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer 03493 *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 03494 integer *iwork, integer *ifail, integer *info); 03495 03496 /* Subroutine */ int dsposv_(char *uplo, integer *n, integer *nrhs, 03497 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 03498 x, integer *ldx, doublereal *work, real *swork, integer *iter, 03499 integer *info); 03500 03501 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs, 03502 doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, 03503 integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, 03504 doublereal *berr, doublereal *work, integer *iwork, integer *info); 03505 03506 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal 03507 *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info); 03508 03509 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer * 03510 nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, 03511 integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, 03512 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 03513 integer *info); 03514 03515 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap, 03516 doublereal *d__, doublereal *e, doublereal *tau, integer *info); 03517 03518 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer * 03519 ipiv, integer *info); 03520 03521 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer * 03522 ipiv, doublereal *work, integer *info); 03523 03524 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs, 03525 doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer * 03526 info); 03527 03528 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal 03529 *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, 03530 doublereal *d__, doublereal *e, integer *m, integer *nsplit, 03531 doublereal *w, integer *iblock, integer *isplit, doublereal *work, 03532 integer *iwork, integer *info); 03533 03534 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__, 03535 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 03536 integer *lwork, integer *iwork, integer *liwork, integer *info); 03537 03538 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal * 03539 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 03540 integer *iu, doublereal *abstol, integer *m, doublereal *w, 03541 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 03542 integer *lwork, integer *iwork, integer *liwork, integer *info); 03543 03544 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e, 03545 integer *m, doublereal *w, integer *iblock, integer *isplit, 03546 doublereal *z__, integer *ldz, doublereal *work, integer *iwork, 03547 integer *ifail, integer *info); 03548 03549 /* Subroutine */ int dstemr_(char *jobz, char *range, integer *n, doublereal * 03550 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 03551 integer *iu, integer *m, doublereal *w, doublereal *z__, integer *ldz, 03552 integer *nzc, integer *isuppz, logical *tryrac, doublereal *work, 03553 integer *lwork, integer *iwork, integer *liwork, integer *info); 03554 03555 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__, 03556 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 03557 integer *info); 03558 03559 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e, 03560 integer *info); 03561 03562 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__, 03563 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 03564 integer *info); 03565 03566 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__, 03567 doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 03568 integer *lwork, integer *iwork, integer *liwork, integer *info); 03569 03570 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal * 03571 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 03572 integer *iu, doublereal *abstol, integer *m, doublereal *w, 03573 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 03574 integer *lwork, integer *iwork, integer *liwork, integer *info); 03575 03576 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal * 03577 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 03578 integer *iu, doublereal *abstol, integer *m, doublereal *w, 03579 doublereal *z__, integer *ldz, doublereal *work, integer *iwork, 03580 integer *ifail, integer *info); 03581 03582 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer * 03583 lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal * 03584 work, integer *iwork, integer *info); 03585 03586 /* Subroutine */ int dsyequb_(char *uplo, integer *n, doublereal *a, integer * 03587 lda, doublereal *s, doublereal *scond, doublereal *amax, doublereal * 03588 work, integer *info); 03589 03590 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a, 03591 integer *lda, doublereal *w, doublereal *work, integer *lwork, 03592 integer *info); 03593 03594 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal * 03595 a, integer *lda, doublereal *w, doublereal *work, integer *lwork, 03596 integer *iwork, integer *liwork, integer *info); 03597 03598 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n, 03599 doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer * 03600 il, integer *iu, doublereal *abstol, integer *m, doublereal *w, 03601 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 03602 integer *lwork, integer *iwork, integer *liwork, integer *info); 03603 03604 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n, 03605 doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer * 03606 il, integer *iu, doublereal *abstol, integer *m, doublereal *w, 03607 doublereal *z__, integer *ldz, doublereal *work, integer *lwork, 03608 integer *iwork, integer *ifail, integer *info); 03609 03610 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n, 03611 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 03612 info); 03613 03614 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n, 03615 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer * 03616 info); 03617 03618 /* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer * 03619 n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 03620 doublereal *w, doublereal *work, integer *lwork, integer *info); 03621 03622 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer * 03623 n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 03624 doublereal *w, doublereal *work, integer *lwork, integer *iwork, 03625 integer *liwork, integer *info); 03626 03627 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char * 03628 uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer 03629 *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu, 03630 doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 03631 integer *ldz, doublereal *work, integer *lwork, integer *iwork, 03632 integer *ifail, integer *info); 03633 03634 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs, 03635 doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer * 03636 ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 03637 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 03638 integer *info); 03639 03640 /* Subroutine */ int dsyrfsx_(char *uplo, char *equed, integer *n, integer * 03641 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 03642 integer *ipiv, doublereal *s, doublereal *b, integer *ldb, doublereal 03643 *x, integer *ldx, doublereal *rcond, doublereal *berr, integer * 03644 n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 03645 err_bnds_comp__, integer *nparams, doublereal *params, doublereal * 03646 work, integer *iwork, integer *info); 03647 03648 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal 03649 *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, 03650 doublereal *work, integer *lwork, integer *info); 03651 03652 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer * 03653 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 03654 integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer * 03655 ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 03656 doublereal *work, integer *lwork, integer *iwork, integer *info); 03657 03658 /* Subroutine */ int dsysvxx_(char *fact, char *uplo, integer *n, integer * 03659 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 03660 integer *ipiv, char *equed, doublereal *s, doublereal *b, integer * 03661 ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal * 03662 rpvgrw, doublereal *berr, integer *n_err_bnds__, doublereal * 03663 err_bnds_norm__, doublereal *err_bnds_comp__, integer *nparams, 03664 doublereal *params, doublereal *work, integer *iwork, integer *info); 03665 03666 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer * 03667 lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info); 03668 03669 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer * 03670 lda, integer *ipiv, integer *info); 03671 03672 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer * 03673 lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal * 03674 work, integer *lwork, integer *info); 03675 03676 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer * 03677 lda, integer *ipiv, doublereal *work, integer *lwork, integer *info); 03678 03679 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer * 03680 lda, integer *ipiv, doublereal *work, integer *info); 03681 03682 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs, 03683 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer * 03684 ldb, integer *info); 03685 03686 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n, 03687 integer *kd, doublereal *ab, integer *ldab, doublereal *rcond, 03688 doublereal *work, integer *iwork, integer *info); 03689 03690 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n, 03691 integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal 03692 *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, 03693 doublereal *berr, doublereal *work, integer *iwork, integer *info); 03694 03695 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n, 03696 integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal 03697 *b, integer *ldb, integer *info); 03698 03699 /* Subroutine */ int dtfsm_(char *transr, char *side, char *uplo, char *trans, 03700 char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, 03701 doublereal *b, integer *ldb); 03702 03703 /* Subroutine */ int dtftri_(char *transr, char *uplo, char *diag, integer *n, 03704 doublereal *a, integer *info); 03705 03706 /* Subroutine */ int dtfttp_(char *transr, char *uplo, integer *n, doublereal 03707 *arf, doublereal *ap, integer *info); 03708 03709 /* Subroutine */ int dtfttr_(char *transr, char *uplo, integer *n, doublereal 03710 *arf, doublereal *a, integer *lda, integer *info); 03711 03712 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select, 03713 integer *n, doublereal *s, integer *lds, doublereal *p, integer *ldp, 03714 doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer 03715 *mm, integer *m, doublereal *work, integer *info); 03716 03717 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n, 03718 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 03719 q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer * 03720 n1, integer *n2, doublereal *work, integer *lwork, integer *info); 03721 03722 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n, 03723 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal * 03724 q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst, 03725 integer *ilst, doublereal *work, integer *lwork, integer *info); 03726 03727 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz, 03728 logical *select, integer *n, doublereal *a, integer *lda, doublereal * 03729 b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal * 03730 beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 03731 integer *m, doublereal *pl, doublereal *pr, doublereal *dif, 03732 doublereal *work, integer *lwork, integer *iwork, integer *liwork, 03733 integer *info); 03734 03735 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m, 03736 integer *p, integer *n, integer *k, integer *l, doublereal *a, 03737 integer *lda, doublereal *b, integer *ldb, doublereal *tola, 03738 doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u, 03739 integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer * 03740 ldq, doublereal *work, integer *ncycle, integer *info); 03741 03742 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select, 03743 integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 03744 doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 03745 doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal * 03746 work, integer *lwork, integer *iwork, integer *info); 03747 03748 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer * 03749 n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 03750 doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, 03751 doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal * 03752 scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer 03753 *pq, integer *info); 03754 03755 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer * 03756 n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 03757 doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, 03758 doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal * 03759 scale, doublereal *dif, doublereal *work, integer *lwork, integer * 03760 iwork, integer *info); 03761 03762 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n, 03763 doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork, 03764 integer *info); 03765 03766 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n, 03767 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, 03768 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 03769 doublereal *work, integer *iwork, integer *info); 03770 03771 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal * 03772 ap, integer *info); 03773 03774 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n, 03775 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer * 03776 info); 03777 03778 /* Subroutine */ int dtpttf_(char *transr, char *uplo, integer *n, doublereal 03779 *ap, doublereal *arf, integer *info); 03780 03781 /* Subroutine */ int dtpttr_(char *uplo, integer *n, doublereal *ap, 03782 doublereal *a, integer *lda, integer *info); 03783 03784 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n, 03785 doublereal *a, integer *lda, doublereal *rcond, doublereal *work, 03786 integer *iwork, integer *info); 03787 03788 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select, 03789 integer *n, doublereal *t, integer *ldt, doublereal *vl, integer * 03790 ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, 03791 doublereal *work, integer *info); 03792 03793 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer * 03794 ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst, 03795 doublereal *work, integer *info); 03796 03797 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n, 03798 integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer * 03799 ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 03800 doublereal *work, integer *iwork, integer *info); 03801 03802 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer 03803 *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, 03804 doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal 03805 *sep, doublereal *work, integer *lwork, integer *iwork, integer * 03806 liwork, integer *info); 03807 03808 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select, 03809 integer *n, doublereal *t, integer *ldt, doublereal *vl, integer * 03810 ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep, 03811 integer *mm, integer *m, doublereal *work, integer *ldwork, integer * 03812 iwork, integer *info); 03813 03814 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer 03815 *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer * 03816 ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info); 03817 03818 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal * 03819 a, integer *lda, integer *info); 03820 03821 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal * 03822 a, integer *lda, integer *info); 03823 03824 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n, 03825 integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer * 03826 ldb, integer *info); 03827 03828 /* Subroutine */ int dtrttf_(char *transr, char *uplo, integer *n, doublereal 03829 *a, integer *lda, doublereal *arf, integer *info); 03830 03831 /* Subroutine */ int dtrttp_(char *uplo, integer *n, doublereal *a, integer * 03832 lda, doublereal *ap, integer *info); 03833 03834 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer * 03835 lda, doublereal *tau, integer *info); 03836 03837 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer * 03838 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info); 03839 03840 doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx); 03841 03842 integer icmax1_(integer *n, singlecomplex *cx, integer *incx); 03843 03844 integer ieeeck_(integer *ispec, real *zero, real *one); 03845 03846 integer ilaclc_(integer *m, integer *n, singlecomplex *a, integer *lda); 03847 03848 integer ilaclr_(integer *m, integer *n, singlecomplex *a, integer *lda); 03849 03850 integer iladiag_(char *diag); 03851 03852 integer iladlc_(integer *m, integer *n, doublereal *a, integer *lda); 03853 03854 integer iladlr_(integer *m, integer *n, doublereal *a, integer *lda); 03855 03856 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 03857 integer *n2, integer *n3, integer *n4); 03858 03859 integer ilaprec_(char *prec); 03860 03861 integer ilaslc_(integer *m, integer *n, real *a, integer *lda); 03862 03863 integer ilaslr_(integer *m, integer *n, real *a, integer *lda); 03864 03865 integer ilatrans_(char *trans); 03866 03867 integer ilauplo_(char *uplo); 03868 03869 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__, 03870 integer *vers_patch__); 03871 03872 integer ilazlc_(integer *m, integer *n, doublecomplex *a, integer *lda); 03873 03874 integer ilazlr_(integer *m, integer *n, doublecomplex *a, integer *lda); 03875 03876 integer iparmq_(integer *ispec, char *name__, char *opts, integer *n, integer 03877 *ilo, integer *ihi, integer *lwork); 03878 03879 integer izmax1_(integer *n, doublecomplex *cx, integer *incx); 03880 03881 logical lsamen_(integer *n, char *ca, char *cb); 03882 03883 integer smaxloc_(real *a, integer *dimm); 03884 03885 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__, 03886 real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q, 03887 integer *iq, real *work, integer *iwork, integer *info); 03888 03889 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer * 03890 nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real * 03891 u, integer *ldu, real *c__, integer *ldc, real *work, integer *info); 03892 03893 doublereal scsum1_(integer *n, singlecomplex *cx, integer *incx); 03894 03895 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__, 03896 real *sep, integer *info); 03897 03898 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 03899 integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real * 03900 e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer 03901 *ldc, real *work, integer *info); 03902 03903 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku, 03904 real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, 03905 real *work, integer *iwork, integer *info); 03906 03907 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku, 03908 real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real * 03909 colcnd, real *amax, integer *info); 03910 03911 /* Subroutine */ int sgbequb_(integer *m, integer *n, integer *kl, integer * 03912 ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 03913 *colcnd, real *amax, integer *info); 03914 03915 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer * 03916 ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, 03917 integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real * 03918 ferr, real *berr, real *work, integer *iwork, integer *info); 03919 03920 /* Subroutine */ int sgbrfsx_(char *trans, char *equed, integer *n, integer * 03921 kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 03922 integer *ldafb, integer *ipiv, real *r__, real *c__, real *b, integer 03923 *ldb, real *x, integer *ldx, real *rcond, real *berr, integer * 03924 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * 03925 nparams, real *params, real *work, integer *iwork, integer *info); 03926 03927 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer * 03928 nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, 03929 integer *info); 03930 03931 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl, 03932 integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 03933 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 03934 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, 03935 real *berr, real *work, integer *iwork, integer *info); 03936 03937 /* Subroutine */ int sgbsvxx_(char *fact, char *trans, integer *n, integer * 03938 kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 03939 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 03940 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real * 03941 rpvgrw, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 03942 real *err_bnds_comp__, integer *nparams, real *params, real *work, 03943 integer *iwork, integer *info); 03944 03945 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 03946 real *ab, integer *ldab, integer *ipiv, integer *info); 03947 03948 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 03949 real *ab, integer *ldab, integer *ipiv, integer *info); 03950 03951 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer * 03952 ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, 03953 integer *ldb, integer *info); 03954 03955 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo, 03956 integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer 03957 *info); 03958 03959 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda, 03960 integer *ilo, integer *ihi, real *scale, integer *info); 03961 03962 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda, 03963 real *d__, real *e, real *tauq, real *taup, real *work, integer *info); 03964 03965 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda, 03966 real *d__, real *e, real *tauq, real *taup, real *work, integer * 03967 lwork, integer *info); 03968 03969 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda, 03970 real *anorm, real *rcond, real *work, integer *iwork, integer *info); 03971 03972 /* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda, 03973 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer 03974 *info); 03975 03976 /* Subroutine */ int sgeequb_(integer *m, integer *n, real *a, integer *lda, 03977 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer 03978 *info); 03979 03980 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n, 03981 real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs, 03982 integer *ldvs, real *work, integer *lwork, logical *bwork, integer * 03983 info); 03984 03985 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char * 03986 sense, integer *n, real *a, integer *lda, integer *sdim, real *wr, 03987 real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real * 03988 work, integer *lwork, integer *iwork, integer *liwork, logical *bwork, 03989 integer *info); 03990 03991 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a, 03992 integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr, 03993 integer *ldvr, real *work, integer *lwork, integer *info); 03994 03995 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char * 03996 sense, integer *n, real *a, integer *lda, real *wr, real *wi, real * 03997 vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer * 03998 ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work, 03999 integer *lwork, integer *iwork, integer *info); 04000 04001 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a, 04002 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 04003 *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real * 04004 work, integer *lwork, integer *info); 04005 04006 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a, 04007 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 04008 *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, 04009 integer *lwork, integer *info); 04010 04011 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, 04012 integer *lda, real *tau, real *work, integer *info); 04013 04014 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, 04015 integer *lda, real *tau, real *work, integer *lwork, integer *info); 04016 04017 /* Subroutine */ int sgejsv_(char *joba, char *jobu, char *jobv, char *jobr, 04018 char *jobt, char *jobp, integer *m, integer *n, real *a, integer *lda, 04019 real *sva, real *u, integer *ldu, real *v, integer *ldv, real *work, 04020 integer *lwork, integer *iwork, integer *info); 04021 04022 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda, 04023 real *tau, real *work, integer *info); 04024 04025 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda, 04026 real *tau, real *work, integer *lwork, integer *info); 04027 04028 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer * 04029 nrhs, real *a, integer *lda, real *b, integer *ldb, real *work, 04030 integer *lwork, integer *info); 04031 04032 /* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a, 04033 integer *lda, real *b, integer *ldb, real *s, real *rcond, integer * 04034 rank, real *work, integer *lwork, integer *iwork, integer *info); 04035 04036 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a, 04037 integer *lda, real *b, integer *ldb, real *s, real *rcond, integer * 04038 rank, real *work, integer *lwork, integer *info); 04039 04040 /* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a, 04041 integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, 04042 integer *rank, real *work, integer *info); 04043 04044 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a, 04045 integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, 04046 integer *rank, real *work, integer *lwork, integer *info); 04047 04048 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda, 04049 real *tau, real *work, integer *info); 04050 04051 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda, 04052 real *tau, real *work, integer *lwork, integer *info); 04053 04054 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda, 04055 integer *jpvt, real *tau, real *work, integer *lwork, integer *info); 04056 04057 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda, 04058 integer *jpvt, real *tau, real *work, integer *info); 04059 04060 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda, 04061 real *tau, real *work, integer *info); 04062 04063 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda, 04064 real *tau, real *work, integer *lwork, integer *info); 04065 04066 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a, 04067 integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, 04068 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * 04069 work, integer *iwork, integer *info); 04070 04071 /* Subroutine */ int sgerfsx_(char *trans, char *equed, integer *n, integer * 04072 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 04073 real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, 04074 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 04075 real *err_bnds_comp__, integer *nparams, real *params, real *work, 04076 integer *iwork, integer *info); 04077 04078 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda, 04079 real *tau, real *work, integer *info); 04080 04081 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda, 04082 real *tau, real *work, integer *lwork, integer *info); 04083 04084 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs, 04085 integer *ipiv, integer *jpiv, real *scale); 04086 04087 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a, 04088 integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt, 04089 real *work, integer *lwork, integer *iwork, integer *info); 04090 04091 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda, 04092 integer *ipiv, real *b, integer *ldb, integer *info); 04093 04094 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 04095 real *a, integer *lda, real *s, real *u, integer *ldu, real *vt, 04096 integer *ldvt, real *work, integer *lwork, integer *info); 04097 04098 /* Subroutine */ int sgesvj_(char *joba, char *jobu, char *jobv, integer *m, 04099 integer *n, real *a, integer *lda, real *sva, integer *mv, real *v, 04100 integer *ldv, real *work, integer *lwork, integer *info); 04101 04102 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer * 04103 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 04104 char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, 04105 integer *ldx, real *rcond, real *ferr, real *berr, real *work, 04106 integer *iwork, integer *info); 04107 04108 /* Subroutine */ int sgesvxx_(char *fact, char *trans, integer *n, integer * 04109 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 04110 char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, 04111 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer * 04112 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer * 04113 nparams, real *params, real *work, integer *iwork, integer *info); 04114 04115 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv, 04116 integer *jpiv, integer *info); 04117 04118 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda, 04119 integer *ipiv, integer *info); 04120 04121 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda, 04122 integer *ipiv, integer *info); 04123 04124 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, 04125 real *work, integer *lwork, integer *info); 04126 04127 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a, 04128 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info); 04129 04130 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo, 04131 integer *ihi, real *lscale, real *rscale, integer *m, real *v, 04132 integer *ldv, integer *info); 04133 04134 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda, 04135 real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real 04136 *rscale, real *work, integer *info); 04137 04138 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 04139 selctg, integer *n, real *a, integer *lda, real *b, integer *ldb, 04140 integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, 04141 integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork, 04142 logical *bwork, integer *info); 04143 04144 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 04145 selctg, char *sense, integer *n, real *a, integer *lda, real *b, 04146 integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, 04147 real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde, 04148 real *rcondv, real *work, integer *lwork, integer *iwork, integer * 04149 liwork, logical *bwork, integer *info); 04150 04151 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a, 04152 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 04153 *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, 04154 integer *lwork, integer *info); 04155 04156 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char * 04157 sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real 04158 *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, 04159 integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale, 04160 real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work, 04161 integer *lwork, integer *iwork, logical *bwork, integer *info); 04162 04163 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a, 04164 integer *lda, real *b, integer *ldb, real *d__, real *x, real *y, 04165 real *work, integer *lwork, integer *info); 04166 04167 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer * 04168 ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real 04169 *q, integer *ldq, real *z__, integer *ldz, integer *info); 04170 04171 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a, 04172 integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x, 04173 real *work, integer *lwork, integer *info); 04174 04175 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a, 04176 integer *lda, real *taua, real *b, integer *ldb, real *taub, real * 04177 work, integer *lwork, integer *info); 04178 04179 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a, 04180 integer *lda, real *taua, real *b, integer *ldb, real *taub, real * 04181 work, integer *lwork, integer *info); 04182 04183 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 04184 integer *n, integer *p, integer *k, integer *l, real *a, integer *lda, 04185 real *b, integer *ldb, real *alpha, real *beta, real *u, integer * 04186 ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, 04187 integer *iwork, integer *info); 04188 04189 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 04190 integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb, 04191 real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu, 04192 real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real * 04193 tau, real *work, integer *info); 04194 04195 /* Subroutine */ int sgsvj0_(char *jobv, integer *m, integer *n, real *a, 04196 integer *lda, real *d__, real *sva, integer *mv, real *v, integer * 04197 ldv, real *eps, real *sfmin, real *tol, integer *nsweep, real *work, 04198 integer *lwork, integer *info); 04199 04200 /* Subroutine */ int sgsvj1_(char *jobv, integer *m, integer *n, integer *n1, 04201 real *a, integer *lda, real *d__, real *sva, integer *mv, real *v, 04202 integer *ldv, real *eps, real *sfmin, real *tol, integer *nsweep, 04203 real *work, integer *lwork, integer *info); 04204 04205 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__, 04206 real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real * 04207 work, integer *iwork, integer *info); 04208 04209 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl, 04210 real *d__, real *du, real *dlf, real *df, real *duf, real *du2, 04211 integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real * 04212 ferr, real *berr, real *work, integer *iwork, integer *info); 04213 04214 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, 04215 real *du, real *b, integer *ldb, integer *info); 04216 04217 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer * 04218 nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf, 04219 real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer * 04220 ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, 04221 integer *info); 04222 04223 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real * 04224 du2, integer *ipiv, integer *info); 04225 04226 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl, 04227 real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb, 04228 integer *info); 04229 04230 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real 04231 *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer * 04232 ldb); 04233 04234 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n, 04235 integer *ilo, integer *ihi, real *h__, integer *ldh, real *t, integer 04236 *ldt, real *alphar, real *alphai, real *beta, real *q, integer *ldq, 04237 real *z__, integer *ldz, real *work, integer *lwork, integer *info); 04238 04239 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical * 04240 select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real 04241 *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, 04242 real *work, integer *ifaill, integer *ifailr, integer *info); 04243 04244 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo, 04245 integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__, 04246 integer *ldz, real *work, integer *lwork, integer *info); 04247 04248 logical sisnan_(real *sin__); 04249 04250 /* Subroutine */ int sla_gbamv__(integer *trans, integer *m, integer *n, 04251 integer *kl, integer *ku, real *alpha, real *ab, integer *ldab, real * 04252 x, integer *incx, real *beta, real *y, integer *incy); 04253 04254 doublereal sla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku, 04255 real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, 04256 integer *cmode, real *c__, integer *info, real *work, integer *iwork, 04257 ftnlen trans_len); 04258 04259 /* Subroutine */ int sla_gbrfsx_extended__(integer *prec_type__, integer * 04260 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 04261 real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, 04262 logical *colequ, real *c__, real *b, integer *ldb, real *y, integer * 04263 ldy, real *berr_out__, integer *n_norms__, real *errs_n__, real * 04264 errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real *rcond, 04265 integer *ithresh, real *rthresh, real *dz_ub__, logical * 04266 ignore_cwise__, integer *info); 04267 04268 doublereal sla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * 04269 ncols, real *ab, integer *ldab, real *afb, integer *ldafb); 04270 04271 /* Subroutine */ int sla_geamv__(integer *trans, integer *m, integer *n, real 04272 *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, 04273 real *y, integer *incy); 04274 04275 doublereal sla_gercond__(char *trans, integer *n, real *a, integer *lda, real 04276 *af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer 04277 *info, real *work, integer *iwork, ftnlen trans_len); 04278 04279 /* Subroutine */ int sla_gerfsx_extended__(integer *prec_type__, integer * 04280 trans_type__, integer *n, integer *nrhs, real *a, integer *lda, real * 04281 af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, real *b, 04282 integer *ldb, real *y, integer *ldy, real *berr_out__, integer * 04283 n_norms__, real *errs_n__, real *errs_c__, real *res, real *ayb, real 04284 *dy, real *y_tail__, real *rcond, integer *ithresh, real *rthresh, 04285 real *dz_ub__, logical *ignore_cwise__, integer *info); 04286 04287 /* Subroutine */ int sla_lin_berr__(integer *n, integer *nz, integer *nrhs, 04288 real *res, real *ayb, real *berr); 04289 04290 doublereal sla_porcond__(char *uplo, integer *n, real *a, integer *lda, real * 04291 af, integer *ldaf, integer *cmode, real *c__, integer *info, real * 04292 work, integer *iwork, ftnlen uplo_len); 04293 04294 /* Subroutine */ int sla_porfsx_extended__(integer *prec_type__, char *uplo, 04295 integer *n, integer *nrhs, real *a, integer *lda, real *af, integer * 04296 ldaf, logical *colequ, real *c__, real *b, integer *ldb, real *y, 04297 integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__, 04298 real *errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real * 04299 rcond, integer *ithresh, real *rthresh, real *dz_ub__, logical * 04300 ignore_cwise__, integer *info, ftnlen uplo_len); 04301 04302 doublereal sla_porpvgrw__(char *uplo, integer *ncols, real *a, integer *lda, 04303 real *af, integer *ldaf, real *work, ftnlen uplo_len); 04304 04305 doublereal sla_rpvgrw__(integer *n, integer *ncols, real *a, integer *lda, 04306 real *af, integer *ldaf); 04307 04308 /* Subroutine */ int sla_syamv__(integer *uplo, integer *n, real *alpha, real 04309 *a, integer *lda, real *x, integer *incx, real *beta, real *y, 04310 integer *incy); 04311 04312 doublereal sla_syrcond__(char *uplo, integer *n, real *a, integer *lda, real * 04313 af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer * 04314 info, real *work, integer *iwork, ftnlen uplo_len); 04315 04316 /* Subroutine */ int sla_syrfsx_extended__(integer *prec_type__, char *uplo, 04317 integer *n, integer *nrhs, real *a, integer *lda, real *af, integer * 04318 ldaf, integer *ipiv, logical *colequ, real *c__, real *b, integer * 04319 ldb, real *y, integer *ldy, real *berr_out__, integer *n_norms__, 04320 real *errs_n__, real *errs_c__, real *res, real *ayb, real *dy, real * 04321 y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__, 04322 logical *ignore_cwise__, integer *info, ftnlen uplo_len); 04323 04324 doublereal sla_syrpvgrw__(char *uplo, integer *n, integer *info, real *a, 04325 integer *lda, real *af, integer *ldaf, integer *ipiv, real *work, 04326 ftnlen uplo_len); 04327 04328 /* Subroutine */ int sla_wwaddw__(integer *n, real *x, real *y, real *w); 04329 04330 /* Subroutine */ int slabad_(real *smallxx, real *large); 04331 04332 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a, 04333 integer *lda, real *d__, real *e, real *tauq, real *taup, real *x, 04334 integer *ldx, real *y, integer *ldy); 04335 04336 /* Subroutine */ int slacn2_(integer *n, real *v, real *x, integer *isgn, 04337 real *est, integer *kase, integer *isave); 04338 04339 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn, 04340 real *est, integer *kase); 04341 04342 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a, 04343 integer *lda, real *b, integer *ldb); 04344 04345 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p, 04346 real *q); 04347 04348 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2); 04349 04350 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n, 04351 integer *mmax, integer *minp, integer *nbmin, real *abstol, real * 04352 reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval, 04353 real *ab, real *c__, integer *mout, integer *nab, real *work, integer 04354 *iwork, integer *info); 04355 04356 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real 04357 *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs, 04358 real *work, integer *iwork, integer *info); 04359 04360 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq, 04361 integer *indxq, real *rho, integer *cutpnt, real *work, integer * 04362 iwork, integer *info); 04363 04364 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__, 04365 real *q, integer *ldq, integer *indxq, real *rho, real *z__, real * 04366 dlamda, real *w, real *q2, integer *indx, integer *indxc, integer * 04367 indxp, integer *coltyp, integer *info); 04368 04369 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__, 04370 real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer * 04371 indx, integer *ctot, real *w, real *s, integer *info); 04372 04373 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__, 04374 real *delta, real *rho, real *dlam, integer *info); 04375 04376 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta, 04377 real *rho, real *dlam); 04378 04379 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho, 04380 real *d__, real *z__, real *finit, real *tau, integer *info); 04381 04382 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz, 04383 integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q, 04384 integer *ldq, integer *indxq, real *rho, integer *cutpnt, real * 04385 qstore, integer *qptr, integer *prmptr, integer *perm, integer * 04386 givptr, integer *givcol, real *givnum, real *work, integer *iwork, 04387 integer *info); 04388 04389 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer 04390 *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho, 04391 integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2, 04392 real *w, integer *perm, integer *givptr, integer *givcol, real * 04393 givnum, integer *indxp, integer *indx, integer *info); 04394 04395 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop, 04396 integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda, 04397 real *w, real *s, integer *lds, integer *info); 04398 04399 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl, 04400 integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 04401 integer *givcol, real *givnum, real *q, integer *qptr, real *z__, 04402 real *ztemp, integer *info); 04403 04404 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n, 04405 real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real 04406 *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum, 04407 integer *info); 04408 04409 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real * 04410 rt2, real *cs1, real *sn1); 04411 04412 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer * 04413 ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, 04414 real *work, integer *info); 04415 04416 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb, 04417 real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real * 04418 wi); 04419 04420 /* Subroutine */ int slag2d_(integer *m, integer *n, real *sa, integer *ldsa, 04421 doublereal *a, integer *lda, integer *info); 04422 04423 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3, 04424 real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real * 04425 snv, real *csq, real *snq); 04426 04427 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real 04428 *c__, real *tol, real *d__, integer *in, integer *info); 04429 04430 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real * 04431 alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real * 04432 beta, real *b, integer *ldb); 04433 04434 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real 04435 *c__, real *d__, integer *in, real *y, real *tol, integer *info); 04436 04437 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb, 04438 real *alphar, real *alphai, real *beta, real *csl, real *snl, real * 04439 csr, real *snr); 04440 04441 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n, 04442 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * 04443 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer * 04444 info); 04445 04446 /* Subroutine */ int slahr2_(integer *n, integer *k, integer *nb, real *a, 04447 integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy); 04448 04449 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a, 04450 integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy); 04451 04452 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest, 04453 real *w, real *gamma, real *sestpr, real *s, real *c__); 04454 04455 logical slaisnan_(real *sin1, real *sin2); 04456 04457 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real * 04458 smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b, 04459 integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale, 04460 real *xnorm, integer *info); 04461 04462 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr, 04463 integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx, 04464 integer *ldbx, integer *perm, integer *givptr, integer *givcol, 04465 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * 04466 difl, real *difr, real *z__, integer *k, real *c__, real *s, real * 04467 work, integer *info); 04468 04469 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n, 04470 integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real * 04471 u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real * 04472 z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol, 04473 integer *perm, real *givnum, real *c__, real *s, real *work, integer * 04474 iwork, integer *info); 04475 04476 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer 04477 *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond, 04478 integer *rank, real *work, integer *iwork, integer *info); 04479 04480 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer * 04481 strd1, integer *strd2, integer *index); 04482 04483 integer slaneg_(integer *n, real *d__, real *lld, real *sigma, real *pivmin, 04484 integer *r__); 04485 04486 doublereal slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab, 04487 integer *ldab, real *work); 04488 04489 doublereal slange_(char *norm, integer *m, integer *n, real *a, integer *lda, 04490 real *work); 04491 04492 doublereal slangt_(char *norm, integer *n, real *dl, real *d__, real *du); 04493 04494 doublereal slanhs_(char *norm, integer *n, real *a, integer *lda, real *work); 04495 04496 doublereal slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab, 04497 integer *ldab, real *work); 04498 04499 doublereal slansf_(char *norm, char *transr, char *uplo, integer *n, real *a, 04500 real *work); 04501 04502 doublereal slansp_(char *norm, char *uplo, integer *n, real *ap, real *work); 04503 04504 doublereal slanst_(char *norm, integer *n, real *d__, real *e); 04505 04506 doublereal slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda, 04507 real *work); 04508 04509 doublereal slantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 04510 real *ab, integer *ldab, real *work); 04511 04512 doublereal slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap, 04513 real *work); 04514 04515 doublereal slantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 04516 real *a, integer *lda, real *work); 04517 04518 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real * 04519 rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn); 04520 04521 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y, 04522 integer *incy, real *ssmin); 04523 04524 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x, 04525 integer *ldx, integer *k); 04526 04527 doublereal slapy2_(real *x, real *y); 04528 04529 doublereal slapy3_(real *x, real *y, real *z__); 04530 04531 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku, 04532 real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real * 04533 colcnd, real *amax, char *equed); 04534 04535 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda, 04536 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char * 04537 equed); 04538 04539 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a, 04540 integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real * 04541 work); 04542 04543 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer 04544 *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau, 04545 real *vn1, real *vn2, real *auxv, real *f, integer *ldf); 04546 04547 /* Subroutine */ int slaqr0_(logical *wantt, logical *wantz, integer *n, 04548 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * 04549 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work, 04550 integer *lwork, integer *info); 04551 04552 /* Subroutine */ int slaqr1_(integer *n, real *h__, integer *ldh, real *sr1, 04553 real *si1, real *sr2, real *si2, real *v); 04554 04555 /* Subroutine */ int slaqr2_(logical *wantt, logical *wantz, integer *n, 04556 integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh, 04557 integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns, 04558 integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh, 04559 real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real * 04560 work, integer *lwork); 04561 04562 /* Subroutine */ int slaqr3_(logical *wantt, logical *wantz, integer *n, 04563 integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh, 04564 integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns, 04565 integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh, 04566 real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real * 04567 work, integer *lwork); 04568 04569 /* Subroutine */ int slaqr4_(logical *wantt, logical *wantz, integer *n, 04570 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real * 04571 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work, 04572 integer *lwork, integer *info); 04573 04574 /* Subroutine */ int slaqr5_(logical *wantt, logical *wantz, integer *kacc22, 04575 integer *n, integer *ktop, integer *kbot, integer *nshfts, real *sr, 04576 real *si, real *h__, integer *ldh, integer *iloz, integer *ihiz, real 04577 *z__, integer *ldz, real *v, integer *ldv, real *u, integer *ldu, 04578 integer *nv, real *wv, integer *ldwv, integer *nh, real *wh, integer * 04579 ldwh); 04580 04581 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab, 04582 integer *ldab, real *s, real *scond, real *amax, char *equed); 04583 04584 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real * 04585 scond, real *amax, char *equed); 04586 04587 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda, 04588 real *s, real *scond, real *amax, char *equed); 04589 04590 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real 04591 *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work, 04592 integer *info); 04593 04594 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real * 04595 lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real * 04596 gaptol, real *z__, logical *wantnc, integer *negcnt, real *ztz, real * 04597 mingma, integer *r__, integer *isuppz, real *nrminv, real *resid, 04598 real *rqcorr, real *work); 04599 04600 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer 04601 *incx, real *c__, real *s, integer *incc); 04602 04603 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v, 04604 integer *incv, real *tau, real *c__, integer *ldc, real *work); 04605 04606 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char * 04607 storev, integer *m, integer *n, integer *k, real *v, integer *ldv, 04608 real *t, integer *ldt, real *c__, integer *ldc, real *work, integer * 04609 ldwork); 04610 04611 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx, 04612 real *tau); 04613 04614 /* Subroutine */ int slarfp_(integer *n, real *alpha, real *x, integer *incx, 04615 real *tau); 04616 04617 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer * 04618 k, real *v, integer *ldv, real *tau, real *t, integer *ldt); 04619 04620 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v, 04621 real *tau, real *c__, integer *ldc, real *work); 04622 04623 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y, 04624 integer *incy, real *c__, integer *incc); 04625 04626 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real 04627 *x); 04628 04629 /* Subroutine */ int slarra_(integer *n, real *d__, real *e, real *e2, real * 04630 spltol, real *tnrm, integer *nsplit, integer *isplit, integer *info); 04631 04632 /* Subroutine */ int slarrb_(integer *n, real *d__, real *lld, integer * 04633 ifirst, integer *ilast, real *rtol1, real *rtol2, integer *offset, 04634 real *w, real *wgap, real *werr, real *work, integer *iwork, real * 04635 pivmin, real *spdiam, integer *twist, integer *info); 04636 04637 /* Subroutine */ int slarrc_(char *jobt, integer *n, real *vl, real *vu, real 04638 *d__, real *e, real *pivmin, integer *eigcnt, integer *lcnt, integer * 04639 rcnt, integer *info); 04640 04641 /* Subroutine */ int slarrd_(char *range, char *order, integer *n, real *vl, 04642 real *vu, integer *il, integer *iu, real *gers, real *reltol, real * 04643 d__, real *e, real *e2, real *pivmin, integer *nsplit, integer * 04644 isplit, integer *m, real *w, real *werr, real *wl, real *wu, integer * 04645 iblock, integer *indexw, real *work, integer *iwork, integer *info); 04646 04647 /* Subroutine */ int slarre_(char *range, integer *n, real *vl, real *vu, 04648 integer *il, integer *iu, real *d__, real *e, real *e2, real *rtol1, 04649 real *rtol2, real *spltol, integer *nsplit, integer *isplit, integer * 04650 m, real *w, real *werr, real *wgap, integer *iblock, integer *indexw, 04651 real *gers, real *pivmin, real *work, integer *iwork, integer *info); 04652 04653 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld, 04654 integer *clstrt, integer *clend, real *w, real *wgap, real *werr, 04655 real *spdiam, real *clgapl, real *clgapr, real *pivmin, real *sigma, 04656 real *dplus, real *lplus, real *work, integer *info); 04657 04658 /* Subroutine */ int slarrj_(integer *n, real *d__, real *e2, integer *ifirst, 04659 integer *ilast, real *rtol, integer *offset, real *w, real *werr, 04660 real *work, integer *iwork, real *pivmin, real *spdiam, integer *info); 04661 04662 /* Subroutine */ int slarrk_(integer *n, integer *iw, real *gl, real *gu, 04663 real *d__, real *e2, real *pivmin, real *reltol, real *w, real *werr, 04664 integer *info); 04665 04666 /* Subroutine */ int slarrr_(integer *n, real *d__, real *e, integer *info); 04667 04668 /* Subroutine */ int slarrv_(integer *n, real *vl, real *vu, real *d__, real * 04669 l, real *pivmin, integer *isplit, integer *m, integer *dol, integer * 04670 dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr, 04671 real *wgap, integer *iblock, integer *indexw, real *gers, real *z__, 04672 integer *ldz, integer *isuppz, real *work, integer *iwork, integer * 04673 info); 04674 04675 /* Subroutine */ int slarscl2_(integer *m, integer *n, real *d__, real *x, 04676 integer *ldx); 04677 04678 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__); 04679 04680 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y, 04681 integer *incy, real *c__, real *s, integer *incc); 04682 04683 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x); 04684 04685 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l, 04686 real *v, integer *incv, real *tau, real *c__, integer *ldc, real * 04687 work); 04688 04689 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char * 04690 storev, integer *m, integer *n, integer *k, integer *l, real *v, 04691 integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real * 04692 work, integer *ldwork); 04693 04694 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer * 04695 k, real *v, integer *ldv, real *tau, real *t, integer *ldt); 04696 04697 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real * 04698 ssmax); 04699 04700 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real * 04701 cfrom, real *cto, integer *m, integer *n, real *a, integer *lda, 04702 integer *info); 04703 04704 /* Subroutine */ int slascl2_(integer *m, integer *n, real *d__, real *x, 04705 integer *ldx); 04706 04707 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e, 04708 real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz, 04709 integer *iwork, real *work, integer *info); 04710 04711 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real * 04712 d__, real *alpha, real *beta, real *u, integer *ldu, real *vt, 04713 integer *ldvt, integer *idxq, integer *iwork, real *work, integer * 04714 info); 04715 04716 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer 04717 *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer * 04718 ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2, 04719 real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc, 04720 integer *idxq, integer *coltyp, integer *info); 04721 04722 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer 04723 *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer * 04724 ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2, 04725 integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer * 04726 info); 04727 04728 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__, 04729 real *delta, real *rho, real *sigma, real *work, integer *info); 04730 04731 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta, 04732 real *rho, real *dsigma, real *work); 04733 04734 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr, 04735 integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta, 04736 integer *idxq, integer *perm, integer *givptr, integer *givcol, 04737 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real * 04738 difl, real *difr, real *z__, integer *k, real *c__, real *s, real * 04739 work, integer *iwork, integer *info); 04740 04741 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr, 04742 integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf, 04743 real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma, 04744 integer *idx, integer *idxp, integer *idxq, integer *perm, integer * 04745 givptr, integer *givcol, integer *ldgcol, real *givnum, integer * 04746 ldgnum, real *c__, real *s, integer *info); 04747 04748 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real * 04749 z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr, 04750 real *dsigma, real *work, integer *info); 04751 04752 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n, 04753 integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt, 04754 integer *k, real *difl, real *difr, real *z__, real *poles, integer * 04755 givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum, 04756 real *c__, real *s, real *work, integer *iwork, integer *info); 04757 04758 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer * 04759 ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt, 04760 integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real * 04761 work, integer *info); 04762 04763 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer * 04764 inode, integer *ndiml, integer *ndimr, integer *msub); 04765 04766 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha, 04767 real *beta, real *a, integer *lda); 04768 04769 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work, 04770 integer *info); 04771 04772 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info); 04773 04774 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp, 04775 real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail, 04776 integer *iter, integer *ndiv, logical *ieee, integer *ttype, real * 04777 dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *g, real * 04778 tau); 04779 04780 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp, 04781 integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn, 04782 real *dn1, real *dn2, real *tau, integer *ttype, real *g); 04783 04784 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp, 04785 real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real * 04786 dnm1, real *dnm2, logical *ieee); 04787 04788 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp, 04789 real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real * 04790 dnm2); 04791 04792 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m, 04793 integer *n, real *c__, real *s, real *a, integer *lda); 04794 04795 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info); 04796 04797 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale, 04798 real *sumsq); 04799 04800 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real * 04801 ssmax, real *snr, real *csr, real *snl, real *csl); 04802 04803 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1, 04804 integer *k2, integer *ipiv, integer *incx); 04805 04806 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn, 04807 integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer * 04808 ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real 04809 *xnorm, integer *info); 04810 04811 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb, 04812 real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer 04813 *info); 04814 04815 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char * 04816 normin, integer *n, integer *kd, real *ab, integer *ldab, real *x, 04817 real *scale, real *cnorm, integer *info); 04818 04819 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer * 04820 ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer * 04821 jpiv); 04822 04823 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char * 04824 normin, integer *n, real *ap, real *x, real *scale, real *cnorm, 04825 integer *info); 04826 04827 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a, 04828 integer *lda, real *e, real *tau, real *w, integer *ldw); 04829 04830 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char * 04831 normin, integer *n, real *a, integer *lda, real *x, real *scale, real 04832 *cnorm, integer *info); 04833 04834 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a, 04835 integer *lda, real *tau, real *work); 04836 04837 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v, 04838 integer *incv, real *tau, real *c1, real *c2, integer *ldc, real * 04839 work); 04840 04841 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda, 04842 integer *info); 04843 04844 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda, 04845 integer *info); 04846 04847 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau, 04848 real *q, integer *ldq, real *work, integer *info); 04849 04850 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m, 04851 integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work, 04852 integer *info); 04853 04854 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a, 04855 integer *lda, real *tau, real *work, integer *info); 04856 04857 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a, 04858 integer *lda, real *tau, real *work, integer *info); 04859 04860 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k, 04861 real *a, integer *lda, real *tau, real *work, integer *lwork, integer 04862 *info); 04863 04864 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a, 04865 integer *lda, real *tau, real *work, integer *lwork, integer *info); 04866 04867 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a, 04868 integer *lda, real *tau, real *work, integer *info); 04869 04870 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a, 04871 integer *lda, real *tau, real *work, integer *lwork, integer *info); 04872 04873 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a, 04874 integer *lda, real *tau, real *work, integer *lwork, integer *info); 04875 04876 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a, 04877 integer *lda, real *tau, real *work, integer *lwork, integer *info); 04878 04879 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a, 04880 integer *lda, real *tau, real *work, integer *info); 04881 04882 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a, 04883 integer *lda, real *tau, real *work, integer *lwork, integer *info); 04884 04885 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda, 04886 real *tau, real *work, integer *lwork, integer *info); 04887 04888 /* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n, 04889 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04890 real *work, integer *info); 04891 04892 /* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n, 04893 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04894 real *work, integer *info); 04895 04896 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m, 04897 integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, 04898 integer *ldc, real *work, integer *lwork, integer *info); 04899 04900 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n, 04901 integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real * 04902 c__, integer *ldc, real *work, integer *lwork, integer *info); 04903 04904 /* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n, 04905 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04906 real *work, integer *info); 04907 04908 /* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n, 04909 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04910 real *work, integer *lwork, integer *info); 04911 04912 /* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n, 04913 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04914 real *work, integer *lwork, integer *info); 04915 04916 /* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n, 04917 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04918 real *work, integer *lwork, integer *info); 04919 04920 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n, 04921 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04922 real *work, integer *info); 04923 04924 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n, 04925 integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, 04926 integer *ldc, real *work, integer *info); 04927 04928 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n, 04929 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04930 real *work, integer *lwork, integer *info); 04931 04932 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n, 04933 integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, 04934 integer *ldc, real *work, integer *lwork, integer *info); 04935 04936 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m, 04937 integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc, 04938 real *work, integer *lwork, integer *info); 04939 04940 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab, 04941 integer *ldab, real *anorm, real *rcond, real *work, integer *iwork, 04942 integer *info); 04943 04944 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab, 04945 integer *ldab, real *s, real *scond, real *amax, integer *info); 04946 04947 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer * 04948 nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b, 04949 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * 04950 work, integer *iwork, integer *info); 04951 04952 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab, 04953 integer *ldab, integer *info); 04954 04955 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer * 04956 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info); 04957 04958 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd, 04959 integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, 04960 char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, 04961 real *rcond, real *ferr, real *berr, real *work, integer *iwork, 04962 integer *info); 04963 04964 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab, 04965 integer *ldab, integer *info); 04966 04967 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab, 04968 integer *ldab, integer *info); 04969 04970 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer * 04971 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info); 04972 04973 /* Subroutine */ int spftrf_(char *transr, char *uplo, integer *n, real *a, 04974 integer *info); 04975 04976 /* Subroutine */ int spftri_(char *transr, char *uplo, integer *n, real *a, 04977 integer *info); 04978 04979 /* Subroutine */ int spftrs_(char *transr, char *uplo, integer *n, integer * 04980 nrhs, real *a, real *b, integer *ldb, integer *info); 04981 04982 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda, 04983 real *anorm, real *rcond, real *work, integer *iwork, integer *info); 04984 04985 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real 04986 *scond, real *amax, integer *info); 04987 04988 /* Subroutine */ int spoequb_(integer *n, real *a, integer *lda, real *s, 04989 real *scond, real *amax, integer *info); 04990 04991 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a, 04992 integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x, 04993 integer *ldx, real *ferr, real *berr, real *work, integer *iwork, 04994 integer *info); 04995 04996 /* Subroutine */ int sporfsx_(char *uplo, char *equed, integer *n, integer * 04997 nrhs, real *a, integer *lda, real *af, integer *ldaf, real *s, real * 04998 b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr, 04999 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 05000 integer *nparams, real *params, real *work, integer *iwork, integer * 05001 info); 05002 05003 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a, 05004 integer *lda, real *b, integer *ldb, integer *info); 05005 05006 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer * 05007 nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, 05008 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 05009 real *ferr, real *berr, real *work, integer *iwork, integer *info); 05010 05011 /* Subroutine */ int sposvxx_(char *fact, char *uplo, integer *n, integer * 05012 nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, 05013 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 05014 real *rpvgrw, real *berr, integer *n_err_bnds__, real * 05015 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 05016 params, real *work, integer *iwork, integer *info); 05017 05018 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda, 05019 integer *info); 05020 05021 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda, 05022 integer *info); 05023 05024 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda, 05025 integer *info); 05026 05027 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, 05028 integer *lda, real *b, integer *ldb, integer *info); 05029 05030 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm, 05031 real *rcond, real *work, integer *iwork, integer *info); 05032 05033 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real * 05034 scond, real *amax, integer *info); 05035 05036 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap, 05037 real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr, 05038 real *berr, real *work, integer *iwork, integer *info); 05039 05040 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, 05041 real *b, integer *ldb, integer *info); 05042 05043 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer * 05044 nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer * 05045 ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real 05046 *work, integer *iwork, integer *info); 05047 05048 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info); 05049 05050 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info); 05051 05052 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, 05053 real *b, integer *ldb, integer *info); 05054 05055 /* Subroutine */ int spstf2_(char *uplo, integer *n, real *a, integer *lda, 05056 integer *piv, integer *rank, real *tol, real *work, integer *info); 05057 05058 /* Subroutine */ int spstrf_(char *uplo, integer *n, real *a, integer *lda, 05059 integer *piv, integer *rank, real *tol, real *work, integer *info); 05060 05061 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm, 05062 real *rcond, real *work, integer *info); 05063 05064 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e, 05065 real *z__, integer *ldz, real *work, integer *info); 05066 05067 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e, 05068 real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx, 05069 real *ferr, real *berr, real *work, integer *info); 05070 05071 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e, 05072 real *b, integer *ldb, integer *info); 05073 05074 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__, 05075 real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer 05076 *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info); 05077 05078 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info); 05079 05080 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e, 05081 real *b, integer *ldb, integer *info); 05082 05083 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e, 05084 real *b, integer *ldb); 05085 05086 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx); 05087 05088 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd, 05089 real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, 05090 integer *info); 05091 05092 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd, 05093 real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, 05094 integer *lwork, integer *iwork, integer *liwork, integer *info); 05095 05096 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n, 05097 integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl, 05098 real *vu, integer *il, integer *iu, real *abstol, integer *m, real * 05099 w, real *z__, integer *ldz, real *work, integer *iwork, integer * 05100 ifail, integer *info); 05101 05102 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka, 05103 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * 05104 x, integer *ldx, real *work, integer *info); 05105 05106 /* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka, 05107 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * 05108 w, real *z__, integer *ldz, real *work, integer *info); 05109 05110 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 05111 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real * 05112 w, real *z__, integer *ldz, real *work, integer *lwork, integer * 05113 iwork, integer *liwork, integer *info); 05114 05115 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n, 05116 integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer * 05117 ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer 05118 *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real 05119 *work, integer *iwork, integer *ifail, integer *info); 05120 05121 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd, 05122 real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq, 05123 real *work, integer *info); 05124 05125 /* Subroutine */ int ssfrk_(char *transr, char *uplo, char *trans, integer *n, 05126 integer *k, real *alpha, real *a, integer *lda, real *beta, real * 05127 c__); 05128 05129 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, 05130 real *anorm, real *rcond, real *work, integer *iwork, integer *info); 05131 05132 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap, 05133 real *w, real *z__, integer *ldz, real *work, integer *info); 05134 05135 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap, 05136 real *w, real *z__, integer *ldz, real *work, integer *lwork, integer 05137 *iwork, integer *liwork, integer *info); 05138 05139 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n, 05140 real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol, 05141 integer *m, real *w, real *z__, integer *ldz, real *work, integer * 05142 iwork, integer *ifail, integer *info); 05143 05144 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap, 05145 real *bp, integer *info); 05146 05147 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer * 05148 n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, 05149 integer *info); 05150 05151 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer * 05152 n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, 05153 integer *lwork, integer *iwork, integer *liwork, integer *info); 05154 05155 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char * 05156 uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il, 05157 integer *iu, real *abstol, integer *m, real *w, real *z__, integer * 05158 ldz, real *work, integer *iwork, integer *ifail, integer *info); 05159 05160 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap, 05161 real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer * 05162 ldx, real *ferr, real *berr, real *work, integer *iwork, integer * 05163 info); 05164 05165 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, 05166 integer *ipiv, real *b, integer *ldb, integer *info); 05167 05168 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer * 05169 nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real 05170 *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, 05171 integer *iwork, integer *info); 05172 05173 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__, 05174 real *e, real *tau, integer *info); 05175 05176 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv, 05177 integer *info); 05178 05179 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, 05180 real *work, integer *info); 05181 05182 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, 05183 integer *ipiv, real *b, integer *ldb, integer *info); 05184 05185 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl, 05186 real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e, 05187 integer *m, integer *nsplit, real *w, integer *iblock, integer * 05188 isplit, real *work, integer *iwork, integer *info); 05189 05190 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e, 05191 real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, 05192 integer *liwork, integer *info); 05193 05194 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__, 05195 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 05196 integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real * 05197 work, integer *lwork, integer *iwork, integer *liwork, integer *info); 05198 05199 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real 05200 *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real * 05201 work, integer *iwork, integer *ifail, integer *info); 05202 05203 /* Subroutine */ int sstemr_(char *jobz, char *range, integer *n, real *d__, 05204 real *e, real *vl, real *vu, integer *il, integer *iu, integer *m, 05205 real *w, real *z__, integer *ldz, integer *nzc, integer *isuppz, 05206 logical *tryrac, real *work, integer *lwork, integer *iwork, integer * 05207 liwork, integer *info); 05208 05209 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e, 05210 real *z__, integer *ldz, real *work, integer *info); 05211 05212 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info); 05213 05214 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real * 05215 z__, integer *ldz, real *work, integer *info); 05216 05217 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real 05218 *z__, integer *ldz, real *work, integer *lwork, integer *iwork, 05219 integer *liwork, integer *info); 05220 05221 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__, 05222 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 05223 integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real * 05224 work, integer *lwork, integer *iwork, integer *liwork, integer *info); 05225 05226 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__, 05227 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 05228 integer *m, real *w, real *z__, integer *ldz, real *work, integer * 05229 iwork, integer *ifail, integer *info); 05230 05231 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda, 05232 integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, 05233 integer *info); 05234 05235 /* Subroutine */ int ssyequb_(char *uplo, integer *n, real *a, integer *lda, 05236 real *s, real *scond, real *amax, real *work, integer *info); 05237 05238 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a, 05239 integer *lda, real *w, real *work, integer *lwork, integer *info); 05240 05241 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a, 05242 integer *lda, real *w, real *work, integer *lwork, integer *iwork, 05243 integer *liwork, integer *info); 05244 05245 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n, 05246 real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, 05247 real *abstol, integer *m, real *w, real *z__, integer *ldz, integer * 05248 isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, 05249 integer *info); 05250 05251 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n, 05252 real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, 05253 real *abstol, integer *m, real *w, real *z__, integer *ldz, real * 05254 work, integer *lwork, integer *iwork, integer *ifail, integer *info); 05255 05256 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a, 05257 integer *lda, real *b, integer *ldb, integer *info); 05258 05259 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a, 05260 integer *lda, real *b, integer *ldb, integer *info); 05261 05262 /* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer * 05263 n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, 05264 integer *lwork, integer *info); 05265 05266 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer * 05267 n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, 05268 integer *lwork, integer *iwork, integer *liwork, integer *info); 05269 05270 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char * 05271 uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real * 05272 vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, 05273 real *w, real *z__, integer *ldz, real *work, integer *lwork, integer 05274 *iwork, integer *ifail, integer *info); 05275 05276 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a, 05277 integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, 05278 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real * 05279 work, integer *iwork, integer *info); 05280 05281 /* Subroutine */ int ssyrfsx_(char *uplo, char *equed, integer *n, integer * 05282 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 05283 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 05284 real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real * 05285 err_bnds_comp__, integer *nparams, real *params, real *work, integer * 05286 iwork, integer *info); 05287 05288 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a, 05289 integer *lda, integer *ipiv, real *b, integer *ldb, real *work, 05290 integer *lwork, integer *info); 05291 05292 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer * 05293 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 05294 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, 05295 real *berr, real *work, integer *lwork, integer *iwork, integer * 05296 info); 05297 05298 /* Subroutine */ int ssysvxx_(char *fact, char *uplo, integer *n, integer * 05299 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 05300 char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, 05301 real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real * 05302 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real * 05303 params, real *work, integer *iwork, integer *info); 05304 05305 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda, 05306 real *d__, real *e, real *tau, integer *info); 05307 05308 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda, 05309 integer *ipiv, integer *info); 05310 05311 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda, 05312 real *d__, real *e, real *tau, real *work, integer *lwork, integer * 05313 info); 05314 05315 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda, 05316 integer *ipiv, real *work, integer *lwork, integer *info); 05317 05318 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda, 05319 integer *ipiv, real *work, integer *info); 05320 05321 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, 05322 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info); 05323 05324 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n, 05325 integer *kd, real *ab, integer *ldab, real *rcond, real *work, 05326 integer *iwork, integer *info); 05327 05328 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n, 05329 integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer 05330 *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, 05331 integer *iwork, integer *info); 05332 05333 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n, 05334 integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer 05335 *ldb, integer *info); 05336 05337 /* Subroutine */ int stfsm_(char *transr, char *side, char *uplo, char *trans, 05338 char *diag, integer *m, integer *n, real *alpha, real *a, real *b, 05339 integer *ldb); 05340 05341 /* Subroutine */ int stftri_(char *transr, char *uplo, char *diag, integer *n, 05342 real *a, integer *info); 05343 05344 /* Subroutine */ int stfttp_(char *transr, char *uplo, integer *n, real *arf, 05345 real *ap, integer *info); 05346 05347 /* Subroutine */ int stfttr_(char *transr, char *uplo, integer *n, real *arf, 05348 real *a, integer *lda, integer *info); 05349 05350 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select, 05351 integer *n, real *s, integer *lds, real *p, integer *ldp, real *vl, 05352 integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real 05353 *work, integer *info); 05354 05355 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real 05356 *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real * 05357 z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work, 05358 integer *lwork, integer *info); 05359 05360 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real 05361 *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real * 05362 z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer * 05363 lwork, integer *info); 05364 05365 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz, 05366 logical *select, integer *n, real *a, integer *lda, real *b, integer * 05367 ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq, 05368 real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif, 05369 real *work, integer *lwork, integer *iwork, integer *liwork, integer * 05370 info); 05371 05372 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m, 05373 integer *p, integer *n, integer *k, integer *l, real *a, integer *lda, 05374 real *b, integer *ldb, real *tola, real *tolb, real *alpha, real * 05375 beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer * 05376 ldq, real *work, integer *ncycle, integer *info); 05377 05378 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select, 05379 integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, 05380 integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer * 05381 mm, integer *m, real *work, integer *lwork, integer *iwork, integer * 05382 info); 05383 05384 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer * 05385 n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer * 05386 ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer 05387 *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer 05388 *pq, integer *info); 05389 05390 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer * 05391 n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer * 05392 ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer 05393 *ldf, real *scale, real *dif, real *work, integer *lwork, integer * 05394 iwork, integer *info); 05395 05396 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n, 05397 real *ap, real *rcond, real *work, integer *iwork, integer *info); 05398 05399 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n, 05400 integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx, 05401 real *ferr, real *berr, real *work, integer *iwork, integer *info); 05402 05403 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap, 05404 integer *info); 05405 05406 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n, 05407 integer *nrhs, real *ap, real *b, integer *ldb, integer *info); 05408 05409 /* Subroutine */ int stpttf_(char *transr, char *uplo, integer *n, real *ap, 05410 real *arf, integer *info); 05411 05412 /* Subroutine */ int stpttr_(char *uplo, integer *n, real *ap, real *a, 05413 integer *lda, integer *info); 05414 05415 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n, 05416 real *a, integer *lda, real *rcond, real *work, integer *iwork, 05417 integer *info); 05418 05419 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select, 05420 integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, 05421 integer *ldvr, integer *mm, integer *m, real *work, integer *info); 05422 05423 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt, 05424 real *q, integer *ldq, integer *ifst, integer *ilst, real *work, 05425 integer *info); 05426 05427 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n, 05428 integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x, 05429 integer *ldx, real *ferr, real *berr, real *work, integer *iwork, 05430 integer *info); 05431 05432 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer 05433 *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi, 05434 integer *m, real *s, real *sep, real *work, integer *lwork, integer * 05435 iwork, integer *liwork, integer *info); 05436 05437 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select, 05438 integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, 05439 integer *ldvr, real *s, real *sep, integer *mm, integer *m, real * 05440 work, integer *ldwork, integer *iwork, integer *info); 05441 05442 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer 05443 *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real * 05444 c__, integer *ldc, real *scale, integer *info); 05445 05446 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a, 05447 integer *lda, integer *info); 05448 05449 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a, 05450 integer *lda, integer *info); 05451 05452 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n, 05453 integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer * 05454 info); 05455 05456 /* Subroutine */ int strttf_(char *transr, char *uplo, integer *n, real *a, 05457 integer *lda, real *arf, integer *info); 05458 05459 /* Subroutine */ int strttp_(char *uplo, integer *n, real *a, integer *lda, 05460 real *ap, integer *info); 05461 05462 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda, 05463 real *tau, integer *info); 05464 05465 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda, 05466 real *tau, real *work, integer *lwork, integer *info); 05467 05468 /* Subroutine */ int xerbla_(char *srname, integer *info); 05469 05470 /* Subroutine */ int xerbla_array__(char *srname_array__, integer * 05471 srname_len__, integer *info, ftnlen srname_array_len); 05472 05473 /* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer * 05474 nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt, 05475 integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__, 05476 integer *ldc, doublereal *rwork, integer *info); 05477 05478 /* Subroutine */ int zcgesv_(integer *n, integer *nrhs, doublecomplex *a, 05479 integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, 05480 doublecomplex *x, integer *ldx, doublecomplex *work, singlecomplex *swork, 05481 doublereal *rwork, integer *iter, integer *info); 05482 05483 /* Subroutine */ int zcposv_(char *uplo, integer *n, integer *nrhs, 05484 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05485 doublecomplex *x, integer *ldx, doublecomplex *work, singlecomplex *swork, 05486 doublereal *rwork, integer *iter, integer *info); 05487 05488 /* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, 05489 integer *incx); 05490 05491 /* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 05492 integer *kl, integer *ku, doublecomplex *ab, integer *ldab, 05493 doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, 05494 doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc, 05495 doublecomplex *work, doublereal *rwork, integer *info); 05496 05497 /* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku, 05498 doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm, 05499 doublereal *rcond, doublecomplex *work, doublereal *rwork, integer * 05500 info); 05501 05502 /* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku, 05503 doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, 05504 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer * 05505 info); 05506 05507 /* Subroutine */ int zgbequb_(integer *m, integer *n, integer *kl, integer * 05508 ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal * 05509 c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, 05510 integer *info); 05511 05512 /* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer * 05513 ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex * 05514 afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb, 05515 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 05516 doublecomplex *work, doublereal *rwork, integer *info); 05517 05518 /* Subroutine */ int zgbrfsx_(char *trans, char *equed, integer *n, integer * 05519 kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 05520 doublecomplex *afb, integer *ldafb, integer *ipiv, doublereal *r__, 05521 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x, 05522 integer *ldx, doublereal *rcond, doublereal *berr, integer * 05523 n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 05524 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 05525 work, doublereal *rwork, integer *info); 05526 05527 /* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer * 05528 nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex * 05529 b, integer *ldb, integer *info); 05530 05531 /* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl, 05532 integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 05533 doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, 05534 doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, 05535 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 05536 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 05537 info); 05538 05539 /* Subroutine */ int zgbsvxx_(char *fact, char *trans, integer *n, integer * 05540 kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 05541 doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, 05542 doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, 05543 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 05544 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 05545 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 05546 doublecomplex *work, doublereal *rwork, integer *info); 05547 05548 /* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 05549 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info); 05550 05551 /* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 05552 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info); 05553 05554 /* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer * 05555 ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, 05556 doublecomplex *b, integer *ldb, integer *info); 05557 05558 /* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo, 05559 integer *ihi, doublereal *scale, integer *m, doublecomplex *v, 05560 integer *ldv, integer *info); 05561 05562 /* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer 05563 *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info); 05564 05565 /* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a, 05566 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, 05567 doublecomplex *taup, doublecomplex *work, integer *info); 05568 05569 /* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a, 05570 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, 05571 doublecomplex *taup, doublecomplex *work, integer *lwork, integer * 05572 info); 05573 05574 /* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a, 05575 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex * 05576 work, doublereal *rwork, integer *info); 05577 05578 /* Subroutine */ int zgeequ_(integer *m, integer *n, doublecomplex *a, 05579 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 05580 doublereal *colcnd, doublereal *amax, integer *info); 05581 05582 /* Subroutine */ int zgeequb_(integer *m, integer *n, doublecomplex *a, 05583 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 05584 doublereal *colcnd, doublereal *amax, integer *info); 05585 05586 /* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n, 05587 doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, 05588 doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork, 05589 doublereal *rwork, logical *bwork, integer *info); 05590 05591 /* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char * 05592 sense, integer *n, doublecomplex *a, integer *lda, integer *sdim, 05593 doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal * 05594 rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, 05595 doublereal *rwork, logical *bwork, integer *info); 05596 05597 /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n, 05598 doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, 05599 integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, 05600 integer *lwork, doublereal *rwork, integer *info); 05601 05602 /* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char * 05603 sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w, 05604 doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 05605 integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm, 05606 doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer * 05607 lwork, doublereal *rwork, integer *info); 05608 05609 /* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n, 05610 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05611 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, 05612 integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex * 05613 work, integer *lwork, doublereal *rwork, integer *info); 05614 05615 /* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n, 05616 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05617 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer 05618 *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer 05619 *lwork, doublereal *rwork, integer *info); 05620 05621 /* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi, 05622 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 05623 work, integer *info); 05624 05625 /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi, 05626 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 05627 work, integer *lwork, integer *info); 05628 05629 /* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a, 05630 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info); 05631 05632 /* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a, 05633 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 05634 integer *info); 05635 05636 /* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer * 05637 nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05638 doublecomplex *work, integer *lwork, integer *info); 05639 05640 /* Subroutine */ int zgelsd_(integer *m, integer *n, integer *nrhs, 05641 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05642 doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, 05643 integer *lwork, doublereal *rwork, integer *iwork, integer *info); 05644 05645 /* Subroutine */ int zgelss_(integer *m, integer *n, integer *nrhs, 05646 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05647 doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, 05648 integer *lwork, doublereal *rwork, integer *info); 05649 05650 /* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs, 05651 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05652 integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, 05653 doublereal *rwork, integer *info); 05654 05655 /* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs, 05656 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05657 integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, 05658 integer *lwork, doublereal *rwork, integer *info); 05659 05660 /* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a, 05661 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info); 05662 05663 /* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a, 05664 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 05665 integer *info); 05666 05667 /* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a, 05668 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, 05669 integer *lwork, doublereal *rwork, integer *info); 05670 05671 /* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a, 05672 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, 05673 doublereal *rwork, integer *info); 05674 05675 /* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a, 05676 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info); 05677 05678 /* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a, 05679 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 05680 integer *info); 05681 05682 /* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs, 05683 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 05684 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 05685 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 05686 doublereal *rwork, integer *info); 05687 05688 /* Subroutine */ int zgerfsx_(char *trans, char *equed, integer *n, integer * 05689 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 05690 ldaf, integer *ipiv, doublereal *r__, doublereal *c__, doublecomplex * 05691 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 05692 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 05693 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 05694 doublecomplex *work, doublereal *rwork, integer *info); 05695 05696 /* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a, 05697 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info); 05698 05699 /* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a, 05700 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 05701 integer *info); 05702 05703 /* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda, 05704 doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale); 05705 05706 /* Subroutine */ int zgesdd_(char *jobz, integer *m, integer *n, 05707 doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, 05708 integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, 05709 integer *lwork, doublereal *rwork, integer *iwork, integer *info); 05710 05711 /* Subroutine */ int zgesv_(integer *n, integer *nrhs, doublecomplex *a, 05712 integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer * 05713 info); 05714 05715 /* Subroutine */ int zgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 05716 doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, 05717 integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, 05718 integer *lwork, doublereal *rwork, integer *info); 05719 05720 /* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer * 05721 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 05722 ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 05723 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 05724 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 05725 work, doublereal *rwork, integer *info); 05726 05727 /* Subroutine */ int zgesvxx_(char *fact, char *trans, integer *n, integer * 05728 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 05729 ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 05730 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 05731 doublereal *rcond, doublereal *rpvgrw, doublereal *berr, integer * 05732 n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 05733 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 05734 work, doublereal *rwork, integer *info); 05735 05736 /* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda, 05737 integer *ipiv, integer *jpiv, integer *info); 05738 05739 /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a, 05740 integer *lda, integer *ipiv, integer *info); 05741 05742 /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a, 05743 integer *lda, integer *ipiv, integer *info); 05744 05745 /* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda, 05746 integer *ipiv, doublecomplex *work, integer *lwork, integer *info); 05747 05748 /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs, 05749 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 05750 integer *ldb, integer *info); 05751 05752 /* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo, 05753 integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 05754 doublecomplex *v, integer *ldv, integer *info); 05755 05756 /* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer 05757 *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi, 05758 doublereal *lscale, doublereal *rscale, doublereal *work, integer * 05759 info); 05760 05761 /* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 05762 selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 05763 integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex * 05764 beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer 05765 *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork, 05766 logical *bwork, integer *info); 05767 05768 /* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 05769 selctg, char *sense, integer *n, doublecomplex *a, integer *lda, 05770 doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, 05771 doublecomplex *beta, doublecomplex *vsl, integer *ldvsl, 05772 doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal * 05773 rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, 05774 integer *iwork, integer *liwork, logical *bwork, integer *info); 05775 05776 /* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n, 05777 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05778 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer 05779 *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer 05780 *lwork, doublereal *rwork, integer *info); 05781 05782 /* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char * 05783 sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 05784 integer *ldb, doublecomplex *alpha, doublecomplex *beta, 05785 doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 05786 integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 05787 doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal * 05788 rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, 05789 integer *iwork, logical *bwork, integer *info); 05790 05791 /* Subroutine */ int zggglm_(integer *n, integer *m, integer *p, 05792 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05793 doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex 05794 *work, integer *lwork, integer *info); 05795 05796 /* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer * 05797 ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b, 05798 integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, 05799 integer *ldz, integer *info); 05800 05801 /* Subroutine */ int zgglse_(integer *m, integer *n, integer *p, 05802 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05803 doublecomplex *c__, doublecomplex *d__, doublecomplex *x, 05804 doublecomplex *work, integer *lwork, integer *info); 05805 05806 /* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p, 05807 doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, 05808 integer *ldb, doublecomplex *taub, doublecomplex *work, integer * 05809 lwork, integer *info); 05810 05811 /* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n, 05812 doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, 05813 integer *ldb, doublecomplex *taub, doublecomplex *work, integer * 05814 lwork, integer *info); 05815 05816 /* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 05817 integer *n, integer *p, integer *k, integer *l, doublecomplex *a, 05818 integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha, 05819 doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, 05820 integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work, 05821 doublereal *rwork, integer *iwork, integer *info); 05822 05823 /* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 05824 integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex 05825 *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, 05826 integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer 05827 *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal * 05828 rwork, doublecomplex *tau, doublecomplex *work, integer *info); 05829 05830 /* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl, 05831 doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer * 05832 ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, 05833 integer *info); 05834 05835 /* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs, 05836 doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 05837 doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, 05838 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 05839 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 05840 doublecomplex *work, doublereal *rwork, integer *info); 05841 05842 /* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, 05843 doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb, 05844 integer *info); 05845 05846 /* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer * 05847 nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 05848 doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, 05849 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 05850 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 05851 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 05852 info); 05853 05854 /* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex * 05855 d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer * 05856 info); 05857 05858 /* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs, 05859 doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 05860 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 05861 integer *info); 05862 05863 /* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs, 05864 doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 05865 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb); 05866 05867 /* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd, 05868 doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, 05869 integer *ldz, doublecomplex *work, doublereal *rwork, integer *info); 05870 05871 /* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd, 05872 doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, 05873 integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, 05874 integer *lrwork, integer *iwork, integer *liwork, integer *info); 05875 05876 /* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n, 05877 integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q, 05878 integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer * 05879 iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, 05880 integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork, 05881 integer *ifail, integer *info); 05882 05883 /* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka, 05884 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 05885 integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work, 05886 doublereal *rwork, integer *info); 05887 05888 /* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka, 05889 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 05890 integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, 05891 doublecomplex *work, doublereal *rwork, integer *info); 05892 05893 /* Subroutine */ int zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 05894 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 05895 integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, 05896 doublecomplex *work, integer *lwork, doublereal *rwork, integer * 05897 lrwork, integer *iwork, integer *liwork, integer *info); 05898 05899 /* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n, 05900 integer *ka, integer *kb, doublecomplex *ab, integer *ldab, 05901 doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq, 05902 doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal * 05903 abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, 05904 doublecomplex *work, doublereal *rwork, integer *iwork, integer * 05905 ifail, integer *info); 05906 05907 /* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd, 05908 doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, 05909 doublecomplex *q, integer *ldq, doublecomplex *work, integer *info); 05910 05911 /* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a, 05912 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, 05913 doublecomplex *work, integer *info); 05914 05915 /* Subroutine */ int zheequb_(char *uplo, integer *n, doublecomplex *a, 05916 integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 05917 doublecomplex *work, integer *info); 05918 05919 /* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex 05920 *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, 05921 doublereal *rwork, integer *info); 05922 05923 /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n, 05924 doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, 05925 integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, 05926 integer *liwork, integer *info); 05927 05928 /* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n, 05929 doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, 05930 integer *il, integer *iu, doublereal *abstol, integer *m, doublereal * 05931 w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex * 05932 work, integer *lwork, doublereal *rwork, integer *lrwork, integer * 05933 iwork, integer *liwork, integer *info); 05934 05935 /* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n, 05936 doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, 05937 integer *il, integer *iu, doublereal *abstol, integer *m, doublereal * 05938 w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer * 05939 lwork, doublereal *rwork, integer *iwork, integer *ifail, integer * 05940 info); 05941 05942 /* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n, 05943 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05944 integer *info); 05945 05946 /* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n, 05947 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05948 integer *info); 05949 05950 /* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer * 05951 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05952 doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, 05953 integer *info); 05954 05955 /* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer * 05956 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 05957 doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, 05958 integer *lrwork, integer *iwork, integer *liwork, integer *info); 05959 05960 /* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char * 05961 uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 05962 integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer * 05963 iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, 05964 integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, 05965 integer *iwork, integer *ifail, integer *info); 05966 05967 /* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs, 05968 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 05969 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 05970 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 05971 doublereal *rwork, integer *info); 05972 05973 /* Subroutine */ int zherfsx_(char *uplo, char *equed, integer *n, integer * 05974 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 05975 ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb, 05976 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr, 05977 integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 05978 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 05979 work, doublereal *rwork, integer *info); 05980 05981 /* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs, 05982 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 05983 integer *ldb, doublecomplex *work, integer *lwork, integer *info); 05984 05985 /* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer * 05986 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 05987 ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 05988 integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 05989 doublecomplex *work, integer *lwork, doublereal *rwork, integer *info); 05990 05991 /* Subroutine */ int zhesvxx_(char *fact, char *uplo, integer *n, integer * 05992 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 05993 ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b, 05994 integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 05995 doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 05996 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 05997 nparams, doublereal *params, doublecomplex *work, doublereal *rwork, 05998 integer *info); 05999 06000 /* Subroutine */ int zhetd2_(char *uplo, integer *n, doublecomplex *a, 06001 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, 06002 integer *info); 06003 06004 /* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a, 06005 integer *lda, integer *ipiv, integer *info); 06006 06007 /* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a, 06008 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, 06009 doublecomplex *work, integer *lwork, integer *info); 06010 06011 /* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a, 06012 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, 06013 integer *info); 06014 06015 /* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a, 06016 integer *lda, integer *ipiv, doublecomplex *work, integer *info); 06017 06018 /* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs, 06019 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 06020 integer *ldb, integer *info); 06021 06022 /* Subroutine */ int zhfrk_(char *transr, char *uplo, char *trans, integer *n, 06023 integer *k, doublereal *alpha, doublecomplex *a, integer *lda, 06024 doublereal *beta, doublecomplex *c__); 06025 06026 /* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n, 06027 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 06028 doublecomplex *t, integer *ldt, doublecomplex *alpha, doublecomplex * 06029 beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer * 06030 ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer * 06031 info); 06032 06033 /* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap, 06034 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex * 06035 work, integer *info); 06036 06037 /* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex 06038 *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex * 06039 work, doublereal *rwork, integer *info); 06040 06041 /* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n, 06042 doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz, 06043 doublecomplex *work, integer *lwork, doublereal *rwork, integer * 06044 lrwork, integer *iwork, integer *liwork, integer *info); 06045 06046 /* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n, 06047 doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il, 06048 integer *iu, doublereal *abstol, integer *m, doublereal *w, 06049 doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal * 06050 rwork, integer *iwork, integer *ifail, integer *info); 06051 06052 /* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n, 06053 doublecomplex *ap, doublecomplex *bp, integer *info); 06054 06055 /* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer * 06056 n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex 06057 *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer * 06058 info); 06059 06060 /* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer * 06061 n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex 06062 *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal * 06063 rwork, integer *lrwork, integer *iwork, integer *liwork, integer * 06064 info); 06065 06066 /* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char * 06067 uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal * 06068 vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, 06069 integer *m, doublereal *w, doublecomplex *z__, integer *ldz, 06070 doublecomplex *work, doublereal *rwork, integer *iwork, integer * 06071 ifail, integer *info); 06072 06073 /* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs, 06074 doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex * 06075 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 06076 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 06077 info); 06078 06079 /* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs, 06080 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 06081 integer *info); 06082 06083 /* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer * 06084 nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, 06085 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 06086 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 06087 work, doublereal *rwork, integer *info); 06088 06089 /* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap, 06090 doublereal *d__, doublereal *e, doublecomplex *tau, integer *info); 06091 06092 /* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap, 06093 integer *ipiv, integer *info); 06094 06095 /* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap, 06096 integer *ipiv, doublecomplex *work, integer *info); 06097 06098 /* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs, 06099 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 06100 integer *info); 06101 06102 /* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical * 06103 select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex * 06104 w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 06105 integer *mm, integer *m, doublecomplex *work, doublereal *rwork, 06106 integer *ifaill, integer *ifailr, integer *info); 06107 06108 /* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo, 06109 integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, 06110 doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, 06111 integer *info); 06112 06113 /* Subroutine */ int zla_gbamv__(integer *trans, integer *m, integer *n, 06114 integer *kl, integer *ku, doublereal *alpha, doublecomplex *ab, 06115 integer *ldab, doublecomplex *x, integer *incx, doublereal *beta, 06116 doublereal *y, integer *incy); 06117 06118 doublereal zla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku, 06119 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 06120 integer *ipiv, doublereal *c__, logical *capply, integer *info, 06121 doublecomplex *work, doublereal *rwork, ftnlen trans_len); 06122 06123 doublereal zla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku, 06124 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 06125 integer *ipiv, doublecomplex *x, integer *info, doublecomplex *work, 06126 doublereal *rwork, ftnlen trans_len); 06127 06128 /* Subroutine */ int zla_gbrfsx_extended__(integer *prec_type__, integer * 06129 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 06130 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 06131 integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b, 06132 integer *ldb, doublecomplex *y, integer *ldy, doublereal *berr_out__, 06133 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 06134 doublecomplex *res, doublereal *ayb, doublecomplex *dy, doublecomplex 06135 *y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 06136 doublereal *dz_ub__, logical *ignore_cwise__, integer *info); 06137 06138 doublereal zla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer * 06139 ncols, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer * 06140 ldafb); 06141 06142 /* Subroutine */ int zla_geamv__(integer *trans, integer *m, integer *n, 06143 doublereal *alpha, doublecomplex *a, integer *lda, doublecomplex *x, 06144 integer *incx, doublereal *beta, doublereal *y, integer *incy); 06145 06146 doublereal zla_gercond_c__(char *trans, integer *n, doublecomplex *a, integer 06147 *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal * 06148 c__, logical *capply, integer *info, doublecomplex *work, doublereal * 06149 rwork, ftnlen trans_len); 06150 06151 doublereal zla_gercond_x__(char *trans, integer *n, doublecomplex *a, integer 06152 *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex * 06153 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 06154 trans_len); 06155 06156 /* Subroutine */ int zla_gerfsx_extended__(integer *prec_type__, integer * 06157 trans_type__, integer *n, integer *nrhs, doublecomplex *a, integer * 06158 lda, doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, 06159 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 06160 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal * 06161 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 06162 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 06163 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical * 06164 ignore_cwise__, integer *info); 06165 06166 /* Subroutine */ int zla_heamv__(integer *uplo, integer *n, doublereal *alpha, 06167 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 06168 doublereal *beta, doublereal *y, integer *incy); 06169 06170 doublereal zla_hercond_c__(char *uplo, integer *n, doublecomplex *a, integer * 06171 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__, 06172 logical *capply, integer *info, doublecomplex *work, doublereal * 06173 rwork, ftnlen uplo_len); 06174 06175 doublereal zla_hercond_x__(char *uplo, integer *n, doublecomplex *a, integer * 06176 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex * 06177 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 06178 uplo_len); 06179 06180 /* Subroutine */ int zla_herfsx_extended__(integer *prec_type__, char *uplo, 06181 integer *n, integer *nrhs, doublecomplex *a, integer *lda, 06182 doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, 06183 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 06184 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal * 06185 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 06186 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 06187 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical * 06188 ignore_cwise__, integer *info, ftnlen uplo_len); 06189 06190 doublereal zla_herpvgrw__(char *uplo, integer *n, integer *info, 06191 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 06192 integer *ipiv, doublereal *work, ftnlen uplo_len); 06193 06194 /* Subroutine */ int zla_lin_berr__(integer *n, integer *nz, integer *nrhs, 06195 doublecomplex *res, doublereal *ayb, doublereal *berr); 06196 06197 doublereal zla_porcond_c__(char *uplo, integer *n, doublecomplex *a, integer * 06198 lda, doublecomplex *af, integer *ldaf, doublereal *c__, logical * 06199 capply, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 06200 uplo_len); 06201 06202 doublereal zla_porcond_x__(char *uplo, integer *n, doublecomplex *a, integer * 06203 lda, doublecomplex *af, integer *ldaf, doublecomplex *x, integer * 06204 info, doublecomplex *work, doublereal *rwork, ftnlen uplo_len); 06205 06206 /* Subroutine */ int zla_porfsx_extended__(integer *prec_type__, char *uplo, 06207 integer *n, integer *nrhs, doublecomplex *a, integer *lda, 06208 doublecomplex *af, integer *ldaf, logical *colequ, doublereal *c__, 06209 doublecomplex *b, integer *ldb, doublecomplex *y, integer *ldy, 06210 doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__, 06211 doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 06212 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 06213 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical * 06214 ignore_cwise__, integer *info, ftnlen uplo_len); 06215 06216 doublereal zla_porpvgrw__(char *uplo, integer *ncols, doublecomplex *a, 06217 integer *lda, doublecomplex *af, integer *ldaf, doublereal *work, 06218 ftnlen uplo_len); 06219 06220 doublereal zla_rpvgrw__(integer *n, integer *ncols, doublecomplex *a, integer 06221 *lda, doublecomplex *af, integer *ldaf); 06222 06223 /* Subroutine */ int zla_syamv__(integer *uplo, integer *n, doublereal *alpha, 06224 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 06225 doublereal *beta, doublereal *y, integer *incy); 06226 06227 doublereal zla_syrcond_c__(char *uplo, integer *n, doublecomplex *a, integer * 06228 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__, 06229 logical *capply, integer *info, doublecomplex *work, doublereal * 06230 rwork, ftnlen uplo_len); 06231 06232 doublereal zla_syrcond_x__(char *uplo, integer *n, doublecomplex *a, integer * 06233 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex * 06234 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 06235 uplo_len); 06236 06237 /* Subroutine */ int zla_syrfsx_extended__(integer *prec_type__, char *uplo, 06238 integer *n, integer *nrhs, doublecomplex *a, integer *lda, 06239 doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, 06240 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 06241 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal * 06242 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 06243 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 06244 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical * 06245 ignore_cwise__, integer *info, ftnlen uplo_len); 06246 06247 doublereal zla_syrpvgrw__(char *uplo, integer *n, integer *info, 06248 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 06249 integer *ipiv, doublereal *work, ftnlen uplo_len); 06250 06251 /* Subroutine */ int zla_wwaddw__(integer *n, doublecomplex *x, doublecomplex 06252 *y, doublecomplex *w); 06253 06254 /* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb, 06255 doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, 06256 doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer * 06257 ldx, doublecomplex *y, integer *ldy); 06258 06259 /* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx); 06260 06261 /* Subroutine */ int zlacn2_(integer *n, doublecomplex *v, doublecomplex *x, 06262 doublereal *est, integer *kase, integer *isave); 06263 06264 /* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, 06265 doublereal *est, integer *kase); 06266 06267 /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal * 06268 a, integer *lda, doublecomplex *b, integer *ldb); 06269 06270 /* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n, 06271 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb); 06272 06273 /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a, 06274 integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, 06275 integer *ldc, doublereal *rwork); 06276 06277 /* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx, 06278 doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex * 06279 s); 06280 06281 /* Double singlecomplex */ VOID zladiv_(doublecomplex * ret_val, doublecomplex *x, 06282 doublecomplex *y); 06283 06284 /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__, 06285 doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, 06286 integer *ldqs, doublereal *rwork, integer *iwork, integer *info); 06287 06288 /* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz, 06289 integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 06290 doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq, 06291 doublereal *qstore, integer *qptr, integer *prmptr, integer *perm, 06292 integer *givptr, integer *givcol, doublereal *givnum, doublecomplex * 06293 work, doublereal *rwork, integer *iwork, integer *info); 06294 06295 /* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz, 06296 doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho, 06297 integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex * 06298 q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx, 06299 integer *indxq, integer *perm, integer *givptr, integer *givcol, 06300 doublereal *givnum, integer *info); 06301 06302 /* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n, 06303 doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v, 06304 doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3, 06305 doublereal *smlnum, integer *info); 06306 06307 /* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b, 06308 doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2, 06309 doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1); 06310 06311 /* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b, 06312 doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, 06313 doublecomplex *sn1); 06314 06315 /* Subroutine */ int zlag2c_(integer *m, integer *n, doublecomplex *a, 06316 integer *lda, singlecomplex *sa, integer *ldsa, integer *info); 06317 06318 /* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex * 06319 a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3, 06320 doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex * 06321 snv, doublereal *csq, doublecomplex *snq); 06322 06323 /* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs, 06324 doublereal *alpha, doublecomplex *dl, doublecomplex *d__, 06325 doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta, 06326 doublecomplex *b, integer *ldb); 06327 06328 /* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb, 06329 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, 06330 integer *ldw, integer *info); 06331 06332 /* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n, 06333 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 06334 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 06335 integer *ldz, integer *info); 06336 06337 /* Subroutine */ int zlahr2_(integer *n, integer *k, integer *nb, 06338 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, 06339 integer *ldt, doublecomplex *y, integer *ldy); 06340 06341 /* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb, 06342 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, 06343 integer *ldt, doublecomplex *y, integer *ldy); 06344 06345 /* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x, 06346 doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal * 06347 sestpr, doublecomplex *s, doublecomplex *c__); 06348 06349 /* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr, 06350 integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb, 06351 doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr, 06352 integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, 06353 doublereal *poles, doublereal *difl, doublereal *difr, doublereal * 06354 z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork, 06355 integer *info); 06356 06357 /* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n, 06358 integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx, 06359 integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer * 06360 k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal * 06361 poles, integer *givptr, integer *givcol, integer *ldgcol, integer * 06362 perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal * 06363 rwork, integer *iwork, integer *info); 06364 06365 /* Subroutine */ int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer 06366 *nrhs, doublereal *d__, doublereal *e, doublecomplex *b, integer *ldb, 06367 doublereal *rcond, integer *rank, doublecomplex *work, doublereal * 06368 rwork, integer *iwork, integer *info); 06369 06370 doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku, 06371 doublecomplex *ab, integer *ldab, doublereal *work); 06372 06373 doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, 06374 integer *lda, doublereal *work); 06375 06376 doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex * 06377 d__, doublecomplex *du); 06378 06379 doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k, 06380 doublecomplex *ab, integer *ldab, doublereal *work); 06381 06382 doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a, 06383 integer *lda, doublereal *work); 06384 06385 doublereal zlanhf_(char *norm, char *transr, char *uplo, integer *n, 06386 doublecomplex *a, doublereal *work); 06387 06388 doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap, 06389 doublereal *work); 06390 06391 doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda, 06392 doublereal *work); 06393 06394 doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e); 06395 06396 doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k, 06397 doublecomplex *ab, integer *ldab, doublereal *work); 06398 06399 doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap, 06400 doublereal *work); 06401 06402 doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a, 06403 integer *lda, doublereal *work); 06404 06405 doublereal zlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 06406 doublecomplex *ab, integer *ldab, doublereal *work); 06407 06408 doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n, 06409 doublecomplex *ap, doublereal *work); 06410 06411 doublereal zlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 06412 doublecomplex *a, integer *lda, doublereal *work); 06413 06414 /* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx, 06415 doublecomplex *y, integer *incy, doublereal *ssmin); 06416 06417 /* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n, 06418 doublecomplex *x, integer *ldx, integer *k); 06419 06420 /* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku, 06421 doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, 06422 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed); 06423 06424 /* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a, 06425 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 06426 doublereal *colcnd, doublereal *amax, char *equed); 06427 06428 /* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd, 06429 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 06430 doublereal *amax, char *equed); 06431 06432 /* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a, 06433 integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 06434 char *equed); 06435 06436 /* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, 06437 doublereal *s, doublereal *scond, doublereal *amax, char *equed); 06438 06439 /* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset, 06440 doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, 06441 doublereal *vn1, doublereal *vn2, doublecomplex *work); 06442 06443 /* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer 06444 *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt, 06445 doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex * 06446 auxv, doublecomplex *f, integer *ldf); 06447 06448 /* Subroutine */ int zlaqr0_(logical *wantt, logical *wantz, integer *n, 06449 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 06450 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 06451 integer *ldz, doublecomplex *work, integer *lwork, integer *info); 06452 06453 /* Subroutine */ int zlaqr1_(integer *n, doublecomplex *h__, integer *ldh, 06454 doublecomplex *s1, doublecomplex *s2, doublecomplex *v); 06455 06456 /* Subroutine */ int zlaqr2_(logical *wantt, logical *wantz, integer *n, 06457 integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, 06458 integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, 06459 integer *ldz, integer *ns, integer *nd, doublecomplex *sh, 06460 doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t, 06461 integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv, 06462 doublecomplex *work, integer *lwork); 06463 06464 /* Subroutine */ int zlaqr3_(logical *wantt, logical *wantz, integer *n, 06465 integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, 06466 integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, 06467 integer *ldz, integer *ns, integer *nd, doublecomplex *sh, 06468 doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t, 06469 integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv, 06470 doublecomplex *work, integer *lwork); 06471 06472 /* Subroutine */ int zlaqr4_(logical *wantt, logical *wantz, integer *n, 06473 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 06474 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 06475 integer *ldz, doublecomplex *work, integer *lwork, integer *info); 06476 06477 /* Subroutine */ int zlaqr5_(logical *wantt, logical *wantz, integer *kacc22, 06478 integer *n, integer *ktop, integer *kbot, integer *nshfts, 06479 doublecomplex *s, doublecomplex *h__, integer *ldh, integer *iloz, 06480 integer *ihiz, doublecomplex *z__, integer *ldz, doublecomplex *v, 06481 integer *ldv, doublecomplex *u, integer *ldu, integer *nv, 06482 doublecomplex *wv, integer *ldwv, integer *nh, doublecomplex *wh, 06483 integer *ldwh); 06484 06485 /* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd, 06486 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 06487 doublereal *amax, char *equed); 06488 06489 /* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, 06490 doublereal *s, doublereal *scond, doublereal *amax, char *equed); 06491 06492 /* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a, 06493 integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 06494 char *equed); 06495 06496 /* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal 06497 *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal * 06498 lld, doublereal *pivmin, doublereal *gaptol, doublecomplex *z__, 06499 logical *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, 06500 integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid, 06501 doublereal *rqcorr, doublereal *work); 06502 06503 /* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, 06504 doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s, 06505 integer *incc); 06506 06507 /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer * 06508 lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, 06509 doublereal *rwork); 06510 06511 /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex 06512 *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer * 06513 ldc, doublecomplex *work); 06514 06515 /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char * 06516 storev, integer *m, integer *n, integer *k, doublecomplex *v, integer 06517 *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer * 06518 ldc, doublecomplex *work, integer *ldwork); 06519 06520 /* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex * 06521 x, integer *incx, doublecomplex *tau); 06522 06523 /* Subroutine */ int zlarfp_(integer *n, doublecomplex *alpha, doublecomplex * 06524 x, integer *incx, doublecomplex *tau); 06525 06526 /* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer * 06527 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex * 06528 t, integer *ldt); 06529 06530 /* Subroutine */ int zlarfx_(char *side, integer *m, integer *n, 06531 doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer * 06532 ldc, doublecomplex *work); 06533 06534 /* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx, 06535 doublecomplex *y, integer *incy, doublereal *c__, integer *incc); 06536 06537 /* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n, 06538 doublecomplex *x); 06539 06540 /* Subroutine */ int zlarrv_(integer *n, doublereal *vl, doublereal *vu, 06541 doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, 06542 integer *m, integer *dol, integer *dou, doublereal *minrgp, 06543 doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr, 06544 doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers, 06545 doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, 06546 integer *iwork, integer *info); 06547 06548 /* Subroutine */ int zlarscl2_(integer *m, integer *n, doublereal *d__, 06549 doublecomplex *x, integer *ldx); 06550 06551 /* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal * 06552 cs, doublecomplex *sn, doublecomplex *r__); 06553 06554 /* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx, 06555 doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s, 06556 integer *incc); 06557 06558 /* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l, 06559 doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex * 06560 c__, integer *ldc, doublecomplex *work); 06561 06562 /* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char * 06563 storev, integer *m, integer *n, integer *k, integer *l, doublecomplex 06564 *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, 06565 integer *ldc, doublecomplex *work, integer *ldwork); 06566 06567 /* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer * 06568 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex * 06569 t, integer *ldt); 06570 06571 /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku, 06572 doublereal *cfrom, doublereal *cto, integer *m, integer *n, 06573 doublecomplex *a, integer *lda, integer *info); 06574 06575 /* Subroutine */ int zlascl2_(integer *m, integer *n, doublereal *d__, 06576 doublecomplex *x, integer *ldx); 06577 06578 /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n, 06579 doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer * 06580 lda); 06581 06582 /* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m, 06583 integer *n, doublereal *c__, doublereal *s, doublecomplex *a, 06584 integer *lda); 06585 06586 /* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx, 06587 doublereal *scale, doublereal *sumsq); 06588 06589 /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda, 06590 integer *k1, integer *k2, integer *ipiv, integer *incx); 06591 06592 /* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb, 06593 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, 06594 integer *ldw, integer *info); 06595 06596 /* Subroutine */ int zlat2c_(char *uplo, integer *n, doublecomplex *a, 06597 integer *lda, singlecomplex *sa, integer *ldsa, integer *info); 06598 06599 /* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char * 06600 normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab, 06601 doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info); 06602 06603 /* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__, 06604 integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal * 06605 rdscal, integer *ipiv, integer *jpiv); 06606 06607 /* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char * 06608 normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal * 06609 scale, doublereal *cnorm, integer *info); 06610 06611 /* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb, 06612 doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau, 06613 doublecomplex *w, integer *ldw); 06614 06615 /* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char * 06616 normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, 06617 doublereal *scale, doublereal *cnorm, integer *info); 06618 06619 /* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l, 06620 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 06621 work); 06622 06623 /* Subroutine */ int zlatzm_(char *side, integer *m, integer *n, 06624 doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex * 06625 c1, doublecomplex *c2, integer *ldc, doublecomplex *work); 06626 06627 /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a, 06628 integer *lda, integer *info); 06629 06630 /* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a, 06631 integer *lda, integer *info); 06632 06633 /* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd, 06634 doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal * 06635 rcond, doublecomplex *work, doublereal *rwork, integer *info); 06636 06637 /* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd, 06638 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 06639 doublereal *amax, integer *info); 06640 06641 /* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer * 06642 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer * 06643 ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 06644 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * 06645 rwork, integer *info); 06646 06647 /* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd, 06648 doublecomplex *ab, integer *ldab, integer *info); 06649 06650 /* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer * 06651 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer * 06652 ldb, integer *info); 06653 06654 /* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 06655 integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, 06656 integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer 06657 *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal * 06658 ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, 06659 integer *info); 06660 06661 /* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd, 06662 doublecomplex *ab, integer *ldab, integer *info); 06663 06664 /* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd, 06665 doublecomplex *ab, integer *ldab, integer *info); 06666 06667 /* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer * 06668 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer * 06669 ldb, integer *info); 06670 06671 /* Subroutine */ int zpftrf_(char *transr, char *uplo, integer *n, 06672 doublecomplex *a, integer *info); 06673 06674 /* Subroutine */ int zpftri_(char *transr, char *uplo, integer *n, 06675 doublecomplex *a, integer *info); 06676 06677 /* Subroutine */ int zpftrs_(char *transr, char *uplo, integer *n, integer * 06678 nrhs, doublecomplex *a, doublecomplex *b, integer *ldb, integer *info); 06679 06680 /* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a, 06681 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex * 06682 work, doublereal *rwork, integer *info); 06683 06684 /* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda, 06685 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 06686 06687 /* Subroutine */ int zpoequb_(integer *n, doublecomplex *a, integer *lda, 06688 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 06689 06690 /* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs, 06691 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 06692 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 06693 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * 06694 rwork, integer *info); 06695 06696 /* Subroutine */ int zporfsx_(char *uplo, char *equed, integer *n, integer * 06697 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 06698 ldaf, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, 06699 integer *ldx, doublereal *rcond, doublereal *berr, integer * 06700 n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 06701 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 06702 work, doublereal *rwork, integer *info); 06703 06704 /* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs, 06705 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 06706 integer *info); 06707 06708 /* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer * 06709 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 06710 ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, 06711 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 06712 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 06713 info); 06714 06715 /* Subroutine */ int zposvxx_(char *fact, char *uplo, integer *n, integer * 06716 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 06717 ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, 06718 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 06719 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 06720 doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 06721 doublecomplex *work, doublereal *rwork, integer *info); 06722 06723 /* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a, 06724 integer *lda, integer *info); 06725 06726 /* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a, 06727 integer *lda, integer *info); 06728 06729 /* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a, 06730 integer *lda, integer *info); 06731 06732 /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs, 06733 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 06734 integer *info); 06735 06736 /* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap, 06737 doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal 06738 *rwork, integer *info); 06739 06740 /* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap, 06741 doublereal *s, doublereal *scond, doublereal *amax, integer *info); 06742 06743 /* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs, 06744 doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb, 06745 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 06746 doublecomplex *work, doublereal *rwork, integer *info); 06747 06748 /* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs, 06749 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info); 06750 06751 /* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer * 06752 nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal * 06753 s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 06754 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 06755 work, doublereal *rwork, integer *info); 06756 06757 /* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap, 06758 integer *info); 06759 06760 /* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap, 06761 integer *info); 06762 06763 /* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs, 06764 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info); 06765 06766 /* Subroutine */ int zpstf2_(char *uplo, integer *n, doublecomplex *a, 06767 integer *lda, integer *piv, integer *rank, doublereal *tol, 06768 doublereal *work, integer *info); 06769 06770 /* Subroutine */ int zpstrf_(char *uplo, integer *n, doublecomplex *a, 06771 integer *lda, integer *piv, integer *rank, doublereal *tol, 06772 doublereal *work, integer *info); 06773 06774 /* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e, 06775 doublereal *anorm, doublereal *rcond, doublereal *rwork, integer * 06776 info); 06777 06778 /* Subroutine */ int zpteqr_(char *compz, integer *n, doublereal *d__, 06779 doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, 06780 integer *info); 06781 06782 /* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs, 06783 doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, 06784 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 06785 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * 06786 rwork, integer *info); 06787 06788 /* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__, 06789 doublecomplex *e, doublecomplex *b, integer *ldb, integer *info); 06790 06791 /* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs, 06792 doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, 06793 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 06794 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 06795 work, doublereal *rwork, integer *info); 06796 06797 /* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e, 06798 integer *info); 06799 06800 /* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs, 06801 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, 06802 integer *info); 06803 06804 /* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs, 06805 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb); 06806 06807 /* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx, 06808 doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s); 06809 06810 /* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap, 06811 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex * 06812 work, integer *info); 06813 06814 /* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha, 06815 doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex * 06816 beta, doublecomplex *y, integer *incy); 06817 06818 /* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha, 06819 doublecomplex *x, integer *incx, doublecomplex *ap); 06820 06821 /* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs, 06822 doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex * 06823 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 06824 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 06825 info); 06826 06827 /* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs, 06828 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 06829 integer *info); 06830 06831 /* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer * 06832 nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, 06833 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 06834 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex * 06835 work, doublereal *rwork, integer *info); 06836 06837 /* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap, 06838 integer *ipiv, integer *info); 06839 06840 /* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap, 06841 integer *ipiv, doublecomplex *work, integer *info); 06842 06843 /* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs, 06844 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 06845 integer *info); 06846 06847 /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__, 06848 doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work, 06849 integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, 06850 integer *liwork, integer *info); 06851 06852 /* Subroutine */ int zstegr_(char *jobz, char *range, integer *n, doublereal * 06853 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 06854 integer *iu, doublereal *abstol, integer *m, doublereal *w, 06855 doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, 06856 integer *lwork, integer *iwork, integer *liwork, integer *info); 06857 06858 /* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e, 06859 integer *m, doublereal *w, integer *iblock, integer *isplit, 06860 doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork, 06861 integer *ifail, integer *info); 06862 06863 /* Subroutine */ int zstemr_(char *jobz, char *range, integer *n, doublereal * 06864 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 06865 integer *iu, integer *m, doublereal *w, doublecomplex *z__, integer * 06866 ldz, integer *nzc, integer *isuppz, logical *tryrac, doublereal *work, 06867 integer *lwork, integer *iwork, integer *liwork, integer *info); 06868 06869 /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__, 06870 doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, 06871 integer *info); 06872 06873 /* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a, 06874 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, 06875 doublecomplex *work, integer *info); 06876 06877 /* Subroutine */ int zsyequb_(char *uplo, integer *n, doublecomplex *a, 06878 integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 06879 doublecomplex *work, integer *info); 06880 06881 /* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha, 06882 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 06883 doublecomplex *beta, doublecomplex *y, integer *incy); 06884 06885 /* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha, 06886 doublecomplex *x, integer *incx, doublecomplex *a, integer *lda); 06887 06888 /* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs, 06889 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 06890 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 06891 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 06892 doublereal *rwork, integer *info); 06893 06894 /* Subroutine */ int zsyrfsx_(char *uplo, char *equed, integer *n, integer * 06895 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 06896 ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb, 06897 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr, 06898 integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal * 06899 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex * 06900 work, doublereal *rwork, integer *info); 06901 06902 /* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs, 06903 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 06904 integer *ldb, doublecomplex *work, integer *lwork, integer *info); 06905 06906 /* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer * 06907 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 06908 ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 06909 integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 06910 doublecomplex *work, integer *lwork, doublereal *rwork, integer *info); 06911 06912 /* Subroutine */ int zsysvxx_(char *fact, char *uplo, integer *n, integer * 06913 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer * 06914 ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b, 06915 integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 06916 doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 06917 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer * 06918 nparams, doublereal *params, doublecomplex *work, doublereal *rwork, 06919 integer *info); 06920 06921 /* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a, 06922 integer *lda, integer *ipiv, integer *info); 06923 06924 /* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a, 06925 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, 06926 integer *info); 06927 06928 /* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a, 06929 integer *lda, integer *ipiv, doublecomplex *work, integer *info); 06930 06931 /* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs, 06932 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 06933 integer *ldb, integer *info); 06934 06935 /* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n, 06936 integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond, 06937 doublecomplex *work, doublereal *rwork, integer *info); 06938 06939 /* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n, 06940 integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, 06941 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 06942 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal * 06943 rwork, integer *info); 06944 06945 /* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n, 06946 integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, 06947 doublecomplex *b, integer *ldb, integer *info); 06948 06949 /* Subroutine */ int ztfsm_(char *transr, char *side, char *uplo, char *trans, 06950 char *diag, integer *m, integer *n, doublecomplex *alpha, 06951 doublecomplex *a, doublecomplex *b, integer *ldb); 06952 06953 /* Subroutine */ int ztftri_(char *transr, char *uplo, char *diag, integer *n, 06954 doublecomplex *a, integer *info); 06955 06956 /* Subroutine */ int ztfttp_(char *transr, char *uplo, integer *n, 06957 doublecomplex *arf, doublecomplex *ap, integer *info); 06958 06959 /* Subroutine */ int ztfttr_(char *transr, char *uplo, integer *n, 06960 doublecomplex *arf, doublecomplex *a, integer *lda, integer *info); 06961 06962 /* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select, 06963 integer *n, doublecomplex *s, integer *lds, doublecomplex *p, integer 06964 *ldp, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer * 06965 ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, 06966 integer *info); 06967 06968 /* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n, 06969 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 06970 doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, 06971 integer *j1, integer *info); 06972 06973 /* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n, 06974 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 06975 doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, 06976 integer *ifst, integer *ilst, integer *info); 06977 06978 /* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz, 06979 logical *select, integer *n, doublecomplex *a, integer *lda, 06980 doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex * 06981 beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer * 06982 ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif, 06983 doublecomplex *work, integer *lwork, integer *iwork, integer *liwork, 06984 integer *info); 06985 06986 /* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m, 06987 integer *p, integer *n, integer *k, integer *l, doublecomplex *a, 06988 integer *lda, doublecomplex *b, integer *ldb, doublereal *tola, 06989 doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex * 06990 u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q, 06991 integer *ldq, doublecomplex *work, integer *ncycle, integer *info); 06992 06993 /* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select, 06994 integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer 06995 *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer * 06996 ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m, 06997 doublecomplex *work, integer *lwork, integer *iwork, integer *info); 06998 06999 /* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer * 07000 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 07001 doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, 07002 doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, 07003 doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer * 07004 info); 07005 07006 /* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer * 07007 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 07008 doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, 07009 doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, 07010 doublereal *scale, doublereal *dif, doublecomplex *work, integer * 07011 lwork, integer *iwork, integer *info); 07012 07013 /* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n, 07014 doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal 07015 *rwork, integer *info); 07016 07017 /* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n, 07018 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, 07019 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 07020 doublecomplex *work, doublereal *rwork, integer *info); 07021 07022 /* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n, 07023 doublecomplex *ap, integer *info); 07024 07025 /* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n, 07026 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, 07027 integer *info); 07028 07029 /* Subroutine */ int ztpttf_(char *transr, char *uplo, integer *n, 07030 doublecomplex *ap, doublecomplex *arf, integer *info); 07031 07032 /* Subroutine */ int ztpttr_(char *uplo, integer *n, doublecomplex *ap, 07033 doublecomplex *a, integer *lda, integer *info); 07034 07035 /* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n, 07036 doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex * 07037 work, doublereal *rwork, integer *info); 07038 07039 /* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select, 07040 integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, 07041 integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer 07042 *m, doublecomplex *work, doublereal *rwork, integer *info); 07043 07044 /* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t, 07045 integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer * 07046 ilst, integer *info); 07047 07048 /* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n, 07049 integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, 07050 integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 07051 doublereal *berr, doublecomplex *work, doublereal *rwork, integer * 07052 info); 07053 07054 /* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer 07055 *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, 07056 doublecomplex *w, integer *m, doublereal *s, doublereal *sep, 07057 doublecomplex *work, integer *lwork, integer *info); 07058 07059 /* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select, 07060 integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, 07061 integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s, 07062 doublereal *sep, integer *mm, integer *m, doublecomplex *work, 07063 integer *ldwork, doublereal *rwork, integer *info); 07064 07065 /* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer 07066 *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 07067 integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, 07068 integer *info); 07069 07070 /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n, 07071 doublecomplex *a, integer *lda, integer *info); 07072 07073 /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n, 07074 doublecomplex *a, integer *lda, integer *info); 07075 07076 /* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n, 07077 integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, 07078 integer *ldb, integer *info); 07079 07080 /* Subroutine */ int ztrttf_(char *transr, char *uplo, integer *n, 07081 doublecomplex *a, integer *lda, doublecomplex *arf, integer *info); 07082 07083 /* Subroutine */ int ztrttp_(char *uplo, integer *n, doublecomplex *a, 07084 integer *lda, doublecomplex *ap, integer *info); 07085 07086 /* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a, 07087 integer *lda, doublecomplex *tau, integer *info); 07088 07089 /* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a, 07090 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 07091 integer *info); 07092 07093 /* Subroutine */ int zung2l_(integer *m, integer *n, integer *k, 07094 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07095 work, integer *info); 07096 07097 /* Subroutine */ int zung2r_(integer *m, integer *n, integer *k, 07098 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07099 work, integer *info); 07100 07101 /* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k, 07102 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07103 work, integer *lwork, integer *info); 07104 07105 /* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi, 07106 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07107 work, integer *lwork, integer *info); 07108 07109 /* Subroutine */ int zungl2_(integer *m, integer *n, integer *k, 07110 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07111 work, integer *info); 07112 07113 /* Subroutine */ int zunglq_(integer *m, integer *n, integer *k, 07114 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07115 work, integer *lwork, integer *info); 07116 07117 /* Subroutine */ int zungql_(integer *m, integer *n, integer *k, 07118 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07119 work, integer *lwork, integer *info); 07120 07121 /* Subroutine */ int zungqr_(integer *m, integer *n, integer *k, 07122 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07123 work, integer *lwork, integer *info); 07124 07125 /* Subroutine */ int zungr2_(integer *m, integer *n, integer *k, 07126 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07127 work, integer *info); 07128 07129 /* Subroutine */ int zungrq_(integer *m, integer *n, integer *k, 07130 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex * 07131 work, integer *lwork, integer *info); 07132 07133 /* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a, 07134 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 07135 integer *info); 07136 07137 /* Subroutine */ int zunm2l_(char *side, char *trans, integer *m, integer *n, 07138 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 07139 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info); 07140 07141 /* Subroutine */ int zunm2r_(char *side, char *trans, integer *m, integer *n, 07142 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 07143 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info); 07144 07145 /* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m, 07146 integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex 07147 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * 07148 lwork, integer *info); 07149 07150 /* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n, 07151 integer *ilo, integer *ihi, doublecomplex *a, integer *lda, 07152 doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex * 07153 work, integer *lwork, integer *info); 07154 07155 /* Subroutine */ int zunml2_(char *side, char *trans, integer *m, integer *n, 07156 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 07157 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info); 07158 07159 /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n, 07160 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 07161 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 07162 integer *info); 07163 07164 /* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n, 07165 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 07166 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 07167 integer *info); 07168 07169 /* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n, 07170 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 07171 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 07172 integer *info); 07173 07174 /* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n, 07175 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 07176 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info); 07177 07178 /* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n, 07179 integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex 07180 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * 07181 info); 07182 07183 /* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n, 07184 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 07185 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 07186 integer *info); 07187 07188 /* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n, 07189 integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex 07190 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer * 07191 lwork, integer *info); 07192 07193 /* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m, 07194 integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, 07195 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 07196 integer *info); 07197 07198 /* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap, 07199 doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex * 07200 work, integer *info); 07201 07202 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m, 07203 integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__, 07204 integer *ldc, doublecomplex *work, integer *info); 07205 07206 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical 07207 *ieee1); 07208 07209 doublereal dsecnd_(); 07210 07211 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__, 07212 integer *vers_patch__); 07213 07214 logical lsame_(char *ca, char *cb); 07215 07216 doublereal second_(); 07217 07218 doublereal slamch_(char *cmach); 07219 07220 /* Subroutine */ int slamc1_(integer *beta, integer *t, logical *rnd, logical 07221 *ieee1); 07222 07223 /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real * 07224 eps, integer *emin, real *rmin, integer *emax, real *rmax); 07225 07226 doublereal slamc3_(real *a, real *b); 07227 07228 /* Subroutine */ int slamc4_(integer *emin, real *start, integer *base); 07229 07230 /* Subroutine */ int slamc5_(integer *beta, integer *p, integer *emin, 07231 logical *ieee, integer *emax, real *rmax); 07232 07233 07234 doublereal dlamch_(char *cmach); 07235 07236 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical 07237 *ieee1); 07238 07239 /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd, 07240 doublereal *eps, integer *emin, doublereal *rmin, integer *emax, 07241 doublereal *rmax); 07242 07243 doublereal dlamc3_(doublereal *a, doublereal *b); 07244 07245 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base); 07246 07247 /* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin, 07248 logical *ieee, integer *emax, doublereal *rmax); 07249 07250 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 07251 integer *n2, integer *n3, integer *n4); 07252 07253 07254 #endif /* __CLAPACK_H */