VMMLib  1.4.0
clapack.h
00001 /* header file for clapack 3.2.1 */
00002 
00003 #ifndef __CLAPACK_H
00004 #define __CLAPACK_H
00005 
00006 #ifdef __cplusplus  
00007 extern "C" {    
00008 #endif      
00009 
00010 /* Subroutine */ int caxpy_(integer *n, complex *ca, complex *cx, integer *
00011     incx, complex *cy, integer *incy);
00012 
00013 /* Subroutine */ int ccopy_(integer *n, complex *cx, integer *incx, complex *
00014     cy, integer *incy);
00015 
00016 /* Complex */ VOID cdotc_(complex * ret_val, integer *n, complex *cx, integer 
00017     *incx, complex *cy, integer *incy);
00018 
00019 /* Complex */ VOID cdotu_(complex * ret_val, integer *n, complex *cx, integer 
00020     *incx, complex *cy, integer *incy);
00021 
00022 /* Subroutine */ int cgbmv_(char *trans, integer *m, integer *n, integer *kl, 
00023     integer *ku, complex *alpha, complex *a, integer *lda, complex *x, 
00024     integer *incx, complex *beta, complex *y, integer *incy);
00025 
00026 /* Subroutine */ int cgemm_(char *transa, char *transb, integer *m, integer *
00027     n, integer *k, complex *alpha, complex *a, integer *lda, complex *b, 
00028     integer *ldb, complex *beta, complex *c__, integer *ldc);
00029 
00030 /* Subroutine */ int cgemv_(char *trans, integer *m, integer *n, complex *
00031     alpha, complex *a, integer *lda, complex *x, integer *incx, complex *
00032     beta, complex *y, integer *incy);
00033 
00034 /* Subroutine */ int cgerc_(integer *m, integer *n, complex *alpha, complex *
00035     x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
00036 
00037 /* Subroutine */ int cgeru_(integer *m, integer *n, complex *alpha, complex *
00038     x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
00039 
00040 /* Subroutine */ int chbmv_(char *uplo, integer *n, integer *k, complex *
00041     alpha, complex *a, integer *lda, complex *x, integer *incx, complex *
00042     beta, complex *y, integer *incy);
00043 
00044 /* Subroutine */ int chemm_(char *side, char *uplo, integer *m, integer *n, 
00045     complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, 
00046     complex *beta, complex *c__, integer *ldc);
00047 
00048 /* Subroutine */ int chemv_(char *uplo, integer *n, complex *alpha, complex *
00049     a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, 
00050      integer *incy);
00051 
00052 /* Subroutine */ int cher_(char *uplo, integer *n, real *alpha, complex *x, 
00053     integer *incx, complex *a, integer *lda);
00054 
00055 /* Subroutine */ int cher2_(char *uplo, integer *n, complex *alpha, complex *
00056     x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
00057 
00058 /* Subroutine */ int cher2k_(char *uplo, char *trans, integer *n, integer *k, 
00059     complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, 
00060     real *beta, complex *c__, integer *ldc);
00061 
00062 /* Subroutine */ int cherk_(char *uplo, char *trans, integer *n, integer *k, 
00063     real *alpha, complex *a, integer *lda, real *beta, complex *c__, 
00064     integer *ldc);
00065 
00066 /* Subroutine */ int chpmv_(char *uplo, integer *n, complex *alpha, complex *
00067     ap, complex *x, integer *incx, complex *beta, complex *y, integer *
00068     incy);
00069 
00070 /* Subroutine */ int chpr_(char *uplo, integer *n, real *alpha, complex *x, 
00071     integer *incx, complex *ap);
00072 
00073 /* Subroutine */ int chpr2_(char *uplo, integer *n, complex *alpha, complex *
00074     x, integer *incx, complex *y, integer *incy, complex *ap);
00075 
00076 /* Subroutine */ int crotg_(complex *ca, complex *cb, real *c__, complex *s);
00077 
00078 /* Subroutine */ int cscal_(integer *n, complex *ca, complex *cx, integer *
00079     incx);
00080 
00081 /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex *
00082     cy, integer *incy, real *c__, real *s);
00083 
00084 /* Subroutine */ int csscal_(integer *n, real *sa, complex *cx, integer *incx);
00085 
00086 /* Subroutine */ int cswap_(integer *n, complex *cx, integer *incx, complex *
00087     cy, integer *incy);
00088 
00089 /* Subroutine */ int csymm_(char *side, char *uplo, integer *m, integer *n, 
00090     complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, 
00091     complex *beta, complex *c__, integer *ldc);
00092 
00093 /* Subroutine */ int csyr2k_(char *uplo, char *trans, integer *n, integer *k, 
00094     complex *alpha, complex *a, integer *lda, complex *b, integer *ldb, 
00095     complex *beta, complex *c__, integer *ldc);
00096 
00097 /* Subroutine */ int csyrk_(char *uplo, char *trans, integer *n, integer *k, 
00098     complex *alpha, complex *a, integer *lda, complex *beta, complex *c__, 
00099      integer *ldc);
00100 
00101 /* Subroutine */ int ctbmv_(char *uplo, char *trans, char *diag, integer *n, 
00102     integer *k, complex *a, integer *lda, complex *x, integer *incx);
00103 
00104 /* Subroutine */ int ctbsv_(char *uplo, char *trans, char *diag, integer *n, 
00105     integer *k, complex *a, integer *lda, complex *x, integer *incx);
00106 
00107 /* Subroutine */ int ctpmv_(char *uplo, char *trans, char *diag, integer *n, 
00108     complex *ap, complex *x, integer *incx);
00109 
00110 /* Subroutine */ int ctpsv_(char *uplo, char *trans, char *diag, integer *n, 
00111     complex *ap, complex *x, integer *incx);
00112 
00113 /* Subroutine */ int ctrmm_(char *side, char *uplo, char *transa, char *diag, 
00114     integer *m, integer *n, complex *alpha, complex *a, integer *lda, 
00115     complex *b, integer *ldb);
00116 
00117 /* Subroutine */ int ctrmv_(char *uplo, char *trans, char *diag, integer *n, 
00118     complex *a, integer *lda, complex *x, integer *incx);
00119 
00120 /* Subroutine */ int ctrsm_(char *side, char *uplo, char *transa, char *diag, 
00121     integer *m, integer *n, complex *alpha, complex *a, integer *lda, 
00122     complex *b, integer *ldb);
00123 
00124 /* Subroutine */ int ctrsv_(char *uplo, char *trans, char *diag, integer *n, 
00125     complex *a, integer *lda, complex *x, integer *incx);
00126 
00127 doublereal dasum_(integer *n, doublereal *dx, integer *incx);
00128 
00129 /* Subroutine */ int daxpy_(integer *n, doublereal *da, doublereal *dx, 
00130     integer *incx, doublereal *dy, integer *incy);
00131 
00132 doublereal dcabs1_(doublecomplex *z__);
00133 
00134 /* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx, 
00135     doublereal *dy, integer *incy);
00136 
00137 doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy, 
00138     integer *incy);
00139 
00140 /* Subroutine */ int dgbmv_(char *trans, integer *m, integer *n, integer *kl, 
00141     integer *ku, doublereal *alpha, doublereal *a, integer *lda, 
00142     doublereal *x, integer *incx, doublereal *beta, doublereal *y, 
00143     integer *incy);
00144 
00145 /* Subroutine */ int dgemm_(char *transa, char *transb, integer *m, integer *
00146     n, integer *k, doublereal *alpha, doublereal *a, integer *lda, 
00147     doublereal *b, integer *ldb, doublereal *beta, doublereal *c__, 
00148     integer *ldc);
00149 
00150 /* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal *
00151     alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 
00152     doublereal *beta, doublereal *y, integer *incy);
00153 
00154 /* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha, 
00155     doublereal *x, integer *incx, doublereal *y, integer *incy, 
00156     doublereal *a, integer *lda);
00157 
00158 doublereal dnrm2_(integer *n, doublereal *x, integer *incx);
00159 
00160 /* Subroutine */ int drot_(integer *n, doublereal *dx, integer *incx, 
00161     doublereal *dy, integer *incy, doublereal *c__, doublereal *s);
00162 
00163 /* Subroutine */ int drotg_(doublereal *da, doublereal *db, doublereal *c__, 
00164     doublereal *s);
00165 
00166 /* Subroutine */ int drotm_(integer *n, doublereal *dx, integer *incx, 
00167     doublereal *dy, integer *incy, doublereal *dparam);
00168 
00169 /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *
00170     dx1, doublereal *dy1, doublereal *dparam);
00171 
00172 /* Subroutine */ int dsbmv_(char *uplo, integer *n, integer *k, doublereal *
00173     alpha, doublereal *a, integer *lda, doublereal *x, integer *incx, 
00174     doublereal *beta, doublereal *y, integer *incy);
00175 
00176 /* Subroutine */ int dscal_(integer *n, doublereal *da, doublereal *dx, 
00177     integer *incx);
00178 
00179 doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *
00180     incy);
00181 
00182 /* Subroutine */ int dspmv_(char *uplo, integer *n, doublereal *alpha, 
00183     doublereal *ap, doublereal *x, integer *incx, doublereal *beta, 
00184     doublereal *y, integer *incy);
00185 
00186 /* Subroutine */ int dspr_(char *uplo, integer *n, doublereal *alpha, 
00187     doublereal *x, integer *incx, doublereal *ap);
00188 
00189 /* Subroutine */ int dspr2_(char *uplo, integer *n, doublereal *alpha, 
00190     doublereal *x, integer *incx, doublereal *y, integer *incy, 
00191     doublereal *ap);
00192 
00193 /* Subroutine */ int dswap_(integer *n, doublereal *dx, integer *incx, 
00194     doublereal *dy, integer *incy);
00195 
00196 /* Subroutine */ int dsymm_(char *side, char *uplo, integer *m, integer *n, 
00197     doublereal *alpha, doublereal *a, integer *lda, doublereal *b, 
00198     integer *ldb, doublereal *beta, doublereal *c__, integer *ldc);
00199 
00200 /* Subroutine */ int dsymv_(char *uplo, integer *n, doublereal *alpha, 
00201     doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal 
00202     *beta, doublereal *y, integer *incy);
00203 
00204 /* Subroutine */ int dsyr_(char *uplo, integer *n, doublereal *alpha, 
00205     doublereal *x, integer *incx, doublereal *a, integer *lda);
00206 
00207 /* Subroutine */ int dsyr2_(char *uplo, integer *n, doublereal *alpha, 
00208     doublereal *x, integer *incx, doublereal *y, integer *incy, 
00209     doublereal *a, integer *lda);
00210 
00211 /* Subroutine */ int dsyr2k_(char *uplo, char *trans, integer *n, integer *k, 
00212     doublereal *alpha, doublereal *a, integer *lda, doublereal *b, 
00213     integer *ldb, doublereal *beta, doublereal *c__, integer *ldc);
00214 
00215 /* Subroutine */ int dsyrk_(char *uplo, char *trans, integer *n, integer *k, 
00216     doublereal *alpha, doublereal *a, integer *lda, doublereal *beta, 
00217     doublereal *c__, integer *ldc);
00218 
00219 /* Subroutine */ int dtbmv_(char *uplo, char *trans, char *diag, integer *n, 
00220     integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx);
00221 
00222 /* Subroutine */ int dtbsv_(char *uplo, char *trans, char *diag, integer *n, 
00223     integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx);
00224 
00225 /* Subroutine */ int dtpmv_(char *uplo, char *trans, char *diag, integer *n, 
00226     doublereal *ap, doublereal *x, integer *incx);
00227 
00228 /* Subroutine */ int dtpsv_(char *uplo, char *trans, char *diag, integer *n, 
00229     doublereal *ap, doublereal *x, integer *incx);
00230 
00231 /* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag, 
00232     integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
00233     lda, doublereal *b, integer *ldb);
00234 
00235 /* Subroutine */ int dtrmv_(char *uplo, char *trans, char *diag, integer *n, 
00236     doublereal *a, integer *lda, doublereal *x, integer *incx);
00237 
00238 /* Subroutine */ int dtrsm_(char *side, char *uplo, char *transa, char *diag, 
00239     integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
00240     lda, doublereal *b, integer *ldb);
00241 
00242 /* Subroutine */ int dtrsv_(char *uplo, char *trans, char *diag, integer *n, 
00243     doublereal *a, integer *lda, doublereal *x, integer *incx);
00244 
00245 doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx);
00246 
00247 doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx);
00248 
00249 integer icamax_(integer *n, complex *cx, integer *incx);
00250 
00251 integer idamax_(integer *n, doublereal *dx, integer *incx);
00252 
00253 integer isamax_(integer *n, real *sx, integer *incx);
00254 
00255 integer izamax_(integer *n, doublecomplex *zx, integer *incx);
00256 
00257 logical lsame_(char *ca, char *cb);
00258 
00259 doublereal sasum_(integer *n, real *sx, integer *incx);
00260 
00261 /* Subroutine */ int saxpy_(integer *n, real *sa, real *sx, integer *incx, 
00262     real *sy, integer *incy);
00263 
00264 doublereal scabs1_(complex *z__);
00265 
00266 doublereal scasum_(integer *n, complex *cx, integer *incx);
00267 
00268 doublereal scnrm2_(integer *n, complex *x, integer *incx);
00269 
00270 /* Subroutine */ int scopy_(integer *n, real *sx, integer *incx, real *sy, 
00271     integer *incy);
00272 
00273 doublereal sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
00274 
00275 doublereal sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy, 
00276     integer *incy);
00277 
00278 /* Subroutine */ int sgbmv_(char *trans, integer *m, integer *n, integer *kl, 
00279     integer *ku, real *alpha, real *a, integer *lda, real *x, integer *
00280     incx, real *beta, real *y, integer *incy);
00281 
00282 /* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer *
00283     n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *
00284     ldb, real *beta, real *c__, integer *ldc);
00285 
00286 /* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha, 
00287     real *a, integer *lda, real *x, integer *incx, real *beta, real *y, 
00288     integer *incy);
00289 
00290 /* Subroutine */ int sger_(integer *m, integer *n, real *alpha, real *x, 
00291     integer *incx, real *y, integer *incy, real *a, integer *lda);
00292 
00293 doublereal snrm2_(integer *n, real *x, integer *incx);
00294 
00295 /* Subroutine */ int srot_(integer *n, real *sx, integer *incx, real *sy, 
00296     integer *incy, real *c__, real *s);
00297 
00298 /* Subroutine */ int srotg_(real *sa, real *sb, real *c__, real *s);
00299 
00300 /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy, 
00301     integer *incy, real *sparam);
00302 
00303 /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real 
00304     *sparam);
00305 
00306 /* Subroutine */ int ssbmv_(char *uplo, integer *n, integer *k, real *alpha, 
00307     real *a, integer *lda, real *x, integer *incx, real *beta, real *y, 
00308     integer *incy);
00309 
00310 /* Subroutine */ int sscal_(integer *n, real *sa, real *sx, integer *incx);
00311 
00312 /* Subroutine */ int sspmv_(char *uplo, integer *n, real *alpha, real *ap, 
00313     real *x, integer *incx, real *beta, real *y, integer *incy);
00314 
00315 /* Subroutine */ int sspr_(char *uplo, integer *n, real *alpha, real *x, 
00316     integer *incx, real *ap);
00317 
00318 /* Subroutine */ int sspr2_(char *uplo, integer *n, real *alpha, real *x, 
00319     integer *incx, real *y, integer *incy, real *ap);
00320 
00321 /* Subroutine */ int sswap_(integer *n, real *sx, integer *incx, real *sy, 
00322     integer *incy);
00323 
00324 /* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n, 
00325     real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, 
00326      real *c__, integer *ldc);
00327 
00328 /* Subroutine */ int ssymv_(char *uplo, integer *n, real *alpha, real *a, 
00329     integer *lda, real *x, integer *incx, real *beta, real *y, integer *
00330     incy);
00331 
00332 /* Subroutine */ int ssyr_(char *uplo, integer *n, real *alpha, real *x, 
00333     integer *incx, real *a, integer *lda);
00334 
00335 /* Subroutine */ int ssyr2_(char *uplo, integer *n, real *alpha, real *x, 
00336     integer *incx, real *y, integer *incy, real *a, integer *lda);
00337 
00338 /* Subroutine */ int ssyr2k_(char *uplo, char *trans, integer *n, integer *k, 
00339     real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta, 
00340      real *c__, integer *ldc);
00341 
00342 /* Subroutine */ int ssyrk_(char *uplo, char *trans, integer *n, integer *k, 
00343     real *alpha, real *a, integer *lda, real *beta, real *c__, integer *
00344     ldc);
00345 
00346 /* Subroutine */ int stbmv_(char *uplo, char *trans, char *diag, integer *n, 
00347     integer *k, real *a, integer *lda, real *x, integer *incx);
00348 
00349 /* Subroutine */ int stbsv_(char *uplo, char *trans, char *diag, integer *n, 
00350     integer *k, real *a, integer *lda, real *x, integer *incx);
00351 
00352 /* Subroutine */ int stpmv_(char *uplo, char *trans, char *diag, integer *n, 
00353     real *ap, real *x, integer *incx);
00354 
00355 /* Subroutine */ int stpsv_(char *uplo, char *trans, char *diag, integer *n, 
00356     real *ap, real *x, integer *incx);
00357 
00358 /* Subroutine */ int strmm_(char *side, char *uplo, char *transa, char *diag, 
00359     integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, 
00360     integer *ldb);
00361 
00362 /* Subroutine */ int strmv_(char *uplo, char *trans, char *diag, integer *n, 
00363     real *a, integer *lda, real *x, integer *incx);
00364 
00365 /* Subroutine */ int strsm_(char *side, char *uplo, char *transa, char *diag, 
00366     integer *m, integer *n, real *alpha, real *a, integer *lda, real *b, 
00367     integer *ldb);
00368 
00369 /* Subroutine */ int strsv_(char *uplo, char *trans, char *diag, integer *n, 
00370     real *a, integer *lda, real *x, integer *incx);
00371 
00372 /* Subroutine */ int xerbla_(char *srname, integer *info);
00373 
00374 /* Subroutine */ int xerbla_array__(char *srname_array__, integer *
00375     srname_len__, integer *info, ftnlen srname_array_len);
00376 
00377 /* Subroutine */ int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx, 
00378     integer *incx, doublecomplex *zy, integer *incy);
00379 
00380 /* Subroutine */ int zcopy_(integer *n, doublecomplex *zx, integer *incx, 
00381     doublecomplex *zy, integer *incy);
00382 
00383 /* Double Complex */ VOID zdotc_(doublecomplex * ret_val, integer *n, 
00384     doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
00385 
00386 /* Double Complex */ VOID zdotu_(doublecomplex * ret_val, integer *n, 
00387     doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
00388 
00389 /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx, 
00390     doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
00391 
00392 /* Subroutine */ int zdscal_(integer *n, doublereal *da, doublecomplex *zx, 
00393     integer *incx);
00394 
00395 /* Subroutine */ int zgbmv_(char *trans, integer *m, integer *n, integer *kl, 
00396     integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda, 
00397     doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *
00398     y, integer *incy);
00399 
00400 /* Subroutine */ int zgemm_(char *transa, char *transb, integer *m, integer *
00401     n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda, 
00402     doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *
00403     c__, integer *ldc);
00404 
00405 /* Subroutine */ int zgemv_(char *trans, integer *m, integer *n, 
00406     doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
00407     x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *
00408     incy);
00409 
00410 /* Subroutine */ int zgerc_(integer *m, integer *n, doublecomplex *alpha, 
00411     doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 
00412     doublecomplex *a, integer *lda);
00413 
00414 /* Subroutine */ int zgeru_(integer *m, integer *n, doublecomplex *alpha, 
00415     doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 
00416     doublecomplex *a, integer *lda);
00417 
00418 /* Subroutine */ int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex 
00419     *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *
00420     incx, doublecomplex *beta, doublecomplex *y, integer *incy);
00421 
00422 /* Subroutine */ int zhemm_(char *side, char *uplo, integer *m, integer *n, 
00423     doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
00424     b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
00425     ldc);
00426 
00427 /* Subroutine */ int zhemv_(char *uplo, integer *n, doublecomplex *alpha, 
00428     doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 
00429     doublecomplex *beta, doublecomplex *y, integer *incy);
00430 
00431 /* Subroutine */ int zher_(char *uplo, integer *n, doublereal *alpha, 
00432     doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
00433 
00434 /* Subroutine */ int zher2_(char *uplo, integer *n, doublecomplex *alpha, 
00435     doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 
00436     doublecomplex *a, integer *lda);
00437 
00438 /* Subroutine */ int zher2k_(char *uplo, char *trans, integer *n, integer *k, 
00439     doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
00440     b, integer *ldb, doublereal *beta, doublecomplex *c__, integer *ldc);
00441 
00442 /* Subroutine */ int zherk_(char *uplo, char *trans, integer *n, integer *k, 
00443     doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta, 
00444     doublecomplex *c__, integer *ldc);
00445 
00446 /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha, 
00447     doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
00448     beta, doublecomplex *y, integer *incy);
00449 
00450 /* Subroutine */ int zhpr_(char *uplo, integer *n, doublereal *alpha, 
00451     doublecomplex *x, integer *incx, doublecomplex *ap);
00452 
00453 /* Subroutine */ int zhpr2_(char *uplo, integer *n, doublecomplex *alpha, 
00454     doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, 
00455     doublecomplex *ap);
00456 
00457 /* Subroutine */ int zrotg_(doublecomplex *ca, doublecomplex *cb, doublereal *
00458     c__, doublecomplex *s);
00459 
00460 /* Subroutine */ int zscal_(integer *n, doublecomplex *za, doublecomplex *zx, 
00461     integer *incx);
00462 
00463 /* Subroutine */ int zswap_(integer *n, doublecomplex *zx, integer *incx, 
00464     doublecomplex *zy, integer *incy);
00465 
00466 /* Subroutine */ int zsymm_(char *side, char *uplo, integer *m, integer *n, 
00467     doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
00468     b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
00469     ldc);
00470 
00471 /* Subroutine */ int zsyr2k_(char *uplo, char *trans, integer *n, integer *k, 
00472     doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
00473     b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
00474     ldc);
00475 
00476 /* Subroutine */ int zsyrk_(char *uplo, char *trans, integer *n, integer *k, 
00477     doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
00478     beta, doublecomplex *c__, integer *ldc);
00479 
00480 /* Subroutine */ int ztbmv_(char *uplo, char *trans, char *diag, integer *n, 
00481     integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer 
00482     *incx);
00483 
00484 /* Subroutine */ int ztbsv_(char *uplo, char *trans, char *diag, integer *n, 
00485     integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer 
00486     *incx);
00487 
00488 /* Subroutine */ int ztpmv_(char *uplo, char *trans, char *diag, integer *n, 
00489     doublecomplex *ap, doublecomplex *x, integer *incx);
00490 
00491 /* Subroutine */ int ztpsv_(char *uplo, char *trans, char *diag, integer *n, 
00492     doublecomplex *ap, doublecomplex *x, integer *incx);
00493 
00494 /* Subroutine */ int ztrmm_(char *side, char *uplo, char *transa, char *diag, 
00495     integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, 
00496     integer *lda, doublecomplex *b, integer *ldb);
00497 
00498 /* Subroutine */ int ztrmv_(char *uplo, char *trans, char *diag, integer *n, 
00499     doublecomplex *a, integer *lda, doublecomplex *x, integer *incx);
00500 
00501 /* Subroutine */ int ztrsm_(char *side, char *uplo, char *transa, char *diag, 
00502     integer *m, integer *n, doublecomplex *alpha, doublecomplex *a, 
00503     integer *lda, doublecomplex *b, integer *ldb);
00504 
00505 /* Subroutine */ int ztrsv_(char *uplo, char *trans, char *diag, integer *n, 
00506     doublecomplex *a, integer *lda, doublecomplex *x, integer *incx);
00507 
00508 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
00509     nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt, 
00510     complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork, 
00511     integer *info);
00512 
00513 /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 
00514      integer *kl, integer *ku, complex *ab, integer *ldab, real *d__, 
00515     real *e, complex *q, integer *ldq, complex *pt, integer *ldpt, 
00516     complex *c__, integer *ldc, complex *work, real *rwork, integer *info);
00517 
00518 /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku, 
00519      complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, 
00520     complex *work, real *rwork, integer *info);
00521 
00522 /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku, 
00523      complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 
00524     *colcnd, real *amax, integer *info);
00525 
00526 /* Subroutine */ int cgbequb_(integer *m, integer *n, integer *kl, integer *
00527     ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, 
00528     real *colcnd, real *amax, integer *info);
00529 
00530 /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer *
00531     ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
00532     ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *
00533     ldx, real *ferr, real *berr, complex *work, real *rwork, integer *
00534     info);
00535 
00536 /* Subroutine */ int cgbrfsx_(char *trans, char *equed, integer *n, integer *
00537     kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *
00538     afb, integer *ldafb, integer *ipiv, real *r__, real *c__, complex *b, 
00539     integer *ldb, complex *x, integer *ldx, real *rcond, real *berr, 
00540     integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 
00541     integer *nparams, real *params, complex *work, real *rwork, integer *
00542     info);
00543 
00544 /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer *
00545     nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *
00546     ldb, integer *info);
00547 
00548 /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl, 
00549      integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, 
00550      integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 
00551     complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real 
00552     *ferr, real *berr, complex *work, real *rwork, integer *info);
00553 
00554 /* Subroutine */ int cgbsvxx_(char *fact, char *trans, integer *n, integer *
00555     kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *
00556     afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 
00557      complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, 
00558     real *rpvgrw, real *berr, integer *n_err_bnds__, real *
00559     err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
00560     params, complex *work, real *rwork, integer *info);
00561 
00562 /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 
00563      complex *ab, integer *ldab, integer *ipiv, integer *info);
00564 
00565 /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 
00566      complex *ab, integer *ldab, integer *ipiv, integer *info);
00567 
00568 /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer *
00569     ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex 
00570     *b, integer *ldb, integer *info);
00571 
00572 /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo, 
00573     integer *ihi, real *scale, integer *m, complex *v, integer *ldv, 
00574     integer *info);
00575 
00576 /* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda, 
00577     integer *ilo, integer *ihi, real *scale, integer *info);
00578 
00579 /* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda, 
00580      real *d__, real *e, complex *tauq, complex *taup, complex *work, 
00581     integer *info);
00582 
00583 /* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda, 
00584      real *d__, real *e, complex *tauq, complex *taup, complex *work, 
00585     integer *lwork, integer *info);
00586 
00587 /* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda, 
00588      real *anorm, real *rcond, complex *work, real *rwork, integer *info);
00589 
00590 /* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda, 
00591      real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, 
00592     integer *info);
00593 
00594 /* Subroutine */ int cgeequb_(integer *m, integer *n, complex *a, integer *
00595     lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, 
00596     integer *info);
00597 
00598 /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n, 
00599     complex *a, integer *lda, integer *sdim, complex *w, complex *vs, 
00600     integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
00601     bwork, integer *info);
00602 
00603 /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char *
00604     sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
00605     w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
00606     work, integer *lwork, real *rwork, logical *bwork, integer *info);
00607 
00608 /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, 
00609     integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, 
00610     integer *ldvr, complex *work, integer *lwork, real *rwork, integer *
00611     info);
00612 
00613 /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
00614     sense, integer *n, complex *a, integer *lda, complex *w, complex *vl, 
00615     integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi, 
00616      real *scale, real *abnrm, real *rconde, real *rcondv, complex *work, 
00617     integer *lwork, real *rwork, integer *info);
00618 
00619 /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
00620     a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
00621     beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, 
00622     complex *work, integer *lwork, real *rwork, integer *info);
00623 
00624 /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a, 
00625     integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, 
00626      complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
00627     work, integer *lwork, real *rwork, integer *info);
00628 
00629 /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
00630     a, integer *lda, complex *tau, complex *work, integer *info);
00631 
00632 /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
00633     a, integer *lda, complex *tau, complex *work, integer *lwork, integer 
00634     *info);
00635 
00636 /* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda, 
00637      complex *tau, complex *work, integer *info);
00638 
00639 /* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda, 
00640      complex *tau, complex *work, integer *lwork, integer *info);
00641 
00642 /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer *
00643     nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
00644     work, integer *lwork, integer *info);
00645 
00646 /* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, complex *
00647     a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, 
00648     integer *rank, complex *work, integer *lwork, real *rwork, integer *
00649     iwork, integer *info);
00650 
00651 /* Subroutine */ int cgelss_(integer *m, integer *n, integer *nrhs, complex *
00652     a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, 
00653     integer *rank, complex *work, integer *lwork, real *rwork, integer *
00654     info);
00655 
00656 /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex *
00657     a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, 
00658      integer *rank, complex *work, real *rwork, integer *info);
00659 
00660 /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex *
00661     a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, 
00662      integer *rank, complex *work, integer *lwork, real *rwork, integer *
00663     info);
00664 
00665 /* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda, 
00666      complex *tau, complex *work, integer *info);
00667 
00668 /* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda, 
00669      complex *tau, complex *work, integer *lwork, integer *info);
00670 
00671 /* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda, 
00672      integer *jpvt, complex *tau, complex *work, integer *lwork, real *
00673     rwork, integer *info);
00674 
00675 /* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda, 
00676      integer *jpvt, complex *tau, complex *work, real *rwork, integer *
00677     info);
00678 
00679 /* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, 
00680      complex *tau, complex *work, integer *info);
00681 
00682 /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda, 
00683      complex *tau, complex *work, integer *lwork, integer *info);
00684 
00685 /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex *
00686     a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
00687     b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 
00688     complex *work, real *rwork, integer *info);
00689 
00690 /* Subroutine */ int cgerfsx_(char *trans, char *equed, integer *n, integer *
00691     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00692     ipiv, real *r__, real *c__, complex *b, integer *ldb, complex *x, 
00693     integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real *
00694     err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
00695     params, complex *work, real *rwork, integer *info);
00696 
00697 /* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda, 
00698      complex *tau, complex *work, integer *info);
00699 
00700 /* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda, 
00701      complex *tau, complex *work, integer *lwork, integer *info);
00702 
00703 /* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex *
00704     rhs, integer *ipiv, integer *jpiv, real *scale);
00705 
00706 /* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, complex *a, 
00707     integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer 
00708     *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork, 
00709     integer *info);
00710 
00711 /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer *
00712     lda, integer *ipiv, complex *b, integer *ldb, integer *info);
00713 
00714 /* Subroutine */ int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 
00715     complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *
00716     vt, integer *ldvt, complex *work, integer *lwork, real *rwork, 
00717     integer *info);
00718 
00719 /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer *
00720     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00721     ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, 
00722     complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 
00723     complex *work, real *rwork, integer *info);
00724 
00725 /* Subroutine */ int cgesvxx_(char *fact, char *trans, integer *n, integer *
00726     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00727     ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, 
00728     complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr, 
00729     integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 
00730     integer *nparams, real *params, complex *work, real *rwork, integer *
00731     info);
00732 
00733 /* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer *
00734     ipiv, integer *jpiv, integer *info);
00735 
00736 /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda, 
00737      integer *ipiv, integer *info);
00738 
00739 /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda, 
00740      integer *ipiv, integer *info);
00741 
00742 /* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer *
00743     ipiv, complex *work, integer *lwork, integer *info);
00744 
00745 /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex *
00746     a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
00747     info);
00748 
00749 /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo, 
00750     integer *ihi, real *lscale, real *rscale, integer *m, complex *v, 
00751     integer *ldv, integer *info);
00752 
00753 /* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda, 
00754     complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, 
00755     real *rscale, real *work, integer *info);
00756 
00757 /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
00758     selctg, integer *n, complex *a, integer *lda, complex *b, integer *
00759     ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl, 
00760     integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
00761     lwork, real *rwork, logical *bwork, integer *info);
00762 
00763 /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
00764     selctg, char *sense, integer *n, complex *a, integer *lda, complex *b, 
00765      integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
00766     vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real 
00767     *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork, 
00768     integer *liwork, logical *bwork, integer *info);
00769 
00770 /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a, 
00771     integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, 
00772      complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
00773     work, integer *lwork, real *rwork, integer *info);
00774 
00775 /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char *
00776     sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb, 
00777      complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *
00778     vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *
00779     rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex 
00780     *work, integer *lwork, real *rwork, integer *iwork, logical *bwork, 
00781     integer *info);
00782 
00783 /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a, 
00784     integer *lda, complex *b, integer *ldb, complex *d__, complex *x, 
00785     complex *y, complex *work, integer *lwork, integer *info);
00786 
00787 /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer *
00788     ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb, 
00789      complex *q, integer *ldq, complex *z__, integer *ldz, integer *info);
00790 
00791 /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a, 
00792     integer *lda, complex *b, integer *ldb, complex *c__, complex *d__, 
00793     complex *x, complex *work, integer *lwork, integer *info);
00794 
00795 /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a, 
00796     integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, 
00797     complex *work, integer *lwork, integer *info);
00798 
00799 /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a, 
00800     integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, 
00801     complex *work, integer *lwork, integer *info);
00802 
00803 /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
00804     integer *n, integer *p, integer *k, integer *l, complex *a, integer *
00805     lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u, 
00806     integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, 
00807     complex *work, real *rwork, integer *iwork, integer *info);
00808 
00809 /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
00810     integer *p, integer *n, complex *a, integer *lda, complex *b, integer 
00811     *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u, 
00812     integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, 
00813     integer *iwork, real *rwork, complex *tau, complex *work, integer *
00814     info);
00815 
00816 /* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex *
00817     d__, complex *du, complex *du2, integer *ipiv, real *anorm, real *
00818     rcond, complex *work, integer *info);
00819 
00820 /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex *
00821     dl, complex *d__, complex *du, complex *dlf, complex *df, complex *
00822     duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex *
00823     x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
00824     integer *info);
00825 
00826 /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *
00827     d__, complex *du, complex *b, integer *ldb, integer *info);
00828 
00829 /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer *
00830     nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *
00831     df, complex *duf, complex *du2, integer *ipiv, complex *b, integer *
00832     ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 
00833     complex *work, real *rwork, integer *info);
00834 
00835 /* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex *
00836     du, complex *du2, integer *ipiv, integer *info);
00837 
00838 /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex *
00839     dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *
00840     b, integer *ldb, integer *info);
00841 
00842 /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs, 
00843     complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, 
00844     complex *b, integer *ldb);
00845 
00846 /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd, 
00847     complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, 
00848     complex *work, real *rwork, integer *info);
00849 
00850 /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
00851     complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, 
00852     complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
00853     iwork, integer *liwork, integer *info);
00854 
00855 /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n, 
00856     integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq, 
00857     real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
00858     m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, 
00859     integer *iwork, integer *ifail, integer *info);
00860 
00861 /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka, 
00862     integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, 
00863     complex *x, integer *ldx, complex *work, real *rwork, integer *info);
00864 
00865 /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka, 
00866     integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, 
00867     real *w, complex *z__, integer *ldz, complex *work, real *rwork, 
00868     integer *info);
00869 
00870 /* Subroutine */ int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 
00871     integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, 
00872     real *w, complex *z__, integer *ldz, complex *work, integer *lwork, 
00873     real *rwork, integer *lrwork, integer *iwork, integer *liwork, 
00874     integer *info);
00875 
00876 /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n, 
00877     integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, 
00878     integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer *
00879     il, integer *iu, real *abstol, integer *m, real *w, complex *z__, 
00880     integer *ldz, complex *work, real *rwork, integer *iwork, integer *
00881     ifail, integer *info);
00882 
00883 /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd, 
00884     complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *
00885     ldq, complex *work, integer *info);
00886 
00887 /* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda, 
00888      integer *ipiv, real *anorm, real *rcond, complex *work, integer *
00889     info);
00890 
00891 /* Subroutine */ int cheequb_(char *uplo, integer *n, complex *a, integer *
00892     lda, real *s, real *scond, real *amax, complex *work, integer *info);
00893 
00894 /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a, 
00895     integer *lda, real *w, complex *work, integer *lwork, real *rwork, 
00896     integer *info);
00897 
00898 /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a, 
00899     integer *lda, real *w, complex *work, integer *lwork, real *rwork, 
00900     integer *lrwork, integer *iwork, integer *liwork, integer *info);
00901 
00902 /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n, 
00903     complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
00904     iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, 
00905     integer *isuppz, complex *work, integer *lwork, real *rwork, integer *
00906     lrwork, integer *iwork, integer *liwork, integer *info);
00907 
00908 /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n, 
00909     complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
00910     iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, 
00911     complex *work, integer *lwork, real *rwork, integer *iwork, integer *
00912     ifail, integer *info);
00913 
00914 /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex *
00915     a, integer *lda, complex *b, integer *ldb, integer *info);
00916 
00917 /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex *
00918     a, integer *lda, complex *b, integer *ldb, integer *info);
00919 
00920 /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer *
00921     n, complex *a, integer *lda, complex *b, integer *ldb, real *w, 
00922     complex *work, integer *lwork, real *rwork, integer *info);
00923 
00924 /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer *
00925     n, complex *a, integer *lda, complex *b, integer *ldb, real *w, 
00926     complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
00927     iwork, integer *liwork, integer *info);
00928 
00929 /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char *
00930     uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, 
00931     real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
00932     m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, 
00933      real *rwork, integer *iwork, integer *ifail, integer *info);
00934 
00935 /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex *
00936     a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
00937     b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 
00938     complex *work, real *rwork, integer *info);
00939 
00940 /* Subroutine */ int cherfsx_(char *uplo, char *equed, integer *n, integer *
00941     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00942     ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 
00943     real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 
00944      real *err_bnds_comp__, integer *nparams, real *params, complex *work, 
00945      real *rwork, integer *info);
00946 
00947 /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a, 
00948      integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, 
00949      integer *lwork, integer *info);
00950 
00951 /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer *
00952     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00953     ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, 
00954      real *ferr, real *berr, complex *work, integer *lwork, real *rwork, 
00955     integer *info);
00956 
00957 /* Subroutine */ int chesvxx_(char *fact, char *uplo, integer *n, integer *
00958     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00959     ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x, 
00960     integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
00961     n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
00962     nparams, real *params, complex *work, real *rwork, integer *info);
00963 
00964 /* Subroutine */ int chetd2_(char *uplo, integer *n, complex *a, integer *lda, 
00965      real *d__, real *e, complex *tau, integer *info);
00966 
00967 /* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda, 
00968      integer *ipiv, integer *info);
00969 
00970 /* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda, 
00971      real *d__, real *e, complex *tau, complex *work, integer *lwork, 
00972     integer *info);
00973 
00974 /* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda, 
00975      integer *ipiv, complex *work, integer *lwork, integer *info);
00976 
00977 /* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda, 
00978      integer *ipiv, complex *work, integer *info);
00979 
00980 /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex *
00981     a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
00982     info);
00983 
00984 /* Subroutine */ int chfrk_(char *transr, char *uplo, char *trans, integer *n, 
00985      integer *k, real *alpha, complex *a, integer *lda, real *beta, 
00986     complex *c__);
00987 
00988 /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n, 
00989     integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *t, 
00990     integer *ldt, complex *alpha, complex *beta, complex *q, integer *ldq, 
00991      complex *z__, integer *ldz, complex *work, integer *lwork, real *
00992     rwork, integer *info);
00993 
00994 /* Character */ VOID chla_transtype__(char *ret_val, ftnlen ret_val_len, 
00995     integer *trans);
00996 
00997 /* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer *
00998     ipiv, real *anorm, real *rcond, complex *work, integer *info);
00999 
01000 /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap, 
01001     real *w, complex *z__, integer *ldz, complex *work, real *rwork, 
01002     integer *info);
01003 
01004 /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap, 
01005     real *w, complex *z__, integer *ldz, complex *work, integer *lwork, 
01006     real *rwork, integer *lrwork, integer *iwork, integer *liwork, 
01007     integer *info);
01008 
01009 /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n, 
01010     complex *ap, real *vl, real *vu, integer *il, integer *iu, real *
01011     abstol, integer *m, real *w, complex *z__, integer *ldz, complex *
01012     work, real *rwork, integer *iwork, integer *ifail, integer *info);
01013 
01014 /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex *
01015     ap, complex *bp, integer *info);
01016 
01017 /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer *
01018     n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, 
01019     complex *work, real *rwork, integer *info);
01020 
01021 /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer *
01022     n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, 
01023     complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
01024     iwork, integer *liwork, integer *info);
01025 
01026 /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char *
01027     uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu, 
01028     integer *il, integer *iu, real *abstol, integer *m, real *w, complex *
01029     z__, integer *ldz, complex *work, real *rwork, integer *iwork, 
01030     integer *ifail, integer *info);
01031 
01032 /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex *
01033     ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, 
01034      integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
01035     integer *info);
01036 
01037 /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex *
01038     ap, integer *ipiv, complex *b, integer *ldb, integer *info);
01039 
01040 /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer *
01041     nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
01042     ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 
01043     complex *work, real *rwork, integer *info);
01044 
01045 /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__, 
01046     real *e, complex *tau, integer *info);
01047 
01048 /* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer *
01049     ipiv, integer *info);
01050 
01051 /* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer *
01052     ipiv, complex *work, integer *info);
01053 
01054 /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex *
01055     ap, integer *ipiv, complex *b, integer *ldb, integer *info);
01056 
01057 /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical *
01058     select, integer *n, complex *h__, integer *ldh, complex *w, complex *
01059     vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *
01060     m, complex *work, real *rwork, integer *ifaill, integer *ifailr, 
01061     integer *info);
01062 
01063 /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo, 
01064      integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__, 
01065     integer *ldz, complex *work, integer *lwork, integer *info);
01066 
01067 /* Subroutine */ int cla_gbamv__(integer *trans, integer *m, integer *n, 
01068     integer *kl, integer *ku, real *alpha, complex *ab, integer *ldab, 
01069     complex *x, integer *incx, real *beta, real *y, integer *incy);
01070 
01071 doublereal cla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku, 
01072     complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
01073     ipiv, real *c__, logical *capply, integer *info, complex *work, real *
01074     rwork, ftnlen trans_len);
01075 
01076 doublereal cla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku, 
01077     complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
01078     ipiv, complex *x, integer *info, complex *work, real *rwork, ftnlen 
01079     trans_len);
01080 
01081 /* Subroutine */ int cla_gbrfsx_extended__(integer *prec_type__, integer *
01082     trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 
01083     complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
01084     ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *
01085     y, integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__,
01086      real *errs_c__, complex *res, real *ayb, complex *dy, complex *
01087     y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__,
01088      logical *ignore_cwise__, integer *info);
01089 
01090 doublereal cla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
01091     ncols, complex *ab, integer *ldab, complex *afb, integer *ldafb);
01092 
01093 /* Subroutine */ int cla_geamv__(integer *trans, integer *m, integer *n, real 
01094     *alpha, complex *a, integer *lda, complex *x, integer *incx, real *
01095     beta, real *y, integer *incy);
01096 
01097 doublereal cla_gercond_c__(char *trans, integer *n, complex *a, integer *lda, 
01098     complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
01099      integer *info, complex *work, real *rwork, ftnlen trans_len);
01100 
01101 doublereal cla_gercond_x__(char *trans, integer *n, complex *a, integer *lda, 
01102     complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info, 
01103     complex *work, real *rwork, ftnlen trans_len);
01104 
01105 /* Subroutine */ int cla_gerfsx_extended__(integer *prec_type__, integer *
01106     trans_type__, integer *n, integer *nrhs, complex *a, integer *lda, 
01107     complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__,
01108      complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__,
01109      integer *n_norms__, real *errs_n__, real *errs_c__, complex *res, 
01110     real *ayb, complex *dy, complex *y_tail__, real *rcond, integer *
01111     ithresh, real *rthresh, real *dz_ub__, logical *ignore_cwise__, 
01112     integer *info);
01113 
01114 /* Subroutine */ int cla_heamv__(integer *uplo, integer *n, real *alpha, 
01115     complex *a, integer *lda, complex *x, integer *incx, real *beta, real 
01116     *y, integer *incy);
01117 
01118 doublereal cla_hercond_c__(char *uplo, integer *n, complex *a, integer *lda, 
01119     complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
01120      integer *info, complex *work, real *rwork, ftnlen uplo_len);
01121 
01122 doublereal cla_hercond_x__(char *uplo, integer *n, complex *a, integer *lda, 
01123     complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info, 
01124     complex *work, real *rwork, ftnlen uplo_len);
01125 
01126 /* Subroutine */ int cla_herfsx_extended__(integer *prec_type__, char *uplo, 
01127     integer *n, integer *nrhs, complex *a, integer *lda, complex *af, 
01128     integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, 
01129     integer *ldb, complex *y, integer *ldy, real *berr_out__, integer *
01130     n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb, 
01131     complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real *
01132     rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info, 
01133     ftnlen uplo_len);
01134 
01135 doublereal cla_herpvgrw__(char *uplo, integer *n, integer *info, complex *a, 
01136     integer *lda, complex *af, integer *ldaf, integer *ipiv, real *work, 
01137     ftnlen uplo_len);
01138 
01139 /* Subroutine */ int cla_lin_berr__(integer *n, integer *nz, integer *nrhs, 
01140     complex *res, real *ayb, real *berr);
01141 
01142 doublereal cla_porcond_c__(char *uplo, integer *n, complex *a, integer *lda, 
01143     complex *af, integer *ldaf, real *c__, logical *capply, integer *info,
01144      complex *work, real *rwork, ftnlen uplo_len);
01145 
01146 doublereal cla_porcond_x__(char *uplo, integer *n, complex *a, integer *lda, 
01147     complex *af, integer *ldaf, complex *x, integer *info, complex *work, 
01148     real *rwork, ftnlen uplo_len);
01149 
01150 /* Subroutine */ int cla_porfsx_extended__(integer *prec_type__, char *uplo, 
01151     integer *n, integer *nrhs, complex *a, integer *lda, complex *af, 
01152     integer *ldaf, logical *colequ, real *c__, complex *b, integer *ldb, 
01153     complex *y, integer *ldy, real *berr_out__, integer *n_norms__, real *
01154     errs_n__, real *errs_c__, complex *res, real *ayb, complex *dy, 
01155     complex *y_tail__, real *rcond, integer *ithresh, real *rthresh, real 
01156     *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen uplo_len);
01157 
01158 doublereal cla_porpvgrw__(char *uplo, integer *ncols, complex *a, integer *
01159     lda, complex *af, integer *ldaf, real *work, ftnlen uplo_len);
01160 
01161 doublereal cla_rpvgrw__(integer *n, integer *ncols, complex *a, integer *lda, 
01162     complex *af, integer *ldaf);
01163 
01164 /* Subroutine */ int cla_syamv__(integer *uplo, integer *n, real *alpha, 
01165     complex *a, integer *lda, complex *x, integer *incx, real *beta, real 
01166     *y, integer *incy);
01167 
01168 doublereal cla_syrcond_c__(char *uplo, integer *n, complex *a, integer *lda, 
01169     complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
01170      integer *info, complex *work, real *rwork, ftnlen uplo_len);
01171 
01172 doublereal cla_syrcond_x__(char *uplo, integer *n, complex *a, integer *lda, 
01173     complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info, 
01174     complex *work, real *rwork, ftnlen uplo_len);
01175 
01176 /* Subroutine */ int cla_syrfsx_extended__(integer *prec_type__, char *uplo, 
01177     integer *n, integer *nrhs, complex *a, integer *lda, complex *af, 
01178     integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b, 
01179     integer *ldb, complex *y, integer *ldy, real *berr_out__, integer *
01180     n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb, 
01181     complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real *
01182     rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info, 
01183     ftnlen uplo_len);
01184 
01185 doublereal cla_syrpvgrw__(char *uplo, integer *n, integer *info, complex *a, 
01186     integer *lda, complex *af, integer *ldaf, integer *ipiv, real *work, 
01187     ftnlen uplo_len);
01188 
01189 /* Subroutine */ int cla_wwaddw__(integer *n, complex *x, complex *y, complex 
01190     *w);
01191 
01192 /* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, complex *a, 
01193     integer *lda, real *d__, real *e, complex *tauq, complex *taup, 
01194     complex *x, integer *ldx, complex *y, integer *ldy);
01195 
01196 /* Subroutine */ int clacgv_(integer *n, complex *x, integer *incx);
01197 
01198 /* Subroutine */ int clacn2_(integer *n, complex *v, complex *x, real *est, 
01199     integer *kase, integer *isave);
01200 
01201 /* Subroutine */ int clacon_(integer *n, complex *v, complex *x, real *est, 
01202     integer *kase);
01203 
01204 /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a, 
01205     integer *lda, complex *b, integer *ldb);
01206 
01207 /* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, complex *a, 
01208     integer *lda, complex *b, integer *ldb);
01209 
01210 /* Subroutine */ int clacrm_(integer *m, integer *n, complex *a, integer *lda, 
01211      real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
01212 
01213 /* Subroutine */ int clacrt_(integer *n, complex *cx, integer *incx, complex *
01214     cy, integer *incy, complex *c__, complex *s);
01215 
01216 /* Complex */ VOID cladiv_(complex * ret_val, complex *x, complex *y);
01217 
01218 /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e, 
01219     complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork, 
01220      integer *iwork, integer *info);
01221 
01222 /* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz, 
01223     integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex *
01224     q, integer *ldq, real *rho, integer *indxq, real *qstore, integer *
01225     qptr, integer *prmptr, integer *perm, integer *givptr, integer *
01226     givcol, real *givnum, complex *work, real *rwork, integer *iwork, 
01227     integer *info);
01228 
01229 /* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, complex *
01230     q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__, 
01231     real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp, 
01232     integer *indx, integer *indxq, integer *perm, integer *givptr, 
01233     integer *givcol, real *givnum, integer *info);
01234 
01235 /* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n, 
01236     complex *h__, integer *ldh, complex *w, complex *v, complex *b, 
01237     integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info);
01238 
01239 /* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex *
01240     rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
01241 
01242 /* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1, 
01243     real *rt2, real *cs1, complex *sn1);
01244 
01245 /* Subroutine */ int clag2z_(integer *m, integer *n, complex *sa, integer *
01246     ldsa, doublecomplex *a, integer *lda, integer *info);
01247 
01248 /* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3, 
01249     real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv, 
01250     complex *snv, real *csq, complex *snq);
01251 
01252 /* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real *
01253     alpha, complex *dl, complex *d__, complex *du, complex *x, integer *
01254     ldx, real *beta, complex *b, integer *ldb);
01255 
01256 /* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb, 
01257      complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, 
01258     integer *info);
01259 
01260 /* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n, 
01261     integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, 
01262     integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
01263     info);
01264 
01265 /* Subroutine */ int clahr2_(integer *n, integer *k, integer *nb, complex *a, 
01266     integer *lda, complex *tau, complex *t, integer *ldt, complex *y, 
01267     integer *ldy);
01268 
01269 /* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a, 
01270     integer *lda, complex *tau, complex *t, integer *ldt, complex *y, 
01271     integer *ldy);
01272 
01273 /* Subroutine */ int claic1_(integer *job, integer *j, complex *x, real *sest, 
01274      complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
01275 
01276 /* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr, 
01277     integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx, 
01278     integer *ldbx, integer *perm, integer *givptr, integer *givcol, 
01279     integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
01280     difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
01281     rwork, integer *info);
01282 
01283 /* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n, 
01284     integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, 
01285     real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, 
01286     real *z__, real *poles, integer *givptr, integer *givcol, integer *
01287     ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork, 
01288     integer *iwork, integer *info);
01289 
01290 /* Subroutine */ int clalsd_(char *uplo, integer *smlsiz, integer *n, integer 
01291     *nrhs, real *d__, real *e, complex *b, integer *ldb, real *rcond, 
01292     integer *rank, complex *work, real *rwork, integer *iwork, integer *
01293     info);
01294 
01295 doublereal clangb_(char *norm, integer *n, integer *kl, integer *ku, complex *
01296     ab, integer *ldab, real *work);
01297 
01298 doublereal clange_(char *norm, integer *m, integer *n, complex *a, integer *
01299     lda, real *work);
01300 
01301 doublereal clangt_(char *norm, integer *n, complex *dl, complex *d__, complex 
01302     *du);
01303 
01304 doublereal clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *
01305     ab, integer *ldab, real *work);
01306 
01307 doublereal clanhe_(char *norm, char *uplo, integer *n, complex *a, integer *
01308     lda, real *work);
01309 
01310 doublereal clanhf_(char *norm, char *transr, char *uplo, integer *n, complex *
01311     a, real *work);
01312 
01313 doublereal clanhp_(char *norm, char *uplo, integer *n, complex *ap, real *
01314     work);
01315 
01316 doublereal clanhs_(char *norm, integer *n, complex *a, integer *lda, real *
01317     work);
01318 
01319 doublereal clanht_(char *norm, integer *n, real *d__, complex *e);
01320 
01321 doublereal clansb_(char *norm, char *uplo, integer *n, integer *k, complex *
01322     ab, integer *ldab, real *work);
01323 
01324 doublereal clansp_(char *norm, char *uplo, integer *n, complex *ap, real *
01325     work);
01326 
01327 doublereal clansy_(char *norm, char *uplo, integer *n, complex *a, integer *
01328     lda, real *work);
01329 
01330 doublereal clantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 
01331      complex *ab, integer *ldab, real *work);
01332 
01333 doublereal clantp_(char *norm, char *uplo, char *diag, integer *n, complex *
01334     ap, real *work);
01335 
01336 doublereal clantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 
01337      complex *a, integer *lda, real *work);
01338 
01339 /* Subroutine */ int clapll_(integer *n, complex *x, integer *incx, complex *
01340     y, integer *incy, real *ssmin);
01341 
01342 /* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, complex 
01343     *x, integer *ldx, integer *k);
01344 
01345 /* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku, 
01346      complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 
01347     *colcnd, real *amax, char *equed);
01348 
01349 /* Subroutine */ int claqge_(integer *m, integer *n, complex *a, integer *lda, 
01350      real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
01351     equed);
01352 
01353 /* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, complex *ab, 
01354      integer *ldab, real *s, real *scond, real *amax, char *equed);
01355 
01356 /* Subroutine */ int claqhe_(char *uplo, integer *n, complex *a, integer *lda, 
01357      real *s, real *scond, real *amax, char *equed);
01358 
01359 /* Subroutine */ int claqhp_(char *uplo, integer *n, complex *ap, real *s, 
01360     real *scond, real *amax, char *equed);
01361 
01362 /* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, complex 
01363     *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, 
01364     complex *work);
01365 
01366 /* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer 
01367     *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *
01368     tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
01369 
01370 /* Subroutine */ int claqr0_(logical *wantt, logical *wantz, integer *n, 
01371     integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, 
01372     integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex *
01373     work, integer *lwork, integer *info);
01374 
01375 /* Subroutine */ int claqr1_(integer *n, complex *h__, integer *ldh, complex *
01376     s1, complex *s2, complex *v);
01377 
01378 /* Subroutine */ int claqr2_(logical *wantt, logical *wantz, integer *n, 
01379     integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh, 
01380      integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
01381     ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh, 
01382     complex *t, integer *ldt, integer *nv, complex *wv, integer *ldwv, 
01383     complex *work, integer *lwork);
01384 
01385 /* Subroutine */ int claqr3_(logical *wantt, logical *wantz, integer *n, 
01386     integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh, 
01387      integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
01388     ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh, 
01389     complex *t, integer *ldt, integer *nv, complex *wv, integer *ldwv, 
01390     complex *work, integer *lwork);
01391 
01392 /* Subroutine */ int claqr4_(logical *wantt, logical *wantz, integer *n, 
01393     integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, 
01394     integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex *
01395     work, integer *lwork, integer *info);
01396 
01397 /* Subroutine */ int claqr5_(logical *wantt, logical *wantz, integer *kacc22, 
01398     integer *n, integer *ktop, integer *kbot, integer *nshfts, complex *s, 
01399      complex *h__, integer *ldh, integer *iloz, integer *ihiz, complex *
01400     z__, integer *ldz, complex *v, integer *ldv, complex *u, integer *ldu, 
01401      integer *nv, complex *wv, integer *ldwv, integer *nh, complex *wh, 
01402     integer *ldwh);
01403 
01404 /* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, complex *ab, 
01405      integer *ldab, real *s, real *scond, real *amax, char *equed);
01406 
01407 /* Subroutine */ int claqsp_(char *uplo, integer *n, complex *ap, real *s, 
01408     real *scond, real *amax, char *equed);
01409 
01410 /* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda, 
01411      real *s, real *scond, real *amax, char *equed);
01412 
01413 /* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real *
01414     lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
01415     gaptol, complex *z__, logical *wantnc, integer *negcnt, real *ztz, 
01416     real *mingma, integer *r__, integer *isuppz, real *nrminv, real *
01417     resid, real *rqcorr, real *work);
01418 
01419 /* Subroutine */ int clar2v_(integer *n, complex *x, complex *y, complex *z__, 
01420      integer *incx, real *c__, complex *s, integer *incc);
01421 
01422 /* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda, 
01423     complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
01424 
01425 /* Subroutine */ int clarf_(char *side, integer *m, integer *n, complex *v, 
01426     integer *incv, complex *tau, complex *c__, integer *ldc, complex *
01427     work);
01428 
01429 /* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char *
01430     storev, integer *m, integer *n, integer *k, complex *v, integer *ldv, 
01431     complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, 
01432     integer *ldwork);
01433 
01434 /* Subroutine */ int clarfg_(integer *n, complex *alpha, complex *x, integer *
01435     incx, complex *tau);
01436 
01437 /* Subroutine */ int clarfp_(integer *n, complex *alpha, complex *x, integer *
01438     incx, complex *tau);
01439 
01440 /* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer *
01441     k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
01442 
01443 /* Subroutine */ int clarfx_(char *side, integer *m, integer *n, complex *v, 
01444     complex *tau, complex *c__, integer *ldc, complex *work);
01445 
01446 /* Subroutine */ int clargv_(integer *n, complex *x, integer *incx, complex *
01447     y, integer *incy, real *c__, integer *incc);
01448 
01449 /* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n, 
01450     complex *x);
01451 
01452 /* Subroutine */ int clarrv_(integer *n, real *vl, real *vu, real *d__, real *
01453     l, real *pivmin, integer *isplit, integer *m, integer *dol, integer *
01454     dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr, 
01455     real *wgap, integer *iblock, integer *indexw, real *gers, complex *
01456     z__, integer *ldz, integer *isuppz, real *work, integer *iwork, 
01457     integer *info);
01458 
01459 /* Subroutine */ int clarscl2_(integer *m, integer *n, real *d__, complex *x, 
01460     integer *ldx);
01461 
01462 /* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn, 
01463     complex *r__);
01464 
01465 /* Subroutine */ int clartv_(integer *n, complex *x, integer *incx, complex *
01466     y, integer *incy, real *c__, complex *s, integer *incc);
01467 
01468 /* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l, 
01469     complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, 
01470     complex *work);
01471 
01472 /* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char *
01473     storev, integer *m, integer *n, integer *k, integer *l, complex *v, 
01474     integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc, 
01475     complex *work, integer *ldwork);
01476 
01477 /* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer *
01478     k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
01479 
01480 /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real *
01481     cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda, 
01482     integer *info);
01483 
01484 /* Subroutine */ int clascl2_(integer *m, integer *n, real *d__, complex *x, 
01485     integer *ldx);
01486 
01487 /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex *
01488     alpha, complex *beta, complex *a, integer *lda);
01489 
01490 /* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m, 
01491      integer *n, real *c__, real *s, complex *a, integer *lda);
01492 
01493 /* Subroutine */ int classq_(integer *n, complex *x, integer *incx, real *
01494     scale, real *sumsq);
01495 
01496 /* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer *
01497     k1, integer *k2, integer *ipiv, integer *incx);
01498 
01499 /* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb, 
01500      complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, 
01501     integer *info);
01502 
01503 /* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char *
01504     normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *
01505     x, real *scale, real *cnorm, integer *info);
01506 
01507 /* Subroutine */ int clatdf_(integer *ijob, integer *n, complex *z__, integer 
01508     *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer 
01509     *jpiv);
01510 
01511 /* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char *
01512     normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm, 
01513      integer *info);
01514 
01515 /* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, complex *a, 
01516     integer *lda, real *e, complex *tau, complex *w, integer *ldw);
01517 
01518 /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char *
01519     normin, integer *n, complex *a, integer *lda, complex *x, real *scale, 
01520      real *cnorm, integer *info);
01521 
01522 /* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, complex *a, 
01523     integer *lda, complex *tau, complex *work);
01524 
01525 /* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v, 
01526     integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc, 
01527     complex *work);
01528 
01529 /* Subroutine */ int clauu2_(char *uplo, integer *n, complex *a, integer *lda, 
01530      integer *info);
01531 
01532 /* Subroutine */ int clauum_(char *uplo, integer *n, complex *a, integer *lda, 
01533      integer *info);
01534 
01535 /* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab, 
01536      integer *ldab, real *anorm, real *rcond, complex *work, real *rwork, 
01537     integer *info);
01538 
01539 /* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab, 
01540      integer *ldab, real *s, real *scond, real *amax, integer *info);
01541 
01542 /* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer *
01543     nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, 
01544     complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *
01545     berr, complex *work, real *rwork, integer *info);
01546 
01547 /* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab, 
01548      integer *ldab, integer *info);
01549 
01550 /* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer *
01551     nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
01552     info);
01553 
01554 /* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
01555     integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
01556     ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x, 
01557     integer *ldx, real *rcond, real *ferr, real *berr, complex *work, 
01558     real *rwork, integer *info);
01559 
01560 /* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab, 
01561      integer *ldab, integer *info);
01562 
01563 /* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab, 
01564      integer *ldab, integer *info);
01565 
01566 /* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer *
01567     nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
01568     info);
01569 
01570 /* Subroutine */ int cpftrf_(char *transr, char *uplo, integer *n, complex *a, 
01571      integer *info);
01572 
01573 /* Subroutine */ int cpftri_(char *transr, char *uplo, integer *n, complex *a, 
01574      integer *info);
01575 
01576 /* Subroutine */ int cpftrs_(char *transr, char *uplo, integer *n, integer *
01577     nrhs, complex *a, complex *b, integer *ldb, integer *info);
01578 
01579 /* Subroutine */ int cpocon_(char *uplo, integer *n, complex *a, integer *lda, 
01580      real *anorm, real *rcond, complex *work, real *rwork, integer *info);
01581 
01582 /* Subroutine */ int cpoequ_(integer *n, complex *a, integer *lda, real *s, 
01583     real *scond, real *amax, integer *info);
01584 
01585 /* Subroutine */ int cpoequb_(integer *n, complex *a, integer *lda, real *s, 
01586     real *scond, real *amax, integer *info);
01587 
01588 /* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, complex *
01589     a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb, 
01590      complex *x, integer *ldx, real *ferr, real *berr, complex *work, 
01591     real *rwork, integer *info);
01592 
01593 /* Subroutine */ int cporfsx_(char *uplo, char *equed, integer *n, integer *
01594     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, real *s, 
01595     complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real 
01596     *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *
01597     err_bnds_comp__, integer *nparams, real *params, complex *work, real *
01598     rwork, integer *info);
01599 
01600 /* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, complex *a, 
01601      integer *lda, complex *b, integer *ldb, integer *info);
01602 
01603 /* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer *
01604     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
01605     equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 
01606     real *rcond, real *ferr, real *berr, complex *work, real *rwork, 
01607     integer *info);
01608 
01609 /* Subroutine */ int cposvxx_(char *fact, char *uplo, integer *n, integer *
01610     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
01611     equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 
01612     real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real *
01613     err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
01614     params, complex *work, real *rwork, integer *info);
01615 
01616 /* Subroutine */ int cpotf2_(char *uplo, integer *n, complex *a, integer *lda, 
01617      integer *info);
01618 
01619 /* Subroutine */ int cpotrf_(char *uplo, integer *n, complex *a, integer *lda, 
01620      integer *info);
01621 
01622 /* Subroutine */ int cpotri_(char *uplo, integer *n, complex *a, integer *lda, 
01623      integer *info);
01624 
01625 /* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *
01626     a, integer *lda, complex *b, integer *ldb, integer *info);
01627 
01628 /* Subroutine */ int cppcon_(char *uplo, integer *n, complex *ap, real *anorm, 
01629      real *rcond, complex *work, real *rwork, integer *info);
01630 
01631 /* Subroutine */ int cppequ_(char *uplo, integer *n, complex *ap, real *s, 
01632     real *scond, real *amax, integer *info);
01633 
01634 /* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *
01635     ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx, 
01636     real *ferr, real *berr, complex *work, real *rwork, integer *info);
01637 
01638 /* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, complex *
01639     ap, complex *b, integer *ldb, integer *info);
01640 
01641 /* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer *
01642     nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b, 
01643     integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real 
01644     *berr, complex *work, real *rwork, integer *info);
01645 
01646 /* Subroutine */ int cpptrf_(char *uplo, integer *n, complex *ap, integer *
01647     info);
01648 
01649 /* Subroutine */ int cpptri_(char *uplo, integer *n, complex *ap, integer *
01650     info);
01651 
01652 /* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *
01653     ap, complex *b, integer *ldb, integer *info);
01654 
01655 /* Subroutine */ int cpstf2_(char *uplo, integer *n, complex *a, integer *lda, 
01656      integer *piv, integer *rank, real *tol, real *work, integer *info);
01657 
01658 /* Subroutine */ int cpstrf_(char *uplo, integer *n, complex *a, integer *lda, 
01659      integer *piv, integer *rank, real *tol, real *work, integer *info);
01660 
01661 /* Subroutine */ int cptcon_(integer *n, real *d__, complex *e, real *anorm, 
01662     real *rcond, real *rwork, integer *info);
01663 
01664 /* Subroutine */ int cpteqr_(char *compz, integer *n, real *d__, real *e, 
01665     complex *z__, integer *ldz, real *work, integer *info);
01666 
01667 /* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__, 
01668      complex *e, real *df, complex *ef, complex *b, integer *ldb, complex 
01669     *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
01670     integer *info);
01671 
01672 /* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, complex *e, 
01673     complex *b, integer *ldb, integer *info);
01674 
01675 /* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__, 
01676      complex *e, real *df, complex *ef, complex *b, integer *ldb, complex 
01677     *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, 
01678     real *rwork, integer *info);
01679 
01680 /* Subroutine */ int cpttrf_(integer *n, real *d__, complex *e, integer *info);
01681 
01682 /* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, 
01683      complex *e, complex *b, integer *ldb, integer *info);
01684 
01685 /* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *
01686     d__, complex *e, complex *b, integer *ldb);
01687 
01688 /* Subroutine */ int crot_(integer *n, complex *cx, integer *incx, complex *
01689     cy, integer *incy, real *c__, complex *s);
01690 
01691 /* Subroutine */ int cspcon_(char *uplo, integer *n, complex *ap, integer *
01692     ipiv, real *anorm, real *rcond, complex *work, integer *info);
01693 
01694 /* Subroutine */ int cspmv_(char *uplo, integer *n, complex *alpha, complex *
01695     ap, complex *x, integer *incx, complex *beta, complex *y, integer *
01696     incy);
01697 
01698 /* Subroutine */ int cspr_(char *uplo, integer *n, complex *alpha, complex *x, 
01699      integer *incx, complex *ap);
01700 
01701 /* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, complex *
01702     ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, 
01703      integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
01704     integer *info);
01705 
01706 /* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, complex *
01707     ap, integer *ipiv, complex *b, integer *ldb, integer *info);
01708 
01709 /* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer *
01710     nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
01711     ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 
01712     complex *work, real *rwork, integer *info);
01713 
01714 /* Subroutine */ int csptrf_(char *uplo, integer *n, complex *ap, integer *
01715     ipiv, integer *info);
01716 
01717 /* Subroutine */ int csptri_(char *uplo, integer *n, complex *ap, integer *
01718     ipiv, complex *work, integer *info);
01719 
01720 /* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, complex *
01721     ap, integer *ipiv, complex *b, integer *ldb, integer *info);
01722 
01723 /* Subroutine */ int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
01724 
01725 /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e, 
01726     complex *z__, integer *ldz, complex *work, integer *lwork, real *
01727     rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
01728     info);
01729 
01730 /* Subroutine */ int cstegr_(char *jobz, char *range, integer *n, real *d__, 
01731     real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
01732     integer *m, real *w, complex *z__, integer *ldz, integer *isuppz, 
01733     real *work, integer *lwork, integer *iwork, integer *liwork, integer *
01734     info);
01735 
01736 /* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real 
01737     *w, integer *iblock, integer *isplit, complex *z__, integer *ldz, 
01738     real *work, integer *iwork, integer *ifail, integer *info);
01739 
01740 /* Subroutine */ int cstemr_(char *jobz, char *range, integer *n, real *d__, 
01741     real *e, real *vl, real *vu, integer *il, integer *iu, integer *m, 
01742     real *w, complex *z__, integer *ldz, integer *nzc, integer *isuppz, 
01743     logical *tryrac, real *work, integer *lwork, integer *iwork, integer *
01744     liwork, integer *info);
01745 
01746 /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e, 
01747     complex *z__, integer *ldz, real *work, integer *info);
01748 
01749 /* Subroutine */ int csycon_(char *uplo, integer *n, complex *a, integer *lda, 
01750      integer *ipiv, real *anorm, real *rcond, complex *work, integer *
01751     info);
01752 
01753 /* Subroutine */ int csyequb_(char *uplo, integer *n, complex *a, integer *
01754     lda, real *s, real *scond, real *amax, complex *work, integer *info);
01755 
01756 /* Subroutine */ int csymv_(char *uplo, integer *n, complex *alpha, complex *
01757     a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, 
01758      integer *incy);
01759 
01760 /* Subroutine */ int csyr_(char *uplo, integer *n, complex *alpha, complex *x, 
01761      integer *incx, complex *a, integer *lda);
01762 
01763 /* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, complex *
01764     a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
01765     b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 
01766     complex *work, real *rwork, integer *info);
01767 
01768 /* Subroutine */ int csyrfsx_(char *uplo, char *equed, integer *n, integer *
01769     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
01770     ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 
01771     real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 
01772      real *err_bnds_comp__, integer *nparams, real *params, complex *work, 
01773      real *rwork, integer *info);
01774 
01775 /* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, complex *a, 
01776      integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, 
01777      integer *lwork, integer *info);
01778 
01779 /* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer *
01780     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
01781     ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, 
01782      real *ferr, real *berr, complex *work, integer *lwork, real *rwork, 
01783     integer *info);
01784 
01785 /* Subroutine */ int csysvxx_(char *fact, char *uplo, integer *n, integer *
01786     nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
01787     ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x, 
01788     integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
01789     n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
01790     nparams, real *params, complex *work, real *rwork, integer *info);
01791 
01792 /* Subroutine */ int csytf2_(char *uplo, integer *n, complex *a, integer *lda, 
01793      integer *ipiv, integer *info);
01794 
01795 /* Subroutine */ int csytrf_(char *uplo, integer *n, complex *a, integer *lda, 
01796      integer *ipiv, complex *work, integer *lwork, integer *info);
01797 
01798 /* Subroutine */ int csytri_(char *uplo, integer *n, complex *a, integer *lda, 
01799      integer *ipiv, complex *work, integer *info);
01800 
01801 /* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, complex *
01802     a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
01803     info);
01804 
01805 /* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n, 
01806     integer *kd, complex *ab, integer *ldab, real *rcond, complex *work, 
01807     real *rwork, integer *info);
01808 
01809 /* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n, 
01810     integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, 
01811     integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 
01812     complex *work, real *rwork, integer *info);
01813 
01814 /* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n, 
01815     integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, 
01816     integer *ldb, integer *info);
01817 
01818 /* Subroutine */ int ctfsm_(char *transr, char *side, char *uplo, char *trans, 
01819      char *diag, integer *m, integer *n, complex *alpha, complex *a, 
01820     complex *b, integer *ldb);
01821 
01822 /* Subroutine */ int ctftri_(char *transr, char *uplo, char *diag, integer *n, 
01823      complex *a, integer *info);
01824 
01825 /* Subroutine */ int ctfttp_(char *transr, char *uplo, integer *n, complex *
01826     arf, complex *ap, integer *info);
01827 
01828 /* Subroutine */ int ctfttr_(char *transr, char *uplo, integer *n, complex *
01829     arf, complex *a, integer *lda, integer *info);
01830 
01831 /* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select, 
01832     integer *n, complex *s, integer *lds, complex *p, integer *ldp, 
01833     complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, 
01834     integer *m, complex *work, real *rwork, integer *info);
01835 
01836 /* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n, 
01837     complex *a, integer *lda, complex *b, integer *ldb, complex *q, 
01838     integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info);
01839 
01840 /* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n, 
01841     complex *a, integer *lda, complex *b, integer *ldb, complex *q, 
01842     integer *ldq, complex *z__, integer *ldz, integer *ifst, integer *
01843     ilst, integer *info);
01844 
01845 /* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz, 
01846     logical *select, integer *n, complex *a, integer *lda, complex *b, 
01847     integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq, 
01848      complex *z__, integer *ldz, integer *m, real *pl, real *pr, real *
01849     dif, complex *work, integer *lwork, integer *iwork, integer *liwork, 
01850     integer *info);
01851 
01852 /* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m, 
01853     integer *p, integer *n, integer *k, integer *l, complex *a, integer *
01854     lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha, 
01855     real *beta, complex *u, integer *ldu, complex *v, integer *ldv, 
01856     complex *q, integer *ldq, complex *work, integer *ncycle, integer *
01857     info);
01858 
01859 /* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select, 
01860     integer *n, complex *a, integer *lda, complex *b, integer *ldb, 
01861     complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real 
01862     *dif, integer *mm, integer *m, complex *work, integer *lwork, integer 
01863     *iwork, integer *info);
01864 
01865 /* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer *
01866     n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, 
01867     integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, 
01868     complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal, 
01869     integer *info);
01870 
01871 /* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer *
01872     n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, 
01873     integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, 
01874     complex *f, integer *ldf, real *scale, real *dif, complex *work, 
01875     integer *lwork, integer *iwork, integer *info);
01876 
01877 /* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n, 
01878     complex *ap, real *rcond, complex *work, real *rwork, integer *info);
01879 
01880 /* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n, 
01881     integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x, 
01882     integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
01883     integer *info);
01884 
01885 /* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, complex *ap, 
01886     integer *info);
01887 
01888 /* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n, 
01889     integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info);
01890 
01891 /* Subroutine */ int ctpttf_(char *transr, char *uplo, integer *n, complex *
01892     ap, complex *arf, integer *info);
01893 
01894 /* Subroutine */ int ctpttr_(char *uplo, integer *n, complex *ap, complex *a, 
01895     integer *lda, integer *info);
01896 
01897 /* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n, 
01898     complex *a, integer *lda, real *rcond, complex *work, real *rwork, 
01899     integer *info);
01900 
01901 /* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select, 
01902     integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, 
01903     complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, 
01904     real *rwork, integer *info);
01905 
01906 /* Subroutine */ int ctrexc_(char *compq, integer *n, complex *t, integer *
01907     ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *
01908     info);
01909 
01910 /* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n, 
01911     integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, 
01912     complex *x, integer *ldx, real *ferr, real *berr, complex *work, real 
01913     *rwork, integer *info);
01914 
01915 /* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer 
01916     *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w, 
01917     integer *m, real *s, real *sep, complex *work, integer *lwork, 
01918     integer *info);
01919 
01920 /* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select, 
01921     integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, 
01922     complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *
01923     m, complex *work, integer *ldwork, real *rwork, integer *info);
01924 
01925 /* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer 
01926     *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, 
01927     complex *c__, integer *ldc, real *scale, integer *info);
01928 
01929 /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a, 
01930     integer *lda, integer *info);
01931 
01932 /* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, complex *a, 
01933     integer *lda, integer *info);
01934 
01935 /* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n, 
01936     integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, 
01937     integer *info);
01938 
01939 /* Subroutine */ int ctrttf_(char *transr, char *uplo, integer *n, complex *a, 
01940      integer *lda, complex *arf, integer *info);
01941 
01942 /* Subroutine */ int ctrttp_(char *uplo, integer *n, complex *a, integer *lda, 
01943      complex *ap, integer *info);
01944 
01945 /* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda, 
01946      complex *tau, integer *info);
01947 
01948 /* Subroutine */ int ctzrzf_(integer *m, integer *n, complex *a, integer *lda, 
01949      complex *tau, complex *work, integer *lwork, integer *info);
01950 
01951 /* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, complex *a, 
01952     integer *lda, complex *tau, complex *work, integer *info);
01953 
01954 /* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, complex *a, 
01955     integer *lda, complex *tau, complex *work, integer *info);
01956 
01957 /* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k, 
01958     complex *a, integer *lda, complex *tau, complex *work, integer *lwork, 
01959      integer *info);
01960 
01961 /* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, complex *
01962     a, integer *lda, complex *tau, complex *work, integer *lwork, integer 
01963     *info);
01964 
01965 /* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, complex *a, 
01966     integer *lda, complex *tau, complex *work, integer *info);
01967 
01968 /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a, 
01969     integer *lda, complex *tau, complex *work, integer *lwork, integer *
01970     info);
01971 
01972 /* Subroutine */ int cungql_(integer *m, integer *n, integer *k, complex *a, 
01973     integer *lda, complex *tau, complex *work, integer *lwork, integer *
01974     info);
01975 
01976 /* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, complex *a, 
01977     integer *lda, complex *tau, complex *work, integer *lwork, integer *
01978     info);
01979 
01980 /* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, complex *a, 
01981     integer *lda, complex *tau, complex *work, integer *info);
01982 
01983 /* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, complex *a, 
01984     integer *lda, complex *tau, complex *work, integer *lwork, integer *
01985     info);
01986 
01987 /* Subroutine */ int cungtr_(char *uplo, integer *n, complex *a, integer *lda, 
01988      complex *tau, complex *work, integer *lwork, integer *info);
01989 
01990 /* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n, 
01991     integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01992     integer *ldc, complex *work, integer *info);
01993 
01994 /* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n, 
01995     integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01996     integer *ldc, complex *work, integer *info);
01997 
01998 /* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m, 
01999     integer *n, integer *k, complex *a, integer *lda, complex *tau, 
02000     complex *c__, integer *ldc, complex *work, integer *lwork, integer *
02001     info);
02002 
02003 /* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n, 
02004     integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, 
02005     complex *c__, integer *ldc, complex *work, integer *lwork, integer *
02006     info);
02007 
02008 /* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n, 
02009     integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
02010     integer *ldc, complex *work, integer *info);
02011 
02012 /* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n, 
02013     integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
02014     integer *ldc, complex *work, integer *lwork, integer *info);
02015 
02016 /* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n, 
02017     integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
02018     integer *ldc, complex *work, integer *lwork, integer *info);
02019 
02020 /* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n, 
02021     integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
02022     integer *ldc, complex *work, integer *lwork, integer *info);
02023 
02024 /* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n, 
02025     integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
02026     integer *ldc, complex *work, integer *info);
02027 
02028 /* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n, 
02029     integer *k, integer *l, complex *a, integer *lda, complex *tau, 
02030     complex *c__, integer *ldc, complex *work, integer *info);
02031 
02032 /* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n, 
02033     integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
02034     integer *ldc, complex *work, integer *lwork, integer *info);
02035 
02036 /* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n, 
02037     integer *k, integer *l, complex *a, integer *lda, complex *tau, 
02038     complex *c__, integer *ldc, complex *work, integer *lwork, integer *
02039     info);
02040 
02041 /* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m, 
02042     integer *n, complex *a, integer *lda, complex *tau, complex *c__, 
02043     integer *ldc, complex *work, integer *lwork, integer *info);
02044 
02045 /* Subroutine */ int cupgtr_(char *uplo, integer *n, complex *ap, complex *
02046     tau, complex *q, integer *ldq, complex *work, integer *info);
02047 
02048 /* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m, 
02049     integer *n, complex *ap, complex *tau, complex *c__, integer *ldc, 
02050     complex *work, integer *info);
02051 
02052 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
02053     d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, 
02054     integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
02055     iwork, integer *info);
02056 
02057 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
02058     nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, 
02059     integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
02060     ldc, doublereal *work, integer *info);
02061 
02062 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal *
02063     d__, doublereal *sep, integer *info);
02064 
02065 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 
02066      integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
02067     d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt, 
02068     integer *ldpt, doublereal *c__, integer *ldc, doublereal *work, 
02069     integer *info);
02070 
02071 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku, 
02072      doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm, 
02073     doublereal *rcond, doublereal *work, integer *iwork, integer *info);
02074 
02075 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku, 
02076      doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
02077     doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
02078     info);
02079 
02080 /* Subroutine */ int dgbequb_(integer *m, integer *n, integer *kl, integer *
02081     ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
02082     doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
02083     info);
02084 
02085 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer *
02086     ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 
02087     integer *ldafb, integer *ipiv, doublereal *b, integer *ldb, 
02088     doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
02089     doublereal *work, integer *iwork, integer *info);
02090 
02091 /* Subroutine */ int dgbrfsx_(char *trans, char *equed, integer *n, integer *
02092     kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 
02093     doublereal *afb, integer *ldafb, integer *ipiv, doublereal *r__, 
02094     doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer *
02095     ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__, 
02096     doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
02097     nparams, doublereal *params, doublereal *work, integer *iwork, 
02098     integer *info);
02099 
02100 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer *
02101     nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, 
02102     integer *ldb, integer *info);
02103 
02104 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl, 
02105      integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 
02106     doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 
02107     doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 
02108     doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
02109     doublereal *berr, doublereal *work, integer *iwork, integer *info);
02110 
02111 /* Subroutine */ int dgbsvxx_(char *fact, char *trans, integer *n, integer *
02112     kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 
02113     doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 
02114     doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 
02115     doublereal *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 
02116     doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 
02117     doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 
02118     doublereal *work, integer *iwork, integer *info);
02119 
02120 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 
02121      doublereal *ab, integer *ldab, integer *ipiv, integer *info);
02122 
02123 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 
02124      doublereal *ab, integer *ldab, integer *ipiv, integer *info);
02125 
02126 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer *
02127     ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, 
02128     doublereal *b, integer *ldb, integer *info);
02129 
02130 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo, 
02131     integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
02132     ldv, integer *info);
02133 
02134 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer *
02135     lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
02136 
02137 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
02138     lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
02139     taup, doublereal *work, integer *info);
02140 
02141 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer *
02142     lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
02143     taup, doublereal *work, integer *lwork, integer *info);
02144 
02145 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer *
02146     lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
02147     iwork, integer *info);
02148 
02149 /* Subroutine */ int dgeequ_(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 dgeequb_(integer *m, integer *n, doublereal *a, integer *
02154     lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 
02155     *colcnd, doublereal *amax, integer *info);
02156 
02157 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n, 
02158     doublereal *a, integer *lda, integer *sdim, doublereal *wr, 
02159     doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work, 
02160     integer *lwork, logical *bwork, integer *info);
02161 
02162 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
02163     sense, integer *n, doublereal *a, integer *lda, integer *sdim, 
02164     doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, 
02165     doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
02166     lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
02167 
02168 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
02169     a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, 
02170     integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, 
02171     integer *lwork, integer *info);
02172 
02173 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
02174     sense, integer *n, doublereal *a, integer *lda, doublereal *wr, 
02175     doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 
02176     integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, 
02177     doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal 
02178     *work, integer *lwork, integer *iwork, integer *info);
02179 
02180 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n, 
02181     doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
02182     alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, 
02183     integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, 
02184     integer *lwork, integer *info);
02185 
02186 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
02187     a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 
02188     doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 
02189     doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 
02190     integer *info);
02191 
02192 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi, 
02193     doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
02194     integer *info);
02195 
02196 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi, 
02197     doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
02198     integer *lwork, integer *info);
02199 
02200 /* Subroutine */ int dgejsv_(char *joba, char *jobu, char *jobv, char *jobr, 
02201     char *jobt, char *jobp, integer *m, integer *n, doublereal *a, 
02202     integer *lda, doublereal *sva, doublereal *u, integer *ldu, 
02203     doublereal *v, integer *ldv, doublereal *work, integer *lwork, 
02204     integer *iwork, integer *info);
02205 
02206 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
02207     lda, doublereal *tau, doublereal *work, integer *info);
02208 
02209 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
02210     lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
02211 
02212 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
02213     nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
02214     doublereal *work, integer *lwork, integer *info);
02215 
02216 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs, 
02217     doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
02218     s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, 
02219      integer *iwork, integer *info);
02220 
02221 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs, 
02222     doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
02223     s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, 
02224      integer *info);
02225 
02226 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs, 
02227     doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
02228     jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
02229     info);
02230 
02231 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs, 
02232     doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
02233     jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
02234     lwork, integer *info);
02235 
02236 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer *
02237     lda, doublereal *tau, doublereal *work, integer *info);
02238 
02239 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
02240     lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
02241 
02242 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
02243     lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork, 
02244      integer *info);
02245 
02246 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
02247     lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
02248 
02249 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
02250     lda, doublereal *tau, doublereal *work, integer *info);
02251 
02252 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
02253     lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
02254 
02255 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs, 
02256     doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
02257     ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 
02258     doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 
02259     integer *info);
02260 
02261 /* Subroutine */ int dgerfsx_(char *trans, char *equed, integer *n, integer *
02262     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
02263     integer *ipiv, doublereal *r__, doublereal *c__, doublereal *b, 
02264     integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, 
02265     doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 
02266     doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 
02267     doublereal *work, integer *iwork, integer *info);
02268 
02269 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer *
02270     lda, doublereal *tau, doublereal *work, integer *info);
02271 
02272 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer *
02273     lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
02274 
02275 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda, 
02276     doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
02277 
02278 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
02279     a, integer *lda, doublereal *s, doublereal *u, integer *ldu, 
02280     doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 
02281     integer *iwork, integer *info);
02282 
02283 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer 
02284     *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
02285 
02286 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 
02287     doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
02288     ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 
02289     integer *info);
02290 
02291 /* Subroutine */ int dgesvj_(char *joba, char *jobu, char *jobv, integer *m, 
02292     integer *n, doublereal *a, integer *lda, doublereal *sva, integer *mv, 
02293      doublereal *v, integer *ldv, doublereal *work, integer *lwork, 
02294     integer *info);
02295 
02296 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer *
02297     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
02298     integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 
02299     doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
02300     rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
02301     iwork, integer *info);
02302 
02303 /* Subroutine */ int dgesvxx_(char *fact, char *trans, integer *n, integer *
02304     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
02305     integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 
02306     doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
02307     rcond, doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 
02308     doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
02309     nparams, doublereal *params, doublereal *work, integer *iwork, 
02310     integer *info);
02311 
02312 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer 
02313     *ipiv, integer *jpiv, integer *info);
02314 
02315 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer *
02316     lda, integer *ipiv, integer *info);
02317 
02318 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
02319     lda, integer *ipiv, integer *info);
02320 
02321 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer 
02322     *ipiv, doublereal *work, integer *lwork, integer *info);
02323 
02324 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs, 
02325     doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
02326     ldb, integer *info);
02327 
02328 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo, 
02329     integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 
02330     doublereal *v, integer *ldv, integer *info);
02331 
02332 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer *
02333     lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi, 
02334     doublereal *lscale, doublereal *rscale, doublereal *work, integer *
02335     info);
02336 
02337 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
02338     selctg, integer *n, doublereal *a, integer *lda, doublereal *b, 
02339     integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, 
02340     doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, 
02341     integer *ldvsr, doublereal *work, integer *lwork, logical *bwork, 
02342     integer *info);
02343 
02344 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
02345     selctg, char *sense, integer *n, doublereal *a, integer *lda, 
02346     doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, 
02347     doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, 
02348      doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
02349     rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
02350     liwork, logical *bwork, integer *info);
02351 
02352 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
02353     a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 
02354     doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 
02355     doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 
02356     integer *info);
02357 
02358 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
02359     sense, integer *n, doublereal *a, integer *lda, doublereal *b, 
02360     integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
02361     beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 
02362     integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 
02363     doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
02364     rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
02365     bwork, integer *info);
02366 
02367 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal *
02368     a, integer *lda, doublereal *b, integer *ldb, doublereal *d__, 
02369     doublereal *x, doublereal *y, doublereal *work, integer *lwork, 
02370     integer *info);
02371 
02372 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer *
02373     ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, 
02374     integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
02375     ldz, integer *info);
02376 
02377 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal *
02378     a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, 
02379     doublereal *d__, doublereal *x, doublereal *work, integer *lwork, 
02380     integer *info);
02381 
02382 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal *
02383     a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 
02384     doublereal *taub, doublereal *work, integer *lwork, integer *info);
02385 
02386 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal *
02387     a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 
02388     doublereal *taub, doublereal *work, integer *lwork, integer *info);
02389 
02390 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
02391     integer *n, integer *p, integer *k, integer *l, doublereal *a, 
02392     integer *lda, doublereal *b, integer *ldb, doublereal *alpha, 
02393     doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer 
02394     *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork, 
02395     integer *info);
02396 
02397 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
02398     integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, 
02399     integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer 
02400     *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, 
02401     doublereal *q, integer *ldq, integer *iwork, doublereal *tau, 
02402     doublereal *work, integer *info);
02403 
02404 /* Subroutine */ int dgsvj0_(char *jobv, integer *m, integer *n, doublereal *
02405     a, integer *lda, doublereal *d__, doublereal *sva, integer *mv, 
02406     doublereal *v, integer *ldv, doublereal *eps, doublereal *sfmin, 
02407     doublereal *tol, integer *nsweep, doublereal *work, integer *lwork, 
02408     integer *info);
02409 
02410 /* Subroutine */ int dgsvj1_(char *jobv, integer *m, integer *n, integer *n1, 
02411     doublereal *a, integer *lda, doublereal *d__, doublereal *sva, 
02412     integer *mv, doublereal *v, integer *ldv, doublereal *eps, doublereal 
02413     *sfmin, doublereal *tol, integer *nsweep, doublereal *work, integer *
02414     lwork, integer *info);
02415 
02416 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl, 
02417     doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, 
02418     doublereal *anorm, doublereal *rcond, doublereal *work, integer *
02419     iwork, integer *info);
02420 
02421 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs, 
02422     doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf, 
02423     doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 
02424     doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
02425     ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
02426     info);
02427 
02428 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl, 
02429     doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer 
02430     *info);
02431 
02432 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer *
02433     nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
02434     dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 
02435     doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
02436     rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
02437     iwork, integer *info);
02438 
02439 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__, 
02440     doublereal *du, doublereal *du2, integer *ipiv, integer *info);
02441 
02442 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs, 
02443     doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 
02444     integer *ipiv, doublereal *b, integer *ldb, integer *info);
02445 
02446 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs, 
02447     doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 
02448     integer *ipiv, doublereal *b, integer *ldb);
02449 
02450 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n, 
02451     integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
02452     *t, integer *ldt, doublereal *alphar, doublereal *alphai, doublereal *
02453     beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 
02454     doublereal *work, integer *lwork, integer *info);
02455 
02456 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
02457     select, integer *n, doublereal *h__, integer *ldh, doublereal *wr, 
02458     doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 
02459     integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
02460     ifaill, integer *ifailr, integer *info);
02461 
02462 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo, 
02463      integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, 
02464     doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, 
02465     integer *lwork, integer *info);
02466 
02467 logical disnan_(doublereal *din);
02468 
02469 /* Subroutine */ int dla_gbamv__(integer *trans, integer *m, integer *n, 
02470     integer *kl, integer *ku, doublereal *alpha, doublereal *ab, integer *
02471     ldab, doublereal *x, integer *incx, doublereal *beta, doublereal *y, 
02472     integer *incy);
02473 
02474 doublereal dla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku, 
02475     doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 
02476     integer *ipiv, integer *cmode, doublereal *c__, integer *info, 
02477     doublereal *work, integer *iwork, ftnlen trans_len);
02478 
02479 /* Subroutine */ int dla_gbrfsx_extended__(integer *prec_type__, integer *
02480     trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 
02481     doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 
02482     integer *ipiv, logical *colequ, doublereal *c__, doublereal *b, 
02483     integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__, 
02484     integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 
02485     doublereal *res, doublereal *ayb, doublereal *dy, doublereal *
02486     y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 
02487     doublereal *dz_ub__, logical *ignore_cwise__, integer *info);
02488 
02489 doublereal dla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
02490     ncols, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb);
02491 
02492 /* Subroutine */ int dla_geamv__(integer *trans, integer *m, integer *n, 
02493     doublereal *alpha, doublereal *a, integer *lda, doublereal *x, 
02494     integer *incx, doublereal *beta, doublereal *y, integer *incy);
02495 
02496 doublereal dla_gercond__(char *trans, integer *n, doublereal *a, integer *lda,
02497      doublereal *af, integer *ldaf, integer *ipiv, integer *cmode, 
02498     doublereal *c__, integer *info, doublereal *work, integer *iwork, 
02499     ftnlen trans_len);
02500 
02501 /* Subroutine */ int dla_gerfsx_extended__(integer *prec_type__, integer *
02502     trans_type__, integer *n, integer *nrhs, doublereal *a, integer *lda, 
02503     doublereal *af, integer *ldaf, integer *ipiv, logical *colequ, 
02504     doublereal *c__, doublereal *b, integer *ldb, doublereal *y, integer *
02505     ldy, doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__,
02506      doublereal *errs_c__, doublereal *res, doublereal *ayb, doublereal *
02507     dy, doublereal *y_tail__, doublereal *rcond, integer *ithresh, 
02508     doublereal *rthresh, doublereal *dz_ub__, logical *ignore_cwise__, 
02509     integer *info);
02510 
02511 /* Subroutine */ int dla_lin_berr__(integer *n, integer *nz, integer *nrhs, 
02512     doublereal *res, doublereal *ayb, doublereal *berr);
02513 
02514 doublereal dla_porcond__(char *uplo, integer *n, doublereal *a, integer *lda, 
02515     doublereal *af, integer *ldaf, integer *cmode, doublereal *c__, 
02516     integer *info, doublereal *work, integer *iwork, ftnlen uplo_len);
02517 
02518 /* Subroutine */ int dla_porfsx_extended__(integer *prec_type__, char *uplo, 
02519     integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *
02520     af, integer *ldaf, logical *colequ, doublereal *c__, doublereal *b, 
02521     integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__, 
02522     integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 
02523     doublereal *res, doublereal *ayb, doublereal *dy, doublereal *
02524     y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 
02525     doublereal *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen 
02526     uplo_len);
02527 
02528 doublereal dla_porpvgrw__(char *uplo, integer *ncols, doublereal *a, integer *
02529     lda, doublereal *af, integer *ldaf, doublereal *work, ftnlen uplo_len);
02530 
02531 doublereal dla_rpvgrw__(integer *n, integer *ncols, doublereal *a, integer *
02532     lda, doublereal *af, integer *ldaf);
02533 
02534 /* Subroutine */ int dla_syamv__(integer *uplo, integer *n, doublereal *alpha,
02535      doublereal *a, integer *lda, doublereal *x, integer *incx, 
02536     doublereal *beta, doublereal *y, integer *incy);
02537 
02538 doublereal dla_syrcond__(char *uplo, integer *n, doublereal *a, integer *lda, 
02539     doublereal *af, integer *ldaf, integer *ipiv, integer *cmode, 
02540     doublereal *c__, integer *info, doublereal *work, integer *iwork, 
02541     ftnlen uplo_len);
02542 
02543 /* Subroutine */ int dla_syrfsx_extended__(integer *prec_type__, char *uplo, 
02544     integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *
02545     af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__, 
02546     doublereal *b, integer *ldb, doublereal *y, integer *ldy, doublereal *
02547     berr_out__, integer *n_norms__, doublereal *errs_n__, doublereal *
02548     errs_c__, doublereal *res, doublereal *ayb, doublereal *dy, 
02549     doublereal *y_tail__, doublereal *rcond, integer *ithresh, doublereal 
02550     *rthresh, doublereal *dz_ub__, logical *ignore_cwise__, integer *info,
02551      ftnlen uplo_len);
02552 
02553 doublereal dla_syrpvgrw__(char *uplo, integer *n, integer *info, doublereal *
02554     a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, 
02555     doublereal *work, ftnlen uplo_len);
02556 
02557 /* Subroutine */ int dla_wwaddw__(integer *n, doublereal *x, doublereal *y, 
02558     doublereal *w);
02559 
02560 /* Subroutine */ int dlabad_(doublereal *small, doublereal *large);
02561 
02562 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
02563     a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, 
02564     doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer 
02565     *ldy);
02566 
02567 /* Subroutine */ int dlacn2_(integer *n, doublereal *v, doublereal *x, 
02568     integer *isgn, doublereal *est, integer *kase, integer *isave);
02569 
02570 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x, 
02571     integer *isgn, doublereal *est, integer *kase);
02572 
02573 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
02574     a, integer *lda, doublereal *b, integer *ldb);
02575 
02576 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__, 
02577     doublereal *d__, doublereal *p, doublereal *q);
02578 
02579 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__, 
02580     doublereal *rt1, doublereal *rt2);
02581 
02582 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n, 
02583     integer *mmax, integer *minp, integer *nbmin, doublereal *abstol, 
02584     doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
02585     e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__, 
02586     integer *mout, integer *nab, doublereal *work, integer *iwork, 
02587     integer *info);
02588 
02589 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n, 
02590     doublereal *d__, doublereal *e, doublereal *q, integer *ldq, 
02591     doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, 
02592     integer *info);
02593 
02594 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q, 
02595     integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, 
02596     doublereal *work, integer *iwork, integer *info);
02597 
02598 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
02599     d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, 
02600     doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2, 
02601     integer *indx, integer *indxc, integer *indxp, integer *coltyp, 
02602     integer *info);
02603 
02604 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
02605     d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda, 
02606      doublereal *q2, integer *indx, integer *ctot, doublereal *w, 
02607     doublereal *s, integer *info);
02608 
02609 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__, 
02610     doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam, 
02611      integer *info);
02612 
02613 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, 
02614     doublereal *delta, doublereal *rho, doublereal *dlam);
02615 
02616 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal *
02617     rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
02618     tau, integer *info);
02619 
02620 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz, 
02621     integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 
02622     doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer 
02623     *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
02624     perm, integer *givptr, integer *givcol, doublereal *givnum, 
02625     doublereal *work, integer *iwork, integer *info);
02626 
02627 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer 
02628     *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, 
02629     doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda, 
02630      doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer 
02631     *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer 
02632     *indx, integer *info);
02633 
02634 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop, 
02635     integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
02636     rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds, 
02637     integer *info);
02638 
02639 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl, 
02640     integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 
02641     integer *givcol, doublereal *givnum, doublereal *q, integer *qptr, 
02642     doublereal *z__, doublereal *ztemp, integer *info);
02643 
02644 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n, 
02645     doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, 
02646     doublereal *vr, doublereal *vi, doublereal *b, integer *ldb, 
02647     doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
02648     bignum, integer *info);
02649 
02650 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, 
02651     doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
02652 
02653 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t, 
02654     integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, 
02655     integer *n2, doublereal *work, integer *info);
02656 
02657 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b, 
02658     integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
02659     scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
02660 
02661 /* Subroutine */ int dlag2s_(integer *m, integer *n, doublereal *a, integer *
02662     lda, real *sa, integer *ldsa, integer *info);
02663 
02664 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2, 
02665     doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3, 
02666     doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv, 
02667     doublereal *csq, doublereal *snq);
02668 
02669 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda, 
02670     doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, 
02671     integer *in, integer *info);
02672 
02673 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs, 
02674     doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, 
02675     doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer 
02676     *ldb);
02677 
02678 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a, 
02679     doublereal *b, doublereal *c__, doublereal *d__, integer *in, 
02680     doublereal *y, doublereal *tol, integer *info);
02681 
02682 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b, 
02683     integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
02684     beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
02685     snr);
02686 
02687 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n, 
02688     integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
02689     *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 
02690     integer *ldz, integer *info);
02691 
02692 /* Subroutine */ int dlahr2_(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 dlahrd_(integer *n, integer *k, integer *nb, doublereal *
02697     a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 
02698     doublereal *y, integer *ldy);
02699 
02700 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x, 
02701     doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
02702     sestpr, doublereal *s, doublereal *c__);
02703 
02704 logical dlaisnan_(doublereal *din1, doublereal *din2);
02705 
02706 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw, 
02707     doublereal *smin, doublereal *ca, doublereal *a, integer *lda, 
02708     doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, 
02709     doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, 
02710     doublereal *scale, doublereal *xnorm, integer *info);
02711 
02712 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr, 
02713     integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal 
02714     *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, 
02715     integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
02716     poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
02717     k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
02718 
02719 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n, 
02720     integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
02721     ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, 
02722     doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
02723     poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
02724     perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
02725     work, integer *iwork, integer *info);
02726 
02727 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer 
02728     *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, 
02729     doublereal *rcond, integer *rank, doublereal *work, integer *iwork, 
02730     integer *info);
02731 
02732 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer 
02733     *dtrd1, integer *dtrd2, integer *index);
02734 
02735 integer dlaneg_(integer *n, doublereal *d__, doublereal *lld, doublereal *
02736     sigma, doublereal *pivmin, integer *r__);
02737 
02738 doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku, 
02739     doublereal *ab, integer *ldab, doublereal *work);
02740 
02741 doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer 
02742     *lda, doublereal *work);
02743 
02744 doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__, 
02745     doublereal *du);
02746 
02747 doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda, 
02748     doublereal *work);
02749 
02750 doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal 
02751     *ab, integer *ldab, doublereal *work);
02752 
02753 doublereal dlansf_(char *norm, char *transr, char *uplo, integer *n, 
02754     doublereal *a, doublereal *work);
02755 
02756 doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap, 
02757     doublereal *work);
02758 
02759 doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e);
02760 
02761 doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer 
02762     *lda, doublereal *work);
02763 
02764 doublereal dlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 
02765      doublereal *ab, integer *ldab, doublereal *work);
02766 
02767 doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal 
02768     *ap, doublereal *work);
02769 
02770 doublereal dlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 
02771      doublereal *a, integer *lda, doublereal *work);
02772 
02773 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, 
02774     doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r, 
02775      doublereal *rt2i, doublereal *cs, doublereal *sn);
02776 
02777 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx, 
02778     doublereal *y, integer *incy, doublereal *ssmin);
02779 
02780 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n, 
02781     doublereal *x, integer *ldx, integer *k);
02782 
02783 doublereal dlapy2_(doublereal *x, doublereal *y);
02784 
02785 doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
02786 
02787 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku, 
02788      doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
02789     doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
02790 
02791 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer *
02792     lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 
02793     *colcnd, doublereal *amax, char *equed);
02794 
02795 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset, 
02796     doublereal *a, integer *lda, integer *jpvt, doublereal *tau, 
02797     doublereal *vn1, doublereal *vn2, doublereal *work);
02798 
02799 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer 
02800     *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt, 
02801     doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv, 
02802     doublereal *f, integer *ldf);
02803 
02804 /* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, integer *n, 
02805     integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
02806     *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 
02807     integer *ldz, doublereal *work, integer *lwork, integer *info);
02808 
02809 /* Subroutine */ int dlaqr1_(integer *n, doublereal *h__, integer *ldh, 
02810     doublereal *sr1, doublereal *si1, doublereal *sr2, doublereal *si2, 
02811     doublereal *v);
02812 
02813 /* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, integer *n, 
02814     integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
02815     ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, 
02816     integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
02817     v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
02818     nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
02819 
02820 /* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, integer *n, 
02821     integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
02822     ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, 
02823     integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
02824     v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
02825     nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
02826 
02827 /* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, integer *n, 
02828     integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
02829     *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 
02830     integer *ldz, doublereal *work, integer *lwork, integer *info);
02831 
02832 /* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, integer *kacc22, 
02833     integer *n, integer *ktop, integer *kbot, integer *nshfts, doublereal 
02834     *sr, doublereal *si, doublereal *h__, integer *ldh, integer *iloz, 
02835     integer *ihiz, doublereal *z__, integer *ldz, doublereal *v, integer *
02836     ldv, doublereal *u, integer *ldu, integer *nv, doublereal *wv, 
02837     integer *ldwv, integer *nh, doublereal *wh, integer *ldwh);
02838 
02839 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
02840     ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, 
02841      char *equed);
02842 
02843 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap, 
02844     doublereal *s, doublereal *scond, doublereal *amax, char *equed);
02845 
02846 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
02847     lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
02848 
02849 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n, 
02850     doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal 
02851     *scale, doublereal *x, doublereal *work, integer *info);
02852 
02853 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal 
02854     *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
02855     lld, doublereal *pivmin, doublereal *gaptol, doublereal *z__, logical 
02856     *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, 
02857     integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid, 
02858     doublereal *rqcorr, doublereal *work);
02859 
02860 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y, 
02861     doublereal *z__, integer *incx, doublereal *c__, doublereal *s, 
02862     integer *incc);
02863 
02864 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v, 
02865      integer *incv, doublereal *tau, doublereal *c__, integer *ldc, 
02866     doublereal *work);
02867 
02868 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
02869     storev, integer *m, integer *n, integer *k, doublereal *v, integer *
02870     ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, 
02871     doublereal *work, integer *ldwork);
02872 
02873 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x, 
02874     integer *incx, doublereal *tau);
02875 
02876 /* Subroutine */ int dlarfp_(integer *n, doublereal *alpha, doublereal *x, 
02877     integer *incx, doublereal *tau);
02878 
02879 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
02880     k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
02881     integer *ldt);
02882 
02883 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal *
02884     v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
02885 
02886 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx, 
02887     doublereal *y, integer *incy, doublereal *c__, integer *incc);
02888 
02889 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n, 
02890     doublereal *x);
02891 
02892 /* Subroutine */ int dlarra_(integer *n, doublereal *d__, doublereal *e, 
02893     doublereal *e2, doublereal *spltol, doublereal *tnrm, integer *nsplit, 
02894      integer *isplit, integer *info);
02895 
02896 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *lld, 
02897     integer *ifirst, integer *ilast, doublereal *rtol1, doublereal *rtol2, 
02898      integer *offset, doublereal *w, doublereal *wgap, doublereal *werr, 
02899     doublereal *work, integer *iwork, doublereal *pivmin, doublereal *
02900     spdiam, integer *twist, integer *info);
02901 
02902 /* Subroutine */ int dlarrc_(char *jobt, integer *n, doublereal *vl, 
02903     doublereal *vu, doublereal *d__, doublereal *e, doublereal *pivmin, 
02904     integer *eigcnt, integer *lcnt, integer *rcnt, integer *info);
02905 
02906 /* Subroutine */ int dlarrd_(char *range, char *order, integer *n, doublereal 
02907     *vl, doublereal *vu, integer *il, integer *iu, doublereal *gers, 
02908     doublereal *reltol, doublereal *d__, doublereal *e, doublereal *e2, 
02909     doublereal *pivmin, integer *nsplit, integer *isplit, integer *m, 
02910     doublereal *w, doublereal *werr, doublereal *wl, doublereal *wu, 
02911     integer *iblock, integer *indexw, doublereal *work, integer *iwork, 
02912     integer *info);
02913 
02914 /* Subroutine */ int dlarre_(char *range, integer *n, doublereal *vl, 
02915     doublereal *vu, integer *il, integer *iu, doublereal *d__, doublereal 
02916     *e, doublereal *e2, doublereal *rtol1, doublereal *rtol2, doublereal *
02917     spltol, integer *nsplit, integer *isplit, integer *m, doublereal *w, 
02918     doublereal *werr, doublereal *wgap, integer *iblock, integer *indexw, 
02919     doublereal *gers, doublereal *pivmin, doublereal *work, integer *
02920     iwork, integer *info);
02921 
02922 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l, 
02923     doublereal *ld, integer *clstrt, integer *clend, doublereal *w, 
02924     doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal *
02925     clgapl, doublereal *clgapr, doublereal *pivmin, doublereal *sigma, 
02926     doublereal *dplus, doublereal *lplus, doublereal *work, integer *info);
02927 
02928 /* Subroutine */ int dlarrj_(integer *n, doublereal *d__, doublereal *e2, 
02929     integer *ifirst, integer *ilast, doublereal *rtol, integer *offset, 
02930     doublereal *w, doublereal *werr, doublereal *work, integer *iwork, 
02931     doublereal *pivmin, doublereal *spdiam, integer *info);
02932 
02933 /* Subroutine */ int dlarrk_(integer *n, integer *iw, doublereal *gl, 
02934     doublereal *gu, doublereal *d__, doublereal *e2, doublereal *pivmin, 
02935     doublereal *reltol, doublereal *w, doublereal *werr, integer *info);
02936 
02937 /* Subroutine */ int dlarrr_(integer *n, doublereal *d__, doublereal *e, 
02938     integer *info);
02939 
02940 /* Subroutine */ int dlarrv_(integer *n, doublereal *vl, doublereal *vu, 
02941     doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, 
02942     integer *m, integer *dol, integer *dou, doublereal *minrgp, 
02943     doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr, 
02944      doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers, 
02945      doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 
02946     integer *iwork, integer *info);
02947 
02948 /* Subroutine */ int dlarscl2_(integer *m, integer *n, doublereal *d__, 
02949     doublereal *x, integer *ldx);
02950 
02951 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs, 
02952     doublereal *sn, doublereal *r__);
02953 
02954 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx, 
02955     doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer 
02956     *incc);
02957 
02958 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x);
02959 
02960 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l, 
02961     doublereal *v, integer *incv, doublereal *tau, doublereal *c__, 
02962     integer *ldc, doublereal *work);
02963 
02964 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
02965     storev, integer *m, integer *n, integer *k, integer *l, doublereal *v, 
02966      integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
02967     ldc, doublereal *work, integer *ldwork);
02968 
02969 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer *
02970     k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
02971     integer *ldt);
02972 
02973 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__, 
02974     doublereal *ssmin, doublereal *ssmax);
02975 
02976 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku, 
02977     doublereal *cfrom, doublereal *cto, integer *m, integer *n, 
02978     doublereal *a, integer *lda, integer *info);
02979 
02980 /* Subroutine */ int dlascl2_(integer *m, integer *n, doublereal *d__, 
02981     doublereal *x, integer *ldx);
02982 
02983 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__, 
02984     doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
02985     ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
02986     info);
02987 
02988 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre, 
02989     doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u, 
02990     integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
02991     iwork, doublereal *work, integer *info);
02992 
02993 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer 
02994     *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
02995     beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, 
02996     doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2, 
02997     integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
02998     idxq, integer *coltyp, integer *info);
02999 
03000 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer 
03001     *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma, 
03002     doublereal *u, integer *ldu, doublereal *u2, integer *ldu2, 
03003     doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2, 
03004     integer *idxc, integer *ctot, doublereal *z__, integer *info);
03005 
03006 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__, 
03007     doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
03008     sigma, doublereal *work, integer *info);
03009 
03010 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, 
03011     doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
03012     work);
03013 
03014 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr, 
03015     integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl, 
03016     doublereal *alpha, doublereal *beta, integer *idxq, integer *perm, 
03017     integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, 
03018      integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
03019     difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, 
03020     doublereal *work, integer *iwork, integer *info);
03021 
03022 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr, 
03023     integer *sqre, integer *k, doublereal *d__, doublereal *z__, 
03024     doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl, 
03025     doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
03026     dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, 
03027     integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, 
03028      integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
03029 
03030 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__, 
03031     doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, 
03032     doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
03033     work, integer *info);
03034 
03035 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n, 
03036     integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer 
03037     *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, 
03038     doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, 
03039     integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, 
03040     doublereal *s, doublereal *work, integer *iwork, integer *info);
03041 
03042 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
03043     ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, 
03044     doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, 
03045     doublereal *c__, integer *ldc, doublereal *work, integer *info);
03046 
03047 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
03048     inode, integer *ndiml, integer *ndimr, integer *msub);
03049 
03050 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
03051     alpha, doublereal *beta, doublereal *a, integer *lda);
03052 
03053 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e, 
03054     doublereal *work, integer *info);
03055 
03056 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info);
03057 
03058 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__, 
03059     integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig, 
03060      doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, 
03061     logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2, 
03062     doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *g, 
03063     doublereal *tau);
03064 
03065 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__, 
03066     integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, 
03067     doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, 
03068     doublereal *tau, integer *ttype, doublereal *g);
03069 
03070 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__, 
03071     integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, 
03072     doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2, 
03073      logical *ieee);
03074 
03075 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__, 
03076     integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, 
03077      doublereal *dn, doublereal *dnm1, doublereal *dnm2);
03078 
03079 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m, 
03080      integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
03081     lda);
03082 
03083 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
03084     info);
03085 
03086 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx, 
03087     doublereal *scale, doublereal *sumsq);
03088 
03089 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, 
03090     doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
03091     csr, doublereal *snl, doublereal *csl);
03092 
03093 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer 
03094     *k1, integer *k2, integer *ipiv, integer *incx);
03095 
03096 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, 
03097     integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
03098     tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, 
03099     doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
03100 
03101 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb, 
03102      doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
03103     ldw, integer *info);
03104 
03105 /* Subroutine */ int dlat2s_(char *uplo, integer *n, doublereal *a, integer *
03106     lda, real *sa, integer *ldsa, integer *info);
03107 
03108 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
03109     normin, integer *n, integer *kd, doublereal *ab, integer *ldab, 
03110     doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
03111 
03112 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__, 
03113     integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, 
03114     integer *ipiv, integer *jpiv);
03115 
03116 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
03117     normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale, 
03118     doublereal *cnorm, integer *info);
03119 
03120 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
03121     a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, 
03122     integer *ldw);
03123 
03124 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
03125     normin, integer *n, doublereal *a, integer *lda, doublereal *x, 
03126     doublereal *scale, doublereal *cnorm, integer *info);
03127 
03128 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal *
03129     a, integer *lda, doublereal *tau, doublereal *work);
03130 
03131 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal *
03132     v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, 
03133     integer *ldc, doublereal *work);
03134 
03135 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
03136     lda, integer *info);
03137 
03138 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer *
03139     lda, integer *info);
03140 
03141 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap, 
03142     doublereal *tau, doublereal *q, integer *ldq, doublereal *work, 
03143     integer *info);
03144 
03145 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m, 
03146     integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer 
03147     *ldc, doublereal *work, integer *info);
03148 
03149 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal *
03150     a, integer *lda, doublereal *tau, doublereal *work, integer *info);
03151 
03152 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal *
03153     a, integer *lda, doublereal *tau, doublereal *work, integer *info);
03154 
03155 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k, 
03156     doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
03157     integer *lwork, integer *info);
03158 
03159 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi, 
03160     doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
03161     integer *lwork, integer *info);
03162 
03163 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal *
03164     a, integer *lda, doublereal *tau, doublereal *work, integer *info);
03165 
03166 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal *
03167     a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
03168     integer *info);
03169 
03170 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal *
03171     a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
03172     integer *info);
03173 
03174 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal *
03175     a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
03176     integer *info);
03177 
03178 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal *
03179     a, integer *lda, doublereal *tau, doublereal *work, integer *info);
03180 
03181 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal *
03182     a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
03183     integer *info);
03184 
03185 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
03186     lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
03187 
03188 /* Subroutine */ int dorm2l_(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 dorm2r_(char *side, char *trans, integer *m, integer *n, 
03193     integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
03194     c__, integer *ldc, doublereal *work, integer *info);
03195 
03196 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m, 
03197     integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, 
03198     doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
03199     integer *info);
03200 
03201 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n, 
03202     integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
03203     tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
03204     integer *info);
03205 
03206 /* Subroutine */ int dorml2_(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 *info);
03209 
03210 /* Subroutine */ int dormlq_(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 dormql_(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 dormqr_(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 *lwork, integer *info);
03221 
03222 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n, 
03223     integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
03224     c__, integer *ldc, doublereal *work, integer *info);
03225 
03226 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n, 
03227     integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 
03228     doublereal *c__, integer *ldc, doublereal *work, integer *info);
03229 
03230 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n, 
03231     integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
03232     c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
03233 
03234 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n, 
03235     integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 
03236     doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
03237     integer *info);
03238 
03239 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m, 
03240     integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
03241     c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
03242 
03243 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
03244     ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
03245     work, integer *iwork, integer *info);
03246 
03247 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
03248     ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, 
03249      integer *info);
03250 
03251 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
03252     nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 
03253     doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
03254     ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
03255     info);
03256 
03257 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
03258     ab, integer *ldab, integer *info);
03259 
03260 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer *
03261     nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 
03262     integer *info);
03263 
03264 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
03265     integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 
03266     integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
03267     ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
03268      doublereal *berr, doublereal *work, integer *iwork, integer *info);
03269 
03270 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
03271     ab, integer *ldab, integer *info);
03272 
03273 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
03274     ab, integer *ldab, integer *info);
03275 
03276 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
03277     nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 
03278     integer *info);
03279 
03280 /* Subroutine */ int dpftrf_(char *transr, char *uplo, integer *n, doublereal 
03281     *a, integer *info);
03282 
03283 /* Subroutine */ int dpftri_(char *transr, char *uplo, integer *n, doublereal 
03284     *a, integer *info);
03285 
03286 /* Subroutine */ int dpftrs_(char *transr, char *uplo, integer *n, integer *
03287     nrhs, doublereal *a, doublereal *b, integer *ldb, integer *info);
03288 
03289 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer *
03290     lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
03291     iwork, integer *info);
03292 
03293 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda, 
03294     doublereal *s, doublereal *scond, doublereal *amax, integer *info);
03295 
03296 /* Subroutine */ int dpoequb_(integer *n, doublereal *a, integer *lda, 
03297     doublereal *s, doublereal *scond, doublereal *amax, integer *info);
03298 
03299 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs, 
03300     doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
03301     doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
03302     ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
03303     info);
03304 
03305 /* Subroutine */ int dporfsx_(char *uplo, char *equed, integer *n, integer *
03306     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
03307     doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer *
03308     ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__, 
03309     doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
03310     nparams, doublereal *params, doublereal *work, integer *iwork, 
03311     integer *info);
03312 
03313 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal 
03314     *a, integer *lda, doublereal *b, integer *ldb, integer *info);
03315 
03316 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer *
03317     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
03318     char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
03319     x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
03320     berr, doublereal *work, integer *iwork, integer *info);
03321 
03322 /* Subroutine */ int dposvxx_(char *fact, char *uplo, integer *n, integer *
03323     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
03324     char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
03325     x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, doublereal *
03326     berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
03327     err_bnds_comp__, integer *nparams, doublereal *params, doublereal *
03328     work, integer *iwork, integer *info);
03329 
03330 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
03331     lda, integer *info);
03332 
03333 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
03334     lda, integer *info);
03335 
03336 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer *
03337     lda, integer *info);
03338 
03339 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs, 
03340     doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
03341     info);
03342 
03343 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap, 
03344     doublereal *anorm, doublereal *rcond, doublereal *work, integer *
03345     iwork, integer *info);
03346 
03347 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap, 
03348     doublereal *s, doublereal *scond, doublereal *amax, integer *info);
03349 
03350 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs, 
03351     doublereal *ap, doublereal *afp, doublereal *b, integer *ldb, 
03352     doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
03353     doublereal *work, integer *iwork, integer *info);
03354 
03355 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal 
03356     *ap, doublereal *b, integer *ldb, integer *info);
03357 
03358 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer *
03359     nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s, 
03360     doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
03361     rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
03362     iwork, integer *info);
03363 
03364 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
03365     info);
03366 
03367 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
03368     info);
03369 
03370 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs, 
03371     doublereal *ap, doublereal *b, integer *ldb, integer *info);
03372 
03373 /* Subroutine */ int dpstf2_(char *uplo, integer *n, doublereal *a, integer *
03374     lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, 
03375     integer *info);
03376 
03377 /* Subroutine */ int dpstrf_(char *uplo, integer *n, doublereal *a, integer *
03378     lda, integer *piv, integer *rank, doublereal *tol, doublereal *work, 
03379     integer *info);
03380 
03381 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e, 
03382     doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
03383 
03384 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__, 
03385     doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
03386     integer *info);
03387 
03388 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__, 
03389     doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer 
03390     *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
03391      doublereal *work, integer *info);
03392 
03393 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__, 
03394     doublereal *e, doublereal *b, integer *ldb, integer *info);
03395 
03396 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs, 
03397     doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, 
03398     doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
03399     rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
03400     info);
03401 
03402 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e, 
03403     integer *info);
03404 
03405 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__, 
03406     doublereal *e, doublereal *b, integer *ldb, integer *info);
03407 
03408 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__, 
03409     doublereal *e, doublereal *b, integer *ldb);
03410 
03411 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx, 
03412     integer *incx);
03413 
03414 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd, 
03415     doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 
03416     integer *ldz, doublereal *work, integer *info);
03417 
03418 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
03419     doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 
03420     integer *ldz, doublereal *work, integer *lwork, integer *iwork, 
03421     integer *liwork, integer *info);
03422 
03423 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n, 
03424     integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
03425     ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, 
03426     doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 
03427     integer *ldz, doublereal *work, integer *iwork, integer *ifail, 
03428     integer *info);
03429 
03430 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka, 
03431     integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
03432     ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
03433 
03434 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, 
03435     integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
03436     ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
03437     integer *info);
03438 
03439 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 
03440     integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
03441     ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
03442     integer *lwork, integer *iwork, integer *liwork, integer *info);
03443 
03444 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n, 
03445     integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
03446     bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl, 
03447     doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer 
03448     *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
03449     integer *iwork, integer *ifail, integer *info);
03450 
03451 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd, 
03452     doublereal *ab, integer *ldab, doublereal *d__, doublereal *e, 
03453     doublereal *q, integer *ldq, doublereal *work, integer *info);
03454 
03455 /* Subroutine */ int dsfrk_(char *transr, char *uplo, char *trans, integer *n, 
03456      integer *k, doublereal *alpha, doublereal *a, integer *lda, 
03457     doublereal *beta, doublereal *c__);
03458 
03459 /* Subroutine */ int dsgesv_(integer *n, integer *nrhs, doublereal *a, 
03460     integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *
03461     x, integer *ldx, doublereal *work, real *swork, integer *iter, 
03462     integer *info);
03463 
03464 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
03465     ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer 
03466     *iwork, integer *info);
03467 
03468 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal *
03469     ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
03470     integer *info);
03471 
03472 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal *
03473     ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
03474     integer *lwork, integer *iwork, integer *liwork, integer *info);
03475 
03476 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n, 
03477     doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *
03478     iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 
03479     integer *ldz, doublereal *work, integer *iwork, integer *ifail, 
03480     integer *info);
03481 
03482 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n, 
03483     doublereal *ap, doublereal *bp, integer *info);
03484 
03485 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer *
03486     n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, 
03487     integer *ldz, doublereal *work, integer *info);
03488 
03489 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer *
03490     n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, 
03491     integer *ldz, doublereal *work, integer *lwork, integer *iwork, 
03492     integer *liwork, integer *info);
03493 
03494 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char *
03495     uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl, 
03496     doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer 
03497     *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
03498     integer *iwork, integer *ifail, integer *info);
03499 
03500 /* Subroutine */ int dsposv_(char *uplo, integer *n, integer *nrhs, 
03501     doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
03502     x, integer *ldx, doublereal *work, real *swork, integer *iter, 
03503     integer *info);
03504 
03505 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs, 
03506     doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, 
03507     integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, 
03508     doublereal *berr, doublereal *work, integer *iwork, integer *info);
03509 
03510 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal 
03511     *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
03512 
03513 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer *
03514     nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, 
03515     integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, 
03516     doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 
03517     integer *info);
03518 
03519 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap, 
03520     doublereal *d__, doublereal *e, doublereal *tau, integer *info);
03521 
03522 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
03523     ipiv, integer *info);
03524 
03525 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
03526     ipiv, doublereal *work, integer *info);
03527 
03528 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs, 
03529     doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
03530     info);
03531 
03532 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal 
03533     *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, 
03534     doublereal *d__, doublereal *e, integer *m, integer *nsplit, 
03535     doublereal *w, integer *iblock, integer *isplit, doublereal *work, 
03536     integer *iwork, integer *info);
03537 
03538 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__, 
03539     doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
03540     integer *lwork, integer *iwork, integer *liwork, integer *info);
03541 
03542 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal *
03543     d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
03544     integer *iu, doublereal *abstol, integer *m, doublereal *w, 
03545     doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 
03546     integer *lwork, integer *iwork, integer *liwork, integer *info);
03547 
03548 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e, 
03549     integer *m, doublereal *w, integer *iblock, integer *isplit, 
03550     doublereal *z__, integer *ldz, doublereal *work, integer *iwork, 
03551     integer *ifail, integer *info);
03552 
03553 /* Subroutine */ int dstemr_(char *jobz, char *range, integer *n, doublereal *
03554     d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
03555     integer *iu, integer *m, doublereal *w, doublereal *z__, integer *ldz, 
03556      integer *nzc, integer *isuppz, logical *tryrac, doublereal *work, 
03557     integer *lwork, integer *iwork, integer *liwork, integer *info);
03558 
03559 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__, 
03560     doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
03561     integer *info);
03562 
03563 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e, 
03564     integer *info);
03565 
03566 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__, 
03567     doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
03568     integer *info);
03569 
03570 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__, 
03571     doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
03572     integer *lwork, integer *iwork, integer *liwork, integer *info);
03573 
03574 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal *
03575     d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
03576     integer *iu, doublereal *abstol, integer *m, doublereal *w, 
03577     doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 
03578     integer *lwork, integer *iwork, integer *liwork, integer *info);
03579 
03580 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal *
03581     d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
03582     integer *iu, doublereal *abstol, integer *m, doublereal *w, 
03583     doublereal *z__, integer *ldz, doublereal *work, integer *iwork, 
03584     integer *ifail, integer *info);
03585 
03586 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer *
03587     lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *
03588     work, integer *iwork, integer *info);
03589 
03590 /* Subroutine */ int dsyequb_(char *uplo, integer *n, doublereal *a, integer *
03591     lda, doublereal *s, doublereal *scond, doublereal *amax, doublereal *
03592     work, integer *info);
03593 
03594 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a, 
03595      integer *lda, doublereal *w, doublereal *work, integer *lwork, 
03596     integer *info);
03597 
03598 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *
03599     a, integer *lda, doublereal *w, doublereal *work, integer *lwork, 
03600     integer *iwork, integer *liwork, integer *info);
03601 
03602 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n, 
03603     doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
03604     il, integer *iu, doublereal *abstol, integer *m, doublereal *w, 
03605     doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 
03606     integer *lwork, integer *iwork, integer *liwork, integer *info);
03607 
03608 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n, 
03609     doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
03610     il, integer *iu, doublereal *abstol, integer *m, doublereal *w, 
03611     doublereal *z__, integer *ldz, doublereal *work, integer *lwork, 
03612     integer *iwork, integer *ifail, integer *info);
03613 
03614 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n, 
03615     doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
03616     info);
03617 
03618 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n, 
03619     doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
03620     info);
03621 
03622 /* Subroutine */ int dsygv_(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 *info);
03625 
03626 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer *
03627     n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
03628     doublereal *w, doublereal *work, integer *lwork, integer *iwork, 
03629     integer *liwork, integer *info);
03630 
03631 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char *
03632     uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer 
03633     *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu, 
03634     doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 
03635     integer *ldz, doublereal *work, integer *lwork, integer *iwork, 
03636     integer *ifail, integer *info);
03637 
03638 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs, 
03639     doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
03640     ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 
03641     doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 
03642     integer *info);
03643 
03644 /* Subroutine */ int dsyrfsx_(char *uplo, char *equed, integer *n, integer *
03645     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
03646     integer *ipiv, doublereal *s, doublereal *b, integer *ldb, doublereal 
03647     *x, integer *ldx, doublereal *rcond, doublereal *berr, integer *
03648     n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
03649     err_bnds_comp__, integer *nparams, doublereal *params, doublereal *
03650     work, integer *iwork, integer *info);
03651 
03652 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal 
03653     *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, 
03654     doublereal *work, integer *lwork, integer *info);
03655 
03656 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer *
03657     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
03658     integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *
03659     ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 
03660     doublereal *work, integer *lwork, integer *iwork, integer *info);
03661 
03662 /* Subroutine */ int dsysvxx_(char *fact, char *uplo, integer *n, integer *
03663     nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
03664     integer *ipiv, char *equed, doublereal *s, doublereal *b, integer *
03665     ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *
03666     rpvgrw, doublereal *berr, integer *n_err_bnds__, doublereal *
03667     err_bnds_norm__, doublereal *err_bnds_comp__, integer *nparams, 
03668     doublereal *params, doublereal *work, integer *iwork, integer *info);
03669 
03670 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
03671     lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
03672 
03673 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
03674     lda, integer *ipiv, integer *info);
03675 
03676 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer *
03677     lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *
03678     work, integer *lwork, integer *info);
03679 
03680 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
03681     lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
03682 
03683 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer *
03684     lda, integer *ipiv, doublereal *work, integer *info);
03685 
03686 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs, 
03687     doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
03688     ldb, integer *info);
03689 
03690 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n, 
03691     integer *kd, doublereal *ab, integer *ldab, doublereal *rcond, 
03692     doublereal *work, integer *iwork, integer *info);
03693 
03694 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n, 
03695     integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal 
03696     *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, 
03697     doublereal *berr, doublereal *work, integer *iwork, integer *info);
03698 
03699 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n, 
03700     integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal 
03701     *b, integer *ldb, integer *info);
03702 
03703 /* Subroutine */ int dtfsm_(char *transr, char *side, char *uplo, char *trans, 
03704      char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a, 
03705      doublereal *b, integer *ldb);
03706 
03707 /* Subroutine */ int dtftri_(char *transr, char *uplo, char *diag, integer *n, 
03708      doublereal *a, integer *info);
03709 
03710 /* Subroutine */ int dtfttp_(char *transr, char *uplo, integer *n, doublereal 
03711     *arf, doublereal *ap, integer *info);
03712 
03713 /* Subroutine */ int dtfttr_(char *transr, char *uplo, integer *n, doublereal 
03714     *arf, doublereal *a, integer *lda, integer *info);
03715 
03716 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select, 
03717     integer *n, doublereal *s, integer *lds, doublereal *p, integer *ldp, 
03718     doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer 
03719     *mm, integer *m, doublereal *work, integer *info);
03720 
03721 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n, 
03722     doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
03723     q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *
03724     n1, integer *n2, doublereal *work, integer *lwork, integer *info);
03725 
03726 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n, 
03727     doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
03728     q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst, 
03729     integer *ilst, doublereal *work, integer *lwork, integer *info);
03730 
03731 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz, 
03732     logical *select, integer *n, doublereal *a, integer *lda, doublereal *
03733     b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
03734     beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 
03735     integer *m, doublereal *pl, doublereal *pr, doublereal *dif, 
03736     doublereal *work, integer *lwork, integer *iwork, integer *liwork, 
03737     integer *info);
03738 
03739 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m, 
03740     integer *p, integer *n, integer *k, integer *l, doublereal *a, 
03741     integer *lda, doublereal *b, integer *ldb, doublereal *tola, 
03742     doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u, 
03743     integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *
03744     ldq, doublereal *work, integer *ncycle, integer *info);
03745 
03746 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select, 
03747     integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
03748     doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 
03749     doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *
03750     work, integer *lwork, integer *iwork, integer *info);
03751 
03752 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
03753     n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
03754     doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, 
03755     doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
03756     scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer 
03757     *pq, integer *info);
03758 
03759 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer *
03760     n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
03761     doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, 
03762     doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
03763     scale, doublereal *dif, doublereal *work, integer *lwork, integer *
03764     iwork, integer *info);
03765 
03766 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n, 
03767     doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork, 
03768     integer *info);
03769 
03770 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n, 
03771     integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, 
03772     doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
03773     doublereal *work, integer *iwork, integer *info);
03774 
03775 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal *
03776     ap, integer *info);
03777 
03778 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n, 
03779     integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
03780     info);
03781 
03782 /* Subroutine */ int dtpttf_(char *transr, char *uplo, integer *n, doublereal 
03783     *ap, doublereal *arf, integer *info);
03784 
03785 /* Subroutine */ int dtpttr_(char *uplo, integer *n, doublereal *ap, 
03786     doublereal *a, integer *lda, integer *info);
03787 
03788 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n, 
03789     doublereal *a, integer *lda, doublereal *rcond, doublereal *work, 
03790     integer *iwork, integer *info);
03791 
03792 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select, 
03793     integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
03794     ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, 
03795     doublereal *work, integer *info);
03796 
03797 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer *
03798     ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst, 
03799     doublereal *work, integer *info);
03800 
03801 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n, 
03802     integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
03803     ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
03804     doublereal *work, integer *iwork, integer *info);
03805 
03806 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer 
03807     *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, 
03808     doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal 
03809     *sep, doublereal *work, integer *lwork, integer *iwork, integer *
03810     liwork, integer *info);
03811 
03812 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select, 
03813     integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
03814     ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep, 
03815     integer *mm, integer *m, doublereal *work, integer *ldwork, integer *
03816     iwork, integer *info);
03817 
03818 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer 
03819     *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *
03820     ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info);
03821 
03822 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
03823     a, integer *lda, integer *info);
03824 
03825 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
03826     a, integer *lda, integer *info);
03827 
03828 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n, 
03829     integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
03830     ldb, integer *info);
03831 
03832 /* Subroutine */ int dtrttf_(char *transr, char *uplo, integer *n, doublereal 
03833     *a, integer *lda, doublereal *arf, integer *info);
03834 
03835 /* Subroutine */ int dtrttp_(char *uplo, integer *n, doublereal *a, integer *
03836     lda, doublereal *ap, integer *info);
03837 
03838 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
03839     lda, doublereal *tau, integer *info);
03840 
03841 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer *
03842     lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
03843 
03844 doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx);
03845 
03846 integer icmax1_(integer *n, complex *cx, integer *incx);
03847 
03848 integer ieeeck_(integer *ispec, real *zero, real *one);
03849 
03850 integer ilaclc_(integer *m, integer *n, complex *a, integer *lda);
03851 
03852 integer ilaclr_(integer *m, integer *n, complex *a, integer *lda);
03853 
03854 integer iladiag_(char *diag);
03855 
03856 integer iladlc_(integer *m, integer *n, doublereal *a, integer *lda);
03857 
03858 integer iladlr_(integer *m, integer *n, doublereal *a, integer *lda);
03859 
03860 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 
03861     integer *n2, integer *n3, integer *n4);
03862 
03863 integer ilaprec_(char *prec);
03864 
03865 integer ilaslc_(integer *m, integer *n, real *a, integer *lda);
03866 
03867 integer ilaslr_(integer *m, integer *n, real *a, integer *lda);
03868 
03869 integer ilatrans_(char *trans);
03870 
03871 integer ilauplo_(char *uplo);
03872 
03873 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__, 
03874     integer *vers_patch__);
03875 
03876 integer ilazlc_(integer *m, integer *n, doublecomplex *a, integer *lda);
03877 
03878 integer ilazlr_(integer *m, integer *n, doublecomplex *a, integer *lda);
03879 
03880 integer iparmq_(integer *ispec, char *name__, char *opts, integer *n, integer 
03881     *ilo, integer *ihi, integer *lwork);
03882 
03883 integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
03884 
03885 logical lsamen_(integer *n, char *ca, char *cb);
03886 
03887 integer smaxloc_(real *a, integer *dimm);
03888 
03889 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__, 
03890     real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q, 
03891     integer *iq, real *work, integer *iwork, integer *info);
03892 
03893 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
03894     nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *
03895     u, integer *ldu, real *c__, integer *ldc, real *work, integer *info);
03896 
03897 doublereal scsum1_(integer *n, complex *cx, integer *incx);
03898 
03899 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__, 
03900     real *sep, integer *info);
03901 
03902 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 
03903      integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *
03904     e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer 
03905     *ldc, real *work, integer *info);
03906 
03907 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku, 
03908      real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, 
03909     real *work, integer *iwork, integer *info);
03910 
03911 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku, 
03912      real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
03913     colcnd, real *amax, integer *info);
03914 
03915 /* Subroutine */ int sgbequb_(integer *m, integer *n, integer *kl, integer *
03916     ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 
03917     *colcnd, real *amax, integer *info);
03918 
03919 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer *
03920     ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, 
03921      integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
03922     ferr, real *berr, real *work, integer *iwork, integer *info);
03923 
03924 /* Subroutine */ int sgbrfsx_(char *trans, char *equed, integer *n, integer *
03925     kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 
03926     integer *ldafb, integer *ipiv, real *r__, real *c__, real *b, integer 
03927     *ldb, real *x, integer *ldx, real *rcond, real *berr, integer *
03928     n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
03929     nparams, real *params, real *work, integer *iwork, integer *info);
03930 
03931 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer *
03932     nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, 
03933     integer *info);
03934 
03935 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl, 
03936      integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 
03937     integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 
03938     real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, 
03939      real *berr, real *work, integer *iwork, integer *info);
03940 
03941 /* Subroutine */ int sgbsvxx_(char *fact, char *trans, integer *n, integer *
03942     kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 
03943     integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 
03944     real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *
03945     rpvgrw, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 
03946     real *err_bnds_comp__, integer *nparams, real *params, real *work, 
03947     integer *iwork, integer *info);
03948 
03949 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 
03950      real *ab, integer *ldab, integer *ipiv, integer *info);
03951 
03952 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 
03953      real *ab, integer *ldab, integer *ipiv, integer *info);
03954 
03955 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer *
03956     ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, 
03957     integer *ldb, integer *info);
03958 
03959 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo, 
03960     integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer 
03961     *info);
03962 
03963 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda, 
03964     integer *ilo, integer *ihi, real *scale, integer *info);
03965 
03966 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda, 
03967     real *d__, real *e, real *tauq, real *taup, real *work, integer *info);
03968 
03969 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda, 
03970     real *d__, real *e, real *tauq, real *taup, real *work, integer *
03971     lwork, integer *info);
03972 
03973 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda, 
03974     real *anorm, real *rcond, real *work, integer *iwork, integer *info);
03975 
03976 /* Subroutine */ int sgeequ_(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 sgeequb_(integer *m, integer *n, real *a, integer *lda, 
03981     real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer 
03982     *info);
03983 
03984 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n, 
03985     real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs, 
03986     integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
03987     info);
03988 
03989 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char *
03990     sense, integer *n, real *a, integer *lda, integer *sdim, real *wr, 
03991     real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
03992     work, integer *lwork, integer *iwork, integer *liwork, logical *bwork, 
03993      integer *info);
03994 
03995 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a, 
03996     integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr, 
03997     integer *ldvr, real *work, integer *lwork, integer *info);
03998 
03999 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *
04000     sense, integer *n, real *a, integer *lda, real *wr, real *wi, real *
04001     vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *
04002     ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work, 
04003      integer *lwork, integer *iwork, integer *info);
04004 
04005 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a, 
04006     integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 
04007     *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
04008     work, integer *lwork, integer *info);
04009 
04010 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a, 
04011     integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 
04012     *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, 
04013     integer *lwork, integer *info);
04014 
04015 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, 
04016     integer *lda, real *tau, real *work, integer *info);
04017 
04018 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, 
04019     integer *lda, real *tau, real *work, integer *lwork, integer *info);
04020 
04021 /* Subroutine */ int sgejsv_(char *joba, char *jobu, char *jobv, char *jobr, 
04022     char *jobt, char *jobp, integer *m, integer *n, real *a, integer *lda, 
04023      real *sva, real *u, integer *ldu, real *v, integer *ldv, real *work, 
04024     integer *lwork, integer *iwork, integer *info);
04025 
04026 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda, 
04027     real *tau, real *work, integer *info);
04028 
04029 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda, 
04030     real *tau, real *work, integer *lwork, integer *info);
04031 
04032 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer *
04033     nrhs, real *a, integer *lda, real *b, integer *ldb, real *work, 
04034     integer *lwork, integer *info);
04035 
04036 /* Subroutine */ int sgelsd_(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 *iwork, integer *info);
04039 
04040 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a, 
04041     integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
04042     rank, real *work, integer *lwork, integer *info);
04043 
04044 /* Subroutine */ int sgelsx_(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 *info);
04047 
04048 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a, 
04049     integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, 
04050     integer *rank, real *work, integer *lwork, integer *info);
04051 
04052 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda, 
04053     real *tau, real *work, integer *info);
04054 
04055 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda, 
04056     real *tau, real *work, integer *lwork, integer *info);
04057 
04058 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda, 
04059     integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
04060 
04061 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda, 
04062     integer *jpvt, real *tau, real *work, integer *info);
04063 
04064 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda, 
04065     real *tau, real *work, integer *info);
04066 
04067 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda, 
04068     real *tau, real *work, integer *lwork, integer *info);
04069 
04070 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a, 
04071     integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, 
04072     integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
04073     work, integer *iwork, integer *info);
04074 
04075 /* Subroutine */ int sgerfsx_(char *trans, char *equed, integer *n, integer *
04076     nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 
04077     real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, 
04078     real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__, 
04079      real *err_bnds_comp__, integer *nparams, real *params, real *work, 
04080     integer *iwork, integer *info);
04081 
04082 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda, 
04083     real *tau, real *work, integer *info);
04084 
04085 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda, 
04086     real *tau, real *work, integer *lwork, integer *info);
04087 
04088 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs, 
04089     integer *ipiv, integer *jpiv, real *scale);
04090 
04091 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a, 
04092     integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt, 
04093      real *work, integer *lwork, integer *iwork, integer *info);
04094 
04095 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda, 
04096     integer *ipiv, real *b, integer *ldb, integer *info);
04097 
04098 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 
04099     real *a, integer *lda, real *s, real *u, integer *ldu, real *vt, 
04100     integer *ldvt, real *work, integer *lwork, integer *info);
04101 
04102 /* Subroutine */ int sgesvj_(char *joba, char *jobu, char *jobv, integer *m, 
04103     integer *n, real *a, integer *lda, real *sva, integer *mv, real *v, 
04104     integer *ldv, real *work, integer *lwork, integer *info);
04105 
04106 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer *
04107     nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 
04108     char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, 
04109     integer *ldx, real *rcond, real *ferr, real *berr, real *work, 
04110     integer *iwork, integer *info);
04111 
04112 /* Subroutine */ int sgesvxx_(char *fact, char *trans, integer *n, integer *
04113     nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 
04114     char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, 
04115     integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
04116     n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
04117     nparams, real *params, real *work, integer *iwork, integer *info);
04118 
04119 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv, 
04120      integer *jpiv, integer *info);
04121 
04122 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda, 
04123     integer *ipiv, integer *info);
04124 
04125 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda, 
04126     integer *ipiv, integer *info);
04127 
04128 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, 
04129      real *work, integer *lwork, integer *info);
04130 
04131 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a, 
04132     integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
04133 
04134 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo, 
04135     integer *ihi, real *lscale, real *rscale, integer *m, real *v, 
04136     integer *ldv, integer *info);
04137 
04138 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda, 
04139     real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real 
04140     *rscale, real *work, integer *info);
04141 
04142 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
04143     selctg, integer *n, real *a, integer *lda, real *b, integer *ldb, 
04144     integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, 
04145     integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork, 
04146      logical *bwork, integer *info);
04147 
04148 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
04149     selctg, char *sense, integer *n, real *a, integer *lda, real *b, 
04150     integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, 
04151     real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde, 
04152     real *rcondv, real *work, integer *lwork, integer *iwork, integer *
04153     liwork, logical *bwork, integer *info);
04154 
04155 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a, 
04156     integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 
04157     *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, 
04158     integer *lwork, integer *info);
04159 
04160 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char *
04161     sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real 
04162     *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, 
04163     integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale, 
04164      real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work, 
04165     integer *lwork, integer *iwork, logical *bwork, integer *info);
04166 
04167 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a, 
04168     integer *lda, real *b, integer *ldb, real *d__, real *x, real *y, 
04169     real *work, integer *lwork, integer *info);
04170 
04171 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer *
04172     ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real 
04173     *q, integer *ldq, real *z__, integer *ldz, integer *info);
04174 
04175 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a, 
04176     integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x, 
04177     real *work, integer *lwork, integer *info);
04178 
04179 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a, 
04180     integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
04181     work, integer *lwork, integer *info);
04182 
04183 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a, 
04184     integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
04185     work, integer *lwork, integer *info);
04186 
04187 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
04188     integer *n, integer *p, integer *k, integer *l, real *a, integer *lda, 
04189      real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
04190     ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, 
04191     integer *iwork, integer *info);
04192 
04193 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
04194     integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb, 
04195     real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu, 
04196      real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
04197     tau, real *work, integer *info);
04198 
04199 /* Subroutine */ int sgsvj0_(char *jobv, integer *m, integer *n, real *a, 
04200     integer *lda, real *d__, real *sva, integer *mv, real *v, integer *
04201     ldv, real *eps, real *sfmin, real *tol, integer *nsweep, real *work, 
04202     integer *lwork, integer *info);
04203 
04204 /* Subroutine */ int sgsvj1_(char *jobv, integer *m, integer *n, integer *n1, 
04205     real *a, integer *lda, real *d__, real *sva, integer *mv, real *v, 
04206     integer *ldv, real *eps, real *sfmin, real *tol, integer *nsweep, 
04207     real *work, integer *lwork, integer *info);
04208 
04209 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__, 
04210     real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real *
04211     work, integer *iwork, integer *info);
04212 
04213 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl, 
04214      real *d__, real *du, real *dlf, real *df, real *duf, real *du2, 
04215     integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
04216     ferr, real *berr, real *work, integer *iwork, integer *info);
04217 
04218 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, 
04219     real *du, real *b, integer *ldb, integer *info);
04220 
04221 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer *
04222     nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf, 
04223     real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *
04224     ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, 
04225     integer *info);
04226 
04227 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real *
04228     du2, integer *ipiv, integer *info);
04229 
04230 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl, 
04231      real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb, 
04232      integer *info);
04233 
04234 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real 
04235     *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *
04236     ldb);
04237 
04238 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n, 
04239     integer *ilo, integer *ihi, real *h__, integer *ldh, real *t, integer 
04240     *ldt, real *alphar, real *alphai, real *beta, real *q, integer *ldq, 
04241     real *z__, integer *ldz, real *work, integer *lwork, integer *info);
04242 
04243 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical *
04244     select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real 
04245     *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, 
04246     real *work, integer *ifaill, integer *ifailr, integer *info);
04247 
04248 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo, 
04249      integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__, 
04250      integer *ldz, real *work, integer *lwork, integer *info);
04251 
04252 logical sisnan_(real *sin__);
04253 
04254 /* Subroutine */ int sla_gbamv__(integer *trans, integer *m, integer *n, 
04255     integer *kl, integer *ku, real *alpha, real *ab, integer *ldab, real *
04256     x, integer *incx, real *beta, real *y, integer *incy);
04257 
04258 doublereal sla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku, 
04259     real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, 
04260     integer *cmode, real *c__, integer *info, real *work, integer *iwork, 
04261     ftnlen trans_len);
04262 
04263 /* Subroutine */ int sla_gbrfsx_extended__(integer *prec_type__, integer *
04264     trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 
04265     real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, 
04266     logical *colequ, real *c__, real *b, integer *ldb, real *y, integer *
04267     ldy, real *berr_out__, integer *n_norms__, real *errs_n__, real *
04268     errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real *rcond,
04269      integer *ithresh, real *rthresh, real *dz_ub__, logical *
04270     ignore_cwise__, integer *info);
04271 
04272 doublereal sla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
04273     ncols, real *ab, integer *ldab, real *afb, integer *ldafb);
04274 
04275 /* Subroutine */ int sla_geamv__(integer *trans, integer *m, integer *n, real 
04276     *alpha, real *a, integer *lda, real *x, integer *incx, real *beta, 
04277     real *y, integer *incy);
04278 
04279 doublereal sla_gercond__(char *trans, integer *n, real *a, integer *lda, real 
04280     *af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer 
04281     *info, real *work, integer *iwork, ftnlen trans_len);
04282 
04283 /* Subroutine */ int sla_gerfsx_extended__(integer *prec_type__, integer *
04284     trans_type__, integer *n, integer *nrhs, real *a, integer *lda, real *
04285     af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, real *b,
04286      integer *ldb, real *y, integer *ldy, real *berr_out__, integer *
04287     n_norms__, real *errs_n__, real *errs_c__, real *res, real *ayb, real 
04288     *dy, real *y_tail__, real *rcond, integer *ithresh, real *rthresh, 
04289     real *dz_ub__, logical *ignore_cwise__, integer *info);
04290 
04291 /* Subroutine */ int sla_lin_berr__(integer *n, integer *nz, integer *nrhs, 
04292     real *res, real *ayb, real *berr);
04293 
04294 doublereal sla_porcond__(char *uplo, integer *n, real *a, integer *lda, real *
04295     af, integer *ldaf, integer *cmode, real *c__, integer *info, real *
04296     work, integer *iwork, ftnlen uplo_len);
04297 
04298 /* Subroutine */ int sla_porfsx_extended__(integer *prec_type__, char *uplo, 
04299     integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *
04300     ldaf, logical *colequ, real *c__, real *b, integer *ldb, real *y, 
04301     integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__, 
04302     real *errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real *
04303     rcond, integer *ithresh, real *rthresh, real *dz_ub__, logical *
04304     ignore_cwise__, integer *info, ftnlen uplo_len);
04305 
04306 doublereal sla_porpvgrw__(char *uplo, integer *ncols, real *a, integer *lda, 
04307     real *af, integer *ldaf, real *work, ftnlen uplo_len);
04308 
04309 doublereal sla_rpvgrw__(integer *n, integer *ncols, real *a, integer *lda, 
04310     real *af, integer *ldaf);
04311 
04312 /* Subroutine */ int sla_syamv__(integer *uplo, integer *n, real *alpha, real 
04313     *a, integer *lda, real *x, integer *incx, real *beta, real *y, 
04314     integer *incy);
04315 
04316 doublereal sla_syrcond__(char *uplo, integer *n, real *a, integer *lda, real *
04317     af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer *
04318     info, real *work, integer *iwork, ftnlen uplo_len);
04319 
04320 /* Subroutine */ int sla_syrfsx_extended__(integer *prec_type__, char *uplo, 
04321     integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *
04322     ldaf, integer *ipiv, logical *colequ, real *c__, real *b, integer *
04323     ldb, real *y, integer *ldy, real *berr_out__, integer *n_norms__, 
04324     real *errs_n__, real *errs_c__, real *res, real *ayb, real *dy, real *
04325     y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__,
04326      logical *ignore_cwise__, integer *info, ftnlen uplo_len);
04327 
04328 doublereal sla_syrpvgrw__(char *uplo, integer *n, integer *info, real *a, 
04329     integer *lda, real *af, integer *ldaf, integer *ipiv, real *work, 
04330     ftnlen uplo_len);
04331 
04332 /* Subroutine */ int sla_wwaddw__(integer *n, real *x, real *y, real *w);
04333 
04334 /* Subroutine */ int slabad_(real *small, real *large);
04335 
04336 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a, 
04337     integer *lda, real *d__, real *e, real *tauq, real *taup, real *x, 
04338     integer *ldx, real *y, integer *ldy);
04339 
04340 /* Subroutine */ int slacn2_(integer *n, real *v, real *x, integer *isgn, 
04341     real *est, integer *kase, integer *isave);
04342 
04343 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn, 
04344     real *est, integer *kase);
04345 
04346 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a, 
04347     integer *lda, real *b, integer *ldb);
04348 
04349 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p, 
04350     real *q);
04351 
04352 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
04353 
04354 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n, 
04355     integer *mmax, integer *minp, integer *nbmin, real *abstol, real *
04356     reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval, 
04357     real *ab, real *c__, integer *mout, integer *nab, real *work, integer 
04358     *iwork, integer *info);
04359 
04360 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real 
04361     *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs, 
04362     real *work, integer *iwork, integer *info);
04363 
04364 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq, 
04365     integer *indxq, real *rho, integer *cutpnt, real *work, integer *
04366     iwork, integer *info);
04367 
04368 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__, 
04369     real *q, integer *ldq, integer *indxq, real *rho, real *z__, real *
04370     dlamda, real *w, real *q2, integer *indx, integer *indxc, integer *
04371     indxp, integer *coltyp, integer *info);
04372 
04373 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__, 
04374     real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer *
04375     indx, integer *ctot, real *w, real *s, integer *info);
04376 
04377 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__, 
04378     real *delta, real *rho, real *dlam, integer *info);
04379 
04380 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta, 
04381     real *rho, real *dlam);
04382 
04383 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho, 
04384     real *d__, real *z__, real *finit, real *tau, integer *info);
04385 
04386 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz, 
04387     integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q, 
04388     integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *
04389     qstore, integer *qptr, integer *prmptr, integer *perm, integer *
04390     givptr, integer *givcol, real *givnum, real *work, integer *iwork, 
04391     integer *info);
04392 
04393 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer 
04394     *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho, 
04395     integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2, 
04396     real *w, integer *perm, integer *givptr, integer *givcol, real *
04397     givnum, integer *indxp, integer *indx, integer *info);
04398 
04399 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop, 
04400     integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda, 
04401      real *w, real *s, integer *lds, integer *info);
04402 
04403 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl, 
04404     integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 
04405     integer *givcol, real *givnum, real *q, integer *qptr, real *z__, 
04406     real *ztemp, integer *info);
04407 
04408 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n, 
04409     real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real 
04410     *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum, 
04411     integer *info);
04412 
04413 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real *
04414     rt2, real *cs1, real *sn1);
04415 
04416 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer *
04417     ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, 
04418     real *work, integer *info);
04419 
04420 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb, 
04421     real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *
04422     wi);
04423 
04424 /* Subroutine */ int slag2d_(integer *m, integer *n, real *sa, integer *ldsa, 
04425     doublereal *a, integer *lda, integer *info);
04426 
04427 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3, 
04428     real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *
04429     snv, real *csq, real *snq);
04430 
04431 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real 
04432     *c__, real *tol, real *d__, integer *in, integer *info);
04433 
04434 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real *
04435     alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *
04436     beta, real *b, integer *ldb);
04437 
04438 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real 
04439     *c__, real *d__, integer *in, real *y, real *tol, integer *info);
04440 
04441 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb, 
04442     real *alphar, real *alphai, real *beta, real *csl, real *snl, real *
04443     csr, real *snr);
04444 
04445 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n, 
04446     integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
04447     wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *
04448     info);
04449 
04450 /* Subroutine */ int slahr2_(integer *n, integer *k, integer *nb, real *a, 
04451     integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
04452 
04453 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a, 
04454     integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
04455 
04456 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest, 
04457     real *w, real *gamma, real *sestpr, real *s, real *c__);
04458 
04459 logical slaisnan_(real *sin1, real *sin2);
04460 
04461 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real *
04462     smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b, 
04463     integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale, 
04464     real *xnorm, integer *info);
04465 
04466 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr, 
04467     integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx, 
04468     integer *ldbx, integer *perm, integer *givptr, integer *givcol, 
04469     integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
04470     difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
04471     work, integer *info);
04472 
04473 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n, 
04474     integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real *
04475     u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *
04476     z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol, 
04477     integer *perm, real *givnum, real *c__, real *s, real *work, integer *
04478     iwork, integer *info);
04479 
04480 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer 
04481     *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond, 
04482     integer *rank, real *work, integer *iwork, integer *info);
04483 
04484 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer *
04485     strd1, integer *strd2, integer *index);
04486 
04487 integer slaneg_(integer *n, real *d__, real *lld, real *sigma, real *pivmin, 
04488     integer *r__);
04489 
04490 doublereal slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab, 
04491      integer *ldab, real *work);
04492 
04493 doublereal slange_(char *norm, integer *m, integer *n, real *a, integer *lda, 
04494     real *work);
04495 
04496 doublereal slangt_(char *norm, integer *n, real *dl, real *d__, real *du);
04497 
04498 doublereal slanhs_(char *norm, integer *n, real *a, integer *lda, real *work);
04499 
04500 doublereal slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab, 
04501     integer *ldab, real *work);
04502 
04503 doublereal slansf_(char *norm, char *transr, char *uplo, integer *n, real *a, 
04504     real *work);
04505 
04506 doublereal slansp_(char *norm, char *uplo, integer *n, real *ap, real *work);
04507 
04508 doublereal slanst_(char *norm, integer *n, real *d__, real *e);
04509 
04510 doublereal slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda, 
04511     real *work);
04512 
04513 doublereal slantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 
04514      real *ab, integer *ldab, real *work);
04515 
04516 doublereal slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap, 
04517     real *work);
04518 
04519 doublereal slantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 
04520      real *a, integer *lda, real *work);
04521 
04522 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real *
04523     rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
04524 
04525 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y, 
04526     integer *incy, real *ssmin);
04527 
04528 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x, 
04529      integer *ldx, integer *k);
04530 
04531 doublereal slapy2_(real *x, real *y);
04532 
04533 doublereal slapy3_(real *x, real *y, real *z__);
04534 
04535 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku, 
04536      real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
04537     colcnd, real *amax, char *equed);
04538 
04539 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda, 
04540     real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
04541     equed);
04542 
04543 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a, 
04544      integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *
04545     work);
04546 
04547 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer 
04548     *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau, 
04549     real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
04550 
04551 /* Subroutine */ int slaqr0_(logical *wantt, logical *wantz, integer *n, 
04552     integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
04553     wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work, 
04554      integer *lwork, integer *info);
04555 
04556 /* Subroutine */ int slaqr1_(integer *n, real *h__, integer *ldh, real *sr1, 
04557     real *si1, real *sr2, real *si2, real *v);
04558 
04559 /* Subroutine */ int slaqr2_(logical *wantt, logical *wantz, integer *n, 
04560     integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh, 
04561     integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns, 
04562     integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh, 
04563     real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real *
04564     work, integer *lwork);
04565 
04566 /* Subroutine */ int slaqr3_(logical *wantt, logical *wantz, integer *n, 
04567     integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh, 
04568     integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns, 
04569     integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh, 
04570     real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real *
04571     work, integer *lwork);
04572 
04573 /* Subroutine */ int slaqr4_(logical *wantt, logical *wantz, integer *n, 
04574     integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
04575     wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work, 
04576      integer *lwork, integer *info);
04577 
04578 /* Subroutine */ int slaqr5_(logical *wantt, logical *wantz, integer *kacc22, 
04579     integer *n, integer *ktop, integer *kbot, integer *nshfts, real *sr, 
04580     real *si, real *h__, integer *ldh, integer *iloz, integer *ihiz, real 
04581     *z__, integer *ldz, real *v, integer *ldv, real *u, integer *ldu, 
04582     integer *nv, real *wv, integer *ldwv, integer *nh, real *wh, integer *
04583     ldwh);
04584 
04585 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab, 
04586     integer *ldab, real *s, real *scond, real *amax, char *equed);
04587 
04588 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *
04589     scond, real *amax, char *equed);
04590 
04591 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda, 
04592     real *s, real *scond, real *amax, char *equed);
04593 
04594 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real 
04595     *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work, 
04596     integer *info);
04597 
04598 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real *
04599     lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
04600     gaptol, real *z__, logical *wantnc, integer *negcnt, real *ztz, real *
04601     mingma, integer *r__, integer *isuppz, real *nrminv, real *resid, 
04602     real *rqcorr, real *work);
04603 
04604 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer 
04605     *incx, real *c__, real *s, integer *incc);
04606 
04607 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v, 
04608     integer *incv, real *tau, real *c__, integer *ldc, real *work);
04609 
04610 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char *
04611     storev, integer *m, integer *n, integer *k, real *v, integer *ldv, 
04612     real *t, integer *ldt, real *c__, integer *ldc, real *work, integer *
04613     ldwork);
04614 
04615 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx, 
04616     real *tau);
04617 
04618 /* Subroutine */ int slarfp_(integer *n, real *alpha, real *x, integer *incx, 
04619     real *tau);
04620 
04621 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer *
04622     k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
04623 
04624 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v, 
04625     real *tau, real *c__, integer *ldc, real *work);
04626 
04627 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y, 
04628     integer *incy, real *c__, integer *incc);
04629 
04630 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real 
04631     *x);
04632 
04633 /* Subroutine */ int slarra_(integer *n, real *d__, real *e, real *e2, real *
04634     spltol, real *tnrm, integer *nsplit, integer *isplit, integer *info);
04635 
04636 /* Subroutine */ int slarrb_(integer *n, real *d__, real *lld, integer *
04637     ifirst, integer *ilast, real *rtol1, real *rtol2, integer *offset, 
04638     real *w, real *wgap, real *werr, real *work, integer *iwork, real *
04639     pivmin, real *spdiam, integer *twist, integer *info);
04640 
04641 /* Subroutine */ int slarrc_(char *jobt, integer *n, real *vl, real *vu, real 
04642     *d__, real *e, real *pivmin, integer *eigcnt, integer *lcnt, integer *
04643     rcnt, integer *info);
04644 
04645 /* Subroutine */ int slarrd_(char *range, char *order, integer *n, real *vl, 
04646     real *vu, integer *il, integer *iu, real *gers, real *reltol, real *
04647     d__, real *e, real *e2, real *pivmin, integer *nsplit, integer *
04648     isplit, integer *m, real *w, real *werr, real *wl, real *wu, integer *
04649     iblock, integer *indexw, real *work, integer *iwork, integer *info);
04650 
04651 /* Subroutine */ int slarre_(char *range, integer *n, real *vl, real *vu, 
04652     integer *il, integer *iu, real *d__, real *e, real *e2, real *rtol1, 
04653     real *rtol2, real *spltol, integer *nsplit, integer *isplit, integer *
04654     m, real *w, real *werr, real *wgap, integer *iblock, integer *indexw, 
04655     real *gers, real *pivmin, real *work, integer *iwork, integer *info);
04656 
04657 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld, 
04658     integer *clstrt, integer *clend, real *w, real *wgap, real *werr, 
04659     real *spdiam, real *clgapl, real *clgapr, real *pivmin, real *sigma, 
04660     real *dplus, real *lplus, real *work, integer *info);
04661 
04662 /* Subroutine */ int slarrj_(integer *n, real *d__, real *e2, integer *ifirst, 
04663      integer *ilast, real *rtol, integer *offset, real *w, real *werr, 
04664     real *work, integer *iwork, real *pivmin, real *spdiam, integer *info);
04665 
04666 /* Subroutine */ int slarrk_(integer *n, integer *iw, real *gl, real *gu, 
04667     real *d__, real *e2, real *pivmin, real *reltol, real *w, real *werr, 
04668     integer *info);
04669 
04670 /* Subroutine */ int slarrr_(integer *n, real *d__, real *e, integer *info);
04671 
04672 /* Subroutine */ int slarrv_(integer *n, real *vl, real *vu, real *d__, real *
04673     l, real *pivmin, integer *isplit, integer *m, integer *dol, integer *
04674     dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr, 
04675     real *wgap, integer *iblock, integer *indexw, real *gers, real *z__, 
04676     integer *ldz, integer *isuppz, real *work, integer *iwork, integer *
04677     info);
04678 
04679 /* Subroutine */ int slarscl2_(integer *m, integer *n, real *d__, real *x, 
04680     integer *ldx);
04681 
04682 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
04683 
04684 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y, 
04685     integer *incy, real *c__, real *s, integer *incc);
04686 
04687 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x);
04688 
04689 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l, 
04690     real *v, integer *incv, real *tau, real *c__, integer *ldc, real *
04691     work);
04692 
04693 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char *
04694     storev, integer *m, integer *n, integer *k, integer *l, real *v, 
04695     integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *
04696     work, integer *ldwork);
04697 
04698 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer *
04699     k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
04700 
04701 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real *
04702     ssmax);
04703 
04704 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real *
04705     cfrom, real *cto, integer *m, integer *n, real *a, integer *lda, 
04706     integer *info);
04707 
04708 /* Subroutine */ int slascl2_(integer *m, integer *n, real *d__, real *x, 
04709     integer *ldx);
04710 
04711 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e, 
04712     real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz, 
04713     integer *iwork, real *work, integer *info);
04714 
04715 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real *
04716     d__, real *alpha, real *beta, real *u, integer *ldu, real *vt, 
04717     integer *ldvt, integer *idxq, integer *iwork, real *work, integer *
04718     info);
04719 
04720 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer 
04721     *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer *
04722     ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2, 
04723     real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc, 
04724      integer *idxq, integer *coltyp, integer *info);
04725 
04726 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer 
04727     *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer *
04728     ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2, 
04729     integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer *
04730     info);
04731 
04732 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__, 
04733     real *delta, real *rho, real *sigma, real *work, integer *info);
04734 
04735 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta, 
04736     real *rho, real *dsigma, real *work);
04737 
04738 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr, 
04739     integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta, 
04740      integer *idxq, integer *perm, integer *givptr, integer *givcol, 
04741     integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
04742     difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
04743     work, integer *iwork, integer *info);
04744 
04745 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr, 
04746     integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf, 
04747     real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma, 
04748      integer *idx, integer *idxp, integer *idxq, integer *perm, integer *
04749     givptr, integer *givcol, integer *ldgcol, real *givnum, integer *
04750     ldgnum, real *c__, real *s, integer *info);
04751 
04752 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real *
04753     z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr, 
04754     real *dsigma, real *work, integer *info);
04755 
04756 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n, 
04757     integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt, 
04758     integer *k, real *difl, real *difr, real *z__, real *poles, integer *
04759     givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum, 
04760      real *c__, real *s, real *work, integer *iwork, integer *info);
04761 
04762 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer *
04763     ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt, 
04764     integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *
04765     work, integer *info);
04766 
04767 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer *
04768     inode, integer *ndiml, integer *ndimr, integer *msub);
04769 
04770 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha, 
04771     real *beta, real *a, integer *lda);
04772 
04773 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work, 
04774     integer *info);
04775 
04776 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info);
04777 
04778 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp, 
04779      real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail, 
04780     integer *iter, integer *ndiv, logical *ieee, integer *ttype, real *
04781     dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *g, real *
04782     tau);
04783 
04784 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp, 
04785      integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn, 
04786     real *dn1, real *dn2, real *tau, integer *ttype, real *g);
04787 
04788 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp, 
04789      real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *
04790     dnm1, real *dnm2, logical *ieee);
04791 
04792 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp, 
04793      real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *
04794     dnm2);
04795 
04796 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m, 
04797      integer *n, real *c__, real *s, real *a, integer *lda);
04798 
04799 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info);
04800 
04801 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale, 
04802     real *sumsq);
04803 
04804 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
04805     ssmax, real *snr, real *csr, real *snl, real *csl);
04806 
04807 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1, 
04808     integer *k2, integer *ipiv, integer *incx);
04809 
04810 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn, 
04811     integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *
04812     ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real 
04813     *xnorm, integer *info);
04814 
04815 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb, 
04816      real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer 
04817     *info);
04818 
04819 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char *
04820     normin, integer *n, integer *kd, real *ab, integer *ldab, real *x, 
04821     real *scale, real *cnorm, integer *info);
04822 
04823 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer *
04824     ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *
04825     jpiv);
04826 
04827 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char *
04828     normin, integer *n, real *ap, real *x, real *scale, real *cnorm, 
04829     integer *info);
04830 
04831 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a, 
04832     integer *lda, real *e, real *tau, real *w, integer *ldw);
04833 
04834 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char *
04835     normin, integer *n, real *a, integer *lda, real *x, real *scale, real 
04836     *cnorm, integer *info);
04837 
04838 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a, 
04839     integer *lda, real *tau, real *work);
04840 
04841 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v, 
04842     integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
04843     work);
04844 
04845 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda, 
04846     integer *info);
04847 
04848 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda, 
04849     integer *info);
04850 
04851 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau, 
04852     real *q, integer *ldq, real *work, integer *info);
04853 
04854 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m, 
04855     integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work, 
04856     integer *info);
04857 
04858 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a, 
04859     integer *lda, real *tau, real *work, integer *info);
04860 
04861 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a, 
04862     integer *lda, real *tau, real *work, integer *info);
04863 
04864 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k, 
04865     real *a, integer *lda, real *tau, real *work, integer *lwork, integer 
04866     *info);
04867 
04868 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a, 
04869     integer *lda, real *tau, real *work, integer *lwork, integer *info);
04870 
04871 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a, 
04872     integer *lda, real *tau, real *work, integer *info);
04873 
04874 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a, 
04875     integer *lda, real *tau, real *work, integer *lwork, integer *info);
04876 
04877 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a, 
04878     integer *lda, real *tau, real *work, integer *lwork, integer *info);
04879 
04880 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a, 
04881     integer *lda, real *tau, real *work, integer *lwork, integer *info);
04882 
04883 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a, 
04884     integer *lda, real *tau, real *work, integer *info);
04885 
04886 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a, 
04887     integer *lda, real *tau, real *work, integer *lwork, integer *info);
04888 
04889 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda, 
04890     real *tau, real *work, integer *lwork, integer *info);
04891 
04892 /* Subroutine */ int sorm2l_(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 sorm2r_(char *side, char *trans, integer *m, integer *n, 
04897     integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 
04898      real *work, integer *info);
04899 
04900 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m, 
04901     integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, 
04902     integer *ldc, real *work, integer *lwork, integer *info);
04903 
04904 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n, 
04905     integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *
04906     c__, integer *ldc, real *work, integer *lwork, integer *info);
04907 
04908 /* Subroutine */ int sorml2_(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 *info);
04911 
04912 /* Subroutine */ int sormlq_(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 sormql_(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 sormqr_(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 *lwork, integer *info);
04923 
04924 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n, 
04925     integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 
04926      real *work, integer *info);
04927 
04928 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n, 
04929     integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, 
04930     integer *ldc, real *work, integer *info);
04931 
04932 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n, 
04933     integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, 
04934      real *work, integer *lwork, integer *info);
04935 
04936 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n, 
04937     integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, 
04938     integer *ldc, real *work, integer *lwork, integer *info);
04939 
04940 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m, 
04941     integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc, 
04942      real *work, integer *lwork, integer *info);
04943 
04944 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab, 
04945     integer *ldab, real *anorm, real *rcond, real *work, integer *iwork, 
04946     integer *info);
04947 
04948 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab, 
04949     integer *ldab, real *s, real *scond, real *amax, integer *info);
04950 
04951 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer *
04952     nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b, 
04953     integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
04954     work, integer *iwork, integer *info);
04955 
04956 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab, 
04957     integer *ldab, integer *info);
04958 
04959 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer *
04960     nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
04961 
04962 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
04963     integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, 
04964     char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, 
04965     real *rcond, real *ferr, real *berr, real *work, integer *iwork, 
04966     integer *info);
04967 
04968 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab, 
04969     integer *ldab, integer *info);
04970 
04971 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab, 
04972     integer *ldab, integer *info);
04973 
04974 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer *
04975     nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
04976 
04977 /* Subroutine */ int spftrf_(char *transr, char *uplo, integer *n, real *a, 
04978     integer *info);
04979 
04980 /* Subroutine */ int spftri_(char *transr, char *uplo, integer *n, real *a, 
04981     integer *info);
04982 
04983 /* Subroutine */ int spftrs_(char *transr, char *uplo, integer *n, integer *
04984     nrhs, real *a, real *b, integer *ldb, integer *info);
04985 
04986 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda, 
04987     real *anorm, real *rcond, real *work, integer *iwork, integer *info);
04988 
04989 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real 
04990     *scond, real *amax, integer *info);
04991 
04992 /* Subroutine */ int spoequb_(integer *n, real *a, integer *lda, real *s, 
04993     real *scond, real *amax, integer *info);
04994 
04995 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a, 
04996     integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x, 
04997      integer *ldx, real *ferr, real *berr, real *work, integer *iwork, 
04998     integer *info);
04999 
05000 /* Subroutine */ int sporfsx_(char *uplo, char *equed, integer *n, integer *
05001     nrhs, real *a, integer *lda, real *af, integer *ldaf, real *s, real *
05002     b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr, 
05003     integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, 
05004     integer *nparams, real *params, real *work, integer *iwork, integer *
05005     info);
05006 
05007 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a, 
05008     integer *lda, real *b, integer *ldb, integer *info);
05009 
05010 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer *
05011     nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, 
05012     real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 
05013     real *ferr, real *berr, real *work, integer *iwork, integer *info);
05014 
05015 /* Subroutine */ int sposvxx_(char *fact, char *uplo, integer *n, integer *
05016     nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, 
05017     real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 
05018     real *rpvgrw, real *berr, integer *n_err_bnds__, real *
05019     err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
05020     params, real *work, integer *iwork, integer *info);
05021 
05022 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda, 
05023     integer *info);
05024 
05025 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda, 
05026     integer *info);
05027 
05028 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda, 
05029     integer *info);
05030 
05031 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, 
05032     integer *lda, real *b, integer *ldb, integer *info);
05033 
05034 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm, 
05035     real *rcond, real *work, integer *iwork, integer *info);
05036 
05037 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real *
05038     scond, real *amax, integer *info);
05039 
05040 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap, 
05041     real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr, 
05042     real *berr, real *work, integer *iwork, integer *info);
05043 
05044 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, 
05045     real *b, integer *ldb, integer *info);
05046 
05047 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer *
05048     nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *
05049     ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real 
05050     *work, integer *iwork, integer *info);
05051 
05052 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info);
05053 
05054 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info);
05055 
05056 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, 
05057     real *b, integer *ldb, integer *info);
05058 
05059 /* Subroutine */ int spstf2_(char *uplo, integer *n, real *a, integer *lda, 
05060     integer *piv, integer *rank, real *tol, real *work, integer *info);
05061 
05062 /* Subroutine */ int spstrf_(char *uplo, integer *n, real *a, integer *lda, 
05063     integer *piv, integer *rank, real *tol, real *work, integer *info);
05064 
05065 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm, 
05066     real *rcond, real *work, integer *info);
05067 
05068 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e, 
05069     real *z__, integer *ldz, real *work, integer *info);
05070 
05071 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e, 
05072     real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx, 
05073     real *ferr, real *berr, real *work, integer *info);
05074 
05075 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e, 
05076     real *b, integer *ldb, integer *info);
05077 
05078 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__, 
05079      real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer 
05080     *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info);
05081 
05082 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info);
05083 
05084 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e, 
05085     real *b, integer *ldb, integer *info);
05086 
05087 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e, 
05088     real *b, integer *ldb);
05089 
05090 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx);
05091 
05092 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd, 
05093     real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, 
05094      integer *info);
05095 
05096 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
05097     real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, 
05098      integer *lwork, integer *iwork, integer *liwork, integer *info);
05099 
05100 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n, 
05101     integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl, 
05102      real *vu, integer *il, integer *iu, real *abstol, integer *m, real *
05103     w, real *z__, integer *ldz, real *work, integer *iwork, integer *
05104     ifail, integer *info);
05105 
05106 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka, 
05107     integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
05108     x, integer *ldx, real *work, integer *info);
05109 
05110 /* Subroutine */ int ssbgv_(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 *info);
05113 
05114 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 
05115     integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
05116     w, real *z__, integer *ldz, real *work, integer *lwork, integer *
05117     iwork, integer *liwork, integer *info);
05118 
05119 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n, 
05120     integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *
05121     ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer 
05122     *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real 
05123     *work, integer *iwork, integer *ifail, integer *info);
05124 
05125 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd, 
05126     real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq, 
05127     real *work, integer *info);
05128 
05129 /* Subroutine */ int ssfrk_(char *transr, char *uplo, char *trans, integer *n, 
05130      integer *k, real *alpha, real *a, integer *lda, real *beta, real *
05131     c__);
05132 
05133 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, 
05134     real *anorm, real *rcond, real *work, integer *iwork, integer *info);
05135 
05136 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap, 
05137     real *w, real *z__, integer *ldz, real *work, integer *info);
05138 
05139 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap, 
05140     real *w, real *z__, integer *ldz, real *work, integer *lwork, integer 
05141     *iwork, integer *liwork, integer *info);
05142 
05143 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n, 
05144     real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
05145     integer *m, real *w, real *z__, integer *ldz, real *work, integer *
05146     iwork, integer *ifail, integer *info);
05147 
05148 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap, 
05149      real *bp, integer *info);
05150 
05151 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer *
05152     n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, 
05153     integer *info);
05154 
05155 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer *
05156     n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, 
05157     integer *lwork, integer *iwork, integer *liwork, integer *info);
05158 
05159 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char *
05160     uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il, 
05161      integer *iu, real *abstol, integer *m, real *w, real *z__, integer *
05162     ldz, real *work, integer *iwork, integer *ifail, integer *info);
05163 
05164 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap, 
05165     real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *
05166     ldx, real *ferr, real *berr, real *work, integer *iwork, integer *
05167     info);
05168 
05169 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, 
05170     integer *ipiv, real *b, integer *ldb, integer *info);
05171 
05172 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer *
05173     nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real 
05174     *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, 
05175     integer *iwork, integer *info);
05176 
05177 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__, 
05178     real *e, real *tau, integer *info);
05179 
05180 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv, 
05181     integer *info);
05182 
05183 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, 
05184     real *work, integer *info);
05185 
05186 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, 
05187     integer *ipiv, real *b, integer *ldb, integer *info);
05188 
05189 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl, 
05190     real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e, 
05191     integer *m, integer *nsplit, real *w, integer *iblock, integer *
05192     isplit, real *work, integer *iwork, integer *info);
05193 
05194 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e, 
05195     real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, 
05196     integer *liwork, integer *info);
05197 
05198 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__, 
05199     real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
05200     integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
05201     work, integer *lwork, integer *iwork, integer *liwork, integer *info);
05202 
05203 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real 
05204     *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real *
05205     work, integer *iwork, integer *ifail, integer *info);
05206 
05207 /* Subroutine */ int sstemr_(char *jobz, char *range, integer *n, real *d__, 
05208     real *e, real *vl, real *vu, integer *il, integer *iu, integer *m, 
05209     real *w, real *z__, integer *ldz, integer *nzc, integer *isuppz, 
05210     logical *tryrac, real *work, integer *lwork, integer *iwork, integer *
05211     liwork, integer *info);
05212 
05213 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e, 
05214     real *z__, integer *ldz, real *work, integer *info);
05215 
05216 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info);
05217 
05218 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real *
05219     z__, integer *ldz, real *work, integer *info);
05220 
05221 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real 
05222     *z__, integer *ldz, real *work, integer *lwork, integer *iwork, 
05223     integer *liwork, integer *info);
05224 
05225 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__, 
05226     real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
05227     integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
05228     work, integer *lwork, integer *iwork, integer *liwork, integer *info);
05229 
05230 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__, 
05231     real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
05232     integer *m, real *w, real *z__, integer *ldz, real *work, integer *
05233     iwork, integer *ifail, integer *info);
05234 
05235 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda, 
05236     integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, 
05237     integer *info);
05238 
05239 /* Subroutine */ int ssyequb_(char *uplo, integer *n, real *a, integer *lda, 
05240     real *s, real *scond, real *amax, real *work, integer *info);
05241 
05242 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a, 
05243     integer *lda, real *w, real *work, integer *lwork, integer *info);
05244 
05245 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a, 
05246     integer *lda, real *w, real *work, integer *lwork, integer *iwork, 
05247     integer *liwork, integer *info);
05248 
05249 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n, 
05250     real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, 
05251     real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *
05252     isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, 
05253     integer *info);
05254 
05255 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n, 
05256     real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, 
05257     real *abstol, integer *m, real *w, real *z__, integer *ldz, real *
05258     work, integer *lwork, integer *iwork, integer *ifail, integer *info);
05259 
05260 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a, 
05261     integer *lda, real *b, integer *ldb, integer *info);
05262 
05263 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a, 
05264     integer *lda, real *b, integer *ldb, integer *info);
05265 
05266 /* Subroutine */ int ssygv_(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 *info);
05269 
05270 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer *
05271     n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, 
05272     integer *lwork, integer *iwork, integer *liwork, integer *info);
05273 
05274 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char *
05275     uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
05276     vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, 
05277     real *w, real *z__, integer *ldz, real *work, integer *lwork, integer 
05278     *iwork, integer *ifail, integer *info);
05279 
05280 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a, 
05281     integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, 
05282     integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
05283     work, integer *iwork, integer *info);
05284 
05285 /* Subroutine */ int ssyrfsx_(char *uplo, char *equed, integer *n, integer *
05286     nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 
05287     real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 
05288     real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *
05289     err_bnds_comp__, integer *nparams, real *params, real *work, integer *
05290     iwork, integer *info);
05291 
05292 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a, 
05293     integer *lda, integer *ipiv, real *b, integer *ldb, real *work, 
05294     integer *lwork, integer *info);
05295 
05296 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer *
05297     nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 
05298     real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, 
05299      real *berr, real *work, integer *lwork, integer *iwork, integer *
05300     info);
05301 
05302 /* Subroutine */ int ssysvxx_(char *fact, char *uplo, integer *n, integer *
05303     nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 
05304     char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, 
05305     real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real *
05306     err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
05307     params, real *work, integer *iwork, integer *info);
05308 
05309 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda, 
05310     real *d__, real *e, real *tau, integer *info);
05311 
05312 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda, 
05313     integer *ipiv, integer *info);
05314 
05315 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda, 
05316     real *d__, real *e, real *tau, real *work, integer *lwork, integer *
05317     info);
05318 
05319 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda, 
05320     integer *ipiv, real *work, integer *lwork, integer *info);
05321 
05322 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda, 
05323     integer *ipiv, real *work, integer *info);
05324 
05325 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, 
05326     integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
05327 
05328 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n, 
05329     integer *kd, real *ab, integer *ldab, real *rcond, real *work, 
05330     integer *iwork, integer *info);
05331 
05332 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n, 
05333     integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer 
05334     *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, 
05335     integer *iwork, integer *info);
05336 
05337 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n, 
05338     integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer 
05339     *ldb, integer *info);
05340 
05341 /* Subroutine */ int stfsm_(char *transr, char *side, char *uplo, char *trans, 
05342      char *diag, integer *m, integer *n, real *alpha, real *a, real *b, 
05343     integer *ldb);
05344 
05345 /* Subroutine */ int stftri_(char *transr, char *uplo, char *diag, integer *n, 
05346      real *a, integer *info);
05347 
05348 /* Subroutine */ int stfttp_(char *transr, char *uplo, integer *n, real *arf, 
05349     real *ap, integer *info);
05350 
05351 /* Subroutine */ int stfttr_(char *transr, char *uplo, integer *n, real *arf, 
05352     real *a, integer *lda, integer *info);
05353 
05354 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select, 
05355     integer *n, real *s, integer *lds, real *p, integer *ldp, real *vl, 
05356     integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real 
05357     *work, integer *info);
05358 
05359 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real 
05360     *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
05361     z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work, 
05362     integer *lwork, integer *info);
05363 
05364 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real 
05365     *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
05366     z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer *
05367     lwork, integer *info);
05368 
05369 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz, 
05370     logical *select, integer *n, real *a, integer *lda, real *b, integer *
05371     ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq, 
05372     real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif, 
05373     real *work, integer *lwork, integer *iwork, integer *liwork, integer *
05374     info);
05375 
05376 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m, 
05377     integer *p, integer *n, integer *k, integer *l, real *a, integer *lda, 
05378      real *b, integer *ldb, real *tola, real *tolb, real *alpha, real *
05379     beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *
05380     ldq, real *work, integer *ncycle, integer *info);
05381 
05382 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select, 
05383     integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, 
05384     integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer *
05385     mm, integer *m, real *work, integer *lwork, integer *iwork, integer *
05386     info);
05387 
05388 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer *
05389     n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
05390     ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer 
05391     *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer 
05392     *pq, integer *info);
05393 
05394 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer *
05395     n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
05396     ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer 
05397     *ldf, real *scale, real *dif, real *work, integer *lwork, integer *
05398     iwork, integer *info);
05399 
05400 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n, 
05401     real *ap, real *rcond, real *work, integer *iwork, integer *info);
05402 
05403 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n, 
05404     integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx, 
05405      real *ferr, real *berr, real *work, integer *iwork, integer *info);
05406 
05407 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap, 
05408     integer *info);
05409 
05410 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n, 
05411     integer *nrhs, real *ap, real *b, integer *ldb, integer *info);
05412 
05413 /* Subroutine */ int stpttf_(char *transr, char *uplo, integer *n, real *ap, 
05414     real *arf, integer *info);
05415 
05416 /* Subroutine */ int stpttr_(char *uplo, integer *n, real *ap, real *a, 
05417     integer *lda, integer *info);
05418 
05419 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n, 
05420     real *a, integer *lda, real *rcond, real *work, integer *iwork, 
05421     integer *info);
05422 
05423 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select, 
05424     integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, 
05425     integer *ldvr, integer *mm, integer *m, real *work, integer *info);
05426 
05427 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt, 
05428     real *q, integer *ldq, integer *ifst, integer *ilst, real *work, 
05429     integer *info);
05430 
05431 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n, 
05432     integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x, 
05433     integer *ldx, real *ferr, real *berr, real *work, integer *iwork, 
05434     integer *info);
05435 
05436 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer 
05437     *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi, 
05438     integer *m, real *s, real *sep, real *work, integer *lwork, integer *
05439     iwork, integer *liwork, integer *info);
05440 
05441 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select, 
05442     integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, 
05443     integer *ldvr, real *s, real *sep, integer *mm, integer *m, real *
05444     work, integer *ldwork, integer *iwork, integer *info);
05445 
05446 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer 
05447     *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
05448     c__, integer *ldc, real *scale, integer *info);
05449 
05450 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a, 
05451     integer *lda, integer *info);
05452 
05453 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a, 
05454     integer *lda, integer *info);
05455 
05456 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n, 
05457     integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *
05458     info);
05459 
05460 /* Subroutine */ int strttf_(char *transr, char *uplo, integer *n, real *a, 
05461     integer *lda, real *arf, integer *info);
05462 
05463 /* Subroutine */ int strttp_(char *uplo, integer *n, real *a, integer *lda, 
05464     real *ap, integer *info);
05465 
05466 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda, 
05467     real *tau, integer *info);
05468 
05469 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda, 
05470     real *tau, real *work, integer *lwork, integer *info);
05471 
05472 /* Subroutine */ int xerbla_(char *srname, integer *info);
05473 
05474 /* Subroutine */ int xerbla_array__(char *srname_array__, integer *
05475     srname_len__, integer *info, ftnlen srname_array_len);
05476 
05477 /* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
05478     nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt, 
05479     integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__, 
05480     integer *ldc, doublereal *rwork, integer *info);
05481 
05482 /* Subroutine */ int zcgesv_(integer *n, integer *nrhs, doublecomplex *a, 
05483     integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, 
05484     doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, 
05485     doublereal *rwork, integer *iter, integer *info);
05486 
05487 /* Subroutine */ int zcposv_(char *uplo, integer *n, integer *nrhs, 
05488     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05489     doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork, 
05490     doublereal *rwork, integer *iter, integer *info);
05491 
05492 /* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, 
05493     integer *incx);
05494 
05495 /* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc, 
05496      integer *kl, integer *ku, doublecomplex *ab, integer *ldab, 
05497     doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, 
05498     doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc, 
05499     doublecomplex *work, doublereal *rwork, integer *info);
05500 
05501 /* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku, 
05502      doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm, 
05503     doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *
05504     info);
05505 
05506 /* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku, 
05507      doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, 
05508     doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
05509     info);
05510 
05511 /* Subroutine */ int zgbequb_(integer *m, integer *n, integer *kl, integer *
05512     ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *
05513     c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, 
05514     integer *info);
05515 
05516 /* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer *
05517     ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *
05518     afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb, 
05519     doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 
05520     doublecomplex *work, doublereal *rwork, integer *info);
05521 
05522 /* Subroutine */ int zgbrfsx_(char *trans, char *equed, integer *n, integer *
05523     kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 
05524     doublecomplex *afb, integer *ldafb, integer *ipiv, doublereal *r__, 
05525     doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x, 
05526     integer *ldx, doublereal *rcond, doublereal *berr, integer *
05527     n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
05528     err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
05529     work, doublereal *rwork, integer *info);
05530 
05531 /* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer *
05532     nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *
05533     b, integer *ldb, integer *info);
05534 
05535 /* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl, 
05536      integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 
05537     doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, 
05538     doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, 
05539     doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
05540     doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
05541     info);
05542 
05543 /* Subroutine */ int zgbsvxx_(char *fact, char *trans, integer *n, integer *
05544     kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 
05545     doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, 
05546     doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, 
05547     doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 
05548      doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 
05549      doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 
05550     doublecomplex *work, doublereal *rwork, integer *info);
05551 
05552 /* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku, 
05553      doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
05554 
05555 /* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku, 
05556      doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
05557 
05558 /* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer *
05559     ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, 
05560     doublecomplex *b, integer *ldb, integer *info);
05561 
05562 /* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo, 
05563     integer *ihi, doublereal *scale, integer *m, doublecomplex *v, 
05564     integer *ldv, integer *info);
05565 
05566 /* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer 
05567     *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
05568 
05569 /* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a, 
05570     integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, 
05571     doublecomplex *taup, doublecomplex *work, integer *info);
05572 
05573 /* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a, 
05574     integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, 
05575     doublecomplex *taup, doublecomplex *work, integer *lwork, integer *
05576     info);
05577 
05578 /* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a, 
05579     integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
05580     work, doublereal *rwork, integer *info);
05581 
05582 /* Subroutine */ int zgeequ_(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 zgeequb_(integer *m, integer *n, doublecomplex *a, 
05587     integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 
05588     doublereal *colcnd, doublereal *amax, integer *info);
05589 
05590 /* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n, 
05591     doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, 
05592     doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork, 
05593      doublereal *rwork, logical *bwork, integer *info);
05594 
05595 /* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char *
05596     sense, integer *n, doublecomplex *a, integer *lda, integer *sdim, 
05597     doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *
05598     rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, 
05599     doublereal *rwork, logical *bwork, integer *info);
05600 
05601 /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n, 
05602     doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, 
05603     integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, 
05604     integer *lwork, doublereal *rwork, integer *info);
05605 
05606 /* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *
05607     sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w, 
05608     doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 
05609     integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm, 
05610     doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *
05611     lwork, doublereal *rwork, integer *info);
05612 
05613 /* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n, 
05614     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05615     doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, 
05616     integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *
05617     work, integer *lwork, doublereal *rwork, integer *info);
05618 
05619 /* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n, 
05620     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05621     doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer 
05622     *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer 
05623     *lwork, doublereal *rwork, integer *info);
05624 
05625 /* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi, 
05626     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05627     work, integer *info);
05628 
05629 /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi, 
05630     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05631     work, integer *lwork, integer *info);
05632 
05633 /* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a, 
05634     integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
05635 
05636 /* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a, 
05637     integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 
05638      integer *info);
05639 
05640 /* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer *
05641     nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05642     doublecomplex *work, integer *lwork, integer *info);
05643 
05644 /* Subroutine */ int zgelsd_(integer *m, integer *n, integer *nrhs, 
05645     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05646     doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, 
05647     integer *lwork, doublereal *rwork, integer *iwork, integer *info);
05648 
05649 /* Subroutine */ int zgelss_(integer *m, integer *n, integer *nrhs, 
05650     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05651     doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, 
05652     integer *lwork, doublereal *rwork, integer *info);
05653 
05654 /* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs, 
05655     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05656     integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, 
05657     doublereal *rwork, integer *info);
05658 
05659 /* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs, 
05660     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05661     integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, 
05662     integer *lwork, doublereal *rwork, integer *info);
05663 
05664 /* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a, 
05665     integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
05666 
05667 /* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a, 
05668     integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 
05669      integer *info);
05670 
05671 /* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a, 
05672     integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, 
05673     integer *lwork, doublereal *rwork, integer *info);
05674 
05675 /* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a, 
05676     integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, 
05677     doublereal *rwork, integer *info);
05678 
05679 /* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a, 
05680     integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
05681 
05682 /* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a, 
05683     integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 
05684      integer *info);
05685 
05686 /* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs, 
05687     doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
05688     integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 
05689     integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 
05690      doublereal *rwork, integer *info);
05691 
05692 /* Subroutine */ int zgerfsx_(char *trans, char *equed, integer *n, integer *
05693     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
05694     ldaf, integer *ipiv, doublereal *r__, doublereal *c__, doublecomplex *
05695     b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 
05696     doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 
05697     doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 
05698     doublecomplex *work, doublereal *rwork, integer *info);
05699 
05700 /* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a, 
05701     integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
05702 
05703 /* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a, 
05704     integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 
05705      integer *info);
05706 
05707 /* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda, 
05708     doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
05709 
05710 /* Subroutine */ int zgesdd_(char *jobz, integer *m, integer *n, 
05711     doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, 
05712     integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, 
05713     integer *lwork, doublereal *rwork, integer *iwork, integer *info);
05714 
05715 /* Subroutine */ int zgesv_(integer *n, integer *nrhs, doublecomplex *a, 
05716     integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *
05717     info);
05718 
05719 /* Subroutine */ int zgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 
05720     doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, 
05721     integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, 
05722     integer *lwork, doublereal *rwork, integer *info);
05723 
05724 /* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer *
05725     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
05726     ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 
05727     doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
05728     doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
05729     work, doublereal *rwork, integer *info);
05730 
05731 /* Subroutine */ int zgesvxx_(char *fact, char *trans, integer *n, integer *
05732     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
05733     ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 
05734     doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
05735     doublereal *rcond, doublereal *rpvgrw, doublereal *berr, integer *
05736     n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
05737     err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
05738     work, doublereal *rwork, integer *info);
05739 
05740 /* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda, 
05741     integer *ipiv, integer *jpiv, integer *info);
05742 
05743 /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a, 
05744     integer *lda, integer *ipiv, integer *info);
05745 
05746 /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a, 
05747     integer *lda, integer *ipiv, integer *info);
05748 
05749 /* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda, 
05750     integer *ipiv, doublecomplex *work, integer *lwork, integer *info);
05751 
05752 /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs, 
05753     doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
05754     integer *ldb, integer *info);
05755 
05756 /* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo, 
05757     integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 
05758     doublecomplex *v, integer *ldv, integer *info);
05759 
05760 /* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer 
05761     *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi, 
05762     doublereal *lscale, doublereal *rscale, doublereal *work, integer *
05763     info);
05764 
05765 /* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
05766     selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 
05767     integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
05768     beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer 
05769     *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork, 
05770     logical *bwork, integer *info);
05771 
05772 /* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
05773     selctg, char *sense, integer *n, doublecomplex *a, integer *lda, 
05774     doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, 
05775     doublecomplex *beta, doublecomplex *vsl, integer *ldvsl, 
05776     doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *
05777     rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, 
05778     integer *iwork, integer *liwork, logical *bwork, integer *info);
05779 
05780 /* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n, 
05781     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05782     doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer 
05783     *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer 
05784     *lwork, doublereal *rwork, integer *info);
05785 
05786 /* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char *
05787     sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 
05788     integer *ldb, doublecomplex *alpha, doublecomplex *beta, 
05789     doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 
05790     integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 
05791     doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
05792     rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, 
05793     integer *iwork, logical *bwork, integer *info);
05794 
05795 /* Subroutine */ int zggglm_(integer *n, integer *m, integer *p, 
05796     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05797     doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex 
05798     *work, integer *lwork, integer *info);
05799 
05800 /* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer *
05801     ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b, 
05802     integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, 
05803     integer *ldz, integer *info);
05804 
05805 /* Subroutine */ int zgglse_(integer *m, integer *n, integer *p, 
05806     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05807     doublecomplex *c__, doublecomplex *d__, doublecomplex *x, 
05808     doublecomplex *work, integer *lwork, integer *info);
05809 
05810 /* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p, 
05811     doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, 
05812      integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
05813     lwork, integer *info);
05814 
05815 /* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n, 
05816     doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, 
05817      integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
05818     lwork, integer *info);
05819 
05820 /* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
05821     integer *n, integer *p, integer *k, integer *l, doublecomplex *a, 
05822     integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha, 
05823     doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, 
05824     integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work, 
05825     doublereal *rwork, integer *iwork, integer *info);
05826 
05827 /* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
05828     integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex 
05829     *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, 
05830     integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer 
05831     *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal *
05832     rwork, doublecomplex *tau, doublecomplex *work, integer *info);
05833 
05834 /* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl, 
05835     doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *
05836     ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, 
05837     integer *info);
05838 
05839 /* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs, 
05840     doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 
05841     doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, 
05842     doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 
05843     doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 
05844     doublecomplex *work, doublereal *rwork, integer *info);
05845 
05846 /* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, 
05847     doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb, 
05848      integer *info);
05849 
05850 /* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer *
05851     nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 
05852     doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, 
05853     doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 
05854     doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
05855     doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
05856     info);
05857 
05858 /* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *
05859     d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *
05860     info);
05861 
05862 /* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs, 
05863     doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 
05864     doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 
05865     integer *info);
05866 
05867 /* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs, 
05868     doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 
05869     doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb);
05870 
05871 /* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd, 
05872     doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, 
05873     integer *ldz, doublecomplex *work, doublereal *rwork, integer *info);
05874 
05875 /* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
05876     doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, 
05877     integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, 
05878     integer *lrwork, integer *iwork, integer *liwork, integer *info);
05879 
05880 /* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n, 
05881     integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q, 
05882     integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *
05883     iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, 
05884      integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork, 
05885      integer *ifail, integer *info);
05886 
05887 /* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka, 
05888     integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 
05889     integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work, 
05890     doublereal *rwork, integer *info);
05891 
05892 /* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka, 
05893     integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 
05894     integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, 
05895     doublecomplex *work, doublereal *rwork, integer *info);
05896 
05897 /* Subroutine */ int zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 
05898     integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 
05899     integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, 
05900     doublecomplex *work, integer *lwork, doublereal *rwork, integer *
05901     lrwork, integer *iwork, integer *liwork, integer *info);
05902 
05903 /* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n, 
05904     integer *ka, integer *kb, doublecomplex *ab, integer *ldab, 
05905     doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq, 
05906     doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *
05907     abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, 
05908     doublecomplex *work, doublereal *rwork, integer *iwork, integer *
05909     ifail, integer *info);
05910 
05911 /* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd, 
05912     doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, 
05913     doublecomplex *q, integer *ldq, doublecomplex *work, integer *info);
05914 
05915 /* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a, 
05916     integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, 
05917     doublecomplex *work, integer *info);
05918 
05919 /* Subroutine */ int zheequb_(char *uplo, integer *n, doublecomplex *a, 
05920     integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 
05921     doublecomplex *work, integer *info);
05922 
05923 /* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex 
05924     *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, 
05925     doublereal *rwork, integer *info);
05926 
05927 /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n, 
05928     doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, 
05929     integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, 
05930     integer *liwork, integer *info);
05931 
05932 /* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n, 
05933     doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, 
05934     integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
05935     w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex *
05936     work, integer *lwork, doublereal *rwork, integer *lrwork, integer *
05937     iwork, integer *liwork, integer *info);
05938 
05939 /* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n, 
05940     doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, 
05941     integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
05942     w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *
05943     lwork, doublereal *rwork, integer *iwork, integer *ifail, integer *
05944     info);
05945 
05946 /* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n, 
05947     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05948     integer *info);
05949 
05950 /* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n, 
05951     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05952     integer *info);
05953 
05954 /* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer *
05955     n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05956     doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, 
05957      integer *info);
05958 
05959 /* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer *
05960     n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
05961     doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, 
05962      integer *lrwork, integer *iwork, integer *liwork, integer *info);
05963 
05964 /* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char *
05965     uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 
05966     integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *
05967     iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, 
05968      integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, 
05969      integer *iwork, integer *ifail, integer *info);
05970 
05971 /* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs, 
05972     doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
05973     integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 
05974     integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 
05975      doublereal *rwork, integer *info);
05976 
05977 /* Subroutine */ int zherfsx_(char *uplo, char *equed, integer *n, integer *
05978     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
05979     ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb, 
05980     doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr, 
05981     integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
05982     err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
05983     work, doublereal *rwork, integer *info);
05984 
05985 /* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs, 
05986     doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
05987     integer *ldb, doublecomplex *work, integer *lwork, integer *info);
05988 
05989 /* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer *
05990     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
05991     ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 
05992      integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 
05993     doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
05994 
05995 /* Subroutine */ int zhesvxx_(char *fact, char *uplo, integer *n, integer *
05996     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
05997     ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b, 
05998     integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 
05999     doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 
06000     doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
06001     nparams, doublereal *params, doublecomplex *work, doublereal *rwork, 
06002     integer *info);
06003 
06004 /* Subroutine */ int zhetd2_(char *uplo, integer *n, doublecomplex *a, 
06005     integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, 
06006     integer *info);
06007 
06008 /* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a, 
06009     integer *lda, integer *ipiv, integer *info);
06010 
06011 /* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a, 
06012     integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, 
06013     doublecomplex *work, integer *lwork, integer *info);
06014 
06015 /* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a, 
06016     integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, 
06017     integer *info);
06018 
06019 /* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a, 
06020     integer *lda, integer *ipiv, doublecomplex *work, integer *info);
06021 
06022 /* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs, 
06023     doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
06024     integer *ldb, integer *info);
06025 
06026 /* Subroutine */ int zhfrk_(char *transr, char *uplo, char *trans, integer *n, 
06027      integer *k, doublereal *alpha, doublecomplex *a, integer *lda, 
06028     doublereal *beta, doublecomplex *c__);
06029 
06030 /* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n, 
06031     integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 
06032     doublecomplex *t, integer *ldt, doublecomplex *alpha, doublecomplex *
06033     beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
06034     ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *
06035     info);
06036 
06037 /* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap, 
06038     integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
06039     work, integer *info);
06040 
06041 /* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex 
06042     *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *
06043     work, doublereal *rwork, integer *info);
06044 
06045 /* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n, 
06046     doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz, 
06047     doublecomplex *work, integer *lwork, doublereal *rwork, integer *
06048     lrwork, integer *iwork, integer *liwork, integer *info);
06049 
06050 /* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n, 
06051     doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il, 
06052     integer *iu, doublereal *abstol, integer *m, doublereal *w, 
06053     doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *
06054     rwork, integer *iwork, integer *ifail, integer *info);
06055 
06056 /* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n, 
06057     doublecomplex *ap, doublecomplex *bp, integer *info);
06058 
06059 /* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer *
06060     n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex 
06061     *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *
06062     info);
06063 
06064 /* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer *
06065     n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex 
06066     *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *
06067     rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
06068     info);
06069 
06070 /* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char *
06071     uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *
06072     vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, 
06073     integer *m, doublereal *w, doublecomplex *z__, integer *ldz, 
06074     doublecomplex *work, doublereal *rwork, integer *iwork, integer *
06075     ifail, integer *info);
06076 
06077 /* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs, 
06078     doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
06079     b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 
06080     doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
06081     info);
06082 
06083 /* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs, 
06084     doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 
06085     integer *info);
06086 
06087 /* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer *
06088     nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, 
06089     doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
06090     doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
06091     work, doublereal *rwork, integer *info);
06092 
06093 /* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap, 
06094     doublereal *d__, doublereal *e, doublecomplex *tau, integer *info);
06095 
06096 /* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap, 
06097     integer *ipiv, integer *info);
06098 
06099 /* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap, 
06100     integer *ipiv, doublecomplex *work, integer *info);
06101 
06102 /* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs, 
06103     doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 
06104     integer *info);
06105 
06106 /* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical *
06107     select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *
06108     w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 
06109      integer *mm, integer *m, doublecomplex *work, doublereal *rwork, 
06110     integer *ifaill, integer *ifailr, integer *info);
06111 
06112 /* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo, 
06113      integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, 
06114     doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, 
06115      integer *info);
06116 
06117 /* Subroutine */ int zla_gbamv__(integer *trans, integer *m, integer *n, 
06118     integer *kl, integer *ku, doublereal *alpha, doublecomplex *ab, 
06119     integer *ldab, doublecomplex *x, integer *incx, doublereal *beta, 
06120     doublereal *y, integer *incy);
06121 
06122 doublereal zla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku, 
06123     doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 
06124     integer *ipiv, doublereal *c__, logical *capply, integer *info, 
06125     doublecomplex *work, doublereal *rwork, ftnlen trans_len);
06126 
06127 doublereal zla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku, 
06128     doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 
06129     integer *ipiv, doublecomplex *x, integer *info, doublecomplex *work, 
06130     doublereal *rwork, ftnlen trans_len);
06131 
06132 /* Subroutine */ int zla_gbrfsx_extended__(integer *prec_type__, integer *
06133     trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs, 
06134     doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, 
06135     integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b, 
06136     integer *ldb, doublecomplex *y, integer *ldy, doublereal *berr_out__, 
06137     integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__, 
06138     doublecomplex *res, doublereal *ayb, doublecomplex *dy, doublecomplex 
06139     *y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh, 
06140     doublereal *dz_ub__, logical *ignore_cwise__, integer *info);
06141 
06142 doublereal zla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
06143     ncols, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
06144     ldafb);
06145 
06146 /* Subroutine */ int zla_geamv__(integer *trans, integer *m, integer *n, 
06147     doublereal *alpha, doublecomplex *a, integer *lda, doublecomplex *x, 
06148     integer *incx, doublereal *beta, doublereal *y, integer *incy);
06149 
06150 doublereal zla_gercond_c__(char *trans, integer *n, doublecomplex *a, integer 
06151     *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *
06152     c__, logical *capply, integer *info, doublecomplex *work, doublereal *
06153     rwork, ftnlen trans_len);
06154 
06155 doublereal zla_gercond_x__(char *trans, integer *n, doublecomplex *a, integer 
06156     *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
06157     x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 
06158     trans_len);
06159 
06160 /* Subroutine */ int zla_gerfsx_extended__(integer *prec_type__, integer *
06161     trans_type__, integer *n, integer *nrhs, doublecomplex *a, integer *
06162     lda, doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ,
06163      doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 
06164     integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
06165     errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 
06166     doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 
06167     integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
06168     ignore_cwise__, integer *info);
06169 
06170 /* Subroutine */ int zla_heamv__(integer *uplo, integer *n, doublereal *alpha,
06171      doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 
06172     doublereal *beta, doublereal *y, integer *incy);
06173 
06174 doublereal zla_hercond_c__(char *uplo, integer *n, doublecomplex *a, integer *
06175     lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__,
06176      logical *capply, integer *info, doublecomplex *work, doublereal *
06177     rwork, ftnlen uplo_len);
06178 
06179 doublereal zla_hercond_x__(char *uplo, integer *n, doublecomplex *a, integer *
06180     lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
06181     x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 
06182     uplo_len);
06183 
06184 /* Subroutine */ int zla_herfsx_extended__(integer *prec_type__, char *uplo, 
06185     integer *n, integer *nrhs, doublecomplex *a, integer *lda, 
06186     doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, 
06187     doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 
06188     integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
06189     errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 
06190     doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 
06191     integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
06192     ignore_cwise__, integer *info, ftnlen uplo_len);
06193 
06194 doublereal zla_herpvgrw__(char *uplo, integer *n, integer *info, 
06195     doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
06196     integer *ipiv, doublereal *work, ftnlen uplo_len);
06197 
06198 /* Subroutine */ int zla_lin_berr__(integer *n, integer *nz, integer *nrhs, 
06199     doublecomplex *res, doublereal *ayb, doublereal *berr);
06200 
06201 doublereal zla_porcond_c__(char *uplo, integer *n, doublecomplex *a, integer *
06202     lda, doublecomplex *af, integer *ldaf, doublereal *c__, logical *
06203     capply, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 
06204     uplo_len);
06205 
06206 doublereal zla_porcond_x__(char *uplo, integer *n, doublecomplex *a, integer *
06207     lda, doublecomplex *af, integer *ldaf, doublecomplex *x, integer *
06208     info, doublecomplex *work, doublereal *rwork, ftnlen uplo_len);
06209 
06210 /* Subroutine */ int zla_porfsx_extended__(integer *prec_type__, char *uplo, 
06211     integer *n, integer *nrhs, doublecomplex *a, integer *lda, 
06212     doublecomplex *af, integer *ldaf, logical *colequ, doublereal *c__, 
06213     doublecomplex *b, integer *ldb, doublecomplex *y, integer *ldy, 
06214     doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__, 
06215     doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 
06216     doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 
06217     integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
06218     ignore_cwise__, integer *info, ftnlen uplo_len);
06219 
06220 doublereal zla_porpvgrw__(char *uplo, integer *ncols, doublecomplex *a, 
06221     integer *lda, doublecomplex *af, integer *ldaf, doublereal *work, 
06222     ftnlen uplo_len);
06223 
06224 doublereal zla_rpvgrw__(integer *n, integer *ncols, doublecomplex *a, integer 
06225     *lda, doublecomplex *af, integer *ldaf);
06226 
06227 /* Subroutine */ int zla_syamv__(integer *uplo, integer *n, doublereal *alpha,
06228      doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 
06229     doublereal *beta, doublereal *y, integer *incy);
06230 
06231 doublereal zla_syrcond_c__(char *uplo, integer *n, doublecomplex *a, integer *
06232     lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__,
06233      logical *capply, integer *info, doublecomplex *work, doublereal *
06234     rwork, ftnlen uplo_len);
06235 
06236 doublereal zla_syrcond_x__(char *uplo, integer *n, doublecomplex *a, integer *
06237     lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
06238     x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen 
06239     uplo_len);
06240 
06241 /* Subroutine */ int zla_syrfsx_extended__(integer *prec_type__, char *uplo, 
06242     integer *n, integer *nrhs, doublecomplex *a, integer *lda, 
06243     doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ, 
06244     doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y, 
06245     integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
06246     errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb, 
06247     doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond, 
06248     integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
06249     ignore_cwise__, integer *info, ftnlen uplo_len);
06250 
06251 doublereal zla_syrpvgrw__(char *uplo, integer *n, integer *info, 
06252     doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
06253     integer *ipiv, doublereal *work, ftnlen uplo_len);
06254 
06255 /* Subroutine */ int zla_wwaddw__(integer *n, doublecomplex *x, doublecomplex 
06256     *y, doublecomplex *w);
06257 
06258 /* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb, 
06259     doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, 
06260     doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer *
06261     ldx, doublecomplex *y, integer *ldy);
06262 
06263 /* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx);
06264 
06265 /* Subroutine */ int zlacn2_(integer *n, doublecomplex *v, doublecomplex *x, 
06266     doublereal *est, integer *kase, integer *isave);
06267 
06268 /* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, 
06269     doublereal *est, integer *kase);
06270 
06271 /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal *
06272     a, integer *lda, doublecomplex *b, integer *ldb);
06273 
06274 /* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n, 
06275     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb);
06276 
06277 /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a, 
06278     integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, 
06279     integer *ldc, doublereal *rwork);
06280 
06281 /* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx, 
06282     doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *
06283     s);
06284 
06285 /* Double Complex */ VOID zladiv_(doublecomplex * ret_val, doublecomplex *x, 
06286     doublecomplex *y);
06287 
06288 /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__, 
06289     doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, 
06290     integer *ldqs, doublereal *rwork, integer *iwork, integer *info);
06291 
06292 /* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz, 
06293     integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 
06294     doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq, 
06295     doublereal *qstore, integer *qptr, integer *prmptr, integer *perm, 
06296     integer *givptr, integer *givcol, doublereal *givnum, doublecomplex *
06297     work, doublereal *rwork, integer *iwork, integer *info);
06298 
06299 /* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz, 
06300     doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho, 
06301     integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex *
06302     q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx, 
06303     integer *indxq, integer *perm, integer *givptr, integer *givcol, 
06304     doublereal *givnum, integer *info);
06305 
06306 /* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n, 
06307     doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v, 
06308     doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3, 
06309     doublereal *smlnum, integer *info);
06310 
06311 /* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b, 
06312     doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2, 
06313     doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
06314 
06315 /* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b, 
06316     doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, 
06317      doublecomplex *sn1);
06318 
06319 /* Subroutine */ int zlag2c_(integer *m, integer *n, doublecomplex *a, 
06320     integer *lda, complex *sa, integer *ldsa, integer *info);
06321 
06322 /* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex *
06323     a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3, 
06324      doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex *
06325     snv, doublereal *csq, doublecomplex *snq);
06326 
06327 /* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs, 
06328     doublereal *alpha, doublecomplex *dl, doublecomplex *d__, 
06329     doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta, 
06330     doublecomplex *b, integer *ldb);
06331 
06332 /* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb, 
06333      doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, 
06334     integer *ldw, integer *info);
06335 
06336 /* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n, 
06337     integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 
06338     doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 
06339     integer *ldz, integer *info);
06340 
06341 /* Subroutine */ int zlahr2_(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 zlahrd_(integer *n, integer *k, integer *nb, 
06346     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, 
06347     integer *ldt, doublecomplex *y, integer *ldy);
06348 
06349 /* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x, 
06350     doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *
06351     sestpr, doublecomplex *s, doublecomplex *c__);
06352 
06353 /* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr, 
06354     integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb, 
06355     doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr, 
06356     integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, 
06357      doublereal *poles, doublereal *difl, doublereal *difr, doublereal *
06358     z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork, 
06359     integer *info);
06360 
06361 /* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n, 
06362     integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx, 
06363     integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *
06364     k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
06365     poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
06366     perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
06367     rwork, integer *iwork, integer *info);
06368 
06369 /* Subroutine */ int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer 
06370     *nrhs, doublereal *d__, doublereal *e, doublecomplex *b, integer *ldb, 
06371      doublereal *rcond, integer *rank, doublecomplex *work, doublereal *
06372     rwork, integer *iwork, integer *info);
06373 
06374 doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku, 
06375     doublecomplex *ab, integer *ldab, doublereal *work);
06376 
06377 doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, 
06378     integer *lda, doublereal *work);
06379 
06380 doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex *
06381     d__, doublecomplex *du);
06382 
06383 doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k, 
06384     doublecomplex *ab, integer *ldab, doublereal *work);
06385 
06386 doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a, 
06387     integer *lda, doublereal *work);
06388 
06389 doublereal zlanhf_(char *norm, char *transr, char *uplo, integer *n, 
06390     doublecomplex *a, doublereal *work);
06391 
06392 doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap, 
06393     doublereal *work);
06394 
06395 doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda, 
06396     doublereal *work);
06397 
06398 doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e);
06399 
06400 doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k, 
06401     doublecomplex *ab, integer *ldab, doublereal *work);
06402 
06403 doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap, 
06404     doublereal *work);
06405 
06406 doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a, 
06407     integer *lda, doublereal *work);
06408 
06409 doublereal zlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, 
06410      doublecomplex *ab, integer *ldab, doublereal *work);
06411 
06412 doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n, 
06413     doublecomplex *ap, doublereal *work);
06414 
06415 doublereal zlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, 
06416      doublecomplex *a, integer *lda, doublereal *work);
06417 
06418 /* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx, 
06419     doublecomplex *y, integer *incy, doublereal *ssmin);
06420 
06421 /* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n, 
06422     doublecomplex *x, integer *ldx, integer *k);
06423 
06424 /* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku, 
06425      doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, 
06426     doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
06427 
06428 /* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a, 
06429     integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 
06430     doublereal *colcnd, doublereal *amax, char *equed);
06431 
06432 /* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd, 
06433     doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 
06434     doublereal *amax, char *equed);
06435 
06436 /* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a, 
06437     integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 
06438     char *equed);
06439 
06440 /* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, 
06441     doublereal *s, doublereal *scond, doublereal *amax, char *equed);
06442 
06443 /* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset, 
06444     doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, 
06445     doublereal *vn1, doublereal *vn2, doublecomplex *work);
06446 
06447 /* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer 
06448     *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt, 
06449     doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *
06450     auxv, doublecomplex *f, integer *ldf);
06451 
06452 /* Subroutine */ int zlaqr0_(logical *wantt, logical *wantz, integer *n, 
06453     integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 
06454     doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 
06455     integer *ldz, doublecomplex *work, integer *lwork, integer *info);
06456 
06457 /* Subroutine */ int zlaqr1_(integer *n, doublecomplex *h__, integer *ldh, 
06458     doublecomplex *s1, doublecomplex *s2, doublecomplex *v);
06459 
06460 /* Subroutine */ int zlaqr2_(logical *wantt, logical *wantz, integer *n, 
06461     integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, 
06462     integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, 
06463     integer *ldz, integer *ns, integer *nd, doublecomplex *sh, 
06464     doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t, 
06465     integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv, 
06466     doublecomplex *work, integer *lwork);
06467 
06468 /* Subroutine */ int zlaqr3_(logical *wantt, logical *wantz, integer *n, 
06469     integer *ktop, integer *kbot, integer *nw, doublecomplex *h__, 
06470     integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__, 
06471     integer *ldz, integer *ns, integer *nd, doublecomplex *sh, 
06472     doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t, 
06473     integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv, 
06474     doublecomplex *work, integer *lwork);
06475 
06476 /* Subroutine */ int zlaqr4_(logical *wantt, logical *wantz, integer *n, 
06477     integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 
06478     doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 
06479     integer *ldz, doublecomplex *work, integer *lwork, integer *info);
06480 
06481 /* Subroutine */ int zlaqr5_(logical *wantt, logical *wantz, integer *kacc22, 
06482     integer *n, integer *ktop, integer *kbot, integer *nshfts, 
06483     doublecomplex *s, doublecomplex *h__, integer *ldh, integer *iloz, 
06484     integer *ihiz, doublecomplex *z__, integer *ldz, doublecomplex *v, 
06485     integer *ldv, doublecomplex *u, integer *ldu, integer *nv, 
06486     doublecomplex *wv, integer *ldwv, integer *nh, doublecomplex *wh, 
06487     integer *ldwh);
06488 
06489 /* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd, 
06490     doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 
06491     doublereal *amax, char *equed);
06492 
06493 /* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, 
06494     doublereal *s, doublereal *scond, doublereal *amax, char *equed);
06495 
06496 /* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a, 
06497     integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 
06498     char *equed);
06499 
06500 /* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal 
06501     *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
06502     lld, doublereal *pivmin, doublereal *gaptol, doublecomplex *z__, 
06503     logical *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma, 
06504      integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid, 
06505      doublereal *rqcorr, doublereal *work);
06506 
06507 /* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, 
06508     doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s, 
06509     integer *incc);
06510 
06511 /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer *
06512     lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, 
06513      doublereal *rwork);
06514 
06515 /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex 
06516     *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *
06517     ldc, doublecomplex *work);
06518 
06519 /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char *
06520     storev, integer *m, integer *n, integer *k, doublecomplex *v, integer 
06521     *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *
06522     ldc, doublecomplex *work, integer *ldwork);
06523 
06524 /* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *
06525     x, integer *incx, doublecomplex *tau);
06526 
06527 /* Subroutine */ int zlarfp_(integer *n, doublecomplex *alpha, doublecomplex *
06528     x, integer *incx, doublecomplex *tau);
06529 
06530 /* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer *
06531     k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
06532     t, integer *ldt);
06533 
06534 /* Subroutine */ int zlarfx_(char *side, integer *m, integer *n, 
06535     doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *
06536     ldc, doublecomplex *work);
06537 
06538 /* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx, 
06539     doublecomplex *y, integer *incy, doublereal *c__, integer *incc);
06540 
06541 /* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n, 
06542     doublecomplex *x);
06543 
06544 /* Subroutine */ int zlarrv_(integer *n, doublereal *vl, doublereal *vu, 
06545     doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit, 
06546     integer *m, integer *dol, integer *dou, doublereal *minrgp, 
06547     doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr, 
06548      doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers, 
06549      doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, 
06550     integer *iwork, integer *info);
06551 
06552 /* Subroutine */ int zlarscl2_(integer *m, integer *n, doublereal *d__, 
06553     doublecomplex *x, integer *ldx);
06554 
06555 /* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *
06556     cs, doublecomplex *sn, doublecomplex *r__);
06557 
06558 /* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx, 
06559     doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s, 
06560     integer *incc);
06561 
06562 /* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l, 
06563     doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
06564     c__, integer *ldc, doublecomplex *work);
06565 
06566 /* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char *
06567     storev, integer *m, integer *n, integer *k, integer *l, doublecomplex 
06568     *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, 
06569     integer *ldc, doublecomplex *work, integer *ldwork);
06570 
06571 /* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer *
06572     k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
06573     t, integer *ldt);
06574 
06575 /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku, 
06576     doublereal *cfrom, doublereal *cto, integer *m, integer *n, 
06577     doublecomplex *a, integer *lda, integer *info);
06578 
06579 /* Subroutine */ int zlascl2_(integer *m, integer *n, doublereal *d__, 
06580     doublecomplex *x, integer *ldx);
06581 
06582 /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n, 
06583     doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *
06584     lda);
06585 
06586 /* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m, 
06587      integer *n, doublereal *c__, doublereal *s, doublecomplex *a, 
06588     integer *lda);
06589 
06590 /* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx, 
06591     doublereal *scale, doublereal *sumsq);
06592 
06593 /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda, 
06594     integer *k1, integer *k2, integer *ipiv, integer *incx);
06595 
06596 /* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb, 
06597      doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, 
06598     integer *ldw, integer *info);
06599 
06600 /* Subroutine */ int zlat2c_(char *uplo, integer *n, doublecomplex *a, 
06601     integer *lda, complex *sa, integer *ldsa, integer *info);
06602 
06603 /* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char *
06604     normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab, 
06605     doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info);
06606 
06607 /* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__, 
06608     integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *
06609     rdscal, integer *ipiv, integer *jpiv);
06610 
06611 /* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char *
06612     normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal *
06613     scale, doublereal *cnorm, integer *info);
06614 
06615 /* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb, 
06616     doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau, 
06617     doublecomplex *w, integer *ldw);
06618 
06619 /* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char *
06620     normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, 
06621     doublereal *scale, doublereal *cnorm, integer *info);
06622 
06623 /* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l, 
06624     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
06625     work);
06626 
06627 /* Subroutine */ int zlatzm_(char *side, integer *m, integer *n, 
06628     doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
06629     c1, doublecomplex *c2, integer *ldc, doublecomplex *work);
06630 
06631 /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a, 
06632     integer *lda, integer *info);
06633 
06634 /* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a, 
06635     integer *lda, integer *info);
06636 
06637 /* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd, 
06638     doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal *
06639     rcond, doublecomplex *work, doublereal *rwork, integer *info);
06640 
06641 /* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd, 
06642     doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 
06643     doublereal *amax, integer *info);
06644 
06645 /* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer *
06646     nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
06647     ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
06648      doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
06649     rwork, integer *info);
06650 
06651 /* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd, 
06652     doublecomplex *ab, integer *ldab, integer *info);
06653 
06654 /* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer *
06655     nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
06656     ldb, integer *info);
06657 
06658 /* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
06659     integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, 
06660     integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer 
06661     *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *
06662     ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, 
06663     integer *info);
06664 
06665 /* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd, 
06666     doublecomplex *ab, integer *ldab, integer *info);
06667 
06668 /* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd, 
06669     doublecomplex *ab, integer *ldab, integer *info);
06670 
06671 /* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer *
06672     nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
06673     ldb, integer *info);
06674 
06675 /* Subroutine */ int zpftrf_(char *transr, char *uplo, integer *n, 
06676     doublecomplex *a, integer *info);
06677 
06678 /* Subroutine */ int zpftri_(char *transr, char *uplo, integer *n, 
06679     doublecomplex *a, integer *info);
06680 
06681 /* Subroutine */ int zpftrs_(char *transr, char *uplo, integer *n, integer *
06682     nrhs, doublecomplex *a, doublecomplex *b, integer *ldb, integer *info);
06683 
06684 /* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a, 
06685     integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
06686     work, doublereal *rwork, integer *info);
06687 
06688 /* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda, 
06689     doublereal *s, doublereal *scond, doublereal *amax, integer *info);
06690 
06691 /* Subroutine */ int zpoequb_(integer *n, doublecomplex *a, integer *lda, 
06692     doublereal *s, doublereal *scond, doublereal *amax, integer *info);
06693 
06694 /* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs, 
06695     doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
06696     doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
06697     doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
06698     rwork, integer *info);
06699 
06700 /* Subroutine */ int zporfsx_(char *uplo, char *equed, integer *n, integer *
06701     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
06702     ldaf, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, 
06703      integer *ldx, doublereal *rcond, doublereal *berr, integer *
06704     n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
06705     err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
06706     work, doublereal *rwork, integer *info);
06707 
06708 /* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs, 
06709     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
06710     integer *info);
06711 
06712 /* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer *
06713     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
06714     ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, 
06715     doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
06716     doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
06717     info);
06718 
06719 /* Subroutine */ int zposvxx_(char *fact, char *uplo, integer *n, integer *
06720     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
06721     ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, 
06722     doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, 
06723      doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, 
06724      doublereal *err_bnds_comp__, integer *nparams, doublereal *params, 
06725     doublecomplex *work, doublereal *rwork, integer *info);
06726 
06727 /* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a, 
06728     integer *lda, integer *info);
06729 
06730 /* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a, 
06731     integer *lda, integer *info);
06732 
06733 /* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a, 
06734     integer *lda, integer *info);
06735 
06736 /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs, 
06737     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
06738     integer *info);
06739 
06740 /* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap, 
06741     doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal 
06742     *rwork, integer *info);
06743 
06744 /* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap, 
06745     doublereal *s, doublereal *scond, doublereal *amax, integer *info);
06746 
06747 /* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs, 
06748     doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb, 
06749      doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 
06750     doublecomplex *work, doublereal *rwork, integer *info);
06751 
06752 /* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs, 
06753     doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
06754 
06755 /* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer *
06756     nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal *
06757     s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
06758     doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
06759     work, doublereal *rwork, integer *info);
06760 
06761 /* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap, 
06762     integer *info);
06763 
06764 /* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap, 
06765     integer *info);
06766 
06767 /* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs, 
06768     doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
06769 
06770 /* Subroutine */ int zpstf2_(char *uplo, integer *n, doublecomplex *a, 
06771     integer *lda, integer *piv, integer *rank, doublereal *tol, 
06772     doublereal *work, integer *info);
06773 
06774 /* Subroutine */ int zpstrf_(char *uplo, integer *n, doublecomplex *a, 
06775     integer *lda, integer *piv, integer *rank, doublereal *tol, 
06776     doublereal *work, integer *info);
06777 
06778 /* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e, 
06779     doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *
06780     info);
06781 
06782 /* Subroutine */ int zpteqr_(char *compz, integer *n, doublereal *d__, 
06783     doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, 
06784     integer *info);
06785 
06786 /* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs, 
06787     doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, 
06788     doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
06789     doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
06790     rwork, integer *info);
06791 
06792 /* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__, 
06793     doublecomplex *e, doublecomplex *b, integer *ldb, integer *info);
06794 
06795 /* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs, 
06796     doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, 
06797     doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
06798     doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
06799     work, doublereal *rwork, integer *info);
06800 
06801 /* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e, 
06802     integer *info);
06803 
06804 /* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs, 
06805     doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, 
06806     integer *info);
06807 
06808 /* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs, 
06809     doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb);
06810 
06811 /* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx, 
06812     doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);
06813 
06814 /* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap, 
06815     integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
06816     work, integer *info);
06817 
06818 /* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha, 
06819     doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
06820     beta, doublecomplex *y, integer *incy);
06821 
06822 /* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha, 
06823     doublecomplex *x, integer *incx, doublecomplex *ap);
06824 
06825 /* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs, 
06826     doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
06827     b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 
06828     doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
06829     info);
06830 
06831 /* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs, 
06832     doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 
06833     integer *info);
06834 
06835 /* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer *
06836     nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, 
06837     doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
06838     doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
06839     work, doublereal *rwork, integer *info);
06840 
06841 /* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap, 
06842     integer *ipiv, integer *info);
06843 
06844 /* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap, 
06845     integer *ipiv, doublecomplex *work, integer *info);
06846 
06847 /* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs, 
06848     doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 
06849     integer *info);
06850 
06851 /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__, 
06852     doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work, 
06853     integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, 
06854     integer *liwork, integer *info);
06855 
06856 /* Subroutine */ int zstegr_(char *jobz, char *range, integer *n, doublereal *
06857     d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
06858     integer *iu, doublereal *abstol, integer *m, doublereal *w, 
06859     doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, 
06860     integer *lwork, integer *iwork, integer *liwork, integer *info);
06861 
06862 /* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e, 
06863     integer *m, doublereal *w, integer *iblock, integer *isplit, 
06864     doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork, 
06865     integer *ifail, integer *info);
06866 
06867 /* Subroutine */ int zstemr_(char *jobz, char *range, integer *n, doublereal *
06868     d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
06869     integer *iu, integer *m, doublereal *w, doublecomplex *z__, integer *
06870     ldz, integer *nzc, integer *isuppz, logical *tryrac, doublereal *work, 
06871      integer *lwork, integer *iwork, integer *liwork, integer *info);
06872 
06873 /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__, 
06874     doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, 
06875     integer *info);
06876 
06877 /* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a, 
06878     integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, 
06879     doublecomplex *work, integer *info);
06880 
06881 /* Subroutine */ int zsyequb_(char *uplo, integer *n, doublecomplex *a, 
06882     integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 
06883     doublecomplex *work, integer *info);
06884 
06885 /* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha, 
06886     doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 
06887     doublecomplex *beta, doublecomplex *y, integer *incy);
06888 
06889 /* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha, 
06890     doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
06891 
06892 /* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs, 
06893     doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
06894     integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 
06895     integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, 
06896      doublereal *rwork, integer *info);
06897 
06898 /* Subroutine */ int zsyrfsx_(char *uplo, char *equed, integer *n, integer *
06899     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
06900     ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb, 
06901     doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr, 
06902     integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
06903     err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
06904     work, doublereal *rwork, integer *info);
06905 
06906 /* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs, 
06907     doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
06908     integer *ldb, doublecomplex *work, integer *lwork, integer *info);
06909 
06910 /* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer *
06911     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
06912     ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 
06913      integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 
06914     doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
06915 
06916 /* Subroutine */ int zsysvxx_(char *fact, char *uplo, integer *n, integer *
06917     nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
06918     ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b, 
06919     integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, 
06920     doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__, 
06921     doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
06922     nparams, doublereal *params, doublecomplex *work, doublereal *rwork, 
06923     integer *info);
06924 
06925 /* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a, 
06926     integer *lda, integer *ipiv, integer *info);
06927 
06928 /* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a, 
06929     integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, 
06930     integer *info);
06931 
06932 /* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a, 
06933     integer *lda, integer *ipiv, doublecomplex *work, integer *info);
06934 
06935 /* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs, 
06936     doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
06937     integer *ldb, integer *info);
06938 
06939 /* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n, 
06940     integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond, 
06941     doublecomplex *work, doublereal *rwork, integer *info);
06942 
06943 /* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n, 
06944     integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, 
06945     doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
06946     doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
06947     rwork, integer *info);
06948 
06949 /* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n, 
06950     integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, 
06951     doublecomplex *b, integer *ldb, integer *info);
06952 
06953 /* Subroutine */ int ztfsm_(char *transr, char *side, char *uplo, char *trans, 
06954      char *diag, integer *m, integer *n, doublecomplex *alpha, 
06955     doublecomplex *a, doublecomplex *b, integer *ldb);
06956 
06957 /* Subroutine */ int ztftri_(char *transr, char *uplo, char *diag, integer *n, 
06958      doublecomplex *a, integer *info);
06959 
06960 /* Subroutine */ int ztfttp_(char *transr, char *uplo, integer *n, 
06961     doublecomplex *arf, doublecomplex *ap, integer *info);
06962 
06963 /* Subroutine */ int ztfttr_(char *transr, char *uplo, integer *n, 
06964     doublecomplex *arf, doublecomplex *a, integer *lda, integer *info);
06965 
06966 /* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select, 
06967     integer *n, doublecomplex *s, integer *lds, doublecomplex *p, integer 
06968     *ldp, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
06969     ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, 
06970      integer *info);
06971 
06972 /* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n, 
06973     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
06974     doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, 
06975     integer *j1, integer *info);
06976 
06977 /* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n, 
06978     doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
06979     doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, 
06980     integer *ifst, integer *ilst, integer *info);
06981 
06982 /* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz, 
06983     logical *select, integer *n, doublecomplex *a, integer *lda, 
06984     doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
06985     beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
06986     ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif, 
06987     doublecomplex *work, integer *lwork, integer *iwork, integer *liwork, 
06988     integer *info);
06989 
06990 /* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m, 
06991     integer *p, integer *n, integer *k, integer *l, doublecomplex *a, 
06992     integer *lda, doublecomplex *b, integer *ldb, doublereal *tola, 
06993     doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex *
06994     u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q, 
06995     integer *ldq, doublecomplex *work, integer *ncycle, integer *info);
06996 
06997 /* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select, 
06998     integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer 
06999     *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
07000     ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m, 
07001     doublecomplex *work, integer *lwork, integer *iwork, integer *info);
07002 
07003 /* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer *
07004     n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
07005     doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, 
07006     doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, 
07007     doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer *
07008     info);
07009 
07010 /* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer *
07011     n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
07012     doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, 
07013     doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, 
07014     doublereal *scale, doublereal *dif, doublecomplex *work, integer *
07015     lwork, integer *iwork, integer *info);
07016 
07017 /* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n, 
07018     doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal 
07019     *rwork, integer *info);
07020 
07021 /* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n, 
07022     integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, 
07023     doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 
07024     doublecomplex *work, doublereal *rwork, integer *info);
07025 
07026 /* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n, 
07027     doublecomplex *ap, integer *info);
07028 
07029 /* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n, 
07030     integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, 
07031     integer *info);
07032 
07033 /* Subroutine */ int ztpttf_(char *transr, char *uplo, integer *n, 
07034     doublecomplex *ap, doublecomplex *arf, integer *info);
07035 
07036 /* Subroutine */ int ztpttr_(char *uplo, integer *n, doublecomplex *ap, 
07037     doublecomplex *a, integer *lda, integer *info);
07038 
07039 /* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n, 
07040     doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex *
07041     work, doublereal *rwork, integer *info);
07042 
07043 /* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select, 
07044     integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, 
07045     integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer 
07046     *m, doublecomplex *work, doublereal *rwork, integer *info);
07047 
07048 /* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t, 
07049     integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *
07050     ilst, integer *info);
07051 
07052 /* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n, 
07053     integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, 
07054     integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 
07055     doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
07056     info);
07057 
07058 /* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer 
07059     *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, 
07060     doublecomplex *w, integer *m, doublereal *s, doublereal *sep, 
07061     doublecomplex *work, integer *lwork, integer *info);
07062 
07063 /* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select, 
07064     integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, 
07065     integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s, 
07066     doublereal *sep, integer *mm, integer *m, doublecomplex *work, 
07067     integer *ldwork, doublereal *rwork, integer *info);
07068 
07069 /* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer 
07070     *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 
07071     integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, 
07072     integer *info);
07073 
07074 /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n, 
07075     doublecomplex *a, integer *lda, integer *info);
07076 
07077 /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n, 
07078     doublecomplex *a, integer *lda, integer *info);
07079 
07080 /* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n, 
07081     integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, 
07082     integer *ldb, integer *info);
07083 
07084 /* Subroutine */ int ztrttf_(char *transr, char *uplo, integer *n, 
07085     doublecomplex *a, integer *lda, doublecomplex *arf, integer *info);
07086 
07087 /* Subroutine */ int ztrttp_(char *uplo, integer *n, doublecomplex *a, 
07088     integer *lda, doublecomplex *ap, integer *info);
07089 
07090 /* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a, 
07091     integer *lda, doublecomplex *tau, integer *info);
07092 
07093 /* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a, 
07094     integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 
07095      integer *info);
07096 
07097 /* Subroutine */ int zung2l_(integer *m, integer *n, integer *k, 
07098     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07099     work, integer *info);
07100 
07101 /* Subroutine */ int zung2r_(integer *m, integer *n, integer *k, 
07102     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07103     work, integer *info);
07104 
07105 /* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k, 
07106     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07107     work, integer *lwork, integer *info);
07108 
07109 /* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi, 
07110     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07111     work, integer *lwork, integer *info);
07112 
07113 /* Subroutine */ int zungl2_(integer *m, integer *n, integer *k, 
07114     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07115     work, integer *info);
07116 
07117 /* Subroutine */ int zunglq_(integer *m, integer *n, integer *k, 
07118     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07119     work, integer *lwork, integer *info);
07120 
07121 /* Subroutine */ int zungql_(integer *m, integer *n, integer *k, 
07122     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07123     work, integer *lwork, integer *info);
07124 
07125 /* Subroutine */ int zungqr_(integer *m, integer *n, integer *k, 
07126     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07127     work, integer *lwork, integer *info);
07128 
07129 /* Subroutine */ int zungr2_(integer *m, integer *n, integer *k, 
07130     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07131     work, integer *info);
07132 
07133 /* Subroutine */ int zungrq_(integer *m, integer *n, integer *k, 
07134     doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
07135     work, integer *lwork, integer *info);
07136 
07137 /* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a, 
07138     integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, 
07139      integer *info);
07140 
07141 /* Subroutine */ int zunm2l_(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 zunm2r_(char *side, char *trans, integer *m, integer *n, 
07146     integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
07147     doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
07148 
07149 /* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m, 
07150     integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex 
07151     *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
07152     lwork, integer *info);
07153 
07154 /* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n, 
07155     integer *ilo, integer *ihi, doublecomplex *a, integer *lda, 
07156     doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *
07157     work, integer *lwork, integer *info);
07158 
07159 /* Subroutine */ int zunml2_(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 *info);
07162 
07163 /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n, 
07164     integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
07165     doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 
07166      integer *info);
07167 
07168 /* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n, 
07169     integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
07170     doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 
07171      integer *info);
07172 
07173 /* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n, 
07174     integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
07175     doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 
07176      integer *info);
07177 
07178 /* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n, 
07179     integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
07180     doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
07181 
07182 /* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n, 
07183     integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex 
07184     *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
07185     info);
07186 
07187 /* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n, 
07188     integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
07189     doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 
07190      integer *info);
07191 
07192 /* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n, 
07193     integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex 
07194     *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
07195     lwork, integer *info);
07196 
07197 /* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m, 
07198     integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, 
07199     doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, 
07200      integer *info);
07201 
07202 /* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap, 
07203     doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *
07204     work, integer *info);
07205 
07206 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m, 
07207     integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__, 
07208      integer *ldc, doublecomplex *work, integer *info);
07209 
07210 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical 
07211     *ieee1);
07212 
07213 doublereal dsecnd_();
07214 
07215 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__, 
07216     integer *vers_patch__);
07217 
07218 logical lsame_(char *ca, char *cb);
07219 
07220 doublereal second_();
07221 
07222 doublereal slamch_(char *cmach);
07223 
07224 /* Subroutine */ int slamc1_(integer *beta, integer *t, logical *rnd, logical 
07225     *ieee1);
07226 
07227 /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real *
07228             eps, integer *emin, real *rmin, integer *emax, real *rmax);
07229 
07230 doublereal slamc3_(real *a, real *b);
07231 
07232 /* Subroutine */ int slamc4_(integer *emin, real *start, integer *base);
07233 
07234 /* Subroutine */ int slamc5_(integer *beta, integer *p, integer *emin,
07235             logical *ieee, integer *emax, real *rmax);
07236 
07237 
07238 doublereal dlamch_(char *cmach);
07239 
07240 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical
07241             *ieee1);
07242 
07243 /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd,
07244             doublereal *eps, integer *emin, doublereal *rmin, integer *emax,
07245                 doublereal *rmax);
07246 
07247 doublereal dlamc3_(doublereal *a, doublereal *b);
07248 
07249 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base);
07250 
07251 /* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin,
07252             logical *ieee, integer *emax, doublereal *rmax);
07253 
07254 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 
07255     integer *n2, integer *n3, integer *n4);
07256 
07257 #ifdef __cplusplus
07258 }
07259 #endif
07260 
07261 
07262 #endif /* __CLAPACK_H */