Mercurial > hg > qm-dsp

comparison ext/clapack/include/clapack.h @ 427:905e45637745

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add the CLAPACK and CBLAS/F2C-BLAS files we use
author Chris Cannam <c.cannam@qmul.ac.uk>
date Fri, 30 Sep 2016 15:51:22 +0100
parents
children
comparison
equal deleted inserted replaced
426:a23b9f8b4a59 427:905e45637745
1 /* header file for clapack 3.2.1 */
2
3 #ifndef __CLAPACK_H
4 #define __CLAPACK_H
5
6 #include "f2c.h"
7
8 #ifdef __cplusplus
9 extern "C" {
10 #endif
11
12 /* Subroutine */ int caxpy_(integer *n, complex *ca, complex *cx, integer *
13 incx, complex *cy, integer *incy);
14
15 /* Subroutine */ int ccopy_(integer *n, complex *cx, integer *incx, complex *
16 cy, integer *incy);
17
18 /* Complex */ VOID cdotc_(complex * ret_val, integer *n, complex *cx, integer
19 *incx, complex *cy, integer *incy);
20
21 /* Complex */ VOID cdotu_(complex * ret_val, integer *n, complex *cx, integer
22 *incx, complex *cy, integer *incy);
23
24 /* Subroutine */ int cgbmv_(char *trans, integer *m, integer *n, integer *kl,
25 integer *ku, complex *alpha, complex *a, integer *lda, complex *x,
26 integer *incx, complex *beta, complex *y, integer *incy);
27
28 /* Subroutine */ int cgemm_(char *transa, char *transb, integer *m, integer *
29 n, integer *k, complex *alpha, complex *a, integer *lda, complex *b,
30 integer *ldb, complex *beta, complex *c__, integer *ldc);
31
32 /* Subroutine */ int cgemv_(char *trans, integer *m, integer *n, complex *
33 alpha, complex *a, integer *lda, complex *x, integer *incx, complex *
34 beta, complex *y, integer *incy);
35
36 /* Subroutine */ int cgerc_(integer *m, integer *n, complex *alpha, complex *
37 x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
38
39 /* Subroutine */ int cgeru_(integer *m, integer *n, complex *alpha, complex *
40 x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
41
42 /* Subroutine */ int chbmv_(char *uplo, integer *n, integer *k, complex *
43 alpha, complex *a, integer *lda, complex *x, integer *incx, complex *
44 beta, complex *y, integer *incy);
45
46 /* Subroutine */ int chemm_(char *side, char *uplo, integer *m, integer *n,
47 complex *alpha, complex *a, integer *lda, complex *b, integer *ldb,
48 complex *beta, complex *c__, integer *ldc);
49
50 /* Subroutine */ int chemv_(char *uplo, integer *n, complex *alpha, complex *
51 a, integer *lda, complex *x, integer *incx, complex *beta, complex *y,
52 integer *incy);
53
54 /* Subroutine */ int cher_(char *uplo, integer *n, real *alpha, complex *x,
55 integer *incx, complex *a, integer *lda);
56
57 /* Subroutine */ int cher2_(char *uplo, integer *n, complex *alpha, complex *
58 x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
59
60 /* Subroutine */ int cher2k_(char *uplo, char *trans, integer *n, integer *k,
61 complex *alpha, complex *a, integer *lda, complex *b, integer *ldb,
62 real *beta, complex *c__, integer *ldc);
63
64 /* Subroutine */ int cherk_(char *uplo, char *trans, integer *n, integer *k,
65 real *alpha, complex *a, integer *lda, real *beta, complex *c__,
66 integer *ldc);
67
68 /* Subroutine */ int chpmv_(char *uplo, integer *n, complex *alpha, complex *
69 ap, complex *x, integer *incx, complex *beta, complex *y, integer *
70 incy);
71
72 /* Subroutine */ int chpr_(char *uplo, integer *n, real *alpha, complex *x,
73 integer *incx, complex *ap);
74
75 /* Subroutine */ int chpr2_(char *uplo, integer *n, complex *alpha, complex *
76 x, integer *incx, complex *y, integer *incy, complex *ap);
77
78 /* Subroutine */ int crotg_(complex *ca, complex *cb, real *c__, complex *s);
79
80 /* Subroutine */ int cscal_(integer *n, complex *ca, complex *cx, integer *
81 incx);
82
83 /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex *
84 cy, integer *incy, real *c__, real *s);
85
86 /* Subroutine */ int csscal_(integer *n, real *sa, complex *cx, integer *incx);
87
88 /* Subroutine */ int cswap_(integer *n, complex *cx, integer *incx, complex *
89 cy, integer *incy);
90
91 /* Subroutine */ int csymm_(char *side, char *uplo, integer *m, integer *n,
92 complex *alpha, complex *a, integer *lda, complex *b, integer *ldb,
93 complex *beta, complex *c__, integer *ldc);
94
95 /* Subroutine */ int csyr2k_(char *uplo, char *trans, integer *n, integer *k,
96 complex *alpha, complex *a, integer *lda, complex *b, integer *ldb,
97 complex *beta, complex *c__, integer *ldc);
98
99 /* Subroutine */ int csyrk_(char *uplo, char *trans, integer *n, integer *k,
100 complex *alpha, complex *a, integer *lda, complex *beta, complex *c__,
101 integer *ldc);
102
103 /* Subroutine */ int ctbmv_(char *uplo, char *trans, char *diag, integer *n,
104 integer *k, complex *a, integer *lda, complex *x, integer *incx);
105
106 /* Subroutine */ int ctbsv_(char *uplo, char *trans, char *diag, integer *n,
107 integer *k, complex *a, integer *lda, complex *x, integer *incx);
108
109 /* Subroutine */ int ctpmv_(char *uplo, char *trans, char *diag, integer *n,
110 complex *ap, complex *x, integer *incx);
111
112 /* Subroutine */ int ctpsv_(char *uplo, char *trans, char *diag, integer *n,
113 complex *ap, complex *x, integer *incx);
114
115 /* Subroutine */ int ctrmm_(char *side, char *uplo, char *transa, char *diag,
116 integer *m, integer *n, complex *alpha, complex *a, integer *lda,
117 complex *b, integer *ldb);
118
119 /* Subroutine */ int ctrmv_(char *uplo, char *trans, char *diag, integer *n,
120 complex *a, integer *lda, complex *x, integer *incx);
121
122 /* Subroutine */ int ctrsm_(char *side, char *uplo, char *transa, char *diag,
123 integer *m, integer *n, complex *alpha, complex *a, integer *lda,
124 complex *b, integer *ldb);
125
126 /* Subroutine */ int ctrsv_(char *uplo, char *trans, char *diag, integer *n,
127 complex *a, integer *lda, complex *x, integer *incx);
128
129 doublereal dasum_(integer *n, doublereal *dx, integer *incx);
130
131 /* Subroutine */ int daxpy_(integer *n, doublereal *da, doublereal *dx,
132 integer *incx, doublereal *dy, integer *incy);
133
134 doublereal dcabs1_(doublecomplex *z__);
135
136 /* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx,
137 doublereal *dy, integer *incy);
138
139 doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy,
140 integer *incy);
141
142 /* Subroutine */ int dgbmv_(char *trans, integer *m, integer *n, integer *kl,
143 integer *ku, doublereal *alpha, doublereal *a, integer *lda,
144 doublereal *x, integer *incx, doublereal *beta, doublereal *y,
145 integer *incy);
146
147 /* Subroutine */ int dgemm_(char *transa, char *transb, integer *m, integer *
148 n, integer *k, doublereal *alpha, doublereal *a, integer *lda,
149 doublereal *b, integer *ldb, doublereal *beta, doublereal *c__,
150 integer *ldc);
151
152 /* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal *
153 alpha, doublereal *a, integer *lda, doublereal *x, integer *incx,
154 doublereal *beta, doublereal *y, integer *incy);
155
156 /* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha,
157 doublereal *x, integer *incx, doublereal *y, integer *incy,
158 doublereal *a, integer *lda);
159
160 doublereal dnrm2_(integer *n, doublereal *x, integer *incx);
161
162 /* Subroutine */ int drot_(integer *n, doublereal *dx, integer *incx,
163 doublereal *dy, integer *incy, doublereal *c__, doublereal *s);
164
165 /* Subroutine */ int drotg_(doublereal *da, doublereal *db, doublereal *c__,
166 doublereal *s);
167
168 /* Subroutine */ int drotm_(integer *n, doublereal *dx, integer *incx,
169 doublereal *dy, integer *incy, doublereal *dparam);
170
171 /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *
172 dx1, doublereal *dy1, doublereal *dparam);
173
174 /* Subroutine */ int dsbmv_(char *uplo, integer *n, integer *k, doublereal *
175 alpha, doublereal *a, integer *lda, doublereal *x, integer *incx,
176 doublereal *beta, doublereal *y, integer *incy);
177
178 /* Subroutine */ int dscal_(integer *n, doublereal *da, doublereal *dx,
179 integer *incx);
180
181 doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *
182 incy);
183
184 /* Subroutine */ int dspmv_(char *uplo, integer *n, doublereal *alpha,
185 doublereal *ap, doublereal *x, integer *incx, doublereal *beta,
186 doublereal *y, integer *incy);
187
188 /* Subroutine */ int dspr_(char *uplo, integer *n, doublereal *alpha,
189 doublereal *x, integer *incx, doublereal *ap);
190
191 /* Subroutine */ int dspr2_(char *uplo, integer *n, doublereal *alpha,
192 doublereal *x, integer *incx, doublereal *y, integer *incy,
193 doublereal *ap);
194
195 /* Subroutine */ int dswap_(integer *n, doublereal *dx, integer *incx,
196 doublereal *dy, integer *incy);
197
198 /* Subroutine */ int dsymm_(char *side, char *uplo, integer *m, integer *n,
199 doublereal *alpha, doublereal *a, integer *lda, doublereal *b,
200 integer *ldb, doublereal *beta, doublereal *c__, integer *ldc);
201
202 /* Subroutine */ int dsymv_(char *uplo, integer *n, doublereal *alpha,
203 doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal
204 *beta, doublereal *y, integer *incy);
205
206 /* Subroutine */ int dsyr_(char *uplo, integer *n, doublereal *alpha,
207 doublereal *x, integer *incx, doublereal *a, integer *lda);
208
209 /* Subroutine */ int dsyr2_(char *uplo, integer *n, doublereal *alpha,
210 doublereal *x, integer *incx, doublereal *y, integer *incy,
211 doublereal *a, integer *lda);
212
213 /* Subroutine */ int dsyr2k_(char *uplo, char *trans, integer *n, integer *k,
214 doublereal *alpha, doublereal *a, integer *lda, doublereal *b,
215 integer *ldb, doublereal *beta, doublereal *c__, integer *ldc);
216
217 /* Subroutine */ int dsyrk_(char *uplo, char *trans, integer *n, integer *k,
218 doublereal *alpha, doublereal *a, integer *lda, doublereal *beta,
219 doublereal *c__, integer *ldc);
220
221 /* Subroutine */ int dtbmv_(char *uplo, char *trans, char *diag, integer *n,
222 integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx);
223
224 /* Subroutine */ int dtbsv_(char *uplo, char *trans, char *diag, integer *n,
225 integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx);
226
227 /* Subroutine */ int dtpmv_(char *uplo, char *trans, char *diag, integer *n,
228 doublereal *ap, doublereal *x, integer *incx);
229
230 /* Subroutine */ int dtpsv_(char *uplo, char *trans, char *diag, integer *n,
231 doublereal *ap, doublereal *x, integer *incx);
232
233 /* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag,
234 integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
235 lda, doublereal *b, integer *ldb);
236
237 /* Subroutine */ int dtrmv_(char *uplo, char *trans, char *diag, integer *n,
238 doublereal *a, integer *lda, doublereal *x, integer *incx);
239
240 /* Subroutine */ int dtrsm_(char *side, char *uplo, char *transa, char *diag,
241 integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
242 lda, doublereal *b, integer *ldb);
243
244 /* Subroutine */ int dtrsv_(char *uplo, char *trans, char *diag, integer *n,
245 doublereal *a, integer *lda, doublereal *x, integer *incx);
246
247 doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx);
248
249 doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx);
250
251 integer icamax_(integer *n, complex *cx, integer *incx);
252
253 integer idamax_(integer *n, doublereal *dx, integer *incx);
254
255 integer isamax_(integer *n, real *sx, integer *incx);
256
257 integer izamax_(integer *n, doublecomplex *zx, integer *incx);
258
259 logical lsame_(char *ca, char *cb);
260
261 doublereal sasum_(integer *n, real *sx, integer *incx);
262
263 /* Subroutine */ int saxpy_(integer *n, real *sa, real *sx, integer *incx,
264 real *sy, integer *incy);
265
266 doublereal scabs1_(complex *z__);
267
268 doublereal scasum_(integer *n, complex *cx, integer *incx);
269
270 doublereal scnrm2_(integer *n, complex *x, integer *incx);
271
272 /* Subroutine */ int scopy_(integer *n, real *sx, integer *incx, real *sy,
273 integer *incy);
274
275 doublereal sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
276
277 doublereal sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy,
278 integer *incy);
279
280 /* Subroutine */ int sgbmv_(char *trans, integer *m, integer *n, integer *kl,
281 integer *ku, real *alpha, real *a, integer *lda, real *x, integer *
282 incx, real *beta, real *y, integer *incy);
283
284 /* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer *
285 n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *
286 ldb, real *beta, real *c__, integer *ldc);
287
288 /* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha,
289 real *a, integer *lda, real *x, integer *incx, real *beta, real *y,
290 integer *incy);
291
292 /* Subroutine */ int sger_(integer *m, integer *n, real *alpha, real *x,
293 integer *incx, real *y, integer *incy, real *a, integer *lda);
294
295 doublereal snrm2_(integer *n, real *x, integer *incx);
296
297 /* Subroutine */ int srot_(integer *n, real *sx, integer *incx, real *sy,
298 integer *incy, real *c__, real *s);
299
300 /* Subroutine */ int srotg_(real *sa, real *sb, real *c__, real *s);
301
302 /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy,
303 integer *incy, real *sparam);
304
305 /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real
306 *sparam);
307
308 /* Subroutine */ int ssbmv_(char *uplo, integer *n, integer *k, real *alpha,
309 real *a, integer *lda, real *x, integer *incx, real *beta, real *y,
310 integer *incy);
311
312 /* Subroutine */ int sscal_(integer *n, real *sa, real *sx, integer *incx);
313
314 /* Subroutine */ int sspmv_(char *uplo, integer *n, real *alpha, real *ap,
315 real *x, integer *incx, real *beta, real *y, integer *incy);
316
317 /* Subroutine */ int sspr_(char *uplo, integer *n, real *alpha, real *x,
318 integer *incx, real *ap);
319
320 /* Subroutine */ int sspr2_(char *uplo, integer *n, real *alpha, real *x,
321 integer *incx, real *y, integer *incy, real *ap);
322
323 /* Subroutine */ int sswap_(integer *n, real *sx, integer *incx, real *sy,
324 integer *incy);
325
326 /* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n,
327 real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta,
328 real *c__, integer *ldc);
329
330 /* Subroutine */ int ssymv_(char *uplo, integer *n, real *alpha, real *a,
331 integer *lda, real *x, integer *incx, real *beta, real *y, integer *
332 incy);
333
334 /* Subroutine */ int ssyr_(char *uplo, integer *n, real *alpha, real *x,
335 integer *incx, real *a, integer *lda);
336
337 /* Subroutine */ int ssyr2_(char *uplo, integer *n, real *alpha, real *x,
338 integer *incx, real *y, integer *incy, real *a, integer *lda);
339
340 /* Subroutine */ int ssyr2k_(char *uplo, char *trans, integer *n, integer *k,
341 real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta,
342 real *c__, integer *ldc);
343
344 /* Subroutine */ int ssyrk_(char *uplo, char *trans, integer *n, integer *k,
345 real *alpha, real *a, integer *lda, real *beta, real *c__, integer *
346 ldc);
347
348 /* Subroutine */ int stbmv_(char *uplo, char *trans, char *diag, integer *n,
349 integer *k, real *a, integer *lda, real *x, integer *incx);
350
351 /* Subroutine */ int stbsv_(char *uplo, char *trans, char *diag, integer *n,
352 integer *k, real *a, integer *lda, real *x, integer *incx);
353
354 /* Subroutine */ int stpmv_(char *uplo, char *trans, char *diag, integer *n,
355 real *ap, real *x, integer *incx);
356
357 /* Subroutine */ int stpsv_(char *uplo, char *trans, char *diag, integer *n,
358 real *ap, real *x, integer *incx);
359
360 /* Subroutine */ int strmm_(char *side, char *uplo, char *transa, char *diag,
361 integer *m, integer *n, real *alpha, real *a, integer *lda, real *b,
362 integer *ldb);
363
364 /* Subroutine */ int strmv_(char *uplo, char *trans, char *diag, integer *n,
365 real *a, integer *lda, real *x, integer *incx);
366
367 /* Subroutine */ int strsm_(char *side, char *uplo, char *transa, char *diag,
368 integer *m, integer *n, real *alpha, real *a, integer *lda, real *b,
369 integer *ldb);
370
371 /* Subroutine */ int strsv_(char *uplo, char *trans, char *diag, integer *n,
372 real *a, integer *lda, real *x, integer *incx);
373
374 /* Subroutine */ int xerbla_(char *srname, integer *info);
375
376 /* Subroutine */ int xerbla_array__(char *srname_array__, integer *
377 srname_len__, integer *info, ftnlen srname_array_len);
378
379 /* Subroutine */ int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx,
380 integer *incx, doublecomplex *zy, integer *incy);
381
382 /* Subroutine */ int zcopy_(integer *n, doublecomplex *zx, integer *incx,
383 doublecomplex *zy, integer *incy);
384
385 /* Double Complex */ VOID zdotc_(doublecomplex * ret_val, integer *n,
386 doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
387
388 /* Double Complex */ VOID zdotu_(doublecomplex * ret_val, integer *n,
389 doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
390
391 /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx,
392 doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
393
394 /* Subroutine */ int zdscal_(integer *n, doublereal *da, doublecomplex *zx,
395 integer *incx);
396
397 /* Subroutine */ int zgbmv_(char *trans, integer *m, integer *n, integer *kl,
398 integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda,
399 doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *
400 y, integer *incy);
401
402 /* Subroutine */ int zgemm_(char *transa, char *transb, integer *m, integer *
403 n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda,
404 doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *
405 c__, integer *ldc);
406
407 /* Subroutine */ int zgemv_(char *trans, integer *m, integer *n,
408 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
409 x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *
410 incy);
411
412 /* Subroutine */ int zgerc_(integer *m, integer *n, doublecomplex *alpha,
413 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy,
414 doublecomplex *a, integer *lda);
415
416 /* Subroutine */ int zgeru_(integer *m, integer *n, doublecomplex *alpha,
417 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy,
418 doublecomplex *a, integer *lda);
419
420 /* Subroutine */ int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex
421 *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *
422 incx, doublecomplex *beta, doublecomplex *y, integer *incy);
423
424 /* Subroutine */ int zhemm_(char *side, char *uplo, integer *m, integer *n,
425 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
426 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
427 ldc);
428
429 /* Subroutine */ int zhemv_(char *uplo, integer *n, doublecomplex *alpha,
430 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
431 doublecomplex *beta, doublecomplex *y, integer *incy);
432
433 /* Subroutine */ int zher_(char *uplo, integer *n, doublereal *alpha,
434 doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
435
436 /* Subroutine */ int zher2_(char *uplo, integer *n, doublecomplex *alpha,
437 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy,
438 doublecomplex *a, integer *lda);
439
440 /* Subroutine */ int zher2k_(char *uplo, char *trans, integer *n, integer *k,
441 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
442 b, integer *ldb, doublereal *beta, doublecomplex *c__, integer *ldc);
443
444 /* Subroutine */ int zherk_(char *uplo, char *trans, integer *n, integer *k,
445 doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta,
446 doublecomplex *c__, integer *ldc);
447
448 /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha,
449 doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
450 beta, doublecomplex *y, integer *incy);
451
452 /* Subroutine */ int zhpr_(char *uplo, integer *n, doublereal *alpha,
453 doublecomplex *x, integer *incx, doublecomplex *ap);
454
455 /* Subroutine */ int zhpr2_(char *uplo, integer *n, doublecomplex *alpha,
456 doublecomplex *x, integer *incx, doublecomplex *y, integer *incy,
457 doublecomplex *ap);
458
459 /* Subroutine */ int zrotg_(doublecomplex *ca, doublecomplex *cb, doublereal *
460 c__, doublecomplex *s);
461
462 /* Subroutine */ int zscal_(integer *n, doublecomplex *za, doublecomplex *zx,
463 integer *incx);
464
465 /* Subroutine */ int zswap_(integer *n, doublecomplex *zx, integer *incx,
466 doublecomplex *zy, integer *incy);
467
468 /* Subroutine */ int zsymm_(char *side, char *uplo, integer *m, integer *n,
469 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
470 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
471 ldc);
472
473 /* Subroutine */ int zsyr2k_(char *uplo, char *trans, integer *n, integer *k,
474 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
475 b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
476 ldc);
477
478 /* Subroutine */ int zsyrk_(char *uplo, char *trans, integer *n, integer *k,
479 doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
480 beta, doublecomplex *c__, integer *ldc);
481
482 /* Subroutine */ int ztbmv_(char *uplo, char *trans, char *diag, integer *n,
483 integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer
484 *incx);
485
486 /* Subroutine */ int ztbsv_(char *uplo, char *trans, char *diag, integer *n,
487 integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer
488 *incx);
489
490 /* Subroutine */ int ztpmv_(char *uplo, char *trans, char *diag, integer *n,
491 doublecomplex *ap, doublecomplex *x, integer *incx);
492
493 /* Subroutine */ int ztpsv_(char *uplo, char *trans, char *diag, integer *n,
494 doublecomplex *ap, doublecomplex *x, integer *incx);
495
496 /* Subroutine */ int ztrmm_(char *side, char *uplo, char *transa, char *diag,
497 integer *m, integer *n, doublecomplex *alpha, doublecomplex *a,
498 integer *lda, doublecomplex *b, integer *ldb);
499
500 /* Subroutine */ int ztrmv_(char *uplo, char *trans, char *diag, integer *n,
501 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx);
502
503 /* Subroutine */ int ztrsm_(char *side, char *uplo, char *transa, char *diag,
504 integer *m, integer *n, doublecomplex *alpha, doublecomplex *a,
505 integer *lda, doublecomplex *b, integer *ldb);
506
507 /* Subroutine */ int ztrsv_(char *uplo, char *trans, char *diag, integer *n,
508 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx);
509
510 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
511 nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt,
512 complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork,
513 integer *info);
514
515 /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
516 integer *kl, integer *ku, complex *ab, integer *ldab, real *d__,
517 real *e, complex *q, integer *ldq, complex *pt, integer *ldpt,
518 complex *c__, integer *ldc, complex *work, real *rwork, integer *info);
519
520 /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku,
521 complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
522 complex *work, real *rwork, integer *info);
523
524 /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku,
525 complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
526 *colcnd, real *amax, integer *info);
527
528 /* Subroutine */ int cgbequb_(integer *m, integer *n, integer *kl, integer *
529 ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd,
530 real *colcnd, real *amax, integer *info);
531
532 /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer *
533 ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
534 ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *
535 ldx, real *ferr, real *berr, complex *work, real *rwork, integer *
536 info);
537
538 /* Subroutine */ int cgbrfsx_(char *trans, char *equed, integer *n, integer *
539 kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *
540 afb, integer *ldafb, integer *ipiv, real *r__, real *c__, complex *b,
541 integer *ldb, complex *x, integer *ldx, real *rcond, real *berr,
542 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__,
543 integer *nparams, real *params, complex *work, real *rwork, integer *
544 info);
545
546 /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer *
547 nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *
548 ldb, integer *info);
549
550 /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl,
551 integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb,
552 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
553 complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real
554 *ferr, real *berr, complex *work, real *rwork, integer *info);
555
556 /* Subroutine */ int cgbsvxx_(char *fact, char *trans, integer *n, integer *
557 kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *
558 afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
559 complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
560 real *rpvgrw, real *berr, integer *n_err_bnds__, real *
561 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
562 params, complex *work, real *rwork, integer *info);
563
564 /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
565 complex *ab, integer *ldab, integer *ipiv, integer *info);
566
567 /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
568 complex *ab, integer *ldab, integer *ipiv, integer *info);
569
570 /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer *
571 ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex
572 *b, integer *ldb, integer *info);
573
574 /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo,
575 integer *ihi, real *scale, integer *m, complex *v, integer *ldv,
576 integer *info);
577
578 /* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda,
579 integer *ilo, integer *ihi, real *scale, integer *info);
580
581 /* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda,
582 real *d__, real *e, complex *tauq, complex *taup, complex *work,
583 integer *info);
584
585 /* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda,
586 real *d__, real *e, complex *tauq, complex *taup, complex *work,
587 integer *lwork, integer *info);
588
589 /* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda,
590 real *anorm, real *rcond, complex *work, real *rwork, integer *info);
591
592 /* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda,
593 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
594 integer *info);
595
596 /* Subroutine */ int cgeequb_(integer *m, integer *n, complex *a, integer *
597 lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
598 integer *info);
599
600 /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n,
601 complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
602 integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
603 bwork, integer *info);
604
605 /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char *
606 sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
607 w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
608 work, integer *lwork, real *rwork, logical *bwork, integer *info);
609
610 /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a,
611 integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr,
612 integer *ldvr, complex *work, integer *lwork, real *rwork, integer *
613 info);
614
615 /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
616 sense, integer *n, complex *a, integer *lda, complex *w, complex *vl,
617 integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi,
618 real *scale, real *abnrm, real *rconde, real *rcondv, complex *work,
619 integer *lwork, real *rwork, integer *info);
620
621 /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
622 a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
623 beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr,
624 complex *work, integer *lwork, real *rwork, integer *info);
625
626 /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a,
627 integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
628 complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
629 work, integer *lwork, real *rwork, integer *info);
630
631 /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
632 a, integer *lda, complex *tau, complex *work, integer *info);
633
634 /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
635 a, integer *lda, complex *tau, complex *work, integer *lwork, integer
636 *info);
637
638 /* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda,
639 complex *tau, complex *work, integer *info);
640
641 /* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda,
642 complex *tau, complex *work, integer *lwork, integer *info);
643
644 /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer *
645 nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
646 work, integer *lwork, integer *info);
647
648 /* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, complex *
649 a, integer *lda, complex *b, integer *ldb, real *s, real *rcond,
650 integer *rank, complex *work, integer *lwork, real *rwork, integer *
651 iwork, integer *info);
652
653 /* Subroutine */ int cgelss_(integer *m, integer *n, integer *nrhs, complex *
654 a, integer *lda, complex *b, integer *ldb, real *s, real *rcond,
655 integer *rank, complex *work, integer *lwork, real *rwork, integer *
656 info);
657
658 /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex *
659 a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
660 integer *rank, complex *work, real *rwork, integer *info);
661
662 /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex *
663 a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
664 integer *rank, complex *work, integer *lwork, real *rwork, integer *
665 info);
666
667 /* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda,
668 complex *tau, complex *work, integer *info);
669
670 /* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
671 complex *tau, complex *work, integer *lwork, integer *info);
672
673 /* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda,
674 integer *jpvt, complex *tau, complex *work, integer *lwork, real *
675 rwork, integer *info);
676
677 /* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
678 integer *jpvt, complex *tau, complex *work, real *rwork, integer *
679 info);
680
681 /* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
682 complex *tau, complex *work, integer *info);
683
684 /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
685 complex *tau, complex *work, integer *lwork, integer *info);
686
687 /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex *
688 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
689 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
690 complex *work, real *rwork, integer *info);
691
692 /* Subroutine */ int cgerfsx_(char *trans, char *equed, integer *n, integer *
693 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
694 ipiv, real *r__, real *c__, complex *b, integer *ldb, complex *x,
695 integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real *
696 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
697 params, complex *work, real *rwork, integer *info);
698
699 /* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda,
700 complex *tau, complex *work, integer *info);
701
702 /* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda,
703 complex *tau, complex *work, integer *lwork, integer *info);
704
705 /* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex *
706 rhs, integer *ipiv, integer *jpiv, real *scale);
707
708 /* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, complex *a,
709 integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer
710 *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork,
711 integer *info);
712
713 /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer *
714 lda, integer *ipiv, complex *b, integer *ldb, integer *info);
715
716 /* Subroutine */ int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
717 complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *
718 vt, integer *ldvt, complex *work, integer *lwork, real *rwork,
719 integer *info);
720
721 /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer *
722 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
723 ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb,
724 complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
725 complex *work, real *rwork, integer *info);
726
727 /* Subroutine */ int cgesvxx_(char *fact, char *trans, integer *n, integer *
728 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
729 ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb,
730 complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr,
731 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__,
732 integer *nparams, real *params, complex *work, real *rwork, integer *
733 info);
734
735 /* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer *
736 ipiv, integer *jpiv, integer *info);
737
738 /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda,
739 integer *ipiv, integer *info);
740
741 /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda,
742 integer *ipiv, integer *info);
743
744 /* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer *
745 ipiv, complex *work, integer *lwork, integer *info);
746
747 /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex *
748 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
749 info);
750
751 /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo,
752 integer *ihi, real *lscale, real *rscale, integer *m, complex *v,
753 integer *ldv, integer *info);
754
755 /* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda,
756 complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale,
757 real *rscale, real *work, integer *info);
758
759 /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
760 selctg, integer *n, complex *a, integer *lda, complex *b, integer *
761 ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
762 integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
763 lwork, real *rwork, logical *bwork, integer *info);
764
765 /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
766 selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
767 integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
768 vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real
769 *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork,
770 integer *liwork, logical *bwork, integer *info);
771
772 /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a,
773 integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
774 complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
775 work, integer *lwork, real *rwork, integer *info);
776
777 /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char *
778 sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
779 complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *
780 vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *
781 rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex
782 *work, integer *lwork, real *rwork, integer *iwork, logical *bwork,
783 integer *info);
784
785 /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a,
786 integer *lda, complex *b, integer *ldb, complex *d__, complex *x,
787 complex *y, complex *work, integer *lwork, integer *info);
788
789 /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer *
790 ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb,
791 complex *q, integer *ldq, complex *z__, integer *ldz, integer *info);
792
793 /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a,
794 integer *lda, complex *b, integer *ldb, complex *c__, complex *d__,
795 complex *x, complex *work, integer *lwork, integer *info);
796
797 /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a,
798 integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
799 complex *work, integer *lwork, integer *info);
800
801 /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a,
802 integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
803 complex *work, integer *lwork, integer *info);
804
805 /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
806 integer *n, integer *p, integer *k, integer *l, complex *a, integer *
807 lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u,
808 integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
809 complex *work, real *rwork, integer *iwork, integer *info);
810
811 /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
812 integer *p, integer *n, complex *a, integer *lda, complex *b, integer
813 *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u,
814 integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
815 integer *iwork, real *rwork, complex *tau, complex *work, integer *
816 info);
817
818 /* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex *
819 d__, complex *du, complex *du2, integer *ipiv, real *anorm, real *
820 rcond, complex *work, integer *info);
821
822 /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex *
823 dl, complex *d__, complex *du, complex *dlf, complex *df, complex *
824 duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex *
825 x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
826 integer *info);
827
828 /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *
829 d__, complex *du, complex *b, integer *ldb, integer *info);
830
831 /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer *
832 nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *
833 df, complex *duf, complex *du2, integer *ipiv, complex *b, integer *
834 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
835 complex *work, real *rwork, integer *info);
836
837 /* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex *
838 du, complex *du2, integer *ipiv, integer *info);
839
840 /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex *
841 dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *
842 b, integer *ldb, integer *info);
843
844 /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs,
845 complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv,
846 complex *b, integer *ldb);
847
848 /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd,
849 complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
850 complex *work, real *rwork, integer *info);
851
852 /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd,
853 complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
854 complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
855 iwork, integer *liwork, integer *info);
856
857 /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n,
858 integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq,
859 real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
860 m, real *w, complex *z__, integer *ldz, complex *work, real *rwork,
861 integer *iwork, integer *ifail, integer *info);
862
863 /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka,
864 integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
865 complex *x, integer *ldx, complex *work, real *rwork, integer *info);
866
867 /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka,
868 integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
869 real *w, complex *z__, integer *ldz, complex *work, real *rwork,
870 integer *info);
871
872 /* Subroutine */ int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
873 integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
874 real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
875 real *rwork, integer *lrwork, integer *iwork, integer *liwork,
876 integer *info);
877
878 /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n,
879 integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb,
880 integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer *
881 il, integer *iu, real *abstol, integer *m, real *w, complex *z__,
882 integer *ldz, complex *work, real *rwork, integer *iwork, integer *
883 ifail, integer *info);
884
885 /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd,
886 complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *
887 ldq, complex *work, integer *info);
888
889 /* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda,
890 integer *ipiv, real *anorm, real *rcond, complex *work, integer *
891 info);
892
893 /* Subroutine */ int cheequb_(char *uplo, integer *n, complex *a, integer *
894 lda, real *s, real *scond, real *amax, complex *work, integer *info);
895
896 /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a,
897 integer *lda, real *w, complex *work, integer *lwork, real *rwork,
898 integer *info);
899
900 /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a,
901 integer *lda, real *w, complex *work, integer *lwork, real *rwork,
902 integer *lrwork, integer *iwork, integer *liwork, integer *info);
903
904 /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n,
905 complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
906 iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
907 integer *isuppz, complex *work, integer *lwork, real *rwork, integer *
908 lrwork, integer *iwork, integer *liwork, integer *info);
909
910 /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n,
911 complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
912 iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
913 complex *work, integer *lwork, real *rwork, integer *iwork, integer *
914 ifail, integer *info);
915
916 /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex *
917 a, integer *lda, complex *b, integer *ldb, integer *info);
918
919 /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex *
920 a, integer *lda, complex *b, integer *ldb, integer *info);
921
922 /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer *
923 n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
924 complex *work, integer *lwork, real *rwork, integer *info);
925
926 /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer *
927 n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
928 complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
929 iwork, integer *liwork, integer *info);
930
931 /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char *
932 uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
933 real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
934 m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
935 real *rwork, integer *iwork, integer *ifail, integer *info);
936
937 /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex *
938 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
939 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
940 complex *work, real *rwork, integer *info);
941
942 /* Subroutine */ int cherfsx_(char *uplo, char *equed, integer *n, integer *
943 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
944 ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
945 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__,
946 real *err_bnds_comp__, integer *nparams, real *params, complex *work,
947 real *rwork, integer *info);
948
949 /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a,
950 integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
951 integer *lwork, integer *info);
952
953 /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer *
954 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
955 ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
956 real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
957 integer *info);
958
959 /* Subroutine */ int chesvxx_(char *fact, char *uplo, integer *n, integer *
960 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
961 ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x,
962 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
963 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
964 nparams, real *params, complex *work, real *rwork, integer *info);
965
966 /* Subroutine */ int chetd2_(char *uplo, integer *n, complex *a, integer *lda,
967 real *d__, real *e, complex *tau, integer *info);
968
969 /* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda,
970 integer *ipiv, integer *info);
971
972 /* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda,
973 real *d__, real *e, complex *tau, complex *work, integer *lwork,
974 integer *info);
975
976 /* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda,
977 integer *ipiv, complex *work, integer *lwork, integer *info);
978
979 /* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda,
980 integer *ipiv, complex *work, integer *info);
981
982 /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex *
983 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
984 info);
985
986 /* Subroutine */ int chfrk_(char *transr, char *uplo, char *trans, integer *n,
987 integer *k, real *alpha, complex *a, integer *lda, real *beta,
988 complex *c__);
989
990 /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n,
991 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *t,
992 integer *ldt, complex *alpha, complex *beta, complex *q, integer *ldq,
993 complex *z__, integer *ldz, complex *work, integer *lwork, real *
994 rwork, integer *info);
995
996 /* Character */ VOID chla_transtype__(char *ret_val, ftnlen ret_val_len,
997 integer *trans);
998
999 /* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer *
1000 ipiv, real *anorm, real *rcond, complex *work, integer *info);
1001
1002 /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap,
1003 real *w, complex *z__, integer *ldz, complex *work, real *rwork,
1004 integer *info);
1005
1006 /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap,
1007 real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
1008 real *rwork, integer *lrwork, integer *iwork, integer *liwork,
1009 integer *info);
1010
1011 /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n,
1012 complex *ap, real *vl, real *vu, integer *il, integer *iu, real *
1013 abstol, integer *m, real *w, complex *z__, integer *ldz, complex *
1014 work, real *rwork, integer *iwork, integer *ifail, integer *info);
1015
1016 /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex *
1017 ap, complex *bp, integer *info);
1018
1019 /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer *
1020 n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
1021 complex *work, real *rwork, integer *info);
1022
1023 /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer *
1024 n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
1025 complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
1026 iwork, integer *liwork, integer *info);
1027
1028 /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char *
1029 uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu,
1030 integer *il, integer *iu, real *abstol, integer *m, real *w, complex *
1031 z__, integer *ldz, complex *work, real *rwork, integer *iwork,
1032 integer *ifail, integer *info);
1033
1034 /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex *
1035 ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
1036 integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1037 integer *info);
1038
1039 /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex *
1040 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1041
1042 /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer *
1043 nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
1044 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
1045 complex *work, real *rwork, integer *info);
1046
1047 /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__,
1048 real *e, complex *tau, integer *info);
1049
1050 /* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer *
1051 ipiv, integer *info);
1052
1053 /* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer *
1054 ipiv, complex *work, integer *info);
1055
1056 /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex *
1057 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1058
1059 /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical *
1060 select, integer *n, complex *h__, integer *ldh, complex *w, complex *
1061 vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *
1062 m, complex *work, real *rwork, integer *ifaill, integer *ifailr,
1063 integer *info);
1064
1065 /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo,
1066 integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__,
1067 integer *ldz, complex *work, integer *lwork, integer *info);
1068
1069 /* Subroutine */ int cla_gbamv__(integer *trans, integer *m, integer *n,
1070 integer *kl, integer *ku, real *alpha, complex *ab, integer *ldab,
1071 complex *x, integer *incx, real *beta, real *y, integer *incy);
1072
1073 doublereal cla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku,
1074 complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
1075 ipiv, real *c__, logical *capply, integer *info, complex *work, real *
1076 rwork, ftnlen trans_len);
1077
1078 doublereal cla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku,
1079 complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
1080 ipiv, complex *x, integer *info, complex *work, real *rwork, ftnlen
1081 trans_len);
1082
1083 /* Subroutine */ int cla_gbrfsx_extended__(integer *prec_type__, integer *
1084 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
1085 complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
1086 ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *
1087 y, integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__,
1088 real *errs_c__, complex *res, real *ayb, complex *dy, complex *
1089 y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__,
1090 logical *ignore_cwise__, integer *info);
1091
1092 doublereal cla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
1093 ncols, complex *ab, integer *ldab, complex *afb, integer *ldafb);
1094
1095 /* Subroutine */ int cla_geamv__(integer *trans, integer *m, integer *n, real
1096 *alpha, complex *a, integer *lda, complex *x, integer *incx, real *
1097 beta, real *y, integer *incy);
1098
1099 doublereal cla_gercond_c__(char *trans, integer *n, complex *a, integer *lda,
1100 complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
1101 integer *info, complex *work, real *rwork, ftnlen trans_len);
1102
1103 doublereal cla_gercond_x__(char *trans, integer *n, complex *a, integer *lda,
1104 complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info,
1105 complex *work, real *rwork, ftnlen trans_len);
1106
1107 /* Subroutine */ int cla_gerfsx_extended__(integer *prec_type__, integer *
1108 trans_type__, integer *n, integer *nrhs, complex *a, integer *lda,
1109 complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__,
1110 complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__,
1111 integer *n_norms__, real *errs_n__, real *errs_c__, complex *res,
1112 real *ayb, complex *dy, complex *y_tail__, real *rcond, integer *
1113 ithresh, real *rthresh, real *dz_ub__, logical *ignore_cwise__,
1114 integer *info);
1115
1116 /* Subroutine */ int cla_heamv__(integer *uplo, integer *n, real *alpha,
1117 complex *a, integer *lda, complex *x, integer *incx, real *beta, real
1118 *y, integer *incy);
1119
1120 doublereal cla_hercond_c__(char *uplo, integer *n, complex *a, integer *lda,
1121 complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
1122 integer *info, complex *work, real *rwork, ftnlen uplo_len);
1123
1124 doublereal cla_hercond_x__(char *uplo, integer *n, complex *a, integer *lda,
1125 complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info,
1126 complex *work, real *rwork, ftnlen uplo_len);
1127
1128 /* Subroutine */ int cla_herfsx_extended__(integer *prec_type__, char *uplo,
1129 integer *n, integer *nrhs, complex *a, integer *lda, complex *af,
1130 integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b,
1131 integer *ldb, complex *y, integer *ldy, real *berr_out__, integer *
1132 n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb,
1133 complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real *
1134 rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info,
1135 ftnlen uplo_len);
1136
1137 doublereal cla_herpvgrw__(char *uplo, integer *n, integer *info, complex *a,
1138 integer *lda, complex *af, integer *ldaf, integer *ipiv, real *work,
1139 ftnlen uplo_len);
1140
1141 /* Subroutine */ int cla_lin_berr__(integer *n, integer *nz, integer *nrhs,
1142 complex *res, real *ayb, real *berr);
1143
1144 doublereal cla_porcond_c__(char *uplo, integer *n, complex *a, integer *lda,
1145 complex *af, integer *ldaf, real *c__, logical *capply, integer *info,
1146 complex *work, real *rwork, ftnlen uplo_len);
1147
1148 doublereal cla_porcond_x__(char *uplo, integer *n, complex *a, integer *lda,
1149 complex *af, integer *ldaf, complex *x, integer *info, complex *work,
1150 real *rwork, ftnlen uplo_len);
1151
1152 /* Subroutine */ int cla_porfsx_extended__(integer *prec_type__, char *uplo,
1153 integer *n, integer *nrhs, complex *a, integer *lda, complex *af,
1154 integer *ldaf, logical *colequ, real *c__, complex *b, integer *ldb,
1155 complex *y, integer *ldy, real *berr_out__, integer *n_norms__, real *
1156 errs_n__, real *errs_c__, complex *res, real *ayb, complex *dy,
1157 complex *y_tail__, real *rcond, integer *ithresh, real *rthresh, real
1158 *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen uplo_len);
1159
1160 doublereal cla_porpvgrw__(char *uplo, integer *ncols, complex *a, integer *
1161 lda, complex *af, integer *ldaf, real *work, ftnlen uplo_len);
1162
1163 doublereal cla_rpvgrw__(integer *n, integer *ncols, complex *a, integer *lda,
1164 complex *af, integer *ldaf);
1165
1166 /* Subroutine */ int cla_syamv__(integer *uplo, integer *n, real *alpha,
1167 complex *a, integer *lda, complex *x, integer *incx, real *beta, real
1168 *y, integer *incy);
1169
1170 doublereal cla_syrcond_c__(char *uplo, integer *n, complex *a, integer *lda,
1171 complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
1172 integer *info, complex *work, real *rwork, ftnlen uplo_len);
1173
1174 doublereal cla_syrcond_x__(char *uplo, integer *n, complex *a, integer *lda,
1175 complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info,
1176 complex *work, real *rwork, ftnlen uplo_len);
1177
1178 /* Subroutine */ int cla_syrfsx_extended__(integer *prec_type__, char *uplo,
1179 integer *n, integer *nrhs, complex *a, integer *lda, complex *af,
1180 integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b,
1181 integer *ldb, complex *y, integer *ldy, real *berr_out__, integer *
1182 n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb,
1183 complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real *
1184 rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info,
1185 ftnlen uplo_len);
1186
1187 doublereal cla_syrpvgrw__(char *uplo, integer *n, integer *info, complex *a,
1188 integer *lda, complex *af, integer *ldaf, integer *ipiv, real *work,
1189 ftnlen uplo_len);
1190
1191 /* Subroutine */ int cla_wwaddw__(integer *n, complex *x, complex *y, complex
1192 *w);
1193
1194 /* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, complex *a,
1195 integer *lda, real *d__, real *e, complex *tauq, complex *taup,
1196 complex *x, integer *ldx, complex *y, integer *ldy);
1197
1198 /* Subroutine */ int clacgv_(integer *n, complex *x, integer *incx);
1199
1200 /* Subroutine */ int clacn2_(integer *n, complex *v, complex *x, real *est,
1201 integer *kase, integer *isave);
1202
1203 /* Subroutine */ int clacon_(integer *n, complex *v, complex *x, real *est,
1204 integer *kase);
1205
1206 /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a,
1207 integer *lda, complex *b, integer *ldb);
1208
1209 /* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, complex *a,
1210 integer *lda, complex *b, integer *ldb);
1211
1212 /* Subroutine */ int clacrm_(integer *m, integer *n, complex *a, integer *lda,
1213 real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
1214
1215 /* Subroutine */ int clacrt_(integer *n, complex *cx, integer *incx, complex *
1216 cy, integer *incy, complex *c__, complex *s);
1217
1218 /* Complex */ VOID cladiv_(complex * ret_val, complex *x, complex *y);
1219
1220 /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e,
1221 complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork,
1222 integer *iwork, integer *info);
1223
1224 /* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz,
1225 integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex *
1226 q, integer *ldq, real *rho, integer *indxq, real *qstore, integer *
1227 qptr, integer *prmptr, integer *perm, integer *givptr, integer *
1228 givcol, real *givnum, complex *work, real *rwork, integer *iwork,
1229 integer *info);
1230
1231 /* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, complex *
1232 q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__,
1233 real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp,
1234 integer *indx, integer *indxq, integer *perm, integer *givptr,
1235 integer *givcol, real *givnum, integer *info);
1236
1237 /* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n,
1238 complex *h__, integer *ldh, complex *w, complex *v, complex *b,
1239 integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info);
1240
1241 /* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex *
1242 rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
1243
1244 /* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1,
1245 real *rt2, real *cs1, complex *sn1);
1246
1247 /* Subroutine */ int clag2z_(integer *m, integer *n, complex *sa, integer *
1248 ldsa, doublecomplex *a, integer *lda, integer *info);
1249
1250 /* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3,
1251 real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv,
1252 complex *snv, real *csq, complex *snq);
1253
1254 /* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real *
1255 alpha, complex *dl, complex *d__, complex *du, complex *x, integer *
1256 ldx, real *beta, complex *b, integer *ldb);
1257
1258 /* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb,
1259 complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
1260 integer *info);
1261
1262 /* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n,
1263 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
1264 integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
1265 info);
1266
1267 /* Subroutine */ int clahr2_(integer *n, integer *k, integer *nb, complex *a,
1268 integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
1269 integer *ldy);
1270
1271 /* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a,
1272 integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
1273 integer *ldy);
1274
1275 /* Subroutine */ int claic1_(integer *job, integer *j, complex *x, real *sest,
1276 complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
1277
1278 /* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr,
1279 integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx,
1280 integer *ldbx, integer *perm, integer *givptr, integer *givcol,
1281 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
1282 difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
1283 rwork, integer *info);
1284
1285 /* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n,
1286 integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx,
1287 real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr,
1288 real *z__, real *poles, integer *givptr, integer *givcol, integer *
1289 ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork,
1290 integer *iwork, integer *info);
1291
1292 /* Subroutine */ int clalsd_(char *uplo, integer *smlsiz, integer *n, integer
1293 *nrhs, real *d__, real *e, complex *b, integer *ldb, real *rcond,
1294 integer *rank, complex *work, real *rwork, integer *iwork, integer *
1295 info);
1296
1297 doublereal clangb_(char *norm, integer *n, integer *kl, integer *ku, complex *
1298 ab, integer *ldab, real *work);
1299
1300 doublereal clange_(char *norm, integer *m, integer *n, complex *a, integer *
1301 lda, real *work);
1302
1303 doublereal clangt_(char *norm, integer *n, complex *dl, complex *d__, complex
1304 *du);
1305
1306 doublereal clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *
1307 ab, integer *ldab, real *work);
1308
1309 doublereal clanhe_(char *norm, char *uplo, integer *n, complex *a, integer *
1310 lda, real *work);
1311
1312 doublereal clanhf_(char *norm, char *transr, char *uplo, integer *n, complex *
1313 a, real *work);
1314
1315 doublereal clanhp_(char *norm, char *uplo, integer *n, complex *ap, real *
1316 work);
1317
1318 doublereal clanhs_(char *norm, integer *n, complex *a, integer *lda, real *
1319 work);
1320
1321 doublereal clanht_(char *norm, integer *n, real *d__, complex *e);
1322
1323 doublereal clansb_(char *norm, char *uplo, integer *n, integer *k, complex *
1324 ab, integer *ldab, real *work);
1325
1326 doublereal clansp_(char *norm, char *uplo, integer *n, complex *ap, real *
1327 work);
1328
1329 doublereal clansy_(char *norm, char *uplo, integer *n, complex *a, integer *
1330 lda, real *work);
1331
1332 doublereal clantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
1333 complex *ab, integer *ldab, real *work);
1334
1335 doublereal clantp_(char *norm, char *uplo, char *diag, integer *n, complex *
1336 ap, real *work);
1337
1338 doublereal clantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
1339 complex *a, integer *lda, real *work);
1340
1341 /* Subroutine */ int clapll_(integer *n, complex *x, integer *incx, complex *
1342 y, integer *incy, real *ssmin);
1343
1344 /* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, complex
1345 *x, integer *ldx, integer *k);
1346
1347 /* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku,
1348 complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
1349 *colcnd, real *amax, char *equed);
1350
1351 /* Subroutine */ int claqge_(integer *m, integer *n, complex *a, integer *lda,
1352 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
1353 equed);
1354
1355 /* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, complex *ab,
1356 integer *ldab, real *s, real *scond, real *amax, char *equed);
1357
1358 /* Subroutine */ int claqhe_(char *uplo, integer *n, complex *a, integer *lda,
1359 real *s, real *scond, real *amax, char *equed);
1360
1361 /* Subroutine */ int claqhp_(char *uplo, integer *n, complex *ap, real *s,
1362 real *scond, real *amax, char *equed);
1363
1364 /* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, complex
1365 *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2,
1366 complex *work);
1367
1368 /* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer
1369 *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *
1370 tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
1371
1372 /* Subroutine */ int claqr0_(logical *wantt, logical *wantz, integer *n,
1373 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
1374 integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex *
1375 work, integer *lwork, integer *info);
1376
1377 /* Subroutine */ int claqr1_(integer *n, complex *h__, integer *ldh, complex *
1378 s1, complex *s2, complex *v);
1379
1380 /* Subroutine */ int claqr2_(logical *wantt, logical *wantz, integer *n,
1381 integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh,
1382 integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
1383 ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh,
1384 complex *t, integer *ldt, integer *nv, complex *wv, integer *ldwv,
1385 complex *work, integer *lwork);
1386
1387 /* Subroutine */ int claqr3_(logical *wantt, logical *wantz, integer *n,
1388 integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh,
1389 integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
1390 ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh,
1391 complex *t, integer *ldt, integer *nv, complex *wv, integer *ldwv,
1392 complex *work, integer *lwork);
1393
1394 /* Subroutine */ int claqr4_(logical *wantt, logical *wantz, integer *n,
1395 integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
1396 integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex *
1397 work, integer *lwork, integer *info);
1398
1399 /* Subroutine */ int claqr5_(logical *wantt, logical *wantz, integer *kacc22,
1400 integer *n, integer *ktop, integer *kbot, integer *nshfts, complex *s,
1401 complex *h__, integer *ldh, integer *iloz, integer *ihiz, complex *
1402 z__, integer *ldz, complex *v, integer *ldv, complex *u, integer *ldu,
1403 integer *nv, complex *wv, integer *ldwv, integer *nh, complex *wh,
1404 integer *ldwh);
1405
1406 /* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, complex *ab,
1407 integer *ldab, real *s, real *scond, real *amax, char *equed);
1408
1409 /* Subroutine */ int claqsp_(char *uplo, integer *n, complex *ap, real *s,
1410 real *scond, real *amax, char *equed);
1411
1412 /* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda,
1413 real *s, real *scond, real *amax, char *equed);
1414
1415 /* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real *
1416 lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
1417 gaptol, complex *z__, logical *wantnc, integer *negcnt, real *ztz,
1418 real *mingma, integer *r__, integer *isuppz, real *nrminv, real *
1419 resid, real *rqcorr, real *work);
1420
1421 /* Subroutine */ int clar2v_(integer *n, complex *x, complex *y, complex *z__,
1422 integer *incx, real *c__, complex *s, integer *incc);
1423
1424 /* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda,
1425 complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
1426
1427 /* Subroutine */ int clarf_(char *side, integer *m, integer *n, complex *v,
1428 integer *incv, complex *tau, complex *c__, integer *ldc, complex *
1429 work);
1430
1431 /* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char *
1432 storev, integer *m, integer *n, integer *k, complex *v, integer *ldv,
1433 complex *t, integer *ldt, complex *c__, integer *ldc, complex *work,
1434 integer *ldwork);
1435
1436 /* Subroutine */ int clarfg_(integer *n, complex *alpha, complex *x, integer *
1437 incx, complex *tau);
1438
1439 /* Subroutine */ int clarfp_(integer *n, complex *alpha, complex *x, integer *
1440 incx, complex *tau);
1441
1442 /* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer *
1443 k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
1444
1445 /* Subroutine */ int clarfx_(char *side, integer *m, integer *n, complex *v,
1446 complex *tau, complex *c__, integer *ldc, complex *work);
1447
1448 /* Subroutine */ int clargv_(integer *n, complex *x, integer *incx, complex *
1449 y, integer *incy, real *c__, integer *incc);
1450
1451 /* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n,
1452 complex *x);
1453
1454 /* Subroutine */ int clarrv_(integer *n, real *vl, real *vu, real *d__, real *
1455 l, real *pivmin, integer *isplit, integer *m, integer *dol, integer *
1456 dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr,
1457 real *wgap, integer *iblock, integer *indexw, real *gers, complex *
1458 z__, integer *ldz, integer *isuppz, real *work, integer *iwork,
1459 integer *info);
1460
1461 /* Subroutine */ int clarscl2_(integer *m, integer *n, real *d__, complex *x,
1462 integer *ldx);
1463
1464 /* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn,
1465 complex *r__);
1466
1467 /* Subroutine */ int clartv_(integer *n, complex *x, integer *incx, complex *
1468 y, integer *incy, real *c__, complex *s, integer *incc);
1469
1470 /* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l,
1471 complex *v, integer *incv, complex *tau, complex *c__, integer *ldc,
1472 complex *work);
1473
1474 /* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char *
1475 storev, integer *m, integer *n, integer *k, integer *l, complex *v,
1476 integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc,
1477 complex *work, integer *ldwork);
1478
1479 /* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer *
1480 k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
1481
1482 /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real *
1483 cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda,
1484 integer *info);
1485
1486 /* Subroutine */ int clascl2_(integer *m, integer *n, real *d__, complex *x,
1487 integer *ldx);
1488
1489 /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex *
1490 alpha, complex *beta, complex *a, integer *lda);
1491
1492 /* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m,
1493 integer *n, real *c__, real *s, complex *a, integer *lda);
1494
1495 /* Subroutine */ int classq_(integer *n, complex *x, integer *incx, real *
1496 scale, real *sumsq);
1497
1498 /* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer *
1499 k1, integer *k2, integer *ipiv, integer *incx);
1500
1501 /* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb,
1502 complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
1503 integer *info);
1504
1505 /* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char *
1506 normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *
1507 x, real *scale, real *cnorm, integer *info);
1508
1509 /* Subroutine */ int clatdf_(integer *ijob, integer *n, complex *z__, integer
1510 *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer
1511 *jpiv);
1512
1513 /* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char *
1514 normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm,
1515 integer *info);
1516
1517 /* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, complex *a,
1518 integer *lda, real *e, complex *tau, complex *w, integer *ldw);
1519
1520 /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char *
1521 normin, integer *n, complex *a, integer *lda, complex *x, real *scale,
1522 real *cnorm, integer *info);
1523
1524 /* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, complex *a,
1525 integer *lda, complex *tau, complex *work);
1526
1527 /* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v,
1528 integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc,
1529 complex *work);
1530
1531 /* Subroutine */ int clauu2_(char *uplo, integer *n, complex *a, integer *lda,
1532 integer *info);
1533
1534 /* Subroutine */ int clauum_(char *uplo, integer *n, complex *a, integer *lda,
1535 integer *info);
1536
1537 /* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab,
1538 integer *ldab, real *anorm, real *rcond, complex *work, real *rwork,
1539 integer *info);
1540
1541 /* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab,
1542 integer *ldab, real *s, real *scond, real *amax, integer *info);
1543
1544 /* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer *
1545 nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb,
1546 complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *
1547 berr, complex *work, real *rwork, integer *info);
1548
1549 /* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab,
1550 integer *ldab, integer *info);
1551
1552 /* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer *
1553 nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
1554 info);
1555
1556 /* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
1557 integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
1558 ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x,
1559 integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
1560 real *rwork, integer *info);
1561
1562 /* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab,
1563 integer *ldab, integer *info);
1564
1565 /* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab,
1566 integer *ldab, integer *info);
1567
1568 /* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer *
1569 nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
1570 info);
1571
1572 /* Subroutine */ int cpftrf_(char *transr, char *uplo, integer *n, complex *a,
1573 integer *info);
1574
1575 /* Subroutine */ int cpftri_(char *transr, char *uplo, integer *n, complex *a,
1576 integer *info);
1577
1578 /* Subroutine */ int cpftrs_(char *transr, char *uplo, integer *n, integer *
1579 nrhs, complex *a, complex *b, integer *ldb, integer *info);
1580
1581 /* Subroutine */ int cpocon_(char *uplo, integer *n, complex *a, integer *lda,
1582 real *anorm, real *rcond, complex *work, real *rwork, integer *info);
1583
1584 /* Subroutine */ int cpoequ_(integer *n, complex *a, integer *lda, real *s,
1585 real *scond, real *amax, integer *info);
1586
1587 /* Subroutine */ int cpoequb_(integer *n, complex *a, integer *lda, real *s,
1588 real *scond, real *amax, integer *info);
1589
1590 /* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, complex *
1591 a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb,
1592 complex *x, integer *ldx, real *ferr, real *berr, complex *work,
1593 real *rwork, integer *info);
1594
1595 /* Subroutine */ int cporfsx_(char *uplo, char *equed, integer *n, integer *
1596 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, real *s,
1597 complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real
1598 *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *
1599 err_bnds_comp__, integer *nparams, real *params, complex *work, real *
1600 rwork, integer *info);
1601
1602 /* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, complex *a,
1603 integer *lda, complex *b, integer *ldb, integer *info);
1604
1605 /* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer *
1606 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
1607 equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
1608 real *rcond, real *ferr, real *berr, complex *work, real *rwork,
1609 integer *info);
1610
1611 /* Subroutine */ int cposvxx_(char *fact, char *uplo, integer *n, integer *
1612 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
1613 equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
1614 real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real *
1615 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
1616 params, complex *work, real *rwork, integer *info);
1617
1618 /* Subroutine */ int cpotf2_(char *uplo, integer *n, complex *a, integer *lda,
1619 integer *info);
1620
1621 /* Subroutine */ int cpotrf_(char *uplo, integer *n, complex *a, integer *lda,
1622 integer *info);
1623
1624 /* Subroutine */ int cpotri_(char *uplo, integer *n, complex *a, integer *lda,
1625 integer *info);
1626
1627 /* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *
1628 a, integer *lda, complex *b, integer *ldb, integer *info);
1629
1630 /* Subroutine */ int cppcon_(char *uplo, integer *n, complex *ap, real *anorm,
1631 real *rcond, complex *work, real *rwork, integer *info);
1632
1633 /* Subroutine */ int cppequ_(char *uplo, integer *n, complex *ap, real *s,
1634 real *scond, real *amax, integer *info);
1635
1636 /* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *
1637 ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx,
1638 real *ferr, real *berr, complex *work, real *rwork, integer *info);
1639
1640 /* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, complex *
1641 ap, complex *b, integer *ldb, integer *info);
1642
1643 /* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer *
1644 nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b,
1645 integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real
1646 *berr, complex *work, real *rwork, integer *info);
1647
1648 /* Subroutine */ int cpptrf_(char *uplo, integer *n, complex *ap, integer *
1649 info);
1650
1651 /* Subroutine */ int cpptri_(char *uplo, integer *n, complex *ap, integer *
1652 info);
1653
1654 /* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *
1655 ap, complex *b, integer *ldb, integer *info);
1656
1657 /* Subroutine */ int cpstf2_(char *uplo, integer *n, complex *a, integer *lda,
1658 integer *piv, integer *rank, real *tol, real *work, integer *info);
1659
1660 /* Subroutine */ int cpstrf_(char *uplo, integer *n, complex *a, integer *lda,
1661 integer *piv, integer *rank, real *tol, real *work, integer *info);
1662
1663 /* Subroutine */ int cptcon_(integer *n, real *d__, complex *e, real *anorm,
1664 real *rcond, real *rwork, integer *info);
1665
1666 /* Subroutine */ int cpteqr_(char *compz, integer *n, real *d__, real *e,
1667 complex *z__, integer *ldz, real *work, integer *info);
1668
1669 /* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__,
1670 complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
1671 *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1672 integer *info);
1673
1674 /* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, complex *e,
1675 complex *b, integer *ldb, integer *info);
1676
1677 /* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
1678 complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
1679 *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
1680 real *rwork, integer *info);
1681
1682 /* Subroutine */ int cpttrf_(integer *n, real *d__, complex *e, integer *info);
1683
1684 /* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__,
1685 complex *e, complex *b, integer *ldb, integer *info);
1686
1687 /* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *
1688 d__, complex *e, complex *b, integer *ldb);
1689
1690 /* Subroutine */ int crot_(integer *n, complex *cx, integer *incx, complex *
1691 cy, integer *incy, real *c__, complex *s);
1692
1693 /* Subroutine */ int cspcon_(char *uplo, integer *n, complex *ap, integer *
1694 ipiv, real *anorm, real *rcond, complex *work, integer *info);
1695
1696 /* Subroutine */ int cspmv_(char *uplo, integer *n, complex *alpha, complex *
1697 ap, complex *x, integer *incx, complex *beta, complex *y, integer *
1698 incy);
1699
1700 /* Subroutine */ int cspr_(char *uplo, integer *n, complex *alpha, complex *x,
1701 integer *incx, complex *ap);
1702
1703 /* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, complex *
1704 ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
1705 integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1706 integer *info);
1707
1708 /* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, complex *
1709 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1710
1711 /* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer *
1712 nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
1713 ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
1714 complex *work, real *rwork, integer *info);
1715
1716 /* Subroutine */ int csptrf_(char *uplo, integer *n, complex *ap, integer *
1717 ipiv, integer *info);
1718
1719 /* Subroutine */ int csptri_(char *uplo, integer *n, complex *ap, integer *
1720 ipiv, complex *work, integer *info);
1721
1722 /* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, complex *
1723 ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1724
1725 /* Subroutine */ int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
1726
1727 /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e,
1728 complex *z__, integer *ldz, complex *work, integer *lwork, real *
1729 rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
1730 info);
1731
1732 /* Subroutine */ int cstegr_(char *jobz, char *range, integer *n, real *d__,
1733 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
1734 integer *m, real *w, complex *z__, integer *ldz, integer *isuppz,
1735 real *work, integer *lwork, integer *iwork, integer *liwork, integer *
1736 info);
1737
1738 /* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real
1739 *w, integer *iblock, integer *isplit, complex *z__, integer *ldz,
1740 real *work, integer *iwork, integer *ifail, integer *info);
1741
1742 /* Subroutine */ int cstemr_(char *jobz, char *range, integer *n, real *d__,
1743 real *e, real *vl, real *vu, integer *il, integer *iu, integer *m,
1744 real *w, complex *z__, integer *ldz, integer *nzc, integer *isuppz,
1745 logical *tryrac, real *work, integer *lwork, integer *iwork, integer *
1746 liwork, integer *info);
1747
1748 /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e,
1749 complex *z__, integer *ldz, real *work, integer *info);
1750
1751 /* Subroutine */ int csycon_(char *uplo, integer *n, complex *a, integer *lda,
1752 integer *ipiv, real *anorm, real *rcond, complex *work, integer *
1753 info);
1754
1755 /* Subroutine */ int csyequb_(char *uplo, integer *n, complex *a, integer *
1756 lda, real *s, real *scond, real *amax, complex *work, integer *info);
1757
1758 /* Subroutine */ int csymv_(char *uplo, integer *n, complex *alpha, complex *
1759 a, integer *lda, complex *x, integer *incx, complex *beta, complex *y,
1760 integer *incy);
1761
1762 /* Subroutine */ int csyr_(char *uplo, integer *n, complex *alpha, complex *x,
1763 integer *incx, complex *a, integer *lda);
1764
1765 /* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, complex *
1766 a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
1767 b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
1768 complex *work, real *rwork, integer *info);
1769
1770 /* Subroutine */ int csyrfsx_(char *uplo, char *equed, integer *n, integer *
1771 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
1772 ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
1773 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__,
1774 real *err_bnds_comp__, integer *nparams, real *params, complex *work,
1775 real *rwork, integer *info);
1776
1777 /* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, complex *a,
1778 integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
1779 integer *lwork, integer *info);
1780
1781 /* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer *
1782 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
1783 ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
1784 real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
1785 integer *info);
1786
1787 /* Subroutine */ int csysvxx_(char *fact, char *uplo, integer *n, integer *
1788 nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
1789 ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x,
1790 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
1791 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
1792 nparams, real *params, complex *work, real *rwork, integer *info);
1793
1794 /* Subroutine */ int csytf2_(char *uplo, integer *n, complex *a, integer *lda,
1795 integer *ipiv, integer *info);
1796
1797 /* Subroutine */ int csytrf_(char *uplo, integer *n, complex *a, integer *lda,
1798 integer *ipiv, complex *work, integer *lwork, integer *info);
1799
1800 /* Subroutine */ int csytri_(char *uplo, integer *n, complex *a, integer *lda,
1801 integer *ipiv, complex *work, integer *info);
1802
1803 /* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, complex *
1804 a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
1805 info);
1806
1807 /* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n,
1808 integer *kd, complex *ab, integer *ldab, real *rcond, complex *work,
1809 real *rwork, integer *info);
1810
1811 /* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n,
1812 integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
1813 integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
1814 complex *work, real *rwork, integer *info);
1815
1816 /* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n,
1817 integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
1818 integer *ldb, integer *info);
1819
1820 /* Subroutine */ int ctfsm_(char *transr, char *side, char *uplo, char *trans,
1821 char *diag, integer *m, integer *n, complex *alpha, complex *a,
1822 complex *b, integer *ldb);
1823
1824 /* Subroutine */ int ctftri_(char *transr, char *uplo, char *diag, integer *n,
1825 complex *a, integer *info);
1826
1827 /* Subroutine */ int ctfttp_(char *transr, char *uplo, integer *n, complex *
1828 arf, complex *ap, integer *info);
1829
1830 /* Subroutine */ int ctfttr_(char *transr, char *uplo, integer *n, complex *
1831 arf, complex *a, integer *lda, integer *info);
1832
1833 /* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select,
1834 integer *n, complex *s, integer *lds, complex *p, integer *ldp,
1835 complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm,
1836 integer *m, complex *work, real *rwork, integer *info);
1837
1838 /* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n,
1839 complex *a, integer *lda, complex *b, integer *ldb, complex *q,
1840 integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info);
1841
1842 /* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n,
1843 complex *a, integer *lda, complex *b, integer *ldb, complex *q,
1844 integer *ldq, complex *z__, integer *ldz, integer *ifst, integer *
1845 ilst, integer *info);
1846
1847 /* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz,
1848 logical *select, integer *n, complex *a, integer *lda, complex *b,
1849 integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
1850 complex *z__, integer *ldz, integer *m, real *pl, real *pr, real *
1851 dif, complex *work, integer *lwork, integer *iwork, integer *liwork,
1852 integer *info);
1853
1854 /* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m,
1855 integer *p, integer *n, integer *k, integer *l, complex *a, integer *
1856 lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha,
1857 real *beta, complex *u, integer *ldu, complex *v, integer *ldv,
1858 complex *q, integer *ldq, complex *work, integer *ncycle, integer *
1859 info);
1860
1861 /* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select,
1862 integer *n, complex *a, integer *lda, complex *b, integer *ldb,
1863 complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real
1864 *dif, integer *mm, integer *m, complex *work, integer *lwork, integer
1865 *iwork, integer *info);
1866
1867 /* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer *
1868 n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
1869 integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
1870 complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal,
1871 integer *info);
1872
1873 /* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer *
1874 n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
1875 integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
1876 complex *f, integer *ldf, real *scale, real *dif, complex *work,
1877 integer *lwork, integer *iwork, integer *info);
1878
1879 /* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n,
1880 complex *ap, real *rcond, complex *work, real *rwork, integer *info);
1881
1882 /* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n,
1883 integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x,
1884 integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1885 integer *info);
1886
1887 /* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, complex *ap,
1888 integer *info);
1889
1890 /* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n,
1891 integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info);
1892
1893 /* Subroutine */ int ctpttf_(char *transr, char *uplo, integer *n, complex *
1894 ap, complex *arf, integer *info);
1895
1896 /* Subroutine */ int ctpttr_(char *uplo, integer *n, complex *ap, complex *a,
1897 integer *lda, integer *info);
1898
1899 /* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n,
1900 complex *a, integer *lda, real *rcond, complex *work, real *rwork,
1901 integer *info);
1902
1903 /* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select,
1904 integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
1905 complex *vr, integer *ldvr, integer *mm, integer *m, complex *work,
1906 real *rwork, integer *info);
1907
1908 /* Subroutine */ int ctrexc_(char *compq, integer *n, complex *t, integer *
1909 ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *
1910 info);
1911
1912 /* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n,
1913 integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
1914 complex *x, integer *ldx, real *ferr, real *berr, complex *work, real
1915 *rwork, integer *info);
1916
1917 /* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer
1918 *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w,
1919 integer *m, real *s, real *sep, complex *work, integer *lwork,
1920 integer *info);
1921
1922 /* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select,
1923 integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
1924 complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *
1925 m, complex *work, integer *ldwork, real *rwork, integer *info);
1926
1927 /* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer
1928 *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
1929 complex *c__, integer *ldc, real *scale, integer *info);
1930
1931 /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a,
1932 integer *lda, integer *info);
1933
1934 /* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, complex *a,
1935 integer *lda, integer *info);
1936
1937 /* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n,
1938 integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
1939 integer *info);
1940
1941 /* Subroutine */ int ctrttf_(char *transr, char *uplo, integer *n, complex *a,
1942 integer *lda, complex *arf, integer *info);
1943
1944 /* Subroutine */ int ctrttp_(char *uplo, integer *n, complex *a, integer *lda,
1945 complex *ap, integer *info);
1946
1947 /* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
1948 complex *tau, integer *info);
1949
1950 /* Subroutine */ int ctzrzf_(integer *m, integer *n, complex *a, integer *lda,
1951 complex *tau, complex *work, integer *lwork, integer *info);
1952
1953 /* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, complex *a,
1954 integer *lda, complex *tau, complex *work, integer *info);
1955
1956 /* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, complex *a,
1957 integer *lda, complex *tau, complex *work, integer *info);
1958
1959 /* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k,
1960 complex *a, integer *lda, complex *tau, complex *work, integer *lwork,
1961 integer *info);
1962
1963 /* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, complex *
1964 a, integer *lda, complex *tau, complex *work, integer *lwork, integer
1965 *info);
1966
1967 /* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, complex *a,
1968 integer *lda, complex *tau, complex *work, integer *info);
1969
1970 /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a,
1971 integer *lda, complex *tau, complex *work, integer *lwork, integer *
1972 info);
1973
1974 /* Subroutine */ int cungql_(integer *m, integer *n, integer *k, complex *a,
1975 integer *lda, complex *tau, complex *work, integer *lwork, integer *
1976 info);
1977
1978 /* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, complex *a,
1979 integer *lda, complex *tau, complex *work, integer *lwork, integer *
1980 info);
1981
1982 /* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, complex *a,
1983 integer *lda, complex *tau, complex *work, integer *info);
1984
1985 /* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, complex *a,
1986 integer *lda, complex *tau, complex *work, integer *lwork, integer *
1987 info);
1988
1989 /* Subroutine */ int cungtr_(char *uplo, integer *n, complex *a, integer *lda,
1990 complex *tau, complex *work, integer *lwork, integer *info);
1991
1992 /* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n,
1993 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1994 integer *ldc, complex *work, integer *info);
1995
1996 /* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n,
1997 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1998 integer *ldc, complex *work, integer *info);
1999
2000 /* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m,
2001 integer *n, integer *k, complex *a, integer *lda, complex *tau,
2002 complex *c__, integer *ldc, complex *work, integer *lwork, integer *
2003 info);
2004
2005 /* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n,
2006 integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau,
2007 complex *c__, integer *ldc, complex *work, integer *lwork, integer *
2008 info);
2009
2010 /* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n,
2011 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2012 integer *ldc, complex *work, integer *info);
2013
2014 /* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n,
2015 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2016 integer *ldc, complex *work, integer *lwork, integer *info);
2017
2018 /* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n,
2019 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2020 integer *ldc, complex *work, integer *lwork, integer *info);
2021
2022 /* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n,
2023 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2024 integer *ldc, complex *work, integer *lwork, integer *info);
2025
2026 /* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n,
2027 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2028 integer *ldc, complex *work, integer *info);
2029
2030 /* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n,
2031 integer *k, integer *l, complex *a, integer *lda, complex *tau,
2032 complex *c__, integer *ldc, complex *work, integer *info);
2033
2034 /* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n,
2035 integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2036 integer *ldc, complex *work, integer *lwork, integer *info);
2037
2038 /* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n,
2039 integer *k, integer *l, complex *a, integer *lda, complex *tau,
2040 complex *c__, integer *ldc, complex *work, integer *lwork, integer *
2041 info);
2042
2043 /* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m,
2044 integer *n, complex *a, integer *lda, complex *tau, complex *c__,
2045 integer *ldc, complex *work, integer *lwork, integer *info);
2046
2047 /* Subroutine */ int cupgtr_(char *uplo, integer *n, complex *ap, complex *
2048 tau, complex *q, integer *ldq, complex *work, integer *info);
2049
2050 /* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m,
2051 integer *n, complex *ap, complex *tau, complex *c__, integer *ldc,
2052 complex *work, integer *info);
2053
2054 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
2055 d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt,
2056 integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
2057 iwork, integer *info);
2058
2059 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
2060 nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt,
2061 integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
2062 ldc, doublereal *work, integer *info);
2063
2064 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal *
2065 d__, doublereal *sep, integer *info);
2066
2067 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
2068 integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
2069 d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt,
2070 integer *ldpt, doublereal *c__, integer *ldc, doublereal *work,
2071 integer *info);
2072
2073 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
2074 doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm,
2075 doublereal *rcond, doublereal *work, integer *iwork, integer *info);
2076
2077 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
2078 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
2079 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
2080 info);
2081
2082 /* Subroutine */ int dgbequb_(integer *m, integer *n, integer *kl, integer *
2083 ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
2084 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
2085 info);
2086
2087 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer *
2088 ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
2089 integer *ldafb, integer *ipiv, doublereal *b, integer *ldb,
2090 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
2091 doublereal *work, integer *iwork, integer *info);
2092
2093 /* Subroutine */ int dgbrfsx_(char *trans, char *equed, integer *n, integer *
2094 kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
2095 doublereal *afb, integer *ldafb, integer *ipiv, doublereal *r__,
2096 doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer *
2097 ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__,
2098 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
2099 nparams, doublereal *params, doublereal *work, integer *iwork,
2100 integer *info);
2101
2102 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer *
2103 nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b,
2104 integer *ldb, integer *info);
2105
2106 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
2107 integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
2108 doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
2109 doublereal *r__, doublereal *c__, doublereal *b, integer *ldb,
2110 doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
2111 doublereal *berr, doublereal *work, integer *iwork, integer *info);
2112
2113 /* Subroutine */ int dgbsvxx_(char *fact, char *trans, integer *n, integer *
2114 kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
2115 doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
2116 doublereal *r__, doublereal *c__, doublereal *b, integer *ldb,
2117 doublereal *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw,
2118 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
2119 doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
2120 doublereal *work, integer *iwork, integer *info);
2121
2122 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
2123 doublereal *ab, integer *ldab, integer *ipiv, integer *info);
2124
2125 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
2126 doublereal *ab, integer *ldab, integer *ipiv, integer *info);
2127
2128 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer *
2129 ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv,
2130 doublereal *b, integer *ldb, integer *info);
2131
2132 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo,
2133 integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
2134 ldv, integer *info);
2135
2136 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer *
2137 lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
2138
2139 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
2140 lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
2141 taup, doublereal *work, integer *info);
2142
2143 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer *
2144 lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
2145 taup, doublereal *work, integer *lwork, integer *info);
2146
2147 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer *
2148 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
2149 iwork, integer *info);
2150
2151 /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer *
2152 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
2153 *colcnd, doublereal *amax, integer *info);
2154
2155 /* Subroutine */ int dgeequb_(integer *m, integer *n, doublereal *a, integer *
2156 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
2157 *colcnd, doublereal *amax, integer *info);
2158
2159 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n,
2160 doublereal *a, integer *lda, integer *sdim, doublereal *wr,
2161 doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
2162 integer *lwork, logical *bwork, integer *info);
2163
2164 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
2165 sense, integer *n, doublereal *a, integer *lda, integer *sdim,
2166 doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
2167 doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
2168 lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
2169
2170 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
2171 a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl,
2172 integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work,
2173 integer *lwork, integer *info);
2174
2175 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
2176 sense, integer *n, doublereal *a, integer *lda, doublereal *wr,
2177 doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
2178 integer *ldvr, integer *ilo, integer *ihi, doublereal *scale,
2179 doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal
2180 *work, integer *lwork, integer *iwork, integer *info);
2181
2182 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n,
2183 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
2184 alphar, doublereal *alphai, doublereal *beta, doublereal *vsl,
2185 integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work,
2186 integer *lwork, integer *info);
2187
2188 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
2189 a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
2190 doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
2191 doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
2192 integer *info);
2193
2194 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi,
2195 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
2196 integer *info);
2197
2198 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi,
2199 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
2200 integer *lwork, integer *info);
2201
2202 /* Subroutine */ int dgejsv_(char *joba, char *jobu, char *jobv, char *jobr,
2203 char *jobt, char *jobp, integer *m, integer *n, doublereal *a,
2204 integer *lda, doublereal *sva, doublereal *u, integer *ldu,
2205 doublereal *v, integer *ldv, doublereal *work, integer *lwork,
2206 integer *iwork, integer *info);
2207
2208 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
2209 lda, doublereal *tau, doublereal *work, integer *info);
2210
2211 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
2212 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2213
2214 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
2215 nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2216 doublereal *work, integer *lwork, integer *info);
2217
2218 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs,
2219 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
2220 s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
2221 integer *iwork, integer *info);
2222
2223 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs,
2224 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
2225 s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
2226 integer *info);
2227
2228 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs,
2229 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2230 jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
2231 info);
2232
2233 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs,
2234 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2235 jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
2236 lwork, integer *info);
2237
2238 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer *
2239 lda, doublereal *tau, doublereal *work, integer *info);
2240
2241 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
2242 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2243
2244 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
2245 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
2246 integer *info);
2247
2248 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
2249 lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
2250
2251 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
2252 lda, doublereal *tau, doublereal *work, integer *info);
2253
2254 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
2255 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2256
2257 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs,
2258 doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
2259 ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
2260 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
2261 integer *info);
2262
2263 /* Subroutine */ int dgerfsx_(char *trans, char *equed, integer *n, integer *
2264 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2265 integer *ipiv, doublereal *r__, doublereal *c__, doublereal *b,
2266 integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
2267 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
2268 doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
2269 doublereal *work, integer *iwork, integer *info);
2270
2271 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer *
2272 lda, doublereal *tau, doublereal *work, integer *info);
2273
2274 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer *
2275 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2276
2277 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda,
2278 doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
2279
2280 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
2281 a, integer *lda, doublereal *s, doublereal *u, integer *ldu,
2282 doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
2283 integer *iwork, integer *info);
2284
2285 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer
2286 *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
2287
2288 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
2289 doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
2290 ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
2291 integer *info);
2292
2293 /* Subroutine */ int dgesvj_(char *joba, char *jobu, char *jobv, integer *m,
2294 integer *n, doublereal *a, integer *lda, doublereal *sva, integer *mv,
2295 doublereal *v, integer *ldv, doublereal *work, integer *lwork,
2296 integer *info);
2297
2298 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer *
2299 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2300 integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
2301 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2302 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
2303 iwork, integer *info);
2304
2305 /* Subroutine */ int dgesvxx_(char *fact, char *trans, integer *n, integer *
2306 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2307 integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
2308 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2309 rcond, doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__,
2310 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
2311 nparams, doublereal *params, doublereal *work, integer *iwork,
2312 integer *info);
2313
2314 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer
2315 *ipiv, integer *jpiv, integer *info);
2316
2317 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer *
2318 lda, integer *ipiv, integer *info);
2319
2320 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
2321 lda, integer *ipiv, integer *info);
2322
2323 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer
2324 *ipiv, doublereal *work, integer *lwork, integer *info);
2325
2326 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs,
2327 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
2328 ldb, integer *info);
2329
2330 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo,
2331 integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
2332 doublereal *v, integer *ldv, integer *info);
2333
2334 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer *
2335 lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi,
2336 doublereal *lscale, doublereal *rscale, doublereal *work, integer *
2337 info);
2338
2339 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
2340 selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
2341 integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
2342 doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
2343 integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,
2344 integer *info);
2345
2346 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
2347 selctg, char *sense, integer *n, doublereal *a, integer *lda,
2348 doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
2349 doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
2350 doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
2351 rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
2352 liwork, logical *bwork, integer *info);
2353
2354 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
2355 a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
2356 doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
2357 doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
2358 integer *info);
2359
2360 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
2361 sense, integer *n, doublereal *a, integer *lda, doublereal *b,
2362 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
2363 beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
2364 integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
2365 doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
2366 rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
2367 bwork, integer *info);
2368
2369 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal *
2370 a, integer *lda, doublereal *b, integer *ldb, doublereal *d__,
2371 doublereal *x, doublereal *y, doublereal *work, integer *lwork,
2372 integer *info);
2373
2374 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer *
2375 ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b,
2376 integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
2377 ldz, integer *info);
2378
2379 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal *
2380 a, integer *lda, doublereal *b, integer *ldb, doublereal *c__,
2381 doublereal *d__, doublereal *x, doublereal *work, integer *lwork,
2382 integer *info);
2383
2384 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal *
2385 a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
2386 doublereal *taub, doublereal *work, integer *lwork, integer *info);
2387
2388 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal *
2389 a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
2390 doublereal *taub, doublereal *work, integer *lwork, integer *info);
2391
2392 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
2393 integer *n, integer *p, integer *k, integer *l, doublereal *a,
2394 integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
2395 doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer
2396 *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork,
2397 integer *info);
2398
2399 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
2400 integer *p, integer *n, doublereal *a, integer *lda, doublereal *b,
2401 integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer
2402 *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv,
2403 doublereal *q, integer *ldq, integer *iwork, doublereal *tau,
2404 doublereal *work, integer *info);
2405
2406 /* Subroutine */ int dgsvj0_(char *jobv, integer *m, integer *n, doublereal *
2407 a, integer *lda, doublereal *d__, doublereal *sva, integer *mv,
2408 doublereal *v, integer *ldv, doublereal *eps, doublereal *sfmin,
2409 doublereal *tol, integer *nsweep, doublereal *work, integer *lwork,
2410 integer *info);
2411
2412 /* Subroutine */ int dgsvj1_(char *jobv, integer *m, integer *n, integer *n1,
2413 doublereal *a, integer *lda, doublereal *d__, doublereal *sva,
2414 integer *mv, doublereal *v, integer *ldv, doublereal *eps, doublereal
2415 *sfmin, doublereal *tol, integer *nsweep, doublereal *work, integer *
2416 lwork, integer *info);
2417
2418 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl,
2419 doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv,
2420 doublereal *anorm, doublereal *rcond, doublereal *work, integer *
2421 iwork, integer *info);
2422
2423 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs,
2424 doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf,
2425 doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
2426 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2427 ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
2428 info);
2429
2430 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl,
2431 doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer
2432 *info);
2433
2434 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer *
2435 nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
2436 dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
2437 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2438 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
2439 iwork, integer *info);
2440
2441 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__,
2442 doublereal *du, doublereal *du2, integer *ipiv, integer *info);
2443
2444 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs,
2445 doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
2446 integer *ipiv, doublereal *b, integer *ldb, integer *info);
2447
2448 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs,
2449 doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
2450 integer *ipiv, doublereal *b, integer *ldb);
2451
2452 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n,
2453 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2454 *t, integer *ldt, doublereal *alphar, doublereal *alphai, doublereal *
2455 beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
2456 doublereal *work, integer *lwork, integer *info);
2457
2458 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
2459 select, integer *n, doublereal *h__, integer *ldh, doublereal *wr,
2460 doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
2461 integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
2462 ifaill, integer *ifailr, integer *info);
2463
2464 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
2465 integer *ihi, doublereal *h__, integer *ldh, doublereal *wr,
2466 doublereal *wi, doublereal *z__, integer *ldz, doublereal *work,
2467 integer *lwork, integer *info);
2468
2469 logical disnan_(doublereal *din);
2470
2471 /* Subroutine */ int dla_gbamv__(integer *trans, integer *m, integer *n,
2472 integer *kl, integer *ku, doublereal *alpha, doublereal *ab, integer *
2473 ldab, doublereal *x, integer *incx, doublereal *beta, doublereal *y,
2474 integer *incy);
2475
2476 doublereal dla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku,
2477 doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
2478 integer *ipiv, integer *cmode, doublereal *c__, integer *info,
2479 doublereal *work, integer *iwork, ftnlen trans_len);
2480
2481 /* Subroutine */ int dla_gbrfsx_extended__(integer *prec_type__, integer *
2482 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
2483 doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
2484 integer *ipiv, logical *colequ, doublereal *c__, doublereal *b,
2485 integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__,
2486 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__,
2487 doublereal *res, doublereal *ayb, doublereal *dy, doublereal *
2488 y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh,
2489 doublereal *dz_ub__, logical *ignore_cwise__, integer *info);
2490
2491 doublereal dla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
2492 ncols, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb);
2493
2494 /* Subroutine */ int dla_geamv__(integer *trans, integer *m, integer *n,
2495 doublereal *alpha, doublereal *a, integer *lda, doublereal *x,
2496 integer *incx, doublereal *beta, doublereal *y, integer *incy);
2497
2498 doublereal dla_gercond__(char *trans, integer *n, doublereal *a, integer *lda,
2499 doublereal *af, integer *ldaf, integer *ipiv, integer *cmode,
2500 doublereal *c__, integer *info, doublereal *work, integer *iwork,
2501 ftnlen trans_len);
2502
2503 /* Subroutine */ int dla_gerfsx_extended__(integer *prec_type__, integer *
2504 trans_type__, integer *n, integer *nrhs, doublereal *a, integer *lda,
2505 doublereal *af, integer *ldaf, integer *ipiv, logical *colequ,
2506 doublereal *c__, doublereal *b, integer *ldb, doublereal *y, integer *
2507 ldy, doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__,
2508 doublereal *errs_c__, doublereal *res, doublereal *ayb, doublereal *
2509 dy, doublereal *y_tail__, doublereal *rcond, integer *ithresh,
2510 doublereal *rthresh, doublereal *dz_ub__, logical *ignore_cwise__,
2511 integer *info);
2512
2513 /* Subroutine */ int dla_lin_berr__(integer *n, integer *nz, integer *nrhs,
2514 doublereal *res, doublereal *ayb, doublereal *berr);
2515
2516 doublereal dla_porcond__(char *uplo, integer *n, doublereal *a, integer *lda,
2517 doublereal *af, integer *ldaf, integer *cmode, doublereal *c__,
2518 integer *info, doublereal *work, integer *iwork, ftnlen uplo_len);
2519
2520 /* Subroutine */ int dla_porfsx_extended__(integer *prec_type__, char *uplo,
2521 integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *
2522 af, integer *ldaf, logical *colequ, doublereal *c__, doublereal *b,
2523 integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__,
2524 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__,
2525 doublereal *res, doublereal *ayb, doublereal *dy, doublereal *
2526 y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh,
2527 doublereal *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen
2528 uplo_len);
2529
2530 doublereal dla_porpvgrw__(char *uplo, integer *ncols, doublereal *a, integer *
2531 lda, doublereal *af, integer *ldaf, doublereal *work, ftnlen uplo_len);
2532
2533 doublereal dla_rpvgrw__(integer *n, integer *ncols, doublereal *a, integer *
2534 lda, doublereal *af, integer *ldaf);
2535
2536 /* Subroutine */ int dla_syamv__(integer *uplo, integer *n, doublereal *alpha,
2537 doublereal *a, integer *lda, doublereal *x, integer *incx,
2538 doublereal *beta, doublereal *y, integer *incy);
2539
2540 doublereal dla_syrcond__(char *uplo, integer *n, doublereal *a, integer *lda,
2541 doublereal *af, integer *ldaf, integer *ipiv, integer *cmode,
2542 doublereal *c__, integer *info, doublereal *work, integer *iwork,
2543 ftnlen uplo_len);
2544
2545 /* Subroutine */ int dla_syrfsx_extended__(integer *prec_type__, char *uplo,
2546 integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *
2547 af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__,
2548 doublereal *b, integer *ldb, doublereal *y, integer *ldy, doublereal *
2549 berr_out__, integer *n_norms__, doublereal *errs_n__, doublereal *
2550 errs_c__, doublereal *res, doublereal *ayb, doublereal *dy,
2551 doublereal *y_tail__, doublereal *rcond, integer *ithresh, doublereal
2552 *rthresh, doublereal *dz_ub__, logical *ignore_cwise__, integer *info,
2553 ftnlen uplo_len);
2554
2555 doublereal dla_syrpvgrw__(char *uplo, integer *n, integer *info, doublereal *
2556 a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv,
2557 doublereal *work, ftnlen uplo_len);
2558
2559 /* Subroutine */ int dla_wwaddw__(integer *n, doublereal *x, doublereal *y,
2560 doublereal *w);
2561
2562 /* Subroutine */ int dlabad_(doublereal *small, doublereal *large);
2563
2564 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
2565 a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq,
2566 doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer
2567 *ldy);
2568
2569 /* Subroutine */ int dlacn2_(integer *n, doublereal *v, doublereal *x,
2570 integer *isgn, doublereal *est, integer *kase, integer *isave);
2571
2572 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x,
2573 integer *isgn, doublereal *est, integer *kase);
2574
2575 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
2576 a, integer *lda, doublereal *b, integer *ldb);
2577
2578 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
2579 doublereal *d__, doublereal *p, doublereal *q);
2580
2581 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__,
2582 doublereal *rt1, doublereal *rt2);
2583
2584 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n,
2585 integer *mmax, integer *minp, integer *nbmin, doublereal *abstol,
2586 doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
2587 e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__,
2588 integer *mout, integer *nab, doublereal *work, integer *iwork,
2589 integer *info);
2590
2591 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n,
2592 doublereal *d__, doublereal *e, doublereal *q, integer *ldq,
2593 doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork,
2594 integer *info);
2595
2596 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q,
2597 integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt,
2598 doublereal *work, integer *iwork, integer *info);
2599
2600 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
2601 d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho,
2602 doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2,
2603 integer *indx, integer *indxc, integer *indxp, integer *coltyp,
2604 integer *info);
2605
2606 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
2607 d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
2608 doublereal *q2, integer *indx, integer *ctot, doublereal *w,
2609 doublereal *s, integer *info);
2610
2611 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__,
2612 doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
2613 integer *info);
2614
2615 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__,
2616 doublereal *delta, doublereal *rho, doublereal *dlam);
2617
2618 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal *
2619 rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
2620 tau, integer *info);
2621
2622 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz,
2623 integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
2624 doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer
2625 *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
2626 perm, integer *givptr, integer *givcol, doublereal *givnum,
2627 doublereal *work, integer *iwork, integer *info);
2628
2629 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer
2630 *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq,
2631 doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
2632 doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer
2633 *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer
2634 *indx, integer *info);
2635
2636 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop,
2637 integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
2638 rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds,
2639 integer *info);
2640
2641 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl,
2642 integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
2643 integer *givcol, doublereal *givnum, doublereal *q, integer *qptr,
2644 doublereal *z__, doublereal *ztemp, integer *info);
2645
2646 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n,
2647 doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi,
2648 doublereal *vr, doublereal *vi, doublereal *b, integer *ldb,
2649 doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
2650 bignum, integer *info);
2651
2652 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__,
2653 doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
2654
2655 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t,
2656 integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1,
2657 integer *n2, doublereal *work, integer *info);
2658
2659 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b,
2660 integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
2661 scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
2662
2663 /* Subroutine */ int dlag2s_(integer *m, integer *n, doublereal *a, integer *
2664 lda, real *sa, integer *ldsa, integer *info);
2665
2666 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2,
2667 doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3,
2668 doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv,
2669 doublereal *csq, doublereal *snq);
2670
2671 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda,
2672 doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__,
2673 integer *in, integer *info);
2674
2675 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs,
2676 doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du,
2677 doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer
2678 *ldb);
2679
2680 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a,
2681 doublereal *b, doublereal *c__, doublereal *d__, integer *in,
2682 doublereal *y, doublereal *tol, integer *info);
2683
2684 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b,
2685 integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
2686 beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
2687 snr);
2688
2689 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n,
2690 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2691 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
2692 integer *ldz, integer *info);
2693
2694 /* Subroutine */ int dlahr2_(integer *n, integer *k, integer *nb, doublereal *
2695 a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
2696 doublereal *y, integer *ldy);
2697
2698 /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
2699 a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
2700 doublereal *y, integer *ldy);
2701
2702 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x,
2703 doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
2704 sestpr, doublereal *s, doublereal *c__);
2705
2706 logical dlaisnan_(doublereal *din1, doublereal *din2);
2707
2708 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw,
2709 doublereal *smin, doublereal *ca, doublereal *a, integer *lda,
2710 doublereal *d1, doublereal *d2, doublereal *b, integer *ldb,
2711 doublereal *wr, doublereal *wi, doublereal *x, integer *ldx,
2712 doublereal *scale, doublereal *xnorm, integer *info);
2713
2714 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr,
2715 integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal
2716 *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol,
2717 integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
2718 poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
2719 k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
2720
2721 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n,
2722 integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
2723 ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k,
2724 doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
2725 poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
2726 perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
2727 work, integer *iwork, integer *info);
2728
2729 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer
2730 *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb,
2731 doublereal *rcond, integer *rank, doublereal *work, integer *iwork,
2732 integer *info);
2733
2734 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer
2735 *dtrd1, integer *dtrd2, integer *index);
2736
2737 integer dlaneg_(integer *n, doublereal *d__, doublereal *lld, doublereal *
2738 sigma, doublereal *pivmin, integer *r__);
2739
2740 doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku,
2741 doublereal *ab, integer *ldab, doublereal *work);
2742
2743 doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
2744 *lda, doublereal *work);
2745
2746 doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__,
2747 doublereal *du);
2748
2749 doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda,
2750 doublereal *work);
2751
2752 doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal
2753 *ab, integer *ldab, doublereal *work);
2754
2755 doublereal dlansf_(char *norm, char *transr, char *uplo, integer *n,
2756 doublereal *a, doublereal *work);
2757
2758 doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap,
2759 doublereal *work);
2760
2761 doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e);
2762
2763 doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer
2764 *lda, doublereal *work);
2765
2766 doublereal dlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
2767 doublereal *ab, integer *ldab, doublereal *work);
2768
2769 doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal
2770 *ap, doublereal *work);
2771
2772 doublereal dlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
2773 doublereal *a, integer *lda, doublereal *work);
2774
2775 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__,
2776 doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
2777 doublereal *rt2i, doublereal *cs, doublereal *sn);
2778
2779 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx,
2780 doublereal *y, integer *incy, doublereal *ssmin);
2781
2782 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n,
2783 doublereal *x, integer *ldx, integer *k);
2784
2785 doublereal dlapy2_(doublereal *x, doublereal *y);
2786
2787 doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
2788
2789 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
2790 doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
2791 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
2792
2793 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer *
2794 lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
2795 *colcnd, doublereal *amax, char *equed);
2796
2797 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset,
2798 doublereal *a, integer *lda, integer *jpvt, doublereal *tau,
2799 doublereal *vn1, doublereal *vn2, doublereal *work);
2800
2801 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer
2802 *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt,
2803 doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv,
2804 doublereal *f, integer *ldf);
2805
2806 /* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, integer *n,
2807 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2808 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
2809 integer *ldz, doublereal *work, integer *lwork, integer *info);
2810
2811 /* Subroutine */ int dlaqr1_(integer *n, doublereal *h__, integer *ldh,
2812 doublereal *sr1, doublereal *si1, doublereal *sr2, doublereal *si2,
2813 doublereal *v);
2814
2815 /* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, integer *n,
2816 integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
2817 ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz,
2818 integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
2819 v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
2820 nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
2821
2822 /* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, integer *n,
2823 integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
2824 ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz,
2825 integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
2826 v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
2827 nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
2828
2829 /* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, integer *n,
2830 integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2831 *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
2832 integer *ldz, doublereal *work, integer *lwork, integer *info);
2833
2834 /* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, integer *kacc22,
2835 integer *n, integer *ktop, integer *kbot, integer *nshfts, doublereal
2836 *sr, doublereal *si, doublereal *h__, integer *ldh, integer *iloz,
2837 integer *ihiz, doublereal *z__, integer *ldz, doublereal *v, integer *
2838 ldv, doublereal *u, integer *ldu, integer *nv, doublereal *wv,
2839 integer *ldwv, integer *nh, doublereal *wh, integer *ldwh);
2840
2841 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
2842 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
2843 char *equed);
2844
2845 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap,
2846 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
2847
2848 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
2849 lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
2850
2851 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n,
2852 doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal
2853 *scale, doublereal *x, doublereal *work, integer *info);
2854
2855 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal
2856 *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
2857 lld, doublereal *pivmin, doublereal *gaptol, doublereal *z__, logical
2858 *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma,
2859 integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid,
2860 doublereal *rqcorr, doublereal *work);
2861
2862 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y,
2863 doublereal *z__, integer *incx, doublereal *c__, doublereal *s,
2864 integer *incc);
2865
2866 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v,
2867 integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
2868 doublereal *work);
2869
2870 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
2871 storev, integer *m, integer *n, integer *k, doublereal *v, integer *
2872 ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc,
2873 doublereal *work, integer *ldwork);
2874
2875 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x,
2876 integer *incx, doublereal *tau);
2877
2878 /* Subroutine */ int dlarfp_(integer *n, doublereal *alpha, doublereal *x,
2879 integer *incx, doublereal *tau);
2880
2881 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
2882 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
2883 integer *ldt);
2884
2885 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal *
2886 v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
2887
2888 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx,
2889 doublereal *y, integer *incy, doublereal *c__, integer *incc);
2890
2891 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n,
2892 doublereal *x);
2893
2894 /* Subroutine */ int dlarra_(integer *n, doublereal *d__, doublereal *e,
2895 doublereal *e2, doublereal *spltol, doublereal *tnrm, integer *nsplit,
2896 integer *isplit, integer *info);
2897
2898 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *lld,
2899 integer *ifirst, integer *ilast, doublereal *rtol1, doublereal *rtol2,
2900 integer *offset, doublereal *w, doublereal *wgap, doublereal *werr,
2901 doublereal *work, integer *iwork, doublereal *pivmin, doublereal *
2902 spdiam, integer *twist, integer *info);
2903
2904 /* Subroutine */ int dlarrc_(char *jobt, integer *n, doublereal *vl,
2905 doublereal *vu, doublereal *d__, doublereal *e, doublereal *pivmin,
2906 integer *eigcnt, integer *lcnt, integer *rcnt, integer *info);
2907
2908 /* Subroutine */ int dlarrd_(char *range, char *order, integer *n, doublereal
2909 *vl, doublereal *vu, integer *il, integer *iu, doublereal *gers,
2910 doublereal *reltol, doublereal *d__, doublereal *e, doublereal *e2,
2911 doublereal *pivmin, integer *nsplit, integer *isplit, integer *m,
2912 doublereal *w, doublereal *werr, doublereal *wl, doublereal *wu,
2913 integer *iblock, integer *indexw, doublereal *work, integer *iwork,
2914 integer *info);
2915
2916 /* Subroutine */ int dlarre_(char *range, integer *n, doublereal *vl,
2917 doublereal *vu, integer *il, integer *iu, doublereal *d__, doublereal
2918 *e, doublereal *e2, doublereal *rtol1, doublereal *rtol2, doublereal *
2919 spltol, integer *nsplit, integer *isplit, integer *m, doublereal *w,
2920 doublereal *werr, doublereal *wgap, integer *iblock, integer *indexw,
2921 doublereal *gers, doublereal *pivmin, doublereal *work, integer *
2922 iwork, integer *info);
2923
2924 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l,
2925 doublereal *ld, integer *clstrt, integer *clend, doublereal *w,
2926 doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal *
2927 clgapl, doublereal *clgapr, doublereal *pivmin, doublereal *sigma,
2928 doublereal *dplus, doublereal *lplus, doublereal *work, integer *info);
2929
2930 /* Subroutine */ int dlarrj_(integer *n, doublereal *d__, doublereal *e2,
2931 integer *ifirst, integer *ilast, doublereal *rtol, integer *offset,
2932 doublereal *w, doublereal *werr, doublereal *work, integer *iwork,
2933 doublereal *pivmin, doublereal *spdiam, integer *info);
2934
2935 /* Subroutine */ int dlarrk_(integer *n, integer *iw, doublereal *gl,
2936 doublereal *gu, doublereal *d__, doublereal *e2, doublereal *pivmin,
2937 doublereal *reltol, doublereal *w, doublereal *werr, integer *info);
2938
2939 /* Subroutine */ int dlarrr_(integer *n, doublereal *d__, doublereal *e,
2940 integer *info);
2941
2942 /* Subroutine */ int dlarrv_(integer *n, doublereal *vl, doublereal *vu,
2943 doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit,
2944 integer *m, integer *dol, integer *dou, doublereal *minrgp,
2945 doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr,
2946 doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers,
2947 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
2948 integer *iwork, integer *info);
2949
2950 /* Subroutine */ int dlarscl2_(integer *m, integer *n, doublereal *d__,
2951 doublereal *x, integer *ldx);
2952
2953 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs,
2954 doublereal *sn, doublereal *r__);
2955
2956 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx,
2957 doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer
2958 *incc);
2959
2960 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x);
2961
2962 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l,
2963 doublereal *v, integer *incv, doublereal *tau, doublereal *c__,
2964 integer *ldc, doublereal *work);
2965
2966 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
2967 storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
2968 integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
2969 ldc, doublereal *work, integer *ldwork);
2970
2971 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer *
2972 k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
2973 integer *ldt);
2974
2975 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__,
2976 doublereal *ssmin, doublereal *ssmax);
2977
2978 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku,
2979 doublereal *cfrom, doublereal *cto, integer *m, integer *n,
2980 doublereal *a, integer *lda, integer *info);
2981
2982 /* Subroutine */ int dlascl2_(integer *m, integer *n, doublereal *d__,
2983 doublereal *x, integer *ldx);
2984
2985 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__,
2986 doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
2987 ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
2988 info);
2989
2990 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre,
2991 doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u,
2992 integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
2993 iwork, doublereal *work, integer *info);
2994
2995 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer
2996 *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
2997 beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt,
2998 doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2,
2999 integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
3000 idxq, integer *coltyp, integer *info);
3001
3002 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer
3003 *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma,
3004 doublereal *u, integer *ldu, doublereal *u2, integer *ldu2,
3005 doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2,
3006 integer *idxc, integer *ctot, doublereal *z__, integer *info);
3007
3008 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__,
3009 doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
3010 sigma, doublereal *work, integer *info);
3011
3012 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__,
3013 doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
3014 work);
3015
3016 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr,
3017 integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl,
3018 doublereal *alpha, doublereal *beta, integer *idxq, integer *perm,
3019 integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
3020 integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
3021 difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s,
3022 doublereal *work, integer *iwork, integer *info);
3023
3024 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr,
3025 integer *sqre, integer *k, doublereal *d__, doublereal *z__,
3026 doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl,
3027 doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
3028 dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm,
3029 integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
3030 integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
3031
3032 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__,
3033 doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl,
3034 doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
3035 work, integer *info);
3036
3037 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n,
3038 integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer
3039 *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr,
3040 doublereal *z__, doublereal *poles, integer *givptr, integer *givcol,
3041 integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__,
3042 doublereal *s, doublereal *work, integer *iwork, integer *info);
3043
3044 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
3045 ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e,
3046 doublereal *vt, integer *ldvt, doublereal *u, integer *ldu,
3047 doublereal *c__, integer *ldc, doublereal *work, integer *info);
3048
3049 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
3050 inode, integer *ndiml, integer *ndimr, integer *msub);
3051
3052 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
3053 alpha, doublereal *beta, doublereal *a, integer *lda);
3054
3055 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e,
3056 doublereal *work, integer *info);
3057
3058 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info);
3059
3060 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__,
3061 integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
3062 doublereal *qmax, integer *nfail, integer *iter, integer *ndiv,
3063 logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2,
3064 doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *g,
3065 doublereal *tau);
3066
3067 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__,
3068 integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1,
3069 doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2,
3070 doublereal *tau, integer *ttype, doublereal *g);
3071
3072 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__,
3073 integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1,
3074 doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
3075 logical *ieee);
3076
3077 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__,
3078 integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
3079 doublereal *dn, doublereal *dnm1, doublereal *dnm2);
3080
3081 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m,
3082 integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
3083 lda);
3084
3085 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
3086 info);
3087
3088 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx,
3089 doublereal *scale, doublereal *sumsq);
3090
3091 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__,
3092 doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
3093 csr, doublereal *snl, doublereal *csl);
3094
3095 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer
3096 *k1, integer *k2, integer *ipiv, integer *incx);
3097
3098 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn,
3099 integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
3100 tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale,
3101 doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
3102
3103 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
3104 doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
3105 ldw, integer *info);
3106
3107 /* Subroutine */ int dlat2s_(char *uplo, integer *n, doublereal *a, integer *
3108 lda, real *sa, integer *ldsa, integer *info);
3109
3110 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
3111 normin, integer *n, integer *kd, doublereal *ab, integer *ldab,
3112 doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
3113
3114 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__,
3115 integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal,
3116 integer *ipiv, integer *jpiv);
3117
3118 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
3119 normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale,
3120 doublereal *cnorm, integer *info);
3121
3122 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
3123 a, integer *lda, doublereal *e, doublereal *tau, doublereal *w,
3124 integer *ldw);
3125
3126 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
3127 normin, integer *n, doublereal *a, integer *lda, doublereal *x,
3128 doublereal *scale, doublereal *cnorm, integer *info);
3129
3130 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal *
3131 a, integer *lda, doublereal *tau, doublereal *work);
3132
3133 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal *
3134 v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2,
3135 integer *ldc, doublereal *work);
3136
3137 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
3138 lda, integer *info);
3139
3140 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer *
3141 lda, integer *info);
3142
3143 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap,
3144 doublereal *tau, doublereal *q, integer *ldq, doublereal *work,
3145 integer *info);
3146
3147 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m,
3148 integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer
3149 *ldc, doublereal *work, integer *info);
3150
3151 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal *
3152 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
3153
3154 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal *
3155 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
3156
3157 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k,
3158 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
3159 integer *lwork, integer *info);
3160
3161 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi,
3162 doublereal *a, integer *lda, doublereal *tau, doublereal *work,
3163 integer *lwork, integer *info);
3164
3165 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal *
3166 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
3167
3168 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal *
3169 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
3170 integer *info);
3171
3172 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal *
3173 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
3174 integer *info);
3175
3176 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal *
3177 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
3178 integer *info);
3179
3180 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal *
3181 a, integer *lda, doublereal *tau, doublereal *work, integer *info);
3182
3183 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal *
3184 a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
3185 integer *info);
3186
3187 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
3188 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
3189
3190 /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n,
3191 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3192 c__, integer *ldc, doublereal *work, integer *info);
3193
3194 /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n,
3195 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3196 c__, integer *ldc, doublereal *work, integer *info);
3197
3198 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m,
3199 integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau,
3200 doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
3201 integer *info);
3202
3203 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n,
3204 integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
3205 tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
3206 integer *info);
3207
3208 /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n,
3209 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3210 c__, integer *ldc, doublereal *work, integer *info);
3211
3212 /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n,
3213 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3214 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3215
3216 /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n,
3217 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3218 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3219
3220 /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n,
3221 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3222 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3223
3224 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n,
3225 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3226 c__, integer *ldc, doublereal *work, integer *info);
3227
3228 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n,
3229 integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
3230 doublereal *c__, integer *ldc, doublereal *work, integer *info);
3231
3232 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n,
3233 integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3234 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3235
3236 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n,
3237 integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
3238 doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
3239 integer *info);
3240
3241 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m,
3242 integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
3243 c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3244
3245 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
3246 ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
3247 work, integer *iwork, integer *info);
3248
3249 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
3250 ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
3251 integer *info);
3252
3253 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
3254 nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
3255 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
3256 ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
3257 info);
3258
3259 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
3260 ab, integer *ldab, integer *info);
3261
3262 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer *
3263 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
3264 integer *info);
3265
3266 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
3267 integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
3268 integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
3269 ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
3270 doublereal *berr, doublereal *work, integer *iwork, integer *info);
3271
3272 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
3273 ab, integer *ldab, integer *info);
3274
3275 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
3276 ab, integer *ldab, integer *info);
3277
3278 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
3279 nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
3280 integer *info);
3281
3282 /* Subroutine */ int dpftrf_(char *transr, char *uplo, integer *n, doublereal
3283 *a, integer *info);
3284
3285 /* Subroutine */ int dpftri_(char *transr, char *uplo, integer *n, doublereal
3286 *a, integer *info);
3287
3288 /* Subroutine */ int dpftrs_(char *transr, char *uplo, integer *n, integer *
3289 nrhs, doublereal *a, doublereal *b, integer *ldb, integer *info);
3290
3291 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer *
3292 lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
3293 iwork, integer *info);
3294
3295 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda,
3296 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
3297
3298 /* Subroutine */ int dpoequb_(integer *n, doublereal *a, integer *lda,
3299 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
3300
3301 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs,
3302 doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3303 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
3304 ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
3305 info);
3306
3307 /* Subroutine */ int dporfsx_(char *uplo, char *equed, integer *n, integer *
3308 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3309 doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer *
3310 ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__,
3311 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
3312 nparams, doublereal *params, doublereal *work, integer *iwork,
3313 integer *info);
3314
3315 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal
3316 *a, integer *lda, doublereal *b, integer *ldb, integer *info);
3317
3318 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer *
3319 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3320 char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
3321 x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
3322 berr, doublereal *work, integer *iwork, integer *info);
3323
3324 /* Subroutine */ int dposvxx_(char *fact, char *uplo, integer *n, integer *
3325 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3326 char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
3327 x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, doublereal *
3328 berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
3329 err_bnds_comp__, integer *nparams, doublereal *params, doublereal *
3330 work, integer *iwork, integer *info);
3331
3332 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
3333 lda, integer *info);
3334
3335 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
3336 lda, integer *info);
3337
3338 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer *
3339 lda, integer *info);
3340
3341 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs,
3342 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
3343 info);
3344
3345 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap,
3346 doublereal *anorm, doublereal *rcond, doublereal *work, integer *
3347 iwork, integer *info);
3348
3349 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap,
3350 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
3351
3352 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs,
3353 doublereal *ap, doublereal *afp, doublereal *b, integer *ldb,
3354 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3355 doublereal *work, integer *iwork, integer *info);
3356
3357 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal
3358 *ap, doublereal *b, integer *ldb, integer *info);
3359
3360 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer *
3361 nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s,
3362 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
3363 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
3364 iwork, integer *info);
3365
3366 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
3367 info);
3368
3369 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
3370 info);
3371
3372 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs,
3373 doublereal *ap, doublereal *b, integer *ldb, integer *info);
3374
3375 /* Subroutine */ int dpstf2_(char *uplo, integer *n, doublereal *a, integer *
3376 lda, integer *piv, integer *rank, doublereal *tol, doublereal *work,
3377 integer *info);
3378
3379 /* Subroutine */ int dpstrf_(char *uplo, integer *n, doublereal *a, integer *
3380 lda, integer *piv, integer *rank, doublereal *tol, doublereal *work,
3381 integer *info);
3382
3383 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e,
3384 doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
3385
3386 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__,
3387 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3388 integer *info);
3389
3390 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__,
3391 doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer
3392 *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3393 doublereal *work, integer *info);
3394
3395 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__,
3396 doublereal *e, doublereal *b, integer *ldb, integer *info);
3397
3398 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs,
3399 doublereal *d__, doublereal *e, doublereal *df, doublereal *ef,
3400 doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
3401 rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
3402 info);
3403
3404 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e,
3405 integer *info);
3406
3407 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__,
3408 doublereal *e, doublereal *b, integer *ldb, integer *info);
3409
3410 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__,
3411 doublereal *e, doublereal *b, integer *ldb);
3412
3413 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx,
3414 integer *incx);
3415
3416 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd,
3417 doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
3418 integer *ldz, doublereal *work, integer *info);
3419
3420 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd,
3421 doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
3422 integer *ldz, doublereal *work, integer *lwork, integer *iwork,
3423 integer *liwork, integer *info);
3424
3425 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n,
3426 integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
3427 ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu,
3428 doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
3429 integer *ldz, doublereal *work, integer *iwork, integer *ifail,
3430 integer *info);
3431
3432 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka,
3433 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
3434 ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
3435
3436 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka,
3437 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
3438 ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3439 integer *info);
3440
3441 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
3442 integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
3443 ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3444 integer *lwork, integer *iwork, integer *liwork, integer *info);
3445
3446 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n,
3447 integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
3448 bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl,
3449 doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
3450 *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3451 integer *iwork, integer *ifail, integer *info);
3452
3453 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd,
3454 doublereal *ab, integer *ldab, doublereal *d__, doublereal *e,
3455 doublereal *q, integer *ldq, doublereal *work, integer *info);
3456
3457 /* Subroutine */ int dsfrk_(char *transr, char *uplo, char *trans, integer *n,
3458 integer *k, doublereal *alpha, doublereal *a, integer *lda,
3459 doublereal *beta, doublereal *c__);
3460
3461 /* Subroutine */ int dsgesv_(integer *n, integer *nrhs, doublereal *a,
3462 integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *
3463 x, integer *ldx, doublereal *work, real *swork, integer *iter,
3464 integer *info);
3465
3466 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
3467 ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer
3468 *iwork, integer *info);
3469
3470 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal *
3471 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3472 integer *info);
3473
3474 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal *
3475 ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3476 integer *lwork, integer *iwork, integer *liwork, integer *info);
3477
3478 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n,
3479 doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *
3480 iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
3481 integer *ldz, doublereal *work, integer *iwork, integer *ifail,
3482 integer *info);
3483
3484 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n,
3485 doublereal *ap, doublereal *bp, integer *info);
3486
3487 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer *
3488 n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
3489 integer *ldz, doublereal *work, integer *info);
3490
3491 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer *
3492 n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
3493 integer *ldz, doublereal *work, integer *lwork, integer *iwork,
3494 integer *liwork, integer *info);
3495
3496 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char *
3497 uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl,
3498 doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
3499 *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3500 integer *iwork, integer *ifail, integer *info);
3501
3502 /* Subroutine */ int dsposv_(char *uplo, integer *n, integer *nrhs,
3503 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
3504 x, integer *ldx, doublereal *work, real *swork, integer *iter,
3505 integer *info);
3506
3507 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs,
3508 doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
3509 integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
3510 doublereal *berr, doublereal *work, integer *iwork, integer *info);
3511
3512 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal
3513 *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
3514
3515 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer *
3516 nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
3517 integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
3518 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
3519 integer *info);
3520
3521 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap,
3522 doublereal *d__, doublereal *e, doublereal *tau, integer *info);
3523
3524 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
3525 ipiv, integer *info);
3526
3527 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
3528 ipiv, doublereal *work, integer *info);
3529
3530 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs,
3531 doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
3532 info);
3533
3534 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal
3535 *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
3536 doublereal *d__, doublereal *e, integer *m, integer *nsplit,
3537 doublereal *w, integer *iblock, integer *isplit, doublereal *work,
3538 integer *iwork, integer *info);
3539
3540 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__,
3541 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3542 integer *lwork, integer *iwork, integer *liwork, integer *info);
3543
3544 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal *
3545 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
3546 integer *iu, doublereal *abstol, integer *m, doublereal *w,
3547 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
3548 integer *lwork, integer *iwork, integer *liwork, integer *info);
3549
3550 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e,
3551 integer *m, doublereal *w, integer *iblock, integer *isplit,
3552 doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
3553 integer *ifail, integer *info);
3554
3555 /* Subroutine */ int dstemr_(char *jobz, char *range, integer *n, doublereal *
3556 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
3557 integer *iu, integer *m, doublereal *w, doublereal *z__, integer *ldz,
3558 integer *nzc, integer *isuppz, logical *tryrac, doublereal *work,
3559 integer *lwork, integer *iwork, integer *liwork, integer *info);
3560
3561 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__,
3562 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3563 integer *info);
3564
3565 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e,
3566 integer *info);
3567
3568 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__,
3569 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3570 integer *info);
3571
3572 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__,
3573 doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3574 integer *lwork, integer *iwork, integer *liwork, integer *info);
3575
3576 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal *
3577 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
3578 integer *iu, doublereal *abstol, integer *m, doublereal *w,
3579 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
3580 integer *lwork, integer *iwork, integer *liwork, integer *info);
3581
3582 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal *
3583 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
3584 integer *iu, doublereal *abstol, integer *m, doublereal *w,
3585 doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
3586 integer *ifail, integer *info);
3587
3588 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer *
3589 lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *
3590 work, integer *iwork, integer *info);
3591
3592 /* Subroutine */ int dsyequb_(char *uplo, integer *n, doublereal *a, integer *
3593 lda, doublereal *s, doublereal *scond, doublereal *amax, doublereal *
3594 work, integer *info);
3595
3596 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
3597 integer *lda, doublereal *w, doublereal *work, integer *lwork,
3598 integer *info);
3599
3600 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *
3601 a, integer *lda, doublereal *w, doublereal *work, integer *lwork,
3602 integer *iwork, integer *liwork, integer *info);
3603
3604 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n,
3605 doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
3606 il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
3607 doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
3608 integer *lwork, integer *iwork, integer *liwork, integer *info);
3609
3610 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n,
3611 doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
3612 il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
3613 doublereal *z__, integer *ldz, doublereal *work, integer *lwork,
3614 integer *iwork, integer *ifail, integer *info);
3615
3616 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n,
3617 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
3618 info);
3619
3620 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n,
3621 doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
3622 info);
3623
3624 /* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer *
3625 n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3626 doublereal *w, doublereal *work, integer *lwork, integer *info);
3627
3628 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer *
3629 n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3630 doublereal *w, doublereal *work, integer *lwork, integer *iwork,
3631 integer *liwork, integer *info);
3632
3633 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char *
3634 uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer
3635 *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu,
3636 doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
3637 integer *ldz, doublereal *work, integer *lwork, integer *iwork,
3638 integer *ifail, integer *info);
3639
3640 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs,
3641 doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
3642 ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
3643 doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
3644 integer *info);
3645
3646 /* Subroutine */ int dsyrfsx_(char *uplo, char *equed, integer *n, integer *
3647 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3648 integer *ipiv, doublereal *s, doublereal *b, integer *ldb, doublereal
3649 *x, integer *ldx, doublereal *rcond, doublereal *berr, integer *
3650 n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
3651 err_bnds_comp__, integer *nparams, doublereal *params, doublereal *
3652 work, integer *iwork, integer *info);
3653
3654 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal
3655 *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb,
3656 doublereal *work, integer *lwork, integer *info);
3657
3658 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer *
3659 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3660 integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *
3661 ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
3662 doublereal *work, integer *lwork, integer *iwork, integer *info);
3663
3664 /* Subroutine */ int dsysvxx_(char *fact, char *uplo, integer *n, integer *
3665 nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3666 integer *ipiv, char *equed, doublereal *s, doublereal *b, integer *
3667 ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *
3668 rpvgrw, doublereal *berr, integer *n_err_bnds__, doublereal *
3669 err_bnds_norm__, doublereal *err_bnds_comp__, integer *nparams,
3670 doublereal *params, doublereal *work, integer *iwork, integer *info);
3671
3672 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
3673 lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
3674
3675 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
3676 lda, integer *ipiv, integer *info);
3677
3678 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer *
3679 lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *
3680 work, integer *lwork, integer *info);
3681
3682 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
3683 lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
3684
3685 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer *
3686 lda, integer *ipiv, doublereal *work, integer *info);
3687
3688 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs,
3689 doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
3690 ldb, integer *info);
3691
3692 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n,
3693 integer *kd, doublereal *ab, integer *ldab, doublereal *rcond,
3694 doublereal *work, integer *iwork, integer *info);
3695
3696 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n,
3697 integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
3698 *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
3699 doublereal *berr, doublereal *work, integer *iwork, integer *info);
3700
3701 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n,
3702 integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
3703 *b, integer *ldb, integer *info);
3704
3705 /* Subroutine */ int dtfsm_(char *transr, char *side, char *uplo, char *trans,
3706 char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a,
3707 doublereal *b, integer *ldb);
3708
3709 /* Subroutine */ int dtftri_(char *transr, char *uplo, char *diag, integer *n,
3710 doublereal *a, integer *info);
3711
3712 /* Subroutine */ int dtfttp_(char *transr, char *uplo, integer *n, doublereal
3713 *arf, doublereal *ap, integer *info);
3714
3715 /* Subroutine */ int dtfttr_(char *transr, char *uplo, integer *n, doublereal
3716 *arf, doublereal *a, integer *lda, integer *info);
3717
3718 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select,
3719 integer *n, doublereal *s, integer *lds, doublereal *p, integer *ldp,
3720 doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer
3721 *mm, integer *m, doublereal *work, integer *info);
3722
3723 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n,
3724 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
3725 q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *
3726 n1, integer *n2, doublereal *work, integer *lwork, integer *info);
3727
3728 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n,
3729 doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
3730 q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst,
3731 integer *ilst, doublereal *work, integer *lwork, integer *info);
3732
3733 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz,
3734 logical *select, integer *n, doublereal *a, integer *lda, doublereal *
3735 b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
3736 beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
3737 integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
3738 doublereal *work, integer *lwork, integer *iwork, integer *liwork,
3739 integer *info);
3740
3741 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m,
3742 integer *p, integer *n, integer *k, integer *l, doublereal *a,
3743 integer *lda, doublereal *b, integer *ldb, doublereal *tola,
3744 doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u,
3745 integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *
3746 ldq, doublereal *work, integer *ncycle, integer *info);
3747
3748 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select,
3749 integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3750 doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
3751 doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *
3752 work, integer *lwork, integer *iwork, integer *info);
3753
3754 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
3755 n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3756 doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
3757 doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
3758 scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer
3759 *pq, integer *info);
3760
3761 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer *
3762 n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3763 doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
3764 doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
3765 scale, doublereal *dif, doublereal *work, integer *lwork, integer *
3766 iwork, integer *info);
3767
3768 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n,
3769 doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork,
3770 integer *info);
3771
3772 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n,
3773 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb,
3774 doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3775 doublereal *work, integer *iwork, integer *info);
3776
3777 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal *
3778 ap, integer *info);
3779
3780 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n,
3781 integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
3782 info);
3783
3784 /* Subroutine */ int dtpttf_(char *transr, char *uplo, integer *n, doublereal
3785 *ap, doublereal *arf, integer *info);
3786
3787 /* Subroutine */ int dtpttr_(char *uplo, integer *n, doublereal *ap,
3788 doublereal *a, integer *lda, integer *info);
3789
3790 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n,
3791 doublereal *a, integer *lda, doublereal *rcond, doublereal *work,
3792 integer *iwork, integer *info);
3793
3794 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select,
3795 integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
3796 ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m,
3797 doublereal *work, integer *info);
3798
3799 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer *
3800 ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst,
3801 doublereal *work, integer *info);
3802
3803 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n,
3804 integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
3805 ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3806 doublereal *work, integer *iwork, integer *info);
3807
3808 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer
3809 *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq,
3810 doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal
3811 *sep, doublereal *work, integer *lwork, integer *iwork, integer *
3812 liwork, integer *info);
3813
3814 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select,
3815 integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
3816 ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep,
3817 integer *mm, integer *m, doublereal *work, integer *ldwork, integer *
3818 iwork, integer *info);
3819
3820 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer
3821 *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *
3822 ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info);
3823
3824 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
3825 a, integer *lda, integer *info);
3826
3827 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
3828 a, integer *lda, integer *info);
3829
3830 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n,
3831 integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
3832 ldb, integer *info);
3833
3834 /* Subroutine */ int dtrttf_(char *transr, char *uplo, integer *n, doublereal
3835 *a, integer *lda, doublereal *arf, integer *info);
3836
3837 /* Subroutine */ int dtrttp_(char *uplo, integer *n, doublereal *a, integer *
3838 lda, doublereal *ap, integer *info);
3839
3840 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
3841 lda, doublereal *tau, integer *info);
3842
3843 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer *
3844 lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
3845
3846 doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx);
3847
3848 integer icmax1_(integer *n, complex *cx, integer *incx);
3849
3850 integer ieeeck_(integer *ispec, real *zero, real *one);
3851
3852 integer ilaclc_(integer *m, integer *n, complex *a, integer *lda);
3853
3854 integer ilaclr_(integer *m, integer *n, complex *a, integer *lda);
3855
3856 integer iladiag_(char *diag);
3857
3858 integer iladlc_(integer *m, integer *n, doublereal *a, integer *lda);
3859
3860 integer iladlr_(integer *m, integer *n, doublereal *a, integer *lda);
3861
3862 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
3863 integer *n2, integer *n3, integer *n4);
3864
3865 integer ilaprec_(char *prec);
3866
3867 integer ilaslc_(integer *m, integer *n, real *a, integer *lda);
3868
3869 integer ilaslr_(integer *m, integer *n, real *a, integer *lda);
3870
3871 integer ilatrans_(char *trans);
3872
3873 integer ilauplo_(char *uplo);
3874
3875 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__,
3876 integer *vers_patch__);
3877
3878 integer ilazlc_(integer *m, integer *n, doublecomplex *a, integer *lda);
3879
3880 integer ilazlr_(integer *m, integer *n, doublecomplex *a, integer *lda);
3881
3882 integer iparmq_(integer *ispec, char *name__, char *opts, integer *n, integer
3883 *ilo, integer *ihi, integer *lwork);
3884
3885 integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
3886
3887 logical lsamen_(integer *n, char *ca, char *cb);
3888
3889 integer smaxloc_(real *a, integer *dimm);
3890
3891 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__,
3892 real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q,
3893 integer *iq, real *work, integer *iwork, integer *info);
3894
3895 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
3896 nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *
3897 u, integer *ldu, real *c__, integer *ldc, real *work, integer *info);
3898
3899 doublereal scsum1_(integer *n, complex *cx, integer *incx);
3900
3901 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__,
3902 real *sep, integer *info);
3903
3904 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
3905 integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *
3906 e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer
3907 *ldc, real *work, integer *info);
3908
3909 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku,
3910 real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
3911 real *work, integer *iwork, integer *info);
3912
3913 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku,
3914 real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
3915 colcnd, real *amax, integer *info);
3916
3917 /* Subroutine */ int sgbequb_(integer *m, integer *n, integer *kl, integer *
3918 ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
3919 *colcnd, real *amax, integer *info);
3920
3921 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer *
3922 ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
3923 integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
3924 ferr, real *berr, real *work, integer *iwork, integer *info);
3925
3926 /* Subroutine */ int sgbrfsx_(char *trans, char *equed, integer *n, integer *
3927 kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
3928 integer *ldafb, integer *ipiv, real *r__, real *c__, real *b, integer
3929 *ldb, real *x, integer *ldx, real *rcond, real *berr, integer *
3930 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
3931 nparams, real *params, real *work, integer *iwork, integer *info);
3932
3933 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer *
3934 nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb,
3935 integer *info);
3936
3937 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl,
3938 integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
3939 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
3940 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
3941 real *berr, real *work, integer *iwork, integer *info);
3942
3943 /* Subroutine */ int sgbsvxx_(char *fact, char *trans, integer *n, integer *
3944 kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
3945 integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
3946 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *
3947 rpvgrw, real *berr, integer *n_err_bnds__, real *err_bnds_norm__,
3948 real *err_bnds_comp__, integer *nparams, real *params, real *work,
3949 integer *iwork, integer *info);
3950
3951 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
3952 real *ab, integer *ldab, integer *ipiv, integer *info);
3953
3954 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
3955 real *ab, integer *ldab, integer *ipiv, integer *info);
3956
3957 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer *
3958 ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b,
3959 integer *ldb, integer *info);
3960
3961 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo,
3962 integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer
3963 *info);
3964
3965 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda,
3966 integer *ilo, integer *ihi, real *scale, integer *info);
3967
3968 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda,
3969 real *d__, real *e, real *tauq, real *taup, real *work, integer *info);
3970
3971 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda,
3972 real *d__, real *e, real *tauq, real *taup, real *work, integer *
3973 lwork, integer *info);
3974
3975 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda,
3976 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
3977
3978 /* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda,
3979 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer
3980 *info);
3981
3982 /* Subroutine */ int sgeequb_(integer *m, integer *n, real *a, integer *lda,
3983 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer
3984 *info);
3985
3986 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n,
3987 real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs,
3988 integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
3989 info);
3990
3991 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char *
3992 sense, integer *n, real *a, integer *lda, integer *sdim, real *wr,
3993 real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
3994 work, integer *lwork, integer *iwork, integer *liwork, logical *bwork,
3995 integer *info);
3996
3997 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a,
3998 integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr,
3999 integer *ldvr, real *work, integer *lwork, integer *info);
4000
4001 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *
4002 sense, integer *n, real *a, integer *lda, real *wr, real *wi, real *
4003 vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *
4004 ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work,
4005 integer *lwork, integer *iwork, integer *info);
4006
4007 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a,
4008 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
4009 *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
4010 work, integer *lwork, integer *info);
4011
4012 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a,
4013 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
4014 *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
4015 integer *lwork, integer *info);
4016
4017 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a,
4018 integer *lda, real *tau, real *work, integer *info);
4019
4020 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a,
4021 integer *lda, real *tau, real *work, integer *lwork, integer *info);
4022
4023 /* Subroutine */ int sgejsv_(char *joba, char *jobu, char *jobv, char *jobr,
4024 char *jobt, char *jobp, integer *m, integer *n, real *a, integer *lda,
4025 real *sva, real *u, integer *ldu, real *v, integer *ldv, real *work,
4026 integer *lwork, integer *iwork, integer *info);
4027
4028 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda,
4029 real *tau, real *work, integer *info);
4030
4031 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda,
4032 real *tau, real *work, integer *lwork, integer *info);
4033
4034 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer *
4035 nrhs, real *a, integer *lda, real *b, integer *ldb, real *work,
4036 integer *lwork, integer *info);
4037
4038 /* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a,
4039 integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
4040 rank, real *work, integer *lwork, integer *iwork, integer *info);
4041
4042 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a,
4043 integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
4044 rank, real *work, integer *lwork, integer *info);
4045
4046 /* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a,
4047 integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
4048 integer *rank, real *work, integer *info);
4049
4050 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a,
4051 integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
4052 integer *rank, real *work, integer *lwork, integer *info);
4053
4054 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda,
4055 real *tau, real *work, integer *info);
4056
4057 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda,
4058 real *tau, real *work, integer *lwork, integer *info);
4059
4060 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda,
4061 integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
4062
4063 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda,
4064 integer *jpvt, real *tau, real *work, integer *info);
4065
4066 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda,
4067 real *tau, real *work, integer *info);
4068
4069 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda,
4070 real *tau, real *work, integer *lwork, integer *info);
4071
4072 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a,
4073 integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
4074 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
4075 work, integer *iwork, integer *info);
4076
4077 /* Subroutine */ int sgerfsx_(char *trans, char *equed, integer *n, integer *
4078 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
4079 real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx,
4080 real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__,
4081 real *err_bnds_comp__, integer *nparams, real *params, real *work,
4082 integer *iwork, integer *info);
4083
4084 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda,
4085 real *tau, real *work, integer *info);
4086
4087 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda,
4088 real *tau, real *work, integer *lwork, integer *info);
4089
4090 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs,
4091 integer *ipiv, integer *jpiv, real *scale);
4092
4093 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a,
4094 integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt,
4095 real *work, integer *lwork, integer *iwork, integer *info);
4096
4097 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda,
4098 integer *ipiv, real *b, integer *ldb, integer *info);
4099
4100 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
4101 real *a, integer *lda, real *s, real *u, integer *ldu, real *vt,
4102 integer *ldvt, real *work, integer *lwork, integer *info);
4103
4104 /* Subroutine */ int sgesvj_(char *joba, char *jobu, char *jobv, integer *m,
4105 integer *n, real *a, integer *lda, real *sva, integer *mv, real *v,
4106 integer *ldv, real *work, integer *lwork, integer *info);
4107
4108 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer *
4109 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
4110 char *equed, real *r__, real *c__, real *b, integer *ldb, real *x,
4111 integer *ldx, real *rcond, real *ferr, real *berr, real *work,
4112 integer *iwork, integer *info);
4113
4114 /* Subroutine */ int sgesvxx_(char *fact, char *trans, integer *n, integer *
4115 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
4116 char *equed, real *r__, real *c__, real *b, integer *ldb, real *x,
4117 integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
4118 n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
4119 nparams, real *params, real *work, integer *iwork, integer *info);
4120
4121 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv,
4122 integer *jpiv, integer *info);
4123
4124 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda,
4125 integer *ipiv, integer *info);
4126
4127 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda,
4128 integer *ipiv, integer *info);
4129
4130 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv,
4131 real *work, integer *lwork, integer *info);
4132
4133 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a,
4134 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
4135
4136 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo,
4137 integer *ihi, real *lscale, real *rscale, integer *m, real *v,
4138 integer *ldv, integer *info);
4139
4140 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda,
4141 real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real
4142 *rscale, real *work, integer *info);
4143
4144 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
4145 selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
4146 integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
4147 integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
4148 logical *bwork, integer *info);
4149
4150 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
4151 selctg, char *sense, integer *n, real *a, integer *lda, real *b,
4152 integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta,
4153 real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde,
4154 real *rcondv, real *work, integer *lwork, integer *iwork, integer *
4155 liwork, logical *bwork, integer *info);
4156
4157 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a,
4158 integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
4159 *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
4160 integer *lwork, integer *info);
4161
4162 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char *
4163 sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real
4164 *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr,
4165 integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale,
4166 real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work,
4167 integer *lwork, integer *iwork, logical *bwork, integer *info);
4168
4169 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a,
4170 integer *lda, real *b, integer *ldb, real *d__, real *x, real *y,
4171 real *work, integer *lwork, integer *info);
4172
4173 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer *
4174 ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real
4175 *q, integer *ldq, real *z__, integer *ldz, integer *info);
4176
4177 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a,
4178 integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x,
4179 real *work, integer *lwork, integer *info);
4180
4181 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a,
4182 integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
4183 work, integer *lwork, integer *info);
4184
4185 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a,
4186 integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
4187 work, integer *lwork, integer *info);
4188
4189 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
4190 integer *n, integer *p, integer *k, integer *l, real *a, integer *lda,
4191 real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
4192 ldu, real *v, integer *ldv, real *q, integer *ldq, real *work,
4193 integer *iwork, integer *info);
4194
4195 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
4196 integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb,
4197 real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu,
4198 real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
4199 tau, real *work, integer *info);
4200
4201 /* Subroutine */ int sgsvj0_(char *jobv, integer *m, integer *n, real *a,
4202 integer *lda, real *d__, real *sva, integer *mv, real *v, integer *
4203 ldv, real *eps, real *sfmin, real *tol, integer *nsweep, real *work,
4204 integer *lwork, integer *info);
4205
4206 /* Subroutine */ int sgsvj1_(char *jobv, integer *m, integer *n, integer *n1,
4207 real *a, integer *lda, real *d__, real *sva, integer *mv, real *v,
4208 integer *ldv, real *eps, real *sfmin, real *tol, integer *nsweep,
4209 real *work, integer *lwork, integer *info);
4210
4211 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__,
4212 real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real *
4213 work, integer *iwork, integer *info);
4214
4215 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl,
4216 real *d__, real *du, real *dlf, real *df, real *duf, real *du2,
4217 integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
4218 ferr, real *berr, real *work, integer *iwork, integer *info);
4219
4220 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__,
4221 real *du, real *b, integer *ldb, integer *info);
4222
4223 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer *
4224 nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf,
4225 real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *
4226 ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork,
4227 integer *info);
4228
4229 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real *
4230 du2, integer *ipiv, integer *info);
4231
4232 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl,
4233 real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb,
4234 integer *info);
4235
4236 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real
4237 *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *
4238 ldb);
4239
4240 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n,
4241 integer *ilo, integer *ihi, real *h__, integer *ldh, real *t, integer
4242 *ldt, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
4243 real *z__, integer *ldz, real *work, integer *lwork, integer *info);
4244
4245 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical *
4246 select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real
4247 *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m,
4248 real *work, integer *ifaill, integer *ifailr, integer *info);
4249
4250 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo,
4251 integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__,
4252 integer *ldz, real *work, integer *lwork, integer *info);
4253
4254 logical sisnan_(real *sin__);
4255
4256 /* Subroutine */ int sla_gbamv__(integer *trans, integer *m, integer *n,
4257 integer *kl, integer *ku, real *alpha, real *ab, integer *ldab, real *
4258 x, integer *incx, real *beta, real *y, integer *incy);
4259
4260 doublereal sla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku,
4261 real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv,
4262 integer *cmode, real *c__, integer *info, real *work, integer *iwork,
4263 ftnlen trans_len);
4264
4265 /* Subroutine */ int sla_gbrfsx_extended__(integer *prec_type__, integer *
4266 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
4267 real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv,
4268 logical *colequ, real *c__, real *b, integer *ldb, real *y, integer *
4269 ldy, real *berr_out__, integer *n_norms__, real *errs_n__, real *
4270 errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real *rcond,
4271 integer *ithresh, real *rthresh, real *dz_ub__, logical *
4272 ignore_cwise__, integer *info);
4273
4274 doublereal sla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
4275 ncols, real *ab, integer *ldab, real *afb, integer *ldafb);
4276
4277 /* Subroutine */ int sla_geamv__(integer *trans, integer *m, integer *n, real
4278 *alpha, real *a, integer *lda, real *x, integer *incx, real *beta,
4279 real *y, integer *incy);
4280
4281 doublereal sla_gercond__(char *trans, integer *n, real *a, integer *lda, real
4282 *af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer
4283 *info, real *work, integer *iwork, ftnlen trans_len);
4284
4285 /* Subroutine */ int sla_gerfsx_extended__(integer *prec_type__, integer *
4286 trans_type__, integer *n, integer *nrhs, real *a, integer *lda, real *
4287 af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, real *b,
4288 integer *ldb, real *y, integer *ldy, real *berr_out__, integer *
4289 n_norms__, real *errs_n__, real *errs_c__, real *res, real *ayb, real
4290 *dy, real *y_tail__, real *rcond, integer *ithresh, real *rthresh,
4291 real *dz_ub__, logical *ignore_cwise__, integer *info);
4292
4293 /* Subroutine */ int sla_lin_berr__(integer *n, integer *nz, integer *nrhs,
4294 real *res, real *ayb, real *berr);
4295
4296 doublereal sla_porcond__(char *uplo, integer *n, real *a, integer *lda, real *
4297 af, integer *ldaf, integer *cmode, real *c__, integer *info, real *
4298 work, integer *iwork, ftnlen uplo_len);
4299
4300 /* Subroutine */ int sla_porfsx_extended__(integer *prec_type__, char *uplo,
4301 integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *
4302 ldaf, logical *colequ, real *c__, real *b, integer *ldb, real *y,
4303 integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__,
4304 real *errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real *
4305 rcond, integer *ithresh, real *rthresh, real *dz_ub__, logical *
4306 ignore_cwise__, integer *info, ftnlen uplo_len);
4307
4308 doublereal sla_porpvgrw__(char *uplo, integer *ncols, real *a, integer *lda,
4309 real *af, integer *ldaf, real *work, ftnlen uplo_len);
4310
4311 doublereal sla_rpvgrw__(integer *n, integer *ncols, real *a, integer *lda,
4312 real *af, integer *ldaf);
4313
4314 /* Subroutine */ int sla_syamv__(integer *uplo, integer *n, real *alpha, real
4315 *a, integer *lda, real *x, integer *incx, real *beta, real *y,
4316 integer *incy);
4317
4318 doublereal sla_syrcond__(char *uplo, integer *n, real *a, integer *lda, real *
4319 af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer *
4320 info, real *work, integer *iwork, ftnlen uplo_len);
4321
4322 /* Subroutine */ int sla_syrfsx_extended__(integer *prec_type__, char *uplo,
4323 integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *
4324 ldaf, integer *ipiv, logical *colequ, real *c__, real *b, integer *
4325 ldb, real *y, integer *ldy, real *berr_out__, integer *n_norms__,
4326 real *errs_n__, real *errs_c__, real *res, real *ayb, real *dy, real *
4327 y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__,
4328 logical *ignore_cwise__, integer *info, ftnlen uplo_len);
4329
4330 doublereal sla_syrpvgrw__(char *uplo, integer *n, integer *info, real *a,
4331 integer *lda, real *af, integer *ldaf, integer *ipiv, real *work,
4332 ftnlen uplo_len);
4333
4334 /* Subroutine */ int sla_wwaddw__(integer *n, real *x, real *y, real *w);
4335
4336 /* Subroutine */ int slabad_(real *small, real *large);
4337
4338 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a,
4339 integer *lda, real *d__, real *e, real *tauq, real *taup, real *x,
4340 integer *ldx, real *y, integer *ldy);
4341
4342 /* Subroutine */ int slacn2_(integer *n, real *v, real *x, integer *isgn,
4343 real *est, integer *kase, integer *isave);
4344
4345 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn,
4346 real *est, integer *kase);
4347
4348 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a,
4349 integer *lda, real *b, integer *ldb);
4350
4351 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p,
4352 real *q);
4353
4354 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
4355
4356 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n,
4357 integer *mmax, integer *minp, integer *nbmin, real *abstol, real *
4358 reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval,
4359 real *ab, real *c__, integer *mout, integer *nab, real *work, integer
4360 *iwork, integer *info);
4361
4362 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real
4363 *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs,
4364 real *work, integer *iwork, integer *info);
4365
4366 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq,
4367 integer *indxq, real *rho, integer *cutpnt, real *work, integer *
4368 iwork, integer *info);
4369
4370 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__,
4371 real *q, integer *ldq, integer *indxq, real *rho, real *z__, real *
4372 dlamda, real *w, real *q2, integer *indx, integer *indxc, integer *
4373 indxp, integer *coltyp, integer *info);
4374
4375 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__,
4376 real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer *
4377 indx, integer *ctot, real *w, real *s, integer *info);
4378
4379 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__,
4380 real *delta, real *rho, real *dlam, integer *info);
4381
4382 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta,
4383 real *rho, real *dlam);
4384
4385 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho,
4386 real *d__, real *z__, real *finit, real *tau, integer *info);
4387
4388 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz,
4389 integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q,
4390 integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *
4391 qstore, integer *qptr, integer *prmptr, integer *perm, integer *
4392 givptr, integer *givcol, real *givnum, real *work, integer *iwork,
4393 integer *info);
4394
4395 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer
4396 *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho,
4397 integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2,
4398 real *w, integer *perm, integer *givptr, integer *givcol, real *
4399 givnum, integer *indxp, integer *indx, integer *info);
4400
4401 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop,
4402 integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda,
4403 real *w, real *s, integer *lds, integer *info);
4404
4405 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl,
4406 integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
4407 integer *givcol, real *givnum, real *q, integer *qptr, real *z__,
4408 real *ztemp, integer *info);
4409
4410 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n,
4411 real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real
4412 *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum,
4413 integer *info);
4414
4415 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real *
4416 rt2, real *cs1, real *sn1);
4417
4418 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer *
4419 ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2,
4420 real *work, integer *info);
4421
4422 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb,
4423 real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *
4424 wi);
4425
4426 /* Subroutine */ int slag2d_(integer *m, integer *n, real *sa, integer *ldsa,
4427 doublereal *a, integer *lda, integer *info);
4428
4429 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3,
4430 real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *
4431 snv, real *csq, real *snq);
4432
4433 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real
4434 *c__, real *tol, real *d__, integer *in, integer *info);
4435
4436 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real *
4437 alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *
4438 beta, real *b, integer *ldb);
4439
4440 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real
4441 *c__, real *d__, integer *in, real *y, real *tol, integer *info);
4442
4443 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb,
4444 real *alphar, real *alphai, real *beta, real *csl, real *snl, real *
4445 csr, real *snr);
4446
4447 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n,
4448 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
4449 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *
4450 info);
4451
4452 /* Subroutine */ int slahr2_(integer *n, integer *k, integer *nb, real *a,
4453 integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
4454
4455 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a,
4456 integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
4457
4458 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest,
4459 real *w, real *gamma, real *sestpr, real *s, real *c__);
4460
4461 logical slaisnan_(real *sin1, real *sin2);
4462
4463 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real *
4464 smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b,
4465 integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale,
4466 real *xnorm, integer *info);
4467
4468 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr,
4469 integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx,
4470 integer *ldbx, integer *perm, integer *givptr, integer *givcol,
4471 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
4472 difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
4473 work, integer *info);
4474
4475 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n,
4476 integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real *
4477 u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *
4478 z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol,
4479 integer *perm, real *givnum, real *c__, real *s, real *work, integer *
4480 iwork, integer *info);
4481
4482 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer
4483 *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond,
4484 integer *rank, real *work, integer *iwork, integer *info);
4485
4486 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer *
4487 strd1, integer *strd2, integer *index);
4488
4489 integer slaneg_(integer *n, real *d__, real *lld, real *sigma, real *pivmin,
4490 integer *r__);
4491
4492 doublereal slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab,
4493 integer *ldab, real *work);
4494
4495 doublereal slange_(char *norm, integer *m, integer *n, real *a, integer *lda,
4496 real *work);
4497
4498 doublereal slangt_(char *norm, integer *n, real *dl, real *d__, real *du);
4499
4500 doublereal slanhs_(char *norm, integer *n, real *a, integer *lda, real *work);
4501
4502 doublereal slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab,
4503 integer *ldab, real *work);
4504
4505 doublereal slansf_(char *norm, char *transr, char *uplo, integer *n, real *a,
4506 real *work);
4507
4508 doublereal slansp_(char *norm, char *uplo, integer *n, real *ap, real *work);
4509
4510 doublereal slanst_(char *norm, integer *n, real *d__, real *e);
4511
4512 doublereal slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda,
4513 real *work);
4514
4515 doublereal slantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
4516 real *ab, integer *ldab, real *work);
4517
4518 doublereal slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap,
4519 real *work);
4520
4521 doublereal slantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
4522 real *a, integer *lda, real *work);
4523
4524 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real *
4525 rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
4526
4527 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y,
4528 integer *incy, real *ssmin);
4529
4530 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x,
4531 integer *ldx, integer *k);
4532
4533 doublereal slapy2_(real *x, real *y);
4534
4535 doublereal slapy3_(real *x, real *y, real *z__);
4536
4537 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku,
4538 real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
4539 colcnd, real *amax, char *equed);
4540
4541 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda,
4542 real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
4543 equed);
4544
4545 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a,
4546 integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *
4547 work);
4548
4549 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer
4550 *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau,
4551 real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
4552
4553 /* Subroutine */ int slaqr0_(logical *wantt, logical *wantz, integer *n,
4554 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
4555 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work,
4556 integer *lwork, integer *info);
4557
4558 /* Subroutine */ int slaqr1_(integer *n, real *h__, integer *ldh, real *sr1,
4559 real *si1, real *sr2, real *si2, real *v);
4560
4561 /* Subroutine */ int slaqr2_(logical *wantt, logical *wantz, integer *n,
4562 integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh,
4563 integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns,
4564 integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh,
4565 real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real *
4566 work, integer *lwork);
4567
4568 /* Subroutine */ int slaqr3_(logical *wantt, logical *wantz, integer *n,
4569 integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh,
4570 integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns,
4571 integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh,
4572 real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real *
4573 work, integer *lwork);
4574
4575 /* Subroutine */ int slaqr4_(logical *wantt, logical *wantz, integer *n,
4576 integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
4577 wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work,
4578 integer *lwork, integer *info);
4579
4580 /* Subroutine */ int slaqr5_(logical *wantt, logical *wantz, integer *kacc22,
4581 integer *n, integer *ktop, integer *kbot, integer *nshfts, real *sr,
4582 real *si, real *h__, integer *ldh, integer *iloz, integer *ihiz, real
4583 *z__, integer *ldz, real *v, integer *ldv, real *u, integer *ldu,
4584 integer *nv, real *wv, integer *ldwv, integer *nh, real *wh, integer *
4585 ldwh);
4586
4587 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab,
4588 integer *ldab, real *s, real *scond, real *amax, char *equed);
4589
4590 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *
4591 scond, real *amax, char *equed);
4592
4593 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda,
4594 real *s, real *scond, real *amax, char *equed);
4595
4596 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real
4597 *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work,
4598 integer *info);
4599
4600 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real *
4601 lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
4602 gaptol, real *z__, logical *wantnc, integer *negcnt, real *ztz, real *
4603 mingma, integer *r__, integer *isuppz, real *nrminv, real *resid,
4604 real *rqcorr, real *work);
4605
4606 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer
4607 *incx, real *c__, real *s, integer *incc);
4608
4609 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v,
4610 integer *incv, real *tau, real *c__, integer *ldc, real *work);
4611
4612 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char *
4613 storev, integer *m, integer *n, integer *k, real *v, integer *ldv,
4614 real *t, integer *ldt, real *c__, integer *ldc, real *work, integer *
4615 ldwork);
4616
4617 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx,
4618 real *tau);
4619
4620 /* Subroutine */ int slarfp_(integer *n, real *alpha, real *x, integer *incx,
4621 real *tau);
4622
4623 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer *
4624 k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
4625
4626 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v,
4627 real *tau, real *c__, integer *ldc, real *work);
4628
4629 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y,
4630 integer *incy, real *c__, integer *incc);
4631
4632 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real
4633 *x);
4634
4635 /* Subroutine */ int slarra_(integer *n, real *d__, real *e, real *e2, real *
4636 spltol, real *tnrm, integer *nsplit, integer *isplit, integer *info);
4637
4638 /* Subroutine */ int slarrb_(integer *n, real *d__, real *lld, integer *
4639 ifirst, integer *ilast, real *rtol1, real *rtol2, integer *offset,
4640 real *w, real *wgap, real *werr, real *work, integer *iwork, real *
4641 pivmin, real *spdiam, integer *twist, integer *info);
4642
4643 /* Subroutine */ int slarrc_(char *jobt, integer *n, real *vl, real *vu, real
4644 *d__, real *e, real *pivmin, integer *eigcnt, integer *lcnt, integer *
4645 rcnt, integer *info);
4646
4647 /* Subroutine */ int slarrd_(char *range, char *order, integer *n, real *vl,
4648 real *vu, integer *il, integer *iu, real *gers, real *reltol, real *
4649 d__, real *e, real *e2, real *pivmin, integer *nsplit, integer *
4650 isplit, integer *m, real *w, real *werr, real *wl, real *wu, integer *
4651 iblock, integer *indexw, real *work, integer *iwork, integer *info);
4652
4653 /* Subroutine */ int slarre_(char *range, integer *n, real *vl, real *vu,
4654 integer *il, integer *iu, real *d__, real *e, real *e2, real *rtol1,
4655 real *rtol2, real *spltol, integer *nsplit, integer *isplit, integer *
4656 m, real *w, real *werr, real *wgap, integer *iblock, integer *indexw,
4657 real *gers, real *pivmin, real *work, integer *iwork, integer *info);
4658
4659 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld,
4660 integer *clstrt, integer *clend, real *w, real *wgap, real *werr,
4661 real *spdiam, real *clgapl, real *clgapr, real *pivmin, real *sigma,
4662 real *dplus, real *lplus, real *work, integer *info);
4663
4664 /* Subroutine */ int slarrj_(integer *n, real *d__, real *e2, integer *ifirst,
4665 integer *ilast, real *rtol, integer *offset, real *w, real *werr,
4666 real *work, integer *iwork, real *pivmin, real *spdiam, integer *info);
4667
4668 /* Subroutine */ int slarrk_(integer *n, integer *iw, real *gl, real *gu,
4669 real *d__, real *e2, real *pivmin, real *reltol, real *w, real *werr,
4670 integer *info);
4671
4672 /* Subroutine */ int slarrr_(integer *n, real *d__, real *e, integer *info);
4673
4674 /* Subroutine */ int slarrv_(integer *n, real *vl, real *vu, real *d__, real *
4675 l, real *pivmin, integer *isplit, integer *m, integer *dol, integer *
4676 dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr,
4677 real *wgap, integer *iblock, integer *indexw, real *gers, real *z__,
4678 integer *ldz, integer *isuppz, real *work, integer *iwork, integer *
4679 info);
4680
4681 /* Subroutine */ int slarscl2_(integer *m, integer *n, real *d__, real *x,
4682 integer *ldx);
4683
4684 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
4685
4686 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y,
4687 integer *incy, real *c__, real *s, integer *incc);
4688
4689 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x);
4690
4691 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l,
4692 real *v, integer *incv, real *tau, real *c__, integer *ldc, real *
4693 work);
4694
4695 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char *
4696 storev, integer *m, integer *n, integer *k, integer *l, real *v,
4697 integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *
4698 work, integer *ldwork);
4699
4700 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer *
4701 k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
4702
4703 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real *
4704 ssmax);
4705
4706 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real *
4707 cfrom, real *cto, integer *m, integer *n, real *a, integer *lda,
4708 integer *info);
4709
4710 /* Subroutine */ int slascl2_(integer *m, integer *n, real *d__, real *x,
4711 integer *ldx);
4712
4713 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e,
4714 real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz,
4715 integer *iwork, real *work, integer *info);
4716
4717 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real *
4718 d__, real *alpha, real *beta, real *u, integer *ldu, real *vt,
4719 integer *ldvt, integer *idxq, integer *iwork, real *work, integer *
4720 info);
4721
4722 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer
4723 *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer *
4724 ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2,
4725 real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc,
4726 integer *idxq, integer *coltyp, integer *info);
4727
4728 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer
4729 *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer *
4730 ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2,
4731 integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer *
4732 info);
4733
4734 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__,
4735 real *delta, real *rho, real *sigma, real *work, integer *info);
4736
4737 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta,
4738 real *rho, real *dsigma, real *work);
4739
4740 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr,
4741 integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta,
4742 integer *idxq, integer *perm, integer *givptr, integer *givcol,
4743 integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
4744 difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
4745 work, integer *iwork, integer *info);
4746
4747 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr,
4748 integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf,
4749 real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma,
4750 integer *idx, integer *idxp, integer *idxq, integer *perm, integer *
4751 givptr, integer *givcol, integer *ldgcol, real *givnum, integer *
4752 ldgnum, real *c__, real *s, integer *info);
4753
4754 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real *
4755 z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr,
4756 real *dsigma, real *work, integer *info);
4757
4758 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n,
4759 integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt,
4760 integer *k, real *difl, real *difr, real *z__, real *poles, integer *
4761 givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum,
4762 real *c__, real *s, real *work, integer *iwork, integer *info);
4763
4764 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer *
4765 ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt,
4766 integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *
4767 work, integer *info);
4768
4769 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer *
4770 inode, integer *ndiml, integer *ndimr, integer *msub);
4771
4772 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha,
4773 real *beta, real *a, integer *lda);
4774
4775 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work,
4776 integer *info);
4777
4778 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info);
4779
4780 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp,
4781 real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail,
4782 integer *iter, integer *ndiv, logical *ieee, integer *ttype, real *
4783 dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *g, real *
4784 tau);
4785
4786 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp,
4787 integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn,
4788 real *dn1, real *dn2, real *tau, integer *ttype, real *g);
4789
4790 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp,
4791 real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *
4792 dnm1, real *dnm2, logical *ieee);
4793
4794 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp,
4795 real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *
4796 dnm2);
4797
4798 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m,
4799 integer *n, real *c__, real *s, real *a, integer *lda);
4800
4801 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info);
4802
4803 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale,
4804 real *sumsq);
4805
4806 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
4807 ssmax, real *snr, real *csr, real *snl, real *csl);
4808
4809 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1,
4810 integer *k2, integer *ipiv, integer *incx);
4811
4812 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn,
4813 integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *
4814 ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real
4815 *xnorm, integer *info);
4816
4817 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb,
4818 real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer
4819 *info);
4820
4821 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char *
4822 normin, integer *n, integer *kd, real *ab, integer *ldab, real *x,
4823 real *scale, real *cnorm, integer *info);
4824
4825 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer *
4826 ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *
4827 jpiv);
4828
4829 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char *
4830 normin, integer *n, real *ap, real *x, real *scale, real *cnorm,
4831 integer *info);
4832
4833 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a,
4834 integer *lda, real *e, real *tau, real *w, integer *ldw);
4835
4836 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char *
4837 normin, integer *n, real *a, integer *lda, real *x, real *scale, real
4838 *cnorm, integer *info);
4839
4840 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a,
4841 integer *lda, real *tau, real *work);
4842
4843 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v,
4844 integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
4845 work);
4846
4847 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda,
4848 integer *info);
4849
4850 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda,
4851 integer *info);
4852
4853 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau,
4854 real *q, integer *ldq, real *work, integer *info);
4855
4856 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m,
4857 integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work,
4858 integer *info);
4859
4860 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a,
4861 integer *lda, real *tau, real *work, integer *info);
4862
4863 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a,
4864 integer *lda, real *tau, real *work, integer *info);
4865
4866 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k,
4867 real *a, integer *lda, real *tau, real *work, integer *lwork, integer
4868 *info);
4869
4870 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a,
4871 integer *lda, real *tau, real *work, integer *lwork, integer *info);
4872
4873 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a,
4874 integer *lda, real *tau, real *work, integer *info);
4875
4876 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a,
4877 integer *lda, real *tau, real *work, integer *lwork, integer *info);
4878
4879 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a,
4880 integer *lda, real *tau, real *work, integer *lwork, integer *info);
4881
4882 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a,
4883 integer *lda, real *tau, real *work, integer *lwork, integer *info);
4884
4885 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a,
4886 integer *lda, real *tau, real *work, integer *info);
4887
4888 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a,
4889 integer *lda, real *tau, real *work, integer *lwork, integer *info);
4890
4891 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda,
4892 real *tau, real *work, integer *lwork, integer *info);
4893
4894 /* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n,
4895 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4896 real *work, integer *info);
4897
4898 /* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n,
4899 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4900 real *work, integer *info);
4901
4902 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m,
4903 integer *n, integer *k, real *a, integer *lda, real *tau, real *c__,
4904 integer *ldc, real *work, integer *lwork, integer *info);
4905
4906 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n,
4907 integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *
4908 c__, integer *ldc, real *work, integer *lwork, integer *info);
4909
4910 /* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n,
4911 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4912 real *work, integer *info);
4913
4914 /* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n,
4915 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4916 real *work, integer *lwork, integer *info);
4917
4918 /* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n,
4919 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4920 real *work, integer *lwork, integer *info);
4921
4922 /* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n,
4923 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4924 real *work, integer *lwork, integer *info);
4925
4926 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n,
4927 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4928 real *work, integer *info);
4929
4930 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n,
4931 integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
4932 integer *ldc, real *work, integer *info);
4933
4934 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n,
4935 integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4936 real *work, integer *lwork, integer *info);
4937
4938 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n,
4939 integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
4940 integer *ldc, real *work, integer *lwork, integer *info);
4941
4942 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m,
4943 integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4944 real *work, integer *lwork, integer *info);
4945
4946 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab,
4947 integer *ldab, real *anorm, real *rcond, real *work, integer *iwork,
4948 integer *info);
4949
4950 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab,
4951 integer *ldab, real *s, real *scond, real *amax, integer *info);
4952
4953 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer *
4954 nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b,
4955 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
4956 work, integer *iwork, integer *info);
4957
4958 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab,
4959 integer *ldab, integer *info);
4960
4961 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer *
4962 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
4963
4964 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd,
4965 integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
4966 char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx,
4967 real *rcond, real *ferr, real *berr, real *work, integer *iwork,
4968 integer *info);
4969
4970 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab,
4971 integer *ldab, integer *info);
4972
4973 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab,
4974 integer *ldab, integer *info);
4975
4976 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer *
4977 nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
4978
4979 /* Subroutine */ int spftrf_(char *transr, char *uplo, integer *n, real *a,
4980 integer *info);
4981
4982 /* Subroutine */ int spftri_(char *transr, char *uplo, integer *n, real *a,
4983 integer *info);
4984
4985 /* Subroutine */ int spftrs_(char *transr, char *uplo, integer *n, integer *
4986 nrhs, real *a, real *b, integer *ldb, integer *info);
4987
4988 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda,
4989 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
4990
4991 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real
4992 *scond, real *amax, integer *info);
4993
4994 /* Subroutine */ int spoequb_(integer *n, real *a, integer *lda, real *s,
4995 real *scond, real *amax, integer *info);
4996
4997 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a,
4998 integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x,
4999 integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
5000 integer *info);
5001
5002 /* Subroutine */ int sporfsx_(char *uplo, char *equed, integer *n, integer *
5003 nrhs, real *a, integer *lda, real *af, integer *ldaf, real *s, real *
5004 b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr,
5005 integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__,
5006 integer *nparams, real *params, real *work, integer *iwork, integer *
5007 info);
5008
5009 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a,
5010 integer *lda, real *b, integer *ldb, integer *info);
5011
5012 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer *
5013 nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed,
5014 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
5015 real *ferr, real *berr, real *work, integer *iwork, integer *info);
5016
5017 /* Subroutine */ int sposvxx_(char *fact, char *uplo, integer *n, integer *
5018 nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed,
5019 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
5020 real *rpvgrw, real *berr, integer *n_err_bnds__, real *
5021 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
5022 params, real *work, integer *iwork, integer *info);
5023
5024 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda,
5025 integer *info);
5026
5027 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda,
5028 integer *info);
5029
5030 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda,
5031 integer *info);
5032
5033 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a,
5034 integer *lda, real *b, integer *ldb, integer *info);
5035
5036 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm,
5037 real *rcond, real *work, integer *iwork, integer *info);
5038
5039 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real *
5040 scond, real *amax, integer *info);
5041
5042 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
5043 real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr,
5044 real *berr, real *work, integer *iwork, integer *info);
5045
5046 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap,
5047 real *b, integer *ldb, integer *info);
5048
5049 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer *
5050 nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *
5051 ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real
5052 *work, integer *iwork, integer *info);
5053
5054 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info);
5055
5056 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info);
5057
5058 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
5059 real *b, integer *ldb, integer *info);
5060
5061 /* Subroutine */ int spstf2_(char *uplo, integer *n, real *a, integer *lda,
5062 integer *piv, integer *rank, real *tol, real *work, integer *info);
5063
5064 /* Subroutine */ int spstrf_(char *uplo, integer *n, real *a, integer *lda,
5065 integer *piv, integer *rank, real *tol, real *work, integer *info);
5066
5067 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm,
5068 real *rcond, real *work, integer *info);
5069
5070 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e,
5071 real *z__, integer *ldz, real *work, integer *info);
5072
5073 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e,
5074 real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx,
5075 real *ferr, real *berr, real *work, integer *info);
5076
5077 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e,
5078 real *b, integer *ldb, integer *info);
5079
5080 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
5081 real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer
5082 *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info);
5083
5084 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info);
5085
5086 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e,
5087 real *b, integer *ldb, integer *info);
5088
5089 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e,
5090 real *b, integer *ldb);
5091
5092 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx);
5093
5094 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd,
5095 real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
5096 integer *info);
5097
5098 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd,
5099 real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
5100 integer *lwork, integer *iwork, integer *liwork, integer *info);
5101
5102 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n,
5103 integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl,
5104 real *vu, integer *il, integer *iu, real *abstol, integer *m, real *
5105 w, real *z__, integer *ldz, real *work, integer *iwork, integer *
5106 ifail, integer *info);
5107
5108 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka,
5109 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
5110 x, integer *ldx, real *work, integer *info);
5111
5112 /* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka,
5113 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
5114 w, real *z__, integer *ldz, real *work, integer *info);
5115
5116 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
5117 integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
5118 w, real *z__, integer *ldz, real *work, integer *lwork, integer *
5119 iwork, integer *liwork, integer *info);
5120
5121 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n,
5122 integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *
5123 ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer
5124 *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real
5125 *work, integer *iwork, integer *ifail, integer *info);
5126
5127 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd,
5128 real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq,
5129 real *work, integer *info);
5130
5131 /* Subroutine */ int ssfrk_(char *transr, char *uplo, char *trans, integer *n,
5132 integer *k, real *alpha, real *a, integer *lda, real *beta, real *
5133 c__);
5134
5135 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv,
5136 real *anorm, real *rcond, real *work, integer *iwork, integer *info);
5137
5138 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap,
5139 real *w, real *z__, integer *ldz, real *work, integer *info);
5140
5141 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap,
5142 real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
5143 *iwork, integer *liwork, integer *info);
5144
5145 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n,
5146 real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol,
5147 integer *m, real *w, real *z__, integer *ldz, real *work, integer *
5148 iwork, integer *ifail, integer *info);
5149
5150 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap,
5151 real *bp, integer *info);
5152
5153 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer *
5154 n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
5155 integer *info);
5156
5157 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer *
5158 n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
5159 integer *lwork, integer *iwork, integer *liwork, integer *info);
5160
5161 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char *
5162 uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il,
5163 integer *iu, real *abstol, integer *m, real *w, real *z__, integer *
5164 ldz, real *work, integer *iwork, integer *ifail, integer *info);
5165
5166 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
5167 real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *
5168 ldx, real *ferr, real *berr, real *work, integer *iwork, integer *
5169 info);
5170
5171 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap,
5172 integer *ipiv, real *b, integer *ldb, integer *info);
5173
5174 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer *
5175 nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real
5176 *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work,
5177 integer *iwork, integer *info);
5178
5179 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__,
5180 real *e, real *tau, integer *info);
5181
5182 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv,
5183 integer *info);
5184
5185 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv,
5186 real *work, integer *info);
5187
5188 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
5189 integer *ipiv, real *b, integer *ldb, integer *info);
5190
5191 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl,
5192 real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e,
5193 integer *m, integer *nsplit, real *w, integer *iblock, integer *
5194 isplit, real *work, integer *iwork, integer *info);
5195
5196 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e,
5197 real *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
5198 integer *liwork, integer *info);
5199
5200 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__,
5201 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
5202 integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
5203 work, integer *lwork, integer *iwork, integer *liwork, integer *info);
5204
5205 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real
5206 *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real *
5207 work, integer *iwork, integer *ifail, integer *info);
5208
5209 /* Subroutine */ int sstemr_(char *jobz, char *range, integer *n, real *d__,
5210 real *e, real *vl, real *vu, integer *il, integer *iu, integer *m,
5211 real *w, real *z__, integer *ldz, integer *nzc, integer *isuppz,
5212 logical *tryrac, real *work, integer *lwork, integer *iwork, integer *
5213 liwork, integer *info);
5214
5215 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e,
5216 real *z__, integer *ldz, real *work, integer *info);
5217
5218 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info);
5219
5220 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real *
5221 z__, integer *ldz, real *work, integer *info);
5222
5223 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real
5224 *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
5225 integer *liwork, integer *info);
5226
5227 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__,
5228 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
5229 integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
5230 work, integer *lwork, integer *iwork, integer *liwork, integer *info);
5231
5232 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__,
5233 real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
5234 integer *m, real *w, real *z__, integer *ldz, real *work, integer *
5235 iwork, integer *ifail, integer *info);
5236
5237 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda,
5238 integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork,
5239 integer *info);
5240
5241 /* Subroutine */ int ssyequb_(char *uplo, integer *n, real *a, integer *lda,
5242 real *s, real *scond, real *amax, real *work, integer *info);
5243
5244 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a,
5245 integer *lda, real *w, real *work, integer *lwork, integer *info);
5246
5247 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a,
5248 integer *lda, real *w, real *work, integer *lwork, integer *iwork,
5249 integer *liwork, integer *info);
5250
5251 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n,
5252 real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
5253 real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *
5254 isuppz, real *work, integer *lwork, integer *iwork, integer *liwork,
5255 integer *info);
5256
5257 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n,
5258 real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
5259 real *abstol, integer *m, real *w, real *z__, integer *ldz, real *
5260 work, integer *lwork, integer *iwork, integer *ifail, integer *info);
5261
5262 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a,
5263 integer *lda, real *b, integer *ldb, integer *info);
5264
5265 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a,
5266 integer *lda, real *b, integer *ldb, integer *info);
5267
5268 /* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer *
5269 n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
5270 integer *lwork, integer *info);
5271
5272 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer *
5273 n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
5274 integer *lwork, integer *iwork, integer *liwork, integer *info);
5275
5276 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char *
5277 uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
5278 vl, real *vu, integer *il, integer *iu, real *abstol, integer *m,
5279 real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
5280 *iwork, integer *ifail, integer *info);
5281
5282 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a,
5283 integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
5284 integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
5285 work, integer *iwork, integer *info);
5286
5287 /* Subroutine */ int ssyrfsx_(char *uplo, char *equed, integer *n, integer *
5288 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
5289 real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
5290 real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *
5291 err_bnds_comp__, integer *nparams, real *params, real *work, integer *
5292 iwork, integer *info);
5293
5294 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a,
5295 integer *lda, integer *ipiv, real *b, integer *ldb, real *work,
5296 integer *lwork, integer *info);
5297
5298 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer *
5299 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
5300 real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
5301 real *berr, real *work, integer *lwork, integer *iwork, integer *
5302 info);
5303
5304 /* Subroutine */ int ssysvxx_(char *fact, char *uplo, integer *n, integer *
5305 nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
5306 char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx,
5307 real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real *
5308 err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
5309 params, real *work, integer *iwork, integer *info);
5310
5311 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda,
5312 real *d__, real *e, real *tau, integer *info);
5313
5314 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda,
5315 integer *ipiv, integer *info);
5316
5317 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda,
5318 real *d__, real *e, real *tau, real *work, integer *lwork, integer *
5319 info);
5320
5321 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda,
5322 integer *ipiv, real *work, integer *lwork, integer *info);
5323
5324 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda,
5325 integer *ipiv, real *work, integer *info);
5326
5327 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a,
5328 integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
5329
5330 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n,
5331 integer *kd, real *ab, integer *ldab, real *rcond, real *work,
5332 integer *iwork, integer *info);
5333
5334 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n,
5335 integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
5336 *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work,
5337 integer *iwork, integer *info);
5338
5339 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n,
5340 integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
5341 *ldb, integer *info);
5342
5343 /* Subroutine */ int stfsm_(char *transr, char *side, char *uplo, char *trans,
5344 char *diag, integer *m, integer *n, real *alpha, real *a, real *b,
5345 integer *ldb);
5346
5347 /* Subroutine */ int stftri_(char *transr, char *uplo, char *diag, integer *n,
5348 real *a, integer *info);
5349
5350 /* Subroutine */ int stfttp_(char *transr, char *uplo, integer *n, real *arf,
5351 real *ap, integer *info);
5352
5353 /* Subroutine */ int stfttr_(char *transr, char *uplo, integer *n, real *arf,
5354 real *a, integer *lda, integer *info);
5355
5356 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select,
5357 integer *n, real *s, integer *lds, real *p, integer *ldp, real *vl,
5358 integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real
5359 *work, integer *info);
5360
5361 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real
5362 *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
5363 z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work,
5364 integer *lwork, integer *info);
5365
5366 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real
5367 *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
5368 z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer *
5369 lwork, integer *info);
5370
5371 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz,
5372 logical *select, integer *n, real *a, integer *lda, real *b, integer *
5373 ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
5374 real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif,
5375 real *work, integer *lwork, integer *iwork, integer *liwork, integer *
5376 info);
5377
5378 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m,
5379 integer *p, integer *n, integer *k, integer *l, real *a, integer *lda,
5380 real *b, integer *ldb, real *tola, real *tolb, real *alpha, real *
5381 beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *
5382 ldq, real *work, integer *ncycle, integer *info);
5383
5384 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select,
5385 integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl,
5386 integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer *
5387 mm, integer *m, real *work, integer *lwork, integer *iwork, integer *
5388 info);
5389
5390 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer *
5391 n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
5392 ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
5393 *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer
5394 *pq, integer *info);
5395
5396 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer *
5397 n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
5398 ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
5399 *ldf, real *scale, real *dif, real *work, integer *lwork, integer *
5400 iwork, integer *info);
5401
5402 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n,
5403 real *ap, real *rcond, real *work, integer *iwork, integer *info);
5404
5405 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n,
5406 integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx,
5407 real *ferr, real *berr, real *work, integer *iwork, integer *info);
5408
5409 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap,
5410 integer *info);
5411
5412 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n,
5413 integer *nrhs, real *ap, real *b, integer *ldb, integer *info);
5414
5415 /* Subroutine */ int stpttf_(char *transr, char *uplo, integer *n, real *ap,
5416 real *arf, integer *info);
5417
5418 /* Subroutine */ int stpttr_(char *uplo, integer *n, real *ap, real *a,
5419 integer *lda, integer *info);
5420
5421 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n,
5422 real *a, integer *lda, real *rcond, real *work, integer *iwork,
5423 integer *info);
5424
5425 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select,
5426 integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
5427 integer *ldvr, integer *mm, integer *m, real *work, integer *info);
5428
5429 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt,
5430 real *q, integer *ldq, integer *ifst, integer *ilst, real *work,
5431 integer *info);
5432
5433 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n,
5434 integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x,
5435 integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
5436 integer *info);
5437
5438 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer
5439 *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi,
5440 integer *m, real *s, real *sep, real *work, integer *lwork, integer *
5441 iwork, integer *liwork, integer *info);
5442
5443 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select,
5444 integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
5445 integer *ldvr, real *s, real *sep, integer *mm, integer *m, real *
5446 work, integer *ldwork, integer *iwork, integer *info);
5447
5448 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer
5449 *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
5450 c__, integer *ldc, real *scale, integer *info);
5451
5452 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a,
5453 integer *lda, integer *info);
5454
5455 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a,
5456 integer *lda, integer *info);
5457
5458 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n,
5459 integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *
5460 info);
5461
5462 /* Subroutine */ int strttf_(char *transr, char *uplo, integer *n, real *a,
5463 integer *lda, real *arf, integer *info);
5464
5465 /* Subroutine */ int strttp_(char *uplo, integer *n, real *a, integer *lda,
5466 real *ap, integer *info);
5467
5468 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda,
5469 real *tau, integer *info);
5470
5471 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda,
5472 real *tau, real *work, integer *lwork, integer *info);
5473
5474 /* Subroutine */ int xerbla_(char *srname, integer *info);
5475
5476 /* Subroutine */ int xerbla_array__(char *srname_array__, integer *
5477 srname_len__, integer *info, ftnlen srname_array_len);
5478
5479 /* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
5480 nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt,
5481 integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__,
5482 integer *ldc, doublereal *rwork, integer *info);
5483
5484 /* Subroutine */ int zcgesv_(integer *n, integer *nrhs, doublecomplex *a,
5485 integer *lda, integer *ipiv, doublecomplex *b, integer *ldb,
5486 doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork,
5487 doublereal *rwork, integer *iter, integer *info);
5488
5489 /* Subroutine */ int zcposv_(char *uplo, integer *n, integer *nrhs,
5490 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5491 doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork,
5492 doublereal *rwork, integer *iter, integer *info);
5493
5494 /* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx,
5495 integer *incx);
5496
5497 /* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
5498 integer *kl, integer *ku, doublecomplex *ab, integer *ldab,
5499 doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq,
5500 doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc,
5501 doublecomplex *work, doublereal *rwork, integer *info);
5502
5503 /* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku,
5504 doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm,
5505 doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *
5506 info);
5507
5508 /* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku,
5509 doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__,
5510 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
5511 info);
5512
5513 /* Subroutine */ int zgbequb_(integer *m, integer *n, integer *kl, integer *
5514 ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *
5515 c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax,
5516 integer *info);
5517
5518 /* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer *
5519 ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *
5520 afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb,
5521 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
5522 doublecomplex *work, doublereal *rwork, integer *info);
5523
5524 /* Subroutine */ int zgbrfsx_(char *trans, char *equed, integer *n, integer *
5525 kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
5526 doublecomplex *afb, integer *ldafb, integer *ipiv, doublereal *r__,
5527 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x,
5528 integer *ldx, doublereal *rcond, doublereal *berr, integer *
5529 n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
5530 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
5531 work, doublereal *rwork, integer *info);
5532
5533 /* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer *
5534 nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *
5535 b, integer *ldb, integer *info);
5536
5537 /* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl,
5538 integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
5539 doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed,
5540 doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb,
5541 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
5542 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
5543 info);
5544
5545 /* Subroutine */ int zgbsvxx_(char *fact, char *trans, integer *n, integer *
5546 kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
5547 doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed,
5548 doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb,
5549 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw,
5550 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
5551 doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
5552 doublecomplex *work, doublereal *rwork, integer *info);
5553
5554 /* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
5555 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
5556
5557 /* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
5558 doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
5559
5560 /* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer *
5561 ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv,
5562 doublecomplex *b, integer *ldb, integer *info);
5563
5564 /* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo,
5565 integer *ihi, doublereal *scale, integer *m, doublecomplex *v,
5566 integer *ldv, integer *info);
5567
5568 /* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer
5569 *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
5570
5571 /* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a,
5572 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq,
5573 doublecomplex *taup, doublecomplex *work, integer *info);
5574
5575 /* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a,
5576 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq,
5577 doublecomplex *taup, doublecomplex *work, integer *lwork, integer *
5578 info);
5579
5580 /* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a,
5581 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
5582 work, doublereal *rwork, integer *info);
5583
5584 /* Subroutine */ int zgeequ_(integer *m, integer *n, doublecomplex *a,
5585 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
5586 doublereal *colcnd, doublereal *amax, integer *info);
5587
5588 /* Subroutine */ int zgeequb_(integer *m, integer *n, doublecomplex *a,
5589 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
5590 doublereal *colcnd, doublereal *amax, integer *info);
5591
5592 /* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n,
5593 doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w,
5594 doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork,
5595 doublereal *rwork, logical *bwork, integer *info);
5596
5597 /* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char *
5598 sense, integer *n, doublecomplex *a, integer *lda, integer *sdim,
5599 doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *
5600 rconde, doublereal *rcondv, doublecomplex *work, integer *lwork,
5601 doublereal *rwork, logical *bwork, integer *info);
5602
5603 /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n,
5604 doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl,
5605 integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work,
5606 integer *lwork, doublereal *rwork, integer *info);
5607
5608 /* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *
5609 sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w,
5610 doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
5611 integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm,
5612 doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *
5613 lwork, doublereal *rwork, integer *info);
5614
5615 /* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n,
5616 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5617 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl,
5618 integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *
5619 work, integer *lwork, doublereal *rwork, integer *info);
5620
5621 /* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n,
5622 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5623 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
5624 *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
5625 *lwork, doublereal *rwork, integer *info);
5626
5627 /* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi,
5628 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
5629 work, integer *info);
5630
5631 /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi,
5632 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
5633 work, integer *lwork, integer *info);
5634
5635 /* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a,
5636 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
5637
5638 /* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a,
5639 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5640 integer *info);
5641
5642 /* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer *
5643 nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5644 doublecomplex *work, integer *lwork, integer *info);
5645
5646 /* Subroutine */ int zgelsd_(integer *m, integer *n, integer *nrhs,
5647 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5648 doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work,
5649 integer *lwork, doublereal *rwork, integer *iwork, integer *info);
5650
5651 /* Subroutine */ int zgelss_(integer *m, integer *n, integer *nrhs,
5652 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5653 doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work,
5654 integer *lwork, doublereal *rwork, integer *info);
5655
5656 /* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs,
5657 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5658 integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
5659 doublereal *rwork, integer *info);
5660
5661 /* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs,
5662 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5663 integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
5664 integer *lwork, doublereal *rwork, integer *info);
5665
5666 /* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a,
5667 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
5668
5669 /* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a,
5670 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5671 integer *info);
5672
5673 /* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a,
5674 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
5675 integer *lwork, doublereal *rwork, integer *info);
5676
5677 /* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a,
5678 integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
5679 doublereal *rwork, integer *info);
5680
5681 /* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a,
5682 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
5683
5684 /* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a,
5685 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5686 integer *info);
5687
5688 /* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs,
5689 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
5690 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
5691 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
5692 doublereal *rwork, integer *info);
5693
5694 /* Subroutine */ int zgerfsx_(char *trans, char *equed, integer *n, integer *
5695 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5696 ldaf, integer *ipiv, doublereal *r__, doublereal *c__, doublecomplex *
5697 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond,
5698 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
5699 doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
5700 doublecomplex *work, doublereal *rwork, integer *info);
5701
5702 /* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a,
5703 integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
5704
5705 /* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a,
5706 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5707 integer *info);
5708
5709 /* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda,
5710 doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
5711
5712 /* Subroutine */ int zgesdd_(char *jobz, integer *m, integer *n,
5713 doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u,
5714 integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work,
5715 integer *lwork, doublereal *rwork, integer *iwork, integer *info);
5716
5717 /* Subroutine */ int zgesv_(integer *n, integer *nrhs, doublecomplex *a,
5718 integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *
5719 info);
5720
5721 /* Subroutine */ int zgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
5722 doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u,
5723 integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work,
5724 integer *lwork, doublereal *rwork, integer *info);
5725
5726 /* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer *
5727 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5728 ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
5729 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
5730 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
5731 work, doublereal *rwork, integer *info);
5732
5733 /* Subroutine */ int zgesvxx_(char *fact, char *trans, integer *n, integer *
5734 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5735 ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
5736 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
5737 doublereal *rcond, doublereal *rpvgrw, doublereal *berr, integer *
5738 n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
5739 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
5740 work, doublereal *rwork, integer *info);
5741
5742 /* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda,
5743 integer *ipiv, integer *jpiv, integer *info);
5744
5745 /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a,
5746 integer *lda, integer *ipiv, integer *info);
5747
5748 /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a,
5749 integer *lda, integer *ipiv, integer *info);
5750
5751 /* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda,
5752 integer *ipiv, doublecomplex *work, integer *lwork, integer *info);
5753
5754 /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs,
5755 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
5756 integer *ldb, integer *info);
5757
5758 /* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo,
5759 integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
5760 doublecomplex *v, integer *ldv, integer *info);
5761
5762 /* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer
5763 *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi,
5764 doublereal *lscale, doublereal *rscale, doublereal *work, integer *
5765 info);
5766
5767 /* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
5768 selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
5769 integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
5770 beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer
5771 *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork,
5772 logical *bwork, integer *info);
5773
5774 /* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
5775 selctg, char *sense, integer *n, doublecomplex *a, integer *lda,
5776 doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha,
5777 doublecomplex *beta, doublecomplex *vsl, integer *ldvsl,
5778 doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *
5779 rcondv, doublecomplex *work, integer *lwork, doublereal *rwork,
5780 integer *iwork, integer *liwork, logical *bwork, integer *info);
5781
5782 /* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n,
5783 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5784 doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
5785 *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
5786 *lwork, doublereal *rwork, integer *info);
5787
5788 /* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char *
5789 sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
5790 integer *ldb, doublecomplex *alpha, doublecomplex *beta,
5791 doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
5792 integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
5793 doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
5794 rcondv, doublecomplex *work, integer *lwork, doublereal *rwork,
5795 integer *iwork, logical *bwork, integer *info);
5796
5797 /* Subroutine */ int zggglm_(integer *n, integer *m, integer *p,
5798 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5799 doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex
5800 *work, integer *lwork, integer *info);
5801
5802 /* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer *
5803 ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b,
5804 integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__,
5805 integer *ldz, integer *info);
5806
5807 /* Subroutine */ int zgglse_(integer *m, integer *n, integer *p,
5808 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5809 doublecomplex *c__, doublecomplex *d__, doublecomplex *x,
5810 doublecomplex *work, integer *lwork, integer *info);
5811
5812 /* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p,
5813 doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
5814 integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
5815 lwork, integer *info);
5816
5817 /* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n,
5818 doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
5819 integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
5820 lwork, integer *info);
5821
5822 /* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
5823 integer *n, integer *p, integer *k, integer *l, doublecomplex *a,
5824 integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha,
5825 doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v,
5826 integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work,
5827 doublereal *rwork, integer *iwork, integer *info);
5828
5829 /* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
5830 integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex
5831 *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k,
5832 integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer
5833 *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal *
5834 rwork, doublecomplex *tau, doublecomplex *work, integer *info);
5835
5836 /* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl,
5837 doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *
5838 ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work,
5839 integer *info);
5840
5841 /* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs,
5842 doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
5843 doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
5844 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
5845 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
5846 doublecomplex *work, doublereal *rwork, integer *info);
5847
5848 /* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl,
5849 doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb,
5850 integer *info);
5851
5852 /* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer *
5853 nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
5854 doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
5855 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
5856 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
5857 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
5858 info);
5859
5860 /* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *
5861 d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *
5862 info);
5863
5864 /* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs,
5865 doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
5866 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
5867 integer *info);
5868
5869 /* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs,
5870 doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
5871 doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb);
5872
5873 /* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd,
5874 doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__,
5875 integer *ldz, doublecomplex *work, doublereal *rwork, integer *info);
5876
5877 /* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd,
5878 doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__,
5879 integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
5880 integer *lrwork, integer *iwork, integer *liwork, integer *info);
5881
5882 /* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n,
5883 integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q,
5884 integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *
5885 iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
5886 integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork,
5887 integer *ifail, integer *info);
5888
5889 /* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka,
5890 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
5891 integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work,
5892 doublereal *rwork, integer *info);
5893
5894 /* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka,
5895 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
5896 integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz,
5897 doublecomplex *work, doublereal *rwork, integer *info);
5898
5899 /* Subroutine */ int zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
5900 integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
5901 integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz,
5902 doublecomplex *work, integer *lwork, doublereal *rwork, integer *
5903 lrwork, integer *iwork, integer *liwork, integer *info);
5904
5905 /* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n,
5906 integer *ka, integer *kb, doublecomplex *ab, integer *ldab,
5907 doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq,
5908 doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *
5909 abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
5910 doublecomplex *work, doublereal *rwork, integer *iwork, integer *
5911 ifail, integer *info);
5912
5913 /* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd,
5914 doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e,
5915 doublecomplex *q, integer *ldq, doublecomplex *work, integer *info);
5916
5917 /* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a,
5918 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
5919 doublecomplex *work, integer *info);
5920
5921 /* Subroutine */ int zheequb_(char *uplo, integer *n, doublecomplex *a,
5922 integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
5923 doublecomplex *work, integer *info);
5924
5925 /* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex
5926 *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork,
5927 doublereal *rwork, integer *info);
5928
5929 /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n,
5930 doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work,
5931 integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork,
5932 integer *liwork, integer *info);
5933
5934 /* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n,
5935 doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu,
5936 integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
5937 w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex *
5938 work, integer *lwork, doublereal *rwork, integer *lrwork, integer *
5939 iwork, integer *liwork, integer *info);
5940
5941 /* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n,
5942 doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu,
5943 integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
5944 w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *
5945 lwork, doublereal *rwork, integer *iwork, integer *ifail, integer *
5946 info);
5947
5948 /* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n,
5949 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5950 integer *info);
5951
5952 /* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n,
5953 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5954 integer *info);
5955
5956 /* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer *
5957 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5958 doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
5959 integer *info);
5960
5961 /* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer *
5962 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5963 doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
5964 integer *lrwork, integer *iwork, integer *liwork, integer *info);
5965
5966 /* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char *
5967 uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
5968 integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *
5969 iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
5970 integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
5971 integer *iwork, integer *ifail, integer *info);
5972
5973 /* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs,
5974 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
5975 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
5976 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
5977 doublereal *rwork, integer *info);
5978
5979 /* Subroutine */ int zherfsx_(char *uplo, char *equed, integer *n, integer *
5980 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5981 ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb,
5982 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr,
5983 integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
5984 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
5985 work, doublereal *rwork, integer *info);
5986
5987 /* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs,
5988 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
5989 integer *ldb, doublecomplex *work, integer *lwork, integer *info);
5990
5991 /* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer *
5992 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5993 ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
5994 integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
5995 doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
5996
5997 /* Subroutine */ int zhesvxx_(char *fact, char *uplo, integer *n, integer *
5998 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5999 ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b,
6000 integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond,
6001 doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__,
6002 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
6003 nparams, doublereal *params, doublecomplex *work, doublereal *rwork,
6004 integer *info);
6005
6006 /* Subroutine */ int zhetd2_(char *uplo, integer *n, doublecomplex *a,
6007 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau,
6008 integer *info);
6009
6010 /* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a,
6011 integer *lda, integer *ipiv, integer *info);
6012
6013 /* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a,
6014 integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau,
6015 doublecomplex *work, integer *lwork, integer *info);
6016
6017 /* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a,
6018 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
6019 integer *info);
6020
6021 /* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a,
6022 integer *lda, integer *ipiv, doublecomplex *work, integer *info);
6023
6024 /* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs,
6025 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
6026 integer *ldb, integer *info);
6027
6028 /* Subroutine */ int zhfrk_(char *transr, char *uplo, char *trans, integer *n,
6029 integer *k, doublereal *alpha, doublecomplex *a, integer *lda,
6030 doublereal *beta, doublecomplex *c__);
6031
6032 /* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n,
6033 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
6034 doublecomplex *t, integer *ldt, doublecomplex *alpha, doublecomplex *
6035 beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
6036 ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *
6037 info);
6038
6039 /* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap,
6040 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
6041 work, integer *info);
6042
6043 /* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex
6044 *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *
6045 work, doublereal *rwork, integer *info);
6046
6047 /* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n,
6048 doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz,
6049 doublecomplex *work, integer *lwork, doublereal *rwork, integer *
6050 lrwork, integer *iwork, integer *liwork, integer *info);
6051
6052 /* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n,
6053 doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il,
6054 integer *iu, doublereal *abstol, integer *m, doublereal *w,
6055 doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *
6056 rwork, integer *iwork, integer *ifail, integer *info);
6057
6058 /* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n,
6059 doublecomplex *ap, doublecomplex *bp, integer *info);
6060
6061 /* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer *
6062 n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex
6063 *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *
6064 info);
6065
6066 /* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer *
6067 n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex
6068 *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *
6069 rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
6070 info);
6071
6072 /* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char *
6073 uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *
6074 vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
6075 integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
6076 doublecomplex *work, doublereal *rwork, integer *iwork, integer *
6077 ifail, integer *info);
6078
6079 /* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs,
6080 doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
6081 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
6082 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
6083 info);
6084
6085 /* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs,
6086 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
6087 integer *info);
6088
6089 /* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer *
6090 nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv,
6091 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6092 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
6093 work, doublereal *rwork, integer *info);
6094
6095 /* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap,
6096 doublereal *d__, doublereal *e, doublecomplex *tau, integer *info);
6097
6098 /* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap,
6099 integer *ipiv, integer *info);
6100
6101 /* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap,
6102 integer *ipiv, doublecomplex *work, integer *info);
6103
6104 /* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs,
6105 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
6106 integer *info);
6107
6108 /* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical *
6109 select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *
6110 w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
6111 integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
6112 integer *ifaill, integer *ifailr, integer *info);
6113
6114 /* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo,
6115 integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w,
6116 doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork,
6117 integer *info);
6118
6119 /* Subroutine */ int zla_gbamv__(integer *trans, integer *m, integer *n,
6120 integer *kl, integer *ku, doublereal *alpha, doublecomplex *ab,
6121 integer *ldab, doublecomplex *x, integer *incx, doublereal *beta,
6122 doublereal *y, integer *incy);
6123
6124 doublereal zla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku,
6125 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb,
6126 integer *ipiv, doublereal *c__, logical *capply, integer *info,
6127 doublecomplex *work, doublereal *rwork, ftnlen trans_len);
6128
6129 doublereal zla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku,
6130 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb,
6131 integer *ipiv, doublecomplex *x, integer *info, doublecomplex *work,
6132 doublereal *rwork, ftnlen trans_len);
6133
6134 /* Subroutine */ int zla_gbrfsx_extended__(integer *prec_type__, integer *
6135 trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
6136 doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb,
6137 integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b,
6138 integer *ldb, doublecomplex *y, integer *ldy, doublereal *berr_out__,
6139 integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__,
6140 doublecomplex *res, doublereal *ayb, doublecomplex *dy, doublecomplex
6141 *y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh,
6142 doublereal *dz_ub__, logical *ignore_cwise__, integer *info);
6143
6144 doublereal zla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
6145 ncols, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
6146 ldafb);
6147
6148 /* Subroutine */ int zla_geamv__(integer *trans, integer *m, integer *n,
6149 doublereal *alpha, doublecomplex *a, integer *lda, doublecomplex *x,
6150 integer *incx, doublereal *beta, doublereal *y, integer *incy);
6151
6152 doublereal zla_gercond_c__(char *trans, integer *n, doublecomplex *a, integer
6153 *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *
6154 c__, logical *capply, integer *info, doublecomplex *work, doublereal *
6155 rwork, ftnlen trans_len);
6156
6157 doublereal zla_gercond_x__(char *trans, integer *n, doublecomplex *a, integer
6158 *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
6159 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen
6160 trans_len);
6161
6162 /* Subroutine */ int zla_gerfsx_extended__(integer *prec_type__, integer *
6163 trans_type__, integer *n, integer *nrhs, doublecomplex *a, integer *
6164 lda, doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ,
6165 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y,
6166 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
6167 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb,
6168 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond,
6169 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
6170 ignore_cwise__, integer *info);
6171
6172 /* Subroutine */ int zla_heamv__(integer *uplo, integer *n, doublereal *alpha,
6173 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
6174 doublereal *beta, doublereal *y, integer *incy);
6175
6176 doublereal zla_hercond_c__(char *uplo, integer *n, doublecomplex *a, integer *
6177 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__,
6178 logical *capply, integer *info, doublecomplex *work, doublereal *
6179 rwork, ftnlen uplo_len);
6180
6181 doublereal zla_hercond_x__(char *uplo, integer *n, doublecomplex *a, integer *
6182 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
6183 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen
6184 uplo_len);
6185
6186 /* Subroutine */ int zla_herfsx_extended__(integer *prec_type__, char *uplo,
6187 integer *n, integer *nrhs, doublecomplex *a, integer *lda,
6188 doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ,
6189 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y,
6190 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
6191 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb,
6192 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond,
6193 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
6194 ignore_cwise__, integer *info, ftnlen uplo_len);
6195
6196 doublereal zla_herpvgrw__(char *uplo, integer *n, integer *info,
6197 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
6198 integer *ipiv, doublereal *work, ftnlen uplo_len);
6199
6200 /* Subroutine */ int zla_lin_berr__(integer *n, integer *nz, integer *nrhs,
6201 doublecomplex *res, doublereal *ayb, doublereal *berr);
6202
6203 doublereal zla_porcond_c__(char *uplo, integer *n, doublecomplex *a, integer *
6204 lda, doublecomplex *af, integer *ldaf, doublereal *c__, logical *
6205 capply, integer *info, doublecomplex *work, doublereal *rwork, ftnlen
6206 uplo_len);
6207
6208 doublereal zla_porcond_x__(char *uplo, integer *n, doublecomplex *a, integer *
6209 lda, doublecomplex *af, integer *ldaf, doublecomplex *x, integer *
6210 info, doublecomplex *work, doublereal *rwork, ftnlen uplo_len);
6211
6212 /* Subroutine */ int zla_porfsx_extended__(integer *prec_type__, char *uplo,
6213 integer *n, integer *nrhs, doublecomplex *a, integer *lda,
6214 doublecomplex *af, integer *ldaf, logical *colequ, doublereal *c__,
6215 doublecomplex *b, integer *ldb, doublecomplex *y, integer *ldy,
6216 doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__,
6217 doublereal *errs_c__, doublecomplex *res, doublereal *ayb,
6218 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond,
6219 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
6220 ignore_cwise__, integer *info, ftnlen uplo_len);
6221
6222 doublereal zla_porpvgrw__(char *uplo, integer *ncols, doublecomplex *a,
6223 integer *lda, doublecomplex *af, integer *ldaf, doublereal *work,
6224 ftnlen uplo_len);
6225
6226 doublereal zla_rpvgrw__(integer *n, integer *ncols, doublecomplex *a, integer
6227 *lda, doublecomplex *af, integer *ldaf);
6228
6229 /* Subroutine */ int zla_syamv__(integer *uplo, integer *n, doublereal *alpha,
6230 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
6231 doublereal *beta, doublereal *y, integer *incy);
6232
6233 doublereal zla_syrcond_c__(char *uplo, integer *n, doublecomplex *a, integer *
6234 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__,
6235 logical *capply, integer *info, doublecomplex *work, doublereal *
6236 rwork, ftnlen uplo_len);
6237
6238 doublereal zla_syrcond_x__(char *uplo, integer *n, doublecomplex *a, integer *
6239 lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
6240 x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen
6241 uplo_len);
6242
6243 /* Subroutine */ int zla_syrfsx_extended__(integer *prec_type__, char *uplo,
6244 integer *n, integer *nrhs, doublecomplex *a, integer *lda,
6245 doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ,
6246 doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y,
6247 integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
6248 errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb,
6249 doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond,
6250 integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
6251 ignore_cwise__, integer *info, ftnlen uplo_len);
6252
6253 doublereal zla_syrpvgrw__(char *uplo, integer *n, integer *info,
6254 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
6255 integer *ipiv, doublereal *work, ftnlen uplo_len);
6256
6257 /* Subroutine */ int zla_wwaddw__(integer *n, doublecomplex *x, doublecomplex
6258 *y, doublecomplex *w);
6259
6260 /* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb,
6261 doublecomplex *a, integer *lda, doublereal *d__, doublereal *e,
6262 doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer *
6263 ldx, doublecomplex *y, integer *ldy);
6264
6265 /* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx);
6266
6267 /* Subroutine */ int zlacn2_(integer *n, doublecomplex *v, doublecomplex *x,
6268 doublereal *est, integer *kase, integer *isave);
6269
6270 /* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x,
6271 doublereal *est, integer *kase);
6272
6273 /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal *
6274 a, integer *lda, doublecomplex *b, integer *ldb);
6275
6276 /* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n,
6277 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb);
6278
6279 /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a,
6280 integer *lda, doublereal *b, integer *ldb, doublecomplex *c__,
6281 integer *ldc, doublereal *rwork);
6282
6283 /* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx,
6284 doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *
6285 s);
6286
6287 /* Double Complex */ VOID zladiv_(doublecomplex * ret_val, doublecomplex *x,
6288 doublecomplex *y);
6289
6290 /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__,
6291 doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore,
6292 integer *ldqs, doublereal *rwork, integer *iwork, integer *info);
6293
6294 /* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz,
6295 integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
6296 doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq,
6297 doublereal *qstore, integer *qptr, integer *prmptr, integer *perm,
6298 integer *givptr, integer *givcol, doublereal *givnum, doublecomplex *
6299 work, doublereal *rwork, integer *iwork, integer *info);
6300
6301 /* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz,
6302 doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho,
6303 integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex *
6304 q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx,
6305 integer *indxq, integer *perm, integer *givptr, integer *givcol,
6306 doublereal *givnum, integer *info);
6307
6308 /* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n,
6309 doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v,
6310 doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3,
6311 doublereal *smlnum, integer *info);
6312
6313 /* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b,
6314 doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2,
6315 doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
6316
6317 /* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b,
6318 doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1,
6319 doublecomplex *sn1);
6320
6321 /* Subroutine */ int zlag2c_(integer *m, integer *n, doublecomplex *a,
6322 integer *lda, complex *sa, integer *ldsa, integer *info);
6323
6324 /* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex *
6325 a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3,
6326 doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex *
6327 snv, doublereal *csq, doublecomplex *snq);
6328
6329 /* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs,
6330 doublereal *alpha, doublecomplex *dl, doublecomplex *d__,
6331 doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta,
6332 doublecomplex *b, integer *ldb);
6333
6334 /* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb,
6335 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w,
6336 integer *ldw, integer *info);
6337
6338 /* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n,
6339 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
6340 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__,
6341 integer *ldz, integer *info);
6342
6343 /* Subroutine */ int zlahr2_(integer *n, integer *k, integer *nb,
6344 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t,
6345 integer *ldt, doublecomplex *y, integer *ldy);
6346
6347 /* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb,
6348 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t,
6349 integer *ldt, doublecomplex *y, integer *ldy);
6350
6351 /* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x,
6352 doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *
6353 sestpr, doublecomplex *s, doublecomplex *c__);
6354
6355 /* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr,
6356 integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb,
6357 doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr,
6358 integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum,
6359 doublereal *poles, doublereal *difl, doublereal *difr, doublereal *
6360 z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork,
6361 integer *info);
6362
6363 /* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n,
6364 integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx,
6365 integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *
6366 k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
6367 poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
6368 perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
6369 rwork, integer *iwork, integer *info);
6370
6371 /* Subroutine */ int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer
6372 *nrhs, doublereal *d__, doublereal *e, doublecomplex *b, integer *ldb,
6373 doublereal *rcond, integer *rank, doublecomplex *work, doublereal *
6374 rwork, integer *iwork, integer *info);
6375
6376 doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku,
6377 doublecomplex *ab, integer *ldab, doublereal *work);
6378
6379 doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a,
6380 integer *lda, doublereal *work);
6381
6382 doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex *
6383 d__, doublecomplex *du);
6384
6385 doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k,
6386 doublecomplex *ab, integer *ldab, doublereal *work);
6387
6388 doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a,
6389 integer *lda, doublereal *work);
6390
6391 doublereal zlanhf_(char *norm, char *transr, char *uplo, integer *n,
6392 doublecomplex *a, doublereal *work);
6393
6394 doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap,
6395 doublereal *work);
6396
6397 doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda,
6398 doublereal *work);
6399
6400 doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e);
6401
6402 doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k,
6403 doublecomplex *ab, integer *ldab, doublereal *work);
6404
6405 doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap,
6406 doublereal *work);
6407
6408 doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a,
6409 integer *lda, doublereal *work);
6410
6411 doublereal zlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
6412 doublecomplex *ab, integer *ldab, doublereal *work);
6413
6414 doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n,
6415 doublecomplex *ap, doublereal *work);
6416
6417 doublereal zlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
6418 doublecomplex *a, integer *lda, doublereal *work);
6419
6420 /* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx,
6421 doublecomplex *y, integer *incy, doublereal *ssmin);
6422
6423 /* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n,
6424 doublecomplex *x, integer *ldx, integer *k);
6425
6426 /* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
6427 doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__,
6428 doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
6429
6430 /* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a,
6431 integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
6432 doublereal *colcnd, doublereal *amax, char *equed);
6433
6434 /* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd,
6435 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
6436 doublereal *amax, char *equed);
6437
6438 /* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a,
6439 integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
6440 char *equed);
6441
6442 /* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap,
6443 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
6444
6445 /* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset,
6446 doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau,
6447 doublereal *vn1, doublereal *vn2, doublecomplex *work);
6448
6449 /* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer
6450 *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt,
6451 doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *
6452 auxv, doublecomplex *f, integer *ldf);
6453
6454 /* Subroutine */ int zlaqr0_(logical *wantt, logical *wantz, integer *n,
6455 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
6456 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__,
6457 integer *ldz, doublecomplex *work, integer *lwork, integer *info);
6458
6459 /* Subroutine */ int zlaqr1_(integer *n, doublecomplex *h__, integer *ldh,
6460 doublecomplex *s1, doublecomplex *s2, doublecomplex *v);
6461
6462 /* Subroutine */ int zlaqr2_(logical *wantt, logical *wantz, integer *n,
6463 integer *ktop, integer *kbot, integer *nw, doublecomplex *h__,
6464 integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__,
6465 integer *ldz, integer *ns, integer *nd, doublecomplex *sh,
6466 doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t,
6467 integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv,
6468 doublecomplex *work, integer *lwork);
6469
6470 /* Subroutine */ int zlaqr3_(logical *wantt, logical *wantz, integer *n,
6471 integer *ktop, integer *kbot, integer *nw, doublecomplex *h__,
6472 integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__,
6473 integer *ldz, integer *ns, integer *nd, doublecomplex *sh,
6474 doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t,
6475 integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv,
6476 doublecomplex *work, integer *lwork);
6477
6478 /* Subroutine */ int zlaqr4_(logical *wantt, logical *wantz, integer *n,
6479 integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
6480 doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__,
6481 integer *ldz, doublecomplex *work, integer *lwork, integer *info);
6482
6483 /* Subroutine */ int zlaqr5_(logical *wantt, logical *wantz, integer *kacc22,
6484 integer *n, integer *ktop, integer *kbot, integer *nshfts,
6485 doublecomplex *s, doublecomplex *h__, integer *ldh, integer *iloz,
6486 integer *ihiz, doublecomplex *z__, integer *ldz, doublecomplex *v,
6487 integer *ldv, doublecomplex *u, integer *ldu, integer *nv,
6488 doublecomplex *wv, integer *ldwv, integer *nh, doublecomplex *wh,
6489 integer *ldwh);
6490
6491 /* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd,
6492 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
6493 doublereal *amax, char *equed);
6494
6495 /* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap,
6496 doublereal *s, doublereal *scond, doublereal *amax, char *equed);
6497
6498 /* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a,
6499 integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
6500 char *equed);
6501
6502 /* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal
6503 *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
6504 lld, doublereal *pivmin, doublereal *gaptol, doublecomplex *z__,
6505 logical *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma,
6506 integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid,
6507 doublereal *rqcorr, doublereal *work);
6508
6509 /* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y,
6510 doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s,
6511 integer *incc);
6512
6513 /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer *
6514 lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc,
6515 doublereal *rwork);
6516
6517 /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex
6518 *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *
6519 ldc, doublecomplex *work);
6520
6521 /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char *
6522 storev, integer *m, integer *n, integer *k, doublecomplex *v, integer
6523 *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *
6524 ldc, doublecomplex *work, integer *ldwork);
6525
6526 /* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *
6527 x, integer *incx, doublecomplex *tau);
6528
6529 /* Subroutine */ int zlarfp_(integer *n, doublecomplex *alpha, doublecomplex *
6530 x, integer *incx, doublecomplex *tau);
6531
6532 /* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer *
6533 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
6534 t, integer *ldt);
6535
6536 /* Subroutine */ int zlarfx_(char *side, integer *m, integer *n,
6537 doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *
6538 ldc, doublecomplex *work);
6539
6540 /* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx,
6541 doublecomplex *y, integer *incy, doublereal *c__, integer *incc);
6542
6543 /* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n,
6544 doublecomplex *x);
6545
6546 /* Subroutine */ int zlarrv_(integer *n, doublereal *vl, doublereal *vu,
6547 doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit,
6548 integer *m, integer *dol, integer *dou, doublereal *minrgp,
6549 doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr,
6550 doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers,
6551 doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work,
6552 integer *iwork, integer *info);
6553
6554 /* Subroutine */ int zlarscl2_(integer *m, integer *n, doublereal *d__,
6555 doublecomplex *x, integer *ldx);
6556
6557 /* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *
6558 cs, doublecomplex *sn, doublecomplex *r__);
6559
6560 /* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx,
6561 doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s,
6562 integer *incc);
6563
6564 /* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l,
6565 doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
6566 c__, integer *ldc, doublecomplex *work);
6567
6568 /* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char *
6569 storev, integer *m, integer *n, integer *k, integer *l, doublecomplex
6570 *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__,
6571 integer *ldc, doublecomplex *work, integer *ldwork);
6572
6573 /* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer *
6574 k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
6575 t, integer *ldt);
6576
6577 /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku,
6578 doublereal *cfrom, doublereal *cto, integer *m, integer *n,
6579 doublecomplex *a, integer *lda, integer *info);
6580
6581 /* Subroutine */ int zlascl2_(integer *m, integer *n, doublereal *d__,
6582 doublecomplex *x, integer *ldx);
6583
6584 /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n,
6585 doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *
6586 lda);
6587
6588 /* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m,
6589 integer *n, doublereal *c__, doublereal *s, doublecomplex *a,
6590 integer *lda);
6591
6592 /* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx,
6593 doublereal *scale, doublereal *sumsq);
6594
6595 /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda,
6596 integer *k1, integer *k2, integer *ipiv, integer *incx);
6597
6598 /* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
6599 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w,
6600 integer *ldw, integer *info);
6601
6602 /* Subroutine */ int zlat2c_(char *uplo, integer *n, doublecomplex *a,
6603 integer *lda, complex *sa, integer *ldsa, integer *info);
6604
6605 /* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char *
6606 normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab,
6607 doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info);
6608
6609 /* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__,
6610 integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *
6611 rdscal, integer *ipiv, integer *jpiv);
6612
6613 /* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char *
6614 normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal *
6615 scale, doublereal *cnorm, integer *info);
6616
6617 /* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb,
6618 doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau,
6619 doublecomplex *w, integer *ldw);
6620
6621 /* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char *
6622 normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x,
6623 doublereal *scale, doublereal *cnorm, integer *info);
6624
6625 /* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l,
6626 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
6627 work);
6628
6629 /* Subroutine */ int zlatzm_(char *side, integer *m, integer *n,
6630 doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
6631 c1, doublecomplex *c2, integer *ldc, doublecomplex *work);
6632
6633 /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a,
6634 integer *lda, integer *info);
6635
6636 /* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a,
6637 integer *lda, integer *info);
6638
6639 /* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd,
6640 doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal *
6641 rcond, doublecomplex *work, doublereal *rwork, integer *info);
6642
6643 /* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd,
6644 doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
6645 doublereal *amax, integer *info);
6646
6647 /* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer *
6648 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
6649 ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6650 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
6651 rwork, integer *info);
6652
6653 /* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd,
6654 doublecomplex *ab, integer *ldab, integer *info);
6655
6656 /* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer *
6657 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
6658 ldb, integer *info);
6659
6660 /* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
6661 integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb,
6662 integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer
6663 *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *
6664 ferr, doublereal *berr, doublecomplex *work, doublereal *rwork,
6665 integer *info);
6666
6667 /* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd,
6668 doublecomplex *ab, integer *ldab, integer *info);
6669
6670 /* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd,
6671 doublecomplex *ab, integer *ldab, integer *info);
6672
6673 /* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer *
6674 nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
6675 ldb, integer *info);
6676
6677 /* Subroutine */ int zpftrf_(char *transr, char *uplo, integer *n,
6678 doublecomplex *a, integer *info);
6679
6680 /* Subroutine */ int zpftri_(char *transr, char *uplo, integer *n,
6681 doublecomplex *a, integer *info);
6682
6683 /* Subroutine */ int zpftrs_(char *transr, char *uplo, integer *n, integer *
6684 nrhs, doublecomplex *a, doublecomplex *b, integer *ldb, integer *info);
6685
6686 /* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a,
6687 integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
6688 work, doublereal *rwork, integer *info);
6689
6690 /* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda,
6691 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
6692
6693 /* Subroutine */ int zpoequb_(integer *n, doublecomplex *a, integer *lda,
6694 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
6695
6696 /* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs,
6697 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
6698 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6699 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
6700 rwork, integer *info);
6701
6702 /* Subroutine */ int zporfsx_(char *uplo, char *equed, integer *n, integer *
6703 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6704 ldaf, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x,
6705 integer *ldx, doublereal *rcond, doublereal *berr, integer *
6706 n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
6707 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
6708 work, doublereal *rwork, integer *info);
6709
6710 /* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs,
6711 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
6712 integer *info);
6713
6714 /* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer *
6715 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6716 ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb,
6717 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
6718 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
6719 info);
6720
6721 /* Subroutine */ int zposvxx_(char *fact, char *uplo, integer *n, integer *
6722 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6723 ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb,
6724 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw,
6725 doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
6726 doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
6727 doublecomplex *work, doublereal *rwork, integer *info);
6728
6729 /* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a,
6730 integer *lda, integer *info);
6731
6732 /* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a,
6733 integer *lda, integer *info);
6734
6735 /* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a,
6736 integer *lda, integer *info);
6737
6738 /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs,
6739 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
6740 integer *info);
6741
6742 /* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap,
6743 doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal
6744 *rwork, integer *info);
6745
6746 /* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap,
6747 doublereal *s, doublereal *scond, doublereal *amax, integer *info);
6748
6749 /* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs,
6750 doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb,
6751 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
6752 doublecomplex *work, doublereal *rwork, integer *info);
6753
6754 /* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs,
6755 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
6756
6757 /* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer *
6758 nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal *
6759 s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6760 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
6761 work, doublereal *rwork, integer *info);
6762
6763 /* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap,
6764 integer *info);
6765
6766 /* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap,
6767 integer *info);
6768
6769 /* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs,
6770 doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
6771
6772 /* Subroutine */ int zpstf2_(char *uplo, integer *n, doublecomplex *a,
6773 integer *lda, integer *piv, integer *rank, doublereal *tol,
6774 doublereal *work, integer *info);
6775
6776 /* Subroutine */ int zpstrf_(char *uplo, integer *n, doublecomplex *a,
6777 integer *lda, integer *piv, integer *rank, doublereal *tol,
6778 doublereal *work, integer *info);
6779
6780 /* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e,
6781 doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *
6782 info);
6783
6784 /* Subroutine */ int zpteqr_(char *compz, integer *n, doublereal *d__,
6785 doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work,
6786 integer *info);
6787
6788 /* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs,
6789 doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef,
6790 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6791 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
6792 rwork, integer *info);
6793
6794 /* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__,
6795 doublecomplex *e, doublecomplex *b, integer *ldb, integer *info);
6796
6797 /* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs,
6798 doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef,
6799 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6800 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
6801 work, doublereal *rwork, integer *info);
6802
6803 /* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e,
6804 integer *info);
6805
6806 /* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs,
6807 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb,
6808 integer *info);
6809
6810 /* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs,
6811 doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb);
6812
6813 /* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx,
6814 doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);
6815
6816 /* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap,
6817 integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
6818 work, integer *info);
6819
6820 /* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha,
6821 doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
6822 beta, doublecomplex *y, integer *incy);
6823
6824 /* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha,
6825 doublecomplex *x, integer *incx, doublecomplex *ap);
6826
6827 /* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs,
6828 doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
6829 b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
6830 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
6831 info);
6832
6833 /* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs,
6834 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
6835 integer *info);
6836
6837 /* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer *
6838 nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv,
6839 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6840 doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
6841 work, doublereal *rwork, integer *info);
6842
6843 /* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap,
6844 integer *ipiv, integer *info);
6845
6846 /* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap,
6847 integer *ipiv, doublecomplex *work, integer *info);
6848
6849 /* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs,
6850 doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
6851 integer *info);
6852
6853 /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__,
6854 doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work,
6855 integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork,
6856 integer *liwork, integer *info);
6857
6858 /* Subroutine */ int zstegr_(char *jobz, char *range, integer *n, doublereal *
6859 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
6860 integer *iu, doublereal *abstol, integer *m, doublereal *w,
6861 doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work,
6862 integer *lwork, integer *iwork, integer *liwork, integer *info);
6863
6864 /* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e,
6865 integer *m, doublereal *w, integer *iblock, integer *isplit,
6866 doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork,
6867 integer *ifail, integer *info);
6868
6869 /* Subroutine */ int zstemr_(char *jobz, char *range, integer *n, doublereal *
6870 d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
6871 integer *iu, integer *m, doublereal *w, doublecomplex *z__, integer *
6872 ldz, integer *nzc, integer *isuppz, logical *tryrac, doublereal *work,
6873 integer *lwork, integer *iwork, integer *liwork, integer *info);
6874
6875 /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__,
6876 doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work,
6877 integer *info);
6878
6879 /* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a,
6880 integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
6881 doublecomplex *work, integer *info);
6882
6883 /* Subroutine */ int zsyequb_(char *uplo, integer *n, doublecomplex *a,
6884 integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
6885 doublecomplex *work, integer *info);
6886
6887 /* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha,
6888 doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
6889 doublecomplex *beta, doublecomplex *y, integer *incy);
6890
6891 /* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha,
6892 doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
6893
6894 /* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs,
6895 doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
6896 integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
6897 integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
6898 doublereal *rwork, integer *info);
6899
6900 /* Subroutine */ int zsyrfsx_(char *uplo, char *equed, integer *n, integer *
6901 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6902 ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb,
6903 doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr,
6904 integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
6905 err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
6906 work, doublereal *rwork, integer *info);
6907
6908 /* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs,
6909 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
6910 integer *ldb, doublecomplex *work, integer *lwork, integer *info);
6911
6912 /* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer *
6913 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6914 ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
6915 integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
6916 doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
6917
6918 /* Subroutine */ int zsysvxx_(char *fact, char *uplo, integer *n, integer *
6919 nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6920 ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b,
6921 integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond,
6922 doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__,
6923 doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
6924 nparams, doublereal *params, doublecomplex *work, doublereal *rwork,
6925 integer *info);
6926
6927 /* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a,
6928 integer *lda, integer *ipiv, integer *info);
6929
6930 /* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a,
6931 integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
6932 integer *info);
6933
6934 /* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a,
6935 integer *lda, integer *ipiv, doublecomplex *work, integer *info);
6936
6937 /* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs,
6938 doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
6939 integer *ldb, integer *info);
6940
6941 /* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n,
6942 integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond,
6943 doublecomplex *work, doublereal *rwork, integer *info);
6944
6945 /* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n,
6946 integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab,
6947 doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6948 doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
6949 rwork, integer *info);
6950
6951 /* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n,
6952 integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab,
6953 doublecomplex *b, integer *ldb, integer *info);
6954
6955 /* Subroutine */ int ztfsm_(char *transr, char *side, char *uplo, char *trans,
6956 char *diag, integer *m, integer *n, doublecomplex *alpha,
6957 doublecomplex *a, doublecomplex *b, integer *ldb);
6958
6959 /* Subroutine */ int ztftri_(char *transr, char *uplo, char *diag, integer *n,
6960 doublecomplex *a, integer *info);
6961
6962 /* Subroutine */ int ztfttp_(char *transr, char *uplo, integer *n,
6963 doublecomplex *arf, doublecomplex *ap, integer *info);
6964
6965 /* Subroutine */ int ztfttr_(char *transr, char *uplo, integer *n,
6966 doublecomplex *arf, doublecomplex *a, integer *lda, integer *info);
6967
6968 /* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select,
6969 integer *n, doublecomplex *s, integer *lds, doublecomplex *p, integer
6970 *ldp, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
6971 ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
6972 integer *info);
6973
6974 /* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n,
6975 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
6976 doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz,
6977 integer *j1, integer *info);
6978
6979 /* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n,
6980 doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
6981 doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz,
6982 integer *ifst, integer *ilst, integer *info);
6983
6984 /* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz,
6985 logical *select, integer *n, doublecomplex *a, integer *lda,
6986 doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
6987 beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
6988 ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
6989 doublecomplex *work, integer *lwork, integer *iwork, integer *liwork,
6990 integer *info);
6991
6992 /* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m,
6993 integer *p, integer *n, integer *k, integer *l, doublecomplex *a,
6994 integer *lda, doublecomplex *b, integer *ldb, doublereal *tola,
6995 doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex *
6996 u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q,
6997 integer *ldq, doublecomplex *work, integer *ncycle, integer *info);
6998
6999 /* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select,
7000 integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer
7001 *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
7002 ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m,
7003 doublecomplex *work, integer *lwork, integer *iwork, integer *info);
7004
7005 /* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer *
7006 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
7007 doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd,
7008 doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf,
7009 doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer *
7010 info);
7011
7012 /* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer *
7013 n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
7014 doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd,
7015 doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf,
7016 doublereal *scale, doublereal *dif, doublecomplex *work, integer *
7017 lwork, integer *iwork, integer *info);
7018
7019 /* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n,
7020 doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal
7021 *rwork, integer *info);
7022
7023 /* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n,
7024 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
7025 doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
7026 doublecomplex *work, doublereal *rwork, integer *info);
7027
7028 /* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n,
7029 doublecomplex *ap, integer *info);
7030
7031 /* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n,
7032 integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
7033 integer *info);
7034
7035 /* Subroutine */ int ztpttf_(char *transr, char *uplo, integer *n,
7036 doublecomplex *ap, doublecomplex *arf, integer *info);
7037
7038 /* Subroutine */ int ztpttr_(char *uplo, integer *n, doublecomplex *ap,
7039 doublecomplex *a, integer *lda, integer *info);
7040
7041 /* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n,
7042 doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex *
7043 work, doublereal *rwork, integer *info);
7044
7045 /* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select,
7046 integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl,
7047 integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer
7048 *m, doublecomplex *work, doublereal *rwork, integer *info);
7049
7050 /* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t,
7051 integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *
7052 ilst, integer *info);
7053
7054 /* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n,
7055 integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b,
7056 integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
7057 doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
7058 info);
7059
7060 /* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer
7061 *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq,
7062 doublecomplex *w, integer *m, doublereal *s, doublereal *sep,
7063 doublecomplex *work, integer *lwork, integer *info);
7064
7065 /* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select,
7066 integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl,
7067 integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s,
7068 doublereal *sep, integer *mm, integer *m, doublecomplex *work,
7069 integer *ldwork, doublereal *rwork, integer *info);
7070
7071 /* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer
7072 *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
7073 integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale,
7074 integer *info);
7075
7076 /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n,
7077 doublecomplex *a, integer *lda, integer *info);
7078
7079 /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n,
7080 doublecomplex *a, integer *lda, integer *info);
7081
7082 /* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n,
7083 integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b,
7084 integer *ldb, integer *info);
7085
7086 /* Subroutine */ int ztrttf_(char *transr, char *uplo, integer *n,
7087 doublecomplex *a, integer *lda, doublecomplex *arf, integer *info);
7088
7089 /* Subroutine */ int ztrttp_(char *uplo, integer *n, doublecomplex *a,
7090 integer *lda, doublecomplex *ap, integer *info);
7091
7092 /* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a,
7093 integer *lda, doublecomplex *tau, integer *info);
7094
7095 /* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a,
7096 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
7097 integer *info);
7098
7099 /* Subroutine */ int zung2l_(integer *m, integer *n, integer *k,
7100 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7101 work, integer *info);
7102
7103 /* Subroutine */ int zung2r_(integer *m, integer *n, integer *k,
7104 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7105 work, integer *info);
7106
7107 /* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k,
7108 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7109 work, integer *lwork, integer *info);
7110
7111 /* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi,
7112 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7113 work, integer *lwork, integer *info);
7114
7115 /* Subroutine */ int zungl2_(integer *m, integer *n, integer *k,
7116 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7117 work, integer *info);
7118
7119 /* Subroutine */ int zunglq_(integer *m, integer *n, integer *k,
7120 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7121 work, integer *lwork, integer *info);
7122
7123 /* Subroutine */ int zungql_(integer *m, integer *n, integer *k,
7124 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7125 work, integer *lwork, integer *info);
7126
7127 /* Subroutine */ int zungqr_(integer *m, integer *n, integer *k,
7128 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7129 work, integer *lwork, integer *info);
7130
7131 /* Subroutine */ int zungr2_(integer *m, integer *n, integer *k,
7132 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7133 work, integer *info);
7134
7135 /* Subroutine */ int zungrq_(integer *m, integer *n, integer *k,
7136 doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7137 work, integer *lwork, integer *info);
7138
7139 /* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a,
7140 integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
7141 integer *info);
7142
7143 /* Subroutine */ int zunm2l_(char *side, char *trans, integer *m, integer *n,
7144 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7145 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
7146
7147 /* Subroutine */ int zunm2r_(char *side, char *trans, integer *m, integer *n,
7148 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7149 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
7150
7151 /* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m,
7152 integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex
7153 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
7154 lwork, integer *info);
7155
7156 /* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n,
7157 integer *ilo, integer *ihi, doublecomplex *a, integer *lda,
7158 doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *
7159 work, integer *lwork, integer *info);
7160
7161 /* Subroutine */ int zunml2_(char *side, char *trans, integer *m, integer *n,
7162 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7163 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
7164
7165 /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n,
7166 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7167 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7168 integer *info);
7169
7170 /* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n,
7171 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7172 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7173 integer *info);
7174
7175 /* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n,
7176 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7177 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7178 integer *info);
7179
7180 /* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n,
7181 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7182 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
7183
7184 /* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n,
7185 integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex
7186 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
7187 info);
7188
7189 /* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n,
7190 integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7191 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7192 integer *info);
7193
7194 /* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n,
7195 integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex
7196 *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
7197 lwork, integer *info);
7198
7199 /* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m,
7200 integer *n, doublecomplex *a, integer *lda, doublecomplex *tau,
7201 doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7202 integer *info);
7203
7204 /* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap,
7205 doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *
7206 work, integer *info);
7207
7208 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m,
7209 integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__,
7210 integer *ldc, doublecomplex *work, integer *info);
7211
7212 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical
7213 *ieee1);
7214
7215 doublereal dsecnd_();
7216
7217 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__,
7218 integer *vers_patch__);
7219
7220 logical lsame_(char *ca, char *cb);
7221
7222 doublereal second_();
7223
7224 doublereal slamch_(char *cmach);
7225
7226 /* Subroutine */ int slamc1_(integer *beta, integer *t, logical *rnd, logical
7227 *ieee1);
7228
7229 /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real *
7230 eps, integer *emin, real *rmin, integer *emax, real *rmax);
7231
7232 doublereal slamc3_(real *a, real *b);
7233
7234 /* Subroutine */ int slamc4_(integer *emin, real *start, integer *base);
7235
7236 /* Subroutine */ int slamc5_(integer *beta, integer *p, integer *emin,
7237 logical *ieee, integer *emax, real *rmax);
7238
7239
7240 doublereal dlamch_(char *cmach);
7241
7242 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical
7243 *ieee1);
7244
7245 /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd,
7246 doublereal *eps, integer *emin, doublereal *rmin, integer *emax,
7247 doublereal *rmax);
7248
7249 doublereal dlamc3_(doublereal *a, doublereal *b);
7250
7251 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base);
7252
7253 /* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin,
7254 logical *ieee, integer *emax, doublereal *rmax);
7255
7256 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
7257 integer *n2, integer *n3, integer *n4);
7258
7259 #ifdef __cplusplus
7260 }
7261 #endif
7262
7263
7264 #endif /* __CLAPACK_H */