Home Page
Toolkit Overview
Using GML
  User Input Services
    Finger Tracker
    Calibrator
    Frame Grabber
    Service protocol
Obtaining GML
  Installing GML
  Licence
Developer Documentation
  Tcl/Tk API
    The GML Canvas
    Image processing
  Tcl Scripts Library
    List of Classes
    List of Files
  C/C++ API
    List of Classes
    List of Files
math

gml_CLapack.h

00001 #ifndef __GML_CLAPACK__
00002 #define __GML_CLAPACK__
00003 
00004 #include "gml/base/gml_Types.h"
00005 
00006 #ifdef __cplusplus
00007 extern "C" {
00008 #endif
00009 
00010 typedef SInt32          integer;
00011 typedef SInt32          logical;
00012 typedef SInt32          ftnlen;
00013 typedef Float32         real;
00014 typedef Float64         doublereal;
00015 typedef struct { real r, i; }     complex;
00016 typedef struct { doublereal r, i; }   doublecomplex;
00017 typedef logical         (*L_fp)();
00018 
00019 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
00020   nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt, 
00021   complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork, 
00022   integer *info);
00023  
00024 /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
00025    integer *kl, integer *ku, complex *ab, integer *ldab, real *d__, 
00026   real *e, complex *q, integer *ldq, complex *pt, integer *ldpt, 
00027   complex *c__, integer *ldc, complex *work, real *rwork, integer *info);
00028  
00029 /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku,
00030    complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, 
00031   complex *work, real *rwork, integer *info);
00032  
00033 /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku,
00034    complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 
00035   *colcnd, real *amax, integer *info);
00036  
00037 /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer *
00038   ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
00039   ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *
00040   ldx, real *ferr, real *berr, complex *work, real *rwork, integer *
00041   info);
00042  
00043 /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer *
00044   nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *
00045   ldb, integer *info);
00046  
00047 /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl,
00048    integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb,
00049    integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 
00050   complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real 
00051   *ferr, real *berr, complex *work, real *rwork, integer *info);
00052  
00053 /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
00054    complex *ab, integer *ldab, integer *ipiv, integer *info);
00055  
00056 /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
00057    complex *ab, integer *ldab, integer *ipiv, integer *info);
00058  
00059 /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer *
00060   ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex 
00061   *b, integer *ldb, integer *info);
00062  
00063 /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo, 
00064   integer *ihi, real *scale, integer *m, complex *v, integer *ldv, 
00065   integer *info);
00066  
00067 /* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda, 
00068   integer *ilo, integer *ihi, real *scale, integer *info);
00069  
00070 /* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda,
00071    real *d__, real *e, complex *tauq, complex *taup, complex *work, 
00072   integer *info);
00073  
00074 /* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda,
00075    real *d__, real *e, complex *tauq, complex *taup, complex *work, 
00076   integer *lwork, integer *info);
00077  
00078 /* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda,
00079    real *anorm, real *rcond, complex *work, real *rwork, integer *info);
00080  
00081 /* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda,
00082    real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, 
00083   integer *info);
00084  
00085 /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n, 
00086   complex *a, integer *lda, integer *sdim, complex *w, complex *vs, 
00087   integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
00088   bwork, integer *info);
00089  
00090 /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char *
00091   sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
00092   w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
00093   work, integer *lwork, real *rwork, logical *bwork, integer *info);
00094  
00095 /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, 
00096   integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, 
00097   integer *ldvr, complex *work, integer *lwork, real *rwork, integer *
00098   info);
00099  
00100 /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
00101   sense, integer *n, complex *a, integer *lda, complex *w, complex *vl, 
00102   integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi,
00103    real *scale, real *abnrm, real *rconde, real *rcondv, complex *work, 
00104   integer *lwork, real *rwork, integer *info);
00105  
00106 /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
00107   a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
00108   beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, 
00109   complex *work, integer *lwork, real *rwork, integer *info);
00110  
00111 /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a, 
00112   integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
00113    complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
00114   work, integer *lwork, real *rwork, integer *info);
00115  
00116 /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
00117   a, integer *lda, complex *tau, complex *work, integer *info);
00118  
00119 /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
00120   a, integer *lda, complex *tau, complex *work, integer *lwork, integer 
00121   *info);
00122  
00123 /* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda,
00124    complex *tau, complex *work, integer *info);
00125  
00126 /* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda,
00127    complex *tau, complex *work, integer *lwork, integer *info);
00128  
00129 /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer *
00130   nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
00131   work, integer *lwork, integer *info);
00132  
00133 /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex *
00134   a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
00135    integer *rank, complex *work, real *rwork, integer *info);
00136  
00137 /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex *
00138   a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
00139    integer *rank, complex *work, integer *lwork, real *rwork, integer *
00140   info);
00141  
00142 /* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda,
00143    complex *tau, complex *work, integer *info);
00144  
00145 /* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
00146    complex *tau, complex *work, integer *lwork, integer *info);
00147  
00148 /* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda,
00149    integer *jpvt, complex *tau, complex *work, integer *lwork, real *
00150   rwork, integer *info);
00151  
00152 /* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
00153    integer *jpvt, complex *tau, complex *work, real *rwork, integer *
00154   info);
00155  
00156 /* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
00157    complex *tau, complex *work, integer *info);
00158  
00159 /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
00160    complex *tau, complex *work, integer *lwork, integer *info);
00161  
00162 /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex *
00163   a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
00164   b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 
00165   complex *work, real *rwork, integer *info);
00166  
00167 /* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda,
00168    complex *tau, complex *work, integer *info);
00169  
00170 /* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda,
00171    complex *tau, complex *work, integer *lwork, integer *info);
00172  
00173 /* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex *
00174   rhs, integer *ipiv, integer *jpiv, real *scale);
00175  
00176 /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer *
00177   lda, integer *ipiv, complex *b, integer *ldb, integer *info);
00178  
00179 /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer *
00180   nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00181   ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, 
00182   complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 
00183   complex *work, real *rwork, integer *info);
00184  
00185 /* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer *
00186   ipiv, integer *jpiv, integer *info);
00187  
00188 /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda,
00189    integer *ipiv, integer *info);
00190  
00191 /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda,
00192    integer *ipiv, integer *info);
00193  
00194 /* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer *
00195   ipiv, complex *work, integer *lwork, integer *info);
00196  
00197 /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex *
00198   a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
00199   info);
00200  
00201 /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo, 
00202   integer *ihi, real *lscale, real *rscale, integer *m, complex *v, 
00203   integer *ldv, integer *info);
00204  
00205 /* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda, 
00206   complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, 
00207   real *rscale, real *work, integer *info);
00208  
00209 /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
00210   selctg, integer *n, complex *a, integer *lda, complex *b, integer *
00211   ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl, 
00212   integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
00213   lwork, real *rwork, logical *bwork, integer *info);
00214  
00215 /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
00216   selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
00217    integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
00218   vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real 
00219   *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork, 
00220   integer *liwork, logical *bwork, integer *info);
00221  
00222 /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a, 
00223   integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
00224    complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
00225   work, integer *lwork, real *rwork, integer *info);
00226  
00227 /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char *
00228   sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
00229    complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *
00230   vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *
00231   rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex 
00232   *work, integer *lwork, real *rwork, integer *iwork, logical *bwork, 
00233   integer *info);
00234  
00235 /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a, 
00236   integer *lda, complex *b, integer *ldb, complex *d__, complex *x, 
00237   complex *y, complex *work, integer *lwork, integer *info);
00238  
00239 /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer *
00240   ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb,
00241    complex *q, integer *ldq, complex *z__, integer *ldz, integer *info);
00242  
00243 /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a, 
00244   integer *lda, complex *b, integer *ldb, complex *c__, complex *d__, 
00245   complex *x, complex *work, integer *lwork, integer *info);
00246  
00247 /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a, 
00248   integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, 
00249   complex *work, integer *lwork, integer *info);
00250  
00251 /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a, 
00252   integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, 
00253   complex *work, integer *lwork, integer *info);
00254  
00255 /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
00256   integer *n, integer *p, integer *k, integer *l, complex *a, integer *
00257   lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u, 
00258   integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, 
00259   complex *work, real *rwork, integer *iwork, integer *info);
00260  
00261 /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
00262   integer *p, integer *n, complex *a, integer *lda, complex *b, integer 
00263   *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u, 
00264   integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, 
00265   integer *iwork, real *rwork, complex *tau, complex *work, integer *
00266   info);
00267  
00268 /* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex *
00269   d__, complex *du, complex *du2, integer *ipiv, real *anorm, real *
00270   rcond, complex *work, integer *info);
00271  
00272 /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex *
00273   dl, complex *d__, complex *du, complex *dlf, complex *df, complex *
00274   duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex *
00275   x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
00276   integer *info);
00277  
00278 /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *
00279   d__, complex *du, complex *b, integer *ldb, integer *info);
00280  
00281 /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer *
00282   nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *
00283   df, complex *duf, complex *du2, integer *ipiv, complex *b, integer *
00284   ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 
00285   complex *work, real *rwork, integer *info);
00286  
00287 /* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex *
00288   du, complex *du2, integer *ipiv, integer *info);
00289  
00290 /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex *
00291   dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *
00292   b, integer *ldb, integer *info);
00293  
00294 /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs, 
00295   complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, 
00296   complex *b, integer *ldb);
00297  
00298 /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd, 
00299   complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, 
00300   complex *work, real *rwork, integer *info);
00301  
00302 /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
00303   complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, 
00304   complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
00305   iwork, integer *liwork, integer *info);
00306  
00307 /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n, 
00308   integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq, 
00309   real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
00310   m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, 
00311   integer *iwork, integer *ifail, integer *info);
00312  
00313 /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka, 
00314   integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, 
00315   complex *x, integer *ldx, complex *work, real *rwork, integer *info);
00316  
00317 /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka, 
00318   integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, 
00319   real *w, complex *z__, integer *ldz, complex *work, real *rwork, 
00320   integer *info);
00321  
00322 /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n, 
00323   integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, 
00324   integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer *
00325   il, integer *iu, real *abstol, integer *m, real *w, complex *z__, 
00326   integer *ldz, complex *work, real *rwork, integer *iwork, integer *
00327   ifail, integer *info);
00328  
00329 /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd, 
00330   complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *
00331   ldq, complex *work, integer *info);
00332  
00333 /* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda,
00334    integer *ipiv, real *anorm, real *rcond, complex *work, integer *
00335   info);
00336  
00337 /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a, 
00338   integer *lda, real *w, complex *work, integer *lwork, real *rwork, 
00339   integer *info);
00340  
00341 /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a, 
00342   integer *lda, real *w, complex *work, integer *lwork, real *rwork, 
00343   integer *lrwork, integer *iwork, integer *liwork, integer *info);
00344  
00345 /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n, 
00346   complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
00347   iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, 
00348   integer *isuppz, complex *work, integer *lwork, real *rwork, integer *
00349   lrwork, integer *iwork, integer *liwork, integer *info);
00350  
00351 /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n, 
00352   complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
00353   iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, 
00354   complex *work, integer *lwork, real *rwork, integer *iwork, integer *
00355   ifail, integer *info);
00356  
00357 /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex *
00358   a, integer *lda, complex *b, integer *ldb, integer *info);
00359  
00360 /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex *
00361   a, integer *lda, complex *b, integer *ldb, integer *info);
00362  
00363 /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer *
00364   n, complex *a, integer *lda, complex *b, integer *ldb, real *w, 
00365   complex *work, integer *lwork, real *rwork, integer *info);
00366  
00367 /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer *
00368   n, complex *a, integer *lda, complex *b, integer *ldb, real *w, 
00369   complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
00370   iwork, integer *liwork, integer *info);
00371  
00372 /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char *
00373   uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, 
00374   real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
00375   m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
00376    real *rwork, integer *iwork, integer *ifail, integer *info);
00377  
00378 /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex *
00379   a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
00380   b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 
00381   complex *work, real *rwork, integer *info);
00382  
00383 /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a,
00384    integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
00385    integer *lwork, integer *info);
00386  
00387 /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer *
00388   nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00389   ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
00390    real *ferr, real *berr, complex *work, integer *lwork, real *rwork, 
00391   integer *info);
00392  
00393 /* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda,
00394    integer *ipiv, integer *info);
00395  
00396 /* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda,
00397    real *d__, real *e, complex *tau, complex *work, integer *lwork, 
00398   integer *info);
00399  
00400 /* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda,
00401    integer *ipiv, complex *work, integer *lwork, integer *info);
00402  
00403 /* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda,
00404    integer *ipiv, complex *work, integer *info);
00405  
00406 /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex *
00407   a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
00408   info);
00409  
00410 /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n, 
00411   integer *ilo, integer *ihi, complex *a, integer *lda, complex *b, 
00412   integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
00413    complex *z__, integer *ldz, complex *work, integer *lwork, real *
00414   rwork, integer *info);
00415  
00416 /* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer *
00417   ipiv, real *anorm, real *rcond, complex *work, integer *info);
00418  
00419 /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap, 
00420   real *w, complex *z__, integer *ldz, complex *work, real *rwork, 
00421   integer *info);
00422  
00423 /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap, 
00424   real *w, complex *z__, integer *ldz, complex *work, integer *lwork, 
00425   real *rwork, integer *lrwork, integer *iwork, integer *liwork, 
00426   integer *info);
00427  
00428 /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n, 
00429   complex *ap, real *vl, real *vu, integer *il, integer *iu, real *
00430   abstol, integer *m, real *w, complex *z__, integer *ldz, complex *
00431   work, real *rwork, integer *iwork, integer *ifail, integer *info);
00432  
00433 /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex *
00434   ap, complex *bp, integer *info);
00435  
00436 /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer *
00437   n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, 
00438   complex *work, real *rwork, integer *info);
00439  
00440 /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer *
00441   n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, 
00442   complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
00443   iwork, integer *liwork, integer *info);
00444  
00445 /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char *
00446   uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu, 
00447   integer *il, integer *iu, real *abstol, integer *m, real *w, complex *
00448   z__, integer *ldz, complex *work, real *rwork, integer *iwork, 
00449   integer *ifail, integer *info);
00450  
00451 /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex *
00452   ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
00453    integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
00454   integer *info);
00455  
00456 /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex *
00457   ap, integer *ipiv, complex *b, integer *ldb, integer *info);
00458  
00459 /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer *
00460   nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
00461   ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 
00462   complex *work, real *rwork, integer *info);
00463  
00464 /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__, 
00465   real *e, complex *tau, integer *info);
00466  
00467 /* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer *
00468   ipiv, integer *info);
00469  
00470 /* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer *
00471   ipiv, complex *work, integer *info);
00472  
00473 /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex *
00474   ap, integer *ipiv, complex *b, integer *ldb, integer *info);
00475  
00476 /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical *
00477   select, integer *n, complex *h__, integer *ldh, complex *w, complex *
00478   vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *
00479   m, complex *work, real *rwork, integer *ifaill, integer *ifailr, 
00480   integer *info);
00481  
00482 /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo,
00483    integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__, 
00484   integer *ldz, complex *work, integer *lwork, integer *info);
00485  
00486 /* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, complex *a, 
00487   integer *lda, real *d__, real *e, complex *tauq, complex *taup, 
00488   complex *x, integer *ldx, complex *y, integer *ldy);
00489  
00490 /* Subroutine */ int clacgv_(integer *n, complex *x, integer *incx);
00491  
00492 /* Subroutine */ int clacon_(integer *n, complex *v, complex *x, real *est, 
00493   integer *kase);
00494  
00495 /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a, 
00496   integer *lda, complex *b, integer *ldb);
00497  
00498 /* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, complex *a, 
00499   integer *lda, complex *b, integer *ldb);
00500  
00501 /* Subroutine */ int clacrm_(integer *m, integer *n, complex *a, integer *lda,
00502    real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
00503  
00504 /* Subroutine */ int clacrt_(integer *n, complex *cx, integer *incx, complex *
00505   cy, integer *incy, complex *c__, complex *s);
00506  
00507 /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e, 
00508   complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork,
00509    integer *iwork, integer *info);
00510  
00511 /* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz, 
00512   integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex *
00513   q, integer *ldq, real *rho, integer *indxq, real *qstore, integer *
00514   qptr, integer *prmptr, integer *perm, integer *givptr, integer *
00515   givcol, real *givnum, complex *work, real *rwork, integer *iwork, 
00516   integer *info);
00517  
00518 /* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, complex *
00519   q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__, 
00520   real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp, 
00521   integer *indx, integer *indxq, integer *perm, integer *givptr, 
00522   integer *givcol, real *givnum, integer *info);
00523  
00524 /* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n, 
00525   complex *h__, integer *ldh, complex *w, complex *v, complex *b, 
00526   integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info);
00527  
00528 /* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex *
00529   rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
00530  
00531 /* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1, 
00532   real *rt2, real *cs1, complex *sn1);
00533  
00534 /* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3, 
00535   real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv, 
00536   complex *snv, real *csq, complex *snq);
00537  
00538 /* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real *
00539   alpha, complex *dl, complex *d__, complex *du, complex *x, integer *
00540   ldx, real *beta, complex *b, integer *ldb);
00541  
00542 /* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb,
00543    complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, 
00544   integer *info);
00545  
00546 /* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n, 
00547   integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, 
00548   integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
00549   info);
00550  
00551 /* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a, 
00552   integer *lda, complex *tau, complex *t, integer *ldt, complex *y, 
00553   integer *ldy);
00554  
00555 /* Subroutine */ int claic1_(integer *job, integer *j, complex *x, real *sest,
00556    complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
00557  
00558 /* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr, 
00559   integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx, 
00560   integer *ldbx, integer *perm, integer *givptr, integer *givcol, 
00561   integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
00562   difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
00563   rwork, integer *info);
00564  
00565 /* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n, 
00566   integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, 
00567   real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, 
00568   real *z__, real *poles, integer *givptr, integer *givcol, integer *
00569   ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork, 
00570   integer *iwork, integer *info);
00571  
00572 /* Subroutine */ int clapll_(integer *n, complex *x, integer *incx, complex *
00573   y, integer *incy, real *ssmin);
00574  
00575 /* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, complex 
00576   *x, integer *ldx, integer *k);
00577  
00578 /* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku,
00579    complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real 
00580   *colcnd, real *amax, char *equed);
00581  
00582 /* Subroutine */ int claqge_(integer *m, integer *n, complex *a, integer *lda,
00583    real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
00584   equed);
00585  
00586 /* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, complex *ab,
00587    integer *ldab, real *s, real *scond, real *amax, char *equed);
00588  
00589 /* Subroutine */ int claqhe_(char *uplo, integer *n, complex *a, integer *lda,
00590    real *s, real *scond, real *amax, char *equed);
00591  
00592 /* Subroutine */ int claqhp_(char *uplo, integer *n, complex *ap, real *s, 
00593   real *scond, real *amax, char *equed);
00594  
00595 /* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, complex 
00596   *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, 
00597   complex *work);
00598  
00599 /* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer 
00600   *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *
00601   tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
00602  
00603 /* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, complex *ab,
00604    integer *ldab, real *s, real *scond, real *amax, char *equed);
00605  
00606 /* Subroutine */ int claqsp_(char *uplo, integer *n, complex *ap, real *s, 
00607   real *scond, real *amax, char *equed);
00608  
00609 /* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda,
00610    real *s, real *scond, real *amax, char *equed);
00611  
00612 /* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real *
00613   sigma, real *d__, real *l, real *ld, real *lld, real *gersch, complex 
00614   *z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *
00615   work);
00616  
00617 /* Subroutine */ int clar2v_(integer *n, complex *x, complex *y, complex *z__,
00618    integer *incx, real *c__, complex *s, integer *incc);
00619  
00620 /* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda, 
00621   complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
00622  
00623 /* Subroutine */ int clarf_(char *side, integer *m, integer *n, complex *v, 
00624   integer *incv, complex *tau, complex *c__, integer *ldc, complex *
00625   work);
00626  
00627 /* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char *
00628   storev, integer *m, integer *n, integer *k, complex *v, integer *ldv, 
00629   complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, 
00630   integer *ldwork);
00631  
00632 /* Subroutine */ int clarfg_(integer *n, complex *alpha, complex *x, integer *
00633   incx, complex *tau);
00634  
00635 /* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer *
00636   k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
00637  
00638 /* Subroutine */ int clarfx_(char *side, integer *m, integer *n, complex *v, 
00639   complex *tau, complex *c__, integer *ldc, complex *work);
00640  
00641 /* Subroutine */ int clargv_(integer *n, complex *x, integer *incx, complex *
00642   y, integer *incy, real *c__, integer *incc);
00643  
00644 /* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n, 
00645   complex *x);
00646  
00647 /* Subroutine */ int clarrv_(integer *n, real *d__, real *l, integer *isplit, 
00648   integer *m, real *w, integer *iblock, real *gersch, real *tol, 
00649   complex *z__, integer *ldz, integer *isuppz, real *work, integer *
00650   iwork, integer *info);
00651  
00652 /* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn, 
00653   complex *r__);
00654  
00655 /* Subroutine */ int clartv_(integer *n, complex *x, integer *incx, complex *
00656   y, integer *incy, real *c__, complex *s, integer *incc);
00657  
00658 /* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l, 
00659   complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, 
00660   complex *work);
00661  
00662 /* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char *
00663   storev, integer *m, integer *n, integer *k, integer *l, complex *v, 
00664   integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc, 
00665   complex *work, integer *ldwork);
00666  
00667 /* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer *
00668   k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
00669  
00670 /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real *
00671   cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda, 
00672   integer *info);
00673  
00674 /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex *
00675   alpha, complex *beta, complex *a, integer *lda);
00676  
00677 /* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m,
00678    integer *n, real *c__, real *s, complex *a, integer *lda);
00679  
00680 /* Subroutine */ int classq_(integer *n, complex *x, integer *incx, real *
00681   scale, real *sumsq);
00682  
00683 /* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer *
00684   k1, integer *k2, integer *ipiv, integer *incx);
00685  
00686 /* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb,
00687    complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, 
00688   integer *info);
00689  
00690 /* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char *
00691   normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *
00692   x, real *scale, real *cnorm, integer *info);
00693  
00694 /* Subroutine */ int clatdf_(integer *ijob, integer *n, complex *z__, integer 
00695   *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer 
00696   *jpiv);
00697  
00698 /* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char *
00699   normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm,
00700    integer *info);
00701  
00702 /* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, complex *a, 
00703   integer *lda, real *e, complex *tau, complex *w, integer *ldw);
00704  
00705 /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char *
00706   normin, integer *n, complex *a, integer *lda, complex *x, real *scale,
00707    real *cnorm, integer *info);
00708  
00709 /* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, complex *a, 
00710   integer *lda, complex *tau, complex *work);
00711  
00712 /* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v, 
00713   integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc, 
00714   complex *work);
00715  
00716 /* Subroutine */ int clauu2_(char *uplo, integer *n, complex *a, integer *lda,
00717    integer *info);
00718  
00719 /* Subroutine */ int clauum_(char *uplo, integer *n, complex *a, integer *lda,
00720    integer *info);
00721  
00722 /* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab,
00723    integer *ldab, real *anorm, real *rcond, complex *work, real *rwork, 
00724   integer *info);
00725  
00726 /* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab,
00727    integer *ldab, real *s, real *scond, real *amax, integer *info);
00728  
00729 /* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer *
00730   nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, 
00731   complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *
00732   berr, complex *work, real *rwork, integer *info);
00733  
00734 /* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab,
00735    integer *ldab, integer *info);
00736  
00737 /* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer *
00738   nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
00739   info);
00740  
00741 /* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
00742   integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
00743   ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x, 
00744   integer *ldx, real *rcond, real *ferr, real *berr, complex *work, 
00745   real *rwork, integer *info);
00746  
00747 /* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab,
00748    integer *ldab, integer *info);
00749  
00750 /* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab,
00751    integer *ldab, integer *info);
00752  
00753 /* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer *
00754   nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
00755   info);
00756  
00757 /* Subroutine */ int cpocon_(char *uplo, integer *n, complex *a, integer *lda,
00758    real *anorm, real *rcond, complex *work, real *rwork, integer *info);
00759  
00760 /* Subroutine */ int cpoequ_(integer *n, complex *a, integer *lda, real *s, 
00761   real *scond, real *amax, integer *info);
00762  
00763 /* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, complex *
00764   a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb,
00765    complex *x, integer *ldx, real *ferr, real *berr, complex *work, 
00766   real *rwork, integer *info);
00767  
00768 /* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, complex *a,
00769    integer *lda, complex *b, integer *ldb, integer *info);
00770  
00771 /* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer *
00772   nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
00773   equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, 
00774   real *rcond, real *ferr, real *berr, complex *work, real *rwork, 
00775   integer *info);
00776  
00777 /* Subroutine */ int cpotf2_(char *uplo, integer *n, complex *a, integer *lda,
00778    integer *info);
00779  
00780 /* Subroutine */ int cpotrf_(char *uplo, integer *n, complex *a, integer *lda,
00781    integer *info);
00782  
00783 /* Subroutine */ int cpotri_(char *uplo, integer *n, complex *a, integer *lda,
00784    integer *info);
00785  
00786 /* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *
00787   a, integer *lda, complex *b, integer *ldb, integer *info);
00788  
00789 /* Subroutine */ int cppcon_(char *uplo, integer *n, complex *ap, real *anorm,
00790    real *rcond, complex *work, real *rwork, integer *info);
00791  
00792 /* Subroutine */ int cppequ_(char *uplo, integer *n, complex *ap, real *s, 
00793   real *scond, real *amax, integer *info);
00794  
00795 /* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *
00796   ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx, 
00797   real *ferr, real *berr, complex *work, real *rwork, integer *info);
00798  
00799 /* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, complex *
00800   ap, complex *b, integer *ldb, integer *info);
00801  
00802 /* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer *
00803   nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b, 
00804   integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real 
00805   *berr, complex *work, real *rwork, integer *info);
00806  
00807 /* Subroutine */ int cpptrf_(char *uplo, integer *n, complex *ap, integer *
00808   info);
00809  
00810 /* Subroutine */ int cpptri_(char *uplo, integer *n, complex *ap, integer *
00811   info);
00812  
00813 /* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *
00814   ap, complex *b, integer *ldb, integer *info);
00815  
00816 /* Subroutine */ int cptcon_(integer *n, real *d__, complex *e, real *anorm, 
00817   real *rcond, real *rwork, integer *info);
00818  
00819 /* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__,
00820    complex *e, real *df, complex *ef, complex *b, integer *ldb, complex 
00821   *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
00822   integer *info);
00823  
00824 /* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, complex *e, 
00825   complex *b, integer *ldb, integer *info);
00826  
00827 /* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
00828    complex *e, real *df, complex *ef, complex *b, integer *ldb, complex 
00829   *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, 
00830   real *rwork, integer *info);
00831  
00832 /* Subroutine */ int cpttrf_(integer *n, real *d__, complex *e, integer *info);
00833  
00834 /* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__,
00835    complex *e, complex *b, integer *ldb, integer *info);
00836  
00837 /* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *
00838   d__, complex *e, complex *b, integer *ldb);
00839  
00840 /* Subroutine */ int crot_(integer *n, complex *cx, integer *incx, complex *
00841   cy, integer *incy, real *c__, complex *s);
00842  
00843 /* Subroutine */ int cspcon_(char *uplo, integer *n, complex *ap, integer *
00844   ipiv, real *anorm, real *rcond, complex *work, integer *info);
00845  
00846 /* Subroutine */ int cspmv_(char *uplo, integer *n, complex *alpha, complex *
00847   ap, complex *x, integer *incx, complex *beta, complex *y, integer *
00848   incy);
00849  
00850 /* Subroutine */ int cspr_(char *uplo, integer *n, complex *alpha, complex *x,
00851    integer *incx, complex *ap);
00852  
00853 /* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, complex *
00854   ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
00855    integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
00856   integer *info);
00857  
00858 /* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, complex *
00859   ap, integer *ipiv, complex *b, integer *ldb, integer *info);
00860  
00861 /* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer *
00862   nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
00863   ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, 
00864   complex *work, real *rwork, integer *info);
00865  
00866 /* Subroutine */ int csptrf_(char *uplo, integer *n, complex *ap, integer *
00867   ipiv, integer *info);
00868  
00869 /* Subroutine */ int csptri_(char *uplo, integer *n, complex *ap, integer *
00870   ipiv, complex *work, integer *info);
00871  
00872 /* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, complex *
00873   ap, integer *ipiv, complex *b, integer *ldb, integer *info);
00874  
00875 /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex *
00876   cy, integer *incy, real *c__, real *s);
00877  
00878 /* Subroutine */ int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
00879  
00880 /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e, 
00881   complex *z__, integer *ldz, complex *work, integer *lwork, real *
00882   rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
00883   info);
00884  
00885 /* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real 
00886   *w, integer *iblock, integer *isplit, complex *z__, integer *ldz, 
00887   real *work, integer *iwork, integer *ifail, integer *info);
00888  
00889 /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e, 
00890   complex *z__, integer *ldz, real *work, integer *info);
00891  
00892 /* Subroutine */ int csycon_(char *uplo, integer *n, complex *a, integer *lda,
00893    integer *ipiv, real *anorm, real *rcond, complex *work, integer *
00894   info);
00895  
00896 /* Subroutine */ int csymv_(char *uplo, integer *n, complex *alpha, complex *
00897   a, integer *lda, complex *x, integer *incx, complex *beta, complex *y,
00898    integer *incy);
00899  
00900 /* Subroutine */ int csyr_(char *uplo, integer *n, complex *alpha, complex *x,
00901    integer *incx, complex *a, integer *lda);
00902  
00903 /* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, complex *
00904   a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
00905   b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 
00906   complex *work, real *rwork, integer *info);
00907  
00908 /* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, complex *a,
00909    integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
00910    integer *lwork, integer *info);
00911  
00912 /* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer *
00913   nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
00914   ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
00915    real *ferr, real *berr, complex *work, integer *lwork, real *rwork, 
00916   integer *info);
00917  
00918 /* Subroutine */ int csytf2_(char *uplo, integer *n, complex *a, integer *lda,
00919    integer *ipiv, integer *info);
00920  
00921 /* Subroutine */ int csytrf_(char *uplo, integer *n, complex *a, integer *lda,
00922    integer *ipiv, complex *work, integer *lwork, integer *info);
00923  
00924 /* Subroutine */ int csytri_(char *uplo, integer *n, complex *a, integer *lda,
00925    integer *ipiv, complex *work, integer *info);
00926  
00927 /* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, complex *
00928   a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
00929   info);
00930  
00931 /* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n, 
00932   integer *kd, complex *ab, integer *ldab, real *rcond, complex *work, 
00933   real *rwork, integer *info);
00934  
00935 /* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n, 
00936   integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, 
00937   integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, 
00938   complex *work, real *rwork, integer *info);
00939  
00940 /* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n, 
00941   integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, 
00942   integer *ldb, integer *info);
00943  
00944 /* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select, 
00945   integer *n, complex *a, integer *lda, complex *b, integer *ldb, 
00946   complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, 
00947   integer *m, complex *work, real *rwork, integer *info);
00948  
00949 /* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n, 
00950   complex *a, integer *lda, complex *b, integer *ldb, complex *q, 
00951   integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info);
00952  
00953 /* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n, 
00954   complex *a, integer *lda, complex *b, integer *ldb, complex *q, 
00955   integer *ldq, complex *z__, integer *ldz, integer *ifst, integer *
00956   ilst, integer *info);
00957  
00958 /* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz, 
00959   logical *select, integer *n, complex *a, integer *lda, complex *b, 
00960   integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
00961    complex *z__, integer *ldz, integer *m, real *pl, real *pr, real *
00962   dif, complex *work, integer *lwork, integer *iwork, integer *liwork, 
00963   integer *info);
00964  
00965 /* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m, 
00966   integer *p, integer *n, integer *k, integer *l, complex *a, integer *
00967   lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha, 
00968   real *beta, complex *u, integer *ldu, complex *v, integer *ldv, 
00969   complex *q, integer *ldq, complex *work, integer *ncycle, integer *
00970   info);
00971  
00972 /* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select, 
00973   integer *n, complex *a, integer *lda, complex *b, integer *ldb, 
00974   complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real 
00975   *dif, integer *mm, integer *m, complex *work, integer *lwork, integer 
00976   *iwork, integer *info);
00977  
00978 /* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer *
00979   n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, 
00980   integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, 
00981   complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal, 
00982   integer *info);
00983  
00984 /* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer *
00985   n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, 
00986   integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, 
00987   complex *f, integer *ldf, real *scale, real *dif, complex *work, 
00988   integer *lwork, integer *iwork, integer *info);
00989  
00990 /* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n, 
00991   complex *ap, real *rcond, complex *work, real *rwork, integer *info);
00992  
00993 /* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n, 
00994   integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x, 
00995   integer *ldx, real *ferr, real *berr, complex *work, real *rwork, 
00996   integer *info);
00997  
00998 /* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, complex *ap, 
00999   integer *info);
01000  
01001 /* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n, 
01002   integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info);
01003  
01004 /* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n, 
01005   complex *a, integer *lda, real *rcond, complex *work, real *rwork, 
01006   integer *info);
01007  
01008 /* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select, 
01009   integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, 
01010   complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, 
01011   real *rwork, integer *info);
01012  
01013 /* Subroutine */ int ctrexc_(char *compq, integer *n, complex *t, integer *
01014   ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *
01015   info);
01016  
01017 /* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n, 
01018   integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, 
01019   complex *x, integer *ldx, real *ferr, real *berr, complex *work, real 
01020   *rwork, integer *info);
01021  
01022 /* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer 
01023   *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w, 
01024   integer *m, real *s, real *sep, complex *work, integer *lwork, 
01025   integer *info);
01026  
01027 /* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select, 
01028   integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, 
01029   complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *
01030   m, complex *work, integer *ldwork, real *rwork, integer *info);
01031  
01032 /* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer 
01033   *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, 
01034   complex *c__, integer *ldc, real *scale, integer *info);
01035  
01036 /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a, 
01037   integer *lda, integer *info);
01038  
01039 /* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, complex *a, 
01040   integer *lda, integer *info);
01041  
01042 /* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n, 
01043   integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, 
01044   integer *info);
01045  
01046 /* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
01047    complex *tau, integer *info);
01048  
01049 /* Subroutine */ int ctzrzf_(integer *m, integer *n, complex *a, integer *lda,
01050    complex *tau, complex *work, integer *lwork, integer *info);
01051  
01052 /* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, complex *a, 
01053   integer *lda, complex *tau, complex *work, integer *info);
01054  
01055 /* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, complex *a, 
01056   integer *lda, complex *tau, complex *work, integer *info);
01057  
01058 /* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k, 
01059   complex *a, integer *lda, complex *tau, complex *work, integer *lwork,
01060    integer *info);
01061  
01062 /* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, complex *
01063   a, integer *lda, complex *tau, complex *work, integer *lwork, integer 
01064   *info);
01065  
01066 /* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, complex *a, 
01067   integer *lda, complex *tau, complex *work, integer *info);
01068  
01069 /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a, 
01070   integer *lda, complex *tau, complex *work, integer *lwork, integer *
01071   info);
01072  
01073 /* Subroutine */ int cungql_(integer *m, integer *n, integer *k, complex *a, 
01074   integer *lda, complex *tau, complex *work, integer *lwork, integer *
01075   info);
01076  
01077 /* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, complex *a, 
01078   integer *lda, complex *tau, complex *work, integer *lwork, integer *
01079   info);
01080  
01081 /* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, complex *a, 
01082   integer *lda, complex *tau, complex *work, integer *info);
01083  
01084 /* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, complex *a, 
01085   integer *lda, complex *tau, complex *work, integer *lwork, integer *
01086   info);
01087  
01088 /* Subroutine */ int cungtr_(char *uplo, integer *n, complex *a, integer *lda,
01089    complex *tau, complex *work, integer *lwork, integer *info);
01090  
01091 /* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n, 
01092   integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01093   integer *ldc, complex *work, integer *info);
01094  
01095 /* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n, 
01096   integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01097   integer *ldc, complex *work, integer *info);
01098  
01099 /* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m, 
01100   integer *n, integer *k, complex *a, integer *lda, complex *tau, 
01101   complex *c__, integer *ldc, complex *work, integer *lwork, integer *
01102   info);
01103  
01104 /* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n, 
01105   integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, 
01106   complex *c__, integer *ldc, complex *work, integer *lwork, integer *
01107   info);
01108  
01109 /* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n, 
01110   integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01111   integer *ldc, complex *work, integer *info);
01112  
01113 /* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n, 
01114   integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01115   integer *ldc, complex *work, integer *lwork, integer *info);
01116  
01117 /* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n, 
01118   integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01119   integer *ldc, complex *work, integer *lwork, integer *info);
01120  
01121 /* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n, 
01122   integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01123   integer *ldc, complex *work, integer *lwork, integer *info);
01124  
01125 /* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n, 
01126   integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01127   integer *ldc, complex *work, integer *info);
01128  
01129 /* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n, 
01130   integer *k, integer *l, complex *a, integer *lda, complex *tau, 
01131   complex *c__, integer *ldc, complex *work, integer *info);
01132  
01133 /* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n, 
01134   integer *k, complex *a, integer *lda, complex *tau, complex *c__, 
01135   integer *ldc, complex *work, integer *lwork, integer *info);
01136  
01137 /* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n, 
01138   integer *k, integer *l, complex *a, integer *lda, complex *tau, 
01139   complex *c__, integer *ldc, complex *work, integer *lwork, integer *
01140   info);
01141  
01142 /* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m, 
01143   integer *n, complex *a, integer *lda, complex *tau, complex *c__, 
01144   integer *ldc, complex *work, integer *lwork, integer *info);
01145  
01146 /* Subroutine */ int cupgtr_(char *uplo, integer *n, complex *ap, complex *
01147   tau, complex *q, integer *ldq, complex *work, integer *info);
01148  
01149 /* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m, 
01150   integer *n, complex *ap, complex *tau, complex *c__, integer *ldc, 
01151   complex *work, integer *info);
01152  
01153 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
01154   d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, 
01155   integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
01156   iwork, integer *info);
01157  
01158 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
01159   nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, 
01160   integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
01161   ldc, doublereal *work, integer *info);
01162  
01163 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal *
01164   d__, doublereal *sep, integer *info);
01165  
01166 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
01167    integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
01168   d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt, 
01169   integer *ldpt, doublereal *c__, integer *ldc, doublereal *work, 
01170   integer *info);
01171  
01172 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
01173    doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm, 
01174   doublereal *rcond, doublereal *work, integer *iwork, integer *info);
01175  
01176 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
01177    doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
01178   doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
01179   info);
01180  
01181 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer *
01182   ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 
01183   integer *ldafb, integer *ipiv, doublereal *b, integer *ldb, 
01184   doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
01185   doublereal *work, integer *iwork, integer *info);
01186  
01187 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer *
01188   nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, 
01189   integer *ldb, integer *info);
01190  
01191 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
01192    integer *ku, integer *nrhs, doublereal *ab, integer *ldab, 
01193   doublereal *afb, integer *ldafb, integer *ipiv, char *equed, 
01194   doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, 
01195   doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
01196   doublereal *berr, doublereal *work, integer *iwork, integer *info);
01197  
01198 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
01199    doublereal *ab, integer *ldab, integer *ipiv, integer *info);
01200  
01201 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
01202    doublereal *ab, integer *ldab, integer *ipiv, integer *info);
01203  
01204 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer *
01205   ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, 
01206   doublereal *b, integer *ldb, integer *info);
01207  
01208 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo, 
01209   integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
01210   ldv, integer *info);
01211  
01212 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer *
01213   lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
01214  
01215 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
01216   lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
01217   taup, doublereal *work, integer *info);
01218  
01219 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer *
01220   lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
01221   taup, doublereal *work, integer *lwork, integer *info);
01222  
01223 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer *
01224   lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
01225   iwork, integer *info);
01226  
01227 /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer *
01228   lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 
01229   *colcnd, doublereal *amax, integer *info);
01230  
01231 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n, 
01232   doublereal *a, integer *lda, integer *sdim, doublereal *wr, 
01233   doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work, 
01234   integer *lwork, logical *bwork, integer *info);
01235  
01236 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
01237   sense, integer *n, doublereal *a, integer *lda, integer *sdim, 
01238   doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, 
01239   doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
01240   lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
01241  
01242 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
01243   a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, 
01244   integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, 
01245   integer *lwork, integer *info);
01246  
01247 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
01248   sense, integer *n, doublereal *a, integer *lda, doublereal *wr, 
01249   doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 
01250   integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, 
01251   doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal 
01252   *work, integer *lwork, integer *iwork, integer *info);
01253  
01254 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n, 
01255   doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
01256   alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, 
01257   integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, 
01258   integer *lwork, integer *info);
01259  
01260 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
01261   a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 
01262   doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 
01263   doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 
01264   integer *info);
01265  
01266 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi, 
01267   doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
01268   integer *info);
01269  
01270 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi, 
01271   doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
01272   integer *lwork, integer *info);
01273  
01274 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
01275   lda, doublereal *tau, doublereal *work, integer *info);
01276  
01277 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
01278   lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01279  
01280 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
01281   nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
01282   doublereal *work, integer *lwork, integer *info);
01283  
01284 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs, 
01285   doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
01286   s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
01287    integer *iwork, integer *info);
01288  
01289 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs, 
01290   doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
01291   s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
01292    integer *info);
01293  
01294 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs, 
01295   doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
01296   jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
01297   info);
01298  
01299 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs, 
01300   doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
01301   jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
01302   lwork, integer *info);
01303  
01304 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer *
01305   lda, doublereal *tau, doublereal *work, integer *info);
01306  
01307 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
01308   lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01309  
01310 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
01311   lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
01312    integer *info);
01313  
01314 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
01315   lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
01316  
01317 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
01318   lda, doublereal *tau, doublereal *work, integer *info);
01319  
01320 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
01321   lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01322  
01323 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs, 
01324   doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
01325   ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 
01326   doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 
01327   integer *info);
01328  
01329 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer *
01330   lda, doublereal *tau, doublereal *work, integer *info);
01331  
01332 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer *
01333   lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
01334  
01335 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda, 
01336   doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
01337  
01338 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
01339   a, integer *lda, doublereal *s, doublereal *u, integer *ldu, 
01340   doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 
01341   integer *iwork, integer *info);
01342  
01343 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer 
01344   *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
01345  
01346 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 
01347   doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
01348   ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, 
01349   integer *info);
01350  
01351 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer *
01352   nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
01353   integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 
01354   doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
01355   rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
01356   iwork, integer *info);
01357  
01358 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer 
01359   *ipiv, integer *jpiv, integer *info);
01360  
01361 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer *
01362   lda, integer *ipiv, integer *info);
01363  
01364 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
01365   lda, integer *ipiv, integer *info);
01366  
01367 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer 
01368   *ipiv, doublereal *work, integer *lwork, integer *info);
01369  
01370 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs, 
01371   doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
01372   ldb, integer *info);
01373  
01374 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo, 
01375   integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 
01376   doublereal *v, integer *ldv, integer *info);
01377  
01378 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer *
01379   lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi, 
01380   doublereal *lscale, doublereal *rscale, doublereal *work, integer *
01381   info);
01382  
01383 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
01384   delctg, integer *n, doublereal *a, integer *lda, doublereal *b, 
01385   integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, 
01386   doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, 
01387   integer *ldvsr, doublereal *work, integer *lwork, logical *bwork, 
01388   integer *info);
01389  
01390 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
01391   delctg, char *sense, integer *n, doublereal *a, integer *lda, 
01392   doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, 
01393   doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
01394    doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
01395   rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
01396   liwork, logical *bwork, integer *info);
01397  
01398 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
01399   a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, 
01400   doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, 
01401   doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, 
01402   integer *info);
01403  
01404 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
01405   sense, integer *n, doublereal *a, integer *lda, doublereal *b, 
01406   integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
01407   beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 
01408   integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 
01409   doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
01410   rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
01411   bwork, integer *info);
01412  
01413 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal *
01414   a, integer *lda, doublereal *b, integer *ldb, doublereal *d__, 
01415   doublereal *x, doublereal *y, doublereal *work, integer *lwork, 
01416   integer *info);
01417  
01418 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer *
01419   ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, 
01420   integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
01421   ldz, integer *info);
01422  
01423 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal *
01424   a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, 
01425   doublereal *d__, doublereal *x, doublereal *work, integer *lwork, 
01426   integer *info);
01427  
01428 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal *
01429   a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 
01430   doublereal *taub, doublereal *work, integer *lwork, integer *info);
01431  
01432 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal *
01433   a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, 
01434   doublereal *taub, doublereal *work, integer *lwork, integer *info);
01435  
01436 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
01437   integer *n, integer *p, integer *k, integer *l, doublereal *a, 
01438   integer *lda, doublereal *b, integer *ldb, doublereal *alpha, 
01439   doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer 
01440   *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork, 
01441   integer *info);
01442  
01443 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
01444   integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, 
01445   integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer 
01446   *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, 
01447   doublereal *q, integer *ldq, integer *iwork, doublereal *tau, 
01448   doublereal *work, integer *info);
01449  
01450 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl, 
01451   doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, 
01452   doublereal *anorm, doublereal *rcond, doublereal *work, integer *
01453   iwork, integer *info);
01454  
01455 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs, 
01456   doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf, 
01457   doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 
01458   doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
01459   ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
01460   info);
01461  
01462 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl, 
01463   doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer 
01464   *info);
01465  
01466 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer *
01467   nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
01468   dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, 
01469   doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
01470   rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
01471   iwork, integer *info);
01472  
01473 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__, 
01474   doublereal *du, doublereal *du2, integer *ipiv, integer *info);
01475  
01476 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs, 
01477   doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 
01478   integer *ipiv, doublereal *b, integer *ldb, integer *info);
01479  
01480 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs, 
01481   doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, 
01482   integer *ipiv, doublereal *b, integer *ldb);
01483  
01484 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n, 
01485   integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
01486   b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
01487   beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 
01488   doublereal *work, integer *lwork, integer *info);
01489  
01490 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
01491   select, integer *n, doublereal *h__, integer *ldh, doublereal *wr, 
01492   doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, 
01493   integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
01494   ifaill, integer *ifailr, integer *info);
01495  
01496 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
01497    integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, 
01498   doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, 
01499   integer *lwork, integer *info);
01500  
01501 /* Subroutine */ int dlabad_(doublereal *small, doublereal *large);
01502  
01503 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
01504   a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, 
01505   doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer 
01506   *ldy);
01507  
01508 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x, 
01509   integer *isgn, doublereal *est, integer *kase);
01510  
01511 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
01512   a, integer *lda, doublereal *b, integer *ldb);
01513  
01514 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__, 
01515   doublereal *d__, doublereal *p, doublereal *q);
01516  
01517 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__, 
01518   doublereal *rt1, doublereal *rt2);
01519  
01520 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n, 
01521   integer *mmax, integer *minp, integer *nbmin, doublereal *abstol, 
01522   doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
01523   e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__, 
01524   integer *mout, integer *nab, doublereal *work, integer *iwork, 
01525   integer *info);
01526  
01527 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n, 
01528   doublereal *d__, doublereal *e, doublereal *q, integer *ldq, 
01529   doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, 
01530   integer *info);
01531  
01532 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q, 
01533   integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, 
01534   doublereal *work, integer *iwork, integer *info);
01535  
01536 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
01537   d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, 
01538   doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2, 
01539   integer *indx, integer *indxc, integer *indxp, integer *coltyp, 
01540   integer *info);
01541  
01542 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
01543   d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
01544    doublereal *q2, integer *indx, integer *ctot, doublereal *w, 
01545   doublereal *s, integer *info);
01546  
01547 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__, 
01548   doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
01549    integer *info);
01550  
01551 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, 
01552   doublereal *delta, doublereal *rho, doublereal *dlam);
01553  
01554 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal *
01555   rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
01556   tau, integer *info);
01557  
01558 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz, 
01559   integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 
01560   doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer 
01561   *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
01562   perm, integer *givptr, integer *givcol, doublereal *givnum, 
01563   doublereal *work, integer *iwork, integer *info);
01564  
01565 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer 
01566   *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, 
01567   doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
01568    doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer 
01569   *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer 
01570   *indx, integer *info);
01571  
01572 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop, 
01573   integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
01574   rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds, 
01575   integer *info);
01576  
01577 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl, 
01578   integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 
01579   integer *givcol, doublereal *givnum, doublereal *q, integer *qptr, 
01580   doublereal *z__, doublereal *ztemp, integer *info);
01581  
01582 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n, 
01583   doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, 
01584   doublereal *vr, doublereal *vi, doublereal *b, integer *ldb, 
01585   doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
01586   bignum, integer *info);
01587  
01588 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, 
01589   doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
01590  
01591 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t, 
01592   integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, 
01593   integer *n2, doublereal *work, integer *info);
01594  
01595 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b, 
01596   integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
01597   scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
01598  
01599 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2, 
01600   doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3, 
01601   doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv, 
01602   doublereal *csq, doublereal *snq);
01603  
01604 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda, 
01605   doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, 
01606   integer *in, integer *info);
01607  
01608 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs, 
01609   doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, 
01610   doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer 
01611   *ldb);
01612  
01613 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a, 
01614   doublereal *b, doublereal *c__, doublereal *d__, integer *in, 
01615   doublereal *y, doublereal *tol, integer *info);
01616  
01617 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b, 
01618   integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
01619   beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
01620   snr);
01621  
01622 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n, 
01623   integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal 
01624   *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, 
01625   integer *ldz, integer *info);
01626  
01627 /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
01628   a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, 
01629   doublereal *y, integer *ldy);
01630  
01631 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x, 
01632   doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
01633   sestpr, doublereal *s, doublereal *c__);
01634  
01635 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw, 
01636   doublereal *smin, doublereal *ca, doublereal *a, integer *lda, 
01637   doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, 
01638   doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, 
01639   doublereal *scale, doublereal *xnorm, integer *info);
01640  
01641 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr, 
01642   integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal 
01643   *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, 
01644   integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
01645   poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
01646   k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
01647  
01648 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n, 
01649   integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
01650   ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, 
01651   doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
01652   poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
01653   perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
01654   work, integer *iwork, integer *info);
01655  
01656 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer 
01657   *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, 
01658   doublereal *rcond, integer *rank, doublereal *work, integer *iwork, 
01659   integer *info);
01660  
01661 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical 
01662   *ieee1);
01663  
01664 /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd, 
01665   doublereal *eps, integer *emin, doublereal *rmin, integer *emax, 
01666   doublereal *rmax);
01667  
01668 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base);
01669  
01670 /* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin, 
01671   logical *ieee, integer *emax, doublereal *rmax);
01672  
01673 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer 
01674   *dtrd1, integer *dtrd2, integer *index);
01675  
01676 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, 
01677   doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
01678    doublereal *rt2i, doublereal *cs, doublereal *sn);
01679  
01680 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx, 
01681   doublereal *y, integer *incy, doublereal *ssmin);
01682  
01683 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n, 
01684   doublereal *x, integer *ldx, integer *k);
01685  
01686 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
01687    doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, 
01688   doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
01689  
01690 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer *
01691   lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal 
01692   *colcnd, doublereal *amax, char *equed);
01693  
01694 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset, 
01695   doublereal *a, integer *lda, integer *jpvt, doublereal *tau, 
01696   doublereal *vn1, doublereal *vn2, doublereal *work);
01697  
01698 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer 
01699   *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt, 
01700   doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv, 
01701   doublereal *f, integer *ldf);
01702  
01703 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
01704   ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
01705    char *equed);
01706  
01707 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap, 
01708   doublereal *s, doublereal *scond, doublereal *amax, char *equed);
01709  
01710 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
01711   lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
01712  
01713 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n, 
01714   doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal 
01715   *scale, doublereal *x, doublereal *work, integer *info);
01716  
01717 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal 
01718   *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
01719   lld, doublereal *gersch, doublereal *z__, doublereal *ztz, doublereal 
01720   *mingma, integer *r__, integer *isuppz, doublereal *work);
01721  
01722 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y, 
01723   doublereal *z__, integer *incx, doublereal *c__, doublereal *s, 
01724   integer *incc);
01725  
01726 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v,
01727    integer *incv, doublereal *tau, doublereal *c__, integer *ldc, 
01728   doublereal *work);
01729  
01730 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
01731   storev, integer *m, integer *n, integer *k, doublereal *v, integer *
01732   ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, 
01733   doublereal *work, integer *ldwork);
01734  
01735 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x, 
01736   integer *incx, doublereal *tau);
01737  
01738 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
01739   k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
01740   integer *ldt);
01741  
01742 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal *
01743   v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
01744  
01745 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx, 
01746   doublereal *y, integer *incy, doublereal *c__, integer *incc);
01747  
01748 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n, 
01749   doublereal *x);
01750  
01751 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *l, 
01752   doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast, 
01753   doublereal *sigma, doublereal *reltol, doublereal *w, doublereal *
01754   wgap, doublereal *werr, doublereal *work, integer *iwork, integer *
01755   info);
01756  
01757 /* Subroutine */ int dlarre_(integer *n, doublereal *d__, doublereal *e, 
01758   doublereal *tol, integer *nsplit, integer *isplit, integer *m, 
01759   doublereal *w, doublereal *woff, doublereal *gersch, doublereal *work,
01760    integer *info);
01761  
01762 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l, 
01763   doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast, 
01764   doublereal *w, doublereal *dplus, doublereal *lplus, doublereal *work,
01765    integer *iwork, integer *info);
01766  
01767 /* Subroutine */ int dlarrv_(integer *n, doublereal *d__, doublereal *l, 
01768   integer *isplit, integer *m, doublereal *w, integer *iblock, 
01769   doublereal *gersch, doublereal *tol, doublereal *z__, integer *ldz, 
01770   integer *isuppz, doublereal *work, integer *iwork, integer *info);
01771  
01772 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs, 
01773   doublereal *sn, doublereal *r__);
01774  
01775 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx, 
01776   doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer 
01777   *incc);
01778  
01779 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x);
01780  
01781 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l, 
01782   doublereal *v, integer *incv, doublereal *tau, doublereal *c__, 
01783   integer *ldc, doublereal *work);
01784  
01785 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
01786   storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
01787    integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
01788   ldc, doublereal *work, integer *ldwork);
01789  
01790 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer *
01791   k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, 
01792   integer *ldt);
01793  
01794 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__, 
01795   doublereal *ssmin, doublereal *ssmax);
01796  
01797 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku, 
01798   doublereal *cfrom, doublereal *cto, integer *m, integer *n, 
01799   doublereal *a, integer *lda, integer *info);
01800  
01801 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__, 
01802   doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
01803   ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
01804   info);
01805  
01806 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre, 
01807   doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u, 
01808   integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
01809   iwork, doublereal *work, integer *info);
01810  
01811 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer 
01812   *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
01813   beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, 
01814   doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2, 
01815   integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
01816   idxq, integer *coltyp, integer *info);
01817  
01818 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer 
01819   *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma, 
01820   doublereal *u, integer *ldu, doublereal *u2, integer *ldu2, 
01821   doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2, 
01822   integer *idxc, integer *ctot, doublereal *z__, integer *info);
01823  
01824 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__, 
01825   doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
01826   sigma, doublereal *work, integer *info);
01827  
01828 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, 
01829   doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
01830   work);
01831  
01832 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr, 
01833   integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl, 
01834   doublereal *alpha, doublereal *beta, integer *idxq, integer *perm, 
01835   integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
01836    integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
01837   difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, 
01838   doublereal *work, integer *iwork, integer *info);
01839  
01840 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr, 
01841   integer *sqre, integer *k, doublereal *d__, doublereal *z__, 
01842   doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl, 
01843   doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
01844   dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, 
01845   integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
01846    integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
01847  
01848 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__, 
01849   doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, 
01850   doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
01851   work, integer *info);
01852  
01853 /* Subroutine */ int dlasd9_(integer *icompq, integer *ldu, integer *k, 
01854   doublereal *d__, doublereal *z__, doublereal *vf, doublereal *vl, 
01855   doublereal *difl, doublereal *difr, doublereal *dsigma, doublereal *
01856   work, integer *info);
01857  
01858 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n, 
01859   integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer 
01860   *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, 
01861   doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, 
01862   integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, 
01863   doublereal *s, doublereal *work, integer *iwork, integer *info);
01864  
01865 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
01866   ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, 
01867   doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, 
01868   doublereal *c__, integer *ldc, doublereal *work, integer *info);
01869  
01870 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
01871   inode, integer *ndiml, integer *ndimr, integer *msub);
01872  
01873 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
01874   alpha, doublereal *beta, doublereal *a, integer *lda);
01875  
01876 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e, 
01877   doublereal *work, integer *info);
01878  
01879 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info);
01880  
01881 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__, 
01882   integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
01883    doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, 
01884   logical *ieee);
01885  
01886 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__, 
01887   integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, 
01888   doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, 
01889   doublereal *tau, integer *ttype);
01890  
01891 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__, 
01892   integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, 
01893   doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
01894    logical *ieee);
01895  
01896 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__, 
01897   integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
01898    doublereal *dn, doublereal *dnm1, doublereal *dnm2);
01899  
01900 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m,
01901    integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
01902   lda);
01903  
01904 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
01905   info);
01906  
01907 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx, 
01908   doublereal *scale, doublereal *sumsq);
01909  
01910 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, 
01911   doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
01912   csr, doublereal *snl, doublereal *csl);
01913  
01914 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer 
01915   *k1, integer *k2, integer *ipiv, integer *incx);
01916  
01917 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, 
01918   integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
01919   tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, 
01920   doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
01921  
01922 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
01923    doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
01924   ldw, integer *info);
01925  
01926 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
01927   normin, integer *n, integer *kd, doublereal *ab, integer *ldab, 
01928   doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
01929  
01930 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__, 
01931   integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, 
01932   integer *ipiv, integer *jpiv);
01933  
01934 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
01935   normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale, 
01936   doublereal *cnorm, integer *info);
01937  
01938 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
01939   a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, 
01940   integer *ldw);
01941  
01942 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
01943   normin, integer *n, doublereal *a, integer *lda, doublereal *x, 
01944   doublereal *scale, doublereal *cnorm, integer *info);
01945  
01946 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal *
01947   a, integer *lda, doublereal *tau, doublereal *work);
01948  
01949 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal *
01950   v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, 
01951   integer *ldc, doublereal *work);
01952  
01953 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
01954   lda, integer *info);
01955  
01956 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer *
01957   lda, integer *info);
01958  
01959 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap, 
01960   doublereal *tau, doublereal *q, integer *ldq, doublereal *work, 
01961   integer *info);
01962  
01963 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m, 
01964   integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer 
01965   *ldc, doublereal *work, integer *info);
01966  
01967 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal *
01968   a, integer *lda, doublereal *tau, doublereal *work, integer *info);
01969  
01970 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal *
01971   a, integer *lda, doublereal *tau, doublereal *work, integer *info);
01972  
01973 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k, 
01974   doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
01975   integer *lwork, integer *info);
01976  
01977 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi, 
01978   doublereal *a, integer *lda, doublereal *tau, doublereal *work, 
01979   integer *lwork, integer *info);
01980  
01981 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal *
01982   a, integer *lda, doublereal *tau, doublereal *work, integer *info);
01983  
01984 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal *
01985   a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
01986   integer *info);
01987  
01988 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal *
01989   a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
01990   integer *info);
01991  
01992 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal *
01993   a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
01994   integer *info);
01995  
01996 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal *
01997   a, integer *lda, doublereal *tau, doublereal *work, integer *info);
01998  
01999 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal *
02000   a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, 
02001   integer *info);
02002  
02003 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
02004   lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
02005  
02006 /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n, 
02007   integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
02008   c__, integer *ldc, doublereal *work, integer *info);
02009  
02010 /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n, 
02011   integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
02012   c__, integer *ldc, doublereal *work, integer *info);
02013  
02014 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m, 
02015   integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, 
02016   doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
02017   integer *info);
02018  
02019 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n, 
02020   integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
02021   tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
02022   integer *info);
02023  
02024 /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n, 
02025   integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
02026   c__, integer *ldc, doublereal *work, integer *info);
02027  
02028 /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n, 
02029   integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
02030   c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
02031  
02032 /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n, 
02033   integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
02034   c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
02035  
02036 /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n, 
02037   integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
02038   c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
02039  
02040 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n, 
02041   integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
02042   c__, integer *ldc, doublereal *work, integer *info);
02043  
02044 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n, 
02045   integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 
02046   doublereal *c__, integer *ldc, doublereal *work, integer *info);
02047  
02048 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n, 
02049   integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
02050   c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
02051  
02052 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n, 
02053   integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, 
02054   doublereal *c__, integer *ldc, doublereal *work, integer *lwork, 
02055   integer *info);
02056  
02057 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m, 
02058   integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
02059   c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
02060  
02061 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
02062   ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
02063   work, integer *iwork, integer *info);
02064  
02065 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
02066   ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
02067    integer *info);
02068  
02069 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
02070   nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, 
02071   doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
02072   ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
02073   info);
02074  
02075 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
02076   ab, integer *ldab, integer *info);
02077  
02078 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer *
02079   nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 
02080   integer *info);
02081  
02082 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
02083   integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, 
02084   integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
02085   ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
02086    doublereal *berr, doublereal *work, integer *iwork, integer *info);
02087  
02088 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
02089   ab, integer *ldab, integer *info);
02090  
02091 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
02092   ab, integer *ldab, integer *info);
02093  
02094 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
02095   nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, 
02096   integer *info);
02097  
02098 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer *
02099   lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
02100   iwork, integer *info);
02101  
02102 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda, 
02103   doublereal *s, doublereal *scond, doublereal *amax, integer *info);
02104  
02105 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs, 
02106   doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
02107   doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
02108   ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
02109   info);
02110  
02111 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal 
02112   *a, integer *lda, doublereal *b, integer *ldb, integer *info);
02113  
02114 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer *
02115   nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
02116   char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
02117   x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
02118   berr, doublereal *work, integer *iwork, integer *info);
02119  
02120 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
02121   lda, integer *info);
02122  
02123 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
02124   lda, integer *info);
02125  
02126 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer *
02127   lda, integer *info);
02128  
02129 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs, 
02130   doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
02131   info);
02132  
02133 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap, 
02134   doublereal *anorm, doublereal *rcond, doublereal *work, integer *
02135   iwork, integer *info);
02136  
02137 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap, 
02138   doublereal *s, doublereal *scond, doublereal *amax, integer *info);
02139  
02140 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs, 
02141   doublereal *ap, doublereal *afp, doublereal *b, integer *ldb, 
02142   doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
02143   doublereal *work, integer *iwork, integer *info);
02144  
02145 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal 
02146   *ap, doublereal *b, integer *ldb, integer *info);
02147  
02148 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer *
02149   nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s, 
02150   doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
02151   rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
02152   iwork, integer *info);
02153  
02154 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
02155   info);
02156  
02157 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
02158   info);
02159  
02160 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs, 
02161   doublereal *ap, doublereal *b, integer *ldb, integer *info);
02162  
02163 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e, 
02164   doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
02165  
02166 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__, 
02167   doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
02168   integer *info);
02169  
02170 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__, 
02171   doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer 
02172   *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
02173    doublereal *work, integer *info);
02174  
02175 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__, 
02176   doublereal *e, doublereal *b, integer *ldb, integer *info);
02177  
02178 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs, 
02179   doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, 
02180   doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
02181   rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
02182   info);
02183  
02184 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e, 
02185   integer *info);
02186  
02187 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__, 
02188   doublereal *e, doublereal *b, integer *ldb, integer *info);
02189  
02190 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__, 
02191   doublereal *e, doublereal *b, integer *ldb);
02192  
02193 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx, 
02194   integer *incx);
02195  
02196 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd, 
02197   doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 
02198   integer *ldz, doublereal *work, integer *info);
02199  
02200 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
02201   doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, 
02202   integer *ldz, doublereal *work, integer *lwork, integer *iwork, 
02203   integer *liwork, integer *info);
02204  
02205 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n, 
02206   integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
02207   ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, 
02208   doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 
02209   integer *ldz, doublereal *work, integer *iwork, integer *ifail, 
02210   integer *info);
02211  
02212 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka, 
02213   integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
02214   ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
02215  
02216 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, 
02217   integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
02218   ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
02219   integer *info);
02220  
02221 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 
02222   integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
02223   ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
02224   integer *lwork, integer *iwork, integer *liwork, integer *info);
02225  
02226 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n, 
02227   integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
02228   bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl, 
02229   doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer 
02230   *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
02231   integer *iwork, integer *ifail, integer *info);
02232  
02233 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd, 
02234   doublereal *ab, integer *ldab, doublereal *d__, doublereal *e, 
02235   doublereal *q, integer *ldq, doublereal *work, integer *info);
02236  
02237 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
02238   ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer 
02239   *iwork, integer *info);
02240  
02241 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal *
02242   ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
02243   integer *info);
02244  
02245 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal *
02246   ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
02247   integer *lwork, integer *iwork, integer *liwork, integer *info);
02248  
02249 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n, 
02250   doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *
02251   iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 
02252   integer *ldz, doublereal *work, integer *iwork, integer *ifail, 
02253   integer *info);
02254  
02255 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n, 
02256   doublereal *ap, doublereal *bp, integer *info);
02257  
02258 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer *
02259   n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, 
02260   integer *ldz, doublereal *work, integer *info);
02261  
02262 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer *
02263   n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, 
02264   integer *ldz, doublereal *work, integer *lwork, integer *iwork, 
02265   integer *liwork, integer *info);
02266  
02267 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char *
02268   uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl, 
02269   doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer 
02270   *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, 
02271   integer *iwork, integer *ifail, integer *info);
02272  
02273 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs, 
02274   doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, 
02275   integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, 
02276   doublereal *berr, doublereal *work, integer *iwork, integer *info);
02277  
02278 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal 
02279   *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
02280  
02281 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer *
02282   nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, 
02283   integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, 
02284   doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 
02285   integer *info);
02286  
02287 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap, 
02288   doublereal *d__, doublereal *e, doublereal *tau, integer *info);
02289  
02290 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
02291   ipiv, integer *info);
02292  
02293 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
02294   ipiv, doublereal *work, integer *info);
02295  
02296 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs, 
02297   doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
02298   info);
02299  
02300 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal 
02301   *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, 
02302   doublereal *d__, doublereal *e, integer *m, integer *nsplit, 
02303   doublereal *w, integer *iblock, integer *isplit, doublereal *work, 
02304   integer *iwork, integer *info);
02305  
02306 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__, 
02307   doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
02308   integer *lwork, integer *iwork, integer *liwork, integer *info);
02309  
02310 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal *
02311   d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
02312   integer *iu, doublereal *abstol, integer *m, doublereal *w, 
02313   doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 
02314   integer *lwork, integer *iwork, integer *liwork, integer *info);
02315  
02316 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e, 
02317   integer *m, doublereal *w, integer *iblock, integer *isplit, 
02318   doublereal *z__, integer *ldz, doublereal *work, integer *iwork, 
02319   integer *ifail, integer *info);
02320  
02321 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__, 
02322   doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
02323   integer *info);
02324  
02325 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e, 
02326   integer *info);
02327  
02328 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__, 
02329   doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
02330   integer *info);
02331  
02332 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__, 
02333   doublereal *e, doublereal *z__, integer *ldz, doublereal *work, 
02334   integer *lwork, integer *iwork, integer *liwork, integer *info);
02335  
02336 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal *
02337   d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
02338   integer *iu, doublereal *abstol, integer *m, doublereal *w, 
02339   doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 
02340   integer *lwork, integer *iwork, integer *liwork, integer *info);
02341  
02342 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal *
02343   d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, 
02344   integer *iu, doublereal *abstol, integer *m, doublereal *w, 
02345   doublereal *z__, integer *ldz, doublereal *work, integer *iwork, 
02346   integer *ifail, integer *info);
02347  
02348 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer *
02349   lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *
02350   work, integer *iwork, integer *info);
02351  
02352 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
02353    integer *lda, doublereal *w, doublereal *work, integer *lwork, 
02354   integer *info);
02355  
02356 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *
02357   a, integer *lda, doublereal *w, doublereal *work, integer *lwork, 
02358   integer *iwork, integer *liwork, integer *info);
02359  
02360 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n, 
02361   doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
02362   il, integer *iu, doublereal *abstol, integer *m, doublereal *w, 
02363   doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, 
02364   integer *lwork, integer *iwork, integer *liwork, integer *info);
02365  
02366 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n, 
02367   doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
02368   il, integer *iu, doublereal *abstol, integer *m, doublereal *w, 
02369   doublereal *z__, integer *ldz, doublereal *work, integer *lwork, 
02370   integer *iwork, integer *ifail, integer *info);
02371  
02372 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n, 
02373   doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
02374   info);
02375  
02376 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n, 
02377   doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
02378   info);
02379  
02380 /* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer *
02381   n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
02382   doublereal *w, doublereal *work, integer *lwork, integer *info);
02383  
02384 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer *
02385   n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
02386   doublereal *w, doublereal *work, integer *lwork, integer *iwork, 
02387   integer *liwork, integer *info);
02388  
02389 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char *
02390   uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer 
02391   *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu, 
02392   doublereal *abstol, integer *m, doublereal *w, doublereal *z__, 
02393   integer *ldz, doublereal *work, integer *lwork, integer *iwork, 
02394   integer *ifail, integer *info);
02395  
02396 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs, 
02397   doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
02398   ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, 
02399   doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, 
02400   integer *info);
02401  
02402 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal 
02403   *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, 
02404   doublereal *work, integer *lwork, integer *info);
02405  
02406 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer *
02407   nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, 
02408   integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *
02409   ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 
02410   doublereal *work, integer *lwork, integer *iwork, integer *info);
02411  
02412 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
02413   lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
02414  
02415 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
02416   lda, integer *ipiv, integer *info);
02417  
02418 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer *
02419   lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *
02420   work, integer *lwork, integer *info);
02421  
02422 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
02423   lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
02424  
02425 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer *
02426   lda, integer *ipiv, doublereal *work, integer *info);
02427  
02428 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs, 
02429   doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
02430   ldb, integer *info);
02431  
02432 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n, 
02433   integer *kd, doublereal *ab, integer *ldab, doublereal *rcond, 
02434   doublereal *work, integer *iwork, integer *info);
02435  
02436 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n, 
02437   integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal 
02438   *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, 
02439   doublereal *berr, doublereal *work, integer *iwork, integer *info);
02440  
02441 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n, 
02442   integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal 
02443   *b, integer *ldb, integer *info);
02444  
02445 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select, 
02446   integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
02447   doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer 
02448   *mm, integer *m, doublereal *work, integer *info);
02449  
02450 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n, 
02451   doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
02452   q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *
02453   n1, integer *n2, doublereal *work, integer *lwork, integer *info);
02454  
02455 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n, 
02456   doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
02457   q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst, 
02458   integer *ilst, doublereal *work, integer *lwork, integer *info);
02459  
02460 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz, 
02461   logical *select, integer *n, doublereal *a, integer *lda, doublereal *
02462   b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
02463   beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, 
02464   integer *m, doublereal *pl, doublereal *pr, doublereal *dif, 
02465   doublereal *work, integer *lwork, integer *iwork, integer *liwork, 
02466   integer *info);
02467  
02468 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m, 
02469   integer *p, integer *n, integer *k, integer *l, doublereal *a, 
02470   integer *lda, doublereal *b, integer *ldb, doublereal *tola, 
02471   doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u, 
02472   integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *
02473   ldq, doublereal *work, integer *ncycle, integer *info);
02474  
02475 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select, 
02476   integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
02477   doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, 
02478   doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *
02479   work, integer *lwork, integer *iwork, integer *info);
02480  
02481 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
02482   n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
02483   doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, 
02484   doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
02485   scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer 
02486   *pq, integer *info);
02487  
02488 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer *
02489   n, doublereal *a, integer *lda, doublereal *b, integer *ldb, 
02490   doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, 
02491   doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
02492   scale, doublereal *dif, doublereal *work, integer *lwork, integer *
02493   iwork, integer *info);
02494  
02495 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n, 
02496   doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork, 
02497   integer *info);
02498  
02499 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n, 
02500   integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, 
02501   doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
02502   doublereal *work, integer *iwork, integer *info);
02503  
02504 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal *
02505   ap, integer *info);
02506  
02507 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n, 
02508   integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
02509   info);
02510  
02511 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n, 
02512   doublereal *a, integer *lda, doublereal *rcond, doublereal *work, 
02513   integer *iwork, integer *info);
02514  
02515 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select, 
02516   integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
02517   ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, 
02518   doublereal *work, integer *info);
02519  
02520 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer *
02521   ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst, 
02522   doublereal *work, integer *info);
02523  
02524 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n, 
02525   integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
02526   ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, 
02527   doublereal *work, integer *iwork, integer *info);
02528  
02529 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer 
02530   *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, 
02531   doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal 
02532   *sep, doublereal *work, integer *lwork, integer *iwork, integer *
02533   liwork, integer *info);
02534  
02535 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select, 
02536   integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
02537   ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep, 
02538   integer *mm, integer *m, doublereal *work, integer *ldwork, integer *
02539   iwork, integer *info);
02540  
02541 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer 
02542   *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *
02543   ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info);
02544  
02545 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
02546   a, integer *lda, integer *info);
02547  
02548 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
02549   a, integer *lda, integer *info);
02550  
02551 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n, 
02552   integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
02553   ldb, integer *info);
02554  
02555 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
02556   lda, doublereal *tau, integer *info);
02557  
02558 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer *
02559   lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
02560  
02561 integer icmax1_(integer *n, complex *cx, integer *incx);
02562  
02563 integer ieeeck_(integer *ispec, real *zero, real *one);
02564  
02565 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, 
02566   integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen 
02567   opts_len);
02568  
02569 integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
02570  
02571 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__, 
02572   real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q, 
02573   integer *iq, real *work, integer *iwork, integer *info);
02574  
02575 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
02576   nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *
02577   u, integer *ldu, real *c__, integer *ldc, real *work, integer *info);
02578  
02579 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__, 
02580   real *sep, integer *info);
02581  
02582 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
02583    integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *
02584   e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer 
02585   *ldc, real *work, integer *info);
02586  
02587 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku,
02588    real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, 
02589   real *work, integer *iwork, integer *info);
02590  
02591 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku,
02592    real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
02593   colcnd, real *amax, integer *info);
02594  
02595 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer *
02596   ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
02597    integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
02598   ferr, real *berr, real *work, integer *iwork, integer *info);
02599  
02600 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer *
02601   nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, 
02602   integer *info);
02603  
02604 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl,
02605    integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, 
02606   integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, 
02607   real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
02608    real *berr, real *work, integer *iwork, integer *info);
02609  
02610 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
02611    real *ab, integer *ldab, integer *ipiv, integer *info);
02612  
02613 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
02614    real *ab, integer *ldab, integer *ipiv, integer *info);
02615  
02616 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer *
02617   ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, 
02618   integer *ldb, integer *info);
02619  
02620 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo, 
02621   integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer 
02622   *info);
02623  
02624 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda, 
02625   integer *ilo, integer *ihi, real *scale, integer *info);
02626  
02627 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda, 
02628   real *d__, real *e, real *tauq, real *taup, real *work, integer *info);
02629  
02630 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda, 
02631   real *d__, real *e, real *tauq, real *taup, real *work, integer *
02632   lwork, integer *info);
02633  
02634 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda, 
02635   real *anorm, real *rcond, real *work, integer *iwork, integer *info);
02636  
02637 /* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda, 
02638   real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer 
02639   *info);
02640  
02641 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n, 
02642   real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs, 
02643   integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
02644   info);
02645  
02646 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char *
02647   sense, integer *n, real *a, integer *lda, integer *sdim, real *wr, 
02648   real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
02649   work, integer *lwork, integer *iwork, integer *liwork, logical *bwork,
02650    integer *info);
02651  
02652 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a, 
02653   integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr, 
02654   integer *ldvr, real *work, integer *lwork, integer *info);
02655  
02656 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *
02657   sense, integer *n, real *a, integer *lda, real *wr, real *wi, real *
02658   vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *
02659   ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work,
02660    integer *lwork, integer *iwork, integer *info);
02661  
02662 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a, 
02663   integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 
02664   *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
02665   work, integer *lwork, integer *info);
02666  
02667 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a, 
02668   integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 
02669   *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, 
02670   integer *lwork, integer *info);
02671  
02672 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, 
02673   integer *lda, real *tau, real *work, integer *info);
02674  
02675 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, 
02676   integer *lda, real *tau, real *work, integer *lwork, integer *info);
02677  
02678 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda, 
02679   real *tau, real *work, integer *info);
02680  
02681 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda, 
02682   real *tau, real *work, integer *lwork, integer *info);
02683  
02684 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer *
02685   nrhs, real *a, integer *lda, real *b, integer *ldb, real *work, 
02686   integer *lwork, integer *info);
02687  
02688 /* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a, 
02689   integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
02690   rank, real *work, integer *lwork, integer *iwork, integer *info);
02691  
02692 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a, 
02693   integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
02694   rank, real *work, integer *lwork, integer *info);
02695  
02696 /* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a, 
02697   integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, 
02698   integer *rank, real *work, integer *info);
02699  
02700 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a, 
02701   integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, 
02702   integer *rank, real *work, integer *lwork, integer *info);
02703  
02704 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda, 
02705   real *tau, real *work, integer *info);
02706  
02707 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda, 
02708   real *tau, real *work, integer *lwork, integer *info);
02709  
02710 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda, 
02711   integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
02712  
02713 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda, 
02714   integer *jpvt, real *tau, real *work, integer *info);
02715  
02716 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda, 
02717   real *tau, real *work, integer *info);
02718  
02719 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda, 
02720   real *tau, real *work, integer *lwork, integer *info);
02721  
02722 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a, 
02723   integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, 
02724   integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
02725   work, integer *iwork, integer *info);
02726  
02727 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda, 
02728   real *tau, real *work, integer *info);
02729  
02730 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda, 
02731   real *tau, real *work, integer *lwork, integer *info);
02732  
02733 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs, 
02734   integer *ipiv, integer *jpiv, real *scale);
02735  
02736 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a, 
02737   integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt,
02738    real *work, integer *lwork, integer *iwork, integer *info);
02739  
02740 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda, 
02741   integer *ipiv, real *b, integer *ldb, integer *info);
02742  
02743 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n, 
02744   real *a, integer *lda, real *s, real *u, integer *ldu, real *vt, 
02745   integer *ldvt, real *work, integer *lwork, integer *info);
02746  
02747 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer *
02748   nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 
02749   char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, 
02750   integer *ldx, real *rcond, real *ferr, real *berr, real *work, 
02751   integer *iwork, integer *info);
02752  
02753 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv,
02754    integer *jpiv, integer *info);
02755  
02756 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda, 
02757   integer *ipiv, integer *info);
02758  
02759 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda, 
02760   integer *ipiv, integer *info);
02761  
02762 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv,
02763    real *work, integer *lwork, integer *info);
02764  
02765 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a, 
02766   integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
02767  
02768 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo, 
02769   integer *ihi, real *lscale, real *rscale, integer *m, real *v, 
02770   integer *ldv, integer *info);
02771  
02772 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda, 
02773   real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real 
02774   *rscale, real *work, integer *info);
02775  
02776 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
02777   selctg, integer *n, real *a, integer *lda, real *b, integer *ldb, 
02778   integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, 
02779   integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
02780    logical *bwork, integer *info);
02781  
02782 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
02783   selctg, char *sense, integer *n, real *a, integer *lda, real *b, 
02784   integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, 
02785   real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde, 
02786   real *rcondv, real *work, integer *lwork, integer *iwork, integer *
02787   liwork, logical *bwork, integer *info);
02788  
02789 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a, 
02790   integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real 
02791   *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, 
02792   integer *lwork, integer *info);
02793  
02794 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char *
02795   sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real 
02796   *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, 
02797   integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale,
02798    real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work, 
02799   integer *lwork, integer *iwork, logical *bwork, integer *info);
02800  
02801 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a, 
02802   integer *lda, real *b, integer *ldb, real *d__, real *x, real *y, 
02803   real *work, integer *lwork, integer *info);
02804  
02805 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer *
02806   ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real 
02807   *q, integer *ldq, real *z__, integer *ldz, integer *info);
02808  
02809 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a, 
02810   integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x, 
02811   real *work, integer *lwork, integer *info);
02812  
02813 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a, 
02814   integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
02815   work, integer *lwork, integer *info);
02816  
02817 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a, 
02818   integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
02819   work, integer *lwork, integer *info);
02820  
02821 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
02822   integer *n, integer *p, integer *k, integer *l, real *a, integer *lda,
02823    real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
02824   ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, 
02825   integer *iwork, integer *info);
02826  
02827 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
02828   integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb, 
02829   real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu,
02830    real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
02831   tau, real *work, integer *info);
02832  
02833 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__, 
02834   real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real *
02835   work, integer *iwork, integer *info);
02836  
02837 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl,
02838    real *d__, real *du, real *dlf, real *df, real *duf, real *du2, 
02839   integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
02840   ferr, real *berr, real *work, integer *iwork, integer *info);
02841  
02842 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, 
02843   real *du, real *b, integer *ldb, integer *info);
02844  
02845 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer *
02846   nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf, 
02847   real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *
02848   ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, 
02849   integer *info);
02850  
02851 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real *
02852   du2, integer *ipiv, integer *info);
02853  
02854 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl,
02855    real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb,
02856    integer *info);
02857  
02858 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real 
02859   *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *
02860   ldb);
02861  
02862 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n, 
02863   integer *ilo, integer *ihi, real *a, integer *lda, real *b, integer *
02864   ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq, 
02865   real *z__, integer *ldz, real *work, integer *lwork, integer *info);
02866  
02867 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical *
02868   select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real 
02869   *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, 
02870   real *work, integer *ifaill, integer *ifailr, integer *info);
02871  
02872 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo,
02873    integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__,
02874    integer *ldz, real *work, integer *lwork, integer *info);
02875  
02876 /* Subroutine */ int slabad_(real *small, real *large);
02877  
02878 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a, 
02879   integer *lda, real *d__, real *e, real *tauq, real *taup, real *x, 
02880   integer *ldx, real *y, integer *ldy);
02881  
02882 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn, 
02883   real *est, integer *kase);
02884  
02885 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a, 
02886   integer *lda, real *b, integer *ldb);
02887  
02888 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p, 
02889   real *q);
02890  
02891 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
02892  
02893 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n, 
02894   integer *mmax, integer *minp, integer *nbmin, real *abstol, real *
02895   reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval, 
02896   real *ab, real *c__, integer *mout, integer *nab, real *work, integer 
02897   *iwork, integer *info);
02898  
02899 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real 
02900   *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs, 
02901   real *work, integer *iwork, integer *info);
02902  
02903 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq, 
02904   integer *indxq, real *rho, integer *cutpnt, real *work, integer *
02905   iwork, integer *info);
02906  
02907 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__, 
02908   real *q, integer *ldq, integer *indxq, real *rho, real *z__, real *
02909   dlamda, real *w, real *q2, integer *indx, integer *indxc, integer *
02910   indxp, integer *coltyp, integer *info);
02911  
02912 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__, 
02913   real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer *
02914   indx, integer *ctot, real *w, real *s, integer *info);
02915  
02916 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__, 
02917   real *delta, real *rho, real *dlam, integer *info);
02918  
02919 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta, 
02920   real *rho, real *dlam);
02921  
02922 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho, 
02923   real *d__, real *z__, real *finit, real *tau, integer *info);
02924  
02925 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz, 
02926   integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q, 
02927   integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *
02928   qstore, integer *qptr, integer *prmptr, integer *perm, integer *
02929   givptr, integer *givcol, real *givnum, real *work, integer *iwork, 
02930   integer *info);
02931  
02932 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer 
02933   *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho, 
02934   integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2, 
02935   real *w, integer *perm, integer *givptr, integer *givcol, real *
02936   givnum, integer *indxp, integer *indx, integer *info);
02937  
02938 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop, 
02939   integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda,
02940    real *w, real *s, integer *lds, integer *info);
02941  
02942 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl, 
02943   integer *curpbm, integer *prmptr, integer *perm, integer *givptr, 
02944   integer *givcol, real *givnum, real *q, integer *qptr, real *z__, 
02945   real *ztemp, integer *info);
02946  
02947 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n, 
02948   real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real 
02949   *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum, 
02950   integer *info);
02951  
02952 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real *
02953   rt2, real *cs1, real *sn1);
02954  
02955 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer *
02956   ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, 
02957   real *work, integer *info);
02958  
02959 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb, 
02960   real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *
02961   wi);
02962  
02963 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3, 
02964   real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *
02965   snv, real *csq, real *snq);
02966  
02967 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real 
02968   *c__, real *tol, real *d__, integer *in, integer *info);
02969  
02970 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real *
02971   alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *
02972   beta, real *b, integer *ldb);
02973  
02974 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real 
02975   *c__, real *d__, integer *in, real *y, real *tol, integer *info);
02976  
02977 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb, 
02978   real *alphar, real *alphai, real *beta, real *csl, real *snl, real *
02979   csr, real *snr);
02980  
02981 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n, 
02982   integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
02983   wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *
02984   info);
02985  
02986 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a, 
02987   integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
02988  
02989 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest, 
02990   real *w, real *gamma, real *sestpr, real *s, real *c__);
02991  
02992 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real *
02993   smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b, 
02994   integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale, 
02995   real *xnorm, integer *info);
02996  
02997 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr, 
02998   integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx, 
02999   integer *ldbx, integer *perm, integer *givptr, integer *givcol, 
03000   integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
03001   difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
03002   work, integer *info);
03003  
03004 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n, 
03005   integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real *
03006   u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *
03007   z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol, 
03008   integer *perm, real *givnum, real *c__, real *s, real *work, integer *
03009   iwork, integer *info);
03010  
03011 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer 
03012   *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond, 
03013   integer *rank, real *work, integer *iwork, integer *info);
03014  
03015 /* Subroutine */ int slamc1_(integer *beta, integer *t, logical *rnd, logical 
03016   *ieee1);
03017  
03018 /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real *
03019   eps, integer *emin, real *rmin, integer *emax, real *rmax);
03020  
03021 /* Subroutine */ int slamc4_(integer *emin, real *start, integer *base);
03022  
03023 /* Subroutine */ int slamc5_(integer *beta, integer *p, integer *emin, 
03024   logical *ieee, integer *emax, real *rmax);
03025  
03026 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer *
03027   strd1, integer *strd2, integer *index);
03028  
03029 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real *
03030   rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
03031  
03032 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y, 
03033   integer *incy, real *ssmin);
03034  
03035 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x,
03036    integer *ldx, integer *k);
03037  
03038 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku,
03039    real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
03040   colcnd, real *amax, char *equed);
03041  
03042 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda, 
03043   real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
03044   equed);
03045  
03046 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a,
03047    integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *
03048   work);
03049  
03050 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer 
03051   *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau, 
03052   real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
03053  
03054 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab, 
03055   integer *ldab, real *s, real *scond, real *amax, char *equed);
03056  
03057 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *
03058   scond, real *amax, char *equed);
03059  
03060 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda, 
03061   real *s, real *scond, real *amax, char *equed);
03062  
03063 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real 
03064   *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work, 
03065   integer *info);
03066  
03067 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real *
03068   sigma, real *d__, real *l, real *ld, real *lld, real *gersch, real *
03069   z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *
03070   work);
03071  
03072 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer 
03073   *incx, real *c__, real *s, integer *incc);
03074  
03075 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v, 
03076   integer *incv, real *tau, real *c__, integer *ldc, real *work);
03077  
03078 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char *
03079   storev, integer *m, integer *n, integer *k, real *v, integer *ldv, 
03080   real *t, integer *ldt, real *c__, integer *ldc, real *work, integer *
03081   ldwork);
03082  
03083 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx, 
03084   real *tau);
03085  
03086 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer *
03087   k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
03088  
03089 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v, 
03090   real *tau, real *c__, integer *ldc, real *work);
03091  
03092 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y, 
03093   integer *incy, real *c__, integer *incc);
03094  
03095 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real 
03096   *x);
03097  
03098 /* Subroutine */ int slarrb_(integer *n, real *d__, real *l, real *ld, real *
03099   lld, integer *ifirst, integer *ilast, real *sigma, real *reltol, real 
03100   *w, real *wgap, real *werr, real *work, integer *iwork, integer *info);
03101  
03102 /* Subroutine */ int slarre_(integer *n, real *d__, real *e, real *tol, 
03103   integer *nsplit, integer *isplit, integer *m, real *w, real *woff, 
03104   real *gersch, real *work, integer *info);
03105  
03106 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld, real *
03107   lld, integer *ifirst, integer *ilast, real *w, real *dplus, real *
03108   lplus, real *work, integer *iwork, integer *info);
03109  
03110 /* Subroutine */ int slarrv_(integer *n, real *d__, real *l, integer *isplit, 
03111   integer *m, real *w, integer *iblock, real *gersch, real *tol, real *
03112   z__, integer *ldz, integer *isuppz, real *work, integer *iwork, 
03113   integer *info);
03114  
03115 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
03116  
03117 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y, 
03118   integer *incy, real *c__, real *s, integer *incc);
03119  
03120 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x);
03121  
03122 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l, 
03123   real *v, integer *incv, real *tau, real *c__, integer *ldc, real *
03124   work);
03125  
03126 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char *
03127   storev, integer *m, integer *n, integer *k, integer *l, real *v, 
03128   integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *
03129   work, integer *ldwork);
03130  
03131 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer *
03132   k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
03133  
03134 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real *
03135   ssmax);
03136  
03137 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real *
03138   cfrom, real *cto, integer *m, integer *n, real *a, integer *lda, 
03139   integer *info);
03140  
03141 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e, 
03142   real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz, 
03143   integer *iwork, real *work, integer *info);
03144  
03145 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real *
03146   d__, real *alpha, real *beta, real *u, integer *ldu, real *vt, 
03147   integer *ldvt, integer *idxq, integer *iwork, real *work, integer *
03148   info);
03149  
03150 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer 
03151   *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer *
03152   ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2, 
03153   real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc,
03154    integer *idxq, integer *coltyp, integer *info);
03155  
03156 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer 
03157   *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer *
03158   ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2, 
03159   integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer *
03160   info);
03161  
03162 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__, 
03163   real *delta, real *rho, real *sigma, real *work, integer *info);
03164  
03165 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta, 
03166   real *rho, real *dsigma, real *work);
03167  
03168 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr, 
03169   integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta,
03170    integer *idxq, integer *perm, integer *givptr, integer *givcol, 
03171   integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
03172   difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
03173   work, integer *iwork, integer *info);
03174  
03175 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr, 
03176   integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf, 
03177   real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma,
03178    integer *idx, integer *idxp, integer *idxq, integer *perm, integer *
03179   givptr, integer *givcol, integer *ldgcol, real *givnum, integer *
03180   ldgnum, real *c__, real *s, integer *info);
03181  
03182 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real *
03183   z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr, 
03184   real *dsigma, real *work, integer *info);
03185  
03186 /* Subroutine */ int slasd9_(integer *icompq, integer *ldu, integer *k, real *
03187   d__, real *z__, real *vf, real *vl, real *difl, real *difr, real *
03188   dsigma, real *work, integer *info);
03189  
03190 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n, 
03191   integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt, 
03192   integer *k, real *difl, real *difr, real *z__, real *poles, integer *
03193   givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum,
03194    real *c__, real *s, real *work, integer *iwork, integer *info);
03195  
03196 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer *
03197   ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt, 
03198   integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *
03199   work, integer *info);
03200  
03201 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer *
03202   inode, integer *ndiml, integer *ndimr, integer *msub);
03203  
03204 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha, 
03205   real *beta, real *a, integer *lda);
03206  
03207 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work, 
03208   integer *info);
03209  
03210 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info);
03211  
03212 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp,
03213    real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail, 
03214   integer *iter, integer *ndiv, logical *ieee);
03215  
03216 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp,
03217    integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn, 
03218   real *dn1, real *dn2, real *tau, integer *ttype);
03219  
03220 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp,
03221    real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *
03222   dnm1, real *dnm2, logical *ieee);
03223  
03224 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp,
03225    real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *
03226   dnm2);
03227  
03228 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m,
03229    integer *n, real *c__, real *s, real *a, integer *lda);
03230  
03231 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info);
03232  
03233 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale, 
03234   real *sumsq);
03235  
03236 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
03237   ssmax, real *snr, real *csr, real *snl, real *csl);
03238  
03239 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1, 
03240   integer *k2, integer *ipiv, integer *incx);
03241  
03242 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn, 
03243   integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *
03244   ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real 
03245   *xnorm, integer *info);
03246  
03247 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb,
03248    real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer 
03249   *info);
03250  
03251 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char *
03252   normin, integer *n, integer *kd, real *ab, integer *ldab, real *x, 
03253   real *scale, real *cnorm, integer *info);
03254  
03255 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer *
03256   ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *
03257   jpiv);
03258  
03259 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char *
03260   normin, integer *n, real *ap, real *x, real *scale, real *cnorm, 
03261   integer *info);
03262  
03263 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a, 
03264   integer *lda, real *e, real *tau, real *w, integer *ldw);
03265  
03266 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char *
03267   normin, integer *n, real *a, integer *lda, real *x, real *scale, real 
03268   *cnorm, integer *info);
03269  
03270 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a, 
03271   integer *lda, real *tau, real *work);
03272  
03273 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v, 
03274   integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
03275   work);
03276  
03277 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda, 
03278   integer *info);
03279  
03280 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda, 
03281   integer *info);
03282  
03283 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau, 
03284   real *q, integer *ldq, real *work, integer *info);
03285  
03286 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m, 
03287   integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work, 
03288   integer *info);
03289  
03290 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a, 
03291   integer *lda, real *tau, real *work, integer *info);
03292  
03293 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a, 
03294   integer *lda, real *tau, real *work, integer *info);
03295  
03296 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k, 
03297   real *a, integer *lda, real *tau, real *work, integer *lwork, integer 
03298   *info);
03299  
03300 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a, 
03301   integer *lda, real *tau, real *work, integer *lwork, integer *info);
03302  
03303 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a, 
03304   integer *lda, real *tau, real *work, integer *info);
03305  
03306 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a, 
03307   integer *lda, real *tau, real *work, integer *lwork, integer *info);
03308  
03309 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a, 
03310   integer *lda, real *tau, real *work, integer *lwork, integer *info);
03311  
03312 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a, 
03313   integer *lda, real *tau, real *work, integer *lwork, integer *info);
03314  
03315 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a, 
03316   integer *lda, real *tau, real *work, integer *info);
03317  
03318 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a, 
03319   integer *lda, real *tau, real *work, integer *lwork, integer *info);
03320  
03321 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda, 
03322   real *tau, real *work, integer *lwork, integer *info);
03323  
03324 /* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n, 
03325   integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03326    real *work, integer *info);
03327  
03328 /* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n, 
03329   integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03330    real *work, integer *info);
03331  
03332 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m, 
03333   integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, 
03334   integer *ldc, real *work, integer *lwork, integer *info);
03335  
03336 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n, 
03337   integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *
03338   c__, integer *ldc, real *work, integer *lwork, integer *info);
03339  
03340 /* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n, 
03341   integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03342    real *work, integer *info);
03343  
03344 /* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n, 
03345   integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03346    real *work, integer *lwork, integer *info);
03347  
03348 /* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n, 
03349   integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03350    real *work, integer *lwork, integer *info);
03351  
03352 /* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n, 
03353   integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03354    real *work, integer *lwork, integer *info);
03355  
03356 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n, 
03357   integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03358    real *work, integer *info);
03359  
03360 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n, 
03361   integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, 
03362   integer *ldc, real *work, integer *info);
03363  
03364 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n, 
03365   integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03366    real *work, integer *lwork, integer *info);
03367  
03368 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n, 
03369   integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, 
03370   integer *ldc, real *work, integer *lwork, integer *info);
03371  
03372 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m, 
03373   integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc,
03374    real *work, integer *lwork, integer *info);
03375  
03376 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab, 
03377   integer *ldab, real *anorm, real *rcond, real *work, integer *iwork, 
03378   integer *info);
03379  
03380 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab, 
03381   integer *ldab, real *s, real *scond, real *amax, integer *info);
03382  
03383 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer *
03384   nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b, 
03385   integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
03386   work, integer *iwork, integer *info);
03387  
03388 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab, 
03389   integer *ldab, integer *info);
03390  
03391 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer *
03392   nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
03393  
03394 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
03395   integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, 
03396   char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, 
03397   real *rcond, real *ferr, real *berr, real *work, integer *iwork, 
03398   integer *info);
03399  
03400 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab, 
03401   integer *ldab, integer *info);
03402  
03403 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab, 
03404   integer *ldab, integer *info);
03405  
03406 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer *
03407   nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
03408  
03409 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda, 
03410   real *anorm, real *rcond, real *work, integer *iwork, integer *info);
03411  
03412 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real 
03413   *scond, real *amax, integer *info);
03414  
03415 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a, 
03416   integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x,
03417    integer *ldx, real *ferr, real *berr, real *work, integer *iwork, 
03418   integer *info);
03419  
03420 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a, 
03421   integer *lda, real *b, integer *ldb, integer *info);
03422  
03423 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer *
03424   nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, 
03425   real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, 
03426   real *ferr, real *berr, real *work, integer *iwork, integer *info);
03427  
03428 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda, 
03429   integer *info);
03430  
03431 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda, 
03432   integer *info);
03433  
03434 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda, 
03435   integer *info);
03436  
03437 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, 
03438   integer *lda, real *b, integer *ldb, integer *info);
03439  
03440 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm, 
03441   real *rcond, real *work, integer *iwork, integer *info);
03442  
03443 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real *
03444   scond, real *amax, integer *info);
03445  
03446 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap, 
03447   real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr, 
03448   real *berr, real *work, integer *iwork, integer *info);
03449  
03450 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, 
03451   real *b, integer *ldb, integer *info);
03452  
03453 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer *
03454   nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *
03455   ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real 
03456   *work, integer *iwork, integer *info);
03457  
03458 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info);
03459  
03460 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info);
03461  
03462 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, 
03463   real *b, integer *ldb, integer *info);
03464  
03465 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm, 
03466   real *rcond, real *work, integer *info);
03467  
03468 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e, 
03469   real *z__, integer *ldz, real *work, integer *info);
03470  
03471 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e, 
03472   real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx, 
03473   real *ferr, real *berr, real *work, integer *info);
03474  
03475 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e, 
03476   real *b, integer *ldb, integer *info);
03477  
03478 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
03479    real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer 
03480   *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info);
03481  
03482 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info);
03483  
03484 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e, 
03485   real *b, integer *ldb, integer *info);
03486  
03487 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e, 
03488   real *b, integer *ldb);
03489  
03490 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx);
03491  
03492 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd, 
03493   real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
03494    integer *info);
03495  
03496 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
03497   real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
03498    integer *lwork, integer *iwork, integer *liwork, integer *info);
03499  
03500 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n, 
03501   integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl,
03502    real *vu, integer *il, integer *iu, real *abstol, integer *m, real *
03503   w, real *z__, integer *ldz, real *work, integer *iwork, integer *
03504   ifail, integer *info);
03505  
03506 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka, 
03507   integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
03508   x, integer *ldx, real *work, integer *info);
03509  
03510 /* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka, 
03511   integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
03512   w, real *z__, integer *ldz, real *work, integer *info);
03513  
03514 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka, 
03515   integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
03516   w, real *z__, integer *ldz, real *work, integer *lwork, integer *
03517   iwork, integer *liwork, integer *info);
03518  
03519 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n, 
03520   integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *
03521   ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer 
03522   *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real 
03523   *work, integer *iwork, integer *ifail, integer *info);
03524  
03525 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd, 
03526   real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq, 
03527   real *work, integer *info);
03528  
03529 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, 
03530   real *anorm, real *rcond, real *work, integer *iwork, integer *info);
03531  
03532 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap, 
03533   real *w, real *z__, integer *ldz, real *work, integer *info);
03534  
03535 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap, 
03536   real *w, real *z__, integer *ldz, real *work, integer *lwork, integer 
03537   *iwork, integer *liwork, integer *info);
03538  
03539 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n, 
03540   real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
03541   integer *m, real *w, real *z__, integer *ldz, real *work, integer *
03542   iwork, integer *ifail, integer *info);
03543  
03544 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap,
03545    real *bp, integer *info);
03546  
03547 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer *
03548   n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, 
03549   integer *info);
03550  
03551 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer *
03552   n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, 
03553   integer *lwork, integer *iwork, integer *liwork, integer *info);
03554  
03555 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char *
03556   uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il,
03557    integer *iu, real *abstol, integer *m, real *w, real *z__, integer *
03558   ldz, real *work, integer *iwork, integer *ifail, integer *info);
03559  
03560 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap, 
03561   real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *
03562   ldx, real *ferr, real *berr, real *work, integer *iwork, integer *
03563   info);
03564  
03565 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, 
03566   integer *ipiv, real *b, integer *ldb, integer *info);
03567  
03568 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer *
03569   nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real 
03570   *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, 
03571   integer *iwork, integer *info);
03572  
03573 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__, 
03574   real *e, real *tau, integer *info);
03575  
03576 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv, 
03577   integer *info);
03578  
03579 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, 
03580   real *work, integer *info);
03581  
03582 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, 
03583   integer *ipiv, real *b, integer *ldb, integer *info);
03584  
03585 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl, 
03586   real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e, 
03587   integer *m, integer *nsplit, real *w, integer *iblock, integer *
03588   isplit, real *work, integer *iwork, integer *info);
03589  
03590 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e, 
03591   real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, 
03592   integer *liwork, integer *info);
03593  
03594 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__, 
03595   real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
03596   integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
03597   work, integer *lwork, integer *iwork, integer *liwork, integer *info);
03598  
03599 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real 
03600   *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real *
03601   work, integer *iwork, integer *ifail, integer *info);
03602  
03603 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e, 
03604   real *z__, integer *ldz, real *work, integer *info);
03605  
03606 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info);
03607  
03608 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real *
03609   z__, integer *ldz, real *work, integer *info);
03610  
03611 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real 
03612   *z__, integer *ldz, real *work, integer *lwork, integer *iwork, 
03613   integer *liwork, integer *info);
03614  
03615 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__, 
03616   real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
03617   integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
03618   work, integer *lwork, integer *iwork, integer *liwork, integer *info);
03619  
03620 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__, 
03621   real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, 
03622   integer *m, real *w, real *z__, integer *ldz, real *work, integer *
03623   iwork, integer *ifail, integer *info);
03624  
03625 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda, 
03626   integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, 
03627   integer *info);
03628  
03629 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a, 
03630   integer *lda, real *w, real *work, integer *lwork, integer *info);
03631  
03632 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a, 
03633   integer *lda, real *w, real *work, integer *lwork, integer *iwork, 
03634   integer *liwork, integer *info);
03635  
03636 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n, 
03637   real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, 
03638   real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *
03639   isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, 
03640   integer *info);
03641  
03642 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n, 
03643   real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, 
03644   real *abstol, integer *m, real *w, real *z__, integer *ldz, real *
03645   work, integer *lwork, integer *iwork, integer *ifail, integer *info);
03646  
03647 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a, 
03648   integer *lda, real *b, integer *ldb, integer *info);
03649  
03650 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a, 
03651   integer *lda, real *b, integer *ldb, integer *info);
03652  
03653 /* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer *
03654   n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, 
03655   integer *lwork, integer *info);
03656  
03657 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer *
03658   n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, 
03659   integer *lwork, integer *iwork, integer *liwork, integer *info);
03660  
03661 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char *
03662   uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
03663   vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, 
03664   real *w, real *z__, integer *ldz, real *work, integer *lwork, integer 
03665   *iwork, integer *ifail, integer *info);
03666  
03667 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a, 
03668   integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, 
03669   integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
03670   work, integer *iwork, integer *info);
03671  
03672 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a, 
03673   integer *lda, integer *ipiv, real *b, integer *ldb, real *work, 
03674   integer *lwork, integer *info);
03675  
03676 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer *
03677   nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, 
03678   real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
03679    real *berr, real *work, integer *lwork, integer *iwork, integer *
03680   info);
03681  
03682 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda, 
03683   real *d__, real *e, real *tau, integer *info);
03684  
03685 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda, 
03686   integer *ipiv, integer *info);
03687  
03688 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda, 
03689   real *d__, real *e, real *tau, real *work, integer *lwork, integer *
03690   info);
03691  
03692 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda, 
03693   integer *ipiv, real *work, integer *lwork, integer *info);
03694  
03695 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda, 
03696   integer *ipiv, real *work, integer *info);
03697  
03698 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, 
03699   integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
03700  
03701 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n, 
03702   integer *kd, real *ab, integer *ldab, real *rcond, real *work, 
03703   integer *iwork, integer *info);
03704  
03705 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n, 
03706   integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer 
03707   *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, 
03708   integer *iwork, integer *info);
03709  
03710 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n, 
03711   integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer 
03712   *ldb, integer *info);
03713  
03714 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select, 
03715   integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, 
03716   integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real 
03717   *work, integer *info);
03718  
03719 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real 
03720   *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
03721   z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work, 
03722   integer *lwork, integer *info);
03723  
03724 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real 
03725   *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
03726   z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer *
03727   lwork, integer *info);
03728  
03729 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz, 
03730   logical *select, integer *n, real *a, integer *lda, real *b, integer *
03731   ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq, 
03732   real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif, 
03733   real *work, integer *lwork, integer *iwork, integer *liwork, integer *
03734   info);
03735  
03736 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m, 
03737   integer *p, integer *n, integer *k, integer *l, real *a, integer *lda,
03738    real *b, integer *ldb, real *tola, real *tolb, real *alpha, real *
03739   beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *
03740   ldq, real *work, integer *ncycle, integer *info);
03741  
03742 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select, 
03743   integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, 
03744   integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer *
03745   mm, integer *m, real *work, integer *lwork, integer *iwork, integer *
03746   info);
03747  
03748 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer *
03749   n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
03750   ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer 
03751   *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer 
03752   *pq, integer *info);
03753  
03754 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer *
03755   n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
03756   ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer 
03757   *ldf, real *scale, real *dif, real *work, integer *lwork, integer *
03758   iwork, integer *info);
03759  
03760 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n, 
03761   real *ap, real *rcond, real *work, integer *iwork, integer *info);
03762  
03763 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n, 
03764   integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx,
03765    real *ferr, real *berr, real *work, integer *iwork, integer *info);
03766  
03767 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap, 
03768   integer *info);
03769  
03770 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n, 
03771   integer *nrhs, real *ap, real *b, integer *ldb, integer *info);
03772  
03773 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n, 
03774   real *a, integer *lda, real *rcond, real *work, integer *iwork, 
03775   integer *info);
03776  
03777 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select, 
03778   integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, 
03779   integer *ldvr, integer *mm, integer *m, real *work, integer *info);
03780  
03781 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt, 
03782   real *q, integer *ldq, integer *ifst, integer *ilst, real *work, 
03783   integer *info);
03784  
03785 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n, 
03786   integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x, 
03787   integer *ldx, real *ferr, real *berr, real *work, integer *iwork, 
03788   integer *info);
03789  
03790 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer 
03791   *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi, 
03792   integer *m, real *s, real *sep, real *work, integer *lwork, integer *
03793   iwork, integer *liwork, integer *info);
03794  
03795 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select, 
03796   integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, 
03797   integer *ldvr, real *s, real *sep, integer *mm, integer *m, real *
03798   work, integer *ldwork, integer *iwork, integer *info);
03799  
03800 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer 
03801   *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
03802   c__, integer *ldc, real *scale, integer *info);
03803  
03804 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a, 
03805   integer *lda, integer *info);
03806  
03807 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a, 
03808   integer *lda, integer *info);
03809  
03810 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n, 
03811   integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *
03812   info);
03813  
03814 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda, 
03815   real *tau, integer *info);
03816  
03817 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda, 
03818   real *tau, real *work, integer *lwork, integer *info);
03819  
03820 /* Subroutine */ int xerbla_(char *srname, integer *info);
03821  
03822 /* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
03823   nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt, 
03824   integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__, 
03825   integer *ldc, doublereal *rwork, integer *info);
03826  
03827 /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx, 
03828   doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
03829  
03830 /* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, 
03831   integer *incx);
03832  
03833 /* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
03834    integer *kl, integer *ku, doublecomplex *ab, integer *ldab, 
03835   doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, 
03836   doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc, 
03837   doublecomplex *work, doublereal *rwork, integer *info);
03838  
03839 /* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku,
03840    doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm, 
03841   doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *
03842   info);
03843  
03844 /* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku,
03845    doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, 
03846   doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
03847   info);
03848  
03849 /* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer *
03850   ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *
03851   afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb, 
03852   doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 
03853   doublecomplex *work, doublereal *rwork, integer *info);
03854  
03855 /* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer *
03856   nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *
03857   b, integer *ldb, integer *info);
03858  
03859 /* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl,
03860    integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, 
03861   doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, 
03862   doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, 
03863   doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
03864   doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
03865   info);
03866  
03867 /* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
03868    doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
03869  
03870 /* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
03871    doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
03872  
03873 /* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer *
03874   ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, 
03875   doublecomplex *b, integer *ldb, integer *info);
03876  
03877 /* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo, 
03878   integer *ihi, doublereal *scale, integer *m, doublecomplex *v, 
03879   integer *ldv, integer *info);
03880  
03881 /* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer 
03882   *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
03883  
03884 /* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a, 
03885   integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, 
03886   doublecomplex *taup, doublecomplex *work, integer *info);
03887  
03888 /* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a, 
03889   integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, 
03890   doublecomplex *taup, doublecomplex *work, integer *lwork, integer *
03891   info);
03892  
03893 /* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a, 
03894   integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
03895   work, doublereal *rwork, integer *info);
03896  
03897 /* Subroutine */ int zgeequ_(integer *m, integer *n, doublecomplex *a, 
03898   integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 
03899   doublereal *colcnd, doublereal *amax, integer *info);
03900  
03901 /* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n, 
03902   doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, 
03903   doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork,
03904    doublereal *rwork, logical *bwork, integer *info);
03905  
03906 /* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char *
03907   sense, integer *n, doublecomplex *a, integer *lda, integer *sdim, 
03908   doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *
03909   rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, 
03910   doublereal *rwork, logical *bwork, integer *info);
03911  
03912 /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n, 
03913   doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, 
03914   integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, 
03915   integer *lwork, doublereal *rwork, integer *info);
03916  
03917 /* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *
03918   sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w, 
03919   doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 
03920   integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm, 
03921   doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *
03922   lwork, doublereal *rwork, integer *info);
03923  
03924 /* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n, 
03925   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
03926   doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, 
03927   integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *
03928   work, integer *lwork, doublereal *rwork, integer *info);
03929  
03930 /* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n, 
03931   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
03932   doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer 
03933   *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer 
03934   *lwork, doublereal *rwork, integer *info);
03935  
03936 /* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi, 
03937   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
03938   work, integer *info);
03939  
03940 /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi, 
03941   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
03942   work, integer *lwork, integer *info);
03943  
03944 /* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a, 
03945   integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
03946  
03947 /* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a, 
03948   integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
03949    integer *info);
03950  
03951 /* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer *
03952   nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
03953   doublecomplex *work, integer *lwork, integer *info);
03954  
03955 /* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs, 
03956   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
03957   integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, 
03958   doublereal *rwork, integer *info);
03959  
03960 /* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs, 
03961   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
03962   integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, 
03963   integer *lwork, doublereal *rwork, integer *info);
03964  
03965 /* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a, 
03966   integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
03967  
03968 /* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a, 
03969   integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
03970    integer *info);
03971  
03972 /* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a, 
03973   integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, 
03974   integer *lwork, doublereal *rwork, integer *info);
03975  
03976 /* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a, 
03977   integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, 
03978   doublereal *rwork, integer *info);
03979  
03980 /* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a, 
03981   integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
03982  
03983 /* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a, 
03984   integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
03985    integer *info);
03986  
03987 /* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs, 
03988   doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
03989   integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 
03990   integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
03991    doublereal *rwork, integer *info);
03992  
03993 /* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a, 
03994   integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
03995  
03996 /* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a, 
03997   integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
03998    integer *info);
03999  
04000 /* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda, 
04001   doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
04002  
04003 /* Subroutine */ int zgesv_(integer *n, integer *nrhs, doublecomplex *a, 
04004   integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *
04005   info);
04006  
04007 /* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer *
04008   nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
04009   ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, 
04010   doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
04011   doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
04012   work, doublereal *rwork, integer *info);
04013  
04014 /* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda, 
04015   integer *ipiv, integer *jpiv, integer *info);
04016  
04017 /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a, 
04018   integer *lda, integer *ipiv, integer *info);
04019  
04020 /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a, 
04021   integer *lda, integer *ipiv, integer *info);
04022  
04023 /* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda, 
04024   integer *ipiv, doublecomplex *work, integer *lwork, integer *info);
04025  
04026 /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs, 
04027   doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
04028   integer *ldb, integer *info);
04029  
04030 /* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo, 
04031   integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, 
04032   doublecomplex *v, integer *ldv, integer *info);
04033  
04034 /* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer 
04035   *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi, 
04036   doublereal *lscale, doublereal *rscale, doublereal *work, integer *
04037   info);
04038  
04039 /* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp 
04040   delctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 
04041   integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
04042   beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer 
04043   *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork, 
04044   logical *bwork, integer *info);
04045  
04046 /* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp 
04047   delctg, char *sense, integer *n, doublecomplex *a, integer *lda, 
04048   doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, 
04049   doublecomplex *beta, doublecomplex *vsl, integer *ldvsl, 
04050   doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *
04051   rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, 
04052   integer *iwork, integer *liwork, logical *bwork, integer *info);
04053  
04054 /* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n, 
04055   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04056   doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer 
04057   *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer 
04058   *lwork, doublereal *rwork, integer *info);
04059  
04060 /* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char *
04061   sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 
04062   integer *ldb, doublecomplex *alpha, doublecomplex *beta, 
04063   doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, 
04064   integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, 
04065   doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
04066   rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, 
04067   integer *iwork, logical *bwork, integer *info);
04068  
04069 /* Subroutine */ int zggglm_(integer *n, integer *m, integer *p, 
04070   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04071   doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex 
04072   *work, integer *lwork, integer *info);
04073  
04074 /* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer *
04075   ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b, 
04076   integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, 
04077   integer *ldz, integer *info);
04078  
04079 /* Subroutine */ int zgglse_(integer *m, integer *n, integer *p, 
04080   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04081   doublecomplex *c__, doublecomplex *d__, doublecomplex *x, 
04082   doublecomplex *work, integer *lwork, integer *info);
04083  
04084 /* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p, 
04085   doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
04086    integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
04087   lwork, integer *info);
04088  
04089 /* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n, 
04090   doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
04091    integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
04092   lwork, integer *info);
04093  
04094 /* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m, 
04095   integer *n, integer *p, integer *k, integer *l, doublecomplex *a, 
04096   integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha, 
04097   doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, 
04098   integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work, 
04099   doublereal *rwork, integer *iwork, integer *info);
04100  
04101 /* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m, 
04102   integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex 
04103   *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, 
04104   integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer 
04105   *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal *
04106   rwork, doublecomplex *tau, doublecomplex *work, integer *info);
04107  
04108 /* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl, 
04109   doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *
04110   ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, 
04111   integer *info);
04112  
04113 /* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs, 
04114   doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 
04115   doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, 
04116   doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 
04117   doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 
04118   doublecomplex *work, doublereal *rwork, integer *info);
04119  
04120 /* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, 
04121   doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb,
04122    integer *info);
04123  
04124 /* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer *
04125   nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 
04126   doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, 
04127   doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 
04128   doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
04129   doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
04130   info);
04131  
04132 /* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *
04133   d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *
04134   info);
04135  
04136 /* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs, 
04137   doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 
04138   doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, 
04139   integer *info);
04140  
04141 /* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs, 
04142   doublecomplex *dl, doublecomplex *d__, doublecomplex *du, 
04143   doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb);
04144  
04145 /* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd, 
04146   doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, 
04147   integer *ldz, doublecomplex *work, doublereal *rwork, integer *info);
04148  
04149 /* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd, 
04150   doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, 
04151   integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, 
04152   integer *lrwork, integer *iwork, integer *liwork, integer *info);
04153  
04154 /* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n, 
04155   integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q, 
04156   integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *
04157   iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
04158    integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork,
04159    integer *ifail, integer *info);
04160  
04161 /* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka, 
04162   integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 
04163   integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work, 
04164   doublereal *rwork, integer *info);
04165  
04166 /* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka, 
04167   integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, 
04168   integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, 
04169   doublecomplex *work, doublereal *rwork, integer *info);
04170  
04171 /* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n, 
04172   integer *ka, integer *kb, doublecomplex *ab, integer *ldab, 
04173   doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq, 
04174   doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *
04175   abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, 
04176   doublecomplex *work, doublereal *rwork, integer *iwork, integer *
04177   ifail, integer *info);
04178  
04179 /* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd, 
04180   doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, 
04181   doublecomplex *q, integer *ldq, doublecomplex *work, integer *info);
04182  
04183 /* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a, 
04184   integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, 
04185   doublecomplex *work, integer *info);
04186  
04187 /* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex 
04188   *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, 
04189   doublereal *rwork, integer *info);
04190  
04191 /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n, 
04192   doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, 
04193   integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, 
04194   integer *liwork, integer *info);
04195  
04196 /* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n, 
04197   doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, 
04198   integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
04199   w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex *
04200   work, integer *lwork, doublereal *rwork, integer *lrwork, integer *
04201   iwork, integer *liwork, integer *info);
04202  
04203 /* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n, 
04204   doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, 
04205   integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
04206   w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *
04207   lwork, doublereal *rwork, integer *iwork, integer *ifail, integer *
04208   info);
04209  
04210 /* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n, 
04211   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04212   integer *info);
04213  
04214 /* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n, 
04215   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04216   integer *info);
04217  
04218 /* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer *
04219   n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04220   doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
04221    integer *info);
04222  
04223 /* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer *
04224   n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04225   doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
04226    integer *lrwork, integer *iwork, integer *liwork, integer *info);
04227  
04228 /* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char *
04229   uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 
04230   integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *
04231   iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
04232    integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
04233    integer *iwork, integer *ifail, integer *info);
04234  
04235 /* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs, 
04236   doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
04237   integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 
04238   integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
04239    doublereal *rwork, integer *info);
04240  
04241 /* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs, 
04242   doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
04243   integer *ldb, doublecomplex *work, integer *lwork, integer *info);
04244  
04245 /* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer *
04246   nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
04247   ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
04248    integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 
04249   doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
04250  
04251 /* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a, 
04252   integer *lda, integer *ipiv, integer *info);
04253  
04254 /* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a, 
04255   integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, 
04256   doublecomplex *work, integer *lwork, integer *info);
04257  
04258 /* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a, 
04259   integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, 
04260   integer *info);
04261  
04262 /* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a, 
04263   integer *lda, integer *ipiv, doublecomplex *work, integer *info);
04264  
04265 /* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs, 
04266   doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
04267   integer *ldb, integer *info);
04268  
04269 /* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n, 
04270   integer *ilo, integer *ihi, doublecomplex *a, integer *lda, 
04271   doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
04272   beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
04273   ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *
04274   info);
04275  
04276 /* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap, 
04277   integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
04278   work, integer *info);
04279  
04280 /* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex 
04281   *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *
04282   work, doublereal *rwork, integer *info);
04283  
04284 /* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n, 
04285   doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz, 
04286   doublecomplex *work, integer *lwork, doublereal *rwork, integer *
04287   lrwork, integer *iwork, integer *liwork, integer *info);
04288  
04289 /* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n, 
04290   doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il, 
04291   integer *iu, doublereal *abstol, integer *m, doublereal *w, 
04292   doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *
04293   rwork, integer *iwork, integer *ifail, integer *info);
04294  
04295 /* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n, 
04296   doublecomplex *ap, doublecomplex *bp, integer *info);
04297  
04298 /* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer *
04299   n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex 
04300   *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *
04301   info);
04302  
04303 /* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer *
04304   n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex 
04305   *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *
04306   rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
04307   info);
04308  
04309 /* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char *
04310   uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *
04311   vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, 
04312   integer *m, doublereal *w, doublecomplex *z__, integer *ldz, 
04313   doublecomplex *work, doublereal *rwork, integer *iwork, integer *
04314   ifail, integer *info);
04315  
04316 /* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs, 
04317   doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
04318   b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 
04319   doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
04320   info);
04321  
04322 /* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs, 
04323   doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 
04324   integer *info);
04325  
04326 /* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer *
04327   nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, 
04328   doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
04329   doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
04330   work, doublereal *rwork, integer *info);
04331  
04332 /* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap, 
04333   doublereal *d__, doublereal *e, doublecomplex *tau, integer *info);
04334  
04335 /* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap, 
04336   integer *ipiv, integer *info);
04337  
04338 /* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap, 
04339   integer *ipiv, doublecomplex *work, integer *info);
04340  
04341 /* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs, 
04342   doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 
04343   integer *info);
04344  
04345 /* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical *
04346   select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *
04347   w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
04348    integer *mm, integer *m, doublecomplex *work, doublereal *rwork, 
04349   integer *ifaill, integer *ifailr, integer *info);
04350  
04351 /* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo,
04352    integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, 
04353   doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork,
04354    integer *info);
04355  
04356 /* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb, 
04357   doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, 
04358   doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer *
04359   ldx, doublecomplex *y, integer *ldy);
04360  
04361 /* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx);
04362  
04363 /* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, 
04364   doublereal *est, integer *kase);
04365  
04366 /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal *
04367   a, integer *lda, doublecomplex *b, integer *ldb);
04368  
04369 /* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n, 
04370   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb);
04371  
04372 /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a, 
04373   integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, 
04374   integer *ldc, doublereal *rwork);
04375  
04376 /* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx, 
04377   doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *
04378   s);
04379  
04380 /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__, 
04381   doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, 
04382   integer *ldqs, doublereal *rwork, integer *iwork, integer *info);
04383  
04384 /* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz, 
04385   integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, 
04386   doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq, 
04387   doublereal *qstore, integer *qptr, integer *prmptr, integer *perm, 
04388   integer *givptr, integer *givcol, doublereal *givnum, doublecomplex *
04389   work, doublereal *rwork, integer *iwork, integer *info);
04390  
04391 /* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz, 
04392   doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho, 
04393   integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex *
04394   q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx, 
04395   integer *indxq, integer *perm, integer *givptr, integer *givcol, 
04396   doublereal *givnum, integer *info);
04397  
04398 /* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n, 
04399   doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v, 
04400   doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3, 
04401   doublereal *smlnum, integer *info);
04402  
04403 /* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b, 
04404   doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2, 
04405   doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
04406  
04407 /* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b, 
04408   doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1,
04409    doublecomplex *sn1);
04410  
04411 /* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex *
04412   a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3,
04413    doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex *
04414   snv, doublereal *csq, doublecomplex *snq);
04415  
04416 /* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs, 
04417   doublereal *alpha, doublecomplex *dl, doublecomplex *d__, 
04418   doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta, 
04419   doublecomplex *b, integer *ldb);
04420  
04421 /* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb,
04422    doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, 
04423   integer *ldw, integer *info);
04424  
04425 /* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n, 
04426   integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, 
04427   doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, 
04428   integer *ldz, integer *info);
04429  
04430 /* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb, 
04431   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, 
04432   integer *ldt, doublecomplex *y, integer *ldy);
04433  
04434 /* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x, 
04435   doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *
04436   sestpr, doublecomplex *s, doublecomplex *c__);
04437  
04438 /* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr, 
04439   integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb, 
04440   doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr, 
04441   integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum,
04442    doublereal *poles, doublereal *difl, doublereal *difr, doublereal *
04443   z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork, 
04444   integer *info);
04445  
04446 /* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n, 
04447   integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx, 
04448   integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *
04449   k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
04450   poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
04451   perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
04452   rwork, integer *iwork, integer *info);
04453  
04454 /* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx, 
04455   doublecomplex *y, integer *incy, doublereal *ssmin);
04456  
04457 /* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n, 
04458   doublecomplex *x, integer *ldx, integer *k);
04459  
04460 /* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
04461    doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, 
04462   doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
04463  
04464 /* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a, 
04465   integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, 
04466   doublereal *colcnd, doublereal *amax, char *equed);
04467  
04468 /* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd, 
04469   doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 
04470   doublereal *amax, char *equed);
04471  
04472 /* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a, 
04473   integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 
04474   char *equed);
04475  
04476 /* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, 
04477   doublereal *s, doublereal *scond, doublereal *amax, char *equed);
04478  
04479 /* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset, 
04480   doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, 
04481   doublereal *vn1, doublereal *vn2, doublecomplex *work);
04482  
04483 /* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer 
04484   *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt, 
04485   doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *
04486   auxv, doublecomplex *f, integer *ldf);
04487  
04488 /* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd, 
04489   doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 
04490   doublereal *amax, char *equed);
04491  
04492 /* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, 
04493   doublereal *s, doublereal *scond, doublereal *amax, char *equed);
04494  
04495 /* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a, 
04496   integer *lda, doublereal *s, doublereal *scond, doublereal *amax, 
04497   char *equed);
04498  
04499 /* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal 
04500   *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
04501   lld, doublereal *gersch, doublecomplex *z__, doublereal *ztz, 
04502   doublereal *mingma, integer *r__, integer *isuppz, doublereal *work);
04503  
04504 /* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, 
04505   doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s, 
04506   integer *incc);
04507  
04508 /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer *
04509   lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc,
04510    doublereal *rwork);
04511  
04512 /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex 
04513   *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *
04514   ldc, doublecomplex *work);
04515  
04516 /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char *
04517   storev, integer *m, integer *n, integer *k, doublecomplex *v, integer 
04518   *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *
04519   ldc, doublecomplex *work, integer *ldwork);
04520  
04521 /* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *
04522   x, integer *incx, doublecomplex *tau);
04523  
04524 /* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer *
04525   k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
04526   t, integer *ldt);
04527  
04528 /* Subroutine */ int zlarfx_(char *side, integer *m, integer *n, 
04529   doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *
04530   ldc, doublecomplex *work);
04531  
04532 /* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx, 
04533   doublecomplex *y, integer *incy, doublereal *c__, integer *incc);
04534  
04535 /* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n, 
04536   doublecomplex *x);
04537  
04538 /* Subroutine */ int zlarrv_(integer *n, doublereal *d__, doublereal *l, 
04539   integer *isplit, integer *m, doublereal *w, integer *iblock, 
04540   doublereal *gersch, doublereal *tol, doublecomplex *z__, integer *ldz,
04541    integer *isuppz, doublereal *work, integer *iwork, integer *info);
04542  
04543 /* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *
04544   cs, doublecomplex *sn, doublecomplex *r__);
04545  
04546 /* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx, 
04547   doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s, 
04548   integer *incc);
04549  
04550 /* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l, 
04551   doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
04552   c__, integer *ldc, doublecomplex *work);
04553  
04554 /* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char *
04555   storev, integer *m, integer *n, integer *k, integer *l, doublecomplex 
04556   *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, 
04557   integer *ldc, doublecomplex *work, integer *ldwork);
04558  
04559 /* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer *
04560   k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
04561   t, integer *ldt);
04562  
04563 /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku, 
04564   doublereal *cfrom, doublereal *cto, integer *m, integer *n, 
04565   doublecomplex *a, integer *lda, integer *info);
04566  
04567 /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n, 
04568   doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *
04569   lda);
04570  
04571 /* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m,
04572    integer *n, doublereal *c__, doublereal *s, doublecomplex *a, 
04573   integer *lda);
04574  
04575 /* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx, 
04576   doublereal *scale, doublereal *sumsq);
04577  
04578 /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda, 
04579   integer *k1, integer *k2, integer *ipiv, integer *incx);
04580  
04581 /* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
04582    doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, 
04583   integer *ldw, integer *info);
04584  
04585 /* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char *
04586   normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab, 
04587   doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info);
04588  
04589 /* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__, 
04590   integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *
04591   rdscal, integer *ipiv, integer *jpiv);
04592  
04593 /* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char *
04594   normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal *
04595   scale, doublereal *cnorm, integer *info);
04596  
04597 /* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb, 
04598   doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau, 
04599   doublecomplex *w, integer *ldw);
04600  
04601 /* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char *
04602   normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, 
04603   doublereal *scale, doublereal *cnorm, integer *info);
04604  
04605 /* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l, 
04606   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04607   work);
04608  
04609 /* Subroutine */ int zlatzm_(char *side, integer *m, integer *n, 
04610   doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
04611   c1, doublecomplex *c2, integer *ldc, doublecomplex *work);
04612  
04613 /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a, 
04614   integer *lda, integer *info);
04615  
04616 /* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a, 
04617   integer *lda, integer *info);
04618  
04619 /* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd, 
04620   doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal *
04621   rcond, doublecomplex *work, doublereal *rwork, integer *info);
04622  
04623 /* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd, 
04624   doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, 
04625   doublereal *amax, integer *info);
04626  
04627 /* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer *
04628   nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
04629   ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
04630    doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
04631   rwork, integer *info);
04632  
04633 /* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd, 
04634   doublecomplex *ab, integer *ldab, integer *info);
04635  
04636 /* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer *
04637   nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
04638   ldb, integer *info);
04639  
04640 /* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd, 
04641   integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, 
04642   integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer 
04643   *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *
04644   ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, 
04645   integer *info);
04646  
04647 /* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd, 
04648   doublecomplex *ab, integer *ldab, integer *info);
04649  
04650 /* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd, 
04651   doublecomplex *ab, integer *ldab, integer *info);
04652  
04653 /* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer *
04654   nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
04655   ldb, integer *info);
04656  
04657 /* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a, 
04658   integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
04659   work, doublereal *rwork, integer *info);
04660  
04661 /* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda, 
04662   doublereal *s, doublereal *scond, doublereal *amax, integer *info);
04663  
04664 /* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs, 
04665   doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
04666   doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
04667   doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
04668   rwork, integer *info);
04669  
04670 /* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs, 
04671   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04672   integer *info);
04673  
04674 /* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer *
04675   nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
04676   ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, 
04677   doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, 
04678   doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
04679   info);
04680  
04681 /* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a, 
04682   integer *lda, integer *info);
04683  
04684 /* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a, 
04685   integer *lda, integer *info);
04686  
04687 /* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a, 
04688   integer *lda, integer *info);
04689  
04690 /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs, 
04691   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04692   integer *info);
04693  
04694 /* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap, 
04695   doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal 
04696   *rwork, integer *info);
04697  
04698 /* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap, 
04699   doublereal *s, doublereal *scond, doublereal *amax, integer *info);
04700  
04701 /* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs, 
04702   doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb,
04703    doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 
04704   doublecomplex *work, doublereal *rwork, integer *info);
04705  
04706 /* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs, 
04707   doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
04708  
04709 /* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer *
04710   nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal *
04711   s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
04712   doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
04713   work, doublereal *rwork, integer *info);
04714  
04715 /* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap, 
04716   integer *info);
04717  
04718 /* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap, 
04719   integer *info);
04720  
04721 /* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs, 
04722   doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
04723  
04724 /* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e, 
04725   doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *
04726   info);
04727  
04728 /* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs, 
04729   doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, 
04730   doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
04731   doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
04732   rwork, integer *info);
04733  
04734 /* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__, 
04735   doublecomplex *e, doublecomplex *b, integer *ldb, integer *info);
04736  
04737 /* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs, 
04738   doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, 
04739   doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
04740   doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
04741   work, doublereal *rwork, integer *info);
04742  
04743 /* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e, 
04744   integer *info);
04745  
04746 /* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs, 
04747   doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, 
04748   integer *info);
04749  
04750 /* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs, 
04751   doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb);
04752  
04753 /* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx, 
04754   doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);
04755  
04756 /* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap, 
04757   integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
04758   work, integer *info);
04759  
04760 /* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha, 
04761   doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
04762   beta, doublecomplex *y, integer *incy);
04763  
04764 /* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha, 
04765   doublecomplex *x, integer *incx, doublecomplex *ap);
04766  
04767 /* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs, 
04768   doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
04769   b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 
04770   doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
04771   info);
04772  
04773 /* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs, 
04774   doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 
04775   integer *info);
04776  
04777 /* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer *
04778   nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, 
04779   doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
04780   doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
04781   work, doublereal *rwork, integer *info);
04782  
04783 /* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap, 
04784   integer *ipiv, integer *info);
04785  
04786 /* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap, 
04787   integer *ipiv, doublecomplex *work, integer *info);
04788  
04789 /* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs, 
04790   doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, 
04791   integer *info);
04792  
04793 /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__, 
04794   doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work, 
04795   integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, 
04796   integer *liwork, integer *info);
04797  
04798 /* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e, 
04799   integer *m, doublereal *w, integer *iblock, integer *isplit, 
04800   doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork, 
04801   integer *ifail, integer *info);
04802  
04803 /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__, 
04804   doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, 
04805   integer *info);
04806  
04807 /* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a, 
04808   integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, 
04809   doublecomplex *work, integer *info);
04810  
04811 /* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha, 
04812   doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, 
04813   doublecomplex *beta, doublecomplex *y, integer *incy);
04814  
04815 /* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha, 
04816   doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
04817  
04818 /* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs, 
04819   doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, 
04820   integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, 
04821   integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
04822    doublereal *rwork, integer *info);
04823  
04824 /* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs, 
04825   doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
04826   integer *ldb, doublecomplex *work, integer *lwork, integer *info);
04827  
04828 /* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer *
04829   nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
04830   ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
04831    integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, 
04832   doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
04833  
04834 /* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a, 
04835   integer *lda, integer *ipiv, integer *info);
04836  
04837 /* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a, 
04838   integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, 
04839   integer *info);
04840  
04841 /* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a, 
04842   integer *lda, integer *ipiv, doublecomplex *work, integer *info);
04843  
04844 /* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs, 
04845   doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, 
04846   integer *ldb, integer *info);
04847  
04848 /* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n, 
04849   integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond, 
04850   doublecomplex *work, doublereal *rwork, integer *info);
04851  
04852 /* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n, 
04853   integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, 
04854   doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, 
04855   doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
04856   rwork, integer *info);
04857  
04858 /* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n, 
04859   integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, 
04860   doublecomplex *b, integer *ldb, integer *info);
04861  
04862 /* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select, 
04863   integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer 
04864   *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
04865   ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
04866    integer *info);
04867  
04868 /* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n, 
04869   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04870   doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, 
04871   integer *j1, integer *info);
04872  
04873 /* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n, 
04874   doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04875   doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, 
04876   integer *ifst, integer *ilst, integer *info);
04877  
04878 /* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz, 
04879   logical *select, integer *n, doublecomplex *a, integer *lda, 
04880   doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
04881   beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
04882   ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif, 
04883   doublecomplex *work, integer *lwork, integer *iwork, integer *liwork, 
04884   integer *info);
04885  
04886 /* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m, 
04887   integer *p, integer *n, integer *k, integer *l, doublecomplex *a, 
04888   integer *lda, doublecomplex *b, integer *ldb, doublereal *tola, 
04889   doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex *
04890   u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q, 
04891   integer *ldq, doublecomplex *work, integer *ncycle, integer *info);
04892  
04893 /* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select, 
04894   integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer 
04895   *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
04896   ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m, 
04897   doublecomplex *work, integer *lwork, integer *iwork, integer *info);
04898  
04899 /* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer *
04900   n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04901   doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, 
04902   doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, 
04903   doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer *
04904   info);
04905  
04906 /* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer *
04907   n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, 
04908   doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, 
04909   doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, 
04910   doublereal *scale, doublereal *dif, doublecomplex *work, integer *
04911   lwork, integer *iwork, integer *info);
04912  
04913 /* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n, 
04914   doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal 
04915   *rwork, integer *info);
04916  
04917 /* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n, 
04918   integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, 
04919   doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, 
04920   doublecomplex *work, doublereal *rwork, integer *info);
04921  
04922 /* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n, 
04923   doublecomplex *ap, integer *info);
04924  
04925 /* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n, 
04926   integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, 
04927   integer *info);
04928  
04929 /* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n, 
04930   doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex *
04931   work, doublereal *rwork, integer *info);
04932  
04933 /* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select, 
04934   integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, 
04935   integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer 
04936   *m, doublecomplex *work, doublereal *rwork, integer *info);
04937  
04938 /* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t, 
04939   integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *
04940   ilst, integer *info);
04941  
04942 /* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n, 
04943   integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, 
04944   integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, 
04945   doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
04946   info);
04947  
04948 /* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer 
04949   *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, 
04950   doublecomplex *w, integer *m, doublereal *s, doublereal *sep, 
04951   doublecomplex *work, integer *lwork, integer *info);
04952  
04953 /* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select, 
04954   integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, 
04955   integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s, 
04956   doublereal *sep, integer *mm, integer *m, doublecomplex *work, 
04957   integer *ldwork, doublereal *rwork, integer *info);
04958  
04959 /* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer 
04960   *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, 
04961   integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, 
04962   integer *info);
04963  
04964 /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n, 
04965   doublecomplex *a, integer *lda, integer *info);
04966  
04967 /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n, 
04968   doublecomplex *a, integer *lda, integer *info);
04969  
04970 /* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n, 
04971   integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, 
04972   integer *ldb, integer *info);
04973  
04974 /* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a, 
04975   integer *lda, doublecomplex *tau, integer *info);
04976  
04977 /* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a, 
04978   integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
04979    integer *info);
04980  
04981 /* Subroutine */ int zung2l_(integer *m, integer *n, integer *k, 
04982   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04983   work, integer *info);
04984  
04985 /* Subroutine */ int zung2r_(integer *m, integer *n, integer *k, 
04986   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04987   work, integer *info);
04988  
04989 /* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k, 
04990   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04991   work, integer *lwork, integer *info);
04992  
04993 /* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi, 
04994   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04995   work, integer *lwork, integer *info);
04996  
04997 /* Subroutine */ int zungl2_(integer *m, integer *n, integer *k, 
04998   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
04999   work, integer *info);
05000  
05001 /* Subroutine */ int zunglq_(integer *m, integer *n, integer *k, 
05002   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05003   work, integer *lwork, integer *info);
05004  
05005 /* Subroutine */ int zungql_(integer *m, integer *n, integer *k, 
05006   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05007   work, integer *lwork, integer *info);
05008  
05009 /* Subroutine */ int zungqr_(integer *m, integer *n, integer *k, 
05010   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05011   work, integer *lwork, integer *info);
05012  
05013 /* Subroutine */ int zungr2_(integer *m, integer *n, integer *k, 
05014   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05015   work, integer *info);
05016  
05017 /* Subroutine */ int zungrq_(integer *m, integer *n, integer *k, 
05018   doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
05019   work, integer *lwork, integer *info);
05020  
05021 /* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a, 
05022   integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
05023    integer *info);
05024  
05025 /* Subroutine */ int zunm2l_(char *side, char *trans, integer *m, integer *n, 
05026   integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
05027   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
05028  
05029 /* Subroutine */ int zunm2r_(char *side, char *trans, integer *m, integer *n, 
05030   integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
05031   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
05032  
05033 /* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m, 
05034   integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex 
05035   *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
05036   lwork, integer *info);
05037  
05038 /* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n, 
05039   integer *ilo, integer *ihi, doublecomplex *a, integer *lda, 
05040   doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *
05041   work, integer *lwork, integer *info);
05042  
05043 /* Subroutine */ int zunml2_(char *side, char *trans, integer *m, integer *n, 
05044   integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
05045   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
05046  
05047 /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n, 
05048   integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
05049   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
05050    integer *info);
05051  
05052 /* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n, 
05053   integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
05054   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
05055    integer *info);
05056  
05057 /* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n, 
05058   integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
05059   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
05060    integer *info);
05061  
05062 /* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n, 
05063   integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
05064   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
05065  
05066 /* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n, 
05067   integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex 
05068   *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
05069   info);
05070  
05071 /* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n, 
05072   integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, 
05073   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
05074    integer *info);
05075  
05076 /* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n, 
05077   integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex 
05078   *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
05079   lwork, integer *info);
05080  
05081 /* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m, 
05082   integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, 
05083   doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
05084    integer *info);
05085  
05086 /* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap, 
05087   doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *
05088   work, integer *info);
05089  
05090 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m, 
05091   integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__,
05092    integer *ldc, doublecomplex *work, integer *info);
05093 
05094 #ifdef __cplusplus
05095 }
05096 #endif
05097 
05098 #endif /* __GML_CLAPACK__ */
05099
Generated on Tue Jun 12 14:03:27 2007 for gml by Doxygen 1.5.2.
Contact: julien (dot) letessier (at) gmail (dot) com.
Copyright (c) 2000-2007 CLIPS-IMAG Laboratory, Grenoble, France. All rights reserved.
W3CXHTML 1.0 W3CCSS 2.0