Rev Author Line No. Line
178 kaklik 1 #ifndef __CLAPACK_H
2 #define __CLAPACK_H
3  
4 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
5 nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt,
6 complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork,
7 integer *info);
8  
9 /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
10 integer *kl, integer *ku, complex *ab, integer *ldab, real *d__,
11 real *e, complex *q, integer *ldq, complex *pt, integer *ldpt,
12 complex *c__, integer *ldc, complex *work, real *rwork, integer *info);
13  
14 /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku,
15 complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
16 complex *work, real *rwork, integer *info);
17  
18 /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku,
19 complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
20 *colcnd, real *amax, integer *info);
21  
22 /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer *
23 ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
24 ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *
25 ldx, real *ferr, real *berr, complex *work, real *rwork, integer *
26 info);
27  
28 /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer *
29 nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *
30 ldb, integer *info);
31  
32 /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl,
33 integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb,
34 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
35 complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real
36 *ferr, real *berr, complex *work, real *rwork, integer *info);
37  
38 /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
39 complex *ab, integer *ldab, integer *ipiv, integer *info);
40  
41 /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
42 complex *ab, integer *ldab, integer *ipiv, integer *info);
43  
44 /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer *
45 ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex
46 *b, integer *ldb, integer *info);
47  
48 /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo,
49 integer *ihi, real *scale, integer *m, complex *v, integer *ldv,
50 integer *info);
51  
52 /* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda,
53 integer *ilo, integer *ihi, real *scale, integer *info);
54  
55 /* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda,
56 real *d__, real *e, complex *tauq, complex *taup, complex *work,
57 integer *info);
58  
59 /* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda,
60 real *d__, real *e, complex *tauq, complex *taup, complex *work,
61 integer *lwork, integer *info);
62  
63 /* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda,
64 real *anorm, real *rcond, complex *work, real *rwork, integer *info);
65  
66 /* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda,
67 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
68 integer *info);
69  
70 /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n,
71 complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
72 integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
73 bwork, integer *info);
74  
75 /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char *
76 sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
77 w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
78 work, integer *lwork, real *rwork, logical *bwork, integer *info);
79  
80 /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a,
81 integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr,
82 integer *ldvr, complex *work, integer *lwork, real *rwork, integer *
83 info);
84  
85 /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
86 sense, integer *n, complex *a, integer *lda, complex *w, complex *vl,
87 integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi,
88 real *scale, real *abnrm, real *rconde, real *rcondv, complex *work,
89 integer *lwork, real *rwork, integer *info);
90  
91 /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
92 a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
93 beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr,
94 complex *work, integer *lwork, real *rwork, integer *info);
95  
96 /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a,
97 integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
98 complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
99 work, integer *lwork, real *rwork, integer *info);
100  
101 /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
102 a, integer *lda, complex *tau, complex *work, integer *info);
103  
104 /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
105 a, integer *lda, complex *tau, complex *work, integer *lwork, integer
106 *info);
107  
108 /* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda,
109 complex *tau, complex *work, integer *info);
110  
111 /* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda,
112 complex *tau, complex *work, integer *lwork, integer *info);
113  
114 /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer *
115 nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
116 work, integer *lwork, integer *info);
117  
118 /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex *
119 a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
120 integer *rank, complex *work, real *rwork, integer *info);
121  
122 /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex *
123 a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
124 integer *rank, complex *work, integer *lwork, real *rwork, integer *
125 info);
126  
127 /* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda,
128 complex *tau, complex *work, integer *info);
129  
130 /* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
131 complex *tau, complex *work, integer *lwork, integer *info);
132  
133 /* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda,
134 integer *jpvt, complex *tau, complex *work, integer *lwork, real *
135 rwork, integer *info);
136  
137 /* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
138 integer *jpvt, complex *tau, complex *work, real *rwork, integer *
139 info);
140  
141 /* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
142 complex *tau, complex *work, integer *info);
143  
144 /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
145 complex *tau, complex *work, integer *lwork, integer *info);
146  
147 /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex *
148 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
149 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
150 complex *work, real *rwork, integer *info);
151  
152 /* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda,
153 complex *tau, complex *work, integer *info);
154  
155 /* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda,
156 complex *tau, complex *work, integer *lwork, integer *info);
157  
158 /* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex *
159 rhs, integer *ipiv, integer *jpiv, real *scale);
160  
161 /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer *
162 lda, integer *ipiv, complex *b, integer *ldb, integer *info);
163  
164 /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer *
165 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
166 ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb,
167 complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
168 complex *work, real *rwork, integer *info);
169  
170 /* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer *
171 ipiv, integer *jpiv, integer *info);
172  
173 /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda,
174 integer *ipiv, integer *info);
175  
176 /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda,
177 integer *ipiv, integer *info);
178  
179 /* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer *
180 ipiv, complex *work, integer *lwork, integer *info);
181  
182 /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex *
183 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
184 info);
185  
186 /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo,
187 integer *ihi, real *lscale, real *rscale, integer *m, complex *v,
188 integer *ldv, integer *info);
189  
190 /* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda,
191 complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale,
192 real *rscale, real *work, integer *info);
193  
194 /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
195 selctg, integer *n, complex *a, integer *lda, complex *b, integer *
196 ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
197 integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
198 lwork, real *rwork, logical *bwork, integer *info);
199  
200 /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
201 selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
202 integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
203 vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real
204 *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork,
205 integer *liwork, logical *bwork, integer *info);
206  
207 /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a,
208 integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
209 complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
210 work, integer *lwork, real *rwork, integer *info);
211  
212 /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char *
213 sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
214 complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *
215 vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *
216 rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex
217 *work, integer *lwork, real *rwork, integer *iwork, logical *bwork,
218 integer *info);
219  
220 /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a,
221 integer *lda, complex *b, integer *ldb, complex *d__, complex *x,
222 complex *y, complex *work, integer *lwork, integer *info);
223  
224 /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer *
225 ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb,
226 complex *q, integer *ldq, complex *z__, integer *ldz, integer *info);
227  
228 /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a,
229 integer *lda, complex *b, integer *ldb, complex *c__, complex *d__,
230 complex *x, complex *work, integer *lwork, integer *info);
231  
232 /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a,
233 integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
234 complex *work, integer *lwork, integer *info);
235  
236 /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a,
237 integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
238 complex *work, integer *lwork, integer *info);
239  
240 /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
241 integer *n, integer *p, integer *k, integer *l, complex *a, integer *
242 lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u,
243 integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
244 complex *work, real *rwork, integer *iwork, integer *info);
245  
246 /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
247 integer *p, integer *n, complex *a, integer *lda, complex *b, integer
248 *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u,
249 integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
250 integer *iwork, real *rwork, complex *tau, complex *work, integer *
251 info);
252  
253 /* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex *
254 d__, complex *du, complex *du2, integer *ipiv, real *anorm, real *
255 rcond, complex *work, integer *info);
256  
257 /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex *
258 dl, complex *d__, complex *du, complex *dlf, complex *df, complex *
259 duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex *
260 x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
261 integer *info);
262  
263 /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *
264 d__, complex *du, complex *b, integer *ldb, integer *info);
265  
266 /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer *
267 nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *
268 df, complex *duf, complex *du2, integer *ipiv, complex *b, integer *
269 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
270 complex *work, real *rwork, integer *info);
271  
272 /* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex *
273 du, complex *du2, integer *ipiv, integer *info);
274  
275 /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex *
276 dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *
277 b, integer *ldb, integer *info);
278  
279 /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs,
280 complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv,
281 complex *b, integer *ldb);
282  
283 /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd,
284 complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
285 complex *work, real *rwork, integer *info);
286  
287 /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd,
288 complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
289 complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
290 iwork, integer *liwork, integer *info);
291  
292 /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n,
293 integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq,
294 real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
295 m, real *w, complex *z__, integer *ldz, complex *work, real *rwork,
296 integer *iwork, integer *ifail, integer *info);
297  
298 /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka,
299 integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
300 complex *x, integer *ldx, complex *work, real *rwork, integer *info);
301  
302 /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka,
303 integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
304 real *w, complex *z__, integer *ldz, complex *work, real *rwork,
305 integer *info);
306  
307 /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n,
308 integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb,
309 integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer *
310 il, integer *iu, real *abstol, integer *m, real *w, complex *z__,
311 integer *ldz, complex *work, real *rwork, integer *iwork, integer *
312 ifail, integer *info);
313  
314 /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd,
315 complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *
316 ldq, complex *work, integer *info);
317  
318 /* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda,
319 integer *ipiv, real *anorm, real *rcond, complex *work, integer *
320 info);
321  
322 /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a,
323 integer *lda, real *w, complex *work, integer *lwork, real *rwork,
324 integer *info);
325  
326 /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a,
327 integer *lda, real *w, complex *work, integer *lwork, real *rwork,
328 integer *lrwork, integer *iwork, integer *liwork, integer *info);
329  
330 /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n,
331 complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
332 iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
333 integer *isuppz, complex *work, integer *lwork, real *rwork, integer *
334 lrwork, integer *iwork, integer *liwork, integer *info);
335  
336 /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n,
337 complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
338 iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
339 complex *work, integer *lwork, real *rwork, integer *iwork, integer *
340 ifail, integer *info);
341  
342 /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex *
343 a, integer *lda, complex *b, integer *ldb, integer *info);
344  
345 /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex *
346 a, integer *lda, complex *b, integer *ldb, integer *info);
347  
348 /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer *
349 n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
350 complex *work, integer *lwork, real *rwork, integer *info);
351  
352 /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer *
353 n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
354 complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
355 iwork, integer *liwork, integer *info);
356  
357 /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char *
358 uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
359 real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
360 m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
361 real *rwork, integer *iwork, integer *ifail, integer *info);
362  
363 /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex *
364 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
365 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
366 complex *work, real *rwork, integer *info);
367  
368 /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a,
369 integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
370 integer *lwork, integer *info);
371  
372 /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer *
373 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
374 ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
375 real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
376 integer *info);
377  
378 /* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda,
379 integer *ipiv, integer *info);
380  
381 /* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda,
382 real *d__, real *e, complex *tau, complex *work, integer *lwork,
383 integer *info);
384  
385 /* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda,
386 integer *ipiv, complex *work, integer *lwork, integer *info);
387  
388 /* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda,
389 integer *ipiv, complex *work, integer *info);
390  
391 /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex *
392 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
393 info);
394  
395 /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n,
396 integer *ilo, integer *ihi, complex *a, integer *lda, complex *b,
397 integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
398 complex *z__, integer *ldz, complex *work, integer *lwork, real *
399 rwork, integer *info);
400  
401 /* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer *
402 ipiv, real *anorm, real *rcond, complex *work, integer *info);
403  
404 /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap,
405 real *w, complex *z__, integer *ldz, complex *work, real *rwork,
406 integer *info);
407  
408 /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap,
409 real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
410 real *rwork, integer *lrwork, integer *iwork, integer *liwork,
411 integer *info);
412  
413 /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n,
414 complex *ap, real *vl, real *vu, integer *il, integer *iu, real *
415 abstol, integer *m, real *w, complex *z__, integer *ldz, complex *
416 work, real *rwork, integer *iwork, integer *ifail, integer *info);
417  
418 /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex *
419 ap, complex *bp, integer *info);
420  
421 /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer *
422 n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
423 complex *work, real *rwork, integer *info);
424  
425 /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer *
426 n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
427 complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
428 iwork, integer *liwork, integer *info);
429  
430 /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char *
431 uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu,
432 integer *il, integer *iu, real *abstol, integer *m, real *w, complex *
433 z__, integer *ldz, complex *work, real *rwork, integer *iwork,
434 integer *ifail, integer *info);
435  
436 /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex *
437 ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
438 integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
439 integer *info);
440  
441 /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex *
442 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
443  
444 /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer *
445 nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
446 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
447 complex *work, real *rwork, integer *info);
448  
449 /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__,
450 real *e, complex *tau, integer *info);
451  
452 /* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer *
453 ipiv, integer *info);
454  
455 /* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer *
456 ipiv, complex *work, integer *info);
457  
458 /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex *
459 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
460  
461 /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical *
462 select, integer *n, complex *h__, integer *ldh, complex *w, complex *
463 vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *
464 m, complex *work, real *rwork, integer *ifaill, integer *ifailr,
465 integer *info);
466  
467 /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo,
468 integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__,
469 integer *ldz, complex *work, integer *lwork, integer *info);
470  
471 /* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, complex *a,
472 integer *lda, real *d__, real *e, complex *tauq, complex *taup,
473 complex *x, integer *ldx, complex *y, integer *ldy);
474  
475 /* Subroutine */ int clacgv_(integer *n, complex *x, integer *incx);
476  
477 /* Subroutine */ int clacon_(integer *n, complex *v, complex *x, real *est,
478 integer *kase);
479  
480 /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a,
481 integer *lda, complex *b, integer *ldb);
482  
483 /* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, complex *a,
484 integer *lda, complex *b, integer *ldb);
485  
486 /* Subroutine */ int clacrm_(integer *m, integer *n, complex *a, integer *lda,
487 real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
488  
489 /* Subroutine */ int clacrt_(integer *n, complex *cx, integer *incx, complex *
490 cy, integer *incy, complex *c__, complex *s);
491  
492 /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e,
493 complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork,
494 integer *iwork, integer *info);
495  
496 /* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz,
497 integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex *
498 q, integer *ldq, real *rho, integer *indxq, real *qstore, integer *
499 qptr, integer *prmptr, integer *perm, integer *givptr, integer *
500 givcol, real *givnum, complex *work, real *rwork, integer *iwork,
501 integer *info);
502  
503 /* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, complex *
504 q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__,
505 real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp,
506 integer *indx, integer *indxq, integer *perm, integer *givptr,
507 integer *givcol, real *givnum, integer *info);
508  
509 /* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n,
510 complex *h__, integer *ldh, complex *w, complex *v, complex *b,
511 integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info);
512  
513 /* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex *
514 rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
515  
516 /* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1,
517 real *rt2, real *cs1, complex *sn1);
518  
519 /* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3,
520 real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv,
521 complex *snv, real *csq, complex *snq);
522  
523 /* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real *
524 alpha, complex *dl, complex *d__, complex *du, complex *x, integer *
525 ldx, real *beta, complex *b, integer *ldb);
526  
527 /* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb,
528 complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
529 integer *info);
530  
531 /* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n,
532 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
533 integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
534 info);
535  
536 /* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a,
537 integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
538 integer *ldy);
539  
540 /* Subroutine */ int claic1_(integer *job, integer *j, complex *x, real *sest,
541 complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
542  
543 /* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr,
544 integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx,
545 integer *ldbx, integer *perm, integer *givptr, integer *givcol,
546 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
547 difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
548 rwork, integer *info);
549  
550 /* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n,
551 integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx,
552 real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr,
553 real *z__, real *poles, integer *givptr, integer *givcol, integer *
554 ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork,
555 integer *iwork, integer *info);
556  
557 /* Subroutine */ int clapll_(integer *n, complex *x, integer *incx, complex *
558 y, integer *incy, real *ssmin);
559  
560 /* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, complex
561 *x, integer *ldx, integer *k);
562  
563 /* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku,
564 complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
565 *colcnd, real *amax, char *equed);
566  
567 /* Subroutine */ int claqge_(integer *m, integer *n, complex *a, integer *lda,
568 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
569 equed);
570  
571 /* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, complex *ab,
572 integer *ldab, real *s, real *scond, real *amax, char *equed);
573  
574 /* Subroutine */ int claqhe_(char *uplo, integer *n, complex *a, integer *lda,
575 real *s, real *scond, real *amax, char *equed);
576  
577 /* Subroutine */ int claqhp_(char *uplo, integer *n, complex *ap, real *s,
578 real *scond, real *amax, char *equed);
579  
580 /* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, complex
581 *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2,
582 complex *work);
583  
584 /* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer
585 *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *
586 tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
587  
588 /* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, complex *ab,
589 integer *ldab, real *s, real *scond, real *amax, char *equed);
590  
591 /* Subroutine */ int claqsp_(char *uplo, integer *n, complex *ap, real *s,
592 real *scond, real *amax, char *equed);
593  
594 /* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda,
595 real *s, real *scond, real *amax, char *equed);
596  
597 /* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real *
598 sigma, real *d__, real *l, real *ld, real *lld, real *gersch, complex
599 *z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *
600 work);
601  
602 /* Subroutine */ int clar2v_(integer *n, complex *x, complex *y, complex *z__,
603 integer *incx, real *c__, complex *s, integer *incc);
604  
605 /* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda,
606 complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
607  
608 /* Subroutine */ int clarf_(char *side, integer *m, integer *n, complex *v,
609 integer *incv, complex *tau, complex *c__, integer *ldc, complex *
610 work);
611  
612 /* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char *
613 storev, integer *m, integer *n, integer *k, complex *v, integer *ldv,
614 complex *t, integer *ldt, complex *c__, integer *ldc, complex *work,
615 integer *ldwork);
616  
617 /* Subroutine */ int clarfg_(integer *n, complex *alpha, complex *x, integer *
618 incx, complex *tau);
619  
620 /* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer *
621 k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
622  
623 /* Subroutine */ int clarfx_(char *side, integer *m, integer *n, complex *v,
624 complex *tau, complex *c__, integer *ldc, complex *work);
625  
626 /* Subroutine */ int clargv_(integer *n, complex *x, integer *incx, complex *
627 y, integer *incy, real *c__, integer *incc);
628  
629 /* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n,
630 complex *x);
631  
632 /* Subroutine */ int clarrv_(integer *n, real *d__, real *l, integer *isplit,
633 integer *m, real *w, integer *iblock, real *gersch, real *tol,
634 complex *z__, integer *ldz, integer *isuppz, real *work, integer *
635 iwork, integer *info);
636  
637 /* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn,
638 complex *r__);
639  
640 /* Subroutine */ int clartv_(integer *n, complex *x, integer *incx, complex *
641 y, integer *incy, real *c__, complex *s, integer *incc);
642  
643 /* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l,
644 complex *v, integer *incv, complex *tau, complex *c__, integer *ldc,
645 complex *work);
646  
647 /* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char *
648 storev, integer *m, integer *n, integer *k, integer *l, complex *v,
649 integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc,
650 complex *work, integer *ldwork);
651  
652 /* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer *
653 k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
654  
655 /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real *
656 cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda,
657 integer *info);
658  
659 /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex *
660 alpha, complex *beta, complex *a, integer *lda);
661  
662 /* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m,
663 integer *n, real *c__, real *s, complex *a, integer *lda);
664  
665 /* Subroutine */ int classq_(integer *n, complex *x, integer *incx, real *
666 scale, real *sumsq);
667  
668 /* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer *
669 k1, integer *k2, integer *ipiv, integer *incx);
670  
671 /* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb,
672 complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
673 integer *info);
674  
675 /* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char *
676 normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *
677 x, real *scale, real *cnorm, integer *info);
678  
679 /* Subroutine */ int clatdf_(integer *ijob, integer *n, complex *z__, integer
680 *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer
681 *jpiv);
682  
683 /* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char *
684 normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm,
685 integer *info);
686  
687 /* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, complex *a,
688 integer *lda, real *e, complex *tau, complex *w, integer *ldw);
689  
690 /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char *
691 normin, integer *n, complex *a, integer *lda, complex *x, real *scale,
692 real *cnorm, integer *info);
693  
694 /* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, complex *a,
695 integer *lda, complex *tau, complex *work);
696  
697 /* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v,
698 integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc,
699 complex *work);
700  
701 /* Subroutine */ int clauu2_(char *uplo, integer *n, complex *a, integer *lda,
702 integer *info);
703  
704 /* Subroutine */ int clauum_(char *uplo, integer *n, complex *a, integer *lda,
705 integer *info);
706  
707 /* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab,
708 integer *ldab, real *anorm, real *rcond, complex *work, real *rwork,
709 integer *info);
710  
711 /* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab,
712 integer *ldab, real *s, real *scond, real *amax, integer *info);
713  
714 /* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer *
715 nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb,
716 complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *
717 berr, complex *work, real *rwork, integer *info);
718  
719 /* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab,
720 integer *ldab, integer *info);
721  
722 /* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer *
723 nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
724 info);
725  
726 /* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
727 integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
728 ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x,
729 integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
730 real *rwork, integer *info);
731  
732 /* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab,
733 integer *ldab, integer *info);
734  
735 /* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab,
736 integer *ldab, integer *info);
737  
738 /* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer *
739 nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
740 info);
741  
742 /* Subroutine */ int cpocon_(char *uplo, integer *n, complex *a, integer *lda,
743 real *anorm, real *rcond, complex *work, real *rwork, integer *info);
744  
745 /* Subroutine */ int cpoequ_(integer *n, complex *a, integer *lda, real *s,
746 real *scond, real *amax, integer *info);
747  
748 /* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, complex *
749 a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb,
750 complex *x, integer *ldx, real *ferr, real *berr, complex *work,
751 real *rwork, integer *info);
752  
753 /* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, complex *a,
754 integer *lda, complex *b, integer *ldb, integer *info);
755  
756 /* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer *
757 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
758 equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
759 real *rcond, real *ferr, real *berr, complex *work, real *rwork,
760 integer *info);
761  
762 /* Subroutine */ int cpotf2_(char *uplo, integer *n, complex *a, integer *lda,
763 integer *info);
764  
765 /* Subroutine */ int cpotrf_(char *uplo, integer *n, complex *a, integer *lda,
766 integer *info);
767  
768 /* Subroutine */ int cpotri_(char *uplo, integer *n, complex *a, integer *lda,
769 integer *info);
770  
771 /* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *
772 a, integer *lda, complex *b, integer *ldb, integer *info);
773  
774 /* Subroutine */ int cppcon_(char *uplo, integer *n, complex *ap, real *anorm,
775 real *rcond, complex *work, real *rwork, integer *info);
776  
777 /* Subroutine */ int cppequ_(char *uplo, integer *n, complex *ap, real *s,
778 real *scond, real *amax, integer *info);
779  
780 /* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *
781 ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx,
782 real *ferr, real *berr, complex *work, real *rwork, integer *info);
783  
784 /* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, complex *
785 ap, complex *b, integer *ldb, integer *info);
786  
787 /* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer *
788 nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b,
789 integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real
790 *berr, complex *work, real *rwork, integer *info);
791  
792 /* Subroutine */ int cpptrf_(char *uplo, integer *n, complex *ap, integer *
793 info);
794  
795 /* Subroutine */ int cpptri_(char *uplo, integer *n, complex *ap, integer *
796 info);
797  
798 /* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *
799 ap, complex *b, integer *ldb, integer *info);
800  
801 /* Subroutine */ int cptcon_(integer *n, real *d__, complex *e, real *anorm,
802 real *rcond, real *rwork, integer *info);
803  
804 /* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__,
805 complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
806 *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
807 integer *info);
808  
809 /* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, complex *e,
810 complex *b, integer *ldb, integer *info);
811  
812 /* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
813 complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
814 *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
815 real *rwork, integer *info);
816  
817 /* Subroutine */ int cpttrf_(integer *n, real *d__, complex *e, integer *info);
818  
819 /* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__,
820 complex *e, complex *b, integer *ldb, integer *info);
821  
822 /* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *
823 d__, complex *e, complex *b, integer *ldb);
824  
825 /* Subroutine */ int crot_(integer *n, complex *cx, integer *incx, complex *
826 cy, integer *incy, real *c__, complex *s);
827  
828 /* Subroutine */ int cspcon_(char *uplo, integer *n, complex *ap, integer *
829 ipiv, real *anorm, real *rcond, complex *work, integer *info);
830  
831 /* Subroutine */ int cspmv_(char *uplo, integer *n, complex *alpha, complex *
832 ap, complex *x, integer *incx, complex *beta, complex *y, integer *
833 incy);
834  
835 /* Subroutine */ int cspr_(char *uplo, integer *n, complex *alpha, complex *x,
836 integer *incx, complex *ap);
837  
838 /* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, complex *
839 ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
840 integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
841 integer *info);
842  
843 /* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, complex *
844 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
845  
846 /* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer *
847 nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
848 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
849 complex *work, real *rwork, integer *info);
850  
851 /* Subroutine */ int csptrf_(char *uplo, integer *n, complex *ap, integer *
852 ipiv, integer *info);
853  
854 /* Subroutine */ int csptri_(char *uplo, integer *n, complex *ap, integer *
855 ipiv, complex *work, integer *info);
856  
857 /* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, complex *
858 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
859  
860 /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex *
861 cy, integer *incy, real *c__, real *s);
862  
863 /* Subroutine */ int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
864  
865 /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e,
866 complex *z__, integer *ldz, complex *work, integer *lwork, real *
867 rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
868 info);
869  
870 /* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real
871 *w, integer *iblock, integer *isplit, complex *z__, integer *ldz,
872 real *work, integer *iwork, integer *ifail, integer *info);
873  
874 /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e,
875 complex *z__, integer *ldz, real *work, integer *info);
876  
877 /* Subroutine */ int csycon_(char *uplo, integer *n, complex *a, integer *lda,
878 integer *ipiv, real *anorm, real *rcond, complex *work, integer *
879 info);
880  
881 /* Subroutine */ int csymv_(char *uplo, integer *n, complex *alpha, complex *
882 a, integer *lda, complex *x, integer *incx, complex *beta, complex *y,
883 integer *incy);
884  
885 /* Subroutine */ int csyr_(char *uplo, integer *n, complex *alpha, complex *x,
886 integer *incx, complex *a, integer *lda);
887  
888 /* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, complex *
889 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
890 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
891 complex *work, real *rwork, integer *info);
892  
893 /* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, complex *a,
894 integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
895 integer *lwork, integer *info);
896  
897 /* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer *
898 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
899 ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
900 real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
901 integer *info);
902  
903 /* Subroutine */ int csytf2_(char *uplo, integer *n, complex *a, integer *lda,
904 integer *ipiv, integer *info);
905  
906 /* Subroutine */ int csytrf_(char *uplo, integer *n, complex *a, integer *lda,
907 integer *ipiv, complex *work, integer *lwork, integer *info);
908  
909 /* Subroutine */ int csytri_(char *uplo, integer *n, complex *a, integer *lda,
910 integer *ipiv, complex *work, integer *info);
911  
912 /* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, complex *
913 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
914 info);
915  
916 /* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n,
917 integer *kd, complex *ab, integer *ldab, real *rcond, complex *work,
918 real *rwork, integer *info);
919  
920 /* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n,
921 integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
922 integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
923 complex *work, real *rwork, integer *info);
924  
925 /* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n,
926 integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
927 integer *ldb, integer *info);
928  
929 /* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select,
930 integer *n, complex *a, integer *lda, complex *b, integer *ldb,
931 complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm,
932 integer *m, complex *work, real *rwork, integer *info);
933  
934 /* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n,
935 complex *a, integer *lda, complex *b, integer *ldb, complex *q,
936 integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info);
937  
938 /* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n,
939 complex *a, integer *lda, complex *b, integer *ldb, complex *q,
940 integer *ldq, complex *z__, integer *ldz, integer *ifst, integer *
941 ilst, integer *info);
942  
943 /* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz,
944 logical *select, integer *n, complex *a, integer *lda, complex *b,
945 integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
946 complex *z__, integer *ldz, integer *m, real *pl, real *pr, real *
947 dif, complex *work, integer *lwork, integer *iwork, integer *liwork,
948 integer *info);
949  
950 /* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m,
951 integer *p, integer *n, integer *k, integer *l, complex *a, integer *
952 lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha,
953 real *beta, complex *u, integer *ldu, complex *v, integer *ldv,
954 complex *q, integer *ldq, complex *work, integer *ncycle, integer *
955 info);
956  
957 /* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select,
958 integer *n, complex *a, integer *lda, complex *b, integer *ldb,
959 complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real
960 *dif, integer *mm, integer *m, complex *work, integer *lwork, integer
961 *iwork, integer *info);
962  
963 /* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer *
964 n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
965 integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
966 complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal,
967 integer *info);
968  
969 /* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer *
970 n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
971 integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
972 complex *f, integer *ldf, real *scale, real *dif, complex *work,
973 integer *lwork, integer *iwork, integer *info);
974  
975 /* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n,
976 complex *ap, real *rcond, complex *work, real *rwork, integer *info);
977  
978 /* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n,
979 integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x,
980 integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
981 integer *info);
982  
983 /* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, complex *ap,
984 integer *info);
985  
986 /* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n,
987 integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info);
988  
989 /* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n,
990 complex *a, integer *lda, real *rcond, complex *work, real *rwork,
991 integer *info);
992  
993 /* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select,
994 integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
995 complex *vr, integer *ldvr, integer *mm, integer *m, complex *work,
996 real *rwork, integer *info);
997  
998 /* Subroutine */ int ctrexc_(char *compq, integer *n, complex *t, integer *
999 ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *
1000 info);
1001  
1002 /* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n,
1003 integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
1004 complex *x, integer *ldx, real *ferr, real *berr, complex *work, real
1005 *rwork, integer *info);
1006  
1007 /* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer
1008 *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w,
1009 integer *m, real *s, real *sep, complex *work, integer *lwork,
1010 integer *info);
1011  
1012 /* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select,
1013 integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
1014 complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *
1015 m, complex *work, integer *ldwork, real *rwork, integer *info);
1016  
1017 /* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer
1018 *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
1019 complex *c__, integer *ldc, real *scale, integer *info);
1020  
1021 /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a,
1022 integer *lda, integer *info);
1023  
1024 /* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, complex *a,
1025 integer *lda, integer *info);
1026  
1027 /* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n,
1028 integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
1029 integer *info);
1030  
1031 /* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
1032 complex *tau, integer *info);
1033  
1034 /* Subroutine */ int ctzrzf_(integer *m, integer *n, complex *a, integer *lda,
1035 complex *tau, complex *work, integer *lwork, integer *info);
1036  
1037 /* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, complex *a,
1038 integer *lda, complex *tau, complex *work, integer *info);
1039  
1040 /* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, complex *a,
1041 integer *lda, complex *tau, complex *work, integer *info);
1042  
1043 /* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k,
1044 complex *a, integer *lda, complex *tau, complex *work, integer *lwork,
1045 integer *info);
1046  
1047 /* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, complex *
1048 a, integer *lda, complex *tau, complex *work, integer *lwork, integer
1049 *info);
1050  
1051 /* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, complex *a,
1052 integer *lda, complex *tau, complex *work, integer *info);
1053  
1054 /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a,
1055 integer *lda, complex *tau, complex *work, integer *lwork, integer *
1056 info);
1057  
1058 /* Subroutine */ int cungql_(integer *m, integer *n, integer *k, complex *a,
1059 integer *lda, complex *tau, complex *work, integer *lwork, integer *
1060 info);
1061  
1062 /* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, complex *a,
1063 integer *lda, complex *tau, complex *work, integer *lwork, integer *
1064 info);
1065  
1066 /* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, complex *a,
1067 integer *lda, complex *tau, complex *work, integer *info);
1068  
1069 /* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, complex *a,
1070 integer *lda, complex *tau, complex *work, integer *lwork, integer *
1071 info);
1072  
1073 /* Subroutine */ int cungtr_(char *uplo, integer *n, complex *a, integer *lda,
1074 complex *tau, complex *work, integer *lwork, integer *info);
1075  
1076 /* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n,
1077 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1078 integer *ldc, complex *work, integer *info);
1079  
1080 /* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n,
1081 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1082 integer *ldc, complex *work, integer *info);
1083  
1084 /* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m,
1085 integer *n, integer *k, complex *a, integer *lda, complex *tau,
1086 complex *c__, integer *ldc, complex *work, integer *lwork, integer *
1087 info);
1088  
1089 /* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n,
1090 integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau,
1091 complex *c__, integer *ldc, complex *work, integer *lwork, integer *
1092 info);
1093  
1094 /* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n,
1095 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1096 integer *ldc, complex *work, integer *info);
1097  
1098 /* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n,
1099 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1100 integer *ldc, complex *work, integer *lwork, integer *info);
1101  
1102 /* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n,
1103 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1104 integer *ldc, complex *work, integer *lwork, integer *info);
1105  
1106 /* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n,
1107 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1108 integer *ldc, complex *work, integer *lwork, integer *info);
1109  
1110 /* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n,
1111 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1112 integer *ldc, complex *work, integer *info);
1113  
1114 /* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n,
1115 integer *k, integer *l, complex *a, integer *lda, complex *tau,
1116 complex *c__, integer *ldc, complex *work, integer *info);
1117  
1118 /* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n,
1119 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1120 integer *ldc, complex *work, integer *lwork, integer *info);
1121  
1122 /* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n,
1123 integer *k, integer *l, complex *a, integer *lda, complex *tau,
1124 complex *c__, integer *ldc, complex *work, integer *lwork, integer *
1125 info);
1126  
1127 /* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m,
1128 integer *n, complex *a, integer *lda, complex *tau, complex *c__,
1129 integer *ldc, complex *work, integer *lwork, integer *info);
1130  
1131 /* Subroutine */ int cupgtr_(char *uplo, integer *n, complex *ap, complex *
1132 tau, complex *q, integer *ldq, complex *work, integer *info);
1133  
1134 /* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m,
1135 integer *n, complex *ap, complex *tau, complex *c__, integer *ldc,
1136 complex *work, integer *info);
1137  
1138 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
1139 d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt,
1140 integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
1141 iwork, integer *info);
1142  
1143 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
1144 nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt,
1145 integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
1146 ldc, doublereal *work, integer *info);
1147  
1148 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal *
1149 d__, doublereal *sep, integer *info);
1150  
1151 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
1152 integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
1153 d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt,
1154 integer *ldpt, doublereal *c__, integer *ldc, doublereal *work,
1155 integer *info);
1156  
1157 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
1158 doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm,
1159 doublereal *rcond, doublereal *work, integer *iwork, integer *info);
1160  
1161 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
1162 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
1163 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
1164 info);
1165  
1166 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer *
1167 ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
1168 integer *ldafb, integer *ipiv, doublereal *b, integer *ldb,
1169 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
1170 doublereal *work, integer *iwork, integer *info);
1171  
1172 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer *
1173 nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b,
1174 integer *ldb, integer *info);
1175  
1176 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
1177 integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
1178 doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
1179 doublereal *r__, doublereal *c__, doublereal *b, integer *ldb,
1180 doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
1181 doublereal *berr, doublereal *work, integer *iwork, integer *info);
1182  
1183 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
1184 doublereal *ab, integer *ldab, integer *ipiv, integer *info);
1185  
1186 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
1187 doublereal *ab, integer *ldab, integer *ipiv, integer *info);
1188  
1189 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer *
1190 ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv,
1191 doublereal *b, integer *ldb, integer *info);
1192  
1193 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo,
1194 integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
1195 ldv, integer *info);
1196  
1197 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer *
1198 lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
1199  
1200 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
1201 lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
1202 taup, doublereal *work, integer *info);
1203  
1204 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer *
1205 lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
1206 taup, doublereal *work, integer *lwork, integer *info);
1207  
1208 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer *
1209 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
1210 iwork, integer *info);
1211  
1212 /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer *
1213 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
1214 *colcnd, doublereal *amax, integer *info);
1215  
1216 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n,
1217 doublereal *a, integer *lda, integer *sdim, doublereal *wr,
1218 doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
1219 integer *lwork, logical *bwork, integer *info);
1220  
1221 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
1222 sense, integer *n, doublereal *a, integer *lda, integer *sdim,
1223 doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
1224 doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
1225 lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
1226  
1227 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
1228 a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl,
1229 integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work,
1230 integer *lwork, integer *info);
1231  
1232 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
1233 sense, integer *n, doublereal *a, integer *lda, doublereal *wr,
1234 doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
1235 integer *ldvr, integer *ilo, integer *ihi, doublereal *scale,
1236 doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal
1237 *work, integer *lwork, integer *iwork, integer *info);
1238  
1239 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n,
1240 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
1241 alphar, doublereal *alphai, doublereal *beta, doublereal *vsl,
1242 integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work,
1243 integer *lwork, integer *info);
1244  
1245 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
1246 a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
1247 doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
1248 doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
1249 integer *info);
1250  
1251 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi,
1252 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
1253 integer *info);
1254  
1255 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi,
1256 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
1257 integer *lwork, integer *info);
1258  
1259 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
1260 lda, doublereal *tau, doublereal *work, integer *info);
1261  
1262 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
1263 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1264  
1265 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
1266 nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb,
1267 doublereal *work, integer *lwork, integer *info);
1268  
1269 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs,
1270 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
1271 s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
1272 integer *iwork, integer *info);
1273  
1274 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs,
1275 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
1276 s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
1277 integer *info);
1278  
1279 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs,
1280 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
1281 jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
1282 info);
1283  
1284 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs,
1285 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
1286 jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
1287 lwork, integer *info);
1288  
1289 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer *
1290 lda, doublereal *tau, doublereal *work, integer *info);
1291  
1292 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
1293 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1294  
1295 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
1296 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
1297 integer *info);
1298  
1299 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
1300 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
1301  
1302 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
1303 lda, doublereal *tau, doublereal *work, integer *info);
1304  
1305 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
1306 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1307  
1308 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs,
1309 doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
1310 ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
1311 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
1312 integer *info);
1313  
1314 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer *
1315 lda, doublereal *tau, doublereal *work, integer *info);
1316  
1317 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer *
1318 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1319  
1320 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda,
1321 doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
1322  
1323 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
1324 a, integer *lda, doublereal *s, doublereal *u, integer *ldu,
1325 doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
1326 integer *iwork, integer *info);
1327  
1328 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer
1329 *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
1330  
1331 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
1332 doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
1333 ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
1334 integer *info);
1335  
1336 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer *
1337 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
1338 integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
1339 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1340 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
1341 iwork, integer *info);
1342  
1343 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer
1344 *ipiv, integer *jpiv, integer *info);
1345  
1346 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer *
1347 lda, integer *ipiv, integer *info);
1348  
1349 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
1350 lda, integer *ipiv, integer *info);
1351  
1352 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer
1353 *ipiv, doublereal *work, integer *lwork, integer *info);
1354  
1355 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs,
1356 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
1357 ldb, integer *info);
1358  
1359 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo,
1360 integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
1361 doublereal *v, integer *ldv, integer *info);
1362  
1363 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer *
1364 lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi,
1365 doublereal *lscale, doublereal *rscale, doublereal *work, integer *
1366 info);
1367  
1368 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
1369 delctg, integer *n, doublereal *a, integer *lda, doublereal *b,
1370 integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
1371 doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
1372 integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,
1373 integer *info);
1374  
1375 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
1376 delctg, char *sense, integer *n, doublereal *a, integer *lda,
1377 doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
1378 doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
1379 doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
1380 rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
1381 liwork, logical *bwork, integer *info);
1382  
1383 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
1384 a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
1385 doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
1386 doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
1387 integer *info);
1388  
1389 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
1390 sense, integer *n, doublereal *a, integer *lda, doublereal *b,
1391 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
1392 beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
1393 integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
1394 doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
1395 rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
1396 bwork, integer *info);
1397  
1398 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal *
1399 a, integer *lda, doublereal *b, integer *ldb, doublereal *d__,
1400 doublereal *x, doublereal *y, doublereal *work, integer *lwork,
1401 integer *info);
1402  
1403 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer *
1404 ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b,
1405 integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
1406 ldz, integer *info);
1407  
1408 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal *
1409 a, integer *lda, doublereal *b, integer *ldb, doublereal *c__,
1410 doublereal *d__, doublereal *x, doublereal *work, integer *lwork,
1411 integer *info);
1412  
1413 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal *
1414 a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
1415 doublereal *taub, doublereal *work, integer *lwork, integer *info);
1416  
1417 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal *
1418 a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
1419 doublereal *taub, doublereal *work, integer *lwork, integer *info);
1420  
1421 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
1422 integer *n, integer *p, integer *k, integer *l, doublereal *a,
1423 integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
1424 doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer
1425 *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork,
1426 integer *info);
1427  
1428 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
1429 integer *p, integer *n, doublereal *a, integer *lda, doublereal *b,
1430 integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer
1431 *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv,
1432 doublereal *q, integer *ldq, integer *iwork, doublereal *tau,
1433 doublereal *work, integer *info);
1434  
1435 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl,
1436 doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv,
1437 doublereal *anorm, doublereal *rcond, doublereal *work, integer *
1438 iwork, integer *info);
1439  
1440 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs,
1441 doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf,
1442 doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
1443 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1444 ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
1445 info);
1446  
1447 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl,
1448 doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer
1449 *info);
1450  
1451 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer *
1452 nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
1453 dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
1454 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1455 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
1456 iwork, integer *info);
1457  
1458 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__,
1459 doublereal *du, doublereal *du2, integer *ipiv, integer *info);
1460  
1461 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs,
1462 doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
1463 integer *ipiv, doublereal *b, integer *ldb, integer *info);
1464  
1465 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs,
1466 doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
1467 integer *ipiv, doublereal *b, integer *ldb);
1468  
1469 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n,
1470 integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
1471 b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
1472 beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
1473 doublereal *work, integer *lwork, integer *info);
1474  
1475 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
1476 select, integer *n, doublereal *h__, integer *ldh, doublereal *wr,
1477 doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
1478 integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
1479 ifaill, integer *ifailr, integer *info);
1480  
1481 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
1482 integer *ihi, doublereal *h__, integer *ldh, doublereal *wr,
1483 doublereal *wi, doublereal *z__, integer *ldz, doublereal *work,
1484 integer *lwork, integer *info);
1485  
1486 /* Subroutine */ int dlabad_(doublereal *small, doublereal *large);
1487  
1488 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
1489 a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq,
1490 doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer
1491 *ldy);
1492  
1493 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x,
1494 integer *isgn, doublereal *est, integer *kase);
1495  
1496 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
1497 a, integer *lda, doublereal *b, integer *ldb);
1498  
1499 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
1500 doublereal *d__, doublereal *p, doublereal *q);
1501  
1502 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__,
1503 doublereal *rt1, doublereal *rt2);
1504  
1505 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n,
1506 integer *mmax, integer *minp, integer *nbmin, doublereal *abstol,
1507 doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
1508 e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__,
1509 integer *mout, integer *nab, doublereal *work, integer *iwork,
1510 integer *info);
1511  
1512 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n,
1513 doublereal *d__, doublereal *e, doublereal *q, integer *ldq,
1514 doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork,
1515 integer *info);
1516  
1517 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q,
1518 integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt,
1519 doublereal *work, integer *iwork, integer *info);
1520  
1521 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
1522 d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho,
1523 doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2,
1524 integer *indx, integer *indxc, integer *indxp, integer *coltyp,
1525 integer *info);
1526  
1527 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
1528 d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
1529 doublereal *q2, integer *indx, integer *ctot, doublereal *w,
1530 doublereal *s, integer *info);
1531  
1532 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__,
1533 doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
1534 integer *info);
1535  
1536 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__,
1537 doublereal *delta, doublereal *rho, doublereal *dlam);
1538  
1539 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal *
1540 rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
1541 tau, integer *info);
1542  
1543 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz,
1544 integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
1545 doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer
1546 *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
1547 perm, integer *givptr, integer *givcol, doublereal *givnum,
1548 doublereal *work, integer *iwork, integer *info);
1549  
1550 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer
1551 *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq,
1552 doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
1553 doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer
1554 *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer
1555 *indx, integer *info);
1556  
1557 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop,
1558 integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
1559 rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds,
1560 integer *info);
1561  
1562 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl,
1563 integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
1564 integer *givcol, doublereal *givnum, doublereal *q, integer *qptr,
1565 doublereal *z__, doublereal *ztemp, integer *info);
1566  
1567 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n,
1568 doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi,
1569 doublereal *vr, doublereal *vi, doublereal *b, integer *ldb,
1570 doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
1571 bignum, integer *info);
1572  
1573 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__,
1574 doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
1575  
1576 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t,
1577 integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1,
1578 integer *n2, doublereal *work, integer *info);
1579  
1580 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b,
1581 integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
1582 scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
1583  
1584 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2,
1585 doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3,
1586 doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv,
1587 doublereal *csq, doublereal *snq);
1588  
1589 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda,
1590 doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__,
1591 integer *in, integer *info);
1592  
1593 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs,
1594 doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du,
1595 doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer
1596 *ldb);
1597  
1598 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a,
1599 doublereal *b, doublereal *c__, doublereal *d__, integer *in,
1600 doublereal *y, doublereal *tol, integer *info);
1601  
1602 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b,
1603 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
1604 beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
1605 snr);
1606  
1607 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n,
1608 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
1609 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
1610 integer *ldz, integer *info);
1611  
1612 /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
1613 a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
1614 doublereal *y, integer *ldy);
1615  
1616 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x,
1617 doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
1618 sestpr, doublereal *s, doublereal *c__);
1619  
1620 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw,
1621 doublereal *smin, doublereal *ca, doublereal *a, integer *lda,
1622 doublereal *d1, doublereal *d2, doublereal *b, integer *ldb,
1623 doublereal *wr, doublereal *wi, doublereal *x, integer *ldx,
1624 doublereal *scale, doublereal *xnorm, integer *info);
1625  
1626 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr,
1627 integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal
1628 *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol,
1629 integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
1630 poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
1631 k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
1632  
1633 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n,
1634 integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
1635 ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k,
1636 doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
1637 poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
1638 perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
1639 work, integer *iwork, integer *info);
1640  
1641 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer
1642 *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb,
1643 doublereal *rcond, integer *rank, doublereal *work, integer *iwork,
1644 integer *info);
1645  
1646 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical
1647 *ieee1);
1648  
1649 /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd,
1650 doublereal *eps, integer *emin, doublereal *rmin, integer *emax,
1651 doublereal *rmax);
1652  
1653 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base);
1654  
1655 /* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin,
1656 logical *ieee, integer *emax, doublereal *rmax);
1657  
1658 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer
1659 *dtrd1, integer *dtrd2, integer *index);
1660  
1661 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__,
1662 doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
1663 doublereal *rt2i, doublereal *cs, doublereal *sn);
1664  
1665 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx,
1666 doublereal *y, integer *incy, doublereal *ssmin);
1667  
1668 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n,
1669 doublereal *x, integer *ldx, integer *k);
1670  
1671 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
1672 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
1673 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
1674  
1675 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer *
1676 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
1677 *colcnd, doublereal *amax, char *equed);
1678  
1679 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset,
1680 doublereal *a, integer *lda, integer *jpvt, doublereal *tau,
1681 doublereal *vn1, doublereal *vn2, doublereal *work);
1682  
1683 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer
1684 *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt,
1685 doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv,
1686 doublereal *f, integer *ldf);
1687  
1688 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
1689 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
1690 char *equed);
1691  
1692 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap,
1693 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
1694  
1695 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
1696 lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
1697  
1698 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n,
1699 doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal
1700 *scale, doublereal *x, doublereal *work, integer *info);
1701  
1702 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal
1703 *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
1704 lld, doublereal *gersch, doublereal *z__, doublereal *ztz, doublereal
1705 *mingma, integer *r__, integer *isuppz, doublereal *work);
1706  
1707 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y,
1708 doublereal *z__, integer *incx, doublereal *c__, doublereal *s,
1709 integer *incc);
1710  
1711 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v,
1712 integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
1713 doublereal *work);
1714  
1715 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
1716 storev, integer *m, integer *n, integer *k, doublereal *v, integer *
1717 ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc,
1718 doublereal *work, integer *ldwork);
1719  
1720 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x,
1721 integer *incx, doublereal *tau);
1722  
1723 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
1724 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
1725 integer *ldt);
1726  
1727 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal *
1728 v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
1729  
1730 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx,
1731 doublereal *y, integer *incy, doublereal *c__, integer *incc);
1732  
1733 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n,
1734 doublereal *x);
1735  
1736 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *l,
1737 doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast,
1738 doublereal *sigma, doublereal *reltol, doublereal *w, doublereal *
1739 wgap, doublereal *werr, doublereal *work, integer *iwork, integer *
1740 info);
1741  
1742 /* Subroutine */ int dlarre_(integer *n, doublereal *d__, doublereal *e,
1743 doublereal *tol, integer *nsplit, integer *isplit, integer *m,
1744 doublereal *w, doublereal *woff, doublereal *gersch, doublereal *work,
1745 integer *info);
1746  
1747 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l,
1748 doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast,
1749 doublereal *w, doublereal *dplus, doublereal *lplus, doublereal *work,
1750 integer *iwork, integer *info);
1751  
1752 /* Subroutine */ int dlarrv_(integer *n, doublereal *d__, doublereal *l,
1753 integer *isplit, integer *m, doublereal *w, integer *iblock,
1754 doublereal *gersch, doublereal *tol, doublereal *z__, integer *ldz,
1755 integer *isuppz, doublereal *work, integer *iwork, integer *info);
1756  
1757 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs,
1758 doublereal *sn, doublereal *r__);
1759  
1760 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx,
1761 doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer
1762 *incc);
1763  
1764 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x);
1765  
1766 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l,
1767 doublereal *v, integer *incv, doublereal *tau, doublereal *c__,
1768 integer *ldc, doublereal *work);
1769  
1770 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
1771 storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
1772 integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
1773 ldc, doublereal *work, integer *ldwork);
1774  
1775 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer *
1776 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
1777 integer *ldt);
1778  
1779 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__,
1780 doublereal *ssmin, doublereal *ssmax);
1781  
1782 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku,
1783 doublereal *cfrom, doublereal *cto, integer *m, integer *n,
1784 doublereal *a, integer *lda, integer *info);
1785  
1786 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__,
1787 doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
1788 ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
1789 info);
1790  
1791 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre,
1792 doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u,
1793 integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
1794 iwork, doublereal *work, integer *info);
1795  
1796 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer
1797 *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
1798 beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt,
1799 doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2,
1800 integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
1801 idxq, integer *coltyp, integer *info);
1802  
1803 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer
1804 *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma,
1805 doublereal *u, integer *ldu, doublereal *u2, integer *ldu2,
1806 doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2,
1807 integer *idxc, integer *ctot, doublereal *z__, integer *info);
1808  
1809 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__,
1810 doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
1811 sigma, doublereal *work, integer *info);
1812  
1813 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__,
1814 doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
1815 work);
1816  
1817 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr,
1818 integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl,
1819 doublereal *alpha, doublereal *beta, integer *idxq, integer *perm,
1820 integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
1821 integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
1822 difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s,
1823 doublereal *work, integer *iwork, integer *info);
1824  
1825 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr,
1826 integer *sqre, integer *k, doublereal *d__, doublereal *z__,
1827 doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl,
1828 doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
1829 dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm,
1830 integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
1831 integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
1832  
1833 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__,
1834 doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl,
1835 doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
1836 work, integer *info);
1837  
1838 /* Subroutine */ int dlasd9_(integer *icompq, integer *ldu, integer *k,
1839 doublereal *d__, doublereal *z__, doublereal *vf, doublereal *vl,
1840 doublereal *difl, doublereal *difr, doublereal *dsigma, doublereal *
1841 work, integer *info);
1842  
1843 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n,
1844 integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer
1845 *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr,
1846 doublereal *z__, doublereal *poles, integer *givptr, integer *givcol,
1847 integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__,
1848 doublereal *s, doublereal *work, integer *iwork, integer *info);
1849  
1850 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
1851 ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e,
1852 doublereal *vt, integer *ldvt, doublereal *u, integer *ldu,
1853 doublereal *c__, integer *ldc, doublereal *work, integer *info);
1854  
1855 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
1856 inode, integer *ndiml, integer *ndimr, integer *msub);
1857  
1858 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
1859 alpha, doublereal *beta, doublereal *a, integer *lda);
1860  
1861 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e,
1862 doublereal *work, integer *info);
1863  
1864 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info);
1865  
1866 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__,
1867 integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
1868 doublereal *qmax, integer *nfail, integer *iter, integer *ndiv,
1869 logical *ieee);
1870  
1871 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__,
1872 integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1,
1873 doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2,
1874 doublereal *tau, integer *ttype);
1875  
1876 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__,
1877 integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1,
1878 doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
1879 logical *ieee);
1880  
1881 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__,
1882 integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
1883 doublereal *dn, doublereal *dnm1, doublereal *dnm2);
1884  
1885 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m,
1886 integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
1887 lda);
1888  
1889 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
1890 info);
1891  
1892 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx,
1893 doublereal *scale, doublereal *sumsq);
1894  
1895 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__,
1896 doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
1897 csr, doublereal *snl, doublereal *csl);
1898  
1899 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer
1900 *k1, integer *k2, integer *ipiv, integer *incx);
1901  
1902 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn,
1903 integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
1904 tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale,
1905 doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
1906  
1907 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
1908 doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
1909 ldw, integer *info);
1910  
1911 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
1912 normin, integer *n, integer *kd, doublereal *ab, integer *ldab,
1913 doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
1914  
1915 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__,
1916 integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal,
1917 integer *ipiv, integer *jpiv);
1918  
1919 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
1920 normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale,
1921 doublereal *cnorm, integer *info);
1922  
1923 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
1924 a, integer *lda, doublereal *e, doublereal *tau, doublereal *w,
1925 integer *ldw);
1926  
1927 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
1928 normin, integer *n, doublereal *a, integer *lda, doublereal *x,
1929 doublereal *scale, doublereal *cnorm, integer *info);
1930  
1931 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal *
1932 a, integer *lda, doublereal *tau, doublereal *work);
1933  
1934 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal *
1935 v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2,
1936 integer *ldc, doublereal *work);
1937  
1938 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
1939 lda, integer *info);
1940  
1941 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer *
1942 lda, integer *info);
1943  
1944 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap,
1945 doublereal *tau, doublereal *q, integer *ldq, doublereal *work,
1946 integer *info);
1947  
1948 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m,
1949 integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer
1950 *ldc, doublereal *work, integer *info);
1951  
1952 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal *
1953 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
1954  
1955 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal *
1956 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
1957  
1958 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k,
1959 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
1960 integer *lwork, integer *info);
1961  
1962 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi,
1963 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
1964 integer *lwork, integer *info);
1965  
1966 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal *
1967 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
1968  
1969 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal *
1970 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
1971 integer *info);
1972  
1973 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal *
1974 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
1975 integer *info);
1976  
1977 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal *
1978 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
1979 integer *info);
1980  
1981 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal *
1982 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
1983  
1984 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal *
1985 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
1986 integer *info);
1987  
1988 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
1989 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1990  
1991 /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n,
1992 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
1993 c__, integer *ldc, doublereal *work, integer *info);
1994  
1995 /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n,
1996 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
1997 c__, integer *ldc, doublereal *work, integer *info);
1998  
1999 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m,
2000 integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau,
2001 doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
2002 integer *info);
2003  
2004 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n,
2005 integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
2006 tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
2007 integer *info);
2008  
2009 /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n,
2010 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2011 c__, integer *ldc, doublereal *work, integer *info);
2012  
2013 /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n,
2014 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2015 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2016  
2017 /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n,
2018 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2019 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2020  
2021 /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n,
2022 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2023 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2024  
2025 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n,
2026 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2027 c__, integer *ldc, doublereal *work, integer *info);
2028  
2029 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n,
2030 integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
2031 doublereal *c__, integer *ldc, doublereal *work, integer *info);
2032  
2033 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n,
2034 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2035 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2036  
2037 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n,
2038 integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
2039 doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
2040 integer *info);
2041  
2042 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m,
2043 integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
2044 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2045  
2046 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
2047 ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
2048 work, integer *iwork, integer *info);
2049  
2050 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
2051 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
2052 integer *info);
2053  
2054 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
2055 nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
2056 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2057 ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
2058 info);
2059  
2060 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
2061 ab, integer *ldab, integer *info);
2062  
2063 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer *
2064 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
2065 integer *info);
2066  
2067 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
2068 integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
2069 integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
2070 ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
2071 doublereal *berr, doublereal *work, integer *iwork, integer *info);
2072  
2073 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
2074 ab, integer *ldab, integer *info);
2075  
2076 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
2077 ab, integer *ldab, integer *info);
2078  
2079 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
2080 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
2081 integer *info);
2082  
2083 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer *
2084 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
2085 iwork, integer *info);
2086  
2087 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda,
2088 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
2089  
2090 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs,
2091 doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2092 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2093 ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
2094 info);
2095  
2096 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal
2097 *a, integer *lda, doublereal *b, integer *ldb, integer *info);
2098  
2099 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer *
2100 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2101 char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
2102 x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
2103 berr, doublereal *work, integer *iwork, integer *info);
2104  
2105 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
2106 lda, integer *info);
2107  
2108 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
2109 lda, integer *info);
2110  
2111 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer *
2112 lda, integer *info);
2113  
2114 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs,
2115 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2116 info);
2117  
2118 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap,
2119 doublereal *anorm, doublereal *rcond, doublereal *work, integer *
2120 iwork, integer *info);
2121  
2122 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap,
2123 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
2124  
2125 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs,
2126 doublereal *ap, doublereal *afp, doublereal *b, integer *ldb,
2127 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
2128 doublereal *work, integer *iwork, integer *info);
2129  
2130 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal
2131 *ap, doublereal *b, integer *ldb, integer *info);
2132  
2133 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer *
2134 nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s,
2135 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2136 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
2137 iwork, integer *info);
2138  
2139 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
2140 info);
2141  
2142 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
2143 info);
2144  
2145 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs,
2146 doublereal *ap, doublereal *b, integer *ldb, integer *info);
2147  
2148 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e,
2149 doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
2150  
2151 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__,
2152 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2153 integer *info);
2154  
2155 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__,
2156 doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer
2157 *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
2158 doublereal *work, integer *info);
2159  
2160 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__,
2161 doublereal *e, doublereal *b, integer *ldb, integer *info);
2162  
2163 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs,
2164 doublereal *d__, doublereal *e, doublereal *df, doublereal *ef,
2165 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2166 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
2167 info);
2168  
2169 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e,
2170 integer *info);
2171  
2172 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__,
2173 doublereal *e, doublereal *b, integer *ldb, integer *info);
2174  
2175 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__,
2176 doublereal *e, doublereal *b, integer *ldb);
2177  
2178 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx,
2179 integer *incx);
2180  
2181 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd,
2182 doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
2183 integer *ldz, doublereal *work, integer *info);
2184  
2185 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd,
2186 doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
2187 integer *ldz, doublereal *work, integer *lwork, integer *iwork,
2188 integer *liwork, integer *info);
2189  
2190 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n,
2191 integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
2192 ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu,
2193 doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
2194 integer *ldz, doublereal *work, integer *iwork, integer *ifail,
2195 integer *info);
2196  
2197 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka,
2198 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
2199 ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
2200  
2201 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka,
2202 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
2203 ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2204 integer *info);
2205  
2206 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
2207 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
2208 ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2209 integer *lwork, integer *iwork, integer *liwork, integer *info);
2210  
2211 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n,
2212 integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
2213 bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl,
2214 doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
2215 *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2216 integer *iwork, integer *ifail, integer *info);
2217  
2218 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd,
2219 doublereal *ab, integer *ldab, doublereal *d__, doublereal *e,
2220 doublereal *q, integer *ldq, doublereal *work, integer *info);
2221  
2222 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
2223 ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer
2224 *iwork, integer *info);
2225  
2226 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal *
2227 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2228 integer *info);
2229  
2230 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal *
2231 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2232 integer *lwork, integer *iwork, integer *liwork, integer *info);
2233  
2234 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n,
2235 doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *
2236 iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
2237 integer *ldz, doublereal *work, integer *iwork, integer *ifail,
2238 integer *info);
2239  
2240 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n,
2241 doublereal *ap, doublereal *bp, integer *info);
2242  
2243 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer *
2244 n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
2245 integer *ldz, doublereal *work, integer *info);
2246  
2247 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer *
2248 n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
2249 integer *ldz, doublereal *work, integer *lwork, integer *iwork,
2250 integer *liwork, integer *info);
2251  
2252 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char *
2253 uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl,
2254 doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
2255 *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2256 integer *iwork, integer *ifail, integer *info);
2257  
2258 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs,
2259 doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
2260 integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
2261 doublereal *berr, doublereal *work, integer *iwork, integer *info);
2262  
2263 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal
2264 *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
2265  
2266 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer *
2267 nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
2268 integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
2269 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
2270 integer *info);
2271  
2272 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap,
2273 doublereal *d__, doublereal *e, doublereal *tau, integer *info);
2274  
2275 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
2276 ipiv, integer *info);
2277  
2278 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
2279 ipiv, doublereal *work, integer *info);
2280  
2281 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs,
2282 doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
2283 info);
2284  
2285 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal
2286 *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
2287 doublereal *d__, doublereal *e, integer *m, integer *nsplit,
2288 doublereal *w, integer *iblock, integer *isplit, doublereal *work,
2289 integer *iwork, integer *info);
2290  
2291 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__,
2292 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2293 integer *lwork, integer *iwork, integer *liwork, integer *info);
2294  
2295 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal *
2296 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2297 integer *iu, doublereal *abstol, integer *m, doublereal *w,
2298 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
2299 integer *lwork, integer *iwork, integer *liwork, integer *info);
2300  
2301 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e,
2302 integer *m, doublereal *w, integer *iblock, integer *isplit,
2303 doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
2304 integer *ifail, integer *info);
2305  
2306 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__,
2307 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2308 integer *info);
2309  
2310 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e,
2311 integer *info);
2312  
2313 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__,
2314 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2315 integer *info);
2316  
2317 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__,
2318 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2319 integer *lwork, integer *iwork, integer *liwork, integer *info);
2320  
2321 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal *
2322 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2323 integer *iu, doublereal *abstol, integer *m, doublereal *w,
2324 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
2325 integer *lwork, integer *iwork, integer *liwork, integer *info);
2326  
2327 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal *
2328 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2329 integer *iu, doublereal *abstol, integer *m, doublereal *w,
2330 doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
2331 integer *ifail, integer *info);
2332  
2333 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer *
2334 lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *
2335 work, integer *iwork, integer *info);
2336  
2337 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
2338 integer *lda, doublereal *w, doublereal *work, integer *lwork,
2339 integer *info);
2340  
2341 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *
2342 a, integer *lda, doublereal *w, doublereal *work, integer *lwork,
2343 integer *iwork, integer *liwork, integer *info);
2344  
2345 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n,
2346 doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
2347 il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
2348 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
2349 integer *lwork, integer *iwork, integer *liwork, integer *info);
2350  
2351 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n,
2352 doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
2353 il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
2354 doublereal *z__, integer *ldz, doublereal *work, integer *lwork,
2355 integer *iwork, integer *ifail, integer *info);
2356  
2357 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n,
2358 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2359 info);
2360  
2361 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n,
2362 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2363 info);
2364  
2365 /* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer *
2366 n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2367 doublereal *w, doublereal *work, integer *lwork, integer *info);
2368  
2369 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer *
2370 n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2371 doublereal *w, doublereal *work, integer *lwork, integer *iwork,
2372 integer *liwork, integer *info);
2373  
2374 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char *
2375 uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer
2376 *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu,
2377 doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
2378 integer *ldz, doublereal *work, integer *lwork, integer *iwork,
2379 integer *ifail, integer *info);
2380  
2381 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs,
2382 doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
2383 ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
2384 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
2385 integer *info);
2386  
2387 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal
2388 *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb,
2389 doublereal *work, integer *lwork, integer *info);
2390  
2391 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer *
2392 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2393 integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *
2394 ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
2395 doublereal *work, integer *lwork, integer *iwork, integer *info);
2396  
2397 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
2398 lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
2399  
2400 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
2401 lda, integer *ipiv, integer *info);
2402  
2403 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer *
2404 lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *
2405 work, integer *lwork, integer *info);
2406  
2407 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
2408 lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
2409  
2410 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer *
2411 lda, integer *ipiv, doublereal *work, integer *info);
2412  
2413 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs,
2414 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
2415 ldb, integer *info);
2416  
2417 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n,
2418 integer *kd, doublereal *ab, integer *ldab, doublereal *rcond,
2419 doublereal *work, integer *iwork, integer *info);
2420  
2421 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n,
2422 integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
2423 *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
2424 doublereal *berr, doublereal *work, integer *iwork, integer *info);
2425  
2426 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n,
2427 integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
2428 *b, integer *ldb, integer *info);
2429  
2430 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select,
2431 integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2432 doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer
2433 *mm, integer *m, doublereal *work, integer *info);
2434  
2435 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n,
2436 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
2437 q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *
2438 n1, integer *n2, doublereal *work, integer *lwork, integer *info);
2439  
2440 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n,
2441 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
2442 q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst,
2443 integer *ilst, doublereal *work, integer *lwork, integer *info);
2444  
2445 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz,
2446 logical *select, integer *n, doublereal *a, integer *lda, doublereal *
2447 b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
2448 beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
2449 integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
2450 doublereal *work, integer *lwork, integer *iwork, integer *liwork,
2451 integer *info);
2452  
2453 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m,
2454 integer *p, integer *n, integer *k, integer *l, doublereal *a,
2455 integer *lda, doublereal *b, integer *ldb, doublereal *tola,
2456 doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u,
2457 integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *
2458 ldq, doublereal *work, integer *ncycle, integer *info);
2459  
2460 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select,
2461 integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2462 doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
2463 doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *
2464 work, integer *lwork, integer *iwork, integer *info);
2465  
2466 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
2467 n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2468 doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
2469 doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
2470 scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer
2471 *pq, integer *info);
2472  
2473 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer *
2474 n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2475 doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
2476 doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
2477 scale, doublereal *dif, doublereal *work, integer *lwork, integer *
2478 iwork, integer *info);
2479  
2480 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n,
2481 doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork,
2482 integer *info);
2483  
2484 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n,
2485 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb,
2486 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
2487 doublereal *work, integer *iwork, integer *info);
2488  
2489 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal *
2490 ap, integer *info);
2491  
2492 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n,
2493 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
2494 info);
2495  
2496 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n,
2497 doublereal *a, integer *lda, doublereal *rcond, doublereal *work,
2498 integer *iwork, integer *info);
2499  
2500 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select,
2501 integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
2502 ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m,
2503 doublereal *work, integer *info);
2504  
2505 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer *
2506 ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst,
2507 doublereal *work, integer *info);
2508  
2509 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n,
2510 integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
2511 ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
2512 doublereal *work, integer *iwork, integer *info);
2513  
2514 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer
2515 *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq,
2516 doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal
2517 *sep, doublereal *work, integer *lwork, integer *iwork, integer *
2518 liwork, integer *info);
2519  
2520 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select,
2521 integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
2522 ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep,
2523 integer *mm, integer *m, doublereal *work, integer *ldwork, integer *
2524 iwork, integer *info);
2525  
2526 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer
2527 *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *
2528 ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info);
2529  
2530 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
2531 a, integer *lda, integer *info);
2532  
2533 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
2534 a, integer *lda, integer *info);
2535  
2536 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n,
2537 integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
2538 ldb, integer *info);
2539  
2540 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
2541 lda, doublereal *tau, integer *info);
2542  
2543 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer *
2544 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2545  
2546 integer icmax1_(integer *n, complex *cx, integer *incx);
2547  
2548 integer ieeeck_(integer *ispec, real *zero, real *one);
2549  
2550 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
2551 integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen
2552 opts_len);
2553  
2554 integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
2555  
2556 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__,
2557 real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q,
2558 integer *iq, real *work, integer *iwork, integer *info);
2559  
2560 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
2561 nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *
2562 u, integer *ldu, real *c__, integer *ldc, real *work, integer *info);
2563  
2564 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__,
2565 real *sep, integer *info);
2566  
2567 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
2568 integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *
2569 e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer
2570 *ldc, real *work, integer *info);
2571  
2572 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku,
2573 real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
2574 real *work, integer *iwork, integer *info);
2575  
2576 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku,
2577 real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
2578 colcnd, real *amax, integer *info);
2579  
2580 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer *
2581 ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
2582 integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
2583 ferr, real *berr, real *work, integer *iwork, integer *info);
2584  
2585 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer *
2586 nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb,
2587 integer *info);
2588  
2589 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl,
2590 integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
2591 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
2592 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
2593 real *berr, real *work, integer *iwork, integer *info);
2594  
2595 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
2596 real *ab, integer *ldab, integer *ipiv, integer *info);
2597  
2598 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
2599 real *ab, integer *ldab, integer *ipiv, integer *info);
2600  
2601 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer *
2602 ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b,
2603 integer *ldb, integer *info);
2604  
2605 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo,
2606 integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer
2607 *info);
2608  
2609 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda,
2610 integer *ilo, integer *ihi, real *scale, integer *info);
2611  
2612 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda,
2613 real *d__, real *e, real *tauq, real *taup, real *work, integer *info);
2614  
2615 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda,
2616 real *d__, real *e, real *tauq, real *taup, real *work, integer *
2617 lwork, integer *info);
2618  
2619 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda,
2620 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
2621  
2622 /* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda,
2623 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer
2624 *info);
2625  
2626 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n,
2627 real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs,
2628 integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
2629 info);
2630  
2631 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char *
2632 sense, integer *n, real *a, integer *lda, integer *sdim, real *wr,
2633 real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
2634 work, integer *lwork, integer *iwork, integer *liwork, logical *bwork,
2635 integer *info);
2636  
2637 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a,
2638 integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr,
2639 integer *ldvr, real *work, integer *lwork, integer *info);
2640  
2641 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *
2642 sense, integer *n, real *a, integer *lda, real *wr, real *wi, real *
2643 vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *
2644 ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work,
2645 integer *lwork, integer *iwork, integer *info);
2646  
2647 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a,
2648 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
2649 *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
2650 work, integer *lwork, integer *info);
2651  
2652 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a,
2653 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
2654 *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
2655 integer *lwork, integer *info);
2656  
2657 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a,
2658 integer *lda, real *tau, real *work, integer *info);
2659  
2660 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a,
2661 integer *lda, real *tau, real *work, integer *lwork, integer *info);
2662  
2663 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda,
2664 real *tau, real *work, integer *info);
2665  
2666 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda,
2667 real *tau, real *work, integer *lwork, integer *info);
2668  
2669 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer *
2670 nrhs, real *a, integer *lda, real *b, integer *ldb, real *work,
2671 integer *lwork, integer *info);
2672  
2673 /* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a,
2674 integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
2675 rank, real *work, integer *lwork, integer *iwork, integer *info);
2676  
2677 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a,
2678 integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
2679 rank, real *work, integer *lwork, integer *info);
2680  
2681 /* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a,
2682 integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
2683 integer *rank, real *work, integer *info);
2684  
2685 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a,
2686 integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
2687 integer *rank, real *work, integer *lwork, integer *info);
2688  
2689 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda,
2690 real *tau, real *work, integer *info);
2691  
2692 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda,
2693 real *tau, real *work, integer *lwork, integer *info);
2694  
2695 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda,
2696 integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
2697  
2698 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda,
2699 integer *jpvt, real *tau, real *work, integer *info);
2700  
2701 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda,
2702 real *tau, real *work, integer *info);
2703  
2704 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda,
2705 real *tau, real *work, integer *lwork, integer *info);
2706  
2707 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a,
2708 integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
2709 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
2710 work, integer *iwork, integer *info);
2711  
2712 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda,
2713 real *tau, real *work, integer *info);
2714  
2715 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda,
2716 real *tau, real *work, integer *lwork, integer *info);
2717  
2718 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs,
2719 integer *ipiv, integer *jpiv, real *scale);
2720  
2721 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a,
2722 integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt,
2723 real *work, integer *lwork, integer *iwork, integer *info);
2724  
2725 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda,
2726 integer *ipiv, real *b, integer *ldb, integer *info);
2727  
2728 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
2729 real *a, integer *lda, real *s, real *u, integer *ldu, real *vt,
2730 integer *ldvt, real *work, integer *lwork, integer *info);
2731  
2732 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer *
2733 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
2734 char *equed, real *r__, real *c__, real *b, integer *ldb, real *x,
2735 integer *ldx, real *rcond, real *ferr, real *berr, real *work,
2736 integer *iwork, integer *info);
2737  
2738 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv,
2739 integer *jpiv, integer *info);
2740  
2741 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda,
2742 integer *ipiv, integer *info);
2743  
2744 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda,
2745 integer *ipiv, integer *info);
2746  
2747 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv,
2748 real *work, integer *lwork, integer *info);
2749  
2750 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a,
2751 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
2752  
2753 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo,
2754 integer *ihi, real *lscale, real *rscale, integer *m, real *v,
2755 integer *ldv, integer *info);
2756  
2757 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda,
2758 real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real
2759 *rscale, real *work, integer *info);
2760  
2761 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
2762 selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
2763 integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
2764 integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
2765 logical *bwork, integer *info);
2766  
2767 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
2768 selctg, char *sense, integer *n, real *a, integer *lda, real *b,
2769 integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta,
2770 real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde,
2771 real *rcondv, real *work, integer *lwork, integer *iwork, integer *
2772 liwork, logical *bwork, integer *info);
2773  
2774 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a,
2775 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
2776 *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
2777 integer *lwork, integer *info);
2778  
2779 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char *
2780 sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real
2781 *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr,
2782 integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale,
2783 real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work,
2784 integer *lwork, integer *iwork, logical *bwork, integer *info);
2785  
2786 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a,
2787 integer *lda, real *b, integer *ldb, real *d__, real *x, real *y,
2788 real *work, integer *lwork, integer *info);
2789  
2790 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer *
2791 ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real
2792 *q, integer *ldq, real *z__, integer *ldz, integer *info);
2793  
2794 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a,
2795 integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x,
2796 real *work, integer *lwork, integer *info);
2797  
2798 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a,
2799 integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
2800 work, integer *lwork, integer *info);
2801  
2802 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a,
2803 integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
2804 work, integer *lwork, integer *info);
2805  
2806 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
2807 integer *n, integer *p, integer *k, integer *l, real *a, integer *lda,
2808 real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
2809 ldu, real *v, integer *ldv, real *q, integer *ldq, real *work,
2810 integer *iwork, integer *info);
2811  
2812 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
2813 integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb,
2814 real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu,
2815 real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
2816 tau, real *work, integer *info);
2817  
2818 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__,
2819 real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real *
2820 work, integer *iwork, integer *info);
2821  
2822 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl,
2823 real *d__, real *du, real *dlf, real *df, real *duf, real *du2,
2824 integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
2825 ferr, real *berr, real *work, integer *iwork, integer *info);
2826  
2827 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__,
2828 real *du, real *b, integer *ldb, integer *info);
2829  
2830 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer *
2831 nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf,
2832 real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *
2833 ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork,
2834 integer *info);
2835  
2836 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real *
2837 du2, integer *ipiv, integer *info);
2838  
2839 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl,
2840 real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb,
2841 integer *info);
2842  
2843 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real
2844 *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *
2845 ldb);
2846  
2847 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n,
2848 integer *ilo, integer *ihi, real *a, integer *lda, real *b, integer *
2849 ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
2850 real *z__, integer *ldz, real *work, integer *lwork, integer *info);
2851  
2852 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical *
2853 select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real
2854 *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m,
2855 real *work, integer *ifaill, integer *ifailr, integer *info);
2856  
2857 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo,
2858 integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__,
2859 integer *ldz, real *work, integer *lwork, integer *info);
2860  
2861 /* Subroutine */ int slabad_(real *small, real *large);
2862  
2863 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a,
2864 integer *lda, real *d__, real *e, real *tauq, real *taup, real *x,
2865 integer *ldx, real *y, integer *ldy);
2866  
2867 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn,
2868 real *est, integer *kase);
2869  
2870 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a,
2871 integer *lda, real *b, integer *ldb);
2872  
2873 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p,
2874 real *q);
2875  
2876 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
2877  
2878 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n,
2879 integer *mmax, integer *minp, integer *nbmin, real *abstol, real *
2880 reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval,
2881 real *ab, real *c__, integer *mout, integer *nab, real *work, integer
2882 *iwork, integer *info);
2883  
2884 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real
2885 *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs,
2886 real *work, integer *iwork, integer *info);
2887  
2888 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq,
2889 integer *indxq, real *rho, integer *cutpnt, real *work, integer *
2890 iwork, integer *info);
2891  
2892 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__,
2893 real *q, integer *ldq, integer *indxq, real *rho, real *z__, real *
2894 dlamda, real *w, real *q2, integer *indx, integer *indxc, integer *
2895 indxp, integer *coltyp, integer *info);
2896  
2897 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__,
2898 real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer *
2899 indx, integer *ctot, real *w, real *s, integer *info);
2900  
2901 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__,
2902 real *delta, real *rho, real *dlam, integer *info);
2903  
2904 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta,
2905 real *rho, real *dlam);
2906  
2907 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho,
2908 real *d__, real *z__, real *finit, real *tau, integer *info);
2909  
2910 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz,
2911 integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q,
2912 integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *
2913 qstore, integer *qptr, integer *prmptr, integer *perm, integer *
2914 givptr, integer *givcol, real *givnum, real *work, integer *iwork,
2915 integer *info);
2916  
2917 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer
2918 *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho,
2919 integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2,
2920 real *w, integer *perm, integer *givptr, integer *givcol, real *
2921 givnum, integer *indxp, integer *indx, integer *info);
2922  
2923 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop,
2924 integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda,
2925 real *w, real *s, integer *lds, integer *info);
2926  
2927 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl,
2928 integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
2929 integer *givcol, real *givnum, real *q, integer *qptr, real *z__,
2930 real *ztemp, integer *info);
2931  
2932 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n,
2933 real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real
2934 *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum,
2935 integer *info);
2936  
2937 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real *
2938 rt2, real *cs1, real *sn1);
2939  
2940 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer *
2941 ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2,
2942 real *work, integer *info);
2943  
2944 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb,
2945 real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *
2946 wi);
2947  
2948 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3,
2949 real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *
2950 snv, real *csq, real *snq);
2951  
2952 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real
2953 *c__, real *tol, real *d__, integer *in, integer *info);
2954  
2955 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real *
2956 alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *
2957 beta, real *b, integer *ldb);
2958  
2959 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real
2960 *c__, real *d__, integer *in, real *y, real *tol, integer *info);
2961  
2962 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb,
2963 real *alphar, real *alphai, real *beta, real *csl, real *snl, real *
2964 csr, real *snr);
2965  
2966 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n,
2967 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
2968 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *
2969 info);
2970  
2971 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a,
2972 integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
2973  
2974 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest,
2975 real *w, real *gamma, real *sestpr, real *s, real *c__);
2976  
2977 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real *
2978 smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b,
2979 integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale,
2980 real *xnorm, integer *info);
2981  
2982 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr,
2983 integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx,
2984 integer *ldbx, integer *perm, integer *givptr, integer *givcol,
2985 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
2986 difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
2987 work, integer *info);
2988  
2989 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n,
2990 integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real *
2991 u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *
2992 z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol,
2993 integer *perm, real *givnum, real *c__, real *s, real *work, integer *
2994 iwork, integer *info);
2995  
2996 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer
2997 *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond,
2998 integer *rank, real *work, integer *iwork, integer *info);
2999  
3000 /* Subroutine */ int slamc1_(integer *beta, integer *t, logical *rnd, logical
3001 *ieee1);
3002  
3003 /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real *
3004 eps, integer *emin, real *rmin, integer *emax, real *rmax);
3005  
3006 /* Subroutine */ int slamc4_(integer *emin, real *start, integer *base);
3007  
3008 /* Subroutine */ int slamc5_(integer *beta, integer *p, integer *emin,
3009 logical *ieee, integer *emax, real *rmax);
3010  
3011 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer *
3012 strd1, integer *strd2, integer *index);
3013  
3014 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real *
3015 rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
3016  
3017 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y,
3018 integer *incy, real *ssmin);
3019  
3020 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x,
3021 integer *ldx, integer *k);
3022  
3023 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku,
3024 real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
3025 colcnd, real *amax, char *equed);
3026  
3027 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda,
3028 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
3029 equed);
3030  
3031 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a,
3032 integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *
3033 work);
3034  
3035 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer
3036 *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau,
3037 real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
3038  
3039 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab,
3040 integer *ldab, real *s, real *scond, real *amax, char *equed);
3041  
3042 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *
3043 scond, real *amax, char *equed);
3044  
3045 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda,
3046 real *s, real *scond, real *amax, char *equed);
3047  
3048 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real
3049 *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work,
3050 integer *info);
3051  
3052 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real *
3053 sigma, real *d__, real *l, real *ld, real *lld, real *gersch, real *
3054 z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *
3055 work);
3056  
3057 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer
3058 *incx, real *c__, real *s, integer *incc);
3059  
3060 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v,
3061 integer *incv, real *tau, real *c__, integer *ldc, real *work);
3062  
3063 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char *
3064 storev, integer *m, integer *n, integer *k, real *v, integer *ldv,
3065 real *t, integer *ldt, real *c__, integer *ldc, real *work, integer *
3066 ldwork);
3067  
3068 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx,
3069 real *tau);
3070  
3071 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer *
3072 k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
3073  
3074 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v,
3075 real *tau, real *c__, integer *ldc, real *work);
3076  
3077 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y,
3078 integer *incy, real *c__, integer *incc);
3079  
3080 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real
3081 *x);
3082  
3083 /* Subroutine */ int slarrb_(integer *n, real *d__, real *l, real *ld, real *
3084 lld, integer *ifirst, integer *ilast, real *sigma, real *reltol, real
3085 *w, real *wgap, real *werr, real *work, integer *iwork, integer *info);
3086  
3087 /* Subroutine */ int slarre_(integer *n, real *d__, real *e, real *tol,
3088 integer *nsplit, integer *isplit, integer *m, real *w, real *woff,
3089 real *gersch, real *work, integer *info);
3090  
3091 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld, real *
3092 lld, integer *ifirst, integer *ilast, real *w, real *dplus, real *
3093 lplus, real *work, integer *iwork, integer *info);
3094  
3095 /* Subroutine */ int slarrv_(integer *n, real *d__, real *l, integer *isplit,
3096 integer *m, real *w, integer *iblock, real *gersch, real *tol, real *
3097 z__, integer *ldz, integer *isuppz, real *work, integer *iwork,
3098 integer *info);
3099  
3100 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
3101  
3102 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y,
3103 integer *incy, real *c__, real *s, integer *incc);
3104  
3105 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x);
3106  
3107 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l,
3108 real *v, integer *incv, real *tau, real *c__, integer *ldc, real *
3109 work);
3110  
3111 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char *
3112 storev, integer *m, integer *n, integer *k, integer *l, real *v,
3113 integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *
3114 work, integer *ldwork);
3115  
3116 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer *
3117 k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
3118  
3119 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real *
3120 ssmax);
3121  
3122 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real *
3123 cfrom, real *cto, integer *m, integer *n, real *a, integer *lda,
3124 integer *info);
3125  
3126 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e,
3127 real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz,
3128 integer *iwork, real *work, integer *info);
3129  
3130 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real *
3131 d__, real *alpha, real *beta, real *u, integer *ldu, real *vt,
3132 integer *ldvt, integer *idxq, integer *iwork, real *work, integer *
3133 info);
3134  
3135 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer
3136 *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer *
3137 ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2,
3138 real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc,
3139 integer *idxq, integer *coltyp, integer *info);
3140  
3141 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer
3142 *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer *
3143 ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2,
3144 integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer *
3145 info);
3146  
3147 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__,
3148 real *delta, real *rho, real *sigma, real *work, integer *info);
3149  
3150 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta,
3151 real *rho, real *dsigma, real *work);
3152  
3153 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr,
3154 integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta,
3155 integer *idxq, integer *perm, integer *givptr, integer *givcol,
3156 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
3157 difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
3158 work, integer *iwork, integer *info);
3159  
3160 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr,
3161 integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf,
3162 real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma,
3163 integer *idx, integer *idxp, integer *idxq, integer *perm, integer *
3164 givptr, integer *givcol, integer *ldgcol, real *givnum, integer *
3165 ldgnum, real *c__, real *s, integer *info);
3166  
3167 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real *
3168 z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr,
3169 real *dsigma, real *work, integer *info);
3170  
3171 /* Subroutine */ int slasd9_(integer *icompq, integer *ldu, integer *k, real *
3172 d__, real *z__, real *vf, real *vl, real *difl, real *difr, real *
3173 dsigma, real *work, integer *info);
3174  
3175 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n,
3176 integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt,
3177 integer *k, real *difl, real *difr, real *z__, real *poles, integer *
3178 givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum,
3179 real *c__, real *s, real *work, integer *iwork, integer *info);
3180  
3181 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer *
3182 ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt,
3183 integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *
3184 work, integer *info);
3185  
3186 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer *
3187 inode, integer *ndiml, integer *ndimr, integer *msub);
3188  
3189 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha,
3190 real *beta, real *a, integer *lda);
3191  
3192 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work,
3193 integer *info);
3194  
3195 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info);
3196  
3197 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp,
3198 real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail,
3199 integer *iter, integer *ndiv, logical *ieee);
3200  
3201 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp,
3202 integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn,
3203 real *dn1, real *dn2, real *tau, integer *ttype);
3204  
3205 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp,
3206 real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *
3207 dnm1, real *dnm2, logical *ieee);
3208  
3209 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp,
3210 real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *
3211 dnm2);
3212  
3213 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m,
3214 integer *n, real *c__, real *s, real *a, integer *lda);
3215  
3216 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info);
3217  
3218 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale,
3219 real *sumsq);
3220  
3221 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
3222 ssmax, real *snr, real *csr, real *snl, real *csl);
3223  
3224 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1,
3225 integer *k2, integer *ipiv, integer *incx);
3226  
3227 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn,
3228 integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *
3229 ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real
3230 *xnorm, integer *info);
3231  
3232 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb,
3233 real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer
3234 *info);
3235  
3236 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char *
3237 normin, integer *n, integer *kd, real *ab, integer *ldab, real *x,
3238 real *scale, real *cnorm, integer *info);
3239  
3240 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer *
3241 ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *
3242 jpiv);
3243  
3244 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char *
3245 normin, integer *n, real *ap, real *x, real *scale, real *cnorm,
3246 integer *info);
3247  
3248 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a,
3249 integer *lda, real *e, real *tau, real *w, integer *ldw);
3250  
3251 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char *
3252 normin, integer *n, real *a, integer *lda, real *x, real *scale, real
3253 *cnorm, integer *info);
3254  
3255 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a,
3256 integer *lda, real *tau, real *work);
3257  
3258 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v,
3259 integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
3260 work);
3261  
3262 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda,
3263 integer *info);
3264  
3265 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda,
3266 integer *info);
3267  
3268 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau,
3269 real *q, integer *ldq, real *work, integer *info);
3270  
3271 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m,
3272 integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work,
3273 integer *info);
3274  
3275 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a,
3276 integer *lda, real *tau, real *work, integer *info);
3277  
3278 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a,
3279 integer *lda, real *tau, real *work, integer *info);
3280  
3281 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k,
3282 real *a, integer *lda, real *tau, real *work, integer *lwork, integer
3283 *info);
3284  
3285 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a,
3286 integer *lda, real *tau, real *work, integer *lwork, integer *info);
3287  
3288 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a,
3289 integer *lda, real *tau, real *work, integer *info);
3290  
3291 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a,
3292 integer *lda, real *tau, real *work, integer *lwork, integer *info);
3293  
3294 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a,
3295 integer *lda, real *tau, real *work, integer *lwork, integer *info);
3296  
3297 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a,
3298 integer *lda, real *tau, real *work, integer *lwork, integer *info);
3299  
3300 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a,
3301 integer *lda, real *tau, real *work, integer *info);
3302  
3303 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a,
3304 integer *lda, real *tau, real *work, integer *lwork, integer *info);
3305  
3306 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda,
3307 real *tau, real *work, integer *lwork, integer *info);
3308  
3309 /* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n,
3310 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3311 real *work, integer *info);
3312  
3313 /* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n,
3314 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3315 real *work, integer *info);
3316  
3317 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m,
3318 integer *n, integer *k, real *a, integer *lda, real *tau, real *c__,
3319 integer *ldc, real *work, integer *lwork, integer *info);
3320  
3321 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n,
3322 integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *
3323 c__, integer *ldc, real *work, integer *lwork, integer *info);
3324  
3325 /* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n,
3326 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3327 real *work, integer *info);
3328  
3329 /* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n,
3330 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3331 real *work, integer *lwork, integer *info);
3332  
3333 /* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n,
3334 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3335 real *work, integer *lwork, integer *info);
3336  
3337 /* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n,
3338 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3339 real *work, integer *lwork, integer *info);
3340  
3341 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n,
3342 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3343 real *work, integer *info);
3344  
3345 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n,
3346 integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
3347 integer *ldc, real *work, integer *info);
3348  
3349 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n,
3350 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3351 real *work, integer *lwork, integer *info);
3352  
3353 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n,
3354 integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
3355 integer *ldc, real *work, integer *lwork, integer *info);
3356  
3357 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m,
3358 integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc,
3359 real *work, integer *lwork, integer *info);
3360  
3361 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab,
3362 integer *ldab, real *anorm, real *rcond, real *work, integer *iwork,
3363 integer *info);
3364  
3365 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab,
3366 integer *ldab, real *s, real *scond, real *amax, integer *info);
3367  
3368 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer *
3369 nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b,
3370 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
3371 work, integer *iwork, integer *info);
3372  
3373 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab,
3374 integer *ldab, integer *info);
3375  
3376 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer *
3377 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
3378  
3379 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd,
3380 integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
3381 char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx,
3382 real *rcond, real *ferr, real *berr, real *work, integer *iwork,
3383 integer *info);
3384  
3385 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab,
3386 integer *ldab, integer *info);
3387  
3388 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab,
3389 integer *ldab, integer *info);
3390  
3391 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer *
3392 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
3393  
3394 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda,
3395 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
3396  
3397 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real
3398 *scond, real *amax, integer *info);
3399  
3400 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a,
3401 integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x,
3402 integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
3403 integer *info);
3404  
3405 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a,
3406 integer *lda, real *b, integer *ldb, integer *info);
3407  
3408 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer *
3409 nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed,
3410 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
3411 real *ferr, real *berr, real *work, integer *iwork, integer *info);
3412  
3413 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda,
3414 integer *info);
3415  
3416 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda,
3417 integer *info);
3418  
3419 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda,
3420 integer *info);
3421  
3422 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a,
3423 integer *lda, real *b, integer *ldb, integer *info);
3424  
3425 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm,
3426 real *rcond, real *work, integer *iwork, integer *info);
3427  
3428 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real *
3429 scond, real *amax, integer *info);
3430  
3431 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
3432 real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr,
3433 real *berr, real *work, integer *iwork, integer *info);
3434  
3435 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap,
3436 real *b, integer *ldb, integer *info);
3437  
3438 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer *
3439 nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *
3440 ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real
3441 *work, integer *iwork, integer *info);
3442  
3443 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info);
3444  
3445 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info);
3446  
3447 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
3448 real *b, integer *ldb, integer *info);
3449  
3450 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm,
3451 real *rcond, real *work, integer *info);
3452  
3453 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e,
3454 real *z__, integer *ldz, real *work, integer *info);
3455  
3456 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e,
3457 real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx,
3458 real *ferr, real *berr, real *work, integer *info);
3459  
3460 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e,
3461 real *b, integer *ldb, integer *info);
3462  
3463 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
3464 real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer
3465 *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info);
3466  
3467 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info);
3468  
3469 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e,
3470 real *b, integer *ldb, integer *info);
3471  
3472 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e,
3473 real *b, integer *ldb);
3474  
3475 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx);
3476  
3477 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd,
3478 real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
3479 integer *info);
3480  
3481 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd,
3482 real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
3483 integer *lwork, integer *iwork, integer *liwork, integer *info);
3484  
3485 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n,
3486 integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl,
3487 real *vu, integer *il, integer *iu, real *abstol, integer *m, real *
3488 w, real *z__, integer *ldz, real *work, integer *iwork, integer *
3489 ifail, integer *info);
3490  
3491 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka,
3492 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
3493 x, integer *ldx, real *work, integer *info);
3494  
3495 /* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka,
3496 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
3497 w, real *z__, integer *ldz, real *work, integer *info);
3498  
3499 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
3500 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
3501 w, real *z__, integer *ldz, real *work, integer *lwork, integer *
3502 iwork, integer *liwork, integer *info);
3503  
3504 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n,
3505 integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *
3506 ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer
3507 *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real
3508 *work, integer *iwork, integer *ifail, integer *info);
3509  
3510 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd,
3511 real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq,
3512 real *work, integer *info);
3513  
3514 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv,
3515 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
3516  
3517 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap,
3518 real *w, real *z__, integer *ldz, real *work, integer *info);
3519  
3520 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap,
3521 real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
3522 *iwork, integer *liwork, integer *info);
3523  
3524 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n,
3525 real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol,
3526 integer *m, real *w, real *z__, integer *ldz, real *work, integer *
3527 iwork, integer *ifail, integer *info);
3528  
3529 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap,
3530 real *bp, integer *info);
3531  
3532 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer *
3533 n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
3534 integer *info);
3535  
3536 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer *
3537 n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
3538 integer *lwork, integer *iwork, integer *liwork, integer *info);
3539  
3540 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char *
3541 uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il,
3542 integer *iu, real *abstol, integer *m, real *w, real *z__, integer *
3543 ldz, real *work, integer *iwork, integer *ifail, integer *info);
3544  
3545 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
3546 real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *
3547 ldx, real *ferr, real *berr, real *work, integer *iwork, integer *
3548 info);
3549  
3550 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap,
3551 integer *ipiv, real *b, integer *ldb, integer *info);
3552  
3553 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer *
3554 nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real
3555 *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work,
3556 integer *iwork, integer *info);
3557  
3558 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__,
3559 real *e, real *tau, integer *info);
3560  
3561 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv,
3562 integer *info);
3563  
3564 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv,
3565 real *work, integer *info);
3566  
3567 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
3568 integer *ipiv, real *b, integer *ldb, integer *info);
3569  
3570 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl,
3571 real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e,
3572 integer *m, integer *nsplit, real *w, integer *iblock, integer *
3573 isplit, real *work, integer *iwork, integer *info);
3574  
3575 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e,
3576 real *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
3577 integer *liwork, integer *info);
3578  
3579 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__,
3580 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
3581 integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
3582 work, integer *lwork, integer *iwork, integer *liwork, integer *info);
3583  
3584 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real
3585 *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real *
3586 work, integer *iwork, integer *ifail, integer *info);
3587  
3588 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e,
3589 real *z__, integer *ldz, real *work, integer *info);
3590  
3591 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info);
3592  
3593 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real *
3594 z__, integer *ldz, real *work, integer *info);
3595  
3596 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real
3597 *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
3598 integer *liwork, integer *info);
3599  
3600 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__,
3601 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
3602 integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
3603 work, integer *lwork, integer *iwork, integer *liwork, integer *info);
3604  
3605 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__,
3606 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
3607 integer *m, real *w, real *z__, integer *ldz, real *work, integer *
3608 iwork, integer *ifail, integer *info);
3609  
3610 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda,
3611 integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork,
3612 integer *info);
3613  
3614 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a,
3615 integer *lda, real *w, real *work, integer *lwork, integer *info);
3616  
3617 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a,
3618 integer *lda, real *w, real *work, integer *lwork, integer *iwork,
3619 integer *liwork, integer *info);
3620  
3621 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n,
3622 real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
3623 real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *
3624 isuppz, real *work, integer *lwork, integer *iwork, integer *liwork,
3625 integer *info);
3626  
3627 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n,
3628 real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
3629 real *abstol, integer *m, real *w, real *z__, integer *ldz, real *
3630 work, integer *lwork, integer *iwork, integer *ifail, integer *info);
3631  
3632 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a,
3633 integer *lda, real *b, integer *ldb, integer *info);
3634  
3635 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a,
3636 integer *lda, real *b, integer *ldb, integer *info);
3637  
3638 /* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer *
3639 n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
3640 integer *lwork, integer *info);
3641  
3642 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer *
3643 n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
3644 integer *lwork, integer *iwork, integer *liwork, integer *info);
3645  
3646 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char *
3647 uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
3648 vl, real *vu, integer *il, integer *iu, real *abstol, integer *m,
3649 real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
3650 *iwork, integer *ifail, integer *info);
3651  
3652 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a,
3653 integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
3654 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
3655 work, integer *iwork, integer *info);
3656  
3657 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a,
3658 integer *lda, integer *ipiv, real *b, integer *ldb, real *work,
3659 integer *lwork, integer *info);
3660  
3661 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer *
3662 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
3663 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
3664 real *berr, real *work, integer *lwork, integer *iwork, integer *
3665 info);
3666  
3667 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda,
3668 real *d__, real *e, real *tau, integer *info);
3669  
3670 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda,
3671 integer *ipiv, integer *info);
3672  
3673 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda,
3674 real *d__, real *e, real *tau, real *work, integer *lwork, integer *
3675 info);
3676  
3677 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda,
3678 integer *ipiv, real *work, integer *lwork, integer *info);
3679  
3680 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda,
3681 integer *ipiv, real *work, integer *info);
3682  
3683 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a,
3684 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
3685  
3686 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n,
3687 integer *kd, real *ab, integer *ldab, real *rcond, real *work,
3688 integer *iwork, integer *info);
3689  
3690 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n,
3691 integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
3692 *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work,
3693 integer *iwork, integer *info);
3694  
3695 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n,
3696 integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
3697 *ldb, integer *info);
3698  
3699 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select,
3700 integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl,
3701 integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real
3702 *work, integer *info);
3703  
3704 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real
3705 *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
3706 z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work,
3707 integer *lwork, integer *info);
3708  
3709 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real
3710 *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
3711 z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer *
3712 lwork, integer *info);
3713  
3714 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz,
3715 logical *select, integer *n, real *a, integer *lda, real *b, integer *
3716 ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
3717 real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif,
3718 real *work, integer *lwork, integer *iwork, integer *liwork, integer *
3719 info);
3720  
3721 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m,
3722 integer *p, integer *n, integer *k, integer *l, real *a, integer *lda,
3723 real *b, integer *ldb, real *tola, real *tolb, real *alpha, real *
3724 beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *
3725 ldq, real *work, integer *ncycle, integer *info);
3726  
3727 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select,
3728 integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl,
3729 integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer *
3730 mm, integer *m, real *work, integer *lwork, integer *iwork, integer *
3731 info);
3732  
3733 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer *
3734 n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
3735 ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
3736 *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer
3737 *pq, integer *info);
3738  
3739 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer *
3740 n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
3741 ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
3742 *ldf, real *scale, real *dif, real *work, integer *lwork, integer *
3743 iwork, integer *info);
3744  
3745 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n,
3746 real *ap, real *rcond, real *work, integer *iwork, integer *info);
3747  
3748 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n,
3749 integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx,
3750 real *ferr, real *berr, real *work, integer *iwork, integer *info);
3751  
3752 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap,
3753 integer *info);
3754  
3755 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n,
3756 integer *nrhs, real *ap, real *b, integer *ldb, integer *info);
3757  
3758 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n,
3759 real *a, integer *lda, real *rcond, real *work, integer *iwork,
3760 integer *info);
3761  
3762 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select,
3763 integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
3764 integer *ldvr, integer *mm, integer *m, real *work, integer *info);
3765  
3766 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt,
3767 real *q, integer *ldq, integer *ifst, integer *ilst, real *work,
3768 integer *info);
3769  
3770 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n,
3771 integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x,
3772 integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
3773 integer *info);
3774  
3775 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer
3776 *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi,
3777 integer *m, real *s, real *sep, real *work, integer *lwork, integer *
3778 iwork, integer *liwork, integer *info);
3779  
3780 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select,
3781 integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
3782 integer *ldvr, real *s, real *sep, integer *mm, integer *m, real *
3783 work, integer *ldwork, integer *iwork, integer *info);
3784  
3785 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer
3786 *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
3787 c__, integer *ldc, real *scale, integer *info);
3788  
3789 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a,
3790 integer *lda, integer *info);
3791  
3792 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a,
3793 integer *lda, integer *info);
3794  
3795 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n,
3796 integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *
3797 info);
3798  
3799 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda,
3800 real *tau, integer *info);
3801  
3802 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda,
3803 real *tau, real *work, integer *lwork, integer *info);
3804  
3805 /* Subroutine */ int xerbla_(char *srname, integer *info);
3806  
3807 /* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
3808 nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt,
3809 integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__,
3810 integer *ldc, doublereal *rwork, integer *info);
3811  
3812 /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx,
3813 doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
3814  
3815 /* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx,
3816 integer *incx);
3817  
3818 /* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
3819 integer *kl, integer *ku, doublecomplex *ab, integer *ldab,
3820 doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq,
3821 doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc,
3822 doublecomplex *work, doublereal *rwork, integer *info);
3823  
3824 /* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku,
3825 doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm,
3826 doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *
3827 info);
3828  
3829 /* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku,
3830 doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__,
3831 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
3832 info);
3833  
3834 /* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer *
3835 ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *
3836 afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb,
3837 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
3838 doublecomplex *work, doublereal *rwork, integer *info);
3839  
3840 /* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer *
3841 nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *
3842 b, integer *ldb, integer *info);
3843  
3844 /* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl,
3845 integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
3846 doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed,
3847 doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb,
3848 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
3849 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
3850 info);
3851  
3852 /* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
3853 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
3854  
3855 /* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
3856 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
3857  
3858 /* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer *
3859 ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv,
3860 doublecomplex *b, integer *ldb, integer *info);
3861  
3862 /* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo,
3863 integer *ihi, doublereal *scale, integer *m, doublecomplex *v,
3864 integer *ldv, integer *info);
3865  
3866 /* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer
3867 *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
3868  
3869 /* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a,
3870 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq,
3871 doublecomplex *taup, doublecomplex *work, integer *info);
3872  
3873 /* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a,
3874 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq,
3875 doublecomplex *taup, doublecomplex *work, integer *lwork, integer *
3876 info);
3877  
3878 /* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a,
3879 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
3880 work, doublereal *rwork, integer *info);
3881  
3882 /* Subroutine */ int zgeequ_(integer *m, integer *n, doublecomplex *a,
3883 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
3884 doublereal *colcnd, doublereal *amax, integer *info);
3885  
3886 /* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n,
3887 doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w,
3888 doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork,
3889 doublereal *rwork, logical *bwork, integer *info);
3890  
3891 /* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char *
3892 sense, integer *n, doublecomplex *a, integer *lda, integer *sdim,
3893 doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *
3894 rconde, doublereal *rcondv, doublecomplex *work, integer *lwork,
3895 doublereal *rwork, logical *bwork, integer *info);
3896  
3897 /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n,
3898 doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl,
3899 integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work,
3900 integer *lwork, doublereal *rwork, integer *info);
3901  
3902 /* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *
3903 sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w,
3904 doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
3905 integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm,
3906 doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *
3907 lwork, doublereal *rwork, integer *info);
3908  
3909 /* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n,
3910 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
3911 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl,
3912 integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *
3913 work, integer *lwork, doublereal *rwork, integer *info);
3914  
3915 /* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n,
3916 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
3917 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
3918 *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
3919 *lwork, doublereal *rwork, integer *info);
3920  
3921 /* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi,
3922 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
3923 work, integer *info);
3924  
3925 /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi,
3926 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
3927 work, integer *lwork, integer *info);
3928  
3929 /* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a,
3930 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
3931  
3932 /* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a,
3933 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
3934 integer *info);
3935  
3936 /* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer *
3937 nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
3938 doublecomplex *work, integer *lwork, integer *info);
3939  
3940 /* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs,
3941 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
3942 integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
3943 doublereal *rwork, integer *info);
3944  
3945 /* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs,
3946 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
3947 integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
3948 integer *lwork, doublereal *rwork, integer *info);
3949  
3950 /* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a,
3951 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
3952  
3953 /* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a,
3954 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
3955 integer *info);
3956  
3957 /* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a,
3958 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
3959 integer *lwork, doublereal *rwork, integer *info);
3960  
3961 /* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a,
3962 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
3963 doublereal *rwork, integer *info);
3964  
3965 /* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a,
3966 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
3967  
3968 /* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a,
3969 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
3970 integer *info);
3971  
3972 /* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs,
3973 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
3974 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
3975 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
3976 doublereal *rwork, integer *info);
3977  
3978 /* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a,
3979 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
3980  
3981 /* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a,
3982 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
3983 integer *info);
3984  
3985 /* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda,
3986 doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
3987  
3988 /* Subroutine */ int zgesv_(integer *n, integer *nrhs, doublecomplex *a,
3989 integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *
3990 info);
3991  
3992 /* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer *
3993 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
3994 ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
3995 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
3996 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
3997 work, doublereal *rwork, integer *info);
3998  
3999 /* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda,
4000 integer *ipiv, integer *jpiv, integer *info);
4001  
4002 /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a,
4003 integer *lda, integer *ipiv, integer *info);
4004  
4005 /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a,
4006 integer *lda, integer *ipiv, integer *info);
4007  
4008 /* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda,
4009 integer *ipiv, doublecomplex *work, integer *lwork, integer *info);
4010  
4011 /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs,
4012 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
4013 integer *ldb, integer *info);
4014  
4015 /* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo,
4016 integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
4017 doublecomplex *v, integer *ldv, integer *info);
4018  
4019 /* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer
4020 *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi,
4021 doublereal *lscale, doublereal *rscale, doublereal *work, integer *
4022 info);
4023  
4024 /* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
4025 delctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
4026 integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
4027 beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer
4028 *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork,
4029 logical *bwork, integer *info);
4030  
4031 /* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
4032 delctg, char *sense, integer *n, doublecomplex *a, integer *lda,
4033 doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha,
4034 doublecomplex *beta, doublecomplex *vsl, integer *ldvsl,
4035 doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *
4036 rcondv, doublecomplex *work, integer *lwork, doublereal *rwork,
4037 integer *iwork, integer *liwork, logical *bwork, integer *info);
4038  
4039 /* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n,
4040 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4041 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
4042 *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
4043 *lwork, doublereal *rwork, integer *info);
4044  
4045 /* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char *
4046 sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
4047 integer *ldb, doublecomplex *alpha, doublecomplex *beta,
4048 doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
4049 integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
4050 doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
4051 rcondv, doublecomplex *work, integer *lwork, doublereal *rwork,
4052 integer *iwork, logical *bwork, integer *info);
4053  
4054 /* Subroutine */ int zggglm_(integer *n, integer *m, integer *p,
4055 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4056 doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex
4057 *work, integer *lwork, integer *info);
4058  
4059 /* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer *
4060 ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b,
4061 integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__,
4062 integer *ldz, integer *info);
4063  
4064 /* Subroutine */ int zgglse_(integer *m, integer *n, integer *p,
4065 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4066 doublecomplex *c__, doublecomplex *d__, doublecomplex *x,
4067 doublecomplex *work, integer *lwork, integer *info);
4068  
4069 /* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p,
4070 doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
4071 integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
4072 lwork, integer *info);
4073  
4074 /* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n,
4075 doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
4076 integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
4077 lwork, integer *info);
4078  
4079 /* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
4080 integer *n, integer *p, integer *k, integer *l, doublecomplex *a,
4081 integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha,
4082 doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v,
4083 integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work,
4084 doublereal *rwork, integer *iwork, integer *info);
4085  
4086 /* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
4087 integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex
4088 *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k,
4089 integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer
4090 *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal *
4091 rwork, doublecomplex *tau, doublecomplex *work, integer *info);
4092  
4093 /* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl,
4094 doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *
4095 ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work,
4096 integer *info);
4097  
4098 /* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs,
4099 doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4100 doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
4101 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
4102 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
4103 doublecomplex *work, doublereal *rwork, integer *info);
4104  
4105 /* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl,
4106 doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb,
4107 integer *info);
4108  
4109 /* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer *
4110 nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4111 doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
4112 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
4113 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
4114 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
4115 info);
4116  
4117 /* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *
4118 d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *
4119 info);
4120  
4121 /* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs,
4122 doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4123 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
4124 integer *info);
4125  
4126 /* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs,
4127 doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4128 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb);
4129  
4130 /* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd,
4131 doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__,
4132 integer *ldz, doublecomplex *work, doublereal *rwork, integer *info);
4133  
4134 /* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd,
4135 doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__,
4136 integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
4137 integer *lrwork, integer *iwork, integer *liwork, integer *info);
4138  
4139 /* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n,
4140 integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q,
4141 integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *
4142 iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
4143 integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork,
4144 integer *ifail, integer *info);
4145  
4146 /* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka,
4147 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
4148 integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work,
4149 doublereal *rwork, integer *info);
4150  
4151 /* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka,
4152 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
4153 integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz,
4154 doublecomplex *work, doublereal *rwork, integer *info);
4155  
4156 /* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n,
4157 integer *ka, integer *kb, doublecomplex *ab, integer *ldab,
4158 doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq,
4159 doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *
4160 abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
4161 doublecomplex *work, doublereal *rwork, integer *iwork, integer *
4162 ifail, integer *info);
4163  
4164 /* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd,
4165 doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e,
4166 doublecomplex *q, integer *ldq, doublecomplex *work, integer *info);
4167  
4168 /* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a,
4169 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
4170 doublecomplex *work, integer *info);
4171  
4172 /* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex
4173 *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork,
4174 doublereal *rwork, integer *info);
4175  
4176 /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n,
4177 doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work,
4178 integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork,
4179 integer *liwork, integer *info);
4180  
4181 /* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n,
4182 doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu,
4183 integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
4184 w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex *
4185 work, integer *lwork, doublereal *rwork, integer *lrwork, integer *
4186 iwork, integer *liwork, integer *info);
4187  
4188 /* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n,
4189 doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu,
4190 integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
4191 w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *
4192 lwork, doublereal *rwork, integer *iwork, integer *ifail, integer *
4193 info);
4194  
4195 /* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n,
4196 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4197 integer *info);
4198  
4199 /* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n,
4200 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4201 integer *info);
4202  
4203 /* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer *
4204 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4205 doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
4206 integer *info);
4207  
4208 /* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer *
4209 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4210 doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
4211 integer *lrwork, integer *iwork, integer *liwork, integer *info);
4212  
4213 /* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char *
4214 uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
4215 integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *
4216 iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
4217 integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
4218 integer *iwork, integer *ifail, integer *info);
4219  
4220 /* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs,
4221 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
4222 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
4223 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
4224 doublereal *rwork, integer *info);
4225  
4226 /* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs,
4227 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
4228 integer *ldb, doublecomplex *work, integer *lwork, integer *info);
4229  
4230 /* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer *
4231 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
4232 ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
4233 integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
4234 doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
4235  
4236 /* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a,
4237 integer *lda, integer *ipiv, integer *info);
4238  
4239 /* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a,
4240 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau,
4241 doublecomplex *work, integer *lwork, integer *info);
4242  
4243 /* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a,
4244 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
4245 integer *info);
4246  
4247 /* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a,
4248 integer *lda, integer *ipiv, doublecomplex *work, integer *info);
4249  
4250 /* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs,
4251 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
4252 integer *ldb, integer *info);
4253  
4254 /* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n,
4255 integer *ilo, integer *ihi, doublecomplex *a, integer *lda,
4256 doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
4257 beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
4258 ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *
4259 info);
4260  
4261 /* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap,
4262 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
4263 work, integer *info);
4264  
4265 /* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex
4266 *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *
4267 work, doublereal *rwork, integer *info);
4268  
4269 /* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n,
4270 doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz,
4271 doublecomplex *work, integer *lwork, doublereal *rwork, integer *
4272 lrwork, integer *iwork, integer *liwork, integer *info);
4273  
4274 /* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n,
4275 doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il,
4276 integer *iu, doublereal *abstol, integer *m, doublereal *w,
4277 doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *
4278 rwork, integer *iwork, integer *ifail, integer *info);
4279  
4280 /* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n,
4281 doublecomplex *ap, doublecomplex *bp, integer *info);
4282  
4283 /* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer *
4284 n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex
4285 *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *
4286 info);
4287  
4288 /* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer *
4289 n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex
4290 *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *
4291 rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
4292 info);
4293  
4294 /* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char *
4295 uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *
4296 vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
4297 integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
4298 doublecomplex *work, doublereal *rwork, integer *iwork, integer *
4299 ifail, integer *info);
4300  
4301 /* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs,
4302 doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
4303 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
4304 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
4305 info);
4306  
4307 /* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs,
4308 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
4309 integer *info);
4310  
4311 /* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer *
4312 nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv,
4313 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
4314 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
4315 work, doublereal *rwork, integer *info);
4316  
4317 /* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap,
4318 doublereal *d__, doublereal *e, doublecomplex *tau, integer *info);
4319  
4320 /* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap,
4321 integer *ipiv, integer *info);
4322  
4323 /* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap,
4324 integer *ipiv, doublecomplex *work, integer *info);
4325  
4326 /* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs,
4327 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
4328 integer *info);
4329  
4330 /* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical *
4331 select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *
4332 w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
4333 integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
4334 integer *ifaill, integer *ifailr, integer *info);
4335  
4336 /* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo,
4337 integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w,
4338 doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork,
4339 integer *info);
4340  
4341 /* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb,
4342 doublecomplex *a, integer *lda, doublereal *d__, doublereal *e,
4343 doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer *
4344 ldx, doublecomplex *y, integer *ldy);
4345  
4346 /* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx);
4347  
4348 /* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x,
4349 doublereal *est, integer *kase);
4350  
4351 /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal *
4352 a, integer *lda, doublecomplex *b, integer *ldb);
4353  
4354 /* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n,
4355 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb);
4356  
4357 /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a,
4358 integer *lda, doublereal *b, integer *ldb, doublecomplex *c__,
4359 integer *ldc, doublereal *rwork);
4360  
4361 /* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx,
4362 doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *
4363 s);
4364  
4365 /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__,
4366 doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore,
4367 integer *ldqs, doublereal *rwork, integer *iwork, integer *info);
4368  
4369 /* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz,
4370 integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
4371 doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq,
4372 doublereal *qstore, integer *qptr, integer *prmptr, integer *perm,
4373 integer *givptr, integer *givcol, doublereal *givnum, doublecomplex *
4374 work, doublereal *rwork, integer *iwork, integer *info);
4375  
4376 /* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz,
4377 doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho,
4378 integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex *
4379 q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx,
4380 integer *indxq, integer *perm, integer *givptr, integer *givcol,
4381 doublereal *givnum, integer *info);
4382  
4383 /* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n,
4384 doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v,
4385 doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3,
4386 doublereal *smlnum, integer *info);
4387  
4388 /* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b,
4389 doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2,
4390 doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
4391  
4392 /* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b,
4393 doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1,
4394 doublecomplex *sn1);
4395  
4396 /* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex *
4397 a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3,
4398 doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex *
4399 snv, doublereal *csq, doublecomplex *snq);
4400  
4401 /* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs,
4402 doublereal *alpha, doublecomplex *dl, doublecomplex *d__,
4403 doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta,
4404 doublecomplex *b, integer *ldb);
4405  
4406 /* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb,
4407 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w,
4408 integer *ldw, integer *info);
4409  
4410 /* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n,
4411 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
4412 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__,
4413 integer *ldz, integer *info);
4414  
4415 /* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb,
4416 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t,
4417 integer *ldt, doublecomplex *y, integer *ldy);
4418  
4419 /* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x,
4420 doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *
4421 sestpr, doublecomplex *s, doublecomplex *c__);
4422  
4423 /* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr,
4424 integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb,
4425 doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr,
4426 integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum,
4427 doublereal *poles, doublereal *difl, doublereal *difr, doublereal *
4428 z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork,
4429 integer *info);
4430  
4431 /* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n,
4432 integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx,
4433 integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *
4434 k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
4435 poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
4436 perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
4437 rwork, integer *iwork, integer *info);
4438  
4439 /* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx,
4440 doublecomplex *y, integer *incy, doublereal *ssmin);
4441  
4442 /* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n,
4443 doublecomplex *x, integer *ldx, integer *k);
4444  
4445 /* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
4446 doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__,
4447 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
4448  
4449 /* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a,
4450 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
4451 doublereal *colcnd, doublereal *amax, char *equed);
4452  
4453 /* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd,
4454 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
4455 doublereal *amax, char *equed);
4456  
4457 /* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a,
4458 integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
4459 char *equed);
4460  
4461 /* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap,
4462 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
4463  
4464 /* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset,
4465 doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau,
4466 doublereal *vn1, doublereal *vn2, doublecomplex *work);
4467  
4468 /* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer
4469 *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt,
4470 doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *
4471 auxv, doublecomplex *f, integer *ldf);
4472  
4473 /* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd,
4474 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
4475 doublereal *amax, char *equed);
4476  
4477 /* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap,
4478 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
4479  
4480 /* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a,
4481 integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
4482 char *equed);
4483  
4484 /* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal
4485 *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
4486 lld, doublereal *gersch, doublecomplex *z__, doublereal *ztz,
4487 doublereal *mingma, integer *r__, integer *isuppz, doublereal *work);
4488  
4489 /* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y,
4490 doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s,
4491 integer *incc);
4492  
4493 /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer *
4494 lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc,
4495 doublereal *rwork);
4496  
4497 /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex
4498 *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *
4499 ldc, doublecomplex *work);
4500  
4501 /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char *
4502 storev, integer *m, integer *n, integer *k, doublecomplex *v, integer
4503 *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *
4504 ldc, doublecomplex *work, integer *ldwork);
4505  
4506 /* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *
4507 x, integer *incx, doublecomplex *tau);
4508  
4509 /* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer *
4510 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
4511 t, integer *ldt);
4512  
4513 /* Subroutine */ int zlarfx_(char *side, integer *m, integer *n,
4514 doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *
4515 ldc, doublecomplex *work);
4516  
4517 /* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx,
4518 doublecomplex *y, integer *incy, doublereal *c__, integer *incc);
4519  
4520 /* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n,
4521 doublecomplex *x);
4522  
4523 /* Subroutine */ int zlarrv_(integer *n, doublereal *d__, doublereal *l,
4524 integer *isplit, integer *m, doublereal *w, integer *iblock,
4525 doublereal *gersch, doublereal *tol, doublecomplex *z__, integer *ldz,
4526 integer *isuppz, doublereal *work, integer *iwork, integer *info);
4527  
4528 /* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *
4529 cs, doublecomplex *sn, doublecomplex *r__);
4530  
4531 /* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx,
4532 doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s,
4533 integer *incc);
4534  
4535 /* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l,
4536 doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
4537 c__, integer *ldc, doublecomplex *work);
4538  
4539 /* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char *
4540 storev, integer *m, integer *n, integer *k, integer *l, doublecomplex
4541 *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__,
4542 integer *ldc, doublecomplex *work, integer *ldwork);
4543  
4544 /* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer *
4545 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
4546 t, integer *ldt);
4547  
4548 /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku,
4549 doublereal *cfrom, doublereal *cto, integer *m, integer *n,
4550 doublecomplex *a, integer *lda, integer *info);
4551  
4552 /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n,
4553 doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *
4554 lda);
4555  
4556 /* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m,
4557 integer *n, doublereal *c__, doublereal *s, doublecomplex *a,
4558 integer *lda);
4559  
4560 /* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx,
4561 doublereal *scale, doublereal *sumsq);
4562  
4563 /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda,
4564 integer *k1, integer *k2, integer *ipiv, integer *incx);
4565  
4566 /* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
4567 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w,
4568 integer *ldw, integer *info);
4569  
4570 /* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char *
4571 normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab,
4572 doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info);
4573  
4574 /* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__,
4575 integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *
4576 rdscal, integer *ipiv, integer *jpiv);
4577  
4578 /* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char *
4579 normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal *
4580 scale, doublereal *cnorm, integer *info);
4581  
4582 /* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb,
4583 doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau,
4584 doublecomplex *w, integer *ldw);
4585  
4586 /* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char *
4587 normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x,
4588 doublereal *scale, doublereal *cnorm, integer *info);
4589  
4590 /* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l,
4591 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4592 work);
4593  
4594 /* Subroutine */ int zlatzm_(char *side, integer *m, integer *n,
4595 doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
4596 c1, doublecomplex *c2, integer *ldc, doublecomplex *work);
4597  
4598 /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a,
4599 integer *lda, integer *info);
4600  
4601 /* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a,
4602 integer *lda, integer *info);
4603  
4604 /* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd,
4605 doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal *
4606 rcond, doublecomplex *work, doublereal *rwork, integer *info);
4607  
4608 /* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd,
4609 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
4610 doublereal *amax, integer *info);
4611  
4612 /* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer *
4613 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
4614 ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
4615 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
4616 rwork, integer *info);
4617  
4618 /* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd,
4619 doublecomplex *ab, integer *ldab, integer *info);
4620  
4621 /* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer *
4622 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
4623 ldb, integer *info);
4624  
4625 /* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
4626 integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb,
4627 integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer
4628 *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *
4629 ferr, doublereal *berr, doublecomplex *work, doublereal *rwork,
4630 integer *info);
4631  
4632 /* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd,
4633 doublecomplex *ab, integer *ldab, integer *info);
4634  
4635 /* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd,
4636 doublecomplex *ab, integer *ldab, integer *info);
4637  
4638 /* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer *
4639 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
4640 ldb, integer *info);
4641  
4642 /* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a,
4643 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
4644 work, doublereal *rwork, integer *info);
4645  
4646 /* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda,
4647 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
4648  
4649 /* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs,
4650 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
4651 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
4652 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
4653 rwork, integer *info);
4654  
4655 /* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs,
4656 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4657 integer *info);
4658  
4659 /* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer *
4660 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
4661 ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb,
4662 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
4663 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
4664 info);
4665  
4666 /* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a,
4667 integer *lda, integer *info);
4668  
4669 /* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a,
4670 integer *lda, integer *info);
4671  
4672 /* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a,
4673 integer *lda, integer *info);
4674  
4675 /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs,
4676 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4677 integer *info);
4678  
4679 /* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap,
4680 doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal
4681 *rwork, integer *info);
4682  
4683 /* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap,
4684 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
4685  
4686 /* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs,
4687 doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb,
4688 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
4689 doublecomplex *work, doublereal *rwork, integer *info);
4690  
4691 /* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs,
4692 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
4693  
4694 /* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer *
4695 nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal *
4696 s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
4697 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
4698 work, doublereal *rwork, integer *info);
4699  
4700 /* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap,
4701 integer *info);
4702  
4703 /* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap,
4704 integer *info);
4705  
4706 /* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs,
4707 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
4708  
4709 /* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e,
4710 doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *
4711 info);
4712  
4713 /* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs,
4714 doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef,
4715 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
4716 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
4717 rwork, integer *info);
4718  
4719 /* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__,
4720 doublecomplex *e, doublecomplex *b, integer *ldb, integer *info);
4721  
4722 /* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs,
4723 doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef,
4724 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
4725 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
4726 work, doublereal *rwork, integer *info);
4727  
4728 /* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e,
4729 integer *info);
4730  
4731 /* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs,
4732 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb,
4733 integer *info);
4734  
4735 /* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs,
4736 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb);
4737  
4738 /* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx,
4739 doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);
4740  
4741 /* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap,
4742 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
4743 work, integer *info);
4744  
4745 /* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha,
4746 doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
4747 beta, doublecomplex *y, integer *incy);
4748  
4749 /* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha,
4750 doublecomplex *x, integer *incx, doublecomplex *ap);
4751  
4752 /* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs,
4753 doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
4754 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
4755 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
4756 info);
4757  
4758 /* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs,
4759 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
4760 integer *info);
4761  
4762 /* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer *
4763 nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv,
4764 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
4765 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
4766 work, doublereal *rwork, integer *info);
4767  
4768 /* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap,
4769 integer *ipiv, integer *info);
4770  
4771 /* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap,
4772 integer *ipiv, doublecomplex *work, integer *info);
4773  
4774 /* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs,
4775 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
4776 integer *info);
4777  
4778 /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__,
4779 doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work,
4780 integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork,
4781 integer *liwork, integer *info);
4782  
4783 /* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e,
4784 integer *m, doublereal *w, integer *iblock, integer *isplit,
4785 doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork,
4786 integer *ifail, integer *info);
4787  
4788 /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__,
4789 doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work,
4790 integer *info);
4791  
4792 /* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a,
4793 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
4794 doublecomplex *work, integer *info);
4795  
4796 /* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha,
4797 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
4798 doublecomplex *beta, doublecomplex *y, integer *incy);
4799  
4800 /* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha,
4801 doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
4802  
4803 /* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs,
4804 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
4805 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
4806 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
4807 doublereal *rwork, integer *info);
4808  
4809 /* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs,
4810 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
4811 integer *ldb, doublecomplex *work, integer *lwork, integer *info);
4812  
4813 /* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer *
4814 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
4815 ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
4816 integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
4817 doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
4818  
4819 /* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a,
4820 integer *lda, integer *ipiv, integer *info);
4821  
4822 /* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a,
4823 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
4824 integer *info);
4825  
4826 /* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a,
4827 integer *lda, integer *ipiv, doublecomplex *work, integer *info);
4828  
4829 /* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs,
4830 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
4831 integer *ldb, integer *info);
4832  
4833 /* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n,
4834 integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond,
4835 doublecomplex *work, doublereal *rwork, integer *info);
4836  
4837 /* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n,
4838 integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab,
4839 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
4840 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
4841 rwork, integer *info);
4842  
4843 /* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n,
4844 integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab,
4845 doublecomplex *b, integer *ldb, integer *info);
4846  
4847 /* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select,
4848 integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer
4849 *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
4850 ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
4851 integer *info);
4852  
4853 /* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n,
4854 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4855 doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz,
4856 integer *j1, integer *info);
4857  
4858 /* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n,
4859 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4860 doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz,
4861 integer *ifst, integer *ilst, integer *info);
4862  
4863 /* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz,
4864 logical *select, integer *n, doublecomplex *a, integer *lda,
4865 doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
4866 beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
4867 ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
4868 doublecomplex *work, integer *lwork, integer *iwork, integer *liwork,
4869 integer *info);
4870  
4871 /* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m,
4872 integer *p, integer *n, integer *k, integer *l, doublecomplex *a,
4873 integer *lda, doublecomplex *b, integer *ldb, doublereal *tola,
4874 doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex *
4875 u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q,
4876 integer *ldq, doublecomplex *work, integer *ncycle, integer *info);
4877  
4878 /* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select,
4879 integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer
4880 *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
4881 ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m,
4882 doublecomplex *work, integer *lwork, integer *iwork, integer *info);
4883  
4884 /* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer *
4885 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4886 doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd,
4887 doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf,
4888 doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer *
4889 info);
4890  
4891 /* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer *
4892 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
4893 doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd,
4894 doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf,
4895 doublereal *scale, doublereal *dif, doublecomplex *work, integer *
4896 lwork, integer *iwork, integer *info);
4897  
4898 /* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n,
4899 doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal
4900 *rwork, integer *info);
4901  
4902 /* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n,
4903 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
4904 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
4905 doublecomplex *work, doublereal *rwork, integer *info);
4906  
4907 /* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n,
4908 doublecomplex *ap, integer *info);
4909  
4910 /* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n,
4911 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
4912 integer *info);
4913  
4914 /* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n,
4915 doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex *
4916 work, doublereal *rwork, integer *info);
4917  
4918 /* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select,
4919 integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl,
4920 integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer
4921 *m, doublecomplex *work, doublereal *rwork, integer *info);
4922  
4923 /* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t,
4924 integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *
4925 ilst, integer *info);
4926  
4927 /* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n,
4928 integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b,
4929 integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
4930 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
4931 info);
4932  
4933 /* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer
4934 *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq,
4935 doublecomplex *w, integer *m, doublereal *s, doublereal *sep,
4936 doublecomplex *work, integer *lwork, integer *info);
4937  
4938 /* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select,
4939 integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl,
4940 integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s,
4941 doublereal *sep, integer *mm, integer *m, doublecomplex *work,
4942 integer *ldwork, doublereal *rwork, integer *info);
4943  
4944 /* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer
4945 *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
4946 integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale,
4947 integer *info);
4948  
4949 /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n,
4950 doublecomplex *a, integer *lda, integer *info);
4951  
4952 /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n,
4953 doublecomplex *a, integer *lda, integer *info);
4954  
4955 /* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n,
4956 integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b,
4957 integer *ldb, integer *info);
4958  
4959 /* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a,
4960 integer *lda, doublecomplex *tau, integer *info);
4961  
4962 /* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a,
4963 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
4964 integer *info);
4965  
4966 /* Subroutine */ int zung2l_(integer *m, integer *n, integer *k,
4967 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4968 work, integer *info);
4969  
4970 /* Subroutine */ int zung2r_(integer *m, integer *n, integer *k,
4971 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4972 work, integer *info);
4973  
4974 /* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k,
4975 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4976 work, integer *lwork, integer *info);
4977  
4978 /* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi,
4979 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4980 work, integer *lwork, integer *info);
4981  
4982 /* Subroutine */ int zungl2_(integer *m, integer *n, integer *k,
4983 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4984 work, integer *info);
4985  
4986 /* Subroutine */ int zunglq_(integer *m, integer *n, integer *k,
4987 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4988 work, integer *lwork, integer *info);
4989  
4990 /* Subroutine */ int zungql_(integer *m, integer *n, integer *k,
4991 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4992 work, integer *lwork, integer *info);
4993  
4994 /* Subroutine */ int zungqr_(integer *m, integer *n, integer *k,
4995 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
4996 work, integer *lwork, integer *info);
4997  
4998 /* Subroutine */ int zungr2_(integer *m, integer *n, integer *k,
4999 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
5000 work, integer *info);
5001  
5002 /* Subroutine */ int zungrq_(integer *m, integer *n, integer *k,
5003 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
5004 work, integer *lwork, integer *info);
5005  
5006 /* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a,
5007 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5008 integer *info);
5009  
5010 /* Subroutine */ int zunm2l_(char *side, char *trans, integer *m, integer *n,
5011 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
5012 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
5013  
5014 /* Subroutine */ int zunm2r_(char *side, char *trans, integer *m, integer *n,
5015 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
5016 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
5017  
5018 /* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m,
5019 integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex
5020 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
5021 lwork, integer *info);
5022  
5023 /* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n,
5024 integer *ilo, integer *ihi, doublecomplex *a, integer *lda,
5025 doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *
5026 work, integer *lwork, integer *info);
5027  
5028 /* Subroutine */ int zunml2_(char *side, char *trans, integer *m, integer *n,
5029 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
5030 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
5031  
5032 /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n,
5033 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
5034 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
5035 integer *info);
5036  
5037 /* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n,
5038 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
5039 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
5040 integer *info);
5041  
5042 /* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n,
5043 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
5044 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
5045 integer *info);
5046  
5047 /* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n,
5048 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
5049 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
5050  
5051 /* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n,
5052 integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex
5053 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
5054 info);
5055  
5056 /* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n,
5057 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
5058 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
5059 integer *info);
5060  
5061 /* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n,
5062 integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex
5063 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
5064 lwork, integer *info);
5065  
5066 /* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m,
5067 integer *n, doublecomplex *a, integer *lda, doublecomplex *tau,
5068 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
5069 integer *info);
5070  
5071 /* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap,
5072 doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *
5073 work, integer *info);
5074  
5075 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m,
5076 integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__,
5077 integer *ldc, doublecomplex *work, integer *info);
5078  
5079 #endif /* __CLAPACK_H */