GRASS GIS 8 Programmer's Manual  8.2.2dev(2023)-3d2c704037
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,
6  integer * ldvt, complex * u, integer * ldu, complex * c__,
7  integer * ldc, real * rwork, integer * info,
8  ftnlen uplo_len);
9 extern int cgbbrd_(char *vect, integer * m, integer * n, integer * ncc,
10  integer * kl, integer * ku, complex * ab, integer * ldab,
11  real * d__, real * e, complex * q, integer * ldq,
12  complex * pt, integer * ldpt, complex * c__, integer * ldc,
13  complex * work, real * rwork, integer * info,
14  ftnlen vect_len);
15 extern int cgbcon_(char *norm, integer * n, integer * kl, integer * ku,
16  complex * ab, integer * ldab, integer * ipiv, real * anorm,
17  real * rcond, complex * work, real * rwork, integer * info,
18  ftnlen norm_len);
19 extern int cgbequ_(integer * m, integer * n, integer * kl, integer * ku,
20  complex * ab, integer * ldab, real * r__, real * c__,
21  real * rowcnd, real * colcnd, real * amax, integer * info);
22 extern int cgbrfs_(char *trans, integer * n, integer * kl, integer * ku,
23  integer * nrhs, complex * ab, integer * ldab,
24  complex * afb, integer * ldafb, integer * ipiv,
25  complex * b, integer * ldb, complex * x, integer * ldx,
26  real * ferr, real * berr, complex * work, real * rwork,
27  integer * info, ftnlen trans_len);
28 extern int cgbsv_(integer * n, integer * kl, integer * ku, integer * nrhs,
29  complex * ab, integer * ldab, integer * ipiv, complex * b,
30  integer * ldb, integer * info);
31 extern int cgbsvx_(char *fact, char *trans, integer * n, integer * kl,
32  integer * ku, integer * nrhs, complex * ab, integer * ldab,
33  complex * afb, integer * ldafb, integer * ipiv,
34  char *equed, real * r__, real * c__, complex * b,
35  integer * ldb, complex * x, integer * ldx, real * rcond,
36  real * ferr, real * berr, complex * work, real * rwork,
37  integer * info, ftnlen fact_len, ftnlen trans_len,
38  ftnlen equed_len);
39 extern int cgbtf2_(integer * m, integer * n, integer * kl, integer * ku,
40  complex * ab, integer * ldab, integer * ipiv,
41  integer * info);
42 extern int cgbtrf_(integer * m, integer * n, integer * kl, integer * ku,
43  complex * ab, integer * ldab, integer * ipiv,
44  integer * info);
45 extern int cgbtrs_(char *trans, integer * n, integer * kl, integer * ku,
46  integer * nrhs, complex * ab, integer * ldab,
47  integer * ipiv, complex * b, integer * ldb, integer * info,
48  ftnlen trans_len);
49 extern int cgebak_(char *job, char *side, integer * n, integer * ilo,
50  integer * ihi, real * scale, integer * m, complex * v,
51  integer * ldv, integer * info, ftnlen job_len,
52  ftnlen side_len);
53 extern int cgebal_(char *job, integer * n, complex * a, integer * lda,
54  integer * ilo, integer * ihi, real * scale, integer * info,
55  ftnlen job_len);
56 extern int cgebd2_(integer * m, integer * n, complex * a, integer * lda,
57  real * d__, real * e, complex * tauq, complex * taup,
58  complex * work, integer * info);
59 extern int cgebrd_(integer * m, integer * n, complex * a, integer * lda,
60  real * d__, real * e, complex * tauq, complex * taup,
61  complex * work, integer * lwork, integer * info);
62 extern int cgecon_(char *norm, integer * n, complex * a, integer * lda,
63  real * anorm, real * rcond, complex * work, real * rwork,
64  integer * info, ftnlen norm_len);
65 extern int cgeequ_(integer * m, integer * n, complex * a, integer * lda,
66  real * r__, real * c__, real * rowcnd, real * colcnd,
67  real * amax, integer * info);
68 extern int cgees_(char *jobvs, char *sort, L_fp select, integer * n,
69  complex * a, integer * lda, integer * sdim, complex * w,
70  complex * vs, integer * ldvs, complex * work,
71  integer * lwork, real * rwork, logical * bwork,
72  integer * info, ftnlen jobvs_len, ftnlen sort_len);
73 extern int cgeesx_(char *jobvs, char *sort, L_fp select, char *sense,
74  integer * n, complex * a, integer * lda, integer * sdim,
75  complex * w, complex * vs, integer * ldvs, real * rconde,
76  real * rcondv, complex * work, integer * lwork,
77  real * rwork, logical * bwork, integer * info,
78  ftnlen jobvs_len, ftnlen sort_len, ftnlen sense_len);
79 extern int cgeev_(char *jobvl, char *jobvr, integer * n, complex * a,
80  integer * lda, complex * w, complex * vl, integer * ldvl,
81  complex * vr, integer * ldvr, complex * work,
82  integer * lwork, real * rwork, integer * info,
83  ftnlen jobvl_len, ftnlen jobvr_len);
84 extern int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
85  integer * n, complex * a, integer * lda, complex * w,
86  complex * vl, integer * ldvl, complex * vr, integer * ldvr,
87  integer * ilo, integer * ihi, real * scale, real * abnrm,
88  real * rconde, real * rcondv, complex * work,
89  integer * lwork, real * rwork, integer * info,
90  ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len,
91  ftnlen sense_len);
92 extern int cgegs_(char *jobvsl, char *jobvsr, integer * n, complex * a,
93  integer * lda, complex * b, integer * ldb, complex * alpha,
94  complex * beta, complex * vsl, integer * ldvsl,
95  complex * vsr, integer * ldvsr, complex * work,
96  integer * lwork, real * rwork, integer * info,
97  ftnlen jobvsl_len, ftnlen jobvsr_len);
98 extern int cgegv_(char *jobvl, char *jobvr, integer * n, complex * a,
99  integer * lda, complex * b, integer * ldb, complex * alpha,
100  complex * beta, complex * vl, integer * ldvl, complex * vr,
101  integer * ldvr, complex * work, integer * lwork,
102  real * rwork, integer * info, ftnlen jobvl_len,
103  ftnlen jobvr_len);
104 extern int cgehd2_(integer * n, integer * ilo, integer * ihi, complex * a,
105  integer * lda, complex * tau, complex * work,
106  integer * info);
107 extern int cgehrd_(integer * n, integer * ilo, integer * ihi, complex * a,
108  integer * lda, complex * tau, complex * work,
109  integer * lwork, integer * info);
110 extern int cgelq2_(integer * m, integer * n, complex * a, integer * lda,
111  complex * tau, complex * work, integer * info);
112 extern int cgelqf_(integer * m, integer * n, complex * a, integer * lda,
113  complex * tau, complex * work, integer * lwork,
114  integer * info);
115 extern int cgels_(char *trans, integer * m, integer * n, integer * nrhs,
116  complex * a, integer * lda, complex * b, integer * ldb,
117  complex * work, integer * lwork, integer * info,
118  ftnlen trans_len);
119 extern int cgelsd_(integer * m, integer * n, integer * nrhs, complex * a,
120  integer * lda, complex * b, integer * ldb, real * s,
121  real * rcond, integer * rank, complex * work,
122  integer * lwork, real * rwork, integer * iwork,
123  integer * info);
124 extern int cgelss_(integer * m, integer * n, integer * nrhs, complex * a,
125  integer * lda, complex * b, integer * ldb, real * s,
126  real * rcond, integer * rank, complex * work,
127  integer * lwork, real * rwork, integer * info);
128 extern int cgelsx_(integer * m, integer * n, integer * nrhs, complex * a,
129  integer * lda, complex * b, integer * ldb, integer * jpvt,
130  real * rcond, integer * rank, complex * work, real * rwork,
131  integer * info);
132 extern int cgelsy_(integer * m, integer * n, integer * nrhs, complex * a,
133  integer * lda, complex * b, integer * ldb, integer * jpvt,
134  real * rcond, integer * rank, complex * work,
135  integer * lwork, real * rwork, integer * info);
136 extern int cgeql2_(integer * m, integer * n, complex * a, integer * lda,
137  complex * tau, complex * work, integer * info);
138 extern int cgeqlf_(integer * m, integer * n, complex * a, integer * lda,
139  complex * tau, complex * work, integer * lwork,
140  integer * info);
141 extern int cgeqp3_(integer * m, integer * n, complex * a, integer * lda,
142  integer * jpvt, complex * tau, complex * work,
143  integer * lwork, real * rwork, integer * info);
144 extern int cgeqpf_(integer * m, integer * n, complex * a, integer * lda,
145  integer * jpvt, complex * tau, complex * work,
146  real * rwork, integer * info);
147 extern int cgeqr2_(integer * m, integer * n, complex * a, integer * lda,
148  complex * tau, complex * work, integer * info);
149 extern int cgeqrf_(integer * m, integer * n, complex * a, integer * lda,
150  complex * tau, complex * work, integer * lwork,
151  integer * info);
152 extern int cgerfs_(char *trans, integer * n, integer * nrhs, complex * a,
153  integer * lda, complex * af, integer * ldaf,
154  integer * ipiv, complex * b, integer * ldb, complex * x,
155  integer * ldx, real * ferr, real * berr, complex * work,
156  real * rwork, integer * info, ftnlen trans_len);
157 extern int cgerq2_(integer * m, integer * n, complex * a, integer * lda,
158  complex * tau, complex * work, integer * info);
159 extern int cgerqf_(integer * m, integer * n, complex * a, integer * lda,
160  complex * tau, complex * work, integer * lwork,
161  integer * info);
162 extern int cgesc2_(integer * n, complex * a, integer * lda, complex * rhs,
163  integer * ipiv, integer * jpiv, real * scale);
164 extern int cgesdd_(char *jobz, integer * m, integer * n, complex * a,
165  integer * lda, real * s, complex * u, integer * ldu,
166  complex * vt, integer * ldvt, complex * work,
167  integer * lwork, real * rwork, integer * iwork,
168  integer * info, ftnlen jobz_len);
169 extern int cgesv_(integer * n, integer * nrhs, complex * a, integer * lda,
170  integer * ipiv, complex * b, integer * ldb, integer * info);
171 extern int cgesvd_(char *jobu, char *jobvt, integer * m, integer * n,
172  complex * a, integer * lda, real * s, complex * u,
173  integer * ldu, complex * vt, integer * ldvt,
174  complex * work, integer * lwork, real * rwork,
175  integer * info, ftnlen jobu_len, ftnlen jobvt_len);
176 extern int cgesvx_(char *fact, char *trans, integer * n, integer * nrhs,
177  complex * a, integer * lda, complex * af, integer * ldaf,
178  integer * ipiv, char *equed, real * r__, real * c__,
179  complex * b, integer * ldb, complex * x, integer * ldx,
180  real * rcond, real * ferr, real * berr, complex * work,
181  real * rwork, integer * info, ftnlen fact_len,
182  ftnlen trans_len, ftnlen equed_len);
183 extern int cgetc2_(integer * n, complex * a, integer * lda, integer * ipiv,
184  integer * jpiv, integer * info);
185 extern int cgetf2_(integer * m, integer * n, complex * a, integer * lda,
186  integer * ipiv, integer * info);
187 extern int cgetrf_(integer * m, integer * n, complex * a, integer * lda,
188  integer * ipiv, integer * info);
189 extern int cgetri_(integer * n, complex * a, integer * lda, integer * ipiv,
190  complex * work, integer * lwork, integer * info);
191 extern int cgetrs_(char *trans, integer * n, integer * nrhs, complex * a,
192  integer * lda, integer * ipiv, complex * b, integer * ldb,
193  integer * info, ftnlen trans_len);
194 extern int cggbak_(char *job, char *side, integer * n, integer * ilo,
195  integer * ihi, real * lscale, real * rscale, integer * m,
196  complex * v, integer * ldv, integer * info, ftnlen job_len,
197  ftnlen side_len);
198 extern int cggbal_(char *job, integer * n, complex * a, integer * lda,
199  complex * b, integer * ldb, integer * ilo, integer * ihi,
200  real * lscale, real * rscale, real * work, integer * info,
201  ftnlen job_len);
202 extern int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg,
203  integer * n, complex * a, integer * lda, complex * b,
204  integer * ldb, integer * sdim, complex * alpha,
205  complex * beta, complex * vsl, integer * ldvsl,
206  complex * vsr, integer * ldvsr, complex * work,
207  integer * lwork, real * rwork, logical * bwork,
208  integer * info, ftnlen jobvsl_len, ftnlen jobvsr_len,
209  ftnlen sort_len);
210 extern int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg,
211  char *sense, integer * n, complex * a, integer * lda,
212  complex * b, integer * ldb, integer * sdim,
213  complex * alpha, complex * beta, complex * vsl,
214  integer * ldvsl, complex * vsr, integer * ldvsr,
215  real * rconde, real * rcondv, complex * work,
216  integer * lwork, real * rwork, integer * iwork,
217  integer * liwork, logical * bwork, integer * info,
218  ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len,
219  ftnlen sense_len);
220 extern int cggev_(char *jobvl, char *jobvr, integer * n, complex * a,
221  integer * lda, complex * b, integer * ldb, complex * alpha,
222  complex * beta, complex * vl, integer * ldvl, complex * vr,
223  integer * ldvr, complex * work, integer * lwork,
224  real * rwork, integer * info, ftnlen jobvl_len,
225  ftnlen jobvr_len);
226 extern int cggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
227  integer * n, complex * a, integer * lda, complex * b,
228  integer * ldb, complex * alpha, complex * beta,
229  complex * vl, integer * ldvl, complex * vr, integer * ldvr,
230  integer * ilo, integer * ihi, real * lscale, real * rscale,
231  real * abnrm, real * bbnrm, real * rconde, real * rcondv,
232  complex * work, integer * lwork, real * rwork,
233  integer * iwork, logical * bwork, integer * info,
234  ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len,
235  ftnlen sense_len);
236 extern int cggglm_(integer * n, integer * m, integer * p, complex * a,
237  integer * lda, complex * b, integer * ldb, complex * d__,
238  complex * x, complex * y, complex * work, integer * lwork,
239  integer * info);
240 extern int cgghrd_(char *compq, char *compz, integer * n, integer * ilo,
241  integer * ihi, complex * a, integer * lda, complex * b,
242  integer * ldb, complex * q, integer * ldq, complex * z__,
243  integer * ldz, integer * info, ftnlen compq_len,
244  ftnlen compz_len);
245 extern int cgglse_(integer * m, integer * n, integer * p, complex * a,
246  integer * lda, complex * b, integer * ldb, complex * c__,
247  complex * d__, complex * x, complex * work,
248  integer * lwork, integer * info);
249 extern int cggqrf_(integer * n, integer * m, integer * p, complex * a,
250  integer * lda, complex * taua, complex * b, integer * ldb,
251  complex * taub, complex * work, integer * lwork,
252  integer * info);
253 extern int cggrqf_(integer * m, integer * p, integer * n, complex * a,
254  integer * lda, complex * taua, complex * b, integer * ldb,
255  complex * taub, complex * work, integer * lwork,
256  integer * info);
257 extern int cggsvd_(char *jobu, char *jobv, char *jobq, integer * m,
258  integer * n, integer * p, integer * k, integer * l,
259  complex * a, integer * lda, complex * b, integer * ldb,
260  real * alpha, real * beta, complex * u, integer * ldu,
261  complex * v, integer * ldv, complex * q, integer * ldq,
262  complex * work, real * rwork, integer * iwork,
263  integer * info, ftnlen jobu_len, ftnlen jobv_len,
264  ftnlen jobq_len);
265 extern int cggsvp_(char *jobu, char *jobv, char *jobq, integer * m,
266  integer * p, integer * n, complex * a, integer * lda,
267  complex * b, integer * ldb, real * tola, real * tolb,
268  integer * k, integer * l, complex * u, integer * ldu,
269  complex * v, integer * ldv, complex * q, integer * ldq,
270  integer * iwork, real * rwork, complex * tau,
271  complex * work, integer * info, ftnlen jobu_len,
272  ftnlen jobv_len, ftnlen jobq_len);
273 extern int cgtcon_(char *norm, integer * n, complex * dl, complex * d__,
274  complex * du, complex * du2, integer * ipiv, real * anorm,
275  real * rcond, complex * work, integer * info,
276  ftnlen norm_len);
277 extern int cgtrfs_(char *trans, integer * n, integer * nrhs, complex * dl,
278  complex * d__, complex * du, complex * dlf, complex * df,
279  complex * duf, complex * du2, integer * ipiv, complex * b,
280  integer * ldb, complex * x, integer * ldx, real * ferr,
281  real * berr, complex * work, real * rwork, integer * info,
282  ftnlen trans_len);
283 extern int cgtsv_(integer * n, integer * nrhs, complex * dl, complex * d__,
284  complex * du, complex * b, integer * ldb, integer * info);
285 extern int cgtsvx_(char *fact, char *trans, integer * n, integer * nrhs,
286  complex * dl, complex * d__, complex * du, complex * dlf,
287  complex * df, complex * duf, complex * du2, integer * ipiv,
288  complex * b, integer * ldb, complex * x, integer * ldx,
289  real * rcond, real * ferr, real * berr, complex * work,
290  real * rwork, integer * info, ftnlen fact_len,
291  ftnlen trans_len);
292 extern int cgttrf_(integer * n, complex * dl, complex * d__, complex * du,
293  complex * du2, integer * ipiv, integer * info);
294 extern int cgttrs_(char *trans, integer * n, integer * nrhs, complex * dl,
295  complex * d__, complex * du, complex * du2, integer * ipiv,
296  complex * b, integer * ldb, integer * info,
297  ftnlen trans_len);
298 extern int cgtts2_(integer * itrans, integer * n, integer * nrhs,
299  complex * dl, complex * d__, complex * du, complex * du2,
300  integer * ipiv, complex * b, integer * ldb);
301 extern int chbev_(char *jobz, char *uplo, integer * n, integer * kd,
302  complex * ab, integer * ldab, real * w, complex * z__,
303  integer * ldz, complex * work, real * rwork, integer * info,
304  ftnlen jobz_len, ftnlen uplo_len);
305 extern int chbevd_(char *jobz, char *uplo, integer * n, integer * kd,
306  complex * ab, integer * ldab, real * w, complex * z__,
307  integer * ldz, complex * work, integer * lwork,
308  real * rwork, integer * lrwork, integer * iwork,
309  integer * liwork, integer * info, ftnlen jobz_len,
310  ftnlen uplo_len);
311 extern int chbevx_(char *jobz, char *range, char *uplo, integer * n,
312  integer * kd, complex * ab, integer * ldab, complex * q,
313  integer * ldq, real * vl, real * vu, integer * il,
314  integer * iu, real * abstol, integer * m, real * w,
315  complex * z__, integer * ldz, complex * work, real * rwork,
316  integer * iwork, integer * ifail, integer * info,
317  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
318 extern int chbgst_(char *vect, char *uplo, integer * n, integer * ka,
319  integer * kb, complex * ab, integer * ldab, complex * bb,
320  integer * ldbb, complex * x, integer * ldx, complex * work,
321  real * rwork, integer * info, ftnlen vect_len,
322  ftnlen uplo_len);
323 extern int chbgv_(char *jobz, char *uplo, integer * n, integer * ka,
324  integer * kb, complex * ab, integer * ldab, complex * bb,
325  integer * ldbb, real * w, complex * z__, integer * ldz,
326  complex * work, real * rwork, integer * info,
327  ftnlen jobz_len, ftnlen uplo_len);
328 extern int chbgvd_(char *jobz, char *uplo, integer * n, integer * ka,
329  integer * kb, complex * ab, integer * ldab, complex * bb,
330  integer * ldbb, real * w, complex * z__, integer * ldz,
331  complex * work, integer * lwork, real * rwork,
332  integer * lrwork, integer * iwork, integer * liwork,
333  integer * info, ftnlen jobz_len, ftnlen uplo_len);
334 extern int chbgvx_(char *jobz, char *range, char *uplo, integer * n,
335  integer * ka, integer * kb, complex * ab, integer * ldab,
336  complex * bb, integer * ldbb, complex * q, integer * ldq,
337  real * vl, real * vu, integer * il, integer * iu,
338  real * abstol, integer * m, real * w, complex * z__,
339  integer * ldz, complex * work, real * rwork,
340  integer * iwork, integer * ifail, integer * info,
341  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
342 extern int chbtrd_(char *vect, char *uplo, integer * n, integer * kd,
343  complex * ab, integer * ldab, real * d__, real * e,
344  complex * q, integer * ldq, complex * work, integer * info,
345  ftnlen vect_len, ftnlen uplo_len);
346 extern int checon_(char *uplo, integer * n, complex * a, integer * lda,
347  integer * ipiv, real * anorm, real * rcond, complex * work,
348  integer * info, ftnlen uplo_len);
349 extern int cheev_(char *jobz, char *uplo, integer * n, complex * a,
350  integer * lda, real * w, complex * work, integer * lwork,
351  real * rwork, integer * info, ftnlen jobz_len,
352  ftnlen uplo_len);
353 extern int cheevd_(char *jobz, char *uplo, integer * n, complex * a,
354  integer * lda, real * w, complex * work, integer * lwork,
355  real * rwork, integer * lrwork, integer * iwork,
356  integer * liwork, integer * info, ftnlen jobz_len,
357  ftnlen uplo_len);
358 extern int cheevr_(char *jobz, char *range, char *uplo, integer * n,
359  complex * a, integer * lda, real * vl, real * vu,
360  integer * il, integer * iu, real * abstol, integer * m,
361  real * w, complex * z__, integer * ldz, integer * isuppz,
362  complex * work, integer * lwork, real * rwork,
363  integer * lrwork, integer * iwork, integer * liwork,
364  integer * info, ftnlen jobz_len, ftnlen range_len,
365  ftnlen uplo_len);
366 extern int cheevx_(char *jobz, char *range, char *uplo, integer * n,
367  complex * a, integer * lda, real * vl, real * vu,
368  integer * il, integer * iu, real * abstol, integer * m,
369  real * w, complex * z__, integer * ldz, complex * work,
370  integer * lwork, real * rwork, integer * iwork,
371  integer * ifail, integer * info, ftnlen jobz_len,
372  ftnlen range_len, ftnlen uplo_len);
373 extern int chegs2_(integer * itype, char *uplo, integer * n, complex * a,
374  integer * lda, complex * b, integer * ldb, integer * info,
375  ftnlen uplo_len);
376 extern int chegst_(integer * itype, char *uplo, integer * n, complex * a,
377  integer * lda, complex * b, integer * ldb, integer * info,
378  ftnlen uplo_len);
379 extern int chegv_(integer * itype, char *jobz, char *uplo, integer * n,
380  complex * a, integer * lda, complex * b, integer * ldb,
381  real * w, complex * work, integer * lwork, real * rwork,
382  integer * info, ftnlen jobz_len, ftnlen uplo_len);
383 extern int chegvd_(integer * itype, char *jobz, char *uplo, integer * n,
384  complex * a, integer * lda, complex * b, integer * ldb,
385  real * w, complex * work, integer * lwork, real * rwork,
386  integer * lrwork, integer * iwork, integer * liwork,
387  integer * info, ftnlen jobz_len, ftnlen uplo_len);
388 extern int chegvx_(integer * itype, char *jobz, char *range, char *uplo,
389  integer * n, complex * a, integer * lda, complex * b,
390  integer * ldb, real * vl, real * vu, integer * il,
391  integer * iu, real * abstol, integer * m, real * w,
392  complex * z__, integer * ldz, complex * work,
393  integer * lwork, real * rwork, integer * iwork,
394  integer * ifail, integer * info, ftnlen jobz_len,
395  ftnlen range_len, ftnlen uplo_len);
396 extern int cherfs_(char *uplo, integer * n, integer * nrhs, complex * a,
397  integer * lda, complex * af, integer * ldaf,
398  integer * ipiv, complex * b, integer * ldb, complex * x,
399  integer * ldx, real * ferr, real * berr, complex * work,
400  real * rwork, integer * info, ftnlen uplo_len);
401 extern int chesv_(char *uplo, integer * n, integer * nrhs, complex * a,
402  integer * lda, integer * ipiv, complex * b, integer * ldb,
403  complex * work, integer * lwork, integer * info,
404  ftnlen uplo_len);
405 extern int chesvx_(char *fact, char *uplo, integer * n, integer * nrhs,
406  complex * a, integer * lda, complex * af, integer * ldaf,
407  integer * ipiv, complex * b, integer * ldb, complex * x,
408  integer * ldx, real * rcond, real * ferr, real * berr,
409  complex * work, integer * lwork, real * rwork,
410  integer * info, ftnlen fact_len, ftnlen uplo_len);
411 extern int chetd2_(char *uplo, integer * n, complex * a, integer * lda,
412  real * d__, real * e, complex * tau, integer * info,
413  ftnlen uplo_len);
414 extern int chetf2_(char *uplo, integer * n, complex * a, integer * lda,
415  integer * ipiv, integer * info, ftnlen uplo_len);
416 extern int chetrd_(char *uplo, integer * n, complex * a, integer * lda,
417  real * d__, real * e, complex * tau, complex * work,
418  integer * lwork, integer * info, ftnlen uplo_len);
419 extern int chetrf_(char *uplo, integer * n, complex * a, integer * lda,
420  integer * ipiv, complex * work, integer * lwork,
421  integer * info, ftnlen uplo_len);
422 extern int chetri_(char *uplo, integer * n, complex * a, integer * lda,
423  integer * ipiv, complex * work, integer * info,
424  ftnlen uplo_len);
425 extern int chetrs_(char *uplo, integer * n, integer * nrhs, complex * a,
426  integer * lda, integer * ipiv, complex * b, integer * ldb,
427  integer * info, ftnlen uplo_len);
428 extern int chgeqz_(char *job, char *compq, char *compz, integer * n,
429  integer * ilo, integer * ihi, complex * a, integer * lda,
430  complex * b, integer * ldb, complex * alpha,
431  complex * beta, complex * q, integer * ldq, complex * z__,
432  integer * ldz, complex * work, integer * lwork,
433  real * rwork, integer * info, ftnlen job_len,
434  ftnlen compq_len, ftnlen compz_len);
435 extern int chpcon_(char *uplo, integer * n, complex * ap, integer * ipiv,
436  real * anorm, real * rcond, complex * work, integer * info,
437  ftnlen uplo_len);
438 extern int chpev_(char *jobz, char *uplo, integer * n, complex * ap, real * w,
439  complex * z__, integer * ldz, complex * work, real * rwork,
440  integer * info, ftnlen jobz_len, ftnlen uplo_len);
441 extern int chpevd_(char *jobz, char *uplo, integer * n, complex * ap,
442  real * w, complex * z__, integer * ldz, complex * work,
443  integer * lwork, real * rwork, integer * lrwork,
444  integer * iwork, integer * liwork, integer * info,
445  ftnlen jobz_len, ftnlen uplo_len);
446 extern int chpevx_(char *jobz, char *range, char *uplo, integer * n,
447  complex * ap, real * vl, real * vu, integer * il,
448  integer * iu, real * abstol, integer * m, real * w,
449  complex * z__, integer * ldz, complex * work, real * rwork,
450  integer * iwork, integer * ifail, integer * info,
451  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
452 extern int chpgst_(integer * itype, char *uplo, integer * n, complex * ap,
453  complex * bp, integer * info, ftnlen uplo_len);
454 extern int chpgv_(integer * itype, char *jobz, char *uplo, integer * n,
455  complex * ap, complex * bp, real * w, complex * z__,
456  integer * ldz, complex * work, real * rwork, integer * info,
457  ftnlen jobz_len, ftnlen uplo_len);
458 extern int chpgvd_(integer * itype, char *jobz, char *uplo, integer * n,
459  complex * ap, complex * bp, real * w, complex * z__,
460  integer * ldz, complex * work, integer * lwork,
461  real * rwork, integer * lrwork, integer * iwork,
462  integer * liwork, integer * info, ftnlen jobz_len,
463  ftnlen uplo_len);
464 extern int chpgvx_(integer * itype, char *jobz, char *range, char *uplo,
465  integer * n, complex * ap, complex * bp, real * vl,
466  real * vu, integer * il, integer * iu, real * abstol,
467  integer * m, real * w, complex * z__, integer * ldz,
468  complex * work, real * rwork, integer * iwork,
469  integer * ifail, integer * info, ftnlen jobz_len,
470  ftnlen range_len, ftnlen uplo_len);
471 extern int chprfs_(char *uplo, integer * n, integer * nrhs, complex * ap,
472  complex * afp, integer * ipiv, complex * b, integer * ldb,
473  complex * x, integer * ldx, real * ferr, real * berr,
474  complex * work, real * rwork, integer * info,
475  ftnlen uplo_len);
476 extern int chpsv_(char *uplo, integer * n, integer * nrhs, complex * ap,
477  integer * ipiv, complex * b, integer * ldb, integer * info,
478  ftnlen uplo_len);
479 extern int chpsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
480  complex * ap, complex * afp, integer * ipiv, complex * b,
481  integer * ldb, complex * x, integer * ldx, real * rcond,
482  real * ferr, real * berr, complex * work, real * rwork,
483  integer * info, ftnlen fact_len, ftnlen uplo_len);
484 extern int chptrd_(char *uplo, integer * n, complex * ap, real * d__,
485  real * e, complex * tau, integer * info, ftnlen uplo_len);
486 extern int chptrf_(char *uplo, integer * n, complex * ap, integer * ipiv,
487  integer * info, ftnlen uplo_len);
488 extern int chptri_(char *uplo, integer * n, complex * ap, integer * ipiv,
489  complex * work, integer * info, ftnlen uplo_len);
490 extern int chptrs_(char *uplo, integer * n, integer * nrhs, complex * ap,
491  integer * ipiv, complex * b, integer * ldb, integer * info,
492  ftnlen uplo_len);
493 extern int chsein_(char *side, char *eigsrc, char *initv, logical * select,
494  integer * n, complex * h__, integer * ldh, complex * w,
495  complex * vl, integer * ldvl, complex * vr, integer * ldvr,
496  integer * mm, integer * m, complex * work, real * rwork,
497  integer * ifaill, integer * ifailr, integer * info,
498  ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
499 extern int chseqr_(char *job, char *compz, integer * n, integer * ilo,
500  integer * ihi, complex * h__, integer * ldh, complex * w,
501  complex * z__, integer * ldz, complex * work,
502  integer * lwork, integer * info, ftnlen job_len,
503  ftnlen compz_len);
504 extern int clabrd_(integer * m, integer * n, integer * nb, complex * a,
505  integer * lda, real * d__, real * e, complex * tauq,
506  complex * taup, complex * x, integer * ldx, complex * y,
507  integer * ldy);
508 extern int clacgv_(integer * n, complex * x, integer * incx);
509 extern int clacon_(integer * n, complex * v, complex * x, real * est,
510  integer * kase);
511 extern int clacp2_(char *uplo, integer * m, integer * n, real * a,
512  integer * lda, complex * b, integer * ldb,
513  ftnlen uplo_len);
514 extern int clacpy_(char *uplo, integer * m, integer * n, complex * a,
515  integer * lda, complex * b, integer * ldb,
516  ftnlen uplo_len);
517 extern int clacrm_(integer * m, integer * n, complex * a, integer * lda,
518  real * b, integer * ldb, complex * c__, integer * ldc,
519  real * rwork);
520 extern int clacrt_(integer * n, complex * cx, integer * incx, complex * cy,
521  integer * incy, complex * c__, complex * s);
522 extern C_f cladiv_(complex * ret_val, complex * x, complex * y);
523 extern int claed0_(integer * qsiz, integer * n, real * d__, real * e,
524  complex * q, integer * ldq, complex * qstore,
525  integer * ldqs, real * rwork, integer * iwork,
526  integer * info);
527 extern int claed7_(integer * n, integer * cutpnt, integer * qsiz,
528  integer * tlvls, integer * curlvl, integer * curpbm,
529  real * d__, complex * q, integer * ldq, real * rho,
530  integer * indxq, real * qstore, integer * qptr,
531  integer * prmptr, integer * perm, integer * givptr,
532  integer * givcol, real * givnum, complex * work,
533  real * rwork, integer * iwork, integer * info);
534 extern int claed8_(integer * k, integer * n, integer * qsiz, complex * q,
535  integer * ldq, real * d__, real * rho, integer * cutpnt,
536  real * z__, real * dlamda, complex * q2, integer * ldq2,
537  real * w, integer * indxp, integer * indx, integer * indxq,
538  integer * perm, integer * givptr, integer * givcol,
539  real * givnum, integer * info);
540 extern int claein_(logical * rightv, logical * noinit, integer * n,
541  complex * h__, integer * ldh, complex * w, complex * v,
542  complex * b, integer * ldb, real * rwork, real * eps3,
543  real * smlnum, integer * info);
544 extern int claesy_(complex * a, complex * b, complex * c__, complex * rt1,
545  complex * rt2, complex * evscal, complex * cs1,
546  complex * sn1);
547 extern int claev2_(complex * a, complex * b, complex * c__, real * rt1,
548  real * rt2, real * cs1, complex * sn1);
549 extern int clags2_(logical * upper, real * a1, complex * a2, real * a3,
550  real * b1, complex * b2, real * b3, real * csu,
551  complex * snu, real * csv, complex * snv, real * csq,
552  complex * snq);
553 extern int clagtm_(char *trans, integer * n, integer * nrhs, real * alpha,
554  complex * dl, complex * d__, complex * du, complex * x,
555  integer * ldx, real * beta, complex * b, integer * ldb,
556  ftnlen trans_len);
557 extern int clahef_(char *uplo, integer * n, integer * nb, integer * kb,
558  complex * a, integer * lda, integer * ipiv, complex * w,
559  integer * ldw, integer * info, ftnlen uplo_len);
560 extern int clahqr_(logical * wantt, logical * wantz, integer * n,
561  integer * ilo, integer * ihi, complex * h__, integer * ldh,
562  complex * w, integer * iloz, integer * ihiz, complex * z__,
563  integer * ldz, integer * info);
564 extern int clahrd_(integer * n, integer * k, integer * nb, complex * a,
565  integer * lda, complex * tau, complex * t, integer * ldt,
566  complex * y, integer * ldy);
567 extern int claic1_(integer * job, integer * j, complex * x, real * sest,
568  complex * w, complex * gamma, real * sestpr, complex * s,
569  complex * c__);
570 extern int clals0_(integer * icompq, integer * nl, integer * nr,
571  integer * sqre, integer * nrhs, complex * b, integer * ldb,
572  complex * bx, integer * ldbx, integer * perm,
573  integer * givptr, integer * givcol, integer * ldgcol,
574  real * givnum, integer * ldgnum, real * poles, real * difl,
575  real * difr, real * z__, integer * k, real * c__, real * s,
576  real * rwork, integer * info);
577 extern int clalsa_(integer * icompq, integer * smlsiz, integer * n,
578  integer * nrhs, complex * b, integer * ldb, complex * bx,
579  integer * ldbx, real * u, integer * ldu, real * vt,
580  integer * k, real * difl, real * difr, real * z__,
581  real * poles, integer * givptr, integer * givcol,
582  integer * ldgcol, integer * perm, real * givnum,
583  real * c__, real * s, real * rwork, integer * iwork,
584  integer * info);
585 extern int clalsd_(char *uplo, integer * smlsiz, integer * n, integer * nrhs,
586  real * d__, real * e, complex * b, integer * ldb,
587  real * rcond, integer * rank, complex * work, real * rwork,
588  integer * iwork, integer * info, ftnlen uplo_len);
589 extern E_f clangb_(char *norm, integer * n, integer * kl, integer * ku,
590  complex * ab, integer * ldab, real * work,
591  ftnlen norm_len);
592 extern E_f clange_(char *norm, integer * m, integer * n, complex * a,
593  integer * lda, real * work, ftnlen norm_len);
594 extern E_f clangt_(char *norm, integer * n, complex * dl, complex * d__,
595  complex * du, ftnlen norm_len);
596 extern E_f clanhb_(char *norm, char *uplo, integer * n, integer * k,
597  complex * ab, integer * ldab, real * work, ftnlen norm_len,
598  ftnlen uplo_len);
599 extern E_f clanhe_(char *norm, char *uplo, integer * n, complex * a,
600  integer * lda, real * work, ftnlen norm_len,
601  ftnlen uplo_len);
602 extern E_f clanhp_(char *norm, char *uplo, integer * n, complex * ap,
603  real * work, ftnlen norm_len, ftnlen uplo_len);
604 extern E_f clanhs_(char *norm, integer * n, complex * a, integer * lda,
605  real * work, ftnlen norm_len);
606 extern E_f clanht_(char *norm, integer * n, real * d__, complex * e,
607  ftnlen norm_len);
608 extern E_f clansb_(char *norm, char *uplo, integer * n, integer * k,
609  complex * ab, integer * ldab, real * work, ftnlen norm_len,
610  ftnlen uplo_len);
611 extern E_f clansp_(char *norm, char *uplo, integer * n, complex * ap,
612  real * work, ftnlen norm_len, ftnlen uplo_len);
613 extern E_f clansy_(char *norm, char *uplo, integer * n, complex * a,
614  integer * lda, real * work, ftnlen norm_len,
615  ftnlen uplo_len);
616 extern E_f clantb_(char *norm, char *uplo, char *diag, integer * n,
617  integer * k, complex * ab, integer * ldab, real * work,
618  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
619 extern E_f clantp_(char *norm, char *uplo, char *diag, integer * n,
620  complex * ap, real * work, ftnlen norm_len,
621  ftnlen uplo_len, ftnlen diag_len);
622 extern E_f clantr_(char *norm, char *uplo, char *diag, integer * m,
623  integer * n, complex * a, integer * lda, real * work,
624  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
625 extern int clapll_(integer * n, complex * x, integer * incx, complex * y,
626  integer * incy, real * ssmin);
627 extern int clapmt_(logical * forwrd, integer * m, integer * n, complex * x,
628  integer * ldx, integer * k);
629 extern int claqgb_(integer * m, integer * n, integer * kl, integer * ku,
630  complex * ab, integer * ldab, real * r__, real * c__,
631  real * rowcnd, real * colcnd, real * amax, char *equed,
632  ftnlen equed_len);
633 extern int claqge_(integer * m, integer * n, complex * a, integer * lda,
634  real * r__, real * c__, real * rowcnd, real * colcnd,
635  real * amax, char *equed, ftnlen equed_len);
636 extern int claqhb_(char *uplo, integer * n, integer * kd, complex * ab,
637  integer * ldab, real * s, real * scond, real * amax,
638  char *equed, ftnlen uplo_len, ftnlen equed_len);
639 extern int claqhe_(char *uplo, integer * n, complex * a, integer * lda,
640  real * s, real * scond, real * amax, char *equed,
641  ftnlen uplo_len, ftnlen equed_len);
642 extern int claqhp_(char *uplo, integer * n, complex * ap, real * s,
643  real * scond, real * amax, char *equed, ftnlen uplo_len,
644  ftnlen equed_len);
645 extern int claqp2_(integer * m, integer * n, integer * offset, complex * a,
646  integer * lda, integer * jpvt, complex * tau, real * vn1,
647  real * vn2, complex * work);
648 extern int claqps_(integer * m, integer * n, integer * offset, integer * nb,
649  integer * kb, complex * a, integer * lda, integer * jpvt,
650  complex * tau, real * vn1, real * vn2, complex * auxv,
651  complex * f, integer * ldf);
652 extern int claqsb_(char *uplo, integer * n, integer * kd, complex * ab,
653  integer * ldab, real * s, real * scond, real * amax,
654  char *equed, ftnlen uplo_len, ftnlen equed_len);
655 extern int claqsp_(char *uplo, integer * n, complex * ap, real * s,
656  real * scond, real * amax, char *equed, ftnlen uplo_len,
657  ftnlen equed_len);
658 extern int claqsy_(char *uplo, integer * n, complex * a, integer * lda,
659  real * s, real * scond, real * amax, char *equed,
660  ftnlen uplo_len, ftnlen equed_len);
661 extern int clar1v_(integer * n, integer * b1, integer * bn, real * sigma,
662  real * d__, real * l, real * ld, real * lld, real * gersch,
663  complex * z__, real * ztz, real * mingma, integer * r__,
664  integer * isuppz, real * work);
665 extern int clar2v_(integer * n, complex * x, complex * y, complex * z__,
666  integer * incx, real * c__, complex * s, integer * incc);
667 extern int clarcm_(integer * m, integer * n, real * a, integer * lda,
668  complex * b, integer * ldb, complex * c__, integer * ldc,
669  real * rwork);
670 extern int clarf_(char *side, integer * m, integer * n, complex * v,
671  integer * incv, complex * tau, complex * c__, integer * ldc,
672  complex * work, ftnlen side_len);
673 extern int clarfb_(char *side, char *trans, char *direct, char *storev,
674  integer * m, integer * n, integer * k, complex * v,
675  integer * ldv, complex * t, integer * ldt, complex * c__,
676  integer * ldc, complex * work, integer * ldwork,
677  ftnlen side_len, ftnlen trans_len, ftnlen direct_len,
678  ftnlen storev_len);
679 extern int clarfg_(integer * n, complex * alpha, complex * x, integer * incx,
680  complex * tau);
681 extern int clarft_(char *direct, char *storev, integer * n, integer * k,
682  complex * v, integer * ldv, complex * tau, complex * t,
683  integer * ldt, ftnlen direct_len, ftnlen storev_len);
684 extern int clarfx_(char *side, integer * m, integer * n, complex * v,
685  complex * tau, complex * c__, integer * ldc,
686  complex * work, ftnlen side_len);
687 extern int clargv_(integer * n, complex * x, integer * incx, complex * y,
688  integer * incy, real * c__, integer * incc);
689 extern int clarnv_(integer * idist, integer * iseed, integer * n,
690  complex * x);
691 extern int clarrv_(integer * n, real * d__, real * l, integer * isplit,
692  integer * m, real * w, integer * iblock, real * gersch,
693  real * tol, complex * z__, integer * ldz, integer * isuppz,
694  real * work, integer * iwork, integer * info);
695 extern int clartg_(complex * f, complex * g, real * cs, complex * sn,
696  complex * r__);
697 extern int clartv_(integer * n, complex * x, integer * incx, complex * y,
698  integer * incy, real * c__, complex * s, integer * incc);
699 extern int clarz_(char *side, integer * m, integer * n, integer * l,
700  complex * v, integer * incv, complex * tau, complex * c__,
701  integer * ldc, complex * work, ftnlen side_len);
702 extern int clarzb_(char *side, char *trans, char *direct, char *storev,
703  integer * m, integer * n, integer * k, integer * l,
704  complex * v, integer * ldv, complex * t, integer * ldt,
705  complex * c__, integer * ldc, complex * work,
706  integer * ldwork, ftnlen side_len, ftnlen trans_len,
707  ftnlen direct_len, ftnlen storev_len);
708 extern int clarzt_(char *direct, char *storev, integer * n, integer * k,
709  complex * v, integer * ldv, complex * tau, complex * t,
710  integer * ldt, ftnlen direct_len, ftnlen storev_len);
711 extern int clascl_(char *type__, integer * kl, integer * ku, real * cfrom,
712  real * cto, integer * m, integer * n, complex * a,
713  integer * lda, integer * info, ftnlen type_len);
714 extern int claset_(char *uplo, integer * m, integer * n, complex * alpha,
715  complex * beta, complex * a, integer * lda,
716  ftnlen uplo_len);
717 extern int clasr_(char *side, char *pivot, char *direct, integer * m,
718  integer * n, real * c__, real * s, complex * a,
719  integer * lda, ftnlen side_len, ftnlen pivot_len,
720  ftnlen direct_len);
721 extern int classq_(integer * n, complex * x, integer * incx, real * scale,
722  real * sumsq);
723 extern int claswp_(integer * n, complex * a, integer * lda, integer * k1,
724  integer * k2, integer * ipiv, integer * incx);
725 extern int clasyf_(char *uplo, integer * n, integer * nb, integer * kb,
726  complex * a, integer * lda, integer * ipiv, complex * w,
727  integer * ldw, integer * info, ftnlen uplo_len);
728 extern int clatbs_(char *uplo, char *trans, char *diag, char *normin,
729  integer * n, integer * kd, complex * ab, integer * ldab,
730  complex * x, real * scale, real * cnorm, integer * info,
731  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
732  ftnlen normin_len);
733 extern int clatdf_(integer * ijob, integer * n, complex * z__, integer * ldz,
734  complex * rhs, real * rdsum, real * rdscal, integer * ipiv,
735  integer * jpiv);
736 extern int clatps_(char *uplo, char *trans, char *diag, char *normin,
737  integer * n, complex * ap, complex * x, real * scale,
738  real * cnorm, integer * info, ftnlen uplo_len,
739  ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
740 extern int clatrd_(char *uplo, integer * n, integer * nb, complex * a,
741  integer * lda, real * e, complex * tau, complex * w,
742  integer * ldw, ftnlen uplo_len);
743 extern int clatrs_(char *uplo, char *trans, char *diag, char *normin,
744  integer * n, complex * a, integer * lda, complex * x,
745  real * scale, real * cnorm, integer * info,
746  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
747  ftnlen normin_len);
748 extern int clatrz_(integer * m, integer * n, integer * l, complex * a,
749  integer * lda, complex * tau, complex * work);
750 extern int clatzm_(char *side, integer * m, integer * n, complex * v,
751  integer * incv, complex * tau, complex * c1, complex * c2,
752  integer * ldc, complex * work, ftnlen side_len);
753 extern int clauu2_(char *uplo, integer * n, complex * a, integer * lda,
754  integer * info, ftnlen uplo_len);
755 extern int clauum_(char *uplo, integer * n, complex * a, integer * lda,
756  integer * info, ftnlen uplo_len);
757 extern int cpbcon_(char *uplo, integer * n, integer * kd, complex * ab,
758  integer * ldab, real * anorm, real * rcond, complex * work,
759  real * rwork, integer * info, ftnlen uplo_len);
760 extern int cpbequ_(char *uplo, integer * n, integer * kd, complex * ab,
761  integer * ldab, real * s, real * scond, real * amax,
762  integer * info, ftnlen uplo_len);
763 extern int cpbrfs_(char *uplo, integer * n, integer * kd, integer * nrhs,
764  complex * ab, integer * ldab, complex * afb,
765  integer * ldafb, complex * b, integer * ldb, complex * x,
766  integer * ldx, real * ferr, real * berr, complex * work,
767  real * rwork, integer * info, ftnlen uplo_len);
768 extern int cpbstf_(char *uplo, integer * n, integer * kd, complex * ab,
769  integer * ldab, integer * info, ftnlen uplo_len);
770 extern int cpbsv_(char *uplo, integer * n, integer * kd, integer * nrhs,
771  complex * ab, integer * ldab, complex * b, integer * ldb,
772  integer * info, ftnlen uplo_len);
773 extern int cpbsvx_(char *fact, char *uplo, integer * n, integer * kd,
774  integer * nrhs, complex * ab, integer * ldab,
775  complex * afb, integer * ldafb, char *equed, real * s,
776  complex * b, integer * ldb, complex * x, integer * ldx,
777  real * rcond, real * ferr, real * berr, complex * work,
778  real * rwork, integer * info, ftnlen fact_len,
779  ftnlen uplo_len, ftnlen equed_len);
780 extern int cpbtf2_(char *uplo, integer * n, integer * kd, complex * ab,
781  integer * ldab, integer * info, ftnlen uplo_len);
782 extern int cpbtrf_(char *uplo, integer * n, integer * kd, complex * ab,
783  integer * ldab, integer * info, ftnlen uplo_len);
784 extern int cpbtrs_(char *uplo, integer * n, integer * kd, integer * nrhs,
785  complex * ab, integer * ldab, complex * b, integer * ldb,
786  integer * info, ftnlen uplo_len);
787 extern int cpocon_(char *uplo, integer * n, complex * a, integer * lda,
788  real * anorm, real * rcond, complex * work, real * rwork,
789  integer * info, ftnlen uplo_len);
790 extern int cpoequ_(integer * n, complex * a, integer * lda, real * s,
791  real * scond, real * amax, integer * info);
792 extern int cporfs_(char *uplo, integer * n, integer * nrhs, complex * a,
793  integer * lda, complex * af, integer * ldaf, complex * b,
794  integer * ldb, complex * x, integer * ldx, real * ferr,
795  real * berr, complex * work, real * rwork, integer * info,
796  ftnlen uplo_len);
797 extern int cposv_(char *uplo, integer * n, integer * nrhs, complex * a,
798  integer * lda, complex * b, integer * ldb, integer * info,
799  ftnlen uplo_len);
800 extern int cposvx_(char *fact, char *uplo, integer * n, integer * nrhs,
801  complex * a, integer * lda, complex * af, integer * ldaf,
802  char *equed, real * s, complex * b, integer * ldb,
803  complex * x, integer * ldx, real * rcond, real * ferr,
804  real * berr, complex * work, real * rwork, integer * info,
805  ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
806 extern int cpotf2_(char *uplo, integer * n, complex * a, integer * lda,
807  integer * info, ftnlen uplo_len);
808 extern int cpotrf_(char *uplo, integer * n, complex * a, integer * lda,
809  integer * info, ftnlen uplo_len);
810 extern int cpotri_(char *uplo, integer * n, complex * a, integer * lda,
811  integer * info, ftnlen uplo_len);
812 extern int cpotrs_(char *uplo, integer * n, integer * nrhs, complex * a,
813  integer * lda, complex * b, integer * ldb, integer * info,
814  ftnlen uplo_len);
815 extern int cppcon_(char *uplo, integer * n, complex * ap, real * anorm,
816  real * rcond, complex * work, real * rwork, integer * info,
817  ftnlen uplo_len);
818 extern int cppequ_(char *uplo, integer * n, complex * ap, real * s,
819  real * scond, real * amax, integer * info,
820  ftnlen uplo_len);
821 extern int cpprfs_(char *uplo, integer * n, integer * nrhs, complex * ap,
822  complex * afp, complex * b, integer * ldb, complex * x,
823  integer * ldx, real * ferr, real * berr, complex * work,
824  real * rwork, integer * info, ftnlen uplo_len);
825 extern int cppsv_(char *uplo, integer * n, integer * nrhs, complex * ap,
826  complex * b, integer * ldb, integer * info,
827  ftnlen uplo_len);
828 extern int cppsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
829  complex * ap, complex * afp, char *equed, real * s,
830  complex * b, integer * ldb, complex * x, integer * ldx,
831  real * rcond, real * ferr, real * berr, complex * work,
832  real * rwork, integer * info, ftnlen fact_len,
833  ftnlen uplo_len, ftnlen equed_len);
834 extern int cpptrf_(char *uplo, integer * n, complex * ap, integer * info,
835  ftnlen uplo_len);
836 extern int cpptri_(char *uplo, integer * n, complex * ap, integer * info,
837  ftnlen uplo_len);
838 extern int cpptrs_(char *uplo, integer * n, integer * nrhs, complex * ap,
839  complex * b, integer * ldb, integer * info,
840  ftnlen uplo_len);
841 extern int cptcon_(integer * n, real * d__, complex * e, real * anorm,
842  real * rcond, real * rwork, integer * info);
843 extern int cpteqr_(char *compz, integer * n, real * d__, real * e,
844  complex * z__, integer * ldz, real * work, integer * info,
845  ftnlen compz_len);
846 extern int cptrfs_(char *uplo, integer * n, integer * nrhs, real * d__,
847  complex * e, real * df, complex * ef, complex * b,
848  integer * ldb, complex * x, integer * ldx, real * ferr,
849  real * berr, complex * work, real * rwork, integer * info,
850  ftnlen uplo_len);
851 extern int cptsv_(integer * n, integer * nrhs, real * d__, complex * e,
852  complex * b, integer * ldb, integer * info);
853 extern int cptsvx_(char *fact, integer * n, integer * nrhs, real * d__,
854  complex * e, real * df, complex * ef, complex * b,
855  integer * ldb, complex * x, integer * ldx, real * rcond,
856  real * ferr, real * berr, complex * work, real * rwork,
857  integer * info, ftnlen fact_len);
858 extern int cpttrf_(integer * n, real * d__, complex * e, integer * info);
859 extern int cpttrs_(char *uplo, integer * n, integer * nrhs, real * d__,
860  complex * e, complex * b, integer * ldb, integer * info,
861  ftnlen uplo_len);
862 extern int cptts2_(integer * iuplo, integer * n, integer * nrhs, real * d__,
863  complex * e, complex * b, integer * ldb);
864 extern int crot_(integer * n, complex * cx, integer * incx, complex * cy,
865  integer * incy, real * c__, complex * s);
866 extern int cspcon_(char *uplo, integer * n, complex * ap, integer * ipiv,
867  real * anorm, real * rcond, complex * work, integer * info,
868  ftnlen uplo_len);
869 extern int cspmv_(char *uplo, integer * n, complex * alpha, complex * ap,
870  complex * x, integer * incx, complex * beta, complex * y,
871  integer * incy, ftnlen uplo_len);
872 extern int cspr_(char *uplo, integer * n, complex * alpha, complex * x,
873  integer * incx, complex * ap, ftnlen uplo_len);
874 extern int csprfs_(char *uplo, integer * n, integer * nrhs, complex * ap,
875  complex * afp, integer * ipiv, complex * b, integer * ldb,
876  complex * x, integer * ldx, real * ferr, real * berr,
877  complex * work, real * rwork, integer * info,
878  ftnlen uplo_len);
879 extern int cspsv_(char *uplo, integer * n, integer * nrhs, complex * ap,
880  integer * ipiv, complex * b, integer * ldb, integer * info,
881  ftnlen uplo_len);
882 extern int cspsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
883  complex * ap, complex * afp, integer * ipiv, complex * b,
884  integer * ldb, complex * x, integer * ldx, real * rcond,
885  real * ferr, real * berr, complex * work, real * rwork,
886  integer * info, ftnlen fact_len, ftnlen uplo_len);
887 extern int csptrf_(char *uplo, integer * n, complex * ap, integer * ipiv,
888  integer * info, ftnlen uplo_len);
889 extern int csptri_(char *uplo, integer * n, complex * ap, integer * ipiv,
890  complex * work, integer * info, ftnlen uplo_len);
891 extern int csptrs_(char *uplo, integer * n, integer * nrhs, complex * ap,
892  integer * ipiv, complex * b, integer * ldb, integer * info,
893  ftnlen uplo_len);
894 extern int csrot_(integer * n, complex * cx, integer * incx, complex * cy,
895  integer * incy, real * c__, real * s);
896 extern int csrscl_(integer * n, real * sa, complex * sx, integer * incx);
897 extern int cstedc_(char *compz, integer * n, real * d__, real * e,
898  complex * z__, integer * ldz, complex * work,
899  integer * lwork, real * rwork, integer * lrwork,
900  integer * iwork, integer * liwork, integer * info,
901  ftnlen compz_len);
902 extern int cstegr_(char *jobz, char *range, integer * n, real * d__, real * e,
903  real * vl, real * vu, integer * il, integer * iu,
904  real * abstol, integer * m, real * w, complex * z__,
905  integer * ldz, integer * isuppz, real * work,
906  integer * lwork, integer * iwork, integer * liwork,
907  integer * info, ftnlen jobz_len, ftnlen range_len);
908 extern int cstein_(integer * n, real * d__, real * e, integer * m, real * w,
909  integer * iblock, integer * isplit, complex * z__,
910  integer * ldz, real * work, integer * iwork,
911  integer * ifail, integer * info);
912 extern int csteqr_(char *compz, integer * n, real * d__, real * e,
913  complex * z__, integer * ldz, real * work, integer * info,
914  ftnlen compz_len);
915 extern int csycon_(char *uplo, integer * n, complex * a, integer * lda,
916  integer * ipiv, real * anorm, real * rcond, complex * work,
917  integer * info, ftnlen uplo_len);
918 extern int csymv_(char *uplo, integer * n, complex * alpha, complex * a,
919  integer * lda, complex * x, integer * incx, complex * beta,
920  complex * y, integer * incy, ftnlen uplo_len);
921 extern int csyr_(char *uplo, integer * n, complex * alpha, complex * x,
922  integer * incx, complex * a, integer * lda, ftnlen uplo_len);
923 extern int csyrfs_(char *uplo, integer * n, integer * nrhs, complex * a,
924  integer * lda, complex * af, integer * ldaf,
925  integer * ipiv, complex * b, integer * ldb, complex * x,
926  integer * ldx, real * ferr, real * berr, complex * work,
927  real * rwork, integer * info, ftnlen uplo_len);
928 extern int csysv_(char *uplo, integer * n, integer * nrhs, complex * a,
929  integer * lda, integer * ipiv, complex * b, integer * ldb,
930  complex * work, integer * lwork, integer * info,
931  ftnlen uplo_len);
932 extern int csysvx_(char *fact, char *uplo, integer * n, integer * nrhs,
933  complex * a, integer * lda, complex * af, integer * ldaf,
934  integer * ipiv, complex * b, integer * ldb, complex * x,
935  integer * ldx, real * rcond, real * ferr, real * berr,
936  complex * work, integer * lwork, real * rwork,
937  integer * info, ftnlen fact_len, ftnlen uplo_len);
938 extern int csytf2_(char *uplo, integer * n, complex * a, integer * lda,
939  integer * ipiv, integer * info, ftnlen uplo_len);
940 extern int csytrf_(char *uplo, integer * n, complex * a, integer * lda,
941  integer * ipiv, complex * work, integer * lwork,
942  integer * info, ftnlen uplo_len);
943 extern int csytri_(char *uplo, integer * n, complex * a, integer * lda,
944  integer * ipiv, complex * work, integer * info,
945  ftnlen uplo_len);
946 extern int csytrs_(char *uplo, integer * n, integer * nrhs, complex * a,
947  integer * lda, integer * ipiv, complex * b, integer * ldb,
948  integer * info, ftnlen uplo_len);
949 extern int ctbcon_(char *norm, char *uplo, char *diag, integer * n,
950  integer * kd, complex * ab, integer * ldab, real * rcond,
951  complex * work, real * rwork, integer * info,
952  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
953 extern int ctbrfs_(char *uplo, char *trans, char *diag, integer * n,
954  integer * kd, integer * nrhs, complex * ab, integer * ldab,
955  complex * b, integer * ldb, complex * x, integer * ldx,
956  real * ferr, real * berr, complex * work, real * rwork,
957  integer * info, ftnlen uplo_len, ftnlen trans_len,
958  ftnlen diag_len);
959 extern int ctbtrs_(char *uplo, char *trans, char *diag, integer * n,
960  integer * kd, integer * nrhs, complex * ab, integer * ldab,
961  complex * b, integer * ldb, integer * info,
962  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
963 extern int ctgevc_(char *side, char *howmny, logical * select, integer * n,
964  complex * a, integer * lda, complex * b, integer * ldb,
965  complex * vl, integer * ldvl, complex * vr, integer * ldvr,
966  integer * mm, integer * m, complex * work, real * rwork,
967  integer * info, ftnlen side_len, ftnlen howmny_len);
968 extern int ctgex2_(logical * wantq, logical * wantz, integer * n, complex * a,
969  integer * lda, complex * b, integer * ldb, complex * q,
970  integer * ldq, complex * z__, integer * ldz, integer * j1,
971  integer * info);
972 extern int ctgexc_(logical * wantq, logical * wantz, integer * n, complex * a,
973  integer * lda, complex * b, integer * ldb, complex * q,
974  integer * ldq, complex * z__, integer * ldz,
975  integer * ifst, integer * ilst, integer * info);
976 extern int ctgsen_(integer * ijob, logical * wantq, logical * wantz,
977  logical * select, integer * n, complex * a, integer * lda,
978  complex * b, integer * ldb, complex * alpha,
979  complex * beta, complex * q, integer * ldq, complex * z__,
980  integer * ldz, integer * m, real * pl, real * pr,
981  real * dif, complex * work, integer * lwork,
982  integer * iwork, integer * liwork, integer * info);
983 extern int ctgsja_(char *jobu, char *jobv, char *jobq, integer * m,
984  integer * p, integer * n, integer * k, integer * l,
985  complex * a, integer * lda, complex * b, integer * ldb,
986  real * tola, real * tolb, real * alpha, real * beta,
987  complex * u, integer * ldu, complex * v, integer * ldv,
988  complex * q, integer * ldq, complex * work,
989  integer * ncycle, integer * info, ftnlen jobu_len,
990  ftnlen jobv_len, ftnlen jobq_len);
991 extern int ctgsna_(char *job, char *howmny, logical * select, integer * n,
992  complex * a, integer * lda, complex * b, integer * ldb,
993  complex * vl, integer * ldvl, complex * vr, integer * ldvr,
994  real * s, real * dif, integer * mm, integer * m,
995  complex * work, integer * lwork, integer * iwork,
996  integer * info, ftnlen job_len, ftnlen howmny_len);
997 extern int ctgsy2_(char *trans, integer * ijob, integer * m, integer * n,
998  complex * a, integer * lda, complex * b, integer * ldb,
999  complex * c__, integer * ldc, complex * d__, integer * ldd,
1000  complex * e, integer * lde, complex * f, integer * ldf,
1001  real * scale, real * rdsum, real * rdscal, integer * info,
1002  ftnlen trans_len);
1003 extern int ctgsyl_(char *trans, integer * ijob, integer * m, integer * n,
1004  complex * a, integer * lda, complex * b, integer * ldb,
1005  complex * c__, integer * ldc, complex * d__, integer * ldd,
1006  complex * e, integer * lde, complex * f, integer * ldf,
1007  real * scale, real * dif, complex * work, integer * lwork,
1008  integer * iwork, integer * info, ftnlen trans_len);
1009 extern int ctpcon_(char *norm, char *uplo, char *diag, integer * n,
1010  complex * ap, real * rcond, complex * work, real * rwork,
1011  integer * info, ftnlen norm_len, ftnlen uplo_len,
1012  ftnlen diag_len);
1013 extern int ctprfs_(char *uplo, char *trans, char *diag, integer * n,
1014  integer * nrhs, complex * ap, complex * b, integer * ldb,
1015  complex * x, integer * ldx, real * ferr, real * berr,
1016  complex * work, real * rwork, integer * info,
1017  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
1018 extern int ctptri_(char *uplo, char *diag, integer * n, complex * ap,
1019  integer * info, ftnlen uplo_len, ftnlen diag_len);
1020 extern int ctptrs_(char *uplo, char *trans, char *diag, integer * n,
1021  integer * nrhs, complex * ap, complex * b, integer * ldb,
1022  integer * info, ftnlen uplo_len, ftnlen trans_len,
1023  ftnlen diag_len);
1024 extern int ctrcon_(char *norm, char *uplo, char *diag, integer * n,
1025  complex * a, integer * lda, real * rcond, complex * work,
1026  real * rwork, integer * info, ftnlen norm_len,
1027  ftnlen uplo_len, ftnlen diag_len);
1028 extern int ctrevc_(char *side, char *howmny, logical * select, integer * n,
1029  complex * t, integer * ldt, complex * vl, integer * ldvl,
1030  complex * vr, integer * ldvr, integer * mm, integer * m,
1031  complex * work, real * rwork, integer * info,
1032  ftnlen side_len, ftnlen howmny_len);
1033 extern int ctrexc_(char *compq, integer * n, complex * t, integer * ldt,
1034  complex * q, integer * ldq, integer * ifst, integer * ilst,
1035  integer * info, ftnlen compq_len);
1036 extern int ctrrfs_(char *uplo, char *trans, char *diag, integer * n,
1037  integer * nrhs, complex * a, integer * lda, complex * b,
1038  integer * ldb, complex * x, integer * ldx, real * ferr,
1039  real * berr, complex * work, real * rwork, integer * info,
1040  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
1041 extern int ctrsen_(char *job, char *compq, logical * select, integer * n,
1042  complex * t, integer * ldt, complex * q, integer * ldq,
1043  complex * w, integer * m, real * s, real * sep,
1044  complex * work, integer * lwork, integer * info,
1045  ftnlen job_len, ftnlen compq_len);
1046 extern int ctrsna_(char *job, char *howmny, logical * select, integer * n,
1047  complex * t, integer * ldt, complex * vl, integer * ldvl,
1048  complex * vr, integer * ldvr, real * s, real * sep,
1049  integer * mm, integer * m, complex * work,
1050  integer * ldwork, real * rwork, integer * info,
1051  ftnlen job_len, ftnlen howmny_len);
1052 extern int ctrsyl_(char *trana, char *tranb, integer * isgn, integer * m,
1053  integer * n, complex * a, integer * lda, complex * b,
1054  integer * ldb, complex * c__, integer * ldc, real * scale,
1055  integer * info, ftnlen trana_len, ftnlen tranb_len);
1056 extern int ctrti2_(char *uplo, char *diag, integer * n, complex * a,
1057  integer * lda, integer * info, ftnlen uplo_len,
1058  ftnlen diag_len);
1059 extern int ctrtri_(char *uplo, char *diag, integer * n, complex * a,
1060  integer * lda, integer * info, ftnlen uplo_len,
1061  ftnlen diag_len);
1062 extern int ctrtrs_(char *uplo, char *trans, char *diag, integer * n,
1063  integer * nrhs, complex * a, integer * lda, complex * b,
1064  integer * ldb, integer * info, ftnlen uplo_len,
1065  ftnlen trans_len, ftnlen diag_len);
1066 extern int ctzrqf_(integer * m, integer * n, complex * a, integer * lda,
1067  complex * tau, integer * info);
1068 extern int ctzrzf_(integer * m, integer * n, complex * a, integer * lda,
1069  complex * tau, complex * work, integer * lwork,
1070  integer * info);
1071 extern int cung2l_(integer * m, integer * n, integer * k, complex * a,
1072  integer * lda, complex * tau, complex * work,
1073  integer * info);
1074 extern int cung2r_(integer * m, integer * n, integer * k, complex * a,
1075  integer * lda, complex * tau, complex * work,
1076  integer * info);
1077 extern int cungbr_(char *vect, integer * m, integer * n, integer * k,
1078  complex * a, integer * lda, complex * tau, complex * work,
1079  integer * lwork, integer * info, ftnlen vect_len);
1080 extern int cunghr_(integer * n, integer * ilo, integer * ihi, complex * a,
1081  integer * lda, complex * tau, complex * work,
1082  integer * lwork, integer * info);
1083 extern int cungl2_(integer * m, integer * n, integer * k, complex * a,
1084  integer * lda, complex * tau, complex * work,
1085  integer * info);
1086 extern int cunglq_(integer * m, integer * n, integer * k, complex * a,
1087  integer * lda, complex * tau, complex * work,
1088  integer * lwork, integer * info);
1089 extern int cungql_(integer * m, integer * n, integer * k, complex * a,
1090  integer * lda, complex * tau, complex * work,
1091  integer * lwork, integer * info);
1092 extern int cungqr_(integer * m, integer * n, integer * k, complex * a,
1093  integer * lda, complex * tau, complex * work,
1094  integer * lwork, integer * info);
1095 extern int cungr2_(integer * m, integer * n, integer * k, complex * a,
1096  integer * lda, complex * tau, complex * work,
1097  integer * info);
1098 extern int cungrq_(integer * m, integer * n, integer * k, complex * a,
1099  integer * lda, complex * tau, complex * work,
1100  integer * lwork, integer * info);
1101 extern int cungtr_(char *uplo, integer * n, complex * a, integer * lda,
1102  complex * tau, complex * work, integer * lwork,
1103  integer * info, ftnlen uplo_len);
1104 extern int cunm2l_(char *side, char *trans, integer * m, integer * n,
1105  integer * k, complex * a, integer * lda, complex * tau,
1106  complex * c__, integer * ldc, complex * work,
1107  integer * info, ftnlen side_len, ftnlen trans_len);
1108 extern int cunm2r_(char *side, char *trans, integer * m, integer * n,
1109  integer * k, complex * a, integer * lda, complex * tau,
1110  complex * c__, integer * ldc, complex * work,
1111  integer * info, ftnlen side_len, ftnlen trans_len);
1112 extern int cunmbr_(char *vect, char *side, char *trans, integer * m,
1113  integer * n, integer * k, complex * a, integer * lda,
1114  complex * tau, complex * c__, integer * ldc,
1115  complex * work, integer * lwork, integer * info,
1116  ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
1117 extern int cunmhr_(char *side, char *trans, integer * m, integer * n,
1118  integer * ilo, integer * ihi, complex * a, integer * lda,
1119  complex * tau, complex * c__, integer * ldc,
1120  complex * work, integer * lwork, integer * info,
1121  ftnlen side_len, ftnlen trans_len);
1122 extern int cunml2_(char *side, char *trans, integer * m, integer * n,
1123  integer * k, complex * a, integer * lda, complex * tau,
1124  complex * c__, integer * ldc, complex * work,
1125  integer * info, ftnlen side_len, ftnlen trans_len);
1126 extern int cunmlq_(char *side, char *trans, integer * m, integer * n,
1127  integer * k, complex * a, integer * lda, complex * tau,
1128  complex * c__, integer * ldc, complex * work,
1129  integer * lwork, integer * info, ftnlen side_len,
1130  ftnlen trans_len);
1131 extern int cunmql_(char *side, char *trans, integer * m, integer * n,
1132  integer * k, complex * a, integer * lda, complex * tau,
1133  complex * c__, integer * ldc, complex * work,
1134  integer * lwork, integer * info, ftnlen side_len,
1135  ftnlen trans_len);
1136 extern int cunmqr_(char *side, char *trans, integer * m, integer * n,
1137  integer * k, complex * a, integer * lda, complex * tau,
1138  complex * c__, integer * ldc, complex * work,
1139  integer * lwork, integer * info, ftnlen side_len,
1140  ftnlen trans_len);
1141 extern int cunmr2_(char *side, char *trans, integer * m, integer * n,
1142  integer * k, complex * a, integer * lda, complex * tau,
1143  complex * c__, integer * ldc, complex * work,
1144  integer * info, ftnlen side_len, ftnlen trans_len);
1145 extern int cunmr3_(char *side, char *trans, integer * m, integer * n,
1146  integer * k, integer * l, complex * a, integer * lda,
1147  complex * tau, complex * c__, integer * ldc,
1148  complex * work, integer * info, ftnlen side_len,
1149  ftnlen trans_len);
1150 extern int cunmrq_(char *side, char *trans, integer * m, integer * n,
1151  integer * k, complex * a, integer * lda, complex * tau,
1152  complex * c__, integer * ldc, complex * work,
1153  integer * lwork, integer * info, ftnlen side_len,
1154  ftnlen trans_len);
1155 extern int cunmrz_(char *side, char *trans, integer * m, integer * n,
1156  integer * k, integer * l, complex * a, integer * lda,
1157  complex * tau, complex * c__, integer * ldc,
1158  complex * work, integer * lwork, integer * info,
1159  ftnlen side_len, ftnlen trans_len);
1160 extern int cunmtr_(char *side, char *uplo, char *trans, integer * m,
1161  integer * n, complex * a, integer * lda, complex * tau,
1162  complex * c__, integer * ldc, complex * work,
1163  integer * lwork, integer * info, ftnlen side_len,
1164  ftnlen uplo_len, ftnlen trans_len);
1165 extern int cupgtr_(char *uplo, integer * n, complex * ap, complex * tau,
1166  complex * q, integer * ldq, complex * work, integer * info,
1167  ftnlen uplo_len);
1168 extern int cupmtr_(char *side, char *uplo, char *trans, integer * m,
1169  integer * n, complex * ap, complex * tau, complex * c__,
1170  integer * ldc, complex * work, integer * info,
1171  ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
1172 extern int dbdsdc_(char *uplo, char *compq, integer * n, doublereal * d__,
1173  doublereal * e, doublereal * u, integer * ldu,
1174  doublereal * vt, integer * ldvt, doublereal * q,
1175  integer * iq, doublereal * work, integer * iwork,
1176  integer * info, ftnlen uplo_len, ftnlen compq_len);
1177 extern int dbdsqr_(char *uplo, integer * n, integer * ncvt, integer * nru,
1178  integer * ncc, doublereal * d__, doublereal * e,
1179  doublereal * vt, integer * ldvt, doublereal * u,
1180  integer * ldu, doublereal * c__, integer * ldc,
1181  doublereal * work, integer * info, ftnlen uplo_len);
1182 extern int ddisna_(char *job, integer * m, integer * n, doublereal * d__,
1183  doublereal * sep, integer * info, ftnlen job_len);
1184 extern int dgbbrd_(char *vect, integer * m, integer * n, integer * ncc,
1185  integer * kl, integer * ku, doublereal * ab,
1186  integer * ldab, doublereal * d__, doublereal * e,
1187  doublereal * q, integer * ldq, doublereal * pt,
1188  integer * ldpt, doublereal * c__, integer * ldc,
1189  doublereal * work, integer * info, ftnlen vect_len);
1190 extern int dgbcon_(char *norm, integer * n, integer * kl, integer * ku,
1191  doublereal * ab, integer * ldab, integer * ipiv,
1192  doublereal * anorm, doublereal * rcond, doublereal * work,
1193  integer * iwork, integer * info, ftnlen norm_len);
1194 extern int dgbequ_(integer * m, integer * n, integer * kl, integer * ku,
1195  doublereal * ab, integer * ldab, doublereal * r__,
1196  doublereal * c__, doublereal * rowcnd, doublereal * colcnd,
1197  doublereal * amax, integer * info);
1198 extern int dgbrfs_(char *trans, integer * n, integer * kl, integer * ku,
1199  integer * nrhs, doublereal * ab, integer * ldab,
1200  doublereal * afb, integer * ldafb, integer * ipiv,
1201  doublereal * b, integer * ldb, doublereal * x,
1202  integer * ldx, doublereal * ferr, doublereal * berr,
1203  doublereal * work, integer * iwork, integer * info,
1204  ftnlen trans_len);
1205 extern int dgbsv_(integer * n, integer * kl, integer * ku, integer * nrhs,
1206  doublereal * ab, integer * ldab, integer * ipiv,
1207  doublereal * b, integer * ldb, integer * info);
1208 extern int dgbsvx_(char *fact, char *trans, integer * n, integer * kl,
1209  integer * ku, integer * nrhs, doublereal * ab,
1210  integer * ldab, doublereal * afb, integer * ldafb,
1211  integer * ipiv, char *equed, doublereal * r__,
1212  doublereal * c__, doublereal * b, integer * ldb,
1213  doublereal * x, integer * ldx, doublereal * rcond,
1214  doublereal * ferr, doublereal * berr, doublereal * work,
1215  integer * iwork, integer * info, ftnlen fact_len,
1216  ftnlen trans_len, ftnlen equed_len);
1217 extern int dgbtf2_(integer * m, integer * n, integer * kl, integer * ku,
1218  doublereal * ab, integer * ldab, integer * ipiv,
1219  integer * info);
1220 extern int dgbtrf_(integer * m, integer * n, integer * kl, integer * ku,
1221  doublereal * ab, integer * ldab, integer * ipiv,
1222  integer * info);
1223 extern int dgbtrs_(char *trans, integer * n, integer * kl, integer * ku,
1224  integer * nrhs, doublereal * ab, integer * ldab,
1225  integer * ipiv, doublereal * b, integer * ldb,
1226  integer * info, ftnlen trans_len);
1227 extern int dgebak_(char *job, char *side, integer * n, integer * ilo,
1228  integer * ihi, doublereal * scale, integer * m,
1229  doublereal * v, integer * ldv, integer * info,
1230  ftnlen job_len, ftnlen side_len);
1231 extern int dgebal_(char *job, integer * n, doublereal * a, integer * lda,
1232  integer * ilo, integer * ihi, doublereal * scale,
1233  integer * info, ftnlen job_len);
1234 extern int dgebd2_(integer * m, integer * n, doublereal * a, integer * lda,
1235  doublereal * d__, doublereal * e, doublereal * tauq,
1236  doublereal * taup, doublereal * work, integer * info);
1237 extern int dgebrd_(integer * m, integer * n, doublereal * a, integer * lda,
1238  doublereal * d__, doublereal * e, doublereal * tauq,
1239  doublereal * taup, doublereal * work, integer * lwork,
1240  integer * info);
1241 extern int dgecon_(char *norm, integer * n, doublereal * a, integer * lda,
1242  doublereal * anorm, doublereal * rcond, doublereal * work,
1243  integer * iwork, integer * info, ftnlen norm_len);
1244 extern int dgeequ_(integer * m, integer * n, doublereal * a, integer * lda,
1245  doublereal * r__, doublereal * c__, doublereal * rowcnd,
1246  doublereal * colcnd, doublereal * amax, integer * info);
1247 extern int dgees_(char *jobvs, char *sort, L_fp select, integer * n,
1248  doublereal * a, integer * lda, integer * sdim,
1249  doublereal * wr, doublereal * wi, doublereal * vs,
1250  integer * ldvs, doublereal * work, integer * lwork,
1251  logical * bwork, integer * info, ftnlen jobvs_len,
1252  ftnlen sort_len);
1253 extern int dgeesx_(char *jobvs, char *sort, L_fp select, char *sense,
1254  integer * n, doublereal * a, integer * lda, integer * sdim,
1255  doublereal * wr, doublereal * wi, doublereal * vs,
1256  integer * ldvs, doublereal * rconde, doublereal * rcondv,
1257  doublereal * work, integer * lwork, integer * iwork,
1258  integer * liwork, logical * bwork, integer * info,
1259  ftnlen jobvs_len, ftnlen sort_len, ftnlen sense_len);
1260 extern int dgeev_(char *jobvl, char *jobvr, integer * n, doublereal * a,
1261  integer * lda, doublereal * wr, doublereal * wi,
1262  doublereal * vl, integer * ldvl, doublereal * vr,
1263  integer * ldvr, doublereal * work, integer * lwork,
1264  integer * info, ftnlen jobvl_len, ftnlen jobvr_len);
1265 extern int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
1266  integer * n, doublereal * a, integer * lda,
1267  doublereal * wr, doublereal * wi, doublereal * vl,
1268  integer * ldvl, doublereal * vr, integer * ldvr,
1269  integer * ilo, integer * ihi, doublereal * scale,
1270  doublereal * abnrm, doublereal * rconde,
1271  doublereal * rcondv, doublereal * work, integer * lwork,
1272  integer * iwork, integer * info, ftnlen balanc_len,
1273  ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
1274 extern int dgegs_(char *jobvsl, char *jobvsr, integer * n, doublereal * a,
1275  integer * lda, doublereal * b, integer * ldb,
1276  doublereal * alphar, doublereal * alphai, doublereal * beta,
1277  doublereal * vsl, integer * ldvsl, doublereal * vsr,
1278  integer * ldvsr, doublereal * work, integer * lwork,
1279  integer * info, ftnlen jobvsl_len, ftnlen jobvsr_len);
1280 extern int dgegv_(char *jobvl, char *jobvr, integer * n, doublereal * a,
1281  integer * lda, doublereal * b, integer * ldb,
1282  doublereal * alphar, doublereal * alphai, doublereal * beta,
1283  doublereal * vl, integer * ldvl, doublereal * vr,
1284  integer * ldvr, doublereal * work, integer * lwork,
1285  integer * info, ftnlen jobvl_len, ftnlen jobvr_len);
1286 extern int dgehd2_(integer * n, integer * ilo, integer * ihi, doublereal * a,
1287  integer * lda, doublereal * tau, doublereal * work,
1288  integer * info);
1289 extern int dgehrd_(integer * n, integer * ilo, integer * ihi, doublereal * a,
1290  integer * lda, doublereal * tau, doublereal * work,
1291  integer * lwork, integer * info);
1292 extern int dgelq2_(integer * m, integer * n, doublereal * a, integer * lda,
1293  doublereal * tau, doublereal * work, integer * info);
1294 extern int dgelqf_(integer * m, integer * n, doublereal * a, integer * lda,
1295  doublereal * tau, doublereal * work, integer * lwork,
1296  integer * info);
1297 extern int dgels_(char *trans, integer * m, integer * n, integer * nrhs,
1298  doublereal * a, integer * lda, doublereal * b,
1299  integer * ldb, doublereal * work, integer * lwork,
1300  integer * info, ftnlen trans_len);
1301 extern int dgelsd_(integer * m, integer * n, integer * nrhs, doublereal * a,
1302  integer * lda, doublereal * b, integer * ldb,
1303  doublereal * s, doublereal * rcond, integer * rank,
1304  doublereal * work, integer * lwork, integer * iwork,
1305  integer * info);
1306 extern int dgelss_(integer * m, integer * n, integer * nrhs, doublereal * a,
1307  integer * lda, doublereal * b, integer * ldb,
1308  doublereal * s, doublereal * rcond, integer * rank,
1309  doublereal * work, integer * lwork, integer * info);
1310 extern int dgelsx_(integer * m, integer * n, integer * nrhs, doublereal * a,
1311  integer * lda, doublereal * b, integer * ldb,
1312  integer * jpvt, doublereal * rcond, integer * rank,
1313  doublereal * work, integer * info);
1314 extern int dgelsy_(integer * m, integer * n, integer * nrhs, doublereal * a,
1315  integer * lda, doublereal * b, integer * ldb,
1316  integer * jpvt, doublereal * rcond, integer * rank,
1317  doublereal * work, integer * lwork, integer * info);
1318 extern int dgeql2_(integer * m, integer * n, doublereal * a, integer * lda,
1319  doublereal * tau, doublereal * work, integer * info);
1320 extern int dgeqlf_(integer * m, integer * n, doublereal * a, integer * lda,
1321  doublereal * tau, doublereal * work, integer * lwork,
1322  integer * info);
1323 extern int dgeqp3_(integer * m, integer * n, doublereal * a, integer * lda,
1324  integer * jpvt, doublereal * tau, doublereal * work,
1325  integer * lwork, integer * info);
1326 extern int dgeqpf_(integer * m, integer * n, doublereal * a, integer * lda,
1327  integer * jpvt, doublereal * tau, doublereal * work,
1328  integer * info);
1329 extern int dgeqr2_(integer * m, integer * n, doublereal * a, integer * lda,
1330  doublereal * tau, doublereal * work, integer * info);
1331 extern int dgeqrf_(integer * m, integer * n, doublereal * a, integer * lda,
1332  doublereal * tau, doublereal * work, integer * lwork,
1333  integer * info);
1334 extern int dgerfs_(char *trans, integer * n, integer * nrhs, doublereal * a,
1335  integer * lda, doublereal * af, integer * ldaf,
1336  integer * ipiv, doublereal * b, integer * ldb,
1337  doublereal * x, integer * ldx, doublereal * ferr,
1338  doublereal * berr, doublereal * work, integer * iwork,
1339  integer * info, ftnlen trans_len);
1340 extern int dgerq2_(integer * m, integer * n, doublereal * a, integer * lda,
1341  doublereal * tau, doublereal * work, integer * info);
1342 extern int dgerqf_(integer * m, integer * n, doublereal * a, integer * lda,
1343  doublereal * tau, doublereal * work, integer * lwork,
1344  integer * info);
1345 extern int dgesc2_(integer * n, doublereal * a, integer * lda,
1346  doublereal * rhs, integer * ipiv, integer * jpiv,
1347  doublereal * scale);
1348 extern int dgesdd_(char *jobz, integer * m, integer * n, doublereal * a,
1349  integer * lda, doublereal * s, doublereal * u,
1350  integer * ldu, doublereal * vt, integer * ldvt,
1351  doublereal * work, integer * lwork, integer * iwork,
1352  integer * info, ftnlen jobz_len);
1353 extern int dgesv_(integer * n, integer * nrhs, doublereal * a, integer * lda,
1354  integer * ipiv, doublereal * b, integer * ldb,
1355  integer * info);
1356 extern int dgesvd_(char *jobu, char *jobvt, integer * m, integer * n,
1357  doublereal * a, integer * lda, doublereal * s,
1358  doublereal * u, integer * ldu, doublereal * vt,
1359  integer * ldvt, doublereal * work, integer * lwork,
1360  integer * info, ftnlen jobu_len, ftnlen jobvt_len);
1361 extern int dgesvx_(char *fact, char *trans, integer * n, integer * nrhs,
1362  doublereal * a, integer * lda, doublereal * af,
1363  integer * ldaf, integer * ipiv, char *equed,
1364  doublereal * r__, doublereal * c__, doublereal * b,
1365  integer * ldb, doublereal * x, integer * ldx,
1366  doublereal * rcond, doublereal * ferr, doublereal * berr,
1367  doublereal * work, integer * iwork, integer * info,
1368  ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
1369 extern int dgetc2_(integer * n, doublereal * a, integer * lda, integer * ipiv,
1370  integer * jpiv, integer * info);
1371 extern int dgetf2_(integer * m, integer * n, doublereal * a, integer * lda,
1372  integer * ipiv, integer * info);
1373 extern int dgetrf_(integer * m, integer * n, doublereal * a, integer * lda,
1374  integer * ipiv, integer * info);
1375 extern int dgetri_(integer * n, doublereal * a, integer * lda, integer * ipiv,
1376  doublereal * work, integer * lwork, integer * info);
1377 extern int dgetrs_(char *trans, integer * n, integer * nrhs, doublereal * a,
1378  integer * lda, integer * ipiv, doublereal * b,
1379  integer * ldb, integer * info, ftnlen trans_len);
1380 extern int dggbak_(char *job, char *side, integer * n, integer * ilo,
1381  integer * ihi, doublereal * lscale, doublereal * rscale,
1382  integer * m, doublereal * v, integer * ldv, integer * info,
1383  ftnlen job_len, ftnlen side_len);
1384 extern int dggbal_(char *job, integer * n, doublereal * a, integer * lda,
1385  doublereal * b, integer * ldb, integer * ilo,
1386  integer * ihi, doublereal * lscale, doublereal * rscale,
1387  doublereal * work, integer * info, ftnlen job_len);
1388 extern int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg,
1389  integer * n, doublereal * a, integer * lda, doublereal * b,
1390  integer * ldb, integer * sdim, doublereal * alphar,
1391  doublereal * alphai, doublereal * beta, doublereal * vsl,
1392  integer * ldvsl, doublereal * vsr, integer * ldvsr,
1393  doublereal * work, integer * lwork, logical * bwork,
1394  integer * info, ftnlen jobvsl_len, ftnlen jobvsr_len,
1395  ftnlen sort_len);
1396 extern int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg,
1397  char *sense, integer * n, doublereal * a, integer * lda,
1398  doublereal * b, integer * ldb, integer * sdim,
1399  doublereal * alphar, doublereal * alphai,
1400  doublereal * beta, doublereal * vsl, integer * ldvsl,
1401  doublereal * vsr, integer * ldvsr, doublereal * rconde,
1402  doublereal * rcondv, doublereal * work, integer * lwork,
1403  integer * iwork, integer * liwork, logical * bwork,
1404  integer * info, ftnlen jobvsl_len, ftnlen jobvsr_len,
1405  ftnlen sort_len, ftnlen sense_len);
1406 extern int dggev_(char *jobvl, char *jobvr, integer * n, doublereal * a,
1407  integer * lda, doublereal * b, integer * ldb,
1408  doublereal * alphar, doublereal * alphai, doublereal * beta,
1409  doublereal * vl, integer * ldvl, doublereal * vr,
1410  integer * ldvr, doublereal * work, integer * lwork,
1411  integer * info, ftnlen jobvl_len, ftnlen jobvr_len);
1412 extern int dggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
1413  integer * n, doublereal * a, integer * lda, doublereal * b,
1414  integer * ldb, doublereal * alphar, doublereal * alphai,
1415  doublereal * beta, doublereal * vl, integer * ldvl,
1416  doublereal * vr, integer * ldvr, integer * ilo,
1417  integer * ihi, doublereal * lscale, doublereal * rscale,
1418  doublereal * abnrm, doublereal * bbnrm,
1419  doublereal * rconde, doublereal * rcondv,
1420  doublereal * work, integer * lwork, integer * iwork,
1421  logical * bwork, integer * info, ftnlen balanc_len,
1422  ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
1423 extern int dggglm_(integer * n, integer * m, integer * p, doublereal * a,
1424  integer * lda, doublereal * b, integer * ldb,
1425  doublereal * d__, doublereal * x, doublereal * y,
1426  doublereal * work, integer * lwork, integer * info);
1427 extern int dgghrd_(char *compq, char *compz, integer * n, integer * ilo,
1428  integer * ihi, doublereal * a, integer * lda,
1429  doublereal * b, integer * ldb, doublereal * q,
1430  integer * ldq, doublereal * z__, integer * ldz,
1431  integer * info, ftnlen compq_len, ftnlen compz_len);
1432 extern int dgglse_(integer * m, integer * n, integer * p, doublereal * a,
1433  integer * lda, doublereal * b, integer * ldb,
1434  doublereal * c__, doublereal * d__, doublereal * x,
1435  doublereal * work, integer * lwork, integer * info);
1436 extern int dggqrf_(integer * n, integer * m, integer * p, doublereal * a,
1437  integer * lda, doublereal * taua, doublereal * b,
1438  integer * ldb, doublereal * taub, doublereal * work,
1439  integer * lwork, integer * info);
1440 extern int dggrqf_(integer * m, integer * p, integer * n, doublereal * a,
1441  integer * lda, doublereal * taua, doublereal * b,
1442  integer * ldb, doublereal * taub, doublereal * work,
1443  integer * lwork, integer * info);
1444 extern int dggsvd_(char *jobu, char *jobv, char *jobq, integer * m,
1445  integer * n, integer * p, integer * k, integer * l,
1446  doublereal * a, integer * lda, doublereal * b,
1447  integer * ldb, doublereal * alpha, doublereal * beta,
1448  doublereal * u, integer * ldu, doublereal * v,
1449  integer * ldv, doublereal * q, integer * ldq,
1450  doublereal * work, integer * iwork, integer * info,
1451  ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
1452 extern int dggsvp_(char *jobu, char *jobv, char *jobq, integer * m,
1453  integer * p, integer * n, doublereal * a, integer * lda,
1454  doublereal * b, integer * ldb, doublereal * tola,
1455  doublereal * tolb, integer * k, integer * l,
1456  doublereal * u, integer * ldu, doublereal * v,
1457  integer * ldv, doublereal * q, integer * ldq,
1458  integer * iwork, doublereal * tau, doublereal * work,
1459  integer * info, ftnlen jobu_len, ftnlen jobv_len,
1460  ftnlen jobq_len);
1461 extern int dgtcon_(char *norm, integer * n, doublereal * dl, doublereal * d__,
1462  doublereal * du, doublereal * du2, integer * ipiv,
1463  doublereal * anorm, doublereal * rcond, doublereal * work,
1464  integer * iwork, integer * info, ftnlen norm_len);
1465 extern int dgtrfs_(char *trans, integer * n, integer * nrhs, doublereal * dl,
1466  doublereal * d__, doublereal * du, doublereal * dlf,
1467  doublereal * df, doublereal * duf, doublereal * du2,
1468  integer * ipiv, doublereal * b, integer * ldb,
1469  doublereal * x, integer * ldx, doublereal * ferr,
1470  doublereal * berr, doublereal * work, integer * iwork,
1471  integer * info, ftnlen trans_len);
1472 extern int dgtsv_(integer * n, integer * nrhs, doublereal * dl,
1473  doublereal * d__, doublereal * du, doublereal * b,
1474  integer * ldb, integer * info);
1475 extern int dgtsvx_(char *fact, char *trans, integer * n, integer * nrhs,
1476  doublereal * dl, doublereal * d__, doublereal * du,
1477  doublereal * dlf, doublereal * df, doublereal * duf,
1478  doublereal * du2, integer * ipiv, doublereal * b,
1479  integer * ldb, doublereal * x, integer * ldx,
1480  doublereal * rcond, doublereal * ferr, doublereal * berr,
1481  doublereal * work, integer * iwork, integer * info,
1482  ftnlen fact_len, ftnlen trans_len);
1483 extern int dgttrf_(integer * n, doublereal * dl, doublereal * d__,
1484  doublereal * du, doublereal * du2, integer * ipiv,
1485  integer * info);
1486 extern int dgttrs_(char *trans, integer * n, integer * nrhs, doublereal * dl,
1487  doublereal * d__, doublereal * du, doublereal * du2,
1488  integer * ipiv, doublereal * b, integer * ldb,
1489  integer * info, ftnlen trans_len);
1490 extern int dgtts2_(integer * itrans, integer * n, integer * nrhs,
1491  doublereal * dl, doublereal * d__, doublereal * du,
1492  doublereal * du2, integer * ipiv, doublereal * b,
1493  integer * ldb);
1494 extern int dhgeqz_(char *job, char *compq, char *compz, integer * n,
1495  integer * ilo, integer * ihi, doublereal * a,
1496  integer * lda, doublereal * b, integer * ldb,
1497  doublereal * alphar, doublereal * alphai,
1498  doublereal * beta, doublereal * q, integer * ldq,
1499  doublereal * z__, integer * ldz, doublereal * work,
1500  integer * lwork, integer * info, ftnlen job_len,
1501  ftnlen compq_len, ftnlen compz_len);
1502 extern int dhsein_(char *side, char *eigsrc, char *initv, logical * select,
1503  integer * n, doublereal * h__, integer * ldh,
1504  doublereal * wr, doublereal * wi, doublereal * vl,
1505  integer * ldvl, doublereal * vr, integer * ldvr,
1506  integer * mm, integer * m, doublereal * work,
1507  integer * ifaill, integer * ifailr, integer * info,
1508  ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
1509 extern int dhseqr_(char *job, char *compz, integer * n, integer * ilo,
1510  integer * ihi, doublereal * h__, integer * ldh,
1511  doublereal * wr, doublereal * wi, doublereal * z__,
1512  integer * ldz, doublereal * work, integer * lwork,
1513  integer * info, ftnlen job_len, ftnlen compz_len);
1514 extern int dlabad_(doublereal * small, doublereal * large);
1515 extern int dlabrd_(integer * m, integer * n, integer * nb, doublereal * a,
1516  integer * lda, doublereal * d__, doublereal * e,
1517  doublereal * tauq, doublereal * taup, doublereal * x,
1518  integer * ldx, doublereal * y, integer * ldy);
1519 extern int dlacon_(integer * n, doublereal * v, doublereal * x,
1520  integer * isgn, doublereal * est, integer * kase);
1521 extern int dlacpy_(char *uplo, integer * m, integer * n, doublereal * a,
1522  integer * lda, doublereal * b, integer * ldb,
1523  ftnlen uplo_len);
1524 extern int dladiv_(doublereal * a, doublereal * b, doublereal * c__,
1525  doublereal * d__, doublereal * p, doublereal * q);
1526 extern int dlae2_(doublereal * a, doublereal * b, doublereal * c__,
1527  doublereal * rt1, doublereal * rt2);
1528 extern int dlaebz_(integer * ijob, integer * nitmax, integer * n,
1529  integer * mmax, integer * minp, integer * nbmin,
1530  doublereal * abstol, doublereal * reltol,
1531  doublereal * pivmin, doublereal * d__, doublereal * e,
1532  doublereal * e2, integer * nval, doublereal * ab,
1533  doublereal * c__, integer * mout, integer * nab,
1534  doublereal * work, integer * iwork, integer * info);
1535 extern int dlaed0_(integer * icompq, integer * qsiz, integer * n,
1536  doublereal * d__, doublereal * e, doublereal * q,
1537  integer * ldq, doublereal * qstore, integer * ldqs,
1538  doublereal * work, integer * iwork, integer * info);
1539 extern int dlaed1_(integer * n, doublereal * d__, doublereal * q,
1540  integer * ldq, integer * indxq, doublereal * rho,
1541  integer * cutpnt, doublereal * work, integer * iwork,
1542  integer * info);
1543 extern int dlaed2_(integer * k, integer * n, integer * n1, doublereal * d__,
1544  doublereal * q, integer * ldq, integer * indxq,
1545  doublereal * rho, doublereal * z__, doublereal * dlamda,
1546  doublereal * w, doublereal * q2, integer * indx,
1547  integer * indxc, integer * indxp, integer * coltyp,
1548  integer * info);
1549 extern int dlaed3_(integer * k, integer * n, integer * n1, doublereal * d__,
1550  doublereal * q, integer * ldq, doublereal * rho,
1551  doublereal * dlamda, doublereal * q2, integer * indx,
1552  integer * ctot, doublereal * w, doublereal * s,
1553  integer * info);
1554 extern int dlaed4_(integer * n, integer * i__, doublereal * d__,
1555  doublereal * z__, doublereal * delta, doublereal * rho,
1556  doublereal * dlam, integer * info);
1557 extern int dlaed5_(integer * i__, doublereal * d__, doublereal * z__,
1558  doublereal * delta, doublereal * rho, doublereal * dlam);
1559 extern int dlaed6_(integer * kniter, logical * orgati, doublereal * rho,
1560  doublereal * d__, doublereal * z__, doublereal * finit,
1561  doublereal * tau, integer * info);
1562 extern int dlaed7_(integer * icompq, integer * n, integer * qsiz,
1563  integer * tlvls, integer * curlvl, integer * curpbm,
1564  doublereal * d__, doublereal * q, integer * ldq,
1565  integer * indxq, doublereal * rho, integer * cutpnt,
1566  doublereal * qstore, integer * qptr, integer * prmptr,
1567  integer * perm, integer * givptr, integer * givcol,
1568  doublereal * givnum, doublereal * work, integer * iwork,
1569  integer * info);
1570 extern int dlaed8_(integer * icompq, integer * k, integer * n, integer * qsiz,
1571  doublereal * d__, doublereal * q, integer * ldq,
1572  integer * indxq, doublereal * rho, integer * cutpnt,
1573  doublereal * z__, doublereal * dlamda, doublereal * q2,
1574  integer * ldq2, doublereal * w, integer * perm,
1575  integer * givptr, integer * givcol, doublereal * givnum,
1576  integer * indxp, integer * indx, integer * info);
1577 extern int dlaed9_(integer * k, integer * kstart, integer * kstop,
1578  integer * n, doublereal * d__, doublereal * q,
1579  integer * ldq, doublereal * rho, doublereal * dlamda,
1580  doublereal * w, doublereal * s, integer * lds,
1581  integer * info);
1582 extern int dlaeda_(integer * n, integer * tlvls, integer * curlvl,
1583  integer * curpbm, integer * prmptr, integer * perm,
1584  integer * givptr, integer * givcol, doublereal * givnum,
1585  doublereal * q, integer * qptr, doublereal * z__,
1586  doublereal * ztemp, integer * info);
1587 extern int dlaein_(logical * rightv, logical * noinit, integer * n,
1588  doublereal * h__, integer * ldh, doublereal * wr,
1589  doublereal * wi, doublereal * vr, doublereal * vi,
1590  doublereal * b, integer * ldb, doublereal * work,
1591  doublereal * eps3, doublereal * smlnum,
1592  doublereal * bignum, integer * info);
1593 extern int dlaev2_(doublereal * a, doublereal * b, doublereal * c__,
1594  doublereal * rt1, doublereal * rt2, doublereal * cs1,
1595  doublereal * sn1);
1596 extern int dlaexc_(logical * wantq, integer * n, doublereal * t,
1597  integer * ldt, doublereal * q, integer * ldq, integer * j1,
1598  integer * n1, integer * n2, doublereal * work,
1599  integer * info);
1600 extern int dlag2_(doublereal * a, integer * lda, doublereal * b,
1601  integer * ldb, doublereal * safmin, doublereal * scale1,
1602  doublereal * scale2, doublereal * wr1, doublereal * wr2,
1603  doublereal * wi);
1604 extern int dlags2_(logical * upper, doublereal * a1, doublereal * a2,
1605  doublereal * a3, doublereal * b1, doublereal * b2,
1606  doublereal * b3, doublereal * csu, doublereal * snu,
1607  doublereal * csv, doublereal * snv, doublereal * csq,
1608  doublereal * snq);
1609 extern int dlagtf_(integer * n, doublereal * a, doublereal * lambda,
1610  doublereal * b, doublereal * c__, doublereal * tol,
1611  doublereal * d__, integer * in, integer * info);
1612 extern int dlagtm_(char *trans, integer * n, integer * nrhs,
1613  doublereal * alpha, doublereal * dl, doublereal * d__,
1614  doublereal * du, doublereal * x, integer * ldx,
1615  doublereal * beta, doublereal * b, integer * ldb,
1616  ftnlen trans_len);
1617 extern int dlagts_(integer * job, integer * n, doublereal * a, doublereal * b,
1618  doublereal * c__, doublereal * d__, integer * in,
1619  doublereal * y, doublereal * tol, integer * info);
1620 extern int dlagv2_(doublereal * a, integer * lda, doublereal * b,
1621  integer * ldb, doublereal * alphar, doublereal * alphai,
1622  doublereal * beta, doublereal * csl, doublereal * snl,
1623  doublereal * csr, doublereal * snr);
1624 extern int dlahqr_(logical * wantt, logical * wantz, integer * n,
1625  integer * ilo, integer * ihi, doublereal * h__,
1626  integer * ldh, doublereal * wr, doublereal * wi,
1627  integer * iloz, integer * ihiz, doublereal * z__,
1628  integer * ldz, integer * info);
1629 extern int dlahrd_(integer * n, integer * k, integer * nb, doublereal * a,
1630  integer * lda, doublereal * tau, doublereal * t,
1631  integer * ldt, doublereal * y, integer * ldy);
1632 extern int dlaic1_(integer * job, integer * j, doublereal * x,
1633  doublereal * sest, doublereal * w, doublereal * gamma,
1634  doublereal * sestpr, doublereal * s, doublereal * c__);
1635 extern int dlaln2_(logical * ltrans, integer * na, integer * nw,
1636  doublereal * smin, doublereal * ca, doublereal * a,
1637  integer * lda, doublereal * d1, doublereal * d2,
1638  doublereal * b, integer * ldb, doublereal * wr,
1639  doublereal * wi, doublereal * x, integer * ldx,
1640  doublereal * scale, doublereal * xnorm, integer * info);
1641 extern int dlals0_(integer * icompq, integer * nl, integer * nr,
1642  integer * sqre, integer * nrhs, doublereal * b,
1643  integer * ldb, doublereal * bx, integer * ldbx,
1644  integer * perm, integer * givptr, integer * givcol,
1645  integer * ldgcol, doublereal * givnum, integer * ldgnum,
1646  doublereal * poles, doublereal * difl, doublereal * difr,
1647  doublereal * z__, integer * k, doublereal * c__,
1648  doublereal * s, doublereal * work, integer * info);
1649 extern int dlalsa_(integer * icompq, integer * smlsiz, integer * n,
1650  integer * nrhs, doublereal * b, integer * ldb,
1651  doublereal * bx, integer * ldbx, doublereal * u,
1652  integer * ldu, doublereal * vt, integer * k,
1653  doublereal * difl, doublereal * difr, doublereal * z__,
1654  doublereal * poles, integer * givptr, integer * givcol,
1655  integer * ldgcol, integer * perm, doublereal * givnum,
1656  doublereal * c__, doublereal * s, doublereal * work,
1657  integer * iwork, integer * info);
1658 extern int dlalsd_(char *uplo, integer * smlsiz, integer * n, integer * nrhs,
1659  doublereal * d__, doublereal * e, doublereal * b,
1660  integer * ldb, doublereal * rcond, integer * rank,
1661  doublereal * work, integer * iwork, integer * info,
1662  ftnlen uplo_len);
1663 extern doublereal dlamch_(char *cmach, ftnlen cmach_len);
1664 extern int dlamc1_(integer * beta, integer * t, logical * rnd,
1665  logical * ieee1);
1666 extern int dlamc2_(integer * beta, integer * t, logical * rnd,
1667  doublereal * eps, integer * emin, doublereal * rmin,
1668  integer * emax, doublereal * rmax);
1669 extern doublereal dlamc3_(doublereal * a, doublereal * b);
1670 extern int dlamc4_(integer * emin, doublereal * start, integer * base);
1671 extern int dlamc5_(integer * beta, integer * p, integer * emin,
1672  logical * ieee, integer * emax, doublereal * rmax);
1673 extern int dlamrg_(integer * n1, integer * n2, doublereal * a,
1674  integer * dtrd1, integer * dtrd2, integer * index);
1675 extern doublereal dlangb_(char *norm, integer * n, integer * kl, integer * ku,
1676  doublereal * ab, integer * ldab, doublereal * work,
1677  ftnlen norm_len);
1678 extern doublereal dlange_(char *norm, integer * m, integer * n,
1679  doublereal * a, integer * lda, doublereal * work,
1680  ftnlen norm_len);
1681 extern doublereal dlangt_(char *norm, integer * n, doublereal * dl,
1682  doublereal * d__, doublereal * du, ftnlen norm_len);
1683 extern doublereal dlanhs_(char *norm, integer * n, doublereal * a,
1684  integer * lda, doublereal * work, ftnlen norm_len);
1685 extern doublereal dlansb_(char *norm, char *uplo, integer * n, integer * k,
1686  doublereal * ab, integer * ldab, doublereal * work,
1687  ftnlen norm_len, ftnlen uplo_len);
1688 extern doublereal dlansp_(char *norm, char *uplo, integer * n,
1689  doublereal * ap, doublereal * work, ftnlen norm_len,
1690  ftnlen uplo_len);
1691 extern doublereal dlanst_(char *norm, integer * n, doublereal * d__,
1692  doublereal * e, ftnlen norm_len);
1693 extern doublereal dlansy_(char *norm, char *uplo, integer * n, doublereal * a,
1694  integer * lda, doublereal * work, ftnlen norm_len,
1695  ftnlen uplo_len);
1696 extern doublereal dlantb_(char *norm, char *uplo, char *diag, integer * n,
1697  integer * k, doublereal * ab, integer * ldab,
1698  doublereal * work, ftnlen norm_len, ftnlen uplo_len,
1699  ftnlen diag_len);
1700 extern doublereal dlantp_(char *norm, char *uplo, char *diag, integer * n,
1701  doublereal * ap, doublereal * work, ftnlen norm_len,
1702  ftnlen uplo_len, ftnlen diag_len);
1703 extern doublereal dlantr_(char *norm, char *uplo, char *diag, integer * m,
1704  integer * n, doublereal * a, integer * lda,
1705  doublereal * work, ftnlen norm_len, ftnlen uplo_len,
1706  ftnlen diag_len);
1707 extern int dlanv2_(doublereal * a, doublereal * b, doublereal * c__,
1708  doublereal * d__, doublereal * rt1r, doublereal * rt1i,
1709  doublereal * rt2r, doublereal * rt2i, doublereal * cs,
1710  doublereal * sn);
1711 extern int dlapll_(integer * n, doublereal * x, integer * incx,
1712  doublereal * y, integer * incy, doublereal * ssmin);
1713 extern int dlapmt_(logical * forwrd, integer * m, integer * n, doublereal * x,
1714  integer * ldx, integer * k);
1715 extern doublereal dlapy2_(doublereal * x, doublereal * y);
1716 extern doublereal dlapy3_(doublereal * x, doublereal * y, doublereal * z__);
1717 extern int dlaqgb_(integer * m, integer * n, integer * kl, integer * ku,
1718  doublereal * ab, integer * ldab, doublereal * r__,
1719  doublereal * c__, doublereal * rowcnd, doublereal * colcnd,
1720  doublereal * amax, char *equed, ftnlen equed_len);
1721 extern int dlaqge_(integer * m, integer * n, doublereal * a, integer * lda,
1722  doublereal * r__, doublereal * c__, doublereal * rowcnd,
1723  doublereal * colcnd, doublereal * amax, char *equed,
1724  ftnlen equed_len);
1725 extern int dlaqp2_(integer * m, integer * n, integer * offset, doublereal * a,
1726  integer * lda, integer * jpvt, doublereal * tau,
1727  doublereal * vn1, doublereal * vn2, doublereal * work);
1728 extern int dlaqps_(integer * m, integer * n, integer * offset, integer * nb,
1729  integer * kb, doublereal * a, integer * lda,
1730  integer * jpvt, doublereal * tau, doublereal * vn1,
1731  doublereal * vn2, doublereal * auxv, doublereal * f,
1732  integer * ldf);
1733 extern int dlaqsb_(char *uplo, integer * n, integer * kd, doublereal * ab,
1734  integer * ldab, doublereal * s, doublereal * scond,
1735  doublereal * amax, char *equed, ftnlen uplo_len,
1736  ftnlen equed_len);
1737 extern int dlaqsp_(char *uplo, integer * n, doublereal * ap, doublereal * s,
1738  doublereal * scond, doublereal * amax, char *equed,
1739  ftnlen uplo_len, ftnlen equed_len);
1740 extern int dlaqsy_(char *uplo, integer * n, doublereal * a, integer * lda,
1741  doublereal * s, doublereal * scond, doublereal * amax,
1742  char *equed, ftnlen uplo_len, ftnlen equed_len);
1743 extern int dlaqtr_(logical * ltran, logical * lreal, integer * n,
1744  doublereal * t, integer * ldt, doublereal * b,
1745  doublereal * w, doublereal * scale, doublereal * x,
1746  doublereal * work, integer * info);
1747 extern int dlar1v_(integer * n, integer * b1, integer * bn,
1748  doublereal * sigma, doublereal * d__, doublereal * l,
1749  doublereal * ld, doublereal * lld, doublereal * gersch,
1750  doublereal * z__, doublereal * ztz, doublereal * mingma,
1751  integer * r__, integer * isuppz, doublereal * work);
1752 extern int dlar2v_(integer * n, doublereal * x, doublereal * y,
1753  doublereal * z__, integer * incx, doublereal * c__,
1754  doublereal * s, integer * incc);
1755 extern int dlarf_(char *side, integer * m, integer * n, doublereal * v,
1756  integer * incv, doublereal * tau, doublereal * c__,
1757  integer * ldc, doublereal * work, ftnlen side_len);
1758 extern int dlarfb_(char *side, char *trans, char *direct, char *storev,
1759  integer * m, integer * n, integer * k, doublereal * v,
1760  integer * ldv, doublereal * t, integer * ldt,
1761  doublereal * c__, integer * ldc, doublereal * work,
1762  integer * ldwork, ftnlen side_len, ftnlen trans_len,
1763  ftnlen direct_len, ftnlen storev_len);
1764 extern int dlarfg_(integer * n, doublereal * alpha, doublereal * x,
1765  integer * incx, doublereal * tau);
1766 extern int dlarft_(char *direct, char *storev, integer * n, integer * k,
1767  doublereal * v, integer * ldv, doublereal * tau,
1768  doublereal * t, integer * ldt, ftnlen direct_len,
1769  ftnlen storev_len);
1770 extern int dlarfx_(char *side, integer * m, integer * n, doublereal * v,
1771  doublereal * tau, doublereal * c__, integer * ldc,
1772  doublereal * work, ftnlen side_len);
1773 extern int dlargv_(integer * n, doublereal * x, integer * incx,
1774  doublereal * y, integer * incy, doublereal * c__,
1775  integer * incc);
1776 extern int dlarnv_(integer * idist, integer * iseed, integer * n,
1777  doublereal * x);
1778 extern int dlarrb_(integer * n, doublereal * d__, doublereal * l,
1779  doublereal * ld, doublereal * lld, integer * ifirst,
1780  integer * ilast, doublereal * sigma, doublereal * reltol,
1781  doublereal * w, doublereal * wgap, doublereal * werr,
1782  doublereal * work, integer * iwork, integer * info);
1783 extern int dlarre_(integer * n, doublereal * d__, doublereal * e,
1784  doublereal * tol, integer * nsplit, integer * isplit,
1785  integer * m, doublereal * w, doublereal * woff,
1786  doublereal * gersch, doublereal * work, integer * info);
1787 extern int dlarrf_(integer * n, doublereal * d__, doublereal * l,
1788  doublereal * ld, doublereal * lld, integer * ifirst,
1789  integer * ilast, doublereal * w, doublereal * dplus,
1790  doublereal * lplus, doublereal * work, integer * iwork,
1791  integer * info);
1792 extern int dlarrv_(integer * n, doublereal * d__, doublereal * l,
1793  integer * isplit, integer * m, doublereal * w,
1794  integer * iblock, doublereal * gersch, doublereal * tol,
1795  doublereal * z__, integer * ldz, integer * isuppz,
1796  doublereal * work, integer * iwork, integer * info);
1797 extern int dlartg_(doublereal * f, doublereal * g, doublereal * cs,
1798  doublereal * sn, doublereal * r__);
1799 extern int dlartv_(integer * n, doublereal * x, integer * incx,
1800  doublereal * y, integer * incy, doublereal * c__,
1801  doublereal * s, integer * incc);
1802 extern int dlaruv_(integer * iseed, integer * n, doublereal * x);
1803 extern int dlarz_(char *side, integer * m, integer * n, integer * l,
1804  doublereal * v, integer * incv, doublereal * tau,
1805  doublereal * c__, integer * ldc, doublereal * work,
1806  ftnlen side_len);
1807 extern int dlarzb_(char *side, char *trans, char *direct, char *storev,
1808  integer * m, integer * n, integer * k, integer * l,
1809  doublereal * v, integer * ldv, doublereal * t,
1810  integer * ldt, doublereal * c__, integer * ldc,
1811  doublereal * work, integer * ldwork, ftnlen side_len,
1812  ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
1813 extern int dlarzt_(char *direct, char *storev, integer * n, integer * k,
1814  doublereal * v, integer * ldv, doublereal * tau,
1815  doublereal * t, integer * ldt, ftnlen direct_len,
1816  ftnlen storev_len);
1817 extern int dlas2_(doublereal * f, doublereal * g, doublereal * h__,
1818  doublereal * ssmin, doublereal * ssmax);
1819 extern int dlascl_(char *type__, integer * kl, integer * ku,
1820  doublereal * cfrom, doublereal * cto, integer * m,
1821  integer * n, doublereal * a, integer * lda, integer * info,
1822  ftnlen type_len);
1823 extern int dlasd0_(integer * n, integer * sqre, doublereal * d__,
1824  doublereal * e, doublereal * u, integer * ldu,
1825  doublereal * vt, integer * ldvt, integer * smlsiz,
1826  integer * iwork, doublereal * work, integer * info);
1827 extern int dlasd1_(integer * nl, integer * nr, integer * sqre,
1828  doublereal * d__, doublereal * alpha, doublereal * beta,
1829  doublereal * u, integer * ldu, doublereal * vt,
1830  integer * ldvt, integer * idxq, integer * iwork,
1831  doublereal * work, integer * info);
1832 extern int dlasd2_(integer * nl, integer * nr, integer * sqre, integer * k,
1833  doublereal * d__, doublereal * z__, doublereal * alpha,
1834  doublereal * beta, doublereal * u, integer * ldu,
1835  doublereal * vt, integer * ldvt, doublereal * dsigma,
1836  doublereal * u2, integer * ldu2, doublereal * vt2,
1837  integer * ldvt2, integer * idxp, integer * idx,
1838  integer * idxc, integer * idxq, integer * coltyp,
1839  integer * info);
1840 extern int dlasd3_(integer * nl, integer * nr, integer * sqre, integer * k,
1841  doublereal * d__, doublereal * q, integer * ldq,
1842  doublereal * dsigma, doublereal * u, integer * ldu,
1843  doublereal * u2, integer * ldu2, doublereal * vt,
1844  integer * ldvt, doublereal * vt2, integer * ldvt2,
1845  integer * idxc, integer * ctot, doublereal * z__,
1846  integer * info);
1847 extern int dlasd4_(integer * n, integer * i__, doublereal * d__,
1848  doublereal * z__, doublereal * delta, doublereal * rho,
1849  doublereal * sigma, doublereal * work, integer * info);
1850 extern int dlasd5_(integer * i__, doublereal * d__, doublereal * z__,
1851  doublereal * delta, doublereal * rho, doublereal * dsigma,
1852  doublereal * work);
1853 extern int dlasd6_(integer * icompq, integer * nl, integer * nr,
1854  integer * sqre, doublereal * d__, doublereal * vf,
1855  doublereal * vl, doublereal * alpha, doublereal * beta,
1856  integer * idxq, integer * perm, integer * givptr,
1857  integer * givcol, integer * ldgcol, doublereal * givnum,
1858  integer * ldgnum, doublereal * poles, doublereal * difl,
1859  doublereal * difr, doublereal * z__, integer * k,
1860  doublereal * c__, doublereal * s, doublereal * work,
1861  integer * iwork, integer * info);
1862 extern int dlasd7_(integer * icompq, integer * nl, integer * nr,
1863  integer * sqre, integer * k, doublereal * d__,
1864  doublereal * z__, doublereal * zw, doublereal * vf,
1865  doublereal * vfw, doublereal * vl, doublereal * vlw,
1866  doublereal * alpha, doublereal * beta, doublereal * dsigma,
1867  integer * idx, integer * idxp, integer * idxq,
1868  integer * perm, integer * givptr, integer * givcol,
1869  integer * ldgcol, doublereal * givnum, integer * ldgnum,
1870  doublereal * c__, doublereal * s, integer * info);
1871 extern int dlasd8_(integer * icompq, integer * k, doublereal * d__,
1872  doublereal * z__, doublereal * vf, doublereal * vl,
1873  doublereal * difl, doublereal * difr, integer * lddifr,
1874  doublereal * dsigma, doublereal * work, integer * info);
1875 extern int dlasd9_(integer * icompq, integer * ldu, integer * k,
1876  doublereal * d__, doublereal * z__, doublereal * vf,
1877  doublereal * vl, doublereal * difl, doublereal * difr,
1878  doublereal * dsigma, doublereal * work, integer * info);
1879 extern int dlasda_(integer * icompq, integer * smlsiz, integer * n,
1880  integer * sqre, doublereal * d__, doublereal * e,
1881  doublereal * u, integer * ldu, doublereal * vt,
1882  integer * k, doublereal * difl, doublereal * difr,
1883  doublereal * z__, doublereal * poles, integer * givptr,
1884  integer * givcol, integer * ldgcol, integer * perm,
1885  doublereal * givnum, doublereal * c__, doublereal * s,
1886  doublereal * work, integer * iwork, integer * info);
1887 extern int dlasdq_(char *uplo, integer * sqre, integer * n, integer * ncvt,
1888  integer * nru, integer * ncc, doublereal * d__,
1889  doublereal * e, doublereal * vt, integer * ldvt,
1890  doublereal * u, integer * ldu, doublereal * c__,
1891  integer * ldc, doublereal * work, integer * info,
1892  ftnlen uplo_len);
1893 extern int dlasdt_(integer * n, integer * lvl, integer * nd, integer * inode,
1894  integer * ndiml, integer * ndimr, integer * msub);
1895 extern int dlaset_(char *uplo, integer * m, integer * n, doublereal * alpha,
1896  doublereal * beta, doublereal * a, integer * lda,
1897  ftnlen uplo_len);
1898 extern int dlasq1_(integer * n, doublereal * d__, doublereal * e,
1899  doublereal * work, integer * info);
1900 extern int dlasq2_(integer * n, doublereal * z__, integer * info);
1901 extern int dlasq3_(integer * i0, integer * n0, doublereal * z__, integer * pp,
1902  doublereal * dmin__, doublereal * sigma,
1903  doublereal * desig, doublereal * qmax, integer * nfail,
1904  integer * iter, integer * ndiv);
1905 extern int dlasq4_(integer * i0, integer * n0, doublereal * z__, integer * pp,
1906  integer * n0in, doublereal * dmin__, doublereal * dmin1,
1907  doublereal * dmin2, doublereal * dn, doublereal * dn1,
1908  doublereal * dn2, doublereal * tau, integer * ttype);
1909 extern int dlasq5_(integer * i0, integer * n0, doublereal * z__, integer * pp,
1910  doublereal * tau, doublereal * dmin__, doublereal * dmin1,
1911  doublereal * dmin2, doublereal * dn, doublereal * dnm1,
1912  doublereal * dnm2);
1913 extern int dlasq6_(integer * i0, integer * n0, doublereal * z__, integer * pp,
1914  doublereal * dmin__, doublereal * dmin1,
1915  doublereal * dmin2, doublereal * dn, doublereal * dnm1,
1916  doublereal * dnm2);
1917 extern int dlasr_(char *side, char *pivot, char *direct, integer * m,
1918  integer * n, doublereal * c__, doublereal * s,
1919  doublereal * a, integer * lda, ftnlen side_len,
1920  ftnlen pivot_len, ftnlen direct_len);
1921 extern int dlasrt_(char *id, integer * n, doublereal * d__, integer * info,
1922  ftnlen id_len);
1923 extern int dlassq_(integer * n, doublereal * x, integer * incx,
1924  doublereal * scale, doublereal * sumsq);
1925 extern int dlasv2_(doublereal * f, doublereal * g, doublereal * h__,
1926  doublereal * ssmin, doublereal * ssmax, doublereal * snr,
1927  doublereal * csr, doublereal * snl, doublereal * csl);
1928 extern int dlaswp_(integer * n, doublereal * a, integer * lda, integer * k1,
1929  integer * k2, integer * ipiv, integer * incx);
1930 extern int dlasy2_(logical * ltranl, logical * ltranr, integer * isgn,
1931  integer * n1, integer * n2, doublereal * tl,
1932  integer * ldtl, doublereal * tr, integer * ldtr,
1933  doublereal * b, integer * ldb, doublereal * scale,
1934  doublereal * x, integer * ldx, doublereal * xnorm,
1935  integer * info);
1936 extern int dlasyf_(char *uplo, integer * n, integer * nb, integer * kb,
1937  doublereal * a, integer * lda, integer * ipiv,
1938  doublereal * w, integer * ldw, integer * info,
1939  ftnlen uplo_len);
1940 extern int dlatbs_(char *uplo, char *trans, char *diag, char *normin,
1941  integer * n, integer * kd, doublereal * ab, integer * ldab,
1942  doublereal * x, doublereal * scale, doublereal * cnorm,
1943  integer * info, ftnlen uplo_len, ftnlen trans_len,
1944  ftnlen diag_len, ftnlen normin_len);
1945 extern int dlatdf_(integer * ijob, integer * n, doublereal * z__,
1946  integer * ldz, doublereal * rhs, doublereal * rdsum,
1947  doublereal * rdscal, integer * ipiv, integer * jpiv);
1948 extern int dlatps_(char *uplo, char *trans, char *diag, char *normin,
1949  integer * n, doublereal * ap, doublereal * x,
1950  doublereal * scale, doublereal * cnorm, integer * info,
1951  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
1952  ftnlen normin_len);
1953 extern int dlatrd_(char *uplo, integer * n, integer * nb, doublereal * a,
1954  integer * lda, doublereal * e, doublereal * tau,
1955  doublereal * w, integer * ldw, ftnlen uplo_len);
1956 extern int dlatrs_(char *uplo, char *trans, char *diag, char *normin,
1957  integer * n, doublereal * a, integer * lda, doublereal * x,
1958  doublereal * scale, doublereal * cnorm, integer * info,
1959  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
1960  ftnlen normin_len);
1961 extern int dlatrz_(integer * m, integer * n, integer * l, doublereal * a,
1962  integer * lda, doublereal * tau, doublereal * work);
1963 extern int dlatzm_(char *side, integer * m, integer * n, doublereal * v,
1964  integer * incv, doublereal * tau, doublereal * c1,
1965  doublereal * c2, integer * ldc, doublereal * work,
1966  ftnlen side_len);
1967 extern int dlauu2_(char *uplo, integer * n, doublereal * a, integer * lda,
1968  integer * info, ftnlen uplo_len);
1969 extern int dlauum_(char *uplo, integer * n, doublereal * a, integer * lda,
1970  integer * info, ftnlen uplo_len);
1971 extern int dopgtr_(char *uplo, integer * n, doublereal * ap, doublereal * tau,
1972  doublereal * q, integer * ldq, doublereal * work,
1973  integer * info, ftnlen uplo_len);
1974 extern int dopmtr_(char *side, char *uplo, char *trans, integer * m,
1975  integer * n, doublereal * ap, doublereal * tau,
1976  doublereal * c__, integer * ldc, doublereal * work,
1977  integer * info, ftnlen side_len, ftnlen uplo_len,
1978  ftnlen trans_len);
1979 extern int dorg2l_(integer * m, integer * n, integer * k, doublereal * a,
1980  integer * lda, doublereal * tau, doublereal * work,
1981  integer * info);
1982 extern int dorg2r_(integer * m, integer * n, integer * k, doublereal * a,
1983  integer * lda, doublereal * tau, doublereal * work,
1984  integer * info);
1985 extern int dorgbr_(char *vect, integer * m, integer * n, integer * k,
1986  doublereal * a, integer * lda, doublereal * tau,
1987  doublereal * work, integer * lwork, integer * info,
1988  ftnlen vect_len);
1989 extern int dorghr_(integer * n, integer * ilo, integer * ihi, doublereal * a,
1990  integer * lda, doublereal * tau, doublereal * work,
1991  integer * lwork, integer * info);
1992 extern int dorgl2_(integer * m, integer * n, integer * k, doublereal * a,
1993  integer * lda, doublereal * tau, doublereal * work,
1994  integer * info);
1995 extern int dorglq_(integer * m, integer * n, integer * k, doublereal * a,
1996  integer * lda, doublereal * tau, doublereal * work,
1997  integer * lwork, integer * info);
1998 extern int dorgql_(integer * m, integer * n, integer * k, doublereal * a,
1999  integer * lda, doublereal * tau, doublereal * work,
2000  integer * lwork, integer * info);
2001 extern int dorgqr_(integer * m, integer * n, integer * k, doublereal * a,
2002  integer * lda, doublereal * tau, doublereal * work,
2003  integer * lwork, integer * info);
2004 extern int dorgr2_(integer * m, integer * n, integer * k, doublereal * a,
2005  integer * lda, doublereal * tau, doublereal * work,
2006  integer * info);
2007 extern int dorgrq_(integer * m, integer * n, integer * k, doublereal * a,
2008  integer * lda, doublereal * tau, doublereal * work,
2009  integer * lwork, integer * info);
2010 extern int dorgtr_(char *uplo, integer * n, doublereal * a, integer * lda,
2011  doublereal * tau, doublereal * work, integer * lwork,
2012  integer * info, ftnlen uplo_len);
2013 extern int dorm2l_(char *side, char *trans, integer * m, integer * n,
2014  integer * k, doublereal * a, integer * lda,
2015  doublereal * tau, doublereal * c__, integer * ldc,
2016  doublereal * work, integer * info, ftnlen side_len,
2017  ftnlen trans_len);
2018 extern int dorm2r_(char *side, char *trans, integer * m, integer * n,
2019  integer * k, doublereal * a, integer * lda,
2020  doublereal * tau, doublereal * c__, integer * ldc,
2021  doublereal * work, integer * info, ftnlen side_len,
2022  ftnlen trans_len);
2023 extern int dormbr_(char *vect, char *side, char *trans, integer * m,
2024  integer * n, integer * k, doublereal * a, integer * lda,
2025  doublereal * tau, doublereal * c__, integer * ldc,
2026  doublereal * work, integer * lwork, integer * info,
2027  ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
2028 extern int dormhr_(char *side, char *trans, integer * m, integer * n,
2029  integer * ilo, integer * ihi, doublereal * a,
2030  integer * lda, doublereal * tau, doublereal * c__,
2031  integer * ldc, doublereal * work, integer * lwork,
2032  integer * info, ftnlen side_len, ftnlen trans_len);
2033 extern int dorml2_(char *side, char *trans, integer * m, integer * n,
2034  integer * k, doublereal * a, integer * lda,
2035  doublereal * tau, doublereal * c__, integer * ldc,
2036  doublereal * work, integer * info, ftnlen side_len,
2037  ftnlen trans_len);
2038 extern int dormlq_(char *side, char *trans, integer * m, integer * n,
2039  integer * k, doublereal * a, integer * lda,
2040  doublereal * tau, doublereal * c__, integer * ldc,
2041  doublereal * work, integer * lwork, integer * info,
2042  ftnlen side_len, ftnlen trans_len);
2043 extern int dormql_(char *side, char *trans, integer * m, integer * n,
2044  integer * k, doublereal * a, integer * lda,
2045  doublereal * tau, doublereal * c__, integer * ldc,
2046  doublereal * work, integer * lwork, integer * info,
2047  ftnlen side_len, ftnlen trans_len);
2048 extern int dormqr_(char *side, char *trans, integer * m, integer * n,
2049  integer * k, doublereal * a, integer * lda,
2050  doublereal * tau, doublereal * c__, integer * ldc,
2051  doublereal * work, integer * lwork, integer * info,
2052  ftnlen side_len, ftnlen trans_len);
2053 extern int dormr2_(char *side, char *trans, integer * m, integer * n,
2054  integer * k, doublereal * a, integer * lda,
2055  doublereal * tau, doublereal * c__, integer * ldc,
2056  doublereal * work, integer * info, ftnlen side_len,
2057  ftnlen trans_len);
2058 extern int dormr3_(char *side, char *trans, integer * m, integer * n,
2059  integer * k, integer * l, doublereal * a, integer * lda,
2060  doublereal * tau, doublereal * c__, integer * ldc,
2061  doublereal * work, integer * info, ftnlen side_len,
2062  ftnlen trans_len);
2063 extern int dormrq_(char *side, char *trans, integer * m, integer * n,
2064  integer * k, doublereal * a, integer * lda,
2065  doublereal * tau, doublereal * c__, integer * ldc,
2066  doublereal * work, integer * lwork, integer * info,
2067  ftnlen side_len, ftnlen trans_len);
2068 extern int dormrz_(char *side, char *trans, integer * m, integer * n,
2069  integer * k, integer * l, doublereal * a, integer * lda,
2070  doublereal * tau, doublereal * c__, integer * ldc,
2071  doublereal * work, integer * lwork, integer * info,
2072  ftnlen side_len, ftnlen trans_len);
2073 extern int dormtr_(char *side, char *uplo, char *trans, integer * m,
2074  integer * n, doublereal * a, integer * lda,
2075  doublereal * tau, doublereal * c__, integer * ldc,
2076  doublereal * work, integer * lwork, integer * info,
2077  ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
2078 extern int dpbcon_(char *uplo, integer * n, integer * kd, doublereal * ab,
2079  integer * ldab, doublereal * anorm, doublereal * rcond,
2080  doublereal * work, integer * iwork, integer * info,
2081  ftnlen uplo_len);
2082 extern int dpbequ_(char *uplo, integer * n, integer * kd, doublereal * ab,
2083  integer * ldab, doublereal * s, doublereal * scond,
2084  doublereal * amax, integer * info, ftnlen uplo_len);
2085 extern int dpbrfs_(char *uplo, integer * n, integer * kd, integer * nrhs,
2086  doublereal * ab, integer * ldab, doublereal * afb,
2087  integer * ldafb, doublereal * b, integer * ldb,
2088  doublereal * x, integer * ldx, doublereal * ferr,
2089  doublereal * berr, doublereal * work, integer * iwork,
2090  integer * info, ftnlen uplo_len);
2091 extern int dpbstf_(char *uplo, integer * n, integer * kd, doublereal * ab,
2092  integer * ldab, integer * info, ftnlen uplo_len);
2093 extern int dpbsv_(char *uplo, integer * n, integer * kd, integer * nrhs,
2094  doublereal * ab, integer * ldab, doublereal * b,
2095  integer * ldb, integer * info, ftnlen uplo_len);
2096 extern int dpbsvx_(char *fact, char *uplo, integer * n, integer * kd,
2097  integer * nrhs, doublereal * ab, integer * ldab,
2098  doublereal * afb, integer * ldafb, char *equed,
2099  doublereal * s, doublereal * b, integer * ldb,
2100  doublereal * x, integer * ldx, doublereal * rcond,
2101  doublereal * ferr, doublereal * berr, doublereal * work,
2102  integer * iwork, integer * info, ftnlen fact_len,
2103  ftnlen uplo_len, ftnlen equed_len);
2104 extern int dpbtf2_(char *uplo, integer * n, integer * kd, doublereal * ab,
2105  integer * ldab, integer * info, ftnlen uplo_len);
2106 extern int dpbtrf_(char *uplo, integer * n, integer * kd, doublereal * ab,
2107  integer * ldab, integer * info, ftnlen uplo_len);
2108 extern int dpbtrs_(char *uplo, integer * n, integer * kd, integer * nrhs,
2109  doublereal * ab, integer * ldab, doublereal * b,
2110  integer * ldb, integer * info, ftnlen uplo_len);
2111 extern int dpocon_(char *uplo, integer * n, doublereal * a, integer * lda,
2112  doublereal * anorm, doublereal * rcond, doublereal * work,
2113  integer * iwork, integer * info, ftnlen uplo_len);
2114 extern int dpoequ_(integer * n, doublereal * a, integer * lda, doublereal * s,
2115  doublereal * scond, doublereal * amax, integer * info);
2116 extern int dporfs_(char *uplo, integer * n, integer * nrhs, doublereal * a,
2117  integer * lda, doublereal * af, integer * ldaf,
2118  doublereal * b, integer * ldb, doublereal * x,
2119  integer * ldx, doublereal * ferr, doublereal * berr,
2120  doublereal * work, integer * iwork, integer * info,
2121  ftnlen uplo_len);
2122 extern int dposv_(char *uplo, integer * n, integer * nrhs, doublereal * a,
2123  integer * lda, doublereal * b, integer * ldb,
2124  integer * info, ftnlen uplo_len);
2125 extern int dposvx_(char *fact, char *uplo, integer * n, integer * nrhs,
2126  doublereal * a, integer * lda, doublereal * af,
2127  integer * ldaf, char *equed, doublereal * s,
2128  doublereal * b, integer * ldb, doublereal * x,
2129  integer * ldx, doublereal * rcond, doublereal * ferr,
2130  doublereal * berr, doublereal * work, integer * iwork,
2131  integer * info, ftnlen fact_len, ftnlen uplo_len,
2132  ftnlen equed_len);
2133 extern int dpotf2_(char *uplo, integer * n, doublereal * a, integer * lda,
2134  integer * info, ftnlen uplo_len);
2135 extern int dpotrf_(char *uplo, integer * n, doublereal * a, integer * lda,
2136  integer * info, ftnlen uplo_len);
2137 extern int dpotri_(char *uplo, integer * n, doublereal * a, integer * lda,
2138  integer * info, ftnlen uplo_len);
2139 extern int dpotrs_(char *uplo, integer * n, integer * nrhs, doublereal * a,
2140  integer * lda, doublereal * b, integer * ldb,
2141  integer * info, ftnlen uplo_len);
2142 extern int dppcon_(char *uplo, integer * n, doublereal * ap,
2143  doublereal * anorm, doublereal * rcond, doublereal * work,
2144  integer * iwork, integer * info, ftnlen uplo_len);
2145 extern int dppequ_(char *uplo, integer * n, doublereal * ap, doublereal * s,
2146  doublereal * scond, doublereal * amax, integer * info,
2147  ftnlen uplo_len);
2148 extern int dpprfs_(char *uplo, integer * n, integer * nrhs, doublereal * ap,
2149  doublereal * afp, doublereal * b, integer * ldb,
2150  doublereal * x, integer * ldx, doublereal * ferr,
2151  doublereal * berr, doublereal * work, integer * iwork,
2152  integer * info, ftnlen uplo_len);
2153 extern int dppsv_(char *uplo, integer * n, integer * nrhs, doublereal * ap,
2154  doublereal * b, integer * ldb, integer * info,
2155  ftnlen uplo_len);
2156 extern int dppsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
2157  doublereal * ap, doublereal * afp, char *equed,
2158  doublereal * s, doublereal * b, integer * ldb,
2159  doublereal * x, integer * ldx, doublereal * rcond,
2160  doublereal * ferr, doublereal * berr, doublereal * work,
2161  integer * iwork, integer * info, ftnlen fact_len,
2162  ftnlen uplo_len, ftnlen equed_len);
2163 extern int dpptrf_(char *uplo, integer * n, doublereal * ap, integer * info,
2164  ftnlen uplo_len);
2165 extern int dpptri_(char *uplo, integer * n, doublereal * ap, integer * info,
2166  ftnlen uplo_len);
2167 extern int dpptrs_(char *uplo, integer * n, integer * nrhs, doublereal * ap,
2168  doublereal * b, integer * ldb, integer * info,
2169  ftnlen uplo_len);
2170 extern int dptcon_(integer * n, doublereal * d__, doublereal * e,
2171  doublereal * anorm, doublereal * rcond, doublereal * work,
2172  integer * info);
2173 extern int dpteqr_(char *compz, integer * n, doublereal * d__, doublereal * e,
2174  doublereal * z__, integer * ldz, doublereal * work,
2175  integer * info, ftnlen compz_len);
2176 extern int dptrfs_(integer * n, integer * nrhs, doublereal * d__,
2177  doublereal * e, doublereal * df, doublereal * ef,
2178  doublereal * b, integer * ldb, doublereal * x,
2179  integer * ldx, doublereal * ferr, doublereal * berr,
2180  doublereal * work, integer * info);
2181 extern int dptsv_(integer * n, integer * nrhs, doublereal * d__,
2182  doublereal * e, doublereal * b, integer * ldb,
2183  integer * info);
2184 extern int dptsvx_(char *fact, integer * n, integer * nrhs, doublereal * d__,
2185  doublereal * e, doublereal * df, doublereal * ef,
2186  doublereal * b, integer * ldb, doublereal * x,
2187  integer * ldx, doublereal * rcond, doublereal * ferr,
2188  doublereal * berr, doublereal * work, integer * info,
2189  ftnlen fact_len);
2190 extern int dpttrf_(integer * n, doublereal * d__, doublereal * e,
2191  integer * info);
2192 extern int dpttrs_(integer * n, integer * nrhs, doublereal * d__,
2193  doublereal * e, doublereal * b, integer * ldb,
2194  integer * info);
2195 extern int dptts2_(integer * n, integer * nrhs, doublereal * d__,
2196  doublereal * e, doublereal * b, integer * ldb);
2197 extern int drscl_(integer * n, doublereal * sa, doublereal * sx,
2198  integer * incx);
2199 extern int dsbev_(char *jobz, char *uplo, integer * n, integer * kd,
2200  doublereal * ab, integer * ldab, doublereal * w,
2201  doublereal * z__, integer * ldz, doublereal * work,
2202  integer * info, ftnlen jobz_len, ftnlen uplo_len);
2203 extern int dsbevd_(char *jobz, char *uplo, integer * n, integer * kd,
2204  doublereal * ab, integer * ldab, doublereal * w,
2205  doublereal * z__, integer * ldz, doublereal * work,
2206  integer * lwork, integer * iwork, integer * liwork,
2207  integer * info, ftnlen jobz_len, ftnlen uplo_len);
2208 extern int dsbevx_(char *jobz, char *range, char *uplo, integer * n,
2209  integer * kd, doublereal * ab, integer * ldab,
2210  doublereal * q, integer * ldq, doublereal * vl,
2211  doublereal * vu, integer * il, integer * iu,
2212  doublereal * abstol, integer * m, doublereal * w,
2213  doublereal * z__, integer * ldz, doublereal * work,
2214  integer * iwork, integer * ifail, integer * info,
2215  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
2216 extern int dsbgst_(char *vect, char *uplo, integer * n, integer * ka,
2217  integer * kb, doublereal * ab, integer * ldab,
2218  doublereal * bb, integer * ldbb, doublereal * x,
2219  integer * ldx, doublereal * work, integer * info,
2220  ftnlen vect_len, ftnlen uplo_len);
2221 extern int dsbgv_(char *jobz, char *uplo, integer * n, integer * ka,
2222  integer * kb, doublereal * ab, integer * ldab,
2223  doublereal * bb, integer * ldbb, doublereal * w,
2224  doublereal * z__, integer * ldz, doublereal * work,
2225  integer * info, ftnlen jobz_len, ftnlen uplo_len);
2226 extern int dsbgvd_(char *jobz, char *uplo, integer * n, integer * ka,
2227  integer * kb, doublereal * ab, integer * ldab,
2228  doublereal * bb, integer * ldbb, doublereal * w,
2229  doublereal * z__, integer * ldz, doublereal * work,
2230  integer * lwork, integer * iwork, integer * liwork,
2231  integer * info, ftnlen jobz_len, ftnlen uplo_len);
2232 extern int dsbgvx_(char *jobz, char *range, char *uplo, integer * n,
2233  integer * ka, integer * kb, doublereal * ab,
2234  integer * ldab, doublereal * bb, integer * ldbb,
2235  doublereal * q, integer * ldq, doublereal * vl,
2236  doublereal * vu, integer * il, integer * iu,
2237  doublereal * abstol, integer * m, doublereal * w,
2238  doublereal * z__, integer * ldz, doublereal * work,
2239  integer * iwork, integer * ifail, integer * info,
2240  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
2241 extern int dsbtrd_(char *vect, char *uplo, integer * n, integer * kd,
2242  doublereal * ab, integer * ldab, doublereal * d__,
2243  doublereal * e, doublereal * q, integer * ldq,
2244  doublereal * work, integer * info, ftnlen vect_len,
2245  ftnlen uplo_len);
2246 extern doublereal dsecnd_(void);
2247 extern int dspcon_(char *uplo, integer * n, doublereal * ap, integer * ipiv,
2248  doublereal * anorm, doublereal * rcond, doublereal * work,
2249  integer * iwork, integer * info, ftnlen uplo_len);
2250 extern int dspev_(char *jobz, char *uplo, integer * n, doublereal * ap,
2251  doublereal * w, doublereal * z__, integer * ldz,
2252  doublereal * work, integer * info, ftnlen jobz_len,
2253  ftnlen uplo_len);
2254 extern int dspevd_(char *jobz, char *uplo, integer * n, doublereal * ap,
2255  doublereal * w, doublereal * z__, integer * ldz,
2256  doublereal * work, integer * lwork, integer * iwork,
2257  integer * liwork, integer * info, ftnlen jobz_len,
2258  ftnlen uplo_len);
2259 extern int dspevx_(char *jobz, char *range, char *uplo, integer * n,
2260  doublereal * ap, doublereal * vl, doublereal * vu,
2261  integer * il, integer * iu, doublereal * abstol,
2262  integer * m, doublereal * w, doublereal * z__,
2263  integer * ldz, doublereal * work, integer * iwork,
2264  integer * ifail, integer * info, ftnlen jobz_len,
2265  ftnlen range_len, ftnlen uplo_len);
2266 extern int dspgst_(integer * itype, char *uplo, integer * n, doublereal * ap,
2267  doublereal * bp, integer * info, ftnlen uplo_len);
2268 extern int dspgv_(integer * itype, char *jobz, char *uplo, integer * n,
2269  doublereal * ap, doublereal * bp, doublereal * w,
2270  doublereal * z__, integer * ldz, doublereal * work,
2271  integer * info, ftnlen jobz_len, ftnlen uplo_len);
2272 extern int dspgvd_(integer * itype, char *jobz, char *uplo, integer * n,
2273  doublereal * ap, doublereal * bp, doublereal * w,
2274  doublereal * z__, integer * ldz, doublereal * work,
2275  integer * lwork, integer * iwork, integer * liwork,
2276  integer * info, ftnlen jobz_len, ftnlen uplo_len);
2277 extern int dspgvx_(integer * itype, char *jobz, char *range, char *uplo,
2278  integer * n, doublereal * ap, doublereal * bp,
2279  doublereal * vl, doublereal * vu, integer * il,
2280  integer * iu, doublereal * abstol, integer * m,
2281  doublereal * w, doublereal * z__, integer * ldz,
2282  doublereal * work, integer * iwork, integer * ifail,
2283  integer * info, ftnlen jobz_len, ftnlen range_len,
2284  ftnlen uplo_len);
2285 extern int dsprfs_(char *uplo, integer * n, integer * nrhs, doublereal * ap,
2286  doublereal * afp, integer * ipiv, doublereal * b,
2287  integer * ldb, doublereal * x, integer * ldx,
2288  doublereal * ferr, doublereal * berr, doublereal * work,
2289  integer * iwork, integer * info, ftnlen uplo_len);
2290 extern int dspsv_(char *uplo, integer * n, integer * nrhs, doublereal * ap,
2291  integer * ipiv, doublereal * b, integer * ldb,
2292  integer * info, ftnlen uplo_len);
2293 extern int dspsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
2294  doublereal * ap, doublereal * afp, integer * ipiv,
2295  doublereal * b, integer * ldb, doublereal * x,
2296  integer * ldx, doublereal * rcond, doublereal * ferr,
2297  doublereal * berr, doublereal * work, integer * iwork,
2298  integer * info, ftnlen fact_len, ftnlen uplo_len);
2299 extern int dsptrd_(char *uplo, integer * n, doublereal * ap, doublereal * d__,
2300  doublereal * e, doublereal * tau, integer * info,
2301  ftnlen uplo_len);
2302 extern int dsptrf_(char *uplo, integer * n, doublereal * ap, integer * ipiv,
2303  integer * info, ftnlen uplo_len);
2304 extern int dsptri_(char *uplo, integer * n, doublereal * ap, integer * ipiv,
2305  doublereal * work, integer * info, ftnlen uplo_len);
2306 extern int dsptrs_(char *uplo, integer * n, integer * nrhs, doublereal * ap,
2307  integer * ipiv, doublereal * b, integer * ldb,
2308  integer * info, ftnlen uplo_len);
2309 extern int dstebz_(char *range, char *order, integer * n, doublereal * vl,
2310  doublereal * vu, integer * il, integer * iu,
2311  doublereal * abstol, doublereal * d__, doublereal * e,
2312  integer * m, integer * nsplit, doublereal * w,
2313  integer * iblock, integer * isplit, doublereal * work,
2314  integer * iwork, integer * info, ftnlen range_len,
2315  ftnlen order_len);
2316 extern int dstedc_(char *compz, integer * n, doublereal * d__, doublereal * e,
2317  doublereal * z__, integer * ldz, doublereal * work,
2318  integer * lwork, integer * iwork, integer * liwork,
2319  integer * info, ftnlen compz_len);
2320 extern int dstegr_(char *jobz, char *range, integer * n, doublereal * d__,
2321  doublereal * e, doublereal * vl, doublereal * vu,
2322  integer * il, integer * iu, doublereal * abstol,
2323  integer * m, doublereal * w, doublereal * z__,
2324  integer * ldz, integer * isuppz, doublereal * work,
2325  integer * lwork, integer * iwork, integer * liwork,
2326  integer * info, ftnlen jobz_len, ftnlen range_len);
2327 extern int dstein_(integer * n, doublereal * d__, doublereal * e, integer * m,
2328  doublereal * w, integer * iblock, integer * isplit,
2329  doublereal * z__, integer * ldz, doublereal * work,
2330  integer * iwork, integer * ifail, integer * info);
2331 extern int dsteqr_(char *compz, integer * n, doublereal * d__, doublereal * e,
2332  doublereal * z__, integer * ldz, doublereal * work,
2333  integer * info, ftnlen compz_len);
2334 extern int dsterf_(integer * n, doublereal * d__, doublereal * e,
2335  integer * info);
2336 extern int dstev_(char *jobz, integer * n, doublereal * d__, doublereal * e,
2337  doublereal * z__, integer * ldz, doublereal * work,
2338  integer * info, ftnlen jobz_len);
2339 extern int dstevd_(char *jobz, integer * n, doublereal * d__, doublereal * e,
2340  doublereal * z__, integer * ldz, doublereal * work,
2341  integer * lwork, integer * iwork, integer * liwork,
2342  integer * info, ftnlen jobz_len);
2343 extern int dstevr_(char *jobz, char *range, integer * n, doublereal * d__,
2344  doublereal * e, doublereal * vl, doublereal * vu,
2345  integer * il, integer * iu, doublereal * abstol,
2346  integer * m, doublereal * w, doublereal * z__,
2347  integer * ldz, integer * isuppz, doublereal * work,
2348  integer * lwork, integer * iwork, integer * liwork,
2349  integer * info, ftnlen jobz_len, ftnlen range_len);
2350 extern int dstevx_(char *jobz, char *range, integer * n, doublereal * d__,
2351  doublereal * e, doublereal * vl, doublereal * vu,
2352  integer * il, integer * iu, doublereal * abstol,
2353  integer * m, doublereal * w, doublereal * z__,
2354  integer * ldz, doublereal * work, integer * iwork,
2355  integer * ifail, integer * info, ftnlen jobz_len,
2356  ftnlen range_len);
2357 extern int dsycon_(char *uplo, integer * n, doublereal * a, integer * lda,
2358  integer * ipiv, doublereal * anorm, doublereal * rcond,
2359  doublereal * work, integer * iwork, integer * info,
2360  ftnlen uplo_len);
2361 extern int dsyev_(char *jobz, char *uplo, integer * n, doublereal * a,
2362  integer * lda, doublereal * w, doublereal * work,
2363  integer * lwork, integer * info, ftnlen jobz_len,
2364  ftnlen uplo_len);
2365 extern int dsyevd_(char *jobz, char *uplo, integer * n, doublereal * a,
2366  integer * lda, doublereal * w, doublereal * work,
2367  integer * lwork, integer * iwork, integer * liwork,
2368  integer * info, ftnlen jobz_len, ftnlen uplo_len);
2369 extern int dsyevr_(char *jobz, char *range, char *uplo, integer * n,
2370  doublereal * a, integer * lda, doublereal * vl,
2371  doublereal * vu, integer * il, integer * iu,
2372  doublereal * abstol, integer * m, doublereal * w,
2373  doublereal * z__, integer * ldz, integer * isuppz,
2374  doublereal * work, integer * lwork, integer * iwork,
2375  integer * liwork, integer * info, ftnlen jobz_len,
2376  ftnlen range_len, ftnlen uplo_len);
2377 extern int dsyevx_(char *jobz, char *range, char *uplo, integer * n,
2378  doublereal * a, integer * lda, doublereal * vl,
2379  doublereal * vu, integer * il, integer * iu,
2380  doublereal * abstol, integer * m, doublereal * w,
2381  doublereal * z__, integer * ldz, doublereal * work,
2382  integer * lwork, integer * iwork, integer * ifail,
2383  integer * info, ftnlen jobz_len, ftnlen range_len,
2384  ftnlen uplo_len);
2385 extern int dsygs2_(integer * itype, char *uplo, integer * n, doublereal * a,
2386  integer * lda, doublereal * b, integer * ldb,
2387  integer * info, ftnlen uplo_len);
2388 extern int dsygst_(integer * itype, char *uplo, integer * n, doublereal * a,
2389  integer * lda, doublereal * b, integer * ldb,
2390  integer * info, ftnlen uplo_len);
2391 extern int dsygv_(integer * itype, char *jobz, char *uplo, integer * n,
2392  doublereal * a, integer * lda, doublereal * b,
2393  integer * ldb, doublereal * w, doublereal * work,
2394  integer * lwork, integer * info, ftnlen jobz_len,
2395  ftnlen uplo_len);
2396 extern int dsygvd_(integer * itype, char *jobz, char *uplo, integer * n,
2397  doublereal * a, integer * lda, doublereal * b,
2398  integer * ldb, doublereal * w, doublereal * work,
2399  integer * lwork, integer * iwork, integer * liwork,
2400  integer * info, ftnlen jobz_len, ftnlen uplo_len);
2401 extern int dsygvx_(integer * itype, char *jobz, char *range, char *uplo,
2402  integer * n, doublereal * a, integer * lda, doublereal * b,
2403  integer * ldb, doublereal * vl, doublereal * vu,
2404  integer * il, integer * iu, doublereal * abstol,
2405  integer * m, doublereal * w, doublereal * z__,
2406  integer * ldz, doublereal * work, integer * lwork,
2407  integer * iwork, integer * ifail, integer * info,
2408  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
2409 extern int dsyrfs_(char *uplo, integer * n, integer * nrhs, doublereal * a,
2410  integer * lda, doublereal * af, integer * ldaf,
2411  integer * ipiv, doublereal * b, integer * ldb,
2412  doublereal * x, integer * ldx, doublereal * ferr,
2413  doublereal * berr, doublereal * work, integer * iwork,
2414  integer * info, ftnlen uplo_len);
2415 extern int dsysv_(char *uplo, integer * n, integer * nrhs, doublereal * a,
2416  integer * lda, integer * ipiv, doublereal * b,
2417  integer * ldb, doublereal * work, integer * lwork,
2418  integer * info, ftnlen uplo_len);
2419 extern int dsysvx_(char *fact, char *uplo, integer * n, integer * nrhs,
2420  doublereal * a, integer * lda, doublereal * af,
2421  integer * ldaf, integer * ipiv, doublereal * b,
2422  integer * ldb, doublereal * x, integer * ldx,
2423  doublereal * rcond, doublereal * ferr, doublereal * berr,
2424  doublereal * work, integer * lwork, integer * iwork,
2425  integer * info, ftnlen fact_len, ftnlen uplo_len);
2426 extern int dsytd2_(char *uplo, integer * n, doublereal * a, integer * lda,
2427  doublereal * d__, doublereal * e, doublereal * tau,
2428  integer * info, ftnlen uplo_len);
2429 extern int dsytf2_(char *uplo, integer * n, doublereal * a, integer * lda,
2430  integer * ipiv, integer * info, ftnlen uplo_len);
2431 extern int dsytrd_(char *uplo, integer * n, doublereal * a, integer * lda,
2432  doublereal * d__, doublereal * e, doublereal * tau,
2433  doublereal * work, integer * lwork, integer * info,
2434  ftnlen uplo_len);
2435 extern int dsytrf_(char *uplo, integer * n, doublereal * a, integer * lda,
2436  integer * ipiv, doublereal * work, integer * lwork,
2437  integer * info, ftnlen uplo_len);
2438 extern int dsytri_(char *uplo, integer * n, doublereal * a, integer * lda,
2439  integer * ipiv, doublereal * work, integer * info,
2440  ftnlen uplo_len);
2441 extern int dsytrs_(char *uplo, integer * n, integer * nrhs, doublereal * a,
2442  integer * lda, integer * ipiv, doublereal * b,
2443  integer * ldb, integer * info, ftnlen uplo_len);
2444 extern int dtbcon_(char *norm, char *uplo, char *diag, integer * n,
2445  integer * kd, doublereal * ab, integer * ldab,
2446  doublereal * rcond, doublereal * work, integer * iwork,
2447  integer * info, ftnlen norm_len, ftnlen uplo_len,
2448  ftnlen diag_len);
2449 extern int dtbrfs_(char *uplo, char *trans, char *diag, integer * n,
2450  integer * kd, integer * nrhs, doublereal * ab,
2451  integer * ldab, doublereal * b, integer * ldb,
2452  doublereal * x, integer * ldx, doublereal * ferr,
2453  doublereal * berr, doublereal * work, integer * iwork,
2454  integer * info, ftnlen uplo_len, ftnlen trans_len,
2455  ftnlen diag_len);
2456 extern int dtbtrs_(char *uplo, char *trans, char *diag, integer * n,
2457  integer * kd, integer * nrhs, doublereal * ab,
2458  integer * ldab, doublereal * b, integer * ldb,
2459  integer * info, ftnlen uplo_len, ftnlen trans_len,
2460  ftnlen diag_len);
2461 extern int dtgevc_(char *side, char *howmny, logical * select, integer * n,
2462  doublereal * a, integer * lda, doublereal * b,
2463  integer * ldb, doublereal * vl, integer * ldvl,
2464  doublereal * vr, integer * ldvr, integer * mm, integer * m,
2465  doublereal * work, integer * info, ftnlen side_len,
2466  ftnlen howmny_len);
2467 extern int dtgex2_(logical * wantq, logical * wantz, integer * n,
2468  doublereal * a, integer * lda, doublereal * b,
2469  integer * ldb, doublereal * q, integer * ldq,
2470  doublereal * z__, integer * ldz, integer * j1,
2471  integer * n1, integer * n2, doublereal * work,
2472  integer * lwork, integer * info);
2473 extern int dtgexc_(logical * wantq, logical * wantz, integer * n,
2474  doublereal * a, integer * lda, doublereal * b,
2475  integer * ldb, doublereal * q, integer * ldq,
2476  doublereal * z__, integer * ldz, integer * ifst,
2477  integer * ilst, doublereal * work, integer * lwork,
2478  integer * info);
2479 extern int dtgsen_(integer * ijob, logical * wantq, logical * wantz,
2480  logical * select, integer * n, doublereal * a,
2481  integer * lda, doublereal * b, integer * ldb,
2482  doublereal * alphar, doublereal * alphai,
2483  doublereal * beta, doublereal * q, integer * ldq,
2484  doublereal * z__, integer * ldz, integer * m,
2485  doublereal * pl, doublereal * pr, doublereal * dif,
2486  doublereal * work, integer * lwork, integer * iwork,
2487  integer * liwork, integer * info);
2488 extern int dtgsja_(char *jobu, char *jobv, char *jobq, integer * m,
2489  integer * p, integer * n, integer * k, integer * l,
2490  doublereal * a, integer * lda, doublereal * b,
2491  integer * ldb, doublereal * tola, doublereal * tolb,
2492  doublereal * alpha, doublereal * beta, doublereal * u,
2493  integer * ldu, doublereal * v, integer * ldv,
2494  doublereal * q, integer * ldq, doublereal * work,
2495  integer * ncycle, integer * info, ftnlen jobu_len,
2496  ftnlen jobv_len, ftnlen jobq_len);
2497 extern int dtgsna_(char *job, char *howmny, logical * select, integer * n,
2498  doublereal * a, integer * lda, doublereal * b,
2499  integer * ldb, doublereal * vl, integer * ldvl,
2500  doublereal * vr, integer * ldvr, doublereal * s,
2501  doublereal * dif, integer * mm, integer * m,
2502  doublereal * work, integer * lwork, integer * iwork,
2503  integer * info, ftnlen job_len, ftnlen howmny_len);
2504 extern int dtgsy2_(char *trans, integer * ijob, integer * m, integer * n,
2505  doublereal * a, integer * lda, doublereal * b,
2506  integer * ldb, doublereal * c__, integer * ldc,
2507  doublereal * d__, integer * ldd, doublereal * e,
2508  integer * lde, doublereal * f, integer * ldf,
2509  doublereal * scale, doublereal * rdsum,
2510  doublereal * rdscal, integer * iwork, integer * pq,
2511  integer * info, ftnlen trans_len);
2512 extern int dtgsyl_(char *trans, integer * ijob, integer * m, integer * n,
2513  doublereal * a, integer * lda, doublereal * b,
2514  integer * ldb, doublereal * c__, integer * ldc,
2515  doublereal * d__, integer * ldd, doublereal * e,
2516  integer * lde, doublereal * f, integer * ldf,
2517  doublereal * scale, doublereal * dif, doublereal * work,
2518  integer * lwork, integer * iwork, integer * info,
2519  ftnlen trans_len);
2520 extern int dtpcon_(char *norm, char *uplo, char *diag, integer * n,
2521  doublereal * ap, doublereal * rcond, doublereal * work,
2522  integer * iwork, integer * info, ftnlen norm_len,
2523  ftnlen uplo_len, ftnlen diag_len);
2524 extern int dtprfs_(char *uplo, char *trans, char *diag, integer * n,
2525  integer * nrhs, doublereal * ap, doublereal * b,
2526  integer * ldb, doublereal * x, integer * ldx,
2527  doublereal * ferr, doublereal * berr, doublereal * work,
2528  integer * iwork, integer * info, ftnlen uplo_len,
2529  ftnlen trans_len, ftnlen diag_len);
2530 extern int dtptri_(char *uplo, char *diag, integer * n, doublereal * ap,
2531  integer * info, ftnlen uplo_len, ftnlen diag_len);
2532 extern int dtptrs_(char *uplo, char *trans, char *diag, integer * n,
2533  integer * nrhs, doublereal * ap, doublereal * b,
2534  integer * ldb, integer * info, ftnlen uplo_len,
2535  ftnlen trans_len, ftnlen diag_len);
2536 extern int dtrcon_(char *norm, char *uplo, char *diag, integer * n,
2537  doublereal * a, integer * lda, doublereal * rcond,
2538  doublereal * work, integer * iwork, integer * info,
2539  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
2540 extern int dtrevc_(char *side, char *howmny, logical * select, integer * n,
2541  doublereal * t, integer * ldt, doublereal * vl,
2542  integer * ldvl, doublereal * vr, integer * ldvr,
2543  integer * mm, integer * m, doublereal * work,
2544  integer * info, ftnlen side_len, ftnlen howmny_len);
2545 extern int dtrexc_(char *compq, integer * n, doublereal * t, integer * ldt,
2546  doublereal * q, integer * ldq, integer * ifst,
2547  integer * ilst, doublereal * work, integer * info,
2548  ftnlen compq_len);
2549 extern int dtrrfs_(char *uplo, char *trans, char *diag, integer * n,
2550  integer * nrhs, doublereal * a, integer * lda,
2551  doublereal * b, integer * ldb, doublereal * x,
2552  integer * ldx, doublereal * ferr, doublereal * berr,
2553  doublereal * work, integer * iwork, integer * info,
2554  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
2555 extern int dtrsen_(char *job, char *compq, logical * select, integer * n,
2556  doublereal * t, integer * ldt, doublereal * q,
2557  integer * ldq, doublereal * wr, doublereal * wi,
2558  integer * m, doublereal * s, doublereal * sep,
2559  doublereal * work, integer * lwork, integer * iwork,
2560  integer * liwork, integer * info, ftnlen job_len,
2561  ftnlen compq_len);
2562 extern int dtrsna_(char *job, char *howmny, logical * select, integer * n,
2563  doublereal * t, integer * ldt, doublereal * vl,
2564  integer * ldvl, doublereal * vr, integer * ldvr,
2565  doublereal * s, doublereal * sep, integer * mm,
2566  integer * m, doublereal * work, integer * ldwork,
2567  integer * iwork, integer * info, ftnlen job_len,
2568  ftnlen howmny_len);
2569 extern int dtrsyl_(char *trana, char *tranb, integer * isgn, integer * m,
2570  integer * n, doublereal * a, integer * lda, doublereal * b,
2571  integer * ldb, doublereal * c__, integer * ldc,
2572  doublereal * scale, integer * info, ftnlen trana_len,
2573  ftnlen tranb_len);
2574 extern int dtrti2_(char *uplo, char *diag, integer * n, doublereal * a,
2575  integer * lda, integer * info, ftnlen uplo_len,
2576  ftnlen diag_len);
2577 extern int dtrtri_(char *uplo, char *diag, integer * n, doublereal * a,
2578  integer * lda, integer * info, ftnlen uplo_len,
2579  ftnlen diag_len);
2580 extern int dtrtrs_(char *uplo, char *trans, char *diag, integer * n,
2581  integer * nrhs, doublereal * a, integer * lda,
2582  doublereal * b, integer * ldb, integer * info,
2583  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
2584 extern int dtzrqf_(integer * m, integer * n, doublereal * a, integer * lda,
2585  doublereal * tau, integer * info);
2586 extern int dtzrzf_(integer * m, integer * n, doublereal * a, integer * lda,
2587  doublereal * tau, doublereal * work, integer * lwork,
2588  integer * info);
2589 extern doublereal dzsum1_(integer * n, doublecomplex * cx, integer * incx);
2590 extern integer icmax1_(integer * n, complex * cx, integer * incx);
2591 extern integer ieeeck_(integer * ispec, real * zero, real * one);
2592 extern integer ilaenv_(integer * ispec, char *name__, char *opts,
2593  integer * n1, integer * n2, integer * n3, integer * n4,
2594  ftnlen name_len, ftnlen opts_len);
2595 extern integer izmax1_(integer * n, doublecomplex * cx, integer * incx);
2596 extern logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len);
2597 extern logical lsamen_(integer * n, char *ca, char *cb, ftnlen ca_len,
2598  ftnlen cb_len);
2599 extern int sbdsdc_(char *uplo, char *compq, integer * n, real * d__, real * e,
2600  real * u, integer * ldu, real * vt, integer * ldvt,
2601  real * q, integer * iq, real * work, integer * iwork,
2602  integer * info, ftnlen uplo_len, ftnlen compq_len);
2603 extern int sbdsqr_(char *uplo, integer * n, integer * ncvt, integer * nru,
2604  integer * ncc, real * d__, real * e, real * vt,
2605  integer * ldvt, real * u, integer * ldu, real * c__,
2606  integer * ldc, real * work, integer * info,
2607  ftnlen uplo_len);
2608 extern E_f scsum1_(integer * n, complex * cx, integer * incx);
2609 extern int sdisna_(char *job, integer * m, integer * n, real * d__,
2610  real * sep, integer * info, ftnlen job_len);
2611 extern E_f second_(void);
2612 extern int sgbbrd_(char *vect, integer * m, integer * n, integer * ncc,
2613  integer * kl, integer * ku, real * ab, integer * ldab,
2614  real * d__, real * e, real * q, integer * ldq, real * pt,
2615  integer * ldpt, real * c__, integer * ldc, real * work,
2616  integer * info, ftnlen vect_len);
2617 extern int sgbcon_(char *norm, integer * n, integer * kl, integer * ku,
2618  real * ab, integer * ldab, integer * ipiv, real * anorm,
2619  real * rcond, real * work, integer * iwork, integer * info,
2620  ftnlen norm_len);
2621 extern int sgbequ_(integer * m, integer * n, integer * kl, integer * ku,
2622  real * ab, integer * ldab, real * r__, real * c__,
2623  real * rowcnd, real * colcnd, real * amax, integer * info);
2624 extern int sgbrfs_(char *trans, integer * n, integer * kl, integer * ku,
2625  integer * nrhs, real * ab, integer * ldab, real * afb,
2626  integer * ldafb, integer * ipiv, real * b, integer * ldb,
2627  real * x, integer * ldx, real * ferr, real * berr,
2628  real * work, integer * iwork, integer * info,
2629  ftnlen trans_len);
2630 extern int sgbsv_(integer * n, integer * kl, integer * ku, integer * nrhs,
2631  real * ab, integer * ldab, integer * ipiv, real * b,
2632  integer * ldb, integer * info);
2633 extern int sgbsvx_(char *fact, char *trans, integer * n, integer * kl,
2634  integer * ku, integer * nrhs, real * ab, integer * ldab,
2635  real * afb, integer * ldafb, integer * ipiv, char *equed,
2636  real * r__, real * c__, real * b, integer * ldb, real * x,
2637  integer * ldx, real * rcond, real * ferr, real * berr,
2638  real * work, integer * iwork, integer * info,
2639  ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
2640 extern int sgbtf2_(integer * m, integer * n, integer * kl, integer * ku,
2641  real * ab, integer * ldab, integer * ipiv, integer * info);
2642 extern int sgbtrf_(integer * m, integer * n, integer * kl, integer * ku,
2643  real * ab, integer * ldab, integer * ipiv, integer * info);
2644 extern int sgbtrs_(char *trans, integer * n, integer * kl, integer * ku,
2645  integer * nrhs, real * ab, integer * ldab, integer * ipiv,
2646  real * b, integer * ldb, integer * info, ftnlen trans_len);
2647 extern int sgebak_(char *job, char *side, integer * n, integer * ilo,
2648  integer * ihi, real * scale, integer * m, real * v,
2649  integer * ldv, integer * info, ftnlen job_len,
2650  ftnlen side_len);
2651 extern int sgebal_(char *job, integer * n, real * a, integer * lda,
2652  integer * ilo, integer * ihi, real * scale, integer * info,
2653  ftnlen job_len);
2654 extern int sgebd2_(integer * m, integer * n, real * a, integer * lda,
2655  real * d__, real * e, real * tauq, real * taup,
2656  real * work, integer * info);
2657 extern int sgebrd_(integer * m, integer * n, real * a, integer * lda,
2658  real * d__, real * e, real * tauq, real * taup,
2659  real * work, integer * lwork, integer * info);
2660 extern int sgecon_(char *norm, integer * n, real * a, integer * lda,
2661  real * anorm, real * rcond, real * work, integer * iwork,
2662  integer * info, ftnlen norm_len);
2663 extern int sgeequ_(integer * m, integer * n, real * a, integer * lda,
2664  real * r__, real * c__, real * rowcnd, real * colcnd,
2665  real * amax, integer * info);
2666 extern int sgees_(char *jobvs, char *sort, L_fp select, integer * n, real * a,
2667  integer * lda, integer * sdim, real * wr, real * wi,
2668  real * vs, integer * ldvs, real * work, integer * lwork,
2669  logical * bwork, integer * info, ftnlen jobvs_len,
2670  ftnlen sort_len);
2671 extern int sgeesx_(char *jobvs, char *sort, L_fp select, char *sense,
2672  integer * n, real * a, integer * lda, integer * sdim,
2673  real * wr, real * wi, real * vs, integer * ldvs,
2674  real * rconde, real * rcondv, real * work, integer * lwork,
2675  integer * iwork, integer * liwork, logical * bwork,
2676  integer * info, ftnlen jobvs_len, ftnlen sort_len,
2677  ftnlen sense_len);
2678 extern int sgeev_(char *jobvl, char *jobvr, integer * n, real * a,
2679  integer * lda, real * wr, real * wi, real * vl,
2680  integer * ldvl, real * vr, integer * ldvr, real * work,
2681  integer * lwork, integer * info, ftnlen jobvl_len,
2682  ftnlen jobvr_len);
2683 extern int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
2684  integer * n, real * a, integer * lda, real * wr, real * wi,
2685  real * vl, integer * ldvl, real * vr, integer * ldvr,
2686  integer * ilo, integer * ihi, real * scale, real * abnrm,
2687  real * rconde, real * rcondv, real * work, integer * lwork,
2688  integer * iwork, integer * info, ftnlen balanc_len,
2689  ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
2690 extern int sgegs_(char *jobvsl, char *jobvsr, integer * n, real * a,
2691  integer * lda, real * b, integer * ldb, real * alphar,
2692  real * alphai, real * beta, real * vsl, integer * ldvsl,
2693  real * vsr, integer * ldvsr, real * work, integer * lwork,
2694  integer * info, ftnlen jobvsl_len, ftnlen jobvsr_len);
2695 extern int sgegv_(char *jobvl, char *jobvr, integer * n, real * a,
2696  integer * lda, real * b, integer * ldb, real * alphar,
2697  real * alphai, real * beta, real * vl, integer * ldvl,
2698  real * vr, integer * ldvr, real * work, integer * lwork,
2699  integer * info, ftnlen jobvl_len, ftnlen jobvr_len);
2700 extern int sgehd2_(integer * n, integer * ilo, integer * ihi, real * a,
2701  integer * lda, real * tau, real * work, integer * info);
2702 extern int sgehrd_(integer * n, integer * ilo, integer * ihi, real * a,
2703  integer * lda, real * tau, real * work, integer * lwork,
2704  integer * info);
2705 extern int sgelq2_(integer * m, integer * n, real * a, integer * lda,
2706  real * tau, real * work, integer * info);
2707 extern int sgelqf_(integer * m, integer * n, real * a, integer * lda,
2708  real * tau, real * work, integer * lwork, integer * info);
2709 extern int sgels_(char *trans, integer * m, integer * n, integer * nrhs,
2710  real * a, integer * lda, real * b, integer * ldb,
2711  real * work, integer * lwork, integer * info,
2712  ftnlen trans_len);
2713 extern int sgelsd_(integer * m, integer * n, integer * nrhs, real * a,
2714  integer * lda, real * b, integer * ldb, real * s,
2715  real * rcond, integer * rank, real * work, integer * lwork,
2716  integer * iwork, integer * info);
2717 extern int sgelss_(integer * m, integer * n, integer * nrhs, real * a,
2718  integer * lda, real * b, integer * ldb, real * s,
2719  real * rcond, integer * rank, real * work, integer * lwork,
2720  integer * info);
2721 extern int sgelsx_(integer * m, integer * n, integer * nrhs, real * a,
2722  integer * lda, real * b, integer * ldb, integer * jpvt,
2723  real * rcond, integer * rank, real * work, integer * info);
2724 extern int sgelsy_(integer * m, integer * n, integer * nrhs, real * a,
2725  integer * lda, real * b, integer * ldb, integer * jpvt,
2726  real * rcond, integer * rank, real * work, integer * lwork,
2727  integer * info);
2728 extern int sgeql2_(integer * m, integer * n, real * a, integer * lda,
2729  real * tau, real * work, integer * info);
2730 extern int sgeqlf_(integer * m, integer * n, real * a, integer * lda,
2731  real * tau, real * work, integer * lwork, integer * info);
2732 extern int sgeqp3_(integer * m, integer * n, real * a, integer * lda,
2733  integer * jpvt, real * tau, real * work, integer * lwork,
2734  integer * info);
2735 extern int sgeqpf_(integer * m, integer * n, real * a, integer * lda,
2736  integer * jpvt, real * tau, real * work, integer * info);
2737 extern int sgeqr2_(integer * m, integer * n, real * a, integer * lda,
2738  real * tau, real * work, integer * info);
2739 extern int sgeqrf_(integer * m, integer * n, real * a, integer * lda,
2740  real * tau, real * work, integer * lwork, integer * info);
2741 extern int sgerfs_(char *trans, integer * n, integer * nrhs, real * a,
2742  integer * lda, real * af, integer * ldaf, integer * ipiv,
2743  real * b, integer * ldb, real * x, integer * ldx,
2744  real * ferr, real * berr, real * work, integer * iwork,
2745  integer * info, ftnlen trans_len);
2746 extern int sgerq2_(integer * m, integer * n, real * a, integer * lda,
2747  real * tau, real * work, integer * info);
2748 extern int sgerqf_(integer * m, integer * n, real * a, integer * lda,
2749  real * tau, real * work, integer * lwork, integer * info);
2750 extern int sgesc2_(integer * n, real * a, integer * lda, real * rhs,
2751  integer * ipiv, integer * jpiv, real * scale);
2752 extern int sgesdd_(char *jobz, integer * m, integer * n, real * a,
2753  integer * lda, real * s, real * u, integer * ldu,
2754  real * vt, integer * ldvt, real * work, integer * lwork,
2755  integer * iwork, integer * info, ftnlen jobz_len);
2756 extern int sgesv_(integer * n, integer * nrhs, real * a, integer * lda,
2757  integer * ipiv, real * b, integer * ldb, integer * info);
2758 extern int sgesvd_(char *jobu, char *jobvt, integer * m, integer * n,
2759  real * a, integer * lda, real * s, real * u, integer * ldu,
2760  real * vt, integer * ldvt, real * work, integer * lwork,
2761  integer * info, ftnlen jobu_len, ftnlen jobvt_len);
2762 extern int sgesvx_(char *fact, char *trans, integer * n, integer * nrhs,
2763  real * a, integer * lda, real * af, integer * ldaf,
2764  integer * ipiv, char *equed, real * r__, real * c__,
2765  real * b, integer * ldb, real * x, integer * ldx,
2766  real * rcond, real * ferr, real * berr, real * work,
2767  integer * iwork, integer * info, ftnlen fact_len,
2768  ftnlen trans_len, ftnlen equed_len);
2769 extern int sgetc2_(integer * n, real * a, integer * lda, integer * ipiv,
2770  integer * jpiv, integer * info);
2771 extern int sgetf2_(integer * m, integer * n, real * a, integer * lda,
2772  integer * ipiv, integer * info);
2773 extern int sgetrf_(integer * m, integer * n, real * a, integer * lda,
2774  integer * ipiv, integer * info);
2775 extern int sgetri_(integer * n, real * a, integer * lda, integer * ipiv,
2776  real * work, integer * lwork, integer * info);
2777 extern int sgetrs_(char *trans, integer * n, integer * nrhs, real * a,
2778  integer * lda, integer * ipiv, real * b, integer * ldb,
2779  integer * info, ftnlen trans_len);
2780 extern int sggbak_(char *job, char *side, integer * n, integer * ilo,
2781  integer * ihi, real * lscale, real * rscale, integer * m,
2782  real * v, integer * ldv, integer * info, ftnlen job_len,
2783  ftnlen side_len);
2784 extern int sggbal_(char *job, integer * n, real * a, integer * lda, real * b,
2785  integer * ldb, integer * ilo, integer * ihi, real * lscale,
2786  real * rscale, real * work, integer * info,
2787  ftnlen job_len);
2788 extern int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg,
2789  integer * n, real * a, integer * lda, real * b,
2790  integer * ldb, integer * sdim, real * alphar, real * alphai,
2791  real * beta, real * vsl, integer * ldvsl, real * vsr,
2792  integer * ldvsr, real * work, integer * lwork,
2793  logical * bwork, integer * info, ftnlen jobvsl_len,
2794  ftnlen jobvsr_len, ftnlen sort_len);
2795 extern int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp selctg,
2796  char *sense, integer * n, real * a, integer * lda,
2797  real * b, integer * ldb, integer * sdim, real * alphar,
2798  real * alphai, real * beta, real * vsl, integer * ldvsl,
2799  real * vsr, integer * ldvsr, real * rconde, real * rcondv,
2800  real * work, integer * lwork, integer * iwork,
2801  integer * liwork, logical * bwork, integer * info,
2802  ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len,
2803  ftnlen sense_len);
2804 extern int sggev_(char *jobvl, char *jobvr, integer * n, real * a,
2805  integer * lda, real * b, integer * ldb, real * alphar,
2806  real * alphai, real * beta, real * vl, integer * ldvl,
2807  real * vr, integer * ldvr, real * work, integer * lwork,
2808  integer * info, ftnlen jobvl_len, ftnlen jobvr_len);
2809 extern int sggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
2810  integer * n, real * a, integer * lda, real * b,
2811  integer * ldb, real * alphar, real * alphai, real * beta,
2812  real * vl, integer * ldvl, real * vr, integer * ldvr,
2813  integer * ilo, integer * ihi, real * lscale, real * rscale,
2814  real * abnrm, real * bbnrm, real * rconde, real * rcondv,
2815  real * work, integer * lwork, integer * iwork,
2816  logical * bwork, integer * info, ftnlen balanc_len,
2817  ftnlen jobvl_len, ftnlen jobvr_len, ftnlen sense_len);
2818 extern int sggglm_(integer * n, integer * m, integer * p, real * a,
2819  integer * lda, real * b, integer * ldb, real * d__,
2820  real * x, real * y, real * work, integer * lwork,
2821  integer * info);
2822 extern int sgghrd_(char *compq, char *compz, integer * n, integer * ilo,
2823  integer * ihi, real * a, integer * lda, real * b,
2824  integer * ldb, real * q, integer * ldq, real * z__,
2825  integer * ldz, integer * info, ftnlen compq_len,
2826  ftnlen compz_len);
2827 extern int sgglse_(integer * m, integer * n, integer * p, real * a,
2828  integer * lda, real * b, integer * ldb, real * c__,
2829  real * d__, real * x, real * work, integer * lwork,
2830  integer * info);
2831 extern int sggqrf_(integer * n, integer * m, integer * p, real * a,
2832  integer * lda, real * taua, real * b, integer * ldb,
2833  real * taub, real * work, integer * lwork, integer * info);
2834 extern int sggrqf_(integer * m, integer * p, integer * n, real * a,
2835  integer * lda, real * taua, real * b, integer * ldb,
2836  real * taub, real * work, integer * lwork, integer * info);
2837 extern int sggsvd_(char *jobu, char *jobv, char *jobq, integer * m,
2838  integer * n, integer * p, integer * k, integer * l,
2839  real * a, integer * lda, real * b, integer * ldb,
2840  real * alpha, real * beta, real * u, integer * ldu,
2841  real * v, integer * ldv, real * q, integer * ldq,
2842  real * work, integer * iwork, integer * info,
2843  ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
2844 extern int sggsvp_(char *jobu, char *jobv, char *jobq, integer * m,
2845  integer * p, integer * n, real * a, integer * lda,
2846  real * b, integer * ldb, real * tola, real * tolb,
2847  integer * k, integer * l, real * u, integer * ldu,
2848  real * v, integer * ldv, real * q, integer * ldq,
2849  integer * iwork, real * tau, real * work, integer * info,
2850  ftnlen jobu_len, ftnlen jobv_len, ftnlen jobq_len);
2851 extern int sgtcon_(char *norm, integer * n, real * dl, real * d__, real * du,
2852  real * du2, integer * ipiv, real * anorm, real * rcond,
2853  real * work, integer * iwork, integer * info,
2854  ftnlen norm_len);
2855 extern int sgtrfs_(char *trans, integer * n, integer * nrhs, real * dl,
2856  real * d__, real * du, real * dlf, real * df, real * duf,
2857  real * du2, integer * ipiv, real * b, integer * ldb,
2858  real * x, integer * ldx, real * ferr, real * berr,
2859  real * work, integer * iwork, integer * info,
2860  ftnlen trans_len);
2861 extern int sgtsv_(integer * n, integer * nrhs, real * dl, real * d__,
2862  real * du, real * b, integer * ldb, integer * info);
2863 extern int sgtsvx_(char *fact, char *trans, integer * n, integer * nrhs,
2864  real * dl, real * d__, real * du, real * dlf, real * df,
2865  real * duf, real * du2, integer * ipiv, real * b,
2866  integer * ldb, real * x, integer * ldx, real * rcond,
2867  real * ferr, real * berr, real * work, integer * iwork,
2868  integer * info, ftnlen fact_len, ftnlen trans_len);
2869 extern int sgttrf_(integer * n, real * dl, real * d__, real * du, real * du2,
2870  integer * ipiv, integer * info);
2871 extern int sgttrs_(char *trans, integer * n, integer * nrhs, real * dl,
2872  real * d__, real * du, real * du2, integer * ipiv,
2873  real * b, integer * ldb, integer * info, ftnlen trans_len);
2874 extern int sgtts2_(integer * itrans, integer * n, integer * nrhs, real * dl,
2875  real * d__, real * du, real * du2, integer * ipiv,
2876  real * b, integer * ldb);
2877 extern int shgeqz_(char *job, char *compq, char *compz, integer * n,
2878  integer * ilo, integer * ihi, real * a, integer * lda,
2879  real * b, integer * ldb, real * alphar, real * alphai,
2880  real * beta, real * q, integer * ldq, real * z__,
2881  integer * ldz, real * work, integer * lwork,
2882  integer * info, ftnlen job_len, ftnlen compq_len,
2883  ftnlen compz_len);
2884 extern int shsein_(char *side, char *eigsrc, char *initv, logical * select,
2885  integer * n, real * h__, integer * ldh, real * wr,
2886  real * wi, real * vl, integer * ldvl, real * vr,
2887  integer * ldvr, integer * mm, integer * m, real * work,
2888  integer * ifaill, integer * ifailr, integer * info,
2889  ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
2890 extern int shseqr_(char *job, char *compz, integer * n, integer * ilo,
2891  integer * ihi, real * h__, integer * ldh, real * wr,
2892  real * wi, real * z__, integer * ldz, real * work,
2893  integer * lwork, integer * info, ftnlen job_len,
2894  ftnlen compz_len);
2895 extern int slabad_(real * small, real * large);
2896 extern int slabrd_(integer * m, integer * n, integer * nb, real * a,
2897  integer * lda, real * d__, real * e, real * tauq,
2898  real * taup, real * x, integer * ldx, real * y,
2899  integer * ldy);
2900 extern int slacon_(integer * n, real * v, real * x, integer * isgn,
2901  real * est, integer * kase);
2902 extern int slacpy_(char *uplo, integer * m, integer * n, real * a,
2903  integer * lda, real * b, integer * ldb, ftnlen uplo_len);
2904 extern int sladiv_(real * a, real * b, real * c__, real * d__, real * p,
2905  real * q);
2906 extern int slae2_(real * a, real * b, real * c__, real * rt1, real * rt2);
2907 extern int slaebz_(integer * ijob, integer * nitmax, integer * n,
2908  integer * mmax, integer * minp, integer * nbmin,
2909  real * abstol, real * reltol, real * pivmin, real * d__,
2910  real * e, real * e2, integer * nval, real * ab, real * c__,
2911  integer * mout, integer * nab, real * work,
2912  integer * iwork, integer * info);
2913 extern int slaed0_(integer * icompq, integer * qsiz, integer * n, real * d__,
2914  real * e, real * q, integer * ldq, real * qstore,
2915  integer * ldqs, real * work, integer * iwork,
2916  integer * info);
2917 extern int slaed1_(integer * n, real * d__, real * q, integer * ldq,
2918  integer * indxq, real * rho, integer * cutpnt, real * work,
2919  integer * iwork, integer * info);
2920 extern int slaed2_(integer * k, integer * n, integer * n1, real * d__,
2921  real * q, integer * ldq, integer * indxq, real * rho,
2922  real * z__, real * dlamda, real * w, real * q2,
2923  integer * indx, integer * indxc, integer * indxp,
2924  integer * coltyp, integer * info);
2925 extern int slaed3_(integer * k, integer * n, integer * n1, real * d__,
2926  real * q, integer * ldq, real * rho, real * dlamda,
2927  real * q2, integer * indx, integer * ctot, real * w,
2928  real * s, integer * info);
2929 extern int slaed4_(integer * n, integer * i__, real * d__, real * z__,
2930  real * delta, real * rho, real * dlam, integer * info);
2931 extern int slaed5_(integer * i__, real * d__, real * z__, real * delta,
2932  real * rho, real * dlam);
2933 extern int slaed6_(integer * kniter, logical * orgati, real * rho, real * d__,
2934  real * z__, real * finit, real * tau, integer * info);
2935 extern int slaed7_(integer * icompq, integer * n, integer * qsiz,
2936  integer * tlvls, integer * curlvl, integer * curpbm,
2937  real * d__, real * q, integer * ldq, integer * indxq,
2938  real * rho, integer * cutpnt, real * qstore,
2939  integer * qptr, integer * prmptr, integer * perm,
2940  integer * givptr, integer * givcol, real * givnum,
2941  real * work, integer * iwork, integer * info);
2942 extern int slaed8_(integer * icompq, integer * k, integer * n, integer * qsiz,
2943  real * d__, real * q, integer * ldq, integer * indxq,
2944  real * rho, integer * cutpnt, real * z__, real * dlamda,
2945  real * q2, integer * ldq2, real * w, integer * perm,
2946  integer * givptr, integer * givcol, real * givnum,
2947  integer * indxp, integer * indx, integer * info);
2948 extern int slaed9_(integer * k, integer * kstart, integer * kstop,
2949  integer * n, real * d__, real * q, integer * ldq,
2950  real * rho, real * dlamda, real * w, real * s,
2951  integer * lds, integer * info);
2952 extern int slaeda_(integer * n, integer * tlvls, integer * curlvl,
2953  integer * curpbm, integer * prmptr, integer * perm,
2954  integer * givptr, integer * givcol, real * givnum,
2955  real * q, integer * qptr, real * z__, real * ztemp,
2956  integer * info);
2957 extern int slaein_(logical * rightv, logical * noinit, integer * n,
2958  real * h__, integer * ldh, real * wr, real * wi, real * vr,
2959  real * vi, real * b, integer * ldb, real * work,
2960  real * eps3, real * smlnum, real * bignum, integer * info);
2961 extern int slaev2_(real * a, real * b, real * c__, real * rt1, real * rt2,
2962  real * cs1, real * sn1);
2963 extern int slaexc_(logical * wantq, integer * n, real * t, integer * ldt,
2964  real * q, integer * ldq, integer * j1, integer * n1,
2965  integer * n2, real * work, integer * info);
2966 extern int slag2_(real * a, integer * lda, real * b, integer * ldb,
2967  real * safmin, real * scale1, real * scale2, real * wr1,
2968  real * wr2, real * wi);
2969 extern int slags2_(logical * upper, real * a1, real * a2, real * a3,
2970  real * b1, real * b2, real * b3, real * csu, real * snu,
2971  real * csv, real * snv, real * csq, real * snq);
2972 extern int slagtf_(integer * n, real * a, real * lambda, real * b, real * c__,
2973  real * tol, real * d__, integer * in, integer * info);
2974 extern int slagtm_(char *trans, integer * n, integer * nrhs, real * alpha,
2975  real * dl, real * d__, real * du, real * x, integer * ldx,
2976  real * beta, real * b, integer * ldb, ftnlen trans_len);
2977 extern int slagts_(integer * job, integer * n, real * a, real * b, real * c__,
2978  real * d__, integer * in, real * y, real * tol,
2979  integer * info);
2980 extern int slagv2_(real * a, integer * lda, real * b, integer * ldb,
2981  real * alphar, real * alphai, real * beta, real * csl,
2982  real * snl, real * csr, real * snr);
2983 extern int slahqr_(logical * wantt, logical * wantz, integer * n,
2984  integer * ilo, integer * ihi, real * h__, integer * ldh,
2985  real * wr, real * wi, integer * iloz, integer * ihiz,
2986  real * z__, integer * ldz, integer * info);
2987 extern int slahrd_(integer * n, integer * k, integer * nb, real * a,
2988  integer * lda, real * tau, real * t, integer * ldt,
2989  real * y, integer * ldy);
2990 extern int slaic1_(integer * job, integer * j, real * x, real * sest,
2991  real * w, real * gamma, real * sestpr, real * s,
2992  real * c__);
2993 extern int slaln2_(logical * ltrans, integer * na, integer * nw, real * smin,
2994  real * ca, real * a, integer * lda, real * d1, real * d2,
2995  real * b, integer * ldb, real * wr, real * wi, real * x,
2996  integer * ldx, real * scale, real * xnorm, integer * info);
2997 extern int slals0_(integer * icompq, integer * nl, integer * nr,
2998  integer * sqre, integer * nrhs, real * b, integer * ldb,
2999  real * bx, integer * ldbx, integer * perm,
3000  integer * givptr, integer * givcol, integer * ldgcol,
3001  real * givnum, integer * ldgnum, real * poles, real * difl,
3002  real * difr, real * z__, integer * k, real * c__, real * s,
3003  real * work, integer * info);
3004 extern int slalsa_(integer * icompq, integer * smlsiz, integer * n,
3005  integer * nrhs, real * b, integer * ldb, real * bx,
3006  integer * ldbx, real * u, integer * ldu, real * vt,
3007  integer * k, real * difl, real * difr, real * z__,
3008  real * poles, integer * givptr, integer * givcol,
3009  integer * ldgcol, integer * perm, real * givnum,
3010  real * c__, real * s, real * work, integer * iwork,
3011  integer * info);
3012 extern int slalsd_(char *uplo, integer * smlsiz, integer * n, integer * nrhs,
3013  real * d__, real * e, real * b, integer * ldb,
3014  real * rcond, integer * rank, real * work, integer * iwork,
3015  integer * info, ftnlen uplo_len);
3016 extern E_f slamch_(char *cmach, ftnlen cmach_len);
3017 extern int slamc1_(integer * beta, integer * t, logical * rnd,
3018  logical * ieee1);
3019 extern int slamc2_(integer * beta, integer * t, logical * rnd, real * eps,
3020  integer * emin, real * rmin, integer * emax, real * rmax);
3021 extern E_f slamc3_(real * a, real * b);
3022 extern int slamc4_(integer * emin, real * start, integer * base);
3023 extern int slamc5_(integer * beta, integer * p, integer * emin,
3024  logical * ieee, integer * emax, real * rmax);
3025 extern int slamrg_(integer * n1, integer * n2, real * a, integer * strd1,
3026  integer * strd2, integer * index);
3027 extern E_f slangb_(char *norm, integer * n, integer * kl, integer * ku,
3028  real * ab, integer * ldab, real * work, ftnlen norm_len);
3029 extern E_f slange_(char *norm, integer * m, integer * n, real * a,
3030  integer * lda, real * work, ftnlen norm_len);
3031 extern E_f slangt_(char *norm, integer * n, real * dl, real * d__, real * du,
3032  ftnlen norm_len);
3033 extern E_f slanhs_(char *norm, integer * n, real * a, integer * lda,
3034  real * work, ftnlen norm_len);
3035 extern E_f slansb_(char *norm, char *uplo, integer * n, integer * k,
3036  real * ab, integer * ldab, real * work, ftnlen norm_len,
3037  ftnlen uplo_len);
3038 extern E_f slansp_(char *norm, char *uplo, integer * n, real * ap,
3039  real * work, ftnlen norm_len, ftnlen uplo_len);
3040 extern E_f slanst_(char *norm, integer * n, real * d__, real * e,
3041  ftnlen norm_len);
3042 extern E_f slansy_(char *norm, char *uplo, integer * n, real * a,
3043  integer * lda, real * work, ftnlen norm_len,
3044  ftnlen uplo_len);
3045 extern E_f slantb_(char *norm, char *uplo, char *diag, integer * n,
3046  integer * k, real * ab, integer * ldab, real * work,
3047  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
3048 extern E_f slantp_(char *norm, char *uplo, char *diag, integer * n, real * ap,
3049  real * work, ftnlen norm_len, ftnlen uplo_len,
3050  ftnlen diag_len);
3051 extern E_f slantr_(char *norm, char *uplo, char *diag, integer * m,
3052  integer * n, real * a, integer * lda, real * work,
3053  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
3054 extern int slanv2_(real * a, real * b, real * c__, real * d__, real * rt1r,
3055  real * rt1i, real * rt2r, real * rt2i, real * cs,
3056  real * sn);
3057 extern int slapll_(integer * n, real * x, integer * incx, real * y,
3058  integer * incy, real * ssmin);
3059 extern int slapmt_(logical * forwrd, integer * m, integer * n, real * x,
3060  integer * ldx, integer * k);
3061 extern E_f slapy2_(real * x, real * y);
3062 extern E_f slapy3_(real * x, real * y, real * z__);
3063 extern int slaqgb_(integer * m, integer * n, integer * kl, integer * ku,
3064  real * ab, integer * ldab, real * r__, real * c__,
3065  real * rowcnd, real * colcnd, real * amax, char *equed,
3066  ftnlen equed_len);
3067 extern int slaqge_(integer * m, integer * n, real * a, integer * lda,
3068  real * r__, real * c__, real * rowcnd, real * colcnd,
3069  real * amax, char *equed, ftnlen equed_len);
3070 extern int slaqp2_(integer * m, integer * n, integer * offset, real * a,
3071  integer * lda, integer * jpvt, real * tau, real * vn1,
3072  real * vn2, real * work);
3073 extern int slaqps_(integer * m, integer * n, integer * offset, integer * nb,
3074  integer * kb, real * a, integer * lda, integer * jpvt,
3075  real * tau, real * vn1, real * vn2, real * auxv, real * f,
3076  integer * ldf);
3077 extern int slaqsb_(char *uplo, integer * n, integer * kd, real * ab,
3078  integer * ldab, real * s, real * scond, real * amax,
3079  char *equed, ftnlen uplo_len, ftnlen equed_len);
3080 extern int slaqsp_(char *uplo, integer * n, real * ap, real * s, real * scond,
3081  real * amax, char *equed, ftnlen uplo_len,
3082  ftnlen equed_len);
3083 extern int slaqsy_(char *uplo, integer * n, real * a, integer * lda, real * s,
3084  real * scond, real * amax, char *equed, ftnlen uplo_len,
3085  ftnlen equed_len);
3086 extern int slaqtr_(logical * ltran, logical * lreal, integer * n, real * t,
3087  integer * ldt, real * b, real * w, real * scale, real * x,
3088  real * work, integer * info);
3089 extern int slar1v_(integer * n, integer * b1, integer * bn, real * sigma,
3090  real * d__, real * l, real * ld, real * lld, real * gersch,
3091  real * z__, real * ztz, real * mingma, integer * r__,
3092  integer * isuppz, real * work);
3093 extern int slar2v_(integer * n, real * x, real * y, real * z__,
3094  integer * incx, real * c__, real * s, integer * incc);
3095 extern int slarf_(char *side, integer * m, integer * n, real * v,
3096  integer * incv, real * tau, real * c__, integer * ldc,
3097  real * work, ftnlen side_len);
3098 extern int slarfb_(char *side, char *trans, char *direct, char *storev,
3099  integer * m, integer * n, integer * k, real * v,
3100  integer * ldv, real * t, integer * ldt, real * c__,
3101  integer * ldc, real * work, integer * ldwork,
3102  ftnlen side_len, ftnlen trans_len, ftnlen direct_len,
3103  ftnlen storev_len);
3104 extern int slarfg_(integer * n, real * alpha, real * x, integer * incx,
3105  real * tau);
3106 extern int slarft_(char *direct, char *storev, integer * n, integer * k,
3107  real * v, integer * ldv, real * tau, real * t,
3108  integer * ldt, ftnlen direct_len, ftnlen storev_len);
3109 extern int slarfx_(char *side, integer * m, integer * n, real * v, real * tau,
3110  real * c__, integer * ldc, real * work, ftnlen side_len);
3111 extern int slargv_(integer * n, real * x, integer * incx, real * y,
3112  integer * incy, real * c__, integer * incc);
3113 extern int slarnv_(integer * idist, integer * iseed, integer * n, real * x);
3114 extern int slarrb_(integer * n, real * d__, real * l, real * ld, real * lld,
3115  integer * ifirst, integer * ilast, real * sigma,
3116  real * reltol, real * w, real * wgap, real * werr,
3117  real * work, integer * iwork, integer * info);
3118 extern int slarre_(integer * n, real * d__, real * e, real * tol,
3119  integer * nsplit, integer * isplit, integer * m, real * w,
3120  real * woff, real * gersch, real * work, integer * info);
3121 extern int slarrf_(integer * n, real * d__, real * l, real * ld, real * lld,
3122  integer * ifirst, integer * ilast, real * w, real * dplus,
3123  real * lplus, real * work, integer * iwork,
3124  integer * info);
3125 extern int slarrv_(integer * n, real * d__, real * l, integer * isplit,
3126  integer * m, real * w, integer * iblock, real * gersch,
3127  real * tol, real * z__, integer * ldz, integer * isuppz,
3128  real * work, integer * iwork, integer * info);
3129 extern int slartg_(real * f, real * g, real * cs, real * sn, real * r__);
3130 extern int slartv_(integer * n, real * x, integer * incx, real * y,
3131  integer * incy, real * c__, real * s, integer * incc);
3132 extern int slaruv_(integer * iseed, integer * n, real * x);
3133 extern int slarz_(char *side, integer * m, integer * n, integer * l, real * v,
3134  integer * incv, real * tau, real * c__, integer * ldc,
3135  real * work, ftnlen side_len);
3136 extern int slarzb_(char *side, char *trans, char *direct, char *storev,
3137  integer * m, integer * n, integer * k, integer * l,
3138  real * v, integer * ldv, real * t, integer * ldt,
3139  real * c__, integer * ldc, real * work, integer * ldwork,
3140  ftnlen side_len, ftnlen trans_len, ftnlen direct_len,
3141  ftnlen storev_len);
3142 extern int slarzt_(char *direct, char *storev, integer * n, integer * k,
3143  real * v, integer * ldv, real * tau, real * t,
3144  integer * ldt, ftnlen direct_len, ftnlen storev_len);
3145 extern int slas2_(real * f, real * g, real * h__, real * ssmin, real * ssmax);
3146 extern int slascl_(char *type__, integer * kl, integer * ku, real * cfrom,
3147  real * cto, integer * m, integer * n, real * a,
3148  integer * lda, integer * info, ftnlen type_len);
3149 extern int slasd0_(integer * n, integer * sqre, real * d__, real * e,
3150  real * u, integer * ldu, real * vt, integer * ldvt,
3151  integer * smlsiz, integer * iwork, real * work,
3152  integer * info);
3153 extern int slasd1_(integer * nl, integer * nr, integer * sqre, real * d__,
3154  real * alpha, real * beta, real * u, integer * ldu,
3155  real * vt, integer * ldvt, integer * idxq, integer * iwork,
3156  real * work, integer * info);
3157 extern int slasd2_(integer * nl, integer * nr, integer * sqre, integer * k,
3158  real * d__, real * z__, real * alpha, real * beta,
3159  real * u, integer * ldu, real * vt, integer * ldvt,
3160  real * dsigma, real * u2, integer * ldu2, real * vt2,
3161  integer * ldvt2, integer * idxp, integer * idx,
3162  integer * idxc, integer * idxq, integer * coltyp,
3163  integer * info);
3164 extern int slasd3_(integer * nl, integer * nr, integer * sqre, integer * k,
3165  real * d__, real * q, integer * ldq, real * dsigma,
3166  real * u, integer * ldu, real * u2, integer * ldu2,
3167  real * vt, integer * ldvt, real * vt2, integer * ldvt2,
3168  integer * idxc, integer * ctot, real * z__,
3169  integer * info);
3170 extern int slasd4_(integer * n, integer * i__, real * d__, real * z__,
3171  real * delta, real * rho, real * sigma, real * work,
3172  integer * info);
3173 extern int slasd5_(integer * i__, real * d__, real * z__, real * delta,
3174  real * rho, real * dsigma, real * work);
3175 extern int slasd6_(integer * icompq, integer * nl, integer * nr,
3176  integer * sqre, real * d__, real * vf, real * vl,
3177  real * alpha, real * beta, integer * idxq, integer * perm,
3178  integer * givptr, integer * givcol, integer * ldgcol,
3179  real * givnum, integer * ldgnum, real * poles, real * difl,
3180  real * difr, real * z__, integer * k, real * c__, real * s,
3181  real * work, integer * iwork, integer * info);
3182 extern int slasd7_(integer * icompq, integer * nl, integer * nr,
3183  integer * sqre, integer * k, real * d__, real * z__,
3184  real * zw, real * vf, real * vfw, real * vl, real * vlw,
3185  real * alpha, real * beta, real * dsigma, integer * idx,
3186  integer * idxp, integer * idxq, integer * perm,
3187  integer * givptr, integer * givcol, integer * ldgcol,
3188  real * givnum, integer * ldgnum, real * c__, real * s,
3189  integer * info);
3190 extern int slasd8_(integer * icompq, integer * k, real * d__, real * z__,
3191  real * vf, real * vl, real * difl, real * difr,
3192  integer * lddifr, real * dsigma, real * work,
3193  integer * info);
3194 extern int slasd9_(integer * icompq, integer * ldu, integer * k, real * d__,
3195  real * z__, real * vf, real * vl, real * difl, real * difr,
3196  real * dsigma, real * work, integer * info);
3197 extern int slasda_(integer * icompq, integer * smlsiz, integer * n,
3198  integer * sqre, real * d__, real * e, real * u,
3199  integer * ldu, real * vt, integer * k, real * difl,
3200  real * difr, real * z__, real * poles, integer * givptr,
3201  integer * givcol, integer * ldgcol, integer * perm,
3202  real * givnum, real * c__, real * s, real * work,
3203  integer * iwork, integer * info);
3204 extern int slasdq_(char *uplo, integer * sqre, integer * n, integer * ncvt,
3205  integer * nru, integer * ncc, real * d__, real * e,
3206  real * vt, integer * ldvt, real * u, integer * ldu,
3207  real * c__, integer * ldc, real * work, integer * info,
3208  ftnlen uplo_len);
3209 extern int slasdt_(integer * n, integer * lvl, integer * nd, integer * inode,
3210  integer * ndiml, integer * ndimr, integer * msub);
3211 extern int slaset_(char *uplo, integer * m, integer * n, real * alpha,
3212  real * beta, real * a, integer * lda, ftnlen uplo_len);
3213 extern int slasq1_(integer * n, real * d__, real * e, real * work,
3214  integer * info);
3215 extern int slasq2_(integer * n, real * z__, integer * info);
3216 extern int slasq3_(integer * i0, integer * n0, real * z__, integer * pp,
3217  real * dmin__, real * sigma, real * desig, real * qmax,
3218  integer * nfail, integer * iter, integer * ndiv);
3219 extern int slasq4_(integer * i0, integer * n0, real * z__, integer * pp,
3220  integer * n0in, real * dmin__, real * dmin1, real * dmin2,
3221  real * dn, real * dn1, real * dn2, real * tau,
3222  integer * ttype);
3223 extern int slasq5_(integer * i0, integer * n0, real * z__, integer * pp,
3224  real * tau, real * dmin__, real * dmin1, real * dmin2,
3225  real * dn, real * dnm1, real * dnm2);
3226 extern int slasq6_(integer * i0, integer * n0, real * z__, integer * pp,
3227  real * dmin__, real * dmin1, real * dmin2, real * dn,
3228  real * dnm1, real * dnm2);
3229 extern int slasr_(char *side, char *pivot, char *direct, integer * m,
3230  integer * n, real * c__, real * s, real * a, integer * lda,
3231  ftnlen side_len, ftnlen pivot_len, ftnlen direct_len);
3232 extern int slasrt_(char *id, integer * n, real * d__, integer * info,
3233  ftnlen id_len);
3234 extern int slassq_(integer * n, real * x, integer * incx, real * scale,
3235  real * sumsq);
3236 extern int slasv2_(real * f, real * g, real * h__, real * ssmin, real * ssmax,
3237  real * snr, real * csr, real * snl, real * csl);
3238 extern int slaswp_(integer * n, real * a, integer * lda, integer * k1,
3239  integer * k2, integer * ipiv, integer * incx);
3240 extern int slasy2_(logical * ltranl, logical * ltranr, integer * isgn,
3241  integer * n1, integer * n2, real * tl, integer * ldtl,
3242  real * tr, integer * ldtr, real * b, integer * ldb,
3243  real * scale, real * x, integer * ldx, real * xnorm,
3244  integer * info);
3245 extern int slasyf_(char *uplo, integer * n, integer * nb, integer * kb,
3246  real * a, integer * lda, integer * ipiv, real * w,
3247  integer * ldw, integer * info, ftnlen uplo_len);
3248 extern int slatbs_(char *uplo, char *trans, char *diag, char *normin,
3249  integer * n, integer * kd, real * ab, integer * ldab,
3250  real * x, real * scale, real * cnorm, integer * info,
3251  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
3252  ftnlen normin_len);
3253 extern int slatdf_(integer * ijob, integer * n, real * z__, integer * ldz,
3254  real * rhs, real * rdsum, real * rdscal, integer * ipiv,
3255  integer * jpiv);
3256 extern int slatps_(char *uplo, char *trans, char *diag, char *normin,
3257  integer * n, real * ap, real * x, real * scale,
3258  real * cnorm, integer * info, ftnlen uplo_len,
3259  ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
3260 extern int slatrd_(char *uplo, integer * n, integer * nb, real * a,
3261  integer * lda, real * e, real * tau, real * w,
3262  integer * ldw, ftnlen uplo_len);
3263 extern int slatrs_(char *uplo, char *trans, char *diag, char *normin,
3264  integer * n, real * a, integer * lda, real * x,
3265  real * scale, real * cnorm, integer * info,
3266  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
3267  ftnlen normin_len);
3268 extern int slatrz_(integer * m, integer * n, integer * l, real * a,
3269  integer * lda, real * tau, real * work);
3270 extern int slatzm_(char *side, integer * m, integer * n, real * v,
3271  integer * incv, real * tau, real * c1, real * c2,
3272  integer * ldc, real * work, ftnlen side_len);
3273 extern int slauu2_(char *uplo, integer * n, real * a, integer * lda,
3274  integer * info, ftnlen uplo_len);
3275 extern int slauum_(char *uplo, integer * n, real * a, integer * lda,
3276  integer * info, ftnlen uplo_len);
3277 extern int sopgtr_(char *uplo, integer * n, real * ap, real * tau, real * q,
3278  integer * ldq, real * work, integer * info,
3279  ftnlen uplo_len);
3280 extern int sopmtr_(char *side, char *uplo, char *trans, integer * m,
3281  integer * n, real * ap, real * tau, real * c__,
3282  integer * ldc, real * work, integer * info,
3283  ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
3284 extern int sorg2l_(integer * m, integer * n, integer * k, real * a,
3285  integer * lda, real * tau, real * work, integer * info);
3286 extern int sorg2r_(integer * m, integer * n, integer * k, real * a,
3287  integer * lda, real * tau, real * work, integer * info);
3288 extern int sorgbr_(char *vect, integer * m, integer * n, integer * k,
3289  real * a, integer * lda, real * tau, real * work,
3290  integer * lwork, integer * info, ftnlen vect_len);
3291 extern int sorghr_(integer * n, integer * ilo, integer * ihi, real * a,
3292  integer * lda, real * tau, real * work, integer * lwork,
3293  integer * info);
3294 extern int sorgl2_(integer * m, integer * n, integer * k, real * a,
3295  integer * lda, real * tau, real * work, integer * info);
3296 extern int sorglq_(integer * m, integer * n, integer * k, real * a,
3297  integer * lda, real * tau, real * work, integer * lwork,
3298  integer * info);
3299 extern int sorgql_(integer * m, integer * n, integer * k, real * a,
3300  integer * lda, real * tau, real * work, integer * lwork,
3301  integer * info);
3302 extern int sorgqr_(integer * m, integer * n, integer * k, real * a,
3303  integer * lda, real * tau, real * work, integer * lwork,
3304  integer * info);
3305 extern int sorgr2_(integer * m, integer * n, integer * k, real * a,
3306  integer * lda, real * tau, real * work, integer * info);
3307 extern int sorgrq_(integer * m, integer * n, integer * k, real * a,
3308  integer * lda, real * tau, real * work, integer * lwork,
3309  integer * info);
3310 extern int sorgtr_(char *uplo, integer * n, real * a, integer * lda,
3311  real * tau, real * work, integer * lwork, integer * info,
3312  ftnlen uplo_len);
3313 extern int sorm2l_(char *side, char *trans, integer * m, integer * n,
3314  integer * k, real * a, integer * lda, real * tau,
3315  real * c__, integer * ldc, real * work, integer * info,
3316  ftnlen side_len, ftnlen trans_len);
3317 extern int sorm2r_(char *side, char *trans, integer * m, integer * n,
3318  integer * k, real * a, integer * lda, real * tau,
3319  real * c__, integer * ldc, real * work, integer * info,
3320  ftnlen side_len, ftnlen trans_len);
3321 extern int sormbr_(char *vect, char *side, char *trans, integer * m,
3322  integer * n, integer * k, real * a, integer * lda,
3323  real * tau, real * c__, integer * ldc, real * work,
3324  integer * lwork, integer * info, ftnlen vect_len,
3325  ftnlen side_len, ftnlen trans_len);
3326 extern int sormhr_(char *side, char *trans, integer * m, integer * n,
3327  integer * ilo, integer * ihi, real * a, integer * lda,
3328  real * tau, real * c__, integer * ldc, real * work,
3329  integer * lwork, integer * info, ftnlen side_len,
3330  ftnlen trans_len);
3331 extern int sorml2_(char *side, char *trans, integer * m, integer * n,
3332  integer * k, real * a, integer * lda, real * tau,
3333  real * c__, integer * ldc, real * work, integer * info,
3334  ftnlen side_len, ftnlen trans_len);
3335 extern int sormlq_(char *side, char *trans, integer * m, integer * n,
3336  integer * k, real * a, integer * lda, real * tau,
3337  real * c__, integer * ldc, real * work, integer * lwork,
3338  integer * info, ftnlen side_len, ftnlen trans_len);
3339 extern int sormql_(char *side, char *trans, integer * m, integer * n,
3340  integer * k, real * a, integer * lda, real * tau,
3341  real * c__, integer * ldc, real * work, integer * lwork,
3342  integer * info, ftnlen side_len, ftnlen trans_len);
3343 extern int sormqr_(char *side, char *trans, integer * m, integer * n,
3344  integer * k, real * a, integer * lda, real * tau,
3345  real * c__, integer * ldc, real * work, integer * lwork,
3346  integer * info, ftnlen side_len, ftnlen trans_len);
3347 extern int sormr2_(char *side, char *trans, integer * m, integer * n,
3348  integer * k, real * a, integer * lda, real * tau,
3349  real * c__, integer * ldc, real * work, integer * info,
3350  ftnlen side_len, ftnlen trans_len);
3351 extern int sormr3_(char *side, char *trans, integer * m, integer * n,
3352  integer * k, integer * l, real * a, integer * lda,
3353  real * tau, real * c__, integer * ldc, real * work,
3354  integer * info, ftnlen side_len, ftnlen trans_len);
3355 extern int sormrq_(char *side, char *trans, integer * m, integer * n,
3356  integer * k, real * a, integer * lda, real * tau,
3357  real * c__, integer * ldc, real * work, integer * lwork,
3358  integer * info, ftnlen side_len, ftnlen trans_len);
3359 extern int sormrz_(char *side, char *trans, integer * m, integer * n,
3360  integer * k, integer * l, real * a, integer * lda,
3361  real * tau, real * c__, integer * ldc, real * work,
3362  integer * lwork, integer * info, ftnlen side_len,
3363  ftnlen trans_len);
3364 extern int sormtr_(char *side, char *uplo, char *trans, integer * m,
3365  integer * n, real * a, integer * lda, real * tau,
3366  real * c__, integer * ldc, real * work, integer * lwork,
3367  integer * info, ftnlen side_len, ftnlen uplo_len,
3368  ftnlen trans_len);
3369 extern int spbcon_(char *uplo, integer * n, integer * kd, real * ab,
3370  integer * ldab, real * anorm, real * rcond, real * work,
3371  integer * iwork, integer * info, ftnlen uplo_len);
3372 extern int spbequ_(char *uplo, integer * n, integer * kd, real * ab,
3373  integer * ldab, real * s, real * scond, real * amax,
3374  integer * info, ftnlen uplo_len);
3375 extern int spbrfs_(char *uplo, integer * n, integer * kd, integer * nrhs,
3376  real * ab, integer * ldab, real * afb, integer * ldafb,
3377  real * b, integer * ldb, real * x, integer * ldx,
3378  real * ferr, real * berr, real * work, integer * iwork,
3379  integer * info, ftnlen uplo_len);
3380 extern int spbstf_(char *uplo, integer * n, integer * kd, real * ab,
3381  integer * ldab, integer * info, ftnlen uplo_len);
3382 extern int spbsv_(char *uplo, integer * n, integer * kd, integer * nrhs,
3383  real * ab, integer * ldab, real * b, integer * ldb,
3384  integer * info, ftnlen uplo_len);
3385 extern int spbsvx_(char *fact, char *uplo, integer * n, integer * kd,
3386  integer * nrhs, real * ab, integer * ldab, real * afb,
3387  integer * ldafb, char *equed, real * s, real * b,
3388  integer * ldb, real * x, integer * ldx, real * rcond,
3389  real * ferr, real * berr, real * work, integer * iwork,
3390  integer * info, ftnlen fact_len, ftnlen uplo_len,
3391  ftnlen equed_len);
3392 extern int spbtf2_(char *uplo, integer * n, integer * kd, real * ab,
3393  integer * ldab, integer * info, ftnlen uplo_len);
3394 extern int spbtrf_(char *uplo, integer * n, integer * kd, real * ab,
3395  integer * ldab, integer * info, ftnlen uplo_len);
3396 extern int spbtrs_(char *uplo, integer * n, integer * kd, integer * nrhs,
3397  real * ab, integer * ldab, real * b, integer * ldb,
3398  integer * info, ftnlen uplo_len);
3399 extern int spocon_(char *uplo, integer * n, real * a, integer * lda,
3400  real * anorm, real * rcond, real * work, integer * iwork,
3401  integer * info, ftnlen uplo_len);
3402 extern int spoequ_(integer * n, real * a, integer * lda, real * s,
3403  real * scond, real * amax, integer * info);
3404 extern int sporfs_(char *uplo, integer * n, integer * nrhs, real * a,
3405  integer * lda, real * af, integer * ldaf, real * b,
3406  integer * ldb, real * x, integer * ldx, real * ferr,
3407  real * berr, real * work, integer * iwork, integer * info,
3408  ftnlen uplo_len);
3409 extern int sposv_(char *uplo, integer * n, integer * nrhs, real * a,
3410  integer * lda, real * b, integer * ldb, integer * info,
3411  ftnlen uplo_len);
3412 extern int sposvx_(char *fact, char *uplo, integer * n, integer * nrhs,
3413  real * a, integer * lda, real * af, integer * ldaf,
3414  char *equed, real * s, real * b, integer * ldb, real * x,
3415  integer * ldx, real * rcond, real * ferr, real * berr,
3416  real * work, integer * iwork, integer * info,
3417  ftnlen fact_len, ftnlen uplo_len, ftnlen equed_len);
3418 extern int spotf2_(char *uplo, integer * n, real * a, integer * lda,
3419  integer * info, ftnlen uplo_len);
3420 extern int spotrf_(char *uplo, integer * n, real * a, integer * lda,
3421  integer * info, ftnlen uplo_len);
3422 extern int spotri_(char *uplo, integer * n, real * a, integer * lda,
3423  integer * info, ftnlen uplo_len);
3424 extern int spotrs_(char *uplo, integer * n, integer * nrhs, real * a,
3425  integer * lda, real * b, integer * ldb, integer * info,
3426  ftnlen uplo_len);
3427 extern int sppcon_(char *uplo, integer * n, real * ap, real * anorm,
3428  real * rcond, real * work, integer * iwork, integer * info,
3429  ftnlen uplo_len);
3430 extern int sppequ_(char *uplo, integer * n, real * ap, real * s, real * scond,
3431  real * amax, integer * info, ftnlen uplo_len);
3432 extern int spprfs_(char *uplo, integer * n, integer * nrhs, real * ap,
3433  real * afp, real * b, integer * ldb, real * x,
3434  integer * ldx, real * ferr, real * berr, real * work,
3435  integer * iwork, integer * info, ftnlen uplo_len);
3436 extern int sppsv_(char *uplo, integer * n, integer * nrhs, real * ap,
3437  real * b, integer * ldb, integer * info, ftnlen uplo_len);
3438 extern int sppsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
3439  real * ap, real * afp, char *equed, real * s, real * b,
3440  integer * ldb, real * x, integer * ldx, real * rcond,
3441  real * ferr, real * berr, real * work, integer * iwork,
3442  integer * info, ftnlen fact_len, ftnlen uplo_len,
3443  ftnlen equed_len);
3444 extern int spptrf_(char *uplo, integer * n, real * ap, integer * info,
3445  ftnlen uplo_len);
3446 extern int spptri_(char *uplo, integer * n, real * ap, integer * info,
3447  ftnlen uplo_len);
3448 extern int spptrs_(char *uplo, integer * n, integer * nrhs, real * ap,
3449  real * b, integer * ldb, integer * info, ftnlen uplo_len);
3450 extern int sptcon_(integer * n, real * d__, real * e, real * anorm,
3451  real * rcond, real * work, integer * info);
3452 extern int spteqr_(char *compz, integer * n, real * d__, real * e, real * z__,
3453  integer * ldz, real * work, integer * info,
3454  ftnlen compz_len);
3455 extern int sptrfs_(integer * n, integer * nrhs, real * d__, real * e,
3456  real * df, real * ef, real * b, integer * ldb, real * x,
3457  integer * ldx, real * ferr, real * berr, real * work,
3458  integer * info);
3459 extern int sptsv_(integer * n, integer * nrhs, real * d__, real * e, real * b,
3460  integer * ldb, integer * info);
3461 extern int sptsvx_(char *fact, integer * n, integer * nrhs, real * d__,
3462  real * e, real * df, real * ef, real * b, integer * ldb,
3463  real * x, integer * ldx, real * rcond, real * ferr,
3464  real * berr, real * work, integer * info, ftnlen fact_len);
3465 extern int spttrf_(integer * n, real * d__, real * e, integer * info);
3466 extern int spttrs_(integer * n, integer * nrhs, real * d__, real * e,
3467  real * b, integer * ldb, integer * info);
3468 extern int sptts2_(integer * n, integer * nrhs, real * d__, real * e,
3469  real * b, integer * ldb);
3470 extern int srscl_(integer * n, real * sa, real * sx, integer * incx);
3471 extern int ssbev_(char *jobz, char *uplo, integer * n, integer * kd,
3472  real * ab, integer * ldab, real * w, real * z__,
3473  integer * ldz, real * work, integer * info, ftnlen jobz_len,
3474  ftnlen uplo_len);
3475 extern int ssbevd_(char *jobz, char *uplo, integer * n, integer * kd,
3476  real * ab, integer * ldab, real * w, real * z__,
3477  integer * ldz, real * work, integer * lwork,
3478  integer * iwork, integer * liwork, integer * info,
3479  ftnlen jobz_len, ftnlen uplo_len);
3480 extern int ssbevx_(char *jobz, char *range, char *uplo, integer * n,
3481  integer * kd, real * ab, integer * ldab, real * q,
3482  integer * ldq, real * vl, real * vu, integer * il,
3483  integer * iu, real * abstol, integer * m, real * w,
3484  real * z__, integer * ldz, real * work, integer * iwork,
3485  integer * ifail, integer * info, ftnlen jobz_len,
3486  ftnlen range_len, ftnlen uplo_len);
3487 extern int ssbgst_(char *vect, char *uplo, integer * n, integer * ka,
3488  integer * kb, real * ab, integer * ldab, real * bb,
3489  integer * ldbb, real * x, integer * ldx, real * work,
3490  integer * info, ftnlen vect_len, ftnlen uplo_len);
3491 extern int ssbgv_(char *jobz, char *uplo, integer * n, integer * ka,
3492  integer * kb, real * ab, integer * ldab, real * bb,
3493  integer * ldbb, real * w, real * z__, integer * ldz,
3494  real * work, integer * info, ftnlen jobz_len,
3495  ftnlen uplo_len);
3496 extern int ssbgvd_(char *jobz, char *uplo, integer * n, integer * ka,
3497  integer * kb, real * ab, integer * ldab, real * bb,
3498  integer * ldbb, real * w, real * z__, integer * ldz,
3499  real * work, integer * lwork, integer * iwork,
3500  integer * liwork, integer * info, ftnlen jobz_len,
3501  ftnlen uplo_len);
3502 extern int ssbgvx_(char *jobz, char *range, char *uplo, integer * n,
3503  integer * ka, integer * kb, real * ab, integer * ldab,
3504  real * bb, integer * ldbb, real * q, integer * ldq,
3505  real * vl, real * vu, integer * il, integer * iu,
3506  real * abstol, integer * m, real * w, real * z__,
3507  integer * ldz, real * work, integer * iwork,
3508  integer * ifail, integer * info, ftnlen jobz_len,
3509  ftnlen range_len, ftnlen uplo_len);
3510 extern int ssbtrd_(char *vect, char *uplo, integer * n, integer * kd,
3511  real * ab, integer * ldab, real * d__, real * e, real * q,
3512  integer * ldq, real * work, integer * info,
3513  ftnlen vect_len, ftnlen uplo_len);
3514 extern int sspcon_(char *uplo, integer * n, real * ap, integer * ipiv,
3515  real * anorm, real * rcond, real * work, integer * iwork,
3516  integer * info, ftnlen uplo_len);
3517 extern int sspev_(char *jobz, char *uplo, integer * n, real * ap, real * w,
3518  real * z__, integer * ldz, real * work, integer * info,
3519  ftnlen jobz_len, ftnlen uplo_len);
3520 extern int sspevd_(char *jobz, char *uplo, integer * n, real * ap, real * w,
3521  real * z__, integer * ldz, real * work, integer * lwork,
3522  integer * iwork, integer * liwork, integer * info,
3523  ftnlen jobz_len, ftnlen uplo_len);
3524 extern int sspevx_(char *jobz, char *range, char *uplo, integer * n,
3525  real * ap, real * vl, real * vu, integer * il,
3526  integer * iu, real * abstol, integer * m, real * w,
3527  real * z__, integer * ldz, real * work, integer * iwork,
3528  integer * ifail, integer * info, ftnlen jobz_len,
3529  ftnlen range_len, ftnlen uplo_len);
3530 extern int sspgst_(integer * itype, char *uplo, integer * n, real * ap,
3531  real * bp, integer * info, ftnlen uplo_len);
3532 extern int sspgv_(integer * itype, char *jobz, char *uplo, integer * n,
3533  real * ap, real * bp, real * w, real * z__, integer * ldz,
3534  real * work, integer * info, ftnlen jobz_len,
3535  ftnlen uplo_len);
3536 extern int sspgvd_(integer * itype, char *jobz, char *uplo, integer * n,
3537  real * ap, real * bp, real * w, real * z__, integer * ldz,
3538  real * work, integer * lwork, integer * iwork,
3539  integer * liwork, integer * info, ftnlen jobz_len,
3540  ftnlen uplo_len);
3541 extern int sspgvx_(integer * itype, char *jobz, char *range, char *uplo,
3542  integer * n, real * ap, real * bp, real * vl, real * vu,
3543  integer * il, integer * iu, real * abstol, integer * m,
3544  real * w, real * z__, integer * ldz, real * work,
3545  integer * iwork, integer * ifail, integer * info,
3546  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
3547 extern int ssprfs_(char *uplo, integer * n, integer * nrhs, real * ap,
3548  real * afp, integer * ipiv, real * b, integer * ldb,
3549  real * x, integer * ldx, real * ferr, real * berr,
3550  real * work, integer * iwork, integer * info,
3551  ftnlen uplo_len);
3552 extern int sspsv_(char *uplo, integer * n, integer * nrhs, real * ap,
3553  integer * ipiv, real * b, integer * ldb, integer * info,
3554  ftnlen uplo_len);
3555 extern int sspsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
3556  real * ap, real * afp, integer * ipiv, real * b,
3557  integer * ldb, real * x, integer * ldx, real * rcond,
3558  real * ferr, real * berr, real * work, integer * iwork,
3559  integer * info, ftnlen fact_len, ftnlen uplo_len);
3560 extern int ssptrd_(char *uplo, integer * n, real * ap, real * d__, real * e,
3561  real * tau, integer * info, ftnlen uplo_len);
3562 extern int ssptrf_(char *uplo, integer * n, real * ap, integer * ipiv,
3563  integer * info, ftnlen uplo_len);
3564 extern int ssptri_(char *uplo, integer * n, real * ap, integer * ipiv,
3565  real * work, integer * info, ftnlen uplo_len);
3566 extern int ssptrs_(char *uplo, integer * n, integer * nrhs, real * ap,
3567  integer * ipiv, real * b, integer * ldb, integer * info,
3568  ftnlen uplo_len);
3569 extern int sstebz_(char *range, char *order, integer * n, real * vl,
3570  real * vu, integer * il, integer * iu, real * abstol,
3571  real * d__, real * e, integer * m, integer * nsplit,
3572  real * w, integer * iblock, integer * isplit, real * work,
3573  integer * iwork, integer * info, ftnlen range_len,
3574  ftnlen order_len);
3575 extern int sstedc_(char *compz, integer * n, real * d__, real * e, real * z__,
3576  integer * ldz, real * work, integer * lwork,
3577  integer * iwork, integer * liwork, integer * info,
3578  ftnlen compz_len);
3579 extern int sstegr_(char *jobz, char *range, integer * n, real * d__, real * e,
3580  real * vl, real * vu, integer * il, integer * iu,
3581  real * abstol, integer * m, real * w, real * z__,
3582  integer * ldz, integer * isuppz, real * work,
3583  integer * lwork, integer * iwork, integer * liwork,
3584  integer * info, ftnlen jobz_len, ftnlen range_len);
3585 extern int sstein_(integer * n, real * d__, real * e, integer * m, real * w,
3586  integer * iblock, integer * isplit, real * z__,
3587  integer * ldz, real * work, integer * iwork,
3588  integer * ifail, integer * info);
3589 extern int ssteqr_(char *compz, integer * n, real * d__, real * e, real * z__,
3590  integer * ldz, real * work, integer * info,
3591  ftnlen compz_len);
3592 extern int ssterf_(integer * n, real * d__, real * e, integer * info);
3593 extern int sstev_(char *jobz, integer * n, real * d__, real * e, real * z__,
3594  integer * ldz, real * work, integer * info,
3595  ftnlen jobz_len);
3596 extern int sstevd_(char *jobz, integer * n, real * d__, real * e, real * z__,
3597  integer * ldz, real * work, integer * lwork,
3598  integer * iwork, integer * liwork, integer * info,
3599  ftnlen jobz_len);
3600 extern int sstevr_(char *jobz, char *range, integer * n, real * d__, real * e,
3601  real * vl, real * vu, integer * il, integer * iu,
3602  real * abstol, integer * m, real * w, real * z__,
3603  integer * ldz, integer * isuppz, real * work,
3604  integer * lwork, integer * iwork, integer * liwork,
3605  integer * info, ftnlen jobz_len, ftnlen range_len);
3606 extern int sstevx_(char *jobz, char *range, integer * n, real * d__, real * e,
3607  real * vl, real * vu, integer * il, integer * iu,
3608  real * abstol, integer * m, real * w, real * z__,
3609  integer * ldz, real * work, integer * iwork,
3610  integer * ifail, integer * info, ftnlen jobz_len,
3611  ftnlen range_len);
3612 extern int ssycon_(char *uplo, integer * n, real * a, integer * lda,
3613  integer * ipiv, real * anorm, real * rcond, real * work,
3614  integer * iwork, integer * info, ftnlen uplo_len);
3615 extern int ssyev_(char *jobz, char *uplo, integer * n, real * a,
3616  integer * lda, real * w, real * work, integer * lwork,
3617  integer * info, ftnlen jobz_len, ftnlen uplo_len);
3618 extern int ssyevd_(char *jobz, char *uplo, integer * n, real * a,
3619  integer * lda, real * w, real * work, integer * lwork,
3620  integer * iwork, integer * liwork, integer * info,
3621  ftnlen jobz_len, ftnlen uplo_len);
3622 extern int ssyevr_(char *jobz, char *range, char *uplo, integer * n, real * a,
3623  integer * lda, real * vl, real * vu, integer * il,
3624  integer * iu, real * abstol, integer * m, real * w,
3625  real * z__, integer * ldz, integer * isuppz, real * work,
3626  integer * lwork, integer * iwork, integer * liwork,
3627  integer * info, ftnlen jobz_len, ftnlen range_len,
3628  ftnlen uplo_len);
3629 extern int ssyevx_(char *jobz, char *range, char *uplo, integer * n, real * a,
3630  integer * lda, real * vl, real * vu, integer * il,
3631  integer * iu, real * abstol, integer * m, real * w,
3632  real * z__, integer * ldz, real * work, integer * lwork,
3633  integer * iwork, integer * ifail, integer * info,
3634  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
3635 extern int ssygs2_(integer * itype, char *uplo, integer * n, real * a,
3636  integer * lda, real * b, integer * ldb, integer * info,
3637  ftnlen uplo_len);
3638 extern int ssygst_(integer * itype, char *uplo, integer * n, real * a,
3639  integer * lda, real * b, integer * ldb, integer * info,
3640  ftnlen uplo_len);
3641 extern int ssygv_(integer * itype, char *jobz, char *uplo, integer * n,
3642  real * a, integer * lda, real * b, integer * ldb, real * w,
3643  real * work, integer * lwork, integer * info,
3644  ftnlen jobz_len, ftnlen uplo_len);
3645 extern int ssygvd_(integer * itype, char *jobz, char *uplo, integer * n,
3646  real * a, integer * lda, real * b, integer * ldb, real * w,
3647  real * work, integer * lwork, integer * iwork,
3648  integer * liwork, integer * info, ftnlen jobz_len,
3649  ftnlen uplo_len);
3650 extern int ssygvx_(integer * itype, char *jobz, char *range, char *uplo,
3651  integer * n, real * a, integer * lda, real * b,
3652  integer * ldb, real * vl, real * vu, integer * il,
3653  integer * iu, real * abstol, integer * m, real * w,
3654  real * z__, integer * ldz, real * work, integer * lwork,
3655  integer * iwork, integer * ifail, integer * info,
3656  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
3657 extern int ssyrfs_(char *uplo, integer * n, integer * nrhs, real * a,
3658  integer * lda, real * af, integer * ldaf, integer * ipiv,
3659  real * b, integer * ldb, real * x, integer * ldx,
3660  real * ferr, real * berr, real * work, integer * iwork,
3661  integer * info, ftnlen uplo_len);
3662 extern int ssysv_(char *uplo, integer * n, integer * nrhs, real * a,
3663  integer * lda, integer * ipiv, real * b, integer * ldb,
3664  real * work, integer * lwork, integer * info,
3665  ftnlen uplo_len);
3666 extern int ssysvx_(char *fact, char *uplo, integer * n, integer * nrhs,
3667  real * a, integer * lda, real * af, integer * ldaf,
3668  integer * ipiv, real * b, integer * ldb, real * x,
3669  integer * ldx, real * rcond, real * ferr, real * berr,
3670  real * work, integer * lwork, integer * iwork,
3671  integer * info, ftnlen fact_len, ftnlen uplo_len);
3672 extern int ssytd2_(char *uplo, integer * n, real * a, integer * lda,
3673  real * d__, real * e, real * tau, integer * info,
3674  ftnlen uplo_len);
3675 extern int ssytf2_(char *uplo, integer * n, real * a, integer * lda,
3676  integer * ipiv, integer * info, ftnlen uplo_len);
3677 extern int ssytrd_(char *uplo, integer * n, real * a, integer * lda,
3678  real * d__, real * e, real * tau, real * work,
3679  integer * lwork, integer * info, ftnlen uplo_len);
3680 extern int ssytrf_(char *uplo, integer * n, real * a, integer * lda,
3681  integer * ipiv, real * work, integer * lwork,
3682  integer * info, ftnlen uplo_len);
3683 extern int ssytri_(char *uplo, integer * n, real * a, integer * lda,
3684  integer * ipiv, real * work, integer * info,
3685  ftnlen uplo_len);
3686 extern int ssytrs_(char *uplo, integer * n, integer * nrhs, real * a,
3687  integer * lda, integer * ipiv, real * b, integer * ldb,
3688  integer * info, ftnlen uplo_len);
3689 extern int stbcon_(char *norm, char *uplo, char *diag, integer * n,
3690  integer * kd, real * ab, integer * ldab, real * rcond,
3691  real * work, integer * iwork, integer * info,
3692  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
3693 extern int stbrfs_(char *uplo, char *trans, char *diag, integer * n,
3694  integer * kd, integer * nrhs, real * ab, integer * ldab,
3695  real * b, integer * ldb, real * x, integer * ldx,
3696  real * ferr, real * berr, real * work, integer * iwork,
3697  integer * info, ftnlen uplo_len, ftnlen trans_len,
3698  ftnlen diag_len);
3699 extern int stbtrs_(char *uplo, char *trans, char *diag, integer * n,
3700  integer * kd, integer * nrhs, real * ab, integer * ldab,
3701  real * b, integer * ldb, integer * info, ftnlen uplo_len,
3702  ftnlen trans_len, ftnlen diag_len);
3703 extern int stgevc_(char *side, char *howmny, logical * select, integer * n,
3704  real * a, integer * lda, real * b, integer * ldb,
3705  real * vl, integer * ldvl, real * vr, integer * ldvr,
3706  integer * mm, integer * m, real * work, integer * info,
3707  ftnlen side_len, ftnlen howmny_len);
3708 extern int stgex2_(logical * wantq, logical * wantz, integer * n, real * a,
3709  integer * lda, real * b, integer * ldb, real * q,
3710  integer * ldq, real * z__, integer * ldz, integer * j1,
3711  integer * n1, integer * n2, real * work, integer * lwork,
3712  integer * info);
3713 extern int stgexc_(logical * wantq, logical * wantz, integer * n, real * a,
3714  integer * lda, real * b, integer * ldb, real * q,
3715  integer * ldq, real * z__, integer * ldz, integer * ifst,
3716  integer * ilst, real * work, integer * lwork,
3717  integer * info);
3718 extern int stgsen_(integer * ijob, logical * wantq, logical * wantz,
3719  logical * select, integer * n, real * a, integer * lda,
3720  real * b, integer * ldb, real * alphar, real * alphai,
3721  real * beta, real * q, integer * ldq, real * z__,
3722  integer * ldz, integer * m, real * pl, real * pr,
3723  real * dif, real * work, integer * lwork, integer * iwork,
3724  integer * liwork, integer * info);
3725 extern int stgsja_(char *jobu, char *jobv, char *jobq, integer * m,
3726  integer * p, integer * n, integer * k, integer * l,
3727  real * a, integer * lda, real * b, integer * ldb,
3728  real * tola, real * tolb, real * alpha, real * beta,
3729  real * u, integer * ldu, real * v, integer * ldv, real * q,
3730  integer * ldq, real * work, integer * ncycle,
3731  integer * info, ftnlen jobu_len, ftnlen jobv_len,
3732  ftnlen jobq_len);
3733 extern int stgsna_(char *job, char *howmny, logical * select, integer * n,
3734  real * a, integer * lda, real * b, integer * ldb,
3735  real * vl, integer * ldvl, real * vr, integer * ldvr,
3736  real * s, real * dif, integer * mm, integer * m,
3737  real * work, integer * lwork, integer * iwork,
3738  integer * info, ftnlen job_len, ftnlen howmny_len);
3739 extern int stgsy2_(char *trans, integer * ijob, integer * m, integer * n,
3740  real * a, integer * lda, real * b, integer * ldb,
3741  real * c__, integer * ldc, real * d__, integer * ldd,
3742  real * e, integer * lde, real * f, integer * ldf,
3743  real * scale, real * rdsum, real * rdscal, integer * iwork,
3744  integer * pq, integer * info, ftnlen trans_len);
3745 extern int stgsyl_(char *trans, integer * ijob, integer * m, integer * n,
3746  real * a, integer * lda, real * b, integer * ldb,
3747  real * c__, integer * ldc, real * d__, integer * ldd,
3748  real * e, integer * lde, real * f, integer * ldf,
3749  real * scale, real * dif, real * work, integer * lwork,
3750  integer * iwork, integer * info, ftnlen trans_len);
3751 extern int stpcon_(char *norm, char *uplo, char *diag, integer * n, real * ap,
3752  real * rcond, real * work, integer * iwork, integer * info,
3753  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
3754 extern int stprfs_(char *uplo, char *trans, char *diag, integer * n,
3755  integer * nrhs, real * ap, real * b, integer * ldb,
3756  real * x, integer * ldx, real * ferr, real * berr,
3757  real * work, integer * iwork, integer * info,
3758  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
3759 extern int stptri_(char *uplo, char *diag, integer * n, real * ap,
3760  integer * info, ftnlen uplo_len, ftnlen diag_len);
3761 extern int stptrs_(char *uplo, char *trans, char *diag, integer * n,
3762  integer * nrhs, real * ap, real * b, integer * ldb,
3763  integer * info, ftnlen uplo_len, ftnlen trans_len,
3764  ftnlen diag_len);
3765 extern int strcon_(char *norm, char *uplo, char *diag, integer * n, real * a,
3766  integer * lda, real * rcond, real * work, integer * iwork,
3767  integer * info, ftnlen norm_len, ftnlen uplo_len,
3768  ftnlen diag_len);
3769 extern int strevc_(char *side, char *howmny, logical * select, integer * n,
3770  real * t, integer * ldt, real * vl, integer * ldvl,
3771  real * vr, integer * ldvr, integer * mm, integer * m,
3772  real * work, integer * info, ftnlen side_len,
3773  ftnlen howmny_len);
3774 extern int strexc_(char *compq, integer * n, real * t, integer * ldt,
3775  real * q, integer * ldq, integer * ifst, integer * ilst,
3776  real * work, integer * info, ftnlen compq_len);
3777 extern int strrfs_(char *uplo, char *trans, char *diag, integer * n,
3778  integer * nrhs, real * a, integer * lda, real * b,
3779  integer * ldb, real * x, integer * ldx, real * ferr,
3780  real * berr, real * work, integer * iwork, integer * info,
3781  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
3782 extern int strsen_(char *job, char *compq, logical * select, integer * n,
3783  real * t, integer * ldt, real * q, integer * ldq,
3784  real * wr, real * wi, integer * m, real * s, real * sep,
3785  real * work, integer * lwork, integer * iwork,
3786  integer * liwork, integer * info, ftnlen job_len,
3787  ftnlen compq_len);
3788 extern int strsna_(char *job, char *howmny, logical * select, integer * n,
3789  real * t, integer * ldt, real * vl, integer * ldvl,
3790  real * vr, integer * ldvr, real * s, real * sep,
3791  integer * mm, integer * m, real * work, integer * ldwork,
3792  integer * iwork, integer * info, ftnlen job_len,
3793  ftnlen howmny_len);
3794 extern int strsyl_(char *trana, char *tranb, integer * isgn, integer * m,
3795  integer * n, real * a, integer * lda, real * b,
3796  integer * ldb, real * c__, integer * ldc, real * scale,
3797  integer * info, ftnlen trana_len, ftnlen tranb_len);
3798 extern int strti2_(char *uplo, char *diag, integer * n, real * a,
3799  integer * lda, integer * info, ftnlen uplo_len,
3800  ftnlen diag_len);
3801 extern int strtri_(char *uplo, char *diag, integer * n, real * a,
3802  integer * lda, integer * info, ftnlen uplo_len,
3803  ftnlen diag_len);
3804 extern int strtrs_(char *uplo, char *trans, char *diag, integer * n,
3805  integer * nrhs, real * a, integer * lda, real * b,
3806  integer * ldb, integer * info, ftnlen uplo_len,
3807  ftnlen trans_len, ftnlen diag_len);
3808 extern int stzrqf_(integer * m, integer * n, real * a, integer * lda,
3809  real * tau, integer * info);
3810 extern int stzrzf_(integer * m, integer * n, real * a, integer * lda,
3811  real * tau, real * work, integer * lwork, integer * info);
3812 extern int xerbla_(char *srname, integer * info, ftnlen srname_len);
3813 extern int zbdsqr_(char *uplo, integer * n, integer * ncvt, integer * nru,
3814  integer * ncc, doublereal * d__, doublereal * e,
3815  doublecomplex * vt, integer * ldvt, doublecomplex * u,
3816  integer * ldu, doublecomplex * c__, integer * ldc,
3817  doublereal * rwork, integer * info, ftnlen uplo_len);
3818 extern int zdrot_(integer * n, doublecomplex * cx, integer * incx,
3819  doublecomplex * cy, integer * incy, doublereal * c__,
3820  doublereal * s);
3821 extern int zdrscl_(integer * n, doublereal * sa, doublecomplex * sx,
3822  integer * incx);
3823 extern int zgbbrd_(char *vect, integer * m, integer * n, integer * ncc,
3824  integer * kl, integer * ku, doublecomplex * ab,
3825  integer * ldab, doublereal * d__, doublereal * e,
3826  doublecomplex * q, integer * ldq, doublecomplex * pt,
3827  integer * ldpt, doublecomplex * c__, integer * ldc,
3828  doublecomplex * work, doublereal * rwork, integer * info,
3829  ftnlen vect_len);
3830 extern int zgbcon_(char *norm, integer * n, integer * kl, integer * ku,
3831  doublecomplex * ab, integer * ldab, integer * ipiv,
3832  doublereal * anorm, doublereal * rcond,
3833  doublecomplex * work, doublereal * rwork, integer * info,
3834  ftnlen norm_len);
3835 extern int zgbequ_(integer * m, integer * n, integer * kl, integer * ku,
3836  doublecomplex * ab, integer * ldab, doublereal * r__,
3837  doublereal * c__, doublereal * rowcnd, doublereal * colcnd,
3838  doublereal * amax, integer * info);
3839 extern int zgbrfs_(char *trans, integer * n, integer * kl, integer * ku,
3840  integer * nrhs, doublecomplex * ab, integer * ldab,
3841  doublecomplex * afb, integer * ldafb, integer * ipiv,
3842  doublecomplex * b, integer * ldb, doublecomplex * x,
3843  integer * ldx, doublereal * ferr, doublereal * berr,
3844  doublecomplex * work, doublereal * rwork, integer * info,
3845  ftnlen trans_len);
3846 extern int zgbsv_(integer * n, integer * kl, integer * ku, integer * nrhs,
3847  doublecomplex * ab, integer * ldab, integer * ipiv,
3848  doublecomplex * b, integer * ldb, integer * info);
3849 extern int zgbsvx_(char *fact, char *trans, integer * n, integer * kl,
3850  integer * ku, integer * nrhs, doublecomplex * ab,
3851  integer * ldab, doublecomplex * afb, integer * ldafb,
3852  integer * ipiv, char *equed, doublereal * r__,
3853  doublereal * c__, doublecomplex * b, integer * ldb,
3854  doublecomplex * x, integer * ldx, doublereal * rcond,
3855  doublereal * ferr, doublereal * berr, doublecomplex * work,
3856  doublereal * rwork, integer * info, ftnlen fact_len,
3857  ftnlen trans_len, ftnlen equed_len);
3858 extern int zgbtf2_(integer * m, integer * n, integer * kl, integer * ku,
3859  doublecomplex * ab, integer * ldab, integer * ipiv,
3860  integer * info);
3861 extern int zgbtrf_(integer * m, integer * n, integer * kl, integer * ku,
3862  doublecomplex * ab, integer * ldab, integer * ipiv,
3863  integer * info);
3864 extern int zgbtrs_(char *trans, integer * n, integer * kl, integer * ku,
3865  integer * nrhs, doublecomplex * ab, integer * ldab,
3866  integer * ipiv, doublecomplex * b, integer * ldb,
3867  integer * info, ftnlen trans_len);
3868 extern int zgebak_(char *job, char *side, integer * n, integer * ilo,
3869  integer * ihi, doublereal * scale, integer * m,
3870  doublecomplex * v, integer * ldv, integer * info,
3871  ftnlen job_len, ftnlen side_len);
3872 extern int zgebal_(char *job, integer * n, doublecomplex * a, integer * lda,
3873  integer * ilo, integer * ihi, doublereal * scale,
3874  integer * info, ftnlen job_len);
3875 extern int zgebd2_(integer * m, integer * n, doublecomplex * a, integer * lda,
3876  doublereal * d__, doublereal * e, doublecomplex * tauq,
3877  doublecomplex * taup, doublecomplex * work,
3878  integer * info);
3879 extern int zgebrd_(integer * m, integer * n, doublecomplex * a, integer * lda,
3880  doublereal * d__, doublereal * e, doublecomplex * tauq,
3881  doublecomplex * taup, doublecomplex * work,
3882  integer * lwork, integer * info);
3883 extern int zgecon_(char *norm, integer * n, doublecomplex * a, integer * lda,
3884  doublereal * anorm, doublereal * rcond,
3885  doublecomplex * work, doublereal * rwork, integer * info,
3886  ftnlen norm_len);
3887 extern int zgeequ_(integer * m, integer * n, doublecomplex * a, integer * lda,
3888  doublereal * r__, doublereal * c__, doublereal * rowcnd,
3889  doublereal * colcnd, doublereal * amax, integer * info);
3890 extern int zgees_(char *jobvs, char *sort, L_fp select, integer * n,
3891  doublecomplex * a, integer * lda, integer * sdim,
3892  doublecomplex * w, doublecomplex * vs, integer * ldvs,
3893  doublecomplex * work, integer * lwork, doublereal * rwork,
3894  logical * bwork, integer * info, ftnlen jobvs_len,
3895  ftnlen sort_len);
3896 extern int zgeesx_(char *jobvs, char *sort, L_fp select, char *sense,
3897  integer * n, doublecomplex * a, integer * lda,
3898  integer * sdim, doublecomplex * w, doublecomplex * vs,
3899  integer * ldvs, doublereal * rconde, doublereal * rcondv,
3900  doublecomplex * work, integer * lwork, doublereal * rwork,
3901  logical * bwork, integer * info, ftnlen jobvs_len,
3902  ftnlen sort_len, ftnlen sense_len);
3903 extern int zgeev_(char *jobvl, char *jobvr, integer * n, doublecomplex * a,
3904  integer * lda, doublecomplex * w, doublecomplex * vl,
3905  integer * ldvl, doublecomplex * vr, integer * ldvr,
3906  doublecomplex * work, integer * lwork, doublereal * rwork,
3907  integer * info, ftnlen jobvl_len, ftnlen jobvr_len);
3908 extern int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
3909  integer * n, doublecomplex * a, integer * lda,
3910  doublecomplex * w, doublecomplex * vl, integer * ldvl,
3911  doublecomplex * vr, integer * ldvr, integer * ilo,
3912  integer * ihi, doublereal * scale, doublereal * abnrm,
3913  doublereal * rconde, doublereal * rcondv,
3914  doublecomplex * work, integer * lwork, doublereal * rwork,
3915  integer * info, ftnlen balanc_len, ftnlen jobvl_len,
3916  ftnlen jobvr_len, ftnlen sense_len);
3917 extern int zgegs_(char *jobvsl, char *jobvsr, integer * n, doublecomplex * a,
3918  integer * lda, doublecomplex * b, integer * ldb,
3919  doublecomplex * alpha, doublecomplex * beta,
3920  doublecomplex * vsl, integer * ldvsl, doublecomplex * vsr,
3921  integer * ldvsr, doublecomplex * work, integer * lwork,
3922  doublereal * rwork, integer * info, ftnlen jobvsl_len,
3923  ftnlen jobvsr_len);
3924 extern int zgegv_(char *jobvl, char *jobvr, integer * n, doublecomplex * a,
3925  integer * lda, doublecomplex * b, integer * ldb,
3926  doublecomplex * alpha, doublecomplex * beta,
3927  doublecomplex * vl, integer * ldvl, doublecomplex * vr,
3928  integer * ldvr, doublecomplex * work, integer * lwork,
3929  doublereal * rwork, integer * info, ftnlen jobvl_len,
3930  ftnlen jobvr_len);
3931 extern int zgehd2_(integer * n, integer * ilo, integer * ihi,
3932  doublecomplex * a, integer * lda, doublecomplex * tau,
3933  doublecomplex * work, integer * info);
3934 extern int zgehrd_(integer * n, integer * ilo, integer * ihi,
3935  doublecomplex * a, integer * lda, doublecomplex * tau,
3936  doublecomplex * work, integer * lwork, integer * info);
3937 extern int zgelq2_(integer * m, integer * n, doublecomplex * a, integer * lda,
3938  doublecomplex * tau, doublecomplex * work, integer * info);
3939 extern int zgelqf_(integer * m, integer * n, doublecomplex * a, integer * lda,
3940  doublecomplex * tau, doublecomplex * work, integer * lwork,
3941  integer * info);
3942 extern int zgels_(char *trans, integer * m, integer * n, integer * nrhs,
3943  doublecomplex * a, integer * lda, doublecomplex * b,
3944  integer * ldb, doublecomplex * work, integer * lwork,
3945  integer * info, ftnlen trans_len);
3946 extern int zgelsd_(integer * m, integer * n, integer * nrhs,
3947  doublecomplex * a, integer * lda, doublecomplex * b,
3948  integer * ldb, doublereal * s, doublereal * rcond,
3949  integer * rank, doublecomplex * work, integer * lwork,
3950  doublereal * rwork, integer * iwork, integer * info);
3951 extern int zgelss_(integer * m, integer * n, integer * nrhs,
3952  doublecomplex * a, integer * lda, doublecomplex * b,
3953  integer * ldb, doublereal * s, doublereal * rcond,
3954  integer * rank, doublecomplex * work, integer * lwork,
3955  doublereal * rwork, integer * info);
3956 extern int zgelsx_(integer * m, integer * n, integer * nrhs,
3957  doublecomplex * a, integer * lda, doublecomplex * b,
3958  integer * ldb, integer * jpvt, doublereal * rcond,
3959  integer * rank, doublecomplex * work, doublereal * rwork,
3960  integer * info);
3961 extern int zgelsy_(integer * m, integer * n, integer * nrhs,
3962  doublecomplex * a, integer * lda, doublecomplex * b,
3963  integer * ldb, integer * jpvt, doublereal * rcond,
3964  integer * rank, doublecomplex * work, integer * lwork,
3965  doublereal * rwork, integer * info);
3966 extern int zgeql2_(integer * m, integer * n, doublecomplex * a, integer * lda,
3967  doublecomplex * tau, doublecomplex * work, integer * info);
3968 extern int zgeqlf_(integer * m, integer * n, doublecomplex * a, integer * lda,
3969  doublecomplex * tau, doublecomplex * work, integer * lwork,
3970  integer * info);
3971 extern int zgeqp3_(integer * m, integer * n, doublecomplex * a, integer * lda,
3972  integer * jpvt, doublecomplex * tau, doublecomplex * work,
3973  integer * lwork, doublereal * rwork, integer * info);
3974 extern int zgeqpf_(integer * m, integer * n, doublecomplex * a, integer * lda,
3975  integer * jpvt, doublecomplex * tau, doublecomplex * work,
3976  doublereal * rwork, integer * info);
3977 extern int zgeqr2_(integer * m, integer * n, doublecomplex * a, integer * lda,
3978  doublecomplex * tau, doublecomplex * work, integer * info);
3979 extern int zgeqrf_(integer * m, integer * n, doublecomplex * a, integer * lda,
3980  doublecomplex * tau, doublecomplex * work, integer * lwork,
3981  integer * info);
3982 extern int zgerfs_(char *trans, integer * n, integer * nrhs,
3983  doublecomplex * a, integer * lda, doublecomplex * af,
3984  integer * ldaf, integer * ipiv, doublecomplex * b,
3985  integer * ldb, doublecomplex * x, integer * ldx,
3986  doublereal * ferr, doublereal * berr, doublecomplex * work,
3987  doublereal * rwork, integer * info, ftnlen trans_len);
3988 extern int zgerq2_(integer * m, integer * n, doublecomplex * a, integer * lda,
3989  doublecomplex * tau, doublecomplex * work, integer * info);
3990 extern int zgerqf_(integer * m, integer * n, doublecomplex * a, integer * lda,
3991  doublecomplex * tau, doublecomplex * work, integer * lwork,
3992  integer * info);
3993 extern int zgesc2_(integer * n, doublecomplex * a, integer * lda,
3994  doublecomplex * rhs, integer * ipiv, integer * jpiv,
3995  doublereal * scale);
3996 extern int zgesdd_(char *jobz, integer * m, integer * n, doublecomplex * a,
3997  integer * lda, doublereal * s, doublecomplex * u,
3998  integer * ldu, doublecomplex * vt, integer * ldvt,
3999  doublecomplex * work, integer * lwork, doublereal * rwork,
4000  integer * iwork, integer * info, ftnlen jobz_len);
4001 extern int zgesv_(integer * n, integer * nrhs, doublecomplex * a,
4002  integer * lda, integer * ipiv, doublecomplex * b,
4003  integer * ldb, integer * info);
4004 extern int zgesvd_(char *jobu, char *jobvt, integer * m, integer * n,
4005  doublecomplex * a, integer * lda, doublereal * s,
4006  doublecomplex * u, integer * ldu, doublecomplex * vt,
4007  integer * ldvt, doublecomplex * work, integer * lwork,
4008  doublereal * rwork, integer * info, ftnlen jobu_len,
4009  ftnlen jobvt_len);
4010 extern int zgesvx_(char *fact, char *trans, integer * n, integer * nrhs,
4011  doublecomplex * a, integer * lda, doublecomplex * af,
4012  integer * ldaf, integer * ipiv, char *equed,
4013  doublereal * r__, doublereal * c__, doublecomplex * b,
4014  integer * ldb, doublecomplex * x, integer * ldx,
4015  doublereal * rcond, doublereal * ferr, doublereal * berr,
4016  doublecomplex * work, doublereal * rwork, integer * info,
4017  ftnlen fact_len, ftnlen trans_len, ftnlen equed_len);
4018 extern int zgetc2_(integer * n, doublecomplex * a, integer * lda,
4019  integer * ipiv, integer * jpiv, integer * info);
4020 extern int zgetf2_(integer * m, integer * n, doublecomplex * a, integer * lda,
4021  integer * ipiv, integer * info);
4022 extern int zgetrf_(integer * m, integer * n, doublecomplex * a, integer * lda,
4023  integer * ipiv, integer * info);
4024 extern int zgetri_(integer * n, doublecomplex * a, integer * lda,
4025  integer * ipiv, doublecomplex * work, integer * lwork,
4026  integer * info);
4027 extern int zgetrs_(char *trans, integer * n, integer * nrhs,
4028  doublecomplex * a, integer * lda, integer * ipiv,
4029  doublecomplex * b, integer * ldb, integer * info,
4030  ftnlen trans_len);
4031 extern int zggbak_(char *job, char *side, integer * n, integer * ilo,
4032  integer * ihi, doublereal * lscale, doublereal * rscale,
4033  integer * m, doublecomplex * v, integer * ldv,
4034  integer * info, ftnlen job_len, ftnlen side_len);
4035 extern int zggbal_(char *job, integer * n, doublecomplex * a, integer * lda,
4036  doublecomplex * b, integer * ldb, integer * ilo,
4037  integer * ihi, doublereal * lscale, doublereal * rscale,
4038  doublereal * work, integer * info, ftnlen job_len);
4039 extern int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg,
4040  integer * n, doublecomplex * a, integer * lda,
4041  doublecomplex * b, integer * ldb, integer * sdim,
4042  doublecomplex * alpha, doublecomplex * beta,
4043  doublecomplex * vsl, integer * ldvsl, doublecomplex * vsr,
4044  integer * ldvsr, doublecomplex * work, integer * lwork,
4045  doublereal * rwork, logical * bwork, integer * info,
4046  ftnlen jobvsl_len, ftnlen jobvsr_len, ftnlen sort_len);
4047 extern int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp delctg,
4048  char *sense, integer * n, doublecomplex * a, integer * lda,
4049  doublecomplex * b, integer * ldb, integer * sdim,
4050  doublecomplex * alpha, doublecomplex * beta,
4051  doublecomplex * vsl, integer * ldvsl, doublecomplex * vsr,
4052  integer * ldvsr, doublereal * rconde, doublereal * rcondv,
4053  doublecomplex * work, integer * lwork, doublereal * rwork,
4054  integer * iwork, integer * liwork, logical * bwork,
4055  integer * info, ftnlen jobvsl_len, ftnlen jobvsr_len,
4056  ftnlen sort_len, ftnlen sense_len);
4057 extern int zggev_(char *jobvl, char *jobvr, integer * n, doublecomplex * a,
4058  integer * lda, doublecomplex * b, integer * ldb,
4059  doublecomplex * alpha, doublecomplex * beta,
4060  doublecomplex * vl, integer * ldvl, doublecomplex * vr,
4061  integer * ldvr, doublecomplex * work, integer * lwork,
4062  doublereal * rwork, integer * info, ftnlen jobvl_len,
4063  ftnlen jobvr_len);
4064 extern int zggevx_(char *balanc, char *jobvl, char *jobvr, char *sense,
4065  integer * n, doublecomplex * a, integer * lda,
4066  doublecomplex * b, integer * ldb, doublecomplex * alpha,
4067  doublecomplex * beta, doublecomplex * vl, integer * ldvl,
4068  doublecomplex * vr, integer * ldvr, integer * ilo,
4069  integer * ihi, doublereal * lscale, doublereal * rscale,
4070  doublereal * abnrm, doublereal * bbnrm,
4071  doublereal * rconde, doublereal * rcondv,
4072  doublecomplex * work, integer * lwork, doublereal * rwork,
4073  integer * iwork, logical * bwork, integer * info,
4074  ftnlen balanc_len, ftnlen jobvl_len, ftnlen jobvr_len,
4075  ftnlen sense_len);
4076 extern int zggglm_(integer * n, integer * m, integer * p, doublecomplex * a,
4077  integer * lda, doublecomplex * b, integer * ldb,
4079  doublecomplex * work, integer * lwork, integer * info);
4080 extern int zgghrd_(char *compq, char *compz, integer * n, integer * ilo,
4081  integer * ihi, doublecomplex * a, integer * lda,
4082  doublecomplex * b, integer * ldb, doublecomplex * q,
4083  integer * ldq, doublecomplex * z__, integer * ldz,
4084  integer * info, ftnlen compq_len, ftnlen compz_len);
4085 extern int zgglse_(integer * m, integer * n, integer * p, doublecomplex * a,
4086  integer * lda, doublecomplex * b, integer * ldb,
4087  doublecomplex * c__, doublecomplex * d__,
4088  doublecomplex * x, doublecomplex * work, integer * lwork,
4089  integer * info);
4090 extern int zggqrf_(integer * n, integer * m, integer * p, doublecomplex * a,
4091  integer * lda, doublecomplex * taua, doublecomplex * b,
4092  integer * ldb, doublecomplex * taub, doublecomplex * work,
4093  integer * lwork, integer * info);
4094 extern int zggrqf_(integer * m, integer * p, integer * n, doublecomplex * a,
4095  integer * lda, doublecomplex * taua, doublecomplex * b,
4096  integer * ldb, doublecomplex * taub, doublecomplex * work,
4097  integer * lwork, integer * info);
4098 extern int zggsvd_(char *jobu, char *jobv, char *jobq, integer * m,
4099  integer * n, integer * p, integer * k, integer * l,
4100  doublecomplex * a, integer * lda, doublecomplex * b,
4101  integer * ldb, doublereal * alpha, doublereal * beta,
4102  doublecomplex * u, integer * ldu, doublecomplex * v,
4103  integer * ldv, doublecomplex * q, integer * ldq,
4104  doublecomplex * work, doublereal * rwork, integer * iwork,
4105  integer * info, ftnlen jobu_len, ftnlen jobv_len,
4106  ftnlen jobq_len);
4107 extern int zggsvp_(char *jobu, char *jobv, char *jobq, integer * m,
4108  integer * p, integer * n, doublecomplex * a, integer * lda,
4109  doublecomplex * b, integer * ldb, doublereal * tola,
4110  doublereal * tolb, integer * k, integer * l,
4111  doublecomplex * u, integer * ldu, doublecomplex * v,
4112  integer * ldv, doublecomplex * q, integer * ldq,
4113  integer * iwork, doublereal * rwork, doublecomplex * tau,
4114  doublecomplex * work, integer * info, ftnlen jobu_len,
4115  ftnlen jobv_len, ftnlen jobq_len);
4116 extern int zgtcon_(char *norm, integer * n, doublecomplex * dl,
4117  doublecomplex * d__, doublecomplex * du,
4118  doublecomplex * du2, integer * ipiv, doublereal * anorm,
4119  doublereal * rcond, doublecomplex * work, integer * info,
4120  ftnlen norm_len);
4121 extern int zgtrfs_(char *trans, integer * n, integer * nrhs,
4122  doublecomplex * dl, doublecomplex * d__,
4123  doublecomplex * du, doublecomplex * dlf,
4124  doublecomplex * df, doublecomplex * duf,
4125  doublecomplex * du2, integer * ipiv, doublecomplex * b,
4126  integer * ldb, doublecomplex * x, integer * ldx,
4127  doublereal * ferr, doublereal * berr, doublecomplex * work,
4128  doublereal * rwork, integer * info, ftnlen trans_len);
4129 extern int zgtsv_(integer * n, integer * nrhs, doublecomplex * dl,
4130  doublecomplex * d__, doublecomplex * du, doublecomplex * b,
4131  integer * ldb, integer * info);
4132 extern int zgtsvx_(char *fact, char *trans, integer * n, integer * nrhs,
4133  doublecomplex * dl, doublecomplex * d__,
4134  doublecomplex * du, doublecomplex * dlf,
4135  doublecomplex * df, doublecomplex * duf,
4136  doublecomplex * du2, integer * ipiv, doublecomplex * b,
4137  integer * ldb, doublecomplex * x, integer * ldx,
4138  doublereal * rcond, doublereal * ferr, doublereal * berr,
4139  doublecomplex * work, doublereal * rwork, integer * info,
4140  ftnlen fact_len, ftnlen trans_len);
4141 extern int zgttrf_(integer * n, doublecomplex * dl, doublecomplex * d__,
4142  doublecomplex * du, doublecomplex * du2, integer * ipiv,
4143  integer * info);
4144 extern int zgttrs_(char *trans, integer * n, integer * nrhs,
4145  doublecomplex * dl, doublecomplex * d__,
4146  doublecomplex * du, doublecomplex * du2, integer * ipiv,
4147  doublecomplex * b, integer * ldb, integer * info,
4148  ftnlen trans_len);
4149 extern int zgtts2_(integer * itrans, integer * n, integer * nrhs,
4150  doublecomplex * dl, doublecomplex * d__,
4151  doublecomplex * du, doublecomplex * du2, integer * ipiv,
4152  doublecomplex * b, integer * ldb);
4153 extern int zhbev_(char *jobz, char *uplo, integer * n, integer * kd,
4154  doublecomplex * ab, integer * ldab, doublereal * w,
4155  doublecomplex * z__, integer * ldz, doublecomplex * work,
4156  doublereal * rwork, integer * info, ftnlen jobz_len,
4157  ftnlen uplo_len);
4158 extern int zhbevd_(char *jobz, char *uplo, integer * n, integer * kd,
4159  doublecomplex * ab, integer * ldab, doublereal * w,
4160  doublecomplex * z__, integer * ldz, doublecomplex * work,
4161  integer * lwork, doublereal * rwork, integer * lrwork,
4162  integer * iwork, integer * liwork, integer * info,
4163  ftnlen jobz_len, ftnlen uplo_len);
4164 extern int zhbevx_(char *jobz, char *range, char *uplo, integer * n,
4165  integer * kd, doublecomplex * ab, integer * ldab,
4166  doublecomplex * q, integer * ldq, doublereal * vl,
4167  doublereal * vu, integer * il, integer * iu,
4168  doublereal * abstol, integer * m, doublereal * w,
4169  doublecomplex * z__, integer * ldz, doublecomplex * work,
4170  doublereal * rwork, integer * iwork, integer * ifail,
4171  integer * info, ftnlen jobz_len, ftnlen range_len,
4172  ftnlen uplo_len);
4173 extern int zhbgst_(char *vect, char *uplo, integer * n, integer * ka,
4174  integer * kb, doublecomplex * ab, integer * ldab,
4175  doublecomplex * bb, integer * ldbb, doublecomplex * x,
4176  integer * ldx, doublecomplex * work, doublereal * rwork,
4177  integer * info, ftnlen vect_len, ftnlen uplo_len);
4178 extern int zhbgv_(char *jobz, char *uplo, integer * n, integer * ka,
4179  integer * kb, doublecomplex * ab, integer * ldab,
4180  doublecomplex * bb, integer * ldbb, doublereal * w,
4181  doublecomplex * z__, integer * ldz, doublecomplex * work,
4182  doublereal * rwork, integer * info, ftnlen jobz_len,
4183  ftnlen uplo_len);
4184 extern int zhbgvd_(char *jobz, char *uplo, integer * n, integer * ka,
4185  integer * kb, doublecomplex * ab, integer * ldab,
4186  doublecomplex * bb, integer * ldbb, doublereal * w,
4187  doublecomplex * z__, integer * ldz, doublecomplex * work,
4188  integer * lwork, doublereal * rwork, integer * lrwork,
4189  integer * iwork, integer * liwork, integer * info,
4190  ftnlen jobz_len, ftnlen uplo_len);
4191 extern int zhbgvx_(char *jobz, char *range, char *uplo, integer * n,
4192  integer * ka, integer * kb, doublecomplex * ab,
4193  integer * ldab, doublecomplex * bb, integer * ldbb,
4194  doublecomplex * q, integer * ldq, doublereal * vl,
4195  doublereal * vu, integer * il, integer * iu,
4196  doublereal * abstol, integer * m, doublereal * w,
4197  doublecomplex * z__, integer * ldz, doublecomplex * work,
4198  doublereal * rwork, integer * iwork, integer * ifail,
4199  integer * info, ftnlen jobz_len, ftnlen range_len,
4200  ftnlen uplo_len);
4201 extern int zhbtrd_(char *vect, char *uplo, integer * n, integer * kd,
4202  doublecomplex * ab, integer * ldab, doublereal * d__,
4203  doublereal * e, doublecomplex * q, integer * ldq,
4204  doublecomplex * work, integer * info, ftnlen vect_len,
4205  ftnlen uplo_len);
4206 extern int zhecon_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4207  integer * ipiv, doublereal * anorm, doublereal * rcond,
4208  doublecomplex * work, integer * info, ftnlen uplo_len);
4209 extern int zheev_(char *jobz, char *uplo, integer * n, doublecomplex * a,
4210  integer * lda, doublereal * w, doublecomplex * work,
4211  integer * lwork, doublereal * rwork, integer * info,
4212  ftnlen jobz_len, ftnlen uplo_len);
4213 extern int zheevd_(char *jobz, char *uplo, integer * n, doublecomplex * a,
4214  integer * lda, doublereal * w, doublecomplex * work,
4215  integer * lwork, doublereal * rwork, integer * lrwork,
4216  integer * iwork, integer * liwork, integer * info,
4217  ftnlen jobz_len, ftnlen uplo_len);
4218 extern int zheevr_(char *jobz, char *range, char *uplo, integer * n,
4219  doublecomplex * a, integer * lda, doublereal * vl,
4220  doublereal * vu, integer * il, integer * iu,
4221  doublereal * abstol, integer * m, doublereal * w,
4222  doublecomplex * z__, integer * ldz, integer * isuppz,
4223  doublecomplex * work, integer * lwork, doublereal * rwork,
4224  integer * lrwork, integer * iwork, integer * liwork,
4225  integer * info, ftnlen jobz_len, ftnlen range_len,
4226  ftnlen uplo_len);
4227 extern int zheevx_(char *jobz, char *range, char *uplo, integer * n,
4228  doublecomplex * a, integer * lda, doublereal * vl,
4229  doublereal * vu, integer * il, integer * iu,
4230  doublereal * abstol, integer * m, doublereal * w,
4231  doublecomplex * z__, integer * ldz, doublecomplex * work,
4232  integer * lwork, doublereal * rwork, integer * iwork,
4233  integer * ifail, integer * info, ftnlen jobz_len,
4234  ftnlen range_len, ftnlen uplo_len);
4235 extern int zhegs2_(integer * itype, char *uplo, integer * n,
4236  doublecomplex * a, integer * lda, doublecomplex * b,
4237  integer * ldb, integer * info, ftnlen uplo_len);
4238 extern int zhegst_(integer * itype, char *uplo, integer * n,
4239  doublecomplex * a, integer * lda, doublecomplex * b,
4240  integer * ldb, integer * info, ftnlen uplo_len);
4241 extern int zhegv_(integer * itype, char *jobz, char *uplo, integer * n,
4242  doublecomplex * a, integer * lda, doublecomplex * b,
4243  integer * ldb, doublereal * w, doublecomplex * work,
4244  integer * lwork, doublereal * rwork, integer * info,
4245  ftnlen jobz_len, ftnlen uplo_len);
4246 extern int zhegvd_(integer * itype, char *jobz, char *uplo, integer * n,
4247  doublecomplex * a, integer * lda, doublecomplex * b,
4248  integer * ldb, doublereal * w, doublecomplex * work,
4249  integer * lwork, doublereal * rwork, integer * lrwork,
4250  integer * iwork, integer * liwork, integer * info,
4251  ftnlen jobz_len, ftnlen uplo_len);
4252 extern int zhegvx_(integer * itype, char *jobz, char *range, char *uplo,
4253  integer * n, doublecomplex * a, integer * lda,
4254  doublecomplex * b, integer * ldb, doublereal * vl,
4255  doublereal * vu, integer * il, integer * iu,
4256  doublereal * abstol, integer * m, doublereal * w,
4257  doublecomplex * z__, integer * ldz, doublecomplex * work,
4258  integer * lwork, doublereal * rwork, integer * iwork,
4259  integer * ifail, integer * info, ftnlen jobz_len,
4260  ftnlen range_len, ftnlen uplo_len);
4261 extern int zherfs_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4262  integer * lda, doublecomplex * af, integer * ldaf,
4263  integer * ipiv, doublecomplex * b, integer * ldb,
4264  doublecomplex * x, integer * ldx, doublereal * ferr,
4265  doublereal * berr, doublecomplex * work,
4266  doublereal * rwork, integer * info, ftnlen uplo_len);
4267 extern int zhesv_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4268  integer * lda, integer * ipiv, doublecomplex * b,
4269  integer * ldb, doublecomplex * work, integer * lwork,
4270  integer * info, ftnlen uplo_len);
4271 extern int zhesvx_(char *fact, char *uplo, integer * n, integer * nrhs,
4272  doublecomplex * a, integer * lda, doublecomplex * af,
4273  integer * ldaf, integer * ipiv, doublecomplex * b,
4274  integer * ldb, doublecomplex * x, integer * ldx,
4275  doublereal * rcond, doublereal * ferr, doublereal * berr,
4276  doublecomplex * work, integer * lwork, doublereal * rwork,
4277  integer * info, ftnlen fact_len, ftnlen uplo_len);
4278 extern int zhetd2_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4279  doublereal * d__, doublereal * e, doublecomplex * tau,
4280  integer * info, ftnlen uplo_len);
4281 extern int zhetf2_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4282  integer * ipiv, integer * info, ftnlen uplo_len);
4283 extern int zhetrd_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4284  doublereal * d__, doublereal * e, doublecomplex * tau,
4285  doublecomplex * work, integer * lwork, integer * info,
4286  ftnlen uplo_len);
4287 extern int zhetrf_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4288  integer * ipiv, doublecomplex * work, integer * lwork,
4289  integer * info, ftnlen uplo_len);
4290 extern int zhetri_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4291  integer * ipiv, doublecomplex * work, integer * info,
4292  ftnlen uplo_len);
4293 extern int zhetrs_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4294  integer * lda, integer * ipiv, doublecomplex * b,
4295  integer * ldb, integer * info, ftnlen uplo_len);
4296 extern int zhgeqz_(char *job, char *compq, char *compz, integer * n,
4297  integer * ilo, integer * ihi, doublecomplex * a,
4298  integer * lda, doublecomplex * b, integer * ldb,
4299  doublecomplex * alpha, doublecomplex * beta,
4300  doublecomplex * q, integer * ldq, doublecomplex * z__,
4301  integer * ldz, doublecomplex * work, integer * lwork,
4302  doublereal * rwork, integer * info, ftnlen job_len,
4303  ftnlen compq_len, ftnlen compz_len);
4304 extern int zhpcon_(char *uplo, integer * n, doublecomplex * ap,
4305  integer * ipiv, doublereal * anorm, doublereal * rcond,
4306  doublecomplex * work, integer * info, ftnlen uplo_len);
4307 extern int zhpev_(char *jobz, char *uplo, integer * n, doublecomplex * ap,
4308  doublereal * w, doublecomplex * z__, integer * ldz,
4309  doublecomplex * work, doublereal * rwork, integer * info,
4310  ftnlen jobz_len, ftnlen uplo_len);
4311 extern int zhpevd_(char *jobz, char *uplo, integer * n, doublecomplex * ap,
4312  doublereal * w, doublecomplex * z__, integer * ldz,
4313  doublecomplex * work, integer * lwork, doublereal * rwork,
4314  integer * lrwork, integer * iwork, integer * liwork,
4315  integer * info, ftnlen jobz_len, ftnlen uplo_len);
4316 extern int zhpevx_(char *jobz, char *range, char *uplo, integer * n,
4317  doublecomplex * ap, doublereal * vl, doublereal * vu,
4318  integer * il, integer * iu, doublereal * abstol,
4319  integer * m, doublereal * w, doublecomplex * z__,
4320  integer * ldz, doublecomplex * work, doublereal * rwork,
4321  integer * iwork, integer * ifail, integer * info,
4322  ftnlen jobz_len, ftnlen range_len, ftnlen uplo_len);
4323 extern int zhpgst_(integer * itype, char *uplo, integer * n,
4324  doublecomplex * ap, doublecomplex * bp, integer * info,
4325  ftnlen uplo_len);
4326 extern int zhpgv_(integer * itype, char *jobz, char *uplo, integer * n,
4327  doublecomplex * ap, doublecomplex * bp, doublereal * w,
4328  doublecomplex * z__, integer * ldz, doublecomplex * work,
4329  doublereal * rwork, integer * info, ftnlen jobz_len,
4330  ftnlen uplo_len);
4331 extern int zhpgvd_(integer * itype, char *jobz, char *uplo, integer * n,
4332  doublecomplex * ap, doublecomplex * bp, doublereal * w,
4333  doublecomplex * z__, integer * ldz, doublecomplex * work,
4334  integer * lwork, doublereal * rwork, integer * lrwork,
4335  integer * iwork, integer * liwork, integer * info,
4336  ftnlen jobz_len, ftnlen uplo_len);
4337 extern int zhpgvx_(integer * itype, char *jobz, char *range, char *uplo,
4338  integer * n, doublecomplex * ap, doublecomplex * bp,
4339  doublereal * vl, doublereal * vu, integer * il,
4340  integer * iu, doublereal * abstol, integer * m,
4341  doublereal * w, doublecomplex * z__, integer * ldz,
4342  doublecomplex * work, doublereal * rwork, integer * iwork,
4343  integer * ifail, integer * info, ftnlen jobz_len,
4344  ftnlen range_len, ftnlen uplo_len);
4345 extern int zhprfs_(char *uplo, integer * n, integer * nrhs,
4346  doublecomplex * ap, doublecomplex * afp, integer * ipiv,
4347  doublecomplex * b, integer * ldb, doublecomplex * x,
4348  integer * ldx, doublereal * ferr, doublereal * berr,
4349  doublecomplex * work, doublereal * rwork, integer * info,
4350  ftnlen uplo_len);
4351 extern int zhpsv_(char *uplo, integer * n, integer * nrhs, doublecomplex * ap,
4352  integer * ipiv, doublecomplex * b, integer * ldb,
4353  integer * info, ftnlen uplo_len);
4354 extern int zhpsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
4355  doublecomplex * ap, doublecomplex * afp, integer * ipiv,
4356  doublecomplex * b, integer * ldb, doublecomplex * x,
4357  integer * ldx, doublereal * rcond, doublereal * ferr,
4358  doublereal * berr, doublecomplex * work,
4359  doublereal * rwork, integer * info, ftnlen fact_len,
4360  ftnlen uplo_len);
4361 extern int zhptrd_(char *uplo, integer * n, doublecomplex * ap,
4362  doublereal * d__, doublereal * e, doublecomplex * tau,
4363  integer * info, ftnlen uplo_len);
4364 extern int zhptrf_(char *uplo, integer * n, doublecomplex * ap,
4365  integer * ipiv, integer * info, ftnlen uplo_len);
4366 extern int zhptri_(char *uplo, integer * n, doublecomplex * ap,
4367  integer * ipiv, doublecomplex * work, integer * info,
4368  ftnlen uplo_len);
4369 extern int zhptrs_(char *uplo, integer * n, integer * nrhs,
4370  doublecomplex * ap, integer * ipiv, doublecomplex * b,
4371  integer * ldb, integer * info, ftnlen uplo_len);
4372 extern int zhsein_(char *side, char *eigsrc, char *initv, logical * select,
4373  integer * n, doublecomplex * h__, integer * ldh,
4374  doublecomplex * w, doublecomplex * vl, integer * ldvl,
4375  doublecomplex * vr, integer * ldvr, integer * mm,
4376  integer * m, doublecomplex * work, doublereal * rwork,
4377  integer * ifaill, integer * ifailr, integer * info,
4378  ftnlen side_len, ftnlen eigsrc_len, ftnlen initv_len);
4379 extern int zhseqr_(char *job, char *compz, integer * n, integer * ilo,
4380  integer * ihi, doublecomplex * h__, integer * ldh,
4381  doublecomplex * w, doublecomplex * z__, integer * ldz,
4382  doublecomplex * work, integer * lwork, integer * info,
4383  ftnlen job_len, ftnlen compz_len);
4384 extern int zlabrd_(integer * m, integer * n, integer * nb, doublecomplex * a,
4385  integer * lda, doublereal * d__, doublereal * e,
4386  doublecomplex * tauq, doublecomplex * taup,
4387  doublecomplex * x, integer * ldx, doublecomplex * y,
4388  integer * ldy);
4389 extern int zlacgv_(integer * n, doublecomplex * x, integer * incx);
4390 extern int zlacon_(integer * n, doublecomplex * v, doublecomplex * x,
4391  doublereal * est, integer * kase);
4392 extern int zlacp2_(char *uplo, integer * m, integer * n, doublereal * a,
4393  integer * lda, doublecomplex * b, integer * ldb,
4394  ftnlen uplo_len);
4395 extern int zlacpy_(char *uplo, integer * m, integer * n, doublecomplex * a,
4396  integer * lda, doublecomplex * b, integer * ldb,
4397  ftnlen uplo_len);
4398 extern int zlacrm_(integer * m, integer * n, doublecomplex * a, integer * lda,
4399  doublereal * b, integer * ldb, doublecomplex * c__,
4400  integer * ldc, doublereal * rwork);
4401 extern int zlacrt_(integer * n, doublecomplex * cx, integer * incx,
4402  doublecomplex * cy, integer * incy, doublecomplex * c__,
4403  doublecomplex * s);
4404 extern Z_f zladiv_(doublecomplex * ret_val, doublecomplex * x,
4405  doublecomplex * y);
4406 extern int zlaed0_(integer * qsiz, integer * n, doublereal * d__,
4407  doublereal * e, doublecomplex * q, integer * ldq,
4408  doublecomplex * qstore, integer * ldqs, doublereal * rwork,
4409  integer * iwork, integer * info);
4410 extern int zlaed7_(integer * n, integer * cutpnt, integer * qsiz,
4411  integer * tlvls, integer * curlvl, integer * curpbm,
4412  doublereal * d__, doublecomplex * q, integer * ldq,
4413  doublereal * rho, integer * indxq, doublereal * qstore,
4414  integer * qptr, integer * prmptr, integer * perm,
4415  integer * givptr, integer * givcol, doublereal * givnum,
4416  doublecomplex * work, doublereal * rwork, integer * iwork,
4417  integer * info);
4418 extern int zlaed8_(integer * k, integer * n, integer * qsiz,
4419  doublecomplex * q, integer * ldq, doublereal * d__,
4420  doublereal * rho, integer * cutpnt, doublereal * z__,
4421  doublereal * dlamda, doublecomplex * q2, integer * ldq2,
4422  doublereal * w, integer * indxp, integer * indx,
4423  integer * indxq, integer * perm, integer * givptr,
4424  integer * givcol, doublereal * givnum, integer * info);
4425 extern int zlaein_(logical * rightv, logical * noinit, integer * n,
4426  doublecomplex * h__, integer * ldh, doublecomplex * w,
4427  doublecomplex * v, doublecomplex * b, integer * ldb,
4428  doublereal * rwork, doublereal * eps3, doublereal * smlnum,
4429  integer * info);
4430 extern int zlaesy_(doublecomplex * a, doublecomplex * b, doublecomplex * c__,
4431  doublecomplex * rt1, doublecomplex * rt2,
4432  doublecomplex * evscal, doublecomplex * cs1,
4433  doublecomplex * sn1);
4434 extern int zlaev2_(doublecomplex * a, doublecomplex * b, doublecomplex * c__,
4435  doublereal * rt1, doublereal * rt2, doublereal * cs1,
4436  doublecomplex * sn1);
4437 extern int zlags2_(logical * upper, doublereal * a1, doublecomplex * a2,
4438  doublereal * a3, doublereal * b1, doublecomplex * b2,
4439  doublereal * b3, doublereal * csu, doublecomplex * snu,
4440  doublereal * csv, doublecomplex * snv, doublereal * csq,
4441  doublecomplex * snq);
4442 extern int zlagtm_(char *trans, integer * n, integer * nrhs,
4443  doublereal * alpha, doublecomplex * dl,
4444  doublecomplex * d__, doublecomplex * du, doublecomplex * x,
4445  integer * ldx, doublereal * beta, doublecomplex * b,
4446  integer * ldb, ftnlen trans_len);
4447 extern int zlahef_(char *uplo, integer * n, integer * nb, integer * kb,
4448  doublecomplex * a, integer * lda, integer * ipiv,
4449  doublecomplex * w, integer * ldw, integer * info,
4450  ftnlen uplo_len);
4451 extern int zlahqr_(logical * wantt, logical * wantz, integer * n,
4452  integer * ilo, integer * ihi, doublecomplex * h__,
4453  integer * ldh, doublecomplex * w, integer * iloz,
4454  integer * ihiz, doublecomplex * z__, integer * ldz,
4455  integer * info);
4456 extern int zlahrd_(integer * n, integer * k, integer * nb, doublecomplex * a,
4457  integer * lda, doublecomplex * tau, doublecomplex * t,
4458  integer * ldt, doublecomplex * y, integer * ldy);
4459 extern int zlaic1_(integer * job, integer * j, doublecomplex * x,
4460  doublereal * sest, doublecomplex * w,
4461  doublecomplex * gamma, doublereal * sestpr,
4462  doublecomplex * s, doublecomplex * c__);
4463 extern int zlals0_(integer * icompq, integer * nl, integer * nr,
4464  integer * sqre, integer * nrhs, doublecomplex * b,
4465  integer * ldb, doublecomplex * bx, integer * ldbx,
4466  integer * perm, integer * givptr, integer * givcol,
4467  integer * ldgcol, doublereal * givnum, integer * ldgnum,
4468  doublereal * poles, doublereal * difl, doublereal * difr,
4469  doublereal * z__, integer * k, doublereal * c__,
4470  doublereal * s, doublereal * rwork, integer * info);
4471 extern int zlalsa_(integer * icompq, integer * smlsiz, integer * n,
4472  integer * nrhs, doublecomplex * b, integer * ldb,
4473  doublecomplex * bx, integer * ldbx, doublereal * u,
4474  integer * ldu, doublereal * vt, integer * k,
4475  doublereal * difl, doublereal * difr, doublereal * z__,
4476  doublereal * poles, integer * givptr, integer * givcol,
4477  integer * ldgcol, integer * perm, doublereal * givnum,
4478  doublereal * c__, doublereal * s, doublereal * rwork,
4479  integer * iwork, integer * info);
4480 extern int zlalsd_(char *uplo, integer * smlsiz, integer * n, integer * nrhs,
4481  doublereal * d__, doublereal * e, doublecomplex * b,
4482  integer * ldb, doublereal * rcond, integer * rank,
4483  doublecomplex * work, doublereal * rwork, integer * iwork,
4484  integer * info, ftnlen uplo_len);
4485 extern doublereal zlangb_(char *norm, integer * n, integer * kl, integer * ku,
4486  doublecomplex * ab, integer * ldab,
4487  doublereal * work, ftnlen norm_len);
4488 extern doublereal zlange_(char *norm, integer * m, integer * n,
4489  doublecomplex * a, integer * lda, doublereal * work,
4490  ftnlen norm_len);
4491 extern doublereal zlangt_(char *norm, integer * n, doublecomplex * dl,
4492  doublecomplex * d__, doublecomplex * du,
4493  ftnlen norm_len);
4494 extern doublereal zlanhb_(char *norm, char *uplo, integer * n, integer * k,
4495  doublecomplex * ab, integer * ldab,
4496  doublereal * work, ftnlen norm_len,
4497  ftnlen uplo_len);
4498 extern doublereal zlanhe_(char *norm, char *uplo, integer * n,
4499  doublecomplex * a, integer * lda, doublereal * work,
4500  ftnlen norm_len, ftnlen uplo_len);
4501 extern doublereal zlanhp_(char *norm, char *uplo, integer * n,
4502  doublecomplex * ap, doublereal * work,
4503  ftnlen norm_len, ftnlen uplo_len);
4504 extern doublereal zlanhs_(char *norm, integer * n, doublecomplex * a,
4505  integer * lda, doublereal * work, ftnlen norm_len);
4506 extern doublereal zlanht_(char *norm, integer * n, doublereal * d__,
4507  doublecomplex * e, ftnlen norm_len);
4508 extern doublereal zlansb_(char *norm, char *uplo, integer * n, integer * k,
4509  doublecomplex * ab, integer * ldab,
4510  doublereal * work, ftnlen norm_len,
4511  ftnlen uplo_len);
4512 extern doublereal zlansp_(char *norm, char *uplo, integer * n,
4513  doublecomplex * ap, doublereal * work,
4514  ftnlen norm_len, ftnlen uplo_len);
4515 extern doublereal zlansy_(char *norm, char *uplo, integer * n,
4516  doublecomplex * a, integer * lda, doublereal * work,
4517  ftnlen norm_len, ftnlen uplo_len);
4518 extern doublereal zlantb_(char *norm, char *uplo, char *diag, integer * n,
4519  integer * k, doublecomplex * ab, integer * ldab,
4520  doublereal * work, ftnlen norm_len, ftnlen uplo_len,
4521  ftnlen diag_len);
4522 extern doublereal zlantp_(char *norm, char *uplo, char *diag, integer * n,
4523  doublecomplex * ap, doublereal * work,
4524  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
4525 extern doublereal zlantr_(char *norm, char *uplo, char *diag, integer * m,
4526  integer * n, doublecomplex * a, integer * lda,
4527  doublereal * work, ftnlen norm_len, ftnlen uplo_len,
4528  ftnlen diag_len);
4529 extern int zlapll_(integer * n, doublecomplex * x, integer * incx,
4530  doublecomplex * y, integer * incy, doublereal * ssmin);
4531 extern int zlapmt_(logical * forwrd, integer * m, integer * n,
4532  doublecomplex * x, integer * ldx, integer * k);
4533 extern int zlaqgb_(integer * m, integer * n, integer * kl, integer * ku,
4534  doublecomplex * ab, integer * ldab, doublereal * r__,
4535  doublereal * c__, doublereal * rowcnd, doublereal * colcnd,
4536  doublereal * amax, char *equed, ftnlen equed_len);
4537 extern int zlaqge_(integer * m, integer * n, doublecomplex * a, integer * lda,
4538  doublereal * r__, doublereal * c__, doublereal * rowcnd,
4539  doublereal * colcnd, doublereal * amax, char *equed,
4540  ftnlen equed_len);
4541 extern int zlaqhb_(char *uplo, integer * n, integer * kd, doublecomplex * ab,
4542  integer * ldab, doublereal * s, doublereal * scond,
4543  doublereal * amax, char *equed, ftnlen uplo_len,
4544  ftnlen equed_len);
4545 extern int zlaqhe_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4546  doublereal * s, doublereal * scond, doublereal * amax,
4547  char *equed, ftnlen uplo_len, ftnlen equed_len);
4548 extern int zlaqhp_(char *uplo, integer * n, doublecomplex * ap,
4549  doublereal * s, doublereal * scond, doublereal * amax,
4550  char *equed, ftnlen uplo_len, ftnlen equed_len);
4551 extern int zlaqp2_(integer * m, integer * n, integer * offset,
4552  doublecomplex * a, integer * lda, integer * jpvt,
4553  doublecomplex * tau, doublereal * vn1, doublereal * vn2,
4554  doublecomplex * work);
4555 extern int zlaqps_(integer * m, integer * n, integer * offset, integer * nb,
4556  integer * kb, doublecomplex * a, integer * lda,
4557  integer * jpvt, doublecomplex * tau, doublereal * vn1,
4558  doublereal * vn2, doublecomplex * auxv, doublecomplex * f,
4559  integer * ldf);
4560 extern int zlaqsb_(char *uplo, integer * n, integer * kd, doublecomplex * ab,
4561  integer * ldab, doublereal * s, doublereal * scond,
4562  doublereal * amax, char *equed, ftnlen uplo_len,
4563  ftnlen equed_len);
4564 extern int zlaqsp_(char *uplo, integer * n, doublecomplex * ap,
4565  doublereal * s, doublereal * scond, doublereal * amax,
4566  char *equed, ftnlen uplo_len, ftnlen equed_len);
4567 extern int zlaqsy_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4568  doublereal * s, doublereal * scond, doublereal * amax,
4569  char *equed, ftnlen uplo_len, ftnlen equed_len);
4570 extern int zlar1v_(integer * n, integer * b1, integer * bn,
4571  doublereal * sigma, doublereal * d__, doublereal * l,
4572  doublereal * ld, doublereal * lld, doublereal * gersch,
4573  doublecomplex * z__, doublereal * ztz, doublereal * mingma,
4574  integer * r__, integer * isuppz, doublereal * work);
4575 extern int zlar2v_(integer * n, doublecomplex * x, doublecomplex * y,
4576  doublecomplex * z__, integer * incx, doublereal * c__,
4577  doublecomplex * s, integer * incc);
4578 extern int zlarcm_(integer * m, integer * n, doublereal * a, integer * lda,
4579  doublecomplex * b, integer * ldb, doublecomplex * c__,
4580  integer * ldc, doublereal * rwork);
4581 extern int zlarf_(char *side, integer * m, integer * n, doublecomplex * v,
4582  integer * incv, doublecomplex * tau, doublecomplex * c__,
4583  integer * ldc, doublecomplex * work, ftnlen side_len);
4584 extern int zlarfb_(char *side, char *trans, char *direct, char *storev,
4585  integer * m, integer * n, integer * k, doublecomplex * v,
4586  integer * ldv, doublecomplex * t, integer * ldt,
4587  doublecomplex * c__, integer * ldc, doublecomplex * work,
4588  integer * ldwork, ftnlen side_len, ftnlen trans_len,
4589  ftnlen direct_len, ftnlen storev_len);
4590 extern int zlarfg_(integer * n, doublecomplex * alpha, doublecomplex * x,
4591  integer * incx, doublecomplex * tau);
4592 extern int zlarft_(char *direct, char *storev, integer * n, integer * k,
4593  doublecomplex * v, integer * ldv, doublecomplex * tau,
4594  doublecomplex * t, integer * ldt, ftnlen direct_len,
4595  ftnlen storev_len);
4596 extern int zlarfx_(char *side, integer * m, integer * n, doublecomplex * v,
4597  doublecomplex * tau, doublecomplex * c__, integer * ldc,
4598  doublecomplex * work, ftnlen side_len);
4599 extern int zlargv_(integer * n, doublecomplex * x, integer * incx,
4600  doublecomplex * y, integer * incy, doublereal * c__,
4601  integer * incc);
4602 extern int zlarnv_(integer * idist, integer * iseed, integer * n,
4603  doublecomplex * x);
4604 extern int zlarrv_(integer * n, doublereal * d__, doublereal * l,
4605  integer * isplit, integer * m, doublereal * w,
4606  integer * iblock, doublereal * gersch, doublereal * tol,
4607  doublecomplex * z__, integer * ldz, integer * isuppz,
4608  doublereal * work, integer * iwork, integer * info);
4609 extern int zlartg_(doublecomplex * f, doublecomplex * g, doublereal * cs,
4610  doublecomplex * sn, doublecomplex * r__);
4611 extern int zlartv_(integer * n, doublecomplex * x, integer * incx,
4612  doublecomplex * y, integer * incy, doublereal * c__,
4613  doublecomplex * s, integer * incc);
4614 extern int zlarz_(char *side, integer * m, integer * n, integer * l,
4615  doublecomplex * v, integer * incv, doublecomplex * tau,
4616  doublecomplex * c__, integer * ldc, doublecomplex * work,
4617  ftnlen side_len);
4618 extern int zlarzb_(char *side, char *trans, char *direct, char *storev,
4619  integer * m, integer * n, integer * k, integer * l,
4620  doublecomplex * v, integer * ldv, doublecomplex * t,
4621  integer * ldt, doublecomplex * c__, integer * ldc,
4622  doublecomplex * work, integer * ldwork, ftnlen side_len,
4623  ftnlen trans_len, ftnlen direct_len, ftnlen storev_len);
4624 extern int zlarzt_(char *direct, char *storev, integer * n, integer * k,
4625  doublecomplex * v, integer * ldv, doublecomplex * tau,
4626  doublecomplex * t, integer * ldt, ftnlen direct_len,
4627  ftnlen storev_len);
4628 extern int zlascl_(char *type__, integer * kl, integer * ku,
4629  doublereal * cfrom, doublereal * cto, integer * m,
4630  integer * n, doublecomplex * a, integer * lda,
4631  integer * info, ftnlen type_len);
4632 extern int zlaset_(char *uplo, integer * m, integer * n,
4633  doublecomplex * alpha, doublecomplex * beta,
4634  doublecomplex * a, integer * lda, ftnlen uplo_len);
4635 extern int zlasr_(char *side, char *pivot, char *direct, integer * m,
4636  integer * n, doublereal * c__, doublereal * s,
4637  doublecomplex * a, integer * lda, ftnlen side_len,
4638  ftnlen pivot_len, ftnlen direct_len);
4639 extern int zlassq_(integer * n, doublecomplex * x, integer * incx,
4640  doublereal * scale, doublereal * sumsq);
4641 extern int zlaswp_(integer * n, doublecomplex * a, integer * lda,
4642  integer * k1, integer * k2, integer * ipiv,
4643  integer * incx);
4644 extern int zlasyf_(char *uplo, integer * n, integer * nb, integer * kb,
4645  doublecomplex * a, integer * lda, integer * ipiv,
4646  doublecomplex * w, integer * ldw, integer * info,
4647  ftnlen uplo_len);
4648 extern int zlatbs_(char *uplo, char *trans, char *diag, char *normin,
4649  integer * n, integer * kd, doublecomplex * ab,
4650  integer * ldab, doublecomplex * x, doublereal * scale,
4651  doublereal * cnorm, integer * info, ftnlen uplo_len,
4652  ftnlen trans_len, ftnlen diag_len, ftnlen normin_len);
4653 extern int zlatdf_(integer * ijob, integer * n, doublecomplex * z__,
4654  integer * ldz, doublecomplex * rhs, doublereal * rdsum,
4655  doublereal * rdscal, integer * ipiv, integer * jpiv);
4656 extern int zlatps_(char *uplo, char *trans, char *diag, char *normin,
4657  integer * n, doublecomplex * ap, doublecomplex * x,
4658  doublereal * scale, doublereal * cnorm, integer * info,
4659  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len,
4660  ftnlen normin_len);
4661 extern int zlatrd_(char *uplo, integer * n, integer * nb, doublecomplex * a,
4662  integer * lda, doublereal * e, doublecomplex * tau,
4663  doublecomplex * w, integer * ldw, ftnlen uplo_len);
4664 extern int zlatrs_(char *uplo, char *trans, char *diag, char *normin,
4665  integer * n, doublecomplex * a, integer * lda,
4666  doublecomplex * x, doublereal * scale, doublereal * cnorm,
4667  integer * info, ftnlen uplo_len, ftnlen trans_len,
4668  ftnlen diag_len, ftnlen normin_len);
4669 extern int zlatrz_(integer * m, integer * n, integer * l, doublecomplex * a,
4670  integer * lda, doublecomplex * tau, doublecomplex * work);
4671 extern int zlatzm_(char *side, integer * m, integer * n, doublecomplex * v,
4672  integer * incv, doublecomplex * tau, doublecomplex * c1,
4673  doublecomplex * c2, integer * ldc, doublecomplex * work,
4674  ftnlen side_len);
4675 extern int zlauu2_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4676  integer * info, ftnlen uplo_len);
4677 extern int zlauum_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4678  integer * info, ftnlen uplo_len);
4679 extern int zpbcon_(char *uplo, integer * n, integer * kd, doublecomplex * ab,
4680  integer * ldab, doublereal * anorm, doublereal * rcond,
4681  doublecomplex * work, doublereal * rwork, integer * info,
4682  ftnlen uplo_len);
4683 extern int zpbequ_(char *uplo, integer * n, integer * kd, doublecomplex * ab,
4684  integer * ldab, doublereal * s, doublereal * scond,
4685  doublereal * amax, integer * info, ftnlen uplo_len);
4686 extern int zpbrfs_(char *uplo, integer * n, integer * kd, integer * nrhs,
4687  doublecomplex * ab, integer * ldab, doublecomplex * afb,
4688  integer * ldafb, doublecomplex * b, integer * ldb,
4689  doublecomplex * x, integer * ldx, doublereal * ferr,
4690  doublereal * berr, doublecomplex * work,
4691  doublereal * rwork, integer * info, ftnlen uplo_len);
4692 extern int zpbstf_(char *uplo, integer * n, integer * kd, doublecomplex * ab,
4693  integer * ldab, integer * info, ftnlen uplo_len);
4694 extern int zpbsv_(char *uplo, integer * n, integer * kd, integer * nrhs,
4695  doublecomplex * ab, integer * ldab, doublecomplex * b,
4696  integer * ldb, integer * info, ftnlen uplo_len);
4697 extern int zpbsvx_(char *fact, char *uplo, integer * n, integer * kd,
4698  integer * nrhs, doublecomplex * ab, integer * ldab,
4699  doublecomplex * afb, integer * ldafb, char *equed,
4700  doublereal * s, doublecomplex * b, integer * ldb,
4701  doublecomplex * x, integer * ldx, doublereal * rcond,
4702  doublereal * ferr, doublereal * berr, doublecomplex * work,
4703  doublereal * rwork, integer * info, ftnlen fact_len,
4704  ftnlen uplo_len, ftnlen equed_len);
4705 extern int zpbtf2_(char *uplo, integer * n, integer * kd, doublecomplex * ab,
4706  integer * ldab, integer * info, ftnlen uplo_len);
4707 extern int zpbtrf_(char *uplo, integer * n, integer * kd, doublecomplex * ab,
4708  integer * ldab, integer * info, ftnlen uplo_len);
4709 extern int zpbtrs_(char *uplo, integer * n, integer * kd, integer * nrhs,
4710  doublecomplex * ab, integer * ldab, doublecomplex * b,
4711  integer * ldb, integer * info, ftnlen uplo_len);
4712 extern int zpocon_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4713  doublereal * anorm, doublereal * rcond,
4714  doublecomplex * work, doublereal * rwork, integer * info,
4715  ftnlen uplo_len);
4716 extern int zpoequ_(integer * n, doublecomplex * a, integer * lda,
4717  doublereal * s, doublereal * scond, doublereal * amax,
4718  integer * info);
4719 extern int zporfs_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4720  integer * lda, doublecomplex * af, integer * ldaf,
4721  doublecomplex * b, integer * ldb, doublecomplex * x,
4722  integer * ldx, doublereal * ferr, doublereal * berr,
4723  doublecomplex * work, doublereal * rwork, integer * info,
4724  ftnlen uplo_len);
4725 extern int zposv_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4726  integer * lda, doublecomplex * b, integer * ldb,
4727  integer * info, ftnlen uplo_len);
4728 extern int zposvx_(char *fact, char *uplo, integer * n, integer * nrhs,
4729  doublecomplex * a, integer * lda, doublecomplex * af,
4730  integer * ldaf, char *equed, doublereal * s,
4731  doublecomplex * b, integer * ldb, doublecomplex * x,
4732  integer * ldx, doublereal * rcond, doublereal * ferr,
4733  doublereal * berr, doublecomplex * work,
4734  doublereal * rwork, integer * info, ftnlen fact_len,
4735  ftnlen uplo_len, ftnlen equed_len);
4736 extern int zpotf2_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4737  integer * info, ftnlen uplo_len);
4738 extern int zpotrf_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4739  integer * info, ftnlen uplo_len);
4740 extern int zpotri_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4741  integer * info, ftnlen uplo_len);
4742 extern int zpotrs_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4743  integer * lda, doublecomplex * b, integer * ldb,
4744  integer * info, ftnlen uplo_len);
4745 extern int zppcon_(char *uplo, integer * n, doublecomplex * ap,
4746  doublereal * anorm, doublereal * rcond,
4747  doublecomplex * work, doublereal * rwork, integer * info,
4748  ftnlen uplo_len);
4749 extern int zppequ_(char *uplo, integer * n, doublecomplex * ap,
4750  doublereal * s, doublereal * scond, doublereal * amax,
4751  integer * info, ftnlen uplo_len);
4752 extern int zpprfs_(char *uplo, integer * n, integer * nrhs,
4753  doublecomplex * ap, doublecomplex * afp, doublecomplex * b,
4754  integer * ldb, doublecomplex * x, integer * ldx,
4755  doublereal * ferr, doublereal * berr, doublecomplex * work,
4756  doublereal * rwork, integer * info, ftnlen uplo_len);
4757 extern int zppsv_(char *uplo, integer * n, integer * nrhs, doublecomplex * ap,
4758  doublecomplex * b, integer * ldb, integer * info,
4759  ftnlen uplo_len);
4760 extern int zppsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
4761  doublecomplex * ap, doublecomplex * afp, char *equed,
4762  doublereal * s, doublecomplex * b, integer * ldb,
4763  doublecomplex * x, integer * ldx, doublereal * rcond,
4764  doublereal * ferr, doublereal * berr, doublecomplex * work,
4765  doublereal * rwork, integer * info, ftnlen fact_len,
4766  ftnlen uplo_len, ftnlen equed_len);
4767 extern int zpptrf_(char *uplo, integer * n, doublecomplex * ap,
4768  integer * info, ftnlen uplo_len);
4769 extern int zpptri_(char *uplo, integer * n, doublecomplex * ap,
4770  integer * info, ftnlen uplo_len);
4771 extern int zpptrs_(char *uplo, integer * n, integer * nrhs,
4772  doublecomplex * ap, doublecomplex * b, integer * ldb,
4773  integer * info, ftnlen uplo_len);
4774 extern int zptcon_(integer * n, doublereal * d__, doublecomplex * e,
4775  doublereal * anorm, doublereal * rcond, doublereal * rwork,
4776  integer * info);
4777 extern int zpteqr_(char *compz, integer * n, doublereal * d__, doublereal * e,
4778  doublecomplex * z__, integer * ldz, doublereal * work,
4779  integer * info, ftnlen compz_len);
4780 extern int zptrfs_(char *uplo, integer * n, integer * nrhs, doublereal * d__,
4781  doublecomplex * e, doublereal * df, doublecomplex * ef,
4782  doublecomplex * b, integer * ldb, doublecomplex * x,
4783  integer * ldx, doublereal * ferr, doublereal * berr,
4784  doublecomplex * work, doublereal * rwork, integer * info,
4785  ftnlen uplo_len);
4786 extern int zptsv_(integer * n, integer * nrhs, doublereal * d__,
4787  doublecomplex * e, doublecomplex * b, integer * ldb,
4788  integer * info);
4789 extern int zptsvx_(char *fact, integer * n, integer * nrhs, doublereal * d__,
4790  doublecomplex * e, doublereal * df, doublecomplex * ef,
4791  doublecomplex * b, integer * ldb, doublecomplex * x,
4792  integer * ldx, doublereal * rcond, doublereal * ferr,
4793  doublereal * berr, doublecomplex * work,
4794  doublereal * rwork, integer * info, ftnlen fact_len);
4795 extern int zpttrf_(integer * n, doublereal * d__, doublecomplex * e,
4796  integer * info);
4797 extern int zpttrs_(char *uplo, integer * n, integer * nrhs, doublereal * d__,
4798  doublecomplex * e, doublecomplex * b, integer * ldb,
4799  integer * info, ftnlen uplo_len);
4800 extern int zptts2_(integer * iuplo, integer * n, integer * nrhs,
4801  doublereal * d__, doublecomplex * e, doublecomplex * b,
4802  integer * ldb);
4803 extern int zrot_(integer * n, doublecomplex * cx, integer * incx,
4804  doublecomplex * cy, integer * incy, doublereal * c__,
4805  doublecomplex * s);
4806 extern int zspcon_(char *uplo, integer * n, doublecomplex * ap,
4807  integer * ipiv, doublereal * anorm, doublereal * rcond,
4808  doublecomplex * work, integer * info, ftnlen uplo_len);
4809 extern int zspmv_(char *uplo, integer * n, doublecomplex * alpha,
4810  doublecomplex * ap, doublecomplex * x, integer * incx,
4811  doublecomplex * beta, doublecomplex * y, integer * incy,
4812  ftnlen uplo_len);
4813 extern int zspr_(char *uplo, integer * n, doublecomplex * alpha,
4814  doublecomplex * x, integer * incx, doublecomplex * ap,
4815  ftnlen uplo_len);
4816 extern int zsprfs_(char *uplo, integer * n, integer * nrhs,
4817  doublecomplex * ap, doublecomplex * afp, integer * ipiv,
4818  doublecomplex * b, integer * ldb, doublecomplex * x,
4819  integer * ldx, doublereal * ferr, doublereal * berr,
4820  doublecomplex * work, doublereal * rwork, integer * info,
4821  ftnlen uplo_len);
4822 extern int zspsv_(char *uplo, integer * n, integer * nrhs, doublecomplex * ap,
4823  integer * ipiv, doublecomplex * b, integer * ldb,
4824  integer * info, ftnlen uplo_len);
4825 extern int zspsvx_(char *fact, char *uplo, integer * n, integer * nrhs,
4826  doublecomplex * ap, doublecomplex * afp, integer * ipiv,
4827  doublecomplex * b, integer * ldb, doublecomplex * x,
4828  integer * ldx, doublereal * rcond, doublereal * ferr,
4829  doublereal * berr, doublecomplex * work,
4830  doublereal * rwork, integer * info, ftnlen fact_len,
4831  ftnlen uplo_len);
4832 extern int zsptrf_(char *uplo, integer * n, doublecomplex * ap,
4833  integer * ipiv, integer * info, ftnlen uplo_len);
4834 extern int zsptri_(char *uplo, integer * n, doublecomplex * ap,
4835  integer * ipiv, doublecomplex * work, integer * info,
4836  ftnlen uplo_len);
4837 extern int zsptrs_(char *uplo, integer * n, integer * nrhs,
4838  doublecomplex * ap, integer * ipiv, doublecomplex * b,
4839  integer * ldb, integer * info, ftnlen uplo_len);
4840 extern int zstedc_(char *compz, integer * n, doublereal * d__, doublereal * e,
4841  doublecomplex * z__, integer * ldz, doublecomplex * work,
4842  integer * lwork, doublereal * rwork, integer * lrwork,
4843  integer * iwork, integer * liwork, integer * info,
4844  ftnlen compz_len);
4845 extern int zstegr_(char *jobz, char *range, integer * n, doublereal * d__,
4846  doublereal * e, doublereal * vl, doublereal * vu,
4847  integer * il, integer * iu, doublereal * abstol,
4848  integer * m, doublereal * w, doublecomplex * z__,
4849  integer * ldz, integer * isuppz, doublereal * work,
4850  integer * lwork, integer * iwork, integer * liwork,
4851  integer * info, ftnlen jobz_len, ftnlen range_len);
4852 extern int zstein_(integer * n, doublereal * d__, doublereal * e, integer * m,
4853  doublereal * w, integer * iblock, integer * isplit,
4854  doublecomplex * z__, integer * ldz, doublereal * work,
4855  integer * iwork, integer * ifail, integer * info);
4856 extern int zsteqr_(char *compz, integer * n, doublereal * d__, doublereal * e,
4857  doublecomplex * z__, integer * ldz, doublereal * work,
4858  integer * info, ftnlen compz_len);
4859 extern int zsycon_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4860  integer * ipiv, doublereal * anorm, doublereal * rcond,
4861  doublecomplex * work, integer * info, ftnlen uplo_len);
4862 extern int zsymv_(char *uplo, integer * n, doublecomplex * alpha,
4863  doublecomplex * a, integer * lda, doublecomplex * x,
4864  integer * incx, doublecomplex * beta, doublecomplex * y,
4865  integer * incy, ftnlen uplo_len);
4866 extern int zsyr_(char *uplo, integer * n, doublecomplex * alpha,
4867  doublecomplex * x, integer * incx, doublecomplex * a,
4868  integer * lda, ftnlen uplo_len);
4869 extern int zsyrfs_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4870  integer * lda, doublecomplex * af, integer * ldaf,
4871  integer * ipiv, doublecomplex * b, integer * ldb,
4872  doublecomplex * x, integer * ldx, doublereal * ferr,
4873  doublereal * berr, doublecomplex * work,
4874  doublereal * rwork, integer * info, ftnlen uplo_len);
4875 extern int zsysv_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4876  integer * lda, integer * ipiv, doublecomplex * b,
4877  integer * ldb, doublecomplex * work, integer * lwork,
4878  integer * info, ftnlen uplo_len);
4879 extern int zsysvx_(char *fact, char *uplo, integer * n, integer * nrhs,
4880  doublecomplex * a, integer * lda, doublecomplex * af,
4881  integer * ldaf, integer * ipiv, doublecomplex * b,
4882  integer * ldb, doublecomplex * x, integer * ldx,
4883  doublereal * rcond, doublereal * ferr, doublereal * berr,
4884  doublecomplex * work, integer * lwork, doublereal * rwork,
4885  integer * info, ftnlen fact_len, ftnlen uplo_len);
4886 extern int zsytf2_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4887  integer * ipiv, integer * info, ftnlen uplo_len);
4888 extern int zsytrf_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4889  integer * ipiv, doublecomplex * work, integer * lwork,
4890  integer * info, ftnlen uplo_len);
4891 extern int zsytri_(char *uplo, integer * n, doublecomplex * a, integer * lda,
4892  integer * ipiv, doublecomplex * work, integer * info,
4893  ftnlen uplo_len);
4894 extern int zsytrs_(char *uplo, integer * n, integer * nrhs, doublecomplex * a,
4895  integer * lda, integer * ipiv, doublecomplex * b,
4896  integer * ldb, integer * info, ftnlen uplo_len);
4897 extern int ztbcon_(char *norm, char *uplo, char *diag, integer * n,
4898  integer * kd, doublecomplex * ab, integer * ldab,
4899  doublereal * rcond, doublecomplex * work,
4900  doublereal * rwork, integer * info, ftnlen norm_len,
4901  ftnlen uplo_len, ftnlen diag_len);
4902 extern int ztbrfs_(char *uplo, char *trans, char *diag, integer * n,
4903  integer * kd, integer * nrhs, doublecomplex * ab,
4904  integer * ldab, doublecomplex * b, integer * ldb,
4905  doublecomplex * x, integer * ldx, doublereal * ferr,
4906  doublereal * berr, doublecomplex * work,
4907  doublereal * rwork, integer * info, ftnlen uplo_len,
4908  ftnlen trans_len, ftnlen diag_len);
4909 extern int ztbtrs_(char *uplo, char *trans, char *diag, integer * n,
4910  integer * kd, integer * nrhs, doublecomplex * ab,
4911  integer * ldab, doublecomplex * b, integer * ldb,
4912  integer * info, ftnlen uplo_len, ftnlen trans_len,
4913  ftnlen diag_len);
4914 extern int ztgevc_(char *side, char *howmny, logical * select, integer * n,
4915  doublecomplex * a, integer * lda, doublecomplex * b,
4916  integer * ldb, doublecomplex * vl, integer * ldvl,
4917  doublecomplex * vr, integer * ldvr, integer * mm,
4918  integer * m, doublecomplex * work, doublereal * rwork,
4919  integer * info, ftnlen side_len, ftnlen howmny_len);
4920 extern int ztgex2_(logical * wantq, logical * wantz, integer * n,
4921  doublecomplex * a, integer * lda, doublecomplex * b,
4922  integer * ldb, doublecomplex * q, integer * ldq,
4923  doublecomplex * z__, integer * ldz, integer * j1,
4924  integer * info);
4925 extern int ztgexc_(logical * wantq, logical * wantz, integer * n,
4926  doublecomplex * a, integer * lda, doublecomplex * b,
4927  integer * ldb, doublecomplex * q, integer * ldq,
4928  doublecomplex * z__, integer * ldz, integer * ifst,
4929  integer * ilst, integer * info);
4930 extern int ztgsen_(integer * ijob, logical * wantq, logical * wantz,
4931  logical * select, integer * n, doublecomplex * a,
4932  integer * lda, doublecomplex * b, integer * ldb,
4933  doublecomplex * alpha, doublecomplex * beta,
4934  doublecomplex * q, integer * ldq, doublecomplex * z__,
4935  integer * ldz, integer * m, doublereal * pl,
4936  doublereal * pr, doublereal * dif, doublecomplex * work,
4937  integer * lwork, integer * iwork, integer * liwork,
4938  integer * info);
4939 extern int ztgsja_(char *jobu, char *jobv, char *jobq, integer * m,
4940  integer * p, integer * n, integer * k, integer * l,
4941  doublecomplex * a, integer * lda, doublecomplex * b,
4942  integer * ldb, doublereal * tola, doublereal * tolb,
4943  doublereal * alpha, doublereal * beta, doublecomplex * u,
4944  integer * ldu, doublecomplex * v, integer * ldv,
4945  doublecomplex * q, integer * ldq, doublecomplex * work,
4946  integer * ncycle, integer * info, ftnlen jobu_len,
4947  ftnlen jobv_len, ftnlen jobq_len);
4948 extern int ztgsna_(char *job, char *howmny, logical * select, integer * n,
4949  doublecomplex * a, integer * lda, doublecomplex * b,
4950  integer * ldb, doublecomplex * vl, integer * ldvl,
4951  doublecomplex * vr, integer * ldvr, doublereal * s,
4952  doublereal * dif, integer * mm, integer * m,
4953  doublecomplex * work, integer * lwork, integer * iwork,
4954  integer * info, ftnlen job_len, ftnlen howmny_len);
4955 extern int ztgsy2_(char *trans, integer * ijob, integer * m, integer * n,
4956  doublecomplex * a, integer * lda, doublecomplex * b,
4957  integer * ldb, doublecomplex * c__, integer * ldc,
4958  doublecomplex * d__, integer * ldd, doublecomplex * e,
4959  integer * lde, doublecomplex * f, integer * ldf,
4960  doublereal * scale, doublereal * rdsum,
4961  doublereal * rdscal, integer * info, ftnlen trans_len);
4962 extern int ztgsyl_(char *trans, integer * ijob, integer * m, integer * n,
4963  doublecomplex * a, integer * lda, doublecomplex * b,
4964  integer * ldb, doublecomplex * c__, integer * ldc,
4965  doublecomplex * d__, integer * ldd, doublecomplex * e,
4966  integer * lde, doublecomplex * f, integer * ldf,
4967  doublereal * scale, doublereal * dif, doublecomplex * work,
4968  integer * lwork, integer * iwork, integer * info,
4969  ftnlen trans_len);
4970 extern int ztpcon_(char *norm, char *uplo, char *diag, integer * n,
4971  doublecomplex * ap, doublereal * rcond,
4972  doublecomplex * work, doublereal * rwork, integer * info,
4973  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
4974 extern int ztprfs_(char *uplo, char *trans, char *diag, integer * n,
4975  integer * nrhs, doublecomplex * ap, doublecomplex * b,
4976  integer * ldb, doublecomplex * x, integer * ldx,
4977  doublereal * ferr, doublereal * berr, doublecomplex * work,
4978  doublereal * rwork, integer * info, ftnlen uplo_len,
4979  ftnlen trans_len, ftnlen diag_len);
4980 extern int ztptri_(char *uplo, char *diag, integer * n, doublecomplex * ap,
4981  integer * info, ftnlen uplo_len, ftnlen diag_len);
4982 extern int ztptrs_(char *uplo, char *trans, char *diag, integer * n,
4983  integer * nrhs, doublecomplex * ap, doublecomplex * b,
4984  integer * ldb, integer * info, ftnlen uplo_len,
4985  ftnlen trans_len, ftnlen diag_len);
4986 extern int ztrcon_(char *norm, char *uplo, char *diag, integer * n,
4987  doublecomplex * a, integer * lda, doublereal * rcond,
4988  doublecomplex * work, doublereal * rwork, integer * info,
4989  ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len);
4990 extern int ztrevc_(char *side, char *howmny, logical * select, integer * n,
4991  doublecomplex * t, integer * ldt, doublecomplex * vl,
4992  integer * ldvl, doublecomplex * vr, integer * ldvr,
4993  integer * mm, integer * m, doublecomplex * work,
4994  doublereal * rwork, integer * info, ftnlen side_len,
4995  ftnlen howmny_len);
4996 extern int ztrexc_(char *compq, integer * n, doublecomplex * t, integer * ldt,
4997  doublecomplex * q, integer * ldq, integer * ifst,
4998  integer * ilst, integer * info, ftnlen compq_len);
4999 extern int ztrrfs_(char *uplo, char *trans, char *diag, integer * n,
5000  integer * nrhs, doublecomplex * a, integer * lda,
5001  doublecomplex * b, integer * ldb, doublecomplex * x,
5002  integer * ldx, doublereal * ferr, doublereal * berr,
5003  doublecomplex * work, doublereal * rwork, integer * info,
5004  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
5005 extern int ztrsen_(char *job, char *compq, logical * select, integer * n,
5006  doublecomplex * t, integer * ldt, doublecomplex * q,
5007  integer * ldq, doublecomplex * w, integer * m,
5008  doublereal * s, doublereal * sep, doublecomplex * work,
5009  integer * lwork, integer * info, ftnlen job_len,
5010  ftnlen compq_len);
5011 extern int ztrsna_(char *job, char *howmny, logical * select, integer * n,
5012  doublecomplex * t, integer * ldt, doublecomplex * vl,
5013  integer * ldvl, doublecomplex * vr, integer * ldvr,
5014  doublereal * s, doublereal * sep, integer * mm,
5015  integer * m, doublecomplex * work, integer * ldwork,
5016  doublereal * rwork, integer * info, ftnlen job_len,
5017  ftnlen howmny_len);
5018 extern int ztrsyl_(char *trana, char *tranb, integer * isgn, integer * m,
5019  integer * n, doublecomplex * a, integer * lda,
5020  doublecomplex * b, integer * ldb, doublecomplex * c__,
5021  integer * ldc, doublereal * scale, integer * info,
5022  ftnlen trana_len, ftnlen tranb_len);
5023 extern int ztrti2_(char *uplo, char *diag, integer * n, doublecomplex * a,
5024  integer * lda, integer * info, ftnlen uplo_len,
5025  ftnlen diag_len);
5026 extern int ztrtri_(char *uplo, char *diag, integer * n, doublecomplex * a,
5027  integer * lda, integer * info, ftnlen uplo_len,
5028  ftnlen diag_len);
5029 extern int ztrtrs_(char *uplo, char *trans, char *diag, integer * n,
5030  integer * nrhs, doublecomplex * a, integer * lda,
5031  doublecomplex * b, integer * ldb, integer * info,
5032  ftnlen uplo_len, ftnlen trans_len, ftnlen diag_len);
5033 extern int ztzrqf_(integer * m, integer * n, doublecomplex * a, integer * lda,
5034  doublecomplex * tau, integer * info);
5035 extern int ztzrzf_(integer * m, integer * n, doublecomplex * a, integer * lda,
5036  doublecomplex * tau, doublecomplex * work, integer * lwork,
5037  integer * info);
5038 extern int zung2l_(integer * m, integer * n, integer * k, doublecomplex * a,
5039  integer * lda, doublecomplex * tau, doublecomplex * work,
5040  integer * info);
5041 extern int zung2r_(integer * m, integer * n, integer * k, doublecomplex * a,
5042  integer * lda, doublecomplex * tau, doublecomplex * work,
5043  integer * info);
5044 extern int zungbr_(char *vect, integer * m, integer * n, integer * k,
5045  doublecomplex * a, integer * lda, doublecomplex * tau,
5046  doublecomplex * work, integer * lwork, integer * info,
5047  ftnlen vect_len);
5048 extern int zunghr_(integer * n, integer * ilo, integer * ihi,
5049  doublecomplex * a, integer * lda, doublecomplex * tau,
5050  doublecomplex * work, integer * lwork, integer * info);
5051 extern int zungl2_(integer * m, integer * n, integer * k, doublecomplex * a,
5052  integer * lda, doublecomplex * tau, doublecomplex * work,
5053  integer * info);
5054 extern int zunglq_(integer * m, integer * n, integer * k, doublecomplex * a,
5055  integer * lda, doublecomplex * tau, doublecomplex * work,
5056  integer * lwork, integer * info);
5057 extern int zungql_(integer * m, integer * n, integer * k, doublecomplex * a,
5058  integer * lda, doublecomplex * tau, doublecomplex * work,
5059  integer * lwork, integer * info);
5060 extern int zungqr_(integer * m, integer * n, integer * k, doublecomplex * a,
5061  integer * lda, doublecomplex * tau, doublecomplex * work,
5062  integer * lwork, integer * info);
5063 extern int zungr2_(integer * m, integer * n, integer * k, doublecomplex * a,
5064  integer * lda, doublecomplex * tau, doublecomplex * work,
5065  integer * info);
5066 extern int zungrq_(integer * m, integer * n, integer * k, doublecomplex * a,
5067  integer * lda, doublecomplex * tau, doublecomplex * work,
5068  integer * lwork, integer * info);
5069 extern int zungtr_(char *uplo, integer * n, doublecomplex * a, integer * lda,
5070  doublecomplex * tau, doublecomplex * work, integer * lwork,
5071  integer * info, ftnlen uplo_len);
5072 extern int zunm2l_(char *side, char *trans, integer * m, integer * n,
5073  integer * k, doublecomplex * a, integer * lda,
5074  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5075  doublecomplex * work, integer * info, ftnlen side_len,
5076  ftnlen trans_len);
5077 extern int zunm2r_(char *side, char *trans, integer * m, integer * n,
5078  integer * k, doublecomplex * a, integer * lda,
5079  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5080  doublecomplex * work, integer * info, ftnlen side_len,
5081  ftnlen trans_len);
5082 extern int zunmbr_(char *vect, char *side, char *trans, integer * m,
5083  integer * n, integer * k, doublecomplex * a, integer * lda,
5084  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5085  doublecomplex * work, integer * lwork, integer * info,
5086  ftnlen vect_len, ftnlen side_len, ftnlen trans_len);
5087 extern int zunmhr_(char *side, char *trans, integer * m, integer * n,
5088  integer * ilo, integer * ihi, doublecomplex * a,
5089  integer * lda, doublecomplex * tau, doublecomplex * c__,
5090  integer * ldc, doublecomplex * work, integer * lwork,
5091  integer * info, ftnlen side_len, ftnlen trans_len);
5092 extern int zunml2_(char *side, char *trans, integer * m, integer * n,
5093  integer * k, doublecomplex * a, integer * lda,
5094  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5095  doublecomplex * work, integer * info, ftnlen side_len,
5096  ftnlen trans_len);
5097 extern int zunmlq_(char *side, char *trans, integer * m, integer * n,
5098  integer * k, doublecomplex * a, integer * lda,
5099  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5100  doublecomplex * work, integer * lwork, integer * info,
5101  ftnlen side_len, ftnlen trans_len);
5102 extern int zunmql_(char *side, char *trans, integer * m, integer * n,
5103  integer * k, doublecomplex * a, integer * lda,
5104  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5105  doublecomplex * work, integer * lwork, integer * info,
5106  ftnlen side_len, ftnlen trans_len);
5107 extern int zunmqr_(char *side, char *trans, integer * m, integer * n,
5108  integer * k, doublecomplex * a, integer * lda,
5109  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5110  doublecomplex * work, integer * lwork, integer * info,
5111  ftnlen side_len, ftnlen trans_len);
5112 extern int zunmr2_(char *side, char *trans, integer * m, integer * n,
5113  integer * k, doublecomplex * a, integer * lda,
5114  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5115  doublecomplex * work, integer * info, ftnlen side_len,
5116  ftnlen trans_len);
5117 extern int zunmr3_(char *side, char *trans, integer * m, integer * n,
5118  integer * k, integer * l, doublecomplex * a, integer * lda,
5119  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5120  doublecomplex * work, integer * info, ftnlen side_len,
5121  ftnlen trans_len);
5122 extern int zunmrq_(char *side, char *trans, integer * m, integer * n,
5123  integer * k, doublecomplex * a, integer * lda,
5124  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5125  doublecomplex * work, integer * lwork, integer * info,
5126  ftnlen side_len, ftnlen trans_len);
5127 extern int zunmrz_(char *side, char *trans, integer * m, integer * n,
5128  integer * k, integer * l, doublecomplex * a, integer * lda,
5129  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5130  doublecomplex * work, integer * lwork, integer * info,
5131  ftnlen side_len, ftnlen trans_len);
5132 extern int zunmtr_(char *side, char *uplo, char *trans, integer * m,
5133  integer * n, doublecomplex * a, integer * lda,
5134  doublecomplex * tau, doublecomplex * c__, integer * ldc,
5135  doublecomplex * work, integer * lwork, integer * info,
5136  ftnlen side_len, ftnlen uplo_len, ftnlen trans_len);
5137 extern int zupgtr_(char *uplo, integer * n, doublecomplex * ap,
5138  doublecomplex * tau, doublecomplex * q, integer * ldq,
5139  doublecomplex * work, integer * info, ftnlen uplo_len);
5140 extern int zupmtr_(char *side, char *uplo, char *trans, integer * m,
5141  integer * n, doublecomplex * ap, doublecomplex * tau,
5142  doublecomplex * c__, integer * ldc, doublecomplex * work,
5143  integer * info, ftnlen side_len, ftnlen uplo_len,
5144  ftnlen trans_len);
5145 
5146 #endif
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)
int zlacon_(integer *n, doublecomplex *v, doublecomplex *x, doublereal *est, integer *kase)
int sgeequ_(integer *m, integer *n, real *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info)
int dstev_(char *jobz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen jobz_len)
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)
int zlarf_(char *side, integer *m, integer *n, doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, ftnlen side_len)
int chegst_(integer *itype, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int zunglq_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
int dgetrf_(integer *m, integer *n, doublereal *a, integer *lda, integer *ipiv, integer *info)
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)
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)
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)
int dlapll_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *ssmin)
doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
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)
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)
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)
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)
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)
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)
int integer
Definition: la.h:48
int spbstf_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info, ftnlen uplo_len)
int spocon_(char *uplo, integer *n, real *a, integer *lda, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len)
int zlacpy_(char *uplo, integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen uplo_len)
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)
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)
int cgetrf_(integer *m, integer *n, complex *a, integer *lda, integer *ipiv, integer *info)
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)
int zpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len)
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)
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)
int slaswp_(integer *n, real *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx)
int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len)
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)
E_f slanst_(char *norm, integer *n, real *d__, real *e, ftnlen norm_len)
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)
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)
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)
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)
int cpptri_(char *uplo, integer *n, complex *ap, integer *info, ftnlen uplo_len)
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)
int sgebd2_(integer *m, integer *n, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *work, integer *info)
int dlagv2_(doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *snr)
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)
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)
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)
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)
int dgesv_(integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info)
int dorgl2_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
int spotrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
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)
doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
float real
Definition: la.h:52
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)
int cungrq_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
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)
int csytrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
E_f slapy3_(real *x, real *y, real *z__)
int zlapll_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *ssmin)
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)
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)
int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int slasq6_(integer *i0, integer *n0, real *z__, integer *pp, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *dnm2)
int dlamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1)
int slagts_(integer *job, integer *n, real *a, real *b, real *c__, real *d__, integer *in, real *y, real *tol, integer *info)
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)
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)
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)
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)
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)
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)
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)
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)
int slapmt_(logical *forwrd, integer *m, integer *n, real *x, integer *ldx, integer *k)
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)
int sptcon_(integer *n, real *d__, real *e, real *anorm, real *rcond, real *work, integer *info)
int sorglq_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
int sgebal_(char *job, integer *n, real *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info, ftnlen job_len)
int csycon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len)
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)
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)
int dpttrs_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info)
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)
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)
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)
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)
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)
int dlartv_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer *incc)
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)
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)
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)
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)
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)
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)
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)
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)
int stzrzf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
int dgeqlf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
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)
int zgetc2_(integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *jpiv, integer *info)
int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, integer *info)
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)
int slabad_(real *small, real *large)
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)
doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len)
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)
int cungql_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
int zgesc2_(integer *n, doublecomplex *a, integer *lda, doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale)
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)
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)
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)
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)
int crot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, complex *s)
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)
int zlarfx_(char *side, integer *m, integer *n, doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, ftnlen side_len)
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)
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)
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)
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)
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)
int zhetrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len)
int slasq5_(integer *i0, integer *n0, real *z__, integer *pp, real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *dnm2)
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)
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)
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)
E_f clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len)
E_f clanhp_(char *norm, char *uplo, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len)
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)
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)
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)
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)
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)
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)
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)
int sgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb, integer *info)
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)
E_f slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len)
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)
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)
int sladiv_(real *a, real *b, real *c__, real *d__, real *p, real *q)
int stzrqf_(integer *m, integer *n, real *a, integer *lda, real *tau, integer *info)
int dlanv2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r, doublereal *rt2i, doublereal *cs, doublereal *sn)
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)
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)
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)
int sgetrf_(integer *m, integer *n, real *a, integer *lda, integer *ipiv, integer *info)
int dsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len)
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)
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)
int zgerq2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
int cungl2_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info)
int zlaset_(char *uplo, integer *m, integer *n, doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *lda, ftnlen uplo_len)
int slaed6_(integer *kniter, logical *orgati, real *rho, real *d__, real *z__, real *finit, real *tau, integer *info)
double doublereal
Definition: la.h:53
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)
int dlaed5_(integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam)
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)
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)
int cgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *ldb, integer *info)
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)
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)
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)
int dsygs2_(integer *itype, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
int dtzrqf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, integer *info)
int zpbstf_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info, ftnlen uplo_len)
int ctzrzf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
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)
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)
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)
int cgeqr2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info)
int chpgst_(integer *itype, char *uplo, integer *n, complex *ap, complex *bp, integer *info, ftnlen uplo_len)
void Z_f
Definition: la.h:88
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)
int chetf2_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplo_len)
int spbtrf_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info, ftnlen uplo_len)
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)
int zsyr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *a, integer *lda, ftnlen uplo_len)
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)
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)
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)
int classq_(integer *n, complex *x, integer *incx, real *scale, real *sumsq)
int ssygs2_(integer *itype, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len)
int spteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen compz_len)
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)
int zgeql2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
int slamc5_(integer *beta, integer *p, integer *emin, logical *ieee, integer *emax, real *rmax)
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)
integer izmax1_(integer *n, doublecomplex *cx, integer *incx)
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)
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)
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)
int sorgtr_(char *uplo, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info, ftnlen uplo_len)
int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *b, integer *ldb, integer *info)
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)
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)
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)
int zptts2_(integer *iuplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb)
int dlasq3_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig, doublereal *qmax, integer *nfail, integer *iter, integer *ndiv)
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)
doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len)
int clatdf_(integer *ijob, integer *n, complex *z__, integer *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *jpiv)
int sgetri_(integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *lwork, integer *info)
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)
int slagtf_(integer *n, real *a, real *lambda, real *b, real *c__, real *tol, real *d__, integer *in, integer *info)
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)
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)
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)
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)
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)
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)
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)
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)
int slasq3_(integer *i0, integer *n0, real *z__, integer *pp, real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail, integer *iter, integer *ndiv)
int slamc1_(integer *beta, integer *t, logical *rnd, logical *ieee1)
int zhptrd_(char *uplo, integer *n, doublecomplex *ap, doublereal *d__, doublereal *e, doublecomplex *tau, integer *info, ftnlen uplo_len)
int sptsv_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info)
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)
int zlaesy_(doublecomplex *a, doublecomplex *b, doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2, doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1)
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)
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)
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)
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)
int clatrd_(char *uplo, integer *n, integer *nb, complex *a, integer *lda, real *e, complex *tau, complex *w, integer *ldw, ftnlen uplo_len)
int dgeqrf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
int zlahrd_(integer *n, integer *k, integer *nb, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t, integer *ldt, doublecomplex *y, integer *ldy)
int clatrz_(integer *m, integer *n, integer *l, complex *a, integer *lda, complex *tau, complex *work)
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)
int zlaev2_(doublecomplex *a, doublecomplex *b, doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublecomplex *sn1)
int dlassq_(integer *n, doublereal *x, integer *incx, doublereal *scale, doublereal *sumsq)
int ssteqr_(char *compz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen compz_len)
int zpotf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
int zpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int cgeqp3_(integer *m, integer *n, complex *a, integer *lda, integer *jpvt, complex *tau, complex *work, integer *lwork, real *rwork, integer *info)
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)
int chpsv_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int cspsv_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int chegs2_(integer *itype, char *uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int dlapmt_(logical *forwrd, integer *m, integer *n, doublereal *x, integer *ldx, integer *k)
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)
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)
int dgelq2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
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)
int zlartv_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s, integer *incc)
int zungql_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
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)
int slaset_(char *uplo, integer *m, integer *n, real *alpha, real *beta, real *a, integer *lda, ftnlen uplo_len)
int dlas2_(doublereal *f, doublereal *g, doublereal *h__, doublereal *ssmin, doublereal *ssmax)
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)
int zlauu2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
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)
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)
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)
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)
int zpbtf2_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info, ftnlen uplo_len)
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)
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)
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)
logical(* L_fp)()
Definition: la.h:80
int dgetf2_(integer *m, integer *n, doublereal *a, integer *lda, integer *ipiv, integer *info)
int cunglq_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
E_f slanhs_(char *norm, integer *n, real *a, integer *lda, real *work, ftnlen norm_len)
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)
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)
int zgetf2_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info)
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)
int cspmv_(char *uplo, integer *n, complex *alpha, complex *ap, complex *x, integer *incx, complex *beta, complex *y, integer *incy, ftnlen uplo_len)
int zhptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
int spbequ_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len)
int chptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int zpttrf_(integer *n, doublereal *d__, doublecomplex *e, integer *info)
int slas2_(real *f, real *g, real *h__, real *ssmin, real *ssmax)
int csptri_(char *uplo, integer *n, complex *ap, integer *ipiv, complex *work, integer *info, ftnlen uplo_len)
int zsteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len)
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)
int zhptrf_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, integer *info, ftnlen uplo_len)
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)
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)
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)
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)
int zgelq2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
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)
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)
int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
struct cairo_state ca
int cgebd2_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *info)
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)
int dppcon_(char *uplo, integer *n, doublereal *ap, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
int clauu2_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
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)
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)
int cpotf2_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
E_f clantp_(char *norm, char *uplo, char *diag, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len)
int dtzrzf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
int spptrf_(char *uplo, integer *n, real *ap, integer *info, ftnlen uplo_len)
int slanv2_(real *a, real *b, real *c__, real *d__, real *rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn)
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)
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)
int slamrg_(integer *n1, integer *n2, real *a, integer *strd1, integer *strd2, integer *index)
int dlatdf_(integer *ijob, integer *n, doublereal *z__, integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal, integer *ipiv, integer *jpiv)
int clarnv_(integer *idist, integer *iseed, integer *n, complex *x)
int dlaruv_(integer *iseed, integer *n, doublereal *x)
int dlaev2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1)
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)
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)
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)
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)
int dptsv_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb, integer *info)
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)
int dspgst_(integer *itype, char *uplo, integer *n, doublereal *ap, doublereal *bp, integer *info, ftnlen uplo_len)
int csrscl_(integer *n, real *sa, complex *sx, integer *incx)
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)
int ctrexc_(char *compq, integer *n, complex *t, integer *ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *info, ftnlen compq_len)
int dorghr_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
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)
int zgetrs_(char *trans, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen trans_len)
E_f slansp_(char *norm, char *uplo, integer *n, real *ap, real *work, ftnlen norm_len, ftnlen uplo_len)
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)
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)
int slagv2_(real *a, integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real *beta, real *csl, real *snl, real *csr, real *snr)
int dgeqr2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
int zsytri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len)
int zrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s)
int dspcon_(char *uplo, integer *n, doublereal *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
int zpotrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
int sgtts2_(integer *itrans, integer *n, integer *nrhs, real *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb)
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)
int sorghr_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
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)
int zpbequ_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len)
int sdisna_(char *job, integer *m, integer *n, real *d__, real *sep, integer *info, ftnlen job_len)
int zsptrf_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, integer *info, ftnlen uplo_len)
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)
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)
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)
doublereal E_f
Definition: la.h:89
int spotri_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
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)
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)
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)
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)
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)
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)
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)
int spttrs_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb, integer *info)
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)
int dlabad_(doublereal *small, doublereal *large)
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)
int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *info)
int slarfg_(integer *n, real *alpha, real *x, integer *incx, real *tau)
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)
int claesy_(complex *a, complex *b, complex *c__, complex *rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1)
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)
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)
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)
int spbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info, ftnlen uplo_len)
int dlacpy_(char *uplo, integer *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, ftnlen uplo_len)
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)
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)
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)
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)
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)
int csyr_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *a, integer *lda, ftnlen uplo_len)
int sorgrq_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len)
int cgelq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info)
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)
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)
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)
int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb, integer *info)
int sgetf2_(integer *m, integer *n, real *a, integer *lda, integer *ipiv, integer *info)
int zpbtrf_(char *uplo, integer *n, integer *kd, doublecomplex *ab, integer *ldab, integer *info, ftnlen uplo_len)
int drscl_(integer *n, doublereal *sa, doublereal *sx, integer *incx)
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)
int dptts2_(integer *n, integer *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb)
int sgerqf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
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)
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)
int ctptri_(char *uplo, char *diag, integer *n, complex *ap, integer *info, ftnlen uplo_len, ftnlen diag_len)
int dsytrf_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *lwork, integer *info, ftnlen uplo_len)
int cpoequ_(integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, integer *info)
int zsytf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
int slaic1_(integer *job, integer *j, real *x, real *sest, real *w, real *gamma, real *sestpr, real *s, real *c__)
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)
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)
int slaev2_(real *a, real *b, real *c__, real *rt1, real *rt2, real *cs1, real *sn1)
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)
int dpttrf_(integer *n, doublereal *d__, doublereal *e, integer *info)
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)
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)
int zlarcm_(integer *m, integer *n, doublereal *a, integer *lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *rwork)
int dtrtri_(char *uplo, char *diag, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
int zpotri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
#define x
int cpptrf_(char *uplo, integer *n, complex *ap, integer *info, ftnlen uplo_len)
int checon_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len)
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)
int cgeqlf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
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)
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)
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)
int spptri_(char *uplo, integer *n, real *ap, integer *info, ftnlen uplo_len)
int zhpsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
int slassq_(integer *n, real *x, integer *incx, real *scale, real *sumsq)
int cpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int slapll_(integer *n, real *x, integer *incx, real *y, integer *incy, real *ssmin)
int zgeqlf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
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)
int claswp_(integer *n, complex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx)
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)
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)
int clahrd_(integer *n, integer *k, integer *nb, complex *a, integer *lda, complex *tau, complex *t, integer *ldt, complex *y, integer *ldy)
int spotrf_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
int sstev_(char *jobz, integer *n, real *d__, real *e, real *z__, integer *ldz, real *work, integer *info, ftnlen jobz_len)
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)
int zung2l_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
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)
int dgeequ_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info)
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)
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)
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)
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)
int chptrf_(char *uplo, integer *n, complex *ap, integer *ipiv, integer *info, ftnlen uplo_len)
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)
int zgeqr2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
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)
int sppcon_(char *uplo, integer *n, real *ap, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len)
int slauum_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
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)
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)
int slacon_(integer *n, real *v, real *x, integer *isgn, real *est, integer *kase)
int zlaqhp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
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)
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)
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)
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)
int slatdf_(integer *ijob, integer *n, real *z__, integer *ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *jpiv)
int dlasq1_(integer *n, doublereal *d__, doublereal *e, doublereal *work, integer *info)
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)
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)
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)
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)
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)
int dpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int slar2v_(integer *n, real *x, real *y, real *z__, integer *incx, real *c__, real *s, integer *incc)
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)
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)
int dopgtr_(char *uplo, integer *n, doublereal *ap, doublereal *tau, doublereal *q, integer *ldq, doublereal *work, integer *info, ftnlen uplo_len)
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)
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)
int zgehrd_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
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)
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)
int dladiv_(doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, doublereal *p, doublereal *q)
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)
E_f slange_(char *norm, integer *m, integer *n, real *a, integer *lda, real *work, ftnlen norm_len)
int zlassq_(integer *n, doublecomplex *x, integer *incx, doublereal *scale, doublereal *sumsq)
int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len)
E_f clangt_(char *norm, integer *n, complex *dl, complex *d__, complex *du, ftnlen norm_len)
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)
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)
int dorgr2_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
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)
int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
E_f slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len)
int dlasv2_(doublereal *f, doublereal *g, doublereal *h__, doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *csr, doublereal *snl, doublereal *csl)
int sgelq2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info)
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)
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)
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)
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)
int zpptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int dlamc2_(integer *beta, integer *t, logical *rnd, doublereal *eps, integer *emin, doublereal *rmin, integer *emax, doublereal *rmax)
int dlaed1_(integer *n, doublereal *d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt, doublereal *work, integer *iwork, integer *info)
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)
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)
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)
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)
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)
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)
int dorgql_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
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)
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)
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)
int zgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *b, integer *ldb, integer *info)
integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1, integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen opts_len)
int cppcon_(char *uplo, integer *n, complex *ap, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplo_len)
doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
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)
E_f slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, real *work, ftnlen norm_len)
int zungqr_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
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)
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)
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)
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)
int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
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)
int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y, doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s, integer *incc)
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)
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)
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)
doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len)
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)
int claic1_(integer *job, integer *j, complex *x, real *sest, complex *w, complex *gamma, real *sestpr, complex *s, complex *c__)
int zpocon_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
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)
int zhetrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
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)
int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2)
int cpteqr_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, real *work, integer *info, ftnlen compz_len)
int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, integer *ipiv, integer *info)
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)
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)
int ssterf_(integer *n, real *d__, real *e, integer *info)
int spttrf_(integer *n, real *d__, real *e, integer *info)
int cupgtr_(char *uplo, integer *n, complex *ap, complex *tau, complex *q, integer *ldq, complex *work, integer *info, ftnlen uplo_len)
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)
int zspr_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *ap, ftnlen uplo_len)
int csytrf_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info, ftnlen uplo_len)
doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
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)
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)
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)
int cpocon_(char *uplo, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen uplo_len)
int zsptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len)
doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
int clarcm_(integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork)
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)
int cposv_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
int zpptri_(char *uplo, integer *n, doublecomplex *ap, integer *info, ftnlen uplo_len)
int strti2_(char *uplo, char *diag, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
int slamc4_(integer *emin, real *start, integer *base)
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)
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)
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)
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)
int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv, integer *info, ftnlen uplo_len)
integer icmax1_(integer *n, complex *cx, integer *incx)
int zgesv_(integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info)
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)
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)
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)
int dlauum_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
int zspsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
double l
Definition: r_raster.c:39
int cgetf2_(integer *m, integer *n, complex *a, integer *lda, integer *ipiv, integer *info)
int dlaexc_(logical *wantq, integer *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1, integer *n2, doublereal *work, integer *info)
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)
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)
int sppequ_(char *uplo, integer *n, real *ap, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len)
int dlamc5_(integer *beta, integer *p, integer *emin, logical *ieee, integer *emax, doublereal *rmax)
int zgelqf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
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)
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)
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)
double t
Definition: r_raster.c:39
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)
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)
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)
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)
int dorgtr_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info, ftnlen uplo_len)
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)
int dpotf2_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
int slatrz_(integer *m, integer *n, integer *l, real *a, integer *lda, real *tau, real *work)
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)
int claset_(char *uplo, integer *m, integer *n, complex *alpha, complex *beta, complex *a, integer *lda, ftnlen uplo_len)
int sorgr2_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info)
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)
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)
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)
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)
int clarfx_(char *side, integer *m, integer *n, complex *v, complex *tau, complex *c__, integer *ldc, complex *work, ftnlen side_len)
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)
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)
int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, integer *info, ftnlen uplo_len)
int dlag2_(doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *scale2, doublereal *wr1, doublereal *wr2, doublereal *wi)
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)
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)
int zlaswp_(integer *n, doublecomplex *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx)
int claed0_(integer *qsiz, integer *n, real *d__, real *e, complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork, integer *iwork, integer *info)
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)
int cungqr_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
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)
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)
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)
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)
int ssygst_(integer *itype, char *uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
E_f clangb_(char *norm, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, real *work, ftnlen norm_len)
int dlarfx_(char *side, integer *m, integer *n, doublereal *v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, ftnlen side_len)
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)
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)
int zspmv_(char *uplo, integer *n, doublecomplex *alpha, doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *incy, ftnlen uplo_len)
int zungl2_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
int dlaed6_(integer *kniter, logical *orgati, doublereal *rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *tau, integer *info)
int sgeqrf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
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)
int ssptrd_(char *uplo, integer *n, real *ap, real *d__, real *e, real *tau, integer *info, ftnlen uplo_len)
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)
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)
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)
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)
int claqsp_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
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)
int cptcon_(integer *n, real *d__, complex *e, real *anorm, real *rcond, real *rwork, integer *info)
Z_f zladiv_(doublecomplex *ret_val, doublecomplex *x, doublecomplex *y)
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)
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)
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)
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)
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)
int zpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
double b
Definition: r_raster.c:39
int chptrd_(char *uplo, integer *n, complex *ap, real *d__, real *e, complex *tau, integer *info, ftnlen uplo_len)
int sgeqr2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info)
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)
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)
int zhetf2_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
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)
int dlamc4_(integer *emin, doublereal *start, integer *base)
int zppcon_(char *uplo, integer *n, doublecomplex *ap, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen uplo_len)
int sgeqpf_(integer *m, integer *n, real *a, integer *lda, integer *jpvt, real *tau, real *work, integer *info)
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)
int dlasdt_(integer *n, integer *lvl, integer *nd, integer *inode, integer *ndiml, integer *ndimr, integer *msub)
int cgesc2_(integer *n, complex *a, integer *lda, complex *rhs, integer *ipiv, integer *jpiv, real *scale)
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)
int clacrt_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, complex *c__, complex *s)
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)
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)
int ctrti2_(char *uplo, char *diag, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
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)
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)
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)
doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len)
int sorgqr_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
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)
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)
int dlaset_(char *uplo, integer *m, integer *n, doublereal *alpha, doublereal *beta, doublereal *a, integer *lda, ftnlen uplo_len)
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)
int zhegst_(integer *itype, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *info)
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)
int slatrd_(char *uplo, integer *n, integer *nb, real *a, integer *lda, real *e, real *tau, real *w, integer *ldw, ftnlen uplo_len)
int cgeequ_(integer *m, integer *n, complex *a, integer *lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer *info)
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)
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)
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)
int claev2_(complex *a, complex *b, complex *c__, real *rt1, real *rt2, real *cs1, complex *sn1)
int zdrot_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s)
int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__, real *du, real *b, integer *ldb, integer *info)
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)
int clauum_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
int zlapmt_(logical *forwrd, integer *m, integer *n, doublecomplex *x, integer *ldx, integer *k)
int zgebd2_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *work, integer *info)
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)
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)
int csptrs_(char *uplo, integer *n, integer *nrhs, complex *ap, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int logical
Definition: la.h:62
int csrot_(integer *n, complex *cx, integer *incx, complex *cy, integer *incy, real *c__, real *s)
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)
int dlargv_(integer *n, doublereal *x, integer *incx, doublereal *y, integer *incy, doublereal *c__, integer *incc)
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)
int zgecon_(char *norm, integer *n, doublecomplex *a, integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *info, ftnlen norm_len)
int dlasq2_(integer *n, doublereal *z__, integer *info)
int slacpy_(char *uplo, integer *m, integer *n, real *a, integer *lda, real *b, integer *ldb, ftnlen uplo_len)
int dorg2r_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
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)
int zhpgst_(integer *itype, char *uplo, integer *n, doublecomplex *ap, doublecomplex *bp, integer *info, ftnlen uplo_len)
int cspcon_(char *uplo, integer *n, complex *ap, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len)
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)
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)
int claqsy_(char *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
E_f slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len)
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)
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)
int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *work, integer *info)
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)
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)
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)
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)
int dgerq2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
int dgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b, integer *ldb, integer *info)
int dlasrt_(char *id, integer *n, doublereal *d__, integer *info, ftnlen id_len)
int zptsv_(integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, integer *info)
int csytf2_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
int slamc2_(integer *beta, integer *t, logical *rnd, real *eps, integer *emin, real *rmin, integer *emax, real *rmax)
int cgetrs_(char *trans, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen trans_len)
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)
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)
int zlacrt_(integer *n, doublecomplex *cx, integer *incx, doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *s)
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)
int dlaswp_(integer *n, doublereal *a, integer *lda, integer *k1, integer *k2, integer *ipiv, integer *incx)
int dgeqp3_(integer *m, integer *n, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork, integer *info)
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)
int cgebrd_(integer *m, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tauq, complex *taup, complex *work, integer *lwork, integer *info)
int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *ipiv, integer *info, ftnlen uplo_len)
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)
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)
int ctzrqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, integer *info)
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)
int ztrexc_(char *compq, integer *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *ilst, integer *info, ftnlen compq_len)
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)
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)
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)
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)
int dpteqr_(char *compz, integer *n, doublereal *d__, doublereal *e, doublereal *z__, integer *ldz, doublereal *work, integer *info, ftnlen compz_len)
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)
int dsytd2_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info, ftnlen uplo_len)
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)
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)
int dgebd2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *taup, doublereal *work, integer *info)
float g
Definition: named_colr.c:8
int zgerqf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
int ssytf2_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
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)
int srscl_(integer *n, real *sa, real *sx, integer *incx)
int dpptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int slaqsy_(char *uplo, integer *n, real *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
int ztzrzf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
int cunghr_(integer *n, integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
int dlatrz_(integer *m, integer *n, integer *l, doublereal *a, integer *lda, doublereal *tau, doublereal *work)
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)
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)
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)
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)
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)
int zungr2_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
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)
int sgeql2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info)
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)
int dlaic1_(integer *job, integer *j, doublereal *x, doublereal *sest, doublereal *w, doublereal *gamma, doublereal *sestpr, doublereal *s, doublereal *c__)
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)
int dgelqf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
int slauu2_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
E_f slapy2_(real *x, real *y)
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)
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)
int slargv_(integer *n, real *x, integer *incx, real *y, integer *incy, real *c__, integer *incc)
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)
int zhetd2_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau, integer *info, ftnlen uplo_len)
int zhpcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len)
int ssytd2_(char *uplo, integer *n, real *a, integer *lda, real *d__, real *e, real *tau, integer *info, ftnlen uplo_len)
doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len)
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)
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)
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)
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)
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)
int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info, ftnlen uplo_len)
int cptsv_(integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb, integer *info)
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)
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)
int dgehd2_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
int cung2r_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info)
int slartv_(integer *n, real *x, integer *incx, real *y, integer *incy, real *c__, real *s, integer *incc)
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)
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)
int dppequ_(char *uplo, integer *n, doublereal *ap, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len)
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)
int cpotrf_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
int sgeqp3_(integer *m, integer *n, real *a, integer *lda, integer *jpvt, real *tau, real *work, integer *lwork, integer *info)
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)
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)
int dsytri_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *info, ftnlen uplo_len)
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)
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)
int cgttrf_(integer *n, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, integer *info)
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)
E_f clanhe_(char *norm, char *uplo, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len)
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)
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)
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)
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)
int slaexc_(logical *wantq, integer *n, real *t, integer *ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2, real *work, integer *info)
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)
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)
int zgtts2_(integer *itrans, integer *n, integer *nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb)
int zgebal_(char *job, integer *n, doublecomplex *a, integer *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info, ftnlen job_len)
int cgetri_(integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info)
int dtrti2_(char *uplo, char *diag, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
logical lsame_(char *ca, char *cb, ftnlen ca_len, ftnlen cb_len)
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)
int dgetc2_(integer *n, doublereal *a, integer *lda, integer *ipiv, integer *jpiv, integer *info)
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)
doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n, doublecomplex *ap, doublereal *work, ftnlen norm_len, ftnlen uplo_len, ftnlen diag_len)
int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, integer *info)
int zlacgv_(integer *n, doublecomplex *x, integer *incx)
int chetri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info, ftnlen uplo_len)
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)
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)
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)
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)
int dsterf_(integer *n, doublereal *d__, doublereal *e, integer *info)
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)
doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex *d__, doublecomplex *du, ftnlen norm_len)
int zlatrd_(char *uplo, integer *n, integer *nb, doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau, doublecomplex *w, integer *ldw, ftnlen uplo_len)
int zungtr_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len)
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)
int cungr2_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info)
int slartg_(real *f, real *g, real *cs, real *sn, real *r__)
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)
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)
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)
int dlauu2_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
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)
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)
int clarf_(char *side, integer *m, integer *n, complex *v, integer *incv, complex *tau, complex *c__, integer *ldc, complex *work, ftnlen side_len)
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)
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)
int zlarnv_(integer *idist, integer *iseed, integer *n, doublecomplex *x)
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)
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)
int dpotrs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int dlahrd_(integer *n, integer *k, integer *nb, doublereal *a, integer *lda, doublereal *tau, doublereal *t, integer *ldt, doublereal *y, integer *ldy)
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)
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)
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)
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)
int dlasd5_(integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *work)
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)
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)
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)
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)
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)
int dorgqr_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
int dlaqsp_(char *uplo, integer *n, doublereal *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb)
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)
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)
int dpotri_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
int cung2l_(integer *m, integer *n, integer *k, complex *a, integer *lda, complex *tau, complex *work, integer *info)
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)
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)
int cpbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int cgecon_(char *norm, integer *n, complex *a, integer *lda, real *anorm, real *rcond, complex *work, real *rwork, integer *info, ftnlen norm_len)
int slasv2_(real *f, real *g, real *h__, real *ssmin, real *ssmax, real *snr, real *csr, real *snl, real *csl)
E_f clange_(char *norm, integer *m, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len)
doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k, doublecomplex *ab, integer *ldab, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
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)
int zlargv_(integer *n, doublecomplex *x, integer *incx, doublecomplex *y, integer *incy, doublereal *c__, integer *incc)
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)
int sspgst_(integer *itype, char *uplo, integer *n, real *ap, real *bp, integer *info, ftnlen uplo_len)
int csptrf_(char *uplo, integer *n, complex *ap, integer *ipiv, integer *info, ftnlen uplo_len)
int zgetri_(integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info)
int dposv_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
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)
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)
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)
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)
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)
int slarf_(char *side, integer *m, integer *n, real *v, integer *incv, real *tau, real *c__, integer *ldc, real *work, ftnlen side_len)
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)
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)
int sptts2_(integer *n, integer *nrhs, real *d__, real *e, real *b, integer *ldb)
int clacp2_(char *uplo, integer *m, integer *n, real *a, integer *lda, complex *b, integer *ldb, ftnlen uplo_len)
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)
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)
int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *x, integer *incx, doublecomplex *tau)
E_f clanht_(char *norm, integer *n, real *d__, complex *e, ftnlen norm_len)
int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, integer *info, ftnlen uplo_len)
doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__, doublereal *du, ftnlen norm_len)
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)
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)
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)
int clarfg_(integer *n, complex *alpha, complex *x, integer *incx, complex *tau)
int dlaqtr_(logical *ltran, logical *lreal, integer *n, doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal *scale, doublereal *x, doublereal *work, integer *info)
int dsptrd_(char *uplo, integer *n, doublereal *ap, doublereal *d__, doublereal *e, doublereal *tau, integer *info, ftnlen uplo_len)
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)
int cgeqrf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *cs, doublecomplex *sn, doublecomplex *r__)
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)
int zungrq_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
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)
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)
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)
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)
int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplo_len)
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)
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)
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)
int cgerqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
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)
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)
int dgecon_(char *norm, integer *n, doublereal *a, integer *lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen norm_len)
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)
int slarnv_(integer *idist, integer *iseed, integer *n, real *x)
int zhecon_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len)
int cpotri_(char *uplo, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len)
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)
int chetrs_(char *uplo, integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int clartv_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *c__, complex *s, integer *incc)
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)
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)
int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int clacrm_(integer *m, integer *n, complex *a, integer *lda, real *b, integer *ldb, complex *c__, integer *ldc, real *rwork)
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)
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)
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)
int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, integer *info)
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)
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)
int ssytri_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *info, ftnlen uplo_len)
int ctrtri_(char *uplo, char *diag, integer *n, complex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
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)
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)
int ssytrf_(char *uplo, integer *n, real *a, integer *lda, integer *ipiv, real *work, integer *lwork, integer *info, ftnlen uplo_len)
int dpotrf_(char *uplo, integer *n, doublereal *a, integer *lda, integer *info, ftnlen uplo_len)
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)
int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info)
int cgebal_(char *job, integer *n, complex *a, integer *lda, integer *ilo, integer *ihi, real *scale, integer *info, ftnlen job_len)
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)
int cgesv_(integer *n, integer *nrhs, complex *a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *info)
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)
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)
int zlaqhe_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
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)
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)
E_f clanhs_(char *norm, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len)
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)
int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
E_f clansp_(char *norm, char *uplo, integer *n, complex *ap, real *work, ftnlen norm_len, ftnlen uplo_len)
int cppequ_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, integer *info, ftnlen uplo_len)
int spoequ_(integer *n, real *a, integer *lda, real *s, real *scond, real *amax, integer *info)
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)
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)
int sgebrd_(integer *m, integer *n, real *a, integer *lda, real *d__, real *e, real *tauq, real *taup, real *work, integer *lwork, integer *info)
int slasrt_(char *id, integer *n, real *d__, integer *info, ftnlen id_len)
int chptri_(char *uplo, integer *n, complex *ap, integer *ipiv, complex *work, integer *info, ftnlen uplo_len)
logical lsamen_(integer *n, char *ca, char *cb, ftnlen ca_len, ftnlen cb_len)
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)
int clargv_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *c__, integer *incc)
int clacon_(integer *n, complex *v, complex *x, real *est, integer *kase)
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)
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)
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)
int sorgql_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
int csytri_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *info, ftnlen uplo_len)
int zlaqsy_(char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
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)
int claqp2_(integer *m, integer *n, integer *offset, complex *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2, complex *work)
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)
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)
int zpoequ_(integer *n, doublecomplex *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info)
E_f slamch_(char *cmach, ftnlen cmach_len)
int clapll_(integer *n, complex *x, integer *incx, complex *y, integer *incy, real *ssmin)
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)
int sgeqlf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
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)
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)
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)
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)
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)
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)
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)
integer ieeeck_(integer *ispec, real *zero, real *one)
int slarfx_(char *side, integer *m, integer *n, real *v, real *tau, real *c__, integer *ldc, real *work, ftnlen side_len)
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)
int sorg2l_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info)
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)
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)
int slasd5_(integer *i__, real *d__, real *z__, real *delta, real *rho, real *dsigma, real *work)
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)
doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e, ftnlen norm_len)
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)
doublereal dlapy2_(doublereal *x, doublereal *y)
int dlamrg_(integer *n1, integer *n2, doublereal *a, integer *dtrd1, integer *dtrd2, integer *index)
int strtri_(char *uplo, char *diag, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
int zgeequ_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *info)
int dlasq6_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2)
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)
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)
int chpcon_(char *uplo, integer *n, complex *ap, integer *ipiv, real *anorm, real *rcond, complex *work, integer *info, ftnlen uplo_len)
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)
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)
int sgesc2_(integer *n, real *a, integer *lda, real *rhs, integer *ipiv, integer *jpiv, real *scale)
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)
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)
int slag2_(real *a, integer *lda, real *b, integer *ldb, real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *wi)
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)
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)
int dlarf_(char *side, integer *m, integer *n, doublereal *v, integer *incv, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work, ftnlen side_len)
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)
int zsycon_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len)
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)
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)
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)
doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *work, ftnlen norm_len)
int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__, complex *e, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
int zgeqpf_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, doublereal *rwork, integer *info)
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)
int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv, integer *jpiv, integer *info)
int dgehrd_(integer *n, integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
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)
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)
int zpttrs_(char *uplo, integer *n, integer *nrhs, doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
int dsytrs_(char *uplo, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int cgeql2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info)
int zunghr_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
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)
int cgerq2_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *info)
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)
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)
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)
C_f cladiv_(complex *ret_val, complex *x, complex *y)
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)
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)
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)
E_f slamc3_(real *a, real *b)
int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, integer *info, ftnlen uplo_len)
E_f second_(void)
int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *info, ftnlen uplo_len)
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)
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)
int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv, real *work, integer *info, ftnlen uplo_len)
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)
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)
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)
int cgelqf_(integer *m, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info)
doublereal dlamc3_(doublereal *a, doublereal *b)
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)
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)
int sorg2r_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info)
doublereal dlamch_(char *cmach, ftnlen cmach_len)
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)
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)
int dpbsv_(char *uplo, integer *n, integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int zsytrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
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)
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)
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)
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)
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)
int zlatrz_(integer *m, integer *n, integer *l, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work)
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)
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)
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)
int sgecon_(char *norm, integer *n, real *a, integer *lda, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen norm_len)
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)
int dlartg_(doublereal *f, doublereal *g, doublereal *cs, doublereal *sn, doublereal *r__)
void C_f
Definition: la.h:86
int dgebrd_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *taup, doublereal *work, integer *lwork, integer *info)
int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku, doublecomplex *ab, integer *ldab, integer *ipiv, integer *info)
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)
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)
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)
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)
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)
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)
int slaqp2_(integer *m, integer *n, integer *offset, real *a, integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *work)
int zhptri_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len)
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)
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)
int slaruv_(integer *iseed, integer *n, real *x)
int zung2r_(integer *m, integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
int cgeqpf_(integer *m, integer *n, complex *a, integer *lda, integer *jpvt, complex *tau, complex *work, real *rwork, integer *info)
int zgetrf_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *ipiv, integer *info)
int dsptrs_(char *uplo, integer *n, integer *nrhs, doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
int zpotrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int dorgrq_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
int ztrti2_(char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
doublereal dsecnd_(void)
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)
int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku, complex *ab, integer *ldab, integer *ipiv, integer *info)
int cppsv_(char *uplo, integer *n, integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info, ftnlen uplo_len)
int zppsv_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
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)
int order(int i_x, int i_y, int yNum)
Definition: InterpSpline.c:54
E_f scsum1_(integer *n, complex *cx, integer *incx)
int zgeqrf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork, integer *info)
int zhetri_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *info, ftnlen uplo_len)
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)
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)
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)
int sorgl2_(integer *m, integer *n, integer *k, real *a, integer *lda, real *tau, real *work, integer *info)
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)
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)
int sgesv_(integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info)
int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx, integer *incx)
Definition: la.h:54
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)
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)
int claqhp_(char *uplo, integer *n, complex *ap, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
int dptcon_(integer *n, doublereal *d__, doublereal *e, doublereal *anorm, doublereal *rcond, doublereal *work, integer *info)
doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx)
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)
int sposv_(char *uplo, integer *n, integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *info, ftnlen uplo_len)
int dlar2v_(integer *n, doublereal *x, doublereal *y, doublereal *z__, integer *incx, doublereal *c__, doublereal *s, integer *incc)
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)
int xerbla_(char *srname, integer *info, ftnlen srname_len)
int cpttrf_(integer *n, real *d__, complex *e, integer *info)
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)
doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *work, ftnlen norm_len, ftnlen uplo_len)
int dlagtf_(integer *n, doublereal *a, doublereal *lambda, doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__, integer *in, integer *info)
int dorg2l_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
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)
int zgeqp3_(integer *m, integer *n, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work, integer *lwork, doublereal *rwork, integer *info)
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)
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)
int dgesc2_(integer *n, doublereal *a, integer *lda, doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale)
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)
int slasq1_(integer *n, real *d__, real *e, real *work, integer *info)
int slasd4_(integer *n, integer *i__, real *d__, real *z__, real *delta, real *rho, real *sigma, real *work, integer *info)
int dgetrs_(char *trans, integer *n, integer *nrhs, doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info, ftnlen trans_len)
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)
int dlaqp2_(integer *m, integer *n, integer *offset, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *work)
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)
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)
int cungtr_(char *uplo, integer *n, complex *a, integer *lda, complex *tau, complex *work, integer *lwork, integer *info, ftnlen uplo_len)
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)
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)
int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku, real *ab, integer *ldab, integer *ipiv, integer *info)
int dorglq_(integer *m, integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
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)
int dgetri_(integer *n, doublereal *a, integer *lda, integer *ipiv, doublereal *work, integer *lwork, integer *info)
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)
doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__)
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)
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)
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)
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)
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)
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)
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)
int dlasq5_(integer *i0, integer *n0, doublereal *z__, integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2)
int zlauum_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len)
int zpptrf_(char *uplo, integer *n, doublecomplex *ap, integer *info, ftnlen uplo_len)
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)
int dlae2_(doublereal *a, doublereal *b, doublereal *c__, doublereal *rt1, doublereal *rt2)
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)
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)
int slasdt_(integer *n, integer *lvl, integer *nd, integer *inode, integer *ndiml, integer *ndimr, integer *msub)
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)
int clacpy_(char *uplo, integer *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb, ftnlen uplo_len)
int sgetrs_(char *trans, integer *n, integer *nrhs, real *a, integer *lda, integer *ipiv, real *b, integer *ldb, integer *info, ftnlen trans_len)
int ztzrqf_(integer *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *tau, integer *info)
int zsytrf_(char *uplo, integer *n, doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *work, integer *lwork, integer *info, ftnlen uplo_len)
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)
int dsptri_(char *uplo, integer *n, doublereal *ap, integer *ipiv, doublereal *work, integer *info, ftnlen uplo_len)
int dpptri_(char *uplo, integer *n, doublereal *ap, integer *info, ftnlen uplo_len)
int sgelqf_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *lwork, integer *info)
int slahrd_(integer *n, integer *k, integer *nb, real *a, integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy)
int sgerq2_(integer *m, integer *n, real *a, integer *lda, real *tau, real *work, integer *info)
int zlaqsp_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
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)
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)
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)
int dlacon_(integer *n, doublereal *v, doublereal *x, integer *isgn, doublereal *est, integer *kase)
int zupgtr_(char *uplo, integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *work, integer *info, ftnlen uplo_len)
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)
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)
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)
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)
int chetd2_(char *uplo, integer *n, complex *a, integer *lda, real *d__, real *e, complex *tau, integer *info, ftnlen uplo_len)
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)
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)
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)
int sopgtr_(char *uplo, integer *n, real *ap, real *tau, real *q, integer *ldq, real *work, integer *info, ftnlen uplo_len)
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)
int dlarnv_(integer *idist, integer *iseed, integer *n, doublereal *x)
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)
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)
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)
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)
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)
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)
E_f clansy_(char *norm, char *uplo, integer *n, complex *a, integer *lda, real *work, ftnlen norm_len, ftnlen uplo_len)
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)
int dgtsv_(integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer *info)
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)
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)
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)
int clartg_(complex *f, complex *g, real *cs, complex *sn, complex *r__)
int zppequ_(char *uplo, integer *n, doublecomplex *ap, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len)
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)
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)
int spbtf2_(char *uplo, integer *n, integer *kd, real *ab, integer *ldab, integer *info, ftnlen uplo_len)
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)
int claqhe_(char *uplo, integer *n, complex *a, integer *lda, real *s, real *scond, real *amax, char *equed, ftnlen uplo_len, ftnlen equed_len)
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)
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)
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)
int dlasd4_(integer *n, integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *sigma, doublereal *work, integer *info)
int zlaic1_(integer *job, integer *j, doublecomplex *x, doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *sestpr, doublecomplex *s, doublecomplex *c__)
doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e, ftnlen norm_len)
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)
int dlarfg_(integer *n, doublereal *alpha, doublereal *x, integer *incx, doublereal *tau)
int cgetc2_(integer *n, complex *a, integer *lda, integer *ipiv, integer *jpiv, integer *info)
int dsytf2_(char *uplo, integer *n, doublereal *a, integer *lda, integer *ipiv, integer *info, ftnlen uplo_len)
int spotf2_(char *uplo, integer *n, real *a, integer *lda, integer *info, ftnlen uplo_len)
int zptcon_(integer *n, doublereal *d__, doublecomplex *e, doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *info)
int cgtts2_(integer *itrans, integer *n, integer *nrhs, complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *b, integer *ldb)
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)
int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax, integer *info, ftnlen uplo_len)
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)
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)
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)
int slaqtr_(logical *ltran, logical *lreal, integer *n, real *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work, integer *info)
int dpoequ_(integer *n, doublereal *a, integer *lda, doublereal *s, doublereal *scond, doublereal *amax, integer *info)
int zlaqp2_(integer *m, integer *n, integer *offset, doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *work)
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)
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)
int zgehd2_(integer *n, integer *ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *work, integer *info)
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)
E_f clansb_(char *norm, char *uplo, integer *n, integer *k, complex *ab, integer *ldab, real *work, ftnlen norm_len, ftnlen uplo_len)
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)
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)
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)
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)
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)
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)
int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap, real *b, integer *ldb, integer *info, ftnlen uplo_len)
int clar2v_(integer *n, complex *x, complex *y, complex *z__, integer *incx, real *c__, complex *s, integer *incc)
int dgeqpf_(integer *m, integer *n, doublereal *a, integer *lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info)
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)
int zlacrm_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *b, integer *ldb, doublecomplex *c__, integer *ldc, doublereal *rwork)
int dgtts2_(integer *itrans, integer *n, integer *nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, doublereal *b, integer *ldb)
int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork, integer *info, ftnlen uplo_len)
int zsptrs_(char *uplo, integer *n, integer *nrhs, doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
int sgttrf_(integer *n, real *dl, real *d__, real *du, real *du2, integer *ipiv, integer *info)
int stptri_(char *uplo, char *diag, integer *n, real *ap, integer *info, ftnlen uplo_len, ftnlen diag_len)
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)
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)
int ddisna_(char *job, integer *m, integer *n, doublereal *d__, doublereal *sep, integer *info, ftnlen job_len)
int dsygst_(integer *itype, char *uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *info, ftnlen uplo_len)
int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab, integer *ldab, integer *info, ftnlen uplo_len)
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)
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)
int spbtrs_(char *uplo, integer *n, integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info, ftnlen uplo_len)
int slaed5_(integer *i__, real *d__, real *z__, real *delta, real *rho, real *dlam)
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)
int ztptri_(char *uplo, char *diag, integer *n, doublecomplex *ap, integer *info, ftnlen uplo_len, ftnlen diag_len)
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)
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)
int chetrf_(char *uplo, integer *n, complex *a, integer *lda, integer *ipiv, complex *work, integer *lwork, integer *info, ftnlen uplo_len)
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)
int dlaed4_(integer *n, integer *i__, doublereal *d__, doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam, integer *info)
int clacgv_(integer *n, complex *x, integer *incx)
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)
int slaed4_(integer *n, integer *i__, real *d__, real *z__, real *delta, real *rho, real *dlam, integer *info)
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)
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)
int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *a, integer *lda, doublereal *e, doublereal *tau, doublereal *w, integer *ldw, ftnlen uplo_len)
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)
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)
int dpocon_(char *uplo, integer *n, doublereal *a, integer *lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *iwork, integer *info, ftnlen uplo_len)
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)
E_f slangt_(char *norm, integer *n, real *dl, real *d__, real *du, ftnlen norm_len)
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)
int slasq2_(integer *n, real *z__, integer *info)
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)
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)
int zspcon_(char *uplo, integer *n, doublecomplex *ap, integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work, integer *info, ftnlen uplo_len)
int zposv_(char *uplo, integer *n, integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
int clapmt_(logical *forwrd, integer *m, integer *n, complex *x, integer *ldx, integer *k)
int csteqr_(char *compz, integer *n, real *d__, real *e, complex *z__, integer *ldz, real *work, integer *info, ftnlen compz_len)
int ftnlen
Definition: la.h:70
int dgeql2_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *info)
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)
int dtptri_(char *uplo, char *diag, integer *n, doublereal *ap, integer *info, ftnlen uplo_len, ftnlen diag_len)
int zhegs2_(integer *itype, char *uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb, integer *info, ftnlen uplo_len)
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)
int ztrtri_(char *uplo, char *diag, integer *n, doublecomplex *a, integer *lda, integer *info, ftnlen uplo_len, ftnlen diag_len)
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)
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)
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)
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)
int zgebrd_(integer *m, integer *n, doublecomplex *a, integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq, doublecomplex *taup, doublecomplex *work, integer *lwork, integer *info)
int zlaed0_(integer *qsiz, integer *n, doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore, integer *ldqs, doublereal *rwork, integer *iwork, integer *info)
int zlatdf_(integer *ijob, integer *n, doublecomplex *z__, integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *rdscal, integer *ipiv, integer *jpiv)
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)
int zlacp2_(char *uplo, integer *m, integer *n, doublereal *a, integer *lda, doublecomplex *b, integer *ldb, ftnlen uplo_len)
int dgebal_(char *job, integer *n, doublereal *a, integer *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info, ftnlen job_len)
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)
int dgerqf_(integer *m, integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *work, integer *lwork, integer *info)
int slaed1_(integer *n, real *d__, real *q, integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *work, integer *iwork, integer *info)
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)
int cspr_(char *uplo, integer *n, complex *alpha, complex *x, integer *incx, complex *ap, ftnlen uplo_len)
int dgttrf_(integer *n, doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv, integer *info)
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)
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)
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)
int dlagts_(integer *job, integer *n, doublereal *a, doublereal *b, doublereal *c__, doublereal *d__, integer *in, doublereal *y, doublereal *tol, integer *info)