Multivac: /home/vivien/codes/Multivac-1.9/includes/seldon/Computation/Interfaces/clapack.h Source File

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