mFES - molecular Finite Element Solver  0.4
clapack.h
Go to the documentation of this file.
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 */