PUNC: vlapack.h Source File

00001 
00034 #ifndef _VLAPACK_H_
00035 #define _VLAPACK_H_
00036 
00037 #include <punc/punc_base.h>
00038 
00039 #include <punc/vf2c.h>
00040 
00041 /*
00042  * ***************************************************************************
00043  * Library VLAPACK prototypes
00044  * ***************************************************************************
00045  */
00046 
00048 int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt, complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork, integer *info, ftnlen uplo_len);
00049 /*:ref: lsame_ 12 4 13 13 124 124 */
00050 /*:ref: xerbla_ 14 3 13 4 124 */
00051 /*:ref: slasq1_ 14 5 4 6 6 6 4 */
00052 /*:ref: slamch_ 6 2 13 124 */
00053 /*:ref: slartg_ 14 5 6 6 6 6 6 */
00054 /*:ref: clasr_ 14 12 13 13 13 4 4 6 6 8 4 124 124 124 */
00055 /*:ref: slasv2_ 14 9 6 6 6 6 6 6 6 6 6 */
00056 /*:ref: csrot_ 14 7 4 8 4 8 4 6 6 */
00057 /*:ref: slas2_ 14 5 6 6 6 6 6 */
00058 /*:ref: csscal_ 14 4 4 6 8 4 */
00059 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00061 int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *ldq, complex *pt, integer *ldpt, complex *c__, integer *ldc, complex *work, real *rwork, integer *info, ftnlen vect_len);
00062 /*:ref: lsame_ 12 4 13 13 124 124 */
00063 /*:ref: xerbla_ 14 3 13 4 124 */
00064 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00065 /*:ref: clargv_ 14 7 4 8 4 8 4 6 4 */
00066 /*:ref: clartv_ 14 8 4 8 4 8 4 6 8 4 */
00067 /*:ref: clartg_ 14 5 8 8 6 8 8 */
00068 /*:ref: crot_ 14 7 4 8 4 8 4 6 8 */
00069 /*:ref: cscal_ 14 4 4 8 8 4 */
00071 int cgbcon_(char *norm, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen norm_len);
00072 /*:ref: lsame_ 12 4 13 13 124 124 */
00073 /*:ref: xerbla_ 14 3 13 4 124 */
00074 /*:ref: slamch_ 6 2 13 124 */
00075 /*:ref: clacon_ 14 5 4 8 8 6 4 */
00076 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00077 /*:ref: clatbs_ 14 16 13 13 13 13 4 4 8 4 8 6 6 4 124 124 124 124 */
00078 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
00079 /*:ref: icamax_ 4 3 4 8 4 */
00080 /*:ref: csrscl_ 14 4 4 6 8 4 */
00082 int cgbequ_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info);
00083 /*:ref: xerbla_ 14 3 13 4 124 */
00084 /*:ref: slamch_ 6 2 13 124 */
00086 int cgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *ldb, integer *info);
00087 /*:ref: xerbla_ 14 3 13 4 124 */
00088 /*:ref: cgbtrf_ 14 8 4 4 4 4 8 4 4 4 */
00089 /*:ref: cgbtrs_ 14 12 13 4 4 4 4 8 4 4 8 4 4 124 */
00091 int cgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
00092 /*:ref: lsame_ 12 4 13 13 124 124 */
00093 /*:ref: slamch_ 6 2 13 124 */
00094 /*:ref: xerbla_ 14 3 13 4 124 */
00095 /*:ref: cgbequ_ 14 12 4 4 4 4 8 4 6 6 6 6 6 4 */
00096 /*:ref: claqgb_ 14 13 4 4 4 4 8 4 6 6 6 6 6 13 124 */
00097 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00098 /*:ref: cgbtrf_ 14 8 4 4 4 4 8 4 4 4 */
00099 /*:ref: clantb_ 6 11 13 13 13 4 4 8 4 6 124 124 124 */
00100 /*:ref: clangb_ 6 8 13 4 4 4 8 4 6 124 */
00101 /*:ref: cgbcon_ 14 13 13 4 4 4 8 4 4 6 6 8 6 4 124 */
00102 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00103 /*:ref: cgbtrs_ 14 12 13 4 4 4 4 8 4 4 8 4 4 124 */
00104 /*:ref: cgbrfs_ 14 20 13 4 4 4 4 8 4 8 4 4 8 4 8 4 6 6 8 6 4 124 */
00106 int cgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen trans_len);
00107 /*:ref: lsame_ 12 4 13 13 124 124 */
00108 /*:ref: xerbla_ 14 3 13 4 124 */
00109 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00110 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
00111 /*:ref: ctbsv_ 14 12 13 13 13 4 4 8 4 8 4 124 124 124 */
00112 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
00113 /*:ref: clacgv_ 14 3 4 8 4 */
00115 int cgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *scale, integer *m, complex *v, integer *ldv, integer *info, ftnlen job_len, ftnlen side_len);
00116 /*:ref: lsame_ 12 4 13 13 124 124 */
00117 /*:ref: xerbla_ 14 3 13 4 124 */
00118 /*:ref: csscal_ 14 4 4 6 8 4 */
00119 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00121 int cgebal_(char *job, integer *n, complex *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info, ftnlen job_len);
00122 /*:ref: lsame_ 12 4 13 13 124 124 */
00123 /*:ref: xerbla_ 14 3 13 4 124 */
00124 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00125 /*:ref: slamch_ 6 2 13 124 */
00126 /*:ref: icamax_ 4 3 4 8 4 */
00127 /*:ref: csscal_ 14 4 4 6 8 4 */
00129 int cgebd2_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *info);
00130 /*:ref: xerbla_ 14 3 13 4 124 */
00131 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
00132 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
00133 /*:ref: clacgv_ 14 3 4 8 4 */
00135 int cgebrd_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *lwork, integer *info);
00136 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00137 /*:ref: xerbla_ 14 3 13 4 124 */
00138 /*:ref: clabrd_ 14 13 4 4 4 8 4 6 6 8 8 8 4 8 4 */
00139 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
00140 /*:ref: cgebd2_ 14 10 4 4 8 4 6 6 8 8 8 4 */
00142 int cgecon_(char *norm, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen norm_len);
00143 /*:ref: lsame_ 12 4 13 13 124 124 */
00144 /*:ref: xerbla_ 14 3 13 4 124 */
00145 /*:ref: slamch_ 6 2 13 124 */
00146 /*:ref: clacon_ 14 5 4 8 8 6 4 */
00147 /*:ref: clatrs_ 14 15 13 13 13 13 4 8 4 8 6 6 4 124 124 124 124 */
00148 /*:ref: icamax_ 4 3 4 8 4 */
00149 /*:ref: csrscl_ 14 4 4 6 8 4 */
00151 int cgeequ_(integer *m, integer *n, complex *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info);
00152 /*:ref: xerbla_ 14 3 13 4 124 */
00153 /*:ref: slamch_ 6 2 13 124 */
00155 int cgees_(char *jobvs, char *sort, L_fp select, integer *n, complex *a, integer *lda, integer *sdim, complex *w, complex *vs, integer *ldvs, complex *work, integer *lwork, real *rwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len);
00156 /*:ref: lsame_ 12 4 13 13 124 124 */
00157 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00158 /*:ref: xerbla_ 14 3 13 4 124 */
00159 /*:ref: slamch_ 6 2 13 124 */
00160 /*:ref: slabad_ 14 2 6 6 */
00161 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00162 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00163 /*:ref: cgebal_ 14 9 13 4 8 4 4 4 6 4 124 */
00164 /*:ref: cgehrd_ 14 9 4 4 4 8 4 8 8 4 4 */
00165 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00166 /*:ref: cunghr_ 14 9 4 4 4 8 4 8 8 4 4 */
00167 /*:ref: chseqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00168 /*:ref: ctrsen_ 14 17 13 13 12 4 8 4 8 4 8 4 6 6 8 4 4 124 124 */
00169 /*:ref: cgebak_ 14 12 13 13 4 4 4 6 4 8 4 4 124 124 */
00170 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00172 int cgeesx_(char *jobvs, char *sort, L_fp select, char *sense, integer *n, complex *a, integer *lda, integer *sdim, complex *w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *work, integer *lwork, real *rwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len, ftnlen sense_len);
00173 /*:ref: lsame_ 12 4 13 13 124 124 */
00174 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00175 /*:ref: xerbla_ 14 3 13 4 124 */
00176 /*:ref: slamch_ 6 2 13 124 */
00177 /*:ref: slabad_ 14 2 6 6 */
00178 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00179 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00180 /*:ref: cgebal_ 14 9 13 4 8 4 4 4 6 4 124 */
00181 /*:ref: cgehrd_ 14 9 4 4 4 8 4 8 8 4 4 */
00182 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00183 /*:ref: cunghr_ 14 9 4 4 4 8 4 8 8 4 4 */
00184 /*:ref: chseqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00185 /*:ref: ctrsen_ 14 17 13 13 12 4 8 4 8 4 8 4 6 6 8 4 4 124 124 */
00186 /*:ref: cgebak_ 14 12 13 13 4 4 4 6 4 8 4 4 124 124 */
00187 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00188 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
00190 int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *work, integer *lwork, real *rwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
00191 /*:ref: lsame_ 12 4 13 13 124 124 */
00192 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00193 /*:ref: xerbla_ 14 3 13 4 124 */
00194 /*:ref: slamch_ 6 2 13 124 */
00195 /*:ref: slabad_ 14 2 6 6 */
00196 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00197 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00198 /*:ref: cgebal_ 14 9 13 4 8 4 4 4 6 4 124 */
00199 /*:ref: cgehrd_ 14 9 4 4 4 8 4 8 8 4 4 */
00200 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00201 /*:ref: cunghr_ 14 9 4 4 4 8 4 8 8 4 4 */
00202 /*:ref: chseqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00203 /*:ref: ctrevc_ 14 17 13 13 12 4 8 4 8 4 8 4 4 4 8 6 4 124 124 */
00204 /*:ref: cgebak_ 14 12 13 13 4 4 4 6 4 8 4 4 124 124 */
00205 /*:ref: scnrm2_ 6 3 4 8 4 */
00206 /*:ref: csscal_ 14 4 4 6 8 4 */
00207 /*:ref: isamax_ 4 3 4 6 4 */
00208 /*:ref: cscal_ 14 4 4 8 8 4 */
00210 int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense, integer *n, complex *a, integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi, real *scale, real *abnrm, real *rconde, real *rcondv, complex *work, integer *lwork, real *rwork, integer *info, ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
00211 /*:ref: lsame_ 12 4 13 13 124 124 */
00212 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00213 /*:ref: xerbla_ 14 3 13 4 124 */
00214 /*:ref: slamch_ 6 2 13 124 */
00215 /*:ref: slabad_ 14 2 6 6 */
00216 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00217 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00218 /*:ref: cgebal_ 14 9 13 4 8 4 4 4 6 4 124 */
00219 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
00220 /*:ref: cgehrd_ 14 9 4 4 4 8 4 8 8 4 4 */
00221 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00222 /*:ref: cunghr_ 14 9 4 4 4 8 4 8 8 4 4 */
00223 /*:ref: chseqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00224 /*:ref: ctrevc_ 14 17 13 13 12 4 8 4 8 4 8 4 4 4 8 6 4 124 124 */
00225 /*:ref: ctrsna_ 14 20 13 13 12 4 8 4 8 4 8 4 6 6 4 4 8 4 6 4 124 124 */
00226 /*:ref: cgebak_ 14 12 13 13 4 4 4 6 4 8 4 4 124 124 */
00227 /*:ref: scnrm2_ 6 3 4 8 4 */
00228 /*:ref: csscal_ 14 4 4 6 8 4 */
00229 /*:ref: isamax_ 4 3 4 6 4 */
00230 /*:ref: cscal_ 14 4 4 8 8 4 */
00232 int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *lwork, real *rwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len);
00233 /*:ref: lsame_ 12 4 13 13 124 124 */
00234 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00235 /*:ref: xerbla_ 14 3 13 4 124 */
00236 /*:ref: slamch_ 6 2 13 124 */
00237 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00238 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00239 /*:ref: cggbal_ 14 13 13 4 8 4 8 4 4 4 6 6 6 4 124 */
00240 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00241 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00242 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00243 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00244 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
00245 /*:ref: cgghrd_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 4 4 124 124 */
00246 /*:ref: chgeqz_ 14 23 13 13 13 4 4 4 8 4 8 4 8 8 8 4 8 4 8 4 6 4 124 124 124 */
00247 /*:ref: cggbak_ 14 13 13 13 4 4 4 6 6 4 8 4 4 124 124 */
00249 int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *work, integer *lwork, real *rwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
00250 /*:ref: lsame_ 12 4 13 13 124 124 */
00251 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00252 /*:ref: xerbla_ 14 3 13 4 124 */
00253 /*:ref: slamch_ 6 2 13 124 */
00254 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00255 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00256 /*:ref: cggbal_ 14 13 13 4 8 4 8 4 4 4 6 6 6 4 124 */
00257 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00258 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00259 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00260 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00261 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
00262 /*:ref: cgghrd_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 4 4 124 124 */
00263 /*:ref: chgeqz_ 14 23 13 13 13 4 4 4 8 4 8 4 8 8 8 4 8 4 8 4 6 4 124 124 124 */
00264 /*:ref: ctgevc_ 14 19 13 13 12 4 8 4 8 4 8 4 8 4 4 4 8 6 4 124 124 */
00265 /*:ref: cggbak_ 14 13 13 13 4 4 4 6 6 4 8 4 4 124 124 */
00267 int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *info);
00268 /*:ref: xerbla_ 14 3 13 4 124 */
00269 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
00270 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
00272 int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info);
00273 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00274 /*:ref: xerbla_ 14 3 13 4 124 */
00275 /*:ref: clahrd_ 14 10 4 4 4 8 4 8 8 4 8 4 */
00276 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
00277 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
00278 /*:ref: cgehd2_ 14 8 4 4 4 8 4 8 8 4 */
00280 int cgelq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info);
00281 /*:ref: xerbla_ 14 3 13 4 124 */
00282 /*:ref: clacgv_ 14 3 4 8 4 */
00283 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
00284 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
00286 int cgels_(char *trans, integer *m, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *work, integer *lwork, integer *info, ftnlen trans_len);
00287 /*:ref: lsame_ 12 4 13 13 124 124 */
00288 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00289 /*:ref: xerbla_ 14 3 13 4 124 */
00290 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00291 /*:ref: slamch_ 6 2 13 124 */
00292 /*:ref: slabad_ 14 2 6 6 */
00293 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00294 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00295 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00296 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00297 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00298 /*:ref: cgelqf_ 14 8 4 4 8 4 8 8 4 4 */
00299 /*:ref: cunmlq_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00301 int cgelsd_(integer *m, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer *iwork, integer *info);
00302 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00303 /*:ref: xerbla_ 14 3 13 4 124 */
00304 /*:ref: slamch_ 6 2 13 124 */
00305 /*:ref: slabad_ 14 2 6 6 */
00306 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00307 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00308 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00309 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
00310 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00311 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00312 /*:ref: cgebrd_ 14 11 4 4 8 4 6 6 8 8 8 4 4 */
00313 /*:ref: cunmbr_ 14 17 13 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 124 */
00314 /*:ref: clalsd_ 14 15 13 4 4 4 6 6 8 4 6 4 8 6 4 4 124 */
00315 /*:ref: cgelqf_ 14 8 4 4 8 4 8 8 4 4 */
00316 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00317 /*:ref: cunmlq_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00318 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
00320 int cgelss_(integer *m, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, real *s, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer *info);
00321 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00322 /*:ref: xerbla_ 14 3 13 4 124 */
00323 /*:ref: slamch_ 6 2 13 124 */
00324 /*:ref: slabad_ 14 2 6 6 */
00325 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00326 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00327 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00328 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
00329 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00330 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00331 /*:ref: cgebrd_ 14 11 4 4 8 4 6 6 8 8 8 4 4 */
00332 /*:ref: cunmbr_ 14 17 13 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 124 */
00333 /*:ref: cungbr_ 14 11 13 4 4 4 8 4 8 8 4 4 124 */
00334 /*:ref: cbdsqr_ 14 16 13 4 4 4 4 6 6 8 4 8 4 8 4 6 4 124 */
00335 /*:ref: csrscl_ 14 4 4 6 8 4 */
00336 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
00337 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00338 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
00339 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00340 /*:ref: cgelqf_ 14 8 4 4 8 4 8 8 4 4 */
00341 /*:ref: cunmlq_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00342 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
00344 int cgelsx_(integer *m, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, integer *rank, complex *work, real *rwork, integer *info);
00345 /*:ref: xerbla_ 14 3 13 4 124 */
00346 /*:ref: slamch_ 6 2 13 124 */
00347 /*:ref: slabad_ 14 2 6 6 */
00348 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00349 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00350 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00351 /*:ref: cgeqpf_ 14 9 4 4 8 4 4 8 8 6 4 */
00352 /*:ref: claic1_ 14 9 4 4 8 6 8 8 6 8 8 */
00353 /*:ref: ctzrqf_ 14 6 4 4 8 4 8 4 */
00354 /*:ref: cunm2r_ 14 14 13 13 4 4 4 8 4 8 8 4 8 4 124 124 */
00355 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00356 /*:ref: clatzm_ 14 11 13 4 4 8 4 8 8 8 4 8 124 */
00358 int cgelsy_(integer *m, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond, integer *rank, complex *work, integer *lwork, real *rwork, integer *info);
00359 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00360 /*:ref: xerbla_ 14 3 13 4 124 */
00361 /*:ref: slamch_ 6 2 13 124 */
00362 /*:ref: slabad_ 14 2 6 6 */
00363 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00364 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00365 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00366 /*:ref: cgeqp3_ 14 10 4 4 8 4 4 8 8 4 6 4 */
00367 /*:ref: claic1_ 14 9 4 4 8 6 8 8 6 8 8 */
00368 /*:ref: ctzrzf_ 14 8 4 4 8 4 8 8 4 4 */
00369 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00370 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00371 /*:ref: cunmrz_ 14 16 13 13 4 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00372 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00374 int cgeql2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info);
00375 /*:ref: xerbla_ 14 3 13 4 124 */
00376 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
00377 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
00379 int cgeqp3_(integer *m, integer *n, complex *a, integer *lda, integer *jpvt, complex *tau, complex *work, integer *lwork, real *rwork, integer *info);
00380 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00381 /*:ref: xerbla_ 14 3 13 4 124 */
00382 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00383 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00384 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00385 /*:ref: scnrm2_ 6 3 4 8 4 */
00386 /*:ref: claqps_ 14 14 4 4 4 4 4 8 4 4 8 6 6 8 8 4 */
00387 /*:ref: claqp2_ 14 10 4 4 4 8 4 4 8 6 6 8 */
00389 int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info);
00390 /*:ref: xerbla_ 14 3 13 4 124 */
00391 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
00392 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
00394 int cgerq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info);
00395 /*:ref: xerbla_ 14 3 13 4 124 */
00396 /*:ref: clacgv_ 14 3 4 8 4 */
00397 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
00398 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
00400 int cgesc2_(integer *n, complex *a, integer *lda, complex *rhs, integer *ipiv, integer *jpiv, real *scale);
00401 /*:ref: slamch_ 6 2 13 124 */
00402 /*:ref: slabad_ 14 2 6 6 */
00403 /*:ref: claswp_ 14 7 4 8 4 4 4 4 4 */
00404 /*:ref: icamax_ 4 3 4 8 4 */
00405 /*:ref: cscal_ 14 4 4 8 8 4 */
00407 int cgesdd_(char *jobz, integer *m, integer *n, complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork, integer *info, ftnlen jobz_len);
00408 /*:ref: lsame_ 12 4 13 13 124 124 */
00409 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00410 /*:ref: xerbla_ 14 3 13 4 124 */
00411 /*:ref: slamch_ 6 2 13 124 */
00412 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00413 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00414 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00415 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00416 /*:ref: cgebrd_ 14 11 4 4 8 4 6 6 8 8 8 4 4 */
00417 /*:ref: sbdsdc_ 14 16 13 13 4 6 6 6 4 6 4 6 4 6 4 4 124 124 */
00418 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00419 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
00420 /*:ref: clacp2_ 14 8 13 4 4 6 4 8 4 124 */
00421 /*:ref: cunmbr_ 14 17 13 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 124 */
00422 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
00423 /*:ref: cungbr_ 14 11 13 4 4 4 8 4 8 8 4 4 124 */
00424 /*:ref: clarcm_ 14 9 4 4 6 4 8 4 8 4 6 */
00425 /*:ref: clacrm_ 14 9 4 4 8 4 6 4 8 4 6 */
00426 /*:ref: cgelqf_ 14 8 4 4 8 4 8 8 4 4 */
00427 /*:ref: cunglq_ 14 9 4 4 4 8 4 8 8 4 4 */
00428 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
00430 int cgesv_(integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info);
00431 /*:ref: xerbla_ 14 3 13 4 124 */
00432 /*:ref: cgetrf_ 14 6 4 4 8 4 4 4 */
00433 /*:ref: cgetrs_ 14 10 13 4 4 8 4 4 8 4 4 124 */
00435 int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer *ldvt, complex *work, integer *lwork, real *rwork, integer *info, ftnlen jobu_len, ftnlen jobvt_len);
00436 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00437 /*:ref: lsame_ 12 4 13 13 124 124 */
00438 /*:ref: xerbla_ 14 3 13 4 124 */
00439 /*:ref: slamch_ 6 2 13 124 */
00440 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00441 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00442 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00443 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00444 /*:ref: cgebrd_ 14 11 4 4 8 4 6 6 8 8 8 4 4 */
00445 /*:ref: cungbr_ 14 11 13 4 4 4 8 4 8 8 4 4 124 */
00446 /*:ref: cbdsqr_ 14 16 13 4 4 4 4 6 6 8 4 8 4 8 4 6 4 124 */
00447 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00448 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
00449 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
00450 /*:ref: cunmbr_ 14 17 13 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 124 */
00451 /*:ref: cgelqf_ 14 8 4 4 8 4 8 8 4 4 */
00452 /*:ref: cunglq_ 14 9 4 4 4 8 4 8 8 4 4 */
00453 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
00455 int cgesvx_(char *fact, char *trans, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
00456 /*:ref: lsame_ 12 4 13 13 124 124 */
00457 /*:ref: slamch_ 6 2 13 124 */
00458 /*:ref: xerbla_ 14 3 13 4 124 */
00459 /*:ref: cgeequ_ 14 10 4 4 8 4 6 6 6 6 6 4 */
00460 /*:ref: claqge_ 14 11 4 4 8 4 6 6 6 6 6 13 124 */
00461 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00462 /*:ref: cgetrf_ 14 6 4 4 8 4 4 4 */
00463 /*:ref: clantr_ 6 11 13 13 13 4 4 8 4 6 124 124 124 */
00464 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00465 /*:ref: cgecon_ 14 10 13 4 8 4 6 6 8 6 4 124 */
00466 /*:ref: cgetrs_ 14 10 13 4 4 8 4 4 8 4 4 124 */
00467 /*:ref: cgerfs_ 14 18 13 4 4 8 4 8 4 4 8 4 8 4 6 6 8 6 4 124 */
00469 int cgetc2_(integer *n, complex *a, integer *lda, integer *ipiv, integer *jpiv, integer *info);
00470 /*:ref: slamch_ 6 2 13 124 */
00471 /*:ref: slabad_ 14 2 6 6 */
00472 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00473 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
00475 int cgetri_(integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info);
00476 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00477 /*:ref: xerbla_ 14 3 13 4 124 */
00478 /*:ref: ctrtri_ 14 8 13 13 4 8 4 4 124 124 */
00479 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
00480 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
00481 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00482 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00484 int cgetrs_(char *trans, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen trans_len);
00485 /*:ref: lsame_ 12 4 13 13 124 124 */
00486 /*:ref: xerbla_ 14 3 13 4 124 */
00487 /*:ref: claswp_ 14 7 4 8 4 4 4 4 4 */
00488 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00490 int cggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *lscale, real *rscale, integer *m, complex *v, integer *ldv, integer *info, ftnlen job_len, ftnlen side_len);
00491 /*:ref: lsame_ 12 4 13 13 124 124 */
00492 /*:ref: xerbla_ 14 3 13 4 124 */
00493 /*:ref: csscal_ 14 4 4 6 8 4 */
00494 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00496 int cggbal_(char *job, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real *rscale, real *work, integer *info, ftnlen job_len);
00497 /*:ref: lsame_ 12 4 13 13 124 124 */
00498 /*:ref: xerbla_ 14 3 13 4 124 */
00499 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00500 /*:ref: sdot_ 6 5 4 6 4 6 4 */
00501 /*:ref: sscal_ 14 4 4 6 6 4 */
00502 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
00503 /*:ref: slamch_ 6 2 13 124 */
00504 /*:ref: icamax_ 4 3 4 8 4 */
00505 /*:ref: csscal_ 14 4 4 6 8 4 */
00507 int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *lwork, real *rwork, logical *bwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len);
00508 /*:ref: lsame_ 12 4 13 13 124 124 */
00509 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00510 /*:ref: xerbla_ 14 3 13 4 124 */
00511 /*:ref: slamch_ 6 2 13 124 */
00512 /*:ref: slabad_ 14 2 6 6 */
00513 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00514 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00515 /*:ref: cggbal_ 14 13 13 4 8 4 8 4 4 4 6 6 6 4 124 */
00516 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00517 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00518 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00519 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00520 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
00521 /*:ref: cgghrd_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 4 4 124 124 */
00522 /*:ref: chgeqz_ 14 23 13 13 13 4 4 4 8 4 8 4 8 8 8 4 8 4 8 4 6 4 124 124 124 */
00523 /*:ref: ctgsen_ 14 24 4 12 12 12 4 8 4 8 4 8 8 8 4 8 4 4 6 6 6 8 4 4 4 4 */
00524 /*:ref: cggbak_ 14 13 13 13 4 4 4 6 6 4 8 4 4 124 124 */
00526 int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, char *sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork, integer *liwork, logical *bwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len, ftnlen sense_len);
00527 /*:ref: lsame_ 12 4 13 13 124 124 */
00528 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00529 /*:ref: xerbla_ 14 3 13 4 124 */
00530 /*:ref: slamch_ 6 2 13 124 */
00531 /*:ref: slabad_ 14 2 6 6 */
00532 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00533 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00534 /*:ref: cggbal_ 14 13 13 4 8 4 8 4 4 4 6 6 6 4 124 */
00535 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00536 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00537 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00538 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00539 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
00540 /*:ref: cgghrd_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 4 4 124 124 */
00541 /*:ref: chgeqz_ 14 23 13 13 13 4 4 4 8 4 8 4 8 8 8 4 8 4 8 4 6 4 124 124 124 */
00542 /*:ref: ctgsen_ 14 24 4 12 12 12 4 8 4 8 4 8 8 8 4 8 4 4 6 6 6 8 4 4 4 4 */
00543 /*:ref: cggbak_ 14 13 13 13 4 4 4 6 6 4 8 4 4 124 124 */
00545 int cggev_(char *jobvl, char *jobvr, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *work, integer *lwork, real *rwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
00546 /*:ref: lsame_ 12 4 13 13 124 124 */
00547 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00548 /*:ref: xerbla_ 14 3 13 4 124 */
00549 /*:ref: slamch_ 6 2 13 124 */
00550 /*:ref: slabad_ 14 2 6 6 */
00551 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00552 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00553 /*:ref: cggbal_ 14 13 13 4 8 4 8 4 4 4 6 6 6 4 124 */
00554 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00555 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00556 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00557 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00558 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
00559 /*:ref: cgghrd_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 4 4 124 124 */
00560 /*:ref: chgeqz_ 14 23 13 13 13 4 4 4 8 4 8 4 8 8 8 4 8 4 8 4 6 4 124 124 124 */
00561 /*:ref: ctgevc_ 14 19 13 13 12 4 8 4 8 4 8 4 8 4 4 4 8 6 4 124 124 */
00562 /*:ref: cggbak_ 14 13 13 13 4 4 4 6 6 4 8 4 4 124 124 */
00564 int cggevx_(char *balanc, char *jobvl, char *jobvr, char *sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork, logical *bwork, integer *info, ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
00565 /*:ref: lsame_ 12 4 13 13 124 124 */
00566 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00567 /*:ref: xerbla_ 14 3 13 4 124 */
00568 /*:ref: slamch_ 6 2 13 124 */
00569 /*:ref: slabad_ 14 2 6 6 */
00570 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00571 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00572 /*:ref: cggbal_ 14 13 13 4 8 4 8 4 4 4 6 6 6 4 124 */
00573 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
00574 /*:ref: cgeqrf_ 14 8 4 4 8 4 8 8 4 4 */
00575 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00576 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00577 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00578 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
00579 /*:ref: cgghrd_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 4 4 124 124 */
00580 /*:ref: chgeqz_ 14 23 13 13 13 4 4 4 8 4 8 4 8 8 8 4 8 4 8 4 6 4 124 124 124 */
00581 /*:ref: ctgevc_ 14 19 13 13 12 4 8 4 8 4 8 4 8 4 4 4 8 6 4 124 124 */
00582 /*:ref: ctgsna_ 14 22 13 13 12 4 8 4 8 4 8 4 8 4 6 6 4 4 8 4 4 4 124 124 */
00583 /*:ref: cggbak_ 14 13 13 13 4 4 4 6 6 4 8 4 4 124 124 */
00585 int cggglm_(integer *n, integer *m, integer *p, complex *a, integer *lda, complex *b, integer *ldb, complex *d__, complex *x, complex *y, complex *work, integer *lwork, integer *info);
00586 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00587 /*:ref: xerbla_ 14 3 13 4 124 */
00588 /*:ref: cggqrf_ 14 12 4 4 4 8 4 8 8 4 8 8 4 4 */
00589 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00590 /*:ref: ctrsv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
00591 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00592 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
00593 /*:ref: cunmrq_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00595 int cgghrd_(char *compq, char *compz, integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z__, integer *ldz, integer *info, ftnlen compq_len, ftnlen compz_len);
00596 /*:ref: lsame_ 12 4 13 13 124 124 */
00597 /*:ref: xerbla_ 14 3 13 4 124 */
00598 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00599 /*:ref: clartg_ 14 5 8 8 6 8 8 */
00600 /*:ref: crot_ 14 7 4 8 4 8 4 6 8 */
00602 int cgglse_(integer *m, integer *n, integer *p, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, complex *d__, complex *x, complex *work, integer *lwork, integer *info);
00603 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00604 /*:ref: xerbla_ 14 3 13 4 124 */
00605 /*:ref: cggrqf_ 14 12 4 4 4 8 4 8 8 4 8 8 4 4 */
00606 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00607 /*:ref: ctrsv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
00608 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
00609 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00610 /*:ref: ctrmv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
00611 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00612 /*:ref: cunmrq_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
00614 int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, complex *a, integer *lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, complex *work, real *rwork, integer *iwork, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
00615 /*:ref: lsame_ 12 4 13 13 124 124 */
00616 /*:ref: xerbla_ 14 3 13 4 124 */
00617 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
00618 /*:ref: slamch_ 6 2 13 124 */
00619 /*:ref: cggsvp_ 14 28 13 13 13 4 4 4 8 4 8 4 6 6 4 4 8 4 8 4 8 4 4 6 8 8 4 124 124 124 */
00620 /*:ref: ctgsja_ 14 28 13 13 13 4 4 4 4 4 8 4 8 4 6 6 6 6 8 4 8 4 8 4 8 4 4 124 124 124 */
00621 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00623 int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, integer *iwork, real *rwork, complex *tau, complex *work, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
00624 /*:ref: lsame_ 12 4 13 13 124 124 */
00625 /*:ref: xerbla_ 14 3 13 4 124 */
00626 /*:ref: cgeqpf_ 14 9 4 4 8 4 4 8 8 6 4 */
00627 /*:ref: clapmt_ 14 6 12 4 4 8 4 4 */
00628 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00629 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00630 /*:ref: cung2r_ 14 8 4 4 4 8 4 8 8 4 */
00631 /*:ref: cgerq2_ 14 7 4 4 8 4 8 8 4 */
00632 /*:ref: cunmr2_ 14 14 13 13 4 4 4 8 4 8 8 4 8 4 124 124 */
00633 /*:ref: cunm2r_ 14 14 13 13 4 4 4 8 4 8 8 4 8 4 124 124 */
00634 /*:ref: cgeqr2_ 14 7 4 4 8 4 8 8 4 */
00636 int cgtcon_(char *norm, integer *n, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen norm_len);
00637 /*:ref: lsame_ 12 4 13 13 124 124 */
00638 /*:ref: xerbla_ 14 3 13 4 124 */
00639 /*:ref: clacon_ 14 5 4 8 8 6 4 */
00640 /*:ref: cgttrs_ 14 12 13 4 4 8 8 8 8 4 8 4 4 124 */
00642 int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *b, integer *ldb, integer *info);
00643 /*:ref: xerbla_ 14 3 13 4 124 */
00645 int cgtsvx_(char *fact, char *trans, integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *df, complex *duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len, ftnlen trans_len);
00646 /*:ref: lsame_ 12 4 13 13 124 124 */
00647 /*:ref: xerbla_ 14 3 13 4 124 */
00648 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00649 /*:ref: cgttrf_ 14 7 4 8 8 8 8 4 4 */
00650 /*:ref: clangt_ 6 6 13 4 8 8 8 124 */
00651 /*:ref: cgtcon_ 14 12 13 4 8 8 8 8 4 6 6 8 4 124 */
00652 /*:ref: slamch_ 6 2 13 124 */
00653 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00654 /*:ref: cgttrs_ 14 12 13 4 4 8 8 8 8 4 8 4 4 124 */
00655 /*:ref: cgtrfs_ 14 21 13 4 4 8 8 8 8 8 8 8 4 8 4 8 4 6 6 8 6 4 124 */
00657 int cgttrs_(char *trans, integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen trans_len);
00658 /*:ref: xerbla_ 14 3 13 4 124 */
00659 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00660 /*:ref: cgtts2_ 14 10 4 4 4 8 8 8 8 4 8 4 */
00662 int cgtts2_(integer *itrans, integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *b, integer *ldb);
00664 int chbev_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00665 /*:ref: lsame_ 12 4 13 13 124 124 */
00666 /*:ref: xerbla_ 14 3 13 4 124 */
00667 /*:ref: slamch_ 6 2 13 124 */
00668 /*:ref: clanhb_ 6 9 13 13 4 4 8 4 6 124 124 */
00669 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00670 /*:ref: chbtrd_ 14 14 13 13 4 4 8 4 6 6 8 4 8 4 124 124 */
00671 /*:ref: ssterf_ 14 4 4 6 6 4 */
00672 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
00673 /*:ref: sscal_ 14 4 4 6 6 4 */
00675 int chbevd_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00676 /*:ref: lsame_ 12 4 13 13 124 124 */
00677 /*:ref: xerbla_ 14 3 13 4 124 */
00678 /*:ref: slamch_ 6 2 13 124 */
00679 /*:ref: clanhb_ 6 9 13 13 4 4 8 4 6 124 124 */
00680 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00681 /*:ref: chbtrd_ 14 14 13 13 4 4 8 4 6 6 8 4 8 4 124 124 */
00682 /*:ref: ssterf_ 14 4 4 6 6 4 */
00683 /*:ref: cstedc_ 14 14 13 4 6 6 8 4 8 4 6 4 4 4 4 124 */
00684 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
00685 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00686 /*:ref: sscal_ 14 4 4 6 6 4 */
00688 int chbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
00689 /*:ref: lsame_ 12 4 13 13 124 124 */
00690 /*:ref: xerbla_ 14 3 13 4 124 */
00691 /*:ref: slamch_ 6 2 13 124 */
00692 /*:ref: clanhb_ 6 9 13 13 4 4 8 4 6 124 124 */
00693 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00694 /*:ref: chbtrd_ 14 14 13 13 4 4 8 4 6 6 8 4 8 4 124 124 */
00695 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00696 /*:ref: ssterf_ 14 4 4 6 6 4 */
00697 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00698 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
00699 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
00700 /*:ref: cstein_ 14 13 4 6 6 4 6 4 4 8 4 6 4 4 4 */
00701 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00702 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
00703 /*:ref: sscal_ 14 4 4 6 6 4 */
00704 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00706 int chbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, complex *x, integer *ldx, complex *work, real *rwork, integer *info, ftnlen vect_len, ftnlen uplo_len);
00707 /*:ref: lsame_ 12 4 13 13 124 124 */
00708 /*:ref: xerbla_ 14 3 13 4 124 */
00709 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00710 /*:ref: csscal_ 14 4 4 6 8 4 */
00711 /*:ref: cgerc_ 14 9 4 4 8 8 4 8 4 8 4 */
00712 /*:ref: clartg_ 14 5 8 8 6 8 8 */
00713 /*:ref: clargv_ 14 7 4 8 4 8 4 6 4 */
00714 /*:ref: clartv_ 14 8 4 8 4 8 4 6 8 4 */
00715 /*:ref: clar2v_ 14 8 4 8 8 8 4 6 8 4 */
00716 /*:ref: clacgv_ 14 3 4 8 4 */
00717 /*:ref: crot_ 14 7 4 8 4 8 4 6 8 */
00718 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
00720 int chbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00721 /*:ref: lsame_ 12 4 13 13 124 124 */
00722 /*:ref: xerbla_ 14 3 13 4 124 */
00723 /*:ref: cpbstf_ 14 7 13 4 4 8 4 4 124 */
00724 /*:ref: chbgst_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 6 4 124 124 */
00725 /*:ref: chbtrd_ 14 14 13 13 4 4 8 4 6 6 8 4 8 4 124 124 */
00726 /*:ref: ssterf_ 14 4 4 6 6 4 */
00727 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
00729 int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00730 /*:ref: lsame_ 12 4 13 13 124 124 */
00731 /*:ref: xerbla_ 14 3 13 4 124 */
00732 /*:ref: cpbstf_ 14 7 13 4 4 8 4 4 124 */
00733 /*:ref: chbgst_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 6 4 124 124 */
00734 /*:ref: chbtrd_ 14 14 13 13 4 4 8 4 6 6 8 4 8 4 124 124 */
00735 /*:ref: ssterf_ 14 4 4 6 6 4 */
00736 /*:ref: cstedc_ 14 14 13 4 6 6 8 4 8 4 6 4 4 4 4 124 */
00737 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
00738 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00740 int chbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
00741 /*:ref: lsame_ 12 4 13 13 124 124 */
00742 /*:ref: xerbla_ 14 3 13 4 124 */
00743 /*:ref: cpbstf_ 14 7 13 4 4 8 4 4 124 */
00744 /*:ref: chbgst_ 14 16 13 13 4 4 4 8 4 8 4 8 4 8 6 4 124 124 */
00745 /*:ref: chbtrd_ 14 14 13 13 4 4 8 4 6 6 8 4 8 4 124 124 */
00746 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00747 /*:ref: ssterf_ 14 4 4 6 6 4 */
00748 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00749 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
00750 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
00751 /*:ref: cstein_ 14 13 4 6 6 4 6 4 4 8 4 6 4 4 4 */
00752 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00753 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
00754 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00756 int chbtrd_(char *vect, char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *ldq, complex *work, integer *info, ftnlen vect_len, ftnlen uplo_len);
00757 /*:ref: lsame_ 12 4 13 13 124 124 */
00758 /*:ref: xerbla_ 14 3 13 4 124 */
00759 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00760 /*:ref: clargv_ 14 7 4 8 4 8 4 6 4 */
00761 /*:ref: clartv_ 14 8 4 8 4 8 4 6 8 4 */
00762 /*:ref: crot_ 14 7 4 8 4 8 4 6 8 */
00763 /*:ref: clartg_ 14 5 8 8 6 8 8 */
00764 /*:ref: clar2v_ 14 8 4 8 8 8 4 6 8 4 */
00765 /*:ref: clacgv_ 14 3 4 8 4 */
00766 /*:ref: cscal_ 14 4 4 8 8 4 */
00768 int checon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len);
00769 /*:ref: lsame_ 12 4 13 13 124 124 */
00770 /*:ref: xerbla_ 14 3 13 4 124 */
00771 /*:ref: clacon_ 14 5 4 8 8 6 4 */
00772 /*:ref: chetrs_ 14 10 13 4 4 8 4 4 8 4 4 124 */
00774 int cheev_(char *jobz, char *uplo, integer *n, complex *a, integer *lda, real *w, complex *work, integer *lwork, real *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00775 /*:ref: lsame_ 12 4 13 13 124 124 */
00776 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00777 /*:ref: xerbla_ 14 3 13 4 124 */
00778 /*:ref: slamch_ 6 2 13 124 */
00779 /*:ref: clanhe_ 6 8 13 13 4 8 4 6 124 124 */
00780 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00781 /*:ref: chetrd_ 14 11 13 4 8 4 6 6 8 8 4 4 124 */
00782 /*:ref: ssterf_ 14 4 4 6 6 4 */
00783 /*:ref: cungtr_ 14 9 13 4 8 4 8 8 4 4 124 */
00784 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
00785 /*:ref: sscal_ 14 4 4 6 6 4 */
00787 int cheevd_(char *jobz, char *uplo, integer *n, complex *a, integer *lda, real *w, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00788 /*:ref: lsame_ 12 4 13 13 124 124 */
00789 /*:ref: xerbla_ 14 3 13 4 124 */
00790 /*:ref: slamch_ 6 2 13 124 */
00791 /*:ref: clanhe_ 6 8 13 13 4 8 4 6 124 124 */
00792 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
00793 /*:ref: chetrd_ 14 11 13 4 8 4 6 6 8 8 4 4 124 */
00794 /*:ref: ssterf_ 14 4 4 6 6 4 */
00795 /*:ref: cstedc_ 14 14 13 4 6 6 8 4 8 4 6 4 4 4 4 124 */
00796 /*:ref: cunmtr_ 14 16 13 13 13 4 4 8 4 8 8 4 8 4 4 124 124 124 */
00797 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00798 /*:ref: sscal_ 14 4 4 6 6 4 */
00800 int cheevr_(char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, integer *isuppz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
00801 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00802 /*:ref: lsame_ 12 4 13 13 124 124 */
00803 /*:ref: xerbla_ 14 3 13 4 124 */
00804 /*:ref: slamch_ 6 2 13 124 */
00805 /*:ref: clansy_ 6 8 13 13 4 8 4 6 124 124 */
00806 /*:ref: csscal_ 14 4 4 6 8 4 */
00807 /*:ref: chetrd_ 14 11 13 4 8 4 6 6 8 8 4 4 124 */
00808 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00809 /*:ref: ssterf_ 14 4 4 6 6 4 */
00810 /*:ref: cstegr_ 14 22 13 13 4 6 6 6 6 4 4 6 4 6 8 4 4 6 4 4 4 4 124 124 */
00811 /*:ref: cunmtr_ 14 16 13 13 13 4 4 8 4 8 8 4 8 4 4 124 124 124 */
00812 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
00813 /*:ref: cstein_ 14 13 4 6 6 4 6 4 4 8 4 6 4 4 4 */
00814 /*:ref: sscal_ 14 4 4 6 6 4 */
00815 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00817 int cheevx_(char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
00818 /*:ref: lsame_ 12 4 13 13 124 124 */
00819 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00820 /*:ref: xerbla_ 14 3 13 4 124 */
00821 /*:ref: slamch_ 6 2 13 124 */
00822 /*:ref: clanhe_ 6 8 13 13 4 8 4 6 124 124 */
00823 /*:ref: csscal_ 14 4 4 6 8 4 */
00824 /*:ref: chetrd_ 14 11 13 4 8 4 6 6 8 8 4 4 124 */
00825 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00826 /*:ref: ssterf_ 14 4 4 6 6 4 */
00827 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00828 /*:ref: cungtr_ 14 9 13 4 8 4 8 8 4 4 124 */
00829 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
00830 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
00831 /*:ref: cstein_ 14 13 4 6 6 4 6 4 4 8 4 6 4 4 4 */
00832 /*:ref: cunmtr_ 14 16 13 13 13 4 4 8 4 8 8 4 8 4 4 124 124 124 */
00833 /*:ref: sscal_ 14 4 4 6 6 4 */
00834 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00836 int chegs2_(integer *itype, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
00837 /*:ref: lsame_ 12 4 13 13 124 124 */
00838 /*:ref: xerbla_ 14 3 13 4 124 */
00839 /*:ref: csscal_ 14 4 4 6 8 4 */
00840 /*:ref: clacgv_ 14 3 4 8 4 */
00841 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00842 /*:ref: cher2_ 14 10 13 4 8 8 4 8 4 8 4 124 */
00843 /*:ref: ctrsv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
00844 /*:ref: ctrmv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
00846 int chegst_(integer *itype, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
00847 /*:ref: lsame_ 12 4 13 13 124 124 */
00848 /*:ref: xerbla_ 14 3 13 4 124 */
00849 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00850 /*:ref: chegs2_ 14 9 4 13 4 8 4 8 4 4 124 */
00851 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00852 /*:ref: chemm_ 14 14 13 13 4 4 8 8 4 8 4 8 8 4 124 124 */
00853 /*:ref: cher2k_ 14 14 13 13 4 4 8 8 4 8 4 6 8 4 124 124 */
00854 /*:ref: ctrmm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00856 int chegv_(integer *itype, char *jobz, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real *w, complex *work, integer *lwork, real *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00857 /*:ref: lsame_ 12 4 13 13 124 124 */
00858 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00859 /*:ref: xerbla_ 14 3 13 4 124 */
00860 /*:ref: cpotrf_ 14 6 13 4 8 4 4 124 */
00861 /*:ref: chegst_ 14 9 4 13 4 8 4 8 4 4 124 */
00862 /*:ref: cheev_ 14 12 13 13 4 8 4 6 8 4 6 4 124 124 */
00863 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00864 /*:ref: ctrmm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00866 int chegvd_(integer *itype, char *jobz, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real *w, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00867 /*:ref: lsame_ 12 4 13 13 124 124 */
00868 /*:ref: xerbla_ 14 3 13 4 124 */
00869 /*:ref: cpotrf_ 14 6 13 4 8 4 4 124 */
00870 /*:ref: chegst_ 14 9 4 13 4 8 4 8 4 4 124 */
00871 /*:ref: cheevd_ 14 15 13 13 4 8 4 6 8 4 6 4 4 4 4 124 124 */
00872 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00873 /*:ref: ctrmm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00875 int chegvx_(integer *itype, char *jobz, char *range, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
00876 /*:ref: lsame_ 12 4 13 13 124 124 */
00877 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00878 /*:ref: xerbla_ 14 3 13 4 124 */
00879 /*:ref: cpotrf_ 14 6 13 4 8 4 4 124 */
00880 /*:ref: chegst_ 14 9 4 13 4 8 4 8 4 4 124 */
00881 /*:ref: cheevx_ 14 24 13 13 13 4 8 4 6 6 4 4 6 4 6 8 4 8 4 6 4 4 4 124 124 124 */
00882 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00883 /*:ref: ctrmm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
00885 int chesv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info, ftnlen uplo_len);
00886 /*:ref: lsame_ 12 4 13 13 124 124 */
00887 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00888 /*:ref: xerbla_ 14 3 13 4 124 */
00889 /*:ref: chetrf_ 14 9 13 4 8 4 4 8 4 4 124 */
00890 /*:ref: chetrs_ 14 10 13 4 4 8 4 4 8 4 4 124 */
00892 int chesvx_(char *fact, char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, integer *lwork, real *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
00893 /*:ref: lsame_ 12 4 13 13 124 124 */
00894 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00895 /*:ref: xerbla_ 14 3 13 4 124 */
00896 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
00897 /*:ref: chetrf_ 14 9 13 4 8 4 4 8 4 4 124 */
00898 /*:ref: clanhe_ 6 8 13 13 4 8 4 6 124 124 */
00899 /*:ref: checon_ 14 10 13 4 8 4 4 6 6 8 4 124 */
00900 /*:ref: slamch_ 6 2 13 124 */
00901 /*:ref: chetrs_ 14 10 13 4 4 8 4 4 8 4 4 124 */
00902 /*:ref: cherfs_ 14 18 13 4 4 8 4 8 4 4 8 4 8 4 6 6 8 6 4 124 */
00904 int chetd2_(char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, integer *info, ftnlen uplo_len);
00905 /*:ref: lsame_ 12 4 13 13 124 124 */
00906 /*:ref: xerbla_ 14 3 13 4 124 */
00907 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
00908 /*:ref: chemv_ 14 11 13 4 8 8 4 8 4 8 8 4 124 */
00909 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
00910 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
00911 /*:ref: cher2_ 14 10 13 4 8 8 4 8 4 8 4 124 */
00913 int chetrd_(char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, complex *work, integer *lwork, integer *info, ftnlen uplo_len);
00914 /*:ref: lsame_ 12 4 13 13 124 124 */
00915 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
00916 /*:ref: xerbla_ 14 3 13 4 124 */
00917 /*:ref: clatrd_ 14 10 13 4 4 8 4 6 8 8 4 124 */
00918 /*:ref: cher2k_ 14 14 13 13 4 4 8 8 4 8 4 6 8 4 124 124 */
00919 /*:ref: chetd2_ 14 9 13 4 8 4 6 6 8 4 124 */
00921 int chetri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info, ftnlen uplo_len);
00922 /*:ref: lsame_ 12 4 13 13 124 124 */
00923 /*:ref: xerbla_ 14 3 13 4 124 */
00924 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
00925 /*:ref: chemv_ 14 11 13 4 8 8 4 8 4 8 8 4 124 */
00926 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
00927 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00929 int chetrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
00930 /*:ref: lsame_ 12 4 13 13 124 124 */
00931 /*:ref: xerbla_ 14 3 13 4 124 */
00932 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00933 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
00934 /*:ref: csscal_ 14 4 4 6 8 4 */
00935 /*:ref: clacgv_ 14 3 4 8 4 */
00936 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
00938 int chgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *info, ftnlen job_len, ftnlen compq_len, ftnlen compz_len);
00939 /*:ref: lsame_ 12 4 13 13 124 124 */
00940 /*:ref: xerbla_ 14 3 13 4 124 */
00941 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
00942 /*:ref: slamch_ 6 2 13 124 */
00943 /*:ref: clanhs_ 6 6 13 4 8 4 6 124 */
00944 /*:ref: cscal_ 14 4 4 8 8 4 */
00945 /*:ref: clartg_ 14 5 8 8 6 8 8 */
00946 /*:ref: crot_ 14 7 4 8 4 8 4 6 8 */
00948 int chpcon_(char *uplo, integer *n, complex *ap, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len);
00949 /*:ref: lsame_ 12 4 13 13 124 124 */
00950 /*:ref: xerbla_ 14 3 13 4 124 */
00951 /*:ref: clacon_ 14 5 4 8 8 6 4 */
00952 /*:ref: chptrs_ 14 9 13 4 4 8 4 8 4 4 124 */
00954 int chpev_(char *jobz, char *uplo, integer *n, complex *ap, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00955 /*:ref: lsame_ 12 4 13 13 124 124 */
00956 /*:ref: xerbla_ 14 3 13 4 124 */
00957 /*:ref: slamch_ 6 2 13 124 */
00958 /*:ref: clanhp_ 6 7 13 13 4 8 6 124 124 */
00959 /*:ref: csscal_ 14 4 4 6 8 4 */
00960 /*:ref: chptrd_ 14 8 13 4 8 6 6 8 4 124 */
00961 /*:ref: ssterf_ 14 4 4 6 6 4 */
00962 /*:ref: cupgtr_ 14 9 13 4 8 8 8 4 8 4 124 */
00963 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
00964 /*:ref: sscal_ 14 4 4 6 6 4 */
00966 int chpevd_(char *jobz, char *uplo, integer *n, complex *ap, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
00967 /*:ref: lsame_ 12 4 13 13 124 124 */
00968 /*:ref: xerbla_ 14 3 13 4 124 */
00969 /*:ref: slamch_ 6 2 13 124 */
00970 /*:ref: clanhp_ 6 7 13 13 4 8 6 124 124 */
00971 /*:ref: csscal_ 14 4 4 6 8 4 */
00972 /*:ref: chptrd_ 14 8 13 4 8 6 6 8 4 124 */
00973 /*:ref: ssterf_ 14 4 4 6 6 4 */
00974 /*:ref: cstedc_ 14 14 13 4 6 6 8 4 8 4 6 4 4 4 4 124 */
00975 /*:ref: cupmtr_ 14 14 13 13 13 4 4 8 8 8 4 8 4 124 124 124 */
00976 /*:ref: sscal_ 14 4 4 6 6 4 */
00978 int chpevx_(char *jobz, char *range, char *uplo, integer *n, complex *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
00979 /*:ref: lsame_ 12 4 13 13 124 124 */
00980 /*:ref: xerbla_ 14 3 13 4 124 */
00981 /*:ref: slamch_ 6 2 13 124 */
00982 /*:ref: clanhp_ 6 7 13 13 4 8 6 124 124 */
00983 /*:ref: csscal_ 14 4 4 6 8 4 */
00984 /*:ref: chptrd_ 14 8 13 4 8 6 6 8 4 124 */
00985 /*:ref: scopy_ 14 5 4 6 4 6 4 */
00986 /*:ref: ssterf_ 14 4 4 6 6 4 */
00987 /*:ref: cupgtr_ 14 9 13 4 8 8 8 4 8 4 124 */
00988 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
00989 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
00990 /*:ref: cstein_ 14 13 4 6 6 4 6 4 4 8 4 6 4 4 4 */
00991 /*:ref: cupmtr_ 14 14 13 13 13 4 4 8 8 8 4 8 4 124 124 124 */
00992 /*:ref: sscal_ 14 4 4 6 6 4 */
00993 /*:ref: cswap_ 14 5 4 8 4 8 4 */
00995 int chpgst_(integer *itype, char *uplo, integer *n, complex *ap, complex *bp, integer *info, ftnlen uplo_len);
00996 /*:ref: lsame_ 12 4 13 13 124 124 */
00997 /*:ref: xerbla_ 14 3 13 4 124 */
00998 /*:ref: ctpsv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
00999 /*:ref: chpmv_ 14 10 13 4 8 8 8 4 8 8 4 124 */
01000 /*:ref: csscal_ 14 4 4 6 8 4 */
01001 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01002 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01003 /*:ref: chpr2_ 14 9 13 4 8 8 4 8 4 8 124 */
01004 /*:ref: ctpmv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01006 int chpgv_(integer *itype, char *jobz, char *uplo, integer *n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
01007 /*:ref: lsame_ 12 4 13 13 124 124 */
01008 /*:ref: xerbla_ 14 3 13 4 124 */
01009 /*:ref: cpptrf_ 14 5 13 4 8 4 124 */
01010 /*:ref: chpgst_ 14 7 4 13 4 8 8 4 124 */
01011 /*:ref: chpev_ 14 12 13 13 4 8 6 8 4 8 6 4 124 124 */
01012 /*:ref: ctpsv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01013 /*:ref: ctpmv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01015 int chpgvd_(integer *itype, char *jobz, char *uplo, integer *n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
01016 /*:ref: lsame_ 12 4 13 13 124 124 */
01017 /*:ref: xerbla_ 14 3 13 4 124 */
01018 /*:ref: cpptrf_ 14 5 13 4 8 4 124 */
01019 /*:ref: chpgst_ 14 7 4 13 4 8 8 4 124 */
01020 /*:ref: chpevd_ 14 16 13 13 4 8 6 8 4 8 4 6 4 4 4 4 124 124 */
01021 /*:ref: ctpsv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01022 /*:ref: ctpmv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01024 int chpgvx_(integer *itype, char *jobz, char *range, char *uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, complex *work, real *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
01025 /*:ref: lsame_ 12 4 13 13 124 124 */
01026 /*:ref: xerbla_ 14 3 13 4 124 */
01027 /*:ref: cpptrf_ 14 5 13 4 8 4 124 */
01028 /*:ref: chpgst_ 14 7 4 13 4 8 8 4 124 */
01029 /*:ref: chpevx_ 14 22 13 13 13 4 8 6 6 4 4 6 4 6 8 4 8 6 4 4 4 124 124 124 */
01030 /*:ref: ctpsv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01031 /*:ref: ctpmv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01033 int chpsv_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01034 /*:ref: lsame_ 12 4 13 13 124 124 */
01035 /*:ref: xerbla_ 14 3 13 4 124 */
01036 /*:ref: chptrf_ 14 6 13 4 8 4 4 124 */
01037 /*:ref: chptrs_ 14 9 13 4 4 8 4 8 4 4 124 */
01039 int chpsvx_(char *fact, char *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
01040 /*:ref: lsame_ 12 4 13 13 124 124 */
01041 /*:ref: xerbla_ 14 3 13 4 124 */
01042 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01043 /*:ref: chptrf_ 14 6 13 4 8 4 4 124 */
01044 /*:ref: clanhp_ 6 7 13 13 4 8 6 124 124 */
01045 /*:ref: chpcon_ 14 9 13 4 8 4 6 6 8 4 124 */
01046 /*:ref: slamch_ 6 2 13 124 */
01047 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01048 /*:ref: chptrs_ 14 9 13 4 4 8 4 8 4 4 124 */
01049 /*:ref: chprfs_ 14 16 13 4 4 8 8 4 8 4 8 4 6 6 8 6 4 124 */
01051 int chptrd_(char *uplo, integer *n, complex *ap, real *d__, real *e, complex *tau, integer *info, ftnlen uplo_len);
01052 /*:ref: lsame_ 12 4 13 13 124 124 */
01053 /*:ref: xerbla_ 14 3 13 4 124 */
01054 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01055 /*:ref: chpmv_ 14 10 13 4 8 8 8 4 8 8 4 124 */
01056 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01057 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01058 /*:ref: chpr2_ 14 9 13 4 8 8 4 8 4 8 124 */
01060 int chptri_(char *uplo, integer *n, complex *ap, integer *ipiv, complex *work, integer *info, ftnlen uplo_len);
01061 /*:ref: lsame_ 12 4 13 13 124 124 */
01062 /*:ref: xerbla_ 14 3 13 4 124 */
01063 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01064 /*:ref: chpmv_ 14 10 13 4 8 8 8 4 8 8 4 124 */
01065 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01066 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01068 int chptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01069 /*:ref: lsame_ 12 4 13 13 124 124 */
01070 /*:ref: xerbla_ 14 3 13 4 124 */
01071 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01072 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
01073 /*:ref: csscal_ 14 4 4 6 8 4 */
01074 /*:ref: clacgv_ 14 3 4 8 4 */
01075 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01077 int chsein_(char *side, char *eigsrc, char *initv, logical *select, integer *n, complex *h__, integer *ldh, complex *w, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, real *rwork, integer *ifaill, integer *ifailr, integer *info, ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
01078 /*:ref: lsame_ 12 4 13 13 124 124 */
01079 /*:ref: xerbla_ 14 3 13 4 124 */
01080 /*:ref: slamch_ 6 2 13 124 */
01081 /*:ref: clanhs_ 6 6 13 4 8 4 6 124 */
01082 /*:ref: claein_ 14 13 12 12 4 8 4 8 8 8 4 6 6 6 4 */
01084 int chseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__, integer *ldz, complex *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compz_len);
01085 /*:ref: lsame_ 12 4 13 13 124 124 */
01086 /*:ref: xerbla_ 14 3 13 4 124 */
01087 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
01088 /*:ref: slapy2_ 6 2 6 6 */
01089 /*:ref: cscal_ 14 4 4 8 8 4 */
01090 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
01091 /*:ref: clahqr_ 14 13 12 12 4 4 4 8 4 8 4 4 8 4 4 */
01092 /*:ref: slamch_ 6 2 13 124 */
01093 /*:ref: slabad_ 14 2 6 6 */
01094 /*:ref: clanhs_ 6 6 13 4 8 4 6 124 */
01095 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01096 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01097 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01098 /*:ref: icamax_ 4 3 4 8 4 */
01099 /*:ref: csscal_ 14 4 4 6 8 4 */
01100 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01101 /*:ref: clarfx_ 14 9 13 4 4 8 8 8 4 8 124 */
01103 int clabrd_(integer *m, integer *n, integer *nb, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *x, integer *ldx, complex *y, integer *ldy);
01104 /*:ref: clacgv_ 14 3 4 8 4 */
01105 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01106 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01107 /*:ref: cscal_ 14 4 4 8 8 4 */
01109 int clacgv_(integer *n, complex *x, integer *incx);
01111 int clacon_(integer *n, complex *v, complex *x, real *est, integer *kase);
01112 /*:ref: slamch_ 6 2 13 124 */
01113 /*:ref: scsum1_ 6 3 4 8 4 */
01114 /*:ref: icmax1_ 4 3 4 8 4 */
01115 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01117 int clacp2_(char *uplo, integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb, ftnlen uplo_len);
01118 /*:ref: lsame_ 12 4 13 13 124 124 */
01120 int clacpy_(char *uplo, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, ftnlen uplo_len);
01121 /*:ref: lsame_ 12 4 13 13 124 124 */
01123 int clacrm_(integer *m, integer *n, complex *a, integer *lda, real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
01124 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
01126 int clacrt_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, complex *c__, complex *s);
01128 C_f cladiv_(complex * ret_val, complex *x, complex *y);
01129 /*:ref: sladiv_ 14 6 6 6 6 6 6 6 */
01131 int claed0_(integer *qsiz, integer *n, real *d__, real *e, complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork, integer *iwork, integer *info);
01132 /*:ref: xerbla_ 14 3 13 4 124 */
01133 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
01134 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
01135 /*:ref: clacrm_ 14 9 4 4 8 4 6 4 8 4 6 */
01136 /*:ref: claed7_ 14 22 4 4 4 4 4 4 6 8 4 6 4 6 4 4 4 4 4 6 8 6 4 4 */
01137 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01138 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01140 int claed7_(integer *n, integer *cutpnt, integer *qsiz, integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex *q, integer *ldq, real *rho, integer *indxq, real *qstore, integer *qptr, integer *prmptr, integer *perm, integer *givptr, integer *givcol, real *givnum, complex *work, real *rwork, integer *iwork, integer *info);
01141 /*:ref: xerbla_ 14 3 13 4 124 */
01142 /*:ref: slaeda_ 14 14 4 4 4 4 4 4 4 4 6 6 4 6 6 4 */
01143 /*:ref: claed8_ 14 21 4 4 4 8 4 6 6 4 6 6 8 4 6 4 4 4 4 4 4 6 4 */
01144 /*:ref: slaed9_ 14 13 4 4 4 4 6 6 4 6 6 6 6 4 4 */
01145 /*:ref: clacrm_ 14 9 4 4 8 4 6 4 8 4 6 */
01146 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
01148 int claed8_(integer *k, integer *n, integer *qsiz, complex *q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__, real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp, integer *indx, integer *indxq, integer *perm, integer *givptr, integer *givcol, real *givnum, integer *info);
01149 /*:ref: xerbla_ 14 3 13 4 124 */
01150 /*:ref: sscal_ 14 4 4 6 6 4 */
01151 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
01152 /*:ref: isamax_ 4 3 4 6 4 */
01153 /*:ref: slamch_ 6 2 13 124 */
01154 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01155 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01156 /*:ref: slapy2_ 6 2 6 6 */
01157 /*:ref: csrot_ 14 7 4 8 4 8 4 6 6 */
01158 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01160 int claein_(logical *rightv, logical *noinit, integer *n, complex *h__, integer *ldh, complex *w, complex *v, complex *b, integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info);
01161 /*:ref: scnrm2_ 6 3 4 8 4 */
01162 /*:ref: csscal_ 14 4 4 6 8 4 */
01163 /*:ref: cladiv_ 8 3 8 8 8 */
01164 /*:ref: clatrs_ 14 15 13 13 13 13 4 8 4 8 6 6 4 124 124 124 124 */
01165 /*:ref: scasum_ 6 3 4 8 4 */
01166 /*:ref: icamax_ 4 3 4 8 4 */
01168 int claesy_(complex *a, complex *b, complex *c__, complex *rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
01170 int claev2_(complex *a, complex *b, complex *c__, real *rt1, real *rt2, real *cs1, complex *sn1);
01171 /*:ref: slaev2_ 14 7 6 6 6 6 6 6 6 */
01173 int clags2_(logical *upper, real *a1, complex *a2, real *a3, real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv, complex *snv, real *csq, complex *snq);
01174 /*:ref: slasv2_ 14 9 6 6 6 6 6 6 6 6 6 */
01175 /*:ref: clartg_ 14 5 8 8 6 8 8 */
01177 int clagtm_(char *trans, integer *n, integer *nrhs, real *alpha, complex *dl, complex *d__, complex *du, complex *x, integer *ldx, real *beta, complex *b, integer *ldb, ftnlen trans_len);
01178 /*:ref: lsame_ 12 4 13 13 124 124 */
01180 int clahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w, integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *info);
01181 /*:ref: slamch_ 6 2 13 124 */
01182 /*:ref: clanhs_ 6 6 13 4 8 4 6 124 */
01183 /*:ref: cladiv_ 8 3 8 8 8 */
01184 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01185 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01186 /*:ref: cscal_ 14 4 4 8 8 4 */
01188 int clahrd_(integer *n, integer *k, integer *nb, complex *a, integer *lda, complex *tau, complex *t, integer *ldt, complex *y, integer *ldy);
01189 /*:ref: clacgv_ 14 3 4 8 4 */
01190 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01191 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01192 /*:ref: ctrmv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
01193 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01194 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01195 /*:ref: cscal_ 14 4 4 8 8 4 */
01197 int claic1_(integer *job, integer *j, complex *x, real *sest, complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
01198 /*:ref: slamch_ 6 2 13 124 */
01199 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01201 int clals0_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *difl, real *difr, real *z__, integer *k, real *c__, real *s, real *rwork, integer *info);
01202 /*:ref: xerbla_ 14 3 13 4 124 */
01203 /*:ref: csrot_ 14 7 4 8 4 8 4 6 6 */
01204 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01205 /*:ref: csscal_ 14 4 4 6 8 4 */
01206 /*:ref: slamc3_ 6 2 6 6 */
01207 /*:ref: snrm2_ 6 3 4 6 4 */
01208 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
01209 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
01210 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01212 int clalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx, real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork, integer *iwork, integer *info);
01213 /*:ref: xerbla_ 14 3 13 4 124 */
01214 /*:ref: slasdt_ 14 7 4 4 4 4 4 4 4 */
01215 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
01216 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01217 /*:ref: clals0_ 14 24 4 4 4 4 4 8 4 8 4 4 4 4 4 6 4 6 6 6 6 4 6 6 6 4 */
01219 int clalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, real *d__, real *e, complex *b, integer *ldb, real *rcond, integer *rank, complex *work, real *rwork, integer *iwork, integer *info, ftnlen uplo_len);
01220 /*:ref: xerbla_ 14 3 13 4 124 */
01221 /*:ref: slamch_ 6 2 13 124 */
01222 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
01223 /*:ref: clascl_ 14 11 13 4 4 6 6 4 4 8 4 4 124 */
01224 /*:ref: slartg_ 14 5 6 6 6 6 6 */
01225 /*:ref: csrot_ 14 7 4 8 4 8 4 6 6 */
01226 /*:ref: slanst_ 6 5 13 4 6 6 124 */
01227 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
01228 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
01229 /*:ref: slasdq_ 14 17 13 4 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
01230 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
01231 /*:ref: isamax_ 4 3 4 6 4 */
01232 /*:ref: slasrt_ 14 5 13 4 6 4 124 */
01233 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01234 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01235 /*:ref: slasda_ 14 24 4 4 4 4 6 6 6 4 6 4 6 6 6 6 4 4 4 4 6 6 6 6 4 4 */
01236 /*:ref: clalsa_ 14 26 4 4 4 4 8 4 8 4 6 4 6 4 6 6 6 6 4 4 4 4 6 6 6 6 4 4 */
01238 E_f clangb_(char *norm, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *work, ftnlen norm_len);
01239 /*:ref: lsame_ 12 4 13 13 124 124 */
01240 /*:ref: classq_ 14 5 4 8 4 6 6 */
01242 E_f clange_(char *norm, integer *m, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len);
01243 /*:ref: lsame_ 12 4 13 13 124 124 */
01244 /*:ref: classq_ 14 5 4 8 4 6 6 */
01246 E_f clangt_(char *norm, integer *n, complex *dl, complex *d__, complex *du, ftnlen norm_len);
01247 /*:ref: lsame_ 12 4 13 13 124 124 */
01248 /*:ref: classq_ 14 5 4 8 4 6 6 */
01250 E_f clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len);
01251 /*:ref: lsame_ 12 4 13 13 124 124 */
01252 /*:ref: classq_ 14 5 4 8 4 6 6 */
01254 E_f clanhe_(char *norm, char *uplo, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len);
01255 /*:ref: lsame_ 12 4 13 13 124 124 */
01256 /*:ref: classq_ 14 5 4 8 4 6 6 */
01258 E_f clanhp_(char *norm, char *uplo, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len);
01259 /*:ref: lsame_ 12 4 13 13 124 124 */
01260 /*:ref: classq_ 14 5 4 8 4 6 6 */
01262 E_f clanhs_(char *norm, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len);
01263 /*:ref: lsame_ 12 4 13 13 124 124 */
01264 /*:ref: classq_ 14 5 4 8 4 6 6 */
01266 E_f clanht_(char *norm, integer *n, real *d__, complex *e, ftnlen norm_len);
01267 /*:ref: lsame_ 12 4 13 13 124 124 */
01268 /*:ref: classq_ 14 5 4 8 4 6 6 */
01269 /*:ref: slassq_ 14 5 4 6 4 6 6 */
01271 E_f clansb_(char *norm, char *uplo, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len);
01272 /*:ref: lsame_ 12 4 13 13 124 124 */
01273 /*:ref: classq_ 14 5 4 8 4 6 6 */
01275 E_f clansp_(char *norm, char *uplo, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len);
01276 /*:ref: lsame_ 12 4 13 13 124 124 */
01277 /*:ref: classq_ 14 5 4 8 4 6 6 */
01279 E_f clansy_(char *norm, char *uplo, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len);
01280 /*:ref: lsame_ 12 4 13 13 124 124 */
01281 /*:ref: classq_ 14 5 4 8 4 6 6 */
01283 E_f clantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
01284 /*:ref: lsame_ 12 4 13 13 124 124 */
01285 /*:ref: classq_ 14 5 4 8 4 6 6 */
01287 E_f clantp_(char *norm, char *uplo, char *diag, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
01288 /*:ref: lsame_ 12 4 13 13 124 124 */
01289 /*:ref: classq_ 14 5 4 8 4 6 6 */
01291 E_f clantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
01292 /*:ref: lsame_ 12 4 13 13 124 124 */
01293 /*:ref: classq_ 14 5 4 8 4 6 6 */
01295 int clapll_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *ssmin);
01296 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01297 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01298 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01299 /*:ref: slas2_ 14 5 6 6 6 6 6 */
01301 int clapmt_(logical *forwrd, integer *m, integer *n, complex *x, integer *ldx, integer *k);
01303 int claqgb_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *equed, ftnlen equed_len);
01304 /*:ref: slamch_ 6 2 13 124 */
01306 int claqge_(integer *m, integer *n, complex *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *equed, ftnlen equed_len);
01307 /*:ref: slamch_ 6 2 13 124 */
01309 int claqhb_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
01310 /*:ref: slamch_ 6 2 13 124 */
01311 /*:ref: lsame_ 12 4 13 13 124 124 */
01313 int claqhe_(char *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
01314 /*:ref: slamch_ 6 2 13 124 */
01315 /*:ref: lsame_ 12 4 13 13 124 124 */
01317 int claqhp_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
01318 /*:ref: slamch_ 6 2 13 124 */
01319 /*:ref: lsame_ 12 4 13 13 124 124 */
01321 int claqp2_(integer *m, integer *n, integer *offset, complex *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, complex *work);
01322 /*:ref: isamax_ 4 3 4 6 4 */
01323 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01324 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01325 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
01326 /*:ref: scnrm2_ 6 3 4 8 4 */
01328 int claqps_(integer *m, integer *n, integer *offset, integer *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
01329 /*:ref: isamax_ 4 3 4 6 4 */
01330 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01331 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01332 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01333 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
01334 /*:ref: scnrm2_ 6 3 4 8 4 */
01336 int claqsb_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
01337 /*:ref: slamch_ 6 2 13 124 */
01338 /*:ref: lsame_ 12 4 13 13 124 124 */
01340 int claqsp_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
01341 /*:ref: slamch_ 6 2 13 124 */
01342 /*:ref: lsame_ 12 4 13 13 124 124 */
01344 int claqsy_(char *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
01345 /*:ref: slamch_ 6 2 13 124 */
01346 /*:ref: lsame_ 12 4 13 13 124 124 */
01348 int clar1v_(integer *n, integer *b1, integer *bn, real *sigma, real *d__, real *l, real *ld, real *lld, real *gersch, complex *z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *work);
01349 /*:ref: slamch_ 6 2 13 124 */
01351 int clar2v_(integer *n, complex *x, complex *y, complex *z__, integer *incx, real *c__, complex *s, integer *incc);
01353 int clarcm_(integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
01354 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
01356 int clargv_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *c__, integer *incc);
01357 /*:ref: slamch_ 6 2 13 124 */
01358 /*:ref: slapy2_ 6 2 6 6 */
01360 int clarnv_(integer *idist, integer *iseed, integer *n, complex *x);
01361 /*:ref: slaruv_ 14 3 4 4 6 */
01363 int clarrv_(integer *n, real *d__, real *l, integer *isplit, integer *m, real *w, integer *iblock, real *gersch, real *tol, complex *z__, integer *ldz, integer *isuppz, real *work, integer *iwork, integer *info);
01364 /*:ref: slamch_ 6 2 13 124 */
01365 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
01366 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01367 /*:ref: slarrb_ 14 15 4 6 6 6 6 4 4 6 6 6 6 6 6 4 4 */
01368 /*:ref: slarrf_ 14 13 4 6 6 6 6 4 4 6 6 6 6 4 4 */
01369 /*:ref: cstein_ 14 13 4 6 6 4 6 4 4 8 4 6 4 4 4 */
01370 /*:ref: clar1v_ 14 15 4 4 4 6 6 6 6 6 6 8 6 6 4 4 6 */
01371 /*:ref: csscal_ 14 4 4 6 8 4 */
01372 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
01373 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01374 /*:ref: scnrm2_ 6 3 4 8 4 */
01376 int clartg_(complex *f, complex *g, real *cs, complex *sn, complex *r__);
01377 /*:ref: slamch_ 6 2 13 124 */
01378 /*:ref: slapy2_ 6 2 6 6 */
01380 int clartv_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *c__, complex *s, integer *incc);
01382 int clarz_(char *side, integer *m, integer *n, integer *l, complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, complex *work, ftnlen side_len);
01383 /*:ref: lsame_ 12 4 13 13 124 124 */
01384 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01385 /*:ref: clacgv_ 14 3 4 8 4 */
01386 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01387 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01388 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
01389 /*:ref: cgerc_ 14 9 4 4 8 8 4 8 4 8 4 */
01391 int clarzb_(char *side, char *trans, char *direct, char *storev, integer *m, integer *n, integer *k, integer *l, complex *v, integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc, complex *work, integer *ldwork, ftnlen side_len, ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
01392 /*:ref: lsame_ 12 4 13 13 124 124 */
01393 /*:ref: xerbla_ 14 3 13 4 124 */
01394 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01395 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
01396 /*:ref: ctrmm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
01397 /*:ref: clacgv_ 14 3 4 8 4 */
01399 int clarzt_(char *direct, char *storev, integer *n, integer *k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt, ftnlen direct_len, ftnlen storev_len);
01400 /*:ref: lsame_ 12 4 13 13 124 124 */
01401 /*:ref: xerbla_ 14 3 13 4 124 */
01402 /*:ref: clacgv_ 14 3 4 8 4 */
01403 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01404 /*:ref: ctrmv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
01406 int clascl_(char *type__, integer *kl, integer *ku, real *cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda, integer *info, ftnlen type_len);
01407 /*:ref: lsame_ 12 4 13 13 124 124 */
01408 /*:ref: xerbla_ 14 3 13 4 124 */
01409 /*:ref: slamch_ 6 2 13 124 */
01411 int claset_(char *uplo, integer *m, integer *n, complex *alpha, complex *beta, complex *a, integer *lda, ftnlen uplo_len);
01412 /*:ref: lsame_ 12 4 13 13 124 124 */
01414 int clasr_(char *side, char *pivot, char *direct, integer *m, integer *n, real *c__, real *s, complex *a, integer *lda, ftnlen side_len, ftnlen pivot_len, ftnlen direct_len);
01415 /*:ref: lsame_ 12 4 13 13 124 124 */
01416 /*:ref: xerbla_ 14 3 13 4 124 */
01418 int classq_(integer *n, complex *x, integer *incx, real *scale, real *sumsq);
01420 int claswp_(integer *n, complex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);
01422 int clatbs_(char *uplo, char *trans, char *diag, char *normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *x, real *scale, real *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
01423 /*:ref: lsame_ 12 4 13 13 124 124 */
01424 /*:ref: xerbla_ 14 3 13 4 124 */
01425 /*:ref: slamch_ 6 2 13 124 */
01426 /*:ref: slabad_ 14 2 6 6 */
01427 /*:ref: scasum_ 6 3 4 8 4 */
01428 /*:ref: isamax_ 4 3 4 6 4 */
01429 /*:ref: sscal_ 14 4 4 6 6 4 */
01430 /*:ref: ctbsv_ 14 12 13 13 13 4 4 8 4 8 4 124 124 124 */
01431 /*:ref: csscal_ 14 4 4 6 8 4 */
01432 /*:ref: cladiv_ 8 3 8 8 8 */
01433 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01434 /*:ref: icamax_ 4 3 4 8 4 */
01435 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
01436 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01438 int clatps_(char *uplo, char *trans, char *diag, char *normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
01439 /*:ref: lsame_ 12 4 13 13 124 124 */
01440 /*:ref: xerbla_ 14 3 13 4 124 */
01441 /*:ref: slamch_ 6 2 13 124 */
01442 /*:ref: slabad_ 14 2 6 6 */
01443 /*:ref: scasum_ 6 3 4 8 4 */
01444 /*:ref: isamax_ 4 3 4 6 4 */
01445 /*:ref: sscal_ 14 4 4 6 6 4 */
01446 /*:ref: ctpsv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01447 /*:ref: csscal_ 14 4 4 6 8 4 */
01448 /*:ref: cladiv_ 8 3 8 8 8 */
01449 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01450 /*:ref: icamax_ 4 3 4 8 4 */
01451 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
01452 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01454 int clatrd_(char *uplo, integer *n, integer *nb, complex *a, integer *lda, real *e, complex *tau, complex *w, integer *ldw, ftnlen uplo_len);
01455 /*:ref: lsame_ 12 4 13 13 124 124 */
01456 /*:ref: clacgv_ 14 3 4 8 4 */
01457 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01458 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01459 /*:ref: chemv_ 14 11 13 4 8 8 4 8 4 8 8 4 124 */
01460 /*:ref: cscal_ 14 4 4 8 8 4 */
01461 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01462 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01464 int clatrs_(char *uplo, char *trans, char *diag, char *normin, integer *n, complex *a, integer *lda, complex *x, real *scale, real *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
01465 /*:ref: lsame_ 12 4 13 13 124 124 */
01466 /*:ref: xerbla_ 14 3 13 4 124 */
01467 /*:ref: slamch_ 6 2 13 124 */
01468 /*:ref: slabad_ 14 2 6 6 */
01469 /*:ref: scasum_ 6 3 4 8 4 */
01470 /*:ref: isamax_ 4 3 4 6 4 */
01471 /*:ref: sscal_ 14 4 4 6 6 4 */
01472 /*:ref: ctrsv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
01473 /*:ref: csscal_ 14 4 4 6 8 4 */
01474 /*:ref: cladiv_ 8 3 8 8 8 */
01475 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01476 /*:ref: icamax_ 4 3 4 8 4 */
01477 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
01478 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01480 int clatrz_(integer *m, integer *n, integer *l, complex *a, integer *lda, complex *tau, complex *work);
01481 /*:ref: clacgv_ 14 3 4 8 4 */
01482 /*:ref: clarfg_ 14 5 4 8 8 4 8 */
01483 /*:ref: clarz_ 14 11 13 4 4 4 8 4 8 8 4 8 124 */
01485 int clatzm_(char *side, integer *m, integer *n, complex *v, integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc, complex *work, ftnlen side_len);
01486 /*:ref: lsame_ 12 4 13 13 124 124 */
01487 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01488 /*:ref: clacgv_ 14 3 4 8 4 */
01489 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01490 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01491 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
01492 /*:ref: cgerc_ 14 9 4 4 8 8 4 8 4 8 4 */
01494 int clauu2_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len);
01495 /*:ref: lsame_ 12 4 13 13 124 124 */
01496 /*:ref: xerbla_ 14 3 13 4 124 */
01497 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01498 /*:ref: clacgv_ 14 3 4 8 4 */
01499 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01500 /*:ref: csscal_ 14 4 4 6 8 4 */
01502 int clauum_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len);
01503 /*:ref: lsame_ 12 4 13 13 124 124 */
01504 /*:ref: xerbla_ 14 3 13 4 124 */
01505 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
01506 /*:ref: clauu2_ 14 6 13 4 8 4 4 124 */
01507 /*:ref: ctrmm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
01508 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
01509 /*:ref: cherk_ 14 12 13 13 4 4 6 8 4 6 8 4 124 124 */
01511 int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplo_len);
01512 /*:ref: lsame_ 12 4 13 13 124 124 */
01513 /*:ref: xerbla_ 14 3 13 4 124 */
01514 /*:ref: slamch_ 6 2 13 124 */
01515 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01516 /*:ref: clatbs_ 14 16 13 13 13 13 4 4 8 4 8 6 6 4 124 124 124 124 */
01517 /*:ref: icamax_ 4 3 4 8 4 */
01518 /*:ref: csrscl_ 14 4 4 6 8 4 */
01520 int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len);
01521 /*:ref: lsame_ 12 4 13 13 124 124 */
01522 /*:ref: xerbla_ 14 3 13 4 124 */
01524 int cpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01525 /*:ref: lsame_ 12 4 13 13 124 124 */
01526 /*:ref: xerbla_ 14 3 13 4 124 */
01527 /*:ref: cpbtrf_ 14 7 13 4 4 8 4 4 124 */
01528 /*:ref: cpbtrs_ 14 10 13 4 4 4 8 4 8 4 4 124 */
01530 int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
01531 /*:ref: lsame_ 12 4 13 13 124 124 */
01532 /*:ref: slamch_ 6 2 13 124 */
01533 /*:ref: xerbla_ 14 3 13 4 124 */
01534 /*:ref: cpbequ_ 14 10 13 4 4 8 4 6 6 6 4 124 */
01535 /*:ref: claqhb_ 14 11 13 4 4 8 4 6 6 6 13 124 124 */
01536 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01537 /*:ref: cpbtrf_ 14 7 13 4 4 8 4 4 124 */
01538 /*:ref: clanhb_ 6 9 13 13 4 4 8 4 6 124 124 */
01539 /*:ref: cpbcon_ 14 11 13 4 4 8 4 6 6 8 6 4 124 */
01540 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01541 /*:ref: cpbtrs_ 14 10 13 4 4 4 8 4 8 4 4 124 */
01542 /*:ref: cpbrfs_ 14 18 13 4 4 4 8 4 8 4 8 4 8 4 6 6 8 6 4 124 */
01544 int cpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01545 /*:ref: lsame_ 12 4 13 13 124 124 */
01546 /*:ref: xerbla_ 14 3 13 4 124 */
01547 /*:ref: ctbsv_ 14 12 13 13 13 4 4 8 4 8 4 124 124 124 */
01549 int cpocon_(char *uplo, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplo_len);
01550 /*:ref: lsame_ 12 4 13 13 124 124 */
01551 /*:ref: xerbla_ 14 3 13 4 124 */
01552 /*:ref: slamch_ 6 2 13 124 */
01553 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01554 /*:ref: clatrs_ 14 15 13 13 13 13 4 8 4 8 6 6 4 124 124 124 124 */
01555 /*:ref: icamax_ 4 3 4 8 4 */
01556 /*:ref: csrscl_ 14 4 4 6 8 4 */
01558 int cpoequ_(integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, integer *info);
01559 /*:ref: xerbla_ 14 3 13 4 124 */
01561 int cposv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01562 /*:ref: lsame_ 12 4 13 13 124 124 */
01563 /*:ref: xerbla_ 14 3 13 4 124 */
01564 /*:ref: cpotrf_ 14 6 13 4 8 4 4 124 */
01565 /*:ref: cpotrs_ 14 9 13 4 4 8 4 8 4 4 124 */
01567 int cposvx_(char *fact, char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
01568 /*:ref: lsame_ 12 4 13 13 124 124 */
01569 /*:ref: slamch_ 6 2 13 124 */
01570 /*:ref: xerbla_ 14 3 13 4 124 */
01571 /*:ref: cpoequ_ 14 7 4 8 4 6 6 6 4 */
01572 /*:ref: claqhe_ 14 10 13 4 8 4 6 6 6 13 124 124 */
01573 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01574 /*:ref: cpotrf_ 14 6 13 4 8 4 4 124 */
01575 /*:ref: clanhe_ 6 8 13 13 4 8 4 6 124 124 */
01576 /*:ref: cpocon_ 14 10 13 4 8 4 6 6 8 6 4 124 */
01577 /*:ref: cpotrs_ 14 9 13 4 4 8 4 8 4 4 124 */
01578 /*:ref: cporfs_ 14 17 13 4 4 8 4 8 4 8 4 8 4 6 6 8 6 4 124 */
01580 int cpotri_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len);
01581 /*:ref: lsame_ 12 4 13 13 124 124 */
01582 /*:ref: xerbla_ 14 3 13 4 124 */
01583 /*:ref: ctrtri_ 14 8 13 13 4 8 4 4 124 124 */
01584 /*:ref: clauum_ 14 6 13 4 8 4 4 124 */
01586 int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01587 /*:ref: lsame_ 12 4 13 13 124 124 */
01588 /*:ref: xerbla_ 14 3 13 4 124 */
01589 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
01591 int cppcon_(char *uplo, integer *n, complex *ap, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplo_len);
01592 /*:ref: lsame_ 12 4 13 13 124 124 */
01593 /*:ref: xerbla_ 14 3 13 4 124 */
01594 /*:ref: slamch_ 6 2 13 124 */
01595 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01596 /*:ref: clatps_ 14 14 13 13 13 13 4 8 8 6 6 4 124 124 124 124 */
01597 /*:ref: icamax_ 4 3 4 8 4 */
01598 /*:ref: csrscl_ 14 4 4 6 8 4 */
01600 int cppequ_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len);
01601 /*:ref: lsame_ 12 4 13 13 124 124 */
01602 /*:ref: xerbla_ 14 3 13 4 124 */
01604 int cppsv_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01605 /*:ref: lsame_ 12 4 13 13 124 124 */
01606 /*:ref: xerbla_ 14 3 13 4 124 */
01607 /*:ref: cpptrf_ 14 5 13 4 8 4 124 */
01608 /*:ref: cpptrs_ 14 8 13 4 4 8 8 4 4 124 */
01610 int cppsvx_(char *fact, char *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
01611 /*:ref: lsame_ 12 4 13 13 124 124 */
01612 /*:ref: slamch_ 6 2 13 124 */
01613 /*:ref: xerbla_ 14 3 13 4 124 */
01614 /*:ref: cppequ_ 14 8 13 4 8 6 6 6 4 124 */
01615 /*:ref: claqhp_ 14 9 13 4 8 6 6 6 13 124 124 */
01616 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01617 /*:ref: cpptrf_ 14 5 13 4 8 4 124 */
01618 /*:ref: clanhp_ 6 7 13 13 4 8 6 124 124 */
01619 /*:ref: cppcon_ 14 9 13 4 8 6 6 8 6 4 124 */
01620 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01621 /*:ref: cpptrs_ 14 8 13 4 4 8 8 4 4 124 */
01622 /*:ref: cpprfs_ 14 15 13 4 4 8 8 8 4 8 4 6 6 8 6 4 124 */
01624 int cpptri_(char *uplo, integer *n, complex *ap, integer *info, ftnlen uplo_len);
01625 /*:ref: lsame_ 12 4 13 13 124 124 */
01626 /*:ref: xerbla_ 14 3 13 4 124 */
01627 /*:ref: ctptri_ 14 7 13 13 4 8 4 124 124 */
01628 /*:ref: chpr_ 14 7 13 4 6 8 4 8 124 */
01629 /*:ref: csscal_ 14 4 4 6 8 4 */
01630 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01631 /*:ref: ctpmv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01633 int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01634 /*:ref: lsame_ 12 4 13 13 124 124 */
01635 /*:ref: xerbla_ 14 3 13 4 124 */
01636 /*:ref: ctpsv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01638 int cptcon_(integer *n, real *d__, complex *e, real *anorm, real *rcond, real *rwork, integer *info);
01639 /*:ref: xerbla_ 14 3 13 4 124 */
01640 /*:ref: isamax_ 4 3 4 6 4 */
01642 int cpteqr_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, real *work, integer *info, ftnlen compz_len);
01643 /*:ref: lsame_ 12 4 13 13 124 124 */
01644 /*:ref: xerbla_ 14 3 13 4 124 */
01645 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
01646 /*:ref: spttrf_ 14 4 4 6 6 4 */
01647 /*:ref: cbdsqr_ 14 16 13 4 4 4 4 6 6 8 4 8 4 8 4 6 4 124 */
01649 int cptsv_(integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb, integer *info);
01650 /*:ref: xerbla_ 14 3 13 4 124 */
01651 /*:ref: cpttrf_ 14 4 4 6 8 4 */
01652 /*:ref: cpttrs_ 14 9 13 4 4 6 8 8 4 4 124 */
01654 int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__, complex *e, real *df, complex *ef, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len);
01655 /*:ref: lsame_ 12 4 13 13 124 124 */
01656 /*:ref: xerbla_ 14 3 13 4 124 */
01657 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01658 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01659 /*:ref: cpttrf_ 14 4 4 6 8 4 */
01660 /*:ref: clanht_ 6 5 13 4 6 8 124 */
01661 /*:ref: cptcon_ 14 7 4 6 8 6 6 6 4 */
01662 /*:ref: slamch_ 6 2 13 124 */
01663 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01664 /*:ref: cpttrs_ 14 9 13 4 4 6 8 8 4 4 124 */
01665 /*:ref: cptrfs_ 14 17 13 4 4 6 8 6 8 8 4 8 4 6 6 8 6 4 124 */
01667 int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01668 /*:ref: xerbla_ 14 3 13 4 124 */
01669 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
01670 /*:ref: cptts2_ 14 7 4 4 4 6 8 8 4 */
01672 int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb);
01673 /*:ref: csscal_ 14 4 4 6 8 4 */
01675 int crot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, complex *s);
01677 int cspcon_(char *uplo, integer *n, complex *ap, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len);
01678 /*:ref: lsame_ 12 4 13 13 124 124 */
01679 /*:ref: xerbla_ 14 3 13 4 124 */
01680 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01681 /*:ref: csptrs_ 14 9 13 4 4 8 4 8 4 4 124 */
01683 int cspmv_(char *uplo, integer *n, complex *alpha, complex *ap, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len);
01684 /*:ref: lsame_ 12 4 13 13 124 124 */
01685 /*:ref: xerbla_ 14 3 13 4 124 */
01687 int cspr_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *ap, ftnlen uplo_len);
01688 /*:ref: lsame_ 12 4 13 13 124 124 */
01689 /*:ref: xerbla_ 14 3 13 4 124 */
01691 int cspsv_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01692 /*:ref: lsame_ 12 4 13 13 124 124 */
01693 /*:ref: xerbla_ 14 3 13 4 124 */
01694 /*:ref: csptrf_ 14 6 13 4 8 4 4 124 */
01695 /*:ref: csptrs_ 14 9 13 4 4 8 4 8 4 4 124 */
01697 int cspsvx_(char *fact, char *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
01698 /*:ref: lsame_ 12 4 13 13 124 124 */
01699 /*:ref: xerbla_ 14 3 13 4 124 */
01700 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01701 /*:ref: csptrf_ 14 6 13 4 8 4 4 124 */
01702 /*:ref: clansp_ 6 7 13 13 4 8 6 124 124 */
01703 /*:ref: cspcon_ 14 9 13 4 8 4 6 6 8 4 124 */
01704 /*:ref: slamch_ 6 2 13 124 */
01705 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01706 /*:ref: csptrs_ 14 9 13 4 4 8 4 8 4 4 124 */
01707 /*:ref: csprfs_ 14 16 13 4 4 8 8 4 8 4 8 4 6 6 8 6 4 124 */
01709 int csptri_(char *uplo, integer *n, complex *ap, integer *ipiv, complex *work, integer *info, ftnlen uplo_len);
01710 /*:ref: lsame_ 12 4 13 13 124 124 */
01711 /*:ref: xerbla_ 14 3 13 4 124 */
01712 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01713 /*:ref: cspmv_ 14 10 13 4 8 8 8 4 8 8 4 124 */
01714 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
01715 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01717 int csptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01718 /*:ref: lsame_ 12 4 13 13 124 124 */
01719 /*:ref: xerbla_ 14 3 13 4 124 */
01720 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01721 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
01722 /*:ref: cscal_ 14 4 4 8 8 4 */
01723 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01725 int csrot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, real *s);
01727 int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
01728 /*:ref: slamch_ 6 2 13 124 */
01729 /*:ref: slabad_ 14 2 6 6 */
01730 /*:ref: csscal_ 14 4 4 6 8 4 */
01732 int cstedc_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, complex *work, integer *lwork, real *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen compz_len);
01733 /*:ref: lsame_ 12 4 13 13 124 124 */
01734 /*:ref: xerbla_ 14 3 13 4 124 */
01735 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
01736 /*:ref: ssterf_ 14 4 4 6 6 4 */
01737 /*:ref: csteqr_ 14 9 13 4 6 6 8 4 6 4 124 */
01738 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
01739 /*:ref: sstedc_ 14 12 13 4 6 6 6 4 6 4 4 4 4 124 */
01740 /*:ref: slanst_ 6 5 13 4 6 6 124 */
01741 /*:ref: slamch_ 6 2 13 124 */
01742 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
01743 /*:ref: claed0_ 14 11 4 4 6 6 8 4 8 4 6 4 4 */
01744 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
01745 /*:ref: clacrm_ 14 9 4 4 8 4 6 4 8 4 6 */
01746 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01747 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01749 int cstegr_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz, integer *isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len);
01750 /*:ref: lsame_ 12 4 13 13 124 124 */
01751 /*:ref: xerbla_ 14 3 13 4 124 */
01752 /*:ref: slamch_ 6 2 13 124 */
01753 /*:ref: slanst_ 6 5 13 4 6 6 124 */
01754 /*:ref: sscal_ 14 4 4 6 6 4 */
01755 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
01756 /*:ref: slarre_ 14 12 4 6 6 6 4 4 4 6 6 6 6 4 */
01757 /*:ref: clarrv_ 14 15 4 6 6 4 4 6 4 6 6 8 4 4 6 4 4 */
01758 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01760 int cstein_(integer *n, real *d__, real *e, integer *m, real *w, integer *iblock, integer *isplit, complex *z__, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info);
01761 /*:ref: xerbla_ 14 3 13 4 124 */
01762 /*:ref: slamch_ 6 2 13 124 */
01763 /*:ref: slarnv_ 14 4 4 4 4 6 */
01764 /*:ref: scopy_ 14 5 4 6 4 6 4 */
01765 /*:ref: slagtf_ 14 9 4 6 6 6 6 6 6 4 4 */
01766 /*:ref: sasum_ 6 3 4 6 4 */
01767 /*:ref: sscal_ 14 4 4 6 6 4 */
01768 /*:ref: slagts_ 14 10 4 4 6 6 6 6 4 6 6 4 */
01769 /*:ref: isamax_ 4 3 4 6 4 */
01770 /*:ref: snrm2_ 6 3 4 6 4 */
01772 int csteqr_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, real *work, integer *info, ftnlen compz_len);
01773 /*:ref: lsame_ 12 4 13 13 124 124 */
01774 /*:ref: xerbla_ 14 3 13 4 124 */
01775 /*:ref: slamch_ 6 2 13 124 */
01776 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
01777 /*:ref: slanst_ 6 5 13 4 6 6 124 */
01778 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
01779 /*:ref: slaev2_ 14 7 6 6 6 6 6 6 6 */
01780 /*:ref: clasr_ 14 12 13 13 13 4 4 6 6 8 4 124 124 124 */
01781 /*:ref: slae2_ 14 5 6 6 6 6 6 */
01782 /*:ref: slapy2_ 6 2 6 6 */
01783 /*:ref: slartg_ 14 5 6 6 6 6 6 */
01784 /*:ref: slasrt_ 14 5 13 4 6 4 124 */
01785 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01787 int csycon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len);
01788 /*:ref: lsame_ 12 4 13 13 124 124 */
01789 /*:ref: xerbla_ 14 3 13 4 124 */
01790 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01791 /*:ref: csytrs_ 14 10 13 4 4 8 4 4 8 4 4 124 */
01793 int csymv_(char *uplo, integer *n, complex *alpha, complex *a, integer *lda, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len);
01794 /*:ref: lsame_ 12 4 13 13 124 124 */
01795 /*:ref: xerbla_ 14 3 13 4 124 */
01797 int csyr_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *a, integer *lda, ftnlen uplo_len);
01798 /*:ref: lsame_ 12 4 13 13 124 124 */
01799 /*:ref: xerbla_ 14 3 13 4 124 */
01801 int csysv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work, integer *lwork, integer *info, ftnlen uplo_len);
01802 /*:ref: lsame_ 12 4 13 13 124 124 */
01803 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
01804 /*:ref: xerbla_ 14 3 13 4 124 */
01805 /*:ref: csytrf_ 14 9 13 4 8 4 4 8 4 4 124 */
01806 /*:ref: csytrs_ 14 10 13 4 4 8 4 4 8 4 4 124 */
01808 int csysvx_(char *fact, char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work, integer *lwork, real *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
01809 /*:ref: lsame_ 12 4 13 13 124 124 */
01810 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
01811 /*:ref: xerbla_ 14 3 13 4 124 */
01812 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01813 /*:ref: csytrf_ 14 9 13 4 8 4 4 8 4 4 124 */
01814 /*:ref: clansy_ 6 8 13 13 4 8 4 6 124 124 */
01815 /*:ref: csycon_ 14 10 13 4 8 4 4 6 6 8 4 124 */
01816 /*:ref: slamch_ 6 2 13 124 */
01817 /*:ref: csytrs_ 14 10 13 4 4 8 4 4 8 4 4 124 */
01818 /*:ref: csyrfs_ 14 18 13 4 4 8 4 8 4 4 8 4 8 4 6 6 8 6 4 124 */
01820 int csytri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info, ftnlen uplo_len);
01821 /*:ref: lsame_ 12 4 13 13 124 124 */
01822 /*:ref: xerbla_ 14 3 13 4 124 */
01823 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01824 /*:ref: csymv_ 14 11 13 4 8 8 4 8 4 8 8 4 124 */
01825 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
01826 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01828 int csytrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len);
01829 /*:ref: lsame_ 12 4 13 13 124 124 */
01830 /*:ref: xerbla_ 14 3 13 4 124 */
01831 /*:ref: cswap_ 14 5 4 8 4 8 4 */
01832 /*:ref: cgeru_ 14 9 4 4 8 8 4 8 4 8 4 */
01833 /*:ref: cscal_ 14 4 4 8 8 4 */
01834 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01836 int ctbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd, complex *ab, integer *ldab, real *rcond, complex *work, real *rwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
01837 /*:ref: lsame_ 12 4 13 13 124 124 */
01838 /*:ref: xerbla_ 14 3 13 4 124 */
01839 /*:ref: slamch_ 6 2 13 124 */
01840 /*:ref: clantb_ 6 11 13 13 13 4 4 8 4 6 124 124 124 */
01841 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01842 /*:ref: clatbs_ 14 16 13 13 13 13 4 4 8 4 8 6 6 4 124 124 124 124 */
01843 /*:ref: icamax_ 4 3 4 8 4 */
01844 /*:ref: csrscl_ 14 4 4 6 8 4 */
01846 int ctbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
01847 /*:ref: lsame_ 12 4 13 13 124 124 */
01848 /*:ref: xerbla_ 14 3 13 4 124 */
01849 /*:ref: ctbsv_ 14 12 13 13 13 4 4 8 4 8 4 124 124 124 */
01851 int ctgevc_(char *side, char *howmny, logical *select, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, real *rwork, integer *info, ftnlen side_len, ftnlen howmny_len);
01852 /*:ref: lsame_ 12 4 13 13 124 124 */
01853 /*:ref: xerbla_ 14 3 13 4 124 */
01854 /*:ref: slamch_ 6 2 13 124 */
01855 /*:ref: slabad_ 14 2 6 6 */
01856 /*:ref: cladiv_ 8 3 8 8 8 */
01857 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01859 int ctgex2_(logical *wantq, logical *wantz, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info);
01860 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01861 /*:ref: slamch_ 6 2 13 124 */
01862 /*:ref: classq_ 14 5 4 8 4 6 6 */
01863 /*:ref: clartg_ 14 5 8 8 6 8 8 */
01864 /*:ref: crot_ 14 7 4 8 4 8 4 6 8 */
01866 int ctgexc_(logical *wantq, logical *wantz, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *q, integer *ldq, complex *z__, integer *ldz, integer *ifst, integer *ilst, integer *info);
01867 /*:ref: xerbla_ 14 3 13 4 124 */
01868 /*:ref: ctgex2_ 14 13 12 12 4 8 4 8 4 8 4 8 4 4 4 */
01870 int ctgsen_(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq, complex *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif, complex *work, integer *lwork, integer *iwork, integer *liwork, integer *info);
01871 /*:ref: xerbla_ 14 3 13 4 124 */
01872 /*:ref: classq_ 14 5 4 8 4 6 6 */
01873 /*:ref: slamch_ 6 2 13 124 */
01874 /*:ref: ctgexc_ 14 14 12 12 4 8 4 8 4 8 4 8 4 4 4 4 */
01875 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01876 /*:ref: ctgsyl_ 14 23 13 4 4 4 8 4 8 4 8 4 8 4 8 4 8 4 6 6 8 4 4 4 124 */
01877 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01878 /*:ref: cscal_ 14 4 4 8 8 4 */
01880 int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, complex *a, integer *lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha, real *beta, complex *u, integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq, complex *work, integer *ncycle, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
01881 /*:ref: lsame_ 12 4 13 13 124 124 */
01882 /*:ref: xerbla_ 14 3 13 4 124 */
01883 /*:ref: claset_ 14 8 13 4 4 8 8 8 4 124 */
01884 /*:ref: clags2_ 14 13 12 6 8 6 6 8 6 6 8 6 8 6 8 */
01885 /*:ref: crot_ 14 7 4 8 4 8 4 6 8 */
01886 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01887 /*:ref: clapll_ 14 6 4 8 4 8 4 6 */
01888 /*:ref: csscal_ 14 4 4 6 8 4 */
01889 /*:ref: slartg_ 14 5 6 6 6 6 6 */
01891 int ctgsna_(char *job, char *howmny, logical *select, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real *dif, integer *mm, integer *m, complex *work, integer *lwork, integer *iwork, integer *info, ftnlen job_len, ftnlen howmny_len);
01892 /*:ref: lsame_ 12 4 13 13 124 124 */
01893 /*:ref: xerbla_ 14 3 13 4 124 */
01894 /*:ref: slamch_ 6 2 13 124 */
01895 /*:ref: slabad_ 14 2 6 6 */
01896 /*:ref: scnrm2_ 6 3 4 8 4 */
01897 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01898 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01899 /*:ref: slapy2_ 6 2 6 6 */
01900 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01901 /*:ref: ctgexc_ 14 14 12 12 4 8 4 8 4 8 4 8 4 4 4 4 */
01902 /*:ref: ctgsyl_ 14 23 13 4 4 4 8 4 8 4 8 4 8 4 8 4 8 4 6 6 8 4 4 4 124 */
01904 int ctgsy2_(char *trans, integer *ijob, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal, integer *info, ftnlen trans_len);
01905 /*:ref: lsame_ 12 4 13 13 124 124 */
01906 /*:ref: xerbla_ 14 3 13 4 124 */
01907 /*:ref: cgetc2_ 14 6 4 8 4 4 4 4 */
01908 /*:ref: cgesc2_ 14 7 4 8 4 8 4 4 6 */
01909 /*:ref: cscal_ 14 4 4 8 8 4 */
01910 /*:ref: clatdf_ 14 9 4 4 8 4 8 6 6 4 4 */
01911 /*:ref: caxpy_ 14 6 4 8 8 4 8 4 */
01913 int ctgsyl_(char *trans, integer *ijob, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde, complex *f, integer *ldf, real *scale, real *dif, complex *work, integer *lwork, integer *iwork, integer *info, ftnlen trans_len);
01914 /*:ref: lsame_ 12 4 13 13 124 124 */
01915 /*:ref: xerbla_ 14 3 13 4 124 */
01916 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
01917 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01918 /*:ref: ctgsy2_ 14 21 13 4 4 4 8 4 8 4 8 4 8 4 8 4 8 4 6 6 6 4 124 */
01919 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01920 /*:ref: cscal_ 14 4 4 8 8 4 */
01921 /*:ref: cgemm_ 14 15 13 13 4 4 4 8 8 4 8 4 8 8 4 124 124 */
01923 int ctpcon_(char *norm, char *uplo, char *diag, integer *n, complex *ap, real *rcond, complex *work, real *rwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
01924 /*:ref: lsame_ 12 4 13 13 124 124 */
01925 /*:ref: xerbla_ 14 3 13 4 124 */
01926 /*:ref: slamch_ 6 2 13 124 */
01927 /*:ref: clantp_ 6 9 13 13 13 4 8 6 124 124 124 */
01928 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01929 /*:ref: clatps_ 14 14 13 13 13 13 4 8 8 6 6 4 124 124 124 124 */
01930 /*:ref: icamax_ 4 3 4 8 4 */
01931 /*:ref: csrscl_ 14 4 4 6 8 4 */
01933 int ctptri_(char *uplo, char *diag, integer *n, complex *ap, integer *info, ftnlen uplo_len, ftnlen diag_len);
01934 /*:ref: lsame_ 12 4 13 13 124 124 */
01935 /*:ref: xerbla_ 14 3 13 4 124 */
01936 /*:ref: ctpmv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01937 /*:ref: cscal_ 14 4 4 8 8 4 */
01939 int ctptrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
01940 /*:ref: lsame_ 12 4 13 13 124 124 */
01941 /*:ref: xerbla_ 14 3 13 4 124 */
01942 /*:ref: ctpsv_ 14 10 13 13 13 4 8 8 4 124 124 124 */
01944 int ctrcon_(char *norm, char *uplo, char *diag, integer *n, complex *a, integer *lda, real *rcond, complex *work, real *rwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
01945 /*:ref: lsame_ 12 4 13 13 124 124 */
01946 /*:ref: xerbla_ 14 3 13 4 124 */
01947 /*:ref: slamch_ 6 2 13 124 */
01948 /*:ref: clantr_ 6 11 13 13 13 4 4 8 4 6 124 124 124 */
01949 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01950 /*:ref: clatrs_ 14 15 13 13 13 13 4 8 4 8 6 6 4 124 124 124 124 */
01951 /*:ref: icamax_ 4 3 4 8 4 */
01952 /*:ref: csrscl_ 14 4 4 6 8 4 */
01954 int ctrevc_(char *side, char *howmny, logical *select, integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *m, complex *work, real *rwork, integer *info, ftnlen side_len, ftnlen howmny_len);
01955 /*:ref: lsame_ 12 4 13 13 124 124 */
01956 /*:ref: xerbla_ 14 3 13 4 124 */
01957 /*:ref: slamch_ 6 2 13 124 */
01958 /*:ref: slabad_ 14 2 6 6 */
01959 /*:ref: scasum_ 6 3 4 8 4 */
01960 /*:ref: clatrs_ 14 15 13 13 13 13 4 8 4 8 6 6 4 124 124 124 124 */
01961 /*:ref: ccopy_ 14 5 4 8 4 8 4 */
01962 /*:ref: icamax_ 4 3 4 8 4 */
01963 /*:ref: csscal_ 14 4 4 6 8 4 */
01964 /*:ref: cgemv_ 14 12 13 4 4 8 8 4 8 4 8 8 4 124 */
01966 int ctrexc_(char *compq, integer *n, complex *t, integer *ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *info, ftnlen compq_len);
01967 /*:ref: lsame_ 12 4 13 13 124 124 */
01968 /*:ref: xerbla_ 14 3 13 4 124 */
01969 /*:ref: clartg_ 14 5 8 8 6 8 8 */
01970 /*:ref: crot_ 14 7 4 8 4 8 4 6 8 */
01972 int ctrsen_(char *job, char *compq, logical *select, integer *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w, integer *m, real *s, real *sep, complex *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compq_len);
01973 /*:ref: lsame_ 12 4 13 13 124 124 */
01974 /*:ref: xerbla_ 14 3 13 4 124 */
01975 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
01976 /*:ref: ctrexc_ 14 10 13 4 8 4 8 4 4 4 4 124 */
01977 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01978 /*:ref: ctrsyl_ 14 15 13 13 4 4 4 8 4 8 4 8 4 6 4 124 124 */
01979 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01981 int ctrsna_(char *job, char *howmny, logical *select, integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *m, complex *work, integer *ldwork, real *rwork, integer *info, ftnlen job_len, ftnlen howmny_len);
01982 /*:ref: lsame_ 12 4 13 13 124 124 */
01983 /*:ref: xerbla_ 14 3 13 4 124 */
01984 /*:ref: slamch_ 6 2 13 124 */
01985 /*:ref: slabad_ 14 2 6 6 */
01986 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
01987 /*:ref: scnrm2_ 6 3 4 8 4 */
01988 /*:ref: clacpy_ 14 8 13 4 4 8 4 8 4 124 */
01989 /*:ref: ctrexc_ 14 10 13 4 8 4 8 4 4 4 4 124 */
01990 /*:ref: clacon_ 14 5 4 8 8 6 4 */
01991 /*:ref: clatrs_ 14 15 13 13 13 13 4 8 4 8 6 6 4 124 124 124 124 */
01992 /*:ref: icamax_ 4 3 4 8 4 */
01993 /*:ref: csrscl_ 14 4 4 6 8 4 */
01995 int ctrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, real *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);
01996 /*:ref: lsame_ 12 4 13 13 124 124 */
01997 /*:ref: xerbla_ 14 3 13 4 124 */
01998 /*:ref: slamch_ 6 2 13 124 */
01999 /*:ref: slabad_ 14 2 6 6 */
02000 /*:ref: clange_ 6 7 13 4 4 8 4 6 124 */
02001 /*:ref: cdotu_ 8 6 8 4 8 4 8 4 */
02002 /*:ref: cladiv_ 8 3 8 8 8 */
02003 /*:ref: csscal_ 14 4 4 6 8 4 */
02004 /*:ref: cdotc_ 8 6 8 4 8 4 8 4 */
02006 int ctrti2_(char *uplo, char *diag, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len);
02007 /*:ref: lsame_ 12 4 13 13 124 124 */
02008 /*:ref: xerbla_ 14 3 13 4 124 */
02009 /*:ref: ctrmv_ 14 11 13 13 13 4 8 4 8 4 124 124 124 */
02010 /*:ref: cscal_ 14 4 4 8 8 4 */
02012 int ctrtri_(char *uplo, char *diag, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len);
02013 /*:ref: lsame_ 12 4 13 13 124 124 */
02014 /*:ref: xerbla_ 14 3 13 4 124 */
02015 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02016 /*:ref: ctrti2_ 14 8 13 13 4 8 4 4 124 124 */
02017 /*:ref: ctrmm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
02018 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
02020 int ctrtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
02021 /*:ref: lsame_ 12 4 13 13 124 124 */
02022 /*:ref: xerbla_ 14 3 13 4 124 */
02023 /*:ref: ctrsm_ 14 15 13 13 13 13 4 4 8 8 4 8 4 124 124 124 124 */
02025 int cung2l_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info);
02026 /*:ref: xerbla_ 14 3 13 4 124 */
02027 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02028 /*:ref: cscal_ 14 4 4 8 8 4 */
02030 int cung2r_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info);
02031 /*:ref: xerbla_ 14 3 13 4 124 */
02032 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02033 /*:ref: cscal_ 14 4 4 8 8 4 */
02035 int cungbr_(char *vect, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info, ftnlen vect_len);
02036 /*:ref: lsame_ 12 4 13 13 124 124 */
02037 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02038 /*:ref: xerbla_ 14 3 13 4 124 */
02039 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
02040 /*:ref: cunglq_ 14 9 4 4 4 8 4 8 8 4 4 */
02042 int cunghr_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info);
02043 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02044 /*:ref: xerbla_ 14 3 13 4 124 */
02045 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
02047 int cungl2_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info);
02048 /*:ref: xerbla_ 14 3 13 4 124 */
02049 /*:ref: clacgv_ 14 3 4 8 4 */
02050 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02051 /*:ref: cscal_ 14 4 4 8 8 4 */
02053 int cunglq_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info);
02054 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02055 /*:ref: xerbla_ 14 3 13 4 124 */
02056 /*:ref: cungl2_ 14 8 4 4 4 8 4 8 8 4 */
02057 /*:ref: clarft_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02058 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02060 int cungql_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info);
02061 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02062 /*:ref: xerbla_ 14 3 13 4 124 */
02063 /*:ref: cung2l_ 14 8 4 4 4 8 4 8 8 4 */
02064 /*:ref: clarft_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02065 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02067 int cungqr_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info);
02068 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02069 /*:ref: xerbla_ 14 3 13 4 124 */
02070 /*:ref: cung2r_ 14 8 4 4 4 8 4 8 8 4 */
02071 /*:ref: clarft_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02072 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02074 int cungr2_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info);
02075 /*:ref: xerbla_ 14 3 13 4 124 */
02076 /*:ref: clacgv_ 14 3 4 8 4 */
02077 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02078 /*:ref: cscal_ 14 4 4 8 8 4 */
02080 int cungrq_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info);
02081 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02082 /*:ref: xerbla_ 14 3 13 4 124 */
02083 /*:ref: cungr2_ 14 8 4 4 4 8 4 8 8 4 */
02084 /*:ref: clarft_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02085 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02087 int cungtr_(char *uplo, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info, ftnlen uplo_len);
02088 /*:ref: lsame_ 12 4 13 13 124 124 */
02089 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02090 /*:ref: xerbla_ 14 3 13 4 124 */
02091 /*:ref: cungql_ 14 9 4 4 4 8 4 8 8 4 4 */
02092 /*:ref: cungqr_ 14 9 4 4 4 8 4 8 8 4 4 */
02094 int cunm2l_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info, ftnlen side_len, ftnlen trans_len);
02095 /*:ref: lsame_ 12 4 13 13 124 124 */
02096 /*:ref: xerbla_ 14 3 13 4 124 */
02097 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02099 int cunm2r_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info, ftnlen side_len, ftnlen trans_len);
02100 /*:ref: lsame_ 12 4 13 13 124 124 */
02101 /*:ref: xerbla_ 14 3 13 4 124 */
02102 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02104 int cunmbr_(char *vect, char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info, ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
02105 /*:ref: lsame_ 12 4 13 13 124 124 */
02106 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02107 /*:ref: xerbla_ 14 3 13 4 124 */
02108 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
02109 /*:ref: cunmlq_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
02111 int cunmhr_(char *side, char *trans, integer *m, integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
02112 /*:ref: lsame_ 12 4 13 13 124 124 */
02113 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02114 /*:ref: xerbla_ 14 3 13 4 124 */
02115 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
02117 int cunml2_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info, ftnlen side_len, ftnlen trans_len);
02118 /*:ref: lsame_ 12 4 13 13 124 124 */
02119 /*:ref: xerbla_ 14 3 13 4 124 */
02120 /*:ref: clacgv_ 14 3 4 8 4 */
02121 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02123 int cunmlq_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
02124 /*:ref: lsame_ 12 4 13 13 124 124 */
02125 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02126 /*:ref: xerbla_ 14 3 13 4 124 */
02127 /*:ref: cunml2_ 14 14 13 13 4 4 4 8 4 8 8 4 8 4 124 124 */
02128 /*:ref: clarft_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02129 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02131 int cunmql_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
02132 /*:ref: lsame_ 12 4 13 13 124 124 */
02133 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02134 /*:ref: xerbla_ 14 3 13 4 124 */
02135 /*:ref: cunm2l_ 14 14 13 13 4 4 4 8 4 8 8 4 8 4 124 124 */
02136 /*:ref: clarft_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02137 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02139 int cunmqr_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
02140 /*:ref: lsame_ 12 4 13 13 124 124 */
02141 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02142 /*:ref: xerbla_ 14 3 13 4 124 */
02143 /*:ref: cunm2r_ 14 14 13 13 4 4 4 8 4 8 8 4 8 4 124 124 */
02144 /*:ref: clarft_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02145 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02147 int cunmr2_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info, ftnlen side_len, ftnlen trans_len);
02148 /*:ref: lsame_ 12 4 13 13 124 124 */
02149 /*:ref: xerbla_ 14 3 13 4 124 */
02150 /*:ref: clacgv_ 14 3 4 8 4 */
02151 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02153 int cunmr3_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *info, ftnlen side_len, ftnlen trans_len);
02154 /*:ref: lsame_ 12 4 13 13 124 124 */
02155 /*:ref: xerbla_ 14 3 13 4 124 */
02156 /*:ref: clarz_ 14 11 13 4 4 4 8 4 8 8 4 8 124 */
02158 int cunmrq_(char *side, char *trans, integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
02159 /*:ref: lsame_ 12 4 13 13 124 124 */
02160 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02161 /*:ref: xerbla_ 14 3 13 4 124 */
02162 /*:ref: cunmr2_ 14 14 13 13 4 4 4 8 4 8 8 4 8 4 124 124 */
02163 /*:ref: clarft_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02164 /*:ref: clarfb_ 14 19 13 13 13 13 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02166 int cunmrz_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
02167 /*:ref: lsame_ 12 4 13 13 124 124 */
02168 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02169 /*:ref: xerbla_ 14 3 13 4 124 */
02170 /*:ref: cunmr3_ 14 15 13 13 4 4 4 4 8 4 8 8 4 8 4 124 124 */
02171 /*:ref: clarzt_ 14 11 13 13 4 4 8 4 8 8 4 124 124 */
02172 /*:ref: clarzb_ 14 20 13 13 13 13 4 4 4 4 8 4 8 4 8 4 8 4 124 124 124 124 */
02174 int cunmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *c__, integer *ldc, complex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
02175 /*:ref: lsame_ 12 4 13 13 124 124 */
02176 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02177 /*:ref: xerbla_ 14 3 13 4 124 */
02178 /*:ref: cunmql_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
02179 /*:ref: cunmqr_ 14 15 13 13 4 4 4 8 4 8 8 4 8 4 4 124 124 */
02181 int cupgtr_(char *uplo, integer *n, complex *ap, complex *tau, complex *q, integer *ldq, complex *work, integer *info, ftnlen uplo_len);
02182 /*:ref: lsame_ 12 4 13 13 124 124 */
02183 /*:ref: xerbla_ 14 3 13 4 124 */
02184 /*:ref: cung2l_ 14 8 4 4 4 8 4 8 8 4 */
02185 /*:ref: cung2r_ 14 8 4 4 4 8 4 8 8 4 */
02187 int cupmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, complex *ap, complex *tau, complex *c__, integer *ldc, complex *work, integer *info, ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
02188 /*:ref: lsame_ 12 4 13 13 124 124 */
02189 /*:ref: xerbla_ 14 3 13 4 124 */
02190 /*:ref: clarf_ 14 10 13 4 4 8 4 8 8 4 8 124 */
02192 int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len, ftnlen compq_len);
02193 /*:ref: lsame_ 12 4 13 13 124 124 */
02194 /*:ref: xerbla_ 14 3 13 4 124 */
02195 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02196 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02197 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02198 /*:ref: dlasdq_ 14 17 13 4 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
02199 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02200 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
02201 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02202 /*:ref: dlamch_ 7 2 13 124 */
02203 /*:ref: dlasd0_ 14 12 4 4 7 7 7 4 7 4 4 4 7 4 */
02204 /*:ref: dlasda_ 14 24 4 4 4 4 7 7 7 4 7 4 7 7 7 7 4 4 4 4 7 7 7 7 4 4 */
02205 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02206 /*:ref: dlasr_ 14 12 13 13 13 4 4 7 7 7 4 124 124 124 */
02208 int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen uplo_len);
02209 /*:ref: lsame_ 12 4 13 13 124 124 */
02210 /*:ref: xerbla_ 14 3 13 4 124 */
02211 /*:ref: dlasq1_ 14 5 4 7 7 7 4 */
02212 /*:ref: dlamch_ 7 2 13 124 */
02213 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02214 /*:ref: dlasr_ 14 12 13 13 13 4 4 7 7 7 4 124 124 124 */
02215 /*:ref: dlasv2_ 14 9 7 7 7 7 7 7 7 7 7 */
02216 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02217 /*:ref: dlas2_ 14 5 7 7 7 7 7 */
02218 /*:ref: dscal_ 14 4 4 7 7 4 */
02219 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02221 int ddisna_(char *job, integer *m, integer *n, doublereal *d__, doublereal *sep, integer *info, ftnlen job_len);
02222 /*:ref: lsame_ 12 4 13 13 124 124 */
02223 /*:ref: xerbla_ 14 3 13 4 124 */
02224 /*:ref: dlamch_ 7 2 13 124 */
02226 int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt, integer *ldpt, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen vect_len);
02227 /*:ref: lsame_ 12 4 13 13 124 124 */
02228 /*:ref: xerbla_ 14 3 13 4 124 */
02229 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02230 /*:ref: dlargv_ 14 7 4 7 4 7 4 7 4 */
02231 /*:ref: dlartv_ 14 8 4 7 4 7 4 7 7 4 */
02232 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02233 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02235 int dgbcon_(char *norm, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen norm_len);
02236 /*:ref: lsame_ 12 4 13 13 124 124 */
02237 /*:ref: xerbla_ 14 3 13 4 124 */
02238 /*:ref: dlamch_ 7 2 13 124 */
02239 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
02240 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
02241 /*:ref: dlatbs_ 14 16 13 13 13 13 4 4 7 4 7 7 7 4 124 124 124 124 */
02242 /*:ref: ddot_ 7 5 4 7 4 7 4 */
02243 /*:ref: idamax_ 4 3 4 7 4 */
02244 /*:ref: drscl_ 14 4 4 7 7 4 */
02246 int dgbequ_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info);
02247 /*:ref: xerbla_ 14 3 13 4 124 */
02248 /*:ref: dlamch_ 7 2 13 124 */
02250 int dgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info);
02251 /*:ref: xerbla_ 14 3 13 4 124 */
02252 /*:ref: dgbtrf_ 14 8 4 4 4 4 7 4 4 4 */
02253 /*:ref: dgbtrs_ 14 12 13 4 4 4 4 7 4 4 7 4 4 124 */
02255 int dgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
02256 /*:ref: lsame_ 12 4 13 13 124 124 */
02257 /*:ref: dlamch_ 7 2 13 124 */
02258 /*:ref: xerbla_ 14 3 13 4 124 */
02259 /*:ref: dgbequ_ 14 12 4 4 4 4 7 4 7 7 7 7 7 4 */
02260 /*:ref: dlaqgb_ 14 13 4 4 4 4 7 4 7 7 7 7 7 13 124 */
02261 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02262 /*:ref: dgbtrf_ 14 8 4 4 4 4 7 4 4 4 */
02263 /*:ref: dlantb_ 7 11 13 13 13 4 4 7 4 7 124 124 124 */
02264 /*:ref: dlangb_ 7 8 13 4 4 4 7 4 7 124 */
02265 /*:ref: dgbcon_ 14 13 13 4 4 4 7 4 4 7 7 7 4 4 124 */
02266 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02267 /*:ref: dgbtrs_ 14 12 13 4 4 4 4 7 4 4 7 4 4 124 */
02268 /*:ref: dgbrfs_ 14 20 13 4 4 4 4 7 4 7 4 4 7 4 7 4 7 7 7 4 4 124 */
02270 int dgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen trans_len);
02271 /*:ref: lsame_ 12 4 13 13 124 124 */
02272 /*:ref: xerbla_ 14 3 13 4 124 */
02273 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02274 /*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
02275 /*:ref: dtbsv_ 14 12 13 13 13 4 4 7 4 7 4 124 124 124 */
02276 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
02278 int dgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *ldv, integer *info, ftnlen job_len, ftnlen side_len);
02279 /*:ref: lsame_ 12 4 13 13 124 124 */
02280 /*:ref: xerbla_ 14 3 13 4 124 */
02281 /*:ref: dscal_ 14 4 4 7 7 4 */
02282 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02284 int dgebal_(char *job, integer *n, doublereal *a, integer *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info, ftnlen job_len);
02285 /*:ref: lsame_ 12 4 13 13 124 124 */
02286 /*:ref: xerbla_ 14 3 13 4 124 */
02287 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02288 /*:ref: dlamch_ 7 2 13 124 */
02289 /*:ref: idamax_ 4 3 4 7 4 */
02290 /*:ref: dscal_ 14 4 4 7 7 4 */
02292 int dgebd2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *taup, doublereal *work, integer *info);
02293 /*:ref: xerbla_ 14 3 13 4 124 */
02294 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02295 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
02297 int dgebrd_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *taup, doublereal *work, integer *lwork, integer *info);
02298 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02299 /*:ref: xerbla_ 14 3 13 4 124 */
02300 /*:ref: dlabrd_ 14 13 4 4 4 7 4 7 7 7 7 7 4 7 4 */
02301 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02302 /*:ref: dgebd2_ 14 10 4 4 7 4 7 7 7 7 7 4 */
02304 int dgecon_(char *norm, integer *n, doublereal *a, integer *lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen norm_len);
02305 /*:ref: lsame_ 12 4 13 13 124 124 */
02306 /*:ref: xerbla_ 14 3 13 4 124 */
02307 /*:ref: dlamch_ 7 2 13 124 */
02308 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
02309 /*:ref: dlatrs_ 14 15 13 13 13 13 4 7 4 7 7 7 4 124 124 124 124 */
02310 /*:ref: idamax_ 4 3 4 7 4 */
02311 /*:ref: drscl_ 14 4 4 7 7 4 */
02313 int dgeequ_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info);
02314 /*:ref: xerbla_ 14 3 13 4 124 */
02315 /*:ref: dlamch_ 7 2 13 124 */
02317 int dgees_(char *jobvs, char *sort, L_fp select, integer *n, doublereal *a, integer *lda, integer *sdim, doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work, integer *lwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len);
02318 /*:ref: lsame_ 12 4 13 13 124 124 */
02319 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02320 /*:ref: xerbla_ 14 3 13 4 124 */
02321 /*:ref: dlamch_ 7 2 13 124 */
02322 /*:ref: dlabad_ 14 2 7 7 */
02323 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02324 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02325 /*:ref: dgebal_ 14 9 13 4 7 4 4 4 7 4 124 */
02326 /*:ref: dgehrd_ 14 9 4 4 4 7 4 7 7 4 4 */
02327 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02328 /*:ref: dorghr_ 14 9 4 4 4 7 4 7 7 4 4 */
02329 /*:ref: dhseqr_ 14 16 13 13 4 4 4 7 4 7 7 7 4 7 4 4 124 124 */
02330 /*:ref: dtrsen_ 14 20 13 13 12 4 7 4 7 4 7 7 4 7 7 7 4 4 4 4 124 124 */
02331 /*:ref: dgebak_ 14 12 13 13 4 4 4 7 4 7 4 4 124 124 */
02332 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02333 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02335 int dgeesx_(char *jobvs, char *sort, L_fp select, char *sense, integer *n, doublereal *a, integer *lda, integer *sdim, doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs, doublereal *rconde, doublereal *rcondv, doublereal *work, integer *lwork, integer *iwork, integer *liwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len, ftnlen sense_len);
02336 /*:ref: lsame_ 12 4 13 13 124 124 */
02337 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02338 /*:ref: xerbla_ 14 3 13 4 124 */
02339 /*:ref: dlamch_ 7 2 13 124 */
02340 /*:ref: dlabad_ 14 2 7 7 */
02341 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02342 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02343 /*:ref: dgebal_ 14 9 13 4 7 4 4 4 7 4 124 */
02344 /*:ref: dgehrd_ 14 9 4 4 4 7 4 7 7 4 4 */
02345 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02346 /*:ref: dorghr_ 14 9 4 4 4 7 4 7 7 4 4 */
02347 /*:ref: dhseqr_ 14 16 13 13 4 4 4 7 4 7 7 7 4 7 4 4 124 124 */
02348 /*:ref: dtrsen_ 14 20 13 13 12 4 7 4 7 4 7 7 4 7 7 7 4 4 4 4 124 124 */
02349 /*:ref: dgebak_ 14 12 13 13 4 4 4 7 4 7 4 4 124 124 */
02350 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02351 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02353 int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
02354 /*:ref: lsame_ 12 4 13 13 124 124 */
02355 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02356 /*:ref: xerbla_ 14 3 13 4 124 */
02357 /*:ref: dlamch_ 7 2 13 124 */
02358 /*:ref: dlabad_ 14 2 7 7 */
02359 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02360 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02361 /*:ref: dgebal_ 14 9 13 4 7 4 4 4 7 4 124 */
02362 /*:ref: dgehrd_ 14 9 4 4 4 7 4 7 7 4 4 */
02363 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02364 /*:ref: dorghr_ 14 9 4 4 4 7 4 7 7 4 4 */
02365 /*:ref: dhseqr_ 14 16 13 13 4 4 4 7 4 7 7 7 4 7 4 4 124 124 */
02366 /*:ref: dtrevc_ 14 16 13 13 12 4 7 4 7 4 7 4 4 4 7 4 124 124 */
02367 /*:ref: dgebak_ 14 12 13 13 4 4 4 7 4 7 4 4 124 124 */
02368 /*:ref: dnrm2_ 7 3 4 7 4 */
02369 /*:ref: dscal_ 14 4 4 7 7 4 */
02370 /*:ref: dlapy2_ 7 2 7 7 */
02371 /*:ref: idamax_ 4 3 4 7 4 */
02372 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02373 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02375 int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense, integer *n, doublereal *a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal *work, integer *lwork, integer *iwork, integer *info, ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
02376 /*:ref: lsame_ 12 4 13 13 124 124 */
02377 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02378 /*:ref: xerbla_ 14 3 13 4 124 */
02379 /*:ref: dlamch_ 7 2 13 124 */
02380 /*:ref: dlabad_ 14 2 7 7 */
02381 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02382 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02383 /*:ref: dgebal_ 14 9 13 4 7 4 4 4 7 4 124 */
02384 /*:ref: dgehrd_ 14 9 4 4 4 7 4 7 7 4 4 */
02385 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02386 /*:ref: dorghr_ 14 9 4 4 4 7 4 7 7 4 4 */
02387 /*:ref: dhseqr_ 14 16 13 13 4 4 4 7 4 7 7 7 4 7 4 4 124 124 */
02388 /*:ref: dtrevc_ 14 16 13 13 12 4 7 4 7 4 7 4 4 4 7 4 124 124 */
02389 /*:ref: dtrsna_ 14 20 13 13 12 4 7 4 7 4 7 4 7 7 4 4 7 4 4 4 124 124 */
02390 /*:ref: dgebak_ 14 12 13 13 4 4 4 7 4 7 4 4 124 124 */
02391 /*:ref: dnrm2_ 7 3 4 7 4 */
02392 /*:ref: dscal_ 14 4 4 7 7 4 */
02393 /*:ref: dlapy2_ 7 2 7 7 */
02394 /*:ref: idamax_ 4 3 4 7 4 */
02395 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02396 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02398 int dgegs_(char *jobvsl, char *jobvsr, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, integer *lwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len);
02399 /*:ref: lsame_ 12 4 13 13 124 124 */
02400 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02401 /*:ref: xerbla_ 14 3 13 4 124 */
02402 /*:ref: dlamch_ 7 2 13 124 */
02403 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02404 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02405 /*:ref: dggbal_ 14 13 13 4 7 4 7 4 4 4 7 7 7 4 124 */
02406 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02407 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02408 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02409 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02410 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
02411 /*:ref: dgghrd_ 14 16 13 13 4 4 4 7 4 7 4 7 4 7 4 4 124 124 */
02412 /*:ref: dhgeqz_ 14 23 13 13 13 4 4 4 7 4 7 4 7 7 7 7 4 7 4 7 4 4 124 124 124 */
02413 /*:ref: dggbak_ 14 13 13 13 4 4 4 7 7 4 7 4 4 124 124 */
02415 int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
02416 /*:ref: lsame_ 12 4 13 13 124 124 */
02417 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02418 /*:ref: xerbla_ 14 3 13 4 124 */
02419 /*:ref: dlamch_ 7 2 13 124 */
02420 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02421 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02422 /*:ref: dggbal_ 14 13 13 4 7 4 7 4 4 4 7 7 7 4 124 */
02423 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02424 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02425 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02426 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02427 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
02428 /*:ref: dgghrd_ 14 16 13 13 4 4 4 7 4 7 4 7 4 7 4 4 124 124 */
02429 /*:ref: dhgeqz_ 14 23 13 13 13 4 4 4 7 4 7 4 7 7 7 7 4 7 4 7 4 4 124 124 124 */
02430 /*:ref: dtgevc_ 14 18 13 13 12 4 7 4 7 4 7 4 7 4 4 4 7 4 124 124 */
02431 /*:ref: dggbak_ 14 13 13 13 4 4 4 7 7 4 7 4 4 124 124 */
02433 int dgehd2_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
02434 /*:ref: xerbla_ 14 3 13 4 124 */
02435 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02436 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
02438 int dgehrd_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
02439 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02440 /*:ref: xerbla_ 14 3 13 4 124 */
02441 /*:ref: dlahrd_ 14 10 4 4 4 7 4 7 7 4 7 4 */
02442 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02443 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
02444 /*:ref: dgehd2_ 14 8 4 4 4 7 4 7 7 4 */
02446 int dgelq2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
02447 /*:ref: xerbla_ 14 3 13 4 124 */
02448 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02449 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
02451 int dgels_(char *trans, integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info, ftnlen trans_len);
02452 /*:ref: lsame_ 12 4 13 13 124 124 */
02453 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02454 /*:ref: xerbla_ 14 3 13 4 124 */
02455 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02456 /*:ref: dlamch_ 7 2 13 124 */
02457 /*:ref: dlabad_ 14 2 7 7 */
02458 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02459 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02460 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02461 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02462 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
02463 /*:ref: dgelqf_ 14 8 4 4 7 4 7 7 4 4 */
02464 /*:ref: dormlq_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02466 int dgelsd_(integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, integer *iwork, integer *info);
02467 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02468 /*:ref: xerbla_ 14 3 13 4 124 */
02469 /*:ref: dlamch_ 7 2 13 124 */
02470 /*:ref: dlabad_ 14 2 7 7 */
02471 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02472 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02473 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02474 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02475 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02476 /*:ref: dgebrd_ 14 11 4 4 7 4 7 7 7 7 7 4 4 */
02477 /*:ref: dormbr_ 14 17 13 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 124 */
02478 /*:ref: dlalsd_ 14 14 13 4 4 4 7 7 7 4 7 4 7 4 4 124 */
02479 /*:ref: dgelqf_ 14 8 4 4 7 4 7 7 4 4 */
02480 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02481 /*:ref: dormlq_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02483 int dgelss_(integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, integer *info);
02484 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02485 /*:ref: xerbla_ 14 3 13 4 124 */
02486 /*:ref: dlamch_ 7 2 13 124 */
02487 /*:ref: dlabad_ 14 2 7 7 */
02488 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02489 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02490 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02491 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02492 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02493 /*:ref: dgebrd_ 14 11 4 4 7 4 7 7 7 7 7 4 4 */
02494 /*:ref: dormbr_ 14 17 13 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 124 */
02495 /*:ref: dorgbr_ 14 11 13 4 4 4 7 4 7 7 4 4 124 */
02496 /*:ref: dbdsqr_ 14 16 13 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
02497 /*:ref: drscl_ 14 4 4 7 7 4 */
02498 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02499 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02500 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
02501 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02502 /*:ref: dgelqf_ 14 8 4 4 7 4 7 7 4 4 */
02503 /*:ref: dormlq_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02505 int dgelsx_(integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *info);
02506 /*:ref: xerbla_ 14 3 13 4 124 */
02507 /*:ref: dlamch_ 7 2 13 124 */
02508 /*:ref: dlabad_ 14 2 7 7 */
02509 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02510 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02511 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02512 /*:ref: dgeqpf_ 14 8 4 4 7 4 4 7 7 4 */
02513 /*:ref: dlaic1_ 14 9 4 4 7 7 7 7 7 7 7 */
02514 /*:ref: dtzrqf_ 14 6 4 4 7 4 7 4 */
02515 /*:ref: dorm2r_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
02516 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
02517 /*:ref: dlatzm_ 14 11 13 4 4 7 4 7 7 7 4 7 124 */
02519 int dgelsy_(integer *m, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *lwork, integer *info);
02520 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02521 /*:ref: xerbla_ 14 3 13 4 124 */
02522 /*:ref: dlamch_ 7 2 13 124 */
02523 /*:ref: dlabad_ 14 2 7 7 */
02524 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02525 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02526 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02527 /*:ref: dgeqp3_ 14 9 4 4 7 4 4 7 7 4 4 */
02528 /*:ref: dlaic1_ 14 9 4 4 7 7 7 7 7 7 7 */
02529 /*:ref: dtzrzf_ 14 8 4 4 7 4 7 7 4 4 */
02530 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02531 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
02532 /*:ref: dormrz_ 14 16 13 13 4 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02533 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02535 int dgeql2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
02536 /*:ref: xerbla_ 14 3 13 4 124 */
02537 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02538 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
02540 int dgeqp3_(integer *m, integer *n, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork, integer *info);
02541 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02542 /*:ref: xerbla_ 14 3 13 4 124 */
02543 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02544 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02545 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02546 /*:ref: dnrm2_ 7 3 4 7 4 */
02547 /*:ref: dlaqps_ 14 14 4 4 4 4 4 7 4 4 7 7 7 7 7 4 */
02548 /*:ref: dlaqp2_ 14 10 4 4 4 7 4 4 7 7 7 7 */
02550 int dgeqr2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
02551 /*:ref: xerbla_ 14 3 13 4 124 */
02552 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02553 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
02555 int dgerq2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
02556 /*:ref: xerbla_ 14 3 13 4 124 */
02557 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02558 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
02560 int dgesc2_(integer *n, doublereal *a, integer *lda, doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
02561 /*:ref: dlamch_ 7 2 13 124 */
02562 /*:ref: dlabad_ 14 2 7 7 */
02563 /*:ref: dlaswp_ 14 7 4 7 4 4 4 4 4 */
02564 /*:ref: idamax_ 4 3 4 7 4 */
02565 /*:ref: dscal_ 14 4 4 7 7 4 */
02567 int dgesdd_(char *jobz, integer *m, integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, integer *iwork, integer *info, ftnlen jobz_len);
02568 /*:ref: lsame_ 12 4 13 13 124 124 */
02569 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02570 /*:ref: xerbla_ 14 3 13 4 124 */
02571 /*:ref: dlamch_ 7 2 13 124 */
02572 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02573 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02574 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02575 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02576 /*:ref: dgebrd_ 14 11 4 4 7 4 7 7 7 7 7 4 4 */
02577 /*:ref: dbdsdc_ 14 16 13 13 4 7 7 7 4 7 4 7 4 7 4 4 124 124 */
02578 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02579 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
02580 /*:ref: dormbr_ 14 17 13 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 124 */
02581 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02582 /*:ref: dorgbr_ 14 11 13 4 4 4 7 4 7 7 4 4 124 */
02583 /*:ref: dgelqf_ 14 8 4 4 7 4 7 7 4 4 */
02584 /*:ref: dorglq_ 14 9 4 4 4 7 4 7 7 4 4 */
02586 int dgesv_(integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
02587 /*:ref: xerbla_ 14 3 13 4 124 */
02588 /*:ref: dgetrf_ 14 6 4 4 7 4 4 4 */
02589 /*:ref: dgetrs_ 14 10 13 4 4 7 4 4 7 4 4 124 */
02591 int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork, integer *info, ftnlen jobu_len, ftnlen jobvt_len);
02592 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02593 /*:ref: lsame_ 12 4 13 13 124 124 */
02594 /*:ref: xerbla_ 14 3 13 4 124 */
02595 /*:ref: dlamch_ 7 2 13 124 */
02596 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02597 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02598 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02599 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02600 /*:ref: dgebrd_ 14 11 4 4 7 4 7 7 7 7 7 4 4 */
02601 /*:ref: dorgbr_ 14 11 13 4 4 4 7 4 7 7 4 4 124 */
02602 /*:ref: dbdsqr_ 14 16 13 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
02603 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02604 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
02605 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02606 /*:ref: dormbr_ 14 17 13 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 124 */
02607 /*:ref: dgelqf_ 14 8 4 4 7 4 7 7 4 4 */
02608 /*:ref: dorglq_ 14 9 4 4 4 7 4 7 7 4 4 */
02610 int dgesvx_(char *fact, char *trans, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
02611 /*:ref: lsame_ 12 4 13 13 124 124 */
02612 /*:ref: dlamch_ 7 2 13 124 */
02613 /*:ref: xerbla_ 14 3 13 4 124 */
02614 /*:ref: dgeequ_ 14 10 4 4 7 4 7 7 7 7 7 4 */
02615 /*:ref: dlaqge_ 14 11 4 4 7 4 7 7 7 7 7 13 124 */
02616 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02617 /*:ref: dgetrf_ 14 6 4 4 7 4 4 4 */
02618 /*:ref: dlantr_ 7 11 13 13 13 4 4 7 4 7 124 124 124 */
02619 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02620 /*:ref: dgecon_ 14 10 13 4 7 4 7 7 7 4 4 124 */
02621 /*:ref: dgetrs_ 14 10 13 4 4 7 4 4 7 4 4 124 */
02622 /*:ref: dgerfs_ 14 18 13 4 4 7 4 7 4 4 7 4 7 4 7 7 7 4 4 124 */
02624 int dgetc2_(integer *n, doublereal *a, integer *lda, integer *ipiv, integer *jpiv, integer *info);
02625 /*:ref: dlamch_ 7 2 13 124 */
02626 /*:ref: dlabad_ 14 2 7 7 */
02627 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02628 /*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
02630 int dgetri_(integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
02631 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02632 /*:ref: xerbla_ 14 3 13 4 124 */
02633 /*:ref: dtrtri_ 14 8 13 13 4 7 4 4 124 124 */
02634 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
02635 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02636 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
02637 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02639 int dgetrs_(char *trans, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen trans_len);
02640 /*:ref: lsame_ 12 4 13 13 124 124 */
02641 /*:ref: xerbla_ 14 3 13 4 124 */
02642 /*:ref: dlaswp_ 14 7 4 7 4 4 4 4 4 */
02643 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
02645 int dggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, doublereal *v, integer *ldv, integer *info, ftnlen job_len, ftnlen side_len);
02646 /*:ref: lsame_ 12 4 13 13 124 124 */
02647 /*:ref: xerbla_ 14 3 13 4 124 */
02648 /*:ref: dscal_ 14 4 4 7 7 4 */
02649 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02651 int dggbal_(char *job, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, doublereal *work, integer *info, ftnlen job_len);
02652 /*:ref: lsame_ 12 4 13 13 124 124 */
02653 /*:ref: xerbla_ 14 3 13 4 124 */
02654 /*:ref: dswap_ 14 5 4 7 4 7 4 */
02655 /*:ref: ddot_ 7 5 4 7 4 7 4 */
02656 /*:ref: dscal_ 14 4 4 7 7 4 */
02657 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
02658 /*:ref: dlamch_ 7 2 13 124 */
02659 /*:ref: idamax_ 4 3 4 7 4 */
02661 int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work, integer *lwork, logical *bwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len);
02662 /*:ref: lsame_ 12 4 13 13 124 124 */
02663 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02664 /*:ref: xerbla_ 14 3 13 4 124 */
02665 /*:ref: dlamch_ 7 2 13 124 */
02666 /*:ref: dlabad_ 14 2 7 7 */
02667 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02668 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02669 /*:ref: dggbal_ 14 13 13 4 7 4 7 4 4 4 7 7 7 4 124 */
02670 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02671 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02672 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02673 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02674 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
02675 /*:ref: dgghrd_ 14 16 13 13 4 4 4 7 4 7 4 7 4 7 4 4 124 124 */
02676 /*:ref: dhgeqz_ 14 23 13 13 13 4 4 4 7 4 7 4 7 7 7 7 4 7 4 7 4 4 124 124 124 */
02677 /*:ref: dtgsen_ 14 25 4 12 12 12 4 7 4 7 4 7 7 7 7 4 7 4 4 7 7 7 7 4 4 4 4 */
02678 /*:ref: dggbak_ 14 13 13 13 4 4 4 7 7 4 7 4 4 124 124 */
02680 int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg, char *sense, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *rcondv, doublereal *work, integer *lwork, integer *iwork, integer *liwork, logical *bwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len, ftnlen sense_len);
02681 /*:ref: lsame_ 12 4 13 13 124 124 */
02682 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02683 /*:ref: xerbla_ 14 3 13 4 124 */
02684 /*:ref: dlamch_ 7 2 13 124 */
02685 /*:ref: dlabad_ 14 2 7 7 */
02686 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02687 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02688 /*:ref: dggbal_ 14 13 13 4 7 4 7 4 4 4 7 7 7 4 124 */
02689 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02690 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02691 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02692 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02693 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
02694 /*:ref: dgghrd_ 14 16 13 13 4 4 4 7 4 7 4 7 4 7 4 4 124 124 */
02695 /*:ref: dhgeqz_ 14 23 13 13 13 4 4 4 7 4 7 4 7 7 7 7 4 7 4 7 4 4 124 124 124 */
02696 /*:ref: dtgsen_ 14 25 4 12 12 12 4 7 4 7 4 7 7 7 7 4 7 4 4 7 7 7 7 4 4 4 4 */
02697 /*:ref: dggbak_ 14 13 13 13 4 4 4 7 7 4 7 4 4 124 124 */
02699 int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work, integer *lwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
02700 /*:ref: lsame_ 12 4 13 13 124 124 */
02701 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02702 /*:ref: xerbla_ 14 3 13 4 124 */
02703 /*:ref: dlamch_ 7 2 13 124 */
02704 /*:ref: dlabad_ 14 2 7 7 */
02705 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02706 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02707 /*:ref: dggbal_ 14 13 13 4 7 4 7 4 4 4 7 7 7 4 124 */
02708 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02709 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02710 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02711 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02712 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
02713 /*:ref: dgghrd_ 14 16 13 13 4 4 4 7 4 7 4 7 4 7 4 4 124 124 */
02714 /*:ref: dhgeqz_ 14 23 13 13 13 4 4 4 7 4 7 4 7 7 7 7 4 7 4 7 4 4 124 124 124 */
02715 /*:ref: dtgevc_ 14 18 13 13 12 4 7 4 7 4 7 4 7 4 4 4 7 4 124 124 */
02716 /*:ref: dggbak_ 14 13 13 13 4 4 4 7 7 4 7 4 4 124 124 */
02718 int dggevx_(char *balanc, char *jobvl, char *jobvr, char *sense, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *rcondv, doublereal *work, integer *lwork, integer *iwork, logical *bwork, integer *info, ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
02719 /*:ref: lsame_ 12 4 13 13 124 124 */
02720 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02721 /*:ref: xerbla_ 14 3 13 4 124 */
02722 /*:ref: dlamch_ 7 2 13 124 */
02723 /*:ref: dlabad_ 14 2 7 7 */
02724 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02725 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
02726 /*:ref: dggbal_ 14 13 13 4 7 4 7 4 4 4 7 7 7 4 124 */
02727 /*:ref: dgeqrf_ 14 8 4 4 7 4 7 7 4 4 */
02728 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02729 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02730 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02731 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
02732 /*:ref: dgghrd_ 14 16 13 13 4 4 4 7 4 7 4 7 4 7 4 4 124 124 */
02733 /*:ref: dhgeqz_ 14 23 13 13 13 4 4 4 7 4 7 4 7 7 7 7 4 7 4 7 4 4 124 124 124 */
02734 /*:ref: dtgevc_ 14 18 13 13 12 4 7 4 7 4 7 4 7 4 4 4 7 4 124 124 */
02735 /*:ref: dtgsna_ 14 22 13 13 12 4 7 4 7 4 7 4 7 4 7 7 4 4 7 4 4 4 124 124 */
02736 /*:ref: dggbak_ 14 13 13 13 4 4 4 7 7 4 7 4 4 124 124 */
02738 int dggglm_(integer *n, integer *m, integer *p, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *d__, doublereal *x, doublereal *y, doublereal *work, integer *lwork, integer *info);
02739 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02740 /*:ref: xerbla_ 14 3 13 4 124 */
02741 /*:ref: dggqrf_ 14 12 4 4 4 7 4 7 7 4 7 7 4 4 */
02742 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02743 /*:ref: dtrsv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
02744 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02745 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
02746 /*:ref: dormrq_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02748 int dgghrd_(char *compq, char *compz, integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, integer *info, ftnlen compq_len, ftnlen compz_len);
02749 /*:ref: lsame_ 12 4 13 13 124 124 */
02750 /*:ref: xerbla_ 14 3 13 4 124 */
02751 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02752 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02753 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02755 int dgglse_(integer *m, integer *n, integer *p, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, doublereal *d__, doublereal *x, doublereal *work, integer *lwork, integer *info);
02756 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02757 /*:ref: xerbla_ 14 3 13 4 124 */
02758 /*:ref: dggrqf_ 14 12 4 4 4 7 4 7 7 4 7 7 4 4 */
02759 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02760 /*:ref: dtrsv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
02761 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
02762 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02763 /*:ref: dtrmv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
02764 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
02765 /*:ref: dormrq_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
02767 int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alpha, doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
02768 /*:ref: lsame_ 12 4 13 13 124 124 */
02769 /*:ref: xerbla_ 14 3 13 4 124 */
02770 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02771 /*:ref: dlamch_ 7 2 13 124 */
02772 /*:ref: dggsvp_ 14 27 13 13 13 4 4 4 7 4 7 4 7 7 4 4 7 4 7 4 7 4 4 7 7 4 124 124 124 */
02773 /*:ref: dtgsja_ 14 28 13 13 13 4 4 4 4 4 7 4 7 4 7 7 7 7 7 4 7 4 7 4 7 4 4 124 124 124 */
02774 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02776 int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *ldq, integer *iwork, doublereal *tau, doublereal *work, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
02777 /*:ref: lsame_ 12 4 13 13 124 124 */
02778 /*:ref: xerbla_ 14 3 13 4 124 */
02779 /*:ref: dgeqpf_ 14 8 4 4 7 4 4 7 7 4 */
02780 /*:ref: dlapmt_ 14 6 12 4 4 7 4 4 */
02781 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02782 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02783 /*:ref: dorg2r_ 14 8 4 4 4 7 4 7 7 4 */
02784 /*:ref: dgerq2_ 14 7 4 4 7 4 7 7 4 */
02785 /*:ref: dormr2_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
02786 /*:ref: dorm2r_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
02787 /*:ref: dgeqr2_ 14 7 4 4 7 4 7 7 4 */
02789 int dgtcon_(char *norm, integer *n, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen norm_len);
02790 /*:ref: lsame_ 12 4 13 13 124 124 */
02791 /*:ref: xerbla_ 14 3 13 4 124 */
02792 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
02793 /*:ref: dgttrs_ 14 12 13 4 4 7 7 7 7 4 7 4 4 124 */
02795 int dgtsv_(integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer *info);
02796 /*:ref: xerbla_ 14 3 13 4 124 */
02798 int dgtsvx_(char *fact, char *trans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen trans_len);
02799 /*:ref: lsame_ 12 4 13 13 124 124 */
02800 /*:ref: xerbla_ 14 3 13 4 124 */
02801 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02802 /*:ref: dgttrf_ 14 7 4 7 7 7 7 4 4 */
02803 /*:ref: dlangt_ 7 6 13 4 7 7 7 124 */
02804 /*:ref: dgtcon_ 14 13 13 4 7 7 7 7 4 7 7 7 4 4 124 */
02805 /*:ref: dlamch_ 7 2 13 124 */
02806 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02807 /*:ref: dgttrs_ 14 12 13 4 4 7 7 7 7 4 7 4 4 124 */
02808 /*:ref: dgtrfs_ 14 21 13 4 4 7 7 7 7 7 7 7 4 7 4 7 4 7 7 7 4 4 124 */
02810 int dgttrs_(char *trans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen trans_len);
02811 /*:ref: xerbla_ 14 3 13 4 124 */
02812 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02813 /*:ref: dgtts2_ 14 10 4 4 4 7 7 7 7 4 7 4 */
02815 int dgtts2_(integer *itrans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb);
02817 int dhgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compq_len, ftnlen compz_len);
02818 /*:ref: lsame_ 12 4 13 13 124 124 */
02819 /*:ref: xerbla_ 14 3 13 4 124 */
02820 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02821 /*:ref: dlamch_ 7 2 13 124 */
02822 /*:ref: dlanhs_ 7 6 13 4 7 4 7 124 */
02823 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02824 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02825 /*:ref: dlag2_ 14 10 7 4 7 4 7 7 7 7 7 7 */
02826 /*:ref: dlasv2_ 14 9 7 7 7 7 7 7 7 7 7 */
02827 /*:ref: dlapy3_ 7 3 7 7 7 */
02828 /*:ref: dlapy2_ 7 2 7 7 */
02829 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02831 int dhsein_(char *side, char *eigsrc, char *initv, logical *select, integer *n, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, doublereal *work, integer *ifaill, integer *ifailr, integer *info, ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
02832 /*:ref: lsame_ 12 4 13 13 124 124 */
02833 /*:ref: xerbla_ 14 3 13 4 124 */
02834 /*:ref: dlamch_ 7 2 13 124 */
02835 /*:ref: dlanhs_ 7 6 13 4 7 4 7 124 */
02836 /*:ref: dlaein_ 14 16 12 12 4 7 4 7 7 7 7 7 4 7 7 7 7 4 */
02838 int dhseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compz_len);
02839 /*:ref: lsame_ 12 4 13 13 124 124 */
02840 /*:ref: xerbla_ 14 3 13 4 124 */
02841 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02842 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02843 /*:ref: dlahqr_ 14 14 12 12 4 4 4 7 4 7 7 4 4 7 4 4 */
02844 /*:ref: dlamch_ 7 2 13 124 */
02845 /*:ref: dlabad_ 14 2 7 7 */
02846 /*:ref: dlanhs_ 7 6 13 4 7 4 7 124 */
02847 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02848 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02849 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
02850 /*:ref: idamax_ 4 3 4 7 4 */
02851 /*:ref: dscal_ 14 4 4 7 7 4 */
02852 /*:ref: dlapy2_ 7 2 7 7 */
02853 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02854 /*:ref: dlarfx_ 14 9 13 4 4 7 7 7 4 7 124 */
02856 int dlabad_(doublereal *small, doublereal *large);
02858 int dlabrd_(integer *m, integer *n, integer *nb, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer *ldy);
02859 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
02860 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02861 /*:ref: dscal_ 14 4 4 7 7 4 */
02863 int dlacon_(integer *n, doublereal *v, doublereal *x, integer *isgn, doublereal *est, integer *kase);
02864 /*:ref: dasum_ 7 3 4 7 4 */
02865 /*:ref: idamax_ 4 3 4 7 4 */
02866 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02868 int dlacpy_(char *uplo, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, ftnlen uplo_len);
02869 /*:ref: lsame_ 12 4 13 13 124 124 */
02871 int dladiv_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *p, doublereal *q);
02873 int dlae2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2);
02875 int dlaebz_(integer *ijob, integer *nitmax, integer *n, integer *mmax, integer *minp, integer *nbmin, doublereal *abstol, doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__, integer *mout, integer *nab, doublereal *work, integer *iwork, integer *info);
02877 int dlaed0_(integer *icompq, integer *qsiz, integer *n, doublereal *d__, doublereal *e, doublereal *q, integer *ldq, doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork, integer *info);
02878 /*:ref: xerbla_ 14 3 13 4 124 */
02879 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
02880 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
02881 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02882 /*:ref: dlaed1_ 14 10 4 7 7 4 4 7 4 7 4 4 */
02883 /*:ref: dlaed7_ 14 22 4 4 4 4 4 4 7 7 4 4 7 4 7 4 4 4 4 4 7 7 4 4 */
02884 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02885 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02887 int dlaed1_(integer *n, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, doublereal *work, integer *iwork, integer *info);
02888 /*:ref: xerbla_ 14 3 13 4 124 */
02889 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02890 /*:ref: dlaed2_ 14 17 4 4 4 7 7 4 4 7 7 7 7 7 4 4 4 4 4 */
02891 /*:ref: dlaed3_ 14 14 4 4 4 7 7 4 7 7 7 4 4 7 7 4 */
02892 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
02894 int dlaed2_(integer *k, integer *n, integer *n1, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2, integer *indx, integer *indxc, integer *indxp, integer *coltyp, integer *info);
02895 /*:ref: xerbla_ 14 3 13 4 124 */
02896 /*:ref: dscal_ 14 4 4 7 7 4 */
02897 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
02898 /*:ref: idamax_ 4 3 4 7 4 */
02899 /*:ref: dlamch_ 7 2 13 124 */
02900 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02901 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02902 /*:ref: dlapy2_ 7 2 7 7 */
02903 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02905 int dlaed3_(integer *k, integer *n, integer *n1, doublereal *d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda, doublereal *q2, integer *indx, integer *ctot, doublereal *w, doublereal *s, integer *info);
02906 /*:ref: xerbla_ 14 3 13 4 124 */
02907 /*:ref: dlamc3_ 7 2 7 7 */
02908 /*:ref: dlaed4_ 14 8 4 4 7 7 7 7 7 4 */
02909 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02910 /*:ref: dnrm2_ 7 3 4 7 4 */
02911 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02912 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02913 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
02915 int dlaed4_(integer *n, integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam, integer *info);
02916 /*:ref: dlaed5_ 14 6 4 7 7 7 7 7 */
02917 /*:ref: dlamch_ 7 2 13 124 */
02918 /*:ref: dlaed6_ 14 8 4 12 7 7 7 7 7 4 */
02920 int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam);
02922 int dlaed6_(integer *kniter, logical *orgati, doublereal *rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *tau, integer *info);
02923 /*:ref: dlamch_ 7 2 13 124 */
02925 int dlaed7_(integer *icompq, integer *n, integer *qsiz, integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *perm, integer *givptr, integer *givcol, doublereal *givnum, doublereal *work, integer *iwork, integer *info);
02926 /*:ref: xerbla_ 14 3 13 4 124 */
02927 /*:ref: dlaeda_ 14 14 4 4 4 4 4 4 4 4 7 7 4 7 7 4 */
02928 /*:ref: dlaed8_ 14 22 4 4 4 4 7 7 4 4 7 4 7 7 7 4 7 4 4 4 7 4 4 4 */
02929 /*:ref: dlaed9_ 14 13 4 4 4 4 7 7 4 7 7 7 7 4 4 */
02930 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
02931 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
02933 int dlaed8_(integer *icompq, integer *k, integer *n, integer *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda, doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer *indx, integer *info);
02934 /*:ref: xerbla_ 14 3 13 4 124 */
02935 /*:ref: dscal_ 14 4 4 7 7 4 */
02936 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
02937 /*:ref: idamax_ 4 3 4 7 4 */
02938 /*:ref: dlamch_ 7 2 13 124 */
02939 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02940 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02941 /*:ref: dlapy2_ 7 2 7 7 */
02942 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02944 int dlaed9_(integer *k, integer *kstart, integer *kstop, integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds, integer *info);
02945 /*:ref: xerbla_ 14 3 13 4 124 */
02946 /*:ref: dlamc3_ 7 2 7 7 */
02947 /*:ref: dlaed4_ 14 8 4 4 7 7 7 7 7 4 */
02948 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02949 /*:ref: dnrm2_ 7 3 4 7 4 */
02951 int dlaeda_(integer *n, integer *tlvls, integer *curlvl, integer *curpbm, integer *prmptr, integer *perm, integer *givptr, integer *givcol, doublereal *givnum, doublereal *q, integer *qptr, doublereal *z__, doublereal *ztemp, integer *info);
02952 /*:ref: xerbla_ 14 3 13 4 124 */
02953 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
02954 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02955 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
02957 int dlaein_(logical *rightv, logical *noinit, integer *n, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, doublereal *vr, doublereal *vi, doublereal *b, integer *ldb, doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *bignum, integer *info);
02958 /*:ref: dnrm2_ 7 3 4 7 4 */
02959 /*:ref: dscal_ 14 4 4 7 7 4 */
02960 /*:ref: dlatrs_ 14 15 13 13 13 13 4 7 4 7 7 7 4 124 124 124 124 */
02961 /*:ref: dasum_ 7 3 4 7 4 */
02962 /*:ref: idamax_ 4 3 4 7 4 */
02963 /*:ref: dlapy2_ 7 2 7 7 */
02964 /*:ref: dladiv_ 14 6 7 7 7 7 7 7 */
02966 int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
02968 int dlaexc_(logical *wantq, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, integer *n2, doublereal *work, integer *info);
02969 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02970 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02971 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
02972 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
02973 /*:ref: dlamch_ 7 2 13 124 */
02974 /*:ref: dlasy2_ 14 16 12 12 4 4 4 7 4 7 4 7 4 7 7 4 7 4 */
02975 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
02976 /*:ref: dlarfx_ 14 9 13 4 4 7 7 7 4 7 124 */
02977 /*:ref: dlanv2_ 14 10 7 7 7 7 7 7 7 7 7 7 */
02979 int dlag2_(doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
02981 int dlags2_(logical *upper, doublereal *a1, doublereal *a2, doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3, doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv, doublereal *csq, doublereal *snq);
02982 /*:ref: dlasv2_ 14 9 7 7 7 7 7 7 7 7 7 */
02983 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02985 int dlagtm_(char *trans, integer *n, integer *nrhs, doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du, doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer *ldb, ftnlen trans_len);
02986 /*:ref: lsame_ 12 4 13 13 124 124 */
02988 int dlagts_(integer *job, integer *n, doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, integer *in, doublereal *y, doublereal *tol, integer *info);
02989 /*:ref: xerbla_ 14 3 13 4 124 */
02990 /*:ref: dlamch_ 7 2 13 124 */
02992 int dlagv2_(doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *snr);
02993 /*:ref: dlamch_ 7 2 13 124 */
02994 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
02995 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
02996 /*:ref: dlag2_ 14 10 7 4 7 4 7 7 7 7 7 7 */
02997 /*:ref: dlapy2_ 7 2 7 7 */
02998 /*:ref: dlasv2_ 14 9 7 7 7 7 7 7 7 7 7 */
03000 int dlahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz, integer *info);
03001 /*:ref: dlamch_ 7 2 13 124 */
03002 /*:ref: dlabad_ 14 2 7 7 */
03003 /*:ref: dlanhs_ 7 6 13 4 7 4 7 124 */
03004 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03005 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
03006 /*:ref: dlanv2_ 14 10 7 7 7 7 7 7 7 7 7 7 */
03007 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
03009 int dlahrd_(integer *n, integer *k, integer *nb, doublereal *a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, doublereal *y, integer *ldy);
03010 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03011 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03012 /*:ref: dtrmv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
03013 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03014 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
03015 /*:ref: dscal_ 14 4 4 7 7 4 */
03017 int dlaic1_(integer *job, integer *j, doublereal *x, doublereal *sest, doublereal *w, doublereal *gamma, doublereal *sestpr, doublereal *s, doublereal *c__);
03018 /*:ref: dlamch_ 7 2 13 124 */
03019 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03021 int dlaln2_(logical *ltrans, integer *na, integer *nw, doublereal *smin, doublereal *ca, doublereal *a, integer *lda, doublereal *d1, doublereal *d2, doublereal *b, integer *ldb, doublereal *wr, doublereal *wi, doublereal *x, integer *ldx, doublereal *scale, doublereal *xnorm, integer *info);
03022 /*:ref: dlamch_ 7 2 13 124 */
03023 /*:ref: dladiv_ 14 6 7 7 7 7 7 7 */
03025 int dlals0_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
03026 /*:ref: xerbla_ 14 3 13 4 124 */
03027 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
03028 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03029 /*:ref: dscal_ 14 4 4 7 7 4 */
03030 /*:ref: dlamc3_ 7 2 7 7 */
03031 /*:ref: dnrm2_ 7 3 4 7 4 */
03032 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03033 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03034 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03036 int dlalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *work, integer *iwork, integer *info);
03037 /*:ref: xerbla_ 14 3 13 4 124 */
03038 /*:ref: dlasdt_ 14 7 4 4 4 4 4 4 4 */
03039 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
03040 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03041 /*:ref: dlals0_ 14 24 4 4 4 4 4 7 4 7 4 4 4 4 4 7 4 7 7 7 7 4 7 7 7 4 */
03043 int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, doublereal *rcond, integer *rank, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len);
03044 /*:ref: xerbla_ 14 3 13 4 124 */
03045 /*:ref: dlamch_ 7 2 13 124 */
03046 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03047 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03048 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
03049 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
03050 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
03051 /*:ref: dlasdq_ 14 17 13 4 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
03052 /*:ref: idamax_ 4 3 4 7 4 */
03053 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
03054 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03055 /*:ref: dlasrt_ 14 5 13 4 7 4 124 */
03056 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03057 /*:ref: dlasda_ 14 24 4 4 4 4 7 7 7 4 7 4 7 7 7 7 4 4 4 4 7 7 7 7 4 4 */
03058 /*:ref: dlalsa_ 14 26 4 4 4 4 7 4 7 4 7 4 7 4 7 7 7 7 4 4 4 4 7 7 7 7 4 4 */
03060 doublereal dlamch_(char *cmach, ftnlen cmach_len);
03062 int dlamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1);
03064 int dlamc2_(integer *beta, integer *t, logical *rnd, doublereal *eps, integer *emin, doublereal *rmin, integer *emax, doublereal *rmax);
03066 doublereal dlamc3_(doublereal *a, doublereal *b);
03068 int dlamc4_(integer *emin, doublereal *start, integer *base);
03070 int dlamc5_(integer *beta, integer *p, integer *emin, logical *ieee, integer *emax, doublereal *rmax);
03071 /*:ref: lsame_ 12 4 13 13 124 124 */
03073 int dlamrg_(integer *n1, integer *n2, doublereal *a, integer *dtrd1, integer *dtrd2, integer *index);
03075 doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *work, ftnlen norm_len);
03076 /*:ref: lsame_ 12 4 13 13 124 124 */
03077 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03079 doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len);
03080 /*:ref: lsame_ 12 4 13 13 124 124 */
03081 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03083 doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__, doublereal *du, ftnlen norm_len);
03084 /*:ref: lsame_ 12 4 13 13 124 124 */
03085 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03087 doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len);
03088 /*:ref: lsame_ 12 4 13 13 124 124 */
03089 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03091 doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
03092 /*:ref: lsame_ 12 4 13 13 124 124 */
03093 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03095 doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
03096 /*:ref: lsame_ 12 4 13 13 124 124 */
03097 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03099 doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e, ftnlen norm_len);
03100 /*:ref: lsame_ 12 4 13 13 124 124 */
03101 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03103 doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
03104 /*:ref: lsame_ 12 4 13 13 124 124 */
03105 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03107 doublereal dlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, doublereal *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
03108 /*:ref: lsame_ 12 4 13 13 124 124 */
03109 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03111 doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
03112 /*:ref: lsame_ 12 4 13 13 124 124 */
03113 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03115 doublereal dlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
03116 /*:ref: lsame_ 12 4 13 13 124 124 */
03117 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
03119 int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r, doublereal *rt2i, doublereal *cs, doublereal *sn);
03120 /*:ref: dlamch_ 7 2 13 124 */
03121 /*:ref: dlapy2_ 7 2 7 7 */
03123 int dlapll_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *ssmin);
03124 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
03125 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03126 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03127 /*:ref: dlas2_ 14 5 7 7 7 7 7 */
03129 int dlapmt_(logical *forwrd, integer *m, integer *n, doublereal *x, integer *ldx, integer *k);
03131 doublereal dlapy2_(doublereal *x, doublereal *y);
03133 doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
03135 int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed, ftnlen equed_len);
03136 /*:ref: dlamch_ 7 2 13 124 */
03138 int dlaqge_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed, ftnlen equed_len);
03139 /*:ref: dlamch_ 7 2 13 124 */
03141 int dlaqp2_(integer *m, integer *n, integer *offset, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *work);
03142 /*:ref: idamax_ 4 3 4 7 4 */
03143 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03144 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
03145 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03146 /*:ref: dnrm2_ 7 3 4 7 4 */
03148 int dlaqps_(integer *m, integer *n, integer *offset, integer *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv, doublereal *f, integer *ldf);
03149 /*:ref: idamax_ 4 3 4 7 4 */
03150 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03151 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03152 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
03153 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
03154 /*:ref: dnrm2_ 7 3 4 7 4 */
03156 int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
03157 /*:ref: dlamch_ 7 2 13 124 */
03158 /*:ref: lsame_ 12 4 13 13 124 124 */
03160 int dlaqsp_(char *uplo, integer *n, doublereal *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
03161 /*:ref: dlamch_ 7 2 13 124 */
03162 /*:ref: lsame_ 12 4 13 13 124 124 */
03164 int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
03165 /*:ref: dlamch_ 7 2 13 124 */
03166 /*:ref: lsame_ 12 4 13 13 124 124 */
03168 int dlaqtr_(logical *ltran, logical *lreal, integer *n, doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal *scale, doublereal *x, doublereal *work, integer *info);
03169 /*:ref: dlamch_ 7 2 13 124 */
03170 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
03171 /*:ref: dasum_ 7 3 4 7 4 */
03172 /*:ref: idamax_ 4 3 4 7 4 */
03173 /*:ref: dscal_ 14 4 4 7 7 4 */
03174 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03175 /*:ref: dlaln2_ 14 18 12 4 4 7 7 7 4 7 7 7 4 7 7 7 4 7 7 4 */
03176 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03177 /*:ref: dladiv_ 14 6 7 7 7 7 7 7 */
03179 int dlar1v_(integer *n, integer *b1, integer *bn, doublereal *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *lld, doublereal *gersch, doublereal *z__, doublereal *ztz, doublereal *mingma, integer *r__, integer *isuppz, doublereal *work);
03180 /*:ref: dlamch_ 7 2 13 124 */
03182 int dlar2v_(integer *n, doublereal *x, doublereal *y, doublereal *z__, integer *incx, doublereal *c__, doublereal *s, integer *incc);
03184 int dlargv_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *c__, integer *incc);
03186 int dlarnv_(integer *idist, integer *iseed, integer *n, doublereal *x);
03187 /*:ref: dlaruv_ 14 3 4 4 7 */
03189 int dlarrb_(integer *n, doublereal *d__, doublereal *l, doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast, doublereal *sigma, doublereal *reltol, doublereal *w, doublereal *wgap, doublereal *werr, doublereal *work, integer *iwork, integer *info);
03190 /*:ref: dlamch_ 7 2 13 124 */
03192 int dlarre_(integer *n, doublereal *d__, doublereal *e, doublereal *tol, integer *nsplit, integer *isplit, integer *m, doublereal *w, doublereal *woff, doublereal *gersch, doublereal *work, integer *info);
03193 /*:ref: dlamch_ 7 2 13 124 */
03194 /*:ref: dlasq2_ 14 3 4 7 4 */
03195 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03197 int dlarrv_(integer *n, doublereal *d__, doublereal *l, integer *isplit, integer *m, doublereal *w, integer *iblock, doublereal *gersch, doublereal *tol, doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, integer *iwork, integer *info);
03198 /*:ref: dlamch_ 7 2 13 124 */
03199 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03200 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03201 /*:ref: dlarrb_ 14 15 4 7 7 7 7 4 4 7 7 7 7 7 7 4 4 */
03202 /*:ref: dlarrf_ 14 13 4 7 7 7 7 4 4 7 7 7 7 4 4 */
03203 /*:ref: dstein_ 14 13 4 7 7 4 7 4 4 7 4 7 4 4 4 */
03204 /*:ref: dlar1v_ 14 15 4 4 4 7 7 7 7 7 7 7 7 7 4 4 7 */
03205 /*:ref: dscal_ 14 4 4 7 7 4 */
03206 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03207 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03208 /*:ref: dnrm2_ 7 3 4 7 4 */
03210 int dlartg_(doublereal *f, doublereal *g, doublereal *cs, doublereal *sn, doublereal *r__);
03211 /*:ref: dlamch_ 7 2 13 124 */
03213 int dlartv_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer *incc);
03215 int dlaruv_(integer *iseed, integer *n, doublereal *x);
03217 int dlarz_(char *side, integer *m, integer *n, integer *l, doublereal *v, integer *incv, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, ftnlen side_len);
03218 /*:ref: lsame_ 12 4 13 13 124 124 */
03219 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03220 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03221 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03222 /*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
03224 int dlarzb_(char *side, char *trans, char *direct, char *storev, integer *m, integer *n, integer *k, integer *l, doublereal *v, integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc, doublereal *work, integer *ldwork, ftnlen side_len, ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
03225 /*:ref: lsame_ 12 4 13 13 124 124 */
03226 /*:ref: xerbla_ 14 3 13 4 124 */
03227 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03228 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
03229 /*:ref: dtrmm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
03231 int dlarzt_(char *direct, char *storev, integer *n, integer *k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, integer *ldt, ftnlen direct_len, ftnlen storev_len);
03232 /*:ref: lsame_ 12 4 13 13 124 124 */
03233 /*:ref: xerbla_ 14 3 13 4 124 */
03234 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03235 /*:ref: dtrmv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
03237 int dlas2_(doublereal *f, doublereal *g, doublereal *h__, doublereal *ssmin, doublereal *ssmax);
03239 int dlascl_(char *type__, integer *kl, integer *ku, doublereal *cfrom, doublereal *cto, integer *m, integer *n, doublereal *a, integer *lda, integer *info, ftnlen type_len);
03240 /*:ref: lsame_ 12 4 13 13 124 124 */
03241 /*:ref: xerbla_ 14 3 13 4 124 */
03242 /*:ref: dlamch_ 7 2 13 124 */
03244 int dlasd0_(integer *n, integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *info);
03245 /*:ref: xerbla_ 14 3 13 4 124 */
03246 /*:ref: dlasdq_ 14 17 13 4 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
03247 /*:ref: dlasdt_ 14 7 4 4 4 4 4 4 4 */
03248 /*:ref: dlasd1_ 14 14 4 4 4 7 7 7 7 4 7 4 4 4 7 4 */
03250 int dlasd1_(integer *nl, integer *nr, integer *sqre, doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *iwork, doublereal *work, integer *info);
03251 /*:ref: xerbla_ 14 3 13 4 124 */
03252 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03253 /*:ref: dlasd2_ 14 23 4 4 4 4 7 7 7 7 7 4 7 4 7 7 4 7 4 4 4 4 4 4 4 */
03254 /*:ref: dlasd3_ 14 20 4 4 4 4 7 7 4 7 7 4 7 4 7 4 7 4 4 4 7 4 */
03255 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
03257 int dlasd2_(integer *nl, integer *nr, integer *sqre, integer *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt, doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *idxq, integer *coltyp, integer *info);
03258 /*:ref: xerbla_ 14 3 13 4 124 */
03259 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
03260 /*:ref: dlamch_ 7 2 13 124 */
03261 /*:ref: dlapy2_ 7 2 7 7 */
03262 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
03263 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03264 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03265 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03267 int dlasd3_(integer *nl, integer *nr, integer *sqre, integer *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma, doublereal *u, integer *ldu, doublereal *u2, integer *ldu2, doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2, integer *idxc, integer *ctot, doublereal *z__, integer *info);
03268 /*:ref: xerbla_ 14 3 13 4 124 */
03269 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03270 /*:ref: dlamc3_ 7 2 7 7 */
03271 /*:ref: dnrm2_ 7 3 4 7 4 */
03272 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03273 /*:ref: dlasd4_ 14 9 4 4 7 7 7 7 7 7 4 */
03274 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
03275 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03277 int dlasd4_(integer *n, integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *sigma, doublereal *work, integer *info);
03278 /*:ref: dlasd5_ 14 7 4 7 7 7 7 7 7 */
03279 /*:ref: dlamch_ 7 2 13 124 */
03280 /*:ref: dlaed6_ 14 8 4 12 7 7 7 7 7 4 */
03282 int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *work);
03284 int dlasd6_(integer *icompq, integer *nl, integer *nr, integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl, doublereal *alpha, doublereal *beta, integer *idxq, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, doublereal *work, integer *iwork, integer *info);
03285 /*:ref: xerbla_ 14 3 13 4 124 */
03286 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03287 /*:ref: dlasd7_ 14 27 4 4 4 4 4 7 7 7 7 7 7 7 7 7 7 4 4 4 4 4 4 4 7 4 7 7 4 */
03288 /*:ref: dlasd8_ 14 12 4 4 7 7 7 7 7 7 4 7 7 4 */
03289 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03290 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
03292 int dlasd7_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *k, doublereal *d__, doublereal *z__, doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl, doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
03293 /*:ref: xerbla_ 14 3 13 4 124 */
03294 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
03295 /*:ref: dlamch_ 7 2 13 124 */
03296 /*:ref: dlapy2_ 7 2 7 7 */
03297 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
03298 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03300 int dlasd8_(integer *icompq, integer *k, doublereal *d__, doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *work, integer *info);
03301 /*:ref: xerbla_ 14 3 13 4 124 */
03302 /*:ref: dlamc3_ 7 2 7 7 */
03303 /*:ref: dnrm2_ 7 3 4 7 4 */
03304 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03305 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03306 /*:ref: dlasd4_ 14 9 4 4 7 7 7 7 7 7 4 */
03307 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03308 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03310 int dlasd9_(integer *icompq, integer *ldu, integer *k, doublereal *d__, doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl, doublereal *difr, doublereal *dsigma, doublereal *work, integer *info);
03311 /*:ref: xerbla_ 14 3 13 4 124 */
03312 /*:ref: dlamc3_ 7 2 7 7 */
03313 /*:ref: dnrm2_ 7 3 4 7 4 */
03314 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03315 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03316 /*:ref: dlasd4_ 14 9 4 4 7 7 7 7 7 7 4 */
03317 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03318 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03320 int dlasda_(integer *icompq, integer *smlsiz, integer *n, integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *work, integer *iwork, integer *info);
03321 /*:ref: xerbla_ 14 3 13 4 124 */
03322 /*:ref: dlasdq_ 14 17 13 4 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
03323 /*:ref: dlasdt_ 14 7 4 4 4 4 4 4 4 */
03324 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03325 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03326 /*:ref: dlasd6_ 14 26 4 4 4 4 7 7 7 7 7 4 4 4 4 4 7 4 7 7 7 7 4 7 7 7 4 4 */
03328 int dlasdq_(char *uplo, integer *sqre, integer *n, integer *ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt, integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen uplo_len);
03329 /*:ref: lsame_ 12 4 13 13 124 124 */
03330 /*:ref: xerbla_ 14 3 13 4 124 */
03331 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
03332 /*:ref: dlasr_ 14 12 13 13 13 4 4 7 7 7 4 124 124 124 */
03333 /*:ref: dbdsqr_ 14 16 13 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
03334 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03336 int dlasdt_(integer *n, integer *lvl, integer *nd, integer *inode, integer *ndiml, integer *ndimr, integer *msub);
03338 int dlaset_(char *uplo, integer *m, integer *n, doublereal *alpha, doublereal *beta, doublereal *a, integer *lda, ftnlen uplo_len);
03339 /*:ref: lsame_ 12 4 13 13 124 124 */
03341 int dlasq1_(integer *n, doublereal *d__, doublereal *e, doublereal *work, integer *info);
03342 /*:ref: xerbla_ 14 3 13 4 124 */
03343 /*:ref: dlas2_ 14 5 7 7 7 7 7 */
03344 /*:ref: dlasrt_ 14 5 13 4 7 4 124 */
03345 /*:ref: dlamch_ 7 2 13 124 */
03346 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03347 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03348 /*:ref: dlasq2_ 14 3 4 7 4 */
03350 int dlasq2_(integer *n, doublereal *z__, integer *info);
03351 /*:ref: dlamch_ 7 2 13 124 */
03352 /*:ref: xerbla_ 14 3 13 4 124 */
03353 /*:ref: dlasrt_ 14 5 13 4 7 4 124 */
03354 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03355 /*:ref: dlasq3_ 14 12 4 4 7 4 7 7 7 7 4 4 4 12 */
03357 int dlasq3_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig, doublereal *qmax, integer *nfail, integer *iter, integer *ndiv, logical *ieee);
03358 /*:ref: dlamch_ 7 2 13 124 */
03359 /*:ref: dlasq4_ 14 13 4 4 7 4 4 7 7 7 7 7 7 7 4 */
03360 /*:ref: dlasq5_ 14 12 4 4 7 4 7 7 7 7 7 7 7 12 */
03361 /*:ref: dlasq6_ 14 10 4 4 7 4 7 7 7 7 7 7 */
03363 int dlasq4_(integer *i0, integer *n0, doublereal *z__, integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *tau, integer *ttype);
03365 int dlasq5_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2, logical *ieee);
03367 int dlasq6_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2);
03368 /*:ref: dlamch_ 7 2 13 124 */
03370 int dlasr_(char *side, char *pivot, char *direct, integer *m, integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *lda, ftnlen side_len, ftnlen pivot_len, ftnlen direct_len);
03371 /*:ref: lsame_ 12 4 13 13 124 124 */
03372 /*:ref: xerbla_ 14 3 13 4 124 */
03374 int dlasrt_(char *id, integer *n, doublereal *d__, integer *info, ftnlen id_len);
03375 /*:ref: lsame_ 12 4 13 13 124 124 */
03376 /*:ref: xerbla_ 14 3 13 4 124 */
03378 int dlassq_(integer *n, doublereal *x, integer *incx, doublereal *scale, doublereal *sumsq);
03380 int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *csr, doublereal *snl, doublereal *csl);
03381 /*:ref: dlamch_ 7 2 13 124 */
03383 int dlaswp_(integer *n, doublereal *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);
03385 int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale, doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
03386 /*:ref: dlamch_ 7 2 13 124 */
03387 /*:ref: idamax_ 4 3 4 7 4 */
03388 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03389 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03391 int dlatbs_(char *uplo, char *trans, char *diag, char *normin, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *x, doublereal *scale, doublereal *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
03392 /*:ref: lsame_ 12 4 13 13 124 124 */
03393 /*:ref: xerbla_ 14 3 13 4 124 */
03394 /*:ref: dlamch_ 7 2 13 124 */
03395 /*:ref: dasum_ 7 3 4 7 4 */
03396 /*:ref: idamax_ 4 3 4 7 4 */
03397 /*:ref: dscal_ 14 4 4 7 7 4 */
03398 /*:ref: dtbsv_ 14 12 13 13 13 4 4 7 4 7 4 124 124 124 */
03399 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03400 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03402 int dlatps_(char *uplo, char *trans, char *diag, char *normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale, doublereal *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
03403 /*:ref: lsame_ 12 4 13 13 124 124 */
03404 /*:ref: xerbla_ 14 3 13 4 124 */
03405 /*:ref: dlamch_ 7 2 13 124 */
03406 /*:ref: dasum_ 7 3 4 7 4 */
03407 /*:ref: idamax_ 4 3 4 7 4 */
03408 /*:ref: dscal_ 14 4 4 7 7 4 */
03409 /*:ref: dtpsv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03410 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03411 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03413 int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, integer *ldw, ftnlen uplo_len);
03414 /*:ref: lsame_ 12 4 13 13 124 124 */
03415 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03416 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
03417 /*:ref: dsymv_ 14 11 13 4 7 7 4 7 4 7 7 4 124 */
03418 /*:ref: dscal_ 14 4 4 7 7 4 */
03419 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03420 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03422 int dlatrs_(char *uplo, char *trans, char *diag, char *normin, integer *n, doublereal *a, integer *lda, doublereal *x, doublereal *scale, doublereal *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
03423 /*:ref: lsame_ 12 4 13 13 124 124 */
03424 /*:ref: xerbla_ 14 3 13 4 124 */
03425 /*:ref: dlamch_ 7 2 13 124 */
03426 /*:ref: dasum_ 7 3 4 7 4 */
03427 /*:ref: idamax_ 4 3 4 7 4 */
03428 /*:ref: dscal_ 14 4 4 7 7 4 */
03429 /*:ref: dtrsv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
03430 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03431 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03433 int dlatrz_(integer *m, integer *n, integer *l, doublereal *a, integer *lda, doublereal *tau, doublereal *work);
03434 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
03435 /*:ref: dlarz_ 14 11 13 4 4 4 7 4 7 7 4 7 124 */
03437 int dlatzm_(char *side, integer *m, integer *n, doublereal *v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2, integer *ldc, doublereal *work, ftnlen side_len);
03438 /*:ref: lsame_ 12 4 13 13 124 124 */
03439 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03440 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03441 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03442 /*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
03444 int dlauu2_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len);
03445 /*:ref: lsame_ 12 4 13 13 124 124 */
03446 /*:ref: xerbla_ 14 3 13 4 124 */
03447 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03448 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03449 /*:ref: dscal_ 14 4 4 7 7 4 */
03451 int dlauum_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len);
03452 /*:ref: lsame_ 12 4 13 13 124 124 */
03453 /*:ref: xerbla_ 14 3 13 4 124 */
03454 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03455 /*:ref: dlauu2_ 14 6 13 4 7 4 4 124 */
03456 /*:ref: dtrmm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
03457 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
03458 /*:ref: dsyrk_ 14 12 13 13 4 4 7 7 4 7 7 4 124 124 */
03460 int dopgtr_(char *uplo, integer *n, doublereal *ap, doublereal *tau, doublereal *q, integer *ldq, doublereal *work, integer *info, ftnlen uplo_len);
03461 /*:ref: lsame_ 12 4 13 13 124 124 */
03462 /*:ref: xerbla_ 14 3 13 4 124 */
03463 /*:ref: dorg2l_ 14 8 4 4 4 7 4 7 7 4 */
03464 /*:ref: dorg2r_ 14 8 4 4 4 7 4 7 7 4 */
03466 int dopmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
03467 /*:ref: lsame_ 12 4 13 13 124 124 */
03468 /*:ref: xerbla_ 14 3 13 4 124 */
03469 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03471 int dorg2l_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
03472 /*:ref: xerbla_ 14 3 13 4 124 */
03473 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03474 /*:ref: dscal_ 14 4 4 7 7 4 */
03476 int dorg2r_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
03477 /*:ref: xerbla_ 14 3 13 4 124 */
03478 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03479 /*:ref: dscal_ 14 4 4 7 7 4 */
03481 int dorgbr_(char *vect, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info, ftnlen vect_len);
03482 /*:ref: lsame_ 12 4 13 13 124 124 */
03483 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03484 /*:ref: xerbla_ 14 3 13 4 124 */
03485 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
03486 /*:ref: dorglq_ 14 9 4 4 4 7 4 7 7 4 4 */
03488 int dorghr_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
03489 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03490 /*:ref: xerbla_ 14 3 13 4 124 */
03491 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
03493 int dorgl2_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
03494 /*:ref: xerbla_ 14 3 13 4 124 */
03495 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03496 /*:ref: dscal_ 14 4 4 7 7 4 */
03498 int dorglq_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
03499 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03500 /*:ref: xerbla_ 14 3 13 4 124 */
03501 /*:ref: dorgl2_ 14 8 4 4 4 7 4 7 7 4 */
03502 /*:ref: dlarft_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03503 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03505 int dorgql_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
03506 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03507 /*:ref: xerbla_ 14 3 13 4 124 */
03508 /*:ref: dorg2l_ 14 8 4 4 4 7 4 7 7 4 */
03509 /*:ref: dlarft_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03510 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03512 int dorgqr_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
03513 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03514 /*:ref: xerbla_ 14 3 13 4 124 */
03515 /*:ref: dorg2r_ 14 8 4 4 4 7 4 7 7 4 */
03516 /*:ref: dlarft_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03517 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03519 int dorgr2_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info);
03520 /*:ref: xerbla_ 14 3 13 4 124 */
03521 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03522 /*:ref: dscal_ 14 4 4 7 7 4 */
03524 int dorgrq_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
03525 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03526 /*:ref: xerbla_ 14 3 13 4 124 */
03527 /*:ref: dorgr2_ 14 8 4 4 4 7 4 7 7 4 */
03528 /*:ref: dlarft_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03529 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03531 int dorgtr_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info, ftnlen uplo_len);
03532 /*:ref: lsame_ 12 4 13 13 124 124 */
03533 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03534 /*:ref: xerbla_ 14 3 13 4 124 */
03535 /*:ref: dorgql_ 14 9 4 4 4 7 4 7 7 4 4 */
03536 /*:ref: dorgqr_ 14 9 4 4 4 7 4 7 7 4 4 */
03538 int dorm2l_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen side_len, ftnlen trans_len);
03539 /*:ref: lsame_ 12 4 13 13 124 124 */
03540 /*:ref: xerbla_ 14 3 13 4 124 */
03541 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03543 int dorm2r_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen side_len, ftnlen trans_len);
03544 /*:ref: lsame_ 12 4 13 13 124 124 */
03545 /*:ref: xerbla_ 14 3 13 4 124 */
03546 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03548 int dormbr_(char *vect, char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info, ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
03549 /*:ref: lsame_ 12 4 13 13 124 124 */
03550 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03551 /*:ref: xerbla_ 14 3 13 4 124 */
03552 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
03553 /*:ref: dormlq_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
03555 int dormhr_(char *side, char *trans, integer *m, integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
03556 /*:ref: lsame_ 12 4 13 13 124 124 */
03557 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03558 /*:ref: xerbla_ 14 3 13 4 124 */
03559 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
03561 int dorml2_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen side_len, ftnlen trans_len);
03562 /*:ref: lsame_ 12 4 13 13 124 124 */
03563 /*:ref: xerbla_ 14 3 13 4 124 */
03564 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03566 int dormlq_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
03567 /*:ref: lsame_ 12 4 13 13 124 124 */
03568 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03569 /*:ref: xerbla_ 14 3 13 4 124 */
03570 /*:ref: dorml2_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
03571 /*:ref: dlarft_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03572 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03574 int dormql_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
03575 /*:ref: lsame_ 12 4 13 13 124 124 */
03576 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03577 /*:ref: xerbla_ 14 3 13 4 124 */
03578 /*:ref: dorm2l_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
03579 /*:ref: dlarft_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03580 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03582 int dormqr_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
03583 /*:ref: lsame_ 12 4 13 13 124 124 */
03584 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03585 /*:ref: xerbla_ 14 3 13 4 124 */
03586 /*:ref: dorm2r_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
03587 /*:ref: dlarft_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03588 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03590 int dormr2_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen side_len, ftnlen trans_len);
03591 /*:ref: lsame_ 12 4 13 13 124 124 */
03592 /*:ref: xerbla_ 14 3 13 4 124 */
03593 /*:ref: dlarf_ 14 10 13 4 4 7 4 7 7 4 7 124 */
03595 int dormr3_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *info, ftnlen side_len, ftnlen trans_len);
03596 /*:ref: lsame_ 12 4 13 13 124 124 */
03597 /*:ref: xerbla_ 14 3 13 4 124 */
03598 /*:ref: dlarz_ 14 11 13 4 4 4 7 4 7 7 4 7 124 */
03600 int dormrq_(char *side, char *trans, integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
03601 /*:ref: lsame_ 12 4 13 13 124 124 */
03602 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03603 /*:ref: xerbla_ 14 3 13 4 124 */
03604 /*:ref: dormr2_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
03605 /*:ref: dlarft_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03606 /*:ref: dlarfb_ 14 19 13 13 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03608 int dormrz_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
03609 /*:ref: lsame_ 12 4 13 13 124 124 */
03610 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03611 /*:ref: xerbla_ 14 3 13 4 124 */
03612 /*:ref: dormr3_ 14 15 13 13 4 4 4 4 7 4 7 7 4 7 4 124 124 */
03613 /*:ref: dlarzt_ 14 11 13 13 4 4 7 4 7 7 4 124 124 */
03614 /*:ref: dlarzb_ 14 20 13 13 13 13 4 4 4 4 7 4 7 4 7 4 7 4 124 124 124 124 */
03616 int dormtr_(char *side, char *uplo, char *trans, integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork, integer *info, ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
03617 /*:ref: lsame_ 12 4 13 13 124 124 */
03618 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03619 /*:ref: xerbla_ 14 3 13 4 124 */
03620 /*:ref: dormql_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
03621 /*:ref: dormqr_ 14 15 13 13 4 4 4 7 4 7 7 4 7 4 4 124 124 */
03623 int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len);
03624 /*:ref: lsame_ 12 4 13 13 124 124 */
03625 /*:ref: xerbla_ 14 3 13 4 124 */
03626 /*:ref: dlamch_ 7 2 13 124 */
03627 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
03628 /*:ref: dlatbs_ 14 16 13 13 13 13 4 4 7 4 7 7 7 4 124 124 124 124 */
03629 /*:ref: idamax_ 4 3 4 7 4 */
03630 /*:ref: drscl_ 14 4 4 7 7 4 */
03632 int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len);
03633 /*:ref: lsame_ 12 4 13 13 124 124 */
03634 /*:ref: xerbla_ 14 3 13 4 124 */
03636 int dpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
03637 /*:ref: lsame_ 12 4 13 13 124 124 */
03638 /*:ref: xerbla_ 14 3 13 4 124 */
03639 /*:ref: dpbtrf_ 14 7 13 4 4 7 4 4 124 */
03640 /*:ref: dpbtrs_ 14 10 13 4 4 4 7 4 7 4 4 124 */
03642 int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
03643 /*:ref: lsame_ 12 4 13 13 124 124 */
03644 /*:ref: dlamch_ 7 2 13 124 */
03645 /*:ref: xerbla_ 14 3 13 4 124 */
03646 /*:ref: dpbequ_ 14 10 13 4 4 7 4 7 7 7 4 124 */
03647 /*:ref: dlaqsb_ 14 11 13 4 4 7 4 7 7 7 13 124 124 */
03648 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03649 /*:ref: dpbtrf_ 14 7 13 4 4 7 4 4 124 */
03650 /*:ref: dlansb_ 7 9 13 13 4 4 7 4 7 124 124 */
03651 /*:ref: dpbcon_ 14 11 13 4 4 7 4 7 7 7 4 4 124 */
03652 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03653 /*:ref: dpbtrs_ 14 10 13 4 4 4 7 4 7 4 4 124 */
03654 /*:ref: dpbrfs_ 14 18 13 4 4 4 7 4 7 4 7 4 7 4 7 7 7 4 4 124 */
03656 int dpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
03657 /*:ref: lsame_ 12 4 13 13 124 124 */
03658 /*:ref: xerbla_ 14 3 13 4 124 */
03659 /*:ref: dtbsv_ 14 12 13 13 13 4 4 7 4 7 4 124 124 124 */
03661 int dpocon_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len);
03662 /*:ref: lsame_ 12 4 13 13 124 124 */
03663 /*:ref: xerbla_ 14 3 13 4 124 */
03664 /*:ref: dlamch_ 7 2 13 124 */
03665 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
03666 /*:ref: dlatrs_ 14 15 13 13 13 13 4 7 4 7 7 7 4 124 124 124 124 */
03667 /*:ref: idamax_ 4 3 4 7 4 */
03668 /*:ref: drscl_ 14 4 4 7 7 4 */
03670 int dpoequ_(integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info);
03671 /*:ref: xerbla_ 14 3 13 4 124 */
03673 int dposv_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
03674 /*:ref: lsame_ 12 4 13 13 124 124 */
03675 /*:ref: xerbla_ 14 3 13 4 124 */
03676 /*:ref: dpotrf_ 14 6 13 4 7 4 4 124 */
03677 /*:ref: dpotrs_ 14 9 13 4 4 7 4 7 4 4 124 */
03679 int dposvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
03680 /*:ref: lsame_ 12 4 13 13 124 124 */
03681 /*:ref: dlamch_ 7 2 13 124 */
03682 /*:ref: xerbla_ 14 3 13 4 124 */
03683 /*:ref: dpoequ_ 14 7 4 7 4 7 7 7 4 */
03684 /*:ref: dlaqsy_ 14 10 13 4 7 4 7 7 7 13 124 124 */
03685 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03686 /*:ref: dpotrf_ 14 6 13 4 7 4 4 124 */
03687 /*:ref: dlansy_ 7 8 13 13 4 7 4 7 124 124 */
03688 /*:ref: dpocon_ 14 10 13 4 7 4 7 7 7 4 4 124 */
03689 /*:ref: dpotrs_ 14 9 13 4 4 7 4 7 4 4 124 */
03690 /*:ref: dporfs_ 14 17 13 4 4 7 4 7 4 7 4 7 4 7 7 7 4 4 124 */
03692 int dpotri_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len);
03693 /*:ref: lsame_ 12 4 13 13 124 124 */
03694 /*:ref: xerbla_ 14 3 13 4 124 */
03695 /*:ref: dtrtri_ 14 8 13 13 4 7 4 4 124 124 */
03696 /*:ref: dlauum_ 14 6 13 4 7 4 4 124 */
03698 int dpotrs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
03699 /*:ref: lsame_ 12 4 13 13 124 124 */
03700 /*:ref: xerbla_ 14 3 13 4 124 */
03701 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
03703 int dppcon_(char *uplo, integer *n, doublereal *ap, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len);
03704 /*:ref: lsame_ 12 4 13 13 124 124 */
03705 /*:ref: xerbla_ 14 3 13 4 124 */
03706 /*:ref: dlamch_ 7 2 13 124 */
03707 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
03708 /*:ref: dlatps_ 14 14 13 13 13 13 4 7 7 7 7 4 124 124 124 124 */
03709 /*:ref: idamax_ 4 3 4 7 4 */
03710 /*:ref: drscl_ 14 4 4 7 7 4 */
03712 int dppequ_(char *uplo, integer *n, doublereal *ap, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len);
03713 /*:ref: lsame_ 12 4 13 13 124 124 */
03714 /*:ref: xerbla_ 14 3 13 4 124 */
03716 int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
03717 /*:ref: lsame_ 12 4 13 13 124 124 */
03718 /*:ref: xerbla_ 14 3 13 4 124 */
03719 /*:ref: dpptrf_ 14 5 13 4 7 4 124 */
03720 /*:ref: dpptrs_ 14 8 13 4 4 7 7 4 4 124 */
03722 int dppsvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
03723 /*:ref: lsame_ 12 4 13 13 124 124 */
03724 /*:ref: dlamch_ 7 2 13 124 */
03725 /*:ref: xerbla_ 14 3 13 4 124 */
03726 /*:ref: dppequ_ 14 8 13 4 7 7 7 7 4 124 */
03727 /*:ref: dlaqsp_ 14 9 13 4 7 7 7 7 13 124 124 */
03728 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03729 /*:ref: dpptrf_ 14 5 13 4 7 4 124 */
03730 /*:ref: dlansp_ 7 7 13 13 4 7 7 124 124 */
03731 /*:ref: dppcon_ 14 9 13 4 7 7 7 7 4 4 124 */
03732 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03733 /*:ref: dpptrs_ 14 8 13 4 4 7 7 4 4 124 */
03734 /*:ref: dpprfs_ 14 15 13 4 4 7 7 7 4 7 4 7 7 7 4 4 124 */
03736 int dpptri_(char *uplo, integer *n, doublereal *ap, integer *info, ftnlen uplo_len);
03737 /*:ref: lsame_ 12 4 13 13 124 124 */
03738 /*:ref: xerbla_ 14 3 13 4 124 */
03739 /*:ref: dtptri_ 14 7 13 13 4 7 4 124 124 */
03740 /*:ref: dspr_ 14 7 13 4 7 7 4 7 124 */
03741 /*:ref: dscal_ 14 4 4 7 7 4 */
03742 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03743 /*:ref: dtpmv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03745 int dpptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
03746 /*:ref: lsame_ 12 4 13 13 124 124 */
03747 /*:ref: xerbla_ 14 3 13 4 124 */
03748 /*:ref: dtpsv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03750 int dptcon_(integer *n, doublereal *d__, doublereal *e, doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
03751 /*:ref: xerbla_ 14 3 13 4 124 */
03752 /*:ref: idamax_ 4 3 4 7 4 */
03754 int dpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len);
03755 /*:ref: lsame_ 12 4 13 13 124 124 */
03756 /*:ref: xerbla_ 14 3 13 4 124 */
03757 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03758 /*:ref: dpttrf_ 14 4 4 7 7 4 */
03759 /*:ref: dbdsqr_ 14 16 13 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
03761 int dptsv_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info);
03762 /*:ref: xerbla_ 14 3 13 4 124 */
03763 /*:ref: dpttrf_ 14 4 4 7 7 4 */
03764 /*:ref: dpttrs_ 14 7 4 4 7 7 7 4 4 */
03766 int dptsvx_(char *fact, integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *info, ftnlen fact_len);
03767 /*:ref: lsame_ 12 4 13 13 124 124 */
03768 /*:ref: xerbla_ 14 3 13 4 124 */
03769 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03770 /*:ref: dpttrf_ 14 4 4 7 7 4 */
03771 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
03772 /*:ref: dptcon_ 14 7 4 7 7 7 7 7 4 */
03773 /*:ref: dlamch_ 7 2 13 124 */
03774 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03775 /*:ref: dpttrs_ 14 7 4 4 7 7 7 4 4 */
03776 /*:ref: dptrfs_ 14 14 4 4 7 7 7 7 7 4 7 4 7 7 7 4 */
03778 int dpttrs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info);
03779 /*:ref: xerbla_ 14 3 13 4 124 */
03780 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
03781 /*:ref: dptts2_ 14 6 4 4 7 7 7 4 */
03783 int dptts2_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb);
03784 /*:ref: dscal_ 14 4 4 7 7 4 */
03786 int drscl_(integer *n, doublereal *sa, doublereal *sx, integer *incx);
03787 /*:ref: dlamch_ 7 2 13 124 */
03788 /*:ref: dlabad_ 14 2 7 7 */
03789 /*:ref: dscal_ 14 4 4 7 7 4 */
03791 int dsbev_(char *jobz, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen jobz_len, ftnlen uplo_len);
03792 /*:ref: lsame_ 12 4 13 13 124 124 */
03793 /*:ref: xerbla_ 14 3 13 4 124 */
03794 /*:ref: dlamch_ 7 2 13 124 */
03795 /*:ref: dlansb_ 7 9 13 13 4 4 7 4 7 124 124 */
03796 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03797 /*:ref: dsbtrd_ 14 14 13 13 4 4 7 4 7 7 7 4 7 4 124 124 */
03798 /*:ref: dsterf_ 14 4 4 7 7 4 */
03799 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
03800 /*:ref: dscal_ 14 4 4 7 7 4 */
03802 int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
03803 /*:ref: lsame_ 12 4 13 13 124 124 */
03804 /*:ref: xerbla_ 14 3 13 4 124 */
03805 /*:ref: dlamch_ 7 2 13 124 */
03806 /*:ref: dlansb_ 7 9 13 13 4 4 7 4 7 124 124 */
03807 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03808 /*:ref: dsbtrd_ 14 14 13 13 4 4 7 4 7 7 7 4 7 4 124 124 */
03809 /*:ref: dsterf_ 14 4 4 7 7 4 */
03810 /*:ref: dstedc_ 14 12 13 4 7 7 7 4 7 4 4 4 4 124 */
03811 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
03812 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03813 /*:ref: dscal_ 14 4 4 7 7 4 */
03815 int dsbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
03816 /*:ref: lsame_ 12 4 13 13 124 124 */
03817 /*:ref: xerbla_ 14 3 13 4 124 */
03818 /*:ref: dlamch_ 7 2 13 124 */
03819 /*:ref: dlansb_ 7 9 13 13 4 4 7 4 7 124 124 */
03820 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
03821 /*:ref: dsbtrd_ 14 14 13 13 4 4 7 4 7 7 7 4 7 4 124 124 */
03822 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03823 /*:ref: dsterf_ 14 4 4 7 7 4 */
03824 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03825 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
03826 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
03827 /*:ref: dstein_ 14 13 4 7 7 4 7 4 4 7 4 7 4 4 4 */
03828 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03829 /*:ref: dscal_ 14 4 4 7 7 4 */
03830 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03832 int dsbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info, ftnlen vect_len, ftnlen uplo_len);
03833 /*:ref: lsame_ 12 4 13 13 124 124 */
03834 /*:ref: xerbla_ 14 3 13 4 124 */
03835 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03836 /*:ref: dscal_ 14 4 4 7 7 4 */
03837 /*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
03838 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
03839 /*:ref: dlargv_ 14 7 4 7 4 7 4 7 4 */
03840 /*:ref: dlartv_ 14 8 4 7 4 7 4 7 7 4 */
03841 /*:ref: dlar2v_ 14 8 4 7 7 7 4 7 7 4 */
03842 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
03844 int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen jobz_len, ftnlen uplo_len);
03845 /*:ref: lsame_ 12 4 13 13 124 124 */
03846 /*:ref: xerbla_ 14 3 13 4 124 */
03847 /*:ref: dpbstf_ 14 7 13 4 4 7 4 4 124 */
03848 /*:ref: dsbgst_ 14 15 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 */
03849 /*:ref: dsbtrd_ 14 14 13 13 4 4 7 4 7 7 7 4 7 4 124 124 */
03850 /*:ref: dsterf_ 14 4 4 7 7 4 */
03851 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
03853 int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
03854 /*:ref: lsame_ 12 4 13 13 124 124 */
03855 /*:ref: xerbla_ 14 3 13 4 124 */
03856 /*:ref: dpbstf_ 14 7 13 4 4 7 4 4 124 */
03857 /*:ref: dsbgst_ 14 15 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 */
03858 /*:ref: dsbtrd_ 14 14 13 13 4 4 7 4 7 7 7 4 7 4 124 124 */
03859 /*:ref: dsterf_ 14 4 4 7 7 4 */
03860 /*:ref: dstedc_ 14 12 13 4 7 7 7 4 7 4 4 4 4 124 */
03861 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
03862 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03864 int dsbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
03865 /*:ref: lsame_ 12 4 13 13 124 124 */
03866 /*:ref: xerbla_ 14 3 13 4 124 */
03867 /*:ref: dpbstf_ 14 7 13 4 4 7 4 4 124 */
03868 /*:ref: dsbgst_ 14 15 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 */
03869 /*:ref: dsbtrd_ 14 14 13 13 4 4 7 4 7 7 7 4 7 4 124 124 */
03870 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03871 /*:ref: dsterf_ 14 4 4 7 7 4 */
03872 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03873 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
03874 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
03875 /*:ref: dstein_ 14 13 4 7 7 4 7 4 4 7 4 7 4 4 4 */
03876 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
03877 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03879 int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *d__, doublereal *e, doublereal *q, integer *ldq, doublereal *work, integer *info, ftnlen vect_len, ftnlen uplo_len);
03880 /*:ref: lsame_ 12 4 13 13 124 124 */
03881 /*:ref: xerbla_ 14 3 13 4 124 */
03882 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
03883 /*:ref: dlargv_ 14 7 4 7 4 7 4 7 4 */
03884 /*:ref: dlartv_ 14 8 4 7 4 7 4 7 7 4 */
03885 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
03886 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
03887 /*:ref: dlar2v_ 14 8 4 7 7 7 4 7 7 4 */
03889 doublereal dsecnd_(void);
03890 /*:ref: etime_ 6 1 6 */
03892 int dspcon_(char *uplo, integer *n, doublereal *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len);
03893 /*:ref: lsame_ 12 4 13 13 124 124 */
03894 /*:ref: xerbla_ 14 3 13 4 124 */
03895 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
03896 /*:ref: dsptrs_ 14 9 13 4 4 7 4 7 4 4 124 */
03898 int dspev_(char *jobz, char *uplo, integer *n, doublereal *ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen jobz_len, ftnlen uplo_len);
03899 /*:ref: lsame_ 12 4 13 13 124 124 */
03900 /*:ref: xerbla_ 14 3 13 4 124 */
03901 /*:ref: dlamch_ 7 2 13 124 */
03902 /*:ref: dlansp_ 7 7 13 13 4 7 7 124 124 */
03903 /*:ref: dscal_ 14 4 4 7 7 4 */
03904 /*:ref: dsptrd_ 14 8 13 4 7 7 7 7 4 124 */
03905 /*:ref: dsterf_ 14 4 4 7 7 4 */
03906 /*:ref: dopgtr_ 14 9 13 4 7 7 7 4 7 4 124 */
03907 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
03909 int dspevd_(char *jobz, char *uplo, integer *n, doublereal *ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
03910 /*:ref: lsame_ 12 4 13 13 124 124 */
03911 /*:ref: xerbla_ 14 3 13 4 124 */
03912 /*:ref: dlamch_ 7 2 13 124 */
03913 /*:ref: dlansp_ 7 7 13 13 4 7 7 124 124 */
03914 /*:ref: dscal_ 14 4 4 7 7 4 */
03915 /*:ref: dsptrd_ 14 8 13 4 7 7 7 7 4 124 */
03916 /*:ref: dsterf_ 14 4 4 7 7 4 */
03917 /*:ref: dstedc_ 14 12 13 4 7 7 7 4 7 4 4 4 4 124 */
03918 /*:ref: dopmtr_ 14 14 13 13 13 4 4 7 7 7 4 7 4 124 124 124 */
03920 int dspevx_(char *jobz, char *range, char *uplo, integer *n, doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
03921 /*:ref: lsame_ 12 4 13 13 124 124 */
03922 /*:ref: xerbla_ 14 3 13 4 124 */
03923 /*:ref: dlamch_ 7 2 13 124 */
03924 /*:ref: dlansp_ 7 7 13 13 4 7 7 124 124 */
03925 /*:ref: dscal_ 14 4 4 7 7 4 */
03926 /*:ref: dsptrd_ 14 8 13 4 7 7 7 7 4 124 */
03927 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03928 /*:ref: dsterf_ 14 4 4 7 7 4 */
03929 /*:ref: dopgtr_ 14 9 13 4 7 7 7 4 7 4 124 */
03930 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
03931 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
03932 /*:ref: dstein_ 14 13 4 7 7 4 7 4 4 7 4 7 4 4 4 */
03933 /*:ref: dopmtr_ 14 14 13 13 13 4 4 7 7 7 4 7 4 124 124 124 */
03934 /*:ref: dswap_ 14 5 4 7 4 7 4 */
03936 int dspgst_(integer *itype, char *uplo, integer *n, doublereal *ap, doublereal *bp, integer *info, ftnlen uplo_len);
03937 /*:ref: lsame_ 12 4 13 13 124 124 */
03938 /*:ref: xerbla_ 14 3 13 4 124 */
03939 /*:ref: dtpsv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03940 /*:ref: dspmv_ 14 10 13 4 7 7 7 4 7 7 4 124 */
03941 /*:ref: dscal_ 14 4 4 7 7 4 */
03942 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03943 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03944 /*:ref: dspr2_ 14 9 13 4 7 7 4 7 4 7 124 */
03945 /*:ref: dtpmv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03947 int dspgv_(integer *itype, char *jobz, char *uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen jobz_len, ftnlen uplo_len);
03948 /*:ref: lsame_ 12 4 13 13 124 124 */
03949 /*:ref: xerbla_ 14 3 13 4 124 */
03950 /*:ref: dpptrf_ 14 5 13 4 7 4 124 */
03951 /*:ref: dspgst_ 14 7 4 13 4 7 7 4 124 */
03952 /*:ref: dspev_ 14 11 13 13 4 7 7 7 4 7 4 124 124 */
03953 /*:ref: dtpsv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03954 /*:ref: dtpmv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03956 int dspgvd_(integer *itype, char *jobz, char *uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
03957 /*:ref: lsame_ 12 4 13 13 124 124 */
03958 /*:ref: xerbla_ 14 3 13 4 124 */
03959 /*:ref: dpptrf_ 14 5 13 4 7 4 124 */
03960 /*:ref: dspgst_ 14 7 4 13 4 7 7 4 124 */
03961 /*:ref: dspevd_ 14 14 13 13 4 7 7 7 4 7 4 4 4 4 124 124 */
03962 /*:ref: dtpsv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03963 /*:ref: dtpmv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03965 int dspgvx_(integer *itype, char *jobz, char *range, char *uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
03966 /*:ref: lsame_ 12 4 13 13 124 124 */
03967 /*:ref: xerbla_ 14 3 13 4 124 */
03968 /*:ref: dpptrf_ 14 5 13 4 7 4 124 */
03969 /*:ref: dspgst_ 14 7 4 13 4 7 7 4 124 */
03970 /*:ref: dspevx_ 14 21 13 13 13 4 7 7 7 4 4 7 4 7 7 4 7 4 4 4 124 124 124 */
03971 /*:ref: dtpsv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03972 /*:ref: dtpmv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
03974 int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
03975 /*:ref: lsame_ 12 4 13 13 124 124 */
03976 /*:ref: xerbla_ 14 3 13 4 124 */
03977 /*:ref: dsptrf_ 14 6 13 4 7 4 4 124 */
03978 /*:ref: dsptrs_ 14 9 13 4 4 7 4 7 4 4 124 */
03980 int dspsvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
03981 /*:ref: lsame_ 12 4 13 13 124 124 */
03982 /*:ref: xerbla_ 14 3 13 4 124 */
03983 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
03984 /*:ref: dsptrf_ 14 6 13 4 7 4 4 124 */
03985 /*:ref: dlansp_ 7 7 13 13 4 7 7 124 124 */
03986 /*:ref: dspcon_ 14 10 13 4 7 4 7 7 7 4 4 124 */
03987 /*:ref: dlamch_ 7 2 13 124 */
03988 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
03989 /*:ref: dsptrs_ 14 9 13 4 4 7 4 7 4 4 124 */
03990 /*:ref: dsprfs_ 14 16 13 4 4 7 7 4 7 4 7 4 7 7 7 4 4 124 */
03992 int dsptrd_(char *uplo, integer *n, doublereal *ap, doublereal *d__, doublereal *e, doublereal *tau, integer *info, ftnlen uplo_len);
03993 /*:ref: lsame_ 12 4 13 13 124 124 */
03994 /*:ref: xerbla_ 14 3 13 4 124 */
03995 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
03996 /*:ref: dspmv_ 14 10 13 4 7 7 7 4 7 7 4 124 */
03997 /*:ref: ddot_ 7 5 4 7 4 7 4 */
03998 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
03999 /*:ref: dspr2_ 14 9 13 4 7 7 4 7 4 7 124 */
04001 int dsptri_(char *uplo, integer *n, doublereal *ap, integer *ipiv, doublereal *work, integer *info, ftnlen uplo_len);
04002 /*:ref: lsame_ 12 4 13 13 124 124 */
04003 /*:ref: xerbla_ 14 3 13 4 124 */
04004 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04005 /*:ref: dspmv_ 14 10 13 4 7 7 7 4 7 7 4 124 */
04006 /*:ref: ddot_ 7 5 4 7 4 7 4 */
04007 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04009 int dsptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
04010 /*:ref: lsame_ 12 4 13 13 124 124 */
04011 /*:ref: xerbla_ 14 3 13 4 124 */
04012 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04013 /*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
04014 /*:ref: dscal_ 14 4 4 7 7 4 */
04015 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
04017 int dstebz_(char *range, char *order, integer *n, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, doublereal *d__, doublereal *e, integer *m, integer *nsplit, doublereal *w, integer *iblock, integer *isplit, doublereal *work, integer *iwork, integer *info, ftnlen range_len, ftnlen order_len);
04018 /*:ref: lsame_ 12 4 13 13 124 124 */
04019 /*:ref: xerbla_ 14 3 13 4 124 */
04020 /*:ref: dlamch_ 7 2 13 124 */
04021 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04022 /*:ref: dlaebz_ 14 20 4 4 4 4 4 4 7 7 7 7 7 7 4 7 7 4 4 7 4 4 */
04024 int dstedc_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen compz_len);
04025 /*:ref: lsame_ 12 4 13 13 124 124 */
04026 /*:ref: xerbla_ 14 3 13 4 124 */
04027 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04028 /*:ref: dsterf_ 14 4 4 7 7 4 */
04029 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
04030 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
04031 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
04032 /*:ref: dlamch_ 7 2 13 124 */
04033 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
04034 /*:ref: dlaed0_ 14 12 4 4 4 7 7 7 4 7 4 7 4 4 */
04035 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04036 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
04037 /*:ref: dlasrt_ 14 5 13 4 7 4 124 */
04038 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04040 int dstegr_(char *jobz, char *range, integer *n, doublereal *d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len);
04041 /*:ref: lsame_ 12 4 13 13 124 124 */
04042 /*:ref: xerbla_ 14 3 13 4 124 */
04043 /*:ref: dlamch_ 7 2 13 124 */
04044 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
04045 /*:ref: dscal_ 14 4 4 7 7 4 */
04046 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
04047 /*:ref: dlarre_ 14 12 4 7 7 7 4 4 4 7 7 7 7 4 */
04048 /*:ref: dlarrv_ 14 15 4 7 7 4 4 7 4 7 7 7 4 4 7 4 4 */
04049 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04051 int dstein_(integer *n, doublereal *d__, doublereal *e, integer *m, doublereal *w, integer *iblock, integer *isplit, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info);
04052 /*:ref: xerbla_ 14 3 13 4 124 */
04053 /*:ref: dlamch_ 7 2 13 124 */
04054 /*:ref: dlarnv_ 14 4 4 4 4 7 */
04055 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04056 /*:ref: dlagtf_ 14 9 4 7 7 7 7 7 7 4 4 */
04057 /*:ref: dasum_ 7 3 4 7 4 */
04058 /*:ref: dscal_ 14 4 4 7 7 4 */
04059 /*:ref: dlagts_ 14 10 4 4 7 7 7 7 4 7 7 4 */
04060 /*:ref: ddot_ 7 5 4 7 4 7 4 */
04061 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
04062 /*:ref: idamax_ 4 3 4 7 4 */
04063 /*:ref: dnrm2_ 7 3 4 7 4 */
04065 int dsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len);
04066 /*:ref: lsame_ 12 4 13 13 124 124 */
04067 /*:ref: xerbla_ 14 3 13 4 124 */
04068 /*:ref: dlamch_ 7 2 13 124 */
04069 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
04070 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
04071 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
04072 /*:ref: dlaev2_ 14 7 7 7 7 7 7 7 7 */
04073 /*:ref: dlasr_ 14 12 13 13 13 4 4 7 7 7 4 124 124 124 */
04074 /*:ref: dlae2_ 14 5 7 7 7 7 7 */
04075 /*:ref: dlapy2_ 7 2 7 7 */
04076 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
04077 /*:ref: dlasrt_ 14 5 13 4 7 4 124 */
04078 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04080 int dstev_(char *jobz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen jobz_len);
04081 /*:ref: lsame_ 12 4 13 13 124 124 */
04082 /*:ref: xerbla_ 14 3 13 4 124 */
04083 /*:ref: dlamch_ 7 2 13 124 */
04084 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
04085 /*:ref: dscal_ 14 4 4 7 7 4 */
04086 /*:ref: dsterf_ 14 4 4 7 7 4 */
04087 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
04089 int dstevd_(char *jobz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len);
04090 /*:ref: lsame_ 12 4 13 13 124 124 */
04091 /*:ref: xerbla_ 14 3 13 4 124 */
04092 /*:ref: dlamch_ 7 2 13 124 */
04093 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
04094 /*:ref: dscal_ 14 4 4 7 7 4 */
04095 /*:ref: dsterf_ 14 4 4 7 7 4 */
04096 /*:ref: dstedc_ 14 12 13 4 7 7 7 4 7 4 4 4 4 124 */
04098 int dstevr_(char *jobz, char *range, integer *n, doublereal *d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len);
04099 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04100 /*:ref: lsame_ 12 4 13 13 124 124 */
04101 /*:ref: xerbla_ 14 3 13 4 124 */
04102 /*:ref: dlamch_ 7 2 13 124 */
04103 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
04104 /*:ref: dscal_ 14 4 4 7 7 4 */
04105 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04106 /*:ref: dsterf_ 14 4 4 7 7 4 */
04107 /*:ref: dstegr_ 14 22 13 13 4 7 7 7 7 4 4 7 4 7 7 4 4 7 4 4 4 4 124 124 */
04108 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
04109 /*:ref: dstein_ 14 13 4 7 7 4 7 4 4 7 4 7 4 4 4 */
04110 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04112 int dstevx_(char *jobz, char *range, integer *n, doublereal *d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len);
04113 /*:ref: lsame_ 12 4 13 13 124 124 */
04114 /*:ref: xerbla_ 14 3 13 4 124 */
04115 /*:ref: dlamch_ 7 2 13 124 */
04116 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
04117 /*:ref: dscal_ 14 4 4 7 7 4 */
04118 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04119 /*:ref: dsterf_ 14 4 4 7 7 4 */
04120 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
04121 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
04122 /*:ref: dstein_ 14 13 4 7 7 4 7 4 4 7 4 7 4 4 4 */
04123 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04125 int dsycon_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len);
04126 /*:ref: lsame_ 12 4 13 13 124 124 */
04127 /*:ref: xerbla_ 14 3 13 4 124 */
04128 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
04129 /*:ref: dsytrs_ 14 10 13 4 4 7 4 4 7 4 4 124 */
04131 int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *w, doublereal *work, integer *lwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
04132 /*:ref: lsame_ 12 4 13 13 124 124 */
04133 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04134 /*:ref: xerbla_ 14 3 13 4 124 */
04135 /*:ref: dlamch_ 7 2 13 124 */
04136 /*:ref: dlansy_ 7 8 13 13 4 7 4 7 124 124 */
04137 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
04138 /*:ref: dsytrd_ 14 11 13 4 7 4 7 7 7 7 4 4 124 */
04139 /*:ref: dsterf_ 14 4 4 7 7 4 */
04140 /*:ref: dorgtr_ 14 9 13 4 7 4 7 7 4 4 124 */
04141 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
04142 /*:ref: dscal_ 14 4 4 7 7 4 */
04144 int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *w, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
04145 /*:ref: lsame_ 12 4 13 13 124 124 */
04146 /*:ref: xerbla_ 14 3 13 4 124 */
04147 /*:ref: dlamch_ 7 2 13 124 */
04148 /*:ref: dlansy_ 7 8 13 13 4 7 4 7 124 124 */
04149 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
04150 /*:ref: dsytrd_ 14 11 13 4 7 4 7 7 7 7 4 4 124 */
04151 /*:ref: dsterf_ 14 4 4 7 7 4 */
04152 /*:ref: dstedc_ 14 12 13 4 7 7 7 4 7 4 4 4 4 124 */
04153 /*:ref: dormtr_ 14 16 13 13 13 4 4 7 4 7 7 4 7 4 4 124 124 124 */
04154 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04155 /*:ref: dscal_ 14 4 4 7 7 4 */
04157 int dsyevr_(char *jobz, char *range, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, integer *isuppz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
04158 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04159 /*:ref: lsame_ 12 4 13 13 124 124 */
04160 /*:ref: xerbla_ 14 3 13 4 124 */
04161 /*:ref: dlamch_ 7 2 13 124 */
04162 /*:ref: dlansy_ 7 8 13 13 4 7 4 7 124 124 */
04163 /*:ref: dscal_ 14 4 4 7 7 4 */
04164 /*:ref: dsytrd_ 14 11 13 4 7 4 7 7 7 7 4 4 124 */
04165 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04166 /*:ref: dsterf_ 14 4 4 7 7 4 */
04167 /*:ref: dstegr_ 14 22 13 13 4 7 7 7 7 4 4 7 4 7 7 4 4 7 4 4 4 4 124 124 */
04168 /*:ref: dormtr_ 14 16 13 13 13 4 4 7 4 7 7 4 7 4 4 124 124 124 */
04169 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
04170 /*:ref: dstein_ 14 13 4 7 7 4 7 4 4 7 4 7 4 4 4 */
04171 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04173 int dsyevx_(char *jobz, char *range, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
04174 /*:ref: lsame_ 12 4 13 13 124 124 */
04175 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04176 /*:ref: xerbla_ 14 3 13 4 124 */
04177 /*:ref: dlamch_ 7 2 13 124 */
04178 /*:ref: dlansy_ 7 8 13 13 4 7 4 7 124 124 */
04179 /*:ref: dscal_ 14 4 4 7 7 4 */
04180 /*:ref: dsytrd_ 14 11 13 4 7 4 7 7 7 7 4 4 124 */
04181 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04182 /*:ref: dsterf_ 14 4 4 7 7 4 */
04183 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04184 /*:ref: dorgtr_ 14 9 13 4 7 4 7 7 4 4 124 */
04185 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
04186 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
04187 /*:ref: dstein_ 14 13 4 7 7 4 7 4 4 7 4 7 4 4 4 */
04188 /*:ref: dormtr_ 14 16 13 13 13 4 4 7 4 7 7 4 7 4 4 124 124 124 */
04189 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04191 int dsygs2_(integer *itype, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
04192 /*:ref: lsame_ 12 4 13 13 124 124 */
04193 /*:ref: xerbla_ 14 3 13 4 124 */
04194 /*:ref: dscal_ 14 4 4 7 7 4 */
04195 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
04196 /*:ref: dsyr2_ 14 10 13 4 7 7 4 7 4 7 4 124 */
04197 /*:ref: dtrsv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
04198 /*:ref: dtrmv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
04200 int dsygst_(integer *itype, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
04201 /*:ref: lsame_ 12 4 13 13 124 124 */
04202 /*:ref: xerbla_ 14 3 13 4 124 */
04203 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04204 /*:ref: dsygs2_ 14 9 4 13 4 7 4 7 4 4 124 */
04205 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04206 /*:ref: dsymm_ 14 14 13 13 4 4 7 7 4 7 4 7 7 4 124 124 */
04207 /*:ref: dsyr2k_ 14 14 13 13 4 4 7 7 4 7 4 7 7 4 124 124 */
04208 /*:ref: dtrmm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04210 int dsygv_(integer *itype, char *jobz, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *w, doublereal *work, integer *lwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
04211 /*:ref: lsame_ 12 4 13 13 124 124 */
04212 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04213 /*:ref: xerbla_ 14 3 13 4 124 */
04214 /*:ref: dpotrf_ 14 6 13 4 7 4 4 124 */
04215 /*:ref: dsygst_ 14 9 4 13 4 7 4 7 4 4 124 */
04216 /*:ref: dsyev_ 14 11 13 13 4 7 4 7 7 4 4 124 124 */
04217 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04218 /*:ref: dtrmm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04220 int dsygvd_(integer *itype, char *jobz, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *w, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
04221 /*:ref: lsame_ 12 4 13 13 124 124 */
04222 /*:ref: xerbla_ 14 3 13 4 124 */
04223 /*:ref: dpotrf_ 14 6 13 4 7 4 4 124 */
04224 /*:ref: dsygst_ 14 9 4 13 4 7 4 7 4 4 124 */
04225 /*:ref: dsyevd_ 14 13 13 13 4 7 4 7 7 4 4 4 4 124 124 */
04226 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04227 /*:ref: dtrmm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04229 int dsygvx_(integer *itype, char *jobz, char *range, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work, integer *lwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
04230 /*:ref: lsame_ 12 4 13 13 124 124 */
04231 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04232 /*:ref: xerbla_ 14 3 13 4 124 */
04233 /*:ref: dpotrf_ 14 6 13 4 7 4 4 124 */
04234 /*:ref: dsygst_ 14 9 4 13 4 7 4 7 4 4 124 */
04235 /*:ref: dsyevx_ 14 23 13 13 13 4 7 4 7 7 4 4 7 4 7 7 4 7 4 4 4 4 124 124 124 */
04236 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04237 /*:ref: dtrmm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04239 int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *work, integer *lwork, integer *info, ftnlen uplo_len);
04240 /*:ref: lsame_ 12 4 13 13 124 124 */
04241 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04242 /*:ref: xerbla_ 14 3 13 4 124 */
04243 /*:ref: dsytrf_ 14 9 13 4 7 4 4 7 4 4 124 */
04244 /*:ref: dsytrs_ 14 10 13 4 4 7 4 4 7 4 4 124 */
04246 int dsysvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *lwork, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
04247 /*:ref: lsame_ 12 4 13 13 124 124 */
04248 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04249 /*:ref: xerbla_ 14 3 13 4 124 */
04250 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04251 /*:ref: dsytrf_ 14 9 13 4 7 4 4 7 4 4 124 */
04252 /*:ref: dlansy_ 7 8 13 13 4 7 4 7 124 124 */
04253 /*:ref: dsycon_ 14 11 13 4 7 4 4 7 7 7 4 4 124 */
04254 /*:ref: dlamch_ 7 2 13 124 */
04255 /*:ref: dsytrs_ 14 10 13 4 4 7 4 4 7 4 4 124 */
04256 /*:ref: dsyrfs_ 14 18 13 4 4 7 4 7 4 4 7 4 7 4 7 7 7 4 4 124 */
04258 int dsytd2_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info, ftnlen uplo_len);
04259 /*:ref: lsame_ 12 4 13 13 124 124 */
04260 /*:ref: xerbla_ 14 3 13 4 124 */
04261 /*:ref: dlarfg_ 14 5 4 7 7 4 7 */
04262 /*:ref: dsymv_ 14 11 13 4 7 7 4 7 4 7 7 4 124 */
04263 /*:ref: ddot_ 7 5 4 7 4 7 4 */
04264 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
04265 /*:ref: dsyr2_ 14 10 13 4 7 7 4 7 4 7 4 124 */
04267 int dsytrd_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *work, integer *lwork, integer *info, ftnlen uplo_len);
04268 /*:ref: lsame_ 12 4 13 13 124 124 */
04269 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04270 /*:ref: xerbla_ 14 3 13 4 124 */
04271 /*:ref: dlatrd_ 14 10 13 4 4 7 4 7 7 7 4 124 */
04272 /*:ref: dsyr2k_ 14 14 13 13 4 4 7 7 4 7 4 7 7 4 124 124 */
04273 /*:ref: dsytd2_ 14 9 13 4 7 4 7 7 7 4 124 */
04275 int dsytri_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *info, ftnlen uplo_len);
04276 /*:ref: lsame_ 12 4 13 13 124 124 */
04277 /*:ref: xerbla_ 14 3 13 4 124 */
04278 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04279 /*:ref: dsymv_ 14 11 13 4 7 7 4 7 4 7 7 4 124 */
04280 /*:ref: ddot_ 7 5 4 7 4 7 4 */
04281 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04283 int dsytrs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
04284 /*:ref: lsame_ 12 4 13 13 124 124 */
04285 /*:ref: xerbla_ 14 3 13 4 124 */
04286 /*:ref: dswap_ 14 5 4 7 4 7 4 */
04287 /*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
04288 /*:ref: dscal_ 14 4 4 7 7 4 */
04289 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
04291 int dtbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
04292 /*:ref: lsame_ 12 4 13 13 124 124 */
04293 /*:ref: xerbla_ 14 3 13 4 124 */
04294 /*:ref: dlamch_ 7 2 13 124 */
04295 /*:ref: dlantb_ 7 11 13 13 13 4 4 7 4 7 124 124 124 */
04296 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
04297 /*:ref: dlatbs_ 14 16 13 13 13 13 4 4 7 4 7 7 7 4 124 124 124 124 */
04298 /*:ref: idamax_ 4 3 4 7 4 */
04299 /*:ref: drscl_ 14 4 4 7 7 4 */
04301 int dtbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
04302 /*:ref: lsame_ 12 4 13 13 124 124 */
04303 /*:ref: xerbla_ 14 3 13 4 124 */
04304 /*:ref: dtbsv_ 14 12 13 13 13 4 4 7 4 7 4 124 124 124 */
04306 int dtgevc_(char *side, char *howmny, logical *select, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, doublereal *work, integer *info, ftnlen side_len, ftnlen howmny_len);
04307 /*:ref: lsame_ 12 4 13 13 124 124 */
04308 /*:ref: xerbla_ 14 3 13 4 124 */
04309 /*:ref: dlamch_ 7 2 13 124 */
04310 /*:ref: dlabad_ 14 2 7 7 */
04311 /*:ref: dlag2_ 14 10 7 4 7 4 7 7 7 7 7 7 */
04312 /*:ref: dlaln2_ 14 18 12 4 4 7 7 7 4 7 7 7 4 7 7 7 4 7 7 4 */
04313 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
04314 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04316 int dtgex2_(logical *wantq, logical *wantz, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *n1, integer *n2, doublereal *work, integer *lwork, integer *info);
04317 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04318 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04319 /*:ref: dlamch_ 7 2 13 124 */
04320 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
04321 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
04322 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
04323 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
04324 /*:ref: dtgsy2_ 14 23 13 4 4 4 7 4 7 4 7 4 7 4 7 4 7 4 7 7 7 4 4 4 124 */
04325 /*:ref: dscal_ 14 4 4 7 7 4 */
04326 /*:ref: dgeqr2_ 14 7 4 4 7 4 7 7 4 */
04327 /*:ref: dorg2r_ 14 8 4 4 4 7 4 7 7 4 */
04328 /*:ref: dgerq2_ 14 7 4 4 7 4 7 7 4 */
04329 /*:ref: dorgr2_ 14 8 4 4 4 7 4 7 7 4 */
04330 /*:ref: dormr2_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
04331 /*:ref: dorm2r_ 14 14 13 13 4 4 4 7 4 7 7 4 7 4 124 124 */
04332 /*:ref: dlagv2_ 14 11 7 4 7 4 7 7 7 7 7 7 7 */
04334 int dtgexc_(logical *wantq, logical *wantz, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst, integer *ilst, doublereal *work, integer *lwork, integer *info);
04335 /*:ref: xerbla_ 14 3 13 4 124 */
04336 /*:ref: dtgex2_ 14 17 12 12 4 7 4 7 4 7 4 7 4 4 4 4 7 4 4 */
04338 int dtgsen_(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info);
04339 /*:ref: xerbla_ 14 3 13 4 124 */
04340 /*:ref: dlamch_ 7 2 13 124 */
04341 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
04342 /*:ref: dtgexc_ 14 16 12 12 4 7 4 7 4 7 4 7 4 4 4 7 4 4 */
04343 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04344 /*:ref: dtgsyl_ 14 23 13 4 4 4 7 4 7 4 7 4 7 4 7 4 7 4 7 7 7 4 4 4 124 */
04345 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
04346 /*:ref: dlag2_ 14 10 7 4 7 4 7 7 7 7 7 7 */
04348 int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *tola, doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *ldq, doublereal *work, integer *ncycle, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
04349 /*:ref: lsame_ 12 4 13 13 124 124 */
04350 /*:ref: xerbla_ 14 3 13 4 124 */
04351 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
04352 /*:ref: dlags2_ 14 13 12 7 7 7 7 7 7 7 7 7 7 7 7 */
04353 /*:ref: drot_ 14 7 4 7 4 7 4 7 7 */
04354 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04355 /*:ref: dlapll_ 14 6 4 7 4 7 4 7 */
04356 /*:ref: dscal_ 14 4 4 7 7 4 */
04357 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
04359 int dtgsna_(char *job, char *howmny, logical *select, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *work, integer *lwork, integer *iwork, integer *info, ftnlen job_len, ftnlen howmny_len);
04360 /*:ref: lsame_ 12 4 13 13 124 124 */
04361 /*:ref: xerbla_ 14 3 13 4 124 */
04362 /*:ref: dlamch_ 7 2 13 124 */
04363 /*:ref: dnrm2_ 7 3 4 7 4 */
04364 /*:ref: dlapy2_ 7 2 7 7 */
04365 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
04366 /*:ref: ddot_ 7 5 4 7 4 7 4 */
04367 /*:ref: dlag2_ 14 10 7 4 7 4 7 7 7 7 7 7 */
04368 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04369 /*:ref: dtgexc_ 14 16 12 12 4 7 4 7 4 7 4 7 4 4 4 7 4 4 */
04370 /*:ref: dtgsyl_ 14 23 13 4 4 4 7 4 7 4 7 4 7 4 7 4 7 4 7 7 7 4 4 4 124 */
04372 int dtgsy2_(char *trans, integer *ijob, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer *pq, integer *info, ftnlen trans_len);
04373 /*:ref: lsame_ 12 4 13 13 124 124 */
04374 /*:ref: xerbla_ 14 3 13 4 124 */
04375 /*:ref: dgetc2_ 14 6 4 7 4 4 4 4 */
04376 /*:ref: dgesc2_ 14 7 4 7 4 7 4 4 7 */
04377 /*:ref: dscal_ 14 4 4 7 7 4 */
04378 /*:ref: dlatdf_ 14 9 4 4 7 4 7 7 7 4 4 */
04379 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
04380 /*:ref: dger_ 14 9 4 4 7 7 4 7 4 7 4 */
04381 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
04382 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04383 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
04385 int dtgsyl_(char *trans, integer *ijob, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, integer *ldc, doublereal *d__, integer *ldd, doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *scale, doublereal *dif, doublereal *work, integer *lwork, integer *iwork, integer *info, ftnlen trans_len);
04386 /*:ref: lsame_ 12 4 13 13 124 124 */
04387 /*:ref: xerbla_ 14 3 13 4 124 */
04388 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04389 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04390 /*:ref: dtgsy2_ 14 23 13 4 4 4 7 4 7 4 7 4 7 4 7 4 7 4 7 7 7 4 4 4 124 */
04391 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04392 /*:ref: dscal_ 14 4 4 7 7 4 */
04393 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
04395 int dtpcon_(char *norm, char *uplo, char *diag, integer *n, doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
04396 /*:ref: lsame_ 12 4 13 13 124 124 */
04397 /*:ref: xerbla_ 14 3 13 4 124 */
04398 /*:ref: dlamch_ 7 2 13 124 */
04399 /*:ref: dlantp_ 7 9 13 13 13 4 7 7 124 124 124 */
04400 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
04401 /*:ref: dlatps_ 14 14 13 13 13 13 4 7 7 7 7 4 124 124 124 124 */
04402 /*:ref: idamax_ 4 3 4 7 4 */
04403 /*:ref: drscl_ 14 4 4 7 7 4 */
04405 int dtptri_(char *uplo, char *diag, integer *n, doublereal *ap, integer *info, ftnlen uplo_len, ftnlen diag_len);
04406 /*:ref: lsame_ 12 4 13 13 124 124 */
04407 /*:ref: xerbla_ 14 3 13 4 124 */
04408 /*:ref: dtpmv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
04409 /*:ref: dscal_ 14 4 4 7 7 4 */
04411 int dtptrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
04412 /*:ref: lsame_ 12 4 13 13 124 124 */
04413 /*:ref: xerbla_ 14 3 13 4 124 */
04414 /*:ref: dtpsv_ 14 10 13 13 13 4 7 7 4 124 124 124 */
04416 int dtrcon_(char *norm, char *uplo, char *diag, integer *n, doublereal *a, integer *lda, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
04417 /*:ref: lsame_ 12 4 13 13 124 124 */
04418 /*:ref: xerbla_ 14 3 13 4 124 */
04419 /*:ref: dlamch_ 7 2 13 124 */
04420 /*:ref: dlantr_ 7 11 13 13 13 4 4 7 4 7 124 124 124 */
04421 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
04422 /*:ref: dlatrs_ 14 15 13 13 13 13 4 7 4 7 7 7 4 124 124 124 124 */
04423 /*:ref: idamax_ 4 3 4 7 4 */
04424 /*:ref: drscl_ 14 4 4 7 7 4 */
04426 int dtrevc_(char *side, char *howmny, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m, doublereal *work, integer *info, ftnlen side_len, ftnlen howmny_len);
04427 /*:ref: lsame_ 12 4 13 13 124 124 */
04428 /*:ref: xerbla_ 14 3 13 4 124 */
04429 /*:ref: dlamch_ 7 2 13 124 */
04430 /*:ref: dlabad_ 14 2 7 7 */
04431 /*:ref: dlaln2_ 14 18 12 4 4 7 7 7 4 7 7 7 4 7 7 7 4 7 7 4 */
04432 /*:ref: dscal_ 14 4 4 7 7 4 */
04433 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
04434 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
04435 /*:ref: idamax_ 4 3 4 7 4 */
04436 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
04437 /*:ref: ddot_ 7 5 4 7 4 7 4 */
04439 int dtrexc_(char *compq, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst, doublereal *work, integer *info, ftnlen compq_len);
04440 /*:ref: lsame_ 12 4 13 13 124 124 */
04441 /*:ref: xerbla_ 14 3 13 4 124 */
04442 /*:ref: dlaexc_ 14 11 12 4 7 4 7 4 4 4 4 7 4 */
04444 int dtrsen_(char *job, char *compq, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal *sep, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen job_len, ftnlen compq_len);
04445 /*:ref: lsame_ 12 4 13 13 124 124 */
04446 /*:ref: xerbla_ 14 3 13 4 124 */
04447 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
04448 /*:ref: dtrexc_ 14 11 13 4 7 4 7 4 4 4 7 4 124 */
04449 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04450 /*:ref: dtrsyl_ 14 15 13 13 4 4 4 7 4 7 4 7 4 7 4 124 124 */
04451 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
04453 int dtrsna_(char *job, char *howmny, logical *select, integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep, integer *mm, integer *m, doublereal *work, integer *ldwork, integer *iwork, integer *info, ftnlen job_len, ftnlen howmny_len);
04454 /*:ref: lsame_ 12 4 13 13 124 124 */
04455 /*:ref: xerbla_ 14 3 13 4 124 */
04456 /*:ref: dlamch_ 7 2 13 124 */
04457 /*:ref: dlabad_ 14 2 7 7 */
04458 /*:ref: ddot_ 7 5 4 7 4 7 4 */
04459 /*:ref: dnrm2_ 7 3 4 7 4 */
04460 /*:ref: dlapy2_ 7 2 7 7 */
04461 /*:ref: dlacpy_ 14 8 13 4 4 7 4 7 4 124 */
04462 /*:ref: dtrexc_ 14 11 13 4 7 4 7 4 4 4 7 4 124 */
04463 /*:ref: dlacon_ 14 6 4 7 7 4 7 4 */
04464 /*:ref: dlaqtr_ 14 11 12 12 4 7 4 7 7 7 7 7 4 */
04466 int dtrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);
04467 /*:ref: lsame_ 12 4 13 13 124 124 */
04468 /*:ref: xerbla_ 14 3 13 4 124 */
04469 /*:ref: dlamch_ 7 2 13 124 */
04470 /*:ref: dlabad_ 14 2 7 7 */
04471 /*:ref: dlange_ 7 7 13 4 4 7 4 7 124 */
04472 /*:ref: ddot_ 7 5 4 7 4 7 4 */
04473 /*:ref: dscal_ 14 4 4 7 7 4 */
04474 /*:ref: dlaln2_ 14 18 12 4 4 7 7 7 4 7 7 7 4 7 7 7 4 7 7 4 */
04475 /*:ref: dlasy2_ 14 16 12 12 4 4 4 7 4 7 4 7 4 7 7 4 7 4 */
04477 int dtrti2_(char *uplo, char *diag, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len);
04478 /*:ref: lsame_ 12 4 13 13 124 124 */
04479 /*:ref: xerbla_ 14 3 13 4 124 */
04480 /*:ref: dtrmv_ 14 11 13 13 13 4 7 4 7 4 124 124 124 */
04481 /*:ref: dscal_ 14 4 4 7 7 4 */
04483 int dtrtri_(char *uplo, char *diag, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len);
04484 /*:ref: lsame_ 12 4 13 13 124 124 */
04485 /*:ref: xerbla_ 14 3 13 4 124 */
04486 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04487 /*:ref: dtrti2_ 14 8 13 13 4 7 4 4 124 124 */
04488 /*:ref: dtrmm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04489 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04491 int dtrtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
04492 /*:ref: lsame_ 12 4 13 13 124 124 */
04493 /*:ref: xerbla_ 14 3 13 4 124 */
04494 /*:ref: dtrsm_ 14 15 13 13 13 13 4 4 7 7 4 7 4 124 124 124 124 */
04496 doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx);
04498 integer icmax1_(integer *n, complex *cx, integer *incx);
04500 integer ieeeck_(integer *ispec, real *zero, real *one);
04502 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen opts_len);
04503 /*:ref: ieeeck_ 4 3 4 6 6 */
04505 integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
04507 logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len);
04509 logical lsamen_(integer *n, char *ca, char *cb, ftnlen ca_len, ftnlen cb_len);
04510 /*:ref: lsame_ 12 4 13 13 124 124 */
04512 int sbdsdc_(char *uplo, char *compq, integer *n, real *d__, real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q, integer *iq, real *work, integer *iwork, integer *info, ftnlen uplo_len, ftnlen compq_len);
04513 /*:ref: lsame_ 12 4 13 13 124 124 */
04514 /*:ref: xerbla_ 14 3 13 4 124 */
04515 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04516 /*:ref: scopy_ 14 5 4 6 4 6 4 */
04517 /*:ref: slartg_ 14 5 6 6 6 6 6 */
04518 /*:ref: slasdq_ 14 17 13 4 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
04519 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04520 /*:ref: slanst_ 6 5 13 4 6 6 124 */
04521 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04522 /*:ref: slamch_ 6 2 13 124 */
04523 /*:ref: slasd0_ 14 12 4 4 6 6 6 4 6 4 4 4 6 4 */
04524 /*:ref: slasda_ 14 24 4 4 4 4 6 6 6 4 6 4 6 6 6 6 4 4 4 4 6 6 6 6 4 4 */
04525 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04526 /*:ref: slasr_ 14 12 13 13 13 4 4 6 6 6 4 124 124 124 */
04528 int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *work, integer *info, ftnlen uplo_len);
04529 /*:ref: lsame_ 12 4 13 13 124 124 */
04530 /*:ref: xerbla_ 14 3 13 4 124 */
04531 /*:ref: slasq1_ 14 5 4 6 6 6 4 */
04532 /*:ref: slamch_ 6 2 13 124 */
04533 /*:ref: slartg_ 14 5 6 6 6 6 6 */
04534 /*:ref: slasr_ 14 12 13 13 13 4 4 6 6 6 4 124 124 124 */
04535 /*:ref: slasv2_ 14 9 6 6 6 6 6 6 6 6 6 */
04536 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
04537 /*:ref: slas2_ 14 5 6 6 6 6 6 */
04538 /*:ref: sscal_ 14 4 4 6 6 4 */
04539 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04541 E_f scsum1_(integer *n, complex *cx, integer *incx);
04543 int sdisna_(char *job, integer *m, integer *n, real *d__, real *sep, integer *info, ftnlen job_len);
04544 /*:ref: lsame_ 12 4 13 13 124 124 */
04545 /*:ref: xerbla_ 14 3 13 4 124 */
04546 /*:ref: slamch_ 6 2 13 124 */
04548 E_f second_(void);
04549 /*:ref: etime_ 6 1 6 */
04551 int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer *ldc, real *work, integer *info, ftnlen vect_len);
04552 /*:ref: lsame_ 12 4 13 13 124 124 */
04553 /*:ref: xerbla_ 14 3 13 4 124 */
04554 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04555 /*:ref: slargv_ 14 7 4 6 4 6 4 6 4 */
04556 /*:ref: slartv_ 14 8 4 6 4 6 4 6 6 4 */
04557 /*:ref: slartg_ 14 5 6 6 6 6 6 */
04558 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
04560 int sgbcon_(char *norm, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen norm_len);
04561 /*:ref: lsame_ 12 4 13 13 124 124 */
04562 /*:ref: xerbla_ 14 3 13 4 124 */
04563 /*:ref: slamch_ 6 2 13 124 */
04564 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
04565 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
04566 /*:ref: slatbs_ 14 16 13 13 13 13 4 4 6 4 6 6 6 4 124 124 124 124 */
04567 /*:ref: sdot_ 6 5 4 6 4 6 4 */
04568 /*:ref: isamax_ 4 3 4 6 4 */
04569 /*:ref: srscl_ 14 4 4 6 6 4 */
04571 int sgbequ_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info);
04572 /*:ref: xerbla_ 14 3 13 4 124 */
04573 /*:ref: slamch_ 6 2 13 124 */
04575 int sgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, integer *info);
04576 /*:ref: xerbla_ 14 3 13 4 124 */
04577 /*:ref: sgbtrf_ 14 8 4 4 4 4 6 4 4 4 */
04578 /*:ref: sgbtrs_ 14 12 13 4 4 4 4 6 4 4 6 4 4 124 */
04580 int sgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
04581 /*:ref: lsame_ 12 4 13 13 124 124 */
04582 /*:ref: slamch_ 6 2 13 124 */
04583 /*:ref: xerbla_ 14 3 13 4 124 */
04584 /*:ref: sgbequ_ 14 12 4 4 4 4 6 4 6 6 6 6 6 4 */
04585 /*:ref: slaqgb_ 14 13 4 4 4 4 6 4 6 6 6 6 6 13 124 */
04586 /*:ref: scopy_ 14 5 4 6 4 6 4 */
04587 /*:ref: sgbtrf_ 14 8 4 4 4 4 6 4 4 4 */
04588 /*:ref: slantb_ 6 11 13 13 13 4 4 6 4 6 124 124 124 */
04589 /*:ref: slangb_ 6 8 13 4 4 4 6 4 6 124 */
04590 /*:ref: sgbcon_ 14 13 13 4 4 4 6 4 4 6 6 6 4 4 124 */
04591 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04592 /*:ref: sgbtrs_ 14 12 13 4 4 4 4 6 4 4 6 4 4 124 */
04593 /*:ref: sgbrfs_ 14 20 13 4 4 4 4 6 4 6 4 4 6 4 6 4 6 6 6 4 4 124 */
04595 int sgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen trans_len);
04596 /*:ref: lsame_ 12 4 13 13 124 124 */
04597 /*:ref: xerbla_ 14 3 13 4 124 */
04598 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04599 /*:ref: sger_ 14 9 4 4 6 6 4 6 4 6 4 */
04600 /*:ref: stbsv_ 14 12 13 13 13 4 4 6 4 6 4 124 124 124 */
04601 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
04603 int sgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer *info, ftnlen job_len, ftnlen side_len);
04604 /*:ref: lsame_ 12 4 13 13 124 124 */
04605 /*:ref: xerbla_ 14 3 13 4 124 */
04606 /*:ref: sscal_ 14 4 4 6 6 4 */
04607 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04609 int sgebal_(char *job, integer *n, real *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info, ftnlen job_len);
04610 /*:ref: lsame_ 12 4 13 13 124 124 */
04611 /*:ref: xerbla_ 14 3 13 4 124 */
04612 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04613 /*:ref: slamch_ 6 2 13 124 */
04614 /*:ref: isamax_ 4 3 4 6 4 */
04615 /*:ref: sscal_ 14 4 4 6 6 4 */
04617 int sgebd2_(integer *m, integer *n, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *work, integer *info);
04618 /*:ref: xerbla_ 14 3 13 4 124 */
04619 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
04620 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
04622 int sgebrd_(integer *m, integer *n, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *work, integer *lwork, integer *info);
04623 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04624 /*:ref: xerbla_ 14 3 13 4 124 */
04625 /*:ref: slabrd_ 14 13 4 4 4 6 4 6 6 6 6 6 4 6 4 */
04626 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
04627 /*:ref: sgebd2_ 14 10 4 4 6 4 6 6 6 6 6 4 */
04629 int sgecon_(char *norm, integer *n, real *a, integer *lda, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen norm_len);
04630 /*:ref: lsame_ 12 4 13 13 124 124 */
04631 /*:ref: xerbla_ 14 3 13 4 124 */
04632 /*:ref: slamch_ 6 2 13 124 */
04633 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
04634 /*:ref: slatrs_ 14 15 13 13 13 13 4 6 4 6 6 6 4 124 124 124 124 */
04635 /*:ref: isamax_ 4 3 4 6 4 */
04636 /*:ref: srscl_ 14 4 4 6 6 4 */
04638 int sgeequ_(integer *m, integer *n, real *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info);
04639 /*:ref: xerbla_ 14 3 13 4 124 */
04640 /*:ref: slamch_ 6 2 13 124 */
04642 int sgees_(char *jobvs, char *sort, L_fp select, integer *n, real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs, integer *ldvs, real *work, integer *lwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len);
04643 /*:ref: lsame_ 12 4 13 13 124 124 */
04644 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04645 /*:ref: xerbla_ 14 3 13 4 124 */
04646 /*:ref: slamch_ 6 2 13 124 */
04647 /*:ref: slabad_ 14 2 6 6 */
04648 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04649 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04650 /*:ref: sgebal_ 14 9 13 4 6 4 4 4 6 4 124 */
04651 /*:ref: sgehrd_ 14 9 4 4 4 6 4 6 6 4 4 */
04652 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04653 /*:ref: sorghr_ 14 9 4 4 4 6 4 6 6 4 4 */
04654 /*:ref: shseqr_ 14 16 13 13 4 4 4 6 4 6 6 6 4 6 4 4 124 124 */
04655 /*:ref: strsen_ 14 20 13 13 12 4 6 4 6 4 6 6 4 6 6 6 4 4 4 4 124 124 */
04656 /*:ref: sgebak_ 14 12 13 13 4 4 4 6 4 6 4 4 124 124 */
04657 /*:ref: scopy_ 14 5 4 6 4 6 4 */
04658 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04660 int sgeesx_(char *jobvs, char *sort, L_fp select, char *sense, integer *n, real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *work, integer *lwork, integer *iwork, integer *liwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len, ftnlen sense_len);
04661 /*:ref: lsame_ 12 4 13 13 124 124 */
04662 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04663 /*:ref: xerbla_ 14 3 13 4 124 */
04664 /*:ref: slamch_ 6 2 13 124 */
04665 /*:ref: slabad_ 14 2 6 6 */
04666 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04667 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04668 /*:ref: sgebal_ 14 9 13 4 6 4 4 4 6 4 124 */
04669 /*:ref: sgehrd_ 14 9 4 4 4 6 4 6 6 4 4 */
04670 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04671 /*:ref: sorghr_ 14 9 4 4 4 6 4 6 6 4 4 */
04672 /*:ref: shseqr_ 14 16 13 13 4 4 4 6 4 6 6 6 4 6 4 4 124 124 */
04673 /*:ref: strsen_ 14 20 13 13 12 4 6 4 6 4 6 6 4 6 6 6 4 4 4 4 124 124 */
04674 /*:ref: sgebak_ 14 12 13 13 4 4 4 6 4 6 4 4 124 124 */
04675 /*:ref: scopy_ 14 5 4 6 4 6 4 */
04676 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04678 int sgeev_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, integer *lwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
04679 /*:ref: lsame_ 12 4 13 13 124 124 */
04680 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04681 /*:ref: xerbla_ 14 3 13 4 124 */
04682 /*:ref: slamch_ 6 2 13 124 */
04683 /*:ref: slabad_ 14 2 6 6 */
04684 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04685 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04686 /*:ref: sgebal_ 14 9 13 4 6 4 4 4 6 4 124 */
04687 /*:ref: sgehrd_ 14 9 4 4 4 6 4 6 6 4 4 */
04688 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04689 /*:ref: sorghr_ 14 9 4 4 4 6 4 6 6 4 4 */
04690 /*:ref: shseqr_ 14 16 13 13 4 4 4 6 4 6 6 6 4 6 4 4 124 124 */
04691 /*:ref: strevc_ 14 16 13 13 12 4 6 4 6 4 6 4 4 4 6 4 124 124 */
04692 /*:ref: sgebak_ 14 12 13 13 4 4 4 6 4 6 4 4 124 124 */
04693 /*:ref: snrm2_ 6 3 4 6 4 */
04694 /*:ref: sscal_ 14 4 4 6 6 4 */
04695 /*:ref: slapy2_ 6 2 6 6 */
04696 /*:ref: isamax_ 4 3 4 6 4 */
04697 /*:ref: slartg_ 14 5 6 6 6 6 6 */
04698 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
04700 int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense, integer *n, real *a, integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work, integer *lwork, integer *iwork, integer *info, ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
04701 /*:ref: lsame_ 12 4 13 13 124 124 */
04702 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04703 /*:ref: xerbla_ 14 3 13 4 124 */
04704 /*:ref: slamch_ 6 2 13 124 */
04705 /*:ref: slabad_ 14 2 6 6 */
04706 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04707 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04708 /*:ref: sgebal_ 14 9 13 4 6 4 4 4 6 4 124 */
04709 /*:ref: sgehrd_ 14 9 4 4 4 6 4 6 6 4 4 */
04710 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04711 /*:ref: sorghr_ 14 9 4 4 4 6 4 6 6 4 4 */
04712 /*:ref: shseqr_ 14 16 13 13 4 4 4 6 4 6 6 6 4 6 4 4 124 124 */
04713 /*:ref: strevc_ 14 16 13 13 12 4 6 4 6 4 6 4 4 4 6 4 124 124 */
04714 /*:ref: strsna_ 14 20 13 13 12 4 6 4 6 4 6 4 6 6 4 4 6 4 4 4 124 124 */
04715 /*:ref: sgebak_ 14 12 13 13 4 4 4 6 4 6 4 4 124 124 */
04716 /*:ref: snrm2_ 6 3 4 6 4 */
04717 /*:ref: sscal_ 14 4 4 6 6 4 */
04718 /*:ref: slapy2_ 6 2 6 6 */
04719 /*:ref: isamax_ 4 3 4 6 4 */
04720 /*:ref: slartg_ 14 5 6 6 6 6 6 */
04721 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
04723 int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len);
04724 /*:ref: lsame_ 12 4 13 13 124 124 */
04725 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04726 /*:ref: xerbla_ 14 3 13 4 124 */
04727 /*:ref: slamch_ 6 2 13 124 */
04728 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04729 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04730 /*:ref: sggbal_ 14 13 13 4 6 4 6 4 4 4 6 6 6 4 124 */
04731 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04732 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04733 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04734 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04735 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
04736 /*:ref: sgghrd_ 14 16 13 13 4 4 4 6 4 6 4 6 4 6 4 4 124 124 */
04737 /*:ref: shgeqz_ 14 23 13 13 13 4 4 4 6 4 6 4 6 6 6 6 4 6 4 6 4 4 124 124 124 */
04738 /*:ref: sggbak_ 14 13 13 13 4 4 4 6 6 4 6 4 4 124 124 */
04740 int sgegv_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, integer *lwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
04741 /*:ref: lsame_ 12 4 13 13 124 124 */
04742 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04743 /*:ref: xerbla_ 14 3 13 4 124 */
04744 /*:ref: slamch_ 6 2 13 124 */
04745 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04746 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04747 /*:ref: sggbal_ 14 13 13 4 6 4 6 4 4 4 6 6 6 4 124 */
04748 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04749 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04750 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04751 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04752 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
04753 /*:ref: sgghrd_ 14 16 13 13 4 4 4 6 4 6 4 6 4 6 4 4 124 124 */
04754 /*:ref: shgeqz_ 14 23 13 13 13 4 4 4 6 4 6 4 6 6 6 6 4 6 4 6 4 4 124 124 124 */
04755 /*:ref: stgevc_ 14 18 13 13 12 4 6 4 6 4 6 4 6 4 4 4 6 4 124 124 */
04756 /*:ref: sggbak_ 14 13 13 13 4 4 4 6 6 4 6 4 4 124 124 */
04758 int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *info);
04759 /*:ref: xerbla_ 14 3 13 4 124 */
04760 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
04761 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
04763 int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info);
04764 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04765 /*:ref: xerbla_ 14 3 13 4 124 */
04766 /*:ref: slahrd_ 14 10 4 4 4 6 4 6 6 4 6 4 */
04767 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
04768 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
04769 /*:ref: sgehd2_ 14 8 4 4 4 6 4 6 6 4 */
04771 int sgelq2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info);
04772 /*:ref: xerbla_ 14 3 13 4 124 */
04773 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
04774 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
04776 int sgels_(char *trans, integer *m, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *work, integer *lwork, integer *info, ftnlen trans_len);
04777 /*:ref: lsame_ 12 4 13 13 124 124 */
04778 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04779 /*:ref: xerbla_ 14 3 13 4 124 */
04780 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04781 /*:ref: slamch_ 6 2 13 124 */
04782 /*:ref: slabad_ 14 2 6 6 */
04783 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04784 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04785 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04786 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04787 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
04788 /*:ref: sgelqf_ 14 8 4 4 6 4 6 6 4 4 */
04789 /*:ref: sormlq_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04791 int sgelsd_(integer *m, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *rank, real *work, integer *lwork, integer *iwork, integer *info);
04792 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04793 /*:ref: xerbla_ 14 3 13 4 124 */
04794 /*:ref: slamch_ 6 2 13 124 */
04795 /*:ref: slabad_ 14 2 6 6 */
04796 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04797 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04798 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04799 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04800 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04801 /*:ref: sgebrd_ 14 11 4 4 6 4 6 6 6 6 6 4 4 */
04802 /*:ref: sormbr_ 14 17 13 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 124 */
04803 /*:ref: slalsd_ 14 14 13 4 4 4 6 6 6 4 6 4 6 4 4 124 */
04804 /*:ref: sgelqf_ 14 8 4 4 6 4 6 6 4 4 */
04805 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04806 /*:ref: sormlq_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04808 int sgelss_(integer *m, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *rank, real *work, integer *lwork, integer *info);
04809 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04810 /*:ref: xerbla_ 14 3 13 4 124 */
04811 /*:ref: slamch_ 6 2 13 124 */
04812 /*:ref: slabad_ 14 2 6 6 */
04813 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04814 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04815 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04816 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04817 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04818 /*:ref: sgebrd_ 14 11 4 4 6 4 6 6 6 6 6 4 4 */
04819 /*:ref: sormbr_ 14 17 13 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 124 */
04820 /*:ref: sorgbr_ 14 11 13 4 4 4 6 4 6 6 4 4 124 */
04821 /*:ref: sbdsqr_ 14 16 13 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
04822 /*:ref: srscl_ 14 4 4 6 6 4 */
04823 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
04824 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04825 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
04826 /*:ref: scopy_ 14 5 4 6 4 6 4 */
04827 /*:ref: sgelqf_ 14 8 4 4 6 4 6 6 4 4 */
04828 /*:ref: sormlq_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04830 int sgelsx_(integer *m, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, integer *rank, real *work, integer *info);
04831 /*:ref: xerbla_ 14 3 13 4 124 */
04832 /*:ref: slamch_ 6 2 13 124 */
04833 /*:ref: slabad_ 14 2 6 6 */
04834 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04835 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04836 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04837 /*:ref: sgeqpf_ 14 8 4 4 6 4 4 6 6 4 */
04838 /*:ref: slaic1_ 14 9 4 4 6 6 6 6 6 6 6 */
04839 /*:ref: stzrqf_ 14 6 4 4 6 4 6 4 */
04840 /*:ref: sorm2r_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
04841 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
04842 /*:ref: slatzm_ 14 11 13 4 4 6 4 6 6 6 4 6 124 */
04844 int sgelsy_(integer *m, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond, integer *rank, real *work, integer *lwork, integer *info);
04845 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04846 /*:ref: xerbla_ 14 3 13 4 124 */
04847 /*:ref: slamch_ 6 2 13 124 */
04848 /*:ref: slabad_ 14 2 6 6 */
04849 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04850 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04851 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04852 /*:ref: sgeqp3_ 14 9 4 4 6 4 4 6 6 4 4 */
04853 /*:ref: slaic1_ 14 9 4 4 6 6 6 6 6 6 6 */
04854 /*:ref: stzrzf_ 14 8 4 4 6 4 6 6 4 4 */
04855 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04856 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
04857 /*:ref: sormrz_ 14 16 13 13 4 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04858 /*:ref: scopy_ 14 5 4 6 4 6 4 */
04860 int sgeql2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info);
04861 /*:ref: xerbla_ 14 3 13 4 124 */
04862 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
04863 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
04865 int sgeqp3_(integer *m, integer *n, real *a, integer *lda, integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
04866 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04867 /*:ref: xerbla_ 14 3 13 4 124 */
04868 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04869 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04870 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04871 /*:ref: snrm2_ 6 3 4 6 4 */
04872 /*:ref: slaqps_ 14 14 4 4 4 4 4 6 4 4 6 6 6 6 6 4 */
04873 /*:ref: slaqp2_ 14 10 4 4 4 6 4 4 6 6 6 6 */
04875 int sgeqr2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info);
04876 /*:ref: xerbla_ 14 3 13 4 124 */
04877 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
04878 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
04880 int sgerq2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info);
04881 /*:ref: xerbla_ 14 3 13 4 124 */
04882 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
04883 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
04885 int sgesc2_(integer *n, real *a, integer *lda, real *rhs, integer *ipiv, integer *jpiv, real *scale);
04886 /*:ref: slamch_ 6 2 13 124 */
04887 /*:ref: slabad_ 14 2 6 6 */
04888 /*:ref: slaswp_ 14 7 4 6 4 4 4 4 4 */
04889 /*:ref: isamax_ 4 3 4 6 4 */
04890 /*:ref: sscal_ 14 4 4 6 6 4 */
04892 int sgesdd_(char *jobz, integer *m, integer *n, real *a, integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt, real *work, integer *lwork, integer *iwork, integer *info, ftnlen jobz_len);
04893 /*:ref: lsame_ 12 4 13 13 124 124 */
04894 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04895 /*:ref: xerbla_ 14 3 13 4 124 */
04896 /*:ref: slamch_ 6 2 13 124 */
04897 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04898 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04899 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04900 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04901 /*:ref: sgebrd_ 14 11 4 4 6 4 6 6 6 6 6 4 4 */
04902 /*:ref: sbdsdc_ 14 16 13 13 4 6 6 6 4 6 4 6 4 6 4 4 124 124 */
04903 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04904 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
04905 /*:ref: sormbr_ 14 17 13 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 124 */
04906 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
04907 /*:ref: sorgbr_ 14 11 13 4 4 4 6 4 6 6 4 4 124 */
04908 /*:ref: sgelqf_ 14 8 4 4 6 4 6 6 4 4 */
04909 /*:ref: sorglq_ 14 9 4 4 4 6 4 6 6 4 4 */
04911 int sgesv_(integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
04912 /*:ref: xerbla_ 14 3 13 4 124 */
04913 /*:ref: sgetrf_ 14 6 4 4 6 4 4 4 */
04914 /*:ref: sgetrs_ 14 10 13 4 4 6 4 4 6 4 4 124 */
04916 int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n, real *a, integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt, real *work, integer *lwork, integer *info, ftnlen jobu_len, ftnlen jobvt_len);
04917 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04918 /*:ref: lsame_ 12 4 13 13 124 124 */
04919 /*:ref: xerbla_ 14 3 13 4 124 */
04920 /*:ref: slamch_ 6 2 13 124 */
04921 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04922 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04923 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04924 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04925 /*:ref: sgebrd_ 14 11 4 4 6 4 6 6 6 6 6 4 4 */
04926 /*:ref: sorgbr_ 14 11 13 4 4 4 6 4 6 6 4 4 124 */
04927 /*:ref: sbdsqr_ 14 16 13 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
04928 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04929 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
04930 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
04931 /*:ref: sormbr_ 14 17 13 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 124 */
04932 /*:ref: sgelqf_ 14 8 4 4 6 4 6 6 4 4 */
04933 /*:ref: sorglq_ 14 9 4 4 4 6 4 6 6 4 4 */
04935 int sgesvx_(char *fact, char *trans, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, char *equed, real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
04936 /*:ref: lsame_ 12 4 13 13 124 124 */
04937 /*:ref: slamch_ 6 2 13 124 */
04938 /*:ref: xerbla_ 14 3 13 4 124 */
04939 /*:ref: sgeequ_ 14 10 4 4 6 4 6 6 6 6 6 4 */
04940 /*:ref: slaqge_ 14 11 4 4 6 4 6 6 6 6 6 13 124 */
04941 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04942 /*:ref: sgetrf_ 14 6 4 4 6 4 4 4 */
04943 /*:ref: slantr_ 6 11 13 13 13 4 4 6 4 6 124 124 124 */
04944 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04945 /*:ref: sgecon_ 14 10 13 4 6 4 6 6 6 4 4 124 */
04946 /*:ref: sgetrs_ 14 10 13 4 4 6 4 4 6 4 4 124 */
04947 /*:ref: sgerfs_ 14 18 13 4 4 6 4 6 4 4 6 4 6 4 6 6 6 4 4 124 */
04949 int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv, integer *jpiv, integer *info);
04950 /*:ref: slamch_ 6 2 13 124 */
04951 /*:ref: slabad_ 14 2 6 6 */
04952 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04953 /*:ref: sger_ 14 9 4 4 6 6 4 6 4 6 4 */
04955 int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *lwork, integer *info);
04956 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04957 /*:ref: xerbla_ 14 3 13 4 124 */
04958 /*:ref: strtri_ 14 8 13 13 4 6 4 4 124 124 */
04959 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
04960 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
04961 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
04962 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04964 int sgetrs_(char *trans, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen trans_len);
04965 /*:ref: lsame_ 12 4 13 13 124 124 */
04966 /*:ref: xerbla_ 14 3 13 4 124 */
04967 /*:ref: slaswp_ 14 7 4 6 4 4 4 4 4 */
04968 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
04970 int sggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, real *lscale, real *rscale, integer *m, real *v, integer *ldv, integer *info, ftnlen job_len, ftnlen side_len);
04971 /*:ref: lsame_ 12 4 13 13 124 124 */
04972 /*:ref: xerbla_ 14 3 13 4 124 */
04973 /*:ref: sscal_ 14 4 4 6 6 4 */
04974 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04976 int sggbal_(char *job, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real *rscale, real *work, integer *info, ftnlen job_len);
04977 /*:ref: lsame_ 12 4 13 13 124 124 */
04978 /*:ref: xerbla_ 14 3 13 4 124 */
04979 /*:ref: sswap_ 14 5 4 6 4 6 4 */
04980 /*:ref: sdot_ 6 5 4 6 4 6 4 */
04981 /*:ref: sscal_ 14 4 4 6 6 4 */
04982 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
04983 /*:ref: slamch_ 6 2 13 124 */
04984 /*:ref: isamax_ 4 3 4 6 4 */
04986 int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork, logical *bwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len);
04987 /*:ref: lsame_ 12 4 13 13 124 124 */
04988 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
04989 /*:ref: xerbla_ 14 3 13 4 124 */
04990 /*:ref: slamch_ 6 2 13 124 */
04991 /*:ref: slabad_ 14 2 6 6 */
04992 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
04993 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
04994 /*:ref: sggbal_ 14 13 13 4 6 4 6 4 4 4 6 6 6 4 124 */
04995 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
04996 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
04997 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
04998 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
04999 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
05000 /*:ref: sgghrd_ 14 16 13 13 4 4 4 6 4 6 4 6 4 6 4 4 124 124 */
05001 /*:ref: shgeqz_ 14 23 13 13 13 4 4 4 6 4 6 4 6 6 6 6 4 6 4 6 4 4 124 124 124 */
05002 /*:ref: stgsen_ 14 25 4 12 12 12 4 6 4 6 4 6 6 6 6 4 6 4 4 6 6 6 6 4 4 4 4 */
05003 /*:ref: sggbak_ 14 13 13 13 4 4 4 6 6 4 6 4 4 124 124 */
05005 int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg, char *sense, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde, real *rcondv, real *work, integer *lwork, integer *iwork, integer *liwork, logical *bwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len, ftnlen sense_len);
05006 /*:ref: lsame_ 12 4 13 13 124 124 */
05007 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05008 /*:ref: xerbla_ 14 3 13 4 124 */
05009 /*:ref: slamch_ 6 2 13 124 */
05010 /*:ref: slabad_ 14 2 6 6 */
05011 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
05012 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05013 /*:ref: sggbal_ 14 13 13 4 6 4 6 4 4 4 6 6 6 4 124 */
05014 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
05015 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05016 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05017 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05018 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
05019 /*:ref: sgghrd_ 14 16 13 13 4 4 4 6 4 6 4 6 4 6 4 4 124 124 */
05020 /*:ref: shgeqz_ 14 23 13 13 13 4 4 4 6 4 6 4 6 6 6 6 4 6 4 6 4 4 124 124 124 */
05021 /*:ref: stgsen_ 14 25 4 12 12 12 4 6 4 6 4 6 6 6 6 4 6 4 4 6 6 6 6 4 4 4 4 */
05022 /*:ref: sggbak_ 14 13 13 13 4 4 4 6 6 4 6 4 4 124 124 */
05024 int sggev_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work, integer *lwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
05025 /*:ref: lsame_ 12 4 13 13 124 124 */
05026 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05027 /*:ref: xerbla_ 14 3 13 4 124 */
05028 /*:ref: slamch_ 6 2 13 124 */
05029 /*:ref: slabad_ 14 2 6 6 */
05030 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
05031 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05032 /*:ref: sggbal_ 14 13 13 4 6 4 6 4 4 4 6 6 6 4 124 */
05033 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
05034 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05035 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05036 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05037 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
05038 /*:ref: sgghrd_ 14 16 13 13 4 4 4 6 4 6 4 6 4 6 4 4 124 124 */
05039 /*:ref: shgeqz_ 14 23 13 13 13 4 4 4 6 4 6 4 6 6 6 6 4 6 4 6 4 4 124 124 124 */
05040 /*:ref: stgevc_ 14 18 13 13 12 4 6 4 6 4 6 4 6 4 4 4 6 4 124 124 */
05041 /*:ref: sggbak_ 14 13 13 13 4 4 4 6 6 4 6 4 4 124 124 */
05043 int sggevx_(char *balanc, char *jobvl, char *jobvr, char *sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work, integer *lwork, integer *iwork, logical *bwork, integer *info, ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
05044 /*:ref: lsame_ 12 4 13 13 124 124 */
05045 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05046 /*:ref: xerbla_ 14 3 13 4 124 */
05047 /*:ref: slamch_ 6 2 13 124 */
05048 /*:ref: slabad_ 14 2 6 6 */
05049 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
05050 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05051 /*:ref: sggbal_ 14 13 13 4 6 4 6 4 4 4 6 6 6 4 124 */
05052 /*:ref: sgeqrf_ 14 8 4 4 6 4 6 6 4 4 */
05053 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05054 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05055 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05056 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
05057 /*:ref: sgghrd_ 14 16 13 13 4 4 4 6 4 6 4 6 4 6 4 4 124 124 */
05058 /*:ref: shgeqz_ 14 23 13 13 13 4 4 4 6 4 6 4 6 6 6 6 4 6 4 6 4 4 124 124 124 */
05059 /*:ref: stgevc_ 14 18 13 13 12 4 6 4 6 4 6 4 6 4 4 4 6 4 124 124 */
05060 /*:ref: stgsna_ 14 22 13 13 12 4 6 4 6 4 6 4 6 4 6 6 4 4 6 4 4 4 124 124 */
05061 /*:ref: sggbak_ 14 13 13 13 4 4 4 6 6 4 6 4 4 124 124 */
05063 int sggglm_(integer *n, integer *m, integer *p, real *a, integer *lda, real *b, integer *ldb, real *d__, real *x, real *y, real *work, integer *lwork, integer *info);
05064 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05065 /*:ref: xerbla_ 14 3 13 4 124 */
05066 /*:ref: sggqrf_ 14 12 4 4 4 6 4 6 6 4 6 6 4 4 */
05067 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05068 /*:ref: strsv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
05069 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05070 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05071 /*:ref: sormrq_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05073 int sgghrd_(char *compq, char *compz, integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *z__, integer *ldz, integer *info, ftnlen compq_len, ftnlen compz_len);
05074 /*:ref: lsame_ 12 4 13 13 124 124 */
05075 /*:ref: xerbla_ 14 3 13 4 124 */
05076 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05077 /*:ref: slartg_ 14 5 6 6 6 6 6 */
05078 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05080 int sgglse_(integer *m, integer *n, integer *p, real *a, integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x, real *work, integer *lwork, integer *info);
05081 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05082 /*:ref: xerbla_ 14 3 13 4 124 */
05083 /*:ref: sggrqf_ 14 12 4 4 4 6 4 6 6 4 6 6 4 4 */
05084 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05085 /*:ref: strsv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
05086 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05087 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05088 /*:ref: strmv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
05089 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05090 /*:ref: sormrq_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05092 int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, real *a, integer *lda, real *b, integer *ldb, real *alpha, real *beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, integer *iwork, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
05093 /*:ref: lsame_ 12 4 13 13 124 124 */
05094 /*:ref: xerbla_ 14 3 13 4 124 */
05095 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
05096 /*:ref: slamch_ 6 2 13 124 */
05097 /*:ref: sggsvp_ 14 27 13 13 13 4 4 4 6 4 6 4 6 6 4 4 6 4 6 4 6 4 4 6 6 4 124 124 124 */
05098 /*:ref: stgsja_ 14 28 13 13 13 4 4 4 4 4 6 4 6 4 6 6 6 6 6 4 6 4 6 4 6 4 4 124 124 124 */
05099 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05101 int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb, real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *tau, real *work, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
05102 /*:ref: lsame_ 12 4 13 13 124 124 */
05103 /*:ref: xerbla_ 14 3 13 4 124 */
05104 /*:ref: sgeqpf_ 14 8 4 4 6 4 4 6 6 4 */
05105 /*:ref: slapmt_ 14 6 12 4 4 6 4 4 */
05106 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05107 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05108 /*:ref: sorg2r_ 14 8 4 4 4 6 4 6 6 4 */
05109 /*:ref: sgerq2_ 14 7 4 4 6 4 6 6 4 */
05110 /*:ref: sormr2_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
05111 /*:ref: sorm2r_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
05112 /*:ref: sgeqr2_ 14 7 4 4 6 4 6 6 4 */
05114 int sgtcon_(char *norm, integer *n, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen norm_len);
05115 /*:ref: lsame_ 12 4 13 13 124 124 */
05116 /*:ref: xerbla_ 14 3 13 4 124 */
05117 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
05118 /*:ref: sgttrs_ 14 12 13 4 4 6 6 6 6 4 6 4 4 124 */
05120 int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, real *du, real *b, integer *ldb, integer *info);
05121 /*:ref: xerbla_ 14 3 13 4 124 */
05123 int sgtsvx_(char *fact, char *trans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf, real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen trans_len);
05124 /*:ref: lsame_ 12 4 13 13 124 124 */
05125 /*:ref: xerbla_ 14 3 13 4 124 */
05126 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05127 /*:ref: sgttrf_ 14 7 4 6 6 6 6 4 4 */
05128 /*:ref: slangt_ 6 6 13 4 6 6 6 124 */
05129 /*:ref: sgtcon_ 14 13 13 4 6 6 6 6 4 6 6 6 4 4 124 */
05130 /*:ref: slamch_ 6 2 13 124 */
05131 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05132 /*:ref: sgttrs_ 14 12 13 4 4 6 6 6 6 4 6 4 4 124 */
05133 /*:ref: sgtrfs_ 14 21 13 4 4 6 6 6 6 6 6 6 4 6 4 6 4 6 6 6 4 4 124 */
05135 int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen trans_len);
05136 /*:ref: xerbla_ 14 3 13 4 124 */
05137 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05138 /*:ref: sgtts2_ 14 10 4 4 4 6 6 6 6 4 6 4 */
05140 int sgtts2_(integer *itrans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb);
05142 int shgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq, real *z__, integer *ldz, real *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compq_len, ftnlen compz_len);
05143 /*:ref: lsame_ 12 4 13 13 124 124 */
05144 /*:ref: xerbla_ 14 3 13 4 124 */
05145 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05146 /*:ref: slamch_ 6 2 13 124 */
05147 /*:ref: slanhs_ 6 6 13 4 6 4 6 124 */
05148 /*:ref: slartg_ 14 5 6 6 6 6 6 */
05149 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05150 /*:ref: slag2_ 14 10 6 4 6 4 6 6 6 6 6 6 */
05151 /*:ref: slasv2_ 14 9 6 6 6 6 6 6 6 6 6 */
05152 /*:ref: slapy3_ 6 3 6 6 6 */
05153 /*:ref: slapy2_ 6 2 6 6 */
05154 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05156 int shsein_(char *side, char *eigsrc, char *initv, logical *select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real *work, integer *ifaill, integer *ifailr, integer *info, ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
05157 /*:ref: lsame_ 12 4 13 13 124 124 */
05158 /*:ref: xerbla_ 14 3 13 4 124 */
05159 /*:ref: slamch_ 6 2 13 124 */
05160 /*:ref: slanhs_ 6 6 13 4 6 4 6 124 */
05161 /*:ref: slaein_ 14 16 12 12 4 6 4 6 6 6 6 6 4 6 6 6 6 4 */
05163 int shseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__, integer *ldz, real *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compz_len);
05164 /*:ref: lsame_ 12 4 13 13 124 124 */
05165 /*:ref: xerbla_ 14 3 13 4 124 */
05166 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05167 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05168 /*:ref: slahqr_ 14 14 12 12 4 4 4 6 4 6 6 4 4 6 4 4 */
05169 /*:ref: slamch_ 6 2 13 124 */
05170 /*:ref: slabad_ 14 2 6 6 */
05171 /*:ref: slanhs_ 6 6 13 4 6 4 6 124 */
05172 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05173 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05174 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05175 /*:ref: isamax_ 4 3 4 6 4 */
05176 /*:ref: sscal_ 14 4 4 6 6 4 */
05177 /*:ref: slapy2_ 6 2 6 6 */
05178 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05179 /*:ref: slarfx_ 14 9 13 4 4 6 6 6 4 6 124 */
05181 int slabad_(real *small, real *large);
05183 int slabrd_(integer *m, integer *n, integer *nb, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *x, integer *ldx, real *y, integer *ldy);
05184 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05185 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05186 /*:ref: sscal_ 14 4 4 6 6 4 */
05188 int slacon_(integer *n, real *v, real *x, integer *isgn, real *est, integer *kase);
05189 /*:ref: sasum_ 6 3 4 6 4 */
05190 /*:ref: isamax_ 4 3 4 6 4 */
05191 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05193 int slacpy_(char *uplo, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, ftnlen uplo_len);
05194 /*:ref: lsame_ 12 4 13 13 124 124 */
05196 int sladiv_(real *a, real *b, real *c__, real *d__, real *p, real *q);
05198 int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
05200 int slaebz_(integer *ijob, integer *nitmax, integer *n, integer *mmax, integer *minp, integer *nbmin, real *abstol, real *reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval, real *ab, real *c__, integer *mout, integer *nab, real *work, integer *iwork, integer *info);
05202 int slaed0_(integer *icompq, integer *qsiz, integer *n, real *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs, real *work, integer *iwork, integer *info);
05203 /*:ref: xerbla_ 14 3 13 4 124 */
05204 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05205 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
05206 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05207 /*:ref: slaed1_ 14 10 4 6 6 4 4 6 4 6 4 4 */
05208 /*:ref: slaed7_ 14 22 4 4 4 4 4 4 6 6 4 4 6 4 6 4 4 4 4 4 6 6 4 4 */
05209 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05210 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05212 int slaed1_(integer *n, real *d__, real *q, integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *work, integer *iwork, integer *info);
05213 /*:ref: xerbla_ 14 3 13 4 124 */
05214 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05215 /*:ref: slaed2_ 14 17 4 4 4 6 6 4 4 6 6 6 6 6 4 4 4 4 4 */
05216 /*:ref: slaed3_ 14 14 4 4 4 6 6 4 6 6 6 4 4 6 6 4 */
05217 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
05219 int slaed2_(integer *k, integer *n, integer *n1, real *d__, real *q, integer *ldq, integer *indxq, real *rho, real *z__, real *dlamda, real *w, real *q2, integer *indx, integer *indxc, integer *indxp, integer *coltyp, integer *info);
05220 /*:ref: xerbla_ 14 3 13 4 124 */
05221 /*:ref: sscal_ 14 4 4 6 6 4 */
05222 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
05223 /*:ref: isamax_ 4 3 4 6 4 */
05224 /*:ref: slamch_ 6 2 13 124 */
05225 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05226 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05227 /*:ref: slapy2_ 6 2 6 6 */
05228 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05230 int slaed3_(integer *k, integer *n, integer *n1, real *d__, real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer *indx, integer *ctot, real *w, real *s, integer *info);
05231 /*:ref: xerbla_ 14 3 13 4 124 */
05232 /*:ref: slamc3_ 6 2 6 6 */
05233 /*:ref: slaed4_ 14 8 4 4 6 6 6 6 6 4 */
05234 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05235 /*:ref: snrm2_ 6 3 4 6 4 */
05236 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05237 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05238 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05240 int slaed4_(integer *n, integer *i__, real *d__, real *z__, real *delta, real *rho, real *dlam, integer *info);
05241 /*:ref: slaed5_ 14 6 4 6 6 6 6 6 */
05242 /*:ref: slamch_ 6 2 13 124 */
05243 /*:ref: slaed6_ 14 8 4 12 6 6 6 6 6 4 */
05245 int slaed5_(integer *i__, real *d__, real *z__, real *delta, real *rho, real *dlam);
05247 int slaed6_(integer *kniter, logical *orgati, real *rho, real *d__, real *z__, real *finit, real *tau, integer *info);
05248 /*:ref: slamch_ 6 2 13 124 */
05250 int slaed7_(integer *icompq, integer *n, integer *qsiz, integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q, integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *qstore, integer *qptr, integer *prmptr, integer *perm, integer *givptr, integer *givcol, real *givnum, real *work, integer *iwork, integer *info);
05251 /*:ref: xerbla_ 14 3 13 4 124 */
05252 /*:ref: slaeda_ 14 14 4 4 4 4 4 4 4 4 6 6 4 6 6 4 */
05253 /*:ref: slaed8_ 14 22 4 4 4 4 6 6 4 4 6 4 6 6 6 4 6 4 4 4 6 4 4 4 */
05254 /*:ref: slaed9_ 14 13 4 4 4 4 6 6 4 6 6 6 6 4 4 */
05255 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05256 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
05258 int slaed8_(integer *icompq, integer *k, integer *n, integer *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2, real *w, integer *perm, integer *givptr, integer *givcol, real *givnum, integer *indxp, integer *indx, integer *info);
05259 /*:ref: xerbla_ 14 3 13 4 124 */
05260 /*:ref: sscal_ 14 4 4 6 6 4 */
05261 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
05262 /*:ref: isamax_ 4 3 4 6 4 */
05263 /*:ref: slamch_ 6 2 13 124 */
05264 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05265 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05266 /*:ref: slapy2_ 6 2 6 6 */
05267 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05269 int slaed9_(integer *k, integer *kstart, integer *kstop, integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda, real *w, real *s, integer *lds, integer *info);
05270 /*:ref: xerbla_ 14 3 13 4 124 */
05271 /*:ref: slamc3_ 6 2 6 6 */
05272 /*:ref: slaed4_ 14 8 4 4 6 6 6 6 6 4 */
05273 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05274 /*:ref: snrm2_ 6 3 4 6 4 */
05276 int slaeda_(integer *n, integer *tlvls, integer *curlvl, integer *curpbm, integer *prmptr, integer *perm, integer *givptr, integer *givcol, real *givnum, real *q, integer *qptr, real *z__, real *ztemp, integer *info);
05277 /*:ref: xerbla_ 14 3 13 4 124 */
05278 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05279 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05280 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05282 int slaein_(logical *rightv, logical *noinit, integer *n, real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum, integer *info);
05283 /*:ref: snrm2_ 6 3 4 6 4 */
05284 /*:ref: sscal_ 14 4 4 6 6 4 */
05285 /*:ref: slatrs_ 14 15 13 13 13 13 4 6 4 6 6 6 4 124 124 124 124 */
05286 /*:ref: sasum_ 6 3 4 6 4 */
05287 /*:ref: isamax_ 4 3 4 6 4 */
05288 /*:ref: slapy2_ 6 2 6 6 */
05289 /*:ref: sladiv_ 14 6 6 6 6 6 6 6 */
05291 int slaev2_(real *a, real *b, real *c__, real *rt1, real *rt2, real *cs1, real *sn1);
05293 int slaexc_(logical *wantq, integer *n, real *t, integer *ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, real *work, integer *info);
05294 /*:ref: slartg_ 14 5 6 6 6 6 6 */
05295 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05296 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05297 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
05298 /*:ref: slamch_ 6 2 13 124 */
05299 /*:ref: slasy2_ 14 16 12 12 4 4 4 6 4 6 4 6 4 6 6 4 6 4 */
05300 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05301 /*:ref: slarfx_ 14 9 13 4 4 6 6 6 4 6 124 */
05302 /*:ref: slanv2_ 14 10 6 6 6 6 6 6 6 6 6 6 */
05304 int slag2_(real *a, integer *lda, real *b, integer *ldb, real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *wi);
05306 int slags2_(logical *upper, real *a1, real *a2, real *a3, real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *snv, real *csq, real *snq);
05307 /*:ref: slasv2_ 14 9 6 6 6 6 6 6 6 6 6 */
05308 /*:ref: slartg_ 14 5 6 6 6 6 6 */
05310 int slagtm_(char *trans, integer *n, integer *nrhs, real *alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *beta, real *b, integer *ldb, ftnlen trans_len);
05311 /*:ref: lsame_ 12 4 13 13 124 124 */
05313 int slagts_(integer *job, integer *n, real *a, real *b, real *c__, real *d__, integer *in, real *y, real *tol, integer *info);
05314 /*:ref: xerbla_ 14 3 13 4 124 */
05315 /*:ref: slamch_ 6 2 13 124 */
05317 int slagv2_(real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *csl, real *snl, real *csr, real *snr);
05318 /*:ref: slamch_ 6 2 13 124 */
05319 /*:ref: slartg_ 14 5 6 6 6 6 6 */
05320 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05321 /*:ref: slag2_ 14 10 6 4 6 4 6 6 6 6 6 6 */
05322 /*:ref: slapy2_ 6 2 6 6 */
05323 /*:ref: slasv2_ 14 9 6 6 6 6 6 6 6 6 6 */
05325 int slahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *info);
05326 /*:ref: slamch_ 6 2 13 124 */
05327 /*:ref: slabad_ 14 2 6 6 */
05328 /*:ref: slanhs_ 6 6 13 4 6 4 6 124 */
05329 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05330 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05331 /*:ref: slanv2_ 14 10 6 6 6 6 6 6 6 6 6 6 */
05332 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05334 int slahrd_(integer *n, integer *k, integer *nb, real *a, integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
05335 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05336 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05337 /*:ref: strmv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
05338 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05339 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05340 /*:ref: sscal_ 14 4 4 6 6 4 */
05342 int slaic1_(integer *job, integer *j, real *x, real *sest, real *w, real *gamma, real *sestpr, real *s, real *c__);
05343 /*:ref: slamch_ 6 2 13 124 */
05344 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05346 int slaln2_(logical *ltrans, integer *na, integer *nw, real *smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b, integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale, real *xnorm, integer *info);
05347 /*:ref: slamch_ 6 2 13 124 */
05348 /*:ref: sladiv_ 14 6 6 6 6 6 6 6 */
05350 int slals0_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *difl, real *difr, real *z__, integer *k, real *c__, real *s, real *work, integer *info);
05351 /*:ref: xerbla_ 14 3 13 4 124 */
05352 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05353 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05354 /*:ref: sscal_ 14 4 4 6 6 4 */
05355 /*:ref: slamc3_ 6 2 6 6 */
05356 /*:ref: snrm2_ 6 3 4 6 4 */
05357 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05358 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05359 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05361 int slalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum, real *c__, real *s, real *work, integer *iwork, integer *info);
05362 /*:ref: xerbla_ 14 3 13 4 124 */
05363 /*:ref: slasdt_ 14 7 4 4 4 4 4 4 4 */
05364 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05365 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05366 /*:ref: slals0_ 14 24 4 4 4 4 4 6 4 6 4 4 4 4 4 6 4 6 6 6 6 4 6 6 6 4 */
05368 int slalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond, integer *rank, real *work, integer *iwork, integer *info, ftnlen uplo_len);
05369 /*:ref: xerbla_ 14 3 13 4 124 */
05370 /*:ref: slamch_ 6 2 13 124 */
05371 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05372 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05373 /*:ref: slartg_ 14 5 6 6 6 6 6 */
05374 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05375 /*:ref: slanst_ 6 5 13 4 6 6 124 */
05376 /*:ref: slasdq_ 14 17 13 4 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
05377 /*:ref: isamax_ 4 3 4 6 4 */
05378 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05379 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05380 /*:ref: slasrt_ 14 5 13 4 6 4 124 */
05381 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05382 /*:ref: slasda_ 14 24 4 4 4 4 6 6 6 4 6 4 6 6 6 6 4 4 4 4 6 6 6 6 4 4 */
05383 /*:ref: slalsa_ 14 26 4 4 4 4 6 4 6 4 6 4 6 4 6 6 6 6 4 4 4 4 6 6 6 6 4 4 */
05385 E_f slamch_(char *cmach, ftnlen cmach_len);
05387 int slamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1);
05389 int slamc2_(integer *beta, integer *t, logical *rnd, real *eps, integer *emin, real *rmin, integer *emax, real *rmax);
05391 E_f slamc3_(real *a, real *b);
05393 int slamc4_(integer *emin, real *start, integer *base);
05395 int slamc5_(integer *beta, integer *p, integer *emin, logical *ieee, integer *emax, real *rmax);
05396 /*:ref: lsame_ 12 4 13 13 124 124 */
05398 int slamrg_(integer *n1, integer *n2, real *a, integer *strd1, integer *strd2, integer *index);
05400 E_f slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, real *work, ftnlen norm_len);
05401 /*:ref: lsame_ 12 4 13 13 124 124 */
05402 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05404 E_f slange_(char *norm, integer *m, integer *n, real *a, integer *lda, real *work, ftnlen norm_len);
05405 /*:ref: lsame_ 12 4 13 13 124 124 */
05406 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05408 E_f slangt_(char *norm, integer *n, real *dl, real *d__, real *du, ftnlen norm_len);
05409 /*:ref: lsame_ 12 4 13 13 124 124 */
05410 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05412 E_f slanhs_(char *norm, integer *n, real *a, integer *lda, real *work, ftnlen norm_len);
05413 /*:ref: lsame_ 12 4 13 13 124 124 */
05414 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05416 E_f slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len);
05417 /*:ref: lsame_ 12 4 13 13 124 124 */
05418 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05420 E_f slansp_(char *norm, char *uplo, integer *n, real *ap, real *work, ftnlen norm_len, ftnlen uplo_len);
05421 /*:ref: lsame_ 12 4 13 13 124 124 */
05422 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05424 E_f slanst_(char *norm, integer *n, real *d__, real *e, ftnlen norm_len);
05425 /*:ref: lsame_ 12 4 13 13 124 124 */
05426 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05428 E_f slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len);
05429 /*:ref: lsame_ 12 4 13 13 124 124 */
05430 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05432 E_f slantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, real *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
05433 /*:ref: lsame_ 12 4 13 13 124 124 */
05434 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05436 E_f slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
05437 /*:ref: lsame_ 12 4 13 13 124 124 */
05438 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05440 E_f slantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, real *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
05441 /*:ref: lsame_ 12 4 13 13 124 124 */
05442 /*:ref: slassq_ 14 5 4 6 4 6 6 */
05444 int slanv2_(real *a, real *b, real *c__, real *d__, real *rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
05445 /*:ref: slamch_ 6 2 13 124 */
05446 /*:ref: slapy2_ 6 2 6 6 */
05448 int slapll_(integer *n, real *x, integer *incx, real *y, integer *incy, real *ssmin);
05449 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05450 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05451 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05452 /*:ref: slas2_ 14 5 6 6 6 6 6 */
05454 int slapmt_(logical *forwrd, integer *m, integer *n, real *x, integer *ldx, integer *k);
05456 E_f slapy2_(real *x, real *y);
05458 E_f slapy3_(real *x, real *y, real *z__);
05460 int slaqgb_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *equed, ftnlen equed_len);
05461 /*:ref: slamch_ 6 2 13 124 */
05463 int slaqge_(integer *m, integer *n, real *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *equed, ftnlen equed_len);
05464 /*:ref: slamch_ 6 2 13 124 */
05466 int slaqp2_(integer *m, integer *n, integer *offset, real *a, integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *work);
05467 /*:ref: isamax_ 4 3 4 6 4 */
05468 /*:ref: sswap_ 14 5 4 6 4 6 4 */
05469 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05470 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05471 /*:ref: snrm2_ 6 3 4 6 4 */
05473 int slaqps_(integer *m, integer *n, integer *offset, integer *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
05474 /*:ref: isamax_ 4 3 4 6 4 */
05475 /*:ref: sswap_ 14 5 4 6 4 6 4 */
05476 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05477 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05478 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05479 /*:ref: snrm2_ 6 3 4 6 4 */
05481 int slaqsb_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
05482 /*:ref: slamch_ 6 2 13 124 */
05483 /*:ref: lsame_ 12 4 13 13 124 124 */
05485 int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
05486 /*:ref: slamch_ 6 2 13 124 */
05487 /*:ref: lsame_ 12 4 13 13 124 124 */
05489 int slaqsy_(char *uplo, integer *n, real *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
05490 /*:ref: slamch_ 6 2 13 124 */
05491 /*:ref: lsame_ 12 4 13 13 124 124 */
05493 int slaqtr_(logical *ltran, logical *lreal, integer *n, real *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work, integer *info);
05494 /*:ref: slamch_ 6 2 13 124 */
05495 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
05496 /*:ref: sasum_ 6 3 4 6 4 */
05497 /*:ref: isamax_ 4 3 4 6 4 */
05498 /*:ref: sscal_ 14 4 4 6 6 4 */
05499 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05500 /*:ref: slaln2_ 14 18 12 4 4 6 6 6 4 6 6 6 4 6 6 6 4 6 6 4 */
05501 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05502 /*:ref: sladiv_ 14 6 6 6 6 6 6 6 */
05504 int slar1v_(integer *n, integer *b1, integer *bn, real *sigma, real *d__, real *l, real *ld, real *lld, real *gersch, real *z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *work);
05505 /*:ref: slamch_ 6 2 13 124 */
05507 int slar2v_(integer *n, real *x, real *y, real *z__, integer *incx, real *c__, real *s, integer *incc);
05509 int slargv_(integer *n, real *x, integer *incx, real *y, integer *incy, real *c__, integer *incc);
05511 int slarnv_(integer *idist, integer *iseed, integer *n, real *x);
05512 /*:ref: slaruv_ 14 3 4 4 6 */
05514 int slarrb_(integer *n, real *d__, real *l, real *ld, real *lld, integer *ifirst, integer *ilast, real *sigma, real *reltol, real *w, real *wgap, real *werr, real *work, integer *iwork, integer *info);
05515 /*:ref: slamch_ 6 2 13 124 */
05517 int slarre_(integer *n, real *d__, real *e, real *tol, integer *nsplit, integer *isplit, integer *m, real *w, real *woff, real *gersch, real *work, integer *info);
05518 /*:ref: slamch_ 6 2 13 124 */
05519 /*:ref: slasq2_ 14 3 4 6 4 */
05520 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05522 int slarrv_(integer *n, real *d__, real *l, integer *isplit, integer *m, real *w, integer *iblock, real *gersch, real *tol, real *z__, integer *ldz, integer *isuppz, real *work, integer *iwork, integer *info);
05523 /*:ref: slamch_ 6 2 13 124 */
05524 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05525 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05526 /*:ref: slarrb_ 14 15 4 6 6 6 6 4 4 6 6 6 6 6 6 4 4 */
05527 /*:ref: slarrf_ 14 13 4 6 6 6 6 4 4 6 6 6 6 4 4 */
05528 /*:ref: sstein_ 14 13 4 6 6 4 6 4 4 6 4 6 4 4 4 */
05529 /*:ref: slar1v_ 14 15 4 4 4 6 6 6 6 6 6 6 6 6 4 4 6 */
05530 /*:ref: sscal_ 14 4 4 6 6 4 */
05531 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05532 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05533 /*:ref: snrm2_ 6 3 4 6 4 */
05535 int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
05536 /*:ref: slamch_ 6 2 13 124 */
05538 int slartv_(integer *n, real *x, integer *incx, real *y, integer *incy, real *c__, real *s, integer *incc);
05540 int slaruv_(integer *iseed, integer *n, real *x);
05542 int slarz_(char *side, integer *m, integer *n, integer *l, real *v, integer *incv, real *tau, real *c__, integer *ldc, real *work, ftnlen side_len);
05543 /*:ref: lsame_ 12 4 13 13 124 124 */
05544 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05545 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05546 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05547 /*:ref: sger_ 14 9 4 4 6 6 4 6 4 6 4 */
05549 int slarzb_(char *side, char *trans, char *direct, char *storev, integer *m, integer *n, integer *k, integer *l, real *v, integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *work, integer *ldwork, ftnlen side_len, ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
05550 /*:ref: lsame_ 12 4 13 13 124 124 */
05551 /*:ref: xerbla_ 14 3 13 4 124 */
05552 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05553 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05554 /*:ref: strmm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
05556 int slarzt_(char *direct, char *storev, integer *n, integer *k, real *v, integer *ldv, real *tau, real *t, integer *ldt, ftnlen direct_len, ftnlen storev_len);
05557 /*:ref: lsame_ 12 4 13 13 124 124 */
05558 /*:ref: xerbla_ 14 3 13 4 124 */
05559 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05560 /*:ref: strmv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
05562 int slas2_(real *f, real *g, real *h__, real *ssmin, real *ssmax);
05564 int slascl_(char *type__, integer *kl, integer *ku, real *cfrom, real *cto, integer *m, integer *n, real *a, integer *lda, integer *info, ftnlen type_len);
05565 /*:ref: lsame_ 12 4 13 13 124 124 */
05566 /*:ref: xerbla_ 14 3 13 4 124 */
05567 /*:ref: slamch_ 6 2 13 124 */
05569 int slasd0_(integer *n, integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz, integer *iwork, real *work, integer *info);
05570 /*:ref: xerbla_ 14 3 13 4 124 */
05571 /*:ref: slasdq_ 14 17 13 4 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
05572 /*:ref: slasdt_ 14 7 4 4 4 4 4 4 4 */
05573 /*:ref: slasd1_ 14 14 4 4 4 6 6 6 6 4 6 4 4 4 6 4 */
05575 int slasd1_(integer *nl, integer *nr, integer *sqre, real *d__, real *alpha, real *beta, real *u, integer *ldu, real *vt, integer *ldvt, integer *idxq, integer *iwork, real *work, integer *info);
05576 /*:ref: xerbla_ 14 3 13 4 124 */
05577 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05578 /*:ref: slasd2_ 14 23 4 4 4 4 6 6 6 6 6 4 6 4 6 6 4 6 4 4 4 4 4 4 4 */
05579 /*:ref: slasd3_ 14 20 4 4 4 4 6 6 4 6 6 4 6 4 6 4 6 4 4 4 6 4 */
05580 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
05582 int slasd2_(integer *nl, integer *nr, integer *sqre, integer *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer *ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2, real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *idxq, integer *coltyp, integer *info);
05583 /*:ref: xerbla_ 14 3 13 4 124 */
05584 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
05585 /*:ref: slamch_ 6 2 13 124 */
05586 /*:ref: slapy2_ 6 2 6 6 */
05587 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05588 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05589 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05590 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05592 int slasd3_(integer *nl, integer *nr, integer *sqre, integer *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer *ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2, integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer *info);
05593 /*:ref: xerbla_ 14 3 13 4 124 */
05594 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05595 /*:ref: slamc3_ 6 2 6 6 */
05596 /*:ref: snrm2_ 6 3 4 6 4 */
05597 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05598 /*:ref: slasd4_ 14 9 4 4 6 6 6 6 6 6 4 */
05599 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05600 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05602 int slasd4_(integer *n, integer *i__, real *d__, real *z__, real *delta, real *rho, real *sigma, real *work, integer *info);
05603 /*:ref: slasd5_ 14 7 4 6 6 6 6 6 6 */
05604 /*:ref: slamch_ 6 2 13 124 */
05605 /*:ref: slaed6_ 14 8 4 12 6 6 6 6 6 4 */
05607 int slasd5_(integer *i__, real *d__, real *z__, real *delta, real *rho, real *dsigma, real *work);
05609 int slasd6_(integer *icompq, integer *nl, integer *nr, integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta, integer *idxq, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *difl, real *difr, real *z__, integer *k, real *c__, real *s, real *work, integer *iwork, integer *info);
05610 /*:ref: xerbla_ 14 3 13 4 124 */
05611 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05612 /*:ref: slasd7_ 14 27 4 4 4 4 4 6 6 6 6 6 6 6 6 6 6 4 4 4 4 4 4 4 6 4 6 6 4 */
05613 /*:ref: slasd8_ 14 12 4 4 6 6 6 6 6 6 4 6 6 4 */
05614 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05615 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
05617 int slasd7_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf, real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, real *givnum, integer *ldgnum, real *c__, real *s, integer *info);
05618 /*:ref: xerbla_ 14 3 13 4 124 */
05619 /*:ref: slamrg_ 14 6 4 4 6 4 4 4 */
05620 /*:ref: slamch_ 6 2 13 124 */
05621 /*:ref: slapy2_ 6 2 6 6 */
05622 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
05623 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05625 int slasd8_(integer *icompq, integer *k, real *d__, real *z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr, real *dsigma, real *work, integer *info);
05626 /*:ref: xerbla_ 14 3 13 4 124 */
05627 /*:ref: slamc3_ 6 2 6 6 */
05628 /*:ref: snrm2_ 6 3 4 6 4 */
05629 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05630 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05631 /*:ref: slasd4_ 14 9 4 4 6 6 6 6 6 6 4 */
05632 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05633 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05635 int slasd9_(integer *icompq, integer *ldu, integer *k, real *d__, real *z__, real *vf, real *vl, real *difl, real *difr, real *dsigma, real *work, integer *info);
05636 /*:ref: xerbla_ 14 3 13 4 124 */
05637 /*:ref: slamc3_ 6 2 6 6 */
05638 /*:ref: snrm2_ 6 3 4 6 4 */
05639 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05640 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05641 /*:ref: slasd4_ 14 9 4 4 6 6 6 6 6 6 4 */
05642 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05643 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05645 int slasda_(integer *icompq, integer *smlsiz, integer *n, integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum, real *c__, real *s, real *work, integer *iwork, integer *info);
05646 /*:ref: xerbla_ 14 3 13 4 124 */
05647 /*:ref: slasdq_ 14 17 13 4 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
05648 /*:ref: slasdt_ 14 7 4 4 4 4 4 4 4 */
05649 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
05650 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05651 /*:ref: slasd6_ 14 26 4 4 4 4 6 6 6 6 6 4 4 4 4 4 6 4 6 6 6 6 4 6 6 6 4 4 */
05653 int slasdq_(char *uplo, integer *sqre, integer *n, integer *ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *work, integer *info, ftnlen uplo_len);
05654 /*:ref: lsame_ 12 4 13 13 124 124 */
05655 /*:ref: xerbla_ 14 3 13 4 124 */
05656 /*:ref: slartg_ 14 5 6 6 6 6 6 */
05657 /*:ref: slasr_ 14 12 13 13 13 4 4 6 6 6 4 124 124 124 */
05658 /*:ref: sbdsqr_ 14 16 13 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
05659 /*:ref: sswap_ 14 5 4 6 4 6 4 */
05661 int slasdt_(integer *n, integer *lvl, integer *nd, integer *inode, integer *ndiml, integer *ndimr, integer *msub);
05663 int slaset_(char *uplo, integer *m, integer *n, real *alpha, real *beta, real *a, integer *lda, ftnlen uplo_len);
05664 /*:ref: lsame_ 12 4 13 13 124 124 */
05666 int slasq1_(integer *n, real *d__, real *e, real *work, integer *info);
05667 /*:ref: xerbla_ 14 3 13 4 124 */
05668 /*:ref: slas2_ 14 5 6 6 6 6 6 */
05669 /*:ref: slasrt_ 14 5 13 4 6 4 124 */
05670 /*:ref: slamch_ 6 2 13 124 */
05671 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05672 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
05673 /*:ref: slasq2_ 14 3 4 6 4 */
05675 int slasq2_(integer *n, real *z__, integer *info);
05676 /*:ref: slamch_ 6 2 13 124 */
05677 /*:ref: xerbla_ 14 3 13 4 124 */
05678 /*:ref: slasrt_ 14 5 13 4 6 4 124 */
05679 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05680 /*:ref: slasq3_ 14 12 4 4 6 4 6 6 6 6 4 4 4 12 */
05682 int slasq3_(integer *i0, integer *n0, real *z__, integer *pp, real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail, integer *iter, integer *ndiv, logical *ieee);
05683 /*:ref: slamch_ 6 2 13 124 */
05684 /*:ref: slasq4_ 14 13 4 4 6 4 4 6 6 6 6 6 6 6 4 */
05685 /*:ref: slasq5_ 14 12 4 4 6 4 6 6 6 6 6 6 6 12 */
05686 /*:ref: slasq6_ 14 10 4 4 6 4 6 6 6 6 6 6 */
05688 int slasq4_(integer *i0, integer *n0, real *z__, integer *pp, integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *tau, integer *ttype);
05690 int slasq5_(integer *i0, integer *n0, real *z__, integer *pp, real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *dnm2, logical *ieee);
05692 int slasq6_(integer *i0, integer *n0, real *z__, integer *pp, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *dnm2);
05693 /*:ref: slamch_ 6 2 13 124 */
05695 int slasr_(char *side, char *pivot, char *direct, integer *m, integer *n, real *c__, real *s, real *a, integer *lda, ftnlen side_len, ftnlen pivot_len, ftnlen direct_len);
05696 /*:ref: lsame_ 12 4 13 13 124 124 */
05697 /*:ref: xerbla_ 14 3 13 4 124 */
05699 int slasrt_(char *id, integer *n, real *d__, integer *info, ftnlen id_len);
05700 /*:ref: lsame_ 12 4 13 13 124 124 */
05701 /*:ref: xerbla_ 14 3 13 4 124 */
05703 int slassq_(integer *n, real *x, integer *incx, real *scale, real *sumsq);
05705 int slasv2_(real *f, real *g, real *h__, real *ssmin, real *ssmax, real *snr, real *csr, real *snl, real *csl);
05706 /*:ref: slamch_ 6 2 13 124 */
05708 int slaswp_(integer *n, real *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);
05710 int slasy2_(logical *ltranl, logical *ltranr, integer *isgn, integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real *xnorm, integer *info);
05711 /*:ref: slamch_ 6 2 13 124 */
05712 /*:ref: isamax_ 4 3 4 6 4 */
05713 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05714 /*:ref: sswap_ 14 5 4 6 4 6 4 */
05716 int slatbs_(char *uplo, char *trans, char *diag, char *normin, integer *n, integer *kd, real *ab, integer *ldab, real *x, real *scale, real *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
05717 /*:ref: lsame_ 12 4 13 13 124 124 */
05718 /*:ref: xerbla_ 14 3 13 4 124 */
05719 /*:ref: slamch_ 6 2 13 124 */
05720 /*:ref: sasum_ 6 3 4 6 4 */
05721 /*:ref: isamax_ 4 3 4 6 4 */
05722 /*:ref: sscal_ 14 4 4 6 6 4 */
05723 /*:ref: stbsv_ 14 12 13 13 13 4 4 6 4 6 4 124 124 124 */
05724 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05725 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05727 int slatps_(char *uplo, char *trans, char *diag, char *normin, integer *n, real *ap, real *x, real *scale, real *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
05728 /*:ref: lsame_ 12 4 13 13 124 124 */
05729 /*:ref: xerbla_ 14 3 13 4 124 */
05730 /*:ref: slamch_ 6 2 13 124 */
05731 /*:ref: sasum_ 6 3 4 6 4 */
05732 /*:ref: isamax_ 4 3 4 6 4 */
05733 /*:ref: sscal_ 14 4 4 6 6 4 */
05734 /*:ref: stpsv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
05735 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05736 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05738 int slatrd_(char *uplo, integer *n, integer *nb, real *a, integer *lda, real *e, real *tau, real *w, integer *ldw, ftnlen uplo_len);
05739 /*:ref: lsame_ 12 4 13 13 124 124 */
05740 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05741 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05742 /*:ref: ssymv_ 14 11 13 4 6 6 4 6 4 6 6 4 124 */
05743 /*:ref: sscal_ 14 4 4 6 6 4 */
05744 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05745 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05747 int slatrs_(char *uplo, char *trans, char *diag, char *normin, integer *n, real *a, integer *lda, real *x, real *scale, real *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
05748 /*:ref: lsame_ 12 4 13 13 124 124 */
05749 /*:ref: xerbla_ 14 3 13 4 124 */
05750 /*:ref: slamch_ 6 2 13 124 */
05751 /*:ref: sasum_ 6 3 4 6 4 */
05752 /*:ref: isamax_ 4 3 4 6 4 */
05753 /*:ref: sscal_ 14 4 4 6 6 4 */
05754 /*:ref: strsv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
05755 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05756 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05758 int slatrz_(integer *m, integer *n, integer *l, real *a, integer *lda, real *tau, real *work);
05759 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
05760 /*:ref: slarz_ 14 11 13 4 4 4 6 4 6 6 4 6 124 */
05762 int slatzm_(char *side, integer *m, integer *n, real *v, integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *work, ftnlen side_len);
05763 /*:ref: lsame_ 12 4 13 13 124 124 */
05764 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05765 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05766 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
05767 /*:ref: sger_ 14 9 4 4 6 6 4 6 4 6 4 */
05769 int slauu2_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len);
05770 /*:ref: lsame_ 12 4 13 13 124 124 */
05771 /*:ref: xerbla_ 14 3 13 4 124 */
05772 /*:ref: sdot_ 6 5 4 6 4 6 4 */
05773 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
05774 /*:ref: sscal_ 14 4 4 6 6 4 */
05776 int slauum_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len);
05777 /*:ref: lsame_ 12 4 13 13 124 124 */
05778 /*:ref: xerbla_ 14 3 13 4 124 */
05779 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05780 /*:ref: slauu2_ 14 6 13 4 6 4 4 124 */
05781 /*:ref: strmm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
05782 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
05783 /*:ref: ssyrk_ 14 12 13 13 4 4 6 6 4 6 6 4 124 124 */
05785 int sopgtr_(char *uplo, integer *n, real *ap, real *tau, real *q, integer *ldq, real *work, integer *info, ftnlen uplo_len);
05786 /*:ref: lsame_ 12 4 13 13 124 124 */
05787 /*:ref: xerbla_ 14 3 13 4 124 */
05788 /*:ref: sorg2l_ 14 8 4 4 4 6 4 6 6 4 */
05789 /*:ref: sorg2r_ 14 8 4 4 4 6 4 6 6 4 */
05791 int sopmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work, integer *info, ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
05792 /*:ref: lsame_ 12 4 13 13 124 124 */
05793 /*:ref: xerbla_ 14 3 13 4 124 */
05794 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05796 int sorg2l_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info);
05797 /*:ref: xerbla_ 14 3 13 4 124 */
05798 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05799 /*:ref: sscal_ 14 4 4 6 6 4 */
05801 int sorg2r_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info);
05802 /*:ref: xerbla_ 14 3 13 4 124 */
05803 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05804 /*:ref: sscal_ 14 4 4 6 6 4 */
05806 int sorgbr_(char *vect, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info, ftnlen vect_len);
05807 /*:ref: lsame_ 12 4 13 13 124 124 */
05808 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05809 /*:ref: xerbla_ 14 3 13 4 124 */
05810 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
05811 /*:ref: sorglq_ 14 9 4 4 4 6 4 6 6 4 4 */
05813 int sorghr_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info);
05814 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05815 /*:ref: xerbla_ 14 3 13 4 124 */
05816 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
05818 int sorgl2_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info);
05819 /*:ref: xerbla_ 14 3 13 4 124 */
05820 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05821 /*:ref: sscal_ 14 4 4 6 6 4 */
05823 int sorglq_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info);
05824 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05825 /*:ref: xerbla_ 14 3 13 4 124 */
05826 /*:ref: sorgl2_ 14 8 4 4 4 6 4 6 6 4 */
05827 /*:ref: slarft_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05828 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05830 int sorgql_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info);
05831 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05832 /*:ref: xerbla_ 14 3 13 4 124 */
05833 /*:ref: sorg2l_ 14 8 4 4 4 6 4 6 6 4 */
05834 /*:ref: slarft_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05835 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05837 int sorgqr_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info);
05838 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05839 /*:ref: xerbla_ 14 3 13 4 124 */
05840 /*:ref: sorg2r_ 14 8 4 4 4 6 4 6 6 4 */
05841 /*:ref: slarft_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05842 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05844 int sorgr2_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info);
05845 /*:ref: xerbla_ 14 3 13 4 124 */
05846 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05847 /*:ref: sscal_ 14 4 4 6 6 4 */
05849 int sorgrq_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info);
05850 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05851 /*:ref: xerbla_ 14 3 13 4 124 */
05852 /*:ref: sorgr2_ 14 8 4 4 4 6 4 6 6 4 */
05853 /*:ref: slarft_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05854 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05856 int sorgtr_(char *uplo, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info, ftnlen uplo_len);
05857 /*:ref: lsame_ 12 4 13 13 124 124 */
05858 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05859 /*:ref: xerbla_ 14 3 13 4 124 */
05860 /*:ref: sorgql_ 14 9 4 4 4 6 4 6 6 4 4 */
05861 /*:ref: sorgqr_ 14 9 4 4 4 6 4 6 6 4 4 */
05863 int sorm2l_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info, ftnlen side_len, ftnlen trans_len);
05864 /*:ref: lsame_ 12 4 13 13 124 124 */
05865 /*:ref: xerbla_ 14 3 13 4 124 */
05866 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05868 int sorm2r_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info, ftnlen side_len, ftnlen trans_len);
05869 /*:ref: lsame_ 12 4 13 13 124 124 */
05870 /*:ref: xerbla_ 14 3 13 4 124 */
05871 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05873 int sormbr_(char *vect, char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info, ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
05874 /*:ref: lsame_ 12 4 13 13 124 124 */
05875 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05876 /*:ref: xerbla_ 14 3 13 4 124 */
05877 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05878 /*:ref: sormlq_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05880 int sormhr_(char *side, char *trans, integer *m, integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
05881 /*:ref: lsame_ 12 4 13 13 124 124 */
05882 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05883 /*:ref: xerbla_ 14 3 13 4 124 */
05884 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05886 int sorml2_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info, ftnlen side_len, ftnlen trans_len);
05887 /*:ref: lsame_ 12 4 13 13 124 124 */
05888 /*:ref: xerbla_ 14 3 13 4 124 */
05889 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05891 int sormlq_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
05892 /*:ref: lsame_ 12 4 13 13 124 124 */
05893 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05894 /*:ref: xerbla_ 14 3 13 4 124 */
05895 /*:ref: sorml2_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
05896 /*:ref: slarft_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05897 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05899 int sormql_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
05900 /*:ref: lsame_ 12 4 13 13 124 124 */
05901 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05902 /*:ref: xerbla_ 14 3 13 4 124 */
05903 /*:ref: sorm2l_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
05904 /*:ref: slarft_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05905 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05907 int sormqr_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
05908 /*:ref: lsame_ 12 4 13 13 124 124 */
05909 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05910 /*:ref: xerbla_ 14 3 13 4 124 */
05911 /*:ref: sorm2r_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
05912 /*:ref: slarft_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05913 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05915 int sormr2_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info, ftnlen side_len, ftnlen trans_len);
05916 /*:ref: lsame_ 12 4 13 13 124 124 */
05917 /*:ref: xerbla_ 14 3 13 4 124 */
05918 /*:ref: slarf_ 14 10 13 4 4 6 4 6 6 4 6 124 */
05920 int sormr3_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *info, ftnlen side_len, ftnlen trans_len);
05921 /*:ref: lsame_ 12 4 13 13 124 124 */
05922 /*:ref: xerbla_ 14 3 13 4 124 */
05923 /*:ref: slarz_ 14 11 13 4 4 4 6 4 6 6 4 6 124 */
05925 int sormrq_(char *side, char *trans, integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
05926 /*:ref: lsame_ 12 4 13 13 124 124 */
05927 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05928 /*:ref: xerbla_ 14 3 13 4 124 */
05929 /*:ref: sormr2_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
05930 /*:ref: slarft_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05931 /*:ref: slarfb_ 14 19 13 13 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05933 int sormrz_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
05934 /*:ref: lsame_ 12 4 13 13 124 124 */
05935 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05936 /*:ref: xerbla_ 14 3 13 4 124 */
05937 /*:ref: sormr3_ 14 15 13 13 4 4 4 4 6 4 6 6 4 6 4 124 124 */
05938 /*:ref: slarzt_ 14 11 13 13 4 4 6 4 6 6 4 124 124 */
05939 /*:ref: slarzb_ 14 20 13 13 13 13 4 4 4 4 6 4 6 4 6 4 6 4 124 124 124 124 */
05941 int sormtr_(char *side, char *uplo, char *trans, integer *m, integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc, real *work, integer *lwork, integer *info, ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
05942 /*:ref: lsame_ 12 4 13 13 124 124 */
05943 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
05944 /*:ref: xerbla_ 14 3 13 4 124 */
05945 /*:ref: sormql_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05946 /*:ref: sormqr_ 14 15 13 13 4 4 4 6 4 6 6 4 6 4 4 124 124 */
05948 int spbcon_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len);
05949 /*:ref: lsame_ 12 4 13 13 124 124 */
05950 /*:ref: xerbla_ 14 3 13 4 124 */
05951 /*:ref: slamch_ 6 2 13 124 */
05952 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
05953 /*:ref: slatbs_ 14 16 13 13 13 13 4 4 6 4 6 6 6 4 124 124 124 124 */
05954 /*:ref: isamax_ 4 3 4 6 4 */
05955 /*:ref: srscl_ 14 4 4 6 6 4 */
05957 int spbequ_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len);
05958 /*:ref: lsame_ 12 4 13 13 124 124 */
05959 /*:ref: xerbla_ 14 3 13 4 124 */
05961 int spbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info, ftnlen uplo_len);
05962 /*:ref: lsame_ 12 4 13 13 124 124 */
05963 /*:ref: xerbla_ 14 3 13 4 124 */
05964 /*:ref: spbtrf_ 14 7 13 4 4 6 4 4 124 */
05965 /*:ref: spbtrs_ 14 10 13 4 4 4 6 4 6 4 4 124 */
05967 int spbsvx_(char *fact, char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
05968 /*:ref: lsame_ 12 4 13 13 124 124 */
05969 /*:ref: slamch_ 6 2 13 124 */
05970 /*:ref: xerbla_ 14 3 13 4 124 */
05971 /*:ref: spbequ_ 14 10 13 4 4 6 4 6 6 6 4 124 */
05972 /*:ref: slaqsb_ 14 11 13 4 4 6 4 6 6 6 13 124 124 */
05973 /*:ref: scopy_ 14 5 4 6 4 6 4 */
05974 /*:ref: spbtrf_ 14 7 13 4 4 6 4 4 124 */
05975 /*:ref: slansb_ 6 9 13 13 4 4 6 4 6 124 124 */
05976 /*:ref: spbcon_ 14 11 13 4 4 6 4 6 6 6 4 4 124 */
05977 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
05978 /*:ref: spbtrs_ 14 10 13 4 4 4 6 4 6 4 4 124 */
05979 /*:ref: spbrfs_ 14 18 13 4 4 4 6 4 6 4 6 4 6 4 6 6 6 4 4 124 */
05981 int spbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info, ftnlen uplo_len);
05982 /*:ref: lsame_ 12 4 13 13 124 124 */
05983 /*:ref: xerbla_ 14 3 13 4 124 */
05984 /*:ref: stbsv_ 14 12 13 13 13 4 4 6 4 6 4 124 124 124 */
05986 int spocon_(char *uplo, integer *n, real *a, integer *lda, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len);
05987 /*:ref: lsame_ 12 4 13 13 124 124 */
05988 /*:ref: xerbla_ 14 3 13 4 124 */
05989 /*:ref: slamch_ 6 2 13 124 */
05990 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
05991 /*:ref: slatrs_ 14 15 13 13 13 13 4 6 4 6 6 6 4 124 124 124 124 */
05992 /*:ref: isamax_ 4 3 4 6 4 */
05993 /*:ref: srscl_ 14 4 4 6 6 4 */
05995 int spoequ_(integer *n, real *a, integer *lda, real *s, real *scond, real *amax, integer *info);
05996 /*:ref: xerbla_ 14 3 13 4 124 */
05998 int sposv_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len);
05999 /*:ref: lsame_ 12 4 13 13 124 124 */
06000 /*:ref: xerbla_ 14 3 13 4 124 */
06001 /*:ref: spotrf_ 14 6 13 4 6 4 4 124 */
06002 /*:ref: spotrs_ 14 9 13 4 4 6 4 6 4 4 124 */
06004 int sposvx_(char *fact, char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
06005 /*:ref: lsame_ 12 4 13 13 124 124 */
06006 /*:ref: slamch_ 6 2 13 124 */
06007 /*:ref: xerbla_ 14 3 13 4 124 */
06008 /*:ref: spoequ_ 14 7 4 6 4 6 6 6 4 */
06009 /*:ref: slaqsy_ 14 10 13 4 6 4 6 6 6 13 124 124 */
06010 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06011 /*:ref: spotrf_ 14 6 13 4 6 4 4 124 */
06012 /*:ref: slansy_ 6 8 13 13 4 6 4 6 124 124 */
06013 /*:ref: spocon_ 14 10 13 4 6 4 6 6 6 4 4 124 */
06014 /*:ref: spotrs_ 14 9 13 4 4 6 4 6 4 4 124 */
06015 /*:ref: sporfs_ 14 17 13 4 4 6 4 6 4 6 4 6 4 6 6 6 4 4 124 */
06017 int spotri_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len);
06018 /*:ref: lsame_ 12 4 13 13 124 124 */
06019 /*:ref: xerbla_ 14 3 13 4 124 */
06020 /*:ref: strtri_ 14 8 13 13 4 6 4 4 124 124 */
06021 /*:ref: slauum_ 14 6 13 4 6 4 4 124 */
06023 int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len);
06024 /*:ref: lsame_ 12 4 13 13 124 124 */
06025 /*:ref: xerbla_ 14 3 13 4 124 */
06026 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06028 int sppcon_(char *uplo, integer *n, real *ap, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len);
06029 /*:ref: lsame_ 12 4 13 13 124 124 */
06030 /*:ref: xerbla_ 14 3 13 4 124 */
06031 /*:ref: slamch_ 6 2 13 124 */
06032 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06033 /*:ref: slatps_ 14 14 13 13 13 13 4 6 6 6 6 4 124 124 124 124 */
06034 /*:ref: isamax_ 4 3 4 6 4 */
06035 /*:ref: srscl_ 14 4 4 6 6 4 */
06037 int sppequ_(char *uplo, integer *n, real *ap, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len);
06038 /*:ref: lsame_ 12 4 13 13 124 124 */
06039 /*:ref: xerbla_ 14 3 13 4 124 */
06041 int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info, ftnlen uplo_len);
06042 /*:ref: lsame_ 12 4 13 13 124 124 */
06043 /*:ref: xerbla_ 14 3 13 4 124 */
06044 /*:ref: spptrf_ 14 5 13 4 6 4 124 */
06045 /*:ref: spptrs_ 14 8 13 4 4 6 6 4 4 124 */
06047 int sppsvx_(char *fact, char *uplo, integer *n, integer *nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
06048 /*:ref: lsame_ 12 4 13 13 124 124 */
06049 /*:ref: slamch_ 6 2 13 124 */
06050 /*:ref: xerbla_ 14 3 13 4 124 */
06051 /*:ref: sppequ_ 14 8 13 4 6 6 6 6 4 124 */
06052 /*:ref: slaqsp_ 14 9 13 4 6 6 6 6 13 124 124 */
06053 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06054 /*:ref: spptrf_ 14 5 13 4 6 4 124 */
06055 /*:ref: slansp_ 6 7 13 13 4 6 6 124 124 */
06056 /*:ref: sppcon_ 14 9 13 4 6 6 6 6 4 4 124 */
06057 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06058 /*:ref: spptrs_ 14 8 13 4 4 6 6 4 4 124 */
06059 /*:ref: spprfs_ 14 15 13 4 4 6 6 6 4 6 4 6 6 6 4 4 124 */
06061 int spptri_(char *uplo, integer *n, real *ap, integer *info, ftnlen uplo_len);
06062 /*:ref: lsame_ 12 4 13 13 124 124 */
06063 /*:ref: xerbla_ 14 3 13 4 124 */
06064 /*:ref: stptri_ 14 7 13 13 4 6 4 124 124 */
06065 /*:ref: sspr_ 14 7 13 4 6 6 4 6 124 */
06066 /*:ref: sscal_ 14 4 4 6 6 4 */
06067 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06068 /*:ref: stpmv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06070 int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info, ftnlen uplo_len);
06071 /*:ref: lsame_ 12 4 13 13 124 124 */
06072 /*:ref: xerbla_ 14 3 13 4 124 */
06073 /*:ref: stpsv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06075 int sptcon_(integer *n, real *d__, real *e, real *anorm, real *rcond, real *work, integer *info);
06076 /*:ref: xerbla_ 14 3 13 4 124 */
06077 /*:ref: isamax_ 4 3 4 6 4 */
06079 int spteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen compz_len);
06080 /*:ref: lsame_ 12 4 13 13 124 124 */
06081 /*:ref: xerbla_ 14 3 13 4 124 */
06082 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
06083 /*:ref: spttrf_ 14 4 4 6 6 4 */
06084 /*:ref: sbdsqr_ 14 16 13 4 4 4 4 6 6 6 4 6 4 6 4 6 4 124 */
06086 int sptsv_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info);
06087 /*:ref: xerbla_ 14 3 13 4 124 */
06088 /*:ref: spttrf_ 14 4 4 6 6 4 */
06089 /*:ref: spttrs_ 14 7 4 4 6 6 6 4 4 */
06091 int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__, real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info, ftnlen fact_len);
06092 /*:ref: lsame_ 12 4 13 13 124 124 */
06093 /*:ref: xerbla_ 14 3 13 4 124 */
06094 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06095 /*:ref: spttrf_ 14 4 4 6 6 4 */
06096 /*:ref: slanst_ 6 5 13 4 6 6 124 */
06097 /*:ref: sptcon_ 14 7 4 6 6 6 6 6 4 */
06098 /*:ref: slamch_ 6 2 13 124 */
06099 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06100 /*:ref: spttrs_ 14 7 4 4 6 6 6 4 4 */
06101 /*:ref: sptrfs_ 14 14 4 4 6 6 6 6 6 4 6 4 6 6 6 4 */
06103 int spttrs_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info);
06104 /*:ref: xerbla_ 14 3 13 4 124 */
06105 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06106 /*:ref: sptts2_ 14 6 4 4 6 6 6 4 */
06108 int sptts2_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb);
06109 /*:ref: sscal_ 14 4 4 6 6 4 */
06111 int srscl_(integer *n, real *sa, real *sx, integer *incx);
06112 /*:ref: slamch_ 6 2 13 124 */
06113 /*:ref: slabad_ 14 2 6 6 */
06114 /*:ref: sscal_ 14 4 4 6 6 4 */
06116 int ssbev_(char *jobz, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06117 /*:ref: lsame_ 12 4 13 13 124 124 */
06118 /*:ref: xerbla_ 14 3 13 4 124 */
06119 /*:ref: slamch_ 6 2 13 124 */
06120 /*:ref: slansb_ 6 9 13 13 4 4 6 4 6 124 124 */
06121 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
06122 /*:ref: ssbtrd_ 14 14 13 13 4 4 6 4 6 6 6 4 6 4 124 124 */
06123 /*:ref: ssterf_ 14 4 4 6 6 4 */
06124 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06125 /*:ref: sscal_ 14 4 4 6 6 4 */
06127 int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06128 /*:ref: lsame_ 12 4 13 13 124 124 */
06129 /*:ref: xerbla_ 14 3 13 4 124 */
06130 /*:ref: slamch_ 6 2 13 124 */
06131 /*:ref: slansb_ 6 9 13 13 4 4 6 4 6 124 124 */
06132 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
06133 /*:ref: ssbtrd_ 14 14 13 13 4 4 6 4 6 6 6 4 6 4 124 124 */
06134 /*:ref: ssterf_ 14 4 4 6 6 4 */
06135 /*:ref: sstedc_ 14 12 13 4 6 6 6 4 6 4 4 4 4 124 */
06136 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
06137 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06138 /*:ref: sscal_ 14 4 4 6 6 4 */
06140 int ssbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
06141 /*:ref: lsame_ 12 4 13 13 124 124 */
06142 /*:ref: xerbla_ 14 3 13 4 124 */
06143 /*:ref: slamch_ 6 2 13 124 */
06144 /*:ref: slansb_ 6 9 13 13 4 4 6 4 6 124 124 */
06145 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
06146 /*:ref: ssbtrd_ 14 14 13 13 4 4 6 4 6 6 6 4 6 4 124 124 */
06147 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06148 /*:ref: ssterf_ 14 4 4 6 6 4 */
06149 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06150 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06151 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
06152 /*:ref: sstein_ 14 13 4 6 6 4 6 4 4 6 4 6 4 4 4 */
06153 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
06154 /*:ref: sscal_ 14 4 4 6 6 4 */
06155 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06157 int ssbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *x, integer *ldx, real *work, integer *info, ftnlen vect_len, ftnlen uplo_len);
06158 /*:ref: lsame_ 12 4 13 13 124 124 */
06159 /*:ref: xerbla_ 14 3 13 4 124 */
06160 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
06161 /*:ref: sscal_ 14 4 4 6 6 4 */
06162 /*:ref: sger_ 14 9 4 4 6 6 4 6 4 6 4 */
06163 /*:ref: slartg_ 14 5 6 6 6 6 6 */
06164 /*:ref: slargv_ 14 7 4 6 4 6 4 6 4 */
06165 /*:ref: slartv_ 14 8 4 6 4 6 4 6 6 4 */
06166 /*:ref: slar2v_ 14 8 4 6 6 6 4 6 6 4 */
06167 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
06169 int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *w, real *z__, integer *ldz, real *work, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06170 /*:ref: lsame_ 12 4 13 13 124 124 */
06171 /*:ref: xerbla_ 14 3 13 4 124 */
06172 /*:ref: spbstf_ 14 7 13 4 4 6 4 4 124 */
06173 /*:ref: ssbgst_ 14 15 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 */
06174 /*:ref: ssbtrd_ 14 14 13 13 4 4 6 4 6 6 6 4 6 4 124 124 */
06175 /*:ref: ssterf_ 14 4 4 6 6 4 */
06176 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06178 int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06179 /*:ref: lsame_ 12 4 13 13 124 124 */
06180 /*:ref: xerbla_ 14 3 13 4 124 */
06181 /*:ref: spbstf_ 14 7 13 4 4 6 4 4 124 */
06182 /*:ref: ssbgst_ 14 15 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 */
06183 /*:ref: ssbtrd_ 14 14 13 13 4 4 6 4 6 6 6 4 6 4 124 124 */
06184 /*:ref: ssterf_ 14 4 4 6 6 4 */
06185 /*:ref: sstedc_ 14 12 13 4 6 6 6 4 6 4 4 4 4 124 */
06186 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
06187 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06189 int ssbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
06190 /*:ref: lsame_ 12 4 13 13 124 124 */
06191 /*:ref: xerbla_ 14 3 13 4 124 */
06192 /*:ref: spbstf_ 14 7 13 4 4 6 4 4 124 */
06193 /*:ref: ssbgst_ 14 15 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 */
06194 /*:ref: ssbtrd_ 14 14 13 13 4 4 6 4 6 6 6 4 6 4 124 124 */
06195 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06196 /*:ref: ssterf_ 14 4 4 6 6 4 */
06197 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06198 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06199 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
06200 /*:ref: sstein_ 14 13 4 6 6 4 6 4 4 6 4 6 4 4 4 */
06201 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
06202 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06204 int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq, real *work, integer *info, ftnlen vect_len, ftnlen uplo_len);
06205 /*:ref: lsame_ 12 4 13 13 124 124 */
06206 /*:ref: xerbla_ 14 3 13 4 124 */
06207 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
06208 /*:ref: slargv_ 14 7 4 6 4 6 4 6 4 */
06209 /*:ref: slartv_ 14 8 4 6 4 6 4 6 6 4 */
06210 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
06211 /*:ref: slartg_ 14 5 6 6 6 6 6 */
06212 /*:ref: slar2v_ 14 8 4 6 6 6 4 6 6 4 */
06214 int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len);
06215 /*:ref: lsame_ 12 4 13 13 124 124 */
06216 /*:ref: xerbla_ 14 3 13 4 124 */
06217 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06218 /*:ref: ssptrs_ 14 9 13 4 4 6 4 6 4 4 124 */
06220 int sspev_(char *jobz, char *uplo, integer *n, real *ap, real *w, real *z__, integer *ldz, real *work, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06221 /*:ref: lsame_ 12 4 13 13 124 124 */
06222 /*:ref: xerbla_ 14 3 13 4 124 */
06223 /*:ref: slamch_ 6 2 13 124 */
06224 /*:ref: slansp_ 6 7 13 13 4 6 6 124 124 */
06225 /*:ref: sscal_ 14 4 4 6 6 4 */
06226 /*:ref: ssptrd_ 14 8 13 4 6 6 6 6 4 124 */
06227 /*:ref: ssterf_ 14 4 4 6 6 4 */
06228 /*:ref: sopgtr_ 14 9 13 4 6 6 6 4 6 4 124 */
06229 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06231 int sspevd_(char *jobz, char *uplo, integer *n, real *ap, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06232 /*:ref: lsame_ 12 4 13 13 124 124 */
06233 /*:ref: xerbla_ 14 3 13 4 124 */
06234 /*:ref: slamch_ 6 2 13 124 */
06235 /*:ref: slansp_ 6 7 13 13 4 6 6 124 124 */
06236 /*:ref: sscal_ 14 4 4 6 6 4 */
06237 /*:ref: ssptrd_ 14 8 13 4 6 6 6 6 4 124 */
06238 /*:ref: ssterf_ 14 4 4 6 6 4 */
06239 /*:ref: sstedc_ 14 12 13 4 6 6 6 4 6 4 4 4 4 124 */
06240 /*:ref: sopmtr_ 14 14 13 13 13 4 4 6 6 6 4 6 4 124 124 124 */
06242 int sspevx_(char *jobz, char *range, char *uplo, integer *n, real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
06243 /*:ref: lsame_ 12 4 13 13 124 124 */
06244 /*:ref: xerbla_ 14 3 13 4 124 */
06245 /*:ref: slamch_ 6 2 13 124 */
06246 /*:ref: slansp_ 6 7 13 13 4 6 6 124 124 */
06247 /*:ref: sscal_ 14 4 4 6 6 4 */
06248 /*:ref: ssptrd_ 14 8 13 4 6 6 6 6 4 124 */
06249 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06250 /*:ref: ssterf_ 14 4 4 6 6 4 */
06251 /*:ref: sopgtr_ 14 9 13 4 6 6 6 4 6 4 124 */
06252 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06253 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
06254 /*:ref: sstein_ 14 13 4 6 6 4 6 4 4 6 4 6 4 4 4 */
06255 /*:ref: sopmtr_ 14 14 13 13 13 4 4 6 6 6 4 6 4 124 124 124 */
06256 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06258 int sspgst_(integer *itype, char *uplo, integer *n, real *ap, real *bp, integer *info, ftnlen uplo_len);
06259 /*:ref: lsame_ 12 4 13 13 124 124 */
06260 /*:ref: xerbla_ 14 3 13 4 124 */
06261 /*:ref: stpsv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06262 /*:ref: sspmv_ 14 10 13 4 6 6 6 4 6 6 4 124 */
06263 /*:ref: sscal_ 14 4 4 6 6 4 */
06264 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06265 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
06266 /*:ref: sspr2_ 14 9 13 4 6 6 4 6 4 6 124 */
06267 /*:ref: stpmv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06269 int sspgv_(integer *itype, char *jobz, char *uplo, integer *n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06270 /*:ref: lsame_ 12 4 13 13 124 124 */
06271 /*:ref: xerbla_ 14 3 13 4 124 */
06272 /*:ref: spptrf_ 14 5 13 4 6 4 124 */
06273 /*:ref: sspgst_ 14 7 4 13 4 6 6 4 124 */
06274 /*:ref: sspev_ 14 11 13 13 4 6 6 6 4 6 4 124 124 */
06275 /*:ref: stpsv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06276 /*:ref: stpmv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06278 int sspgvd_(integer *itype, char *jobz, char *uplo, integer *n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06279 /*:ref: lsame_ 12 4 13 13 124 124 */
06280 /*:ref: xerbla_ 14 3 13 4 124 */
06281 /*:ref: spptrf_ 14 5 13 4 6 4 124 */
06282 /*:ref: sspgst_ 14 7 4 13 4 6 6 4 124 */
06283 /*:ref: sspevd_ 14 14 13 13 4 6 6 6 4 6 4 4 4 4 124 124 */
06284 /*:ref: stpsv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06285 /*:ref: stpmv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06287 int sspgvx_(integer *itype, char *jobz, char *range, char *uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
06288 /*:ref: lsame_ 12 4 13 13 124 124 */
06289 /*:ref: xerbla_ 14 3 13 4 124 */
06290 /*:ref: spptrf_ 14 5 13 4 6 4 124 */
06291 /*:ref: sspgst_ 14 7 4 13 4 6 6 4 124 */
06292 /*:ref: sspevx_ 14 21 13 13 13 4 6 6 6 4 4 6 4 6 6 4 6 4 4 4 124 124 124 */
06293 /*:ref: stpsv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06294 /*:ref: stpmv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06296 int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len);
06297 /*:ref: lsame_ 12 4 13 13 124 124 */
06298 /*:ref: xerbla_ 14 3 13 4 124 */
06299 /*:ref: ssptrf_ 14 6 13 4 6 4 4 124 */
06300 /*:ref: ssptrs_ 14 9 13 4 4 6 4 6 4 4 124 */
06302 int sspsvx_(char *fact, char *uplo, integer *n, integer *nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
06303 /*:ref: lsame_ 12 4 13 13 124 124 */
06304 /*:ref: xerbla_ 14 3 13 4 124 */
06305 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06306 /*:ref: ssptrf_ 14 6 13 4 6 4 4 124 */
06307 /*:ref: slansp_ 6 7 13 13 4 6 6 124 124 */
06308 /*:ref: sspcon_ 14 10 13 4 6 4 6 6 6 4 4 124 */
06309 /*:ref: slamch_ 6 2 13 124 */
06310 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06311 /*:ref: ssptrs_ 14 9 13 4 4 6 4 6 4 4 124 */
06312 /*:ref: ssprfs_ 14 16 13 4 4 6 6 4 6 4 6 4 6 6 6 4 4 124 */
06314 int ssptrd_(char *uplo, integer *n, real *ap, real *d__, real *e, real *tau, integer *info, ftnlen uplo_len);
06315 /*:ref: lsame_ 12 4 13 13 124 124 */
06316 /*:ref: xerbla_ 14 3 13 4 124 */
06317 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
06318 /*:ref: sspmv_ 14 10 13 4 6 6 6 4 6 6 4 124 */
06319 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06320 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
06321 /*:ref: sspr2_ 14 9 13 4 6 6 4 6 4 6 124 */
06323 int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, real *work, integer *info, ftnlen uplo_len);
06324 /*:ref: lsame_ 12 4 13 13 124 124 */
06325 /*:ref: xerbla_ 14 3 13 4 124 */
06326 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06327 /*:ref: sspmv_ 14 10 13 4 6 6 6 4 6 6 4 124 */
06328 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06329 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06331 int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len);
06332 /*:ref: lsame_ 12 4 13 13 124 124 */
06333 /*:ref: xerbla_ 14 3 13 4 124 */
06334 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06335 /*:ref: sger_ 14 9 4 4 6 6 4 6 4 6 4 */
06336 /*:ref: sscal_ 14 4 4 6 6 4 */
06337 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
06339 int sstebz_(char *range, char *order, integer *n, real *vl, real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e, integer *m, integer *nsplit, real *w, integer *iblock, integer *isplit, real *work, integer *iwork, integer *info, ftnlen range_len, ftnlen order_len);
06340 /*:ref: lsame_ 12 4 13 13 124 124 */
06341 /*:ref: xerbla_ 14 3 13 4 124 */
06342 /*:ref: slamch_ 6 2 13 124 */
06343 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06344 /*:ref: slaebz_ 14 20 4 4 4 4 4 4 6 6 6 6 6 6 4 6 6 4 4 6 4 4 */
06346 int sstedc_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen compz_len);
06347 /*:ref: lsame_ 12 4 13 13 124 124 */
06348 /*:ref: xerbla_ 14 3 13 4 124 */
06349 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06350 /*:ref: ssterf_ 14 4 4 6 6 4 */
06351 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06352 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
06353 /*:ref: slanst_ 6 5 13 4 6 6 124 */
06354 /*:ref: slamch_ 6 2 13 124 */
06355 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
06356 /*:ref: slaed0_ 14 12 4 4 4 6 6 6 4 6 4 6 4 4 */
06357 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06358 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
06359 /*:ref: slasrt_ 14 5 13 4 6 4 124 */
06360 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06362 int sstegr_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len);
06363 /*:ref: lsame_ 12 4 13 13 124 124 */
06364 /*:ref: xerbla_ 14 3 13 4 124 */
06365 /*:ref: slamch_ 6 2 13 124 */
06366 /*:ref: slanst_ 6 5 13 4 6 6 124 */
06367 /*:ref: sscal_ 14 4 4 6 6 4 */
06368 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
06369 /*:ref: slarre_ 14 12 4 6 6 6 4 4 4 6 6 6 6 4 */
06370 /*:ref: slarrv_ 14 15 4 6 6 4 4 6 4 6 6 6 4 4 6 4 4 */
06371 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06373 int sstein_(integer *n, real *d__, real *e, integer *m, real *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info);
06374 /*:ref: xerbla_ 14 3 13 4 124 */
06375 /*:ref: slamch_ 6 2 13 124 */
06376 /*:ref: slarnv_ 14 4 4 4 4 6 */
06377 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06378 /*:ref: slagtf_ 14 9 4 6 6 6 6 6 6 4 4 */
06379 /*:ref: sasum_ 6 3 4 6 4 */
06380 /*:ref: sscal_ 14 4 4 6 6 4 */
06381 /*:ref: slagts_ 14 10 4 4 6 6 6 6 4 6 6 4 */
06382 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06383 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
06384 /*:ref: isamax_ 4 3 4 6 4 */
06385 /*:ref: snrm2_ 6 3 4 6 4 */
06387 int ssteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen compz_len);
06388 /*:ref: lsame_ 12 4 13 13 124 124 */
06389 /*:ref: xerbla_ 14 3 13 4 124 */
06390 /*:ref: slamch_ 6 2 13 124 */
06391 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
06392 /*:ref: slanst_ 6 5 13 4 6 6 124 */
06393 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
06394 /*:ref: slaev2_ 14 7 6 6 6 6 6 6 6 */
06395 /*:ref: slasr_ 14 12 13 13 13 4 4 6 6 6 4 124 124 124 */
06396 /*:ref: slae2_ 14 5 6 6 6 6 6 */
06397 /*:ref: slapy2_ 6 2 6 6 */
06398 /*:ref: slartg_ 14 5 6 6 6 6 6 */
06399 /*:ref: slasrt_ 14 5 13 4 6 4 124 */
06400 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06402 int sstev_(char *jobz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen jobz_len);
06403 /*:ref: lsame_ 12 4 13 13 124 124 */
06404 /*:ref: xerbla_ 14 3 13 4 124 */
06405 /*:ref: slamch_ 6 2 13 124 */
06406 /*:ref: slanst_ 6 5 13 4 6 6 124 */
06407 /*:ref: sscal_ 14 4 4 6 6 4 */
06408 /*:ref: ssterf_ 14 4 4 6 6 4 */
06409 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06411 int sstevd_(char *jobz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len);
06412 /*:ref: lsame_ 12 4 13 13 124 124 */
06413 /*:ref: xerbla_ 14 3 13 4 124 */
06414 /*:ref: slamch_ 6 2 13 124 */
06415 /*:ref: slanst_ 6 5 13 4 6 6 124 */
06416 /*:ref: sscal_ 14 4 4 6 6 4 */
06417 /*:ref: ssterf_ 14 4 4 6 6 4 */
06418 /*:ref: sstedc_ 14 12 13 4 6 6 6 4 6 4 4 4 4 124 */
06420 int sstevr_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len);
06421 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06422 /*:ref: lsame_ 12 4 13 13 124 124 */
06423 /*:ref: xerbla_ 14 3 13 4 124 */
06424 /*:ref: slamch_ 6 2 13 124 */
06425 /*:ref: slanst_ 6 5 13 4 6 6 124 */
06426 /*:ref: sscal_ 14 4 4 6 6 4 */
06427 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06428 /*:ref: ssterf_ 14 4 4 6 6 4 */
06429 /*:ref: sstegr_ 14 22 13 13 4 6 6 6 6 4 4 6 4 6 6 4 4 6 4 4 4 4 124 124 */
06430 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
06431 /*:ref: sstein_ 14 13 4 6 6 4 6 4 4 6 4 6 4 4 4 */
06432 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06434 int sstevx_(char *jobz, char *range, integer *n, real *d__, real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len);
06435 /*:ref: lsame_ 12 4 13 13 124 124 */
06436 /*:ref: xerbla_ 14 3 13 4 124 */
06437 /*:ref: slamch_ 6 2 13 124 */
06438 /*:ref: slanst_ 6 5 13 4 6 6 124 */
06439 /*:ref: sscal_ 14 4 4 6 6 4 */
06440 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06441 /*:ref: ssterf_ 14 4 4 6 6 4 */
06442 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06443 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
06444 /*:ref: sstein_ 14 13 4 6 6 4 6 4 4 6 4 6 4 4 4 */
06445 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06447 int ssycon_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len);
06448 /*:ref: lsame_ 12 4 13 13 124 124 */
06449 /*:ref: xerbla_ 14 3 13 4 124 */
06450 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06451 /*:ref: ssytrs_ 14 10 13 4 4 6 4 4 6 4 4 124 */
06453 int ssyev_(char *jobz, char *uplo, integer *n, real *a, integer *lda, real *w, real *work, integer *lwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06454 /*:ref: lsame_ 12 4 13 13 124 124 */
06455 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06456 /*:ref: xerbla_ 14 3 13 4 124 */
06457 /*:ref: slamch_ 6 2 13 124 */
06458 /*:ref: slansy_ 6 8 13 13 4 6 4 6 124 124 */
06459 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
06460 /*:ref: ssytrd_ 14 11 13 4 6 4 6 6 6 6 4 4 124 */
06461 /*:ref: ssterf_ 14 4 4 6 6 4 */
06462 /*:ref: sorgtr_ 14 9 13 4 6 4 6 6 4 4 124 */
06463 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06464 /*:ref: sscal_ 14 4 4 6 6 4 */
06466 int ssyevd_(char *jobz, char *uplo, integer *n, real *a, integer *lda, real *w, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06467 /*:ref: lsame_ 12 4 13 13 124 124 */
06468 /*:ref: xerbla_ 14 3 13 4 124 */
06469 /*:ref: slamch_ 6 2 13 124 */
06470 /*:ref: slansy_ 6 8 13 13 4 6 4 6 124 124 */
06471 /*:ref: slascl_ 14 11 13 4 4 6 6 4 4 6 4 4 124 */
06472 /*:ref: ssytrd_ 14 11 13 4 6 4 6 6 6 6 4 4 124 */
06473 /*:ref: ssterf_ 14 4 4 6 6 4 */
06474 /*:ref: sstedc_ 14 12 13 4 6 6 6 4 6 4 4 4 4 124 */
06475 /*:ref: sormtr_ 14 16 13 13 13 4 4 6 4 6 6 4 6 4 4 124 124 124 */
06476 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06477 /*:ref: sscal_ 14 4 4 6 6 4 */
06479 int ssyevr_(char *jobz, char *range, char *uplo, integer *n, real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
06480 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06481 /*:ref: lsame_ 12 4 13 13 124 124 */
06482 /*:ref: xerbla_ 14 3 13 4 124 */
06483 /*:ref: slamch_ 6 2 13 124 */
06484 /*:ref: slansy_ 6 8 13 13 4 6 4 6 124 124 */
06485 /*:ref: sscal_ 14 4 4 6 6 4 */
06486 /*:ref: ssytrd_ 14 11 13 4 6 4 6 6 6 6 4 4 124 */
06487 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06488 /*:ref: ssterf_ 14 4 4 6 6 4 */
06489 /*:ref: sstegr_ 14 22 13 13 4 6 6 6 6 4 4 6 4 6 6 4 4 6 4 4 4 4 124 124 */
06490 /*:ref: sormtr_ 14 16 13 13 13 4 4 6 4 6 6 4 6 4 4 124 124 124 */
06491 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
06492 /*:ref: sstein_ 14 13 4 6 6 4 6 4 4 6 4 6 4 4 4 */
06493 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06495 int ssyevx_(char *jobz, char *range, char *uplo, integer *n, real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
06496 /*:ref: lsame_ 12 4 13 13 124 124 */
06497 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06498 /*:ref: xerbla_ 14 3 13 4 124 */
06499 /*:ref: slamch_ 6 2 13 124 */
06500 /*:ref: slansy_ 6 8 13 13 4 6 4 6 124 124 */
06501 /*:ref: sscal_ 14 4 4 6 6 4 */
06502 /*:ref: ssytrd_ 14 11 13 4 6 4 6 6 6 6 4 4 124 */
06503 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06504 /*:ref: ssterf_ 14 4 4 6 6 4 */
06505 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06506 /*:ref: sorgtr_ 14 9 13 4 6 4 6 6 4 4 124 */
06507 /*:ref: ssteqr_ 14 9 13 4 6 6 6 4 6 4 124 */
06508 /*:ref: sstebz_ 14 20 13 13 4 6 6 4 4 6 6 6 4 4 6 4 4 6 4 4 124 124 */
06509 /*:ref: sstein_ 14 13 4 6 6 4 6 4 4 6 4 6 4 4 4 */
06510 /*:ref: sormtr_ 14 16 13 13 13 4 4 6 4 6 6 4 6 4 4 124 124 124 */
06511 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06513 int ssygs2_(integer *itype, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len);
06514 /*:ref: lsame_ 12 4 13 13 124 124 */
06515 /*:ref: xerbla_ 14 3 13 4 124 */
06516 /*:ref: sscal_ 14 4 4 6 6 4 */
06517 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
06518 /*:ref: ssyr2_ 14 10 13 4 6 6 4 6 4 6 4 124 */
06519 /*:ref: strsv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
06520 /*:ref: strmv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
06522 int ssygst_(integer *itype, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len);
06523 /*:ref: lsame_ 12 4 13 13 124 124 */
06524 /*:ref: xerbla_ 14 3 13 4 124 */
06525 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06526 /*:ref: ssygs2_ 14 9 4 13 4 6 4 6 4 4 124 */
06527 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06528 /*:ref: ssymm_ 14 14 13 13 4 4 6 6 4 6 4 6 6 4 124 124 */
06529 /*:ref: ssyr2k_ 14 14 13 13 4 4 6 6 4 6 4 6 6 4 124 124 */
06530 /*:ref: strmm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06532 int ssygv_(integer *itype, char *jobz, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, integer *lwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06533 /*:ref: lsame_ 12 4 13 13 124 124 */
06534 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06535 /*:ref: xerbla_ 14 3 13 4 124 */
06536 /*:ref: spotrf_ 14 6 13 4 6 4 4 124 */
06537 /*:ref: ssygst_ 14 9 4 13 4 6 4 6 4 4 124 */
06538 /*:ref: ssyev_ 14 11 13 13 4 6 4 6 6 4 4 124 124 */
06539 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06540 /*:ref: strmm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06542 int ssygvd_(integer *itype, char *jobz, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
06543 /*:ref: lsame_ 12 4 13 13 124 124 */
06544 /*:ref: xerbla_ 14 3 13 4 124 */
06545 /*:ref: spotrf_ 14 6 13 4 6 4 4 124 */
06546 /*:ref: ssygst_ 14 9 4 13 4 6 4 6 4 4 124 */
06547 /*:ref: ssyevd_ 14 13 13 13 4 6 4 6 6 4 4 4 4 124 124 */
06548 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06549 /*:ref: strmm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06551 int ssygvx_(integer *itype, char *jobz, char *range, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real *work, integer *lwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
06552 /*:ref: lsame_ 12 4 13 13 124 124 */
06553 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06554 /*:ref: xerbla_ 14 3 13 4 124 */
06555 /*:ref: spotrf_ 14 6 13 4 6 4 4 124 */
06556 /*:ref: ssygst_ 14 9 4 13 4 6 4 6 4 4 124 */
06557 /*:ref: ssyevx_ 14 23 13 13 13 4 6 4 6 6 4 4 6 4 6 6 4 6 4 4 4 4 124 124 124 */
06558 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06559 /*:ref: strmm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06561 int ssysv_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, real *work, integer *lwork, integer *info, ftnlen uplo_len);
06562 /*:ref: lsame_ 12 4 13 13 124 124 */
06563 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06564 /*:ref: xerbla_ 14 3 13 4 124 */
06565 /*:ref: ssytrf_ 14 9 13 4 6 4 4 6 4 4 124 */
06566 /*:ref: ssytrs_ 14 10 13 4 4 6 4 4 6 4 4 124 */
06568 int ssysvx_(char *fact, char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work, integer *lwork, integer *iwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
06569 /*:ref: lsame_ 12 4 13 13 124 124 */
06570 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06571 /*:ref: xerbla_ 14 3 13 4 124 */
06572 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06573 /*:ref: ssytrf_ 14 9 13 4 6 4 4 6 4 4 124 */
06574 /*:ref: slansy_ 6 8 13 13 4 6 4 6 124 124 */
06575 /*:ref: ssycon_ 14 11 13 4 6 4 4 6 6 6 4 4 124 */
06576 /*:ref: slamch_ 6 2 13 124 */
06577 /*:ref: ssytrs_ 14 10 13 4 4 6 4 4 6 4 4 124 */
06578 /*:ref: ssyrfs_ 14 18 13 4 4 6 4 6 4 4 6 4 6 4 6 6 6 4 4 124 */
06580 int ssytd2_(char *uplo, integer *n, real *a, integer *lda, real *d__, real *e, real *tau, integer *info, ftnlen uplo_len);
06581 /*:ref: lsame_ 12 4 13 13 124 124 */
06582 /*:ref: xerbla_ 14 3 13 4 124 */
06583 /*:ref: slarfg_ 14 5 4 6 6 4 6 */
06584 /*:ref: ssymv_ 14 11 13 4 6 6 4 6 4 6 6 4 124 */
06585 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06586 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
06587 /*:ref: ssyr2_ 14 10 13 4 6 6 4 6 4 6 4 124 */
06589 int ssytrd_(char *uplo, integer *n, real *a, integer *lda, real *d__, real *e, real *tau, real *work, integer *lwork, integer *info, ftnlen uplo_len);
06590 /*:ref: lsame_ 12 4 13 13 124 124 */
06591 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06592 /*:ref: xerbla_ 14 3 13 4 124 */
06593 /*:ref: slatrd_ 14 10 13 4 4 6 4 6 6 6 4 124 */
06594 /*:ref: ssyr2k_ 14 14 13 13 4 4 6 6 4 6 4 6 6 4 124 124 */
06595 /*:ref: ssytd2_ 14 9 13 4 6 4 6 6 6 4 124 */
06597 int ssytri_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *info, ftnlen uplo_len);
06598 /*:ref: lsame_ 12 4 13 13 124 124 */
06599 /*:ref: xerbla_ 14 3 13 4 124 */
06600 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06601 /*:ref: ssymv_ 14 11 13 4 6 6 4 6 4 6 6 4 124 */
06602 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06603 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06605 int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len);
06606 /*:ref: lsame_ 12 4 13 13 124 124 */
06607 /*:ref: xerbla_ 14 3 13 4 124 */
06608 /*:ref: sswap_ 14 5 4 6 4 6 4 */
06609 /*:ref: sger_ 14 9 4 4 6 6 4 6 4 6 4 */
06610 /*:ref: sscal_ 14 4 4 6 6 4 */
06611 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
06613 int stbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd, real *ab, integer *ldab, real *rcond, real *work, integer *iwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
06614 /*:ref: lsame_ 12 4 13 13 124 124 */
06615 /*:ref: xerbla_ 14 3 13 4 124 */
06616 /*:ref: slamch_ 6 2 13 124 */
06617 /*:ref: slantb_ 6 11 13 13 13 4 4 6 4 6 124 124 124 */
06618 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06619 /*:ref: slatbs_ 14 16 13 13 13 13 4 4 6 4 6 6 6 4 124 124 124 124 */
06620 /*:ref: isamax_ 4 3 4 6 4 */
06621 /*:ref: srscl_ 14 4 4 6 6 4 */
06623 int stbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
06624 /*:ref: lsame_ 12 4 13 13 124 124 */
06625 /*:ref: xerbla_ 14 3 13 4 124 */
06626 /*:ref: stbsv_ 14 12 13 13 13 4 4 6 4 6 4 124 124 124 */
06628 int stgevc_(char *side, char *howmny, logical *select, integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real *work, integer *info, ftnlen side_len, ftnlen howmny_len);
06629 /*:ref: lsame_ 12 4 13 13 124 124 */
06630 /*:ref: xerbla_ 14 3 13 4 124 */
06631 /*:ref: slamch_ 6 2 13 124 */
06632 /*:ref: slabad_ 14 2 6 6 */
06633 /*:ref: slag2_ 14 10 6 4 6 4 6 6 6 6 6 6 */
06634 /*:ref: slaln2_ 14 18 12 4 4 6 6 6 4 6 6 6 4 6 6 6 4 6 6 4 */
06635 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
06636 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06638 int stgex2_(logical *wantq, logical *wantz, integer *n, real *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work, integer *lwork, integer *info);
06639 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06640 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06641 /*:ref: slamch_ 6 2 13 124 */
06642 /*:ref: slassq_ 14 5 4 6 4 6 6 */
06643 /*:ref: slartg_ 14 5 6 6 6 6 6 */
06644 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
06645 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
06646 /*:ref: stgsy2_ 14 23 13 4 4 4 6 4 6 4 6 4 6 4 6 4 6 4 6 6 6 4 4 4 124 */
06647 /*:ref: sscal_ 14 4 4 6 6 4 */
06648 /*:ref: sgeqr2_ 14 7 4 4 6 4 6 6 4 */
06649 /*:ref: sorg2r_ 14 8 4 4 4 6 4 6 6 4 */
06650 /*:ref: sgerq2_ 14 7 4 4 6 4 6 6 4 */
06651 /*:ref: sorgr2_ 14 8 4 4 4 6 4 6 6 4 */
06652 /*:ref: sormr2_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
06653 /*:ref: sorm2r_ 14 14 13 13 4 4 4 6 4 6 6 4 6 4 124 124 */
06654 /*:ref: slagv2_ 14 11 6 4 6 4 6 6 6 6 6 6 6 */
06656 int stgexc_(logical *wantq, logical *wantz, integer *n, real *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer *lwork, integer *info);
06657 /*:ref: xerbla_ 14 3 13 4 124 */
06658 /*:ref: stgex2_ 14 17 12 12 4 6 4 6 4 6 4 6 4 4 4 4 6 4 4 */
06660 int stgsen_(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq, real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info);
06661 /*:ref: xerbla_ 14 3 13 4 124 */
06662 /*:ref: slamch_ 6 2 13 124 */
06663 /*:ref: slassq_ 14 5 4 6 4 6 6 */
06664 /*:ref: stgexc_ 14 16 12 12 4 6 4 6 4 6 4 6 4 4 4 6 4 4 */
06665 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06666 /*:ref: stgsyl_ 14 23 13 4 4 4 6 4 6 4 6 4 6 4 6 4 6 4 6 6 6 4 4 4 124 */
06667 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06668 /*:ref: slag2_ 14 10 6 4 6 4 6 6 6 6 6 6 */
06670 int stgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, real *a, integer *lda, real *b, integer *ldb, real *tola, real *tolb, real *alpha, real *beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *ldq, real *work, integer *ncycle, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
06671 /*:ref: lsame_ 12 4 13 13 124 124 */
06672 /*:ref: xerbla_ 14 3 13 4 124 */
06673 /*:ref: slaset_ 14 8 13 4 4 6 6 6 4 124 */
06674 /*:ref: slags2_ 14 13 12 6 6 6 6 6 6 6 6 6 6 6 6 */
06675 /*:ref: srot_ 14 7 4 6 4 6 4 6 6 */
06676 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06677 /*:ref: slapll_ 14 6 4 6 4 6 4 6 */
06678 /*:ref: sscal_ 14 4 4 6 6 4 */
06679 /*:ref: slartg_ 14 5 6 6 6 6 6 */
06681 int stgsna_(char *job, char *howmny, logical *select, integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl, integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer *mm, integer *m, real *work, integer *lwork, integer *iwork, integer *info, ftnlen job_len, ftnlen howmny_len);
06682 /*:ref: lsame_ 12 4 13 13 124 124 */
06683 /*:ref: xerbla_ 14 3 13 4 124 */
06684 /*:ref: slamch_ 6 2 13 124 */
06685 /*:ref: snrm2_ 6 3 4 6 4 */
06686 /*:ref: slapy2_ 6 2 6 6 */
06687 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
06688 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06689 /*:ref: slag2_ 14 10 6 4 6 4 6 6 6 6 6 6 */
06690 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06691 /*:ref: stgexc_ 14 16 12 12 4 6 4 6 4 6 4 6 4 4 4 6 4 4 */
06692 /*:ref: stgsyl_ 14 23 13 4 4 4 6 4 6 4 6 4 6 4 6 4 6 4 6 6 6 4 4 4 124 */
06694 int stgsy2_(char *trans, integer *ijob, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer *pq, integer *info, ftnlen trans_len);
06695 /*:ref: lsame_ 12 4 13 13 124 124 */
06696 /*:ref: xerbla_ 14 3 13 4 124 */
06697 /*:ref: sgetc2_ 14 6 4 6 4 4 4 4 */
06698 /*:ref: sgesc2_ 14 7 4 6 4 6 4 4 6 */
06699 /*:ref: sscal_ 14 4 4 6 6 4 */
06700 /*:ref: slatdf_ 14 9 4 4 6 4 6 6 6 4 4 */
06701 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
06702 /*:ref: sger_ 14 9 4 4 6 6 4 6 4 6 4 */
06703 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
06704 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06705 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
06707 int stgsyl_(char *trans, integer *ijob, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer *ldf, real *scale, real *dif, real *work, integer *lwork, integer *iwork, integer *info, ftnlen trans_len);
06708 /*:ref: lsame_ 12 4 13 13 124 124 */
06709 /*:ref: xerbla_ 14 3 13 4 124 */
06710 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06711 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06712 /*:ref: stgsy2_ 14 23 13 4 4 4 6 4 6 4 6 4 6 4 6 4 6 4 6 6 6 4 4 4 124 */
06713 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06714 /*:ref: sscal_ 14 4 4 6 6 4 */
06715 /*:ref: sgemm_ 14 15 13 13 4 4 4 6 6 4 6 4 6 6 4 124 124 */
06717 int stpcon_(char *norm, char *uplo, char *diag, integer *n, real *ap, real *rcond, real *work, integer *iwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
06718 /*:ref: lsame_ 12 4 13 13 124 124 */
06719 /*:ref: xerbla_ 14 3 13 4 124 */
06720 /*:ref: slamch_ 6 2 13 124 */
06721 /*:ref: slantp_ 6 9 13 13 13 4 6 6 124 124 124 */
06722 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06723 /*:ref: slatps_ 14 14 13 13 13 13 4 6 6 6 6 4 124 124 124 124 */
06724 /*:ref: isamax_ 4 3 4 6 4 */
06725 /*:ref: srscl_ 14 4 4 6 6 4 */
06727 int stptri_(char *uplo, char *diag, integer *n, real *ap, integer *info, ftnlen uplo_len, ftnlen diag_len);
06728 /*:ref: lsame_ 12 4 13 13 124 124 */
06729 /*:ref: xerbla_ 14 3 13 4 124 */
06730 /*:ref: stpmv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06731 /*:ref: sscal_ 14 4 4 6 6 4 */
06733 int stptrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
06734 /*:ref: lsame_ 12 4 13 13 124 124 */
06735 /*:ref: xerbla_ 14 3 13 4 124 */
06736 /*:ref: stpsv_ 14 10 13 13 13 4 6 6 4 124 124 124 */
06738 int strcon_(char *norm, char *uplo, char *diag, integer *n, real *a, integer *lda, real *rcond, real *work, integer *iwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
06739 /*:ref: lsame_ 12 4 13 13 124 124 */
06740 /*:ref: xerbla_ 14 3 13 4 124 */
06741 /*:ref: slamch_ 6 2 13 124 */
06742 /*:ref: slantr_ 6 11 13 13 13 4 4 6 4 6 124 124 124 */
06743 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06744 /*:ref: slatrs_ 14 15 13 13 13 13 4 6 4 6 6 6 4 124 124 124 124 */
06745 /*:ref: isamax_ 4 3 4 6 4 */
06746 /*:ref: srscl_ 14 4 4 6 6 4 */
06748 int strevc_(char *side, char *howmny, logical *select, integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real *work, integer *info, ftnlen side_len, ftnlen howmny_len);
06749 /*:ref: lsame_ 12 4 13 13 124 124 */
06750 /*:ref: xerbla_ 14 3 13 4 124 */
06751 /*:ref: slamch_ 6 2 13 124 */
06752 /*:ref: slabad_ 14 2 6 6 */
06753 /*:ref: slaln2_ 14 18 12 4 4 6 6 6 4 6 6 6 4 6 6 6 4 6 6 4 */
06754 /*:ref: sscal_ 14 4 4 6 6 4 */
06755 /*:ref: saxpy_ 14 6 4 6 6 4 6 4 */
06756 /*:ref: scopy_ 14 5 4 6 4 6 4 */
06757 /*:ref: isamax_ 4 3 4 6 4 */
06758 /*:ref: sgemv_ 14 12 13 4 4 6 6 4 6 4 6 6 4 124 */
06759 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06761 int strexc_(char *compq, integer *n, real *t, integer *ldt, real *q, integer *ldq, integer *ifst, integer *ilst, real *work, integer *info, ftnlen compq_len);
06762 /*:ref: lsame_ 12 4 13 13 124 124 */
06763 /*:ref: xerbla_ 14 3 13 4 124 */
06764 /*:ref: slaexc_ 14 11 12 4 6 4 6 4 4 4 4 6 4 */
06766 int strsen_(char *job, char *compq, logical *select, integer *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi, integer *m, real *s, real *sep, real *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen job_len, ftnlen compq_len);
06767 /*:ref: lsame_ 12 4 13 13 124 124 */
06768 /*:ref: xerbla_ 14 3 13 4 124 */
06769 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
06770 /*:ref: strexc_ 14 11 13 4 6 4 6 4 4 4 6 4 124 */
06771 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06772 /*:ref: strsyl_ 14 15 13 13 4 4 4 6 4 6 4 6 4 6 4 124 124 */
06773 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06775 int strsna_(char *job, char *howmny, logical *select, integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *m, real *work, integer *ldwork, integer *iwork, integer *info, ftnlen job_len, ftnlen howmny_len);
06776 /*:ref: lsame_ 12 4 13 13 124 124 */
06777 /*:ref: xerbla_ 14 3 13 4 124 */
06778 /*:ref: slamch_ 6 2 13 124 */
06779 /*:ref: slabad_ 14 2 6 6 */
06780 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06781 /*:ref: snrm2_ 6 3 4 6 4 */
06782 /*:ref: slapy2_ 6 2 6 6 */
06783 /*:ref: slacpy_ 14 8 13 4 4 6 4 6 4 124 */
06784 /*:ref: strexc_ 14 11 13 4 6 4 6 4 4 4 6 4 124 */
06785 /*:ref: slacon_ 14 6 4 6 6 4 6 4 */
06786 /*:ref: slaqtr_ 14 11 12 12 4 6 4 6 6 6 6 6 4 */
06788 int strsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *ldc, real *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);
06789 /*:ref: lsame_ 12 4 13 13 124 124 */
06790 /*:ref: xerbla_ 14 3 13 4 124 */
06791 /*:ref: slamch_ 6 2 13 124 */
06792 /*:ref: slabad_ 14 2 6 6 */
06793 /*:ref: slange_ 6 7 13 4 4 6 4 6 124 */
06794 /*:ref: sdot_ 6 5 4 6 4 6 4 */
06795 /*:ref: sscal_ 14 4 4 6 6 4 */
06796 /*:ref: slaln2_ 14 18 12 4 4 6 6 6 4 6 6 6 4 6 6 6 4 6 6 4 */
06797 /*:ref: slasy2_ 14 16 12 12 4 4 4 6 4 6 4 6 4 6 6 4 6 4 */
06799 int strti2_(char *uplo, char *diag, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len);
06800 /*:ref: lsame_ 12 4 13 13 124 124 */
06801 /*:ref: xerbla_ 14 3 13 4 124 */
06802 /*:ref: strmv_ 14 11 13 13 13 4 6 4 6 4 124 124 124 */
06803 /*:ref: sscal_ 14 4 4 6 6 4 */
06805 int strtri_(char *uplo, char *diag, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len);
06806 /*:ref: lsame_ 12 4 13 13 124 124 */
06807 /*:ref: xerbla_ 14 3 13 4 124 */
06808 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06809 /*:ref: strti2_ 14 8 13 13 4 6 4 4 124 124 */
06810 /*:ref: strmm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06811 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06813 int strtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
06814 /*:ref: lsame_ 12 4 13 13 124 124 */
06815 /*:ref: xerbla_ 14 3 13 4 124 */
06816 /*:ref: strsm_ 14 15 13 13 13 13 4 4 6 6 4 6 4 124 124 124 124 */
06818 int xerbla_(char *srname, integer *info, ftnlen srname_len);
06820 int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt, integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__, integer *ldc, doublereal *rwork, integer *info, ftnlen uplo_len);
06821 /*:ref: lsame_ 12 4 13 13 124 124 */
06822 /*:ref: xerbla_ 14 3 13 4 124 */
06823 /*:ref: dlasq1_ 14 5 4 7 7 7 4 */
06824 /*:ref: dlamch_ 7 2 13 124 */
06825 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
06826 /*:ref: zlasr_ 14 12 13 13 13 4 4 7 7 9 4 124 124 124 */
06827 /*:ref: dlasv2_ 14 9 7 7 7 7 7 7 7 7 7 */
06828 /*:ref: zdrot_ 14 7 4 9 4 9 4 7 7 */
06829 /*:ref: dlas2_ 14 5 7 7 7 7 7 */
06830 /*:ref: zdscal_ 14 4 4 7 9 4 */
06831 /*:ref: zswap_ 14 5 4 9 4 9 4 */
06833 int zdrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
06835 int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, integer *incx);
06836 /*:ref: dlamch_ 7 2 13 124 */
06837 /*:ref: dlabad_ 14 2 7 7 */
06838 /*:ref: zdscal_ 14 4 4 7 9 4 */
06840 int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc, doublecomplex *work, doublereal *rwork, integer *info, ftnlen vect_len);
06841 /*:ref: lsame_ 12 4 13 13 124 124 */
06842 /*:ref: xerbla_ 14 3 13 4 124 */
06843 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
06844 /*:ref: zlargv_ 14 7 4 9 4 9 4 7 4 */
06845 /*:ref: zlartv_ 14 8 4 9 4 9 4 7 9 4 */
06846 /*:ref: zlartg_ 14 5 9 9 7 9 9 */
06847 /*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
06848 /*:ref: zscal_ 14 4 4 9 9 4 */
06850 int zgbcon_(char *norm, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen norm_len);
06851 /*:ref: lsame_ 12 4 13 13 124 124 */
06852 /*:ref: xerbla_ 14 3 13 4 124 */
06853 /*:ref: dlamch_ 7 2 13 124 */
06854 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
06855 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
06856 /*:ref: zlatbs_ 14 16 13 13 13 13 4 4 9 4 9 7 7 4 124 124 124 124 */
06857 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
06858 /*:ref: izamax_ 4 3 4 9 4 */
06859 /*:ref: zdrscl_ 14 4 4 7 9 4 */
06861 int zgbequ_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info);
06862 /*:ref: xerbla_ 14 3 13 4 124 */
06863 /*:ref: dlamch_ 7 2 13 124 */
06865 int zgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *b, integer *ldb, integer *info);
06866 /*:ref: xerbla_ 14 3 13 4 124 */
06867 /*:ref: zgbtrf_ 14 8 4 4 4 4 9 4 4 4 */
06868 /*:ref: zgbtrs_ 14 12 13 4 4 4 4 9 4 4 9 4 4 124 */
06870 int zgbsvx_(char *fact, char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
06871 /*:ref: lsame_ 12 4 13 13 124 124 */
06872 /*:ref: dlamch_ 7 2 13 124 */
06873 /*:ref: xerbla_ 14 3 13 4 124 */
06874 /*:ref: zgbequ_ 14 12 4 4 4 4 9 4 7 7 7 7 7 4 */
06875 /*:ref: zlaqgb_ 14 13 4 4 4 4 9 4 7 7 7 7 7 13 124 */
06876 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
06877 /*:ref: zgbtrf_ 14 8 4 4 4 4 9 4 4 4 */
06878 /*:ref: zlantb_ 7 11 13 13 13 4 4 9 4 7 124 124 124 */
06879 /*:ref: zlangb_ 7 8 13 4 4 4 9 4 7 124 */
06880 /*:ref: zgbcon_ 14 13 13 4 4 4 9 4 4 7 7 9 7 4 124 */
06881 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
06882 /*:ref: zgbtrs_ 14 12 13 4 4 4 4 9 4 4 9 4 4 124 */
06883 /*:ref: zgbrfs_ 14 20 13 4 4 4 4 9 4 9 4 4 9 4 9 4 7 7 9 7 4 124 */
06885 int zgbtrs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen trans_len);
06886 /*:ref: lsame_ 12 4 13 13 124 124 */
06887 /*:ref: xerbla_ 14 3 13 4 124 */
06888 /*:ref: zswap_ 14 5 4 9 4 9 4 */
06889 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
06890 /*:ref: ztbsv_ 14 12 13 13 13 4 4 9 4 9 4 124 124 124 */
06891 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
06892 /*:ref: zlacgv_ 14 3 4 9 4 */
06894 int zgebak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, doublereal *scale, integer *m, doublecomplex *v, integer *ldv, integer *info, ftnlen job_len, ftnlen side_len);
06895 /*:ref: lsame_ 12 4 13 13 124 124 */
06896 /*:ref: xerbla_ 14 3 13 4 124 */
06897 /*:ref: zdscal_ 14 4 4 7 9 4 */
06898 /*:ref: zswap_ 14 5 4 9 4 9 4 */
06900 int zgebal_(char *job, integer *n, doublecomplex *a, integer *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info, ftnlen job_len);
06901 /*:ref: lsame_ 12 4 13 13 124 124 */
06902 /*:ref: xerbla_ 14 3 13 4 124 */
06903 /*:ref: zswap_ 14 5 4 9 4 9 4 */
06904 /*:ref: dlamch_ 7 2 13 124 */
06905 /*:ref: izamax_ 4 3 4 9 4 */
06906 /*:ref: zdscal_ 14 4 4 7 9 4 */
06908 int zgebd2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *work, integer *info);
06909 /*:ref: xerbla_ 14 3 13 4 124 */
06910 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
06911 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
06912 /*:ref: zlacgv_ 14 3 4 9 4 */
06914 int zgebrd_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *work, integer *lwork, integer *info);
06915 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06916 /*:ref: xerbla_ 14 3 13 4 124 */
06917 /*:ref: zlabrd_ 14 13 4 4 4 9 4 7 7 9 9 9 4 9 4 */
06918 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
06919 /*:ref: zgebd2_ 14 10 4 4 9 4 7 7 9 9 9 4 */
06921 int zgecon_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen norm_len);
06922 /*:ref: lsame_ 12 4 13 13 124 124 */
06923 /*:ref: xerbla_ 14 3 13 4 124 */
06924 /*:ref: dlamch_ 7 2 13 124 */
06925 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
06926 /*:ref: zlatrs_ 14 15 13 13 13 13 4 9 4 9 7 7 4 124 124 124 124 */
06927 /*:ref: izamax_ 4 3 4 9 4 */
06928 /*:ref: zdrscl_ 14 4 4 7 9 4 */
06930 int zgeequ_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info);
06931 /*:ref: xerbla_ 14 3 13 4 124 */
06932 /*:ref: dlamch_ 7 2 13 124 */
06934 int zgees_(char *jobvs, char *sort, L_fp select, integer *n, doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork, doublereal *rwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len);
06935 /*:ref: lsame_ 12 4 13 13 124 124 */
06936 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06937 /*:ref: xerbla_ 14 3 13 4 124 */
06938 /*:ref: dlamch_ 7 2 13 124 */
06939 /*:ref: dlabad_ 14 2 7 7 */
06940 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
06941 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
06942 /*:ref: zgebal_ 14 9 13 4 9 4 4 4 7 4 124 */
06943 /*:ref: zgehrd_ 14 9 4 4 4 9 4 9 9 4 4 */
06944 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
06945 /*:ref: zunghr_ 14 9 4 4 4 9 4 9 9 4 4 */
06946 /*:ref: zhseqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
06947 /*:ref: ztrsen_ 14 17 13 13 12 4 9 4 9 4 9 4 7 7 9 4 4 124 124 */
06948 /*:ref: zgebak_ 14 12 13 13 4 4 4 7 4 9 4 4 124 124 */
06949 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
06951 int zgeesx_(char *jobvs, char *sort, L_fp select, char *sense, integer *n, doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, logical *bwork, integer *info, ftnlen jobvs_len, ftnlen sort_len, ftnlen sense_len);
06952 /*:ref: lsame_ 12 4 13 13 124 124 */
06953 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06954 /*:ref: xerbla_ 14 3 13 4 124 */
06955 /*:ref: dlamch_ 7 2 13 124 */
06956 /*:ref: dlabad_ 14 2 7 7 */
06957 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
06958 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
06959 /*:ref: zgebal_ 14 9 13 4 9 4 4 4 7 4 124 */
06960 /*:ref: zgehrd_ 14 9 4 4 4 9 4 9 9 4 4 */
06961 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
06962 /*:ref: zunghr_ 14 9 4 4 4 9 4 9 9 4 4 */
06963 /*:ref: zhseqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
06964 /*:ref: ztrsen_ 14 17 13 13 12 4 9 4 9 4 9 4 7 7 9 4 4 124 124 */
06965 /*:ref: zgebak_ 14 12 13 13 4 4 4 7 4 9 4 4 124 124 */
06966 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
06967 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
06969 int zgeev_(char *jobvl, char *jobvr, integer *n, doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
06970 /*:ref: lsame_ 12 4 13 13 124 124 */
06971 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06972 /*:ref: xerbla_ 14 3 13 4 124 */
06973 /*:ref: dlamch_ 7 2 13 124 */
06974 /*:ref: dlabad_ 14 2 7 7 */
06975 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
06976 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
06977 /*:ref: zgebal_ 14 9 13 4 9 4 4 4 7 4 124 */
06978 /*:ref: zgehrd_ 14 9 4 4 4 9 4 9 9 4 4 */
06979 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
06980 /*:ref: zunghr_ 14 9 4 4 4 9 4 9 9 4 4 */
06981 /*:ref: zhseqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
06982 /*:ref: ztrevc_ 14 17 13 13 12 4 9 4 9 4 9 4 4 4 9 7 4 124 124 */
06983 /*:ref: zgebak_ 14 12 13 13 4 4 4 7 4 9 4 4 124 124 */
06984 /*:ref: dznrm2_ 7 3 4 9 4 */
06985 /*:ref: zdscal_ 14 4 4 7 9 4 */
06986 /*:ref: idamax_ 4 3 4 7 4 */
06987 /*:ref: zscal_ 14 4 4 9 9 4 */
06989 int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
06990 /*:ref: lsame_ 12 4 13 13 124 124 */
06991 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
06992 /*:ref: xerbla_ 14 3 13 4 124 */
06993 /*:ref: dlamch_ 7 2 13 124 */
06994 /*:ref: dlabad_ 14 2 7 7 */
06995 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
06996 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
06997 /*:ref: zgebal_ 14 9 13 4 9 4 4 4 7 4 124 */
06998 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
06999 /*:ref: zgehrd_ 14 9 4 4 4 9 4 9 9 4 4 */
07000 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07001 /*:ref: zunghr_ 14 9 4 4 4 9 4 9 9 4 4 */
07002 /*:ref: zhseqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07003 /*:ref: ztrevc_ 14 17 13 13 12 4 9 4 9 4 9 4 4 4 9 7 4 124 124 */
07004 /*:ref: ztrsna_ 14 20 13 13 12 4 9 4 9 4 9 4 7 7 4 4 9 4 7 4 124 124 */
07005 /*:ref: zgebak_ 14 12 13 13 4 4 4 7 4 9 4 4 124 124 */
07006 /*:ref: dznrm2_ 7 3 4 9 4 */
07007 /*:ref: zdscal_ 14 4 4 7 9 4 */
07008 /*:ref: idamax_ 4 3 4 7 4 */
07009 /*:ref: zscal_ 14 4 4 9 9 4 */
07011 int zgegs_(char *jobvsl, char *jobvsr, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len);
07012 /*:ref: lsame_ 12 4 13 13 124 124 */
07013 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07014 /*:ref: xerbla_ 14 3 13 4 124 */
07015 /*:ref: dlamch_ 7 2 13 124 */
07016 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07017 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07018 /*:ref: zggbal_ 14 13 13 4 9 4 9 4 4 4 7 7 7 4 124 */
07019 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07020 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07021 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07022 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07023 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
07024 /*:ref: zgghrd_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 4 4 124 124 */
07025 /*:ref: zhgeqz_ 14 23 13 13 13 4 4 4 9 4 9 4 9 9 9 4 9 4 9 4 7 4 124 124 124 */
07026 /*:ref: zggbak_ 14 13 13 13 4 4 4 7 7 4 9 4 4 124 124 */
07028 int zgegv_(char *jobvl, char *jobvr, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
07029 /*:ref: lsame_ 12 4 13 13 124 124 */
07030 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07031 /*:ref: xerbla_ 14 3 13 4 124 */
07032 /*:ref: dlamch_ 7 2 13 124 */
07033 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07034 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07035 /*:ref: zggbal_ 14 13 13 4 9 4 9 4 4 4 7 7 7 4 124 */
07036 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07037 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07038 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07039 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07040 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
07041 /*:ref: zgghrd_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 4 4 124 124 */
07042 /*:ref: zhgeqz_ 14 23 13 13 13 4 4 4 9 4 9 4 9 9 9 4 9 4 9 4 7 4 124 124 124 */
07043 /*:ref: ztgevc_ 14 19 13 13 12 4 9 4 9 4 9 4 9 4 4 4 9 7 4 124 124 */
07044 /*:ref: zggbak_ 14 13 13 13 4 4 4 7 7 4 9 4 4 124 124 */
07046 int zgehd2_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
07047 /*:ref: xerbla_ 14 3 13 4 124 */
07048 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07049 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
07051 int zgehrd_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info);
07052 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07053 /*:ref: xerbla_ 14 3 13 4 124 */
07054 /*:ref: zlahrd_ 14 10 4 4 4 9 4 9 9 4 9 4 */
07055 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
07056 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
07057 /*:ref: zgehd2_ 14 8 4 4 4 9 4 9 9 4 */
07059 int zgelq2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
07060 /*:ref: xerbla_ 14 3 13 4 124 */
07061 /*:ref: zlacgv_ 14 3 4 9 4 */
07062 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07063 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
07065 int zgels_(char *trans, integer *m, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info, ftnlen trans_len);
07066 /*:ref: lsame_ 12 4 13 13 124 124 */
07067 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07068 /*:ref: xerbla_ 14 3 13 4 124 */
07069 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07070 /*:ref: dlamch_ 7 2 13 124 */
07071 /*:ref: dlabad_ 14 2 7 7 */
07072 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07073 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07074 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07075 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07076 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07077 /*:ref: zgelqf_ 14 8 4 4 9 4 9 9 4 4 */
07078 /*:ref: zunmlq_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07080 int zgelsd_(integer *m, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, integer *lwork, doublereal *rwork, integer *iwork, integer *info);
07081 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07082 /*:ref: xerbla_ 14 3 13 4 124 */
07083 /*:ref: dlamch_ 7 2 13 124 */
07084 /*:ref: dlabad_ 14 2 7 7 */
07085 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07086 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07087 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07088 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
07089 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07090 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07091 /*:ref: zgebrd_ 14 11 4 4 9 4 7 7 9 9 9 4 4 */
07092 /*:ref: zunmbr_ 14 17 13 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 124 */
07093 /*:ref: zlalsd_ 14 15 13 4 4 4 7 7 9 4 7 4 9 7 4 4 124 */
07094 /*:ref: zgelqf_ 14 8 4 4 9 4 9 9 4 4 */
07095 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07096 /*:ref: zunmlq_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07097 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
07099 int zgelss_(integer *m, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
07100 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07101 /*:ref: xerbla_ 14 3 13 4 124 */
07102 /*:ref: dlamch_ 7 2 13 124 */
07103 /*:ref: dlabad_ 14 2 7 7 */
07104 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07105 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07106 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07107 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
07108 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07109 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07110 /*:ref: zgebrd_ 14 11 4 4 9 4 7 7 9 9 9 4 4 */
07111 /*:ref: zunmbr_ 14 17 13 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 124 */
07112 /*:ref: zungbr_ 14 11 13 4 4 4 9 4 9 9 4 4 124 */
07113 /*:ref: zbdsqr_ 14 16 13 4 4 4 4 7 7 9 4 9 4 9 4 7 4 124 */
07114 /*:ref: zdrscl_ 14 4 4 7 9 4 */
07115 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
07116 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07117 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07118 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07119 /*:ref: zgelqf_ 14 8 4 4 9 4 9 9 4 4 */
07120 /*:ref: zunmlq_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07121 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
07123 int zgelsx_(integer *m, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, doublereal *rwork, integer *info);
07124 /*:ref: xerbla_ 14 3 13 4 124 */
07125 /*:ref: dlamch_ 7 2 13 124 */
07126 /*:ref: dlabad_ 14 2 7 7 */
07127 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07128 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07129 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07130 /*:ref: zgeqpf_ 14 9 4 4 9 4 4 9 9 7 4 */
07131 /*:ref: zlaic1_ 14 9 4 4 9 7 9 9 7 9 9 */
07132 /*:ref: ztzrqf_ 14 6 4 4 9 4 9 4 */
07133 /*:ref: zunm2r_ 14 14 13 13 4 4 4 9 4 9 9 4 9 4 124 124 */
07134 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07135 /*:ref: zlatzm_ 14 11 13 4 4 9 4 9 9 9 4 9 124 */
07137 int zgelsy_(integer *m, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
07138 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07139 /*:ref: xerbla_ 14 3 13 4 124 */
07140 /*:ref: dlamch_ 7 2 13 124 */
07141 /*:ref: dlabad_ 14 2 7 7 */
07142 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07143 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07144 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07145 /*:ref: zgeqp3_ 14 10 4 4 9 4 4 9 9 4 7 4 */
07146 /*:ref: zlaic1_ 14 9 4 4 9 7 9 9 7 9 9 */
07147 /*:ref: ztzrzf_ 14 8 4 4 9 4 9 9 4 4 */
07148 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07149 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07150 /*:ref: zunmrz_ 14 16 13 13 4 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07151 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07153 int zgeql2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
07154 /*:ref: xerbla_ 14 3 13 4 124 */
07155 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07156 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
07158 int zgeqp3_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
07159 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07160 /*:ref: xerbla_ 14 3 13 4 124 */
07161 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07162 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07163 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07164 /*:ref: dznrm2_ 7 3 4 9 4 */
07165 /*:ref: zlaqps_ 14 14 4 4 4 4 4 9 4 4 9 7 7 9 9 4 */
07166 /*:ref: zlaqp2_ 14 10 4 4 4 9 4 4 9 7 7 9 */
07168 int zgeqr2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
07169 /*:ref: xerbla_ 14 3 13 4 124 */
07170 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07171 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
07173 int zgerq2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
07174 /*:ref: xerbla_ 14 3 13 4 124 */
07175 /*:ref: zlacgv_ 14 3 4 9 4 */
07176 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07177 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
07179 int zgesc2_(integer *n, doublecomplex *a, integer *lda, doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
07180 /*:ref: dlamch_ 7 2 13 124 */
07181 /*:ref: dlabad_ 14 2 7 7 */
07182 /*:ref: zlaswp_ 14 7 4 9 4 4 4 4 4 */
07183 /*:ref: izamax_ 4 3 4 9 4 */
07184 /*:ref: zscal_ 14 4 4 9 9 4 */
07186 int zgesdd_(char *jobz, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, integer *lwork, doublereal *rwork, integer *iwork, integer *info, ftnlen jobz_len);
07187 /*:ref: lsame_ 12 4 13 13 124 124 */
07188 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07189 /*:ref: xerbla_ 14 3 13 4 124 */
07190 /*:ref: dlamch_ 7 2 13 124 */
07191 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07192 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07193 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07194 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07195 /*:ref: zgebrd_ 14 11 4 4 9 4 7 7 9 9 9 4 4 */
07196 /*:ref: dbdsdc_ 14 16 13 13 4 7 7 7 4 7 4 7 4 7 4 4 124 124 */
07197 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07198 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
07199 /*:ref: zlacp2_ 14 8 13 4 4 7 4 9 4 124 */
07200 /*:ref: zunmbr_ 14 17 13 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 124 */
07201 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
07202 /*:ref: zungbr_ 14 11 13 4 4 4 9 4 9 9 4 4 124 */
07203 /*:ref: zlarcm_ 14 9 4 4 7 4 9 4 9 4 7 */
07204 /*:ref: zlacrm_ 14 9 4 4 9 4 7 4 9 4 7 */
07205 /*:ref: zgelqf_ 14 8 4 4 9 4 9 9 4 4 */
07206 /*:ref: zunglq_ 14 9 4 4 4 9 4 9 9 4 4 */
07207 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
07209 int zgesv_(integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info);
07210 /*:ref: xerbla_ 14 3 13 4 124 */
07211 /*:ref: zgetrf_ 14 6 4 4 9 4 4 4 */
07212 /*:ref: zgetrs_ 14 10 13 4 4 9 4 4 9 4 4 124 */
07214 int zgesvd_(char *jobu, char *jobvt, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u, integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen jobu_len, ftnlen jobvt_len);
07215 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07216 /*:ref: lsame_ 12 4 13 13 124 124 */
07217 /*:ref: xerbla_ 14 3 13 4 124 */
07218 /*:ref: dlamch_ 7 2 13 124 */
07219 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07220 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07221 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07222 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07223 /*:ref: zgebrd_ 14 11 4 4 9 4 7 7 9 9 9 4 4 */
07224 /*:ref: zungbr_ 14 11 13 4 4 4 9 4 9 9 4 4 124 */
07225 /*:ref: zbdsqr_ 14 16 13 4 4 4 4 7 7 9 4 9 4 9 4 7 4 124 */
07226 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07227 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
07228 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
07229 /*:ref: zunmbr_ 14 17 13 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 124 */
07230 /*:ref: zgelqf_ 14 8 4 4 9 4 9 9 4 4 */
07231 /*:ref: zunglq_ 14 9 4 4 4 9 4 9 9 4 4 */
07232 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
07234 int zgesvx_(char *fact, char *trans, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
07235 /*:ref: lsame_ 12 4 13 13 124 124 */
07236 /*:ref: dlamch_ 7 2 13 124 */
07237 /*:ref: xerbla_ 14 3 13 4 124 */
07238 /*:ref: zgeequ_ 14 10 4 4 9 4 7 7 7 7 7 4 */
07239 /*:ref: zlaqge_ 14 11 4 4 9 4 7 7 7 7 7 13 124 */
07240 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07241 /*:ref: zgetrf_ 14 6 4 4 9 4 4 4 */
07242 /*:ref: zlantr_ 7 11 13 13 13 4 4 9 4 7 124 124 124 */
07243 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07244 /*:ref: zgecon_ 14 10 13 4 9 4 7 7 9 7 4 124 */
07245 /*:ref: zgetrs_ 14 10 13 4 4 9 4 4 9 4 4 124 */
07246 /*:ref: zgerfs_ 14 18 13 4 4 9 4 9 4 4 9 4 9 4 7 7 9 7 4 124 */
07248 int zgetc2_(integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *jpiv, integer *info);
07249 /*:ref: dlamch_ 7 2 13 124 */
07250 /*:ref: dlabad_ 14 2 7 7 */
07251 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07252 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
07254 int zgetri_(integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info);
07255 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07256 /*:ref: xerbla_ 14 3 13 4 124 */
07257 /*:ref: ztrtri_ 14 8 13 13 4 9 4 4 124 124 */
07258 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07259 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
07260 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07261 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07263 int zgetrs_(char *trans, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen trans_len);
07264 /*:ref: lsame_ 12 4 13 13 124 124 */
07265 /*:ref: xerbla_ 14 3 13 4 124 */
07266 /*:ref: zlaswp_ 14 7 4 9 4 4 4 4 4 */
07267 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07269 int zggbak_(char *job, char *side, integer *n, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, integer *m, doublecomplex *v, integer *ldv, integer *info, ftnlen job_len, ftnlen side_len);
07270 /*:ref: lsame_ 12 4 13 13 124 124 */
07271 /*:ref: xerbla_ 14 3 13 4 124 */
07272 /*:ref: zdscal_ 14 4 4 7 9 4 */
07273 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07275 int zggbal_(char *job, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, doublereal *work, integer *info, ftnlen job_len);
07276 /*:ref: lsame_ 12 4 13 13 124 124 */
07277 /*:ref: xerbla_ 14 3 13 4 124 */
07278 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07279 /*:ref: ddot_ 7 5 4 7 4 7 4 */
07280 /*:ref: dscal_ 14 4 4 7 7 4 */
07281 /*:ref: daxpy_ 14 6 4 7 7 4 7 4 */
07282 /*:ref: dlamch_ 7 2 13 124 */
07283 /*:ref: izamax_ 4 3 4 9 4 */
07284 /*:ref: zdscal_ 14 4 4 7 9 4 */
07286 int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork, logical *bwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len);
07287 /*:ref: lsame_ 12 4 13 13 124 124 */
07288 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07289 /*:ref: xerbla_ 14 3 13 4 124 */
07290 /*:ref: dlamch_ 7 2 13 124 */
07291 /*:ref: dlabad_ 14 2 7 7 */
07292 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07293 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07294 /*:ref: zggbal_ 14 13 13 4 9 4 9 4 4 4 7 7 7 4 124 */
07295 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07296 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07297 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07298 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07299 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
07300 /*:ref: zgghrd_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 4 4 124 124 */
07301 /*:ref: zhgeqz_ 14 23 13 13 13 4 4 4 9 4 9 4 9 9 9 4 9 4 9 4 7 4 124 124 124 */
07302 /*:ref: ztgsen_ 14 24 4 12 12 12 4 9 4 9 4 9 9 9 4 9 4 4 7 7 7 9 4 4 4 4 */
07303 /*:ref: zggbak_ 14 13 13 13 4 4 4 7 7 4 9 4 4 124 124 */
07305 int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg, char *sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, integer *iwork, integer *liwork, logical *bwork, integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len, ftnlen sense_len);
07306 /*:ref: lsame_ 12 4 13 13 124 124 */
07307 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07308 /*:ref: xerbla_ 14 3 13 4 124 */
07309 /*:ref: dlamch_ 7 2 13 124 */
07310 /*:ref: dlabad_ 14 2 7 7 */
07311 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07312 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07313 /*:ref: zggbal_ 14 13 13 4 9 4 9 4 4 4 7 7 7 4 124 */
07314 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07315 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07316 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07317 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07318 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
07319 /*:ref: zgghrd_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 4 4 124 124 */
07320 /*:ref: zhgeqz_ 14 23 13 13 13 4 4 4 9 4 9 4 9 9 9 4 9 4 9 4 7 4 124 124 124 */
07321 /*:ref: ztgsen_ 14 24 4 12 12 12 4 9 4 9 4 9 9 9 4 9 4 4 7 7 7 9 4 4 4 4 */
07322 /*:ref: zggbak_ 14 13 13 13 4 4 4 7 7 4 9 4 4 124 124 */
07324 int zggev_(char *jobvl, char *jobvr, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
07325 /*:ref: lsame_ 12 4 13 13 124 124 */
07326 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07327 /*:ref: xerbla_ 14 3 13 4 124 */
07328 /*:ref: dlamch_ 7 2 13 124 */
07329 /*:ref: dlabad_ 14 2 7 7 */
07330 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07331 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07332 /*:ref: zggbal_ 14 13 13 4 9 4 9 4 4 4 7 7 7 4 124 */
07333 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07334 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07335 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07336 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07337 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
07338 /*:ref: zgghrd_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 4 4 124 124 */
07339 /*:ref: zhgeqz_ 14 23 13 13 13 4 4 4 9 4 9 4 9 9 9 4 9 4 9 4 7 4 124 124 124 */
07340 /*:ref: ztgevc_ 14 19 13 13 12 4 9 4 9 4 9 4 9 4 4 4 9 7 4 124 124 */
07341 /*:ref: zggbak_ 14 13 13 13 4 4 4 7 7 4 9 4 4 124 124 */
07343 int zggevx_(char *balanc, char *jobvl, char *jobvr, char *sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale, doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *lwork, doublereal *rwork, integer *iwork, logical *bwork, integer *info, ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
07344 /*:ref: lsame_ 12 4 13 13 124 124 */
07345 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07346 /*:ref: xerbla_ 14 3 13 4 124 */
07347 /*:ref: dlamch_ 7 2 13 124 */
07348 /*:ref: dlabad_ 14 2 7 7 */
07349 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07350 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07351 /*:ref: zggbal_ 14 13 13 4 9 4 9 4 4 4 7 7 7 4 124 */
07352 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
07353 /*:ref: zgeqrf_ 14 8 4 4 9 4 9 9 4 4 */
07354 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07355 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07356 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07357 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
07358 /*:ref: zgghrd_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 4 4 124 124 */
07359 /*:ref: zhgeqz_ 14 23 13 13 13 4 4 4 9 4 9 4 9 9 9 4 9 4 9 4 7 4 124 124 124 */
07360 /*:ref: ztgevc_ 14 19 13 13 12 4 9 4 9 4 9 4 9 4 4 4 9 7 4 124 124 */
07361 /*:ref: ztgsna_ 14 22 13 13 12 4 9 4 9 4 9 4 9 4 7 7 4 4 9 4 4 4 124 124 */
07362 /*:ref: zggbak_ 14 13 13 13 4 4 4 7 7 4 9 4 4 124 124 */
07364 int zggglm_(integer *n, integer *m, integer *p, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex *work, integer *lwork, integer *info);
07365 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07366 /*:ref: xerbla_ 14 3 13 4 124 */
07367 /*:ref: zggqrf_ 14 12 4 4 4 9 4 9 9 4 9 9 4 4 */
07368 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07369 /*:ref: ztrsv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
07370 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07371 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07372 /*:ref: zunmrq_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07374 int zgghrd_(char *compq, char *compz, integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, integer *info, ftnlen compq_len, ftnlen compz_len);
07375 /*:ref: lsame_ 12 4 13 13 124 124 */
07376 /*:ref: xerbla_ 14 3 13 4 124 */
07377 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07378 /*:ref: zlartg_ 14 5 9 9 7 9 9 */
07379 /*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
07381 int zgglse_(integer *m, integer *n, integer *p, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, doublecomplex *d__, doublecomplex *x, doublecomplex *work, integer *lwork, integer *info);
07382 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07383 /*:ref: xerbla_ 14 3 13 4 124 */
07384 /*:ref: zggrqf_ 14 12 4 4 4 9 4 9 9 4 9 9 4 4 */
07385 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07386 /*:ref: ztrsv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
07387 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07388 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07389 /*:ref: ztrmv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
07390 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
07391 /*:ref: zunmrq_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
07393 int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n, integer *p, integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha, doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work, doublereal *rwork, integer *iwork, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
07394 /*:ref: lsame_ 12 4 13 13 124 124 */
07395 /*:ref: xerbla_ 14 3 13 4 124 */
07396 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
07397 /*:ref: dlamch_ 7 2 13 124 */
07398 /*:ref: zggsvp_ 14 28 13 13 13 4 4 4 9 4 9 4 7 7 4 4 9 4 9 4 9 4 4 7 9 9 4 124 124 124 */
07399 /*:ref: ztgsja_ 14 28 13 13 13 4 4 4 4 4 9 4 9 4 7 7 7 7 9 4 9 4 9 4 9 4 4 124 124 124 */
07400 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
07402 int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal *rwork, doublecomplex *tau, doublecomplex *work, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
07403 /*:ref: lsame_ 12 4 13 13 124 124 */
07404 /*:ref: xerbla_ 14 3 13 4 124 */
07405 /*:ref: zgeqpf_ 14 9 4 4 9 4 4 9 9 7 4 */
07406 /*:ref: zlapmt_ 14 6 12 4 4 9 4 4 */
07407 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07408 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07409 /*:ref: zung2r_ 14 8 4 4 4 9 4 9 9 4 */
07410 /*:ref: zgerq2_ 14 7 4 4 9 4 9 9 4 */
07411 /*:ref: zunmr2_ 14 14 13 13 4 4 4 9 4 9 9 4 9 4 124 124 */
07412 /*:ref: zunm2r_ 14 14 13 13 4 4 4 9 4 9 9 4 9 4 124 124 */
07413 /*:ref: zgeqr2_ 14 7 4 4 9 4 9 9 4 */
07415 int zgtcon_(char *norm, integer *n, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen norm_len);
07416 /*:ref: lsame_ 12 4 13 13 124 124 */
07417 /*:ref: xerbla_ 14 3 13 4 124 */
07418 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
07419 /*:ref: zgttrs_ 14 12 13 4 4 9 9 9 9 4 9 4 4 124 */
07421 int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb, integer *info);
07422 /*:ref: xerbla_ 14 3 13 4 124 */
07424 int zgtsvx_(char *fact, char *trans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *dlf, doublecomplex *df, doublecomplex *duf, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen trans_len);
07425 /*:ref: lsame_ 12 4 13 13 124 124 */
07426 /*:ref: xerbla_ 14 3 13 4 124 */
07427 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07428 /*:ref: zgttrf_ 14 7 4 9 9 9 9 4 4 */
07429 /*:ref: zlangt_ 7 6 13 4 9 9 9 124 */
07430 /*:ref: zgtcon_ 14 12 13 4 9 9 9 9 4 7 7 9 4 124 */
07431 /*:ref: dlamch_ 7 2 13 124 */
07432 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07433 /*:ref: zgttrs_ 14 12 13 4 4 9 9 9 9 4 9 4 4 124 */
07434 /*:ref: zgtrfs_ 14 21 13 4 4 9 9 9 9 9 9 9 4 9 4 9 4 7 7 9 7 4 124 */
07436 int zgttrs_(char *trans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen trans_len);
07437 /*:ref: xerbla_ 14 3 13 4 124 */
07438 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07439 /*:ref: zgtts2_ 14 10 4 4 4 9 9 9 9 4 9 4 */
07441 int zgtts2_(integer *itrans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb);
07443 int zhbev_(char *jobz, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07444 /*:ref: lsame_ 12 4 13 13 124 124 */
07445 /*:ref: xerbla_ 14 3 13 4 124 */
07446 /*:ref: dlamch_ 7 2 13 124 */
07447 /*:ref: zlanhb_ 7 9 13 13 4 4 9 4 7 124 124 */
07448 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07449 /*:ref: zhbtrd_ 14 14 13 13 4 4 9 4 7 7 9 4 9 4 124 124 */
07450 /*:ref: dsterf_ 14 4 4 7 7 4 */
07451 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
07452 /*:ref: dscal_ 14 4 4 7 7 4 */
07454 int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07455 /*:ref: lsame_ 12 4 13 13 124 124 */
07456 /*:ref: xerbla_ 14 3 13 4 124 */
07457 /*:ref: dlamch_ 7 2 13 124 */
07458 /*:ref: zlanhb_ 7 9 13 13 4 4 9 4 7 124 124 */
07459 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07460 /*:ref: zhbtrd_ 14 14 13 13 4 4 9 4 7 7 9 4 9 4 124 124 */
07461 /*:ref: dsterf_ 14 4 4 7 7 4 */
07462 /*:ref: zstedc_ 14 14 13 4 7 7 9 4 9 4 7 4 4 4 4 124 */
07463 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
07464 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07465 /*:ref: dscal_ 14 4 4 7 7 4 */
07467 int zhbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
07468 /*:ref: lsame_ 12 4 13 13 124 124 */
07469 /*:ref: xerbla_ 14 3 13 4 124 */
07470 /*:ref: dlamch_ 7 2 13 124 */
07471 /*:ref: zlanhb_ 7 9 13 13 4 4 9 4 7 124 124 */
07472 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07473 /*:ref: zhbtrd_ 14 14 13 13 4 4 9 4 7 7 9 4 9 4 124 124 */
07474 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
07475 /*:ref: dsterf_ 14 4 4 7 7 4 */
07476 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07477 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
07478 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
07479 /*:ref: zstein_ 14 13 4 7 7 4 7 4 4 9 4 7 4 4 4 */
07480 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07481 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07482 /*:ref: dscal_ 14 4 4 7 7 4 */
07483 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07485 int zhbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work, doublereal *rwork, integer *info, ftnlen vect_len, ftnlen uplo_len);
07486 /*:ref: lsame_ 12 4 13 13 124 124 */
07487 /*:ref: xerbla_ 14 3 13 4 124 */
07488 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07489 /*:ref: zdscal_ 14 4 4 7 9 4 */
07490 /*:ref: zgerc_ 14 9 4 4 9 9 4 9 4 9 4 */
07491 /*:ref: zlartg_ 14 5 9 9 7 9 9 */
07492 /*:ref: zlargv_ 14 7 4 9 4 9 4 7 4 */
07493 /*:ref: zlartv_ 14 8 4 9 4 9 4 7 9 4 */
07494 /*:ref: zlar2v_ 14 8 4 9 9 9 4 7 9 4 */
07495 /*:ref: zlacgv_ 14 3 4 9 4 */
07496 /*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
07497 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
07499 int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07500 /*:ref: lsame_ 12 4 13 13 124 124 */
07501 /*:ref: xerbla_ 14 3 13 4 124 */
07502 /*:ref: zpbstf_ 14 7 13 4 4 9 4 4 124 */
07503 /*:ref: zhbgst_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 7 4 124 124 */
07504 /*:ref: zhbtrd_ 14 14 13 13 4 4 9 4 7 7 9 4 9 4 124 124 */
07505 /*:ref: dsterf_ 14 4 4 7 7 4 */
07506 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
07508 int zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07509 /*:ref: lsame_ 12 4 13 13 124 124 */
07510 /*:ref: xerbla_ 14 3 13 4 124 */
07511 /*:ref: zpbstf_ 14 7 13 4 4 9 4 4 124 */
07512 /*:ref: zhbgst_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 7 4 124 124 */
07513 /*:ref: zhbtrd_ 14 14 13 13 4 4 9 4 7 7 9 4 9 4 124 124 */
07514 /*:ref: dsterf_ 14 4 4 7 7 4 */
07515 /*:ref: zstedc_ 14 14 13 4 7 7 9 4 9 4 7 4 4 4 4 124 */
07516 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
07517 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07519 int zhbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka, integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
07520 /*:ref: lsame_ 12 4 13 13 124 124 */
07521 /*:ref: xerbla_ 14 3 13 4 124 */
07522 /*:ref: zpbstf_ 14 7 13 4 4 9 4 4 124 */
07523 /*:ref: zhbgst_ 14 16 13 13 4 4 4 9 4 9 4 9 4 9 7 4 124 124 */
07524 /*:ref: zhbtrd_ 14 14 13 13 4 4 9 4 7 7 9 4 9 4 124 124 */
07525 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
07526 /*:ref: dsterf_ 14 4 4 7 7 4 */
07527 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07528 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
07529 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
07530 /*:ref: zstein_ 14 13 4 7 7 4 7 4 4 9 4 7 4 4 4 */
07531 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07532 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07533 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07535 int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *work, integer *info, ftnlen vect_len, ftnlen uplo_len);
07536 /*:ref: lsame_ 12 4 13 13 124 124 */
07537 /*:ref: xerbla_ 14 3 13 4 124 */
07538 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07539 /*:ref: zlargv_ 14 7 4 9 4 9 4 7 4 */
07540 /*:ref: zlartv_ 14 8 4 9 4 9 4 7 9 4 */
07541 /*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
07542 /*:ref: zlartg_ 14 5 9 9 7 9 9 */
07543 /*:ref: zlar2v_ 14 8 4 9 9 9 4 7 9 4 */
07544 /*:ref: zlacgv_ 14 3 4 9 4 */
07545 /*:ref: zscal_ 14 4 4 9 9 4 */
07547 int zhecon_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len);
07548 /*:ref: lsame_ 12 4 13 13 124 124 */
07549 /*:ref: xerbla_ 14 3 13 4 124 */
07550 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
07551 /*:ref: zhetrs_ 14 10 13 4 4 9 4 4 9 4 4 124 */
07553 int zheev_(char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07554 /*:ref: lsame_ 12 4 13 13 124 124 */
07555 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07556 /*:ref: xerbla_ 14 3 13 4 124 */
07557 /*:ref: dlamch_ 7 2 13 124 */
07558 /*:ref: zlanhe_ 7 8 13 13 4 9 4 7 124 124 */
07559 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07560 /*:ref: zhetrd_ 14 11 13 4 9 4 7 7 9 9 4 4 124 */
07561 /*:ref: dsterf_ 14 4 4 7 7 4 */
07562 /*:ref: zungtr_ 14 9 13 4 9 4 9 9 4 4 124 */
07563 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
07564 /*:ref: dscal_ 14 4 4 7 7 4 */
07566 int zheevd_(char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07567 /*:ref: lsame_ 12 4 13 13 124 124 */
07568 /*:ref: xerbla_ 14 3 13 4 124 */
07569 /*:ref: dlamch_ 7 2 13 124 */
07570 /*:ref: zlanhe_ 7 8 13 13 4 9 4 7 124 124 */
07571 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07572 /*:ref: zhetrd_ 14 11 13 4 9 4 7 7 9 9 4 4 124 */
07573 /*:ref: dsterf_ 14 4 4 7 7 4 */
07574 /*:ref: zstedc_ 14 14 13 4 7 7 9 4 9 4 7 4 4 4 4 124 */
07575 /*:ref: zunmtr_ 14 16 13 13 13 4 4 9 4 9 9 4 9 4 4 124 124 124 */
07576 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07577 /*:ref: dscal_ 14 4 4 7 7 4 */
07579 int zheevr_(char *jobz, char *range, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
07580 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07581 /*:ref: lsame_ 12 4 13 13 124 124 */
07582 /*:ref: xerbla_ 14 3 13 4 124 */
07583 /*:ref: dlamch_ 7 2 13 124 */
07584 /*:ref: zlansy_ 7 8 13 13 4 9 4 7 124 124 */
07585 /*:ref: zdscal_ 14 4 4 7 9 4 */
07586 /*:ref: zhetrd_ 14 11 13 4 9 4 7 7 9 9 4 4 124 */
07587 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
07588 /*:ref: dsterf_ 14 4 4 7 7 4 */
07589 /*:ref: zstegr_ 14 22 13 13 4 7 7 7 7 4 4 7 4 7 9 4 4 7 4 4 4 4 124 124 */
07590 /*:ref: zunmtr_ 14 16 13 13 13 4 4 9 4 9 9 4 9 4 4 124 124 124 */
07591 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
07592 /*:ref: zstein_ 14 13 4 7 7 4 7 4 4 9 4 7 4 4 4 */
07593 /*:ref: dscal_ 14 4 4 7 7 4 */
07594 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07596 int zheevx_(char *jobz, char *range, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
07597 /*:ref: lsame_ 12 4 13 13 124 124 */
07598 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07599 /*:ref: xerbla_ 14 3 13 4 124 */
07600 /*:ref: dlamch_ 7 2 13 124 */
07601 /*:ref: zlanhe_ 7 8 13 13 4 9 4 7 124 124 */
07602 /*:ref: zdscal_ 14 4 4 7 9 4 */
07603 /*:ref: zhetrd_ 14 11 13 4 9 4 7 7 9 9 4 4 124 */
07604 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
07605 /*:ref: dsterf_ 14 4 4 7 7 4 */
07606 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07607 /*:ref: zungtr_ 14 9 13 4 9 4 9 9 4 4 124 */
07608 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
07609 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
07610 /*:ref: zstein_ 14 13 4 7 7 4 7 4 4 9 4 7 4 4 4 */
07611 /*:ref: zunmtr_ 14 16 13 13 13 4 4 9 4 9 9 4 9 4 4 124 124 124 */
07612 /*:ref: dscal_ 14 4 4 7 7 4 */
07613 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07615 int zhegs2_(integer *itype, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
07616 /*:ref: lsame_ 12 4 13 13 124 124 */
07617 /*:ref: xerbla_ 14 3 13 4 124 */
07618 /*:ref: zdscal_ 14 4 4 7 9 4 */
07619 /*:ref: zlacgv_ 14 3 4 9 4 */
07620 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
07621 /*:ref: zher2_ 14 10 13 4 9 9 4 9 4 9 4 124 */
07622 /*:ref: ztrsv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
07623 /*:ref: ztrmv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
07625 int zhegst_(integer *itype, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
07626 /*:ref: lsame_ 12 4 13 13 124 124 */
07627 /*:ref: xerbla_ 14 3 13 4 124 */
07628 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07629 /*:ref: zhegs2_ 14 9 4 13 4 9 4 9 4 4 124 */
07630 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07631 /*:ref: zhemm_ 14 14 13 13 4 4 9 9 4 9 4 9 9 4 124 124 */
07632 /*:ref: zher2k_ 14 14 13 13 4 4 9 9 4 9 4 7 9 4 124 124 */
07633 /*:ref: ztrmm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07635 int zhegv_(integer *itype, char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07636 /*:ref: lsame_ 12 4 13 13 124 124 */
07637 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07638 /*:ref: xerbla_ 14 3 13 4 124 */
07639 /*:ref: zpotrf_ 14 6 13 4 9 4 4 124 */
07640 /*:ref: zhegst_ 14 9 4 13 4 9 4 9 4 4 124 */
07641 /*:ref: zheev_ 14 12 13 13 4 9 4 7 9 4 7 4 124 124 */
07642 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07643 /*:ref: ztrmm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07645 int zhegvd_(integer *itype, char *jobz, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07646 /*:ref: lsame_ 12 4 13 13 124 124 */
07647 /*:ref: xerbla_ 14 3 13 4 124 */
07648 /*:ref: zpotrf_ 14 6 13 4 9 4 4 124 */
07649 /*:ref: zhegst_ 14 9 4 13 4 9 4 9 4 4 124 */
07650 /*:ref: zheevd_ 14 15 13 13 4 9 4 7 9 4 7 4 4 4 4 124 124 */
07651 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07652 /*:ref: ztrmm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07654 int zhegvx_(integer *itype, char *jobz, char *range, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
07655 /*:ref: lsame_ 12 4 13 13 124 124 */
07656 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07657 /*:ref: xerbla_ 14 3 13 4 124 */
07658 /*:ref: zpotrf_ 14 6 13 4 9 4 4 124 */
07659 /*:ref: zhegst_ 14 9 4 13 4 9 4 9 4 4 124 */
07660 /*:ref: zheevx_ 14 24 13 13 13 4 9 4 7 7 4 4 7 4 7 9 4 9 4 7 4 4 4 124 124 124 */
07661 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07662 /*:ref: ztrmm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
07664 int zhesv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len);
07665 /*:ref: lsame_ 12 4 13 13 124 124 */
07666 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07667 /*:ref: xerbla_ 14 3 13 4 124 */
07668 /*:ref: zhetrf_ 14 9 13 4 9 4 4 9 4 4 124 */
07669 /*:ref: zhetrs_ 14 10 13 4 4 9 4 4 9 4 4 124 */
07671 int zhesvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
07672 /*:ref: lsame_ 12 4 13 13 124 124 */
07673 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07674 /*:ref: xerbla_ 14 3 13 4 124 */
07675 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07676 /*:ref: zhetrf_ 14 9 13 4 9 4 4 9 4 4 124 */
07677 /*:ref: zlanhe_ 7 8 13 13 4 9 4 7 124 124 */
07678 /*:ref: zhecon_ 14 10 13 4 9 4 4 7 7 9 4 124 */
07679 /*:ref: dlamch_ 7 2 13 124 */
07680 /*:ref: zhetrs_ 14 10 13 4 4 9 4 4 9 4 4 124 */
07681 /*:ref: zherfs_ 14 18 13 4 4 9 4 9 4 4 9 4 9 4 7 7 9 7 4 124 */
07683 int zhetd2_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, integer *info, ftnlen uplo_len);
07684 /*:ref: lsame_ 12 4 13 13 124 124 */
07685 /*:ref: xerbla_ 14 3 13 4 124 */
07686 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07687 /*:ref: zhemv_ 14 11 13 4 9 9 4 9 4 9 9 4 124 */
07688 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
07689 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
07690 /*:ref: zher2_ 14 10 13 4 9 9 4 9 4 9 4 124 */
07692 int zhetrd_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len);
07693 /*:ref: lsame_ 12 4 13 13 124 124 */
07694 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07695 /*:ref: xerbla_ 14 3 13 4 124 */
07696 /*:ref: zlatrd_ 14 10 13 4 4 9 4 7 9 9 4 124 */
07697 /*:ref: zher2k_ 14 14 13 13 4 4 9 9 4 9 4 7 9 4 124 124 */
07698 /*:ref: zhetd2_ 14 9 13 4 9 4 7 7 9 4 124 */
07700 int zhetri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len);
07701 /*:ref: lsame_ 12 4 13 13 124 124 */
07702 /*:ref: xerbla_ 14 3 13 4 124 */
07703 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07704 /*:ref: zhemv_ 14 11 13 4 9 9 4 9 4 9 9 4 124 */
07705 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
07706 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07708 int zhetrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
07709 /*:ref: lsame_ 12 4 13 13 124 124 */
07710 /*:ref: xerbla_ 14 3 13 4 124 */
07711 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07712 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
07713 /*:ref: zdscal_ 14 4 4 7 9 4 */
07714 /*:ref: zlacgv_ 14 3 4 9 4 */
07715 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07717 int zhgeqz_(char *job, char *compq, char *compz, integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen job_len, ftnlen compq_len, ftnlen compz_len);
07718 /*:ref: lsame_ 12 4 13 13 124 124 */
07719 /*:ref: xerbla_ 14 3 13 4 124 */
07720 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07721 /*:ref: dlamch_ 7 2 13 124 */
07722 /*:ref: zlanhs_ 7 6 13 4 9 4 7 124 */
07723 /*:ref: zscal_ 14 4 4 9 9 4 */
07724 /*:ref: zlartg_ 14 5 9 9 7 9 9 */
07725 /*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
07727 int zhpcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len);
07728 /*:ref: lsame_ 12 4 13 13 124 124 */
07729 /*:ref: xerbla_ 14 3 13 4 124 */
07730 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
07731 /*:ref: zhptrs_ 14 9 13 4 4 9 4 9 4 4 124 */
07733 int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07734 /*:ref: lsame_ 12 4 13 13 124 124 */
07735 /*:ref: xerbla_ 14 3 13 4 124 */
07736 /*:ref: dlamch_ 7 2 13 124 */
07737 /*:ref: zlanhp_ 7 7 13 13 4 9 7 124 124 */
07738 /*:ref: zdscal_ 14 4 4 7 9 4 */
07739 /*:ref: zhptrd_ 14 8 13 4 9 7 7 9 4 124 */
07740 /*:ref: dsterf_ 14 4 4 7 7 4 */
07741 /*:ref: zupgtr_ 14 9 13 4 9 9 9 4 9 4 124 */
07742 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
07743 /*:ref: dscal_ 14 4 4 7 7 4 */
07745 int zhpevd_(char *jobz, char *uplo, integer *n, doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07746 /*:ref: lsame_ 12 4 13 13 124 124 */
07747 /*:ref: xerbla_ 14 3 13 4 124 */
07748 /*:ref: dlamch_ 7 2 13 124 */
07749 /*:ref: zlanhp_ 7 7 13 13 4 9 7 124 124 */
07750 /*:ref: zdscal_ 14 4 4 7 9 4 */
07751 /*:ref: zhptrd_ 14 8 13 4 9 7 7 9 4 124 */
07752 /*:ref: dsterf_ 14 4 4 7 7 4 */
07753 /*:ref: zstedc_ 14 14 13 4 7 7 9 4 9 4 7 4 4 4 4 124 */
07754 /*:ref: zupmtr_ 14 14 13 13 13 4 4 9 9 9 4 9 4 124 124 124 */
07755 /*:ref: dscal_ 14 4 4 7 7 4 */
07757 int zhpevx_(char *jobz, char *range, char *uplo, integer *n, doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
07758 /*:ref: lsame_ 12 4 13 13 124 124 */
07759 /*:ref: xerbla_ 14 3 13 4 124 */
07760 /*:ref: dlamch_ 7 2 13 124 */
07761 /*:ref: zlanhp_ 7 7 13 13 4 9 7 124 124 */
07762 /*:ref: zdscal_ 14 4 4 7 9 4 */
07763 /*:ref: zhptrd_ 14 8 13 4 9 7 7 9 4 124 */
07764 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
07765 /*:ref: dsterf_ 14 4 4 7 7 4 */
07766 /*:ref: zupgtr_ 14 9 13 4 9 9 9 4 9 4 124 */
07767 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
07768 /*:ref: dstebz_ 14 20 13 13 4 7 7 4 4 7 7 7 4 4 7 4 4 7 4 4 124 124 */
07769 /*:ref: zstein_ 14 13 4 7 7 4 7 4 4 9 4 7 4 4 4 */
07770 /*:ref: zupmtr_ 14 14 13 13 13 4 4 9 9 9 4 9 4 124 124 124 */
07771 /*:ref: dscal_ 14 4 4 7 7 4 */
07772 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07774 int zhpgst_(integer *itype, char *uplo, integer *n, doublecomplex *ap, doublecomplex *bp, integer *info, ftnlen uplo_len);
07775 /*:ref: lsame_ 12 4 13 13 124 124 */
07776 /*:ref: xerbla_ 14 3 13 4 124 */
07777 /*:ref: ztpsv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
07778 /*:ref: zhpmv_ 14 10 13 4 9 9 9 4 9 9 4 124 */
07779 /*:ref: zdscal_ 14 4 4 7 9 4 */
07780 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
07781 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
07782 /*:ref: zhpr2_ 14 9 13 4 9 9 4 9 4 9 124 */
07783 /*:ref: ztpmv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
07785 int zhpgv_(integer *itype, char *jobz, char *uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07786 /*:ref: lsame_ 12 4 13 13 124 124 */
07787 /*:ref: xerbla_ 14 3 13 4 124 */
07788 /*:ref: zpptrf_ 14 5 13 4 9 4 124 */
07789 /*:ref: zhpgst_ 14 7 4 13 4 9 9 4 124 */
07790 /*:ref: zhpev_ 14 12 13 13 4 9 7 9 4 9 7 4 124 124 */
07791 /*:ref: ztpsv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
07792 /*:ref: ztpmv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
07794 int zhpgvd_(integer *itype, char *jobz, char *uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
07795 /*:ref: lsame_ 12 4 13 13 124 124 */
07796 /*:ref: xerbla_ 14 3 13 4 124 */
07797 /*:ref: zpptrf_ 14 5 13 4 9 4 124 */
07798 /*:ref: zhpgst_ 14 7 4 13 4 9 9 4 124 */
07799 /*:ref: zhpevd_ 14 16 13 13 4 9 7 9 4 9 4 7 4 4 4 4 124 124 */
07800 /*:ref: ztpsv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
07801 /*:ref: ztpmv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
07803 int zhpgvx_(integer *itype, char *jobz, char *range, char *uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork, integer *ifail, integer *info, ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
07804 /*:ref: lsame_ 12 4 13 13 124 124 */
07805 /*:ref: xerbla_ 14 3 13 4 124 */
07806 /*:ref: zpptrf_ 14 5 13 4 9 4 124 */
07807 /*:ref: zhpgst_ 14 7 4 13 4 9 9 4 124 */
07808 /*:ref: zhpevx_ 14 22 13 13 13 4 9 7 7 4 4 7 4 7 9 4 9 7 4 4 4 124 124 124 */
07809 /*:ref: ztpsv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
07810 /*:ref: ztpmv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
07812 int zhpsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
07813 /*:ref: lsame_ 12 4 13 13 124 124 */
07814 /*:ref: xerbla_ 14 3 13 4 124 */
07815 /*:ref: zhptrf_ 14 6 13 4 9 4 4 124 */
07816 /*:ref: zhptrs_ 14 9 13 4 4 9 4 9 4 4 124 */
07818 int zhpsvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
07819 /*:ref: lsame_ 12 4 13 13 124 124 */
07820 /*:ref: xerbla_ 14 3 13 4 124 */
07821 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07822 /*:ref: zhptrf_ 14 6 13 4 9 4 4 124 */
07823 /*:ref: zlanhp_ 7 7 13 13 4 9 7 124 124 */
07824 /*:ref: zhpcon_ 14 9 13 4 9 4 7 7 9 4 124 */
07825 /*:ref: dlamch_ 7 2 13 124 */
07826 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07827 /*:ref: zhptrs_ 14 9 13 4 4 9 4 9 4 4 124 */
07828 /*:ref: zhprfs_ 14 16 13 4 4 9 9 4 9 4 9 4 7 7 9 7 4 124 */
07830 int zhptrd_(char *uplo, integer *n, doublecomplex *ap, doublereal *d__, doublereal *e, doublecomplex *tau, integer *info, ftnlen uplo_len);
07831 /*:ref: lsame_ 12 4 13 13 124 124 */
07832 /*:ref: xerbla_ 14 3 13 4 124 */
07833 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07834 /*:ref: zhpmv_ 14 10 13 4 9 9 9 4 9 9 4 124 */
07835 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
07836 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
07837 /*:ref: zhpr2_ 14 9 13 4 9 9 4 9 4 9 124 */
07839 int zhptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len);
07840 /*:ref: lsame_ 12 4 13 13 124 124 */
07841 /*:ref: xerbla_ 14 3 13 4 124 */
07842 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07843 /*:ref: zhpmv_ 14 10 13 4 9 9 9 4 9 9 4 124 */
07844 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
07845 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07847 int zhptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
07848 /*:ref: lsame_ 12 4 13 13 124 124 */
07849 /*:ref: xerbla_ 14 3 13 4 124 */
07850 /*:ref: zswap_ 14 5 4 9 4 9 4 */
07851 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
07852 /*:ref: zdscal_ 14 4 4 7 9 4 */
07853 /*:ref: zlacgv_ 14 3 4 9 4 */
07854 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07856 int zhsein_(char *side, char *eigsrc, char *initv, logical *select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, integer *ifaill, integer *ifailr, integer *info, ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
07857 /*:ref: lsame_ 12 4 13 13 124 124 */
07858 /*:ref: xerbla_ 14 3 13 4 124 */
07859 /*:ref: dlamch_ 7 2 13 124 */
07860 /*:ref: zlanhs_ 7 6 13 4 9 4 7 124 */
07861 /*:ref: zlaein_ 14 13 12 12 4 9 4 9 9 9 4 7 7 7 4 */
07863 int zhseqr_(char *job, char *compz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compz_len);
07864 /*:ref: lsame_ 12 4 13 13 124 124 */
07865 /*:ref: xerbla_ 14 3 13 4 124 */
07866 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
07867 /*:ref: dlapy2_ 7 2 7 7 */
07868 /*:ref: zscal_ 14 4 4 9 9 4 */
07869 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07870 /*:ref: zlahqr_ 14 13 12 12 4 4 4 9 4 9 4 4 9 4 4 */
07871 /*:ref: dlamch_ 7 2 13 124 */
07872 /*:ref: dlabad_ 14 2 7 7 */
07873 /*:ref: zlanhs_ 7 6 13 4 9 4 7 124 */
07874 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07875 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07876 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07877 /*:ref: izamax_ 4 3 4 9 4 */
07878 /*:ref: zdscal_ 14 4 4 7 9 4 */
07879 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07880 /*:ref: zlarfx_ 14 9 13 4 4 9 9 9 4 9 124 */
07882 int zlabrd_(integer *m, integer *n, integer *nb, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer *ldx, doublecomplex *y, integer *ldy);
07883 /*:ref: zlacgv_ 14 3 4 9 4 */
07884 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07885 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07886 /*:ref: zscal_ 14 4 4 9 9 4 */
07888 int zlacgv_(integer *n, doublecomplex *x, integer *incx);
07890 int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, doublereal *est, integer *kase);
07891 /*:ref: dlamch_ 7 2 13 124 */
07892 /*:ref: dzsum1_ 7 3 4 9 4 */
07893 /*:ref: izmax1_ 4 3 4 9 4 */
07894 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07896 int zlacp2_(char *uplo, integer *m, integer *n, doublereal *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen uplo_len);
07897 /*:ref: lsame_ 12 4 13 13 124 124 */
07899 int zlacpy_(char *uplo, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen uplo_len);
07900 /*:ref: lsame_ 12 4 13 13 124 124 */
07902 int zlacrm_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *rwork);
07903 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
07905 int zlacrt_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *s);
07906 Z_f zladiv_(doublecomplex * ret_val, doublecomplex *x, doublecomplex *y);
07907 /*:ref: dladiv_ 14 6 7 7 7 7 7 7 */
07909 int zlaed0_(integer *qsiz, integer *n, doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, integer *ldqs, doublereal *rwork, integer *iwork, integer *info);
07910 /*:ref: xerbla_ 14 3 13 4 124 */
07911 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
07912 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
07913 /*:ref: zlacrm_ 14 9 4 4 9 4 7 4 9 4 7 */
07914 /*:ref: zlaed7_ 14 22 4 4 4 4 4 4 7 9 4 7 4 7 4 4 4 4 4 7 9 7 4 4 */
07915 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07916 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
07918 int zlaed7_(integer *n, integer *cutpnt, integer *qsiz, integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__, doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq, doublereal *qstore, integer *qptr, integer *prmptr, integer *perm, integer *givptr, integer *givcol, doublereal *givnum, doublecomplex *work, doublereal *rwork, integer *iwork, integer *info);
07919 /*:ref: xerbla_ 14 3 13 4 124 */
07920 /*:ref: dlaeda_ 14 14 4 4 4 4 4 4 4 4 7 7 4 7 7 4 */
07921 /*:ref: zlaed8_ 14 21 4 4 4 9 4 7 7 4 7 7 9 4 7 4 4 4 4 4 4 7 4 */
07922 /*:ref: dlaed9_ 14 13 4 4 4 4 7 7 4 7 7 7 7 4 4 */
07923 /*:ref: zlacrm_ 14 9 4 4 9 4 7 4 9 4 7 */
07924 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
07926 int zlaed8_(integer *k, integer *n, integer *qsiz, doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex *q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx, integer *indxq, integer *perm, integer *givptr, integer *givcol, doublereal *givnum, integer *info);
07927 /*:ref: xerbla_ 14 3 13 4 124 */
07928 /*:ref: dscal_ 14 4 4 7 7 4 */
07929 /*:ref: dlamrg_ 14 6 4 4 7 4 4 4 */
07930 /*:ref: idamax_ 4 3 4 7 4 */
07931 /*:ref: dlamch_ 7 2 13 124 */
07932 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07933 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07934 /*:ref: dlapy2_ 7 2 7 7 */
07935 /*:ref: zdrot_ 14 7 4 9 4 9 4 7 7 */
07936 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
07938 int zlaein_(logical *rightv, logical *noinit, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v, doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3, doublereal *smlnum, integer *info);
07939 /*:ref: dznrm2_ 7 3 4 9 4 */
07940 /*:ref: zdscal_ 14 4 4 7 9 4 */
07941 /*:ref: zladiv_ 9 3 9 9 9 */
07942 /*:ref: zlatrs_ 14 15 13 13 13 13 4 9 4 9 7 7 4 124 124 124 124 */
07943 /*:ref: dzasum_ 7 3 4 9 4 */
07944 /*:ref: izamax_ 4 3 4 9 4 */
07946 int zlaesy_(doublecomplex *a, doublecomplex *b, doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2, doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
07948 int zlaev2_(doublecomplex *a, doublecomplex *b, doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublecomplex *sn1);
07949 /*:ref: dlaev2_ 14 7 7 7 7 7 7 7 7 */
07951 int zlags2_(logical *upper, doublereal *a1, doublecomplex *a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3, doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex *snv, doublereal *csq, doublecomplex *snq);
07952 /*:ref: dlasv2_ 14 9 7 7 7 7 7 7 7 7 7 */
07953 /*:ref: zlartg_ 14 5 9 9 7 9 9 */
07955 int zlagtm_(char *trans, integer *n, integer *nrhs, doublereal *alpha, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta, doublecomplex *b, integer *ldb, ftnlen trans_len);
07956 /*:ref: lsame_ 12 4 13 13 124 124 */
07958 int zlahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__, integer *ldz, integer *info);
07959 /*:ref: dlamch_ 7 2 13 124 */
07960 /*:ref: zlanhs_ 7 6 13 4 9 4 7 124 */
07961 /*:ref: zladiv_ 9 3 9 9 9 */
07962 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07963 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07964 /*:ref: zscal_ 14 4 4 9 9 4 */
07966 int zlahrd_(integer *n, integer *k, integer *nb, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, integer *ldt, doublecomplex *y, integer *ldy);
07967 /*:ref: zlacgv_ 14 3 4 9 4 */
07968 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
07969 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07970 /*:ref: ztrmv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
07971 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
07972 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
07973 /*:ref: zscal_ 14 4 4 9 9 4 */
07975 int zlaic1_(integer *job, integer *j, doublecomplex *x, doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *sestpr, doublecomplex *s, doublecomplex *c__);
07976 /*:ref: dlamch_ 7 2 13 124 */
07977 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
07979 int zlals0_(integer *icompq, integer *nl, integer *nr, integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork, integer *info);
07980 /*:ref: xerbla_ 14 3 13 4 124 */
07981 /*:ref: zdrot_ 14 7 4 9 4 9 4 7 7 */
07982 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07983 /*:ref: zdscal_ 14 4 4 7 9 4 */
07984 /*:ref: dlamc3_ 7 2 7 7 */
07985 /*:ref: dnrm2_ 7 3 4 7 4 */
07986 /*:ref: dgemv_ 14 12 13 4 4 7 7 4 7 4 7 7 4 124 */
07987 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
07988 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
07990 int zlalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx, integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *poles, integer *givptr, integer *givcol, integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *rwork, integer *iwork, integer *info);
07991 /*:ref: xerbla_ 14 3 13 4 124 */
07992 /*:ref: dlasdt_ 14 7 4 4 4 4 4 4 4 */
07993 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
07994 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
07995 /*:ref: zlals0_ 14 24 4 4 4 4 4 9 4 9 4 4 4 4 4 7 4 7 7 7 7 4 7 7 7 4 */
07997 int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublecomplex *b, integer *ldb, doublereal *rcond, integer *rank, doublecomplex *work, doublereal *rwork, integer *iwork, integer *info, ftnlen uplo_len);
07998 /*:ref: xerbla_ 14 3 13 4 124 */
07999 /*:ref: dlamch_ 7 2 13 124 */
08000 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
08001 /*:ref: zlascl_ 14 11 13 4 4 7 7 4 4 9 4 4 124 */
08002 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
08003 /*:ref: zdrot_ 14 7 4 9 4 9 4 7 7 */
08004 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
08005 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
08006 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
08007 /*:ref: dlasdq_ 14 17 13 4 4 4 4 4 7 7 7 4 7 4 7 4 7 4 124 */
08008 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
08009 /*:ref: idamax_ 4 3 4 7 4 */
08010 /*:ref: dlasrt_ 14 5 13 4 7 4 124 */
08011 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08012 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08013 /*:ref: dlasda_ 14 24 4 4 4 4 7 7 7 4 7 4 7 7 7 7 4 4 4 4 7 7 7 7 4 4 */
08014 /*:ref: zlalsa_ 14 26 4 4 4 4 9 4 9 4 7 4 7 4 7 7 7 7 4 4 4 4 7 7 7 7 4 4 */
08016 doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len);
08017 /*:ref: lsame_ 12 4 13 13 124 124 */
08018 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08020 doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len);
08021 /*:ref: lsame_ 12 4 13 13 124 124 */
08022 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08024 doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, ftnlen norm_len);
08025 /*:ref: lsame_ 12 4 13 13 124 124 */
08026 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08028 doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
08029 /*:ref: lsame_ 12 4 13 13 124 124 */
08030 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08032 doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
08033 /*:ref: lsame_ 12 4 13 13 124 124 */
08034 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08036 doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
08037 /*:ref: lsame_ 12 4 13 13 124 124 */
08038 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08040 doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len);
08041 /*:ref: lsame_ 12 4 13 13 124 124 */
08042 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08044 doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e, ftnlen norm_len);
08045 /*:ref: lsame_ 12 4 13 13 124 124 */
08046 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08047 /*:ref: dlassq_ 14 5 4 7 4 7 7 */
08049 doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
08050 /*:ref: lsame_ 12 4 13 13 124 124 */
08051 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08053 doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
08054 /*:ref: lsame_ 12 4 13 13 124 124 */
08055 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08057 doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len);
08058 /*:ref: lsame_ 12 4 13 13 124 124 */
08059 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08061 doublereal zlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
08062 /*:ref: lsame_ 12 4 13 13 124 124 */
08063 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08065 doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
08066 /*:ref: lsame_ 12 4 13 13 124 124 */
08067 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08069 doublereal zlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
08070 /*:ref: lsame_ 12 4 13 13 124 124 */
08071 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08073 int zlapll_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *ssmin);
08074 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
08075 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08076 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08077 /*:ref: dlas2_ 14 5 7 7 7 7 7 */
08079 int zlapmt_(logical *forwrd, integer *m, integer *n, doublecomplex *x, integer *ldx, integer *k);
08081 int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed, ftnlen equed_len);
08082 /*:ref: dlamch_ 7 2 13 124 */
08084 int zlaqge_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed, ftnlen equed_len);
08085 /*:ref: dlamch_ 7 2 13 124 */
08087 int zlaqhb_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
08088 /*:ref: dlamch_ 7 2 13 124 */
08089 /*:ref: lsame_ 12 4 13 13 124 124 */
08091 int zlaqhe_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
08092 /*:ref: dlamch_ 7 2 13 124 */
08093 /*:ref: lsame_ 12 4 13 13 124 124 */
08095 int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
08096 /*:ref: dlamch_ 7 2 13 124 */
08097 /*:ref: lsame_ 12 4 13 13 124 124 */
08099 int zlaqp2_(integer *m, integer *n, integer *offset, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *work);
08100 /*:ref: idamax_ 4 3 4 7 4 */
08101 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08102 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
08103 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08104 /*:ref: dznrm2_ 7 3 4 9 4 */
08106 int zlaqps_(integer *m, integer *n, integer *offset, integer *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *auxv, doublecomplex *f, integer *ldf);
08107 /*:ref: idamax_ 4 3 4 7 4 */
08108 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08109 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08110 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
08111 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
08112 /*:ref: dznrm2_ 7 3 4 9 4 */
08114 int zlaqsb_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
08115 /*:ref: dlamch_ 7 2 13 124 */
08116 /*:ref: lsame_ 12 4 13 13 124 124 */
08118 int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
08119 /*:ref: dlamch_ 7 2 13 124 */
08120 /*:ref: lsame_ 12 4 13 13 124 124 */
08122 int zlaqsy_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
08123 /*:ref: dlamch_ 7 2 13 124 */
08124 /*:ref: lsame_ 12 4 13 13 124 124 */
08126 int zlar1v_(integer *n, integer *b1, integer *bn, doublereal *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *lld, doublereal *gersch, doublecomplex *z__, doublereal *ztz, doublereal *mingma, integer *r__, integer *isuppz, doublereal *work);
08127 /*:ref: dlamch_ 7 2 13 124 */
08129 int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s, integer *incc);
08131 int zlarcm_(integer *m, integer *n, doublereal *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *rwork);
08132 /*:ref: dgemm_ 14 15 13 13 4 4 4 7 7 4 7 4 7 7 4 124 124 */
08134 int zlargv_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *c__, integer *incc);
08135 /*:ref: dlamch_ 7 2 13 124 */
08136 /*:ref: dlapy2_ 7 2 7 7 */
08138 int zlarnv_(integer *idist, integer *iseed, integer *n, doublecomplex *x);
08139 /*:ref: dlaruv_ 14 3 4 4 7 */
08141 int zlarrv_(integer *n, doublereal *d__, doublereal *l, integer *isplit, integer *m, doublereal *w, integer *iblock, doublereal *gersch, doublereal *tol, doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, integer *iwork, integer *info);
08142 /*:ref: dlamch_ 7 2 13 124 */
08143 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
08144 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
08145 /*:ref: dlarrb_ 14 15 4 7 7 7 7 4 4 7 7 7 7 7 7 4 4 */
08146 /*:ref: dlarrf_ 14 13 4 7 7 7 7 4 4 7 7 7 7 4 4 */
08147 /*:ref: zstein_ 14 13 4 7 7 4 7 4 4 9 4 7 4 4 4 */
08148 /*:ref: zlar1v_ 14 15 4 4 4 7 7 7 7 7 7 9 7 7 4 4 7 */
08149 /*:ref: zdscal_ 14 4 4 7 9 4 */
08150 /*:ref: zdotu_ 9 6 9 4 9 4 9 4 */
08151 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08152 /*:ref: dznrm2_ 7 3 4 9 4 */
08154 int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *cs, doublecomplex *sn, doublecomplex *r__);
08155 /*:ref: dlamch_ 7 2 13 124 */
08156 /*:ref: dlapy2_ 7 2 7 7 */
08158 int zlartv_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s, integer *incc);
08160 int zlarz_(char *side, integer *m, integer *n, integer *l, doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, ftnlen side_len);
08161 /*:ref: lsame_ 12 4 13 13 124 124 */
08162 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08163 /*:ref: zlacgv_ 14 3 4 9 4 */
08164 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08165 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08166 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
08167 /*:ref: zgerc_ 14 9 4 4 9 9 4 9 4 9 4 */
08169 int zlarzb_(char *side, char *trans, char *direct, char *storev, integer *m, integer *n, integer *k, integer *l, doublecomplex *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *ldwork, ftnlen side_len, ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
08170 /*:ref: lsame_ 12 4 13 13 124 124 */
08171 /*:ref: xerbla_ 14 3 13 4 124 */
08172 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08173 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
08174 /*:ref: ztrmm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
08175 /*:ref: zlacgv_ 14 3 4 9 4 */
08177 int zlarzt_(char *direct, char *storev, integer *n, integer *k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *t, integer *ldt, ftnlen direct_len, ftnlen storev_len);
08178 /*:ref: lsame_ 12 4 13 13 124 124 */
08179 /*:ref: xerbla_ 14 3 13 4 124 */
08180 /*:ref: zlacgv_ 14 3 4 9 4 */
08181 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08182 /*:ref: ztrmv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
08184 int zlascl_(char *type__, integer *kl, integer *ku, doublereal *cfrom, doublereal *cto, integer *m, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen type_len);
08185 /*:ref: lsame_ 12 4 13 13 124 124 */
08186 /*:ref: xerbla_ 14 3 13 4 124 */
08187 /*:ref: dlamch_ 7 2 13 124 */
08189 int zlaset_(char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *lda, ftnlen uplo_len);
08190 /*:ref: lsame_ 12 4 13 13 124 124 */
08192 int zlasr_(char *side, char *pivot, char *direct, integer *m, integer *n, doublereal *c__, doublereal *s, doublecomplex *a, integer *lda, ftnlen side_len, ftnlen pivot_len, ftnlen direct_len);
08193 /*:ref: lsame_ 12 4 13 13 124 124 */
08194 /*:ref: xerbla_ 14 3 13 4 124 */
08196 int zlassq_(integer *n, doublecomplex *x, integer *incx, doublereal *scale, doublereal *sumsq);
08198 int zlaswp_(integer *n, doublecomplex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx);
08200 int zlatbs_(char *uplo, char *trans, char *diag, char *normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
08201 /*:ref: lsame_ 12 4 13 13 124 124 */
08202 /*:ref: xerbla_ 14 3 13 4 124 */
08203 /*:ref: dlamch_ 7 2 13 124 */
08204 /*:ref: dlabad_ 14 2 7 7 */
08205 /*:ref: dzasum_ 7 3 4 9 4 */
08206 /*:ref: idamax_ 4 3 4 7 4 */
08207 /*:ref: dscal_ 14 4 4 7 7 4 */
08208 /*:ref: ztbsv_ 14 12 13 13 13 4 4 9 4 9 4 124 124 124 */
08209 /*:ref: zdscal_ 14 4 4 7 9 4 */
08210 /*:ref: zladiv_ 9 3 9 9 9 */
08211 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08212 /*:ref: izamax_ 4 3 4 9 4 */
08213 /*:ref: zdotu_ 9 6 9 4 9 4 9 4 */
08214 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08216 int zlatps_(char *uplo, char *trans, char *diag, char *normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
08217 /*:ref: lsame_ 12 4 13 13 124 124 */
08218 /*:ref: xerbla_ 14 3 13 4 124 */
08219 /*:ref: dlamch_ 7 2 13 124 */
08220 /*:ref: dlabad_ 14 2 7 7 */
08221 /*:ref: dzasum_ 7 3 4 9 4 */
08222 /*:ref: idamax_ 4 3 4 7 4 */
08223 /*:ref: dscal_ 14 4 4 7 7 4 */
08224 /*:ref: ztpsv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
08225 /*:ref: zdscal_ 14 4 4 7 9 4 */
08226 /*:ref: zladiv_ 9 3 9 9 9 */
08227 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08228 /*:ref: izamax_ 4 3 4 9 4 */
08229 /*:ref: zdotu_ 9 6 9 4 9 4 9 4 */
08230 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08232 int zlatrd_(char *uplo, integer *n, integer *nb, doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau, doublecomplex *w, integer *ldw, ftnlen uplo_len);
08233 /*:ref: lsame_ 12 4 13 13 124 124 */
08234 /*:ref: zlacgv_ 14 3 4 9 4 */
08235 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08236 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
08237 /*:ref: zhemv_ 14 11 13 4 9 9 4 9 4 9 9 4 124 */
08238 /*:ref: zscal_ 14 4 4 9 9 4 */
08239 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08240 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08242 int zlatrs_(char *uplo, char *trans, char *diag, char *normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
08243 /*:ref: lsame_ 12 4 13 13 124 124 */
08244 /*:ref: xerbla_ 14 3 13 4 124 */
08245 /*:ref: dlamch_ 7 2 13 124 */
08246 /*:ref: dlabad_ 14 2 7 7 */
08247 /*:ref: dzasum_ 7 3 4 9 4 */
08248 /*:ref: idamax_ 4 3 4 7 4 */
08249 /*:ref: dscal_ 14 4 4 7 7 4 */
08250 /*:ref: ztrsv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
08251 /*:ref: zdscal_ 14 4 4 7 9 4 */
08252 /*:ref: zladiv_ 9 3 9 9 9 */
08253 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08254 /*:ref: izamax_ 4 3 4 9 4 */
08255 /*:ref: zdotu_ 9 6 9 4 9 4 9 4 */
08256 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08258 int zlatrz_(integer *m, integer *n, integer *l, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work);
08259 /*:ref: zlacgv_ 14 3 4 9 4 */
08260 /*:ref: zlarfg_ 14 5 4 9 9 4 9 */
08261 /*:ref: zlarz_ 14 11 13 4 4 4 9 4 9 9 4 9 124 */
08263 int zlatzm_(char *side, integer *m, integer *n, doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *c1, doublecomplex *c2, integer *ldc, doublecomplex *work, ftnlen side_len);
08264 /*:ref: lsame_ 12 4 13 13 124 124 */
08265 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08266 /*:ref: zlacgv_ 14 3 4 9 4 */
08267 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08268 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08269 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
08270 /*:ref: zgerc_ 14 9 4 4 9 9 4 9 4 9 4 */
08272 int zlauu2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len);
08273 /*:ref: lsame_ 12 4 13 13 124 124 */
08274 /*:ref: xerbla_ 14 3 13 4 124 */
08275 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08276 /*:ref: zlacgv_ 14 3 4 9 4 */
08277 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08278 /*:ref: zdscal_ 14 4 4 7 9 4 */
08280 int zlauum_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len);
08281 /*:ref: lsame_ 12 4 13 13 124 124 */
08282 /*:ref: xerbla_ 14 3 13 4 124 */
08283 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08284 /*:ref: zlauu2_ 14 6 13 4 9 4 4 124 */
08285 /*:ref: ztrmm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
08286 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
08287 /*:ref: zherk_ 14 12 13 13 4 4 7 9 4 7 9 4 124 124 */
08289 int zpbcon_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len);
08290 /*:ref: lsame_ 12 4 13 13 124 124 */
08291 /*:ref: xerbla_ 14 3 13 4 124 */
08292 /*:ref: dlamch_ 7 2 13 124 */
08293 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08294 /*:ref: zlatbs_ 14 16 13 13 13 13 4 4 9 4 9 7 7 4 124 124 124 124 */
08295 /*:ref: izamax_ 4 3 4 9 4 */
08296 /*:ref: zdrscl_ 14 4 4 7 9 4 */
08298 int zpbequ_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len);
08299 /*:ref: lsame_ 12 4 13 13 124 124 */
08300 /*:ref: xerbla_ 14 3 13 4 124 */
08302 int zpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08303 /*:ref: lsame_ 12 4 13 13 124 124 */
08304 /*:ref: xerbla_ 14 3 13 4 124 */
08305 /*:ref: zpbtrf_ 14 7 13 4 4 9 4 4 124 */
08306 /*:ref: zpbtrs_ 14 10 13 4 4 4 9 4 9 4 4 124 */
08308 int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
08309 /*:ref: lsame_ 12 4 13 13 124 124 */
08310 /*:ref: dlamch_ 7 2 13 124 */
08311 /*:ref: xerbla_ 14 3 13 4 124 */
08312 /*:ref: zpbequ_ 14 10 13 4 4 9 4 7 7 7 4 124 */
08313 /*:ref: zlaqhb_ 14 11 13 4 4 9 4 7 7 7 13 124 124 */
08314 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08315 /*:ref: zpbtrf_ 14 7 13 4 4 9 4 4 124 */
08316 /*:ref: zlanhb_ 7 9 13 13 4 4 9 4 7 124 124 */
08317 /*:ref: zpbcon_ 14 11 13 4 4 9 4 7 7 9 7 4 124 */
08318 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08319 /*:ref: zpbtrs_ 14 10 13 4 4 4 9 4 9 4 4 124 */
08320 /*:ref: zpbrfs_ 14 18 13 4 4 4 9 4 9 4 9 4 9 4 7 7 9 7 4 124 */
08322 int zpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08323 /*:ref: lsame_ 12 4 13 13 124 124 */
08324 /*:ref: xerbla_ 14 3 13 4 124 */
08325 /*:ref: ztbsv_ 14 12 13 13 13 4 4 9 4 9 4 124 124 124 */
08327 int zpocon_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len);
08328 /*:ref: lsame_ 12 4 13 13 124 124 */
08329 /*:ref: xerbla_ 14 3 13 4 124 */
08330 /*:ref: dlamch_ 7 2 13 124 */
08331 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08332 /*:ref: zlatrs_ 14 15 13 13 13 13 4 9 4 9 7 7 4 124 124 124 124 */
08333 /*:ref: izamax_ 4 3 4 9 4 */
08334 /*:ref: zdrscl_ 14 4 4 7 9 4 */
08336 int zpoequ_(integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info);
08337 /*:ref: xerbla_ 14 3 13 4 124 */
08339 int zposv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08340 /*:ref: lsame_ 12 4 13 13 124 124 */
08341 /*:ref: xerbla_ 14 3 13 4 124 */
08342 /*:ref: zpotrf_ 14 6 13 4 9 4 4 124 */
08343 /*:ref: zpotrs_ 14 9 13 4 4 9 4 9 4 4 124 */
08345 int zposvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
08346 /*:ref: lsame_ 12 4 13 13 124 124 */
08347 /*:ref: dlamch_ 7 2 13 124 */
08348 /*:ref: xerbla_ 14 3 13 4 124 */
08349 /*:ref: zpoequ_ 14 7 4 9 4 7 7 7 4 */
08350 /*:ref: zlaqhe_ 14 10 13 4 9 4 7 7 7 13 124 124 */
08351 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08352 /*:ref: zpotrf_ 14 6 13 4 9 4 4 124 */
08353 /*:ref: zlanhe_ 7 8 13 13 4 9 4 7 124 124 */
08354 /*:ref: zpocon_ 14 10 13 4 9 4 7 7 9 7 4 124 */
08355 /*:ref: zpotrs_ 14 9 13 4 4 9 4 9 4 4 124 */
08356 /*:ref: zporfs_ 14 17 13 4 4 9 4 9 4 9 4 9 4 7 7 9 7 4 124 */
08358 int zpotri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len);
08359 /*:ref: lsame_ 12 4 13 13 124 124 */
08360 /*:ref: xerbla_ 14 3 13 4 124 */
08361 /*:ref: ztrtri_ 14 8 13 13 4 9 4 4 124 124 */
08362 /*:ref: zlauum_ 14 6 13 4 9 4 4 124 */
08364 int zpotrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08365 /*:ref: lsame_ 12 4 13 13 124 124 */
08366 /*:ref: xerbla_ 14 3 13 4 124 */
08367 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
08369 int zppcon_(char *uplo, integer *n, doublecomplex *ap, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len);
08370 /*:ref: lsame_ 12 4 13 13 124 124 */
08371 /*:ref: xerbla_ 14 3 13 4 124 */
08372 /*:ref: dlamch_ 7 2 13 124 */
08373 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08374 /*:ref: zlatps_ 14 14 13 13 13 13 4 9 9 7 7 4 124 124 124 124 */
08375 /*:ref: izamax_ 4 3 4 9 4 */
08376 /*:ref: zdrscl_ 14 4 4 7 9 4 */
08378 int zppequ_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len);
08379 /*:ref: lsame_ 12 4 13 13 124 124 */
08380 /*:ref: xerbla_ 14 3 13 4 124 */
08382 int zppsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08383 /*:ref: lsame_ 12 4 13 13 124 124 */
08384 /*:ref: xerbla_ 14 3 13 4 124 */
08385 /*:ref: zpptrf_ 14 5 13 4 9 4 124 */
08386 /*:ref: zpptrs_ 14 8 13 4 4 9 9 4 4 124 */
08388 int zppsvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
08389 /*:ref: lsame_ 12 4 13 13 124 124 */
08390 /*:ref: dlamch_ 7 2 13 124 */
08391 /*:ref: xerbla_ 14 3 13 4 124 */
08392 /*:ref: zppequ_ 14 8 13 4 9 7 7 7 4 124 */
08393 /*:ref: zlaqhp_ 14 9 13 4 9 7 7 7 13 124 124 */
08394 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08395 /*:ref: zpptrf_ 14 5 13 4 9 4 124 */
08396 /*:ref: zlanhp_ 7 7 13 13 4 9 7 124 124 */
08397 /*:ref: zppcon_ 14 9 13 4 9 7 7 9 7 4 124 */
08398 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08399 /*:ref: zpptrs_ 14 8 13 4 4 9 9 4 4 124 */
08400 /*:ref: zpprfs_ 14 15 13 4 4 9 9 9 4 9 4 7 7 9 7 4 124 */
08402 int zpptri_(char *uplo, integer *n, doublecomplex *ap, integer *info, ftnlen uplo_len);
08403 /*:ref: lsame_ 12 4 13 13 124 124 */
08404 /*:ref: xerbla_ 14 3 13 4 124 */
08405 /*:ref: ztptri_ 14 7 13 13 4 9 4 124 124 */
08406 /*:ref: zhpr_ 14 7 13 4 7 9 4 9 124 */
08407 /*:ref: zdscal_ 14 4 4 7 9 4 */
08408 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08409 /*:ref: ztpmv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
08411 int zpptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08412 /*:ref: lsame_ 12 4 13 13 124 124 */
08413 /*:ref: xerbla_ 14 3 13 4 124 */
08414 /*:ref: ztpsv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
08416 int zptcon_(integer *n, doublereal *d__, doublecomplex *e, doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *info);
08417 /*:ref: xerbla_ 14 3 13 4 124 */
08418 /*:ref: idamax_ 4 3 4 7 4 */
08420 int zpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len);
08421 /*:ref: lsame_ 12 4 13 13 124 124 */
08422 /*:ref: xerbla_ 14 3 13 4 124 */
08423 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
08424 /*:ref: dpttrf_ 14 4 4 7 7 4 */
08425 /*:ref: zbdsqr_ 14 16 13 4 4 4 4 7 7 9 4 9 4 9 4 7 4 124 */
08427 int zptsv_(integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, integer *info);
08428 /*:ref: xerbla_ 14 3 13 4 124 */
08429 /*:ref: zpttrf_ 14 4 4 7 9 4 */
08430 /*:ref: zpttrs_ 14 9 13 4 4 7 9 9 4 4 124 */
08432 int zptsvx_(char *fact, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len);
08433 /*:ref: lsame_ 12 4 13 13 124 124 */
08434 /*:ref: xerbla_ 14 3 13 4 124 */
08435 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
08436 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08437 /*:ref: zpttrf_ 14 4 4 7 9 4 */
08438 /*:ref: zlanht_ 7 5 13 4 7 9 124 */
08439 /*:ref: zptcon_ 14 7 4 7 9 7 7 7 4 */
08440 /*:ref: dlamch_ 7 2 13 124 */
08441 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08442 /*:ref: zpttrs_ 14 9 13 4 4 7 9 9 4 4 124 */
08443 /*:ref: zptrfs_ 14 17 13 4 4 7 9 7 9 9 4 9 4 7 7 9 7 4 124 */
08445 int zpttrs_(char *uplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08446 /*:ref: xerbla_ 14 3 13 4 124 */
08447 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08448 /*:ref: zptts2_ 14 7 4 4 4 7 9 9 4 */
08450 int zptts2_(integer *iuplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb);
08451 /*:ref: zdscal_ 14 4 4 7 9 4 */
08453 int zrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);
08455 int zspcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len);
08456 /*:ref: lsame_ 12 4 13 13 124 124 */
08457 /*:ref: xerbla_ 14 3 13 4 124 */
08458 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08459 /*:ref: zsptrs_ 14 9 13 4 4 9 4 9 4 4 124 */
08461 int zspmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len);
08462 /*:ref: lsame_ 12 4 13 13 124 124 */
08463 /*:ref: xerbla_ 14 3 13 4 124 */
08465 int zspr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *ap, ftnlen uplo_len);
08466 /*:ref: lsame_ 12 4 13 13 124 124 */
08467 /*:ref: xerbla_ 14 3 13 4 124 */
08469 int zspsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08470 /*:ref: lsame_ 12 4 13 13 124 124 */
08471 /*:ref: xerbla_ 14 3 13 4 124 */
08472 /*:ref: zsptrf_ 14 6 13 4 9 4 4 124 */
08473 /*:ref: zsptrs_ 14 9 13 4 4 9 4 9 4 4 124 */
08475 int zspsvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
08476 /*:ref: lsame_ 12 4 13 13 124 124 */
08477 /*:ref: xerbla_ 14 3 13 4 124 */
08478 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08479 /*:ref: zsptrf_ 14 6 13 4 9 4 4 124 */
08480 /*:ref: zlansp_ 7 7 13 13 4 9 7 124 124 */
08481 /*:ref: zspcon_ 14 9 13 4 9 4 7 7 9 4 124 */
08482 /*:ref: dlamch_ 7 2 13 124 */
08483 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08484 /*:ref: zsptrs_ 14 9 13 4 4 9 4 9 4 4 124 */
08485 /*:ref: zsprfs_ 14 16 13 4 4 9 9 4 9 4 9 4 7 7 9 7 4 124 */
08487 int zsptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len);
08488 /*:ref: lsame_ 12 4 13 13 124 124 */
08489 /*:ref: xerbla_ 14 3 13 4 124 */
08490 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08491 /*:ref: zspmv_ 14 10 13 4 9 9 9 4 9 9 4 124 */
08492 /*:ref: zdotu_ 9 6 9 4 9 4 9 4 */
08493 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08495 int zsptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08496 /*:ref: lsame_ 12 4 13 13 124 124 */
08497 /*:ref: xerbla_ 14 3 13 4 124 */
08498 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08499 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
08500 /*:ref: zscal_ 14 4 4 9 9 4 */
08501 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08503 int zstedc_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork, integer *liwork, integer *info, ftnlen compz_len);
08504 /*:ref: lsame_ 12 4 13 13 124 124 */
08505 /*:ref: xerbla_ 14 3 13 4 124 */
08506 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08507 /*:ref: dsterf_ 14 4 4 7 7 4 */
08508 /*:ref: zsteqr_ 14 9 13 4 7 7 9 4 7 4 124 */
08509 /*:ref: dlaset_ 14 8 13 4 4 7 7 7 4 124 */
08510 /*:ref: dstedc_ 14 12 13 4 7 7 7 4 7 4 4 4 4 124 */
08511 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
08512 /*:ref: dlamch_ 7 2 13 124 */
08513 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
08514 /*:ref: zlaed0_ 14 11 4 4 7 7 9 4 9 4 7 4 4 */
08515 /*:ref: dsteqr_ 14 9 13 4 7 7 7 4 7 4 124 */
08516 /*:ref: zlacrm_ 14 9 4 4 9 4 7 4 9 4 7 */
08517 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08518 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08520 int zstegr_(char *jobz, char *range, integer *n, doublereal *d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work, integer *lwork, integer *iwork, integer *liwork, integer *info, ftnlen jobz_len, ftnlen range_len);
08521 /*:ref: lsame_ 12 4 13 13 124 124 */
08522 /*:ref: xerbla_ 14 3 13 4 124 */
08523 /*:ref: dlamch_ 7 2 13 124 */
08524 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
08525 /*:ref: dscal_ 14 4 4 7 7 4 */
08526 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
08527 /*:ref: dlarre_ 14 12 4 7 7 7 4 4 4 7 7 7 7 4 */
08528 /*:ref: zlarrv_ 14 15 4 7 7 4 4 7 4 7 7 9 4 4 7 4 4 */
08529 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08531 int zstein_(integer *n, doublereal *d__, doublereal *e, integer *m, doublereal *w, integer *iblock, integer *isplit, doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork, integer *ifail, integer *info);
08532 /*:ref: xerbla_ 14 3 13 4 124 */
08533 /*:ref: dlamch_ 7 2 13 124 */
08534 /*:ref: dlarnv_ 14 4 4 4 4 7 */
08535 /*:ref: dcopy_ 14 5 4 7 4 7 4 */
08536 /*:ref: dlagtf_ 14 9 4 7 7 7 7 7 7 4 4 */
08537 /*:ref: dasum_ 7 3 4 7 4 */
08538 /*:ref: dscal_ 14 4 4 7 7 4 */
08539 /*:ref: dlagts_ 14 10 4 4 7 7 7 7 4 7 7 4 */
08540 /*:ref: idamax_ 4 3 4 7 4 */
08541 /*:ref: dnrm2_ 7 3 4 7 4 */
08543 int zsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len);
08544 /*:ref: lsame_ 12 4 13 13 124 124 */
08545 /*:ref: xerbla_ 14 3 13 4 124 */
08546 /*:ref: dlamch_ 7 2 13 124 */
08547 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
08548 /*:ref: dlanst_ 7 5 13 4 7 7 124 */
08549 /*:ref: dlascl_ 14 11 13 4 4 7 7 4 4 7 4 4 124 */
08550 /*:ref: dlaev2_ 14 7 7 7 7 7 7 7 7 */
08551 /*:ref: zlasr_ 14 12 13 13 13 4 4 7 7 9 4 124 124 124 */
08552 /*:ref: dlae2_ 14 5 7 7 7 7 7 */
08553 /*:ref: dlapy2_ 7 2 7 7 */
08554 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
08555 /*:ref: dlasrt_ 14 5 13 4 7 4 124 */
08556 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08558 int zsycon_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len);
08559 /*:ref: lsame_ 12 4 13 13 124 124 */
08560 /*:ref: xerbla_ 14 3 13 4 124 */
08561 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08562 /*:ref: zsytrs_ 14 10 13 4 4 9 4 4 9 4 4 124 */
08564 int zsymv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len);
08565 /*:ref: lsame_ 12 4 13 13 124 124 */
08566 /*:ref: xerbla_ 14 3 13 4 124 */
08568 int zsyr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *a, integer *lda, ftnlen uplo_len);
08569 /*:ref: lsame_ 12 4 13 13 124 124 */
08570 /*:ref: xerbla_ 14 3 13 4 124 */
08572 int zsysv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len);
08573 /*:ref: lsame_ 12 4 13 13 124 124 */
08574 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08575 /*:ref: xerbla_ 14 3 13 4 124 */
08576 /*:ref: zsytrf_ 14 9 13 4 9 4 4 9 4 4 124 */
08577 /*:ref: zsytrs_ 14 10 13 4 4 9 4 4 9 4 4 124 */
08579 int zsysvx_(char *fact, char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info, ftnlen fact_len, ftnlen uplo_len);
08580 /*:ref: lsame_ 12 4 13 13 124 124 */
08581 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08582 /*:ref: xerbla_ 14 3 13 4 124 */
08583 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08584 /*:ref: zsytrf_ 14 9 13 4 9 4 4 9 4 4 124 */
08585 /*:ref: zlansy_ 7 8 13 13 4 9 4 7 124 124 */
08586 /*:ref: zsycon_ 14 10 13 4 9 4 4 7 7 9 4 124 */
08587 /*:ref: dlamch_ 7 2 13 124 */
08588 /*:ref: zsytrs_ 14 10 13 4 4 9 4 4 9 4 4 124 */
08589 /*:ref: zsyrfs_ 14 18 13 4 4 9 4 9 4 4 9 4 9 4 7 7 9 7 4 124 */
08591 int zsytri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len);
08592 /*:ref: lsame_ 12 4 13 13 124 124 */
08593 /*:ref: xerbla_ 14 3 13 4 124 */
08594 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08595 /*:ref: zsymv_ 14 11 13 4 9 9 4 9 4 9 9 4 124 */
08596 /*:ref: zdotu_ 9 6 9 4 9 4 9 4 */
08597 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08599 int zsytrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len);
08600 /*:ref: lsame_ 12 4 13 13 124 124 */
08601 /*:ref: xerbla_ 14 3 13 4 124 */
08602 /*:ref: zswap_ 14 5 4 9 4 9 4 */
08603 /*:ref: zgeru_ 14 9 4 4 9 9 4 9 4 9 4 */
08604 /*:ref: zscal_ 14 4 4 9 9 4 */
08605 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08607 int ztbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
08608 /*:ref: lsame_ 12 4 13 13 124 124 */
08609 /*:ref: xerbla_ 14 3 13 4 124 */
08610 /*:ref: dlamch_ 7 2 13 124 */
08611 /*:ref: zlantb_ 7 11 13 13 13 4 4 9 4 7 124 124 124 */
08612 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08613 /*:ref: zlatbs_ 14 16 13 13 13 13 4 4 9 4 9 7 7 4 124 124 124 124 */
08614 /*:ref: izamax_ 4 3 4 9 4 */
08615 /*:ref: zdrscl_ 14 4 4 7 9 4 */
08617 int ztbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
08618 /*:ref: lsame_ 12 4 13 13 124 124 */
08619 /*:ref: xerbla_ 14 3 13 4 124 */
08620 /*:ref: ztbsv_ 14 12 13 13 13 4 4 9 4 9 4 124 124 124 */
08622 int ztgevc_(char *side, char *howmny, logical *select, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, integer *info, ftnlen side_len, ftnlen howmny_len);
08623 /*:ref: lsame_ 12 4 13 13 124 124 */
08624 /*:ref: xerbla_ 14 3 13 4 124 */
08625 /*:ref: dlamch_ 7 2 13 124 */
08626 /*:ref: dlabad_ 14 2 7 7 */
08627 /*:ref: zladiv_ 9 3 9 9 9 */
08628 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08630 int ztgex2_(logical *wantq, logical *wantz, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, integer *j1, integer *info);
08631 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08632 /*:ref: dlamch_ 7 2 13 124 */
08633 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08634 /*:ref: zlartg_ 14 5 9 9 7 9 9 */
08635 /*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
08637 int ztgexc_(logical *wantq, logical *wantz, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, integer *ifst, integer *ilst, integer *info);
08638 /*:ref: xerbla_ 14 3 13 4 124 */
08639 /*:ref: ztgex2_ 14 13 12 12 4 9 4 9 4 9 4 9 4 4 4 */
08641 int ztgsen_(integer *ijob, logical *wantq, logical *wantz, logical *select, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif, doublecomplex *work, integer *lwork, integer *iwork, integer *liwork, integer *info);
08642 /*:ref: xerbla_ 14 3 13 4 124 */
08643 /*:ref: zlassq_ 14 5 4 9 4 7 7 */
08644 /*:ref: dlamch_ 7 2 13 124 */
08645 /*:ref: ztgexc_ 14 14 12 12 4 9 4 9 4 9 4 9 4 4 4 4 */
08646 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08647 /*:ref: ztgsyl_ 14 23 13 4 4 4 9 4 9 4 9 4 9 4 9 4 9 4 7 7 9 4 4 4 124 */
08648 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08649 /*:ref: zscal_ 14 4 4 9 9 4 */
08651 int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p, integer *n, integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublereal *tola, doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work, integer *ncycle, integer *info, ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
08652 /*:ref: lsame_ 12 4 13 13 124 124 */
08653 /*:ref: xerbla_ 14 3 13 4 124 */
08654 /*:ref: zlaset_ 14 8 13 4 4 9 9 9 4 124 */
08655 /*:ref: zlags2_ 14 13 12 7 9 7 7 9 7 7 9 7 9 7 9 */
08656 /*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
08657 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08658 /*:ref: zlapll_ 14 6 4 9 4 9 4 7 */
08659 /*:ref: zdscal_ 14 4 4 7 9 4 */
08660 /*:ref: dlartg_ 14 5 7 7 7 7 7 */
08662 int ztgsna_(char *job, char *howmny, logical *select, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m, doublecomplex *work, integer *lwork, integer *iwork, integer *info, ftnlen job_len, ftnlen howmny_len);
08663 /*:ref: lsame_ 12 4 13 13 124 124 */
08664 /*:ref: xerbla_ 14 3 13 4 124 */
08665 /*:ref: dlamch_ 7 2 13 124 */
08666 /*:ref: dlabad_ 14 2 7 7 */
08667 /*:ref: dznrm2_ 7 3 4 9 4 */
08668 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08669 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08670 /*:ref: dlapy2_ 7 2 7 7 */
08671 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08672 /*:ref: ztgexc_ 14 14 12 12 4 9 4 9 4 9 4 9 4 4 4 4 */
08673 /*:ref: ztgsyl_ 14 23 13 4 4 4 9 4 9 4 9 4 9 4 9 4 9 4 7 7 9 4 4 4 124 */
08675 int ztgsy2_(char *trans, integer *ijob, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer *info, ftnlen trans_len);
08676 /*:ref: lsame_ 12 4 13 13 124 124 */
08677 /*:ref: xerbla_ 14 3 13 4 124 */
08678 /*:ref: zgetc2_ 14 6 4 9 4 4 4 4 */
08679 /*:ref: zgesc2_ 14 7 4 9 4 9 4 4 7 */
08680 /*:ref: zscal_ 14 4 4 9 9 4 */
08681 /*:ref: zlatdf_ 14 9 4 4 9 4 9 7 7 4 4 */
08682 /*:ref: zaxpy_ 14 6 4 9 9 4 9 4 */
08684 int ztgsyl_(char *trans, integer *ijob, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd, doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf, doublereal *scale, doublereal *dif, doublecomplex *work, integer *lwork, integer *iwork, integer *info, ftnlen trans_len);
08685 /*:ref: lsame_ 12 4 13 13 124 124 */
08686 /*:ref: xerbla_ 14 3 13 4 124 */
08687 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08688 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08689 /*:ref: ztgsy2_ 14 21 13 4 4 4 9 4 9 4 9 4 9 4 9 4 9 4 7 7 7 4 124 */
08690 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08691 /*:ref: zscal_ 14 4 4 9 9 4 */
08692 /*:ref: zgemm_ 14 15 13 13 4 4 4 9 9 4 9 4 9 9 4 124 124 */
08694 int ztpcon_(char *norm, char *uplo, char *diag, integer *n, doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
08695 /*:ref: lsame_ 12 4 13 13 124 124 */
08696 /*:ref: xerbla_ 14 3 13 4 124 */
08697 /*:ref: dlamch_ 7 2 13 124 */
08698 /*:ref: zlantp_ 7 9 13 13 13 4 9 7 124 124 124 */
08699 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08700 /*:ref: zlatps_ 14 14 13 13 13 13 4 9 9 7 7 4 124 124 124 124 */
08701 /*:ref: izamax_ 4 3 4 9 4 */
08702 /*:ref: zdrscl_ 14 4 4 7 9 4 */
08704 int ztptri_(char *uplo, char *diag, integer *n, doublecomplex *ap, integer *info, ftnlen uplo_len, ftnlen diag_len);
08705 /*:ref: lsame_ 12 4 13 13 124 124 */
08706 /*:ref: xerbla_ 14 3 13 4 124 */
08707 /*:ref: ztpmv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
08708 /*:ref: zscal_ 14 4 4 9 9 4 */
08710 int ztptrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
08711 /*:ref: lsame_ 12 4 13 13 124 124 */
08712 /*:ref: xerbla_ 14 3 13 4 124 */
08713 /*:ref: ztpsv_ 14 10 13 13 13 4 9 9 4 124 124 124 */
08715 int ztrcon_(char *norm, char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
08716 /*:ref: lsame_ 12 4 13 13 124 124 */
08717 /*:ref: xerbla_ 14 3 13 4 124 */
08718 /*:ref: dlamch_ 7 2 13 124 */
08719 /*:ref: zlantr_ 7 11 13 13 13 4 4 9 4 7 124 124 124 */
08720 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08721 /*:ref: zlatrs_ 14 15 13 13 13 13 4 9 4 9 7 7 4 124 124 124 124 */
08722 /*:ref: izamax_ 4 3 4 9 4 */
08723 /*:ref: zdrscl_ 14 4 4 7 9 4 */
08725 int ztrevc_(char *side, char *howmny, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork, integer *info, ftnlen side_len, ftnlen howmny_len);
08726 /*:ref: lsame_ 12 4 13 13 124 124 */
08727 /*:ref: xerbla_ 14 3 13 4 124 */
08728 /*:ref: dlamch_ 7 2 13 124 */
08729 /*:ref: dlabad_ 14 2 7 7 */
08730 /*:ref: dzasum_ 7 3 4 9 4 */
08731 /*:ref: zlatrs_ 14 15 13 13 13 13 4 9 4 9 7 7 4 124 124 124 124 */
08732 /*:ref: zcopy_ 14 5 4 9 4 9 4 */
08733 /*:ref: izamax_ 4 3 4 9 4 */
08734 /*:ref: zdscal_ 14 4 4 7 9 4 */
08735 /*:ref: zgemv_ 14 12 13 4 4 9 9 4 9 4 9 9 4 124 */
08737 int ztrexc_(char *compq, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *ilst, integer *info, ftnlen compq_len);
08738 /*:ref: lsame_ 12 4 13 13 124 124 */
08739 /*:ref: xerbla_ 14 3 13 4 124 */
08740 /*:ref: zlartg_ 14 5 9 9 7 9 9 */
08741 /*:ref: zrot_ 14 7 4 9 4 9 4 7 9 */
08743 int ztrsen_(char *job, char *compq, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, doublecomplex *w, integer *m, doublereal *s, doublereal *sep, doublecomplex *work, integer *lwork, integer *info, ftnlen job_len, ftnlen compq_len);
08744 /*:ref: lsame_ 12 4 13 13 124 124 */
08745 /*:ref: xerbla_ 14 3 13 4 124 */
08746 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
08747 /*:ref: ztrexc_ 14 10 13 4 9 4 9 4 4 4 4 124 */
08748 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08749 /*:ref: ztrsyl_ 14 15 13 13 4 4 4 9 4 9 4 9 4 7 4 124 124 */
08750 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08752 int ztrsna_(char *job, char *howmny, logical *select, integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s, doublereal *sep, integer *mm, integer *m, doublecomplex *work, integer *ldwork, doublereal *rwork, integer *info, ftnlen job_len, ftnlen howmny_len);
08753 /*:ref: lsame_ 12 4 13 13 124 124 */
08754 /*:ref: xerbla_ 14 3 13 4 124 */
08755 /*:ref: dlamch_ 7 2 13 124 */
08756 /*:ref: dlabad_ 14 2 7 7 */
08757 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08758 /*:ref: dznrm2_ 7 3 4 9 4 */
08759 /*:ref: zlacpy_ 14 8 13 4 4 9 4 9 4 124 */
08760 /*:ref: ztrexc_ 14 10 13 4 9 4 9 4 4 4 4 124 */
08761 /*:ref: zlacon_ 14 5 4 9 9 7 4 */
08762 /*:ref: zlatrs_ 14 15 13 13 13 13 4 9 4 9 7 7 4 124 124 124 124 */
08763 /*:ref: izamax_ 4 3 4 9 4 */
08764 /*:ref: zdrscl_ 14 4 4 7 9 4 */
08766 int ztrsyl_(char *trana, char *tranb, integer *isgn, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale, integer *info, ftnlen trana_len, ftnlen tranb_len);
08767 /*:ref: lsame_ 12 4 13 13 124 124 */
08768 /*:ref: xerbla_ 14 3 13 4 124 */
08769 /*:ref: dlamch_ 7 2 13 124 */
08770 /*:ref: dlabad_ 14 2 7 7 */
08771 /*:ref: zlange_ 7 7 13 4 4 9 4 7 124 */
08772 /*:ref: zdotu_ 9 6 9 4 9 4 9 4 */
08773 /*:ref: zladiv_ 9 3 9 9 9 */
08774 /*:ref: zdscal_ 14 4 4 7 9 4 */
08775 /*:ref: zdotc_ 9 6 9 4 9 4 9 4 */
08777 int ztrti2_(char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len);
08778 /*:ref: lsame_ 12 4 13 13 124 124 */
08779 /*:ref: xerbla_ 14 3 13 4 124 */
08780 /*:ref: ztrmv_ 14 11 13 13 13 4 9 4 9 4 124 124 124 */
08781 /*:ref: zscal_ 14 4 4 9 9 4 */
08783 int ztrtri_(char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len);
08784 /*:ref: lsame_ 12 4 13 13 124 124 */
08785 /*:ref: xerbla_ 14 3 13 4 124 */
08786 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08787 /*:ref: ztrti2_ 14 8 13 13 4 9 4 4 124 124 */
08788 /*:ref: ztrmm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
08789 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
08791 int ztrtrs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
08792 /*:ref: lsame_ 12 4 13 13 124 124 */
08793 /*:ref: xerbla_ 14 3 13 4 124 */
08794 /*:ref: ztrsm_ 14 15 13 13 13 13 4 4 9 9 4 9 4 124 124 124 124 */
08796 int zung2l_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
08797 /*:ref: xerbla_ 14 3 13 4 124 */
08798 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08799 /*:ref: zscal_ 14 4 4 9 9 4 */
08801 int zung2r_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
08802 /*:ref: xerbla_ 14 3 13 4 124 */
08803 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08804 /*:ref: zscal_ 14 4 4 9 9 4 */
08806 int zungbr_(char *vect, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info, ftnlen vect_len);
08807 /*:ref: lsame_ 12 4 13 13 124 124 */
08808 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08809 /*:ref: xerbla_ 14 3 13 4 124 */
08810 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
08811 /*:ref: zunglq_ 14 9 4 4 4 9 4 9 9 4 4 */
08813 int zunghr_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info);
08814 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08815 /*:ref: xerbla_ 14 3 13 4 124 */
08816 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
08818 int zungl2_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
08819 /*:ref: xerbla_ 14 3 13 4 124 */
08820 /*:ref: zlacgv_ 14 3 4 9 4 */
08821 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08822 /*:ref: zscal_ 14 4 4 9 9 4 */
08824 int zunglq_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info);
08825 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08826 /*:ref: xerbla_ 14 3 13 4 124 */
08827 /*:ref: zungl2_ 14 8 4 4 4 9 4 9 9 4 */
08828 /*:ref: zlarft_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08829 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08831 int zungql_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info);
08832 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08833 /*:ref: xerbla_ 14 3 13 4 124 */
08834 /*:ref: zung2l_ 14 8 4 4 4 9 4 9 9 4 */
08835 /*:ref: zlarft_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08836 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08838 int zungqr_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info);
08839 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08840 /*:ref: xerbla_ 14 3 13 4 124 */
08841 /*:ref: zung2r_ 14 8 4 4 4 9 4 9 9 4 */
08842 /*:ref: zlarft_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08843 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08845 int zungr2_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
08846 /*:ref: xerbla_ 14 3 13 4 124 */
08847 /*:ref: zlacgv_ 14 3 4 9 4 */
08848 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08849 /*:ref: zscal_ 14 4 4 9 9 4 */
08851 int zungrq_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info);
08852 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08853 /*:ref: xerbla_ 14 3 13 4 124 */
08854 /*:ref: zungr2_ 14 8 4 4 4 9 4 9 9 4 */
08855 /*:ref: zlarft_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08856 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08858 int zungtr_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len);
08859 /*:ref: lsame_ 12 4 13 13 124 124 */
08860 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08861 /*:ref: xerbla_ 14 3 13 4 124 */
08862 /*:ref: zungql_ 14 9 4 4 4 9 4 9 9 4 4 */
08863 /*:ref: zungqr_ 14 9 4 4 4 9 4 9 9 4 4 */
08865 int zunm2l_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info, ftnlen side_len, ftnlen trans_len);
08866 /*:ref: lsame_ 12 4 13 13 124 124 */
08867 /*:ref: xerbla_ 14 3 13 4 124 */
08868 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08870 int zunm2r_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info, ftnlen side_len, ftnlen trans_len);
08871 /*:ref: lsame_ 12 4 13 13 124 124 */
08872 /*:ref: xerbla_ 14 3 13 4 124 */
08873 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08875 int zunmbr_(char *vect, char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info, ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
08876 /*:ref: lsame_ 12 4 13 13 124 124 */
08877 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08878 /*:ref: xerbla_ 14 3 13 4 124 */
08879 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
08880 /*:ref: zunmlq_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
08882 int zunmhr_(char *side, char *trans, integer *m, integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
08883 /*:ref: lsame_ 12 4 13 13 124 124 */
08884 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08885 /*:ref: xerbla_ 14 3 13 4 124 */
08886 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
08888 int zunml2_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info, ftnlen side_len, ftnlen trans_len);
08889 /*:ref: lsame_ 12 4 13 13 124 124 */
08890 /*:ref: xerbla_ 14 3 13 4 124 */
08891 /*:ref: zlacgv_ 14 3 4 9 4 */
08892 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08894 int zunmlq_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
08895 /*:ref: lsame_ 12 4 13 13 124 124 */
08896 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08897 /*:ref: xerbla_ 14 3 13 4 124 */
08898 /*:ref: zunml2_ 14 14 13 13 4 4 4 9 4 9 9 4 9 4 124 124 */
08899 /*:ref: zlarft_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08900 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08902 int zunmql_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
08903 /*:ref: lsame_ 12 4 13 13 124 124 */
08904 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08905 /*:ref: xerbla_ 14 3 13 4 124 */
08906 /*:ref: zunm2l_ 14 14 13 13 4 4 4 9 4 9 9 4 9 4 124 124 */
08907 /*:ref: zlarft_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08908 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08910 int zunmqr_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
08911 /*:ref: lsame_ 12 4 13 13 124 124 */
08912 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08913 /*:ref: xerbla_ 14 3 13 4 124 */
08914 /*:ref: zunm2r_ 14 14 13 13 4 4 4 9 4 9 9 4 9 4 124 124 */
08915 /*:ref: zlarft_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08916 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08918 int zunmr2_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info, ftnlen side_len, ftnlen trans_len);
08919 /*:ref: lsame_ 12 4 13 13 124 124 */
08920 /*:ref: xerbla_ 14 3 13 4 124 */
08921 /*:ref: zlacgv_ 14 3 4 9 4 */
08922 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08924 int zunmr3_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info, ftnlen side_len, ftnlen trans_len);
08925 /*:ref: lsame_ 12 4 13 13 124 124 */
08926 /*:ref: xerbla_ 14 3 13 4 124 */
08927 /*:ref: zlarz_ 14 11 13 4 4 4 9 4 9 9 4 9 124 */
08929 int zunmrq_(char *side, char *trans, integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
08930 /*:ref: lsame_ 12 4 13 13 124 124 */
08931 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08932 /*:ref: xerbla_ 14 3 13 4 124 */
08933 /*:ref: zunmr2_ 14 14 13 13 4 4 4 9 4 9 9 4 9 4 124 124 */
08934 /*:ref: zlarft_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08935 /*:ref: zlarfb_ 14 19 13 13 13 13 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08937 int zunmrz_(char *side, char *trans, integer *m, integer *n, integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen trans_len);
08938 /*:ref: lsame_ 12 4 13 13 124 124 */
08939 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08940 /*:ref: xerbla_ 14 3 13 4 124 */
08941 /*:ref: zunmr3_ 14 15 13 13 4 4 4 4 9 4 9 9 4 9 4 124 124 */
08942 /*:ref: zlarzt_ 14 11 13 13 4 4 9 4 9 9 4 124 124 */
08943 /*:ref: zlarzb_ 14 20 13 13 13 13 4 4 4 4 9 4 9 4 9 4 9 4 124 124 124 124 */
08945 int zunmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork, integer *info, ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
08946 /*:ref: lsame_ 12 4 13 13 124 124 */
08947 /*:ref: ilaenv_ 4 9 4 13 13 4 4 4 4 124 124 */
08948 /*:ref: xerbla_ 14 3 13 4 124 */
08949 /*:ref: zunmql_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
08950 /*:ref: zunmqr_ 14 15 13 13 4 4 4 9 4 9 9 4 9 4 4 124 124 */
08952 int zupgtr_(char *uplo, integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *work, integer *info, ftnlen uplo_len);
08953 /*:ref: lsame_ 12 4 13 13 124 124 */
08954 /*:ref: xerbla_ 14 3 13 4 124 */
08955 /*:ref: zung2l_ 14 8 4 4 4 9 4 9 9 4 */
08956 /*:ref: zung2r_ 14 8 4 4 4 9 4 9 9 4 */
08958 int zupmtr_(char *side, char *uplo, char *trans, integer *m, integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info, ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
08959 /*:ref: lsame_ 12 4 13 13 124 124 */
08960 /*:ref: xerbla_ 14 3 13 4 124 */
08961 /*:ref: zlarf_ 14 10 13 4 4 9 4 9 9 4 9 124 */
08962 
08963 #endif /* _VLAPACK_H_ */
08964 
08965