GRASS GIS 8 Programmer's Manual  8.4.0dev(2024)-761b3a08c9
lapack.h
Go to the documentation of this file.
1 #ifndef LAPACK_WRAP_
2 #define LAPACK_WRAP_
3 
4 extern int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru,
5  integer *ncc, real *d__, real *e, complex *vt, integer *ldvt,
6  complex *u, integer *ldu, complex *c__, integer *ldc,
7  real *rwork, integer *info, ftnlen uplo_len);
8 extern int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
9  integer *kl, integer *ku, complex *ab, integer *ldab,
10  real *d__, real *e, complex *q, integer *ldq, complex *pt,
11  integer *ldpt, complex *c__, integer *ldc, complex *work,
12  real *rwork, integer *info, ftnlen vect_len);
13 extern int cgbcon_(char *norm, integer *n, integer *kl, integer *ku,
14  complex *ab, integer *ldab, integer *ipiv, real *anorm,
15  real *rcond, complex *work, real *rwork, integer *info,
16  ftnlen norm_len);
17 extern int cgbequ_(integer *m, integer *n, integer *kl, integer *ku,
18  complex *ab, integer *ldab, real *r__, real *c__,
19  real *rowcnd, real *colcnd, real *amax, integer *info);
20 extern int cgbrfs_(char *trans, integer *n, integer *kl, integer *ku,
21  integer *nrhs, complex *ab, integer *ldab, complex *afb,
22  integer *ldafb, integer *ipiv, complex *b, integer *ldb,
23  complex *x, integer *ldx, real *ferr, real *berr,
24  complex *work, real *rwork, integer *info, ftnlen trans_len);
25 extern int cgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs,
26  complex *ab, integer *ldab, integer *ipiv, complex *b,
27  integer *ldb, integer *info);
28 extern int cgbsvx_(char *fact, char *trans, integer *n, integer *kl,
29  integer *ku, integer *nrhs, complex *ab, integer *ldab,
30  complex *afb, integer *ldafb, integer *ipiv, char *equed,
31  real *r__, real *c__, complex *b, integer *ldb, complex *x,
32  integer *ldx, real *rcond, real *ferr, real *berr,
33  complex *work, real *rwork, integer *info, ftnlen fact_len,
34  ftnlen trans_len, ftnlen equed_len);
35 extern int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
36  complex *ab, integer *ldab, integer *ipiv, integer *info);
37 extern int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
38  complex *ab, integer *ldab, integer *ipiv, integer *info);
39 extern int cgbtrs_(char *trans, integer *n, integer *kl, integer *ku,
40  integer *nrhs, complex *ab, integer *ldab, integer *ipiv,
41  complex *b, integer *ldb, integer *info, ftnlen trans_len);
42 extern int cgebak_(char *job, char *side, integer *n, integer *ilo,
43  integer *ihi, real *scale, integer *m, complex *v,
44  integer *ldv, integer *info, ftnlen job_len,
45  ftnlen side_len);
46 extern int cgebal_(char *job, integer *n, complex *a, integer *lda,
47  integer *ilo, integer *ihi, real *scale, integer *info,
48  ftnlen job_len);
49 extern int cgebd2_(integer *m, integer *n, complex *a, integer *lda, real *d__,
50  real *e, complex *tauq, complex *taup, complex *work,
51  integer *info);
52 extern int cgebrd_(integer *m, integer *n, complex *a, integer *lda, real *d__,
53  real *e, complex *tauq, complex *taup, complex *work,
54  integer *lwork, integer *info);
55 extern int cgecon_(char *norm, integer *n, complex *a, integer *lda,
56  real *anorm, real *rcond, complex *work, real *rwork,
57  integer *info, ftnlen norm_len);
58 extern int cgeequ_(integer *m, integer *n, complex *a, integer *lda, real *r__,
59  real *c__, real *rowcnd, real *colcnd, real *amax,
60  integer *info);
61 extern int cgees_(char *jobvs, char *sort, L_fp select, integer *n, complex *a,
62  integer *lda, integer *sdim, complex *w, complex *vs,
63  integer *ldvs, complex *work, integer *lwork, real *rwork,
64  logical *bwork, integer *info, ftnlen jobvs_len,
65  ftnlen sort_len);
66 extern int cgeesx_(char *jobvs, char *sort, L_fp select, char *sense,
67  integer *n, complex *a, integer *lda, integer *sdim,
68  complex *w, complex *vs, integer *ldvs, real *rconde,
69  real *rcondv, complex *work, integer *lwork, real *rwork,
70  logical *bwork, integer *info, ftnlen jobvs_len,
71  ftnlen sort_len, ftnlen sense_len);
72 extern int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a,
73  integer *lda, complex *w, complex *vl, integer *ldvl,
74  complex *vr, integer *ldvr, complex *work, integer *lwork,
75  real *rwork, integer *info, ftnlen jobvl_len,
76  ftnlen jobvr_len);
77 extern int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
78  integer *n, complex *a, integer *lda, complex *w,
79  complex *vl, integer *ldvl, complex *vr, integer *ldvr,
80  integer *ilo, integer *ihi, real *scale, real *abnrm,
81  real *rconde, real *rcondv, complex *work, integer *lwork,
82  real *rwork, integer *info, ftnlen balanc_len,
83  ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
84 extern int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *a,
85  integer *lda, complex *b, integer *ldb, complex *alpha,
86  complex *beta, complex *vsl, integer *ldvsl, complex *vsr,
87  integer *ldvsr, complex *work, integer *lwork, real *rwork,
88  integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len);
89 extern int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a,
90  integer *lda, complex *b, integer *ldb, complex *alpha,
91  complex *beta, complex *vl, integer *ldvl, complex *vr,
92  integer *ldvr, complex *work, integer *lwork, real *rwork,
93  integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
94 extern int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *a,
95  integer *lda, complex *tau, complex *work, integer *info);
96 extern int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *a,
97  integer *lda, complex *tau, complex *work, integer *lwork,
98  integer *info);
99 extern int cgelq2_(integer *m, integer *n, complex *a, integer *lda,
100  complex *tau, complex *work, integer *info);
101 extern int cgelqf_(integer *m, integer *n, complex *a, integer *lda,
102  complex *tau, complex *work, integer *lwork, integer *info);
103 extern int cgels_(char *trans, integer *m, integer *n, integer *nrhs,
104  complex *a, integer *lda, complex *b, integer *ldb,
105  complex *work, integer *lwork, integer *info,
106  ftnlen trans_len);
107 extern int cgelsd_(integer *m, integer *n, integer *nrhs, complex *a,
108  integer *lda, complex *b, integer *ldb, real *s, real *rcond,
109  integer *rank, complex *work, integer *lwork, real *rwork,
110  integer *iwork, integer *info);
111 extern int cgelss_(integer *m, integer *n, integer *nrhs, complex *a,
112  integer *lda, complex *b, integer *ldb, real *s, real *rcond,
113  integer *rank, complex *work, integer *lwork, real *rwork,
114  integer *info);
115 extern int cgelsx_(integer *m, integer *n, integer *nrhs, complex *a,
116  integer *lda, complex *b, integer *ldb, integer *jpvt,
117  real *rcond, integer *rank, complex *work, real *rwork,
118  integer *info);
119 extern int cgelsy_(integer *m, integer *n, integer *nrhs, complex *a,
120  integer *lda, complex *b, integer *ldb, integer *jpvt,
121  real *rcond, integer *rank, complex *work, integer *lwork,
122  real *rwork, integer *info);
123 extern int cgeql2_(integer *m, integer *n, complex *a, integer *lda,
124  complex *tau, complex *work, integer *info);
125 extern int cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
126  complex *tau, complex *work, integer *lwork, integer *info);
127 extern int cgeqp3_(integer *m, integer *n, complex *a, integer *lda,
128  integer *jpvt, complex *tau, complex *work, integer *lwork,
129  real *rwork, integer *info);
130 extern int cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
131  integer *jpvt, complex *tau, complex *work, real *rwork,
132  integer *info);
133 extern int cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
134  complex *tau, complex *work, integer *info);
135 extern int cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
136  complex *tau, complex *work, integer *lwork, integer *info);
137 extern int cgerfs_(char *trans, integer *n, integer *nrhs, complex *a,
138  integer *lda, complex *af, integer *ldaf, integer *ipiv,
139  complex *b, integer *ldb, complex *x, integer *ldx,
140  real *ferr, real *berr, complex *work, real *rwork,
141  integer *info, ftnlen trans_len);
142 extern int cgerq2_(integer *m, integer *n, complex *a, integer *lda,
143  complex *tau, complex *work, integer *info);
144 extern int cgerqf_(integer *m, integer *n, complex *a, integer *lda,
145  complex *tau, complex *work, integer *lwork, integer *info);
146 extern int cgesc2_(integer *n, complex *a, integer *lda, complex *rhs,
147  integer *ipiv, integer *jpiv, real *scale);
148 extern int cgesdd_(char *jobz, integer *m, integer *n, complex *a, integer *lda,
149  real *s, complex *u, integer *ldu, complex *vt,
150  integer *ldvt, complex *work, integer *lwork, real *rwork,
151  integer *iwork, integer *info, ftnlen jobz_len);
152 extern int cgesv_(integer *n, integer *nrhs, complex *a, integer *lda,
153  integer *ipiv, complex *b, integer *ldb, integer *info);
154 extern int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n, complex *a,
155  integer *lda, real *s, complex *u, integer *ldu, complex *vt,
156  integer *ldvt, complex *work, integer *lwork, real *rwork,
157  integer *info, ftnlen jobu_len, ftnlen jobvt_len);
158 extern int cgesvx_(char *fact, char *trans, integer *n, integer *nrhs,
159  complex *a, integer *lda, complex *af, integer *ldaf,
160  integer *ipiv, char *equed, real *r__, real *c__, complex *b,
161  integer *ldb, complex *x, integer *ldx, real *rcond,
162  real *ferr, real *berr, complex *work, real *rwork,
163  integer *info, ftnlen fact_len, ftnlen trans_len,
164  ftnlen equed_len);
165 extern int cgetc2_(integer *n, complex *a, integer *lda, integer *ipiv,
166  integer *jpiv, integer *info);
167 extern int cgetf2_(integer *m, integer *n, complex *a, integer *lda,
168  integer *ipiv, integer *info);
169 extern int cgetrf_(integer *m, integer *n, complex *a, integer *lda,
170  integer *ipiv, integer *info);
171 extern int cgetri_(integer *n, complex *a, integer *lda, integer *ipiv,
172  complex *work, integer *lwork, integer *info);
173 extern int cgetrs_(char *trans, integer *n, integer *nrhs, complex *a,
174  integer *lda, integer *ipiv, complex *b, integer *ldb,
175  integer *info, ftnlen trans_len);
176 extern int cggbak_(char *job, char *side, integer *n, integer *ilo,
177  integer *ihi, real *lscale, real *rscale, integer *m,
178  complex *v, integer *ldv, integer *info, ftnlen job_len,
179  ftnlen side_len);
180 extern int cggbal_(char *job, integer *n, complex *a, integer *lda, complex *b,
181  integer *ldb, integer *ilo, integer *ihi, real *lscale,
182  real *rscale, real *work, integer *info, ftnlen job_len);
183 extern int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg,
184  integer *n, complex *a, integer *lda, complex *b,
185  integer *ldb, integer *sdim, complex *alpha, complex *beta,
186  complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr,
187  complex *work, integer *lwork, real *rwork, logical *bwork,
188  integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len,
189  ftnlen sort_len);
190 extern int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg,
191  char *sense, integer *n, complex *a, integer *lda,
192  complex *b, integer *ldb, integer *sdim, complex *alpha,
193  complex *beta, complex *vsl, integer *ldvsl, complex *vsr,
194  integer *ldvsr, real *rconde, real *rcondv, complex *work,
195  integer *lwork, real *rwork, integer *iwork, integer *liwork,
196  logical *bwork, integer *info, ftnlen jobvsl_len,
197  ftnlen jobvsr_len, ftnlen sort_len, ftnlen sense_len);
198 extern int cggev_(char *jobvl, char *jobvr, integer *n, complex *a,
199  integer *lda, complex *b, integer *ldb, complex *alpha,
200  complex *beta, complex *vl, integer *ldvl, complex *vr,
201  integer *ldvr, complex *work, integer *lwork, real *rwork,
202  integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
203 extern int cggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
204  integer *n, complex *a, integer *lda, complex *b,
205  integer *ldb, complex *alpha, complex *beta, complex *vl,
206  integer *ldvl, complex *vr, integer *ldvr, integer *ilo,
207  integer *ihi, real *lscale, real *rscale, real *abnrm,
208  real *bbnrm, real *rconde, real *rcondv, complex *work,
209  integer *lwork, real *rwork, integer *iwork, logical *bwork,
210  integer *info, ftnlen balanc_len, ftnlen jobvl_len,
211  ftnlen jobvr_len, ftnlen sense_len);
212 extern int cggglm_(integer *n, integer *m, integer *p, complex *a, integer *lda,
213  complex *b, integer *ldb, complex *d__, complex *x,
214  complex *y, complex *work, integer *lwork, integer *info);
215 extern int cgghrd_(char *compq, char *compz, integer *n, integer *ilo,
216  integer *ihi, complex *a, integer *lda, complex *b,
217  integer *ldb, complex *q, integer *ldq, complex *z__,
218  integer *ldz, integer *info, ftnlen compq_len,
219  ftnlen compz_len);
220 extern int cgglse_(integer *m, integer *n, integer *p, complex *a, integer *lda,
221  complex *b, integer *ldb, complex *c__, complex *d__,
222  complex *x, complex *work, integer *lwork, integer *info);
223 extern int cggqrf_(integer *n, integer *m, integer *p, complex *a, integer *lda,
224  complex *taua, complex *b, integer *ldb, complex *taub,
225  complex *work, integer *lwork, integer *info);
226 extern int cggrqf_(integer *m, integer *p, integer *n, complex *a, integer *lda,
227  complex *taua, complex *b, integer *ldb, complex *taub,
228  complex *work, integer *lwork, integer *info);
229 extern int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n,
230  integer *p, integer *k, integer *l, complex *a, integer *lda,
231  complex *b, integer *ldb, real *alpha, real *beta,
232  complex *u, integer *ldu, complex *v, integer *ldv,
233  complex *q, integer *ldq, complex *work, real *rwork,
234  integer *iwork, integer *info, ftnlen jobu_len,
235  ftnlen jobv_len, ftnlen jobq_len);
236 extern int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p,
237  integer *n, complex *a, integer *lda, complex *b,
238  integer *ldb, real *tola, real *tolb, integer *k, integer *l,
239  complex *u, integer *ldu, complex *v, integer *ldv,
240  complex *q, integer *ldq, integer *iwork, real *rwork,
241  complex *tau, complex *work, integer *info, ftnlen jobu_len,
242  ftnlen jobv_len, ftnlen jobq_len);
243 extern int cgtcon_(char *norm, integer *n, complex *dl, complex *d__,
244  complex *du, complex *du2, integer *ipiv, real *anorm,
245  real *rcond, complex *work, integer *info, ftnlen norm_len);
246 extern int cgtrfs_(char *trans, integer *n, integer *nrhs, complex *dl,
247  complex *d__, complex *du, complex *dlf, complex *df,
248  complex *duf, complex *du2, integer *ipiv, complex *b,
249  integer *ldb, complex *x, integer *ldx, real *ferr,
250  real *berr, complex *work, real *rwork, integer *info,
251  ftnlen trans_len);
252 extern int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *d__,
253  complex *du, complex *b, integer *ldb, integer *info);
254 extern int cgtsvx_(char *fact, char *trans, integer *n, integer *nrhs,
255  complex *dl, complex *d__, complex *du, complex *dlf,
256  complex *df, complex *duf, complex *du2, integer *ipiv,
257  complex *b, integer *ldb, complex *x, integer *ldx,
258  real *rcond, real *ferr, real *berr, complex *work,
259  real *rwork, integer *info, ftnlen fact_len,
260  ftnlen trans_len);
261 extern int cgttrf_(integer *n, complex *dl, complex *d__, complex *du,
262  complex *du2, integer *ipiv, integer *info);
263 extern int cgttrs_(char *trans, integer *n, integer *nrhs, complex *dl,
264  complex *d__, complex *du, complex *du2, integer *ipiv,
265  complex *b, integer *ldb, integer *info, ftnlen trans_len);
266 extern int cgtts2_(integer *itrans, integer *n, integer *nrhs, complex *dl,
267  complex *d__, complex *du, complex *du2, integer *ipiv,
268  complex *b, integer *ldb);
269 extern int chbev_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab,
270  integer *ldab, real *w, complex *z__, integer *ldz,
271  complex *work, real *rwork, integer *info, ftnlen jobz_len,
272  ftnlen uplo_len);
273 extern int chbevd_(char *jobz, char *uplo, integer *n, integer *kd, complex *ab,
274  integer *ldab, real *w, complex *z__, integer *ldz,
275  complex *work, integer *lwork, real *rwork, integer *lrwork,
276  integer *iwork, integer *liwork, integer *info,
277  ftnlen jobz_len, ftnlen uplo_len);
278 extern int chbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd,
279  complex *ab, integer *ldab, complex *q, integer *ldq,
280  real *vl, real *vu, integer *il, integer *iu, real *abstol,
281  integer *m, real *w, complex *z__, integer *ldz,
282  complex *work, real *rwork, integer *iwork, integer *ifail,
283  integer *info, ftnlen jobz_len, ftnlen range_len,
284  ftnlen uplo_len);
285 extern int chbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb,
286  complex *ab, integer *ldab, complex *bb, integer *ldbb,
287  complex *x, integer *ldx, complex *work, real *rwork,
288  integer *info, ftnlen vect_len, ftnlen uplo_len);
289 extern int chbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb,
290  complex *ab, integer *ldab, complex *bb, integer *ldbb,
291  real *w, complex *z__, integer *ldz, complex *work,
292  real *rwork, integer *info, ftnlen jobz_len, ftnlen uplo_len);
293 extern int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb,
294  complex *ab, integer *ldab, complex *bb, integer *ldbb,
295  real *w, complex *z__, integer *ldz, complex *work,
296  integer *lwork, real *rwork, integer *lrwork, integer *iwork,
297  integer *liwork, integer *info, ftnlen jobz_len,
298  ftnlen uplo_len);
299 extern int chbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka,
300  integer *kb, complex *ab, integer *ldab, complex *bb,
301  integer *ldbb, complex *q, integer *ldq, real *vl, real *vu,
302  integer *il, integer *iu, real *abstol, integer *m, real *w,
303  complex *z__, integer *ldz, complex *work, real *rwork,
304  integer *iwork, integer *ifail, integer *info,
305  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
306 extern int chbtrd_(char *vect, char *uplo, integer *n, integer *kd, complex *ab,
307  integer *ldab, real *d__, real *e, complex *q, integer *ldq,
308  complex *work, integer *info, ftnlen vect_len,
309  ftnlen uplo_len);
310 extern int checon_(char *uplo, integer *n, complex *a, integer *lda,
311  integer *ipiv, real *anorm, real *rcond, complex *work,
312  integer *info, ftnlen uplo_len);
313 extern int cheev_(char *jobz, char *uplo, integer *n, complex *a, integer *lda,
314  real *w, complex *work, integer *lwork, real *rwork,
315  integer *info, ftnlen jobz_len, ftnlen uplo_len);
316 extern int cheevd_(char *jobz, char *uplo, integer *n, complex *a, integer *lda,
317  real *w, complex *work, integer *lwork, real *rwork,
318  integer *lrwork, integer *iwork, integer *liwork,
319  integer *info, ftnlen jobz_len, ftnlen uplo_len);
320 extern int cheevr_(char *jobz, char *range, char *uplo, integer *n, complex *a,
321  integer *lda, real *vl, real *vu, integer *il, integer *iu,
322  real *abstol, integer *m, real *w, complex *z__,
323  integer *ldz, integer *isuppz, complex *work, integer *lwork,
324  real *rwork, integer *lrwork, integer *iwork,
325  integer *liwork, integer *info, ftnlen jobz_len,
326  ftnlen range_len, ftnlen uplo_len);
327 extern int cheevx_(char *jobz, char *range, char *uplo, integer *n, complex *a,
328  integer *lda, real *vl, real *vu, integer *il, integer *iu,
329  real *abstol, integer *m, real *w, complex *z__,
330  integer *ldz, complex *work, integer *lwork, real *rwork,
331  integer *iwork, integer *ifail, integer *info,
332  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
333 extern int chegs2_(integer *itype, char *uplo, integer *n, complex *a,
334  integer *lda, complex *b, integer *ldb, integer *info,
335  ftnlen uplo_len);
336 extern int chegst_(integer *itype, char *uplo, integer *n, complex *a,
337  integer *lda, complex *b, integer *ldb, integer *info,
338  ftnlen uplo_len);
339 extern int chegv_(integer *itype, char *jobz, char *uplo, integer *n,
340  complex *a, integer *lda, complex *b, integer *ldb, real *w,
341  complex *work, integer *lwork, real *rwork, integer *info,
342  ftnlen jobz_len, ftnlen uplo_len);
343 extern int chegvd_(integer *itype, char *jobz, char *uplo, integer *n,
344  complex *a, integer *lda, complex *b, integer *ldb, real *w,
345  complex *work, integer *lwork, real *rwork, integer *lrwork,
346  integer *iwork, integer *liwork, integer *info,
347  ftnlen jobz_len, ftnlen uplo_len);
348 extern int chegvx_(integer *itype, char *jobz, char *range, char *uplo,
349  integer *n, complex *a, integer *lda, complex *b,
350  integer *ldb, real *vl, real *vu, integer *il, integer *iu,
351  real *abstol, integer *m, real *w, complex *z__,
352  integer *ldz, complex *work, integer *lwork, real *rwork,
353  integer *iwork, integer *ifail, integer *info,
354  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
355 extern int cherfs_(char *uplo, integer *n, integer *nrhs, complex *a,
356  integer *lda, complex *af, integer *ldaf, integer *ipiv,
357  complex *b, integer *ldb, complex *x, integer *ldx,
358  real *ferr, real *berr, complex *work, real *rwork,
359  integer *info, ftnlen uplo_len);
360 extern int chesv_(char *uplo, integer *n, integer *nrhs, complex *a,
361  integer *lda, integer *ipiv, complex *b, integer *ldb,
362  complex *work, integer *lwork, integer *info,
363  ftnlen uplo_len);
364 extern int chesvx_(char *fact, char *uplo, integer *n, integer *nrhs,
365  complex *a, integer *lda, complex *af, integer *ldaf,
366  integer *ipiv, complex *b, integer *ldb, complex *x,
367  integer *ldx, real *rcond, real *ferr, real *berr,
368  complex *work, integer *lwork, real *rwork, integer *info,
369  ftnlen fact_len, ftnlen uplo_len);
370 extern int chetd2_(char *uplo, integer *n, complex *a, integer *lda, real *d__,
371  real *e, complex *tau, integer *info, ftnlen uplo_len);
372 extern int chetf2_(char *uplo, integer *n, complex *a, integer *lda,
373  integer *ipiv, integer *info, ftnlen uplo_len);
374 extern int chetrd_(char *uplo, integer *n, complex *a, integer *lda, real *d__,
375  real *e, complex *tau, complex *work, integer *lwork,
376  integer *info, ftnlen uplo_len);
377 extern int chetrf_(char *uplo, integer *n, complex *a, integer *lda,
378  integer *ipiv, complex *work, integer *lwork, integer *info,
379  ftnlen uplo_len);
380 extern int chetri_(char *uplo, integer *n, complex *a, integer *lda,
381  integer *ipiv, complex *work, integer *info,
382  ftnlen uplo_len);
383 extern int chetrs_(char *uplo, integer *n, integer *nrhs, complex *a,
384  integer *lda, integer *ipiv, complex *b, integer *ldb,
385  integer *info, ftnlen uplo_len);
386 extern int chgeqz_(char *job, char *compq, char *compz, integer *n,
387  integer *ilo, integer *ihi, complex *a, integer *lda,
388  complex *b, integer *ldb, complex *alpha, complex *beta,
389  complex *q, integer *ldq, complex *z__, integer *ldz,
390  complex *work, integer *lwork, real *rwork, integer *info,
391  ftnlen job_len, ftnlen compq_len, ftnlen compz_len);
392 extern int chpcon_(char *uplo, integer *n, complex *ap, integer *ipiv,
393  real *anorm, real *rcond, complex *work, integer *info,
394  ftnlen uplo_len);
395 extern int chpev_(char *jobz, char *uplo, integer *n, complex *ap, real *w,
396  complex *z__, integer *ldz, complex *work, real *rwork,
397  integer *info, ftnlen jobz_len, ftnlen uplo_len);
398 extern int chpevd_(char *jobz, char *uplo, integer *n, complex *ap, real *w,
399  complex *z__, integer *ldz, complex *work, integer *lwork,
400  real *rwork, integer *lrwork, integer *iwork,
401  integer *liwork, integer *info, ftnlen jobz_len,
402  ftnlen uplo_len);
403 extern int chpevx_(char *jobz, char *range, char *uplo, integer *n, complex *ap,
404  real *vl, real *vu, integer *il, integer *iu, real *abstol,
405  integer *m, real *w, complex *z__, integer *ldz,
406  complex *work, real *rwork, integer *iwork, integer *ifail,
407  integer *info, ftnlen jobz_len, ftnlen range_len,
408  ftnlen uplo_len);
409 extern int chpgst_(integer *itype, char *uplo, integer *n, complex *ap,
410  complex *bp, integer *info, ftnlen uplo_len);
411 extern int chpgv_(integer *itype, char *jobz, char *uplo, integer *n,
412  complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
413  complex *work, real *rwork, integer *info, ftnlen jobz_len,
414  ftnlen uplo_len);
415 extern int chpgvd_(integer *itype, char *jobz, char *uplo, integer *n,
416  complex *ap, complex *bp, real *w, complex *z__,
417  integer *ldz, complex *work, integer *lwork, real *rwork,
418  integer *lrwork, integer *iwork, integer *liwork,
419  integer *info, ftnlen jobz_len, ftnlen uplo_len);
420 extern int chpgvx_(integer *itype, char *jobz, char *range, char *uplo,
421  integer *n, complex *ap, complex *bp, real *vl, real *vu,
422  integer *il, integer *iu, real *abstol, integer *m, real *w,
423  complex *z__, integer *ldz, complex *work, real *rwork,
424  integer *iwork, integer *ifail, integer *info,
425  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
426 extern int chprfs_(char *uplo, integer *n, integer *nrhs, complex *ap,
427  complex *afp, integer *ipiv, complex *b, integer *ldb,
428  complex *x, integer *ldx, real *ferr, real *berr,
429  complex *work, real *rwork, integer *info, ftnlen uplo_len);
430 extern int chpsv_(char *uplo, integer *n, integer *nrhs, complex *ap,
431  integer *ipiv, complex *b, integer *ldb, integer *info,
432  ftnlen uplo_len);
433 extern int chpsvx_(char *fact, char *uplo, integer *n, integer *nrhs,
434  complex *ap, complex *afp, integer *ipiv, complex *b,
435  integer *ldb, complex *x, integer *ldx, real *rcond,
436  real *ferr, real *berr, complex *work, real *rwork,
437  integer *info, ftnlen fact_len, ftnlen uplo_len);
438 extern int chptrd_(char *uplo, integer *n, complex *ap, real *d__, real *e,
439  complex *tau, integer *info, ftnlen uplo_len);
440 extern int chptrf_(char *uplo, integer *n, complex *ap, integer *ipiv,
441  integer *info, ftnlen uplo_len);
442 extern int chptri_(char *uplo, integer *n, complex *ap, integer *ipiv,
443  complex *work, integer *info, ftnlen uplo_len);
444 extern int chptrs_(char *uplo, integer *n, integer *nrhs, complex *ap,
445  integer *ipiv, complex *b, integer *ldb, integer *info,
446  ftnlen uplo_len);
447 extern int chsein_(char *side, char *eigsrc, char *initv, logical *select,
448  integer *n, complex *h__, integer *ldh, complex *w,
449  complex *vl, integer *ldvl, complex *vr, integer *ldvr,
450  integer *mm, integer *m, complex *work, real *rwork,
451  integer *ifaill, integer *ifailr, integer *info,
452  ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
453 extern int chseqr_(char *job, char *compz, integer *n, integer *ilo,
454  integer *ihi, complex *h__, integer *ldh, complex *w,
455  complex *z__, integer *ldz, complex *work, integer *lwork,
456  integer *info, ftnlen job_len, ftnlen compz_len);
457 extern int clabrd_(integer *m, integer *n, integer *nb, complex *a,
458  integer *lda, real *d__, real *e, complex *tauq,
459  complex *taup, complex *x, integer *ldx, complex *y,
460  integer *ldy);
461 extern int clacgv_(integer *n, complex *x, integer *incx);
462 extern int clacon_(integer *n, complex *v, complex *x, real *est,
463  integer *kase);
464 extern int clacp2_(char *uplo, integer *m, integer *n, real *a, integer *lda,
465  complex *b, integer *ldb, ftnlen uplo_len);
466 extern int clacpy_(char *uplo, integer *m, integer *n, complex *a, integer *lda,
467  complex *b, integer *ldb, ftnlen uplo_len);
468 extern int clacrm_(integer *m, integer *n, complex *a, integer *lda, real *b,
469  integer *ldb, complex *c__, integer *ldc, real *rwork);
470 extern int clacrt_(integer *n, complex *cx, integer *incx, complex *cy,
471  integer *incy, complex *c__, complex *s);
472 extern C_f cladiv_(complex *ret_val, complex *x, complex *y);
473 extern int claed0_(integer *qsiz, integer *n, real *d__, real *e, complex *q,
474  integer *ldq, complex *qstore, integer *ldqs, real *rwork,
475  integer *iwork, integer *info);
476 extern int claed7_(integer *n, integer *cutpnt, integer *qsiz, integer *tlvls,
477  integer *curlvl, integer *curpbm, real *d__, complex *q,
478  integer *ldq, real *rho, integer *indxq, real *qstore,
479  integer *qptr, integer *prmptr, integer *perm,
480  integer *givptr, integer *givcol, real *givnum,
481  complex *work, real *rwork, integer *iwork, integer *info);
482 extern int claed8_(integer *k, integer *n, integer *qsiz, complex *q,
483  integer *ldq, real *d__, real *rho, integer *cutpnt,
484  real *z__, real *dlamda, complex *q2, integer *ldq2, real *w,
485  integer *indxp, integer *indx, integer *indxq, integer *perm,
486  integer *givptr, integer *givcol, real *givnum,
487  integer *info);
488 extern int claein_(logical *rightv, logical *noinit, integer *n, complex *h__,
489  integer *ldh, complex *w, complex *v, complex *b,
490  integer *ldb, real *rwork, real *eps3, real *smlnum,
491  integer *info);
492 extern int claesy_(complex *a, complex *b, complex *c__, complex *rt1,
493  complex *rt2, complex *evscal, complex *cs1, complex *sn1);
494 extern int claev2_(complex *a, complex *b, complex *c__, real *rt1, real *rt2,
495  real *cs1, complex *sn1);
496 extern int clags2_(logical *upper, real *a1, complex *a2, real *a3, real *b1,
497  complex *b2, real *b3, real *csu, complex *snu, real *csv,
498  complex *snv, real *csq, complex *snq);
499 extern int clagtm_(char *trans, integer *n, integer *nrhs, real *alpha,
500  complex *dl, complex *d__, complex *du, complex *x,
501  integer *ldx, real *beta, complex *b, integer *ldb,
502  ftnlen trans_len);
503 extern int clahef_(char *uplo, integer *n, integer *nb, integer *kb, complex *a,
504  integer *lda, integer *ipiv, complex *w, integer *ldw,
505  integer *info, ftnlen uplo_len);
506 extern int clahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo,
507  integer *ihi, complex *h__, integer *ldh, complex *w,
508  integer *iloz, integer *ihiz, complex *z__, integer *ldz,
509  integer *info);
510 extern int clahrd_(integer *n, integer *k, integer *nb, complex *a,
511  integer *lda, complex *tau, complex *t, integer *ldt,
512  complex *y, integer *ldy);
513 extern int claic1_(integer *job, integer *j, complex *x, real *sest, complex *w,
514  complex *gamma, real *sestpr, complex *s, complex *c__);
515 extern int clals0_(integer *icompq, integer *nl, integer *nr, integer *sqre,
516  integer *nrhs, complex *b, integer *ldb, complex *bx,
517  integer *ldbx, integer *perm, integer *givptr,
518  integer *givcol, integer *ldgcol, real *givnum,
519  integer *ldgnum, real *poles, real *difl, real *difr,
520  real *z__, integer *k, real *c__, real *s, real *rwork,
521  integer *info);
522 extern int clalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs,
523  complex *b, integer *ldb, complex *bx, integer *ldbx,
524  real *u, integer *ldu, real *vt, integer *k, real *difl,
525  real *difr, real *z__, real *poles, integer *givptr,
526  integer *givcol, integer *ldgcol, integer *perm,
527  real *givnum, real *c__, real *s, real *rwork,
528  integer *iwork, integer *info);
529 extern int clalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs,
530  real *d__, real *e, complex *b, integer *ldb, real *rcond,
531  integer *rank, complex *work, real *rwork, integer *iwork,
532  integer *info, ftnlen uplo_len);
533 extern E_f clangb_(char *norm, integer *n, integer *kl, integer *ku,
534  complex *ab, integer *ldab, real *work, ftnlen norm_len);
535 extern E_f clange_(char *norm, integer *m, integer *n, complex *a, integer *lda,
536  real *work, ftnlen norm_len);
537 extern E_f clangt_(char *norm, integer *n, complex *dl, complex *d__,
538  complex *du, ftnlen norm_len);
539 extern E_f clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *ab,
540  integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len);
541 extern E_f clanhe_(char *norm, char *uplo, integer *n, complex *a, integer *lda,
542  real *work, ftnlen norm_len, ftnlen uplo_len);
543 extern E_f clanhp_(char *norm, char *uplo, integer *n, complex *ap, real *work,
544  ftnlen norm_len, ftnlen uplo_len);
545 extern E_f clanhs_(char *norm, integer *n, complex *a, integer *lda, real *work,
546  ftnlen norm_len);
547 extern E_f clanht_(char *norm, integer *n, real *d__, complex *e,
548  ftnlen norm_len);
549 extern E_f clansb_(char *norm, char *uplo, integer *n, integer *k, complex *ab,
550  integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len);
551 extern E_f clansp_(char *norm, char *uplo, integer *n, complex *ap, real *work,
552  ftnlen norm_len, ftnlen uplo_len);
553 extern E_f clansy_(char *norm, char *uplo, integer *n, complex *a, integer *lda,
554  real *work, ftnlen norm_len, ftnlen uplo_len);
555 extern E_f clantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
556  complex *ab, integer *ldab, real *work, ftnlen norm_len,
557  ftnlen uplo_len, ftnlen diag_len);
558 extern E_f clantp_(char *norm, char *uplo, char *diag, integer *n, complex *ap,
559  real *work, ftnlen norm_len, ftnlen uplo_len,
560  ftnlen diag_len);
561 extern E_f clantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
562  complex *a, integer *lda, real *work, ftnlen norm_len,
563  ftnlen uplo_len, ftnlen diag_len);
564 extern int clapll_(integer *n, complex *x, integer *incx, complex *y,
565  integer *incy, real *ssmin);
566 extern int clapmt_(logical *forwrd, integer *m, integer *n, complex *x,
567  integer *ldx, integer *k);
568 extern int claqgb_(integer *m, integer *n, integer *kl, integer *ku,
569  complex *ab, integer *ldab, real *r__, real *c__,
570  real *rowcnd, real *colcnd, real *amax, char *equed,
571  ftnlen equed_len);
572 extern int claqge_(integer *m, integer *n, complex *a, integer *lda, real *r__,
573  real *c__, real *rowcnd, real *colcnd, real *amax,
574  char *equed, ftnlen equed_len);
575 extern int claqhb_(char *uplo, integer *n, integer *kd, complex *ab,
576  integer *ldab, real *s, real *scond, real *amax, char *equed,
577  ftnlen uplo_len, ftnlen equed_len);
578 extern int claqhe_(char *uplo, integer *n, complex *a, integer *lda, real *s,
579  real *scond, real *amax, char *equed, ftnlen uplo_len,
580  ftnlen equed_len);
581 extern int claqhp_(char *uplo, integer *n, complex *ap, real *s, real *scond,
582  real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
583 extern int claqp2_(integer *m, integer *n, integer *offset, complex *a,
584  integer *lda, integer *jpvt, complex *tau, real *vn1,
585  real *vn2, complex *work);
586 extern int claqps_(integer *m, integer *n, integer *offset, integer *nb,
587  integer *kb, complex *a, integer *lda, integer *jpvt,
588  complex *tau, real *vn1, real *vn2, complex *auxv,
589  complex *f, integer *ldf);
590 extern int claqsb_(char *uplo, integer *n, integer *kd, complex *ab,
591  integer *ldab, real *s, real *scond, real *amax, char *equed,
592  ftnlen uplo_len, ftnlen equed_len);
593 extern int claqsp_(char *uplo, integer *n, complex *ap, real *s, real *scond,
594  real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
595 extern int claqsy_(char *uplo, integer *n, complex *a, integer *lda, real *s,
596  real *scond, real *amax, char *equed, ftnlen uplo_len,
597  ftnlen equed_len);
598 extern int clar1v_(integer *n, integer *b1, integer *bn, real *sigma, real *d__,
599  real *l, real *ld, real *lld, real *gersch, complex *z__,
600  real *ztz, real *mingma, integer *r__, integer *isuppz,
601  real *work);
602 extern int clar2v_(integer *n, complex *x, complex *y, complex *z__,
603  integer *incx, real *c__, complex *s, integer *incc);
604 extern int clarcm_(integer *m, integer *n, real *a, integer *lda, complex *b,
605  integer *ldb, complex *c__, integer *ldc, real *rwork);
606 extern int clarf_(char *side, integer *m, integer *n, complex *v, integer *incv,
607  complex *tau, complex *c__, integer *ldc, complex *work,
608  ftnlen side_len);
609 extern int clarfb_(char *side, char *trans, char *direct, char *storev,
610  integer *m, integer *n, integer *k, complex *v, integer *ldv,
611  complex *t, integer *ldt, complex *c__, integer *ldc,
612  complex *work, integer *ldwork, ftnlen side_len,
613  ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
614 extern int clarfg_(integer *n, complex *alpha, complex *x, integer *incx,
615  complex *tau);
616 extern int clarft_(char *direct, char *storev, integer *n, integer *k,
617  complex *v, integer *ldv, complex *tau, complex *t,
618  integer *ldt, ftnlen direct_len, ftnlen storev_len);
619 extern int clarfx_(char *side, integer *m, integer *n, complex *v, complex *tau,
620  complex *c__, integer *ldc, complex *work, ftnlen side_len);
621 extern int clargv_(integer *n, complex *x, integer *incx, complex *y,
622  integer *incy, real *c__, integer *incc);
623 extern int clarnv_(integer *idist, integer *iseed, integer *n, complex *x);
624 extern int clarrv_(integer *n, real *d__, real *l, integer *isplit, integer *m,
625  real *w, integer *iblock, real *gersch, real *tol,
626  complex *z__, integer *ldz, integer *isuppz, real *work,
627  integer *iwork, integer *info);
628 extern int clartg_(complex *f, complex *g, real *cs, complex *sn, complex *r__);
629 extern int clartv_(integer *n, complex *x, integer *incx, complex *y,
630  integer *incy, real *c__, complex *s, integer *incc);
631 extern int clarz_(char *side, integer *m, integer *n, integer *l, complex *v,
632  integer *incv, complex *tau, complex *c__, integer *ldc,
633  complex *work, ftnlen side_len);
634 extern int clarzb_(char *side, char *trans, char *direct, char *storev,
635  integer *m, integer *n, integer *k, integer *l, complex *v,
636  integer *ldv, complex *t, integer *ldt, complex *c__,
637  integer *ldc, complex *work, integer *ldwork,
638  ftnlen side_len, ftnlen trans_len, ftnlen direct_len,
639  ftnlen storev_len);
640 extern int clarzt_(char *direct, char *storev, integer *n, integer *k,
641  complex *v, integer *ldv, complex *tau, complex *t,
642  integer *ldt, ftnlen direct_len, ftnlen storev_len);
643 extern int clascl_(char *type__, integer *kl, integer *ku, real *cfrom,
644  real *cto, integer *m, integer *n, complex *a, integer *lda,
645  integer *info, ftnlen type_len);
646 extern int claset_(char *uplo, integer *m, integer *n, complex *alpha,
647  complex *beta, complex *a, integer *lda, ftnlen uplo_len);
648 extern int clasr_(char *side, char *pivot, char *direct, integer *m, integer *n,
649  real *c__, real *s, complex *a, integer *lda, ftnlen side_len,
650  ftnlen pivot_len, ftnlen direct_len);
651 extern int classq_(integer *n, complex *x, integer *incx, real *scale,
652  real *sumsq);
653 extern int claswp_(integer *n, complex *a, integer *lda, integer *k1,
654  integer *k2, integer *ipiv, integer *incx);
655 extern int clasyf_(char *uplo, integer *n, integer *nb, integer *kb, complex *a,
656  integer *lda, integer *ipiv, complex *w, integer *ldw,
657  integer *info, ftnlen uplo_len);
658 extern int clatbs_(char *uplo, char *trans, char *diag, char *normin,
659  integer *n, integer *kd, complex *ab, integer *ldab,
660  complex *x, real *scale, real *cnorm, integer *info,
661  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
662  ftnlen normin_len);
663 extern int clatdf_(integer *ijob, integer *n, complex *z__, integer *ldz,
664  complex *rhs, real *rdsum, real *rdscal, integer *ipiv,
665  integer *jpiv);
666 extern int clatps_(char *uplo, char *trans, char *diag, char *normin,
667  integer *n, complex *ap, complex *x, real *scale,
668  real *cnorm, integer *info, ftnlen uplo_len,
669  ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
670 extern int clatrd_(char *uplo, integer *n, integer *nb, complex *a,
671  integer *lda, real *e, complex *tau, complex *w,
672  integer *ldw, ftnlen uplo_len);
673 extern int clatrs_(char *uplo, char *trans, char *diag, char *normin,
674  integer *n, complex *a, integer *lda, complex *x,
675  real *scale, real *cnorm, integer *info, ftnlen uplo_len,
676  ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
677 extern int clatrz_(integer *m, integer *n, integer *l, complex *a, integer *lda,
678  complex *tau, complex *work);
679 extern int clatzm_(char *side, integer *m, integer *n, complex *v,
680  integer *incv, complex *tau, complex *c1, complex *c2,
681  integer *ldc, complex *work, ftnlen side_len);
682 extern int clauu2_(char *uplo, integer *n, complex *a, integer *lda,
683  integer *info, ftnlen uplo_len);
684 extern int clauum_(char *uplo, integer *n, complex *a, integer *lda,
685  integer *info, ftnlen uplo_len);
686 extern int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab,
687  integer *ldab, real *anorm, real *rcond, complex *work,
688  real *rwork, integer *info, ftnlen uplo_len);
689 extern int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab,
690  integer *ldab, real *s, real *scond, real *amax,
691  integer *info, ftnlen uplo_len);
692 extern int cpbrfs_(char *uplo, integer *n, integer *kd, integer *nrhs,
693  complex *ab, integer *ldab, complex *afb, integer *ldafb,
694  complex *b, integer *ldb, complex *x, integer *ldx,
695  real *ferr, real *berr, complex *work, real *rwork,
696  integer *info, ftnlen uplo_len);
697 extern int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab,
698  integer *ldab, integer *info, ftnlen uplo_len);
699 extern int cpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs,
700  complex *ab, integer *ldab, complex *b, integer *ldb,
701  integer *info, ftnlen uplo_len);
702 extern int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
703  integer *nrhs, complex *ab, integer *ldab, complex *afb,
704  integer *ldafb, char *equed, real *s, complex *b,
705  integer *ldb, complex *x, integer *ldx, real *rcond,
706  real *ferr, real *berr, complex *work, real *rwork,
707  integer *info, ftnlen fact_len, ftnlen uplo_len,
708  ftnlen equed_len);
709 extern int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab,
710  integer *ldab, integer *info, ftnlen uplo_len);
711 extern int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab,
712  integer *ldab, integer *info, ftnlen uplo_len);
713 extern int cpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs,
714  complex *ab, integer *ldab, complex *b, integer *ldb,
715  integer *info, ftnlen uplo_len);
716 extern int cpocon_(char *uplo, integer *n, complex *a, integer *lda,
717  real *anorm, real *rcond, complex *work, real *rwork,
718  integer *info, ftnlen uplo_len);
719 extern int cpoequ_(integer *n, complex *a, integer *lda, real *s, real *scond,
720  real *amax, integer *info);
721 extern int cporfs_(char *uplo, integer *n, integer *nrhs, complex *a,
722  integer *lda, complex *af, integer *ldaf, complex *b,
723  integer *ldb, complex *x, integer *ldx, real *ferr,
724  real *berr, complex *work, real *rwork, integer *info,
725  ftnlen uplo_len);
726 extern int cposv_(char *uplo, integer *n, integer *nrhs, complex *a,
727  integer *lda, complex *b, integer *ldb, integer *info,
728  ftnlen uplo_len);
729 extern int cposvx_(char *fact, char *uplo, integer *n, integer *nrhs,
730  complex *a, integer *lda, complex *af, integer *ldaf,
731  char *equed, real *s, complex *b, integer *ldb, complex *x,
732  integer *ldx, real *rcond, real *ferr, real *berr,
733  complex *work, real *rwork, integer *info, ftnlen fact_len,
734  ftnlen uplo_len, ftnlen equed_len);
735 extern int cpotf2_(char *uplo, integer *n, complex *a, integer *lda,
736  integer *info, ftnlen uplo_len);
737 extern int cpotrf_(char *uplo, integer *n, complex *a, integer *lda,
738  integer *info, ftnlen uplo_len);
739 extern int cpotri_(char *uplo, integer *n, complex *a, integer *lda,
740  integer *info, ftnlen uplo_len);
741 extern int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *a,
742  integer *lda, complex *b, integer *ldb, integer *info,
743  ftnlen uplo_len);
744 extern int cppcon_(char *uplo, integer *n, complex *ap, real *anorm,
745  real *rcond, complex *work, real *rwork, integer *info,
746  ftnlen uplo_len);
747 extern int cppequ_(char *uplo, integer *n, complex *ap, real *s, real *scond,
748  real *amax, integer *info, ftnlen uplo_len);
749 extern int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *ap,
750  complex *afp, complex *b, integer *ldb, complex *x,
751  integer *ldx, real *ferr, real *berr, complex *work,
752  real *rwork, integer *info, ftnlen uplo_len);
753 extern int cppsv_(char *uplo, integer *n, integer *nrhs, complex *ap,
754  complex *b, integer *ldb, integer *info, ftnlen uplo_len);
755 extern int cppsvx_(char *fact, char *uplo, integer *n, integer *nrhs,
756  complex *ap, complex *afp, char *equed, real *s, complex *b,
757  integer *ldb, complex *x, integer *ldx, real *rcond,
758  real *ferr, real *berr, complex *work, real *rwork,
759  integer *info, ftnlen fact_len, ftnlen uplo_len,
760  ftnlen equed_len);
761 extern int cpptrf_(char *uplo, integer *n, complex *ap, integer *info,
762  ftnlen uplo_len);
763 extern int cpptri_(char *uplo, integer *n, complex *ap, integer *info,
764  ftnlen uplo_len);
765 extern int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *ap,
766  complex *b, integer *ldb, integer *info, ftnlen uplo_len);
767 extern int cptcon_(integer *n, real *d__, complex *e, real *anorm, real *rcond,
768  real *rwork, integer *info);
769 extern int cpteqr_(char *compz, integer *n, real *d__, real *e, complex *z__,
770  integer *ldz, real *work, integer *info, ftnlen compz_len);
771 extern int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__, complex *e,
772  real *df, complex *ef, complex *b, integer *ldb, complex *x,
773  integer *ldx, real *ferr, real *berr, complex *work,
774  real *rwork, integer *info, ftnlen uplo_len);
775 extern int cptsv_(integer *n, integer *nrhs, real *d__, complex *e, complex *b,
776  integer *ldb, integer *info);
777 extern int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__, complex *e,
778  real *df, complex *ef, complex *b, integer *ldb, complex *x,
779  integer *ldx, real *rcond, real *ferr, real *berr,
780  complex *work, real *rwork, integer *info, ftnlen fact_len);
781 extern int cpttrf_(integer *n, real *d__, complex *e, integer *info);
782 extern int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, complex *e,
783  complex *b, integer *ldb, integer *info, ftnlen uplo_len);
784 extern int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *d__,
785  complex *e, complex *b, integer *ldb);
786 extern int crot_(integer *n, complex *cx, integer *incx, complex *cy,
787  integer *incy, real *c__, complex *s);
788 extern int cspcon_(char *uplo, integer *n, complex *ap, integer *ipiv,
789  real *anorm, real *rcond, complex *work, integer *info,
790  ftnlen uplo_len);
791 extern int cspmv_(char *uplo, integer *n, complex *alpha, complex *ap,
792  complex *x, integer *incx, complex *beta, complex *y,
793  integer *incy, ftnlen uplo_len);
794 extern int cspr_(char *uplo, integer *n, complex *alpha, complex *x,
795  integer *incx, complex *ap, ftnlen uplo_len);
796 extern int csprfs_(char *uplo, integer *n, integer *nrhs, complex *ap,
797  complex *afp, integer *ipiv, complex *b, integer *ldb,
798  complex *x, integer *ldx, real *ferr, real *berr,
799  complex *work, real *rwork, integer *info, ftnlen uplo_len);
800 extern int cspsv_(char *uplo, integer *n, integer *nrhs, complex *ap,
801  integer *ipiv, complex *b, integer *ldb, integer *info,
802  ftnlen uplo_len);
803 extern int cspsvx_(char *fact, char *uplo, integer *n, integer *nrhs,
804  complex *ap, complex *afp, integer *ipiv, complex *b,
805  integer *ldb, complex *x, integer *ldx, real *rcond,
806  real *ferr, real *berr, complex *work, real *rwork,
807  integer *info, ftnlen fact_len, ftnlen uplo_len);
808 extern int csptrf_(char *uplo, integer *n, complex *ap, integer *ipiv,
809  integer *info, ftnlen uplo_len);
810 extern int csptri_(char *uplo, integer *n, complex *ap, integer *ipiv,
811  complex *work, integer *info, ftnlen uplo_len);
812 extern int csptrs_(char *uplo, integer *n, integer *nrhs, complex *ap,
813  integer *ipiv, complex *b, integer *ldb, integer *info,
814  ftnlen uplo_len);
815 extern int csrot_(integer *n, complex *cx, integer *incx, complex *cy,
816  integer *incy, real *c__, real *s);
817 extern int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
818 extern int cstedc_(char *compz, integer *n, real *d__, real *e, complex *z__,
819  integer *ldz, complex *work, integer *lwork, real *rwork,
820  integer *lrwork, integer *iwork, integer *liwork,
821  integer *info, ftnlen compz_len);
822 extern int cstegr_(char *jobz, char *range, integer *n, real *d__, real *e,
823  real *vl, real *vu, integer *il, integer *iu, real *abstol,
824  integer *m, real *w, complex *z__, integer *ldz,
825  integer *isuppz, real *work, integer *lwork, integer *iwork,
826  integer *liwork, integer *info, ftnlen jobz_len,
827  ftnlen range_len);
828 extern int cstein_(integer *n, real *d__, real *e, integer *m, real *w,
829  integer *iblock, integer *isplit, complex *z__, integer *ldz,
830  real *work, integer *iwork, integer *ifail, integer *info);
831 extern int csteqr_(char *compz, integer *n, real *d__, real *e, complex *z__,
832  integer *ldz, real *work, integer *info, ftnlen compz_len);
833 extern int csycon_(char *uplo, integer *n, complex *a, integer *lda,
834  integer *ipiv, real *anorm, real *rcond, complex *work,
835  integer *info, ftnlen uplo_len);
836 extern int csymv_(char *uplo, integer *n, complex *alpha, complex *a,
837  integer *lda, complex *x, integer *incx, complex *beta,
838  complex *y, integer *incy, ftnlen uplo_len);
839 extern int csyr_(char *uplo, integer *n, complex *alpha, complex *x,
840  integer *incx, complex *a, integer *lda, ftnlen uplo_len);
841 extern int csyrfs_(char *uplo, integer *n, integer *nrhs, complex *a,
842  integer *lda, complex *af, integer *ldaf, integer *ipiv,
843  complex *b, integer *ldb, complex *x, integer *ldx,
844  real *ferr, real *berr, complex *work, real *rwork,
845  integer *info, ftnlen uplo_len);
846 extern int csysv_(char *uplo, integer *n, integer *nrhs, complex *a,
847  integer *lda, integer *ipiv, complex *b, integer *ldb,
848  complex *work, integer *lwork, integer *info,
849  ftnlen uplo_len);
850 extern int csysvx_(char *fact, char *uplo, integer *n, integer *nrhs,
851  complex *a, integer *lda, complex *af, integer *ldaf,
852  integer *ipiv, complex *b, integer *ldb, complex *x,
853  integer *ldx, real *rcond, real *ferr, real *berr,
854  complex *work, integer *lwork, real *rwork, integer *info,
855  ftnlen fact_len, ftnlen uplo_len);
856 extern int csytf2_(char *uplo, integer *n, complex *a, integer *lda,
857  integer *ipiv, integer *info, ftnlen uplo_len);
858 extern int csytrf_(char *uplo, integer *n, complex *a, integer *lda,
859  integer *ipiv, complex *work, integer *lwork, integer *info,
860  ftnlen uplo_len);
861 extern int csytri_(char *uplo, integer *n, complex *a, integer *lda,
862  integer *ipiv, complex *work, integer *info,
863  ftnlen uplo_len);
864 extern int csytrs_(char *uplo, integer *n, integer *nrhs, complex *a,
865  integer *lda, integer *ipiv, complex *b, integer *ldb,
866  integer *info, ftnlen uplo_len);
867 extern int ctbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd,
868  complex *ab, integer *ldab, real *rcond, complex *work,
869  real *rwork, integer *info, ftnlen norm_len, ftnlen uplo_len,
870  ftnlen diag_len);
871 extern int ctbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd,
872  integer *nrhs, complex *ab, integer *ldab, complex *b,
873  integer *ldb, complex *x, integer *ldx, real *ferr,
874  real *berr, complex *work, real *rwork, integer *info,
875  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
876 extern int ctbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd,
877  integer *nrhs, complex *ab, integer *ldab, complex *b,
878  integer *ldb, integer *info, ftnlen uplo_len,
879  ftnlen trans_len, ftnlen diag_len);
880 extern int ctgevc_(char *side, char *howmny, logical *select, integer *n,
881  complex *a, integer *lda, complex *b, integer *ldb,
882  complex *vl, integer *ldvl, complex *vr, integer *ldvr,
883  integer *mm, integer *m, complex *work, real *rwork,
884  integer *info, ftnlen side_len, ftnlen howmny_len);
885 extern int ctgex2_(logical *wantq, logical *wantz, integer *n, complex *a,
886  integer *lda, complex *b, integer *ldb, complex *q,
887  integer *ldq, complex *z__, integer *ldz, integer *j1,
888  integer *info);
889 extern int ctgexc_(logical *wantq, logical *wantz, integer *n, complex *a,
890  integer *lda, complex *b, integer *ldb, complex *q,
891  integer *ldq, complex *z__, integer *ldz, integer *ifst,
892  integer *ilst, integer *info);
893 extern int ctgsen_(integer *ijob, logical *wantq, logical *wantz,
894  logical *select, integer *n, complex *a, integer *lda,
895  complex *b, integer *ldb, complex *alpha, complex *beta,
896  complex *q, integer *ldq, complex *z__, integer *ldz,
897  integer *m, real *pl, real *pr, real *dif, complex *work,
898  integer *lwork, integer *iwork, integer *liwork,
899  integer *info);
900 extern int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p,
901  integer *n, integer *k, integer *l, complex *a, integer *lda,
902  complex *b, integer *ldb, real *tola, real *tolb,
903  real *alpha, real *beta, complex *u, integer *ldu,
904  complex *v, integer *ldv, complex *q, integer *ldq,
905  complex *work, integer *ncycle, integer *info,
906  ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
907 extern int ctgsna_(char *job, char *howmny, logical *select, integer *n,
908  complex *a, integer *lda, complex *b, integer *ldb,
909  complex *vl, integer *ldvl, complex *vr, integer *ldvr,
910  real *s, real *dif, integer *mm, integer *m, complex *work,
911  integer *lwork, integer *iwork, integer *info,
912  ftnlen job_len, ftnlen howmny_len);
913 extern int ctgsy2_(char *trans, integer *ijob, integer *m, integer *n,
914  complex *a, integer *lda, complex *b, integer *ldb,
915  complex *c__, integer *ldc, complex *d__, integer *ldd,
916  complex *e, integer *lde, complex *f, integer *ldf,
917  real *scale, real *rdsum, real *rdscal, integer *info,
918  ftnlen trans_len);
919 extern int ctgsyl_(char *trans, integer *ijob, integer *m, integer *n,
920  complex *a, integer *lda, complex *b, integer *ldb,
921  complex *c__, integer *ldc, complex *d__, integer *ldd,
922  complex *e, integer *lde, complex *f, integer *ldf,
923  real *scale, real *dif, complex *work, integer *lwork,
924  integer *iwork, integer *info, ftnlen trans_len);
925 extern int ctpcon_(char *norm, char *uplo, char *diag, integer *n, complex *ap,
926  real *rcond, complex *work, real *rwork, integer *info,
927  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
928 extern int ctprfs_(char *uplo, char *trans, char *diag, integer *n,
929  integer *nrhs, complex *ap, complex *b, integer *ldb,
930  complex *x, integer *ldx, real *ferr, real *berr,
931  complex *work, real *rwork, integer *info, ftnlen uplo_len,
932  ftnlen trans_len, ftnlen diag_len);
933 extern int ctptri_(char *uplo, char *diag, integer *n, complex *ap,
934  integer *info, ftnlen uplo_len, ftnlen diag_len);
935 extern int ctptrs_(char *uplo, char *trans, char *diag, integer *n,
936  integer *nrhs, complex *ap, complex *b, integer *ldb,
937  integer *info, ftnlen uplo_len, ftnlen trans_len,
938  ftnlen diag_len);
939 extern int ctrcon_(char *norm, char *uplo, char *diag, integer *n, complex *a,
940  integer *lda, real *rcond, complex *work, real *rwork,
941  integer *info, ftnlen norm_len, ftnlen uplo_len,
942  ftnlen diag_len);
943 extern int ctrevc_(char *side, char *howmny, logical *select, integer *n,
944  complex *t, integer *ldt, complex *vl, integer *ldvl,
945  complex *vr, integer *ldvr, integer *mm, integer *m,
946  complex *work, real *rwork, integer *info, ftnlen side_len,
947  ftnlen howmny_len);
948 extern int ctrexc_(char *compq, integer *n, complex *t, integer *ldt,
949  complex *q, integer *ldq, integer *ifst, integer *ilst,
950  integer *info, ftnlen compq_len);
951 extern int ctrrfs_(char *uplo, char *trans, char *diag, integer *n,
952  integer *nrhs, complex *a, integer *lda, complex *b,
953  integer *ldb, complex *x, integer *ldx, real *ferr,
954  real *berr, complex *work, real *rwork, integer *info,
955  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
956 extern int ctrsen_(char *job, char *compq, logical *select, integer *n,
957  complex *t, integer *ldt, complex *q, integer *ldq,
958  complex *w, integer *m, real *s, real *sep, complex *work,
959  integer *lwork, integer *info, ftnlen job_len,
960  ftnlen compq_len);
961 extern int ctrsna_(char *job, char *howmny, logical *select, integer *n,
962  complex *t, integer *ldt, complex *vl, integer *ldvl,
963  complex *vr, integer *ldvr, real *s, real *sep, integer *mm,
964  integer *m, complex *work, integer *ldwork, real *rwork,
965  integer *info, ftnlen job_len, ftnlen howmny_len);
966 extern int ctrsyl_(char *trana, char *tranb, integer *isgn, integer *m,
967  integer *n, complex *a, integer *lda, complex *b,
968  integer *ldb, complex *c__, integer *ldc, real *scale,
969  integer *info, ftnlen trana_len, ftnlen tranb_len);
970 extern int ctrti2_(char *uplo, char *diag, integer *n, complex *a, integer *lda,
971  integer *info, ftnlen uplo_len, ftnlen diag_len);
972 extern int ctrtri_(char *uplo, char *diag, integer *n, complex *a, integer *lda,
973  integer *info, ftnlen uplo_len, ftnlen diag_len);
974 extern int ctrtrs_(char *uplo, char *trans, char *diag, integer *n,
975  integer *nrhs, complex *a, integer *lda, complex *b,
976  integer *ldb, integer *info, ftnlen uplo_len,
977  ftnlen trans_len, ftnlen diag_len);
978 extern int ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
979  complex *tau, integer *info);
980 extern int ctzrzf_(integer *m, integer *n, complex *a, integer *lda,
981  complex *tau, complex *work, integer *lwork, integer *info);
982 extern int cung2l_(integer *m, integer *n, integer *k, complex *a, integer *lda,
983  complex *tau, complex *work, integer *info);
984 extern int cung2r_(integer *m, integer *n, integer *k, complex *a, integer *lda,
985  complex *tau, complex *work, integer *info);
986 extern int cungbr_(char *vect, integer *m, integer *n, integer *k, complex *a,
987  integer *lda, complex *tau, complex *work, integer *lwork,
988  integer *info, ftnlen vect_len);
989 extern int cunghr_(integer *n, integer *ilo, integer *ihi, complex *a,
990  integer *lda, complex *tau, complex *work, integer *lwork,
991  integer *info);
992 extern int cungl2_(integer *m, integer *n, integer *k, complex *a, integer *lda,
993  complex *tau, complex *work, integer *info);
994 extern int cunglq_(integer *m, integer *n, integer *k, complex *a, integer *lda,
995  complex *tau, complex *work, integer *lwork, integer *info);
996 extern int cungql_(integer *m, integer *n, integer *k, complex *a, integer *lda,
997  complex *tau, complex *work, integer *lwork, integer *info);
998 extern int cungqr_(integer *m, integer *n, integer *k, complex *a, integer *lda,
999  complex *tau, complex *work, integer *lwork, integer *info);
1000 extern int cungr2_(integer *m, integer *n, integer *k, complex *a, integer *lda,
1001  complex *tau, complex *work, integer *info);
1002 extern int cungrq_(integer *m, integer *n, integer *k, complex *a, integer *lda,
1003  complex *tau, complex *work, integer *lwork, integer *info);
1004 extern int cungtr_(char *uplo, integer *n, complex *a, integer *lda,
1005  complex *tau, complex *work, integer *lwork, integer *info,
1006  ftnlen uplo_len);
1007 extern int cunm2l_(char *side, char *trans, integer *m, integer *n, integer *k,
1008  complex *a, integer *lda, complex *tau, complex *c__,
1009  integer *ldc, complex *work, integer *info, ftnlen side_len,
1010  ftnlen trans_len);
1011 extern int cunm2r_(char *side, char *trans, integer *m, integer *n, integer *k,
1012  complex *a, integer *lda, complex *tau, complex *c__,
1013  integer *ldc, complex *work, integer *info, ftnlen side_len,
1014  ftnlen trans_len);
1015 extern int cunmbr_(char *vect, char *side, char *trans, integer *m, integer *n,
1016  integer *k, complex *a, integer *lda, complex *tau,
1017  complex *c__, integer *ldc, complex *work, integer *lwork,
1018  integer *info, ftnlen vect_len, ftnlen side_len,
1019  ftnlen trans_len);
1020 extern int cunmhr_(char *side, char *trans, integer *m, integer *n,
1021  integer *ilo, integer *ihi, complex *a, integer *lda,
1022  complex *tau, complex *c__, integer *ldc, complex *work,
1023  integer *lwork, integer *info, ftnlen side_len,
1024  ftnlen trans_len);
1025 extern int cunml2_(char *side, char *trans, integer *m, integer *n, integer *k,
1026  complex *a, integer *lda, complex *tau, complex *c__,
1027  integer *ldc, complex *work, integer *info, ftnlen side_len,
1028  ftnlen trans_len);
1029 extern int cunmlq_(char *side, char *trans, integer *m, integer *n, integer *k,
1030  complex *a, integer *lda, complex *tau, complex *c__,
1031  integer *ldc, complex *work, integer *lwork, integer *info,
1032  ftnlen side_len, ftnlen trans_len);
1033 extern int cunmql_(char *side, char *trans, integer *m, integer *n, integer *k,
1034  complex *a, integer *lda, complex *tau, complex *c__,
1035  integer *ldc, complex *work, integer *lwork, integer *info,
1036  ftnlen side_len, ftnlen trans_len);
1037 extern int cunmqr_(char *side, char *trans, integer *m, integer *n, integer *k,
1038  complex *a, integer *lda, complex *tau, complex *c__,
1039  integer *ldc, complex *work, integer *lwork, integer *info,
1040  ftnlen side_len, ftnlen trans_len);
1041 extern int cunmr2_(char *side, char *trans, integer *m, integer *n, integer *k,
1042  complex *a, integer *lda, complex *tau, complex *c__,
1043  integer *ldc, complex *work, integer *info, ftnlen side_len,
1044  ftnlen trans_len);
1045 extern int cunmr3_(char *side, char *trans, integer *m, integer *n, integer *k,
1046  integer *l, complex *a, integer *lda, complex *tau,
1047  complex *c__, integer *ldc, complex *work, integer *info,
1048  ftnlen side_len, ftnlen trans_len);
1049 extern int cunmrq_(char *side, char *trans, integer *m, integer *n, integer *k,
1050  complex *a, integer *lda, complex *tau, complex *c__,
1051  integer *ldc, complex *work, integer *lwork, integer *info,
1052  ftnlen side_len, ftnlen trans_len);
1053 extern int cunmrz_(char *side, char *trans, integer *m, integer *n, integer *k,
1054  integer *l, complex *a, integer *lda, complex *tau,
1055  complex *c__, integer *ldc, complex *work, integer *lwork,
1056  integer *info, ftnlen side_len, ftnlen trans_len);
1057 extern int cunmtr_(char *side, char *uplo, char *trans, integer *m, integer *n,
1058  complex *a, integer *lda, complex *tau, complex *c__,
1059  integer *ldc, complex *work, integer *lwork, integer *info,
1060  ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
1061 extern int cupgtr_(char *uplo, integer *n, complex *ap, complex *tau,
1062  complex *q, integer *ldq, complex *work, integer *info,
1063  ftnlen uplo_len);
1064 extern int cupmtr_(char *side, char *uplo, char *trans, integer *m, integer *n,
1065  complex *ap, complex *tau, complex *c__, integer *ldc,
1066  complex *work, integer *info, ftnlen side_len,
1067  ftnlen uplo_len, ftnlen trans_len);
1068 extern int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *d__,
1069  doublereal *e, doublereal *u, integer *ldu, doublereal *vt,
1070  integer *ldvt, doublereal *q, integer *iq, doublereal *work,
1071  integer *iwork, integer *info, ftnlen uplo_len,
1072  ftnlen compq_len);
1073 extern int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru,
1074  integer *ncc, doublereal *d__, doublereal *e, doublereal *vt,
1075  integer *ldvt, doublereal *u, integer *ldu, doublereal *c__,
1076  integer *ldc, doublereal *work, integer *info,
1077  ftnlen uplo_len);
1078 extern int ddisna_(char *job, integer *m, integer *n, doublereal *d__,
1079  doublereal *sep, integer *info, ftnlen job_len);
1080 extern int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
1081  integer *kl, integer *ku, doublereal *ab, integer *ldab,
1082  doublereal *d__, doublereal *e, doublereal *q, integer *ldq,
1083  doublereal *pt, integer *ldpt, doublereal *c__, integer *ldc,
1084  doublereal *work, integer *info, ftnlen vect_len);
1085 extern int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
1086  doublereal *ab, integer *ldab, integer *ipiv,
1087  doublereal *anorm, doublereal *rcond, doublereal *work,
1088  integer *iwork, integer *info, ftnlen norm_len);
1089 extern int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
1090  doublereal *ab, integer *ldab, doublereal *r__,
1091  doublereal *c__, doublereal *rowcnd, doublereal *colcnd,
1092  doublereal *amax, integer *info);
1093 extern int dgbrfs_(char *trans, integer *n, integer *kl, integer *ku,
1094  integer *nrhs, doublereal *ab, integer *ldab,
1095  doublereal *afb, integer *ldafb, integer *ipiv,
1096  doublereal *b, integer *ldb, doublereal *x, integer *ldx,
1097  doublereal *ferr, doublereal *berr, doublereal *work,
1098  integer *iwork, integer *info, ftnlen trans_len);
1099 extern int dgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs,
1100  doublereal *ab, integer *ldab, integer *ipiv, doublereal *b,
1101  integer *ldb, integer *info);
1102 extern int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
1103  integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
1104  doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
1105  doublereal *r__, doublereal *c__, doublereal *b,
1106  integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
1107  doublereal *ferr, doublereal *berr, doublereal *work,
1108  integer *iwork, integer *info, ftnlen fact_len,
1109  ftnlen trans_len, ftnlen equed_len);
1110 extern int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
1111  doublereal *ab, integer *ldab, integer *ipiv, integer *info);
1112 extern int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
1113  doublereal *ab, integer *ldab, integer *ipiv, integer *info);
1114 extern int dgbtrs_(char *trans, integer *n, integer *kl, integer *ku,
1115  integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv,
1116  doublereal *b, integer *ldb, integer *info,
1117  ftnlen trans_len);
1118 extern int dgebak_(char *job, char *side, integer *n, integer *ilo,
1119  integer *ihi, doublereal *scale, integer *m, doublereal *v,
1120  integer *ldv, integer *info, ftnlen job_len,
1121  ftnlen side_len);
1122 extern int dgebal_(char *job, integer *n, doublereal *a, integer *lda,
1123  integer *ilo, integer *ihi, doublereal *scale, integer *info,
1124  ftnlen job_len);
1125 extern int dgebd2_(integer *m, integer *n, doublereal *a, integer *lda,
1126  doublereal *d__, doublereal *e, doublereal *tauq,
1127  doublereal *taup, doublereal *work, integer *info);
1128 extern int dgebrd_(integer *m, integer *n, doublereal *a, integer *lda,
1129  doublereal *d__, doublereal *e, doublereal *tauq,
1130  doublereal *taup, doublereal *work, integer *lwork,
1131  integer *info);
1132 extern int dgecon_(char *norm, integer *n, doublereal *a, integer *lda,
1133  doublereal *anorm, doublereal *rcond, doublereal *work,
1134  integer *iwork, integer *info, ftnlen norm_len);
1135 extern int dgeequ_(integer *m, integer *n, doublereal *a, integer *lda,
1136  doublereal *r__, doublereal *c__, doublereal *rowcnd,
1137  doublereal *colcnd, doublereal *amax, integer *info);
1138 extern int dgees_(char *jobvs, char *sort, L_fp select, integer *n,
1139  doublereal *a, integer *lda, integer *sdim, doublereal *wr,
1140  doublereal *wi, doublereal *vs, integer *ldvs,
1141  doublereal *work, integer *lwork, logical *bwork,
1142  integer *info, ftnlen jobvs_len, ftnlen sort_len);
1143 extern int dgeesx_(char *jobvs, char *sort, L_fp select, char *sense,
1144  integer *n, doublereal *a, integer *lda, integer *sdim,
1145  doublereal *wr, doublereal *wi, doublereal *vs,
1146  integer *ldvs, doublereal *rconde, doublereal *rcondv,
1147  doublereal *work, integer *lwork, integer *iwork,
1148  integer *liwork, logical *bwork, integer *info,
1149  ftnlen jobvs_len, ftnlen sort_len, ftnlen sense_len);
1150 extern int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *a,
1151  integer *lda, doublereal *wr, doublereal *wi, doublereal *vl,
1152  integer *ldvl, doublereal *vr, integer *ldvr,
1153  doublereal *work, integer *lwork, integer *info,
1154  ftnlen jobvl_len, ftnlen jobvr_len);
1155 extern int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
1156  integer *n, doublereal *a, integer *lda, doublereal *wr,
1157  doublereal *wi, doublereal *vl, integer *ldvl,
1158  doublereal *vr, integer *ldvr, integer *ilo, integer *ihi,
1159  doublereal *scale, doublereal *abnrm, doublereal *rconde,
1160  doublereal *rcondv, doublereal *work, integer *lwork,
1161  integer *iwork, integer *info, ftnlen balanc_len,
1162  ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
1163 extern int dgegs_(char *jobvsl, char *jobvsr, integer *n, doublereal *a,
1164  integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
1165  doublereal *alphai, doublereal *beta, doublereal *vsl,
1166  integer *ldvsl, doublereal *vsr, integer *ldvsr,
1167  doublereal *work, integer *lwork, integer *info,
1168  ftnlen jobvsl_len, ftnlen jobvsr_len);
1169 extern int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *a,
1170  integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
1171  doublereal *alphai, doublereal *beta, doublereal *vl,
1172  integer *ldvl, doublereal *vr, integer *ldvr,
1173  doublereal *work, integer *lwork, integer *info,
1174  ftnlen jobvl_len, ftnlen jobvr_len);
1175 extern int dgehd2_(integer *n, integer *ilo, integer *ihi, doublereal *a,
1176  integer *lda, doublereal *tau, doublereal *work,
1177  integer *info);
1178 extern int dgehrd_(integer *n, integer *ilo, integer *ihi, doublereal *a,
1179  integer *lda, doublereal *tau, doublereal *work,
1180  integer *lwork, integer *info);
1181 extern int dgelq2_(integer *m, integer *n, doublereal *a, integer *lda,
1182  doublereal *tau, doublereal *work, integer *info);
1183 extern int dgelqf_(integer *m, integer *n, doublereal *a, integer *lda,
1184  doublereal *tau, doublereal *work, integer *lwork,
1185  integer *info);
1186 extern int dgels_(char *trans, integer *m, integer *n, integer *nrhs,
1187  doublereal *a, integer *lda, doublereal *b, integer *ldb,
1188  doublereal *work, integer *lwork, integer *info,
1189  ftnlen trans_len);
1190 extern int dgelsd_(integer *m, integer *n, integer *nrhs, doublereal *a,
1191  integer *lda, doublereal *b, integer *ldb, doublereal *s,
1192  doublereal *rcond, integer *rank, doublereal *work,
1193  integer *lwork, integer *iwork, integer *info);
1194 extern int dgelss_(integer *m, integer *n, integer *nrhs, doublereal *a,
1195  integer *lda, doublereal *b, integer *ldb, doublereal *s,
1196  doublereal *rcond, integer *rank, doublereal *work,
1197  integer *lwork, integer *info);
1198 extern int dgelsx_(integer *m, integer *n, integer *nrhs, doublereal *a,
1199  integer *lda, doublereal *b, integer *ldb, integer *jpvt,
1200  doublereal *rcond, integer *rank, doublereal *work,
1201  integer *info);
1202 extern int dgelsy_(integer *m, integer *n, integer *nrhs, doublereal *a,
1203  integer *lda, doublereal *b, integer *ldb, integer *jpvt,
1204  doublereal *rcond, integer *rank, doublereal *work,
1205  integer *lwork, integer *info);
1206 extern int dgeql2_(integer *m, integer *n, doublereal *a, integer *lda,
1207  doublereal *tau, doublereal *work, integer *info);
1208 extern int dgeqlf_(integer *m, integer *n, doublereal *a, integer *lda,
1209  doublereal *tau, doublereal *work, integer *lwork,
1210  integer *info);
1211 extern int dgeqp3_(integer *m, integer *n, doublereal *a, integer *lda,
1212  integer *jpvt, doublereal *tau, doublereal *work,
1213  integer *lwork, integer *info);
1214 extern int dgeqpf_(integer *m, integer *n, doublereal *a, integer *lda,
1215  integer *jpvt, doublereal *tau, doublereal *work,
1216  integer *info);
1217 extern int dgeqr2_(integer *m, integer *n, doublereal *a, integer *lda,
1218  doublereal *tau, doublereal *work, integer *info);
1219 extern int dgeqrf_(integer *m, integer *n, doublereal *a, integer *lda,
1220  doublereal *tau, doublereal *work, integer *lwork,
1221  integer *info);
1222 extern int dgerfs_(char *trans, integer *n, integer *nrhs, doublereal *a,
1223  integer *lda, doublereal *af, integer *ldaf, integer *ipiv,
1224  doublereal *b, integer *ldb, doublereal *x, integer *ldx,
1225  doublereal *ferr, doublereal *berr, doublereal *work,
1226  integer *iwork, integer *info, ftnlen trans_len);
1227 extern int dgerq2_(integer *m, integer *n, doublereal *a, integer *lda,
1228  doublereal *tau, doublereal *work, integer *info);
1229 extern int dgerqf_(integer *m, integer *n, doublereal *a, integer *lda,
1230  doublereal *tau, doublereal *work, integer *lwork,
1231  integer *info);
1232 extern int dgesc2_(integer *n, doublereal *a, integer *lda, doublereal *rhs,
1233  integer *ipiv, integer *jpiv, doublereal *scale);
1234 extern int dgesdd_(char *jobz, integer *m, integer *n, doublereal *a,
1235  integer *lda, doublereal *s, doublereal *u, integer *ldu,
1236  doublereal *vt, integer *ldvt, doublereal *work,
1237  integer *lwork, integer *iwork, integer *info,
1238  ftnlen jobz_len);
1239 extern int dgesv_(integer *n, integer *nrhs, doublereal *a, integer *lda,
1240  integer *ipiv, doublereal *b, integer *ldb, integer *info);
1241 extern int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
1242  doublereal *a, integer *lda, doublereal *s, doublereal *u,
1243  integer *ldu, doublereal *vt, integer *ldvt,
1244  doublereal *work, integer *lwork, integer *info,
1245  ftnlen jobu_len, ftnlen jobvt_len);
1246 extern int dgesvx_(char *fact, char *trans, integer *n, integer *nrhs,
1247  doublereal *a, integer *lda, doublereal *af, integer *ldaf,
1248  integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
1249  doublereal *b, integer *ldb, doublereal *x, integer *ldx,
1250  doublereal *rcond, doublereal *ferr, doublereal *berr,
1251  doublereal *work, integer *iwork, integer *info,
1252  ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
1253 extern int dgetc2_(integer *n, doublereal *a, integer *lda, integer *ipiv,
1254  integer *jpiv, integer *info);
1255 extern int dgetf2_(integer *m, integer *n, doublereal *a, integer *lda,
1256  integer *ipiv, integer *info);
1257 extern int dgetrf_(integer *m, integer *n, doublereal *a, integer *lda,
1258  integer *ipiv, integer *info);
1259 extern int dgetri_(integer *n, doublereal *a, integer *lda, integer *ipiv,
1260  doublereal *work, integer *lwork, integer *info);
1261 extern int dgetrs_(char *trans, integer *n, integer *nrhs, doublereal *a,
1262  integer *lda, integer *ipiv, doublereal *b, integer *ldb,
1263  integer *info, ftnlen trans_len);
1264 extern int dggbak_(char *job, char *side, integer *n, integer *ilo,
1265  integer *ihi, doublereal *lscale, doublereal *rscale,
1266  integer *m, doublereal *v, integer *ldv, integer *info,
1267  ftnlen job_len, ftnlen side_len);
1268 extern int dggbal_(char *job, integer *n, doublereal *a, integer *lda,
1269  doublereal *b, integer *ldb, integer *ilo, integer *ihi,
1270  doublereal *lscale, doublereal *rscale, doublereal *work,
1271  integer *info, ftnlen job_len);
1272 extern int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg,
1273  integer *n, doublereal *a, integer *lda, doublereal *b,
1274  integer *ldb, integer *sdim, doublereal *alphar,
1275  doublereal *alphai, doublereal *beta, doublereal *vsl,
1276  integer *ldvsl, doublereal *vsr, integer *ldvsr,
1277  doublereal *work, integer *lwork, logical *bwork,
1278  integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len,
1279  ftnlen sort_len);
1280 extern int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg,
1281  char *sense, integer *n, doublereal *a, integer *lda,
1282  doublereal *b, integer *ldb, integer *sdim,
1283  doublereal *alphar, doublereal *alphai, doublereal *beta,
1284  doublereal *vsl, integer *ldvsl, doublereal *vsr,
1285  integer *ldvsr, doublereal *rconde, doublereal *rcondv,
1286  doublereal *work, integer *lwork, integer *iwork,
1287  integer *liwork, logical *bwork, integer *info,
1288  ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len,
1289  ftnlen sense_len);
1290 extern int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *a,
1291  integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
1292  doublereal *alphai, doublereal *beta, doublereal *vl,
1293  integer *ldvl, doublereal *vr, integer *ldvr,
1294  doublereal *work, integer *lwork, integer *info,
1295  ftnlen jobvl_len, ftnlen jobvr_len);
1296 extern int dggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
1297  integer *n, doublereal *a, integer *lda, doublereal *b,
1298  integer *ldb, doublereal *alphar, doublereal *alphai,
1299  doublereal *beta, doublereal *vl, integer *ldvl,
1300  doublereal *vr, integer *ldvr, integer *ilo, integer *ihi,
1301  doublereal *lscale, doublereal *rscale, doublereal *abnrm,
1302  doublereal *bbnrm, doublereal *rconde, doublereal *rcondv,
1303  doublereal *work, integer *lwork, integer *iwork,
1304  logical *bwork, integer *info, ftnlen balanc_len,
1305  ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
1306 extern int dggglm_(integer *n, integer *m, integer *p, doublereal *a,
1307  integer *lda, doublereal *b, integer *ldb, doublereal *d__,
1308  doublereal *x, doublereal *y, doublereal *work,
1309  integer *lwork, integer *info);
1310 extern int dgghrd_(char *compq, char *compz, integer *n, integer *ilo,
1311  integer *ihi, doublereal *a, integer *lda, doublereal *b,
1312  integer *ldb, doublereal *q, integer *ldq, doublereal *z__,
1313  integer *ldz, integer *info, ftnlen compq_len,
1314  ftnlen compz_len);
1315 extern int dgglse_(integer *m, integer *n, integer *p, doublereal *a,
1316  integer *lda, doublereal *b, integer *ldb, doublereal *c__,
1317  doublereal *d__, doublereal *x, doublereal *work,
1318  integer *lwork, integer *info);
1319 extern int dggqrf_(integer *n, integer *m, integer *p, doublereal *a,
1320  integer *lda, doublereal *taua, doublereal *b, integer *ldb,
1321  doublereal *taub, doublereal *work, integer *lwork,
1322  integer *info);
1323 extern int dggrqf_(integer *m, integer *p, integer *n, doublereal *a,
1324  integer *lda, doublereal *taua, doublereal *b, integer *ldb,
1325  doublereal *taub, doublereal *work, integer *lwork,
1326  integer *info);
1327 extern int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n,
1328  integer *p, integer *k, integer *l, doublereal *a,
1329  integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
1330  doublereal *beta, doublereal *u, integer *ldu, doublereal *v,
1331  integer *ldv, doublereal *q, integer *ldq, doublereal *work,
1332  integer *iwork, integer *info, ftnlen jobu_len,
1333  ftnlen jobv_len, ftnlen jobq_len);
1334 extern int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p,
1335  integer *n, doublereal *a, integer *lda, doublereal *b,
1336  integer *ldb, doublereal *tola, doublereal *tolb, integer *k,
1337  integer *l, doublereal *u, integer *ldu, doublereal *v,
1338  integer *ldv, doublereal *q, integer *ldq, integer *iwork,
1339  doublereal *tau, doublereal *work, integer *info,
1340  ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
1341 extern int dgtcon_(char *norm, integer *n, doublereal *dl, doublereal *d__,
1342  doublereal *du, doublereal *du2, integer *ipiv,
1343  doublereal *anorm, doublereal *rcond, doublereal *work,
1344  integer *iwork, integer *info, ftnlen norm_len);
1345 extern int dgtrfs_(char *trans, integer *n, integer *nrhs, doublereal *dl,
1346  doublereal *d__, doublereal *du, doublereal *dlf,
1347  doublereal *df, doublereal *duf, doublereal *du2,
1348  integer *ipiv, doublereal *b, integer *ldb, doublereal *x,
1349  integer *ldx, doublereal *ferr, doublereal *berr,
1350  doublereal *work, integer *iwork, integer *info,
1351  ftnlen trans_len);
1352 extern int dgtsv_(integer *n, integer *nrhs, doublereal *dl, doublereal *d__,
1353  doublereal *du, doublereal *b, integer *ldb, integer *info);
1354 extern int dgtsvx_(char *fact, char *trans, integer *n, integer *nrhs,
1355  doublereal *dl, doublereal *d__, doublereal *du,
1356  doublereal *dlf, doublereal *df, doublereal *duf,
1357  doublereal *du2, integer *ipiv, doublereal *b, integer *ldb,
1358  doublereal *x, integer *ldx, doublereal *rcond,
1359  doublereal *ferr, doublereal *berr, doublereal *work,
1360  integer *iwork, integer *info, ftnlen fact_len,
1361  ftnlen trans_len);
1362 extern int dgttrf_(integer *n, doublereal *dl, doublereal *d__, doublereal *du,
1363  doublereal *du2, integer *ipiv, integer *info);
1364 extern int dgttrs_(char *trans, integer *n, integer *nrhs, doublereal *dl,
1365  doublereal *d__, doublereal *du, doublereal *du2,
1366  integer *ipiv, doublereal *b, integer *ldb, integer *info,
1367  ftnlen trans_len);
1368 extern int dgtts2_(integer *itrans, integer *n, integer *nrhs, doublereal *dl,
1369  doublereal *d__, doublereal *du, doublereal *du2,
1370  integer *ipiv, doublereal *b, integer *ldb);
1371 extern int dhgeqz_(char *job, char *compq, char *compz, integer *n,
1372  integer *ilo, integer *ihi, doublereal *a, integer *lda,
1373  doublereal *b, integer *ldb, doublereal *alphar,
1374  doublereal *alphai, doublereal *beta, doublereal *q,
1375  integer *ldq, doublereal *z__, integer *ldz,
1376  doublereal *work, integer *lwork, integer *info,
1377  ftnlen job_len, ftnlen compq_len, ftnlen compz_len);
1378 extern int dhsein_(char *side, char *eigsrc, char *initv, logical *select,
1379  integer *n, doublereal *h__, integer *ldh, doublereal *wr,
1380  doublereal *wi, doublereal *vl, integer *ldvl,
1381  doublereal *vr, integer *ldvr, integer *mm, integer *m,
1382  doublereal *work, integer *ifaill, integer *ifailr,
1383  integer *info, ftnlen side_len, ftnlen eigsrc_len,
1384  ftnlen initv_len);
1385 extern int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
1386  integer *ihi, doublereal *h__, integer *ldh, doublereal *wr,
1387  doublereal *wi, doublereal *z__, integer *ldz,
1388  doublereal *work, integer *lwork, integer *info,
1389  ftnlen job_len, ftnlen compz_len);
1390 extern int dlabad_(doublereal *small, doublereal *large);
1391 extern int dlabrd_(integer *m, integer *n, integer *nb, doublereal *a,
1392  integer *lda, doublereal *d__, doublereal *e,
1393  doublereal *tauq, doublereal *taup, doublereal *x,
1394  integer *ldx, doublereal *y, integer *ldy);
1395 extern int dlacon_(integer *n, doublereal *v, doublereal *x, integer *isgn,
1396  doublereal *est, integer *kase);
1397 extern int dlacpy_(char *uplo, integer *m, integer *n, doublereal *a,
1398  integer *lda, doublereal *b, integer *ldb, ftnlen uplo_len);
1399 extern int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
1400  doublereal *d__, doublereal *p, doublereal *q);
1401 extern int dlae2_(doublereal *a, doublereal *b, doublereal *c__,
1402  doublereal *rt1, doublereal *rt2);
1403 extern int dlaebz_(integer *ijob, integer *nitmax, integer *n, integer *mmax,
1404  integer *minp, integer *nbmin, doublereal *abstol,
1405  doublereal *reltol, doublereal *pivmin, doublereal *d__,
1406  doublereal *e, doublereal *e2, integer *nval, doublereal *ab,
1407  doublereal *c__, integer *mout, integer *nab,
1408  doublereal *work, integer *iwork, integer *info);
1409 extern int dlaed0_(integer *icompq, integer *qsiz, integer *n, doublereal *d__,
1410  doublereal *e, doublereal *q, integer *ldq,
1411  doublereal *qstore, integer *ldqs, doublereal *work,
1412  integer *iwork, integer *info);
1413 extern int dlaed1_(integer *n, doublereal *d__, doublereal *q, integer *ldq,
1414  integer *indxq, doublereal *rho, integer *cutpnt,
1415  doublereal *work, integer *iwork, integer *info);
1416 extern int dlaed2_(integer *k, integer *n, integer *n1, doublereal *d__,
1417  doublereal *q, integer *ldq, integer *indxq, doublereal *rho,
1418  doublereal *z__, doublereal *dlamda, doublereal *w,
1419  doublereal *q2, integer *indx, integer *indxc,
1420  integer *indxp, integer *coltyp, integer *info);
1421 extern int dlaed3_(integer *k, integer *n, integer *n1, doublereal *d__,
1422  doublereal *q, integer *ldq, doublereal *rho,
1423  doublereal *dlamda, doublereal *q2, integer *indx,
1424  integer *ctot, doublereal *w, doublereal *s, integer *info);
1425 extern int dlaed4_(integer *n, integer *i__, doublereal *d__, doublereal *z__,
1426  doublereal *delta, doublereal *rho, doublereal *dlam,
1427  integer *info);
1428 extern int dlaed5_(integer *i__, doublereal *d__, doublereal *z__,
1429  doublereal *delta, doublereal *rho, doublereal *dlam);
1430 extern int dlaed6_(integer *kniter, logical *orgati, doublereal *rho,
1431  doublereal *d__, doublereal *z__, doublereal *finit,
1432  doublereal *tau, integer *info);
1433 extern int dlaed7_(integer *icompq, integer *n, integer *qsiz, integer *tlvls,
1434  integer *curlvl, integer *curpbm, doublereal *d__,
1435  doublereal *q, integer *ldq, integer *indxq, doublereal *rho,
1436  integer *cutpnt, doublereal *qstore, integer *qptr,
1437  integer *prmptr, integer *perm, integer *givptr,
1438  integer *givcol, doublereal *givnum, doublereal *work,
1439  integer *iwork, integer *info);
1440 extern int dlaed8_(integer *icompq, integer *k, integer *n, integer *qsiz,
1441  doublereal *d__, doublereal *q, integer *ldq, integer *indxq,
1442  doublereal *rho, integer *cutpnt, doublereal *z__,
1443  doublereal *dlamda, doublereal *q2, integer *ldq2,
1444  doublereal *w, integer *perm, integer *givptr,
1445  integer *givcol, doublereal *givnum, integer *indxp,
1446  integer *indx, integer *info);
1447 extern int dlaed9_(integer *k, integer *kstart, integer *kstop, integer *n,
1448  doublereal *d__, doublereal *q, integer *ldq,
1449  doublereal *rho, doublereal *dlamda, doublereal *w,
1450  doublereal *s, integer *lds, integer *info);
1451 extern int dlaeda_(integer *n, integer *tlvls, integer *curlvl, integer *curpbm,
1452  integer *prmptr, integer *perm, integer *givptr,
1453  integer *givcol, doublereal *givnum, doublereal *q,
1454  integer *qptr, doublereal *z__, doublereal *ztemp,
1455  integer *info);
1456 extern int dlaein_(logical *rightv, logical *noinit, integer *n,
1457  doublereal *h__, integer *ldh, doublereal *wr,
1458  doublereal *wi, doublereal *vr, doublereal *vi,
1459  doublereal *b, integer *ldb, doublereal *work,
1460  doublereal *eps3, doublereal *smlnum, doublereal *bignum,
1461  integer *info);
1462 extern int dlaev2_(doublereal *a, doublereal *b, doublereal *c__,
1463  doublereal *rt1, doublereal *rt2, doublereal *cs1,
1464  doublereal *sn1);
1465 extern int dlaexc_(logical *wantq, integer *n, doublereal *t, integer *ldt,
1466  doublereal *q, integer *ldq, integer *j1, integer *n1,
1467  integer *n2, doublereal *work, integer *info);
1468 extern int dlag2_(doublereal *a, integer *lda, doublereal *b, integer *ldb,
1469  doublereal *safmin, doublereal *scale1, doublereal *scale2,
1470  doublereal *wr1, doublereal *wr2, doublereal *wi);
1471 extern int dlags2_(logical *upper, doublereal *a1, doublereal *a2,
1472  doublereal *a3, doublereal *b1, doublereal *b2,
1473  doublereal *b3, doublereal *csu, doublereal *snu,
1474  doublereal *csv, doublereal *snv, doublereal *csq,
1475  doublereal *snq);
1476 extern int dlagtf_(integer *n, doublereal *a, doublereal *lambda, doublereal *b,
1477  doublereal *c__, doublereal *tol, doublereal *d__,
1478  integer *in, integer *info);
1479 extern int dlagtm_(char *trans, integer *n, integer *nrhs, doublereal *alpha,
1480  doublereal *dl, doublereal *d__, doublereal *du,
1481  doublereal *x, integer *ldx, doublereal *beta, doublereal *b,
1482  integer *ldb, ftnlen trans_len);
1483 extern int dlagts_(integer *job, integer *n, doublereal *a, doublereal *b,
1484  doublereal *c__, doublereal *d__, integer *in, doublereal *y,
1485  doublereal *tol, integer *info);
1486 extern int dlagv2_(doublereal *a, integer *lda, doublereal *b, integer *ldb,
1487  doublereal *alphar, doublereal *alphai, doublereal *beta,
1488  doublereal *csl, doublereal *snl, doublereal *csr,
1489  doublereal *snr);
1490 extern int dlahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo,
1491  integer *ihi, doublereal *h__, integer *ldh, doublereal *wr,
1492  doublereal *wi, integer *iloz, integer *ihiz,
1493  doublereal *z__, integer *ldz, integer *info);
1494 extern int dlahrd_(integer *n, integer *k, integer *nb, doublereal *a,
1495  integer *lda, doublereal *tau, doublereal *t, integer *ldt,
1496  doublereal *y, integer *ldy);
1497 extern int dlaic1_(integer *job, integer *j, doublereal *x, doublereal *sest,
1498  doublereal *w, doublereal *gamma, doublereal *sestpr,
1499  doublereal *s, doublereal *c__);
1500 extern int dlaln2_(logical *ltrans, integer *na, integer *nw, doublereal *smin,
1501  doublereal *ca, doublereal *a, integer *lda, doublereal *d1,
1502  doublereal *d2, doublereal *b, integer *ldb, doublereal *wr,
1503  doublereal *wi, doublereal *x, integer *ldx,
1504  doublereal *scale, doublereal *xnorm, integer *info);
1505 extern int dlals0_(integer *icompq, integer *nl, integer *nr, integer *sqre,
1506  integer *nrhs, doublereal *b, integer *ldb, doublereal *bx,
1507  integer *ldbx, integer *perm, integer *givptr,
1508  integer *givcol, integer *ldgcol, doublereal *givnum,
1509  integer *ldgnum, doublereal *poles, doublereal *difl,
1510  doublereal *difr, doublereal *z__, integer *k,
1511  doublereal *c__, doublereal *s, doublereal *work,
1512  integer *info);
1513 extern int dlalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs,
1514  doublereal *b, integer *ldb, doublereal *bx, integer *ldbx,
1515  doublereal *u, integer *ldu, doublereal *vt, integer *k,
1516  doublereal *difl, doublereal *difr, doublereal *z__,
1517  doublereal *poles, integer *givptr, integer *givcol,
1518  integer *ldgcol, integer *perm, doublereal *givnum,
1519  doublereal *c__, doublereal *s, doublereal *work,
1520  integer *iwork, integer *info);
1521 extern int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs,
1522  doublereal *d__, doublereal *e, doublereal *b, integer *ldb,
1523  doublereal *rcond, integer *rank, doublereal *work,
1524  integer *iwork, integer *info, ftnlen uplo_len);
1525 extern doublereal dlamch_(char *cmach, ftnlen cmach_len);
1526 extern int dlamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1);
1527 extern int dlamc2_(integer *beta, integer *t, logical *rnd, doublereal *eps,
1528  integer *emin, doublereal *rmin, integer *emax,
1529  doublereal *rmax);
1530 extern doublereal dlamc3_(doublereal *a, doublereal *b);
1531 extern int dlamc4_(integer *emin, doublereal *start, integer *base);
1532 extern int dlamc5_(integer *beta, integer *p, integer *emin, logical *ieee,
1533  integer *emax, doublereal *rmax);
1534 extern int dlamrg_(integer *n1, integer *n2, doublereal *a, integer *dtrd1,
1535  integer *dtrd2, integer *index);
1536 extern doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku,
1537  doublereal *ab, integer *ldab, doublereal *work,
1538  ftnlen norm_len);
1539 extern doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a,
1540  integer *lda, doublereal *work, ftnlen norm_len);
1541 extern doublereal dlangt_(char *norm, integer *n, doublereal *dl,
1542  doublereal *d__, doublereal *du, ftnlen norm_len);
1543 extern doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda,
1544  doublereal *work, ftnlen norm_len);
1545 extern doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k,
1546  doublereal *ab, integer *ldab, doublereal *work,
1547  ftnlen norm_len, ftnlen uplo_len);
1548 extern doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap,
1549  doublereal *work, ftnlen norm_len, ftnlen uplo_len);
1550 extern doublereal dlanst_(char *norm, integer *n, doublereal *d__,
1551  doublereal *e, ftnlen norm_len);
1552 extern doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a,
1553  integer *lda, doublereal *work, ftnlen norm_len,
1554  ftnlen uplo_len);
1555 extern doublereal dlantb_(char *norm, char *uplo, char *diag, integer *n,
1556  integer *k, doublereal *ab, integer *ldab,
1557  doublereal *work, ftnlen norm_len, ftnlen uplo_len,
1558  ftnlen diag_len);
1559 extern doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n,
1560  doublereal *ap, doublereal *work, ftnlen norm_len,
1561  ftnlen uplo_len, ftnlen diag_len);
1562 extern doublereal dlantr_(char *norm, char *uplo, char *diag, integer *m,
1563  integer *n, doublereal *a, integer *lda,
1564  doublereal *work, ftnlen norm_len, ftnlen uplo_len,
1565  ftnlen diag_len);
1566 extern int dlanv2_(doublereal *a, doublereal *b, doublereal *c__,
1567  doublereal *d__, doublereal *rt1r, doublereal *rt1i,
1568  doublereal *rt2r, doublereal *rt2i, doublereal *cs,
1569  doublereal *sn);
1570 extern int dlapll_(integer *n, doublereal *x, integer *incx, doublereal *y,
1571  integer *incy, doublereal *ssmin);
1572 extern int dlapmt_(logical *forwrd, integer *m, integer *n, doublereal *x,
1573  integer *ldx, integer *k);
1574 extern doublereal dlapy2_(doublereal *x, doublereal *y);
1575 extern doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
1576 extern int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
1577  doublereal *ab, integer *ldab, doublereal *r__,
1578  doublereal *c__, doublereal *rowcnd, doublereal *colcnd,
1579  doublereal *amax, char *equed, ftnlen equed_len);
1580 extern int dlaqge_(integer *m, integer *n, doublereal *a, integer *lda,
1581  doublereal *r__, doublereal *c__, doublereal *rowcnd,
1582  doublereal *colcnd, doublereal *amax, char *equed,
1583  ftnlen equed_len);
1584 extern int dlaqp2_(integer *m, integer *n, integer *offset, doublereal *a,
1585  integer *lda, integer *jpvt, doublereal *tau,
1586  doublereal *vn1, doublereal *vn2, doublereal *work);
1587 extern int dlaqps_(integer *m, integer *n, integer *offset, integer *nb,
1588  integer *kb, doublereal *a, integer *lda, integer *jpvt,
1589  doublereal *tau, doublereal *vn1, doublereal *vn2,
1590  doublereal *auxv, doublereal *f, integer *ldf);
1591 extern int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *ab,
1592  integer *ldab, doublereal *s, doublereal *scond,
1593  doublereal *amax, char *equed, ftnlen uplo_len,
1594  ftnlen equed_len);
1595 extern int dlaqsp_(char *uplo, integer *n, doublereal *ap, doublereal *s,
1596  doublereal *scond, doublereal *amax, char *equed,
1597  ftnlen uplo_len, ftnlen equed_len);
1598 extern int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *lda,
1599  doublereal *s, doublereal *scond, doublereal *amax,
1600  char *equed, ftnlen uplo_len, ftnlen equed_len);
1601 extern int dlaqtr_(logical *ltran, logical *lreal, integer *n, doublereal *t,
1602  integer *ldt, doublereal *b, doublereal *w,
1603  doublereal *scale, doublereal *x, doublereal *work,
1604  integer *info);
1605 extern int dlar1v_(integer *n, integer *b1, integer *bn, doublereal *sigma,
1606  doublereal *d__, doublereal *l, doublereal *ld,
1607  doublereal *lld, doublereal *gersch, doublereal *z__,
1608  doublereal *ztz, doublereal *mingma, integer *r__,
1609  integer *isuppz, doublereal *work);
1610 extern int dlar2v_(integer *n, doublereal *x, doublereal *y, doublereal *z__,
1611  integer *incx, doublereal *c__, doublereal *s,
1612  integer *incc);
1613 extern int dlarf_(char *side, integer *m, integer *n, doublereal *v,
1614  integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
1615  doublereal *work, ftnlen side_len);
1616 extern int dlarfb_(char *side, char *trans, char *direct, char *storev,
1617  integer *m, integer *n, integer *k, doublereal *v,
1618  integer *ldv, doublereal *t, integer *ldt, doublereal *c__,
1619  integer *ldc, doublereal *work, integer *ldwork,
1620  ftnlen side_len, ftnlen trans_len, ftnlen direct_len,
1621  ftnlen storev_len);
1622 extern int dlarfg_(integer *n, doublereal *alpha, doublereal *x, integer *incx,
1623  doublereal *tau);
1624 extern int dlarft_(char *direct, char *storev, integer *n, integer *k,
1625  doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
1626  integer *ldt, ftnlen direct_len, ftnlen storev_len);
1627 extern int dlarfx_(char *side, integer *m, integer *n, doublereal *v,
1628  doublereal *tau, doublereal *c__, integer *ldc,
1629  doublereal *work, ftnlen side_len);
1630 extern int dlargv_(integer *n, doublereal *x, integer *incx, doublereal *y,
1631  integer *incy, doublereal *c__, integer *incc);
1632 extern int dlarnv_(integer *idist, integer *iseed, integer *n, doublereal *x);
1633 extern int dlarrb_(integer *n, doublereal *d__, doublereal *l, doublereal *ld,
1634  doublereal *lld, integer *ifirst, integer *ilast,
1635  doublereal *sigma, doublereal *reltol, doublereal *w,
1636  doublereal *wgap, doublereal *werr, doublereal *work,
1637  integer *iwork, integer *info);
1638 extern int dlarre_(integer *n, doublereal *d__, doublereal *e, doublereal *tol,
1639  integer *nsplit, integer *isplit, integer *m, doublereal *w,
1640  doublereal *woff, doublereal *gersch, doublereal *work,
1641  integer *info);
1642 extern int dlarrf_(integer *n, doublereal *d__, doublereal *l, doublereal *ld,
1643  doublereal *lld, integer *ifirst, integer *ilast,
1644  doublereal *w, doublereal *dplus, doublereal *lplus,
1645  doublereal *work, integer *iwork, integer *info);
1646 extern int dlarrv_(integer *n, doublereal *d__, doublereal *l, integer *isplit,
1647  integer *m, doublereal *w, integer *iblock,
1648  doublereal *gersch, doublereal *tol, doublereal *z__,
1649  integer *ldz, integer *isuppz, doublereal *work,
1650  integer *iwork, integer *info);
1651 extern int dlartg_(doublereal *f, doublereal *g, doublereal *cs, doublereal *sn,
1652  doublereal *r__);
1653 extern int dlartv_(integer *n, doublereal *x, integer *incx, doublereal *y,
1654  integer *incy, doublereal *c__, doublereal *s,
1655  integer *incc);
1656 extern int dlaruv_(integer *iseed, integer *n, doublereal *x);
1657 extern int dlarz_(char *side, integer *m, integer *n, integer *l, doublereal *v,
1658  integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
1659  doublereal *work, ftnlen side_len);
1660 extern int dlarzb_(char *side, char *trans, char *direct, char *storev,
1661  integer *m, integer *n, integer *k, integer *l,
1662  doublereal *v, integer *ldv, doublereal *t, integer *ldt,
1663  doublereal *c__, integer *ldc, doublereal *work,
1664  integer *ldwork, ftnlen side_len, ftnlen trans_len,
1665  ftnlen direct_len, ftnlen storev_len);
1666 extern int dlarzt_(char *direct, char *storev, integer *n, integer *k,
1667  doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
1668  integer *ldt, ftnlen direct_len, ftnlen storev_len);
1669 extern int dlas2_(doublereal *f, doublereal *g, doublereal *h__,
1670  doublereal *ssmin, doublereal *ssmax);
1671 extern int dlascl_(char *type__, integer *kl, integer *ku, doublereal *cfrom,
1672  doublereal *cto, integer *m, integer *n, doublereal *a,
1673  integer *lda, integer *info, ftnlen type_len);
1674 extern int dlasd0_(integer *n, integer *sqre, doublereal *d__, doublereal *e,
1675  doublereal *u, integer *ldu, doublereal *vt, integer *ldvt,
1676  integer *smlsiz, integer *iwork, doublereal *work,
1677  integer *info);
1678 extern int dlasd1_(integer *nl, integer *nr, integer *sqre, doublereal *d__,
1679  doublereal *alpha, doublereal *beta, doublereal *u,
1680  integer *ldu, doublereal *vt, integer *ldvt, integer *idxq,
1681  integer *iwork, doublereal *work, integer *info);
1682 extern int dlasd2_(integer *nl, integer *nr, integer *sqre, integer *k,
1683  doublereal *d__, doublereal *z__, doublereal *alpha,
1684  doublereal *beta, doublereal *u, integer *ldu,
1685  doublereal *vt, integer *ldvt, doublereal *dsigma,
1686  doublereal *u2, integer *ldu2, doublereal *vt2,
1687  integer *ldvt2, integer *idxp, integer *idx, integer *idxc,
1688  integer *idxq, integer *coltyp, integer *info);
1689 extern int dlasd3_(integer *nl, integer *nr, integer *sqre, integer *k,
1690  doublereal *d__, doublereal *q, integer *ldq,
1691  doublereal *dsigma, doublereal *u, integer *ldu,
1692  doublereal *u2, integer *ldu2, doublereal *vt, integer *ldvt,
1693  doublereal *vt2, integer *ldvt2, integer *idxc,
1694  integer *ctot, doublereal *z__, integer *info);
1695 extern int dlasd4_(integer *n, integer *i__, doublereal *d__, doublereal *z__,
1696  doublereal *delta, doublereal *rho, doublereal *sigma,
1697  doublereal *work, integer *info);
1698 extern int dlasd5_(integer *i__, doublereal *d__, doublereal *z__,
1699  doublereal *delta, doublereal *rho, doublereal *dsigma,
1700  doublereal *work);
1701 extern int dlasd6_(integer *icompq, integer *nl, integer *nr, integer *sqre,
1702  doublereal *d__, doublereal *vf, doublereal *vl,
1703  doublereal *alpha, doublereal *beta, integer *idxq,
1704  integer *perm, integer *givptr, integer *givcol,
1705  integer *ldgcol, doublereal *givnum, integer *ldgnum,
1706  doublereal *poles, doublereal *difl, doublereal *difr,
1707  doublereal *z__, integer *k, doublereal *c__, doublereal *s,
1708  doublereal *work, integer *iwork, integer *info);
1709 extern int dlasd7_(integer *icompq, integer *nl, integer *nr, integer *sqre,
1710  integer *k, doublereal *d__, doublereal *z__, doublereal *zw,
1711  doublereal *vf, doublereal *vfw, doublereal *vl,
1712  doublereal *vlw, doublereal *alpha, doublereal *beta,
1713  doublereal *dsigma, integer *idx, integer *idxp,
1714  integer *idxq, integer *perm, integer *givptr,
1715  integer *givcol, integer *ldgcol, doublereal *givnum,
1716  integer *ldgnum, doublereal *c__, doublereal *s,
1717  integer *info);
1718 extern int dlasd8_(integer *icompq, integer *k, doublereal *d__,
1719  doublereal *z__, doublereal *vf, doublereal *vl,
1720  doublereal *difl, doublereal *difr, integer *lddifr,
1721  doublereal *dsigma, doublereal *work, integer *info);
1722 extern int dlasd9_(integer *icompq, integer *ldu, integer *k, doublereal *d__,
1723  doublereal *z__, doublereal *vf, doublereal *vl,
1724  doublereal *difl, doublereal *difr, doublereal *dsigma,
1725  doublereal *work, integer *info);
1726 extern int dlasda_(integer *icompq, integer *smlsiz, integer *n, integer *sqre,
1727  doublereal *d__, doublereal *e, doublereal *u, integer *ldu,
1728  doublereal *vt, integer *k, doublereal *difl,
1729  doublereal *difr, doublereal *z__, doublereal *poles,
1730  integer *givptr, integer *givcol, integer *ldgcol,
1731  integer *perm, doublereal *givnum, doublereal *c__,
1732  doublereal *s, doublereal *work, integer *iwork,
1733  integer *info);
1734 extern int dlasdq_(char *uplo, integer *sqre, integer *n, integer *ncvt,
1735  integer *nru, integer *ncc, doublereal *d__, doublereal *e,
1736  doublereal *vt, integer *ldvt, doublereal *u, integer *ldu,
1737  doublereal *c__, integer *ldc, doublereal *work,
1738  integer *info, ftnlen uplo_len);
1739 extern int dlasdt_(integer *n, integer *lvl, integer *nd, integer *inode,
1740  integer *ndiml, integer *ndimr, integer *msub);
1741 extern int dlaset_(char *uplo, integer *m, integer *n, doublereal *alpha,
1742  doublereal *beta, doublereal *a, integer *lda,
1743  ftnlen uplo_len);
1744 extern int dlasq1_(integer *n, doublereal *d__, doublereal *e, doublereal *work,
1745  integer *info);
1746 extern int dlasq2_(integer *n, doublereal *z__, integer *info);
1747 extern int dlasq3_(integer *i0, integer *n0, doublereal *z__, integer *pp,
1748  doublereal *dmin__, doublereal *sigma, doublereal *desig,
1749  doublereal *qmax, integer *nfail, integer *iter,
1750  integer *ndiv);
1751 extern int dlasq4_(integer *i0, integer *n0, doublereal *z__, integer *pp,
1752  integer *n0in, doublereal *dmin__, doublereal *dmin1,
1753  doublereal *dmin2, doublereal *dn, doublereal *dn1,
1754  doublereal *dn2, doublereal *tau, integer *ttype);
1755 extern int dlasq5_(integer *i0, integer *n0, doublereal *z__, integer *pp,
1756  doublereal *tau, doublereal *dmin__, doublereal *dmin1,
1757  doublereal *dmin2, doublereal *dn, doublereal *dnm1,
1758  doublereal *dnm2);
1759 extern int dlasq6_(integer *i0, integer *n0, doublereal *z__, integer *pp,
1760  doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
1761  doublereal *dn, doublereal *dnm1, doublereal *dnm2);
1762 extern int dlasr_(char *side, char *pivot, char *direct, integer *m, integer *n,
1763  doublereal *c__, doublereal *s, doublereal *a, integer *lda,
1764  ftnlen side_len, ftnlen pivot_len, ftnlen direct_len);
1765 extern int dlasrt_(char *id, integer *n, doublereal *d__, integer *info,
1766  ftnlen id_len);
1767 extern int dlassq_(integer *n, doublereal *x, integer *incx, doublereal *scale,
1768  doublereal *sumsq);
1769 extern int dlasv2_(doublereal *f, doublereal *g, doublereal *h__,
1770  doublereal *ssmin, doublereal *ssmax, doublereal *snr,
1771  doublereal *csr, doublereal *snl, doublereal *csl);
1772 extern int dlaswp_(integer *n, doublereal *a, integer *lda, integer *k1,
1773  integer *k2, integer *ipiv, integer *incx);
1774 extern int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn, integer *n1,
1775  integer *n2, doublereal *tl, integer *ldtl, doublereal *tr,
1776  integer *ldtr, doublereal *b, integer *ldb,
1777  doublereal *scale, doublereal *x, integer *ldx,
1778  doublereal *xnorm, integer *info);
1779 extern int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
1780  doublereal *a, integer *lda, integer *ipiv, doublereal *w,
1781  integer *ldw, integer *info, ftnlen uplo_len);
1782 extern int dlatbs_(char *uplo, char *trans, char *diag, char *normin,
1783  integer *n, integer *kd, doublereal *ab, integer *ldab,
1784  doublereal *x, doublereal *scale, doublereal *cnorm,
1785  integer *info, ftnlen uplo_len, ftnlen trans_len,
1786  ftnlen diag_len, ftnlen normin_len);
1787 extern int dlatdf_(integer *ijob, integer *n, doublereal *z__, integer *ldz,
1788  doublereal *rhs, doublereal *rdsum, doublereal *rdscal,
1789  integer *ipiv, integer *jpiv);
1790 extern int dlatps_(char *uplo, char *trans, char *diag, char *normin,
1791  integer *n, doublereal *ap, doublereal *x, doublereal *scale,
1792  doublereal *cnorm, integer *info, ftnlen uplo_len,
1793  ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
1794 extern int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *a,
1795  integer *lda, doublereal *e, doublereal *tau, doublereal *w,
1796  integer *ldw, ftnlen uplo_len);
1797 extern int dlatrs_(char *uplo, char *trans, char *diag, char *normin,
1798  integer *n, doublereal *a, integer *lda, doublereal *x,
1799  doublereal *scale, doublereal *cnorm, integer *info,
1800  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
1801  ftnlen normin_len);
1802 extern int dlatrz_(integer *m, integer *n, integer *l, doublereal *a,
1803  integer *lda, doublereal *tau, doublereal *work);
1804 extern int dlatzm_(char *side, integer *m, integer *n, doublereal *v,
1805  integer *incv, doublereal *tau, doublereal *c1,
1806  doublereal *c2, integer *ldc, doublereal *work,
1807  ftnlen side_len);
1808 extern int dlauu2_(char *uplo, integer *n, doublereal *a, integer *lda,
1809  integer *info, ftnlen uplo_len);
1810 extern int dlauum_(char *uplo, integer *n, doublereal *a, integer *lda,
1811  integer *info, ftnlen uplo_len);
1812 extern int dopgtr_(char *uplo, integer *n, doublereal *ap, doublereal *tau,
1813  doublereal *q, integer *ldq, doublereal *work, integer *info,
1814  ftnlen uplo_len);
1815 extern int dopmtr_(char *side, char *uplo, char *trans, integer *m, integer *n,
1816  doublereal *ap, doublereal *tau, doublereal *c__,
1817  integer *ldc, doublereal *work, integer *info,
1818  ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
1819 extern int dorg2l_(integer *m, integer *n, integer *k, doublereal *a,
1820  integer *lda, doublereal *tau, doublereal *work,
1821  integer *info);
1822 extern int dorg2r_(integer *m, integer *n, integer *k, doublereal *a,
1823  integer *lda, doublereal *tau, doublereal *work,
1824  integer *info);
1825 extern int dorgbr_(char *vect, integer *m, integer *n, integer *k,
1826  doublereal *a, integer *lda, doublereal *tau,
1827  doublereal *work, integer *lwork, integer *info,
1828  ftnlen vect_len);
1829 extern int dorghr_(integer *n, integer *ilo, integer *ihi, doublereal *a,
1830  integer *lda, doublereal *tau, doublereal *work,
1831  integer *lwork, integer *info);
1832 extern int dorgl2_(integer *m, integer *n, integer *k, doublereal *a,
1833  integer *lda, doublereal *tau, doublereal *work,
1834  integer *info);
1835 extern int dorglq_(integer *m, integer *n, integer *k, doublereal *a,
1836  integer *lda, doublereal *tau, doublereal *work,
1837  integer *lwork, integer *info);
1838 extern int dorgql_(integer *m, integer *n, integer *k, doublereal *a,
1839  integer *lda, doublereal *tau, doublereal *work,
1840  integer *lwork, integer *info);
1841 extern int dorgqr_(integer *m, integer *n, integer *k, doublereal *a,
1842  integer *lda, doublereal *tau, doublereal *work,
1843  integer *lwork, integer *info);
1844 extern int dorgr2_(integer *m, integer *n, integer *k, doublereal *a,
1845  integer *lda, doublereal *tau, doublereal *work,
1846  integer *info);
1847 extern int dorgrq_(integer *m, integer *n, integer *k, doublereal *a,
1848  integer *lda, doublereal *tau, doublereal *work,
1849  integer *lwork, integer *info);
1850 extern int dorgtr_(char *uplo, integer *n, doublereal *a, integer *lda,
1851  doublereal *tau, doublereal *work, integer *lwork,
1852  integer *info, ftnlen uplo_len);
1853 extern int dorm2l_(char *side, char *trans, integer *m, integer *n, integer *k,
1854  doublereal *a, integer *lda, doublereal *tau,
1855  doublereal *c__, integer *ldc, doublereal *work,
1856  integer *info, ftnlen side_len, ftnlen trans_len);
1857 extern int dorm2r_(char *side, char *trans, integer *m, integer *n, integer *k,
1858  doublereal *a, integer *lda, doublereal *tau,
1859  doublereal *c__, integer *ldc, doublereal *work,
1860  integer *info, ftnlen side_len, ftnlen trans_len);
1861 extern int dormbr_(char *vect, char *side, char *trans, integer *m, integer *n,
1862  integer *k, doublereal *a, integer *lda, doublereal *tau,
1863  doublereal *c__, integer *ldc, doublereal *work,
1864  integer *lwork, integer *info, ftnlen vect_len,
1865  ftnlen side_len, ftnlen trans_len);
1866 extern int dormhr_(char *side, char *trans, integer *m, integer *n,
1867  integer *ilo, integer *ihi, doublereal *a, integer *lda,
1868  doublereal *tau, doublereal *c__, integer *ldc,
1869  doublereal *work, integer *lwork, integer *info,
1870  ftnlen side_len, ftnlen trans_len);
1871 extern int dorml2_(char *side, char *trans, integer *m, integer *n, integer *k,
1872  doublereal *a, integer *lda, doublereal *tau,
1873  doublereal *c__, integer *ldc, doublereal *work,
1874  integer *info, ftnlen side_len, ftnlen trans_len);
1875 extern int dormlq_(char *side, char *trans, integer *m, integer *n, integer *k,
1876  doublereal *a, integer *lda, doublereal *tau,
1877  doublereal *c__, integer *ldc, doublereal *work,
1878  integer *lwork, integer *info, ftnlen side_len,
1879  ftnlen trans_len);
1880 extern int dormql_(char *side, char *trans, integer *m, integer *n, integer *k,
1881  doublereal *a, integer *lda, doublereal *tau,
1882  doublereal *c__, integer *ldc, doublereal *work,
1883  integer *lwork, integer *info, ftnlen side_len,
1884  ftnlen trans_len);
1885 extern int dormqr_(char *side, char *trans, integer *m, integer *n, integer *k,
1886  doublereal *a, integer *lda, doublereal *tau,
1887  doublereal *c__, integer *ldc, doublereal *work,
1888  integer *lwork, integer *info, ftnlen side_len,
1889  ftnlen trans_len);
1890 extern int dormr2_(char *side, char *trans, integer *m, integer *n, integer *k,
1891  doublereal *a, integer *lda, doublereal *tau,
1892  doublereal *c__, integer *ldc, doublereal *work,
1893  integer *info, ftnlen side_len, ftnlen trans_len);
1894 extern int dormr3_(char *side, char *trans, integer *m, integer *n, integer *k,
1895  integer *l, doublereal *a, integer *lda, doublereal *tau,
1896  doublereal *c__, integer *ldc, doublereal *work,
1897  integer *info, ftnlen side_len, ftnlen trans_len);
1898 extern int dormrq_(char *side, char *trans, integer *m, integer *n, integer *k,
1899  doublereal *a, integer *lda, doublereal *tau,
1900  doublereal *c__, integer *ldc, doublereal *work,
1901  integer *lwork, integer *info, ftnlen side_len,
1902  ftnlen trans_len);
1903 extern int dormrz_(char *side, char *trans, integer *m, integer *n, integer *k,
1904  integer *l, doublereal *a, integer *lda, doublereal *tau,
1905  doublereal *c__, integer *ldc, doublereal *work,
1906  integer *lwork, integer *info, ftnlen side_len,
1907  ftnlen trans_len);
1908 extern int dormtr_(char *side, char *uplo, char *trans, integer *m, integer *n,
1909  doublereal *a, integer *lda, doublereal *tau,
1910  doublereal *c__, integer *ldc, doublereal *work,
1911  integer *lwork, integer *info, ftnlen side_len,
1912  ftnlen uplo_len, ftnlen trans_len);
1913 extern int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *ab,
1914  integer *ldab, doublereal *anorm, doublereal *rcond,
1915  doublereal *work, integer *iwork, integer *info,
1916  ftnlen uplo_len);
1917 extern int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *ab,
1918  integer *ldab, doublereal *s, doublereal *scond,
1919  doublereal *amax, integer *info, ftnlen uplo_len);
1920 extern int dpbrfs_(char *uplo, integer *n, integer *kd, integer *nrhs,
1921  doublereal *ab, integer *ldab, doublereal *afb,
1922  integer *ldafb, doublereal *b, integer *ldb, doublereal *x,
1923  integer *ldx, doublereal *ferr, doublereal *berr,
1924  doublereal *work, integer *iwork, integer *info,
1925  ftnlen uplo_len);
1926 extern int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *ab,
1927  integer *ldab, integer *info, ftnlen uplo_len);
1928 extern int dpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs,
1929  doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
1930  integer *info, ftnlen uplo_len);
1931 extern int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
1932  integer *nrhs, doublereal *ab, integer *ldab,
1933  doublereal *afb, integer *ldafb, char *equed, doublereal *s,
1934  doublereal *b, integer *ldb, doublereal *x, integer *ldx,
1935  doublereal *rcond, doublereal *ferr, doublereal *berr,
1936  doublereal *work, integer *iwork, integer *info,
1937  ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
1938 extern int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *ab,
1939  integer *ldab, integer *info, ftnlen uplo_len);
1940 extern int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *ab,
1941  integer *ldab, integer *info, ftnlen uplo_len);
1942 extern int dpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs,
1943  doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
1944  integer *info, ftnlen uplo_len);
1945 extern int dpocon_(char *uplo, integer *n, doublereal *a, integer *lda,
1946  doublereal *anorm, doublereal *rcond, doublereal *work,
1947  integer *iwork, integer *info, ftnlen uplo_len);
1948 extern int dpoequ_(integer *n, doublereal *a, integer *lda, doublereal *s,
1949  doublereal *scond, doublereal *amax, integer *info);
1950 extern int dporfs_(char *uplo, integer *n, integer *nrhs, doublereal *a,
1951  integer *lda, doublereal *af, integer *ldaf, doublereal *b,
1952  integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
1953  doublereal *berr, doublereal *work, integer *iwork,
1954  integer *info, ftnlen uplo_len);
1955 extern int dposv_(char *uplo, integer *n, integer *nrhs, doublereal *a,
1956  integer *lda, doublereal *b, integer *ldb, integer *info,
1957  ftnlen uplo_len);
1958 extern int dposvx_(char *fact, char *uplo, integer *n, integer *nrhs,
1959  doublereal *a, integer *lda, doublereal *af, integer *ldaf,
1960  char *equed, doublereal *s, doublereal *b, integer *ldb,
1961  doublereal *x, integer *ldx, doublereal *rcond,
1962  doublereal *ferr, doublereal *berr, doublereal *work,
1963  integer *iwork, integer *info, ftnlen fact_len,
1964  ftnlen uplo_len, ftnlen equed_len);
1965 extern int dpotf2_(char *uplo, integer *n, doublereal *a, integer *lda,
1966  integer *info, ftnlen uplo_len);
1967 extern int dpotrf_(char *uplo, integer *n, doublereal *a, integer *lda,
1968  integer *info, ftnlen uplo_len);
1969 extern int dpotri_(char *uplo, integer *n, doublereal *a, integer *lda,
1970  integer *info, ftnlen uplo_len);
1971 extern int dpotrs_(char *uplo, integer *n, integer *nrhs, doublereal *a,
1972  integer *lda, doublereal *b, integer *ldb, integer *info,
1973  ftnlen uplo_len);
1974 extern int dppcon_(char *uplo, integer *n, doublereal *ap, doublereal *anorm,
1975  doublereal *rcond, doublereal *work, integer *iwork,
1976  integer *info, ftnlen uplo_len);
1977 extern int dppequ_(char *uplo, integer *n, doublereal *ap, doublereal *s,
1978  doublereal *scond, doublereal *amax, integer *info,
1979  ftnlen uplo_len);
1980 extern int dpprfs_(char *uplo, integer *n, integer *nrhs, doublereal *ap,
1981  doublereal *afp, doublereal *b, integer *ldb, doublereal *x,
1982  integer *ldx, doublereal *ferr, doublereal *berr,
1983  doublereal *work, integer *iwork, integer *info,
1984  ftnlen uplo_len);
1985 extern int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap,
1986  doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
1987 extern int dppsvx_(char *fact, char *uplo, integer *n, integer *nrhs,
1988  doublereal *ap, doublereal *afp, char *equed, doublereal *s,
1989  doublereal *b, integer *ldb, doublereal *x, integer *ldx,
1990  doublereal *rcond, doublereal *ferr, doublereal *berr,
1991  doublereal *work, integer *iwork, integer *info,
1992  ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
1993 extern int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *info,
1994  ftnlen uplo_len);
1995 extern int dpptri_(char *uplo, integer *n, doublereal *ap, integer *info,
1996  ftnlen uplo_len);
1997 extern int dpptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap,
1998  doublereal *b, integer *ldb, integer *info, ftnlen uplo_len);
1999 extern int dptcon_(integer *n, doublereal *d__, doublereal *e,
2000  doublereal *anorm, doublereal *rcond, doublereal *work,
2001  integer *info);
2002 extern int dpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e,
2003  doublereal *z__, integer *ldz, doublereal *work,
2004  integer *info, ftnlen compz_len);
2005 extern int dptrfs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e,
2006  doublereal *df, doublereal *ef, doublereal *b, integer *ldb,
2007  doublereal *x, integer *ldx, doublereal *ferr,
2008  doublereal *berr, doublereal *work, integer *info);
2009 extern int dptsv_(integer *n, integer *nrhs, doublereal *d__, doublereal *e,
2010  doublereal *b, integer *ldb, integer *info);
2011 extern int dptsvx_(char *fact, integer *n, integer *nrhs, doublereal *d__,
2012  doublereal *e, doublereal *df, doublereal *ef, doublereal *b,
2013  integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
2014  doublereal *ferr, doublereal *berr, doublereal *work,
2015  integer *info, ftnlen fact_len);
2016 extern int dpttrf_(integer *n, doublereal *d__, doublereal *e, integer *info);
2017 extern int dpttrs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e,
2018  doublereal *b, integer *ldb, integer *info);
2019 extern int dptts2_(integer *n, integer *nrhs, doublereal *d__, doublereal *e,
2020  doublereal *b, integer *ldb);
2021 extern int drscl_(integer *n, doublereal *sa, doublereal *sx, integer *incx);
2022 extern int dsbev_(char *jobz, char *uplo, integer *n, integer *kd,
2023  doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
2024  integer *ldz, doublereal *work, integer *info,
2025  ftnlen jobz_len, ftnlen uplo_len);
2026 extern int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd,
2027  doublereal *ab, integer *ldab, doublereal *w,
2028  doublereal *z__, integer *ldz, doublereal *work,
2029  integer *lwork, integer *iwork, integer *liwork,
2030  integer *info, ftnlen jobz_len, ftnlen uplo_len);
2031 extern int dsbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd,
2032  doublereal *ab, integer *ldab, doublereal *q, integer *ldq,
2033  doublereal *vl, doublereal *vu, integer *il, integer *iu,
2034  doublereal *abstol, integer *m, doublereal *w,
2035  doublereal *z__, integer *ldz, doublereal *work,
2036  integer *iwork, integer *ifail, integer *info,
2037  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
2038 extern int dsbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb,
2039  doublereal *ab, integer *ldab, doublereal *bb, integer *ldbb,
2040  doublereal *x, integer *ldx, doublereal *work, integer *info,
2041  ftnlen vect_len, ftnlen uplo_len);
2042 extern int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb,
2043  doublereal *ab, integer *ldab, doublereal *bb, integer *ldbb,
2044  doublereal *w, doublereal *z__, integer *ldz,
2045  doublereal *work, integer *info, ftnlen jobz_len,
2046  ftnlen uplo_len);
2047 extern int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb,
2048  doublereal *ab, integer *ldab, doublereal *bb, integer *ldbb,
2049  doublereal *w, doublereal *z__, integer *ldz,
2050  doublereal *work, integer *lwork, integer *iwork,
2051  integer *liwork, integer *info, ftnlen jobz_len,
2052  ftnlen uplo_len);
2053 extern int dsbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka,
2054  integer *kb, doublereal *ab, integer *ldab, doublereal *bb,
2055  integer *ldbb, doublereal *q, integer *ldq, doublereal *vl,
2056  doublereal *vu, integer *il, integer *iu, doublereal *abstol,
2057  integer *m, doublereal *w, doublereal *z__, integer *ldz,
2058  doublereal *work, integer *iwork, integer *ifail,
2059  integer *info, ftnlen jobz_len, ftnlen range_len,
2060  ftnlen uplo_len);
2061 extern int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd,
2062  doublereal *ab, integer *ldab, doublereal *d__,
2063  doublereal *e, doublereal *q, integer *ldq, doublereal *work,
2064  integer *info, ftnlen vect_len, ftnlen uplo_len);
2065 extern doublereal dsecnd_(void);
2066 extern int dspcon_(char *uplo, integer *n, doublereal *ap, integer *ipiv,
2067  doublereal *anorm, doublereal *rcond, doublereal *work,
2068  integer *iwork, integer *info, ftnlen uplo_len);
2069 extern int dspev_(char *jobz, char *uplo, integer *n, doublereal *ap,
2070  doublereal *w, doublereal *z__, integer *ldz,
2071  doublereal *work, integer *info, ftnlen jobz_len,
2072  ftnlen uplo_len);
2073 extern int dspevd_(char *jobz, char *uplo, integer *n, doublereal *ap,
2074  doublereal *w, doublereal *z__, integer *ldz,
2075  doublereal *work, integer *lwork, integer *iwork,
2076  integer *liwork, integer *info, ftnlen jobz_len,
2077  ftnlen uplo_len);
2078 extern int dspevx_(char *jobz, char *range, char *uplo, integer *n,
2079  doublereal *ap, doublereal *vl, doublereal *vu, integer *il,
2080  integer *iu, doublereal *abstol, integer *m, doublereal *w,
2081  doublereal *z__, integer *ldz, doublereal *work,
2082  integer *iwork, integer *ifail, integer *info,
2083  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
2084 extern int dspgst_(integer *itype, char *uplo, integer *n, doublereal *ap,
2085  doublereal *bp, integer *info, ftnlen uplo_len);
2086 extern int dspgv_(integer *itype, char *jobz, char *uplo, integer *n,
2087  doublereal *ap, doublereal *bp, doublereal *w,
2088  doublereal *z__, integer *ldz, doublereal *work,
2089  integer *info, ftnlen jobz_len, ftnlen uplo_len);
2090 extern int dspgvd_(integer *itype, char *jobz, char *uplo, integer *n,
2091  doublereal *ap, doublereal *bp, doublereal *w,
2092  doublereal *z__, integer *ldz, doublereal *work,
2093  integer *lwork, integer *iwork, integer *liwork,
2094  integer *info, ftnlen jobz_len, ftnlen uplo_len);
2095 extern int dspgvx_(integer *itype, char *jobz, char *range, char *uplo,
2096  integer *n, doublereal *ap, doublereal *bp, doublereal *vl,
2097  doublereal *vu, integer *il, integer *iu, doublereal *abstol,
2098  integer *m, doublereal *w, doublereal *z__, integer *ldz,
2099  doublereal *work, integer *iwork, integer *ifail,
2100  integer *info, ftnlen jobz_len, ftnlen range_len,
2101  ftnlen uplo_len);
2102 extern int dsprfs_(char *uplo, integer *n, integer *nrhs, doublereal *ap,
2103  doublereal *afp, integer *ipiv, doublereal *b, integer *ldb,
2104  doublereal *x, integer *ldx, doublereal *ferr,
2105  doublereal *berr, doublereal *work, integer *iwork,
2106  integer *info, ftnlen uplo_len);
2107 extern int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap,
2108  integer *ipiv, doublereal *b, integer *ldb, integer *info,
2109  ftnlen uplo_len);
2110 extern int dspsvx_(char *fact, char *uplo, integer *n, integer *nrhs,
2111  doublereal *ap, doublereal *afp, integer *ipiv,
2112  doublereal *b, integer *ldb, doublereal *x, integer *ldx,
2113  doublereal *rcond, doublereal *ferr, doublereal *berr,
2114  doublereal *work, integer *iwork, integer *info,
2115  ftnlen fact_len, ftnlen uplo_len);
2116 extern int dsptrd_(char *uplo, integer *n, doublereal *ap, doublereal *d__,
2117  doublereal *e, doublereal *tau, integer *info,
2118  ftnlen uplo_len);
2119 extern int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *ipiv,
2120  integer *info, ftnlen uplo_len);
2121 extern int dsptri_(char *uplo, integer *n, doublereal *ap, integer *ipiv,
2122  doublereal *work, integer *info, ftnlen uplo_len);
2123 extern int dsptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap,
2124  integer *ipiv, doublereal *b, integer *ldb, integer *info,
2125  ftnlen uplo_len);
2126 extern int dstebz_(char *range, char *order, integer *n, doublereal *vl,
2127  doublereal *vu, integer *il, integer *iu, doublereal *abstol,
2128  doublereal *d__, doublereal *e, integer *m, integer *nsplit,
2129  doublereal *w, integer *iblock, integer *isplit,
2130  doublereal *work, integer *iwork, integer *info,
2131  ftnlen range_len, ftnlen order_len);
2132 extern int dstedc_(char *compz, integer *n, doublereal *d__, doublereal *e,
2133  doublereal *z__, integer *ldz, doublereal *work,
2134  integer *lwork, integer *iwork, integer *liwork,
2135  integer *info, ftnlen compz_len);
2136 extern int dstegr_(char *jobz, char *range, integer *n, doublereal *d__,
2137  doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2138  integer *iu, doublereal *abstol, integer *m, doublereal *w,
2139  doublereal *z__, integer *ldz, integer *isuppz,
2140  doublereal *work, integer *lwork, integer *iwork,
2141  integer *liwork, integer *info, ftnlen jobz_len,
2142  ftnlen range_len);
2143 extern int dstein_(integer *n, doublereal *d__, doublereal *e, integer *m,
2144  doublereal *w, integer *iblock, integer *isplit,
2145  doublereal *z__, integer *ldz, doublereal *work,
2146  integer *iwork, integer *ifail, integer *info);
2147 extern int dsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e,
2148  doublereal *z__, integer *ldz, doublereal *work,
2149  integer *info, ftnlen compz_len);
2150 extern int dsterf_(integer *n, doublereal *d__, doublereal *e, integer *info);
2151 extern int dstev_(char *jobz, integer *n, doublereal *d__, doublereal *e,
2152  doublereal *z__, integer *ldz, doublereal *work,
2153  integer *info, ftnlen jobz_len);
2154 extern int dstevd_(char *jobz, integer *n, doublereal *d__, doublereal *e,
2155  doublereal *z__, integer *ldz, doublereal *work,
2156  integer *lwork, integer *iwork, integer *liwork,
2157  integer *info, ftnlen jobz_len);
2158 extern int dstevr_(char *jobz, char *range, integer *n, doublereal *d__,
2159  doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2160  integer *iu, doublereal *abstol, integer *m, doublereal *w,
2161  doublereal *z__, integer *ldz, integer *isuppz,
2162  doublereal *work, integer *lwork, integer *iwork,
2163  integer *liwork, integer *info, ftnlen jobz_len,
2164  ftnlen range_len);
2165 extern int dstevx_(char *jobz, char *range, integer *n, doublereal *d__,
2166  doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2167  integer *iu, doublereal *abstol, integer *m, doublereal *w,
2168  doublereal *z__, integer *ldz, doublereal *work,
2169  integer *iwork, integer *ifail, integer *info,
2170  ftnlen jobz_len, ftnlen range_len);
2171 extern int dsycon_(char *uplo, integer *n, doublereal *a, integer *lda,
2172  integer *ipiv, doublereal *anorm, doublereal *rcond,
2173  doublereal *work, integer *iwork, integer *info,
2174  ftnlen uplo_len);
2175 extern int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
2176  integer *lda, doublereal *w, doublereal *work, integer *lwork,
2177  integer *info, ftnlen jobz_len, ftnlen uplo_len);
2178 extern int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *a,
2179  integer *lda, doublereal *w, doublereal *work,
2180  integer *lwork, integer *iwork, integer *liwork,
2181  integer *info, ftnlen jobz_len, ftnlen uplo_len);
2182 extern int dsyevr_(char *jobz, char *range, char *uplo, integer *n,
2183  doublereal *a, integer *lda, doublereal *vl, doublereal *vu,
2184  integer *il, integer *iu, doublereal *abstol, integer *m,
2185  doublereal *w, doublereal *z__, integer *ldz,
2186  integer *isuppz, doublereal *work, integer *lwork,
2187  integer *iwork, integer *liwork, integer *info,
2188  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
2189 extern int dsyevx_(char *jobz, char *range, char *uplo, integer *n,
2190  doublereal *a, integer *lda, doublereal *vl, doublereal *vu,
2191  integer *il, integer *iu, doublereal *abstol, integer *m,
2192  doublereal *w, doublereal *z__, integer *ldz,
2193  doublereal *work, integer *lwork, integer *iwork,
2194  integer *ifail, integer *info, ftnlen jobz_len,
2195  ftnlen range_len, ftnlen uplo_len);
2196 extern int dsygs2_(integer *itype, char *uplo, integer *n, doublereal *a,
2197  integer *lda, doublereal *b, integer *ldb, integer *info,
2198  ftnlen uplo_len);
2199 extern int dsygst_(integer *itype, char *uplo, integer *n, doublereal *a,
2200  integer *lda, doublereal *b, integer *ldb, integer *info,
2201  ftnlen uplo_len);
2202 extern int dsygv_(integer *itype, char *jobz, char *uplo, integer *n,
2203  doublereal *a, integer *lda, doublereal *b, integer *ldb,
2204  doublereal *w, doublereal *work, integer *lwork,
2205  integer *info, ftnlen jobz_len, ftnlen uplo_len);
2206 extern int dsygvd_(integer *itype, char *jobz, char *uplo, integer *n,
2207  doublereal *a, integer *lda, doublereal *b, integer *ldb,
2208  doublereal *w, doublereal *work, integer *lwork,
2209  integer *iwork, integer *liwork, integer *info,
2210  ftnlen jobz_len, ftnlen uplo_len);
2211 extern int dsygvx_(integer *itype, char *jobz, char *range, char *uplo,
2212  integer *n, doublereal *a, integer *lda, doublereal *b,
2213  integer *ldb, doublereal *vl, doublereal *vu, integer *il,
2214  integer *iu, doublereal *abstol, integer *m, doublereal *w,
2215  doublereal *z__, integer *ldz, doublereal *work,
2216  integer *lwork, integer *iwork, integer *ifail,
2217  integer *info, ftnlen jobz_len, ftnlen range_len,
2218  ftnlen uplo_len);
2219 extern int dsyrfs_(char *uplo, integer *n, integer *nrhs, doublereal *a,
2220  integer *lda, doublereal *af, integer *ldaf, integer *ipiv,
2221  doublereal *b, integer *ldb, doublereal *x, integer *ldx,
2222  doublereal *ferr, doublereal *berr, doublereal *work,
2223  integer *iwork, integer *info, ftnlen uplo_len);
2224 extern int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal *a,
2225  integer *lda, integer *ipiv, doublereal *b, integer *ldb,
2226  doublereal *work, integer *lwork, integer *info,
2227  ftnlen uplo_len);
2228 extern int dsysvx_(char *fact, char *uplo, integer *n, integer *nrhs,
2229  doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2230  integer *ipiv, doublereal *b, integer *ldb, doublereal *x,
2231  integer *ldx, doublereal *rcond, doublereal *ferr,
2232  doublereal *berr, doublereal *work, integer *lwork,
2233  integer *iwork, integer *info, ftnlen fact_len,
2234  ftnlen uplo_len);
2235 extern int dsytd2_(char *uplo, integer *n, doublereal *a, integer *lda,
2236  doublereal *d__, doublereal *e, doublereal *tau,
2237  integer *info, ftnlen uplo_len);
2238 extern int dsytf2_(char *uplo, integer *n, doublereal *a, integer *lda,
2239  integer *ipiv, integer *info, ftnlen uplo_len);
2240 extern int dsytrd_(char *uplo, integer *n, doublereal *a, integer *lda,
2241  doublereal *d__, doublereal *e, doublereal *tau,
2242  doublereal *work, integer *lwork, integer *info,
2243  ftnlen uplo_len);
2244 extern int dsytrf_(char *uplo, integer *n, doublereal *a, integer *lda,
2245  integer *ipiv, doublereal *work, integer *lwork,
2246  integer *info, ftnlen uplo_len);
2247 extern int dsytri_(char *uplo, integer *n, doublereal *a, integer *lda,
2248  integer *ipiv, doublereal *work, integer *info,
2249  ftnlen uplo_len);
2250 extern int dsytrs_(char *uplo, integer *n, integer *nrhs, doublereal *a,
2251  integer *lda, integer *ipiv, doublereal *b, integer *ldb,
2252  integer *info, ftnlen uplo_len);
2253 extern int dtbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd,
2254  doublereal *ab, integer *ldab, doublereal *rcond,
2255  doublereal *work, integer *iwork, integer *info,
2256  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
2257 extern int dtbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd,
2258  integer *nrhs, doublereal *ab, integer *ldab, doublereal *b,
2259  integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
2260  doublereal *berr, doublereal *work, integer *iwork,
2261  integer *info, ftnlen uplo_len, ftnlen trans_len,
2262  ftnlen diag_len);
2263 extern int dtbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd,
2264  integer *nrhs, doublereal *ab, integer *ldab, doublereal *b,
2265  integer *ldb, integer *info, ftnlen uplo_len,
2266  ftnlen trans_len, ftnlen diag_len);
2267 extern int dtgevc_(char *side, char *howmny, logical *select, integer *n,
2268  doublereal *a, integer *lda, doublereal *b, integer *ldb,
2269  doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
2270  integer *mm, integer *m, doublereal *work, integer *info,
2271  ftnlen side_len, ftnlen howmny_len);
2272 extern int dtgex2_(logical *wantq, logical *wantz, integer *n, doublereal *a,
2273  integer *lda, doublereal *b, integer *ldb, doublereal *q,
2274  integer *ldq, doublereal *z__, integer *ldz, integer *j1,
2275  integer *n1, integer *n2, doublereal *work, integer *lwork,
2276  integer *info);
2277 extern int dtgexc_(logical *wantq, logical *wantz, integer *n, doublereal *a,
2278  integer *lda, doublereal *b, integer *ldb, doublereal *q,
2279  integer *ldq, doublereal *z__, integer *ldz, integer *ifst,
2280  integer *ilst, doublereal *work, integer *lwork,
2281  integer *info);
2282 extern int dtgsen_(integer *ijob, logical *wantq, logical *wantz,
2283  logical *select, integer *n, doublereal *a, integer *lda,
2284  doublereal *b, integer *ldb, doublereal *alphar,
2285  doublereal *alphai, doublereal *beta, doublereal *q,
2286  integer *ldq, doublereal *z__, integer *ldz, integer *m,
2287  doublereal *pl, doublereal *pr, doublereal *dif,
2288  doublereal *work, integer *lwork, integer *iwork,
2289  integer *liwork, integer *info);
2290 extern int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p,
2291  integer *n, integer *k, integer *l, doublereal *a,
2292  integer *lda, doublereal *b, integer *ldb, doublereal *tola,
2293  doublereal *tolb, doublereal *alpha, doublereal *beta,
2294  doublereal *u, integer *ldu, doublereal *v, integer *ldv,
2295  doublereal *q, integer *ldq, doublereal *work,
2296  integer *ncycle, integer *info, ftnlen jobu_len,
2297  ftnlen jobv_len, ftnlen jobq_len);
2298 extern int dtgsna_(char *job, char *howmny, logical *select, integer *n,
2299  doublereal *a, integer *lda, doublereal *b, integer *ldb,
2300  doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
2301  doublereal *s, doublereal *dif, integer *mm, integer *m,
2302  doublereal *work, integer *lwork, integer *iwork,
2303  integer *info, ftnlen job_len, ftnlen howmny_len);
2304 extern int dtgsy2_(char *trans, integer *ijob, integer *m, integer *n,
2305  doublereal *a, integer *lda, doublereal *b, integer *ldb,
2306  doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
2307  doublereal *e, integer *lde, doublereal *f, integer *ldf,
2308  doublereal *scale, doublereal *rdsum, doublereal *rdscal,
2309  integer *iwork, integer *pq, integer *info,
2310  ftnlen trans_len);
2311 extern int dtgsyl_(char *trans, integer *ijob, integer *m, integer *n,
2312  doublereal *a, integer *lda, doublereal *b, integer *ldb,
2313  doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
2314  doublereal *e, integer *lde, doublereal *f, integer *ldf,
2315  doublereal *scale, doublereal *dif, doublereal *work,
2316  integer *lwork, integer *iwork, integer *info,
2317  ftnlen trans_len);
2318 extern int dtpcon_(char *norm, char *uplo, char *diag, integer *n,
2319  doublereal *ap, doublereal *rcond, doublereal *work,
2320  integer *iwork, integer *info, ftnlen norm_len,
2321  ftnlen uplo_len, ftnlen diag_len);
2322 extern int dtprfs_(char *uplo, char *trans, char *diag, integer *n,
2323  integer *nrhs, doublereal *ap, doublereal *b, integer *ldb,
2324  doublereal *x, integer *ldx, doublereal *ferr,
2325  doublereal *berr, doublereal *work, integer *iwork,
2326  integer *info, ftnlen uplo_len, ftnlen trans_len,
2327  ftnlen diag_len);
2328 extern int dtptri_(char *uplo, char *diag, integer *n, doublereal *ap,
2329  integer *info, ftnlen uplo_len, ftnlen diag_len);
2330 extern int dtptrs_(char *uplo, char *trans, char *diag, integer *n,
2331  integer *nrhs, doublereal *ap, doublereal *b, integer *ldb,
2332  integer *info, ftnlen uplo_len, ftnlen trans_len,
2333  ftnlen diag_len);
2334 extern int dtrcon_(char *norm, char *uplo, char *diag, integer *n,
2335  doublereal *a, integer *lda, doublereal *rcond,
2336  doublereal *work, integer *iwork, integer *info,
2337  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
2338 extern int dtrevc_(char *side, char *howmny, logical *select, integer *n,
2339  doublereal *t, integer *ldt, doublereal *vl, integer *ldvl,
2340  doublereal *vr, integer *ldvr, integer *mm, integer *m,
2341  doublereal *work, integer *info, ftnlen side_len,
2342  ftnlen howmny_len);
2343 extern int dtrexc_(char *compq, integer *n, doublereal *t, integer *ldt,
2344  doublereal *q, integer *ldq, integer *ifst, integer *ilst,
2345  doublereal *work, integer *info, ftnlen compq_len);
2346 extern int dtrrfs_(char *uplo, char *trans, char *diag, integer *n,
2347  integer *nrhs, doublereal *a, integer *lda, doublereal *b,
2348  integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
2349  doublereal *berr, doublereal *work, integer *iwork,
2350  integer *info, ftnlen uplo_len, ftnlen trans_len,
2351  ftnlen diag_len);
2352 extern int dtrsen_(char *job, char *compq, logical *select, integer *n,
2353  doublereal *t, integer *ldt, doublereal *q, integer *ldq,
2354  doublereal *wr, doublereal *wi, integer *m, doublereal *s,
2355  doublereal *sep, doublereal *work, integer *lwork,
2356  integer *iwork, integer *liwork, integer *info,
2357  ftnlen job_len, ftnlen compq_len);
2358 extern int dtrsna_(char *job, char *howmny, logical *select, integer *n,
2359  doublereal *t, integer *ldt, doublereal *vl, integer *ldvl,
2360  doublereal *vr, integer *ldvr, doublereal *s,
2361  doublereal *sep, integer *mm, integer *m, doublereal *work,
2362  integer *ldwork, integer *iwork, integer *info,
2363  ftnlen job_len, ftnlen howmny_len);
2364 extern int dtrsyl_(char *trana, char *tranb, integer *isgn, integer *m,
2365  integer *n, doublereal *a, integer *lda, doublereal *b,
2366  integer *ldb, doublereal *c__, integer *ldc,
2367  doublereal *scale, integer *info, ftnlen trana_len,
2368  ftnlen tranb_len);
2369 extern int dtrti2_(char *uplo, char *diag, integer *n, doublereal *a,
2370  integer *lda, integer *info, ftnlen uplo_len,
2371  ftnlen diag_len);
2372 extern int dtrtri_(char *uplo, char *diag, integer *n, doublereal *a,
2373  integer *lda, integer *info, ftnlen uplo_len,
2374  ftnlen diag_len);
2375 extern int dtrtrs_(char *uplo, char *trans, char *diag, integer *n,
2376  integer *nrhs, doublereal *a, integer *lda, doublereal *b,
2377  integer *ldb, integer *info, ftnlen uplo_len,
2378  ftnlen trans_len, ftnlen diag_len);
2379 extern int dtzrqf_(integer *m, integer *n, doublereal *a, integer *lda,
2380  doublereal *tau, integer *info);
2381 extern int dtzrzf_(integer *m, integer *n, doublereal *a, integer *lda,
2382  doublereal *tau, doublereal *work, integer *lwork,
2383  integer *info);
2384 extern doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx);
2385 extern integer icmax1_(integer *n, complex *cx, integer *incx);
2386 extern integer ieeeck_(integer *ispec, real *zero, real *one);
2387 extern integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
2388  integer *n2, integer *n3, integer *n4, ftnlen name_len,
2389  ftnlen opts_len);
2390 extern integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
2391 extern logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len);
2392 extern logical lsamen_(integer *n, char *ca, char *cb, ftnlen ca_len,
2393  ftnlen cb_len);
2394 extern int sbdsdc_(char *uplo, char *compq, integer *n, real *d__, real *e,
2395  real *u, integer *ldu, real *vt, integer *ldvt, real *q,
2396  integer *iq, real *work, integer *iwork, integer *info,
2397  ftnlen uplo_len, ftnlen compq_len);
2398 extern int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru,
2399  integer *ncc, real *d__, real *e, real *vt, integer *ldvt,
2400  real *u, integer *ldu, real *c__, integer *ldc, real *work,
2401  integer *info, ftnlen uplo_len);
2402 extern E_f scsum1_(integer *n, complex *cx, integer *incx);
2403 extern int sdisna_(char *job, integer *m, integer *n, real *d__, real *sep,
2404  integer *info, ftnlen job_len);
2405 extern E_f second_(void);
2406 extern int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
2407  integer *kl, integer *ku, real *ab, integer *ldab, real *d__,
2408  real *e, real *q, integer *ldq, real *pt, integer *ldpt,
2409  real *c__, integer *ldc, real *work, integer *info,
2410  ftnlen vect_len);
2411 extern int sgbcon_(char *norm, integer *n, integer *kl, integer *ku, real *ab,
2412  integer *ldab, integer *ipiv, real *anorm, real *rcond,
2413  real *work, integer *iwork, integer *info, ftnlen norm_len);
2414 extern int sgbequ_(integer *m, integer *n, integer *kl, integer *ku, real *ab,
2415  integer *ldab, real *r__, real *c__, real *rowcnd,
2416  real *colcnd, real *amax, integer *info);
2417 extern int sgbrfs_(char *trans, integer *n, integer *kl, integer *ku,
2418  integer *nrhs, real *ab, integer *ldab, real *afb,
2419  integer *ldafb, integer *ipiv, real *b, integer *ldb,
2420  real *x, integer *ldx, real *ferr, real *berr, real *work,
2421  integer *iwork, integer *info, ftnlen trans_len);
2422 extern int sgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, real *ab,
2423  integer *ldab, integer *ipiv, real *b, integer *ldb,
2424  integer *info);
2425 extern int sgbsvx_(char *fact, char *trans, integer *n, integer *kl,
2426  integer *ku, integer *nrhs, real *ab, integer *ldab,
2427  real *afb, integer *ldafb, integer *ipiv, char *equed,
2428  real *r__, real *c__, real *b, integer *ldb, real *x,
2429  integer *ldx, real *rcond, real *ferr, real *berr,
2430  real *work, integer *iwork, integer *info, ftnlen fact_len,
2431  ftnlen trans_len, ftnlen equed_len);
2432 extern int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, real *ab,
2433  integer *ldab, integer *ipiv, integer *info);
2434 extern int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, real *ab,
2435  integer *ldab, integer *ipiv, integer *info);
2436 extern int sgbtrs_(char *trans, integer *n, integer *kl, integer *ku,
2437  integer *nrhs, real *ab, integer *ldab, integer *ipiv,
2438  real *b, integer *ldb, integer *info, ftnlen trans_len);
2439 extern int sgebak_(char *job, char *side, integer *n, integer *ilo,
2440  integer *ihi, real *scale, integer *m, real *v, integer *ldv,
2441  integer *info, ftnlen job_len, ftnlen side_len);
2442 extern int sgebal_(char *job, integer *n, real *a, integer *lda, integer *ilo,
2443  integer *ihi, real *scale, integer *info, ftnlen job_len);
2444 extern int sgebd2_(integer *m, integer *n, real *a, integer *lda, real *d__,
2445  real *e, real *tauq, real *taup, real *work, integer *info);
2446 extern int sgebrd_(integer *m, integer *n, real *a, integer *lda, real *d__,
2447  real *e, real *tauq, real *taup, real *work, integer *lwork,
2448  integer *info);
2449 extern int sgecon_(char *norm, integer *n, real *a, integer *lda, real *anorm,
2450  real *rcond, real *work, integer *iwork, integer *info,
2451  ftnlen norm_len);
2452 extern int sgeequ_(integer *m, integer *n, real *a, integer *lda, real *r__,
2453  real *c__, real *rowcnd, real *colcnd, real *amax,
2454  integer *info);
2455 extern int sgees_(char *jobvs, char *sort, L_fp select, integer *n, real *a,
2456  integer *lda, integer *sdim, real *wr, real *wi, real *vs,
2457  integer *ldvs, real *work, integer *lwork, logical *bwork,
2458  integer *info, ftnlen jobvs_len, ftnlen sort_len);
2459 extern int sgeesx_(char *jobvs, char *sort, L_fp select, char *sense,
2460  integer *n, real *a, integer *lda, integer *sdim, real *wr,
2461  real *wi, real *vs, integer *ldvs, real *rconde,
2462  real *rcondv, real *work, integer *lwork, integer *iwork,
2463  integer *liwork, logical *bwork, integer *info,
2464  ftnlen jobvs_len, ftnlen sort_len, ftnlen sense_len);
2465 extern int sgeev_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda,
2466  real *wr, real *wi, real *vl, integer *ldvl, real *vr,
2467  integer *ldvr, real *work, integer *lwork, integer *info,
2468  ftnlen jobvl_len, ftnlen jobvr_len);
2469 extern int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
2470  integer *n, real *a, integer *lda, real *wr, real *wi,
2471  real *vl, integer *ldvl, real *vr, integer *ldvr,
2472  integer *ilo, integer *ihi, real *scale, real *abnrm,
2473  real *rconde, real *rcondv, real *work, integer *lwork,
2474  integer *iwork, integer *info, ftnlen balanc_len,
2475  ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
2476 extern int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a, integer *lda,
2477  real *b, integer *ldb, real *alphar, real *alphai, real *beta,
2478  real *vsl, integer *ldvsl, real *vsr, integer *ldvsr,
2479  real *work, integer *lwork, integer *info, ftnlen jobvsl_len,
2480  ftnlen jobvsr_len);
2481 extern int sgegv_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda,
2482  real *b, integer *ldb, real *alphar, real *alphai, real *beta,
2483  real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
2484  integer *lwork, integer *info, ftnlen jobvl_len,
2485  ftnlen jobvr_len);
2486 extern int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a,
2487  integer *lda, real *tau, real *work, integer *info);
2488 extern int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a,
2489  integer *lda, real *tau, real *work, integer *lwork,
2490  integer *info);
2491 extern int sgelq2_(integer *m, integer *n, real *a, integer *lda, real *tau,
2492  real *work, integer *info);
2493 extern int sgelqf_(integer *m, integer *n, real *a, integer *lda, real *tau,
2494  real *work, integer *lwork, integer *info);
2495 extern int sgels_(char *trans, integer *m, integer *n, integer *nrhs, real *a,
2496  integer *lda, real *b, integer *ldb, real *work,
2497  integer *lwork, integer *info, ftnlen trans_len);
2498 extern int sgelsd_(integer *m, integer *n, integer *nrhs, real *a, integer *lda,
2499  real *b, integer *ldb, real *s, real *rcond, integer *rank,
2500  real *work, integer *lwork, integer *iwork, integer *info);
2501 extern int sgelss_(integer *m, integer *n, integer *nrhs, real *a, integer *lda,
2502  real *b, integer *ldb, real *s, real *rcond, integer *rank,
2503  real *work, integer *lwork, integer *info);
2504 extern int sgelsx_(integer *m, integer *n, integer *nrhs, real *a, integer *lda,
2505  real *b, integer *ldb, integer *jpvt, real *rcond,
2506  integer *rank, real *work, integer *info);
2507 extern int sgelsy_(integer *m, integer *n, integer *nrhs, real *a, integer *lda,
2508  real *b, integer *ldb, integer *jpvt, real *rcond,
2509  integer *rank, real *work, integer *lwork, integer *info);
2510 extern int sgeql2_(integer *m, integer *n, real *a, integer *lda, real *tau,
2511  real *work, integer *info);
2512 extern int sgeqlf_(integer *m, integer *n, real *a, integer *lda, real *tau,
2513  real *work, integer *lwork, integer *info);
2514 extern int sgeqp3_(integer *m, integer *n, real *a, integer *lda, integer *jpvt,
2515  real *tau, real *work, integer *lwork, integer *info);
2516 extern int sgeqpf_(integer *m, integer *n, real *a, integer *lda, integer *jpvt,
2517  real *tau, real *work, integer *info);
2518 extern int sgeqr2_(integer *m, integer *n, real *a, integer *lda, real *tau,
2519  real *work, integer *info);
2520 extern int sgeqrf_(integer *m, integer *n, real *a, integer *lda, real *tau,
2521  real *work, integer *lwork, integer *info);
2522 extern int sgerfs_(char *trans, integer *n, integer *nrhs, real *a,
2523  integer *lda, real *af, integer *ldaf, integer *ipiv,
2524  real *b, integer *ldb, real *x, integer *ldx, real *ferr,
2525  real *berr, real *work, integer *iwork, integer *info,
2526  ftnlen trans_len);
2527 extern int sgerq2_(integer *m, integer *n, real *a, integer *lda, real *tau,
2528  real *work, integer *info);
2529 extern int sgerqf_(integer *m, integer *n, real *a, integer *lda, real *tau,
2530  real *work, integer *lwork, integer *info);
2531 extern int sgesc2_(integer *n, real *a, integer *lda, real *rhs, integer *ipiv,
2532  integer *jpiv, real *scale);
2533 extern int sgesdd_(char *jobz, integer *m, integer *n, real *a, integer *lda,
2534  real *s, real *u, integer *ldu, real *vt, integer *ldvt,
2535  real *work, integer *lwork, integer *iwork, integer *info,
2536  ftnlen jobz_len);
2537 extern int sgesv_(integer *n, integer *nrhs, real *a, integer *lda,
2538  integer *ipiv, real *b, integer *ldb, integer *info);
2539 extern int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n, real *a,
2540  integer *lda, real *s, real *u, integer *ldu, real *vt,
2541  integer *ldvt, real *work, integer *lwork, integer *info,
2542  ftnlen jobu_len, ftnlen jobvt_len);
2543 extern int sgesvx_(char *fact, char *trans, integer *n, integer *nrhs, real *a,
2544  integer *lda, real *af, integer *ldaf, integer *ipiv,
2545  char *equed, real *r__, real *c__, real *b, integer *ldb,
2546  real *x, integer *ldx, real *rcond, real *ferr, real *berr,
2547  real *work, integer *iwork, integer *info, ftnlen fact_len,
2548  ftnlen trans_len, ftnlen equed_len);
2549 extern int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv,
2550  integer *jpiv, integer *info);
2551 extern int sgetf2_(integer *m, integer *n, real *a, integer *lda, integer *ipiv,
2552  integer *info);
2553 extern int sgetrf_(integer *m, integer *n, real *a, integer *lda, integer *ipiv,
2554  integer *info);
2555 extern int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, real *work,
2556  integer *lwork, integer *info);
2557 extern int sgetrs_(char *trans, integer *n, integer *nrhs, real *a,
2558  integer *lda, integer *ipiv, real *b, integer *ldb,
2559  integer *info, ftnlen trans_len);
2560 extern int sggbak_(char *job, char *side, integer *n, integer *ilo,
2561  integer *ihi, real *lscale, real *rscale, integer *m,
2562  real *v, integer *ldv, integer *info, ftnlen job_len,
2563  ftnlen side_len);
2564 extern int sggbal_(char *job, integer *n, real *a, integer *lda, real *b,
2565  integer *ldb, integer *ilo, integer *ihi, real *lscale,
2566  real *rscale, real *work, integer *info, ftnlen job_len);
2567 extern int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg,
2568  integer *n, real *a, integer *lda, real *b, integer *ldb,
2569  integer *sdim, real *alphar, real *alphai, real *beta,
2570  real *vsl, integer *ldvsl, real *vsr, integer *ldvsr,
2571  real *work, integer *lwork, logical *bwork, integer *info,
2572  ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len);
2573 extern int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg,
2574  char *sense, integer *n, real *a, integer *lda, real *b,
2575  integer *ldb, integer *sdim, real *alphar, real *alphai,
2576  real *beta, real *vsl, integer *ldvsl, real *vsr,
2577  integer *ldvsr, real *rconde, real *rcondv, real *work,
2578  integer *lwork, integer *iwork, integer *liwork,
2579  logical *bwork, integer *info, ftnlen jobvsl_len,
2580  ftnlen jobvsr_len, ftnlen sort_len, ftnlen sense_len);
2581 extern int sggev_(char *jobvl, char *jobvr, integer *n, real *a, integer *lda,
2582  real *b, integer *ldb, real *alphar, real *alphai, real *beta,
2583  real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
2584  integer *lwork, integer *info, ftnlen jobvl_len,
2585  ftnlen jobvr_len);
2586 extern int sggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
2587  integer *n, real *a, integer *lda, real *b, integer *ldb,
2588  real *alphar, real *alphai, real *beta, real *vl,
2589  integer *ldvl, real *vr, integer *ldvr, integer *ilo,
2590  integer *ihi, real *lscale, real *rscale, real *abnrm,
2591  real *bbnrm, real *rconde, real *rcondv, real *work,
2592  integer *lwork, integer *iwork, logical *bwork,
2593  integer *info, ftnlen balanc_len, ftnlen jobvl_len,
2594  ftnlen jobvr_len, ftnlen sense_len);
2595 extern int sggglm_(integer *n, integer *m, integer *p, real *a, integer *lda,
2596  real *b, integer *ldb, real *d__, real *x, real *y,
2597  real *work, integer *lwork, integer *info);
2598 extern int sgghrd_(char *compq, char *compz, integer *n, integer *ilo,
2599  integer *ihi, real *a, integer *lda, real *b, integer *ldb,
2600  real *q, integer *ldq, real *z__, integer *ldz,
2601  integer *info, ftnlen compq_len, ftnlen compz_len);
2602 extern int sgglse_(integer *m, integer *n, integer *p, real *a, integer *lda,
2603  real *b, integer *ldb, real *c__, real *d__, real *x,
2604  real *work, integer *lwork, integer *info);
2605 extern int sggqrf_(integer *n, integer *m, integer *p, real *a, integer *lda,
2606  real *taua, real *b, integer *ldb, real *taub, real *work,
2607  integer *lwork, integer *info);
2608 extern int sggrqf_(integer *m, integer *p, integer *n, real *a, integer *lda,
2609  real *taua, real *b, integer *ldb, real *taub, real *work,
2610  integer *lwork, integer *info);
2611 extern int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n,
2612  integer *p, integer *k, integer *l, real *a, integer *lda,
2613  real *b, integer *ldb, real *alpha, real *beta, real *u,
2614  integer *ldu, real *v, integer *ldv, real *q, integer *ldq,
2615  real *work, integer *iwork, integer *info, ftnlen jobu_len,
2616  ftnlen jobv_len, ftnlen jobq_len);
2617 extern int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p,
2618  integer *n, real *a, integer *lda, real *b, integer *ldb,
2619  real *tola, real *tolb, integer *k, integer *l, real *u,
2620  integer *ldu, real *v, integer *ldv, real *q, integer *ldq,
2621  integer *iwork, real *tau, real *work, integer *info,
2622  ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
2623 extern int sgtcon_(char *norm, integer *n, real *dl, real *d__, real *du,
2624  real *du2, integer *ipiv, real *anorm, real *rcond,
2625  real *work, integer *iwork, integer *info, ftnlen norm_len);
2626 extern int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl, real *d__,
2627  real *du, real *dlf, real *df, real *duf, real *du2,
2628  integer *ipiv, real *b, integer *ldb, real *x, integer *ldx,
2629  real *ferr, real *berr, real *work, integer *iwork,
2630  integer *info, ftnlen trans_len);
2631 extern int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, real *du,
2632  real *b, integer *ldb, integer *info);
2633 extern int sgtsvx_(char *fact, char *trans, integer *n, integer *nrhs, real *dl,
2634  real *d__, real *du, real *dlf, real *df, real *duf,
2635  real *du2, integer *ipiv, real *b, integer *ldb, real *x,
2636  integer *ldx, real *rcond, real *ferr, real *berr,
2637  real *work, integer *iwork, integer *info, ftnlen fact_len,
2638  ftnlen trans_len);
2639 extern int sgttrf_(integer *n, real *dl, real *d__, real *du, real *du2,
2640  integer *ipiv, integer *info);
2641 extern int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl, real *d__,
2642  real *du, real *du2, integer *ipiv, real *b, integer *ldb,
2643  integer *info, ftnlen trans_len);
2644 extern int sgtts2_(integer *itrans, integer *n, integer *nrhs, real *dl,
2645  real *d__, real *du, real *du2, integer *ipiv, real *b,
2646  integer *ldb);
2647 extern int shgeqz_(char *job, char *compq, char *compz, integer *n,
2648  integer *ilo, integer *ihi, real *a, integer *lda, real *b,
2649  integer *ldb, real *alphar, real *alphai, real *beta,
2650  real *q, integer *ldq, real *z__, integer *ldz, real *work,
2651  integer *lwork, integer *info, ftnlen job_len,
2652  ftnlen compq_len, ftnlen compz_len);
2653 extern int shsein_(char *side, char *eigsrc, char *initv, logical *select,
2654  integer *n, real *h__, integer *ldh, real *wr, real *wi,
2655  real *vl, integer *ldvl, real *vr, integer *ldvr,
2656  integer *mm, integer *m, real *work, integer *ifaill,
2657  integer *ifailr, integer *info, ftnlen side_len,
2658  ftnlen eigsrc_len, ftnlen initv_len);
2659 extern int shseqr_(char *job, char *compz, integer *n, integer *ilo,
2660  integer *ihi, real *h__, integer *ldh, real *wr, real *wi,
2661  real *z__, integer *ldz, real *work, integer *lwork,
2662  integer *info, ftnlen job_len, ftnlen compz_len);
2663 extern int slabad_(real *small, real *large);
2664 extern int slabrd_(integer *m, integer *n, integer *nb, real *a, integer *lda,
2665  real *d__, real *e, real *tauq, real *taup, real *x,
2666  integer *ldx, real *y, integer *ldy);
2667 extern int slacon_(integer *n, real *v, real *x, integer *isgn, real *est,
2668  integer *kase);
2669 extern int slacpy_(char *uplo, integer *m, integer *n, real *a, integer *lda,
2670  real *b, integer *ldb, ftnlen uplo_len);
2671 extern int sladiv_(real *a, real *b, real *c__, real *d__, real *p, real *q);
2672 extern int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
2673 extern int slaebz_(integer *ijob, integer *nitmax, integer *n, integer *mmax,
2674  integer *minp, integer *nbmin, real *abstol, real *reltol,
2675  real *pivmin, real *d__, real *e, real *e2, integer *nval,
2676  real *ab, real *c__, integer *mout, integer *nab, real *work,
2677  integer *iwork, integer *info);
2678 extern int slaed0_(integer *icompq, integer *qsiz, integer *n, real *d__,
2679  real *e, real *q, integer *ldq, real *qstore, integer *ldqs,
2680  real *work, integer *iwork, integer *info);
2681 extern int slaed1_(integer *n, real *d__, real *q, integer *ldq, integer *indxq,
2682  real *rho, integer *cutpnt, real *work, integer *iwork,
2683  integer *info);
2684 extern int slaed2_(integer *k, integer *n, integer *n1, real *d__, real *q,
2685  integer *ldq, integer *indxq, real *rho, real *z__,
2686  real *dlamda, real *w, real *q2, integer *indx,
2687  integer *indxc, integer *indxp, integer *coltyp,
2688  integer *info);
2689 extern int slaed3_(integer *k, integer *n, integer *n1, real *d__, real *q,
2690  integer *ldq, real *rho, real *dlamda, real *q2,
2691  integer *indx, integer *ctot, real *w, real *s,
2692  integer *info);
2693 extern int slaed4_(integer *n, integer *i__, real *d__, real *z__, real *delta,
2694  real *rho, real *dlam, integer *info);
2695 extern int slaed5_(integer *i__, real *d__, real *z__, real *delta, real *rho,
2696  real *dlam);
2697 extern int slaed6_(integer *kniter, logical *orgati, real *rho, real *d__,
2698  real *z__, real *finit, real *tau, integer *info);
2699 extern int slaed7_(integer *icompq, integer *n, integer *qsiz, integer *tlvls,
2700  integer *curlvl, integer *curpbm, real *d__, real *q,
2701  integer *ldq, integer *indxq, real *rho, integer *cutpnt,
2702  real *qstore, integer *qptr, integer *prmptr, integer *perm,
2703  integer *givptr, integer *givcol, real *givnum, real *work,
2704  integer *iwork, integer *info);
2705 extern int slaed8_(integer *icompq, integer *k, integer *n, integer *qsiz,
2706  real *d__, real *q, integer *ldq, integer *indxq, real *rho,
2707  integer *cutpnt, real *z__, real *dlamda, real *q2,
2708  integer *ldq2, real *w, integer *perm, integer *givptr,
2709  integer *givcol, real *givnum, integer *indxp, integer *indx,
2710  integer *info);
2711 extern int slaed9_(integer *k, integer *kstart, integer *kstop, integer *n,
2712  real *d__, real *q, integer *ldq, real *rho, real *dlamda,
2713  real *w, real *s, integer *lds, integer *info);
2714 extern int slaeda_(integer *n, integer *tlvls, integer *curlvl, integer *curpbm,
2715  integer *prmptr, integer *perm, integer *givptr,
2716  integer *givcol, real *givnum, real *q, integer *qptr,
2717  real *z__, real *ztemp, integer *info);
2718 extern int slaein_(logical *rightv, logical *noinit, integer *n, real *h__,
2719  integer *ldh, real *wr, real *wi, real *vr, real *vi,
2720  real *b, integer *ldb, real *work, real *eps3, real *smlnum,
2721  real *bignum, integer *info);
2722 extern int slaev2_(real *a, real *b, real *c__, real *rt1, real *rt2, real *cs1,
2723  real *sn1);
2724 extern int slaexc_(logical *wantq, integer *n, real *t, integer *ldt, real *q,
2725  integer *ldq, integer *j1, integer *n1, integer *n2,
2726  real *work, integer *info);
2727 extern int slag2_(real *a, integer *lda, real *b, integer *ldb, real *safmin,
2728  real *scale1, real *scale2, real *wr1, real *wr2, real *wi);
2729 extern int slags2_(logical *upper, real *a1, real *a2, real *a3, real *b1,
2730  real *b2, real *b3, real *csu, real *snu, real *csv,
2731  real *snv, real *csq, real *snq);
2732 extern int slagtf_(integer *n, real *a, real *lambda, real *b, real *c__,
2733  real *tol, real *d__, integer *in, integer *info);
2734 extern int slagtm_(char *trans, integer *n, integer *nrhs, real *alpha,
2735  real *dl, real *d__, real *du, real *x, integer *ldx,
2736  real *beta, real *b, integer *ldb, ftnlen trans_len);
2737 extern int slagts_(integer *job, integer *n, real *a, real *b, real *c__,
2738  real *d__, integer *in, real *y, real *tol, integer *info);
2739 extern int slagv2_(real *a, integer *lda, real *b, integer *ldb, real *alphar,
2740  real *alphai, real *beta, real *csl, real *snl, real *csr,
2741  real *snr);
2742 extern int slahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo,
2743  integer *ihi, real *h__, integer *ldh, real *wr, real *wi,
2744  integer *iloz, integer *ihiz, real *z__, integer *ldz,
2745  integer *info);
2746 extern int slahrd_(integer *n, integer *k, integer *nb, real *a, integer *lda,
2747  real *tau, real *t, integer *ldt, real *y, integer *ldy);
2748 extern int slaic1_(integer *job, integer *j, real *x, real *sest, real *w,
2749  real *gamma, real *sestpr, real *s, real *c__);
2750 extern int slaln2_(logical *ltrans, integer *na, integer *nw, real *smin,
2751  real *ca, real *a, integer *lda, real *d1, real *d2, real *b,
2752  integer *ldb, real *wr, real *wi, real *x, integer *ldx,
2753  real *scale, real *xnorm, integer *info);
2754 extern int slals0_(integer *icompq, integer *nl, integer *nr, integer *sqre,
2755  integer *nrhs, real *b, integer *ldb, real *bx,
2756  integer *ldbx, integer *perm, integer *givptr,
2757  integer *givcol, integer *ldgcol, real *givnum,
2758  integer *ldgnum, real *poles, real *difl, real *difr,
2759  real *z__, integer *k, real *c__, real *s, real *work,
2760  integer *info);
2761 extern int slalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs,
2762  real *b, integer *ldb, real *bx, integer *ldbx, real *u,
2763  integer *ldu, real *vt, integer *k, real *difl, real *difr,
2764  real *z__, real *poles, integer *givptr, integer *givcol,
2765  integer *ldgcol, integer *perm, real *givnum, real *c__,
2766  real *s, real *work, integer *iwork, integer *info);
2767 extern int slalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs,
2768  real *d__, real *e, real *b, integer *ldb, real *rcond,
2769  integer *rank, real *work, integer *iwork, integer *info,
2770  ftnlen uplo_len);
2771 extern E_f slamch_(char *cmach, ftnlen cmach_len);
2772 extern int slamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1);
2773 extern int slamc2_(integer *beta, integer *t, logical *rnd, real *eps,
2774  integer *emin, real *rmin, integer *emax, real *rmax);
2775 extern E_f slamc3_(real *a, real *b);
2776 extern int slamc4_(integer *emin, real *start, integer *base);
2777 extern int slamc5_(integer *beta, integer *p, integer *emin, logical *ieee,
2778  integer *emax, real *rmax);
2779 extern int slamrg_(integer *n1, integer *n2, real *a, integer *strd1,
2780  integer *strd2, integer *index);
2781 extern E_f slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab,
2782  integer *ldab, real *work, ftnlen norm_len);
2783 extern E_f slange_(char *norm, integer *m, integer *n, real *a, integer *lda,
2784  real *work, ftnlen norm_len);
2785 extern E_f slangt_(char *norm, integer *n, real *dl, real *d__, real *du,
2786  ftnlen norm_len);
2787 extern E_f slanhs_(char *norm, integer *n, real *a, integer *lda, real *work,
2788  ftnlen norm_len);
2789 extern E_f slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab,
2790  integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len);
2791 extern E_f slansp_(char *norm, char *uplo, integer *n, real *ap, real *work,
2792  ftnlen norm_len, ftnlen uplo_len);
2793 extern E_f slanst_(char *norm, integer *n, real *d__, real *e, ftnlen norm_len);
2794 extern E_f slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda,
2795  real *work, ftnlen norm_len, ftnlen uplo_len);
2796 extern E_f slantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
2797  real *ab, integer *ldab, real *work, ftnlen norm_len,
2798  ftnlen uplo_len, ftnlen diag_len);
2799 extern E_f slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap,
2800  real *work, ftnlen norm_len, ftnlen uplo_len,
2801  ftnlen diag_len);
2802 extern E_f slantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
2803  real *a, integer *lda, real *work, ftnlen norm_len,
2804  ftnlen uplo_len, ftnlen diag_len);
2805 extern int slanv2_(real *a, real *b, real *c__, real *d__, real *rt1r,
2806  real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
2807 extern int slapll_(integer *n, real *x, integer *incx, real *y, integer *incy,
2808  real *ssmin);
2809 extern int slapmt_(logical *forwrd, integer *m, integer *n, real *x,
2810  integer *ldx, integer *k);
2811 extern E_f slapy2_(real *x, real *y);
2812 extern E_f slapy3_(real *x, real *y, real *z__);
2813 extern int slaqgb_(integer *m, integer *n, integer *kl, integer *ku, real *ab,
2814  integer *ldab, real *r__, real *c__, real *rowcnd,
2815  real *colcnd, real *amax, char *equed, ftnlen equed_len);
2816 extern int slaqge_(integer *m, integer *n, real *a, integer *lda, real *r__,
2817  real *c__, real *rowcnd, real *colcnd, real *amax,
2818  char *equed, ftnlen equed_len);
2819 extern int slaqp2_(integer *m, integer *n, integer *offset, real *a,
2820  integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2,
2821  real *work);
2822 extern int slaqps_(integer *m, integer *n, integer *offset, integer *nb,
2823  integer *kb, real *a, integer *lda, integer *jpvt, real *tau,
2824  real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
2825 extern int slaqsb_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab,
2826  real *s, real *scond, real *amax, char *equed,
2827  ftnlen uplo_len, ftnlen equed_len);
2828 extern int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *scond,
2829  real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len);
2830 extern int slaqsy_(char *uplo, integer *n, real *a, integer *lda, real *s,
2831  real *scond, real *amax, char *equed, ftnlen uplo_len,
2832  ftnlen equed_len);
2833 extern int slaqtr_(logical *ltran, logical *lreal, integer *n, real *t,
2834  integer *ldt, real *b, real *w, real *scale, real *x,
2835  real *work, integer *info);
2836 extern int slar1v_(integer *n, integer *b1, integer *bn, real *sigma, real *d__,
2837  real *l, real *ld, real *lld, real *gersch, real *z__,
2838  real *ztz, real *mingma, integer *r__, integer *isuppz,
2839  real *work);
2840 extern int slar2v_(integer *n, real *x, real *y, real *z__, integer *incx,
2841  real *c__, real *s, integer *incc);
2842 extern int slarf_(char *side, integer *m, integer *n, real *v, integer *incv,
2843  real *tau, real *c__, integer *ldc, real *work,
2844  ftnlen side_len);
2845 extern int slarfb_(char *side, char *trans, char *direct, char *storev,
2846  integer *m, integer *n, integer *k, real *v, integer *ldv,
2847  real *t, integer *ldt, real *c__, integer *ldc, real *work,
2848  integer *ldwork, ftnlen side_len, ftnlen trans_len,
2849  ftnlen direct_len, ftnlen storev_len);
2850 extern int slarfg_(integer *n, real *alpha, real *x, integer *incx, real *tau);
2851 extern int slarft_(char *direct, char *storev, integer *n, integer *k, real *v,
2852  integer *ldv, real *tau, real *t, integer *ldt,
2853  ftnlen direct_len, ftnlen storev_len);
2854 extern int slarfx_(char *side, integer *m, integer *n, real *v, real *tau,
2855  real *c__, integer *ldc, real *work, ftnlen side_len);
2856 extern int slargv_(integer *n, real *x, integer *incx, real *y, integer *incy,
2857  real *c__, integer *incc);
2858 extern int slarnv_(integer *idist, integer *iseed, integer *n, real *x);
2859 extern int slarrb_(integer *n, real *d__, real *l, real *ld, real *lld,
2860  integer *ifirst, integer *ilast, real *sigma, real *reltol,
2861  real *w, real *wgap, real *werr, real *work, integer *iwork,
2862  integer *info);
2863 extern int slarre_(integer *n, real *d__, real *e, real *tol, integer *nsplit,
2864  integer *isplit, integer *m, real *w, real *woff,
2865  real *gersch, real *work, integer *info);
2866 extern int slarrf_(integer *n, real *d__, real *l, real *ld, real *lld,
2867  integer *ifirst, integer *ilast, real *w, real *dplus,
2868  real *lplus, real *work, integer *iwork, integer *info);
2869 extern int slarrv_(integer *n, real *d__, real *l, integer *isplit, integer *m,
2870  real *w, integer *iblock, real *gersch, real *tol, real *z__,
2871  integer *ldz, integer *isuppz, real *work, integer *iwork,
2872  integer *info);
2873 extern int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
2874 extern int slartv_(integer *n, real *x, integer *incx, real *y, integer *incy,
2875  real *c__, real *s, integer *incc);
2876 extern int slaruv_(integer *iseed, integer *n, real *x);
2877 extern int slarz_(char *side, integer *m, integer *n, integer *l, real *v,
2878  integer *incv, real *tau, real *c__, integer *ldc, real *work,
2879  ftnlen side_len);
2880 extern int slarzb_(char *side, char *trans, char *direct, char *storev,
2881  integer *m, integer *n, integer *k, integer *l, real *v,
2882  integer *ldv, real *t, integer *ldt, real *c__, integer *ldc,
2883  real *work, integer *ldwork, ftnlen side_len,
2884  ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
2885 extern int slarzt_(char *direct, char *storev, integer *n, integer *k, real *v,
2886  integer *ldv, real *tau, real *t, integer *ldt,
2887  ftnlen direct_len, ftnlen storev_len);
2888 extern int slas2_(real *f, real *g, real *h__, real *ssmin, real *ssmax);
2889 extern int slascl_(char *type__, integer *kl, integer *ku, real *cfrom,
2890  real *cto, integer *m, integer *n, real *a, integer *lda,
2891  integer *info, ftnlen type_len);
2892 extern int slasd0_(integer *n, integer *sqre, real *d__, real *e, real *u,
2893  integer *ldu, real *vt, integer *ldvt, integer *smlsiz,
2894  integer *iwork, real *work, integer *info);
2895 extern int slasd1_(integer *nl, integer *nr, integer *sqre, real *d__,
2896  real *alpha, real *beta, real *u, integer *ldu, real *vt,
2897  integer *ldvt, integer *idxq, integer *iwork, real *work,
2898  integer *info);
2899 extern int slasd2_(integer *nl, integer *nr, integer *sqre, integer *k,
2900  real *d__, real *z__, real *alpha, real *beta, real *u,
2901  integer *ldu, real *vt, integer *ldvt, real *dsigma,
2902  real *u2, integer *ldu2, real *vt2, integer *ldvt2,
2903  integer *idxp, integer *idx, integer *idxc, integer *idxq,
2904  integer *coltyp, integer *info);
2905 extern int slasd3_(integer *nl, integer *nr, integer *sqre, integer *k,
2906  real *d__, real *q, integer *ldq, real *dsigma, real *u,
2907  integer *ldu, real *u2, integer *ldu2, real *vt,
2908  integer *ldvt, real *vt2, integer *ldvt2, integer *idxc,
2909  integer *ctot, real *z__, integer *info);
2910 extern int slasd4_(integer *n, integer *i__, real *d__, real *z__, real *delta,
2911  real *rho, real *sigma, real *work, integer *info);
2912 extern int slasd5_(integer *i__, real *d__, real *z__, real *delta, real *rho,
2913  real *dsigma, real *work);
2914 extern int slasd6_(integer *icompq, integer *nl, integer *nr, integer *sqre,
2915  real *d__, real *vf, real *vl, real *alpha, real *beta,
2916  integer *idxq, integer *perm, integer *givptr,
2917  integer *givcol, integer *ldgcol, real *givnum,
2918  integer *ldgnum, real *poles, real *difl, real *difr,
2919  real *z__, integer *k, real *c__, real *s, real *work,
2920  integer *iwork, integer *info);
2921 extern int slasd7_(integer *icompq, integer *nl, integer *nr, integer *sqre,
2922  integer *k, real *d__, real *z__, real *zw, real *vf,
2923  real *vfw, real *vl, real *vlw, real *alpha, real *beta,
2924  real *dsigma, integer *idx, integer *idxp, integer *idxq,
2925  integer *perm, integer *givptr, integer *givcol,
2926  integer *ldgcol, real *givnum, integer *ldgnum, real *c__,
2927  real *s, integer *info);
2928 extern int slasd8_(integer *icompq, integer *k, real *d__, real *z__, real *vf,
2929  real *vl, real *difl, real *difr, integer *lddifr,
2930  real *dsigma, real *work, integer *info);
2931 extern int slasd9_(integer *icompq, integer *ldu, integer *k, real *d__,
2932  real *z__, real *vf, real *vl, real *difl, real *difr,
2933  real *dsigma, real *work, integer *info);
2934 extern int slasda_(integer *icompq, integer *smlsiz, integer *n, integer *sqre,
2935  real *d__, real *e, real *u, integer *ldu, real *vt,
2936  integer *k, real *difl, real *difr, real *z__, real *poles,
2937  integer *givptr, integer *givcol, integer *ldgcol,
2938  integer *perm, real *givnum, real *c__, real *s, real *work,
2939  integer *iwork, integer *info);
2940 extern int slasdq_(char *uplo, integer *sqre, integer *n, integer *ncvt,
2941  integer *nru, integer *ncc, real *d__, real *e, real *vt,
2942  integer *ldvt, real *u, integer *ldu, real *c__,
2943  integer *ldc, real *work, integer *info, ftnlen uplo_len);
2944 extern int slasdt_(integer *n, integer *lvl, integer *nd, integer *inode,
2945  integer *ndiml, integer *ndimr, integer *msub);
2946 extern int slaset_(char *uplo, integer *m, integer *n, real *alpha, real *beta,
2947  real *a, integer *lda, ftnlen uplo_len);
2948 extern int slasq1_(integer *n, real *d__, real *e, real *work, integer *info);
2949 extern int slasq2_(integer *n, real *z__, integer *info);
2950 extern int slasq3_(integer *i0, integer *n0, real *z__, integer *pp,
2951  real *dmin__, real *sigma, real *desig, real *qmax,
2952  integer *nfail, integer *iter, integer *ndiv);
2953 extern int slasq4_(integer *i0, integer *n0, real *z__, integer *pp,
2954  integer *n0in, real *dmin__, real *dmin1, real *dmin2,
2955  real *dn, real *dn1, real *dn2, real *tau, integer *ttype);
2956 extern int slasq5_(integer *i0, integer *n0, real *z__, integer *pp, real *tau,
2957  real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1,
2958  real *dnm2);
2959 extern int slasq6_(integer *i0, integer *n0, real *z__, integer *pp,
2960  real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1,
2961  real *dnm2);
2962 extern int slasr_(char *side, char *pivot, char *direct, integer *m, integer *n,
2963  real *c__, real *s, real *a, integer *lda, ftnlen side_len,
2964  ftnlen pivot_len, ftnlen direct_len);
2965 extern int slasrt_(char *id, integer *n, real *d__, integer *info,
2966  ftnlen id_len);
2967 extern int slassq_(integer *n, real *x, integer *incx, real *scale,
2968  real *sumsq);
2969 extern int slasv2_(real *f, real *g, real *h__, real *ssmin, real *ssmax,
2970  real *snr, real *csr, real *snl, real *csl);
2971 extern int slaswp_(integer *n, real *a, integer *lda, integer *k1, integer *k2,
2972  integer *ipiv, integer *incx);
2973 extern int slasy2_(logical *ltranl, logical *ltranr, integer *isgn, integer *n1,
2974  integer *n2, real *tl, integer *ldtl, real *tr,
2975  integer *ldtr, real *b, integer *ldb, real *scale, real *x,
2976  integer *ldx, real *xnorm, integer *info);
2977 extern int slasyf_(char *uplo, integer *n, integer *nb, integer *kb, real *a,
2978  integer *lda, integer *ipiv, real *w, integer *ldw,
2979  integer *info, ftnlen uplo_len);
2980 extern int slatbs_(char *uplo, char *trans, char *diag, char *normin,
2981  integer *n, integer *kd, real *ab, integer *ldab, real *x,
2982  real *scale, real *cnorm, integer *info, ftnlen uplo_len,
2983  ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
2984 extern int slatdf_(integer *ijob, integer *n, real *z__, integer *ldz,
2985  real *rhs, real *rdsum, real *rdscal, integer *ipiv,
2986  integer *jpiv);
2987 extern int slatps_(char *uplo, char *trans, char *diag, char *normin,
2988  integer *n, real *ap, real *x, real *scale, real *cnorm,
2989  integer *info, ftnlen uplo_len, ftnlen trans_len,
2990  ftnlen diag_len, ftnlen normin_len);
2991 extern int slatrd_(char *uplo, integer *n, integer *nb, real *a, integer *lda,
2992  real *e, real *tau, real *w, integer *ldw, ftnlen uplo_len);
2993 extern int slatrs_(char *uplo, char *trans, char *diag, char *normin,
2994  integer *n, real *a, integer *lda, real *x, real *scale,
2995  real *cnorm, integer *info, ftnlen uplo_len,
2996  ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
2997 extern int slatrz_(integer *m, integer *n, integer *l, real *a, integer *lda,
2998  real *tau, real *work);
2999 extern int slatzm_(char *side, integer *m, integer *n, real *v, integer *incv,
3000  real *tau, real *c1, real *c2, integer *ldc, real *work,
3001  ftnlen side_len);
3002 extern int slauu2_(char *uplo, integer *n, real *a, integer *lda, integer *info,
3003  ftnlen uplo_len);
3004 extern int slauum_(char *uplo, integer *n, real *a, integer *lda, integer *info,
3005  ftnlen uplo_len);
3006 extern int sopgtr_(char *uplo, integer *n, real *ap, real *tau, real *q,
3007  integer *ldq, real *work, integer *info, ftnlen uplo_len);
3008 extern int sopmtr_(char *side, char *uplo, char *trans, integer *m, integer *n,
3009  real *ap, real *tau, real *c__, integer *ldc, real *work,
3010  integer *info, ftnlen side_len, ftnlen uplo_len,
3011  ftnlen trans_len);
3012 extern int sorg2l_(integer *m, integer *n, integer *k, real *a, integer *lda,
3013  real *tau, real *work, integer *info);
3014 extern int sorg2r_(integer *m, integer *n, integer *k, real *a, integer *lda,
3015  real *tau, real *work, integer *info);
3016 extern int sorgbr_(char *vect, integer *m, integer *n, integer *k, real *a,
3017  integer *lda, real *tau, real *work, integer *lwork,
3018  integer *info, ftnlen vect_len);
3019 extern int sorghr_(integer *n, integer *ilo, integer *ihi, real *a,
3020  integer *lda, real *tau, real *work, integer *lwork,
3021  integer *info);
3022 extern int sorgl2_(integer *m, integer *n, integer *k, real *a, integer *lda,
3023  real *tau, real *work, integer *info);
3024 extern int sorglq_(integer *m, integer *n, integer *k, real *a, integer *lda,
3025  real *tau, real *work, integer *lwork, integer *info);
3026 extern int sorgql_(integer *m, integer *n, integer *k, real *a, integer *lda,
3027  real *tau, real *work, integer *lwork, integer *info);
3028 extern int sorgqr_(integer *m, integer *n, integer *k, real *a, integer *lda,
3029  real *tau, real *work, integer *lwork, integer *info);
3030 extern int sorgr2_(integer *m, integer *n, integer *k, real *a, integer *lda,
3031  real *tau, real *work, integer *info);
3032 extern int sorgrq_(integer *m, integer *n, integer *k, real *a, integer *lda,
3033  real *tau, real *work, integer *lwork, integer *info);
3034 extern int sorgtr_(char *uplo, integer *n, real *a, integer *lda, real *tau,
3035  real *work, integer *lwork, integer *info, ftnlen uplo_len);
3036 extern int sorm2l_(char *side, char *trans, integer *m, integer *n, integer *k,
3037  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3038  real *work, integer *info, ftnlen side_len,
3039  ftnlen trans_len);
3040 extern int sorm2r_(char *side, char *trans, integer *m, integer *n, integer *k,
3041  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3042  real *work, integer *info, ftnlen side_len,
3043  ftnlen trans_len);
3044 extern int sormbr_(char *vect, char *side, char *trans, integer *m, integer *n,
3045  integer *k, real *a, integer *lda, real *tau, real *c__,
3046  integer *ldc, real *work, integer *lwork, integer *info,
3047  ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
3048 extern int sormhr_(char *side, char *trans, integer *m, integer *n,
3049  integer *ilo, integer *ihi, real *a, integer *lda, real *tau,
3050  real *c__, integer *ldc, real *work, integer *lwork,
3051  integer *info, ftnlen side_len, ftnlen trans_len);
3052 extern int sorml2_(char *side, char *trans, integer *m, integer *n, integer *k,
3053  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3054  real *work, integer *info, ftnlen side_len,
3055  ftnlen trans_len);
3056 extern int sormlq_(char *side, char *trans, integer *m, integer *n, integer *k,
3057  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3058  real *work, integer *lwork, integer *info, ftnlen side_len,
3059  ftnlen trans_len);
3060 extern int sormql_(char *side, char *trans, integer *m, integer *n, integer *k,
3061  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3062  real *work, integer *lwork, integer *info, ftnlen side_len,
3063  ftnlen trans_len);
3064 extern int sormqr_(char *side, char *trans, integer *m, integer *n, integer *k,
3065  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3066  real *work, integer *lwork, integer *info, ftnlen side_len,
3067  ftnlen trans_len);
3068 extern int sormr2_(char *side, char *trans, integer *m, integer *n, integer *k,
3069  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3070  real *work, integer *info, ftnlen side_len,
3071  ftnlen trans_len);
3072 extern int sormr3_(char *side, char *trans, integer *m, integer *n, integer *k,
3073  integer *l, real *a, integer *lda, real *tau, real *c__,
3074  integer *ldc, real *work, integer *info, ftnlen side_len,
3075  ftnlen trans_len);
3076 extern int sormrq_(char *side, char *trans, integer *m, integer *n, integer *k,
3077  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3078  real *work, integer *lwork, integer *info, ftnlen side_len,
3079  ftnlen trans_len);
3080 extern int sormrz_(char *side, char *trans, integer *m, integer *n, integer *k,
3081  integer *l, real *a, integer *lda, real *tau, real *c__,
3082  integer *ldc, real *work, integer *lwork, integer *info,
3083  ftnlen side_len, ftnlen trans_len);
3084 extern int sormtr_(char *side, char *uplo, char *trans, integer *m, integer *n,
3085  real *a, integer *lda, real *tau, real *c__, integer *ldc,
3086  real *work, integer *lwork, integer *info, ftnlen side_len,
3087  ftnlen uplo_len, ftnlen trans_len);
3088 extern int spbcon_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab,
3089  real *anorm, real *rcond, real *work, integer *iwork,
3090  integer *info, ftnlen uplo_len);
3091 extern int spbequ_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab,
3092  real *s, real *scond, real *amax, integer *info,
3093  ftnlen uplo_len);
3094 extern int spbrfs_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab,
3095  integer *ldab, real *afb, integer *ldafb, real *b,
3096  integer *ldb, real *x, integer *ldx, real *ferr, real *berr,
3097  real *work, integer *iwork, integer *info, ftnlen uplo_len);
3098 extern int spbstf_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab,
3099  integer *info, ftnlen uplo_len);
3100 extern int spbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab,
3101  integer *ldab, real *b, integer *ldb, integer *info,
3102  ftnlen uplo_len);
3103 extern int spbsvx_(char *fact, char *uplo, integer *n, integer *kd,
3104  integer *nrhs, real *ab, integer *ldab, real *afb,
3105  integer *ldafb, char *equed, real *s, real *b, integer *ldb,
3106  real *x, integer *ldx, real *rcond, real *ferr, real *berr,
3107  real *work, integer *iwork, integer *info, ftnlen fact_len,
3108  ftnlen uplo_len, ftnlen equed_len);
3109 extern int spbtf2_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab,
3110  integer *info, ftnlen uplo_len);
3111 extern int spbtrf_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab,
3112  integer *info, ftnlen uplo_len);
3113 extern int spbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab,
3114  integer *ldab, real *b, integer *ldb, integer *info,
3115  ftnlen uplo_len);
3116 extern int spocon_(char *uplo, integer *n, real *a, integer *lda, real *anorm,
3117  real *rcond, real *work, integer *iwork, integer *info,
3118  ftnlen uplo_len);
3119 extern int spoequ_(integer *n, real *a, integer *lda, real *s, real *scond,
3120  real *amax, integer *info);
3121 extern int sporfs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda,
3122  real *af, integer *ldaf, real *b, integer *ldb, real *x,
3123  integer *ldx, real *ferr, real *berr, real *work,
3124  integer *iwork, integer *info, ftnlen uplo_len);
3125 extern int sposv_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda,
3126  real *b, integer *ldb, integer *info, ftnlen uplo_len);
3127 extern int sposvx_(char *fact, char *uplo, integer *n, integer *nrhs, real *a,
3128  integer *lda, real *af, integer *ldaf, char *equed, real *s,
3129  real *b, integer *ldb, real *x, integer *ldx, real *rcond,
3130  real *ferr, real *berr, real *work, integer *iwork,
3131  integer *info, ftnlen fact_len, ftnlen uplo_len,
3132  ftnlen equed_len);
3133 extern int spotf2_(char *uplo, integer *n, real *a, integer *lda, integer *info,
3134  ftnlen uplo_len);
3135 extern int spotrf_(char *uplo, integer *n, real *a, integer *lda, integer *info,
3136  ftnlen uplo_len);
3137 extern int spotri_(char *uplo, integer *n, real *a, integer *lda, integer *info,
3138  ftnlen uplo_len);
3139 extern int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda,
3140  real *b, integer *ldb, integer *info, ftnlen uplo_len);
3141 extern int sppcon_(char *uplo, integer *n, real *ap, real *anorm, real *rcond,
3142  real *work, integer *iwork, integer *info, ftnlen uplo_len);
3143 extern int sppequ_(char *uplo, integer *n, real *ap, real *s, real *scond,
3144  real *amax, integer *info, ftnlen uplo_len);
3145 extern int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap, real *afp,
3146  real *b, integer *ldb, real *x, integer *ldx, real *ferr,
3147  real *berr, real *work, integer *iwork, integer *info,
3148  ftnlen uplo_len);
3149 extern int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, real *b,
3150  integer *ldb, integer *info, ftnlen uplo_len);
3151 extern int sppsvx_(char *fact, char *uplo, integer *n, integer *nrhs, real *ap,
3152  real *afp, char *equed, real *s, real *b, integer *ldb,
3153  real *x, integer *ldx, real *rcond, real *ferr, real *berr,
3154  real *work, integer *iwork, integer *info, ftnlen fact_len,
3155  ftnlen uplo_len, ftnlen equed_len);
3156 extern int spptrf_(char *uplo, integer *n, real *ap, integer *info,
3157  ftnlen uplo_len);
3158 extern int spptri_(char *uplo, integer *n, real *ap, integer *info,
3159  ftnlen uplo_len);
3160 extern int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, real *b,
3161  integer *ldb, integer *info, ftnlen uplo_len);
3162 extern int sptcon_(integer *n, real *d__, real *e, real *anorm, real *rcond,
3163  real *work, integer *info);
3164 extern int spteqr_(char *compz, integer *n, real *d__, real *e, real *z__,
3165  integer *ldz, real *work, integer *info, ftnlen compz_len);
3166 extern int sptrfs_(integer *n, integer *nrhs, real *d__, real *e, real *df,
3167  real *ef, real *b, integer *ldb, real *x, integer *ldx,
3168  real *ferr, real *berr, real *work, integer *info);
3169 extern int sptsv_(integer *n, integer *nrhs, real *d__, real *e, real *b,
3170  integer *ldb, integer *info);
3171 extern int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__, real *e,
3172  real *df, real *ef, real *b, integer *ldb, real *x,
3173  integer *ldx, real *rcond, real *ferr, real *berr,
3174  real *work, integer *info, ftnlen fact_len);
3175 extern int spttrf_(integer *n, real *d__, real *e, integer *info);
3176 extern int spttrs_(integer *n, integer *nrhs, real *d__, real *e, real *b,
3177  integer *ldb, integer *info);
3178 extern int sptts2_(integer *n, integer *nrhs, real *d__, real *e, real *b,
3179  integer *ldb);
3180 extern int srscl_(integer *n, real *sa, real *sx, integer *incx);
3181 extern int ssbev_(char *jobz, char *uplo, integer *n, integer *kd, real *ab,
3182  integer *ldab, real *w, real *z__, integer *ldz, real *work,
3183  integer *info, ftnlen jobz_len, ftnlen uplo_len);
3184 extern int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd, real *ab,
3185  integer *ldab, real *w, real *z__, integer *ldz, real *work,
3186  integer *lwork, integer *iwork, integer *liwork,
3187  integer *info, ftnlen jobz_len, ftnlen uplo_len);
3188 extern int ssbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd,
3189  real *ab, integer *ldab, real *q, integer *ldq, real *vl,
3190  real *vu, integer *il, integer *iu, real *abstol, integer *m,
3191  real *w, real *z__, integer *ldz, real *work, integer *iwork,
3192  integer *ifail, integer *info, ftnlen jobz_len,
3193  ftnlen range_len, ftnlen uplo_len);
3194 extern int ssbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb,
3195  real *ab, integer *ldab, real *bb, integer *ldbb, real *x,
3196  integer *ldx, real *work, integer *info, ftnlen vect_len,
3197  ftnlen uplo_len);
3198 extern int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb,
3199  real *ab, integer *ldab, real *bb, integer *ldbb, real *w,
3200  real *z__, integer *ldz, real *work, integer *info,
3201  ftnlen jobz_len, ftnlen uplo_len);
3202 extern int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb,
3203  real *ab, integer *ldab, real *bb, integer *ldbb, real *w,
3204  real *z__, integer *ldz, real *work, integer *lwork,
3205  integer *iwork, integer *liwork, integer *info,
3206  ftnlen jobz_len, ftnlen uplo_len);
3207 extern int ssbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka,
3208  integer *kb, real *ab, integer *ldab, real *bb,
3209  integer *ldbb, real *q, integer *ldq, real *vl, real *vu,
3210  integer *il, integer *iu, real *abstol, integer *m, real *w,
3211  real *z__, integer *ldz, real *work, integer *iwork,
3212  integer *ifail, integer *info, ftnlen jobz_len,
3213  ftnlen range_len, ftnlen uplo_len);
3214 extern int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd, real *ab,
3215  integer *ldab, real *d__, real *e, real *q, integer *ldq,
3216  real *work, integer *info, ftnlen vect_len, ftnlen uplo_len);
3217 extern int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, real *anorm,
3218  real *rcond, real *work, integer *iwork, integer *info,
3219  ftnlen uplo_len);
3220 extern int sspev_(char *jobz, char *uplo, integer *n, real *ap, real *w,
3221  real *z__, integer *ldz, real *work, integer *info,
3222  ftnlen jobz_len, ftnlen uplo_len);
3223 extern int sspevd_(char *jobz, char *uplo, integer *n, real *ap, real *w,
3224  real *z__, integer *ldz, real *work, integer *lwork,
3225  integer *iwork, integer *liwork, integer *info,
3226  ftnlen jobz_len, ftnlen uplo_len);
3227 extern int sspevx_(char *jobz, char *range, char *uplo, integer *n, real *ap,
3228  real *vl, real *vu, integer *il, integer *iu, real *abstol,
3229  integer *m, real *w, real *z__, integer *ldz, real *work,
3230  integer *iwork, integer *ifail, integer *info,
3231  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
3232 extern int sspgst_(integer *itype, char *uplo, integer *n, real *ap, real *bp,
3233  integer *info, ftnlen uplo_len);
3234 extern int sspgv_(integer *itype, char *jobz, char *uplo, integer *n, real *ap,
3235  real *bp, real *w, real *z__, integer *ldz, real *work,
3236  integer *info, ftnlen jobz_len, ftnlen uplo_len);
3237 extern int sspgvd_(integer *itype, char *jobz, char *uplo, integer *n, real *ap,
3238  real *bp, real *w, real *z__, integer *ldz, real *work,
3239  integer *lwork, integer *iwork, integer *liwork,
3240  integer *info, ftnlen jobz_len, ftnlen uplo_len);
3241 extern int sspgvx_(integer *itype, char *jobz, char *range, char *uplo,
3242  integer *n, real *ap, real *bp, real *vl, real *vu,
3243  integer *il, integer *iu, real *abstol, integer *m, real *w,
3244  real *z__, integer *ldz, real *work, integer *iwork,
3245  integer *ifail, integer *info, ftnlen jobz_len,
3246  ftnlen range_len, ftnlen uplo_len);
3247 extern int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap, real *afp,
3248  integer *ipiv, real *b, integer *ldb, real *x, integer *ldx,
3249  real *ferr, real *berr, real *work, integer *iwork,
3250  integer *info, ftnlen uplo_len);
3251 extern int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap,
3252  integer *ipiv, real *b, integer *ldb, integer *info,
3253  ftnlen uplo_len);
3254 extern int sspsvx_(char *fact, char *uplo, integer *n, integer *nrhs, real *ap,
3255  real *afp, integer *ipiv, real *b, integer *ldb, real *x,
3256  integer *ldx, real *rcond, real *ferr, real *berr,
3257  real *work, integer *iwork, integer *info, ftnlen fact_len,
3258  ftnlen uplo_len);
3259 extern int ssptrd_(char *uplo, integer *n, real *ap, real *d__, real *e,
3260  real *tau, integer *info, ftnlen uplo_len);
3261 extern int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv,
3262  integer *info, ftnlen uplo_len);
3263 extern int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, real *work,
3264  integer *info, ftnlen uplo_len);
3265 extern int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
3266  integer *ipiv, real *b, integer *ldb, integer *info,
3267  ftnlen uplo_len);
3268 extern int sstebz_(char *range, char *order, integer *n, real *vl, real *vu,
3269  integer *il, integer *iu, real *abstol, real *d__, real *e,
3270  integer *m, integer *nsplit, real *w, integer *iblock,
3271  integer *isplit, real *work, integer *iwork, integer *info,
3272  ftnlen range_len, ftnlen order_len);
3273 extern int sstedc_(char *compz, integer *n, real *d__, real *e, real *z__,
3274  integer *ldz, real *work, integer *lwork, integer *iwork,
3275  integer *liwork, integer *info, ftnlen compz_len);
3276 extern int sstegr_(char *jobz, char *range, integer *n, real *d__, real *e,
3277  real *vl, real *vu, integer *il, integer *iu, real *abstol,
3278  integer *m, real *w, real *z__, integer *ldz,
3279  integer *isuppz, real *work, integer *lwork, integer *iwork,
3280  integer *liwork, integer *info, ftnlen jobz_len,
3281  ftnlen range_len);
3282 extern int sstein_(integer *n, real *d__, real *e, integer *m, real *w,
3283  integer *iblock, integer *isplit, real *z__, integer *ldz,
3284  real *work, integer *iwork, integer *ifail, integer *info);
3285 extern int ssteqr_(char *compz, integer *n, real *d__, real *e, real *z__,
3286  integer *ldz, real *work, integer *info, ftnlen compz_len);
3287 extern int ssterf_(integer *n, real *d__, real *e, integer *info);
3288 extern int sstev_(char *jobz, integer *n, real *d__, real *e, real *z__,
3289  integer *ldz, real *work, integer *info, ftnlen jobz_len);
3290 extern int sstevd_(char *jobz, integer *n, real *d__, real *e, real *z__,
3291  integer *ldz, real *work, integer *lwork, integer *iwork,
3292  integer *liwork, integer *info, ftnlen jobz_len);
3293 extern int sstevr_(char *jobz, char *range, integer *n, real *d__, real *e,
3294  real *vl, real *vu, integer *il, integer *iu, real *abstol,
3295  integer *m, real *w, real *z__, integer *ldz,
3296  integer *isuppz, real *work, integer *lwork, integer *iwork,
3297  integer *liwork, integer *info, ftnlen jobz_len,
3298  ftnlen range_len);
3299 extern int sstevx_(char *jobz, char *range, integer *n, real *d__, real *e,
3300  real *vl, real *vu, integer *il, integer *iu, real *abstol,
3301  integer *m, real *w, real *z__, integer *ldz, real *work,
3302  integer *iwork, integer *ifail, integer *info,
3303  ftnlen jobz_len, ftnlen range_len);
3304 extern int ssycon_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv,
3305  real *anorm, real *rcond, real *work, integer *iwork,
3306  integer *info, ftnlen uplo_len);
3307 extern int ssyev_(char *jobz, char *uplo, integer *n, real *a, integer *lda,
3308  real *w, real *work, integer *lwork, integer *info,
3309  ftnlen jobz_len, ftnlen uplo_len);
3310 extern int ssyevd_(char *jobz, char *uplo, integer *n, real *a, integer *lda,
3311  real *w, real *work, integer *lwork, integer *iwork,
3312  integer *liwork, integer *info, ftnlen jobz_len,
3313  ftnlen uplo_len);
3314 extern int ssyevr_(char *jobz, char *range, char *uplo, integer *n, real *a,
3315  integer *lda, real *vl, real *vu, integer *il, integer *iu,
3316  real *abstol, integer *m, real *w, real *z__, integer *ldz,
3317  integer *isuppz, real *work, integer *lwork, integer *iwork,
3318  integer *liwork, integer *info, ftnlen jobz_len,
3319  ftnlen range_len, ftnlen uplo_len);
3320 extern int ssyevx_(char *jobz, char *range, char *uplo, integer *n, real *a,
3321  integer *lda, real *vl, real *vu, integer *il, integer *iu,
3322  real *abstol, integer *m, real *w, real *z__, integer *ldz,
3323  real *work, integer *lwork, integer *iwork, integer *ifail,
3324  integer *info, ftnlen jobz_len, ftnlen range_len,
3325  ftnlen uplo_len);
3326 extern int ssygs2_(integer *itype, char *uplo, integer *n, real *a,
3327  integer *lda, real *b, integer *ldb, integer *info,
3328  ftnlen uplo_len);
3329 extern int ssygst_(integer *itype, char *uplo, integer *n, real *a,
3330  integer *lda, real *b, integer *ldb, integer *info,
3331  ftnlen uplo_len);
3332 extern int ssygv_(integer *itype, char *jobz, char *uplo, integer *n, real *a,
3333  integer *lda, real *b, integer *ldb, real *w, real *work,
3334  integer *lwork, integer *info, ftnlen jobz_len,
3335  ftnlen uplo_len);
3336 extern int ssygvd_(integer *itype, char *jobz, char *uplo, integer *n, real *a,
3337  integer *lda, real *b, integer *ldb, real *w, real *work,
3338  integer *lwork, integer *iwork, integer *liwork,
3339  integer *info, ftnlen jobz_len, ftnlen uplo_len);
3340 extern int ssygvx_(integer *itype, char *jobz, char *range, char *uplo,
3341  integer *n, real *a, integer *lda, real *b, integer *ldb,
3342  real *vl, real *vu, integer *il, integer *iu, real *abstol,
3343  integer *m, real *w, real *z__, integer *ldz, real *work,
3344  integer *lwork, integer *iwork, integer *ifail,
3345  integer *info, ftnlen jobz_len, ftnlen range_len,
3346  ftnlen uplo_len);
3347 extern int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda,
3348  real *af, integer *ldaf, integer *ipiv, real *b,
3349  integer *ldb, real *x, integer *ldx, real *ferr, real *berr,
3350  real *work, integer *iwork, integer *info, ftnlen uplo_len);
3351 extern int ssysv_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda,
3352  integer *ipiv, real *b, integer *ldb, real *work,
3353  integer *lwork, integer *info, ftnlen uplo_len);
3354 extern int ssysvx_(char *fact, char *uplo, integer *n, integer *nrhs, real *a,
3355  integer *lda, real *af, integer *ldaf, integer *ipiv,
3356  real *b, integer *ldb, real *x, integer *ldx, real *rcond,
3357  real *ferr, real *berr, real *work, integer *lwork,
3358  integer *iwork, integer *info, ftnlen fact_len,
3359  ftnlen uplo_len);
3360 extern int ssytd2_(char *uplo, integer *n, real *a, integer *lda, real *d__,
3361  real *e, real *tau, integer *info, ftnlen uplo_len);
3362 extern int ssytf2_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv,
3363  integer *info, ftnlen uplo_len);
3364 extern int ssytrd_(char *uplo, integer *n, real *a, integer *lda, real *d__,
3365  real *e, real *tau, real *work, integer *lwork,
3366  integer *info, ftnlen uplo_len);
3367 extern int ssytrf_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv,
3368  real *work, integer *lwork, integer *info, ftnlen uplo_len);
3369 extern int ssytri_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv,
3370  real *work, integer *info, ftnlen uplo_len);
3371 extern int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda,
3372  integer *ipiv, real *b, integer *ldb, integer *info,
3373  ftnlen uplo_len);
3374 extern int stbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd,
3375  real *ab, integer *ldab, real *rcond, real *work,
3376  integer *iwork, integer *info, ftnlen norm_len,
3377  ftnlen uplo_len, ftnlen diag_len);
3378 extern int stbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd,
3379  integer *nrhs, real *ab, integer *ldab, real *b,
3380  integer *ldb, real *x, integer *ldx, real *ferr, real *berr,
3381  real *work, integer *iwork, integer *info, ftnlen uplo_len,
3382  ftnlen trans_len, ftnlen diag_len);
3383 extern int stbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd,
3384  integer *nrhs, real *ab, integer *ldab, real *b,
3385  integer *ldb, integer *info, ftnlen uplo_len,
3386  ftnlen trans_len, ftnlen diag_len);
3387 extern int stgevc_(char *side, char *howmny, logical *select, integer *n,
3388  real *a, integer *lda, real *b, integer *ldb, real *vl,
3389  integer *ldvl, real *vr, integer *ldvr, integer *mm,
3390  integer *m, real *work, integer *info, ftnlen side_len,
3391  ftnlen howmny_len);
3392 extern int stgex2_(logical *wantq, logical *wantz, integer *n, real *a,
3393  integer *lda, real *b, integer *ldb, real *q, integer *ldq,
3394  real *z__, integer *ldz, integer *j1, integer *n1,
3395  integer *n2, real *work, integer *lwork, integer *info);
3396 extern int stgexc_(logical *wantq, logical *wantz, integer *n, real *a,
3397  integer *lda, real *b, integer *ldb, real *q, integer *ldq,
3398  real *z__, integer *ldz, integer *ifst, integer *ilst,
3399  real *work, integer *lwork, integer *info);
3400 extern int stgsen_(integer *ijob, logical *wantq, logical *wantz,
3401  logical *select, integer *n, real *a, integer *lda, real *b,
3402  integer *ldb, real *alphar, real *alphai, real *beta,
3403  real *q, integer *ldq, real *z__, integer *ldz, integer *m,
3404  real *pl, real *pr, real *dif, real *work, integer *lwork,
3405  integer *iwork, integer *liwork, integer *info);
3406 extern int stgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p,
3407  integer *n, integer *k, integer *l, real *a, integer *lda,
3408  real *b, integer *ldb, real *tola, real *tolb, real *alpha,
3409  real *beta, real *u, integer *ldu, real *v, integer *ldv,
3410  real *q, integer *ldq, real *work, integer *ncycle,
3411  integer *info, ftnlen jobu_len, ftnlen jobv_len,
3412  ftnlen jobq_len);
3413 extern int stgsna_(char *job, char *howmny, logical *select, integer *n,
3414  real *a, integer *lda, real *b, integer *ldb, real *vl,
3415  integer *ldvl, real *vr, integer *ldvr, real *s, real *dif,
3416  integer *mm, integer *m, real *work, integer *lwork,
3417  integer *iwork, integer *info, ftnlen job_len,
3418  ftnlen howmny_len);
3419 extern int stgsy2_(char *trans, integer *ijob, integer *m, integer *n, real *a,
3420  integer *lda, real *b, integer *ldb, real *c__, integer *ldc,
3421  real *d__, integer *ldd, real *e, integer *lde, real *f,
3422  integer *ldf, real *scale, real *rdsum, real *rdscal,
3423  integer *iwork, integer *pq, integer *info,
3424  ftnlen trans_len);
3425 extern int stgsyl_(char *trans, integer *ijob, integer *m, integer *n, real *a,
3426  integer *lda, real *b, integer *ldb, real *c__, integer *ldc,
3427  real *d__, integer *ldd, real *e, integer *lde, real *f,
3428  integer *ldf, real *scale, real *dif, real *work,
3429  integer *lwork, integer *iwork, integer *info,
3430  ftnlen trans_len);
3431 extern int stpcon_(char *norm, char *uplo, char *diag, integer *n, real *ap,
3432  real *rcond, real *work, integer *iwork, integer *info,
3433  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
3434 extern int stprfs_(char *uplo, char *trans, char *diag, integer *n,
3435  integer *nrhs, real *ap, real *b, integer *ldb, real *x,
3436  integer *ldx, real *ferr, real *berr, real *work,
3437  integer *iwork, integer *info, ftnlen uplo_len,
3438  ftnlen trans_len, ftnlen diag_len);
3439 extern int stptri_(char *uplo, char *diag, integer *n, real *ap, integer *info,
3440  ftnlen uplo_len, ftnlen diag_len);
3441 extern int stptrs_(char *uplo, char *trans, char *diag, integer *n,
3442  integer *nrhs, real *ap, real *b, integer *ldb,
3443  integer *info, ftnlen uplo_len, ftnlen trans_len,
3444  ftnlen diag_len);
3445 extern int strcon_(char *norm, char *uplo, char *diag, integer *n, real *a,
3446  integer *lda, real *rcond, real *work, integer *iwork,
3447  integer *info, ftnlen norm_len, ftnlen uplo_len,
3448  ftnlen diag_len);
3449 extern int strevc_(char *side, char *howmny, logical *select, integer *n,
3450  real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
3451  integer *ldvr, integer *mm, integer *m, real *work,
3452  integer *info, ftnlen side_len, ftnlen howmny_len);
3453 extern int strexc_(char *compq, integer *n, real *t, integer *ldt, real *q,
3454  integer *ldq, integer *ifst, integer *ilst, real *work,
3455  integer *info, ftnlen compq_len);
3456 extern int strrfs_(char *uplo, char *trans, char *diag, integer *n,
3457  integer *nrhs, real *a, integer *lda, real *b, integer *ldb,
3458  real *x, integer *ldx, real *ferr, real *berr, real *work,
3459  integer *iwork, integer *info, ftnlen uplo_len,
3460  ftnlen trans_len, ftnlen diag_len);
3461 extern int strsen_(char *job, char *compq, logical *select, integer *n, real *t,
3462  integer *ldt, real *q, integer *ldq, real *wr, real *wi,
3463  integer *m, real *s, real *sep, real *work, integer *lwork,
3464  integer *iwork, integer *liwork, integer *info,
3465  ftnlen job_len, ftnlen compq_len);
3466 extern int strsna_(char *job, char *howmny, logical *select, integer *n,
3467  real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
3468  integer *ldvr, real *s, real *sep, integer *mm, integer *m,
3469  real *work, integer *ldwork, integer *iwork, integer *info,
3470  ftnlen job_len, ftnlen howmny_len);
3471 extern int strsyl_(char *trana, char *tranb, integer *isgn, integer *m,
3472  integer *n, real *a, integer *lda, real *b, integer *ldb,
3473  real *c__, integer *ldc, real *scale, integer *info,
3474  ftnlen trana_len, ftnlen tranb_len);
3475 extern int strti2_(char *uplo, char *diag, integer *n, real *a, integer *lda,
3476  integer *info, ftnlen uplo_len, ftnlen diag_len);
3477 extern int strtri_(char *uplo, char *diag, integer *n, real *a, integer *lda,
3478  integer *info, ftnlen uplo_len, ftnlen diag_len);
3479 extern int strtrs_(char *uplo, char *trans, char *diag, integer *n,
3480  integer *nrhs, real *a, integer *lda, real *b, integer *ldb,
3481  integer *info, ftnlen uplo_len, ftnlen trans_len,
3482  ftnlen diag_len);
3483 extern int stzrqf_(integer *m, integer *n, real *a, integer *lda, real *tau,
3484  integer *info);
3485 extern int stzrzf_(integer *m, integer *n, real *a, integer *lda, real *tau,
3486  real *work, integer *lwork, integer *info);
3487 extern int xerbla_(char *srname, integer *info, ftnlen srname_len);
3488 extern int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer *nru,
3489  integer *ncc, doublereal *d__, doublereal *e,
3490  doublecomplex *vt, integer *ldvt, doublecomplex *u,
3491  integer *ldu, doublecomplex *c__, integer *ldc,
3492  doublereal *rwork, integer *info, ftnlen uplo_len);
3493 extern int zdrot_(integer *n, doublecomplex *cx, integer *incx,
3494  doublecomplex *cy, integer *incy, doublereal *c__,
3495  doublereal *s);
3496 extern int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx,
3497  integer *incx);
3498 extern int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
3499  integer *kl, integer *ku, doublecomplex *ab, integer *ldab,
3500  doublereal *d__, doublereal *e, doublecomplex *q,
3501  integer *ldq, doublecomplex *pt, integer *ldpt,
3502  doublecomplex *c__, integer *ldc, doublecomplex *work,
3503  doublereal *rwork, integer *info, ftnlen vect_len);
3504 extern int zgbcon_(char *norm, integer *n, integer *kl, integer *ku,
3505  doublecomplex *ab, integer *ldab, integer *ipiv,
3506  doublereal *anorm, doublereal *rcond, doublecomplex *work,
3507  doublereal *rwork, integer *info, ftnlen norm_len);
3508 extern int zgbequ_(integer *m, integer *n, integer *kl, integer *ku,
3509  doublecomplex *ab, integer *ldab, doublereal *r__,
3510  doublereal *c__, doublereal *rowcnd, doublereal *colcnd,
3511  doublereal *amax, integer *info);
3512 extern int zgbrfs_(char *trans, integer *n, integer *kl, integer *ku,
3513  integer *nrhs, doublecomplex *ab, integer *ldab,
3514  doublecomplex *afb, integer *ldafb, integer *ipiv,
3515  doublecomplex *b, integer *ldb, doublecomplex *x,
3516  integer *ldx, doublereal *ferr, doublereal *berr,
3517  doublecomplex *work, doublereal *rwork, integer *info,
3518  ftnlen trans_len);
3519 extern int zgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs,
3520  doublecomplex *ab, integer *ldab, integer *ipiv,
3521  doublecomplex *b, integer *ldb, integer *info);
3522 extern int zgbsvx_(char *fact, char *trans, integer *n, integer *kl,
3523  integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
3524  doublecomplex *afb, integer *ldafb, integer *ipiv,
3525  char *equed, doublereal *r__, doublereal *c__,
3526  doublecomplex *b, integer *ldb, doublecomplex *x,
3527  integer *ldx, doublereal *rcond, doublereal *ferr,
3528  doublereal *berr, doublecomplex *work, doublereal *rwork,
3529  integer *info, ftnlen fact_len, ftnlen trans_len,
3530  ftnlen equed_len);
3531 extern int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
3532  doublecomplex *ab, integer *ldab, integer *ipiv,
3533  integer *info);
3534 extern int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
3535  doublecomplex *ab, integer *ldab, integer *ipiv,
3536  integer *info);
3537 extern int zgbtrs_(char *trans, integer *n, integer *kl, integer *ku,
3538  integer *nrhs, doublecomplex *ab, integer *ldab,
3539  integer *ipiv, doublecomplex *b, integer *ldb, integer *info,
3540  ftnlen trans_len);
3541 extern int zgebak_(char *job, char *side, integer *n, integer *ilo,
3542  integer *ihi, doublereal *scale, integer *m,
3543  doublecomplex *v, integer *ldv, integer *info,
3544  ftnlen job_len, ftnlen side_len);
3545 extern int zgebal_(char *job, integer *n, doublecomplex *a, integer *lda,
3546  integer *ilo, integer *ihi, doublereal *scale, integer *info,
3547  ftnlen job_len);
3548 extern int zgebd2_(integer *m, integer *n, doublecomplex *a, integer *lda,
3549  doublereal *d__, doublereal *e, doublecomplex *tauq,
3550  doublecomplex *taup, doublecomplex *work, integer *info);
3551 extern int zgebrd_(integer *m, integer *n, doublecomplex *a, integer *lda,
3552  doublereal *d__, doublereal *e, doublecomplex *tauq,
3553  doublecomplex *taup, doublecomplex *work, integer *lwork,
3554  integer *info);
3555 extern int zgecon_(char *norm, integer *n, doublecomplex *a, integer *lda,
3556  doublereal *anorm, doublereal *rcond, doublecomplex *work,
3557  doublereal *rwork, integer *info, ftnlen norm_len);
3558 extern int zgeequ_(integer *m, integer *n, doublecomplex *a, integer *lda,
3559  doublereal *r__, doublereal *c__, doublereal *rowcnd,
3560  doublereal *colcnd, doublereal *amax, integer *info);
3561 extern int zgees_(char *jobvs, char *sort, L_fp select, integer *n,
3562  doublecomplex *a, integer *lda, integer *sdim,
3563  doublecomplex *w, doublecomplex *vs, integer *ldvs,
3564  doublecomplex *work, integer *lwork, doublereal *rwork,
3565  logical *bwork, integer *info, ftnlen jobvs_len,
3566  ftnlen sort_len);
3567 extern int zgeesx_(char *jobvs, char *sort, L_fp select, char *sense,
3568  integer *n, doublecomplex *a, integer *lda, integer *sdim,
3569  doublecomplex *w, doublecomplex *vs, integer *ldvs,
3570  doublereal *rconde, doublereal *rcondv, doublecomplex *work,
3571  integer *lwork, doublereal *rwork, logical *bwork,
3572  integer *info, ftnlen jobvs_len, ftnlen sort_len,
3573  ftnlen sense_len);
3574 extern int zgeev_(char *jobvl, char *jobvr, integer *n, doublecomplex *a,
3575  integer *lda, doublecomplex *w, doublecomplex *vl,
3576  integer *ldvl, doublecomplex *vr, integer *ldvr,
3577  doublecomplex *work, integer *lwork, doublereal *rwork,
3578  integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
3579 extern int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
3580  integer *n, doublecomplex *a, integer *lda, doublecomplex *w,
3581  doublecomplex *vl, integer *ldvl, doublecomplex *vr,
3582  integer *ldvr, integer *ilo, integer *ihi, doublereal *scale,
3583  doublereal *abnrm, doublereal *rconde, doublereal *rcondv,
3584  doublecomplex *work, integer *lwork, doublereal *rwork,
3585  integer *info, ftnlen balanc_len, ftnlen jobvl_len,
3586  ftnlen jobvr_len, ftnlen sense_len);
3587 extern int zgegs_(char *jobvsl, char *jobvsr, integer *n, doublecomplex *a,
3588  integer *lda, doublecomplex *b, integer *ldb,
3589  doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl,
3590  integer *ldvsl, doublecomplex *vsr, integer *ldvsr,
3591  doublecomplex *work, integer *lwork, doublereal *rwork,
3592  integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len);
3593 extern int zgegv_(char *jobvl, char *jobvr, integer *n, doublecomplex *a,
3594  integer *lda, doublecomplex *b, integer *ldb,
3595  doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl,
3596  integer *ldvl, doublecomplex *vr, integer *ldvr,
3597  doublecomplex *work, integer *lwork, doublereal *rwork,
3598  integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
3599 extern int zgehd2_(integer *n, integer *ilo, integer *ihi, doublecomplex *a,
3600  integer *lda, doublecomplex *tau, doublecomplex *work,
3601  integer *info);
3602 extern int zgehrd_(integer *n, integer *ilo, integer *ihi, doublecomplex *a,
3603  integer *lda, doublecomplex *tau, doublecomplex *work,
3604  integer *lwork, integer *info);
3605 extern int zgelq2_(integer *m, integer *n, doublecomplex *a, integer *lda,
3606  doublecomplex *tau, doublecomplex *work, integer *info);
3607 extern int zgelqf_(integer *m, integer *n, doublecomplex *a, integer *lda,
3608  doublecomplex *tau, doublecomplex *work, integer *lwork,
3609  integer *info);
3610 extern int zgels_(char *trans, integer *m, integer *n, integer *nrhs,
3611  doublecomplex *a, integer *lda, doublecomplex *b,
3612  integer *ldb, doublecomplex *work, integer *lwork,
3613  integer *info, ftnlen trans_len);
3614 extern int zgelsd_(integer *m, integer *n, integer *nrhs, doublecomplex *a,
3615  integer *lda, doublecomplex *b, integer *ldb, doublereal *s,
3616  doublereal *rcond, integer *rank, doublecomplex *work,
3617  integer *lwork, doublereal *rwork, integer *iwork,
3618  integer *info);
3619 extern int zgelss_(integer *m, integer *n, integer *nrhs, doublecomplex *a,
3620  integer *lda, doublecomplex *b, integer *ldb, doublereal *s,
3621  doublereal *rcond, integer *rank, doublecomplex *work,
3622  integer *lwork, doublereal *rwork, integer *info);
3623 extern int zgelsx_(integer *m, integer *n, integer *nrhs, doublecomplex *a,
3624  integer *lda, doublecomplex *b, integer *ldb, integer *jpvt,
3625  doublereal *rcond, integer *rank, doublecomplex *work,
3626  doublereal *rwork, integer *info);
3627 extern int zgelsy_(integer *m, integer *n, integer *nrhs, doublecomplex *a,
3628  integer *lda, doublecomplex *b, integer *ldb, integer *jpvt,
3629  doublereal *rcond, integer *rank, doublecomplex *work,
3630  integer *lwork, doublereal *rwork, integer *info);
3631 extern int zgeql2_(integer *m, integer *n, doublecomplex *a, integer *lda,
3632  doublecomplex *tau, doublecomplex *work, integer *info);
3633 extern int zgeqlf_(integer *m, integer *n, doublecomplex *a, integer *lda,
3634  doublecomplex *tau, doublecomplex *work, integer *lwork,
3635  integer *info);
3636 extern int zgeqp3_(integer *m, integer *n, doublecomplex *a, integer *lda,
3637  integer *jpvt, doublecomplex *tau, doublecomplex *work,
3638  integer *lwork, doublereal *rwork, integer *info);
3639 extern int zgeqpf_(integer *m, integer *n, doublecomplex *a, integer *lda,
3640  integer *jpvt, doublecomplex *tau, doublecomplex *work,
3641  doublereal *rwork, integer *info);
3642 extern int zgeqr2_(integer *m, integer *n, doublecomplex *a, integer *lda,
3643  doublecomplex *tau, doublecomplex *work, integer *info);
3644 extern int zgeqrf_(integer *m, integer *n, doublecomplex *a, integer *lda,
3645  doublecomplex *tau, doublecomplex *work, integer *lwork,
3646  integer *info);
3647 extern int zgerfs_(char *trans, integer *n, integer *nrhs, doublecomplex *a,
3648  integer *lda, doublecomplex *af, integer *ldaf,
3649  integer *ipiv, doublecomplex *b, integer *ldb,
3650  doublecomplex *x, integer *ldx, doublereal *ferr,
3651  doublereal *berr, doublecomplex *work, doublereal *rwork,
3652  integer *info, ftnlen trans_len);
3653 extern int zgerq2_(integer *m, integer *n, doublecomplex *a, integer *lda,
3654  doublecomplex *tau, doublecomplex *work, integer *info);
3655 extern int zgerqf_(integer *m, integer *n, doublecomplex *a, integer *lda,
3656  doublecomplex *tau, doublecomplex *work, integer *lwork,
3657  integer *info);
3658 extern int zgesc2_(integer *n, doublecomplex *a, integer *lda,
3659  doublecomplex *rhs, integer *ipiv, integer *jpiv,
3660  doublereal *scale);
3661 extern int zgesdd_(char *jobz, integer *m, integer *n, doublecomplex *a,
3662  integer *lda, doublereal *s, doublecomplex *u, integer *ldu,
3663  doublecomplex *vt, integer *ldvt, doublecomplex *work,
3664  integer *lwork, doublereal *rwork, integer *iwork,
3665  integer *info, ftnlen jobz_len);
3666 extern int zgesv_(integer *n, integer *nrhs, doublecomplex *a, integer *lda,
3667  integer *ipiv, doublecomplex *b, integer *ldb, integer *info);
3668 extern int zgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
3669  doublecomplex *a, integer *lda, doublereal *s,
3670  doublecomplex *u, integer *ldu, doublecomplex *vt,
3671  integer *ldvt, doublecomplex *work, integer *lwork,
3672  doublereal *rwork, integer *info, ftnlen jobu_len,
3673  ftnlen jobvt_len);
3674 extern int zgesvx_(char *fact, char *trans, integer *n, integer *nrhs,
3675  doublecomplex *a, integer *lda, doublecomplex *af,
3676  integer *ldaf, integer *ipiv, char *equed, doublereal *r__,
3677  doublereal *c__, doublecomplex *b, integer *ldb,
3678  doublecomplex *x, integer *ldx, doublereal *rcond,
3679  doublereal *ferr, doublereal *berr, doublecomplex *work,
3680  doublereal *rwork, integer *info, ftnlen fact_len,
3681  ftnlen trans_len, ftnlen equed_len);
3682 extern int zgetc2_(integer *n, doublecomplex *a, integer *lda, integer *ipiv,
3683  integer *jpiv, integer *info);
3684 extern int zgetf2_(integer *m, integer *n, doublecomplex *a, integer *lda,
3685  integer *ipiv, integer *info);
3686 extern int zgetrf_(integer *m, integer *n, doublecomplex *a, integer *lda,
3687  integer *ipiv, integer *info);
3688 extern int zgetri_(integer *n, doublecomplex *a, integer *lda, integer *ipiv,
3689  doublecomplex *work, integer *lwork, integer *info);
3690 extern int zgetrs_(char *trans, integer *n, integer *nrhs, doublecomplex *a,
3691  integer *lda, integer *ipiv, doublecomplex *b, integer *ldb,
3692  integer *info, ftnlen trans_len);
3693 extern int zggbak_(char *job, char *side, integer *n, integer *ilo,
3694  integer *ihi, doublereal *lscale, doublereal *rscale,
3695  integer *m, doublecomplex *v, integer *ldv, integer *info,
3696  ftnlen job_len, ftnlen side_len);
3697 extern int zggbal_(char *job, integer *n, doublecomplex *a, integer *lda,
3698  doublecomplex *b, integer *ldb, integer *ilo, integer *ihi,
3699  doublereal *lscale, doublereal *rscale, doublereal *work,
3700  integer *info, ftnlen job_len);
3701 extern int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg,
3702  integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
3703  integer *ldb, integer *sdim, doublecomplex *alpha,
3704  doublecomplex *beta, doublecomplex *vsl, integer *ldvsl,
3705  doublecomplex *vsr, integer *ldvsr, doublecomplex *work,
3706  integer *lwork, doublereal *rwork, logical *bwork,
3707  integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len,
3708  ftnlen sort_len);
3709 extern int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg,
3710  char *sense, integer *n, doublecomplex *a, integer *lda,
3711  doublecomplex *b, integer *ldb, integer *sdim,
3712  doublecomplex *alpha, doublecomplex *beta,
3713  doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr,
3714  integer *ldvsr, doublereal *rconde, doublereal *rcondv,
3715  doublecomplex *work, integer *lwork, doublereal *rwork,
3716  integer *iwork, integer *liwork, logical *bwork,
3717  integer *info, ftnlen jobvsl_len, ftnlen jobvsr_len,
3718  ftnlen sort_len, ftnlen sense_len);
3719 extern int zggev_(char *jobvl, char *jobvr, integer *n, doublecomplex *a,
3720  integer *lda, doublecomplex *b, integer *ldb,
3721  doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl,
3722  integer *ldvl, doublecomplex *vr, integer *ldvr,
3723  doublecomplex *work, integer *lwork, doublereal *rwork,
3724  integer *info, ftnlen jobvl_len, ftnlen jobvr_len);
3725 extern int zggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
3726  integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
3727  integer *ldb, doublecomplex *alpha, doublecomplex *beta,
3728  doublecomplex *vl, integer *ldvl, doublecomplex *vr,
3729  integer *ldvr, integer *ilo, integer *ihi,
3730  doublereal *lscale, doublereal *rscale, doublereal *abnrm,
3731  doublereal *bbnrm, doublereal *rconde, doublereal *rcondv,
3732  doublecomplex *work, integer *lwork, doublereal *rwork,
3733  integer *iwork, logical *bwork, integer *info,
3734  ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len,
3735  ftnlen sense_len);
3736 extern int zggglm_(integer *n, integer *m, integer *p, doublecomplex *a,
3737  integer *lda, doublecomplex *b, integer *ldb,
3738  doublecomplex *d__, doublecomplex *x, doublecomplex *y,
3739  doublecomplex *work, integer *lwork, integer *info);
3740 extern int zgghrd_(char *compq, char *compz, integer *n, integer *ilo,
3741  integer *ihi, doublecomplex *a, integer *lda,
3742  doublecomplex *b, integer *ldb, doublecomplex *q,
3743  integer *ldq, doublecomplex *z__, integer *ldz,
3744  integer *info, ftnlen compq_len, ftnlen compz_len);
3745 extern int zgglse_(integer *m, integer *n, integer *p, doublecomplex *a,
3746  integer *lda, doublecomplex *b, integer *ldb,
3747  doublecomplex *c__, doublecomplex *d__, doublecomplex *x,
3748  doublecomplex *work, integer *lwork, integer *info);
3749 extern int zggqrf_(integer *n, integer *m, integer *p, doublecomplex *a,
3750  integer *lda, doublecomplex *taua, doublecomplex *b,
3751  integer *ldb, doublecomplex *taub, doublecomplex *work,
3752  integer *lwork, integer *info);
3753 extern int zggrqf_(integer *m, integer *p, integer *n, doublecomplex *a,
3754  integer *lda, doublecomplex *taua, doublecomplex *b,
3755  integer *ldb, doublecomplex *taub, doublecomplex *work,
3756  integer *lwork, integer *info);
3757 extern int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m, integer *n,
3758  integer *p, integer *k, integer *l, doublecomplex *a,
3759  integer *lda, doublecomplex *b, integer *ldb,
3760  doublereal *alpha, doublereal *beta, doublecomplex *u,
3761  integer *ldu, doublecomplex *v, integer *ldv,
3762  doublecomplex *q, integer *ldq, doublecomplex *work,
3763  doublereal *rwork, integer *iwork, integer *info,
3764  ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
3765 extern int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m, integer *p,
3766  integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
3767  integer *ldb, doublereal *tola, doublereal *tolb, integer *k,
3768  integer *l, doublecomplex *u, integer *ldu, doublecomplex *v,
3769  integer *ldv, doublecomplex *q, integer *ldq, integer *iwork,
3770  doublereal *rwork, doublecomplex *tau, doublecomplex *work,
3771  integer *info, ftnlen jobu_len, ftnlen jobv_len,
3772  ftnlen jobq_len);
3773 extern int zgtcon_(char *norm, integer *n, doublecomplex *dl,
3774  doublecomplex *d__, doublecomplex *du, doublecomplex *du2,
3775  integer *ipiv, doublereal *anorm, doublereal *rcond,
3776  doublecomplex *work, integer *info, ftnlen norm_len);
3777 extern int zgtrfs_(char *trans, integer *n, integer *nrhs, doublecomplex *dl,
3778  doublecomplex *d__, doublecomplex *du, doublecomplex *dlf,
3779  doublecomplex *df, doublecomplex *duf, doublecomplex *du2,
3780  integer *ipiv, doublecomplex *b, integer *ldb,
3781  doublecomplex *x, integer *ldx, doublereal *ferr,
3782  doublereal *berr, doublecomplex *work, doublereal *rwork,
3783  integer *info, ftnlen trans_len);
3784 extern int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl,
3785  doublecomplex *d__, doublecomplex *du, doublecomplex *b,
3786  integer *ldb, integer *info);
3787 extern int zgtsvx_(char *fact, char *trans, integer *n, integer *nrhs,
3788  doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
3789  doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
3790  doublecomplex *du2, integer *ipiv, doublecomplex *b,
3791  integer *ldb, doublecomplex *x, integer *ldx,
3792  doublereal *rcond, doublereal *ferr, doublereal *berr,
3793  doublecomplex *work, doublereal *rwork, integer *info,
3794  ftnlen fact_len, ftnlen trans_len);
3795 extern int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *d__,
3796  doublecomplex *du, doublecomplex *du2, integer *ipiv,
3797  integer *info);
3798 extern int zgttrs_(char *trans, integer *n, integer *nrhs, doublecomplex *dl,
3799  doublecomplex *d__, doublecomplex *du, doublecomplex *du2,
3800  integer *ipiv, doublecomplex *b, integer *ldb, integer *info,
3801  ftnlen trans_len);
3802 extern int zgtts2_(integer *itrans, integer *n, integer *nrhs,
3803  doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
3804  doublecomplex *du2, integer *ipiv, doublecomplex *b,
3805  integer *ldb);
3806 extern int zhbev_(char *jobz, char *uplo, integer *n, integer *kd,
3807  doublecomplex *ab, integer *ldab, doublereal *w,
3808  doublecomplex *z__, integer *ldz, doublecomplex *work,
3809  doublereal *rwork, integer *info, ftnlen jobz_len,
3810  ftnlen uplo_len);
3811 extern int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd,
3812  doublecomplex *ab, integer *ldab, doublereal *w,
3813  doublecomplex *z__, integer *ldz, doublecomplex *work,
3814  integer *lwork, doublereal *rwork, integer *lrwork,
3815  integer *iwork, integer *liwork, integer *info,
3816  ftnlen jobz_len, ftnlen uplo_len);
3817 extern int zhbevx_(char *jobz, char *range, char *uplo, integer *n, integer *kd,
3818  doublecomplex *ab, integer *ldab, doublecomplex *q,
3819  integer *ldq, doublereal *vl, doublereal *vu, integer *il,
3820  integer *iu, doublereal *abstol, integer *m, doublereal *w,
3821  doublecomplex *z__, integer *ldz, doublecomplex *work,
3822  doublereal *rwork, integer *iwork, integer *ifail,
3823  integer *info, ftnlen jobz_len, ftnlen range_len,
3824  ftnlen uplo_len);
3825 extern int zhbgst_(char *vect, char *uplo, integer *n, integer *ka, integer *kb,
3826  doublecomplex *ab, integer *ldab, doublecomplex *bb,
3827  integer *ldbb, doublecomplex *x, integer *ldx,
3828  doublecomplex *work, doublereal *rwork, integer *info,
3829  ftnlen vect_len, ftnlen uplo_len);
3830 extern int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb,
3831  doublecomplex *ab, integer *ldab, doublecomplex *bb,
3832  integer *ldbb, doublereal *w, doublecomplex *z__,
3833  integer *ldz, doublecomplex *work, doublereal *rwork,
3834  integer *info, ftnlen jobz_len, ftnlen uplo_len);
3835 extern int zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka, integer *kb,
3836  doublecomplex *ab, integer *ldab, doublecomplex *bb,
3837  integer *ldbb, doublereal *w, doublecomplex *z__,
3838  integer *ldz, doublecomplex *work, integer *lwork,
3839  doublereal *rwork, integer *lrwork, integer *iwork,
3840  integer *liwork, integer *info, ftnlen jobz_len,
3841  ftnlen uplo_len);
3842 extern int zhbgvx_(char *jobz, char *range, char *uplo, integer *n, integer *ka,
3843  integer *kb, doublecomplex *ab, integer *ldab,
3844  doublecomplex *bb, integer *ldbb, doublecomplex *q,
3845  integer *ldq, doublereal *vl, doublereal *vu, integer *il,
3846  integer *iu, doublereal *abstol, integer *m, doublereal *w,
3847  doublecomplex *z__, integer *ldz, doublecomplex *work,
3848  doublereal *rwork, integer *iwork, integer *ifail,
3849  integer *info, ftnlen jobz_len, ftnlen range_len,
3850  ftnlen uplo_len);
3851 extern int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd,
3852  doublecomplex *ab, integer *ldab, doublereal *d__,
3853  doublereal *e, doublecomplex *q, integer *ldq,
3854  doublecomplex *work, integer *info, ftnlen vect_len,
3855  ftnlen uplo_len);
3856 extern int zhecon_(char *uplo, integer *n, doublecomplex *a, integer *lda,
3857  integer *ipiv, doublereal *anorm, doublereal *rcond,
3858  doublecomplex *work, integer *info, ftnlen uplo_len);
3859 extern int zheev_(char *jobz, char *uplo, integer *n, doublecomplex *a,
3860  integer *lda, doublereal *w, doublecomplex *work,
3861  integer *lwork, doublereal *rwork, integer *info,
3862  ftnlen jobz_len, ftnlen uplo_len);
3863 extern int zheevd_(char *jobz, char *uplo, integer *n, doublecomplex *a,
3864  integer *lda, doublereal *w, doublecomplex *work,
3865  integer *lwork, doublereal *rwork, integer *lrwork,
3866  integer *iwork, integer *liwork, integer *info,
3867  ftnlen jobz_len, ftnlen uplo_len);
3868 extern int zheevr_(char *jobz, char *range, char *uplo, integer *n,
3869  doublecomplex *a, integer *lda, doublereal *vl,
3870  doublereal *vu, integer *il, integer *iu, doublereal *abstol,
3871  integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
3872  integer *isuppz, doublecomplex *work, integer *lwork,
3873  doublereal *rwork, integer *lrwork, integer *iwork,
3874  integer *liwork, integer *info, ftnlen jobz_len,
3875  ftnlen range_len, ftnlen uplo_len);
3876 extern int zheevx_(char *jobz, char *range, char *uplo, integer *n,
3877  doublecomplex *a, integer *lda, doublereal *vl,
3878  doublereal *vu, integer *il, integer *iu, doublereal *abstol,
3879  integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
3880  doublecomplex *work, integer *lwork, doublereal *rwork,
3881  integer *iwork, integer *ifail, integer *info,
3882  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
3883 extern int zhegs2_(integer *itype, char *uplo, integer *n, doublecomplex *a,
3884  integer *lda, doublecomplex *b, integer *ldb, integer *info,
3885  ftnlen uplo_len);
3886 extern int zhegst_(integer *itype, char *uplo, integer *n, doublecomplex *a,
3887  integer *lda, doublecomplex *b, integer *ldb, integer *info,
3888  ftnlen uplo_len);
3889 extern int zhegv_(integer *itype, char *jobz, char *uplo, integer *n,
3890  doublecomplex *a, integer *lda, doublecomplex *b,
3891  integer *ldb, doublereal *w, doublecomplex *work,
3892  integer *lwork, doublereal *rwork, integer *info,
3893  ftnlen jobz_len, ftnlen uplo_len);
3894 extern int zhegvd_(integer *itype, char *jobz, char *uplo, integer *n,
3895  doublecomplex *a, integer *lda, doublecomplex *b,
3896  integer *ldb, doublereal *w, doublecomplex *work,
3897  integer *lwork, doublereal *rwork, integer *lrwork,
3898  integer *iwork, integer *liwork, integer *info,
3899  ftnlen jobz_len, ftnlen uplo_len);
3900 extern int zhegvx_(integer *itype, char *jobz, char *range, char *uplo,
3901  integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
3902  integer *ldb, doublereal *vl, doublereal *vu, integer *il,
3903  integer *iu, doublereal *abstol, integer *m, doublereal *w,
3904  doublecomplex *z__, integer *ldz, doublecomplex *work,
3905  integer *lwork, doublereal *rwork, integer *iwork,
3906  integer *ifail, integer *info, ftnlen jobz_len,
3907  ftnlen range_len, ftnlen uplo_len);
3908 extern int zherfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
3909  integer *lda, doublecomplex *af, integer *ldaf,
3910  integer *ipiv, doublecomplex *b, integer *ldb,
3911  doublecomplex *x, integer *ldx, doublereal *ferr,
3912  doublereal *berr, doublecomplex *work, doublereal *rwork,
3913  integer *info, ftnlen uplo_len);
3914 extern int zhesv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
3915  integer *lda, integer *ipiv, doublecomplex *b, integer *ldb,
3916  doublecomplex *work, integer *lwork, integer *info,
3917  ftnlen uplo_len);
3918 extern int zhesvx_(char *fact, char *uplo, integer *n, integer *nrhs,
3919  doublecomplex *a, integer *lda, doublecomplex *af,
3920  integer *ldaf, integer *ipiv, doublecomplex *b, integer *ldb,
3921  doublecomplex *x, integer *ldx, doublereal *rcond,
3922  doublereal *ferr, doublereal *berr, doublecomplex *work,
3923  integer *lwork, doublereal *rwork, integer *info,
3924  ftnlen fact_len, ftnlen uplo_len);
3925 extern int zhetd2_(char *uplo, integer *n, doublecomplex *a, integer *lda,
3926  doublereal *d__, doublereal *e, doublecomplex *tau,
3927  integer *info, ftnlen uplo_len);
3928 extern int zhetf2_(char *uplo, integer *n, doublecomplex *a, integer *lda,
3929  integer *ipiv, integer *info, ftnlen uplo_len);
3930 extern int zhetrd_(char *uplo, integer *n, doublecomplex *a, integer *lda,
3931  doublereal *d__, doublereal *e, doublecomplex *tau,
3932  doublecomplex *work, integer *lwork, integer *info,
3933  ftnlen uplo_len);
3934 extern int zhetrf_(char *uplo, integer *n, doublecomplex *a, integer *lda,
3935  integer *ipiv, doublecomplex *work, integer *lwork,
3936  integer *info, ftnlen uplo_len);
3937 extern int zhetri_(char *uplo, integer *n, doublecomplex *a, integer *lda,
3938  integer *ipiv, doublecomplex *work, integer *info,
3939  ftnlen uplo_len);
3940 extern int zhetrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
3941  integer *lda, integer *ipiv, doublecomplex *b, integer *ldb,
3942  integer *info, ftnlen uplo_len);
3943 extern int zhgeqz_(char *job, char *compq, char *compz, integer *n,
3944  integer *ilo, integer *ihi, doublecomplex *a, integer *lda,
3945  doublecomplex *b, integer *ldb, doublecomplex *alpha,
3946  doublecomplex *beta, doublecomplex *q, integer *ldq,
3947  doublecomplex *z__, integer *ldz, doublecomplex *work,
3948  integer *lwork, doublereal *rwork, integer *info,
3949  ftnlen job_len, ftnlen compq_len, ftnlen compz_len);
3950 extern int zhpcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv,
3951  doublereal *anorm, doublereal *rcond, doublecomplex *work,
3952  integer *info, ftnlen uplo_len);
3953 extern int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex *ap,
3954  doublereal *w, doublecomplex *z__, integer *ldz,
3955  doublecomplex *work, doublereal *rwork, integer *info,
3956  ftnlen jobz_len, ftnlen uplo_len);
3957 extern int zhpevd_(char *jobz, char *uplo, integer *n, doublecomplex *ap,
3958  doublereal *w, doublecomplex *z__, integer *ldz,
3959  doublecomplex *work, integer *lwork, doublereal *rwork,
3960  integer *lrwork, integer *iwork, integer *liwork,
3961  integer *info, ftnlen jobz_len, ftnlen uplo_len);
3962 extern int zhpevx_(char *jobz, char *range, char *uplo, integer *n,
3963  doublecomplex *ap, doublereal *vl, doublereal *vu,
3964  integer *il, integer *iu, doublereal *abstol, integer *m,
3965  doublereal *w, doublecomplex *z__, integer *ldz,
3966  doublecomplex *work, doublereal *rwork, integer *iwork,
3967  integer *ifail, integer *info, ftnlen jobz_len,
3968  ftnlen range_len, ftnlen uplo_len);
3969 extern int zhpgst_(integer *itype, char *uplo, integer *n, doublecomplex *ap,
3970  doublecomplex *bp, integer *info, ftnlen uplo_len);
3971 extern int zhpgv_(integer *itype, char *jobz, char *uplo, integer *n,
3972  doublecomplex *ap, doublecomplex *bp, doublereal *w,
3973  doublecomplex *z__, integer *ldz, doublecomplex *work,
3974  doublereal *rwork, integer *info, ftnlen jobz_len,
3975  ftnlen uplo_len);
3976 extern int zhpgvd_(integer *itype, char *jobz, char *uplo, integer *n,
3977  doublecomplex *ap, doublecomplex *bp, doublereal *w,
3978  doublecomplex *z__, integer *ldz, doublecomplex *work,
3979  integer *lwork, doublereal *rwork, integer *lrwork,
3980  integer *iwork, integer *liwork, integer *info,
3981  ftnlen jobz_len, ftnlen uplo_len);
3982 extern int zhpgvx_(integer *itype, char *jobz, char *range, char *uplo,
3983  integer *n, doublecomplex *ap, doublecomplex *bp,
3984  doublereal *vl, doublereal *vu, integer *il, integer *iu,
3985  doublereal *abstol, integer *m, doublereal *w,
3986  doublecomplex *z__, integer *ldz, doublecomplex *work,
3987  doublereal *rwork, integer *iwork, integer *ifail,
3988  integer *info, ftnlen jobz_len, ftnlen range_len,
3989  ftnlen uplo_len);
3990 extern int zhprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
3991  doublecomplex *afp, integer *ipiv, doublecomplex *b,
3992  integer *ldb, doublecomplex *x, integer *ldx,
3993  doublereal *ferr, doublereal *berr, doublecomplex *work,
3994  doublereal *rwork, integer *info, ftnlen uplo_len);
3995 extern int zhpsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
3996  integer *ipiv, doublecomplex *b, integer *ldb, integer *info,
3997  ftnlen uplo_len);
3998 extern int zhpsvx_(char *fact, char *uplo, integer *n, integer *nrhs,
3999  doublecomplex *ap, doublecomplex *afp, integer *ipiv,
4000  doublecomplex *b, integer *ldb, doublecomplex *x,
4001  integer *ldx, doublereal *rcond, doublereal *ferr,
4002  doublereal *berr, doublecomplex *work, doublereal *rwork,
4003  integer *info, ftnlen fact_len, ftnlen uplo_len);
4004 extern int zhptrd_(char *uplo, integer *n, doublecomplex *ap, doublereal *d__,
4005  doublereal *e, doublecomplex *tau, integer *info,
4006  ftnlen uplo_len);
4007 extern int zhptrf_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv,
4008  integer *info, ftnlen uplo_len);
4009 extern int zhptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv,
4010  doublecomplex *work, integer *info, ftnlen uplo_len);
4011 extern int zhptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
4012  integer *ipiv, doublecomplex *b, integer *ldb, integer *info,
4013  ftnlen uplo_len);
4014 extern int zhsein_(char *side, char *eigsrc, char *initv, logical *select,
4015  integer *n, doublecomplex *h__, integer *ldh,
4016  doublecomplex *w, doublecomplex *vl, integer *ldvl,
4017  doublecomplex *vr, integer *ldvr, integer *mm, integer *m,
4018  doublecomplex *work, doublereal *rwork, integer *ifaill,
4019  integer *ifailr, integer *info, ftnlen side_len,
4020  ftnlen eigsrc_len, ftnlen initv_len);
4021 extern int zhseqr_(char *job, char *compz, integer *n, integer *ilo,
4022  integer *ihi, doublecomplex *h__, integer *ldh,
4023  doublecomplex *w, doublecomplex *z__, integer *ldz,
4024  doublecomplex *work, integer *lwork, integer *info,
4025  ftnlen job_len, ftnlen compz_len);
4026 extern int zlabrd_(integer *m, integer *n, integer *nb, doublecomplex *a,
4027  integer *lda, doublereal *d__, doublereal *e,
4028  doublecomplex *tauq, doublecomplex *taup, doublecomplex *x,
4029  integer *ldx, doublecomplex *y, integer *ldy);
4030 extern int zlacgv_(integer *n, doublecomplex *x, integer *incx);
4031 extern int zlacon_(integer *n, doublecomplex *v, doublecomplex *x,
4032  doublereal *est, integer *kase);
4033 extern int zlacp2_(char *uplo, integer *m, integer *n, doublereal *a,
4034  integer *lda, doublecomplex *b, integer *ldb,
4035  ftnlen uplo_len);
4036 extern int zlacpy_(char *uplo, integer *m, integer *n, doublecomplex *a,
4037  integer *lda, doublecomplex *b, integer *ldb,
4038  ftnlen uplo_len);
4039 extern int zlacrm_(integer *m, integer *n, doublecomplex *a, integer *lda,
4040  doublereal *b, integer *ldb, doublecomplex *c__,
4041  integer *ldc, doublereal *rwork);
4042 extern int zlacrt_(integer *n, doublecomplex *cx, integer *incx,
4043  doublecomplex *cy, integer *incy, doublecomplex *c__,
4044  doublecomplex *s);
4045 extern Z_f zladiv_(doublecomplex *ret_val, doublecomplex *x, doublecomplex *y);
4046 extern int zlaed0_(integer *qsiz, integer *n, doublereal *d__, doublereal *e,
4047  doublecomplex *q, integer *ldq, doublecomplex *qstore,
4048  integer *ldqs, doublereal *rwork, integer *iwork,
4049  integer *info);
4050 extern int zlaed7_(integer *n, integer *cutpnt, integer *qsiz, integer *tlvls,
4051  integer *curlvl, integer *curpbm, doublereal *d__,
4052  doublecomplex *q, integer *ldq, doublereal *rho,
4053  integer *indxq, doublereal *qstore, integer *qptr,
4054  integer *prmptr, integer *perm, integer *givptr,
4055  integer *givcol, doublereal *givnum, doublecomplex *work,
4056  doublereal *rwork, integer *iwork, integer *info);
4057 extern int zlaed8_(integer *k, integer *n, integer *qsiz, doublecomplex *q,
4058  integer *ldq, doublereal *d__, doublereal *rho,
4059  integer *cutpnt, doublereal *z__, doublereal *dlamda,
4060  doublecomplex *q2, integer *ldq2, doublereal *w,
4061  integer *indxp, integer *indx, integer *indxq, integer *perm,
4062  integer *givptr, integer *givcol, doublereal *givnum,
4063  integer *info);
4064 extern int zlaein_(logical *rightv, logical *noinit, integer *n,
4065  doublecomplex *h__, integer *ldh, doublecomplex *w,
4066  doublecomplex *v, doublecomplex *b, integer *ldb,
4067  doublereal *rwork, doublereal *eps3, doublereal *smlnum,
4068  integer *info);
4069 extern int zlaesy_(doublecomplex *a, doublecomplex *b, doublecomplex *c__,
4070  doublecomplex *rt1, doublecomplex *rt2,
4071  doublecomplex *evscal, doublecomplex *cs1,
4072  doublecomplex *sn1);
4073 extern int zlaev2_(doublecomplex *a, doublecomplex *b, doublecomplex *c__,
4074  doublereal *rt1, doublereal *rt2, doublereal *cs1,
4075  doublecomplex *sn1);
4076 extern int zlags2_(logical *upper, doublereal *a1, doublecomplex *a2,
4077  doublereal *a3, doublereal *b1, doublecomplex *b2,
4078  doublereal *b3, doublereal *csu, doublecomplex *snu,
4079  doublereal *csv, doublecomplex *snv, doublereal *csq,
4080  doublecomplex *snq);
4081 extern int zlagtm_(char *trans, integer *n, integer *nrhs, doublereal *alpha,
4082  doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4083  doublecomplex *x, integer *ldx, doublereal *beta,
4084  doublecomplex *b, integer *ldb, ftnlen trans_len);
4085 extern int zlahef_(char *uplo, integer *n, integer *nb, integer *kb,
4086  doublecomplex *a, integer *lda, integer *ipiv,
4087  doublecomplex *w, integer *ldw, integer *info,
4088  ftnlen uplo_len);
4089 extern int zlahqr_(logical *wantt, logical *wantz, integer *n, integer *ilo,
4090  integer *ihi, doublecomplex *h__, integer *ldh,
4091  doublecomplex *w, integer *iloz, integer *ihiz,
4092  doublecomplex *z__, integer *ldz, integer *info);
4093 extern int zlahrd_(integer *n, integer *k, integer *nb, doublecomplex *a,
4094  integer *lda, doublecomplex *tau, doublecomplex *t,
4095  integer *ldt, doublecomplex *y, integer *ldy);
4096 extern int zlaic1_(integer *job, integer *j, doublecomplex *x, doublereal *sest,
4097  doublecomplex *w, doublecomplex *gamma, doublereal *sestpr,
4098  doublecomplex *s, doublecomplex *c__);
4099 extern int zlals0_(integer *icompq, integer *nl, integer *nr, integer *sqre,
4100  integer *nrhs, doublecomplex *b, integer *ldb,
4101  doublecomplex *bx, integer *ldbx, integer *perm,
4102  integer *givptr, integer *givcol, integer *ldgcol,
4103  doublereal *givnum, integer *ldgnum, doublereal *poles,
4104  doublereal *difl, doublereal *difr, doublereal *z__,
4105  integer *k, doublereal *c__, doublereal *s,
4106  doublereal *rwork, integer *info);
4107 extern int zlalsa_(integer *icompq, integer *smlsiz, integer *n, integer *nrhs,
4108  doublecomplex *b, integer *ldb, doublecomplex *bx,
4109  integer *ldbx, doublereal *u, integer *ldu, doublereal *vt,
4110  integer *k, doublereal *difl, doublereal *difr,
4111  doublereal *z__, doublereal *poles, integer *givptr,
4112  integer *givcol, integer *ldgcol, integer *perm,
4113  doublereal *givnum, doublereal *c__, doublereal *s,
4114  doublereal *rwork, integer *iwork, integer *info);
4115 extern int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer *nrhs,
4116  doublereal *d__, doublereal *e, doublecomplex *b,
4117  integer *ldb, doublereal *rcond, integer *rank,
4118  doublecomplex *work, doublereal *rwork, integer *iwork,
4119  integer *info, ftnlen uplo_len);
4120 extern doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku,
4121  doublecomplex *ab, integer *ldab, doublereal *work,
4122  ftnlen norm_len);
4123 extern doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a,
4124  integer *lda, doublereal *work, ftnlen norm_len);
4125 extern doublereal zlangt_(char *norm, integer *n, doublecomplex *dl,
4126  doublecomplex *d__, doublecomplex *du,
4127  ftnlen norm_len);
4128 extern doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k,
4129  doublecomplex *ab, integer *ldab, doublereal *work,
4130  ftnlen norm_len, ftnlen uplo_len);
4131 extern doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a,
4132  integer *lda, doublereal *work, ftnlen norm_len,
4133  ftnlen uplo_len);
4134 extern doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap,
4135  doublereal *work, ftnlen norm_len, ftnlen uplo_len);
4136 extern doublereal zlanhs_(char *norm, integer *n, doublecomplex *a,
4137  integer *lda, doublereal *work, ftnlen norm_len);
4138 extern doublereal zlanht_(char *norm, integer *n, doublereal *d__,
4139  doublecomplex *e, ftnlen norm_len);
4140 extern doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k,
4141  doublecomplex *ab, integer *ldab, doublereal *work,
4142  ftnlen norm_len, ftnlen uplo_len);
4143 extern doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap,
4144  doublereal *work, ftnlen norm_len, ftnlen uplo_len);
4145 extern doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a,
4146  integer *lda, doublereal *work, ftnlen norm_len,
4147  ftnlen uplo_len);
4148 extern doublereal zlantb_(char *norm, char *uplo, char *diag, integer *n,
4149  integer *k, doublecomplex *ab, integer *ldab,
4150  doublereal *work, ftnlen norm_len, ftnlen uplo_len,
4151  ftnlen diag_len);
4152 extern doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n,
4153  doublecomplex *ap, doublereal *work, ftnlen norm_len,
4154  ftnlen uplo_len, ftnlen diag_len);
4155 extern doublereal zlantr_(char *norm, char *uplo, char *diag, integer *m,
4156  integer *n, doublecomplex *a, integer *lda,
4157  doublereal *work, ftnlen norm_len, ftnlen uplo_len,
4158  ftnlen diag_len);
4159 extern int zlapll_(integer *n, doublecomplex *x, integer *incx,
4160  doublecomplex *y, integer *incy, doublereal *ssmin);
4161 extern int zlapmt_(logical *forwrd, integer *m, integer *n, doublecomplex *x,
4162  integer *ldx, integer *k);
4163 extern int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
4164  doublecomplex *ab, integer *ldab, doublereal *r__,
4165  doublereal *c__, doublereal *rowcnd, doublereal *colcnd,
4166  doublereal *amax, char *equed, ftnlen equed_len);
4167 extern int zlaqge_(integer *m, integer *n, doublecomplex *a, integer *lda,
4168  doublereal *r__, doublereal *c__, doublereal *rowcnd,
4169  doublereal *colcnd, doublereal *amax, char *equed,
4170  ftnlen equed_len);
4171 extern int zlaqhb_(char *uplo, integer *n, integer *kd, doublecomplex *ab,
4172  integer *ldab, doublereal *s, doublereal *scond,
4173  doublereal *amax, char *equed, ftnlen uplo_len,
4174  ftnlen equed_len);
4175 extern int zlaqhe_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4176  doublereal *s, doublereal *scond, doublereal *amax,
4177  char *equed, ftnlen uplo_len, ftnlen equed_len);
4178 extern int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s,
4179  doublereal *scond, doublereal *amax, char *equed,
4180  ftnlen uplo_len, ftnlen equed_len);
4181 extern int zlaqp2_(integer *m, integer *n, integer *offset, doublecomplex *a,
4182  integer *lda, integer *jpvt, doublecomplex *tau,
4183  doublereal *vn1, doublereal *vn2, doublecomplex *work);
4184 extern int zlaqps_(integer *m, integer *n, integer *offset, integer *nb,
4185  integer *kb, doublecomplex *a, integer *lda, integer *jpvt,
4186  doublecomplex *tau, doublereal *vn1, doublereal *vn2,
4187  doublecomplex *auxv, doublecomplex *f, integer *ldf);
4188 extern int zlaqsb_(char *uplo, integer *n, integer *kd, doublecomplex *ab,
4189  integer *ldab, doublereal *s, doublereal *scond,
4190  doublereal *amax, char *equed, ftnlen uplo_len,
4191  ftnlen equed_len);
4192 extern int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s,
4193  doublereal *scond, doublereal *amax, char *equed,
4194  ftnlen uplo_len, ftnlen equed_len);
4195 extern int zlaqsy_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4196  doublereal *s, doublereal *scond, doublereal *amax,
4197  char *equed, ftnlen uplo_len, ftnlen equed_len);
4198 extern int zlar1v_(integer *n, integer *b1, integer *bn, doublereal *sigma,
4199  doublereal *d__, doublereal *l, doublereal *ld,
4200  doublereal *lld, doublereal *gersch, doublecomplex *z__,
4201  doublereal *ztz, doublereal *mingma, integer *r__,
4202  integer *isuppz, doublereal *work);
4203 extern int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y,
4204  doublecomplex *z__, integer *incx, doublereal *c__,
4205  doublecomplex *s, integer *incc);
4206 extern int zlarcm_(integer *m, integer *n, doublereal *a, integer *lda,
4207  doublecomplex *b, integer *ldb, doublecomplex *c__,
4208  integer *ldc, doublereal *rwork);
4209 extern int zlarf_(char *side, integer *m, integer *n, doublecomplex *v,
4210  integer *incv, doublecomplex *tau, doublecomplex *c__,
4211  integer *ldc, doublecomplex *work, ftnlen side_len);
4212 extern int zlarfb_(char *side, char *trans, char *direct, char *storev,
4213  integer *m, integer *n, integer *k, doublecomplex *v,
4214  integer *ldv, doublecomplex *t, integer *ldt,
4215  doublecomplex *c__, integer *ldc, doublecomplex *work,
4216  integer *ldwork, ftnlen side_len, ftnlen trans_len,
4217  ftnlen direct_len, ftnlen storev_len);
4218 extern int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *x,
4219  integer *incx, doublecomplex *tau);
4220 extern int zlarft_(char *direct, char *storev, integer *n, integer *k,
4221  doublecomplex *v, integer *ldv, doublecomplex *tau,
4222  doublecomplex *t, integer *ldt, ftnlen direct_len,
4223  ftnlen storev_len);
4224 extern int zlarfx_(char *side, integer *m, integer *n, doublecomplex *v,
4225  doublecomplex *tau, doublecomplex *c__, integer *ldc,
4226  doublecomplex *work, ftnlen side_len);
4227 extern int zlargv_(integer *n, doublecomplex *x, integer *incx,
4228  doublecomplex *y, integer *incy, doublereal *c__,
4229  integer *incc);
4230 extern int zlarnv_(integer *idist, integer *iseed, integer *n,
4231  doublecomplex *x);
4232 extern int zlarrv_(integer *n, doublereal *d__, doublereal *l, integer *isplit,
4233  integer *m, doublereal *w, integer *iblock,
4234  doublereal *gersch, doublereal *tol, doublecomplex *z__,
4235  integer *ldz, integer *isuppz, doublereal *work,
4236  integer *iwork, integer *info);
4237 extern int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *cs,
4238  doublecomplex *sn, doublecomplex *r__);
4239 extern int zlartv_(integer *n, doublecomplex *x, integer *incx,
4240  doublecomplex *y, integer *incy, doublereal *c__,
4241  doublecomplex *s, integer *incc);
4242 extern int zlarz_(char *side, integer *m, integer *n, integer *l,
4243  doublecomplex *v, integer *incv, doublecomplex *tau,
4244  doublecomplex *c__, integer *ldc, doublecomplex *work,
4245  ftnlen side_len);
4246 extern int zlarzb_(char *side, char *trans, char *direct, char *storev,
4247  integer *m, integer *n, integer *k, integer *l,
4248  doublecomplex *v, integer *ldv, doublecomplex *t,
4249  integer *ldt, doublecomplex *c__, integer *ldc,
4250  doublecomplex *work, integer *ldwork, ftnlen side_len,
4251  ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
4252 extern int zlarzt_(char *direct, char *storev, integer *n, integer *k,
4253  doublecomplex *v, integer *ldv, doublecomplex *tau,
4254  doublecomplex *t, integer *ldt, ftnlen direct_len,
4255  ftnlen storev_len);
4256 extern int zlascl_(char *type__, integer *kl, integer *ku, doublereal *cfrom,
4257  doublereal *cto, integer *m, integer *n, doublecomplex *a,
4258  integer *lda, integer *info, ftnlen type_len);
4259 extern int zlaset_(char *uplo, integer *m, integer *n, doublecomplex *alpha,
4260  doublecomplex *beta, doublecomplex *a, integer *lda,
4261  ftnlen uplo_len);
4262 extern int zlasr_(char *side, char *pivot, char *direct, integer *m, integer *n,
4263  doublereal *c__, doublereal *s, doublecomplex *a,
4264  integer *lda, ftnlen side_len, ftnlen pivot_len,
4265  ftnlen direct_len);
4266 extern int zlassq_(integer *n, doublecomplex *x, integer *incx,
4267  doublereal *scale, doublereal *sumsq);
4268 extern int zlaswp_(integer *n, doublecomplex *a, integer *lda, integer *k1,
4269  integer *k2, integer *ipiv, integer *incx);
4270 extern int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
4271  doublecomplex *a, integer *lda, integer *ipiv,
4272  doublecomplex *w, integer *ldw, integer *info,
4273  ftnlen uplo_len);
4274 extern int zlatbs_(char *uplo, char *trans, char *diag, char *normin,
4275  integer *n, integer *kd, doublecomplex *ab, integer *ldab,
4276  doublecomplex *x, doublereal *scale, doublereal *cnorm,
4277  integer *info, ftnlen uplo_len, ftnlen trans_len,
4278  ftnlen diag_len, ftnlen normin_len);
4279 extern int zlatdf_(integer *ijob, integer *n, doublecomplex *z__, integer *ldz,
4280  doublecomplex *rhs, doublereal *rdsum, doublereal *rdscal,
4281  integer *ipiv, integer *jpiv);
4282 extern int zlatps_(char *uplo, char *trans, char *diag, char *normin,
4283  integer *n, doublecomplex *ap, doublecomplex *x,
4284  doublereal *scale, doublereal *cnorm, integer *info,
4285  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
4286  ftnlen normin_len);
4287 extern int zlatrd_(char *uplo, integer *n, integer *nb, doublecomplex *a,
4288  integer *lda, doublereal *e, doublecomplex *tau,
4289  doublecomplex *w, integer *ldw, ftnlen uplo_len);
4290 extern int zlatrs_(char *uplo, char *trans, char *diag, char *normin,
4291  integer *n, doublecomplex *a, integer *lda, doublecomplex *x,
4292  doublereal *scale, doublereal *cnorm, integer *info,
4293  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
4294  ftnlen normin_len);
4295 extern int zlatrz_(integer *m, integer *n, integer *l, doublecomplex *a,
4296  integer *lda, doublecomplex *tau, doublecomplex *work);
4297 extern int zlatzm_(char *side, integer *m, integer *n, doublecomplex *v,
4298  integer *incv, doublecomplex *tau, doublecomplex *c1,
4299  doublecomplex *c2, integer *ldc, doublecomplex *work,
4300  ftnlen side_len);
4301 extern int zlauu2_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4302  integer *info, ftnlen uplo_len);
4303 extern int zlauum_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4304  integer *info, ftnlen uplo_len);
4305 extern int zpbcon_(char *uplo, integer *n, integer *kd, doublecomplex *ab,
4306  integer *ldab, doublereal *anorm, doublereal *rcond,
4307  doublecomplex *work, doublereal *rwork, integer *info,
4308  ftnlen uplo_len);
4309 extern int zpbequ_(char *uplo, integer *n, integer *kd, doublecomplex *ab,
4310  integer *ldab, doublereal *s, doublereal *scond,
4311  doublereal *amax, integer *info, ftnlen uplo_len);
4312 extern int zpbrfs_(char *uplo, integer *n, integer *kd, integer *nrhs,
4313  doublecomplex *ab, integer *ldab, doublecomplex *afb,
4314  integer *ldafb, doublecomplex *b, integer *ldb,
4315  doublecomplex *x, integer *ldx, doublereal *ferr,
4316  doublereal *berr, doublecomplex *work, doublereal *rwork,
4317  integer *info, ftnlen uplo_len);
4318 extern int zpbstf_(char *uplo, integer *n, integer *kd, doublecomplex *ab,
4319  integer *ldab, integer *info, ftnlen uplo_len);
4320 extern int zpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs,
4321  doublecomplex *ab, integer *ldab, doublecomplex *b,
4322  integer *ldb, integer *info, ftnlen uplo_len);
4323 extern int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
4324  integer *nrhs, doublecomplex *ab, integer *ldab,
4325  doublecomplex *afb, integer *ldafb, char *equed,
4326  doublereal *s, doublecomplex *b, integer *ldb,
4327  doublecomplex *x, integer *ldx, doublereal *rcond,
4328  doublereal *ferr, doublereal *berr, doublecomplex *work,
4329  doublereal *rwork, integer *info, ftnlen fact_len,
4330  ftnlen uplo_len, ftnlen equed_len);
4331 extern int zpbtf2_(char *uplo, integer *n, integer *kd, doublecomplex *ab,
4332  integer *ldab, integer *info, ftnlen uplo_len);
4333 extern int zpbtrf_(char *uplo, integer *n, integer *kd, doublecomplex *ab,
4334  integer *ldab, integer *info, ftnlen uplo_len);
4335 extern int zpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs,
4336  doublecomplex *ab, integer *ldab, doublecomplex *b,
4337  integer *ldb, integer *info, ftnlen uplo_len);
4338 extern int zpocon_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4339  doublereal *anorm, doublereal *rcond, doublecomplex *work,
4340  doublereal *rwork, integer *info, ftnlen uplo_len);
4341 extern int zpoequ_(integer *n, doublecomplex *a, integer *lda, doublereal *s,
4342  doublereal *scond, doublereal *amax, integer *info);
4343 extern int zporfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
4344  integer *lda, doublecomplex *af, integer *ldaf,
4345  doublecomplex *b, integer *ldb, doublecomplex *x,
4346  integer *ldx, doublereal *ferr, doublereal *berr,
4347  doublecomplex *work, doublereal *rwork, integer *info,
4348  ftnlen uplo_len);
4349 extern int zposv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
4350  integer *lda, doublecomplex *b, integer *ldb, integer *info,
4351  ftnlen uplo_len);
4352 extern int zposvx_(char *fact, char *uplo, integer *n, integer *nrhs,
4353  doublecomplex *a, integer *lda, doublecomplex *af,
4354  integer *ldaf, char *equed, doublereal *s, doublecomplex *b,
4355  integer *ldb, doublecomplex *x, integer *ldx,
4356  doublereal *rcond, doublereal *ferr, doublereal *berr,
4357  doublecomplex *work, doublereal *rwork, integer *info,
4358  ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
4359 extern int zpotf2_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4360  integer *info, ftnlen uplo_len);
4361 extern int zpotrf_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4362  integer *info, ftnlen uplo_len);
4363 extern int zpotri_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4364  integer *info, ftnlen uplo_len);
4365 extern int zpotrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
4366  integer *lda, doublecomplex *b, integer *ldb, integer *info,
4367  ftnlen uplo_len);
4368 extern int zppcon_(char *uplo, integer *n, doublecomplex *ap, doublereal *anorm,
4369  doublereal *rcond, doublecomplex *work, doublereal *rwork,
4370  integer *info, ftnlen uplo_len);
4371 extern int zppequ_(char *uplo, integer *n, doublecomplex *ap, doublereal *s,
4372  doublereal *scond, doublereal *amax, integer *info,
4373  ftnlen uplo_len);
4374 extern int zpprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
4375  doublecomplex *afp, doublecomplex *b, integer *ldb,
4376  doublecomplex *x, integer *ldx, doublereal *ferr,
4377  doublereal *berr, doublecomplex *work, doublereal *rwork,
4378  integer *info, ftnlen uplo_len);
4379 extern int zppsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
4380  doublecomplex *b, integer *ldb, integer *info,
4381  ftnlen uplo_len);
4382 extern int zppsvx_(char *fact, char *uplo, integer *n, integer *nrhs,
4383  doublecomplex *ap, doublecomplex *afp, char *equed,
4384  doublereal *s, doublecomplex *b, integer *ldb,
4385  doublecomplex *x, integer *ldx, doublereal *rcond,
4386  doublereal *ferr, doublereal *berr, doublecomplex *work,
4387  doublereal *rwork, integer *info, ftnlen fact_len,
4388  ftnlen uplo_len, ftnlen equed_len);
4389 extern int zpptrf_(char *uplo, integer *n, doublecomplex *ap, integer *info,
4390  ftnlen uplo_len);
4391 extern int zpptri_(char *uplo, integer *n, doublecomplex *ap, integer *info,
4392  ftnlen uplo_len);
4393 extern int zpptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
4394  doublecomplex *b, integer *ldb, integer *info,
4395  ftnlen uplo_len);
4396 extern int zptcon_(integer *n, doublereal *d__, doublecomplex *e,
4397  doublereal *anorm, doublereal *rcond, doublereal *rwork,
4398  integer *info);
4399 extern int zpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e,
4400  doublecomplex *z__, integer *ldz, doublereal *work,
4401  integer *info, ftnlen compz_len);
4402 extern int zptrfs_(char *uplo, integer *n, integer *nrhs, doublereal *d__,
4403  doublecomplex *e, doublereal *df, doublecomplex *ef,
4404  doublecomplex *b, integer *ldb, doublecomplex *x,
4405  integer *ldx, doublereal *ferr, doublereal *berr,
4406  doublecomplex *work, doublereal *rwork, integer *info,
4407  ftnlen uplo_len);
4408 extern int zptsv_(integer *n, integer *nrhs, doublereal *d__, doublecomplex *e,
4409  doublecomplex *b, integer *ldb, integer *info);
4410 extern int zptsvx_(char *fact, integer *n, integer *nrhs, doublereal *d__,
4411  doublecomplex *e, doublereal *df, doublecomplex *ef,
4412  doublecomplex *b, integer *ldb, doublecomplex *x,
4413  integer *ldx, doublereal *rcond, doublereal *ferr,
4414  doublereal *berr, doublecomplex *work, doublereal *rwork,
4415  integer *info, ftnlen fact_len);
4416 extern int zpttrf_(integer *n, doublereal *d__, doublecomplex *e,
4417  integer *info);
4418 extern int zpttrs_(char *uplo, integer *n, integer *nrhs, doublereal *d__,
4419  doublecomplex *e, doublecomplex *b, integer *ldb,
4420  integer *info, ftnlen uplo_len);
4421 extern int zptts2_(integer *iuplo, integer *n, integer *nrhs, doublereal *d__,
4422  doublecomplex *e, doublecomplex *b, integer *ldb);
4423 extern int zrot_(integer *n, doublecomplex *cx, integer *incx,
4424  doublecomplex *cy, integer *incy, doublereal *c__,
4425  doublecomplex *s);
4426 extern int zspcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv,
4427  doublereal *anorm, doublereal *rcond, doublecomplex *work,
4428  integer *info, ftnlen uplo_len);
4429 extern int zspmv_(char *uplo, integer *n, doublecomplex *alpha,
4430  doublecomplex *ap, doublecomplex *x, integer *incx,
4431  doublecomplex *beta, doublecomplex *y, integer *incy,
4432  ftnlen uplo_len);
4433 extern int zspr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x,
4434  integer *incx, doublecomplex *ap, ftnlen uplo_len);
4435 extern int zsprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
4436  doublecomplex *afp, integer *ipiv, doublecomplex *b,
4437  integer *ldb, doublecomplex *x, integer *ldx,
4438  doublereal *ferr, doublereal *berr, doublecomplex *work,
4439  doublereal *rwork, integer *info, ftnlen uplo_len);
4440 extern int zspsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
4441  integer *ipiv, doublecomplex *b, integer *ldb, integer *info,
4442  ftnlen uplo_len);
4443 extern int zspsvx_(char *fact, char *uplo, integer *n, integer *nrhs,
4444  doublecomplex *ap, doublecomplex *afp, integer *ipiv,
4445  doublecomplex *b, integer *ldb, doublecomplex *x,
4446  integer *ldx, doublereal *rcond, doublereal *ferr,
4447  doublereal *berr, doublecomplex *work, doublereal *rwork,
4448  integer *info, ftnlen fact_len, ftnlen uplo_len);
4449 extern int zsptrf_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv,
4450  integer *info, ftnlen uplo_len);
4451 extern int zsptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv,
4452  doublecomplex *work, integer *info, ftnlen uplo_len);
4453 extern int zsptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap,
4454  integer *ipiv, doublecomplex *b, integer *ldb, integer *info,
4455  ftnlen uplo_len);
4456 extern int zstedc_(char *compz, integer *n, doublereal *d__, doublereal *e,
4457  doublecomplex *z__, integer *ldz, doublecomplex *work,
4458  integer *lwork, doublereal *rwork, integer *lrwork,
4459  integer *iwork, integer *liwork, integer *info,
4460  ftnlen compz_len);
4461 extern int zstegr_(char *jobz, char *range, integer *n, doublereal *d__,
4462  doublereal *e, doublereal *vl, doublereal *vu, integer *il,
4463  integer *iu, doublereal *abstol, integer *m, doublereal *w,
4464  doublecomplex *z__, integer *ldz, integer *isuppz,
4465  doublereal *work, integer *lwork, integer *iwork,
4466  integer *liwork, integer *info, ftnlen jobz_len,
4467  ftnlen range_len);
4468 extern int zstein_(integer *n, doublereal *d__, doublereal *e, integer *m,
4469  doublereal *w, integer *iblock, integer *isplit,
4470  doublecomplex *z__, integer *ldz, doublereal *work,
4471  integer *iwork, integer *ifail, integer *info);
4472 extern int zsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e,
4473  doublecomplex *z__, integer *ldz, doublereal *work,
4474  integer *info, ftnlen compz_len);
4475 extern int zsycon_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4476  integer *ipiv, doublereal *anorm, doublereal *rcond,
4477  doublecomplex *work, integer *info, ftnlen uplo_len);
4478 extern int zsymv_(char *uplo, integer *n, doublecomplex *alpha,
4479  doublecomplex *a, integer *lda, doublecomplex *x,
4480  integer *incx, doublecomplex *beta, doublecomplex *y,
4481  integer *incy, ftnlen uplo_len);
4482 extern int zsyr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x,
4483  integer *incx, doublecomplex *a, integer *lda,
4484  ftnlen uplo_len);
4485 extern int zsyrfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
4486  integer *lda, doublecomplex *af, integer *ldaf,
4487  integer *ipiv, doublecomplex *b, integer *ldb,
4488  doublecomplex *x, integer *ldx, doublereal *ferr,
4489  doublereal *berr, doublecomplex *work, doublereal *rwork,
4490  integer *info, ftnlen uplo_len);
4491 extern int zsysv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
4492  integer *lda, integer *ipiv, doublecomplex *b, integer *ldb,
4493  doublecomplex *work, integer *lwork, integer *info,
4494  ftnlen uplo_len);
4495 extern int zsysvx_(char *fact, char *uplo, integer *n, integer *nrhs,
4496  doublecomplex *a, integer *lda, doublecomplex *af,
4497  integer *ldaf, integer *ipiv, doublecomplex *b, integer *ldb,
4498  doublecomplex *x, integer *ldx, doublereal *rcond,
4499  doublereal *ferr, doublereal *berr, doublecomplex *work,
4500  integer *lwork, doublereal *rwork, integer *info,
4501  ftnlen fact_len, ftnlen uplo_len);
4502 extern int zsytf2_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4503  integer *ipiv, integer *info, ftnlen uplo_len);
4504 extern int zsytrf_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4505  integer *ipiv, doublecomplex *work, integer *lwork,
4506  integer *info, ftnlen uplo_len);
4507 extern int zsytri_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4508  integer *ipiv, doublecomplex *work, integer *info,
4509  ftnlen uplo_len);
4510 extern int zsytrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a,
4511  integer *lda, integer *ipiv, doublecomplex *b, integer *ldb,
4512  integer *info, ftnlen uplo_len);
4513 extern int ztbcon_(char *norm, char *uplo, char *diag, integer *n, integer *kd,
4514  doublecomplex *ab, integer *ldab, doublereal *rcond,
4515  doublecomplex *work, doublereal *rwork, integer *info,
4516  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
4517 extern int ztbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd,
4518  integer *nrhs, doublecomplex *ab, integer *ldab,
4519  doublecomplex *b, integer *ldb, doublecomplex *x,
4520  integer *ldx, doublereal *ferr, doublereal *berr,
4521  doublecomplex *work, doublereal *rwork, integer *info,
4522  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
4523 extern int ztbtrs_(char *uplo, char *trans, char *diag, integer *n, integer *kd,
4524  integer *nrhs, doublecomplex *ab, integer *ldab,
4525  doublecomplex *b, integer *ldb, integer *info,
4526  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
4527 extern int ztgevc_(char *side, char *howmny, logical *select, integer *n,
4528  doublecomplex *a, integer *lda, doublecomplex *b,
4529  integer *ldb, doublecomplex *vl, integer *ldvl,
4530  doublecomplex *vr, integer *ldvr, integer *mm, integer *m,
4531  doublecomplex *work, doublereal *rwork, integer *info,
4532  ftnlen side_len, ftnlen howmny_len);
4533 extern int ztgex2_(logical *wantq, logical *wantz, integer *n, doublecomplex *a,
4534  integer *lda, doublecomplex *b, integer *ldb,
4535  doublecomplex *q, integer *ldq, doublecomplex *z__,
4536  integer *ldz, integer *j1, integer *info);
4537 extern int ztgexc_(logical *wantq, logical *wantz, integer *n, doublecomplex *a,
4538  integer *lda, doublecomplex *b, integer *ldb,
4539  doublecomplex *q, integer *ldq, doublecomplex *z__,
4540  integer *ldz, integer *ifst, integer *ilst, integer *info);
4541 extern int ztgsen_(integer *ijob, logical *wantq, logical *wantz,
4542  logical *select, integer *n, doublecomplex *a, integer *lda,
4543  doublecomplex *b, integer *ldb, doublecomplex *alpha,
4544  doublecomplex *beta, doublecomplex *q, integer *ldq,
4545  doublecomplex *z__, integer *ldz, integer *m, doublereal *pl,
4546  doublereal *pr, doublereal *dif, doublecomplex *work,
4547  integer *lwork, integer *iwork, integer *liwork,
4548  integer *info);
4549 extern int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m, integer *p,
4550  integer *n, integer *k, integer *l, doublecomplex *a,
4551  integer *lda, doublecomplex *b, integer *ldb,
4552  doublereal *tola, doublereal *tolb, doublereal *alpha,
4553  doublereal *beta, doublecomplex *u, integer *ldu,
4554  doublecomplex *v, integer *ldv, doublecomplex *q,
4555  integer *ldq, doublecomplex *work, integer *ncycle,
4556  integer *info, ftnlen jobu_len, ftnlen jobv_len,
4557  ftnlen jobq_len);
4558 extern int ztgsna_(char *job, char *howmny, logical *select, integer *n,
4559  doublecomplex *a, integer *lda, doublecomplex *b,
4560  integer *ldb, doublecomplex *vl, integer *ldvl,
4561  doublecomplex *vr, integer *ldvr, doublereal *s,
4562  doublereal *dif, integer *mm, integer *m,
4563  doublecomplex *work, integer *lwork, integer *iwork,
4564  integer *info, ftnlen job_len, ftnlen howmny_len);
4565 extern int ztgsy2_(char *trans, integer *ijob, integer *m, integer *n,
4566  doublecomplex *a, integer *lda, doublecomplex *b,
4567  integer *ldb, doublecomplex *c__, integer *ldc,
4568  doublecomplex *d__, integer *ldd, doublecomplex *e,
4569  integer *lde, doublecomplex *f, integer *ldf,
4570  doublereal *scale, doublereal *rdsum, doublereal *rdscal,
4571  integer *info, ftnlen trans_len);
4572 extern int ztgsyl_(char *trans, integer *ijob, integer *m, integer *n,
4573  doublecomplex *a, integer *lda, doublecomplex *b,
4574  integer *ldb, doublecomplex *c__, integer *ldc,
4575  doublecomplex *d__, integer *ldd, doublecomplex *e,
4576  integer *lde, doublecomplex *f, integer *ldf,
4577  doublereal *scale, doublereal *dif, doublecomplex *work,
4578  integer *lwork, integer *iwork, integer *info,
4579  ftnlen trans_len);
4580 extern int ztpcon_(char *norm, char *uplo, char *diag, integer *n,
4581  doublecomplex *ap, doublereal *rcond, doublecomplex *work,
4582  doublereal *rwork, integer *info, ftnlen norm_len,
4583  ftnlen uplo_len, ftnlen diag_len);
4584 extern int ztprfs_(char *uplo, char *trans, char *diag, integer *n,
4585  integer *nrhs, doublecomplex *ap, doublecomplex *b,
4586  integer *ldb, doublecomplex *x, integer *ldx,
4587  doublereal *ferr, doublereal *berr, doublecomplex *work,
4588  doublereal *rwork, integer *info, ftnlen uplo_len,
4589  ftnlen trans_len, ftnlen diag_len);
4590 extern int ztptri_(char *uplo, char *diag, integer *n, doublecomplex *ap,
4591  integer *info, ftnlen uplo_len, ftnlen diag_len);
4592 extern int ztptrs_(char *uplo, char *trans, char *diag, integer *n,
4593  integer *nrhs, doublecomplex *ap, doublecomplex *b,
4594  integer *ldb, integer *info, ftnlen uplo_len,
4595  ftnlen trans_len, ftnlen diag_len);
4596 extern int ztrcon_(char *norm, char *uplo, char *diag, integer *n,
4597  doublecomplex *a, integer *lda, doublereal *rcond,
4598  doublecomplex *work, doublereal *rwork, integer *info,
4599  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
4600 extern int ztrevc_(char *side, char *howmny, logical *select, integer *n,
4601  doublecomplex *t, integer *ldt, doublecomplex *vl,
4602  integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm,
4603  integer *m, doublecomplex *work, doublereal *rwork,
4604  integer *info, ftnlen side_len, ftnlen howmny_len);
4605 extern int ztrexc_(char *compq, integer *n, doublecomplex *t, integer *ldt,
4606  doublecomplex *q, integer *ldq, integer *ifst, integer *ilst,
4607  integer *info, ftnlen compq_len);
4608 extern int ztrrfs_(char *uplo, char *trans, char *diag, integer *n,
4609  integer *nrhs, doublecomplex *a, integer *lda,
4610  doublecomplex *b, integer *ldb, doublecomplex *x,
4611  integer *ldx, doublereal *ferr, doublereal *berr,
4612  doublecomplex *work, doublereal *rwork, integer *info,
4613  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
4614 extern int ztrsen_(char *job, char *compq, logical *select, integer *n,
4615  doublecomplex *t, integer *ldt, doublecomplex *q,
4616  integer *ldq, doublecomplex *w, integer *m, doublereal *s,
4617  doublereal *sep, doublecomplex *work, integer *lwork,
4618  integer *info, ftnlen job_len, ftnlen compq_len);
4619 extern int ztrsna_(char *job, char *howmny, logical *select, integer *n,
4620  doublecomplex *t, integer *ldt, doublecomplex *vl,
4621  integer *ldvl, doublecomplex *vr, integer *ldvr,
4622  doublereal *s, doublereal *sep, integer *mm, integer *m,
4623  doublecomplex *work, integer *ldwork, doublereal *rwork,
4624  integer *info, ftnlen job_len, ftnlen howmny_len);
4625 extern int ztrsyl_(char *trana, char *tranb, integer *isgn, integer *m,
4626  integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
4627  integer *ldb, doublecomplex *c__, integer *ldc,
4628  doublereal *scale, integer *info, ftnlen trana_len,
4629  ftnlen tranb_len);
4630 extern int ztrti2_(char *uplo, char *diag, integer *n, doublecomplex *a,
4631  integer *lda, integer *info, ftnlen uplo_len,
4632  ftnlen diag_len);
4633 extern int ztrtri_(char *uplo, char *diag, integer *n, doublecomplex *a,
4634  integer *lda, integer *info, ftnlen uplo_len,
4635  ftnlen diag_len);
4636 extern int ztrtrs_(char *uplo, char *trans, char *diag, integer *n,
4637  integer *nrhs, doublecomplex *a, integer *lda,
4638  doublecomplex *b, integer *ldb, integer *info,
4639  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
4640 extern int ztzrqf_(integer *m, integer *n, doublecomplex *a, integer *lda,
4641  doublecomplex *tau, integer *info);
4642 extern int ztzrzf_(integer *m, integer *n, doublecomplex *a, integer *lda,
4643  doublecomplex *tau, doublecomplex *work, integer *lwork,
4644  integer *info);
4645 extern int zung2l_(integer *m, integer *n, integer *k, doublecomplex *a,
4646  integer *lda, doublecomplex *tau, doublecomplex *work,
4647  integer *info);
4648 extern int zung2r_(integer *m, integer *n, integer *k, doublecomplex *a,
4649  integer *lda, doublecomplex *tau, doublecomplex *work,
4650  integer *info);
4651 extern int zungbr_(char *vect, integer *m, integer *n, integer *k,
4652  doublecomplex *a, integer *lda, doublecomplex *tau,
4653  doublecomplex *work, integer *lwork, integer *info,
4654  ftnlen vect_len);
4655 extern int zunghr_(integer *n, integer *ilo, integer *ihi, doublecomplex *a,
4656  integer *lda, doublecomplex *tau, doublecomplex *work,
4657  integer *lwork, integer *info);
4658 extern int zungl2_(integer *m, integer *n, integer *k, doublecomplex *a,
4659  integer *lda, doublecomplex *tau, doublecomplex *work,
4660  integer *info);
4661 extern int zunglq_(integer *m, integer *n, integer *k, doublecomplex *a,
4662  integer *lda, doublecomplex *tau, doublecomplex *work,
4663  integer *lwork, integer *info);
4664 extern int zungql_(integer *m, integer *n, integer *k, doublecomplex *a,
4665  integer *lda, doublecomplex *tau, doublecomplex *work,
4666  integer *lwork, integer *info);
4667 extern int zungqr_(integer *m, integer *n, integer *k, doublecomplex *a,
4668  integer *lda, doublecomplex *tau, doublecomplex *work,
4669  integer *lwork, integer *info);
4670 extern int zungr2_(integer *m, integer *n, integer *k, doublecomplex *a,
4671  integer *lda, doublecomplex *tau, doublecomplex *work,
4672  integer *info);
4673 extern int zungrq_(integer *m, integer *n, integer *k, doublecomplex *a,
4674  integer *lda, doublecomplex *tau, doublecomplex *work,
4675  integer *lwork, integer *info);
4676 extern int zungtr_(char *uplo, integer *n, doublecomplex *a, integer *lda,
4677  doublecomplex *tau, doublecomplex *work, integer *lwork,
4678  integer *info, ftnlen uplo_len);
4679 extern int zunm2l_(char *side, char *trans, integer *m, integer *n, integer *k,
4680  doublecomplex *a, integer *lda, doublecomplex *tau,
4681  doublecomplex *c__, integer *ldc, doublecomplex *work,
4682  integer *info, ftnlen side_len, ftnlen trans_len);
4683 extern int zunm2r_(char *side, char *trans, integer *m, integer *n, integer *k,
4684  doublecomplex *a, integer *lda, doublecomplex *tau,
4685  doublecomplex *c__, integer *ldc, doublecomplex *work,
4686  integer *info, ftnlen side_len, ftnlen trans_len);
4687 extern int zunmbr_(char *vect, char *side, char *trans, integer *m, integer *n,
4688  integer *k, doublecomplex *a, integer *lda,
4689  doublecomplex *tau, doublecomplex *c__, integer *ldc,
4690  doublecomplex *work, integer *lwork, integer *info,
4691  ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
4692 extern int zunmhr_(char *side, char *trans, integer *m, integer *n,
4693  integer *ilo, integer *ihi, doublecomplex *a, integer *lda,
4694  doublecomplex *tau, doublecomplex *c__, integer *ldc,
4695  doublecomplex *work, integer *lwork, integer *info,
4696  ftnlen side_len, ftnlen trans_len);
4697 extern int zunml2_(char *side, char *trans, integer *m, integer *n, integer *k,
4698  doublecomplex *a, integer *lda, doublecomplex *tau,
4699  doublecomplex *c__, integer *ldc, doublecomplex *work,
4700  integer *info, ftnlen side_len, ftnlen trans_len);
4701 extern int zunmlq_(char *side, char *trans, integer *m, integer *n, integer *k,
4702  doublecomplex *a, integer *lda, doublecomplex *tau,
4703  doublecomplex *c__, integer *ldc, doublecomplex *work,
4704  integer *lwork, integer *info, ftnlen side_len,
4705  ftnlen trans_len);
4706 extern int zunmql_(char *side, char *trans, integer *m, integer *n, integer *k,
4707  doublecomplex *a, integer *lda, doublecomplex *tau,
4708  doublecomplex *c__, integer *ldc, doublecomplex *work,
4709  integer *lwork, integer *info, ftnlen side_len,
4710  ftnlen trans_len);
4711 extern int zunmqr_(char *side, char *trans, integer *m, integer *n, integer *k,
4712  doublecomplex *a, integer *lda, doublecomplex *tau,
4713  doublecomplex *c__, integer *ldc, doublecomplex *work,
4714  integer *lwork, integer *info, ftnlen side_len,
4715  ftnlen trans_len);
4716 extern int zunmr2_(char *side, char *trans, integer *m, integer *n, integer *k,
4717  doublecomplex *a, integer *lda, doublecomplex *tau,
4718  doublecomplex *c__, integer *ldc, doublecomplex *work,
4719  integer *info, ftnlen side_len, ftnlen trans_len);
4720 extern int zunmr3_(char *side, char *trans, integer *m, integer *n, integer *k,
4721  integer *l, doublecomplex *a, integer *lda,
4722  doublecomplex *tau, doublecomplex *c__, integer *ldc,
4723  doublecomplex *work, integer *info, ftnlen side_len,
4724  ftnlen trans_len);
4725 extern int zunmrq_(char *side, char *trans, integer *m, integer *n, integer *k,
4726  doublecomplex *a, integer *lda, doublecomplex *tau,
4727  doublecomplex *c__, integer *ldc, doublecomplex *work,
4728  integer *lwork, integer *info, ftnlen side_len,
4729  ftnlen trans_len);
4730 extern int zunmrz_(char *side, char *trans, integer *m, integer *n, integer *k,
4731  integer *l, doublecomplex *a, integer *lda,
4732  doublecomplex *tau, doublecomplex *c__, integer *ldc,
4733  doublecomplex *work, integer *lwork, integer *info,
4734  ftnlen side_len, ftnlen trans_len);
4735 extern int zunmtr_(char *side, char *uplo, char *trans, integer *m, integer *n,
4736  doublecomplex *a, integer *lda, doublecomplex *tau,
4737  doublecomplex *c__, integer *ldc, doublecomplex *work,
4738  integer *lwork, integer *info, ftnlen side_len,
4739  ftnlen uplo_len, ftnlen trans_len);
4740 extern int zupgtr_(char *uplo, integer *n, doublecomplex *ap,
4741  doublecomplex *tau, doublecomplex *q, integer *ldq,
4742  doublecomplex *work, integer *info, ftnlen uplo_len);
4743 extern int zupmtr_(char *side, char *uplo, char *trans, integer *m, integer *n,
4744  doublecomplex *ap, doublecomplex *tau, doublecomplex *c__,
4745  integer *ldc, doublecomplex *work, integer *info,
4746  ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
4747 
4748 #endif
order
int order(int i_x, int i_y, int yNum)
Definition: InterpSpline.c:53
ca
struct cairo_state ca
Definition: cairodriver/graph.c:42
real
float real
Definition: la.h:52
doublereal
double doublereal
Definition: la.h:53
L_fp
logical(* L_fp)()
Definition: la.h:78
integer
int integer
Definition: la.h:48
Z_f
void Z_f
Definition: la.h:86
logical
int logical
Definition: la.h:60
ftnlen
int ftnlen
Definition: la.h:68
C_f
void C_f
Definition: la.h:84
E_f
doublereal E_f
Definition: la.h:87
dlamc3_
doublereal dlamc3_(doublereal *a, doublereal *b)
dlacon_
int dlacon_(integer *n, doublereal *v, doublereal *x, integer *isgn, doublereal *est, integer *kase)
cptsv_
int cptsv_(integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb, integer *info)
ztrrfs_
int ztrrfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
ztgevc_
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)
zunm2r_
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)
dgerfs_
int dgerfs_(char *trans, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen trans_len)
zheev_
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)
zpotri_
int zpotri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
dgeqr2_
int dgeqr2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
dorghr_
int dorghr_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
zgttrf_
int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *info)
slasdt_
int slasdt_(integer *n, integer *lvl, integer *nd, integer *inode, integer *ndiml, integer *ndimr, integer *msub)
cggbak_
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)
slanv2_
int slanv2_(real *a, real *b, real *c__, real *d__, real *rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn)
spbsv_
int spbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info, ftnlen uplo_len)
sormbr_
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)
dlascl_
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)
dpttrf_
int dpttrf_(integer *n, doublereal *d__, doublereal *e, integer *info)
slaed9_
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)
zlatrs_
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)
cgelqf_
int cgelqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
dgtrfs_
int dgtrfs_(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 *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen trans_len)
dspsvx_
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)
cppcon_
int cppcon_(char *uplo, integer *n, complex *ap, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplo_len)
zlanhs_
doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len)
strcon_
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)
sposv_
int sposv_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len)
claed7_
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)
dlansy_
doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
slasda_
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)
sorg2r_
int sorg2r_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info)
dtrsna_
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)
ztrsna_
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)
dlasd2_
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)
dtgsy2_
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)
csymv_
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)
ssbgvd_
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)
dtgex2_
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)
chptrf_
int chptrf_(char *uplo, integer *n, complex *ap, integer *ipiv, integer *info, ftnlen uplo_len)
claqhe_
int claqhe_(char *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
slaqps_
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)
dstev_
int dstev_(char *jobz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen jobz_len)
cspsv_
int cspsv_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
cheev_
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)
zlanht_
doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e, ftnlen norm_len)
dlassq_
int dlassq_(integer *n, doublereal *x, integer *incx, doublereal *scale, doublereal *sumsq)
slasq4_
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)
ssycon_
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)
zpbsvx_
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)
xerbla_
int xerbla_(char *srname, integer *info, ftnlen srname_len)
csptrf_
int csptrf_(char *uplo, integer *n, complex *ap, integer *ipiv, integer *info, ftnlen uplo_len)
zlacpy_
int zlacpy_(char *uplo, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen uplo_len)
dlansb_
doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
dorgql_
int dorgql_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
crot_
int crot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, complex *s)
chptri_
int chptri_(char *uplo, integer *n, complex *ap, integer *ipiv, complex *work, integer *info, ftnlen uplo_len)
dgghrd_
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)
chesv_
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)
zgetrf_
int zgetrf_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info)
sopmtr_
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)
slaed6_
int slaed6_(integer *kniter, logical *orgati, real *rho, real *d__, real *z__, real *finit, real *tau, integer *info)
spttrf_
int spttrf_(integer *n, real *d__, real *e, integer *info)
zpoequ_
int zpoequ_(integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info)
zhetrd_
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)
dlasyf_
int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb, doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *ldw, integer *info, ftnlen uplo_len)
dlar1v_
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)
cpptrf_
int cpptrf_(char *uplo, integer *n, complex *ap, integer *info, ftnlen uplo_len)
cgeqp3_
int cgeqp3_(integer *m, integer *n, complex *a, integer *lda, integer *jpvt, complex *tau, complex *work, integer *lwork, real *rwork, integer *info)
ssyevr_
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)
cunmr3_
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)
cggev_
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)
claqps_
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)
dggsvd_
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)
cunglq_
int cunglq_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
dlarfx_
int dlarfx_(char *side, integer *m, integer *n, doublereal *v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, ftnlen side_len)
dtrtrs_
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)
sorgrq_
int sorgrq_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
dtgsyl_
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)
slamrg_
int slamrg_(integer *n1, integer *n2, real *a, integer *strd1, integer *strd2, integer *index)
zhegs2_
int zhegs2_(integer *itype, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
dorgqr_
int dorgqr_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
dpotrs_
int dpotrs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
zpprfs_
int zpprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
dsptrd_
int dsptrd_(char *uplo, integer *n, doublereal *ap, doublereal *d__, doublereal *e, doublereal *tau, integer *info, ftnlen uplo_len)
spbsvx_
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)
sgegv_
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)
clalsd_
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)
sbdsqr_
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)
dppsvx_
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)
slasdq_
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)
sgebal_
int sgebal_(char *job, integer *n, real *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info, ftnlen job_len)
cgetc2_
int cgetc2_(integer *n, complex *a, integer *lda, integer *ipiv, integer *jpiv, integer *info)
cpbsvx_
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)
sormql_
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)
dgees_
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)
zlaqsp_
int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
dlargv_
int dlargv_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *c__, integer *incc)
dlasd5_
int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *work)
chprfs_
int chprfs_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len)
dlaed5_
int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam)
slarfg_
int slarfg_(integer *n, real *alpha, real *x, integer *incx, real *tau)
spbstf_
int spbstf_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info, ftnlen uplo_len)
dgetrf_
int dgetrf_(integer *m, integer *n, doublereal *a, integer *lda, integer *ipiv, integer *info)
sppsvx_
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)
dpotf2_
int dpotf2_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
slasd0_
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)
strexc_
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)
clatrs_
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)
dgtsvx_
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)
sladiv_
int sladiv_(real *a, real *b, real *c__, real *d__, real *p, real *q)
dlansp_
doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
slacpy_
int slacpy_(char *uplo, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, ftnlen uplo_len)
clatps_
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)
chegvx_
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)
chpgvd_
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)
slalsa_
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)
sgbsv_
int sgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, integer *info)
zspmv_
int zspmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len)
zsyrfs_
int zsyrfs_(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 *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
clansp_
E_f clansp_(char *norm, char *uplo, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len)
icmax1_
integer icmax1_(integer *n, complex *cx, integer *incx)
zppequ_
int zppequ_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len)
spbrfs_
int spbrfs_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen uplo_len)
cgesv_
int cgesv_(integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info)
dlange_
doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len)
cunmlq_
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)
cunmr2_
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)
ctrtrs_
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)
sorgr2_
int sorgr2_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info)
dlaqsp_
int dlaqsp_(char *uplo, integer *n, doublereal *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
spotf2_
int spotf2_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
sormtr_
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)
dtgevc_
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)
slamc1_
int slamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1)
chpgv_
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)
dlamc2_
int dlamc2_(integer *beta, integer *t, logical *rnd, doublereal *eps, integer *emin, doublereal *rmin, integer *emax, doublereal *rmax)
zgees_
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)
dormrq_
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)
sgesvd_
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)
zhbtrd_
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)
sgeqlf_
int sgeqlf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
spttrs_
int spttrs_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info)
dlaed2_
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)
clarzb_
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)
sorgql_
int sorgql_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
dgehd2_
int dgehd2_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
clasr_
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)
sgelss_
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)
sspcon_
int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len)
zgeqlf_
int zgeqlf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
zggglm_
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)
slag2_
int slag2_(real *a, integer *lda, real *b, integer *ldb, real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *wi)
dtbtrs_
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)
sgegs_
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)
zlarfb_
int zlarfb_(char *side, char *trans, char *direct, char *storev, integer *m, integer *n, integer *k, 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)
cupgtr_
int cupgtr_(char *uplo, integer *n, complex *ap, complex *tau, complex *q, integer *ldq, complex *work, integer *info, ftnlen uplo_len)
zhecon_
int zhecon_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len)
dgeqlf_
int dgeqlf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
dgeevx_
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)
csytrs_
int csytrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
zgbrfs_
int zgbrfs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen trans_len)
dlamch_
doublereal dlamch_(char *cmach, ftnlen cmach_len)
slasd9_
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)
dlaeda_
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)
sgges_
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)
dlartv_
int dlartv_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer *incc)
dlarz_
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)
dorgr2_
int dorgr2_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
slaed2_
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)
dlasrt_
int dlasrt_(char *id, integer *n, doublereal *d__, integer *info, ftnlen id_len)
chpgst_
int chpgst_(integer *itype, char *uplo, integer *n, complex *ap, complex *bp, integer *info, ftnlen uplo_len)
zheevx_
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)
clantb_
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)
cgbtrs_
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)
ctrexc_
int ctrexc_(char *compq, integer *n, complex *t, integer *ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *info, ftnlen compq_len)
zungr2_
int zungr2_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
clahef_
int clahef_(char *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, integer *info, ftnlen uplo_len)
dorm2l_
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)
cunmrz_
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)
claqhp_
int claqhp_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
zlarnv_
int zlarnv_(integer *idist, integer *iseed, integer *n, doublecomplex *x)
zupmtr_
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)
dlasdq_
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)
sgetrs_
int sgetrs_(char *trans, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen trans_len)
zunmrq_
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)
slaed3_
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)
zungtr_
int zungtr_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len)
cgehrd_
int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
dlasd3_
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)
sgttrf_
int sgttrf_(integer *n, real *dl, real *d__, real *du, real *du2, integer *ipiv, integer *info)
dlarrb_
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)
cungbr_
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)
zlanhb_
doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
zgelsy_
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)
dptsvx_
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)
dgbrfs_
int dgbrfs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen trans_len)
cggevx_
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)
zlaesy_
int zlaesy_(doublecomplex *a, doublecomplex *b, doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2, doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1)
sorm2r_
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)
slaqge_
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)
zgeevx_
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)
zhbgvd_
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)
cunmql_
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)
slamc5_
int slamc5_(integer *beta, integer *p, integer *emin, logical *ieee, integer *emax, real *rmax)
dlaln2_
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)
zsytrs_
int zsytrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
cpbtf2_
int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplo_len)
zptrfs_
int zptrfs_(char *uplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
slals0_
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)
stpcon_
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)
clahqr_
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)
dlatbs_
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)
dlarrf_
int dlarrf_(integer *n, doublereal *d__, doublereal *l, doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast, doublereal *w, doublereal *dplus, doublereal *lplus, doublereal *work, integer *iwork, integer *info)
zgeqr2_
int zgeqr2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
zgerfs_
int zgerfs_(char *trans, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen trans_len)
zlaqhp_
int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
cunm2r_
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)
dlae2_
int dlae2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2)
ctptrs_
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)
cgbbrd_
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)
slanst_
E_f slanst_(char *norm, integer *n, real *d__, real *e, ftnlen norm_len)
zstedc_
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)
spprfs_
int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap, real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen uplo_len)
sgeev_
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)
zppsv_
int zppsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
cgbtf2_
int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info)
cggqrf_
int cggqrf_(integer *n, integer *m, integer *p, complex *a, integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, complex *work, integer *lwork, integer *info)
sstegr_
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)
zunmql_
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)
cgeequ_
int cgeequ_(integer *m, integer *n, complex *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info)
chesvx_
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)
dptrfs_
int dptrfs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *info)
dtbcon_
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)
zlacp2_
int zlacp2_(char *uplo, integer *m, integer *n, doublereal *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen uplo_len)
claed0_
int claed0_(integer *qsiz, integer *n, real *d__, real *e, complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork, integer *iwork, integer *info)
chbevx_
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)
zlantb_
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)
checon_
int checon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len)
sormr2_
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)
zlaqgb_
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)
claswp_
int claswp_(integer *n, complex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx)
dtrexc_
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)
slatdf_
int slatdf_(integer *ijob, integer *n, real *z__, integer *ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *jpiv)
spptri_
int spptri_(char *uplo, integer *n, real *ap, integer *info, ftnlen uplo_len)
dlagts_
int dlagts_(integer *job, integer *n, doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, integer *in, doublereal *y, doublereal *tol, integer *info)
dgebal_
int dgebal_(char *job, integer *n, doublereal *a, integer *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info, ftnlen job_len)
dgeql2_
int dgeql2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
zgttrs_
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)
cgelsx_
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)
dpteqr_
int dpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len)
spteqr_
int spteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen compz_len)
dgebd2_
int dgebd2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *taup, doublereal *work, integer *info)
ctrsna_
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)
sptts2_
int sptts2_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb)
cgecon_
int cgecon_(char *norm, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen norm_len)
zgebak_
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)
dsbev_
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)
dlaqsb_
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)
claev2_
int claev2_(complex *a, complex *b, complex *c__, real *rt1, real *rt2, real *cs1, complex *sn1)
cgebrd_
int cgebrd_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *lwork, integer *info)
slaln2_
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)
zposv_
int zposv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
stgsyl_
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)
dsysv_
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)
sgeevx_
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)
cposv_
int cposv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
zlasr_
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)
dtgsen_
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)
ztrexc_
int ztrexc_(char *compq, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *ilst, integer *info, ftnlen compq_len)
dlaset_
int dlaset_(char *uplo, integer *m, integer *n, doublereal *alpha, doublereal *beta, doublereal *a, integer *lda, ftnlen uplo_len)
dlasq2_
int dlasq2_(integer *n, doublereal *z__, integer *info)
cgeqrf_
int cgeqrf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
strrfs_
int strrfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
zlartv_
int zlartv_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s, integer *incc)
dpbrfs_
int dpbrfs_(char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
dlasq1_
int dlasq1_(integer *n, doublereal *d__, doublereal *e, doublereal *work, integer *info)
slabrd_
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)
slarzt_
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)
dlangb_
doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *work, ftnlen norm_len)
dorgl2_
int dorgl2_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
claset_
int claset_(char *uplo, integer *m, integer *n, complex *alpha, complex *beta, complex *a, integer *lda, ftnlen uplo_len)
zgtrfs_
int zgtrfs_(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 *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen trans_len)
ssptrd_
int ssptrd_(char *uplo, integer *n, real *ap, real *d__, real *e, real *tau, integer *info, ftnlen uplo_len)
sgetf2_
int sgetf2_(integer *m, integer *n, real *a, integer *lda, integer *ipiv, integer *info)
zsytri_
int zsytri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len)
cgelsd_
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)
dlals0_
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)
dpptri_
int dpptri_(char *uplo, integer *n, doublereal *ap, integer *info, ftnlen uplo_len)
ssyev_
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)
zhgeqz_
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)
slaqsy_
int slaqsy_(char *uplo, integer *n, real *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
dsptrs_
int dsptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
zpptri_
int zpptri_(char *uplo, integer *n, doublecomplex *ap, integer *info, ftnlen uplo_len)
dlabrd_
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)
dlaqgb_
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)
cpotf2_
int cpotf2_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
claqsp_
int claqsp_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
dlantb_
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)
zsymv_
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)
ssygvd_
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)
ctbrfs_
int ctbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
zgeev_
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)
dgtcon_
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)
sspevx_
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)
zlals0_
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)
ssbgst_
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)
ssygv_
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)
lsamen_
logical lsamen_(integer *n, char *ca, char *cb, ftnlen ca_len, ftnlen cb_len)
chptrs_
int chptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
stgexc_
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)
cggglm_
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)
zptts2_
int zptts2_(integer *iuplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb)
cpbtrf_
int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplo_len)
zlarzb_
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)
zungqr_
int zungqr_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
ssteqr_
int ssteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen compz_len)
clangb_
E_f clangb_(char *norm, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *work, ftnlen norm_len)
ssyrfs_
int ssyrfs_(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 *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen uplo_len)
chbtrd_
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)
dlarfb_
int dlarfb_(char *side, char *trans, char *direct, char *storev, integer *m, integer *n, integer *k, 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)
slapmt_
int slapmt_(logical *forwrd, integer *m, integer *n, real *x, integer *ldx, integer *k)
dstevr_
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)
dgges_
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)
sggqrf_
int sggqrf_(integer *n, integer *m, integer *p, real *a, integer *lda, real *taua, real *b, integer *ldb, real *taub, real *work, integer *lwork, integer *info)
dgelsx_
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)
zunmhr_
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)
chbev_
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)
dlasd8_
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)
zpocon_
int zpocon_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
dorgbr_
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)
dlasv2_
int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *csr, doublereal *snl, doublereal *csl)
slarrv_
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)
cgges_
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)
slarrf_
int slarrf_(integer *n, real *d__, real *l, real *ld, real *lld, integer *ifirst, integer *ilast, real *w, real *dplus, real *lplus, real *work, integer *iwork, integer *info)
ctrcon_
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)
cgetri_
int cgetri_(integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info)
zhbevd_
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)
dstevd_
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)
ztrcon_
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)
dlantr_
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)
ztgsy2_
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)
cpbtrs_
int cpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
sormhr_
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)
sgeqp3_
int sgeqp3_(integer *m, integer *n, real *a, integer *lda, integer *jpvt, real *tau, real *work, integer *lwork, integer *info)
sgbtf2_
int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, integer *info)
sggsvp_
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)
zggsvp_
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)
csteqr_
int csteqr_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, real *work, integer *info, ftnlen compz_len)
clartv_
int clartv_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *c__, complex *s, integer *incc)
zunmbr_
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)
cpttrs_
int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
dlatrz_
int dlatrz_(integer *m, integer *n, integer *l, doublereal *a, integer *lda, doublereal *tau, doublereal *work)
dgeev_
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)
slar1v_
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)
slansp_
E_f slansp_(char *norm, char *uplo, integer *n, real *ap, real *work, ftnlen norm_len, ftnlen uplo_len)
ztrti2_
int ztrti2_(char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
dsygvx_
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)
dgegv_
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)
zsptrs_
int zsptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
dppcon_
int dppcon_(char *uplo, integer *n, doublereal *ap, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
sgeqrf_
int sgeqrf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
slansy_
E_f slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len)
ztzrqf_
int ztzrqf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, integer *info)
slagtm_
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)
ssbev_
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)
zdrscl_
int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, integer *incx)
sgelsx_
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)
dlarre_
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)
zheevd_
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)
dgbtrs_
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)
zlatps_
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)
cgehd2_
int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *info)
dspgvd_
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)
csprfs_
int csprfs_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len)
zhetd2_
int zhetd2_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, integer *info, ftnlen uplo_len)
zgegv_
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)
claqsb_
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)
sspsv_
int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len)
dspgvx_
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)
zlapll_
int zlapll_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *ssmin)
zggbak_
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)
zlatrd_
int zlatrd_(char *uplo, integer *n, integer *nb, doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau, doublecomplex *w, integer *ldw, ftnlen uplo_len)
zunm2l_
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)
sorgbr_
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)
clatrz_
int clatrz_(integer *m, integer *n, integer *l, complex *a, integer *lda, complex *tau, complex *work)
clatbs_
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)
ctrtri_
int ctrtri_(char *uplo, char *diag, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
stzrzf_
int stzrzf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
sggbak_
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)
dsytf2_
int dsytf2_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
zppsvx_
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)
dormqr_
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)
zggbal_
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)
sgebd2_
int sgebd2_(integer *m, integer *n, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *work, integer *info)
zpbtrf_
int zpbtrf_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info, ftnlen uplo_len)
zppcon_
int zppcon_(char *uplo, integer *n, doublecomplex *ap, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
clauu2_
int clauu2_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
sggbal_
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)
slasrt_
int slasrt_(char *id, integer *n, real *d__, integer *info, ftnlen id_len)
slatbs_
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)
chbgst_
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)
dspgv_
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)
ieeeck_
integer ieeeck_(integer *ispec, real *zero, real *one)
ctgsen_
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)
dgecon_
int dgecon_(char *norm, integer *n, doublereal *a, integer *lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen norm_len)
stzrqf_
int stzrqf_(integer *m, integer *n, real *a, integer *lda, real *tau, integer *info)
zrot_
int zrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s)
sorglq_
int sorglq_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
ctprfs_
int ctprfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
slartv_
int slartv_(integer *n, real *x, integer *incx, real *y, integer *incy, real *c__, real *s, integer *incc)
dgetrs_
int dgetrs_(char *trans, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen trans_len)
slapy3_
E_f slapy3_(real *x, real *y, real *z__)
zunmrz_
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)
sgeqpf_
int sgeqpf_(integer *m, integer *n, real *a, integer *lda, integer *jpvt, real *tau, real *work, integer *info)
slasd2_
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)
cung2r_
int cung2r_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info)
ctgexc_
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)
zlaed8_
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)
zgesvx_
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)
zhpevx_
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)
cunmtr_
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)
dpotri_
int dpotri_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
csptrs_
int csptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
sgtcon_
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)
slauu2_
int slauu2_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
dpbsv_
int dpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
zlahqr_
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)
zlacgv_
int zlacgv_(integer *n, doublecomplex *x, integer *incx)
dgesdd_
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)
zstein_
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)
sgglse_
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)
dlaruv_
int dlaruv_(integer *iseed, integer *n, doublereal *x)
slaset_
int slaset_(char *uplo, integer *m, integer *n, real *alpha, real *beta, real *a, integer *lda, ftnlen uplo_len)
cgbrfs_
int cgbrfs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen trans_len)
slaein_
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)
cgtcon_
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)
slapy2_
E_f slapy2_(real *x, real *y)
slatrd_
int slatrd_(char *uplo, integer *n, integer *nb, real *a, integer *lda, real *e, real *tau, real *w, integer *ldw, ftnlen uplo_len)
dggrqf_
int dggrqf_(integer *m, integer *p, integer *n, doublereal *a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, doublereal *taub, doublereal *work, integer *lwork, integer *info)
slahqr_
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)
dgehrd_
int dgehrd_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
zgebd2_
int zgebd2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *work, integer *info)
zlarf_
int zlarf_(char *side, integer *m, integer *n, doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, ftnlen side_len)
csytrf_
int csytrf_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info, ftnlen uplo_len)
chpevd_
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)
cgeevx_
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)
zhptrs_
int zhptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
dgeqrf_
int dgeqrf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
zlapmt_
int zlapmt_(logical *forwrd, integer *m, integer *n, doublecomplex *x, integer *ldx, integer *k)
cgeqlf_
int cgeqlf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
dggsvp_
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)
dsyev_
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)
ztzrzf_
int ztzrzf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
zungrq_
int zungrq_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
zhegvx_
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)
ztgexc_
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)
sgghrd_
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)
zstegr_
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)
clanhe_
E_f clanhe_(char *norm, char *uplo, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len)
dpttrs_
int dpttrs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info)
zungql_
int zungql_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
dggevx_
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)
zlascl_
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)
dlacpy_
int dlacpy_(char *uplo, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, ftnlen uplo_len)
zlar2v_
int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s, integer *incc)
shseqr_
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)
sgels_
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)
slaed4_
int slaed4_(integer *n, integer *i__, real *d__, real *z__, real *delta, real *rho, real *dlam, integer *info)
dlaed0_
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)
zgeqpf_
int zgeqpf_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, doublereal *rwork, integer *info)
dlasq4_
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)
ssbevx_
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)
ztrevc_
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)
stgsna_
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)
clar2v_
int clar2v_(integer *n, complex *x, complex *y, complex *z__, integer *incx, real *c__, complex *s, integer *incc)
cggsvd_
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)
cpptri_
int cpptri_(char *uplo, integer *n, complex *ap, integer *info, ftnlen uplo_len)
sstevr_
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)
slagtf_
int slagtf_(integer *n, real *a, real *lambda, real *b, real *c__, real *tol, real *d__, integer *in, integer *info)
slarfx_
int slarfx_(char *side, integer *m, integer *n, real *v, real *tau, real *c__, integer *ldc, real *work, ftnlen side_len)
sstevx_
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)
clacrm_
int clacrm_(integer *m, integer *n, complex *a, integer *lda, real *b, integer *ldb, complex *c__, integer *ldc, real *rwork)
slasy2_
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)
cpocon_
int cpocon_(char *uplo, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplo_len)
dptts2_
int dptts2_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb)
sppcon_
int sppcon_(char *uplo, integer *n, real *ap, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len)
dbdsdc_
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)
claqp2_
int claqp2_(integer *m, integer *n, integer *offset, complex *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, complex *work)
dsteqr_
int dsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len)
dggbal_
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)
cgesc2_
int cgesc2_(integer *n, complex *a, integer *lda, complex *rhs, integer *ipiv, integer *jpiv, real *scale)
sstev_
int sstev_(char *jobz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen jobz_len)
zggrqf_
int zggrqf_(integer *m, integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, integer *ldb, doublecomplex *taub, doublecomplex *work, integer *lwork, integer *info)
dppsv_
int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
slamc3_
E_f slamc3_(real *a, real *b)
zlangb_
doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len)
slaeda_
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)
dlaebz_
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)
sgeqr2_
int sgeqr2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info)
clacrt_
int clacrt_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, complex *c__, complex *s)
dlaed3_
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)
zlanhp_
doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
claic1_
int claic1_(integer *job, integer *j, complex *x, real *sest, complex *w, complex *gamma, real *sestpr, complex *s, complex *c__)
zpptrf_
int zpptrf_(char *uplo, integer *n, doublecomplex *ap, integer *info, ftnlen uplo_len)
cunghr_
int cunghr_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
claqge_
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)
dstevx_
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)
sggev_
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)
zhegst_
int zhegst_(integer *itype, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
slasyf_
int slasyf_(char *uplo, integer *n, integer *nb, integer *kb, real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer *info, ftnlen uplo_len)
zlantr_
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)
cgtsv_
int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *b, integer *ldb, integer *info)
sstein_
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)
dsterf_
int dsterf_(integer *n, doublereal *d__, doublereal *e, integer *info)
sgesdd_
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)
dlarzb_
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)
sgbrfs_
int sgbrfs_(char *trans, integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen trans_len)
dlaed4_
int dlaed4_(integer *n, integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam, integer *info)
sgehrd_
int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
zhptrf_
int zhptrf_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, integer *info, ftnlen uplo_len)
dlas2_
int dlas2_(doublereal *f, doublereal *g, doublereal *h__, doublereal *ssmin, doublereal *ssmax)
ctgsna_
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)
ssptrf_
int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv, integer *info, ftnlen uplo_len)
dormtr_
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)
slaruv_
int slaruv_(integer *iseed, integer *n, real *x)
dormlq_
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)
chetrd_
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)
slarf_
int slarf_(char *side, integer *m, integer *n, real *v, integer *incv, real *tau, real *c__, integer *ldc, real *work, ftnlen side_len)
sorghr_
int sorghr_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
dgels_
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)
dlasq3_
int dlasq3_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig, doublereal *qmax, integer *nfail, integer *iter, integer *ndiv)
cggesx_
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)
cgegv_
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)
cgtsvx_
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)
sgtrfs_
int sgtrfs_(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 *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen trans_len)
zheevr_
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)
clasyf_
int clasyf_(char *uplo, integer *n, integer *nb, integer *kb, complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw, integer *info, ftnlen uplo_len)
csyrfs_
int csyrfs_(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 *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len)
slasq5_
int slasq5_(integer *i0, integer *n0, real *z__, integer *pp, real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *dnm2)
zbdsqr_
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)
slarzb_
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)
ssytrs_
int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len)
slanhs_
E_f slanhs_(char *norm, integer *n, real *a, integer *lda, real *work, ftnlen norm_len)
zlahef_
int zlahef_(char *uplo, integer *n, integer *nb, integer *kb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, integer *ldw, integer *info, ftnlen uplo_len)
chetri_
int chetri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info, ftnlen uplo_len)
sgetc2_
int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv, integer *jpiv, integer *info)
dggqrf_
int dggqrf_(integer *n, integer *m, integer *p, doublereal *a, integer *lda, doublereal *taua, doublereal *b, integer *ldb, doublereal *taub, doublereal *work, integer *lwork, integer *info)
ctzrzf_
int ctzrzf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
sgehd2_
int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *info)
sgerqf_
int sgerqf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
zhpevd_
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)
zgbcon_
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)
dpbtf2_
int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, integer *info, ftnlen uplo_len)
dtprfs_
int dtprfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
sporfs_
int sporfs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen uplo_len)
ctgex2_
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)
zhpev_
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)
zhbevx_
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)
csptri_
int csptri_(char *uplo, integer *n, complex *ap, integer *ipiv, complex *work, integer *info, ftnlen uplo_len)
dlamc4_
int dlamc4_(integer *emin, doublereal *start, integer *base)
zporfs_
int zporfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
sgeequ_
int sgeequ_(integer *m, integer *n, real *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info)
zgtsvx_
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)
dsytrs_
int dsytrs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
clarcm_
int clarcm_(integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork)
drscl_
int drscl_(integer *n, doublereal *sa, doublereal *sx, integer *incx)
dsytd2_
int dsytd2_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info, ftnlen uplo_len)
zlalsa_
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)
cgegs_
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)
cgebd2_
int cgebd2_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *info)
chegst_
int chegst_(integer *itype, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
cbdsqr_
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)
zgtsv_
int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb, integer *info)
cpbequ_
int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len)
dopgtr_
int dopgtr_(char *uplo, integer *n, doublereal *ap, doublereal *tau, doublereal *q, integer *ldq, doublereal *work, integer *info, ftnlen uplo_len)
slasr_
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)
cpotrf_
int cpotrf_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
cpbcon_
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)
zhprfs_
int zhprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
ssytri_
int ssytri_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *info, ftnlen uplo_len)
slarrb_
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)
dsytrd_
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)
zhpgvx_
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)
chetrs_
int chetrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
cggbal_
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)
zlaqge_
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)
zpbequ_
int zpbequ_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len)
zgelsx_
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)
sgetri_
int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *lwork, integer *info)
spbcon_
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)
sgtts2_
int sgtts2_(integer *itrans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb)
sstebz_
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)
clarft_
int clarft_(char *direct, char *storev, integer *n, integer *k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt, ftnlen direct_len, ftnlen storev_len)
chbgvd_
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)
clargv_
int clargv_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *c__, integer *incc)
strti2_
int strti2_(char *uplo, char *diag, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
cstegr_
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)
dgttrs_
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)
second_
E_f second_(void)
dsbevd_
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)
chseqr_
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)
shgeqz_
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)
stptri_
int stptri_(char *uplo, char *diag, integer *n, real *ap, integer *info, ftnlen uplo_len, ftnlen diag_len)
zherfs_
int zherfs_(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 *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
zhbev_
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)
cunmqr_
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)
clatdf_
int clatdf_(integer *ijob, integer *n, complex *z__, integer *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *jpiv)
slamch_
E_f slamch_(char *cmach, ftnlen cmach_len)
dporfs_
int dporfs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
ctrsyl_
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)
zunmtr_
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)
claesy_
int claesy_(complex *a, complex *b, complex *c__, complex *rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1)
dsbgv_
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)
cgerfs_
int cgerfs_(char *trans, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen trans_len)
dpptrs_
int dpptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
dgeequ_
int dgeequ_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info)
zpttrf_
int zpttrf_(integer *n, doublereal *d__, doublecomplex *e, integer *info)
dsbgvd_
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)
zhsein_
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)
clags2_
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)
slaqtr_
int slaqtr_(logical *ltran, logical *lreal, integer *n, real *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work, integer *info)
zgehd2_
int zgehd2_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
zgegs_
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)
dlatps_
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)
clarfg_
int clarfg_(integer *n, complex *alpha, complex *x, integer *incx, complex *tau)
slargv_
int slargv_(integer *n, real *x, integer *incx, real *y, integer *incy, real *c__, integer *incc)
csysv_
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)
zhpsv_
int zhpsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
dsbgst_
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)
sormrz_
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)
dhseqr_
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)
dlahqr_
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)
dlamc1_
int dlamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1)
stgex2_
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)
zpotrs_
int zpotrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
ctgsyl_
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)
zgetf2_
int zgetf2_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info)
sgerq2_
int sgerq2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info)
dormbr_
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)
cupmtr_
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)
zgbbrd_
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)
dorg2r_
int dorg2r_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
dtrevc_
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)
ssytd2_
int ssytd2_(char *uplo, integer *n, real *a, integer *lda, real *d__, real *e, real *tau, integer *info, ftnlen uplo_len)
sppequ_
int sppequ_(char *uplo, integer *n, real *ap, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len)
sgesvx_
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)
slabad_
int slabad_(real *small, real *large)
ctptri_
int ctptri_(char *uplo, char *diag, integer *n, complex *ap, integer *info, ftnlen uplo_len, ftnlen diag_len)
dladiv_
int dladiv_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *p, doublereal *q)
slantb_
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)
cgesvx_
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)
dstedc_
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)
zgels_
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)
sbdsdc_
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)
dlar2v_
int dlar2v_(integer *n, doublereal *x, doublereal *y, doublereal *z__, integer *incx, doublereal *c__, doublereal *s, integer *incc)
dlalsa_
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)
cunmbr_
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)
dgelqf_
int dgelqf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
zgeequ_
int zgeequ_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info)
cgees_
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)
sgesc2_
int sgesc2_(integer *n, real *a, integer *lda, real *rhs, integer *ipiv, integer *jpiv, real *scale)
zhbgst_
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)
ztrtri_
int ztrtri_(char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
dlags2_
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)
slaswp_
int slaswp_(integer *n, real *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx)
cungrq_
int cungrq_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
ztgsja_
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)
stbtrs_
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)
clascl_
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)
dgetri_
int dgetri_(integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *lwork, integer *info)
csytf2_
int csytf2_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
dgelss_
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)
ssbtrd_
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)
clantp_
E_f clantp_(char *norm, char *uplo, char *diag, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len)
sorgqr_
int sorgqr_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
chptrd_
int chptrd_(char *uplo, integer *n, complex *ap, real *d__, real *e, complex *tau, integer *info, ftnlen uplo_len)
cptrfs_
int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__, complex *e, real *df, complex *ef, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len)
dormql_
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)
dspcon_
int dspcon_(char *uplo, integer *n, doublereal *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
dlapy2_
doublereal dlapy2_(doublereal *x, doublereal *y)
zlaset_
int zlaset_(char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *lda, ftnlen uplo_len)
zgesc2_
int zgesc2_(integer *n, doublecomplex *a, integer *lda, doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale)
clacp2_
int clacp2_(char *uplo, integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb, ftnlen uplo_len)
cheevr_
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)
dsyevd_
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)
ctrrfs_
int ctrrfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
dposvx_
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)
ztgsyl_
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)
dgbequ_
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)
cspcon_
int cspcon_(char *uplo, integer *n, complex *ap, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len)
dlarft_
int dlarft_(char *direct, char *storev, integer *n, integer *k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t, integer *ldt, ftnlen direct_len, ftnlen storev_len)
sposvx_
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)
dhgeqz_
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)
cungr2_
int cungr2_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info)
ssygst_
int ssygst_(integer *itype, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len)
zdrot_
int zdrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s)
zpbsv_
int zpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
dtzrqf_
int dtzrqf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, integer *info)
clansb_
E_f clansb_(char *norm, char *uplo, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len)
cungl2_
int cungl2_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info)
dtpcon_
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)
zposvx_
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)
cstein_
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)
dlasy2_
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)
zsysvx_
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)
ztgsen_
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)
sgetrf_
int sgetrf_(integer *m, integer *n, real *a, integer *lda, integer *ipiv, integer *info)
zlargv_
int zlargv_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *c__, integer *incc)
ssygvx_
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)
dtrti2_
int dtrti2_(char *uplo, char *diag, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
clangt_
E_f clangt_(char *norm, integer *n, complex *dl, complex *d__, complex *du, ftnlen norm_len)
zpptrs_
int zpptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
slatzm_
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)
cunmrq_
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)
zlasyf_
int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w, integer *ldw, integer *info, ftnlen uplo_len)
stgevc_
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)
clacgv_
int clacgv_(integer *n, complex *x, integer *incx)
dsecnd_
doublereal dsecnd_(void)
dopmtr_
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)
zggev_
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)
sggsvd_
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)
clapmt_
int clapmt_(logical *forwrd, integer *m, integer *n, complex *x, integer *ldx, integer *k)
dlasq6_
int dlasq6_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2)
sgbtrs_
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)
ctpcon_
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)
dlasd6_
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)
clange_
E_f clange_(char *norm, integer *m, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len)
sspsvx_
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)
cgeqpf_
int cgeqpf_(integer *m, integer *n, complex *a, integer *lda, integer *jpvt, complex *tau, complex *work, real *rwork, integer *info)
zpotf2_
int zpotf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
dsyevx_
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)
zlaic1_
int zlaic1_(integer *job, integer *j, doublecomplex *x, doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *sestpr, doublecomplex *s, doublecomplex *c__)
dlaqtr_
int dlaqtr_(logical *ltran, logical *lreal, integer *n, doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal *scale, doublereal *x, doublereal *work, integer *info)
chpgvx_
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)
dlapy3_
doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__)
slartg_
int slartg_(real *f, real *g, real *cs, real *sn, real *r__)
stgsen_
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)
dspevx_
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)
ztbcon_
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)
zlatbs_
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)
classq_
int classq_(integer *n, complex *x, integer *incx, real *scale, real *sumsq)
sgebak_
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)
dggglm_
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)
zgeqp3_
int zgeqp3_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info)
zlaed0_
int zlaed0_(integer *qsiz, integer *n, doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, integer *ldqs, doublereal *rwork, integer *iwork, integer *info)
dggesx_
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)
zlaed7_
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)
zlarfx_
int zlarfx_(char *side, integer *m, integer *n, doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, ftnlen side_len)
dlaqp2_
int dlaqp2_(integer *m, integer *n, integer *offset, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *work)
slacon_
int slacon_(integer *n, real *v, real *x, integer *isgn, real *est, integer *kase)
slasd6_
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)
clar1v_
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)
stgsy2_
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)
chetrf_
int chetrf_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info, ftnlen uplo_len)
slar2v_
int slar2v_(integer *n, real *x, real *y, real *z__, integer *incx, real *c__, real *s, integer *incc)
dlaed1_
int dlaed1_(integer *n, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, doublereal *work, integer *iwork, integer *info)
dlarrv_
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)
slantr_
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)
dlaein_
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)
zlaein_
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)
dpocon_
int dpocon_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
cgttrf_
int cgttrf_(integer *n, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, integer *info)
stgsja_
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)
zlacon_
int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, doublereal *est, integer *kase)
zlaqps_
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)
slagts_
int slagts_(integer *job, integer *n, real *a, real *b, real *c__, real *d__, integer *in, real *y, real *tol, integer *info)
sstevd_
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)
cpteqr_
int cpteqr_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, real *work, integer *info, ftnlen compz_len)
dlaqsy_
int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
chetd2_
int chetd2_(char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, integer *info, ftnlen uplo_len)
zunmqr_
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)
zgtcon_
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)
dggbak_
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)
cladiv_
C_f cladiv_(complex *ret_val, complex *x, complex *y)
dtbrfs_
int dtbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
zunmr2_
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)
cgetrs_
int cgetrs_(char *trans, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen trans_len)
zunghr_
int zunghr_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
dstegr_
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)
slaexc_
int slaexc_(logical *wantq, integer *n, real *t, integer *ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, real *work, integer *info)
cppsvx_
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)
dhsein_
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)
slas2_
int slas2_(real *f, real *g, real *h__, real *ssmin, real *ssmax)
sgelsd_
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)
zhegv_
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)
sgbtrf_
int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, integer *info)
sgeql2_
int sgeql2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info)
zlatrz_
int zlatrz_(integer *m, integer *n, integer *l, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work)
dppequ_
int dppequ_(char *uplo, integer *n, doublereal *ap, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len)
dlanhs_
doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len)
sspgvd_
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)
slamc2_
int slamc2_(integer *beta, integer *t, logical *rnd, real *eps, integer *emin, real *rmin, integer *emax, real *rmax)
sgees_
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)
spotrs_
int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len)
dtgsja_
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)
dlasda_
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)
scsum1_
E_f scsum1_(integer *n, complex *cx, integer *incx)
spptrf_
int spptrf_(char *uplo, integer *n, real *ap, integer *info, ftnlen uplo_len)
chpcon_
int chpcon_(char *uplo, integer *n, complex *ap, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len)
dtgexc_
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)
zlarfg_
int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *tau)
zlarft_
int zlarft_(char *direct, char *storev, integer *n, integer *k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *t, integer *ldt, ftnlen direct_len, ftnlen storev_len)
spotri_
int spotri_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
slaed1_
int slaed1_(integer *n, real *d__, real *q, integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *work, integer *iwork, integer *info)
cggrqf_
int cggrqf_(integer *m, integer *p, integer *n, complex *a, integer *lda, complex *taua, complex *b, integer *ldb, complex *taub, complex *work, integer *lwork, integer *info)
zlassq_
int zlassq_(integer *n, doublecomplex *x, integer *incx, doublereal *scale, doublereal *sumsq)
slasd7_
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)
strsyl_
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)
zhptri_
int zhptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len)
slaqsp_
int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
dspevd_
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)
csrot_
int csrot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, real *s)
zptsv_
int zptsv_(integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, integer *info)
dsyevr_
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)
dgesc2_
int dgesc2_(integer *n, doublereal *a, integer *lda, doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale)
dlagtm_
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)
zgelqf_
int zgelqf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
zspcon_
int zspcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len)
clacon_
int clacon_(integer *n, complex *v, complex *x, real *est, integer *kase)
cpttrf_
int cpttrf_(integer *n, real *d__, complex *e, integer *info)
zlartg_
int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *cs, doublecomplex *sn, doublecomplex *r__)
ctzrqf_
int ctzrqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, integer *info)
spbtf2_
int spbtf2_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info, ftnlen uplo_len)
dsytri_
int dsytri_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *info, ftnlen uplo_len)
sptrfs_
int sptrfs_(integer *n, integer *nrhs, real *d__, real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *info)
dgetf2_
int dgetf2_(integer *m, integer *n, doublereal *a, integer *lda, integer *ipiv, integer *info)
dlartg_
int dlartg_(doublereal *f, doublereal *g, doublereal *cs, doublereal *sn, doublereal *r__)
chbgvx_
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)
dtrtri_
int dtrtri_(char *uplo, char *diag, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
zlatdf_
int zlatdf_(integer *ijob, integer *n, doublecomplex *z__, integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *rdscal, integer *ipiv, integer *jpiv)
slatps_
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)
clalsa_
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)
slaqsb_
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)
dgbtrf_
int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, integer *info)
zgetri_
int zgetri_(integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info)
sgelsy_
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)
cungtr_
int cungtr_(char *uplo, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info, ftnlen uplo_len)
dsbevx_
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)
zhesvx_
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)
claqgb_
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)
slassq_
int slassq_(integer *n, real *x, integer *incx, real *scale, real *sumsq)
csytri_
int csytri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info, ftnlen uplo_len)
dlamc5_
int dlamc5_(integer *beta, integer *p, integer *emin, logical *ieee, integer *emax, doublereal *rmax)
ssptrs_
int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len)
zpbtrs_
int zpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
sspgst_
int sspgst_(integer *itype, char *uplo, integer *n, real *ap, real *bp, integer *info, ftnlen uplo_len)
zhegvd_
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)
spotrf_
int spotrf_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
cppequ_
int cppequ_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len)
sptsv_
int sptsv_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info)
sormr3_
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)
slae2_
int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2)
dgbcon_
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)
zlaqp2_
int zlaqp2_(integer *m, integer *n, integer *offset, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *work)
stbrfs_
int stbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
dgeqp3_
int dgeqp3_(integer *m, integer *n, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork, integer *info)
slasd8_
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)
clarz_
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)
dspsv_
int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
dlaqge_
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)
zungbr_
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)
zlaqhe_
int zlaqhe_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
cungqr_
int cungqr_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
dgerq2_
int dgerq2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
slagv2_
int slagv2_(real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *csl, real *snl, real *csr, real *snr)
clauum_
int clauum_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
cggsvp_
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)
cgbequ_
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)
csysvx_
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)
dgtsv_
int dgtsv_(integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer *info)
dlagtf_
int dlagtf_(integer *n, doublereal *a, doublereal *lambda, doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, integer *in, integer *info)
zgeql2_
int zgeql2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
zspsv_
int zspsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
spoequ_
int spoequ_(integer *n, real *a, integer *lda, real *s, real *scond, real *amax, integer *info)
slamc4_
int slamc4_(integer *emin, real *start, integer *base)
zlar1v_
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)
dlaqps_
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)
slasq2_
int slasq2_(integer *n, real *z__, integer *info)
strtrs_
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)
ssptri_
int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, real *work, integer *info, ftnlen uplo_len)
slangt_
E_f slangt_(char *norm, integer *n, real *dl, real *d__, real *du, ftnlen norm_len)
ssysv_
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)
ctrti2_
int ctrti2_(char *uplo, char *diag, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
clanhs_
E_f clanhs_(char *norm, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len)
stptrs_
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)
dstebz_
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)
zptsvx_
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)
slaqgb_
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)
dtgsna_
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)
dgelq2_
int dgelq2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
chgeqz_
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)
dgegs_
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)
dlapmt_
int dlapmt_(logical *forwrd, integer *m, integer *n, doublereal *x, integer *ldx, integer *k)
ssytrf_
int ssytrf_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *lwork, integer *info, ftnlen uplo_len)
cgtts2_
int cgtts2_(integer *itrans, integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *b, integer *ldb)
slahrd_
int slahrd_(integer *n, integer *k, integer *nb, real *a, integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy)
dsyrfs_
int dsyrfs_(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 *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
zung2l_
int zung2l_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
zggevx_
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)
dlagv2_
int dlagv2_(doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *snr)
chpsv_
int chpsv_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
sgttrs_
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)
slansb_
E_f slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len)
dormr3_
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)
zhpcon_
int zhpcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len)
dgesv_
int dgesv_(integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info)
cstedc_
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)
dgttrf_
int dgttrf_(integer *n, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, integer *info)
slaed0_
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)
dsycon_
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)
dlasd9_
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)
slasq1_
int slasq1_(integer *n, real *d__, real *e, real *work, integer *info)
zspr_
int zspr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *ap, ftnlen uplo_len)
dlasd0_
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)
dtzrzf_
int dtzrzf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
spptrs_
int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info, ftnlen uplo_len)
dlanv2_
int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r, doublereal *rt2i, doublereal *cs, doublereal *sn)
cpotri_
int cpotri_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
clapll_
int clapll_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *ssmin)
dlanst_
doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e, ftnlen norm_len)
dpptrf_
int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *info, ftnlen uplo_len)
zggqrf_
int zggqrf_(integer *n, integer *m, integer *p, doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b, integer *ldb, doublecomplex *taub, doublecomplex *work, integer *lwork, integer *info)
sorm2l_
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)
cgglse_
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)
cppsv_
int cppsv_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
zgelsd_
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)
dlaed7_
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)
dormr2_
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)
ztbrfs_
int ztbrfs_(char *uplo, char *trans, char *diag, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
dorg2l_
int dorg2l_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
dspgst_
int dspgst_(integer *itype, char *uplo, integer *n, doublereal *ap, doublereal *bp, integer *info, ftnlen uplo_len)
ztprfs_
int ztprfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
zlange_
doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len)
zhetf2_
int zhetf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
cheevd_
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)
cgelq2_
int cgelq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info)
dgesvx_
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)
slarft_
int slarft_(char *direct, char *storev, integer *n, integer *k, real *v, integer *ldv, real *tau, real *t, integer *ldt, ftnlen direct_len, ftnlen storev_len)
sggesx_
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)
sopgtr_
int sopgtr_(char *uplo, integer *n, real *ap, real *tau, real *q, integer *ldq, real *work, integer *info, ftnlen uplo_len)
ssbevd_
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)
claein_
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)
strsen_
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)
ctrsen_
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)
zlaswp_
int zlaswp_(integer *n, doublecomplex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx)
ssygs2_
int ssygs2_(integer *itype, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len)
dlabad_
int dlabad_(doublereal *small, doublereal *large)
zpbtf2_
int zpbtf2_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info, ftnlen uplo_len)
spbequ_
int spbequ_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len)
zlags2_
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)
dgtts2_
int dgtts2_(integer *itrans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb)
ztgsna_
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)
dlaexc_
int dlaexc_(logical *wantq, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, integer *n2, doublereal *work, integer *info)
cung2l_
int cung2l_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info)
cgbsv_
int cgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *ldb, integer *info)
sspgvx_
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)
ctrevc_
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)
ssytf2_
int ssytf2_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
cpoequ_
int cpoequ_(integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, integer *info)
dgglse_
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)
zlacrm_
int zlacrm_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *rwork)
zhbgvx_
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)
zgetrs_
int zgetrs_(char *trans, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen trans_len)
spbtrf_
int spbtrf_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info, ftnlen uplo_len)
cgeql2_
int cgeql2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info)
dlauu2_
int dlauu2_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
zhpgst_
int zhpgst_(integer *itype, char *uplo, integer *n, doublecomplex *ap, doublecomplex *bp, integer *info, ftnlen uplo_len)
slapll_
int slapll_(integer *n, real *x, integer *incx, real *y, integer *incy, real *ssmin)
sorg2l_
int sorg2l_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info)
cgeqr2_
int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info)
zlarcm_
int zlarcm_(integer *m, integer *n, doublereal *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *rwork)
zgbsvx_
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)
sgbbrd_
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)
dlag2_
int dlag2_(doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *scale2, doublereal *wr1, doublereal *wr2, doublereal *wi)
csycon_
int csycon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len)
dlauum_
int dlauum_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
sormlq_
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)
slags2_
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)
chbgv_
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)
dorgtr_
int dorgtr_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info, ftnlen uplo_len)
chetf2_
int chetf2_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
dlaic1_
int dlaic1_(integer *job, integer *j, doublereal *x, doublereal *sest, doublereal *w, doublereal *gamma, doublereal *sestpr, doublereal *s, doublereal *c__)
slaic1_
int slaic1_(integer *job, integer *j, real *x, real *sest, real *w, real *gamma, real *sestpr, real *s, real *c__)
cunm2l_
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)
zlangt_
doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, ftnlen norm_len)
clanhb_
E_f clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len)
clarzt_
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)
dgeqpf_
int dgeqpf_(integer *m, integer *n, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info)
cgels_
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)
cgerq2_
int cgerq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info)
dptcon_
int dptcon_(integer *n, doublereal *d__, doublereal *e, doublereal *anorm, doublereal *rcond, doublereal *work, integer *info)
clarrv_
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)
zgghrd_
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)
zhetrs_
int zhetrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
zlarzt_
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)
zlansb_
doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
ddisna_
int ddisna_(char *job, integer *m, integer *n, doublereal *d__, doublereal *sep, integer *info, ftnlen job_len)
zgges_
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)
sgecon_
int sgecon_(char *norm, integer *n, real *a, integer *lda, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen norm_len)
ssysvx_
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)
csyr_
int csyr_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *a, integer *lda, ftnlen uplo_len)
ztrtrs_
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)
dgbbrd_
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)
cspr_
int cspr_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *ap, ftnlen uplo_len)
dsptrf_
int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *ipiv, integer *info, ftnlen uplo_len)
ztptrs_
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)
strsna_
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)
zgerq2_
int zgerq2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
zlansy_
doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
clatzm_
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)
strevc_
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)
sgbsvx_
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)
sstedc_
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)
zgtts2_
int zgtts2_(integer *itrans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb)
zspsvx_
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)
claqsy_
int claqsy_(char *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
sppsv_
int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info, ftnlen uplo_len)
slascl_
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)
slasd1_
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)
zhpgvd_
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)
dgesvd_
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)
sgelq2_
int sgelq2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info)
zlaqsy_
int zlaqsy_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
zlanhe_
doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
strtri_
int strtri_(char *uplo, char *diag, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
dorm2r_
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)
slauum_
int slauum_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
lsame_
logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len)
zgehrd_
int zgehrd_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
dsptri_
int dsptri_(char *uplo, integer *n, doublereal *ap, integer *ipiv, doublereal *work, integer *info, ftnlen uplo_len)
dtrcon_
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)
cptcon_
int cptcon_(integer *n, real *d__, complex *e, real *anorm, real *rcond, real *rwork, integer *info)
zpbcon_
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)
dgelsy_
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)
clacpy_
int clacpy_(char *uplo, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, ftnlen uplo_len)
zhesv_
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)
zpteqr_
int zpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len)
clatrd_
int clatrd_(char *uplo, integer *n, integer *nb, complex *a, integer *lda, real *e, complex *tau, complex *w, integer *ldw, ftnlen uplo_len)
dlarfg_
int dlarfg_(integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *tau)
clansy_
E_f clansy_(char *norm, char *uplo, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len)
dgeesx_
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)
dsygs2_
int dsygs2_(integer *itype, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
cgesvd_
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)
chpevx_
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)
cgetrf_
int cgetrf_(integer *m, integer *n, complex *a, integer *lda, integer *ipiv, integer *info)
clarfb_
int clarfb_(char *side, char *trans, char *direct, char *storev, integer *m, integer *n, integer *k, 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)
clanhp_
E_f clanhp_(char *norm, char *uplo, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len)
izmax1_
integer izmax1_(integer *n, doublecomplex *cx, integer *incx)
ctbcon_
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)
zpotrf_
int zpotrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
zgetc2_
int zgetc2_(integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *jpiv, integer *info)
clabrd_
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)
slaed5_
int slaed5_(integer *i__, real *d__, real *z__, real *delta, real *rho, real *dlam)
cptts2_
int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb)
stprfs_
int stprfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
sorgl2_
int sorgl2_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info)
zungl2_
int zungl2_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
zhseqr_
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)
dpbsvx_
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)
zsycon_
int zsycon_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len)
sgbcon_
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)
cunml2_
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)
dlahrd_
int dlahrd_(integer *n, integer *k, integer *nb, doublereal *a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, doublereal *y, integer *ldy)
claqhb_
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)
sptsvx_
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)
cgesdd_
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)
dsygst_
int dsygst_(integer *itype, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
zgerqf_
int zgerqf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
zgecon_
int zgecon_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen norm_len)
zgbtf2_
int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, integer *info)
zgglse_
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)
dsygv_
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)
zgesvd_
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)
dtptri_
int dtptri_(char *uplo, char *diag, integer *n, doublereal *ap, integer *info, ftnlen uplo_len, ftnlen diag_len)
dgerqf_
int dgerqf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
spocon_
int spocon_(char *uplo, integer *n, real *a, integer *lda, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len)
slantp_
E_f slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len)
claed8_
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)
cptsvx_
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)
dgelsd_
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)
clartg_
int clartg_(complex *f, complex *g, real *cs, complex *sn, complex *r__)
cgelsy_
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)
cpprfs_
int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len)
sgebrd_
int sgebrd_(integer *m, integer *n, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *work, integer *lwork, integer *info)
dgebrd_
int dgebrd_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *taup, doublereal *work, integer *lwork, integer *info)
cheevx_
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)
zlansp_
doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
dormhr_
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)
ssyevd_
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)
ilaenv_
integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen opts_len)
cspmv_
int cspmv_(char *uplo, integer *n, complex *alpha, complex *ap, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len)
zupgtr_
int zupgtr_(char *uplo, integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *work, integer *info, ftnlen uplo_len)
dlasq5_
int dlasq5_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2)
zgbtrs_
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)
dtrsen_
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)
zladiv_
Z_f zladiv_(doublecomplex *ret_val, doublecomplex *x, doublecomplex *y)
dsysvx_
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)
sspgv_
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)
zgeqrf_
int zgeqrf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
cgghrd_
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)
ztrsen_
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)
ssbgvx_
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)
dggev_
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)
zgeesx_
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)
dlaev2_
int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1)
slaev2_
int slaev2_(real *a, real *b, real *c__, real *rt1, real *rt2, real *cs1, real *sn1)
clanht_
E_f clanht_(char *norm, integer *n, real *d__, complex *e, ftnlen norm_len)
ctgsja_
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)
cgebak_
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)
sgelqf_
int sgelqf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
sgtsvx_
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)
sggevx_
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)
dlalsd_
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)
zsyr_
int zsyr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *a, integer *lda, ftnlen uplo_len)
slatrs_
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)
dpbstf_
int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, integer *info, ftnlen uplo_len)
chegs2_
int chegs2_(integer *itype, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
zgesdd_
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)
cgelss_
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)
ssprfs_
int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen uplo_len)
zhpgv_
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)
ctgevc_
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)
zhetrf_
int zhetrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len)
chbevd_
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)
dlasr_
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)
zlarz_
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)
zlauu2_
int zlauu2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
cpbstf_
int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplo_len)
dorml2_
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)
cposvx_
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)
cgeev_
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)
dpbcon_
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)
chpev_
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)
ctbtrs_
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)
dlaed6_
int dlaed6_(integer *kniter, logical *orgati, doublereal *rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *tau, integer *info)
cgerqf_
int cgerqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
chsein_
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)
dlangt_
doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__, doublereal *du, ftnlen norm_len)
sormqr_
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)
slangb_
E_f slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, real *work, ftnlen norm_len)
dposv_
int dposv_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
csrscl_
int csrscl_(integer *n, real *sa, complex *sx, integer *incx)
slarfb_
int slarfb_(char *side, char *trans, char *direct, char *storev, integer *m, integer *n, integer *k, 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)
clahrd_
int clahrd_(integer *n, integer *k, integer *nb, complex *a, integer *lda, complex *tau, complex *t, integer *ldt, complex *y, integer *ldy)
ssbgv_
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)
slarz_
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)
dlamrg_
int dlamrg_(integer *n1, integer *n2, doublereal *a, integer *dtrd1, integer *dtrd2, integer *index)
zgelq2_
int zgelq2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
slalsd_
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)
dgbsv_
int dgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info)
shsein_
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)
cunmhr_
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)
dpoequ_
int dpoequ_(integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info)
dtptrs_
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)
dlasd4_
int dlasd4_(integer *n, integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *sigma, doublereal *work, integer *info)
cherfs_
int cherfs_(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 *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len)
cpptrs_
int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
slasq6_
int slasq6_(integer *i0, integer *n0, real *z__, integer *pp, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *dnm2)
dsprfs_
int dsprfs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
zlabrd_
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)
dsbgvx_
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)
zsytf2_
int zsytf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
cpbrfs_
int cpbrfs_(char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len)
zlaev2_
int zlaev2_(doublecomplex *a, doublecomplex *b, doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublecomplex *sn1)
zggsvd_
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)
dspev_
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)
zlantp_
doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len)
zgebal_
int zgebal_(char *job, integer *n, doublecomplex *a, integer *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info, ftnlen job_len)
dlatdf_
int dlatdf_(integer *ijob, integer *n, doublereal *z__, integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, integer *ipiv, integer *jpiv)
slarnv_
int slarnv_(integer *idist, integer *iseed, integer *n, real *x)
zgbsv_
int zgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *b, integer *ldb, integer *info)
zunmlq_
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)
zsptrf_
int zsptrf_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, integer *info, ftnlen uplo_len)
ztgex2_
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)
cgebal_
int cgebal_(char *job, integer *n, complex *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info, ftnlen job_len)
zsytrf_
int zsytrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len)
dlaswp_
int dlaswp_(integer *n, doublereal *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx)
sorml2_
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)
dsygvd_
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)
zgelss_
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)
cpbsv_
int cpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
zhbgv_
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)
sgeesx_
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)
sgesv_
int sgesv_(integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info)
zsteqr_
int zsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len)
dlasd7_
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)
zggesx_
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)
dpprfs_
int dpprfs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *afp, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
spbtrs_
int spbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info, ftnlen uplo_len)
dpbtrf_
int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, integer *info, ftnlen uplo_len)
dlantp_
doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len)
dsytrf_
int dsytrf_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *lwork, integer *info, ftnlen uplo_len)
zpbrfs_
int zpbrfs_(char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
cgeesx_
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)
clals0_
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)
slasd4_
int slasd4_(integer *n, integer *i__, real *d__, real *z__, real *delta, real *rho, real *sigma, real *work, integer *info)
dtrsyl_
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)
zunmr3_
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)
dbdsqr_
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)
zsptri_
int zsptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len)
cspsvx_
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)
zunglq_
int zunglq_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
zlagtm_
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)
clarf_
int clarf_(char *side, integer *m, integer *n, complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, complex *work, ftnlen side_len)
slatrz_
int slatrz_(integer *m, integer *n, integer *l, real *a, integer *lda, real *tau, real *work)
cgetf2_
int cgetf2_(integer *m, integer *n, complex *a, integer *lda, integer *ipiv, integer *info)
ctgsy2_
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)
zhetri_
int zhetri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len)
sggglm_
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)
dptsv_
int dptsv_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info)
sormrq_
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)
zgebrd_
int zgebrd_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *work, integer *lwork, integer *info)
dpotrf_
int dpotrf_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
ztbtrs_
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)
dlaed9_
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)
srscl_
int srscl_(integer *n, real *sa, real *sx, integer *incx)
ztpcon_
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)
chegv_
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)
zlahrd_
int zlahrd_(integer *n, integer *k, integer *nb, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, integer *ldt, doublecomplex *y, integer *ldy)
ssyevx_
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)
zpbstf_
int zpbstf_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info, ftnlen uplo_len)
dlarf_
int dlarf_(char *side, integer *m, integer *n, doublereal *v, integer *incv, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, ftnlen side_len)
zsprfs_
int zsprfs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
slarre_
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)
clarfx_
int clarfx_(char *side, integer *m, integer *n, complex *v, complex *tau, complex *c__, integer *ldc, complex *work, ftnlen side_len)
zgbequ_
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)
clarnv_
int clarnv_(integer *idist, integer *iseed, integer *n, complex *x)
sggrqf_
int sggrqf_(integer *m, integer *p, integer *n, real *a, integer *lda, real *taua, real *b, integer *ldb, real *taub, real *work, integer *lwork, integer *info)
cgtrfs_
int cgtrfs_(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 *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen trans_len)
zlalsd_
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)
dlapll_
int dlapll_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *ssmin)
cgbsvx_
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)
cporfs_
int cporfs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork, integer *info, ftnlen uplo_len)
dlaed8_
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)
sgtsv_
int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, real *du, real *b, integer *ldb, integer *info)
sorgtr_
int sorgtr_(char *uplo, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info, ftnlen uplo_len)
sgbequ_
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)
zlarrv_
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)
cungql_
int cungql_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
slaqp2_
int slaqp2_(integer *m, integer *n, integer *offset, real *a, integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *work)
slasv2_
int slasv2_(real *f, real *g, real *h__, real *ssmin, real *ssmax, real *snr, real *csr, real *snl, real *csl)
dzsum1_
doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx)
sptcon_
int sptcon_(integer *n, real *d__, real *e, real *anorm, real *rcond, real *work, integer *info)
ssytrd_
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)
ztrsyl_
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)
zsysv_
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)
dpbtrs_
int dpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
dgbtf2_
int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, integer *info)
dlasdt_
int dlasdt_(integer *n, integer *lvl, integer *nd, integer *inode, integer *ndiml, integer *ndimr, integer *msub)
dorglq_
int dorglq_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
dstein_
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)
dlarzt_
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)
zunml2_
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)
zlaqhb_
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)
dgetc2_
int dgetc2_(integer *n, doublereal *a, integer *lda, integer *ipiv, integer *jpiv, integer *info)
cgttrs_
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)
dsbtrd_
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)
ztptri_
int ztptri_(char *uplo, char *diag, integer *n, doublecomplex *ap, integer *info, ftnlen uplo_len, ftnlen diag_len)
zlacrt_
int zlacrt_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *s)
dlatrd_
int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, integer *ldw, ftnlen uplo_len)
dlatrs_
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)
zlaqsb_
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)
dtrrfs_
int dtrrfs_(char *uplo, char *trans, char *diag, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len)
slange_
E_f slange_(char *norm, integer *m, integer *n, real *a, integer *lda, real *work, ftnlen norm_len)
cgbtrf_
int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info)
zlauum_
int zlauum_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
slasq3_
int slasq3_(integer *i0, integer *n0, real *z__, integer *pp, real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail, integer *iter, integer *ndiv)
sspev_
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)
zgbtrf_
int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, integer *info)
zhpsvx_
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)
slasd5_
int slasd5_(integer *i__, real *d__, real *z__, real *delta, real *rho, real *dsigma, real *work)
chpsvx_
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)
slaed7_
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)
zptcon_
int zptcon_(integer *n, doublereal *d__, doublecomplex *e, doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *info)
slaed8_
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)
zlatzm_
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)
dgbsvx_
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)
cgbcon_
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)
dormrz_
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)
sspevd_
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)
clagtm_
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)
dlatzm_
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)
sdisna_
int sdisna_(char *job, integer *m, integer *n, real *d__, real *sep, integer *info, ftnlen job_len)
dlarnv_
int dlarnv_(integer *idist, integer *iseed, integer *n, doublereal *x)
ssterf_
int ssterf_(integer *n, real *d__, real *e, integer *info)
slaebz_
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)
slasd3_
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)
stbcon_
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)
cpotrs_
int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
zung2r_
int zung2r_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
dgebak_
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)
dlasd1_
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)
dorgrq_
int dorgrq_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
dpbequ_
int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len)
zhptrd_
int zhptrd_(char *uplo, integer *n, doublecomplex *ap, doublereal *d__, doublereal *e, doublecomplex *tau, integer *info, ftnlen uplo_len)
zpttrs_
int zpttrs_(char *uplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
sgerfs_
int sgerfs_(char *trans, integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work, integer *iwork, integer *info, ftnlen trans_len)
chegvd_
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)
zgesv_
int zgesv_(integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info)
clantr_
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)
g
float g
Definition: named_colr.c:7
b
double b
Definition: r_raster.c:39
l
double l
Definition: r_raster.c:39
t
double t
Definition: r_raster.c:39
complex
Definition: la.h:54
x
#define x