vmmlib  1.6.1
Vector and Matrix Math Library
clapack.h
1 /* header file for clapack 3.2.1 */
2 
3 #ifndef __CLAPACK_H
4 #define __CLAPACK_H
5 
6 #ifdef __cplusplus
7 extern "C" {
8 #endif
9 
10 /* Subroutine */ int caxpy_(integer *n, complex *ca, complex *cx, integer *
11  incx, complex *cy, integer *incy);
12 
13 /* Subroutine */ int ccopy_(integer *n, complex *cx, integer *incx, complex *
14  cy, integer *incy);
15 
16 /* Complex */ VOID cdotc_(complex * ret_val, integer *n, complex *cx, integer
17  *incx, complex *cy, integer *incy);
18 
19 /* Complex */ VOID cdotu_(complex * ret_val, integer *n, complex *cx, integer
20  *incx, complex *cy, integer *incy);
21 
22 /* Subroutine */ int cgbmv_(char *trans, integer *m, integer *n, integer *kl,
23  integer *ku, complex *alpha, complex *a, integer *lda, complex *x,
24  integer *incx, complex *beta, complex *y, integer *incy);
25 
26 /* Subroutine */ int cgemm_(char *transa, char *transb, integer *m, integer *
27  n, integer *k, complex *alpha, complex *a, integer *lda, complex *b,
28  integer *ldb, complex *beta, complex *c__, integer *ldc);
29 
30 /* Subroutine */ int cgemv_(char *trans, integer *m, integer *n, complex *
31  alpha, complex *a, integer *lda, complex *x, integer *incx, complex *
32  beta, complex *y, integer *incy);
33 
34 /* Subroutine */ int cgerc_(integer *m, integer *n, complex *alpha, complex *
35  x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
36 
37 /* Subroutine */ int cgeru_(integer *m, integer *n, complex *alpha, complex *
38  x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
39 
40 /* Subroutine */ int chbmv_(char *uplo, integer *n, integer *k, complex *
41  alpha, complex *a, integer *lda, complex *x, integer *incx, complex *
42  beta, complex *y, integer *incy);
43 
44 /* Subroutine */ int chemm_(char *side, char *uplo, integer *m, integer *n,
45  complex *alpha, complex *a, integer *lda, complex *b, integer *ldb,
46  complex *beta, complex *c__, integer *ldc);
47 
48 /* Subroutine */ int chemv_(char *uplo, integer *n, complex *alpha, complex *
49  a, integer *lda, complex *x, integer *incx, complex *beta, complex *y,
50  integer *incy);
51 
52 /* Subroutine */ int cher_(char *uplo, integer *n, real *alpha, complex *x,
53  integer *incx, complex *a, integer *lda);
54 
55 /* Subroutine */ int cher2_(char *uplo, integer *n, complex *alpha, complex *
56  x, integer *incx, complex *y, integer *incy, complex *a, integer *lda);
57 
58 /* Subroutine */ int cher2k_(char *uplo, char *trans, integer *n, integer *k,
59  complex *alpha, complex *a, integer *lda, complex *b, integer *ldb,
60  real *beta, complex *c__, integer *ldc);
61 
62 /* Subroutine */ int cherk_(char *uplo, char *trans, integer *n, integer *k,
63  real *alpha, complex *a, integer *lda, real *beta, complex *c__,
64  integer *ldc);
65 
66 /* Subroutine */ int chpmv_(char *uplo, integer *n, complex *alpha, complex *
67  ap, complex *x, integer *incx, complex *beta, complex *y, integer *
68  incy);
69 
70 /* Subroutine */ int chpr_(char *uplo, integer *n, real *alpha, complex *x,
71  integer *incx, complex *ap);
72 
73 /* Subroutine */ int chpr2_(char *uplo, integer *n, complex *alpha, complex *
74  x, integer *incx, complex *y, integer *incy, complex *ap);
75 
76 /* Subroutine */ int crotg_(complex *ca, complex *cb, real *c__, complex *s);
77 
78 /* Subroutine */ int cscal_(integer *n, complex *ca, complex *cx, integer *
79  incx);
80 
81 /* Subroutine */ int csrot_(integer *n, complex *cx, integer *incx, complex *
82  cy, integer *incy, real *c__, real *s);
83 
84 /* Subroutine */ int csscal_(integer *n, real *sa, complex *cx, integer *incx);
85 
86 /* Subroutine */ int cswap_(integer *n, complex *cx, integer *incx, complex *
87  cy, integer *incy);
88 
89 /* Subroutine */ int csymm_(char *side, char *uplo, integer *m, integer *n,
90  complex *alpha, complex *a, integer *lda, complex *b, integer *ldb,
91  complex *beta, complex *c__, integer *ldc);
92 
93 /* Subroutine */ int csyr2k_(char *uplo, char *trans, integer *n, integer *k,
94  complex *alpha, complex *a, integer *lda, complex *b, integer *ldb,
95  complex *beta, complex *c__, integer *ldc);
96 
97 /* Subroutine */ int csyrk_(char *uplo, char *trans, integer *n, integer *k,
98  complex *alpha, complex *a, integer *lda, complex *beta, complex *c__,
99  integer *ldc);
100 
101 /* Subroutine */ int ctbmv_(char *uplo, char *trans, char *diag, integer *n,
102  integer *k, complex *a, integer *lda, complex *x, integer *incx);
103 
104 /* Subroutine */ int ctbsv_(char *uplo, char *trans, char *diag, integer *n,
105  integer *k, complex *a, integer *lda, complex *x, integer *incx);
106 
107 /* Subroutine */ int ctpmv_(char *uplo, char *trans, char *diag, integer *n,
108  complex *ap, complex *x, integer *incx);
109 
110 /* Subroutine */ int ctpsv_(char *uplo, char *trans, char *diag, integer *n,
111  complex *ap, complex *x, integer *incx);
112 
113 /* Subroutine */ int ctrmm_(char *side, char *uplo, char *transa, char *diag,
114  integer *m, integer *n, complex *alpha, complex *a, integer *lda,
115  complex *b, integer *ldb);
116 
117 /* Subroutine */ int ctrmv_(char *uplo, char *trans, char *diag, integer *n,
118  complex *a, integer *lda, complex *x, integer *incx);
119 
120 /* Subroutine */ int ctrsm_(char *side, char *uplo, char *transa, char *diag,
121  integer *m, integer *n, complex *alpha, complex *a, integer *lda,
122  complex *b, integer *ldb);
123 
124 /* Subroutine */ int ctrsv_(char *uplo, char *trans, char *diag, integer *n,
125  complex *a, integer *lda, complex *x, integer *incx);
126 
127 doublereal dasum_(integer *n, doublereal *dx, integer *incx);
128 
129 /* Subroutine */ int daxpy_(integer *n, doublereal *da, doublereal *dx,
130  integer *incx, doublereal *dy, integer *incy);
131 
132 doublereal dcabs1_(doublecomplex *z__);
133 
134 /* Subroutine */ int dcopy_(integer *n, doublereal *dx, integer *incx,
135  doublereal *dy, integer *incy);
136 
137 doublereal ddot_(integer *n, doublereal *dx, integer *incx, doublereal *dy,
138  integer *incy);
139 
140 /* Subroutine */ int dgbmv_(char *trans, integer *m, integer *n, integer *kl,
141  integer *ku, doublereal *alpha, doublereal *a, integer *lda,
142  doublereal *x, integer *incx, doublereal *beta, doublereal *y,
143  integer *incy);
144 
145 /* Subroutine */ int dgemm_(char *transa, char *transb, integer *m, integer *
146  n, integer *k, doublereal *alpha, doublereal *a, integer *lda,
147  doublereal *b, integer *ldb, doublereal *beta, doublereal *c__,
148  integer *ldc);
149 
150 /* Subroutine */ int dgemv_(char *trans, integer *m, integer *n, doublereal *
151  alpha, doublereal *a, integer *lda, doublereal *x, integer *incx,
152  doublereal *beta, doublereal *y, integer *incy);
153 
154 /* Subroutine */ int dger_(integer *m, integer *n, doublereal *alpha,
155  doublereal *x, integer *incx, doublereal *y, integer *incy,
156  doublereal *a, integer *lda);
157 
158 doublereal dnrm2_(integer *n, doublereal *x, integer *incx);
159 
160 /* Subroutine */ int drot_(integer *n, doublereal *dx, integer *incx,
161  doublereal *dy, integer *incy, doublereal *c__, doublereal *s);
162 
163 /* Subroutine */ int drotg_(doublereal *da, doublereal *db, doublereal *c__,
164  doublereal *s);
165 
166 /* Subroutine */ int drotm_(integer *n, doublereal *dx, integer *incx,
167  doublereal *dy, integer *incy, doublereal *dparam);
168 
169 /* Subroutine */ int drotmg_(doublereal *dd1, doublereal *dd2, doublereal *
170  dx1, doublereal *dy1, doublereal *dparam);
171 
172 /* Subroutine */ int dsbmv_(char *uplo, integer *n, integer *k, doublereal *
173  alpha, doublereal *a, integer *lda, doublereal *x, integer *incx,
174  doublereal *beta, doublereal *y, integer *incy);
175 
176 /* Subroutine */ int dscal_(integer *n, doublereal *da, doublereal *dx,
177  integer *incx);
178 
179 doublereal dsdot_(integer *n, real *sx, integer *incx, real *sy, integer *
180  incy);
181 
182 /* Subroutine */ int dspmv_(char *uplo, integer *n, doublereal *alpha,
183  doublereal *ap, doublereal *x, integer *incx, doublereal *beta,
184  doublereal *y, integer *incy);
185 
186 /* Subroutine */ int dspr_(char *uplo, integer *n, doublereal *alpha,
187  doublereal *x, integer *incx, doublereal *ap);
188 
189 /* Subroutine */ int dspr2_(char *uplo, integer *n, doublereal *alpha,
190  doublereal *x, integer *incx, doublereal *y, integer *incy,
191  doublereal *ap);
192 
193 /* Subroutine */ int dswap_(integer *n, doublereal *dx, integer *incx,
194  doublereal *dy, integer *incy);
195 
196 /* Subroutine */ int dsymm_(char *side, char *uplo, integer *m, integer *n,
197  doublereal *alpha, doublereal *a, integer *lda, doublereal *b,
198  integer *ldb, doublereal *beta, doublereal *c__, integer *ldc);
199 
200 /* Subroutine */ int dsymv_(char *uplo, integer *n, doublereal *alpha,
201  doublereal *a, integer *lda, doublereal *x, integer *incx, doublereal
202  *beta, doublereal *y, integer *incy);
203 
204 /* Subroutine */ int dsyr_(char *uplo, integer *n, doublereal *alpha,
205  doublereal *x, integer *incx, doublereal *a, integer *lda);
206 
207 /* Subroutine */ int dsyr2_(char *uplo, integer *n, doublereal *alpha,
208  doublereal *x, integer *incx, doublereal *y, integer *incy,
209  doublereal *a, integer *lda);
210 
211 /* Subroutine */ int dsyr2k_(char *uplo, char *trans, integer *n, integer *k,
212  doublereal *alpha, doublereal *a, integer *lda, doublereal *b,
213  integer *ldb, doublereal *beta, doublereal *c__, integer *ldc);
214 
215 /* Subroutine */ int dsyrk_(char *uplo, char *trans, integer *n, integer *k,
216  doublereal *alpha, doublereal *a, integer *lda, doublereal *beta,
217  doublereal *c__, integer *ldc);
218 
219 /* Subroutine */ int dtbmv_(char *uplo, char *trans, char *diag, integer *n,
220  integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx);
221 
222 /* Subroutine */ int dtbsv_(char *uplo, char *trans, char *diag, integer *n,
223  integer *k, doublereal *a, integer *lda, doublereal *x, integer *incx);
224 
225 /* Subroutine */ int dtpmv_(char *uplo, char *trans, char *diag, integer *n,
226  doublereal *ap, doublereal *x, integer *incx);
227 
228 /* Subroutine */ int dtpsv_(char *uplo, char *trans, char *diag, integer *n,
229  doublereal *ap, doublereal *x, integer *incx);
230 
231 /* Subroutine */ int dtrmm_(char *side, char *uplo, char *transa, char *diag,
232  integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
233  lda, doublereal *b, integer *ldb);
234 
235 /* Subroutine */ int dtrmv_(char *uplo, char *trans, char *diag, integer *n,
236  doublereal *a, integer *lda, doublereal *x, integer *incx);
237 
238 /* Subroutine */ int dtrsm_(char *side, char *uplo, char *transa, char *diag,
239  integer *m, integer *n, doublereal *alpha, doublereal *a, integer *
240  lda, doublereal *b, integer *ldb);
241 
242 /* Subroutine */ int dtrsv_(char *uplo, char *trans, char *diag, integer *n,
243  doublereal *a, integer *lda, doublereal *x, integer *incx);
244 
245 doublereal dzasum_(integer *n, doublecomplex *zx, integer *incx);
246 
247 doublereal dznrm2_(integer *n, doublecomplex *x, integer *incx);
248 
249 integer icamax_(integer *n, complex *cx, integer *incx);
250 
251 integer idamax_(integer *n, doublereal *dx, integer *incx);
252 
253 integer isamax_(integer *n, real *sx, integer *incx);
254 
255 integer izamax_(integer *n, doublecomplex *zx, integer *incx);
256 
257 logical lsame_(char *ca, char *cb);
258 
259 doublereal sasum_(integer *n, real *sx, integer *incx);
260 
261 /* Subroutine */ int saxpy_(integer *n, real *sa, real *sx, integer *incx,
262  real *sy, integer *incy);
263 
264 doublereal scabs1_(complex *z__);
265 
266 doublereal scasum_(integer *n, complex *cx, integer *incx);
267 
268 doublereal scnrm2_(integer *n, complex *x, integer *incx);
269 
270 /* Subroutine */ int scopy_(integer *n, real *sx, integer *incx, real *sy,
271  integer *incy);
272 
273 doublereal sdot_(integer *n, real *sx, integer *incx, real *sy, integer *incy);
274 
275 doublereal sdsdot_(integer *n, real *sb, real *sx, integer *incx, real *sy,
276  integer *incy);
277 
278 /* Subroutine */ int sgbmv_(char *trans, integer *m, integer *n, integer *kl,
279  integer *ku, real *alpha, real *a, integer *lda, real *x, integer *
280  incx, real *beta, real *y, integer *incy);
281 
282 /* Subroutine */ int sgemm_(char *transa, char *transb, integer *m, integer *
283  n, integer *k, real *alpha, real *a, integer *lda, real *b, integer *
284  ldb, real *beta, real *c__, integer *ldc);
285 
286 /* Subroutine */ int sgemv_(char *trans, integer *m, integer *n, real *alpha,
287  real *a, integer *lda, real *x, integer *incx, real *beta, real *y,
288  integer *incy);
289 
290 /* Subroutine */ int sger_(integer *m, integer *n, real *alpha, real *x,
291  integer *incx, real *y, integer *incy, real *a, integer *lda);
292 
293 doublereal snrm2_(integer *n, real *x, integer *incx);
294 
295 /* Subroutine */ int srot_(integer *n, real *sx, integer *incx, real *sy,
296  integer *incy, real *c__, real *s);
297 
298 /* Subroutine */ int srotg_(real *sa, real *sb, real *c__, real *s);
299 
300 /* Subroutine */ int srotm_(integer *n, real *sx, integer *incx, real *sy,
301  integer *incy, real *sparam);
302 
303 /* Subroutine */ int srotmg_(real *sd1, real *sd2, real *sx1, real *sy1, real
304  *sparam);
305 
306 /* Subroutine */ int ssbmv_(char *uplo, integer *n, integer *k, real *alpha,
307  real *a, integer *lda, real *x, integer *incx, real *beta, real *y,
308  integer *incy);
309 
310 /* Subroutine */ int sscal_(integer *n, real *sa, real *sx, integer *incx);
311 
312 /* Subroutine */ int sspmv_(char *uplo, integer *n, real *alpha, real *ap,
313  real *x, integer *incx, real *beta, real *y, integer *incy);
314 
315 /* Subroutine */ int sspr_(char *uplo, integer *n, real *alpha, real *x,
316  integer *incx, real *ap);
317 
318 /* Subroutine */ int sspr2_(char *uplo, integer *n, real *alpha, real *x,
319  integer *incx, real *y, integer *incy, real *ap);
320 
321 /* Subroutine */ int sswap_(integer *n, real *sx, integer *incx, real *sy,
322  integer *incy);
323 
324 /* Subroutine */ int ssymm_(char *side, char *uplo, integer *m, integer *n,
325  real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta,
326  real *c__, integer *ldc);
327 
328 /* Subroutine */ int ssymv_(char *uplo, integer *n, real *alpha, real *a,
329  integer *lda, real *x, integer *incx, real *beta, real *y, integer *
330  incy);
331 
332 /* Subroutine */ int ssyr_(char *uplo, integer *n, real *alpha, real *x,
333  integer *incx, real *a, integer *lda);
334 
335 /* Subroutine */ int ssyr2_(char *uplo, integer *n, real *alpha, real *x,
336  integer *incx, real *y, integer *incy, real *a, integer *lda);
337 
338 /* Subroutine */ int ssyr2k_(char *uplo, char *trans, integer *n, integer *k,
339  real *alpha, real *a, integer *lda, real *b, integer *ldb, real *beta,
340  real *c__, integer *ldc);
341 
342 /* Subroutine */ int ssyrk_(char *uplo, char *trans, integer *n, integer *k,
343  real *alpha, real *a, integer *lda, real *beta, real *c__, integer *
344  ldc);
345 
346 /* Subroutine */ int stbmv_(char *uplo, char *trans, char *diag, integer *n,
347  integer *k, real *a, integer *lda, real *x, integer *incx);
348 
349 /* Subroutine */ int stbsv_(char *uplo, char *trans, char *diag, integer *n,
350  integer *k, real *a, integer *lda, real *x, integer *incx);
351 
352 /* Subroutine */ int stpmv_(char *uplo, char *trans, char *diag, integer *n,
353  real *ap, real *x, integer *incx);
354 
355 /* Subroutine */ int stpsv_(char *uplo, char *trans, char *diag, integer *n,
356  real *ap, real *x, integer *incx);
357 
358 /* Subroutine */ int strmm_(char *side, char *uplo, char *transa, char *diag,
359  integer *m, integer *n, real *alpha, real *a, integer *lda, real *b,
360  integer *ldb);
361 
362 /* Subroutine */ int strmv_(char *uplo, char *trans, char *diag, integer *n,
363  real *a, integer *lda, real *x, integer *incx);
364 
365 /* Subroutine */ int strsm_(char *side, char *uplo, char *transa, char *diag,
366  integer *m, integer *n, real *alpha, real *a, integer *lda, real *b,
367  integer *ldb);
368 
369 /* Subroutine */ int strsv_(char *uplo, char *trans, char *diag, integer *n,
370  real *a, integer *lda, real *x, integer *incx);
371 
372 /* Subroutine */ int xerbla_(char *srname, integer *info);
373 
374 /* Subroutine */ int xerbla_array__(char *srname_array__, integer *
375  srname_len__, integer *info, ftnlen srname_array_len);
376 
377 /* Subroutine */ int zaxpy_(integer *n, doublecomplex *za, doublecomplex *zx,
378  integer *incx, doublecomplex *zy, integer *incy);
379 
380 /* Subroutine */ int zcopy_(integer *n, doublecomplex *zx, integer *incx,
381  doublecomplex *zy, integer *incy);
382 
383 /* Double Complex */ VOID zdotc_(doublecomplex * ret_val, integer *n,
384  doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
385 
386 /* Double Complex */ VOID zdotu_(doublecomplex * ret_val, integer *n,
387  doublecomplex *zx, integer *incx, doublecomplex *zy, integer *incy);
388 
389 /* Subroutine */ int zdrot_(integer *n, doublecomplex *cx, integer *incx,
390  doublecomplex *cy, integer *incy, doublereal *c__, doublereal *s);
391 
392 /* Subroutine */ int zdscal_(integer *n, doublereal *da, doublecomplex *zx,
393  integer *incx);
394 
395 /* Subroutine */ int zgbmv_(char *trans, integer *m, integer *n, integer *kl,
396  integer *ku, doublecomplex *alpha, doublecomplex *a, integer *lda,
397  doublecomplex *x, integer *incx, doublecomplex *beta, doublecomplex *
398  y, integer *incy);
399 
400 /* Subroutine */ int zgemm_(char *transa, char *transb, integer *m, integer *
401  n, integer *k, doublecomplex *alpha, doublecomplex *a, integer *lda,
402  doublecomplex *b, integer *ldb, doublecomplex *beta, doublecomplex *
403  c__, integer *ldc);
404 
405 /* Subroutine */ int zgemv_(char *trans, integer *m, integer *n,
406  doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
407  x, integer *incx, doublecomplex *beta, doublecomplex *y, integer *
408  incy);
409 
410 /* Subroutine */ int zgerc_(integer *m, integer *n, doublecomplex *alpha,
411  doublecomplex *x, integer *incx, doublecomplex *y, integer *incy,
412  doublecomplex *a, integer *lda);
413 
414 /* Subroutine */ int zgeru_(integer *m, integer *n, doublecomplex *alpha,
415  doublecomplex *x, integer *incx, doublecomplex *y, integer *incy,
416  doublecomplex *a, integer *lda);
417 
418 /* Subroutine */ int zhbmv_(char *uplo, integer *n, integer *k, doublecomplex
419  *alpha, doublecomplex *a, integer *lda, doublecomplex *x, integer *
420  incx, doublecomplex *beta, doublecomplex *y, integer *incy);
421 
422 /* Subroutine */ int zhemm_(char *side, char *uplo, integer *m, integer *n,
423  doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
424  b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
425  ldc);
426 
427 /* Subroutine */ int zhemv_(char *uplo, integer *n, doublecomplex *alpha,
428  doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
429  doublecomplex *beta, doublecomplex *y, integer *incy);
430 
431 /* Subroutine */ int zher_(char *uplo, integer *n, doublereal *alpha,
432  doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
433 
434 /* Subroutine */ int zher2_(char *uplo, integer *n, doublecomplex *alpha,
435  doublecomplex *x, integer *incx, doublecomplex *y, integer *incy,
436  doublecomplex *a, integer *lda);
437 
438 /* Subroutine */ int zher2k_(char *uplo, char *trans, integer *n, integer *k,
439  doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
440  b, integer *ldb, doublereal *beta, doublecomplex *c__, integer *ldc);
441 
442 /* Subroutine */ int zherk_(char *uplo, char *trans, integer *n, integer *k,
443  doublereal *alpha, doublecomplex *a, integer *lda, doublereal *beta,
444  doublecomplex *c__, integer *ldc);
445 
446 /* Subroutine */ int zhpmv_(char *uplo, integer *n, doublecomplex *alpha,
447  doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
448  beta, doublecomplex *y, integer *incy);
449 
450 /* Subroutine */ int zhpr_(char *uplo, integer *n, doublereal *alpha,
451  doublecomplex *x, integer *incx, doublecomplex *ap);
452 
453 /* Subroutine */ int zhpr2_(char *uplo, integer *n, doublecomplex *alpha,
454  doublecomplex *x, integer *incx, doublecomplex *y, integer *incy,
455  doublecomplex *ap);
456 
457 /* Subroutine */ int zrotg_(doublecomplex *ca, doublecomplex *cb, doublereal *
458  c__, doublecomplex *s);
459 
460 /* Subroutine */ int zscal_(integer *n, doublecomplex *za, doublecomplex *zx,
461  integer *incx);
462 
463 /* Subroutine */ int zswap_(integer *n, doublecomplex *zx, integer *incx,
464  doublecomplex *zy, integer *incy);
465 
466 /* Subroutine */ int zsymm_(char *side, char *uplo, integer *m, integer *n,
467  doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
468  b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
469  ldc);
470 
471 /* Subroutine */ int zsyr2k_(char *uplo, char *trans, integer *n, integer *k,
472  doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
473  b, integer *ldb, doublecomplex *beta, doublecomplex *c__, integer *
474  ldc);
475 
476 /* Subroutine */ int zsyrk_(char *uplo, char *trans, integer *n, integer *k,
477  doublecomplex *alpha, doublecomplex *a, integer *lda, doublecomplex *
478  beta, doublecomplex *c__, integer *ldc);
479 
480 /* Subroutine */ int ztbmv_(char *uplo, char *trans, char *diag, integer *n,
481  integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer
482  *incx);
483 
484 /* Subroutine */ int ztbsv_(char *uplo, char *trans, char *diag, integer *n,
485  integer *k, doublecomplex *a, integer *lda, doublecomplex *x, integer
486  *incx);
487 
488 /* Subroutine */ int ztpmv_(char *uplo, char *trans, char *diag, integer *n,
489  doublecomplex *ap, doublecomplex *x, integer *incx);
490 
491 /* Subroutine */ int ztpsv_(char *uplo, char *trans, char *diag, integer *n,
492  doublecomplex *ap, doublecomplex *x, integer *incx);
493 
494 /* Subroutine */ int ztrmm_(char *side, char *uplo, char *transa, char *diag,
495  integer *m, integer *n, doublecomplex *alpha, doublecomplex *a,
496  integer *lda, doublecomplex *b, integer *ldb);
497 
498 /* Subroutine */ int ztrmv_(char *uplo, char *trans, char *diag, integer *n,
499  doublecomplex *a, integer *lda, doublecomplex *x, integer *incx);
500 
501 /* Subroutine */ int ztrsm_(char *side, char *uplo, char *transa, char *diag,
502  integer *m, integer *n, doublecomplex *alpha, doublecomplex *a,
503  integer *lda, doublecomplex *b, integer *ldb);
504 
505 /* Subroutine */ int ztrsv_(char *uplo, char *trans, char *diag, integer *n,
506  doublecomplex *a, integer *lda, doublecomplex *x, integer *incx);
507 
508 /* Subroutine */ int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
509  nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt,
510  complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork,
511  integer *info);
512 
513 /* Subroutine */ int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
514  integer *kl, integer *ku, complex *ab, integer *ldab, real *d__,
515  real *e, complex *q, integer *ldq, complex *pt, integer *ldpt,
516  complex *c__, integer *ldc, complex *work, real *rwork, integer *info);
517 
518 /* Subroutine */ int cgbcon_(char *norm, integer *n, integer *kl, integer *ku,
519  complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
520  complex *work, real *rwork, integer *info);
521 
522 /* Subroutine */ int cgbequ_(integer *m, integer *n, integer *kl, integer *ku,
523  complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
524  *colcnd, real *amax, integer *info);
525 
526 /* Subroutine */ int cgbequb_(integer *m, integer *n, integer *kl, integer *
527  ku, complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd,
528  real *colcnd, real *amax, integer *info);
529 
530 /* Subroutine */ int cgbrfs_(char *trans, integer *n, integer *kl, integer *
531  ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
532  ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *
533  ldx, real *ferr, real *berr, complex *work, real *rwork, integer *
534  info);
535 
536 /* Subroutine */ int cgbrfsx_(char *trans, char *equed, integer *n, integer *
537  kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *
538  afb, integer *ldafb, integer *ipiv, real *r__, real *c__, complex *b,
539  integer *ldb, complex *x, integer *ldx, real *rcond, real *berr,
540  integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__,
541  integer *nparams, real *params, complex *work, real *rwork, integer *
542  info);
543 
544 /* Subroutine */ int cgbsv_(integer *n, integer *kl, integer *ku, integer *
545  nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *
546  ldb, integer *info);
547 
548 /* Subroutine */ int cgbsvx_(char *fact, char *trans, integer *n, integer *kl,
549  integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb,
550  integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
551  complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real
552  *ferr, real *berr, complex *work, real *rwork, integer *info);
553 
554 /* Subroutine */ int cgbsvxx_(char *fact, char *trans, integer *n, integer *
555  kl, integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *
556  afb, integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
557  complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
558  real *rpvgrw, real *berr, integer *n_err_bnds__, real *
559  err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
560  params, complex *work, real *rwork, integer *info);
561 
562 /* Subroutine */ int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
563  complex *ab, integer *ldab, integer *ipiv, integer *info);
564 
565 /* Subroutine */ int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
566  complex *ab, integer *ldab, integer *ipiv, integer *info);
567 
568 /* Subroutine */ int cgbtrs_(char *trans, integer *n, integer *kl, integer *
569  ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex
570  *b, integer *ldb, integer *info);
571 
572 /* Subroutine */ int cgebak_(char *job, char *side, integer *n, integer *ilo,
573  integer *ihi, real *scale, integer *m, complex *v, integer *ldv,
574  integer *info);
575 
576 /* Subroutine */ int cgebal_(char *job, integer *n, complex *a, integer *lda,
577  integer *ilo, integer *ihi, real *scale, integer *info);
578 
579 /* Subroutine */ int cgebd2_(integer *m, integer *n, complex *a, integer *lda,
580  real *d__, real *e, complex *tauq, complex *taup, complex *work,
581  integer *info);
582 
583 /* Subroutine */ int cgebrd_(integer *m, integer *n, complex *a, integer *lda,
584  real *d__, real *e, complex *tauq, complex *taup, complex *work,
585  integer *lwork, integer *info);
586 
587 /* Subroutine */ int cgecon_(char *norm, integer *n, complex *a, integer *lda,
588  real *anorm, real *rcond, complex *work, real *rwork, integer *info);
589 
590 /* Subroutine */ int cgeequ_(integer *m, integer *n, complex *a, integer *lda,
591  real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
592  integer *info);
593 
594 /* Subroutine */ int cgeequb_(integer *m, integer *n, complex *a, integer *
595  lda, real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
596  integer *info);
597 
598 /* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, integer *n,
599  complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
600  integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
601  bwork, integer *info);
602 
603 /* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char *
604  sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
605  w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
606  work, integer *lwork, real *rwork, logical *bwork, integer *info);
607 
608 /* Subroutine */ int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a,
609  integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr,
610  integer *ldvr, complex *work, integer *lwork, real *rwork, integer *
611  info);
612 
613 /* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
614  sense, integer *n, complex *a, integer *lda, complex *w, complex *vl,
615  integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi,
616  real *scale, real *abnrm, real *rconde, real *rcondv, complex *work,
617  integer *lwork, real *rwork, integer *info);
618 
619 /* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
620  a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
621  beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr,
622  complex *work, integer *lwork, real *rwork, integer *info);
623 
624 /* Subroutine */ int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a,
625  integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
626  complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
627  work, integer *lwork, real *rwork, integer *info);
628 
629 /* Subroutine */ int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
630  a, integer *lda, complex *tau, complex *work, integer *info);
631 
632 /* Subroutine */ int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
633  a, integer *lda, complex *tau, complex *work, integer *lwork, integer
634  *info);
635 
636 /* Subroutine */ int cgelq2_(integer *m, integer *n, complex *a, integer *lda,
637  complex *tau, complex *work, integer *info);
638 
639 /* Subroutine */ int cgelqf_(integer *m, integer *n, complex *a, integer *lda,
640  complex *tau, complex *work, integer *lwork, integer *info);
641 
642 /* Subroutine */ int cgels_(char *trans, integer *m, integer *n, integer *
643  nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
644  work, integer *lwork, integer *info);
645 
646 /* Subroutine */ int cgelsd_(integer *m, integer *n, integer *nrhs, complex *
647  a, integer *lda, complex *b, integer *ldb, real *s, real *rcond,
648  integer *rank, complex *work, integer *lwork, real *rwork, integer *
649  iwork, integer *info);
650 
651 /* Subroutine */ int cgelss_(integer *m, integer *n, integer *nrhs, complex *
652  a, integer *lda, complex *b, integer *ldb, real *s, real *rcond,
653  integer *rank, complex *work, integer *lwork, real *rwork, integer *
654  info);
655 
656 /* Subroutine */ int cgelsx_(integer *m, integer *n, integer *nrhs, complex *
657  a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
658  integer *rank, complex *work, real *rwork, integer *info);
659 
660 /* Subroutine */ int cgelsy_(integer *m, integer *n, integer *nrhs, complex *
661  a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
662  integer *rank, complex *work, integer *lwork, real *rwork, integer *
663  info);
664 
665 /* Subroutine */ int cgeql2_(integer *m, integer *n, complex *a, integer *lda,
666  complex *tau, complex *work, integer *info);
667 
668 /* Subroutine */ int cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
669  complex *tau, complex *work, integer *lwork, integer *info);
670 
671 /* Subroutine */ int cgeqp3_(integer *m, integer *n, complex *a, integer *lda,
672  integer *jpvt, complex *tau, complex *work, integer *lwork, real *
673  rwork, integer *info);
674 
675 /* Subroutine */ int cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
676  integer *jpvt, complex *tau, complex *work, real *rwork, integer *
677  info);
678 
679 /* Subroutine */ int cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
680  complex *tau, complex *work, integer *info);
681 
682 /* Subroutine */ int cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
683  complex *tau, complex *work, integer *lwork, integer *info);
684 
685 /* Subroutine */ int cgerfs_(char *trans, integer *n, integer *nrhs, complex *
686  a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
687  b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
688  complex *work, real *rwork, integer *info);
689 
690 /* Subroutine */ int cgerfsx_(char *trans, char *equed, integer *n, integer *
691  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
692  ipiv, real *r__, real *c__, complex *b, integer *ldb, complex *x,
693  integer *ldx, real *rcond, real *berr, integer *n_err_bnds__, real *
694  err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
695  params, complex *work, real *rwork, integer *info);
696 
697 /* Subroutine */ int cgerq2_(integer *m, integer *n, complex *a, integer *lda,
698  complex *tau, complex *work, integer *info);
699 
700 /* Subroutine */ int cgerqf_(integer *m, integer *n, complex *a, integer *lda,
701  complex *tau, complex *work, integer *lwork, integer *info);
702 
703 /* Subroutine */ int cgesc2_(integer *n, complex *a, integer *lda, complex *
704  rhs, integer *ipiv, integer *jpiv, real *scale);
705 
706 /* Subroutine */ int cgesdd_(char *jobz, integer *m, integer *n, complex *a,
707  integer *lda, real *s, complex *u, integer *ldu, complex *vt, integer
708  *ldvt, complex *work, integer *lwork, real *rwork, integer *iwork,
709  integer *info);
710 
711 /* Subroutine */ int cgesv_(integer *n, integer *nrhs, complex *a, integer *
712  lda, integer *ipiv, complex *b, integer *ldb, integer *info);
713 
714 /* Subroutine */ int cgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
715  complex *a, integer *lda, real *s, complex *u, integer *ldu, complex *
716  vt, integer *ldvt, complex *work, integer *lwork, real *rwork,
717  integer *info);
718 
719 /* Subroutine */ int cgesvx_(char *fact, char *trans, integer *n, integer *
720  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
721  ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb,
722  complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
723  complex *work, real *rwork, integer *info);
724 
725 /* Subroutine */ int cgesvxx_(char *fact, char *trans, integer *n, integer *
726  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
727  ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb,
728  complex *x, integer *ldx, real *rcond, real *rpvgrw, real *berr,
729  integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__,
730  integer *nparams, real *params, complex *work, real *rwork, integer *
731  info);
732 
733 /* Subroutine */ int cgetc2_(integer *n, complex *a, integer *lda, integer *
734  ipiv, integer *jpiv, integer *info);
735 
736 /* Subroutine */ int cgetf2_(integer *m, integer *n, complex *a, integer *lda,
737  integer *ipiv, integer *info);
738 
739 /* Subroutine */ int cgetrf_(integer *m, integer *n, complex *a, integer *lda,
740  integer *ipiv, integer *info);
741 
742 /* Subroutine */ int cgetri_(integer *n, complex *a, integer *lda, integer *
743  ipiv, complex *work, integer *lwork, integer *info);
744 
745 /* Subroutine */ int cgetrs_(char *trans, integer *n, integer *nrhs, complex *
746  a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
747  info);
748 
749 /* Subroutine */ int cggbak_(char *job, char *side, integer *n, integer *ilo,
750  integer *ihi, real *lscale, real *rscale, integer *m, complex *v,
751  integer *ldv, integer *info);
752 
753 /* Subroutine */ int cggbal_(char *job, integer *n, complex *a, integer *lda,
754  complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale,
755  real *rscale, real *work, integer *info);
756 
757 /* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
758  selctg, integer *n, complex *a, integer *lda, complex *b, integer *
759  ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
760  integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
761  lwork, real *rwork, logical *bwork, integer *info);
762 
763 /* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
764  selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
765  integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
766  vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real
767  *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork,
768  integer *liwork, logical *bwork, integer *info);
769 
770 /* Subroutine */ int cggev_(char *jobvl, char *jobvr, integer *n, complex *a,
771  integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
772  complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
773  work, integer *lwork, real *rwork, integer *info);
774 
775 /* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char *
776  sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
777  complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *
778  vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *
779  rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex
780  *work, integer *lwork, real *rwork, integer *iwork, logical *bwork,
781  integer *info);
782 
783 /* Subroutine */ int cggglm_(integer *n, integer *m, integer *p, complex *a,
784  integer *lda, complex *b, integer *ldb, complex *d__, complex *x,
785  complex *y, complex *work, integer *lwork, integer *info);
786 
787 /* Subroutine */ int cgghrd_(char *compq, char *compz, integer *n, integer *
788  ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb,
789  complex *q, integer *ldq, complex *z__, integer *ldz, integer *info);
790 
791 /* Subroutine */ int cgglse_(integer *m, integer *n, integer *p, complex *a,
792  integer *lda, complex *b, integer *ldb, complex *c__, complex *d__,
793  complex *x, complex *work, integer *lwork, integer *info);
794 
795 /* Subroutine */ int cggqrf_(integer *n, integer *m, integer *p, complex *a,
796  integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
797  complex *work, integer *lwork, integer *info);
798 
799 /* Subroutine */ int cggrqf_(integer *m, integer *p, integer *n, complex *a,
800  integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
801  complex *work, integer *lwork, integer *info);
802 
803 /* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
804  integer *n, integer *p, integer *k, integer *l, complex *a, integer *
805  lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u,
806  integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
807  complex *work, real *rwork, integer *iwork, integer *info);
808 
809 /* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
810  integer *p, integer *n, complex *a, integer *lda, complex *b, integer
811  *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u,
812  integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
813  integer *iwork, real *rwork, complex *tau, complex *work, integer *
814  info);
815 
816 /* Subroutine */ int cgtcon_(char *norm, integer *n, complex *dl, complex *
817  d__, complex *du, complex *du2, integer *ipiv, real *anorm, real *
818  rcond, complex *work, integer *info);
819 
820 /* Subroutine */ int cgtrfs_(char *trans, integer *n, integer *nrhs, complex *
821  dl, complex *d__, complex *du, complex *dlf, complex *df, complex *
822  duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex *
823  x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
824  integer *info);
825 
826 /* Subroutine */ int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *
827  d__, complex *du, complex *b, integer *ldb, integer *info);
828 
829 /* Subroutine */ int cgtsvx_(char *fact, char *trans, integer *n, integer *
830  nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *
831  df, complex *duf, complex *du2, integer *ipiv, complex *b, integer *
832  ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
833  complex *work, real *rwork, integer *info);
834 
835 /* Subroutine */ int cgttrf_(integer *n, complex *dl, complex *d__, complex *
836  du, complex *du2, integer *ipiv, integer *info);
837 
838 /* Subroutine */ int cgttrs_(char *trans, integer *n, integer *nrhs, complex *
839  dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *
840  b, integer *ldb, integer *info);
841 
842 /* Subroutine */ int cgtts2_(integer *itrans, integer *n, integer *nrhs,
843  complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv,
844  complex *b, integer *ldb);
845 
846 /* Subroutine */ int chbev_(char *jobz, char *uplo, integer *n, integer *kd,
847  complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
848  complex *work, real *rwork, integer *info);
849 
850 /* Subroutine */ int chbevd_(char *jobz, char *uplo, integer *n, integer *kd,
851  complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
852  complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
853  iwork, integer *liwork, integer *info);
854 
855 /* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, integer *n,
856  integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq,
857  real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
858  m, real *w, complex *z__, integer *ldz, complex *work, real *rwork,
859  integer *iwork, integer *ifail, integer *info);
860 
861 /* Subroutine */ int chbgst_(char *vect, char *uplo, integer *n, integer *ka,
862  integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
863  complex *x, integer *ldx, complex *work, real *rwork, integer *info);
864 
865 /* Subroutine */ int chbgv_(char *jobz, char *uplo, integer *n, integer *ka,
866  integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
867  real *w, complex *z__, integer *ldz, complex *work, real *rwork,
868  integer *info);
869 
870 /* Subroutine */ int chbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
871  integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
872  real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
873  real *rwork, integer *lrwork, integer *iwork, integer *liwork,
874  integer *info);
875 
876 /* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, integer *n,
877  integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb,
878  integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer *
879  il, integer *iu, real *abstol, integer *m, real *w, complex *z__,
880  integer *ldz, complex *work, real *rwork, integer *iwork, integer *
881  ifail, integer *info);
882 
883 /* Subroutine */ int chbtrd_(char *vect, char *uplo, integer *n, integer *kd,
884  complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *
885  ldq, complex *work, integer *info);
886 
887 /* Subroutine */ int checon_(char *uplo, integer *n, complex *a, integer *lda,
888  integer *ipiv, real *anorm, real *rcond, complex *work, integer *
889  info);
890 
891 /* Subroutine */ int cheequb_(char *uplo, integer *n, complex *a, integer *
892  lda, real *s, real *scond, real *amax, complex *work, integer *info);
893 
894 /* Subroutine */ int cheev_(char *jobz, char *uplo, integer *n, complex *a,
895  integer *lda, real *w, complex *work, integer *lwork, real *rwork,
896  integer *info);
897 
898 /* Subroutine */ int cheevd_(char *jobz, char *uplo, integer *n, complex *a,
899  integer *lda, real *w, complex *work, integer *lwork, real *rwork,
900  integer *lrwork, integer *iwork, integer *liwork, integer *info);
901 
902 /* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, integer *n,
903  complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
904  iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
905  integer *isuppz, complex *work, integer *lwork, real *rwork, integer *
906  lrwork, integer *iwork, integer *liwork, integer *info);
907 
908 /* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, integer *n,
909  complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
910  iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
911  complex *work, integer *lwork, real *rwork, integer *iwork, integer *
912  ifail, integer *info);
913 
914 /* Subroutine */ int chegs2_(integer *itype, char *uplo, integer *n, complex *
915  a, integer *lda, complex *b, integer *ldb, integer *info);
916 
917 /* Subroutine */ int chegst_(integer *itype, char *uplo, integer *n, complex *
918  a, integer *lda, complex *b, integer *ldb, integer *info);
919 
920 /* Subroutine */ int chegv_(integer *itype, char *jobz, char *uplo, integer *
921  n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
922  complex *work, integer *lwork, real *rwork, integer *info);
923 
924 /* Subroutine */ int chegvd_(integer *itype, char *jobz, char *uplo, integer *
925  n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
926  complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
927  iwork, integer *liwork, integer *info);
928 
929 /* Subroutine */ int chegvx_(integer *itype, char *jobz, char *range, char *
930  uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
931  real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
932  m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
933  real *rwork, integer *iwork, integer *ifail, integer *info);
934 
935 /* Subroutine */ int cherfs_(char *uplo, integer *n, integer *nrhs, complex *
936  a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
937  b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
938  complex *work, real *rwork, integer *info);
939 
940 /* Subroutine */ int cherfsx_(char *uplo, char *equed, integer *n, integer *
941  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
942  ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
943  real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__,
944  real *err_bnds_comp__, integer *nparams, real *params, complex *work,
945  real *rwork, integer *info);
946 
947 /* Subroutine */ int chesv_(char *uplo, integer *n, integer *nrhs, complex *a,
948  integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
949  integer *lwork, integer *info);
950 
951 /* Subroutine */ int chesvx_(char *fact, char *uplo, integer *n, integer *
952  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
953  ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
954  real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
955  integer *info);
956 
957 /* Subroutine */ int chesvxx_(char *fact, char *uplo, integer *n, integer *
958  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
959  ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x,
960  integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
961  n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
962  nparams, real *params, complex *work, real *rwork, integer *info);
963 
964 /* Subroutine */ int chetd2_(char *uplo, integer *n, complex *a, integer *lda,
965  real *d__, real *e, complex *tau, integer *info);
966 
967 /* Subroutine */ int chetf2_(char *uplo, integer *n, complex *a, integer *lda,
968  integer *ipiv, integer *info);
969 
970 /* Subroutine */ int chetrd_(char *uplo, integer *n, complex *a, integer *lda,
971  real *d__, real *e, complex *tau, complex *work, integer *lwork,
972  integer *info);
973 
974 /* Subroutine */ int chetrf_(char *uplo, integer *n, complex *a, integer *lda,
975  integer *ipiv, complex *work, integer *lwork, integer *info);
976 
977 /* Subroutine */ int chetri_(char *uplo, integer *n, complex *a, integer *lda,
978  integer *ipiv, complex *work, integer *info);
979 
980 /* Subroutine */ int chetrs_(char *uplo, integer *n, integer *nrhs, complex *
981  a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
982  info);
983 
984 /* Subroutine */ int chfrk_(char *transr, char *uplo, char *trans, integer *n,
985  integer *k, real *alpha, complex *a, integer *lda, real *beta,
986  complex *c__);
987 
988 /* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, integer *n,
989  integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *t,
990  integer *ldt, complex *alpha, complex *beta, complex *q, integer *ldq,
991  complex *z__, integer *ldz, complex *work, integer *lwork, real *
992  rwork, integer *info);
993 
994 /* Character */ VOID chla_transtype__(char *ret_val, ftnlen ret_val_len,
995  integer *trans);
996 
997 /* Subroutine */ int chpcon_(char *uplo, integer *n, complex *ap, integer *
998  ipiv, real *anorm, real *rcond, complex *work, integer *info);
999 
1000 /* Subroutine */ int chpev_(char *jobz, char *uplo, integer *n, complex *ap,
1001  real *w, complex *z__, integer *ldz, complex *work, real *rwork,
1002  integer *info);
1003 
1004 /* Subroutine */ int chpevd_(char *jobz, char *uplo, integer *n, complex *ap,
1005  real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
1006  real *rwork, integer *lrwork, integer *iwork, integer *liwork,
1007  integer *info);
1008 
1009 /* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, integer *n,
1010  complex *ap, real *vl, real *vu, integer *il, integer *iu, real *
1011  abstol, integer *m, real *w, complex *z__, integer *ldz, complex *
1012  work, real *rwork, integer *iwork, integer *ifail, integer *info);
1013 
1014 /* Subroutine */ int chpgst_(integer *itype, char *uplo, integer *n, complex *
1015  ap, complex *bp, integer *info);
1016 
1017 /* Subroutine */ int chpgv_(integer *itype, char *jobz, char *uplo, integer *
1018  n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
1019  complex *work, real *rwork, integer *info);
1020 
1021 /* Subroutine */ int chpgvd_(integer *itype, char *jobz, char *uplo, integer *
1022  n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
1023  complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
1024  iwork, integer *liwork, integer *info);
1025 
1026 /* Subroutine */ int chpgvx_(integer *itype, char *jobz, char *range, char *
1027  uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu,
1028  integer *il, integer *iu, real *abstol, integer *m, real *w, complex *
1029  z__, integer *ldz, complex *work, real *rwork, integer *iwork,
1030  integer *ifail, integer *info);
1031 
1032 /* Subroutine */ int chprfs_(char *uplo, integer *n, integer *nrhs, complex *
1033  ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
1034  integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1035  integer *info);
1036 
1037 /* Subroutine */ int chpsv_(char *uplo, integer *n, integer *nrhs, complex *
1038  ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1039 
1040 /* Subroutine */ int chpsvx_(char *fact, char *uplo, integer *n, integer *
1041  nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
1042  ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
1043  complex *work, real *rwork, integer *info);
1044 
1045 /* Subroutine */ int chptrd_(char *uplo, integer *n, complex *ap, real *d__,
1046  real *e, complex *tau, integer *info);
1047 
1048 /* Subroutine */ int chptrf_(char *uplo, integer *n, complex *ap, integer *
1049  ipiv, integer *info);
1050 
1051 /* Subroutine */ int chptri_(char *uplo, integer *n, complex *ap, integer *
1052  ipiv, complex *work, integer *info);
1053 
1054 /* Subroutine */ int chptrs_(char *uplo, integer *n, integer *nrhs, complex *
1055  ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1056 
1057 /* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical *
1058  select, integer *n, complex *h__, integer *ldh, complex *w, complex *
1059  vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *
1060  m, complex *work, real *rwork, integer *ifaill, integer *ifailr,
1061  integer *info);
1062 
1063 /* Subroutine */ int chseqr_(char *job, char *compz, integer *n, integer *ilo,
1064  integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__,
1065  integer *ldz, complex *work, integer *lwork, integer *info);
1066 
1067 /* Subroutine */ int cla_gbamv__(integer *trans, integer *m, integer *n,
1068  integer *kl, integer *ku, real *alpha, complex *ab, integer *ldab,
1069  complex *x, integer *incx, real *beta, real *y, integer *incy);
1070 
1071 doublereal cla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku,
1072  complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
1073  ipiv, real *c__, logical *capply, integer *info, complex *work, real *
1074  rwork, ftnlen trans_len);
1075 
1076 doublereal cla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku,
1077  complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
1078  ipiv, complex *x, integer *info, complex *work, real *rwork, ftnlen
1079  trans_len);
1080 
1081 /* Subroutine */ int cla_gbrfsx_extended__(integer *prec_type__, integer *
1082  trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
1083  complex *ab, integer *ldab, complex *afb, integer *ldafb, integer *
1084  ipiv, logical *colequ, real *c__, complex *b, integer *ldb, complex *
1085  y, integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__,
1086  real *errs_c__, complex *res, real *ayb, complex *dy, complex *
1087  y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__,
1088  logical *ignore_cwise__, integer *info);
1089 
1090 doublereal cla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
1091  ncols, complex *ab, integer *ldab, complex *afb, integer *ldafb);
1092 
1093 /* Subroutine */ int cla_geamv__(integer *trans, integer *m, integer *n, real
1094  *alpha, complex *a, integer *lda, complex *x, integer *incx, real *
1095  beta, real *y, integer *incy);
1096 
1097 doublereal cla_gercond_c__(char *trans, integer *n, complex *a, integer *lda,
1098  complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
1099  integer *info, complex *work, real *rwork, ftnlen trans_len);
1100 
1101 doublereal cla_gercond_x__(char *trans, integer *n, complex *a, integer *lda,
1102  complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info,
1103  complex *work, real *rwork, ftnlen trans_len);
1104 
1105 /* Subroutine */ int cla_gerfsx_extended__(integer *prec_type__, integer *
1106  trans_type__, integer *n, integer *nrhs, complex *a, integer *lda,
1107  complex *af, integer *ldaf, integer *ipiv, logical *colequ, real *c__,
1108  complex *b, integer *ldb, complex *y, integer *ldy, real *berr_out__,
1109  integer *n_norms__, real *errs_n__, real *errs_c__, complex *res,
1110  real *ayb, complex *dy, complex *y_tail__, real *rcond, integer *
1111  ithresh, real *rthresh, real *dz_ub__, logical *ignore_cwise__,
1112  integer *info);
1113 
1114 /* Subroutine */ int cla_heamv__(integer *uplo, integer *n, real *alpha,
1115  complex *a, integer *lda, complex *x, integer *incx, real *beta, real
1116  *y, integer *incy);
1117 
1118 doublereal cla_hercond_c__(char *uplo, integer *n, complex *a, integer *lda,
1119  complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
1120  integer *info, complex *work, real *rwork, ftnlen uplo_len);
1121 
1122 doublereal cla_hercond_x__(char *uplo, integer *n, complex *a, integer *lda,
1123  complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info,
1124  complex *work, real *rwork, ftnlen uplo_len);
1125 
1126 /* Subroutine */ int cla_herfsx_extended__(integer *prec_type__, char *uplo,
1127  integer *n, integer *nrhs, complex *a, integer *lda, complex *af,
1128  integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b,
1129  integer *ldb, complex *y, integer *ldy, real *berr_out__, integer *
1130  n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb,
1131  complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real *
1132  rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info,
1133  ftnlen uplo_len);
1134 
1135 doublereal cla_herpvgrw__(char *uplo, integer *n, integer *info, complex *a,
1136  integer *lda, complex *af, integer *ldaf, integer *ipiv, real *work,
1137  ftnlen uplo_len);
1138 
1139 /* Subroutine */ int cla_lin_berr__(integer *n, integer *nz, integer *nrhs,
1140  complex *res, real *ayb, real *berr);
1141 
1142 doublereal cla_porcond_c__(char *uplo, integer *n, complex *a, integer *lda,
1143  complex *af, integer *ldaf, real *c__, logical *capply, integer *info,
1144  complex *work, real *rwork, ftnlen uplo_len);
1145 
1146 doublereal cla_porcond_x__(char *uplo, integer *n, complex *a, integer *lda,
1147  complex *af, integer *ldaf, complex *x, integer *info, complex *work,
1148  real *rwork, ftnlen uplo_len);
1149 
1150 /* Subroutine */ int cla_porfsx_extended__(integer *prec_type__, char *uplo,
1151  integer *n, integer *nrhs, complex *a, integer *lda, complex *af,
1152  integer *ldaf, logical *colequ, real *c__, complex *b, integer *ldb,
1153  complex *y, integer *ldy, real *berr_out__, integer *n_norms__, real *
1154  errs_n__, real *errs_c__, complex *res, real *ayb, complex *dy,
1155  complex *y_tail__, real *rcond, integer *ithresh, real *rthresh, real
1156  *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen uplo_len);
1157 
1158 doublereal cla_porpvgrw__(char *uplo, integer *ncols, complex *a, integer *
1159  lda, complex *af, integer *ldaf, real *work, ftnlen uplo_len);
1160 
1161 doublereal cla_rpvgrw__(integer *n, integer *ncols, complex *a, integer *lda,
1162  complex *af, integer *ldaf);
1163 
1164 /* Subroutine */ int cla_syamv__(integer *uplo, integer *n, real *alpha,
1165  complex *a, integer *lda, complex *x, integer *incx, real *beta, real
1166  *y, integer *incy);
1167 
1168 doublereal cla_syrcond_c__(char *uplo, integer *n, complex *a, integer *lda,
1169  complex *af, integer *ldaf, integer *ipiv, real *c__, logical *capply,
1170  integer *info, complex *work, real *rwork, ftnlen uplo_len);
1171 
1172 doublereal cla_syrcond_x__(char *uplo, integer *n, complex *a, integer *lda,
1173  complex *af, integer *ldaf, integer *ipiv, complex *x, integer *info,
1174  complex *work, real *rwork, ftnlen uplo_len);
1175 
1176 /* Subroutine */ int cla_syrfsx_extended__(integer *prec_type__, char *uplo,
1177  integer *n, integer *nrhs, complex *a, integer *lda, complex *af,
1178  integer *ldaf, integer *ipiv, logical *colequ, real *c__, complex *b,
1179  integer *ldb, complex *y, integer *ldy, real *berr_out__, integer *
1180  n_norms__, real *errs_n__, real *errs_c__, complex *res, real *ayb,
1181  complex *dy, complex *y_tail__, real *rcond, integer *ithresh, real *
1182  rthresh, real *dz_ub__, logical *ignore_cwise__, integer *info,
1183  ftnlen uplo_len);
1184 
1185 doublereal cla_syrpvgrw__(char *uplo, integer *n, integer *info, complex *a,
1186  integer *lda, complex *af, integer *ldaf, integer *ipiv, real *work,
1187  ftnlen uplo_len);
1188 
1189 /* Subroutine */ int cla_wwaddw__(integer *n, complex *x, complex *y, complex
1190  *w);
1191 
1192 /* Subroutine */ int clabrd_(integer *m, integer *n, integer *nb, complex *a,
1193  integer *lda, real *d__, real *e, complex *tauq, complex *taup,
1194  complex *x, integer *ldx, complex *y, integer *ldy);
1195 
1196 /* Subroutine */ int clacgv_(integer *n, complex *x, integer *incx);
1197 
1198 /* Subroutine */ int clacn2_(integer *n, complex *v, complex *x, real *est,
1199  integer *kase, integer *isave);
1200 
1201 /* Subroutine */ int clacon_(integer *n, complex *v, complex *x, real *est,
1202  integer *kase);
1203 
1204 /* Subroutine */ int clacp2_(char *uplo, integer *m, integer *n, real *a,
1205  integer *lda, complex *b, integer *ldb);
1206 
1207 /* Subroutine */ int clacpy_(char *uplo, integer *m, integer *n, complex *a,
1208  integer *lda, complex *b, integer *ldb);
1209 
1210 /* Subroutine */ int clacrm_(integer *m, integer *n, complex *a, integer *lda,
1211  real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
1212 
1213 /* Subroutine */ int clacrt_(integer *n, complex *cx, integer *incx, complex *
1214  cy, integer *incy, complex *c__, complex *s);
1215 
1216 /* Complex */ VOID cladiv_(complex * ret_val, complex *x, complex *y);
1217 
1218 /* Subroutine */ int claed0_(integer *qsiz, integer *n, real *d__, real *e,
1219  complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork,
1220  integer *iwork, integer *info);
1221 
1222 /* Subroutine */ int claed7_(integer *n, integer *cutpnt, integer *qsiz,
1223  integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex *
1224  q, integer *ldq, real *rho, integer *indxq, real *qstore, integer *
1225  qptr, integer *prmptr, integer *perm, integer *givptr, integer *
1226  givcol, real *givnum, complex *work, real *rwork, integer *iwork,
1227  integer *info);
1228 
1229 /* Subroutine */ int claed8_(integer *k, integer *n, integer *qsiz, complex *
1230  q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__,
1231  real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp,
1232  integer *indx, integer *indxq, integer *perm, integer *givptr,
1233  integer *givcol, real *givnum, integer *info);
1234 
1235 /* Subroutine */ int claein_(logical *rightv, logical *noinit, integer *n,
1236  complex *h__, integer *ldh, complex *w, complex *v, complex *b,
1237  integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info);
1238 
1239 /* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex *
1240  rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
1241 
1242 /* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1,
1243  real *rt2, real *cs1, complex *sn1);
1244 
1245 /* Subroutine */ int clag2z_(integer *m, integer *n, complex *sa, integer *
1246  ldsa, doublecomplex *a, integer *lda, integer *info);
1247 
1248 /* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3,
1249  real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv,
1250  complex *snv, real *csq, complex *snq);
1251 
1252 /* Subroutine */ int clagtm_(char *trans, integer *n, integer *nrhs, real *
1253  alpha, complex *dl, complex *d__, complex *du, complex *x, integer *
1254  ldx, real *beta, complex *b, integer *ldb);
1255 
1256 /* Subroutine */ int clahef_(char *uplo, integer *n, integer *nb, integer *kb,
1257  complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
1258  integer *info);
1259 
1260 /* Subroutine */ int clahqr_(logical *wantt, logical *wantz, integer *n,
1261  integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
1262  integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
1263  info);
1264 
1265 /* Subroutine */ int clahr2_(integer *n, integer *k, integer *nb, complex *a,
1266  integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
1267  integer *ldy);
1268 
1269 /* Subroutine */ int clahrd_(integer *n, integer *k, integer *nb, complex *a,
1270  integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
1271  integer *ldy);
1272 
1273 /* Subroutine */ int claic1_(integer *job, integer *j, complex *x, real *sest,
1274  complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
1275 
1276 /* Subroutine */ int clals0_(integer *icompq, integer *nl, integer *nr,
1277  integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx,
1278  integer *ldbx, integer *perm, integer *givptr, integer *givcol,
1279  integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
1280  difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
1281  rwork, integer *info);
1282 
1283 /* Subroutine */ int clalsa_(integer *icompq, integer *smlsiz, integer *n,
1284  integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx,
1285  real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr,
1286  real *z__, real *poles, integer *givptr, integer *givcol, integer *
1287  ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork,
1288  integer *iwork, integer *info);
1289 
1290 /* Subroutine */ int clalsd_(char *uplo, integer *smlsiz, integer *n, integer
1291  *nrhs, real *d__, real *e, complex *b, integer *ldb, real *rcond,
1292  integer *rank, complex *work, real *rwork, integer *iwork, integer *
1293  info);
1294 
1295 doublereal clangb_(char *norm, integer *n, integer *kl, integer *ku, complex *
1296  ab, integer *ldab, real *work);
1297 
1298 doublereal clange_(char *norm, integer *m, integer *n, complex *a, integer *
1299  lda, real *work);
1300 
1301 doublereal clangt_(char *norm, integer *n, complex *dl, complex *d__, complex
1302  *du);
1303 
1304 doublereal clanhb_(char *norm, char *uplo, integer *n, integer *k, complex *
1305  ab, integer *ldab, real *work);
1306 
1307 doublereal clanhe_(char *norm, char *uplo, integer *n, complex *a, integer *
1308  lda, real *work);
1309 
1310 doublereal clanhf_(char *norm, char *transr, char *uplo, integer *n, complex *
1311  a, real *work);
1312 
1313 doublereal clanhp_(char *norm, char *uplo, integer *n, complex *ap, real *
1314  work);
1315 
1316 doublereal clanhs_(char *norm, integer *n, complex *a, integer *lda, real *
1317  work);
1318 
1319 doublereal clanht_(char *norm, integer *n, real *d__, complex *e);
1320 
1321 doublereal clansb_(char *norm, char *uplo, integer *n, integer *k, complex *
1322  ab, integer *ldab, real *work);
1323 
1324 doublereal clansp_(char *norm, char *uplo, integer *n, complex *ap, real *
1325  work);
1326 
1327 doublereal clansy_(char *norm, char *uplo, integer *n, complex *a, integer *
1328  lda, real *work);
1329 
1330 doublereal clantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
1331  complex *ab, integer *ldab, real *work);
1332 
1333 doublereal clantp_(char *norm, char *uplo, char *diag, integer *n, complex *
1334  ap, real *work);
1335 
1336 doublereal clantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
1337  complex *a, integer *lda, real *work);
1338 
1339 /* Subroutine */ int clapll_(integer *n, complex *x, integer *incx, complex *
1340  y, integer *incy, real *ssmin);
1341 
1342 /* Subroutine */ int clapmt_(logical *forwrd, integer *m, integer *n, complex
1343  *x, integer *ldx, integer *k);
1344 
1345 /* Subroutine */ int claqgb_(integer *m, integer *n, integer *kl, integer *ku,
1346  complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
1347  *colcnd, real *amax, char *equed);
1348 
1349 /* Subroutine */ int claqge_(integer *m, integer *n, complex *a, integer *lda,
1350  real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
1351  equed);
1352 
1353 /* Subroutine */ int claqhb_(char *uplo, integer *n, integer *kd, complex *ab,
1354  integer *ldab, real *s, real *scond, real *amax, char *equed);
1355 
1356 /* Subroutine */ int claqhe_(char *uplo, integer *n, complex *a, integer *lda,
1357  real *s, real *scond, real *amax, char *equed);
1358 
1359 /* Subroutine */ int claqhp_(char *uplo, integer *n, complex *ap, real *s,
1360  real *scond, real *amax, char *equed);
1361 
1362 /* Subroutine */ int claqp2_(integer *m, integer *n, integer *offset, complex
1363  *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2,
1364  complex *work);
1365 
1366 /* Subroutine */ int claqps_(integer *m, integer *n, integer *offset, integer
1367  *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *
1368  tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
1369 
1370 /* Subroutine */ int claqr0_(logical *wantt, logical *wantz, integer *n,
1371  integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
1372  integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex *
1373  work, integer *lwork, integer *info);
1374 
1375 /* Subroutine */ int claqr1_(integer *n, complex *h__, integer *ldh, complex *
1376  s1, complex *s2, complex *v);
1377 
1378 /* Subroutine */ int claqr2_(logical *wantt, logical *wantz, integer *n,
1379  integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh,
1380  integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
1381  ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh,
1382  complex *t, integer *ldt, integer *nv, complex *wv, integer *ldwv,
1383  complex *work, integer *lwork);
1384 
1385 /* Subroutine */ int claqr3_(logical *wantt, logical *wantz, integer *n,
1386  integer *ktop, integer *kbot, integer *nw, complex *h__, integer *ldh,
1387  integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
1388  ns, integer *nd, complex *sh, complex *v, integer *ldv, integer *nh,
1389  complex *t, integer *ldt, integer *nv, complex *wv, integer *ldwv,
1390  complex *work, integer *lwork);
1391 
1392 /* Subroutine */ int claqr4_(logical *wantt, logical *wantz, integer *n,
1393  integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
1394  integer *iloz, integer *ihiz, complex *z__, integer *ldz, complex *
1395  work, integer *lwork, integer *info);
1396 
1397 /* Subroutine */ int claqr5_(logical *wantt, logical *wantz, integer *kacc22,
1398  integer *n, integer *ktop, integer *kbot, integer *nshfts, complex *s,
1399  complex *h__, integer *ldh, integer *iloz, integer *ihiz, complex *
1400  z__, integer *ldz, complex *v, integer *ldv, complex *u, integer *ldu,
1401  integer *nv, complex *wv, integer *ldwv, integer *nh, complex *wh,
1402  integer *ldwh);
1403 
1404 /* Subroutine */ int claqsb_(char *uplo, integer *n, integer *kd, complex *ab,
1405  integer *ldab, real *s, real *scond, real *amax, char *equed);
1406 
1407 /* Subroutine */ int claqsp_(char *uplo, integer *n, complex *ap, real *s,
1408  real *scond, real *amax, char *equed);
1409 
1410 /* Subroutine */ int claqsy_(char *uplo, integer *n, complex *a, integer *lda,
1411  real *s, real *scond, real *amax, char *equed);
1412 
1413 /* Subroutine */ int clar1v_(integer *n, integer *b1, integer *bn, real *
1414  lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
1415  gaptol, complex *z__, logical *wantnc, integer *negcnt, real *ztz,
1416  real *mingma, integer *r__, integer *isuppz, real *nrminv, real *
1417  resid, real *rqcorr, real *work);
1418 
1419 /* Subroutine */ int clar2v_(integer *n, complex *x, complex *y, complex *z__,
1420  integer *incx, real *c__, complex *s, integer *incc);
1421 
1422 /* Subroutine */ int clarcm_(integer *m, integer *n, real *a, integer *lda,
1423  complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
1424 
1425 /* Subroutine */ int clarf_(char *side, integer *m, integer *n, complex *v,
1426  integer *incv, complex *tau, complex *c__, integer *ldc, complex *
1427  work);
1428 
1429 /* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char *
1430  storev, integer *m, integer *n, integer *k, complex *v, integer *ldv,
1431  complex *t, integer *ldt, complex *c__, integer *ldc, complex *work,
1432  integer *ldwork);
1433 
1434 /* Subroutine */ int clarfg_(integer *n, complex *alpha, complex *x, integer *
1435  incx, complex *tau);
1436 
1437 /* Subroutine */ int clarfp_(integer *n, complex *alpha, complex *x, integer *
1438  incx, complex *tau);
1439 
1440 /* Subroutine */ int clarft_(char *direct, char *storev, integer *n, integer *
1441  k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
1442 
1443 /* Subroutine */ int clarfx_(char *side, integer *m, integer *n, complex *v,
1444  complex *tau, complex *c__, integer *ldc, complex *work);
1445 
1446 /* Subroutine */ int clargv_(integer *n, complex *x, integer *incx, complex *
1447  y, integer *incy, real *c__, integer *incc);
1448 
1449 /* Subroutine */ int clarnv_(integer *idist, integer *iseed, integer *n,
1450  complex *x);
1451 
1452 /* Subroutine */ int clarrv_(integer *n, real *vl, real *vu, real *d__, real *
1453  l, real *pivmin, integer *isplit, integer *m, integer *dol, integer *
1454  dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr,
1455  real *wgap, integer *iblock, integer *indexw, real *gers, complex *
1456  z__, integer *ldz, integer *isuppz, real *work, integer *iwork,
1457  integer *info);
1458 
1459 /* Subroutine */ int clarscl2_(integer *m, integer *n, real *d__, complex *x,
1460  integer *ldx);
1461 
1462 /* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn,
1463  complex *r__);
1464 
1465 /* Subroutine */ int clartv_(integer *n, complex *x, integer *incx, complex *
1466  y, integer *incy, real *c__, complex *s, integer *incc);
1467 
1468 /* Subroutine */ int clarz_(char *side, integer *m, integer *n, integer *l,
1469  complex *v, integer *incv, complex *tau, complex *c__, integer *ldc,
1470  complex *work);
1471 
1472 /* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char *
1473  storev, integer *m, integer *n, integer *k, integer *l, complex *v,
1474  integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc,
1475  complex *work, integer *ldwork);
1476 
1477 /* Subroutine */ int clarzt_(char *direct, char *storev, integer *n, integer *
1478  k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
1479 
1480 /* Subroutine */ int clascl_(char *type__, integer *kl, integer *ku, real *
1481  cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda,
1482  integer *info);
1483 
1484 /* Subroutine */ int clascl2_(integer *m, integer *n, real *d__, complex *x,
1485  integer *ldx);
1486 
1487 /* Subroutine */ int claset_(char *uplo, integer *m, integer *n, complex *
1488  alpha, complex *beta, complex *a, integer *lda);
1489 
1490 /* Subroutine */ int clasr_(char *side, char *pivot, char *direct, integer *m,
1491  integer *n, real *c__, real *s, complex *a, integer *lda);
1492 
1493 /* Subroutine */ int classq_(integer *n, complex *x, integer *incx, real *
1494  scale, real *sumsq);
1495 
1496 /* Subroutine */ int claswp_(integer *n, complex *a, integer *lda, integer *
1497  k1, integer *k2, integer *ipiv, integer *incx);
1498 
1499 /* Subroutine */ int clasyf_(char *uplo, integer *n, integer *nb, integer *kb,
1500  complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
1501  integer *info);
1502 
1503 /* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char *
1504  normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *
1505  x, real *scale, real *cnorm, integer *info);
1506 
1507 /* Subroutine */ int clatdf_(integer *ijob, integer *n, complex *z__, integer
1508  *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer
1509  *jpiv);
1510 
1511 /* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char *
1512  normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm,
1513  integer *info);
1514 
1515 /* Subroutine */ int clatrd_(char *uplo, integer *n, integer *nb, complex *a,
1516  integer *lda, real *e, complex *tau, complex *w, integer *ldw);
1517 
1518 /* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char *
1519  normin, integer *n, complex *a, integer *lda, complex *x, real *scale,
1520  real *cnorm, integer *info);
1521 
1522 /* Subroutine */ int clatrz_(integer *m, integer *n, integer *l, complex *a,
1523  integer *lda, complex *tau, complex *work);
1524 
1525 /* Subroutine */ int clatzm_(char *side, integer *m, integer *n, complex *v,
1526  integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc,
1527  complex *work);
1528 
1529 /* Subroutine */ int clauu2_(char *uplo, integer *n, complex *a, integer *lda,
1530  integer *info);
1531 
1532 /* Subroutine */ int clauum_(char *uplo, integer *n, complex *a, integer *lda,
1533  integer *info);
1534 
1535 /* Subroutine */ int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab,
1536  integer *ldab, real *anorm, real *rcond, complex *work, real *rwork,
1537  integer *info);
1538 
1539 /* Subroutine */ int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab,
1540  integer *ldab, real *s, real *scond, real *amax, integer *info);
1541 
1542 /* Subroutine */ int cpbrfs_(char *uplo, integer *n, integer *kd, integer *
1543  nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb,
1544  complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *
1545  berr, complex *work, real *rwork, integer *info);
1546 
1547 /* Subroutine */ int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab,
1548  integer *ldab, integer *info);
1549 
1550 /* Subroutine */ int cpbsv_(char *uplo, integer *n, integer *kd, integer *
1551  nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
1552  info);
1553 
1554 /* Subroutine */ int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
1555  integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
1556  ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x,
1557  integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
1558  real *rwork, integer *info);
1559 
1560 /* Subroutine */ int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab,
1561  integer *ldab, integer *info);
1562 
1563 /* Subroutine */ int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab,
1564  integer *ldab, integer *info);
1565 
1566 /* Subroutine */ int cpbtrs_(char *uplo, integer *n, integer *kd, integer *
1567  nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
1568  info);
1569 
1570 /* Subroutine */ int cpftrf_(char *transr, char *uplo, integer *n, complex *a,
1571  integer *info);
1572 
1573 /* Subroutine */ int cpftri_(char *transr, char *uplo, integer *n, complex *a,
1574  integer *info);
1575 
1576 /* Subroutine */ int cpftrs_(char *transr, char *uplo, integer *n, integer *
1577  nrhs, complex *a, complex *b, integer *ldb, integer *info);
1578 
1579 /* Subroutine */ int cpocon_(char *uplo, integer *n, complex *a, integer *lda,
1580  real *anorm, real *rcond, complex *work, real *rwork, integer *info);
1581 
1582 /* Subroutine */ int cpoequ_(integer *n, complex *a, integer *lda, real *s,
1583  real *scond, real *amax, integer *info);
1584 
1585 /* Subroutine */ int cpoequb_(integer *n, complex *a, integer *lda, real *s,
1586  real *scond, real *amax, integer *info);
1587 
1588 /* Subroutine */ int cporfs_(char *uplo, integer *n, integer *nrhs, complex *
1589  a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb,
1590  complex *x, integer *ldx, real *ferr, real *berr, complex *work,
1591  real *rwork, integer *info);
1592 
1593 /* Subroutine */ int cporfsx_(char *uplo, char *equed, integer *n, integer *
1594  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, real *s,
1595  complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real
1596  *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *
1597  err_bnds_comp__, integer *nparams, real *params, complex *work, real *
1598  rwork, integer *info);
1599 
1600 /* Subroutine */ int cposv_(char *uplo, integer *n, integer *nrhs, complex *a,
1601  integer *lda, complex *b, integer *ldb, integer *info);
1602 
1603 /* Subroutine */ int cposvx_(char *fact, char *uplo, integer *n, integer *
1604  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
1605  equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
1606  real *rcond, real *ferr, real *berr, complex *work, real *rwork,
1607  integer *info);
1608 
1609 /* Subroutine */ int cposvxx_(char *fact, char *uplo, integer *n, integer *
1610  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
1611  equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
1612  real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real *
1613  err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
1614  params, complex *work, real *rwork, integer *info);
1615 
1616 /* Subroutine */ int cpotf2_(char *uplo, integer *n, complex *a, integer *lda,
1617  integer *info);
1618 
1619 /* Subroutine */ int cpotrf_(char *uplo, integer *n, complex *a, integer *lda,
1620  integer *info);
1621 
1622 /* Subroutine */ int cpotri_(char *uplo, integer *n, complex *a, integer *lda,
1623  integer *info);
1624 
1625 /* Subroutine */ int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *
1626  a, integer *lda, complex *b, integer *ldb, integer *info);
1627 
1628 /* Subroutine */ int cppcon_(char *uplo, integer *n, complex *ap, real *anorm,
1629  real *rcond, complex *work, real *rwork, integer *info);
1630 
1631 /* Subroutine */ int cppequ_(char *uplo, integer *n, complex *ap, real *s,
1632  real *scond, real *amax, integer *info);
1633 
1634 /* Subroutine */ int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *
1635  ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx,
1636  real *ferr, real *berr, complex *work, real *rwork, integer *info);
1637 
1638 /* Subroutine */ int cppsv_(char *uplo, integer *n, integer *nrhs, complex *
1639  ap, complex *b, integer *ldb, integer *info);
1640 
1641 /* Subroutine */ int cppsvx_(char *fact, char *uplo, integer *n, integer *
1642  nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b,
1643  integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real
1644  *berr, complex *work, real *rwork, integer *info);
1645 
1646 /* Subroutine */ int cpptrf_(char *uplo, integer *n, complex *ap, integer *
1647  info);
1648 
1649 /* Subroutine */ int cpptri_(char *uplo, integer *n, complex *ap, integer *
1650  info);
1651 
1652 /* Subroutine */ int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *
1653  ap, complex *b, integer *ldb, integer *info);
1654 
1655 /* Subroutine */ int cpstf2_(char *uplo, integer *n, complex *a, integer *lda,
1656  integer *piv, integer *rank, real *tol, real *work, integer *info);
1657 
1658 /* Subroutine */ int cpstrf_(char *uplo, integer *n, complex *a, integer *lda,
1659  integer *piv, integer *rank, real *tol, real *work, integer *info);
1660 
1661 /* Subroutine */ int cptcon_(integer *n, real *d__, complex *e, real *anorm,
1662  real *rcond, real *rwork, integer *info);
1663 
1664 /* Subroutine */ int cpteqr_(char *compz, integer *n, real *d__, real *e,
1665  complex *z__, integer *ldz, real *work, integer *info);
1666 
1667 /* Subroutine */ int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__,
1668  complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
1669  *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1670  integer *info);
1671 
1672 /* Subroutine */ int cptsv_(integer *n, integer *nrhs, real *d__, complex *e,
1673  complex *b, integer *ldb, integer *info);
1674 
1675 /* Subroutine */ int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
1676  complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
1677  *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
1678  real *rwork, integer *info);
1679 
1680 /* Subroutine */ int cpttrf_(integer *n, real *d__, complex *e, integer *info);
1681 
1682 /* Subroutine */ int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__,
1683  complex *e, complex *b, integer *ldb, integer *info);
1684 
1685 /* Subroutine */ int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *
1686  d__, complex *e, complex *b, integer *ldb);
1687 
1688 /* Subroutine */ int crot_(integer *n, complex *cx, integer *incx, complex *
1689  cy, integer *incy, real *c__, complex *s);
1690 
1691 /* Subroutine */ int cspcon_(char *uplo, integer *n, complex *ap, integer *
1692  ipiv, real *anorm, real *rcond, complex *work, integer *info);
1693 
1694 /* Subroutine */ int cspmv_(char *uplo, integer *n, complex *alpha, complex *
1695  ap, complex *x, integer *incx, complex *beta, complex *y, integer *
1696  incy);
1697 
1698 /* Subroutine */ int cspr_(char *uplo, integer *n, complex *alpha, complex *x,
1699  integer *incx, complex *ap);
1700 
1701 /* Subroutine */ int csprfs_(char *uplo, integer *n, integer *nrhs, complex *
1702  ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
1703  integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1704  integer *info);
1705 
1706 /* Subroutine */ int cspsv_(char *uplo, integer *n, integer *nrhs, complex *
1707  ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1708 
1709 /* Subroutine */ int cspsvx_(char *fact, char *uplo, integer *n, integer *
1710  nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
1711  ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
1712  complex *work, real *rwork, integer *info);
1713 
1714 /* Subroutine */ int csptrf_(char *uplo, integer *n, complex *ap, integer *
1715  ipiv, integer *info);
1716 
1717 /* Subroutine */ int csptri_(char *uplo, integer *n, complex *ap, integer *
1718  ipiv, complex *work, integer *info);
1719 
1720 /* Subroutine */ int csptrs_(char *uplo, integer *n, integer *nrhs, complex *
1721  ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1722 
1723 /* Subroutine */ int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
1724 
1725 /* Subroutine */ int cstedc_(char *compz, integer *n, real *d__, real *e,
1726  complex *z__, integer *ldz, complex *work, integer *lwork, real *
1727  rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
1728  info);
1729 
1730 /* Subroutine */ int cstegr_(char *jobz, char *range, integer *n, real *d__,
1731  real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
1732  integer *m, real *w, complex *z__, integer *ldz, integer *isuppz,
1733  real *work, integer *lwork, integer *iwork, integer *liwork, integer *
1734  info);
1735 
1736 /* Subroutine */ int cstein_(integer *n, real *d__, real *e, integer *m, real
1737  *w, integer *iblock, integer *isplit, complex *z__, integer *ldz,
1738  real *work, integer *iwork, integer *ifail, integer *info);
1739 
1740 /* Subroutine */ int cstemr_(char *jobz, char *range, integer *n, real *d__,
1741  real *e, real *vl, real *vu, integer *il, integer *iu, integer *m,
1742  real *w, complex *z__, integer *ldz, integer *nzc, integer *isuppz,
1743  logical *tryrac, real *work, integer *lwork, integer *iwork, integer *
1744  liwork, integer *info);
1745 
1746 /* Subroutine */ int csteqr_(char *compz, integer *n, real *d__, real *e,
1747  complex *z__, integer *ldz, real *work, integer *info);
1748 
1749 /* Subroutine */ int csycon_(char *uplo, integer *n, complex *a, integer *lda,
1750  integer *ipiv, real *anorm, real *rcond, complex *work, integer *
1751  info);
1752 
1753 /* Subroutine */ int csyequb_(char *uplo, integer *n, complex *a, integer *
1754  lda, real *s, real *scond, real *amax, complex *work, integer *info);
1755 
1756 /* Subroutine */ int csymv_(char *uplo, integer *n, complex *alpha, complex *
1757  a, integer *lda, complex *x, integer *incx, complex *beta, complex *y,
1758  integer *incy);
1759 
1760 /* Subroutine */ int csyr_(char *uplo, integer *n, complex *alpha, complex *x,
1761  integer *incx, complex *a, integer *lda);
1762 
1763 /* Subroutine */ int csyrfs_(char *uplo, integer *n, integer *nrhs, complex *
1764  a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
1765  b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
1766  complex *work, real *rwork, integer *info);
1767 
1768 /* Subroutine */ int csyrfsx_(char *uplo, char *equed, integer *n, integer *
1769  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
1770  ipiv, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
1771  real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__,
1772  real *err_bnds_comp__, integer *nparams, real *params, complex *work,
1773  real *rwork, integer *info);
1774 
1775 /* Subroutine */ int csysv_(char *uplo, integer *n, integer *nrhs, complex *a,
1776  integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
1777  integer *lwork, integer *info);
1778 
1779 /* Subroutine */ int csysvx_(char *fact, char *uplo, integer *n, integer *
1780  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
1781  ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
1782  real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
1783  integer *info);
1784 
1785 /* Subroutine */ int csysvxx_(char *fact, char *uplo, integer *n, integer *
1786  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
1787  ipiv, char *equed, real *s, complex *b, integer *ldb, complex *x,
1788  integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
1789  n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
1790  nparams, real *params, complex *work, real *rwork, integer *info);
1791 
1792 /* Subroutine */ int csytf2_(char *uplo, integer *n, complex *a, integer *lda,
1793  integer *ipiv, integer *info);
1794 
1795 /* Subroutine */ int csytrf_(char *uplo, integer *n, complex *a, integer *lda,
1796  integer *ipiv, complex *work, integer *lwork, integer *info);
1797 
1798 /* Subroutine */ int csytri_(char *uplo, integer *n, complex *a, integer *lda,
1799  integer *ipiv, complex *work, integer *info);
1800 
1801 /* Subroutine */ int csytrs_(char *uplo, integer *n, integer *nrhs, complex *
1802  a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
1803  info);
1804 
1805 /* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, integer *n,
1806  integer *kd, complex *ab, integer *ldab, real *rcond, complex *work,
1807  real *rwork, integer *info);
1808 
1809 /* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, integer *n,
1810  integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
1811  integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
1812  complex *work, real *rwork, integer *info);
1813 
1814 /* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, integer *n,
1815  integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
1816  integer *ldb, integer *info);
1817 
1818 /* Subroutine */ int ctfsm_(char *transr, char *side, char *uplo, char *trans,
1819  char *diag, integer *m, integer *n, complex *alpha, complex *a,
1820  complex *b, integer *ldb);
1821 
1822 /* Subroutine */ int ctftri_(char *transr, char *uplo, char *diag, integer *n,
1823  complex *a, integer *info);
1824 
1825 /* Subroutine */ int ctfttp_(char *transr, char *uplo, integer *n, complex *
1826  arf, complex *ap, integer *info);
1827 
1828 /* Subroutine */ int ctfttr_(char *transr, char *uplo, integer *n, complex *
1829  arf, complex *a, integer *lda, integer *info);
1830 
1831 /* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select,
1832  integer *n, complex *s, integer *lds, complex *p, integer *ldp,
1833  complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm,
1834  integer *m, complex *work, real *rwork, integer *info);
1835 
1836 /* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, integer *n,
1837  complex *a, integer *lda, complex *b, integer *ldb, complex *q,
1838  integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info);
1839 
1840 /* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, integer *n,
1841  complex *a, integer *lda, complex *b, integer *ldb, complex *q,
1842  integer *ldq, complex *z__, integer *ldz, integer *ifst, integer *
1843  ilst, integer *info);
1844 
1845 /* Subroutine */ int ctgsen_(integer *ijob, logical *wantq, logical *wantz,
1846  logical *select, integer *n, complex *a, integer *lda, complex *b,
1847  integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
1848  complex *z__, integer *ldz, integer *m, real *pl, real *pr, real *
1849  dif, complex *work, integer *lwork, integer *iwork, integer *liwork,
1850  integer *info);
1851 
1852 /* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m,
1853  integer *p, integer *n, integer *k, integer *l, complex *a, integer *
1854  lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha,
1855  real *beta, complex *u, integer *ldu, complex *v, integer *ldv,
1856  complex *q, integer *ldq, complex *work, integer *ncycle, integer *
1857  info);
1858 
1859 /* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select,
1860  integer *n, complex *a, integer *lda, complex *b, integer *ldb,
1861  complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real
1862  *dif, integer *mm, integer *m, complex *work, integer *lwork, integer
1863  *iwork, integer *info);
1864 
1865 /* Subroutine */ int ctgsy2_(char *trans, integer *ijob, integer *m, integer *
1866  n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
1867  integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
1868  complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal,
1869  integer *info);
1870 
1871 /* Subroutine */ int ctgsyl_(char *trans, integer *ijob, integer *m, integer *
1872  n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
1873  integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
1874  complex *f, integer *ldf, real *scale, real *dif, complex *work,
1875  integer *lwork, integer *iwork, integer *info);
1876 
1877 /* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, integer *n,
1878  complex *ap, real *rcond, complex *work, real *rwork, integer *info);
1879 
1880 /* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, integer *n,
1881  integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x,
1882  integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1883  integer *info);
1884 
1885 /* Subroutine */ int ctptri_(char *uplo, char *diag, integer *n, complex *ap,
1886  integer *info);
1887 
1888 /* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, integer *n,
1889  integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info);
1890 
1891 /* Subroutine */ int ctpttf_(char *transr, char *uplo, integer *n, complex *
1892  ap, complex *arf, integer *info);
1893 
1894 /* Subroutine */ int ctpttr_(char *uplo, integer *n, complex *ap, complex *a,
1895  integer *lda, integer *info);
1896 
1897 /* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, integer *n,
1898  complex *a, integer *lda, real *rcond, complex *work, real *rwork,
1899  integer *info);
1900 
1901 /* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select,
1902  integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
1903  complex *vr, integer *ldvr, integer *mm, integer *m, complex *work,
1904  real *rwork, integer *info);
1905 
1906 /* Subroutine */ int ctrexc_(char *compq, integer *n, complex *t, integer *
1907  ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *
1908  info);
1909 
1910 /* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, integer *n,
1911  integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
1912  complex *x, integer *ldx, real *ferr, real *berr, complex *work, real
1913  *rwork, integer *info);
1914 
1915 /* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, integer
1916  *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w,
1917  integer *m, real *s, real *sep, complex *work, integer *lwork,
1918  integer *info);
1919 
1920 /* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select,
1921  integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
1922  complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *
1923  m, complex *work, integer *ldwork, real *rwork, integer *info);
1924 
1925 /* Subroutine */ int ctrsyl_(char *trana, char *tranb, integer *isgn, integer
1926  *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
1927  complex *c__, integer *ldc, real *scale, integer *info);
1928 
1929 /* Subroutine */ int ctrti2_(char *uplo, char *diag, integer *n, complex *a,
1930  integer *lda, integer *info);
1931 
1932 /* Subroutine */ int ctrtri_(char *uplo, char *diag, integer *n, complex *a,
1933  integer *lda, integer *info);
1934 
1935 /* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, integer *n,
1936  integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
1937  integer *info);
1938 
1939 /* Subroutine */ int ctrttf_(char *transr, char *uplo, integer *n, complex *a,
1940  integer *lda, complex *arf, integer *info);
1941 
1942 /* Subroutine */ int ctrttp_(char *uplo, integer *n, complex *a, integer *lda,
1943  complex *ap, integer *info);
1944 
1945 /* Subroutine */ int ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
1946  complex *tau, integer *info);
1947 
1948 /* Subroutine */ int ctzrzf_(integer *m, integer *n, complex *a, integer *lda,
1949  complex *tau, complex *work, integer *lwork, integer *info);
1950 
1951 /* Subroutine */ int cung2l_(integer *m, integer *n, integer *k, complex *a,
1952  integer *lda, complex *tau, complex *work, integer *info);
1953 
1954 /* Subroutine */ int cung2r_(integer *m, integer *n, integer *k, complex *a,
1955  integer *lda, complex *tau, complex *work, integer *info);
1956 
1957 /* Subroutine */ int cungbr_(char *vect, integer *m, integer *n, integer *k,
1958  complex *a, integer *lda, complex *tau, complex *work, integer *lwork,
1959  integer *info);
1960 
1961 /* Subroutine */ int cunghr_(integer *n, integer *ilo, integer *ihi, complex *
1962  a, integer *lda, complex *tau, complex *work, integer *lwork, integer
1963  *info);
1964 
1965 /* Subroutine */ int cungl2_(integer *m, integer *n, integer *k, complex *a,
1966  integer *lda, complex *tau, complex *work, integer *info);
1967 
1968 /* Subroutine */ int cunglq_(integer *m, integer *n, integer *k, complex *a,
1969  integer *lda, complex *tau, complex *work, integer *lwork, integer *
1970  info);
1971 
1972 /* Subroutine */ int cungql_(integer *m, integer *n, integer *k, complex *a,
1973  integer *lda, complex *tau, complex *work, integer *lwork, integer *
1974  info);
1975 
1976 /* Subroutine */ int cungqr_(integer *m, integer *n, integer *k, complex *a,
1977  integer *lda, complex *tau, complex *work, integer *lwork, integer *
1978  info);
1979 
1980 /* Subroutine */ int cungr2_(integer *m, integer *n, integer *k, complex *a,
1981  integer *lda, complex *tau, complex *work, integer *info);
1982 
1983 /* Subroutine */ int cungrq_(integer *m, integer *n, integer *k, complex *a,
1984  integer *lda, complex *tau, complex *work, integer *lwork, integer *
1985  info);
1986 
1987 /* Subroutine */ int cungtr_(char *uplo, integer *n, complex *a, integer *lda,
1988  complex *tau, complex *work, integer *lwork, integer *info);
1989 
1990 /* Subroutine */ int cunm2l_(char *side, char *trans, integer *m, integer *n,
1991  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1992  integer *ldc, complex *work, integer *info);
1993 
1994 /* Subroutine */ int cunm2r_(char *side, char *trans, integer *m, integer *n,
1995  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1996  integer *ldc, complex *work, integer *info);
1997 
1998 /* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, integer *m,
1999  integer *n, integer *k, complex *a, integer *lda, complex *tau,
2000  complex *c__, integer *ldc, complex *work, integer *lwork, integer *
2001  info);
2002 
2003 /* Subroutine */ int cunmhr_(char *side, char *trans, integer *m, integer *n,
2004  integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau,
2005  complex *c__, integer *ldc, complex *work, integer *lwork, integer *
2006  info);
2007 
2008 /* Subroutine */ int cunml2_(char *side, char *trans, integer *m, integer *n,
2009  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2010  integer *ldc, complex *work, integer *info);
2011 
2012 /* Subroutine */ int cunmlq_(char *side, char *trans, integer *m, integer *n,
2013  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2014  integer *ldc, complex *work, integer *lwork, integer *info);
2015 
2016 /* Subroutine */ int cunmql_(char *side, char *trans, integer *m, integer *n,
2017  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2018  integer *ldc, complex *work, integer *lwork, integer *info);
2019 
2020 /* Subroutine */ int cunmqr_(char *side, char *trans, integer *m, integer *n,
2021  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2022  integer *ldc, complex *work, integer *lwork, integer *info);
2023 
2024 /* Subroutine */ int cunmr2_(char *side, char *trans, integer *m, integer *n,
2025  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2026  integer *ldc, complex *work, integer *info);
2027 
2028 /* Subroutine */ int cunmr3_(char *side, char *trans, integer *m, integer *n,
2029  integer *k, integer *l, complex *a, integer *lda, complex *tau,
2030  complex *c__, integer *ldc, complex *work, integer *info);
2031 
2032 /* Subroutine */ int cunmrq_(char *side, char *trans, integer *m, integer *n,
2033  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
2034  integer *ldc, complex *work, integer *lwork, integer *info);
2035 
2036 /* Subroutine */ int cunmrz_(char *side, char *trans, integer *m, integer *n,
2037  integer *k, integer *l, complex *a, integer *lda, complex *tau,
2038  complex *c__, integer *ldc, complex *work, integer *lwork, integer *
2039  info);
2040 
2041 /* Subroutine */ int cunmtr_(char *side, char *uplo, char *trans, integer *m,
2042  integer *n, complex *a, integer *lda, complex *tau, complex *c__,
2043  integer *ldc, complex *work, integer *lwork, integer *info);
2044 
2045 /* Subroutine */ int cupgtr_(char *uplo, integer *n, complex *ap, complex *
2046  tau, complex *q, integer *ldq, complex *work, integer *info);
2047 
2048 /* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, integer *m,
2049  integer *n, complex *ap, complex *tau, complex *c__, integer *ldc,
2050  complex *work, integer *info);
2051 
2052 /* Subroutine */ int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
2053  d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt,
2054  integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
2055  iwork, integer *info);
2056 
2057 /* Subroutine */ int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
2058  nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt,
2059  integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
2060  ldc, doublereal *work, integer *info);
2061 
2062 /* Subroutine */ int ddisna_(char *job, integer *m, integer *n, doublereal *
2063  d__, doublereal *sep, integer *info);
2064 
2065 /* Subroutine */ int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
2066  integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
2067  d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt,
2068  integer *ldpt, doublereal *c__, integer *ldc, doublereal *work,
2069  integer *info);
2070 
2071 /* Subroutine */ int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
2072  doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm,
2073  doublereal *rcond, doublereal *work, integer *iwork, integer *info);
2074 
2075 /* Subroutine */ int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
2076  doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
2077  doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
2078  info);
2079 
2080 /* Subroutine */ int dgbequb_(integer *m, integer *n, integer *kl, integer *
2081  ku, doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
2082  doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
2083  info);
2084 
2085 /* Subroutine */ int dgbrfs_(char *trans, integer *n, integer *kl, integer *
2086  ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
2087  integer *ldafb, integer *ipiv, doublereal *b, integer *ldb,
2088  doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
2089  doublereal *work, integer *iwork, integer *info);
2090 
2091 /* Subroutine */ int dgbrfsx_(char *trans, char *equed, integer *n, integer *
2092  kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
2093  doublereal *afb, integer *ldafb, integer *ipiv, doublereal *r__,
2094  doublereal *c__, doublereal *b, integer *ldb, doublereal *x, integer *
2095  ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__,
2096  doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
2097  nparams, doublereal *params, doublereal *work, integer *iwork,
2098  integer *info);
2099 
2100 /* Subroutine */ int dgbsv_(integer *n, integer *kl, integer *ku, integer *
2101  nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b,
2102  integer *ldb, integer *info);
2103 
2104 /* Subroutine */ int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
2105  integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
2106  doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
2107  doublereal *r__, doublereal *c__, doublereal *b, integer *ldb,
2108  doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
2109  doublereal *berr, doublereal *work, integer *iwork, integer *info);
2110 
2111 /* Subroutine */ int dgbsvxx_(char *fact, char *trans, integer *n, integer *
2112  kl, integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
2113  doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
2114  doublereal *r__, doublereal *c__, doublereal *b, integer *ldb,
2115  doublereal *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw,
2116  doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
2117  doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
2118  doublereal *work, integer *iwork, integer *info);
2119 
2120 /* Subroutine */ int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
2121  doublereal *ab, integer *ldab, integer *ipiv, integer *info);
2122 
2123 /* Subroutine */ int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
2124  doublereal *ab, integer *ldab, integer *ipiv, integer *info);
2125 
2126 /* Subroutine */ int dgbtrs_(char *trans, integer *n, integer *kl, integer *
2127  ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv,
2128  doublereal *b, integer *ldb, integer *info);
2129 
2130 /* Subroutine */ int dgebak_(char *job, char *side, integer *n, integer *ilo,
2131  integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
2132  ldv, integer *info);
2133 
2134 /* Subroutine */ int dgebal_(char *job, integer *n, doublereal *a, integer *
2135  lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
2136 
2137 /* Subroutine */ int dgebd2_(integer *m, integer *n, doublereal *a, integer *
2138  lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
2139  taup, doublereal *work, integer *info);
2140 
2141 /* Subroutine */ int dgebrd_(integer *m, integer *n, doublereal *a, integer *
2142  lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
2143  taup, doublereal *work, integer *lwork, integer *info);
2144 
2145 /* Subroutine */ int dgecon_(char *norm, integer *n, doublereal *a, integer *
2146  lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
2147  iwork, integer *info);
2148 
2149 /* Subroutine */ int dgeequ_(integer *m, integer *n, doublereal *a, integer *
2150  lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
2151  *colcnd, doublereal *amax, integer *info);
2152 
2153 /* Subroutine */ int dgeequb_(integer *m, integer *n, doublereal *a, integer *
2154  lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
2155  *colcnd, doublereal *amax, integer *info);
2156 
2157 /* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, integer *n,
2158  doublereal *a, integer *lda, integer *sdim, doublereal *wr,
2159  doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
2160  integer *lwork, logical *bwork, integer *info);
2161 
2162 /* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
2163  sense, integer *n, doublereal *a, integer *lda, integer *sdim,
2164  doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
2165  doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
2166  lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
2167 
2168 /* Subroutine */ int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
2169  a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl,
2170  integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work,
2171  integer *lwork, integer *info);
2172 
2173 /* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
2174  sense, integer *n, doublereal *a, integer *lda, doublereal *wr,
2175  doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
2176  integer *ldvr, integer *ilo, integer *ihi, doublereal *scale,
2177  doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal
2178  *work, integer *lwork, integer *iwork, integer *info);
2179 
2180 /* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, integer *n,
2181  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
2182  alphar, doublereal *alphai, doublereal *beta, doublereal *vsl,
2183  integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work,
2184  integer *lwork, integer *info);
2185 
2186 /* Subroutine */ int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
2187  a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
2188  doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
2189  doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
2190  integer *info);
2191 
2192 /* Subroutine */ int dgehd2_(integer *n, integer *ilo, integer *ihi,
2193  doublereal *a, integer *lda, doublereal *tau, doublereal *work,
2194  integer *info);
2195 
2196 /* Subroutine */ int dgehrd_(integer *n, integer *ilo, integer *ihi,
2197  doublereal *a, integer *lda, doublereal *tau, doublereal *work,
2198  integer *lwork, integer *info);
2199 
2200 /* Subroutine */ int dgejsv_(char *joba, char *jobu, char *jobv, char *jobr,
2201  char *jobt, char *jobp, integer *m, integer *n, doublereal *a,
2202  integer *lda, doublereal *sva, doublereal *u, integer *ldu,
2203  doublereal *v, integer *ldv, doublereal *work, integer *lwork,
2204  integer *iwork, integer *info);
2205 
2206 /* Subroutine */ int dgelq2_(integer *m, integer *n, doublereal *a, integer *
2207  lda, doublereal *tau, doublereal *work, integer *info);
2208 
2209 /* Subroutine */ int dgelqf_(integer *m, integer *n, doublereal *a, integer *
2210  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2211 
2212 /* Subroutine */ int dgels_(char *trans, integer *m, integer *n, integer *
2213  nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2214  doublereal *work, integer *lwork, integer *info);
2215 
2216 /* Subroutine */ int dgelsd_(integer *m, integer *n, integer *nrhs,
2217  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
2218  s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
2219  integer *iwork, integer *info);
2220 
2221 /* Subroutine */ int dgelss_(integer *m, integer *n, integer *nrhs,
2222  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
2223  s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
2224  integer *info);
2225 
2226 /* Subroutine */ int dgelsx_(integer *m, integer *n, integer *nrhs,
2227  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2228  jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
2229  info);
2230 
2231 /* Subroutine */ int dgelsy_(integer *m, integer *n, integer *nrhs,
2232  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2233  jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
2234  lwork, integer *info);
2235 
2236 /* Subroutine */ int dgeql2_(integer *m, integer *n, doublereal *a, integer *
2237  lda, doublereal *tau, doublereal *work, integer *info);
2238 
2239 /* Subroutine */ int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
2240  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2241 
2242 /* Subroutine */ int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
2243  lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
2244  integer *info);
2245 
2246 /* Subroutine */ int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
2247  lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
2248 
2249 /* Subroutine */ int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
2250  lda, doublereal *tau, doublereal *work, integer *info);
2251 
2252 /* Subroutine */ int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
2253  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2254 
2255 /* Subroutine */ int dgerfs_(char *trans, integer *n, integer *nrhs,
2256  doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
2257  ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
2258  doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
2259  integer *info);
2260 
2261 /* Subroutine */ int dgerfsx_(char *trans, char *equed, integer *n, integer *
2262  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2263  integer *ipiv, doublereal *r__, doublereal *c__, doublereal *b,
2264  integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
2265  doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
2266  doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
2267  doublereal *work, integer *iwork, integer *info);
2268 
2269 /* Subroutine */ int dgerq2_(integer *m, integer *n, doublereal *a, integer *
2270  lda, doublereal *tau, doublereal *work, integer *info);
2271 
2272 /* Subroutine */ int dgerqf_(integer *m, integer *n, doublereal *a, integer *
2273  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2274 
2275 /* Subroutine */ int dgesc2_(integer *n, doublereal *a, integer *lda,
2276  doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
2277 
2278 /* Subroutine */ int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
2279  a, integer *lda, doublereal *s, doublereal *u, integer *ldu,
2280  doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
2281  integer *iwork, integer *info);
2282 
2283 /* Subroutine */ int dgesv_(integer *n, integer *nrhs, doublereal *a, integer
2284  *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
2285 
2286 /* Subroutine */ int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
2287  doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
2288  ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
2289  integer *info);
2290 
2291 /* Subroutine */ int dgesvj_(char *joba, char *jobu, char *jobv, integer *m,
2292  integer *n, doublereal *a, integer *lda, doublereal *sva, integer *mv,
2293  doublereal *v, integer *ldv, doublereal *work, integer *lwork,
2294  integer *info);
2295 
2296 /* Subroutine */ int dgesvx_(char *fact, char *trans, integer *n, integer *
2297  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2298  integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
2299  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2300  rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
2301  iwork, integer *info);
2302 
2303 /* Subroutine */ int dgesvxx_(char *fact, char *trans, integer *n, integer *
2304  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2305  integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
2306  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2307  rcond, doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__,
2308  doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
2309  nparams, doublereal *params, doublereal *work, integer *iwork,
2310  integer *info);
2311 
2312 /* Subroutine */ int dgetc2_(integer *n, doublereal *a, integer *lda, integer
2313  *ipiv, integer *jpiv, integer *info);
2314 
2315 /* Subroutine */ int dgetf2_(integer *m, integer *n, doublereal *a, integer *
2316  lda, integer *ipiv, integer *info);
2317 
2318 /* Subroutine */ int dgetrf_(integer *m, integer *n, doublereal *a, integer *
2319  lda, integer *ipiv, integer *info);
2320 
2321 /* Subroutine */ int dgetri_(integer *n, doublereal *a, integer *lda, integer
2322  *ipiv, doublereal *work, integer *lwork, integer *info);
2323 
2324 /* Subroutine */ int dgetrs_(char *trans, integer *n, integer *nrhs,
2325  doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
2326  ldb, integer *info);
2327 
2328 /* Subroutine */ int dggbak_(char *job, char *side, integer *n, integer *ilo,
2329  integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
2330  doublereal *v, integer *ldv, integer *info);
2331 
2332 /* Subroutine */ int dggbal_(char *job, integer *n, doublereal *a, integer *
2333  lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi,
2334  doublereal *lscale, doublereal *rscale, doublereal *work, integer *
2335  info);
2336 
2337 /* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
2338  selctg, integer *n, doublereal *a, integer *lda, doublereal *b,
2339  integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
2340  doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
2341  integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,
2342  integer *info);
2343 
2344 /* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
2345  selctg, char *sense, integer *n, doublereal *a, integer *lda,
2346  doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
2347  doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
2348  doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
2349  rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
2350  liwork, logical *bwork, integer *info);
2351 
2352 /* Subroutine */ int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
2353  a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
2354  doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
2355  doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
2356  integer *info);
2357 
2358 /* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
2359  sense, integer *n, doublereal *a, integer *lda, doublereal *b,
2360  integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
2361  beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
2362  integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
2363  doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
2364  rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
2365  bwork, integer *info);
2366 
2367 /* Subroutine */ int dggglm_(integer *n, integer *m, integer *p, doublereal *
2368  a, integer *lda, doublereal *b, integer *ldb, doublereal *d__,
2369  doublereal *x, doublereal *y, doublereal *work, integer *lwork,
2370  integer *info);
2371 
2372 /* Subroutine */ int dgghrd_(char *compq, char *compz, integer *n, integer *
2373  ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b,
2374  integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
2375  ldz, integer *info);
2376 
2377 /* Subroutine */ int dgglse_(integer *m, integer *n, integer *p, doublereal *
2378  a, integer *lda, doublereal *b, integer *ldb, doublereal *c__,
2379  doublereal *d__, doublereal *x, doublereal *work, integer *lwork,
2380  integer *info);
2381 
2382 /* Subroutine */ int dggqrf_(integer *n, integer *m, integer *p, doublereal *
2383  a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
2384  doublereal *taub, doublereal *work, integer *lwork, integer *info);
2385 
2386 /* Subroutine */ int dggrqf_(integer *m, integer *p, integer *n, doublereal *
2387  a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
2388  doublereal *taub, doublereal *work, integer *lwork, integer *info);
2389 
2390 /* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
2391  integer *n, integer *p, integer *k, integer *l, doublereal *a,
2392  integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
2393  doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer
2394  *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork,
2395  integer *info);
2396 
2397 /* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
2398  integer *p, integer *n, doublereal *a, integer *lda, doublereal *b,
2399  integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer
2400  *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv,
2401  doublereal *q, integer *ldq, integer *iwork, doublereal *tau,
2402  doublereal *work, integer *info);
2403 
2404 /* Subroutine */ int dgsvj0_(char *jobv, integer *m, integer *n, doublereal *
2405  a, integer *lda, doublereal *d__, doublereal *sva, integer *mv,
2406  doublereal *v, integer *ldv, doublereal *eps, doublereal *sfmin,
2407  doublereal *tol, integer *nsweep, doublereal *work, integer *lwork,
2408  integer *info);
2409 
2410 /* Subroutine */ int dgsvj1_(char *jobv, integer *m, integer *n, integer *n1,
2411  doublereal *a, integer *lda, doublereal *d__, doublereal *sva,
2412  integer *mv, doublereal *v, integer *ldv, doublereal *eps, doublereal
2413  *sfmin, doublereal *tol, integer *nsweep, doublereal *work, integer *
2414  lwork, integer *info);
2415 
2416 /* Subroutine */ int dgtcon_(char *norm, integer *n, doublereal *dl,
2417  doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv,
2418  doublereal *anorm, doublereal *rcond, doublereal *work, integer *
2419  iwork, integer *info);
2420 
2421 /* Subroutine */ int dgtrfs_(char *trans, integer *n, integer *nrhs,
2422  doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf,
2423  doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
2424  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2425  ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
2426  info);
2427 
2428 /* Subroutine */ int dgtsv_(integer *n, integer *nrhs, doublereal *dl,
2429  doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer
2430  *info);
2431 
2432 /* Subroutine */ int dgtsvx_(char *fact, char *trans, integer *n, integer *
2433  nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
2434  dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
2435  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2436  rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
2437  iwork, integer *info);
2438 
2439 /* Subroutine */ int dgttrf_(integer *n, doublereal *dl, doublereal *d__,
2440  doublereal *du, doublereal *du2, integer *ipiv, integer *info);
2441 
2442 /* Subroutine */ int dgttrs_(char *trans, integer *n, integer *nrhs,
2443  doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
2444  integer *ipiv, doublereal *b, integer *ldb, integer *info);
2445 
2446 /* Subroutine */ int dgtts2_(integer *itrans, integer *n, integer *nrhs,
2447  doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
2448  integer *ipiv, doublereal *b, integer *ldb);
2449 
2450 /* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, integer *n,
2451  integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2452  *t, integer *ldt, doublereal *alphar, doublereal *alphai, doublereal *
2453  beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
2454  doublereal *work, integer *lwork, integer *info);
2455 
2456 /* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
2457  select, integer *n, doublereal *h__, integer *ldh, doublereal *wr,
2458  doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
2459  integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
2460  ifaill, integer *ifailr, integer *info);
2461 
2462 /* Subroutine */ int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
2463  integer *ihi, doublereal *h__, integer *ldh, doublereal *wr,
2464  doublereal *wi, doublereal *z__, integer *ldz, doublereal *work,
2465  integer *lwork, integer *info);
2466 
2467 logical disnan_(doublereal *din);
2468 
2469 /* Subroutine */ int dla_gbamv__(integer *trans, integer *m, integer *n,
2470  integer *kl, integer *ku, doublereal *alpha, doublereal *ab, integer *
2471  ldab, doublereal *x, integer *incx, doublereal *beta, doublereal *y,
2472  integer *incy);
2473 
2474 doublereal dla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku,
2475  doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
2476  integer *ipiv, integer *cmode, doublereal *c__, integer *info,
2477  doublereal *work, integer *iwork, ftnlen trans_len);
2478 
2479 /* Subroutine */ int dla_gbrfsx_extended__(integer *prec_type__, integer *
2480  trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
2481  doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
2482  integer *ipiv, logical *colequ, doublereal *c__, doublereal *b,
2483  integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__,
2484  integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__,
2485  doublereal *res, doublereal *ayb, doublereal *dy, doublereal *
2486  y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh,
2487  doublereal *dz_ub__, logical *ignore_cwise__, integer *info);
2488 
2489 doublereal dla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
2490  ncols, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb);
2491 
2492 /* Subroutine */ int dla_geamv__(integer *trans, integer *m, integer *n,
2493  doublereal *alpha, doublereal *a, integer *lda, doublereal *x,
2494  integer *incx, doublereal *beta, doublereal *y, integer *incy);
2495 
2496 doublereal dla_gercond__(char *trans, integer *n, doublereal *a, integer *lda,
2497  doublereal *af, integer *ldaf, integer *ipiv, integer *cmode,
2498  doublereal *c__, integer *info, doublereal *work, integer *iwork,
2499  ftnlen trans_len);
2500 
2501 /* Subroutine */ int dla_gerfsx_extended__(integer *prec_type__, integer *
2502  trans_type__, integer *n, integer *nrhs, doublereal *a, integer *lda,
2503  doublereal *af, integer *ldaf, integer *ipiv, logical *colequ,
2504  doublereal *c__, doublereal *b, integer *ldb, doublereal *y, integer *
2505  ldy, doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__,
2506  doublereal *errs_c__, doublereal *res, doublereal *ayb, doublereal *
2507  dy, doublereal *y_tail__, doublereal *rcond, integer *ithresh,
2508  doublereal *rthresh, doublereal *dz_ub__, logical *ignore_cwise__,
2509  integer *info);
2510 
2511 /* Subroutine */ int dla_lin_berr__(integer *n, integer *nz, integer *nrhs,
2512  doublereal *res, doublereal *ayb, doublereal *berr);
2513 
2514 doublereal dla_porcond__(char *uplo, integer *n, doublereal *a, integer *lda,
2515  doublereal *af, integer *ldaf, integer *cmode, doublereal *c__,
2516  integer *info, doublereal *work, integer *iwork, ftnlen uplo_len);
2517 
2518 /* Subroutine */ int dla_porfsx_extended__(integer *prec_type__, char *uplo,
2519  integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *
2520  af, integer *ldaf, logical *colequ, doublereal *c__, doublereal *b,
2521  integer *ldb, doublereal *y, integer *ldy, doublereal *berr_out__,
2522  integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__,
2523  doublereal *res, doublereal *ayb, doublereal *dy, doublereal *
2524  y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh,
2525  doublereal *dz_ub__, logical *ignore_cwise__, integer *info, ftnlen
2526  uplo_len);
2527 
2528 doublereal dla_porpvgrw__(char *uplo, integer *ncols, doublereal *a, integer *
2529  lda, doublereal *af, integer *ldaf, doublereal *work, ftnlen uplo_len);
2530 
2531 doublereal dla_rpvgrw__(integer *n, integer *ncols, doublereal *a, integer *
2532  lda, doublereal *af, integer *ldaf);
2533 
2534 /* Subroutine */ int dla_syamv__(integer *uplo, integer *n, doublereal *alpha,
2535  doublereal *a, integer *lda, doublereal *x, integer *incx,
2536  doublereal *beta, doublereal *y, integer *incy);
2537 
2538 doublereal dla_syrcond__(char *uplo, integer *n, doublereal *a, integer *lda,
2539  doublereal *af, integer *ldaf, integer *ipiv, integer *cmode,
2540  doublereal *c__, integer *info, doublereal *work, integer *iwork,
2541  ftnlen uplo_len);
2542 
2543 /* Subroutine */ int dla_syrfsx_extended__(integer *prec_type__, char *uplo,
2544  integer *n, integer *nrhs, doublereal *a, integer *lda, doublereal *
2545  af, integer *ldaf, integer *ipiv, logical *colequ, doublereal *c__,
2546  doublereal *b, integer *ldb, doublereal *y, integer *ldy, doublereal *
2547  berr_out__, integer *n_norms__, doublereal *errs_n__, doublereal *
2548  errs_c__, doublereal *res, doublereal *ayb, doublereal *dy,
2549  doublereal *y_tail__, doublereal *rcond, integer *ithresh, doublereal
2550  *rthresh, doublereal *dz_ub__, logical *ignore_cwise__, integer *info,
2551  ftnlen uplo_len);
2552 
2553 doublereal dla_syrpvgrw__(char *uplo, integer *n, integer *info, doublereal *
2554  a, integer *lda, doublereal *af, integer *ldaf, integer *ipiv,
2555  doublereal *work, ftnlen uplo_len);
2556 
2557 /* Subroutine */ int dla_wwaddw__(integer *n, doublereal *x, doublereal *y,
2558  doublereal *w);
2559 
2560 /* Subroutine */ int dlabad_(doublereal *small, doublereal *large);
2561 
2562 /* Subroutine */ int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
2563  a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq,
2564  doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer
2565  *ldy);
2566 
2567 /* Subroutine */ int dlacn2_(integer *n, doublereal *v, doublereal *x,
2568  integer *isgn, doublereal *est, integer *kase, integer *isave);
2569 
2570 /* Subroutine */ int dlacon_(integer *n, doublereal *v, doublereal *x,
2571  integer *isgn, doublereal *est, integer *kase);
2572 
2573 /* Subroutine */ int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
2574  a, integer *lda, doublereal *b, integer *ldb);
2575 
2576 /* Subroutine */ int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
2577  doublereal *d__, doublereal *p, doublereal *q);
2578 
2579 /* Subroutine */ int dlae2_(doublereal *a, doublereal *b, doublereal *c__,
2580  doublereal *rt1, doublereal *rt2);
2581 
2582 /* Subroutine */ int dlaebz_(integer *ijob, integer *nitmax, integer *n,
2583  integer *mmax, integer *minp, integer *nbmin, doublereal *abstol,
2584  doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
2585  e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__,
2586  integer *mout, integer *nab, doublereal *work, integer *iwork,
2587  integer *info);
2588 
2589 /* Subroutine */ int dlaed0_(integer *icompq, integer *qsiz, integer *n,
2590  doublereal *d__, doublereal *e, doublereal *q, integer *ldq,
2591  doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork,
2592  integer *info);
2593 
2594 /* Subroutine */ int dlaed1_(integer *n, doublereal *d__, doublereal *q,
2595  integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt,
2596  doublereal *work, integer *iwork, integer *info);
2597 
2598 /* Subroutine */ int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
2599  d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho,
2600  doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2,
2601  integer *indx, integer *indxc, integer *indxp, integer *coltyp,
2602  integer *info);
2603 
2604 /* Subroutine */ int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
2605  d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
2606  doublereal *q2, integer *indx, integer *ctot, doublereal *w,
2607  doublereal *s, integer *info);
2608 
2609 /* Subroutine */ int dlaed4_(integer *n, integer *i__, doublereal *d__,
2610  doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
2611  integer *info);
2612 
2613 /* Subroutine */ int dlaed5_(integer *i__, doublereal *d__, doublereal *z__,
2614  doublereal *delta, doublereal *rho, doublereal *dlam);
2615 
2616 /* Subroutine */ int dlaed6_(integer *kniter, logical *orgati, doublereal *
2617  rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
2618  tau, integer *info);
2619 
2620 /* Subroutine */ int dlaed7_(integer *icompq, integer *n, integer *qsiz,
2621  integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
2622  doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer
2623  *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
2624  perm, integer *givptr, integer *givcol, doublereal *givnum,
2625  doublereal *work, integer *iwork, integer *info);
2626 
2627 /* Subroutine */ int dlaed8_(integer *icompq, integer *k, integer *n, integer
2628  *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq,
2629  doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
2630  doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer
2631  *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer
2632  *indx, integer *info);
2633 
2634 /* Subroutine */ int dlaed9_(integer *k, integer *kstart, integer *kstop,
2635  integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
2636  rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds,
2637  integer *info);
2638 
2639 /* Subroutine */ int dlaeda_(integer *n, integer *tlvls, integer *curlvl,
2640  integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
2641  integer *givcol, doublereal *givnum, doublereal *q, integer *qptr,
2642  doublereal *z__, doublereal *ztemp, integer *info);
2643 
2644 /* Subroutine */ int dlaein_(logical *rightv, logical *noinit, integer *n,
2645  doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi,
2646  doublereal *vr, doublereal *vi, doublereal *b, integer *ldb,
2647  doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
2648  bignum, integer *info);
2649 
2650 /* Subroutine */ int dlaev2_(doublereal *a, doublereal *b, doublereal *c__,
2651  doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
2652 
2653 /* Subroutine */ int dlaexc_(logical *wantq, integer *n, doublereal *t,
2654  integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1,
2655  integer *n2, doublereal *work, integer *info);
2656 
2657 /* Subroutine */ int dlag2_(doublereal *a, integer *lda, doublereal *b,
2658  integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
2659  scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
2660 
2661 /* Subroutine */ int dlag2s_(integer *m, integer *n, doublereal *a, integer *
2662  lda, real *sa, integer *ldsa, integer *info);
2663 
2664 /* Subroutine */ int dlags2_(logical *upper, doublereal *a1, doublereal *a2,
2665  doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3,
2666  doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv,
2667  doublereal *csq, doublereal *snq);
2668 
2669 /* Subroutine */ int dlagtf_(integer *n, doublereal *a, doublereal *lambda,
2670  doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__,
2671  integer *in, integer *info);
2672 
2673 /* Subroutine */ int dlagtm_(char *trans, integer *n, integer *nrhs,
2674  doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du,
2675  doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer
2676  *ldb);
2677 
2678 /* Subroutine */ int dlagts_(integer *job, integer *n, doublereal *a,
2679  doublereal *b, doublereal *c__, doublereal *d__, integer *in,
2680  doublereal *y, doublereal *tol, integer *info);
2681 
2682 /* Subroutine */ int dlagv2_(doublereal *a, integer *lda, doublereal *b,
2683  integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
2684  beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
2685  snr);
2686 
2687 /* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, integer *n,
2688  integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2689  *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
2690  integer *ldz, integer *info);
2691 
2692 /* Subroutine */ int dlahr2_(integer *n, integer *k, integer *nb, doublereal *
2693  a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
2694  doublereal *y, integer *ldy);
2695 
2696 /* Subroutine */ int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
2697  a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
2698  doublereal *y, integer *ldy);
2699 
2700 /* Subroutine */ int dlaic1_(integer *job, integer *j, doublereal *x,
2701  doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
2702  sestpr, doublereal *s, doublereal *c__);
2703 
2704 logical dlaisnan_(doublereal *din1, doublereal *din2);
2705 
2706 /* Subroutine */ int dlaln2_(logical *ltrans, integer *na, integer *nw,
2707  doublereal *smin, doublereal *ca, doublereal *a, integer *lda,
2708  doublereal *d1, doublereal *d2, doublereal *b, integer *ldb,
2709  doublereal *wr, doublereal *wi, doublereal *x, integer *ldx,
2710  doublereal *scale, doublereal *xnorm, integer *info);
2711 
2712 /* Subroutine */ int dlals0_(integer *icompq, integer *nl, integer *nr,
2713  integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal
2714  *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol,
2715  integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
2716  poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
2717  k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
2718 
2719 /* Subroutine */ int dlalsa_(integer *icompq, integer *smlsiz, integer *n,
2720  integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
2721  ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k,
2722  doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
2723  poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
2724  perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
2725  work, integer *iwork, integer *info);
2726 
2727 /* Subroutine */ int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer
2728  *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb,
2729  doublereal *rcond, integer *rank, doublereal *work, integer *iwork,
2730  integer *info);
2731 
2732 /* Subroutine */ int dlamrg_(integer *n1, integer *n2, doublereal *a, integer
2733  *dtrd1, integer *dtrd2, integer *index);
2734 
2735 integer dlaneg_(integer *n, doublereal *d__, doublereal *lld, doublereal *
2736  sigma, doublereal *pivmin, integer *r__);
2737 
2738 doublereal dlangb_(char *norm, integer *n, integer *kl, integer *ku,
2739  doublereal *ab, integer *ldab, doublereal *work);
2740 
2741 doublereal dlange_(char *norm, integer *m, integer *n, doublereal *a, integer
2742  *lda, doublereal *work);
2743 
2744 doublereal dlangt_(char *norm, integer *n, doublereal *dl, doublereal *d__,
2745  doublereal *du);
2746 
2747 doublereal dlanhs_(char *norm, integer *n, doublereal *a, integer *lda,
2748  doublereal *work);
2749 
2750 doublereal dlansb_(char *norm, char *uplo, integer *n, integer *k, doublereal
2751  *ab, integer *ldab, doublereal *work);
2752 
2753 doublereal dlansf_(char *norm, char *transr, char *uplo, integer *n,
2754  doublereal *a, doublereal *work);
2755 
2756 doublereal dlansp_(char *norm, char *uplo, integer *n, doublereal *ap,
2757  doublereal *work);
2758 
2759 doublereal dlanst_(char *norm, integer *n, doublereal *d__, doublereal *e);
2760 
2761 doublereal dlansy_(char *norm, char *uplo, integer *n, doublereal *a, integer
2762  *lda, doublereal *work);
2763 
2764 doublereal dlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
2765  doublereal *ab, integer *ldab, doublereal *work);
2766 
2767 doublereal dlantp_(char *norm, char *uplo, char *diag, integer *n, doublereal
2768  *ap, doublereal *work);
2769 
2770 doublereal dlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
2771  doublereal *a, integer *lda, doublereal *work);
2772 
2773 /* Subroutine */ int dlanv2_(doublereal *a, doublereal *b, doublereal *c__,
2774  doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
2775  doublereal *rt2i, doublereal *cs, doublereal *sn);
2776 
2777 /* Subroutine */ int dlapll_(integer *n, doublereal *x, integer *incx,
2778  doublereal *y, integer *incy, doublereal *ssmin);
2779 
2780 /* Subroutine */ int dlapmt_(logical *forwrd, integer *m, integer *n,
2781  doublereal *x, integer *ldx, integer *k);
2782 
2783 doublereal dlapy2_(doublereal *x, doublereal *y);
2784 
2785 doublereal dlapy3_(doublereal *x, doublereal *y, doublereal *z__);
2786 
2787 /* Subroutine */ int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
2788  doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
2789  doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
2790 
2791 /* Subroutine */ int dlaqge_(integer *m, integer *n, doublereal *a, integer *
2792  lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
2793  *colcnd, doublereal *amax, char *equed);
2794 
2795 /* Subroutine */ int dlaqp2_(integer *m, integer *n, integer *offset,
2796  doublereal *a, integer *lda, integer *jpvt, doublereal *tau,
2797  doublereal *vn1, doublereal *vn2, doublereal *work);
2798 
2799 /* Subroutine */ int dlaqps_(integer *m, integer *n, integer *offset, integer
2800  *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt,
2801  doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv,
2802  doublereal *f, integer *ldf);
2803 
2804 /* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, integer *n,
2805  integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2806  *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
2807  integer *ldz, doublereal *work, integer *lwork, integer *info);
2808 
2809 /* Subroutine */ int dlaqr1_(integer *n, doublereal *h__, integer *ldh,
2810  doublereal *sr1, doublereal *si1, doublereal *sr2, doublereal *si2,
2811  doublereal *v);
2812 
2813 /* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, integer *n,
2814  integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
2815  ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz,
2816  integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
2817  v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
2818  nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
2819 
2820 /* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, integer *n,
2821  integer *ktop, integer *kbot, integer *nw, doublereal *h__, integer *
2822  ldh, integer *iloz, integer *ihiz, doublereal *z__, integer *ldz,
2823  integer *ns, integer *nd, doublereal *sr, doublereal *si, doublereal *
2824  v, integer *ldv, integer *nh, doublereal *t, integer *ldt, integer *
2825  nv, doublereal *wv, integer *ldwv, doublereal *work, integer *lwork);
2826 
2827 /* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, integer *n,
2828  integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2829  *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
2830  integer *ldz, doublereal *work, integer *lwork, integer *info);
2831 
2832 /* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, integer *kacc22,
2833  integer *n, integer *ktop, integer *kbot, integer *nshfts, doublereal
2834  *sr, doublereal *si, doublereal *h__, integer *ldh, integer *iloz,
2835  integer *ihiz, doublereal *z__, integer *ldz, doublereal *v, integer *
2836  ldv, doublereal *u, integer *ldu, integer *nv, doublereal *wv,
2837  integer *ldwv, integer *nh, doublereal *wh, integer *ldwh);
2838 
2839 /* Subroutine */ int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
2840  ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
2841  char *equed);
2842 
2843 /* Subroutine */ int dlaqsp_(char *uplo, integer *n, doublereal *ap,
2844  doublereal *s, doublereal *scond, doublereal *amax, char *equed);
2845 
2846 /* Subroutine */ int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
2847  lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
2848 
2849 /* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, integer *n,
2850  doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal
2851  *scale, doublereal *x, doublereal *work, integer *info);
2852 
2853 /* Subroutine */ int dlar1v_(integer *n, integer *b1, integer *bn, doublereal
2854  *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
2855  lld, doublereal *pivmin, doublereal *gaptol, doublereal *z__, logical
2856  *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma,
2857  integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid,
2858  doublereal *rqcorr, doublereal *work);
2859 
2860 /* Subroutine */ int dlar2v_(integer *n, doublereal *x, doublereal *y,
2861  doublereal *z__, integer *incx, doublereal *c__, doublereal *s,
2862  integer *incc);
2863 
2864 /* Subroutine */ int dlarf_(char *side, integer *m, integer *n, doublereal *v,
2865  integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
2866  doublereal *work);
2867 
2868 /* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
2869  storev, integer *m, integer *n, integer *k, doublereal *v, integer *
2870  ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc,
2871  doublereal *work, integer *ldwork);
2872 
2873 /* Subroutine */ int dlarfg_(integer *n, doublereal *alpha, doublereal *x,
2874  integer *incx, doublereal *tau);
2875 
2876 /* Subroutine */ int dlarfp_(integer *n, doublereal *alpha, doublereal *x,
2877  integer *incx, doublereal *tau);
2878 
2879 /* Subroutine */ int dlarft_(char *direct, char *storev, integer *n, integer *
2880  k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
2881  integer *ldt);
2882 
2883 /* Subroutine */ int dlarfx_(char *side, integer *m, integer *n, doublereal *
2884  v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
2885 
2886 /* Subroutine */ int dlargv_(integer *n, doublereal *x, integer *incx,
2887  doublereal *y, integer *incy, doublereal *c__, integer *incc);
2888 
2889 /* Subroutine */ int dlarnv_(integer *idist, integer *iseed, integer *n,
2890  doublereal *x);
2891 
2892 /* Subroutine */ int dlarra_(integer *n, doublereal *d__, doublereal *e,
2893  doublereal *e2, doublereal *spltol, doublereal *tnrm, integer *nsplit,
2894  integer *isplit, integer *info);
2895 
2896 /* Subroutine */ int dlarrb_(integer *n, doublereal *d__, doublereal *lld,
2897  integer *ifirst, integer *ilast, doublereal *rtol1, doublereal *rtol2,
2898  integer *offset, doublereal *w, doublereal *wgap, doublereal *werr,
2899  doublereal *work, integer *iwork, doublereal *pivmin, doublereal *
2900  spdiam, integer *twist, integer *info);
2901 
2902 /* Subroutine */ int dlarrc_(char *jobt, integer *n, doublereal *vl,
2903  doublereal *vu, doublereal *d__, doublereal *e, doublereal *pivmin,
2904  integer *eigcnt, integer *lcnt, integer *rcnt, integer *info);
2905 
2906 /* Subroutine */ int dlarrd_(char *range, char *order, integer *n, doublereal
2907  *vl, doublereal *vu, integer *il, integer *iu, doublereal *gers,
2908  doublereal *reltol, doublereal *d__, doublereal *e, doublereal *e2,
2909  doublereal *pivmin, integer *nsplit, integer *isplit, integer *m,
2910  doublereal *w, doublereal *werr, doublereal *wl, doublereal *wu,
2911  integer *iblock, integer *indexw, doublereal *work, integer *iwork,
2912  integer *info);
2913 
2914 /* Subroutine */ int dlarre_(char *range, integer *n, doublereal *vl,
2915  doublereal *vu, integer *il, integer *iu, doublereal *d__, doublereal
2916  *e, doublereal *e2, doublereal *rtol1, doublereal *rtol2, doublereal *
2917  spltol, integer *nsplit, integer *isplit, integer *m, doublereal *w,
2918  doublereal *werr, doublereal *wgap, integer *iblock, integer *indexw,
2919  doublereal *gers, doublereal *pivmin, doublereal *work, integer *
2920  iwork, integer *info);
2921 
2922 /* Subroutine */ int dlarrf_(integer *n, doublereal *d__, doublereal *l,
2923  doublereal *ld, integer *clstrt, integer *clend, doublereal *w,
2924  doublereal *wgap, doublereal *werr, doublereal *spdiam, doublereal *
2925  clgapl, doublereal *clgapr, doublereal *pivmin, doublereal *sigma,
2926  doublereal *dplus, doublereal *lplus, doublereal *work, integer *info);
2927 
2928 /* Subroutine */ int dlarrj_(integer *n, doublereal *d__, doublereal *e2,
2929  integer *ifirst, integer *ilast, doublereal *rtol, integer *offset,
2930  doublereal *w, doublereal *werr, doublereal *work, integer *iwork,
2931  doublereal *pivmin, doublereal *spdiam, integer *info);
2932 
2933 /* Subroutine */ int dlarrk_(integer *n, integer *iw, doublereal *gl,
2934  doublereal *gu, doublereal *d__, doublereal *e2, doublereal *pivmin,
2935  doublereal *reltol, doublereal *w, doublereal *werr, integer *info);
2936 
2937 /* Subroutine */ int dlarrr_(integer *n, doublereal *d__, doublereal *e,
2938  integer *info);
2939 
2940 /* Subroutine */ int dlarrv_(integer *n, doublereal *vl, doublereal *vu,
2941  doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit,
2942  integer *m, integer *dol, integer *dou, doublereal *minrgp,
2943  doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr,
2944  doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers,
2945  doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
2946  integer *iwork, integer *info);
2947 
2948 /* Subroutine */ int dlarscl2_(integer *m, integer *n, doublereal *d__,
2949  doublereal *x, integer *ldx);
2950 
2951 /* Subroutine */ int dlartg_(doublereal *f, doublereal *g, doublereal *cs,
2952  doublereal *sn, doublereal *r__);
2953 
2954 /* Subroutine */ int dlartv_(integer *n, doublereal *x, integer *incx,
2955  doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer
2956  *incc);
2957 
2958 /* Subroutine */ int dlaruv_(integer *iseed, integer *n, doublereal *x);
2959 
2960 /* Subroutine */ int dlarz_(char *side, integer *m, integer *n, integer *l,
2961  doublereal *v, integer *incv, doublereal *tau, doublereal *c__,
2962  integer *ldc, doublereal *work);
2963 
2964 /* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
2965  storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
2966  integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
2967  ldc, doublereal *work, integer *ldwork);
2968 
2969 /* Subroutine */ int dlarzt_(char *direct, char *storev, integer *n, integer *
2970  k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
2971  integer *ldt);
2972 
2973 /* Subroutine */ int dlas2_(doublereal *f, doublereal *g, doublereal *h__,
2974  doublereal *ssmin, doublereal *ssmax);
2975 
2976 /* Subroutine */ int dlascl_(char *type__, integer *kl, integer *ku,
2977  doublereal *cfrom, doublereal *cto, integer *m, integer *n,
2978  doublereal *a, integer *lda, integer *info);
2979 
2980 /* Subroutine */ int dlascl2_(integer *m, integer *n, doublereal *d__,
2981  doublereal *x, integer *ldx);
2982 
2983 /* Subroutine */ int dlasd0_(integer *n, integer *sqre, doublereal *d__,
2984  doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
2985  ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
2986  info);
2987 
2988 /* Subroutine */ int dlasd1_(integer *nl, integer *nr, integer *sqre,
2989  doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u,
2990  integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
2991  iwork, doublereal *work, integer *info);
2992 
2993 /* Subroutine */ int dlasd2_(integer *nl, integer *nr, integer *sqre, integer
2994  *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
2995  beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt,
2996  doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2,
2997  integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
2998  idxq, integer *coltyp, integer *info);
2999 
3000 /* Subroutine */ int dlasd3_(integer *nl, integer *nr, integer *sqre, integer
3001  *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma,
3002  doublereal *u, integer *ldu, doublereal *u2, integer *ldu2,
3003  doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2,
3004  integer *idxc, integer *ctot, doublereal *z__, integer *info);
3005 
3006 /* Subroutine */ int dlasd4_(integer *n, integer *i__, doublereal *d__,
3007  doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
3008  sigma, doublereal *work, integer *info);
3009 
3010 /* Subroutine */ int dlasd5_(integer *i__, doublereal *d__, doublereal *z__,
3011  doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
3012  work);
3013 
3014 /* Subroutine */ int dlasd6_(integer *icompq, integer *nl, integer *nr,
3015  integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl,
3016  doublereal *alpha, doublereal *beta, integer *idxq, integer *perm,
3017  integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
3018  integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
3019  difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s,
3020  doublereal *work, integer *iwork, integer *info);
3021 
3022 /* Subroutine */ int dlasd7_(integer *icompq, integer *nl, integer *nr,
3023  integer *sqre, integer *k, doublereal *d__, doublereal *z__,
3024  doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl,
3025  doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
3026  dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm,
3027  integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
3028  integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
3029 
3030 /* Subroutine */ int dlasd8_(integer *icompq, integer *k, doublereal *d__,
3031  doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl,
3032  doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
3033  work, integer *info);
3034 
3035 /* Subroutine */ int dlasda_(integer *icompq, integer *smlsiz, integer *n,
3036  integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer
3037  *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr,
3038  doublereal *z__, doublereal *poles, integer *givptr, integer *givcol,
3039  integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__,
3040  doublereal *s, doublereal *work, integer *iwork, integer *info);
3041 
3042 /* Subroutine */ int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
3043  ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e,
3044  doublereal *vt, integer *ldvt, doublereal *u, integer *ldu,
3045  doublereal *c__, integer *ldc, doublereal *work, integer *info);
3046 
3047 /* Subroutine */ int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
3048  inode, integer *ndiml, integer *ndimr, integer *msub);
3049 
3050 /* Subroutine */ int dlaset_(char *uplo, integer *m, integer *n, doublereal *
3051  alpha, doublereal *beta, doublereal *a, integer *lda);
3052 
3053 /* Subroutine */ int dlasq1_(integer *n, doublereal *d__, doublereal *e,
3054  doublereal *work, integer *info);
3055 
3056 /* Subroutine */ int dlasq2_(integer *n, doublereal *z__, integer *info);
3057 
3058 /* Subroutine */ int dlasq3_(integer *i0, integer *n0, doublereal *z__,
3059  integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
3060  doublereal *qmax, integer *nfail, integer *iter, integer *ndiv,
3061  logical *ieee, integer *ttype, doublereal *dmin1, doublereal *dmin2,
3062  doublereal *dn, doublereal *dn1, doublereal *dn2, doublereal *g,
3063  doublereal *tau);
3064 
3065 /* Subroutine */ int dlasq4_(integer *i0, integer *n0, doublereal *z__,
3066  integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1,
3067  doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2,
3068  doublereal *tau, integer *ttype, doublereal *g);
3069 
3070 /* Subroutine */ int dlasq5_(integer *i0, integer *n0, doublereal *z__,
3071  integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1,
3072  doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
3073  logical *ieee);
3074 
3075 /* Subroutine */ int dlasq6_(integer *i0, integer *n0, doublereal *z__,
3076  integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
3077  doublereal *dn, doublereal *dnm1, doublereal *dnm2);
3078 
3079 /* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, integer *m,
3080  integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
3081  lda);
3082 
3083 /* Subroutine */ int dlasrt_(char *id, integer *n, doublereal *d__, integer *
3084  info);
3085 
3086 /* Subroutine */ int dlassq_(integer *n, doublereal *x, integer *incx,
3087  doublereal *scale, doublereal *sumsq);
3088 
3089 /* Subroutine */ int dlasv2_(doublereal *f, doublereal *g, doublereal *h__,
3090  doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
3091  csr, doublereal *snl, doublereal *csl);
3092 
3093 /* Subroutine */ int dlaswp_(integer *n, doublereal *a, integer *lda, integer
3094  *k1, integer *k2, integer *ipiv, integer *incx);
3095 
3096 /* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn,
3097  integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
3098  tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale,
3099  doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
3100 
3101 /* Subroutine */ int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
3102  doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
3103  ldw, integer *info);
3104 
3105 /* Subroutine */ int dlat2s_(char *uplo, integer *n, doublereal *a, integer *
3106  lda, real *sa, integer *ldsa, integer *info);
3107 
3108 /* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
3109  normin, integer *n, integer *kd, doublereal *ab, integer *ldab,
3110  doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
3111 
3112 /* Subroutine */ int dlatdf_(integer *ijob, integer *n, doublereal *z__,
3113  integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal,
3114  integer *ipiv, integer *jpiv);
3115 
3116 /* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
3117  normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale,
3118  doublereal *cnorm, integer *info);
3119 
3120 /* Subroutine */ int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
3121  a, integer *lda, doublereal *e, doublereal *tau, doublereal *w,
3122  integer *ldw);
3123 
3124 /* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
3125  normin, integer *n, doublereal *a, integer *lda, doublereal *x,
3126  doublereal *scale, doublereal *cnorm, integer *info);
3127 
3128 /* Subroutine */ int dlatrz_(integer *m, integer *n, integer *l, doublereal *
3129  a, integer *lda, doublereal *tau, doublereal *work);
3130 
3131 /* Subroutine */ int dlatzm_(char *side, integer *m, integer *n, doublereal *
3132  v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2,
3133  integer *ldc, doublereal *work);
3134 
3135 /* Subroutine */ int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
3136  lda, integer *info);
3137 
3138 /* Subroutine */ int dlauum_(char *uplo, integer *n, doublereal *a, integer *
3139  lda, integer *info);
3140 
3141 /* Subroutine */ int dopgtr_(char *uplo, integer *n, doublereal *ap,
3142  doublereal *tau, doublereal *q, integer *ldq, doublereal *work,
3143  integer *info);
3144 
3145 /* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, integer *m,
3146  integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer
3147  *ldc, doublereal *work, integer *info);
3148 
3149 /* Subroutine */ int dorg2l_(integer *m, integer *n, integer *k, doublereal *
3150  a, integer *lda, doublereal *tau, doublereal *work, integer *info);
3151 
3152 /* Subroutine */ int dorg2r_(integer *m, integer *n, integer *k, doublereal *
3153  a, integer *lda, doublereal *tau, doublereal *work, integer *info);
3154 
3155 /* Subroutine */ int dorgbr_(char *vect, integer *m, integer *n, integer *k,
3156  doublereal *a, integer *lda, doublereal *tau, doublereal *work,
3157  integer *lwork, integer *info);
3158 
3159 /* Subroutine */ int dorghr_(integer *n, integer *ilo, integer *ihi,
3160  doublereal *a, integer *lda, doublereal *tau, doublereal *work,
3161  integer *lwork, integer *info);
3162 
3163 /* Subroutine */ int dorgl2_(integer *m, integer *n, integer *k, doublereal *
3164  a, integer *lda, doublereal *tau, doublereal *work, integer *info);
3165 
3166 /* Subroutine */ int dorglq_(integer *m, integer *n, integer *k, doublereal *
3167  a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
3168  integer *info);
3169 
3170 /* Subroutine */ int dorgql_(integer *m, integer *n, integer *k, doublereal *
3171  a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
3172  integer *info);
3173 
3174 /* Subroutine */ int dorgqr_(integer *m, integer *n, integer *k, doublereal *
3175  a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
3176  integer *info);
3177 
3178 /* Subroutine */ int dorgr2_(integer *m, integer *n, integer *k, doublereal *
3179  a, integer *lda, doublereal *tau, doublereal *work, integer *info);
3180 
3181 /* Subroutine */ int dorgrq_(integer *m, integer *n, integer *k, doublereal *
3182  a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
3183  integer *info);
3184 
3185 /* Subroutine */ int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
3186  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
3187 
3188 /* Subroutine */ int dorm2l_(char *side, char *trans, integer *m, integer *n,
3189  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3190  c__, integer *ldc, doublereal *work, integer *info);
3191 
3192 /* Subroutine */ int dorm2r_(char *side, char *trans, integer *m, integer *n,
3193  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3194  c__, integer *ldc, doublereal *work, integer *info);
3195 
3196 /* Subroutine */ int dormbr_(char *vect, char *side, char *trans, integer *m,
3197  integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau,
3198  doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
3199  integer *info);
3200 
3201 /* Subroutine */ int dormhr_(char *side, char *trans, integer *m, integer *n,
3202  integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
3203  tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
3204  integer *info);
3205 
3206 /* Subroutine */ int dorml2_(char *side, char *trans, integer *m, integer *n,
3207  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3208  c__, integer *ldc, doublereal *work, integer *info);
3209 
3210 /* Subroutine */ int dormlq_(char *side, char *trans, integer *m, integer *n,
3211  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3212  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3213 
3214 /* Subroutine */ int dormql_(char *side, char *trans, integer *m, integer *n,
3215  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3216  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3217 
3218 /* Subroutine */ int dormqr_(char *side, char *trans, integer *m, integer *n,
3219  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3220  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3221 
3222 /* Subroutine */ int dormr2_(char *side, char *trans, integer *m, integer *n,
3223  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3224  c__, integer *ldc, doublereal *work, integer *info);
3225 
3226 /* Subroutine */ int dormr3_(char *side, char *trans, integer *m, integer *n,
3227  integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
3228  doublereal *c__, integer *ldc, doublereal *work, integer *info);
3229 
3230 /* Subroutine */ int dormrq_(char *side, char *trans, integer *m, integer *n,
3231  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
3232  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3233 
3234 /* Subroutine */ int dormrz_(char *side, char *trans, integer *m, integer *n,
3235  integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
3236  doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
3237  integer *info);
3238 
3239 /* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, integer *m,
3240  integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
3241  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
3242 
3243 /* Subroutine */ int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
3244  ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
3245  work, integer *iwork, integer *info);
3246 
3247 /* Subroutine */ int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
3248  ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
3249  integer *info);
3250 
3251 /* Subroutine */ int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
3252  nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
3253  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
3254  ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
3255  info);
3256 
3257 /* Subroutine */ int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
3258  ab, integer *ldab, integer *info);
3259 
3260 /* Subroutine */ int dpbsv_(char *uplo, integer *n, integer *kd, integer *
3261  nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
3262  integer *info);
3263 
3264 /* Subroutine */ int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
3265  integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
3266  integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
3267  ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
3268  doublereal *berr, doublereal *work, integer *iwork, integer *info);
3269 
3270 /* Subroutine */ int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
3271  ab, integer *ldab, integer *info);
3272 
3273 /* Subroutine */ int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
3274  ab, integer *ldab, integer *info);
3275 
3276 /* Subroutine */ int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
3277  nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
3278  integer *info);
3279 
3280 /* Subroutine */ int dpftrf_(char *transr, char *uplo, integer *n, doublereal
3281  *a, integer *info);
3282 
3283 /* Subroutine */ int dpftri_(char *transr, char *uplo, integer *n, doublereal
3284  *a, integer *info);
3285 
3286 /* Subroutine */ int dpftrs_(char *transr, char *uplo, integer *n, integer *
3287  nrhs, doublereal *a, doublereal *b, integer *ldb, integer *info);
3288 
3289 /* Subroutine */ int dpocon_(char *uplo, integer *n, doublereal *a, integer *
3290  lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
3291  iwork, integer *info);
3292 
3293 /* Subroutine */ int dpoequ_(integer *n, doublereal *a, integer *lda,
3294  doublereal *s, doublereal *scond, doublereal *amax, integer *info);
3295 
3296 /* Subroutine */ int dpoequb_(integer *n, doublereal *a, integer *lda,
3297  doublereal *s, doublereal *scond, doublereal *amax, integer *info);
3298 
3299 /* Subroutine */ int dporfs_(char *uplo, integer *n, integer *nrhs,
3300  doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3301  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
3302  ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
3303  info);
3304 
3305 /* Subroutine */ int dporfsx_(char *uplo, char *equed, integer *n, integer *
3306  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3307  doublereal *s, doublereal *b, integer *ldb, doublereal *x, integer *
3308  ldx, doublereal *rcond, doublereal *berr, integer *n_err_bnds__,
3309  doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
3310  nparams, doublereal *params, doublereal *work, integer *iwork,
3311  integer *info);
3312 
3313 /* Subroutine */ int dposv_(char *uplo, integer *n, integer *nrhs, doublereal
3314  *a, integer *lda, doublereal *b, integer *ldb, integer *info);
3315 
3316 /* Subroutine */ int dposvx_(char *fact, char *uplo, integer *n, integer *
3317  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3318  char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
3319  x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
3320  berr, doublereal *work, integer *iwork, integer *info);
3321 
3322 /* Subroutine */ int dposvxx_(char *fact, char *uplo, integer *n, integer *
3323  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3324  char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
3325  x, integer *ldx, doublereal *rcond, doublereal *rpvgrw, doublereal *
3326  berr, integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
3327  err_bnds_comp__, integer *nparams, doublereal *params, doublereal *
3328  work, integer *iwork, integer *info);
3329 
3330 /* Subroutine */ int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
3331  lda, integer *info);
3332 
3333 /* Subroutine */ int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
3334  lda, integer *info);
3335 
3336 /* Subroutine */ int dpotri_(char *uplo, integer *n, doublereal *a, integer *
3337  lda, integer *info);
3338 
3339 /* Subroutine */ int dpotrs_(char *uplo, integer *n, integer *nrhs,
3340  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
3341  info);
3342 
3343 /* Subroutine */ int dppcon_(char *uplo, integer *n, doublereal *ap,
3344  doublereal *anorm, doublereal *rcond, doublereal *work, integer *
3345  iwork, integer *info);
3346 
3347 /* Subroutine */ int dppequ_(char *uplo, integer *n, doublereal *ap,
3348  doublereal *s, doublereal *scond, doublereal *amax, integer *info);
3349 
3350 /* Subroutine */ int dpprfs_(char *uplo, integer *n, integer *nrhs,
3351  doublereal *ap, doublereal *afp, doublereal *b, integer *ldb,
3352  doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3353  doublereal *work, integer *iwork, integer *info);
3354 
3355 /* Subroutine */ int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal
3356  *ap, doublereal *b, integer *ldb, integer *info);
3357 
3358 /* Subroutine */ int dppsvx_(char *fact, char *uplo, integer *n, integer *
3359  nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s,
3360  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
3361  rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
3362  iwork, integer *info);
3363 
3364 /* Subroutine */ int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
3365  info);
3366 
3367 /* Subroutine */ int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
3368  info);
3369 
3370 /* Subroutine */ int dpptrs_(char *uplo, integer *n, integer *nrhs,
3371  doublereal *ap, doublereal *b, integer *ldb, integer *info);
3372 
3373 /* Subroutine */ int dpstf2_(char *uplo, integer *n, doublereal *a, integer *
3374  lda, integer *piv, integer *rank, doublereal *tol, doublereal *work,
3375  integer *info);
3376 
3377 /* Subroutine */ int dpstrf_(char *uplo, integer *n, doublereal *a, integer *
3378  lda, integer *piv, integer *rank, doublereal *tol, doublereal *work,
3379  integer *info);
3380 
3381 /* Subroutine */ int dptcon_(integer *n, doublereal *d__, doublereal *e,
3382  doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
3383 
3384 /* Subroutine */ int dpteqr_(char *compz, integer *n, doublereal *d__,
3385  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3386  integer *info);
3387 
3388 /* Subroutine */ int dptrfs_(integer *n, integer *nrhs, doublereal *d__,
3389  doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer
3390  *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3391  doublereal *work, integer *info);
3392 
3393 /* Subroutine */ int dptsv_(integer *n, integer *nrhs, doublereal *d__,
3394  doublereal *e, doublereal *b, integer *ldb, integer *info);
3395 
3396 /* Subroutine */ int dptsvx_(char *fact, integer *n, integer *nrhs,
3397  doublereal *d__, doublereal *e, doublereal *df, doublereal *ef,
3398  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
3399  rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
3400  info);
3401 
3402 /* Subroutine */ int dpttrf_(integer *n, doublereal *d__, doublereal *e,
3403  integer *info);
3404 
3405 /* Subroutine */ int dpttrs_(integer *n, integer *nrhs, doublereal *d__,
3406  doublereal *e, doublereal *b, integer *ldb, integer *info);
3407 
3408 /* Subroutine */ int dptts2_(integer *n, integer *nrhs, doublereal *d__,
3409  doublereal *e, doublereal *b, integer *ldb);
3410 
3411 /* Subroutine */ int drscl_(integer *n, doublereal *sa, doublereal *sx,
3412  integer *incx);
3413 
3414 /* Subroutine */ int dsbev_(char *jobz, char *uplo, integer *n, integer *kd,
3415  doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
3416  integer *ldz, doublereal *work, integer *info);
3417 
3418 /* Subroutine */ int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd,
3419  doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
3420  integer *ldz, doublereal *work, integer *lwork, integer *iwork,
3421  integer *liwork, integer *info);
3422 
3423 /* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, integer *n,
3424  integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
3425  ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu,
3426  doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
3427  integer *ldz, doublereal *work, integer *iwork, integer *ifail,
3428  integer *info);
3429 
3430 /* Subroutine */ int dsbgst_(char *vect, char *uplo, integer *n, integer *ka,
3431  integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
3432  ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
3433 
3434 /* Subroutine */ int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka,
3435  integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
3436  ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3437  integer *info);
3438 
3439 /* Subroutine */ int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
3440  integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
3441  ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3442  integer *lwork, integer *iwork, integer *liwork, integer *info);
3443 
3444 /* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, integer *n,
3445  integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
3446  bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl,
3447  doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
3448  *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3449  integer *iwork, integer *ifail, integer *info);
3450 
3451 /* Subroutine */ int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd,
3452  doublereal *ab, integer *ldab, doublereal *d__, doublereal *e,
3453  doublereal *q, integer *ldq, doublereal *work, integer *info);
3454 
3455 /* Subroutine */ int dsfrk_(char *transr, char *uplo, char *trans, integer *n,
3456  integer *k, doublereal *alpha, doublereal *a, integer *lda,
3457  doublereal *beta, doublereal *c__);
3458 
3459 /* Subroutine */ int dsgesv_(integer *n, integer *nrhs, doublereal *a,
3460  integer *lda, integer *ipiv, doublereal *b, integer *ldb, doublereal *
3461  x, integer *ldx, doublereal *work, real *swork, integer *iter,
3462  integer *info);
3463 
3464 /* Subroutine */ int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
3465  ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer
3466  *iwork, integer *info);
3467 
3468 /* Subroutine */ int dspev_(char *jobz, char *uplo, integer *n, doublereal *
3469  ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3470  integer *info);
3471 
3472 /* Subroutine */ int dspevd_(char *jobz, char *uplo, integer *n, doublereal *
3473  ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3474  integer *lwork, integer *iwork, integer *liwork, integer *info);
3475 
3476 /* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, integer *n,
3477  doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *
3478  iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
3479  integer *ldz, doublereal *work, integer *iwork, integer *ifail,
3480  integer *info);
3481 
3482 /* Subroutine */ int dspgst_(integer *itype, char *uplo, integer *n,
3483  doublereal *ap, doublereal *bp, integer *info);
3484 
3485 /* Subroutine */ int dspgv_(integer *itype, char *jobz, char *uplo, integer *
3486  n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
3487  integer *ldz, doublereal *work, integer *info);
3488 
3489 /* Subroutine */ int dspgvd_(integer *itype, char *jobz, char *uplo, integer *
3490  n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
3491  integer *ldz, doublereal *work, integer *lwork, integer *iwork,
3492  integer *liwork, integer *info);
3493 
3494 /* Subroutine */ int dspgvx_(integer *itype, char *jobz, char *range, char *
3495  uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl,
3496  doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
3497  *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
3498  integer *iwork, integer *ifail, integer *info);
3499 
3500 /* Subroutine */ int dsposv_(char *uplo, integer *n, integer *nrhs,
3501  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
3502  x, integer *ldx, doublereal *work, real *swork, integer *iter,
3503  integer *info);
3504 
3505 /* Subroutine */ int dsprfs_(char *uplo, integer *n, integer *nrhs,
3506  doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
3507  integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
3508  doublereal *berr, doublereal *work, integer *iwork, integer *info);
3509 
3510 /* Subroutine */ int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal
3511  *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
3512 
3513 /* Subroutine */ int dspsvx_(char *fact, char *uplo, integer *n, integer *
3514  nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
3515  integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
3516  doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
3517  integer *info);
3518 
3519 /* Subroutine */ int dsptrd_(char *uplo, integer *n, doublereal *ap,
3520  doublereal *d__, doublereal *e, doublereal *tau, integer *info);
3521 
3522 /* Subroutine */ int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
3523  ipiv, integer *info);
3524 
3525 /* Subroutine */ int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
3526  ipiv, doublereal *work, integer *info);
3527 
3528 /* Subroutine */ int dsptrs_(char *uplo, integer *n, integer *nrhs,
3529  doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
3530  info);
3531 
3532 /* Subroutine */ int dstebz_(char *range, char *order, integer *n, doublereal
3533  *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
3534  doublereal *d__, doublereal *e, integer *m, integer *nsplit,
3535  doublereal *w, integer *iblock, integer *isplit, doublereal *work,
3536  integer *iwork, integer *info);
3537 
3538 /* Subroutine */ int dstedc_(char *compz, integer *n, doublereal *d__,
3539  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3540  integer *lwork, integer *iwork, integer *liwork, integer *info);
3541 
3542 /* Subroutine */ int dstegr_(char *jobz, char *range, integer *n, doublereal *
3543  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
3544  integer *iu, doublereal *abstol, integer *m, doublereal *w,
3545  doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
3546  integer *lwork, integer *iwork, integer *liwork, integer *info);
3547 
3548 /* Subroutine */ int dstein_(integer *n, doublereal *d__, doublereal *e,
3549  integer *m, doublereal *w, integer *iblock, integer *isplit,
3550  doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
3551  integer *ifail, integer *info);
3552 
3553 /* Subroutine */ int dstemr_(char *jobz, char *range, integer *n, doublereal *
3554  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
3555  integer *iu, integer *m, doublereal *w, doublereal *z__, integer *ldz,
3556  integer *nzc, integer *isuppz, logical *tryrac, doublereal *work,
3557  integer *lwork, integer *iwork, integer *liwork, integer *info);
3558 
3559 /* Subroutine */ int dsteqr_(char *compz, integer *n, doublereal *d__,
3560  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3561  integer *info);
3562 
3563 /* Subroutine */ int dsterf_(integer *n, doublereal *d__, doublereal *e,
3564  integer *info);
3565 
3566 /* Subroutine */ int dstev_(char *jobz, integer *n, doublereal *d__,
3567  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3568  integer *info);
3569 
3570 /* Subroutine */ int dstevd_(char *jobz, integer *n, doublereal *d__,
3571  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
3572  integer *lwork, integer *iwork, integer *liwork, integer *info);
3573 
3574 /* Subroutine */ int dstevr_(char *jobz, char *range, integer *n, doublereal *
3575  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
3576  integer *iu, doublereal *abstol, integer *m, doublereal *w,
3577  doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
3578  integer *lwork, integer *iwork, integer *liwork, integer *info);
3579 
3580 /* Subroutine */ int dstevx_(char *jobz, char *range, integer *n, doublereal *
3581  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
3582  integer *iu, doublereal *abstol, integer *m, doublereal *w,
3583  doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
3584  integer *ifail, integer *info);
3585 
3586 /* Subroutine */ int dsycon_(char *uplo, integer *n, doublereal *a, integer *
3587  lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *
3588  work, integer *iwork, integer *info);
3589 
3590 /* Subroutine */ int dsyequb_(char *uplo, integer *n, doublereal *a, integer *
3591  lda, doublereal *s, doublereal *scond, doublereal *amax, doublereal *
3592  work, integer *info);
3593 
3594 /* Subroutine */ int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
3595  integer *lda, doublereal *w, doublereal *work, integer *lwork,
3596  integer *info);
3597 
3598 /* Subroutine */ int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *
3599  a, integer *lda, doublereal *w, doublereal *work, integer *lwork,
3600  integer *iwork, integer *liwork, integer *info);
3601 
3602 /* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, integer *n,
3603  doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
3604  il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
3605  doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
3606  integer *lwork, integer *iwork, integer *liwork, integer *info);
3607 
3608 /* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, integer *n,
3609  doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
3610  il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
3611  doublereal *z__, integer *ldz, doublereal *work, integer *lwork,
3612  integer *iwork, integer *ifail, integer *info);
3613 
3614 /* Subroutine */ int dsygs2_(integer *itype, char *uplo, integer *n,
3615  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
3616  info);
3617 
3618 /* Subroutine */ int dsygst_(integer *itype, char *uplo, integer *n,
3619  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
3620  info);
3621 
3622 /* Subroutine */ int dsygv_(integer *itype, char *jobz, char *uplo, integer *
3623  n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3624  doublereal *w, doublereal *work, integer *lwork, integer *info);
3625 
3626 /* Subroutine */ int dsygvd_(integer *itype, char *jobz, char *uplo, integer *
3627  n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3628  doublereal *w, doublereal *work, integer *lwork, integer *iwork,
3629  integer *liwork, integer *info);
3630 
3631 /* Subroutine */ int dsygvx_(integer *itype, char *jobz, char *range, char *
3632  uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer
3633  *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu,
3634  doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
3635  integer *ldz, doublereal *work, integer *lwork, integer *iwork,
3636  integer *ifail, integer *info);
3637 
3638 /* Subroutine */ int dsyrfs_(char *uplo, integer *n, integer *nrhs,
3639  doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
3640  ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
3641  doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
3642  integer *info);
3643 
3644 /* Subroutine */ int dsyrfsx_(char *uplo, char *equed, integer *n, integer *
3645  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3646  integer *ipiv, doublereal *s, doublereal *b, integer *ldb, doublereal
3647  *x, integer *ldx, doublereal *rcond, doublereal *berr, integer *
3648  n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
3649  err_bnds_comp__, integer *nparams, doublereal *params, doublereal *
3650  work, integer *iwork, integer *info);
3651 
3652 /* Subroutine */ int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal
3653  *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb,
3654  doublereal *work, integer *lwork, integer *info);
3655 
3656 /* Subroutine */ int dsysvx_(char *fact, char *uplo, integer *n, integer *
3657  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3658  integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *
3659  ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
3660  doublereal *work, integer *lwork, integer *iwork, integer *info);
3661 
3662 /* Subroutine */ int dsysvxx_(char *fact, char *uplo, integer *n, integer *
3663  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
3664  integer *ipiv, char *equed, doublereal *s, doublereal *b, integer *
3665  ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *
3666  rpvgrw, doublereal *berr, integer *n_err_bnds__, doublereal *
3667  err_bnds_norm__, doublereal *err_bnds_comp__, integer *nparams,
3668  doublereal *params, doublereal *work, integer *iwork, integer *info);
3669 
3670 /* Subroutine */ int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
3671  lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
3672 
3673 /* Subroutine */ int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
3674  lda, integer *ipiv, integer *info);
3675 
3676 /* Subroutine */ int dsytrd_(char *uplo, integer *n, doublereal *a, integer *
3677  lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *
3678  work, integer *lwork, integer *info);
3679 
3680 /* Subroutine */ int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
3681  lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
3682 
3683 /* Subroutine */ int dsytri_(char *uplo, integer *n, doublereal *a, integer *
3684  lda, integer *ipiv, doublereal *work, integer *info);
3685 
3686 /* Subroutine */ int dsytrs_(char *uplo, integer *n, integer *nrhs,
3687  doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
3688  ldb, integer *info);
3689 
3690 /* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, integer *n,
3691  integer *kd, doublereal *ab, integer *ldab, doublereal *rcond,
3692  doublereal *work, integer *iwork, integer *info);
3693 
3694 /* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, integer *n,
3695  integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
3696  *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
3697  doublereal *berr, doublereal *work, integer *iwork, integer *info);
3698 
3699 /* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, integer *n,
3700  integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
3701  *b, integer *ldb, integer *info);
3702 
3703 /* Subroutine */ int dtfsm_(char *transr, char *side, char *uplo, char *trans,
3704  char *diag, integer *m, integer *n, doublereal *alpha, doublereal *a,
3705  doublereal *b, integer *ldb);
3706 
3707 /* Subroutine */ int dtftri_(char *transr, char *uplo, char *diag, integer *n,
3708  doublereal *a, integer *info);
3709 
3710 /* Subroutine */ int dtfttp_(char *transr, char *uplo, integer *n, doublereal
3711  *arf, doublereal *ap, integer *info);
3712 
3713 /* Subroutine */ int dtfttr_(char *transr, char *uplo, integer *n, doublereal
3714  *arf, doublereal *a, integer *lda, integer *info);
3715 
3716 /* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select,
3717  integer *n, doublereal *s, integer *lds, doublereal *p, integer *ldp,
3718  doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer
3719  *mm, integer *m, doublereal *work, integer *info);
3720 
3721 /* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, integer *n,
3722  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
3723  q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *
3724  n1, integer *n2, doublereal *work, integer *lwork, integer *info);
3725 
3726 /* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, integer *n,
3727  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
3728  q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst,
3729  integer *ilst, doublereal *work, integer *lwork, integer *info);
3730 
3731 /* Subroutine */ int dtgsen_(integer *ijob, logical *wantq, logical *wantz,
3732  logical *select, integer *n, doublereal *a, integer *lda, doublereal *
3733  b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
3734  beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
3735  integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
3736  doublereal *work, integer *lwork, integer *iwork, integer *liwork,
3737  integer *info);
3738 
3739 /* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m,
3740  integer *p, integer *n, integer *k, integer *l, doublereal *a,
3741  integer *lda, doublereal *b, integer *ldb, doublereal *tola,
3742  doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u,
3743  integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *
3744  ldq, doublereal *work, integer *ncycle, integer *info);
3745 
3746 /* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select,
3747  integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3748  doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
3749  doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *
3750  work, integer *lwork, integer *iwork, integer *info);
3751 
3752 /* Subroutine */ int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
3753  n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3754  doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
3755  doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
3756  scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer
3757  *pq, integer *info);
3758 
3759 /* Subroutine */ int dtgsyl_(char *trans, integer *ijob, integer *m, integer *
3760  n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3761  doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
3762  doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
3763  scale, doublereal *dif, doublereal *work, integer *lwork, integer *
3764  iwork, integer *info);
3765 
3766 /* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, integer *n,
3767  doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork,
3768  integer *info);
3769 
3770 /* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, integer *n,
3771  integer *nrhs, doublereal *ap, doublereal *b, integer *ldb,
3772  doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3773  doublereal *work, integer *iwork, integer *info);
3774 
3775 /* Subroutine */ int dtptri_(char *uplo, char *diag, integer *n, doublereal *
3776  ap, integer *info);
3777 
3778 /* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, integer *n,
3779  integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
3780  info);
3781 
3782 /* Subroutine */ int dtpttf_(char *transr, char *uplo, integer *n, doublereal
3783  *ap, doublereal *arf, integer *info);
3784 
3785 /* Subroutine */ int dtpttr_(char *uplo, integer *n, doublereal *ap,
3786  doublereal *a, integer *lda, integer *info);
3787 
3788 /* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, integer *n,
3789  doublereal *a, integer *lda, doublereal *rcond, doublereal *work,
3790  integer *iwork, integer *info);
3791 
3792 /* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select,
3793  integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
3794  ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m,
3795  doublereal *work, integer *info);
3796 
3797 /* Subroutine */ int dtrexc_(char *compq, integer *n, doublereal *t, integer *
3798  ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst,
3799  doublereal *work, integer *info);
3800 
3801 /* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, integer *n,
3802  integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
3803  ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3804  doublereal *work, integer *iwork, integer *info);
3805 
3806 /* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, integer
3807  *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq,
3808  doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal
3809  *sep, doublereal *work, integer *lwork, integer *iwork, integer *
3810  liwork, integer *info);
3811 
3812 /* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select,
3813  integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
3814  ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep,
3815  integer *mm, integer *m, doublereal *work, integer *ldwork, integer *
3816  iwork, integer *info);
3817 
3818 /* Subroutine */ int dtrsyl_(char *trana, char *tranb, integer *isgn, integer
3819  *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *
3820  ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info);
3821 
3822 /* Subroutine */ int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
3823  a, integer *lda, integer *info);
3824 
3825 /* Subroutine */ int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
3826  a, integer *lda, integer *info);
3827 
3828 /* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, integer *n,
3829  integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
3830  ldb, integer *info);
3831 
3832 /* Subroutine */ int dtrttf_(char *transr, char *uplo, integer *n, doublereal
3833  *a, integer *lda, doublereal *arf, integer *info);
3834 
3835 /* Subroutine */ int dtrttp_(char *uplo, integer *n, doublereal *a, integer *
3836  lda, doublereal *ap, integer *info);
3837 
3838 /* Subroutine */ int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
3839  lda, doublereal *tau, integer *info);
3840 
3841 /* Subroutine */ int dtzrzf_(integer *m, integer *n, doublereal *a, integer *
3842  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
3843 
3844 doublereal dzsum1_(integer *n, doublecomplex *cx, integer *incx);
3845 
3846 integer icmax1_(integer *n, complex *cx, integer *incx);
3847 
3848 integer ieeeck_(integer *ispec, real *zero, real *one);
3849 
3850 integer ilaclc_(integer *m, integer *n, complex *a, integer *lda);
3851 
3852 integer ilaclr_(integer *m, integer *n, complex *a, integer *lda);
3853 
3854 integer iladiag_(char *diag);
3855 
3856 integer iladlc_(integer *m, integer *n, doublereal *a, integer *lda);
3857 
3858 integer iladlr_(integer *m, integer *n, doublereal *a, integer *lda);
3859 
3860 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
3861  integer *n2, integer *n3, integer *n4);
3862 
3863 integer ilaprec_(char *prec);
3864 
3865 integer ilaslc_(integer *m, integer *n, real *a, integer *lda);
3866 
3867 integer ilaslr_(integer *m, integer *n, real *a, integer *lda);
3868 
3869 integer ilatrans_(char *trans);
3870 
3871 integer ilauplo_(char *uplo);
3872 
3873 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__,
3874  integer *vers_patch__);
3875 
3876 integer ilazlc_(integer *m, integer *n, doublecomplex *a, integer *lda);
3877 
3878 integer ilazlr_(integer *m, integer *n, doublecomplex *a, integer *lda);
3879 
3880 integer iparmq_(integer *ispec, char *name__, char *opts, integer *n, integer
3881  *ilo, integer *ihi, integer *lwork);
3882 
3883 integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
3884 
3885 logical lsamen_(integer *n, char *ca, char *cb);
3886 
3887 integer smaxloc_(real *a, integer *dimm);
3888 
3889 /* Subroutine */ int sbdsdc_(char *uplo, char *compq, integer *n, real *d__,
3890  real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q,
3891  integer *iq, real *work, integer *iwork, integer *info);
3892 
3893 /* Subroutine */ int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
3894  nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *
3895  u, integer *ldu, real *c__, integer *ldc, real *work, integer *info);
3896 
3897 doublereal scsum1_(integer *n, complex *cx, integer *incx);
3898 
3899 /* Subroutine */ int sdisna_(char *job, integer *m, integer *n, real *d__,
3900  real *sep, integer *info);
3901 
3902 /* Subroutine */ int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
3903  integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *
3904  e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer
3905  *ldc, real *work, integer *info);
3906 
3907 /* Subroutine */ int sgbcon_(char *norm, integer *n, integer *kl, integer *ku,
3908  real *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
3909  real *work, integer *iwork, integer *info);
3910 
3911 /* Subroutine */ int sgbequ_(integer *m, integer *n, integer *kl, integer *ku,
3912  real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
3913  colcnd, real *amax, integer *info);
3914 
3915 /* Subroutine */ int sgbequb_(integer *m, integer *n, integer *kl, integer *
3916  ku, real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
3917  *colcnd, real *amax, integer *info);
3918 
3919 /* Subroutine */ int sgbrfs_(char *trans, integer *n, integer *kl, integer *
3920  ku, integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
3921  integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
3922  ferr, real *berr, real *work, integer *iwork, integer *info);
3923 
3924 /* Subroutine */ int sgbrfsx_(char *trans, char *equed, integer *n, integer *
3925  kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
3926  integer *ldafb, integer *ipiv, real *r__, real *c__, real *b, integer
3927  *ldb, real *x, integer *ldx, real *rcond, real *berr, integer *
3928  n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
3929  nparams, real *params, real *work, integer *iwork, integer *info);
3930 
3931 /* Subroutine */ int sgbsv_(integer *n, integer *kl, integer *ku, integer *
3932  nrhs, real *ab, integer *ldab, integer *ipiv, real *b, integer *ldb,
3933  integer *info);
3934 
3935 /* Subroutine */ int sgbsvx_(char *fact, char *trans, integer *n, integer *kl,
3936  integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
3937  integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
3938  real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
3939  real *berr, real *work, integer *iwork, integer *info);
3940 
3941 /* Subroutine */ int sgbsvxx_(char *fact, char *trans, integer *n, integer *
3942  kl, integer *ku, integer *nrhs, real *ab, integer *ldab, real *afb,
3943  integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
3944  real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *
3945  rpvgrw, real *berr, integer *n_err_bnds__, real *err_bnds_norm__,
3946  real *err_bnds_comp__, integer *nparams, real *params, real *work,
3947  integer *iwork, integer *info);
3948 
3949 /* Subroutine */ int sgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
3950  real *ab, integer *ldab, integer *ipiv, integer *info);
3951 
3952 /* Subroutine */ int sgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
3953  real *ab, integer *ldab, integer *ipiv, integer *info);
3954 
3955 /* Subroutine */ int sgbtrs_(char *trans, integer *n, integer *kl, integer *
3956  ku, integer *nrhs, real *ab, integer *ldab, integer *ipiv, real *b,
3957  integer *ldb, integer *info);
3958 
3959 /* Subroutine */ int sgebak_(char *job, char *side, integer *n, integer *ilo,
3960  integer *ihi, real *scale, integer *m, real *v, integer *ldv, integer
3961  *info);
3962 
3963 /* Subroutine */ int sgebal_(char *job, integer *n, real *a, integer *lda,
3964  integer *ilo, integer *ihi, real *scale, integer *info);
3965 
3966 /* Subroutine */ int sgebd2_(integer *m, integer *n, real *a, integer *lda,
3967  real *d__, real *e, real *tauq, real *taup, real *work, integer *info);
3968 
3969 /* Subroutine */ int sgebrd_(integer *m, integer *n, real *a, integer *lda,
3970  real *d__, real *e, real *tauq, real *taup, real *work, integer *
3971  lwork, integer *info);
3972 
3973 /* Subroutine */ int sgecon_(char *norm, integer *n, real *a, integer *lda,
3974  real *anorm, real *rcond, real *work, integer *iwork, integer *info);
3975 
3976 /* Subroutine */ int sgeequ_(integer *m, integer *n, real *a, integer *lda,
3977  real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer
3978  *info);
3979 
3980 /* Subroutine */ int sgeequb_(integer *m, integer *n, real *a, integer *lda,
3981  real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, integer
3982  *info);
3983 
3984 /* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, integer *n,
3985  real *a, integer *lda, integer *sdim, real *wr, real *wi, real *vs,
3986  integer *ldvs, real *work, integer *lwork, logical *bwork, integer *
3987  info);
3988 
3989 /* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char *
3990  sense, integer *n, real *a, integer *lda, integer *sdim, real *wr,
3991  real *wi, real *vs, integer *ldvs, real *rconde, real *rcondv, real *
3992  work, integer *lwork, integer *iwork, integer *liwork, logical *bwork,
3993  integer *info);
3994 
3995 /* Subroutine */ int sgeev_(char *jobvl, char *jobvr, integer *n, real *a,
3996  integer *lda, real *wr, real *wi, real *vl, integer *ldvl, real *vr,
3997  integer *ldvr, real *work, integer *lwork, integer *info);
3998 
3999 /* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *
4000  sense, integer *n, real *a, integer *lda, real *wr, real *wi, real *
4001  vl, integer *ldvl, real *vr, integer *ldvr, integer *ilo, integer *
4002  ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work,
4003  integer *lwork, integer *iwork, integer *info);
4004 
4005 /* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, integer *n, real *a,
4006  integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
4007  *beta, real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *
4008  work, integer *lwork, integer *info);
4009 
4010 /* Subroutine */ int sgegv_(char *jobvl, char *jobvr, integer *n, real *a,
4011  integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
4012  *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
4013  integer *lwork, integer *info);
4014 
4015 /* Subroutine */ int sgehd2_(integer *n, integer *ilo, integer *ihi, real *a,
4016  integer *lda, real *tau, real *work, integer *info);
4017 
4018 /* Subroutine */ int sgehrd_(integer *n, integer *ilo, integer *ihi, real *a,
4019  integer *lda, real *tau, real *work, integer *lwork, integer *info);
4020 
4021 /* Subroutine */ int sgejsv_(char *joba, char *jobu, char *jobv, char *jobr,
4022  char *jobt, char *jobp, integer *m, integer *n, real *a, integer *lda,
4023  real *sva, real *u, integer *ldu, real *v, integer *ldv, real *work,
4024  integer *lwork, integer *iwork, integer *info);
4025 
4026 /* Subroutine */ int sgelq2_(integer *m, integer *n, real *a, integer *lda,
4027  real *tau, real *work, integer *info);
4028 
4029 /* Subroutine */ int sgelqf_(integer *m, integer *n, real *a, integer *lda,
4030  real *tau, real *work, integer *lwork, integer *info);
4031 
4032 /* Subroutine */ int sgels_(char *trans, integer *m, integer *n, integer *
4033  nrhs, real *a, integer *lda, real *b, integer *ldb, real *work,
4034  integer *lwork, integer *info);
4035 
4036 /* Subroutine */ int sgelsd_(integer *m, integer *n, integer *nrhs, real *a,
4037  integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
4038  rank, real *work, integer *lwork, integer *iwork, integer *info);
4039 
4040 /* Subroutine */ int sgelss_(integer *m, integer *n, integer *nrhs, real *a,
4041  integer *lda, real *b, integer *ldb, real *s, real *rcond, integer *
4042  rank, real *work, integer *lwork, integer *info);
4043 
4044 /* Subroutine */ int sgelsx_(integer *m, integer *n, integer *nrhs, real *a,
4045  integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
4046  integer *rank, real *work, integer *info);
4047 
4048 /* Subroutine */ int sgelsy_(integer *m, integer *n, integer *nrhs, real *a,
4049  integer *lda, real *b, integer *ldb, integer *jpvt, real *rcond,
4050  integer *rank, real *work, integer *lwork, integer *info);
4051 
4052 /* Subroutine */ int sgeql2_(integer *m, integer *n, real *a, integer *lda,
4053  real *tau, real *work, integer *info);
4054 
4055 /* Subroutine */ int sgeqlf_(integer *m, integer *n, real *a, integer *lda,
4056  real *tau, real *work, integer *lwork, integer *info);
4057 
4058 /* Subroutine */ int sgeqp3_(integer *m, integer *n, real *a, integer *lda,
4059  integer *jpvt, real *tau, real *work, integer *lwork, integer *info);
4060 
4061 /* Subroutine */ int sgeqpf_(integer *m, integer *n, real *a, integer *lda,
4062  integer *jpvt, real *tau, real *work, integer *info);
4063 
4064 /* Subroutine */ int sgeqr2_(integer *m, integer *n, real *a, integer *lda,
4065  real *tau, real *work, integer *info);
4066 
4067 /* Subroutine */ int sgeqrf_(integer *m, integer *n, real *a, integer *lda,
4068  real *tau, real *work, integer *lwork, integer *info);
4069 
4070 /* Subroutine */ int sgerfs_(char *trans, integer *n, integer *nrhs, real *a,
4071  integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
4072  integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
4073  work, integer *iwork, integer *info);
4074 
4075 /* Subroutine */ int sgerfsx_(char *trans, char *equed, integer *n, integer *
4076  nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
4077  real *r__, real *c__, real *b, integer *ldb, real *x, integer *ldx,
4078  real *rcond, real *berr, integer *n_err_bnds__, real *err_bnds_norm__,
4079  real *err_bnds_comp__, integer *nparams, real *params, real *work,
4080  integer *iwork, integer *info);
4081 
4082 /* Subroutine */ int sgerq2_(integer *m, integer *n, real *a, integer *lda,
4083  real *tau, real *work, integer *info);
4084 
4085 /* Subroutine */ int sgerqf_(integer *m, integer *n, real *a, integer *lda,
4086  real *tau, real *work, integer *lwork, integer *info);
4087 
4088 /* Subroutine */ int sgesc2_(integer *n, real *a, integer *lda, real *rhs,
4089  integer *ipiv, integer *jpiv, real *scale);
4090 
4091 /* Subroutine */ int sgesdd_(char *jobz, integer *m, integer *n, real *a,
4092  integer *lda, real *s, real *u, integer *ldu, real *vt, integer *ldvt,
4093  real *work, integer *lwork, integer *iwork, integer *info);
4094 
4095 /* Subroutine */ int sgesv_(integer *n, integer *nrhs, real *a, integer *lda,
4096  integer *ipiv, real *b, integer *ldb, integer *info);
4097 
4098 /* Subroutine */ int sgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
4099  real *a, integer *lda, real *s, real *u, integer *ldu, real *vt,
4100  integer *ldvt, real *work, integer *lwork, integer *info);
4101 
4102 /* Subroutine */ int sgesvj_(char *joba, char *jobu, char *jobv, integer *m,
4103  integer *n, real *a, integer *lda, real *sva, integer *mv, real *v,
4104  integer *ldv, real *work, integer *lwork, integer *info);
4105 
4106 /* Subroutine */ int sgesvx_(char *fact, char *trans, integer *n, integer *
4107  nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
4108  char *equed, real *r__, real *c__, real *b, integer *ldb, real *x,
4109  integer *ldx, real *rcond, real *ferr, real *berr, real *work,
4110  integer *iwork, integer *info);
4111 
4112 /* Subroutine */ int sgesvxx_(char *fact, char *trans, integer *n, integer *
4113  nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
4114  char *equed, real *r__, real *c__, real *b, integer *ldb, real *x,
4115  integer *ldx, real *rcond, real *rpvgrw, real *berr, integer *
4116  n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__, integer *
4117  nparams, real *params, real *work, integer *iwork, integer *info);
4118 
4119 /* Subroutine */ int sgetc2_(integer *n, real *a, integer *lda, integer *ipiv,
4120  integer *jpiv, integer *info);
4121 
4122 /* Subroutine */ int sgetf2_(integer *m, integer *n, real *a, integer *lda,
4123  integer *ipiv, integer *info);
4124 
4125 /* Subroutine */ int sgetrf_(integer *m, integer *n, real *a, integer *lda,
4126  integer *ipiv, integer *info);
4127 
4128 /* Subroutine */ int sgetri_(integer *n, real *a, integer *lda, integer *ipiv,
4129  real *work, integer *lwork, integer *info);
4130 
4131 /* Subroutine */ int sgetrs_(char *trans, integer *n, integer *nrhs, real *a,
4132  integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
4133 
4134 /* Subroutine */ int sggbak_(char *job, char *side, integer *n, integer *ilo,
4135  integer *ihi, real *lscale, real *rscale, integer *m, real *v,
4136  integer *ldv, integer *info);
4137 
4138 /* Subroutine */ int sggbal_(char *job, integer *n, real *a, integer *lda,
4139  real *b, integer *ldb, integer *ilo, integer *ihi, real *lscale, real
4140  *rscale, real *work, integer *info);
4141 
4142 /* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
4143  selctg, integer *n, real *a, integer *lda, real *b, integer *ldb,
4144  integer *sdim, real *alphar, real *alphai, real *beta, real *vsl,
4145  integer *ldvsl, real *vsr, integer *ldvsr, real *work, integer *lwork,
4146  logical *bwork, integer *info);
4147 
4148 /* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
4149  selctg, char *sense, integer *n, real *a, integer *lda, real *b,
4150  integer *ldb, integer *sdim, real *alphar, real *alphai, real *beta,
4151  real *vsl, integer *ldvsl, real *vsr, integer *ldvsr, real *rconde,
4152  real *rcondv, real *work, integer *lwork, integer *iwork, integer *
4153  liwork, logical *bwork, integer *info);
4154 
4155 /* Subroutine */ int sggev_(char *jobvl, char *jobvr, integer *n, real *a,
4156  integer *lda, real *b, integer *ldb, real *alphar, real *alphai, real
4157  *beta, real *vl, integer *ldvl, real *vr, integer *ldvr, real *work,
4158  integer *lwork, integer *info);
4159 
4160 /* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char *
4161  sense, integer *n, real *a, integer *lda, real *b, integer *ldb, real
4162  *alphar, real *alphai, real *beta, real *vl, integer *ldvl, real *vr,
4163  integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *rscale,
4164  real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work,
4165  integer *lwork, integer *iwork, logical *bwork, integer *info);
4166 
4167 /* Subroutine */ int sggglm_(integer *n, integer *m, integer *p, real *a,
4168  integer *lda, real *b, integer *ldb, real *d__, real *x, real *y,
4169  real *work, integer *lwork, integer *info);
4170 
4171 /* Subroutine */ int sgghrd_(char *compq, char *compz, integer *n, integer *
4172  ilo, integer *ihi, real *a, integer *lda, real *b, integer *ldb, real
4173  *q, integer *ldq, real *z__, integer *ldz, integer *info);
4174 
4175 /* Subroutine */ int sgglse_(integer *m, integer *n, integer *p, real *a,
4176  integer *lda, real *b, integer *ldb, real *c__, real *d__, real *x,
4177  real *work, integer *lwork, integer *info);
4178 
4179 /* Subroutine */ int sggqrf_(integer *n, integer *m, integer *p, real *a,
4180  integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
4181  work, integer *lwork, integer *info);
4182 
4183 /* Subroutine */ int sggrqf_(integer *m, integer *p, integer *n, real *a,
4184  integer *lda, real *taua, real *b, integer *ldb, real *taub, real *
4185  work, integer *lwork, integer *info);
4186 
4187 /* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
4188  integer *n, integer *p, integer *k, integer *l, real *a, integer *lda,
4189  real *b, integer *ldb, real *alpha, real *beta, real *u, integer *
4190  ldu, real *v, integer *ldv, real *q, integer *ldq, real *work,
4191  integer *iwork, integer *info);
4192 
4193 /* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
4194  integer *p, integer *n, real *a, integer *lda, real *b, integer *ldb,
4195  real *tola, real *tolb, integer *k, integer *l, real *u, integer *ldu,
4196  real *v, integer *ldv, real *q, integer *ldq, integer *iwork, real *
4197  tau, real *work, integer *info);
4198 
4199 /* Subroutine */ int sgsvj0_(char *jobv, integer *m, integer *n, real *a,
4200  integer *lda, real *d__, real *sva, integer *mv, real *v, integer *
4201  ldv, real *eps, real *sfmin, real *tol, integer *nsweep, real *work,
4202  integer *lwork, integer *info);
4203 
4204 /* Subroutine */ int sgsvj1_(char *jobv, integer *m, integer *n, integer *n1,
4205  real *a, integer *lda, real *d__, real *sva, integer *mv, real *v,
4206  integer *ldv, real *eps, real *sfmin, real *tol, integer *nsweep,
4207  real *work, integer *lwork, integer *info);
4208 
4209 /* Subroutine */ int sgtcon_(char *norm, integer *n, real *dl, real *d__,
4210  real *du, real *du2, integer *ipiv, real *anorm, real *rcond, real *
4211  work, integer *iwork, integer *info);
4212 
4213 /* Subroutine */ int sgtrfs_(char *trans, integer *n, integer *nrhs, real *dl,
4214  real *d__, real *du, real *dlf, real *df, real *duf, real *du2,
4215  integer *ipiv, real *b, integer *ldb, real *x, integer *ldx, real *
4216  ferr, real *berr, real *work, integer *iwork, integer *info);
4217 
4218 /* Subroutine */ int sgtsv_(integer *n, integer *nrhs, real *dl, real *d__,
4219  real *du, real *b, integer *ldb, integer *info);
4220 
4221 /* Subroutine */ int sgtsvx_(char *fact, char *trans, integer *n, integer *
4222  nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf,
4223  real *du2, integer *ipiv, real *b, integer *ldb, real *x, integer *
4224  ldx, real *rcond, real *ferr, real *berr, real *work, integer *iwork,
4225  integer *info);
4226 
4227 /* Subroutine */ int sgttrf_(integer *n, real *dl, real *d__, real *du, real *
4228  du2, integer *ipiv, integer *info);
4229 
4230 /* Subroutine */ int sgttrs_(char *trans, integer *n, integer *nrhs, real *dl,
4231  real *d__, real *du, real *du2, integer *ipiv, real *b, integer *ldb,
4232  integer *info);
4233 
4234 /* Subroutine */ int sgtts2_(integer *itrans, integer *n, integer *nrhs, real
4235  *dl, real *d__, real *du, real *du2, integer *ipiv, real *b, integer *
4236  ldb);
4237 
4238 /* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, integer *n,
4239  integer *ilo, integer *ihi, real *h__, integer *ldh, real *t, integer
4240  *ldt, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
4241  real *z__, integer *ldz, real *work, integer *lwork, integer *info);
4242 
4243 /* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical *
4244  select, integer *n, real *h__, integer *ldh, real *wr, real *wi, real
4245  *vl, integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m,
4246  real *work, integer *ifaill, integer *ifailr, integer *info);
4247 
4248 /* Subroutine */ int shseqr_(char *job, char *compz, integer *n, integer *ilo,
4249  integer *ihi, real *h__, integer *ldh, real *wr, real *wi, real *z__,
4250  integer *ldz, real *work, integer *lwork, integer *info);
4251 
4252 logical sisnan_(real *sin__);
4253 
4254 /* Subroutine */ int sla_gbamv__(integer *trans, integer *m, integer *n,
4255  integer *kl, integer *ku, real *alpha, real *ab, integer *ldab, real *
4256  x, integer *incx, real *beta, real *y, integer *incy);
4257 
4258 doublereal sla_gbrcond__(char *trans, integer *n, integer *kl, integer *ku,
4259  real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv,
4260  integer *cmode, real *c__, integer *info, real *work, integer *iwork,
4261  ftnlen trans_len);
4262 
4263 /* Subroutine */ int sla_gbrfsx_extended__(integer *prec_type__, integer *
4264  trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
4265  real *ab, integer *ldab, real *afb, integer *ldafb, integer *ipiv,
4266  logical *colequ, real *c__, real *b, integer *ldb, real *y, integer *
4267  ldy, real *berr_out__, integer *n_norms__, real *errs_n__, real *
4268  errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real *rcond,
4269  integer *ithresh, real *rthresh, real *dz_ub__, logical *
4270  ignore_cwise__, integer *info);
4271 
4272 doublereal sla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
4273  ncols, real *ab, integer *ldab, real *afb, integer *ldafb);
4274 
4275 /* Subroutine */ int sla_geamv__(integer *trans, integer *m, integer *n, real
4276  *alpha, real *a, integer *lda, real *x, integer *incx, real *beta,
4277  real *y, integer *incy);
4278 
4279 doublereal sla_gercond__(char *trans, integer *n, real *a, integer *lda, real
4280  *af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer
4281  *info, real *work, integer *iwork, ftnlen trans_len);
4282 
4283 /* Subroutine */ int sla_gerfsx_extended__(integer *prec_type__, integer *
4284  trans_type__, integer *n, integer *nrhs, real *a, integer *lda, real *
4285  af, integer *ldaf, integer *ipiv, logical *colequ, real *c__, real *b,
4286  integer *ldb, real *y, integer *ldy, real *berr_out__, integer *
4287  n_norms__, real *errs_n__, real *errs_c__, real *res, real *ayb, real
4288  *dy, real *y_tail__, real *rcond, integer *ithresh, real *rthresh,
4289  real *dz_ub__, logical *ignore_cwise__, integer *info);
4290 
4291 /* Subroutine */ int sla_lin_berr__(integer *n, integer *nz, integer *nrhs,
4292  real *res, real *ayb, real *berr);
4293 
4294 doublereal sla_porcond__(char *uplo, integer *n, real *a, integer *lda, real *
4295  af, integer *ldaf, integer *cmode, real *c__, integer *info, real *
4296  work, integer *iwork, ftnlen uplo_len);
4297 
4298 /* Subroutine */ int sla_porfsx_extended__(integer *prec_type__, char *uplo,
4299  integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *
4300  ldaf, logical *colequ, real *c__, real *b, integer *ldb, real *y,
4301  integer *ldy, real *berr_out__, integer *n_norms__, real *errs_n__,
4302  real *errs_c__, real *res, real *ayb, real *dy, real *y_tail__, real *
4303  rcond, integer *ithresh, real *rthresh, real *dz_ub__, logical *
4304  ignore_cwise__, integer *info, ftnlen uplo_len);
4305 
4306 doublereal sla_porpvgrw__(char *uplo, integer *ncols, real *a, integer *lda,
4307  real *af, integer *ldaf, real *work, ftnlen uplo_len);
4308 
4309 doublereal sla_rpvgrw__(integer *n, integer *ncols, real *a, integer *lda,
4310  real *af, integer *ldaf);
4311 
4312 /* Subroutine */ int sla_syamv__(integer *uplo, integer *n, real *alpha, real
4313  *a, integer *lda, real *x, integer *incx, real *beta, real *y,
4314  integer *incy);
4315 
4316 doublereal sla_syrcond__(char *uplo, integer *n, real *a, integer *lda, real *
4317  af, integer *ldaf, integer *ipiv, integer *cmode, real *c__, integer *
4318  info, real *work, integer *iwork, ftnlen uplo_len);
4319 
4320 /* Subroutine */ int sla_syrfsx_extended__(integer *prec_type__, char *uplo,
4321  integer *n, integer *nrhs, real *a, integer *lda, real *af, integer *
4322  ldaf, integer *ipiv, logical *colequ, real *c__, real *b, integer *
4323  ldb, real *y, integer *ldy, real *berr_out__, integer *n_norms__,
4324  real *errs_n__, real *errs_c__, real *res, real *ayb, real *dy, real *
4325  y_tail__, real *rcond, integer *ithresh, real *rthresh, real *dz_ub__,
4326  logical *ignore_cwise__, integer *info, ftnlen uplo_len);
4327 
4328 doublereal sla_syrpvgrw__(char *uplo, integer *n, integer *info, real *a,
4329  integer *lda, real *af, integer *ldaf, integer *ipiv, real *work,
4330  ftnlen uplo_len);
4331 
4332 /* Subroutine */ int sla_wwaddw__(integer *n, real *x, real *y, real *w);
4333 
4334 /* Subroutine */ int slabad_(real *small, real *large);
4335 
4336 /* Subroutine */ int slabrd_(integer *m, integer *n, integer *nb, real *a,
4337  integer *lda, real *d__, real *e, real *tauq, real *taup, real *x,
4338  integer *ldx, real *y, integer *ldy);
4339 
4340 /* Subroutine */ int slacn2_(integer *n, real *v, real *x, integer *isgn,
4341  real *est, integer *kase, integer *isave);
4342 
4343 /* Subroutine */ int slacon_(integer *n, real *v, real *x, integer *isgn,
4344  real *est, integer *kase);
4345 
4346 /* Subroutine */ int slacpy_(char *uplo, integer *m, integer *n, real *a,
4347  integer *lda, real *b, integer *ldb);
4348 
4349 /* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p,
4350  real *q);
4351 
4352 /* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
4353 
4354 /* Subroutine */ int slaebz_(integer *ijob, integer *nitmax, integer *n,
4355  integer *mmax, integer *minp, integer *nbmin, real *abstol, real *
4356  reltol, real *pivmin, real *d__, real *e, real *e2, integer *nval,
4357  real *ab, real *c__, integer *mout, integer *nab, real *work, integer
4358  *iwork, integer *info);
4359 
4360 /* Subroutine */ int slaed0_(integer *icompq, integer *qsiz, integer *n, real
4361  *d__, real *e, real *q, integer *ldq, real *qstore, integer *ldqs,
4362  real *work, integer *iwork, integer *info);
4363 
4364 /* Subroutine */ int slaed1_(integer *n, real *d__, real *q, integer *ldq,
4365  integer *indxq, real *rho, integer *cutpnt, real *work, integer *
4366  iwork, integer *info);
4367 
4368 /* Subroutine */ int slaed2_(integer *k, integer *n, integer *n1, real *d__,
4369  real *q, integer *ldq, integer *indxq, real *rho, real *z__, real *
4370  dlamda, real *w, real *q2, integer *indx, integer *indxc, integer *
4371  indxp, integer *coltyp, integer *info);
4372 
4373 /* Subroutine */ int slaed3_(integer *k, integer *n, integer *n1, real *d__,
4374  real *q, integer *ldq, real *rho, real *dlamda, real *q2, integer *
4375  indx, integer *ctot, real *w, real *s, integer *info);
4376 
4377 /* Subroutine */ int slaed4_(integer *n, integer *i__, real *d__, real *z__,
4378  real *delta, real *rho, real *dlam, integer *info);
4379 
4380 /* Subroutine */ int slaed5_(integer *i__, real *d__, real *z__, real *delta,
4381  real *rho, real *dlam);
4382 
4383 /* Subroutine */ int slaed6_(integer *kniter, logical *orgati, real *rho,
4384  real *d__, real *z__, real *finit, real *tau, integer *info);
4385 
4386 /* Subroutine */ int slaed7_(integer *icompq, integer *n, integer *qsiz,
4387  integer *tlvls, integer *curlvl, integer *curpbm, real *d__, real *q,
4388  integer *ldq, integer *indxq, real *rho, integer *cutpnt, real *
4389  qstore, integer *qptr, integer *prmptr, integer *perm, integer *
4390  givptr, integer *givcol, real *givnum, real *work, integer *iwork,
4391  integer *info);
4392 
4393 /* Subroutine */ int slaed8_(integer *icompq, integer *k, integer *n, integer
4394  *qsiz, real *d__, real *q, integer *ldq, integer *indxq, real *rho,
4395  integer *cutpnt, real *z__, real *dlamda, real *q2, integer *ldq2,
4396  real *w, integer *perm, integer *givptr, integer *givcol, real *
4397  givnum, integer *indxp, integer *indx, integer *info);
4398 
4399 /* Subroutine */ int slaed9_(integer *k, integer *kstart, integer *kstop,
4400  integer *n, real *d__, real *q, integer *ldq, real *rho, real *dlamda,
4401  real *w, real *s, integer *lds, integer *info);
4402 
4403 /* Subroutine */ int slaeda_(integer *n, integer *tlvls, integer *curlvl,
4404  integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
4405  integer *givcol, real *givnum, real *q, integer *qptr, real *z__,
4406  real *ztemp, integer *info);
4407 
4408 /* Subroutine */ int slaein_(logical *rightv, logical *noinit, integer *n,
4409  real *h__, integer *ldh, real *wr, real *wi, real *vr, real *vi, real
4410  *b, integer *ldb, real *work, real *eps3, real *smlnum, real *bignum,
4411  integer *info);
4412 
4413 /* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real *
4414  rt2, real *cs1, real *sn1);
4415 
4416 /* Subroutine */ int slaexc_(logical *wantq, integer *n, real *t, integer *
4417  ldt, real *q, integer *ldq, integer *j1, integer *n1, integer *n2,
4418  real *work, integer *info);
4419 
4420 /* Subroutine */ int slag2_(real *a, integer *lda, real *b, integer *ldb,
4421  real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *
4422  wi);
4423 
4424 /* Subroutine */ int slag2d_(integer *m, integer *n, real *sa, integer *ldsa,
4425  doublereal *a, integer *lda, integer *info);
4426 
4427 /* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3,
4428  real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *
4429  snv, real *csq, real *snq);
4430 
4431 /* Subroutine */ int slagtf_(integer *n, real *a, real *lambda, real *b, real
4432  *c__, real *tol, real *d__, integer *in, integer *info);
4433 
4434 /* Subroutine */ int slagtm_(char *trans, integer *n, integer *nrhs, real *
4435  alpha, real *dl, real *d__, real *du, real *x, integer *ldx, real *
4436  beta, real *b, integer *ldb);
4437 
4438 /* Subroutine */ int slagts_(integer *job, integer *n, real *a, real *b, real
4439  *c__, real *d__, integer *in, real *y, real *tol, integer *info);
4440 
4441 /* Subroutine */ int slagv2_(real *a, integer *lda, real *b, integer *ldb,
4442  real *alphar, real *alphai, real *beta, real *csl, real *snl, real *
4443  csr, real *snr);
4444 
4445 /* Subroutine */ int slahqr_(logical *wantt, logical *wantz, integer *n,
4446  integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
4447  wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *
4448  info);
4449 
4450 /* Subroutine */ int slahr2_(integer *n, integer *k, integer *nb, real *a,
4451  integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
4452 
4453 /* Subroutine */ int slahrd_(integer *n, integer *k, integer *nb, real *a,
4454  integer *lda, real *tau, real *t, integer *ldt, real *y, integer *ldy);
4455 
4456 /* Subroutine */ int slaic1_(integer *job, integer *j, real *x, real *sest,
4457  real *w, real *gamma, real *sestpr, real *s, real *c__);
4458 
4459 logical slaisnan_(real *sin1, real *sin2);
4460 
4461 /* Subroutine */ int slaln2_(logical *ltrans, integer *na, integer *nw, real *
4462  smin, real *ca, real *a, integer *lda, real *d1, real *d2, real *b,
4463  integer *ldb, real *wr, real *wi, real *x, integer *ldx, real *scale,
4464  real *xnorm, integer *info);
4465 
4466 /* Subroutine */ int slals0_(integer *icompq, integer *nl, integer *nr,
4467  integer *sqre, integer *nrhs, real *b, integer *ldb, real *bx,
4468  integer *ldbx, integer *perm, integer *givptr, integer *givcol,
4469  integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
4470  difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
4471  work, integer *info);
4472 
4473 /* Subroutine */ int slalsa_(integer *icompq, integer *smlsiz, integer *n,
4474  integer *nrhs, real *b, integer *ldb, real *bx, integer *ldbx, real *
4475  u, integer *ldu, real *vt, integer *k, real *difl, real *difr, real *
4476  z__, real *poles, integer *givptr, integer *givcol, integer *ldgcol,
4477  integer *perm, real *givnum, real *c__, real *s, real *work, integer *
4478  iwork, integer *info);
4479 
4480 /* Subroutine */ int slalsd_(char *uplo, integer *smlsiz, integer *n, integer
4481  *nrhs, real *d__, real *e, real *b, integer *ldb, real *rcond,
4482  integer *rank, real *work, integer *iwork, integer *info);
4483 
4484 /* Subroutine */ int slamrg_(integer *n1, integer *n2, real *a, integer *
4485  strd1, integer *strd2, integer *index);
4486 
4487 integer slaneg_(integer *n, real *d__, real *lld, real *sigma, real *pivmin,
4488  integer *r__);
4489 
4490 doublereal slangb_(char *norm, integer *n, integer *kl, integer *ku, real *ab,
4491  integer *ldab, real *work);
4492 
4493 doublereal slange_(char *norm, integer *m, integer *n, real *a, integer *lda,
4494  real *work);
4495 
4496 doublereal slangt_(char *norm, integer *n, real *dl, real *d__, real *du);
4497 
4498 doublereal slanhs_(char *norm, integer *n, real *a, integer *lda, real *work);
4499 
4500 doublereal slansb_(char *norm, char *uplo, integer *n, integer *k, real *ab,
4501  integer *ldab, real *work);
4502 
4503 doublereal slansf_(char *norm, char *transr, char *uplo, integer *n, real *a,
4504  real *work);
4505 
4506 doublereal slansp_(char *norm, char *uplo, integer *n, real *ap, real *work);
4507 
4508 doublereal slanst_(char *norm, integer *n, real *d__, real *e);
4509 
4510 doublereal slansy_(char *norm, char *uplo, integer *n, real *a, integer *lda,
4511  real *work);
4512 
4513 doublereal slantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
4514  real *ab, integer *ldab, real *work);
4515 
4516 doublereal slantp_(char *norm, char *uplo, char *diag, integer *n, real *ap,
4517  real *work);
4518 
4519 doublereal slantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
4520  real *a, integer *lda, real *work);
4521 
4522 /* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real *
4523  rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
4524 
4525 /* Subroutine */ int slapll_(integer *n, real *x, integer *incx, real *y,
4526  integer *incy, real *ssmin);
4527 
4528 /* Subroutine */ int slapmt_(logical *forwrd, integer *m, integer *n, real *x,
4529  integer *ldx, integer *k);
4530 
4531 doublereal slapy2_(real *x, real *y);
4532 
4533 doublereal slapy3_(real *x, real *y, real *z__);
4534 
4535 /* Subroutine */ int slaqgb_(integer *m, integer *n, integer *kl, integer *ku,
4536  real *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real *
4537  colcnd, real *amax, char *equed);
4538 
4539 /* Subroutine */ int slaqge_(integer *m, integer *n, real *a, integer *lda,
4540  real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
4541  equed);
4542 
4543 /* Subroutine */ int slaqp2_(integer *m, integer *n, integer *offset, real *a,
4544  integer *lda, integer *jpvt, real *tau, real *vn1, real *vn2, real *
4545  work);
4546 
4547 /* Subroutine */ int slaqps_(integer *m, integer *n, integer *offset, integer
4548  *nb, integer *kb, real *a, integer *lda, integer *jpvt, real *tau,
4549  real *vn1, real *vn2, real *auxv, real *f, integer *ldf);
4550 
4551 /* Subroutine */ int slaqr0_(logical *wantt, logical *wantz, integer *n,
4552  integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
4553  wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work,
4554  integer *lwork, integer *info);
4555 
4556 /* Subroutine */ int slaqr1_(integer *n, real *h__, integer *ldh, real *sr1,
4557  real *si1, real *sr2, real *si2, real *v);
4558 
4559 /* Subroutine */ int slaqr2_(logical *wantt, logical *wantz, integer *n,
4560  integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh,
4561  integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns,
4562  integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh,
4563  real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real *
4564  work, integer *lwork);
4565 
4566 /* Subroutine */ int slaqr3_(logical *wantt, logical *wantz, integer *n,
4567  integer *ktop, integer *kbot, integer *nw, real *h__, integer *ldh,
4568  integer *iloz, integer *ihiz, real *z__, integer *ldz, integer *ns,
4569  integer *nd, real *sr, real *si, real *v, integer *ldv, integer *nh,
4570  real *t, integer *ldt, integer *nv, real *wv, integer *ldwv, real *
4571  work, integer *lwork);
4572 
4573 /* Subroutine */ int slaqr4_(logical *wantt, logical *wantz, integer *n,
4574  integer *ilo, integer *ihi, real *h__, integer *ldh, real *wr, real *
4575  wi, integer *iloz, integer *ihiz, real *z__, integer *ldz, real *work,
4576  integer *lwork, integer *info);
4577 
4578 /* Subroutine */ int slaqr5_(logical *wantt, logical *wantz, integer *kacc22,
4579  integer *n, integer *ktop, integer *kbot, integer *nshfts, real *sr,
4580  real *si, real *h__, integer *ldh, integer *iloz, integer *ihiz, real
4581  *z__, integer *ldz, real *v, integer *ldv, real *u, integer *ldu,
4582  integer *nv, real *wv, integer *ldwv, integer *nh, real *wh, integer *
4583  ldwh);
4584 
4585 /* Subroutine */ int slaqsb_(char *uplo, integer *n, integer *kd, real *ab,
4586  integer *ldab, real *s, real *scond, real *amax, char *equed);
4587 
4588 /* Subroutine */ int slaqsp_(char *uplo, integer *n, real *ap, real *s, real *
4589  scond, real *amax, char *equed);
4590 
4591 /* Subroutine */ int slaqsy_(char *uplo, integer *n, real *a, integer *lda,
4592  real *s, real *scond, real *amax, char *equed);
4593 
4594 /* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, integer *n, real
4595  *t, integer *ldt, real *b, real *w, real *scale, real *x, real *work,
4596  integer *info);
4597 
4598 /* Subroutine */ int slar1v_(integer *n, integer *b1, integer *bn, real *
4599  lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
4600  gaptol, real *z__, logical *wantnc, integer *negcnt, real *ztz, real *
4601  mingma, integer *r__, integer *isuppz, real *nrminv, real *resid,
4602  real *rqcorr, real *work);
4603 
4604 /* Subroutine */ int slar2v_(integer *n, real *x, real *y, real *z__, integer
4605  *incx, real *c__, real *s, integer *incc);
4606 
4607 /* Subroutine */ int slarf_(char *side, integer *m, integer *n, real *v,
4608  integer *incv, real *tau, real *c__, integer *ldc, real *work);
4609 
4610 /* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char *
4611  storev, integer *m, integer *n, integer *k, real *v, integer *ldv,
4612  real *t, integer *ldt, real *c__, integer *ldc, real *work, integer *
4613  ldwork);
4614 
4615 /* Subroutine */ int slarfg_(integer *n, real *alpha, real *x, integer *incx,
4616  real *tau);
4617 
4618 /* Subroutine */ int slarfp_(integer *n, real *alpha, real *x, integer *incx,
4619  real *tau);
4620 
4621 /* Subroutine */ int slarft_(char *direct, char *storev, integer *n, integer *
4622  k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
4623 
4624 /* Subroutine */ int slarfx_(char *side, integer *m, integer *n, real *v,
4625  real *tau, real *c__, integer *ldc, real *work);
4626 
4627 /* Subroutine */ int slargv_(integer *n, real *x, integer *incx, real *y,
4628  integer *incy, real *c__, integer *incc);
4629 
4630 /* Subroutine */ int slarnv_(integer *idist, integer *iseed, integer *n, real
4631  *x);
4632 
4633 /* Subroutine */ int slarra_(integer *n, real *d__, real *e, real *e2, real *
4634  spltol, real *tnrm, integer *nsplit, integer *isplit, integer *info);
4635 
4636 /* Subroutine */ int slarrb_(integer *n, real *d__, real *lld, integer *
4637  ifirst, integer *ilast, real *rtol1, real *rtol2, integer *offset,
4638  real *w, real *wgap, real *werr, real *work, integer *iwork, real *
4639  pivmin, real *spdiam, integer *twist, integer *info);
4640 
4641 /* Subroutine */ int slarrc_(char *jobt, integer *n, real *vl, real *vu, real
4642  *d__, real *e, real *pivmin, integer *eigcnt, integer *lcnt, integer *
4643  rcnt, integer *info);
4644 
4645 /* Subroutine */ int slarrd_(char *range, char *order, integer *n, real *vl,
4646  real *vu, integer *il, integer *iu, real *gers, real *reltol, real *
4647  d__, real *e, real *e2, real *pivmin, integer *nsplit, integer *
4648  isplit, integer *m, real *w, real *werr, real *wl, real *wu, integer *
4649  iblock, integer *indexw, real *work, integer *iwork, integer *info);
4650 
4651 /* Subroutine */ int slarre_(char *range, integer *n, real *vl, real *vu,
4652  integer *il, integer *iu, real *d__, real *e, real *e2, real *rtol1,
4653  real *rtol2, real *spltol, integer *nsplit, integer *isplit, integer *
4654  m, real *w, real *werr, real *wgap, integer *iblock, integer *indexw,
4655  real *gers, real *pivmin, real *work, integer *iwork, integer *info);
4656 
4657 /* Subroutine */ int slarrf_(integer *n, real *d__, real *l, real *ld,
4658  integer *clstrt, integer *clend, real *w, real *wgap, real *werr,
4659  real *spdiam, real *clgapl, real *clgapr, real *pivmin, real *sigma,
4660  real *dplus, real *lplus, real *work, integer *info);
4661 
4662 /* Subroutine */ int slarrj_(integer *n, real *d__, real *e2, integer *ifirst,
4663  integer *ilast, real *rtol, integer *offset, real *w, real *werr,
4664  real *work, integer *iwork, real *pivmin, real *spdiam, integer *info);
4665 
4666 /* Subroutine */ int slarrk_(integer *n, integer *iw, real *gl, real *gu,
4667  real *d__, real *e2, real *pivmin, real *reltol, real *w, real *werr,
4668  integer *info);
4669 
4670 /* Subroutine */ int slarrr_(integer *n, real *d__, real *e, integer *info);
4671 
4672 /* Subroutine */ int slarrv_(integer *n, real *vl, real *vu, real *d__, real *
4673  l, real *pivmin, integer *isplit, integer *m, integer *dol, integer *
4674  dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr,
4675  real *wgap, integer *iblock, integer *indexw, real *gers, real *z__,
4676  integer *ldz, integer *isuppz, real *work, integer *iwork, integer *
4677  info);
4678 
4679 /* Subroutine */ int slarscl2_(integer *m, integer *n, real *d__, real *x,
4680  integer *ldx);
4681 
4682 /* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
4683 
4684 /* Subroutine */ int slartv_(integer *n, real *x, integer *incx, real *y,
4685  integer *incy, real *c__, real *s, integer *incc);
4686 
4687 /* Subroutine */ int slaruv_(integer *iseed, integer *n, real *x);
4688 
4689 /* Subroutine */ int slarz_(char *side, integer *m, integer *n, integer *l,
4690  real *v, integer *incv, real *tau, real *c__, integer *ldc, real *
4691  work);
4692 
4693 /* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char *
4694  storev, integer *m, integer *n, integer *k, integer *l, real *v,
4695  integer *ldv, real *t, integer *ldt, real *c__, integer *ldc, real *
4696  work, integer *ldwork);
4697 
4698 /* Subroutine */ int slarzt_(char *direct, char *storev, integer *n, integer *
4699  k, real *v, integer *ldv, real *tau, real *t, integer *ldt);
4700 
4701 /* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real *
4702  ssmax);
4703 
4704 /* Subroutine */ int slascl_(char *type__, integer *kl, integer *ku, real *
4705  cfrom, real *cto, integer *m, integer *n, real *a, integer *lda,
4706  integer *info);
4707 
4708 /* Subroutine */ int slascl2_(integer *m, integer *n, real *d__, real *x,
4709  integer *ldx);
4710 
4711 /* Subroutine */ int slasd0_(integer *n, integer *sqre, real *d__, real *e,
4712  real *u, integer *ldu, real *vt, integer *ldvt, integer *smlsiz,
4713  integer *iwork, real *work, integer *info);
4714 
4715 /* Subroutine */ int slasd1_(integer *nl, integer *nr, integer *sqre, real *
4716  d__, real *alpha, real *beta, real *u, integer *ldu, real *vt,
4717  integer *ldvt, integer *idxq, integer *iwork, real *work, integer *
4718  info);
4719 
4720 /* Subroutine */ int slasd2_(integer *nl, integer *nr, integer *sqre, integer
4721  *k, real *d__, real *z__, real *alpha, real *beta, real *u, integer *
4722  ldu, real *vt, integer *ldvt, real *dsigma, real *u2, integer *ldu2,
4723  real *vt2, integer *ldvt2, integer *idxp, integer *idx, integer *idxc,
4724  integer *idxq, integer *coltyp, integer *info);
4725 
4726 /* Subroutine */ int slasd3_(integer *nl, integer *nr, integer *sqre, integer
4727  *k, real *d__, real *q, integer *ldq, real *dsigma, real *u, integer *
4728  ldu, real *u2, integer *ldu2, real *vt, integer *ldvt, real *vt2,
4729  integer *ldvt2, integer *idxc, integer *ctot, real *z__, integer *
4730  info);
4731 
4732 /* Subroutine */ int slasd4_(integer *n, integer *i__, real *d__, real *z__,
4733  real *delta, real *rho, real *sigma, real *work, integer *info);
4734 
4735 /* Subroutine */ int slasd5_(integer *i__, real *d__, real *z__, real *delta,
4736  real *rho, real *dsigma, real *work);
4737 
4738 /* Subroutine */ int slasd6_(integer *icompq, integer *nl, integer *nr,
4739  integer *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta,
4740  integer *idxq, integer *perm, integer *givptr, integer *givcol,
4741  integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
4742  difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
4743  work, integer *iwork, integer *info);
4744 
4745 /* Subroutine */ int slasd7_(integer *icompq, integer *nl, integer *nr,
4746  integer *sqre, integer *k, real *d__, real *z__, real *zw, real *vf,
4747  real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma,
4748  integer *idx, integer *idxp, integer *idxq, integer *perm, integer *
4749  givptr, integer *givcol, integer *ldgcol, real *givnum, integer *
4750  ldgnum, real *c__, real *s, integer *info);
4751 
4752 /* Subroutine */ int slasd8_(integer *icompq, integer *k, real *d__, real *
4753  z__, real *vf, real *vl, real *difl, real *difr, integer *lddifr,
4754  real *dsigma, real *work, integer *info);
4755 
4756 /* Subroutine */ int slasda_(integer *icompq, integer *smlsiz, integer *n,
4757  integer *sqre, real *d__, real *e, real *u, integer *ldu, real *vt,
4758  integer *k, real *difl, real *difr, real *z__, real *poles, integer *
4759  givptr, integer *givcol, integer *ldgcol, integer *perm, real *givnum,
4760  real *c__, real *s, real *work, integer *iwork, integer *info);
4761 
4762 /* Subroutine */ int slasdq_(char *uplo, integer *sqre, integer *n, integer *
4763  ncvt, integer *nru, integer *ncc, real *d__, real *e, real *vt,
4764  integer *ldvt, real *u, integer *ldu, real *c__, integer *ldc, real *
4765  work, integer *info);
4766 
4767 /* Subroutine */ int slasdt_(integer *n, integer *lvl, integer *nd, integer *
4768  inode, integer *ndiml, integer *ndimr, integer *msub);
4769 
4770 /* Subroutine */ int slaset_(char *uplo, integer *m, integer *n, real *alpha,
4771  real *beta, real *a, integer *lda);
4772 
4773 /* Subroutine */ int slasq1_(integer *n, real *d__, real *e, real *work,
4774  integer *info);
4775 
4776 /* Subroutine */ int slasq2_(integer *n, real *z__, integer *info);
4777 
4778 /* Subroutine */ int slasq3_(integer *i0, integer *n0, real *z__, integer *pp,
4779  real *dmin__, real *sigma, real *desig, real *qmax, integer *nfail,
4780  integer *iter, integer *ndiv, logical *ieee, integer *ttype, real *
4781  dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *g, real *
4782  tau);
4783 
4784 /* Subroutine */ int slasq4_(integer *i0, integer *n0, real *z__, integer *pp,
4785  integer *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn,
4786  real *dn1, real *dn2, real *tau, integer *ttype, real *g);
4787 
4788 /* Subroutine */ int slasq5_(integer *i0, integer *n0, real *z__, integer *pp,
4789  real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *
4790  dnm1, real *dnm2, logical *ieee);
4791 
4792 /* Subroutine */ int slasq6_(integer *i0, integer *n0, real *z__, integer *pp,
4793  real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *
4794  dnm2);
4795 
4796 /* Subroutine */ int slasr_(char *side, char *pivot, char *direct, integer *m,
4797  integer *n, real *c__, real *s, real *a, integer *lda);
4798 
4799 /* Subroutine */ int slasrt_(char *id, integer *n, real *d__, integer *info);
4800 
4801 /* Subroutine */ int slassq_(integer *n, real *x, integer *incx, real *scale,
4802  real *sumsq);
4803 
4804 /* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
4805  ssmax, real *snr, real *csr, real *snl, real *csl);
4806 
4807 /* Subroutine */ int slaswp_(integer *n, real *a, integer *lda, integer *k1,
4808  integer *k2, integer *ipiv, integer *incx);
4809 
4810 /* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, integer *isgn,
4811  integer *n1, integer *n2, real *tl, integer *ldtl, real *tr, integer *
4812  ldtr, real *b, integer *ldb, real *scale, real *x, integer *ldx, real
4813  *xnorm, integer *info);
4814 
4815 /* Subroutine */ int slasyf_(char *uplo, integer *n, integer *nb, integer *kb,
4816  real *a, integer *lda, integer *ipiv, real *w, integer *ldw, integer
4817  *info);
4818 
4819 /* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char *
4820  normin, integer *n, integer *kd, real *ab, integer *ldab, real *x,
4821  real *scale, real *cnorm, integer *info);
4822 
4823 /* Subroutine */ int slatdf_(integer *ijob, integer *n, real *z__, integer *
4824  ldz, real *rhs, real *rdsum, real *rdscal, integer *ipiv, integer *
4825  jpiv);
4826 
4827 /* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char *
4828  normin, integer *n, real *ap, real *x, real *scale, real *cnorm,
4829  integer *info);
4830 
4831 /* Subroutine */ int slatrd_(char *uplo, integer *n, integer *nb, real *a,
4832  integer *lda, real *e, real *tau, real *w, integer *ldw);
4833 
4834 /* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char *
4835  normin, integer *n, real *a, integer *lda, real *x, real *scale, real
4836  *cnorm, integer *info);
4837 
4838 /* Subroutine */ int slatrz_(integer *m, integer *n, integer *l, real *a,
4839  integer *lda, real *tau, real *work);
4840 
4841 /* Subroutine */ int slatzm_(char *side, integer *m, integer *n, real *v,
4842  integer *incv, real *tau, real *c1, real *c2, integer *ldc, real *
4843  work);
4844 
4845 /* Subroutine */ int slauu2_(char *uplo, integer *n, real *a, integer *lda,
4846  integer *info);
4847 
4848 /* Subroutine */ int slauum_(char *uplo, integer *n, real *a, integer *lda,
4849  integer *info);
4850 
4851 /* Subroutine */ int sopgtr_(char *uplo, integer *n, real *ap, real *tau,
4852  real *q, integer *ldq, real *work, integer *info);
4853 
4854 /* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, integer *m,
4855  integer *n, real *ap, real *tau, real *c__, integer *ldc, real *work,
4856  integer *info);
4857 
4858 /* Subroutine */ int sorg2l_(integer *m, integer *n, integer *k, real *a,
4859  integer *lda, real *tau, real *work, integer *info);
4860 
4861 /* Subroutine */ int sorg2r_(integer *m, integer *n, integer *k, real *a,
4862  integer *lda, real *tau, real *work, integer *info);
4863 
4864 /* Subroutine */ int sorgbr_(char *vect, integer *m, integer *n, integer *k,
4865  real *a, integer *lda, real *tau, real *work, integer *lwork, integer
4866  *info);
4867 
4868 /* Subroutine */ int sorghr_(integer *n, integer *ilo, integer *ihi, real *a,
4869  integer *lda, real *tau, real *work, integer *lwork, integer *info);
4870 
4871 /* Subroutine */ int sorgl2_(integer *m, integer *n, integer *k, real *a,
4872  integer *lda, real *tau, real *work, integer *info);
4873 
4874 /* Subroutine */ int sorglq_(integer *m, integer *n, integer *k, real *a,
4875  integer *lda, real *tau, real *work, integer *lwork, integer *info);
4876 
4877 /* Subroutine */ int sorgql_(integer *m, integer *n, integer *k, real *a,
4878  integer *lda, real *tau, real *work, integer *lwork, integer *info);
4879 
4880 /* Subroutine */ int sorgqr_(integer *m, integer *n, integer *k, real *a,
4881  integer *lda, real *tau, real *work, integer *lwork, integer *info);
4882 
4883 /* Subroutine */ int sorgr2_(integer *m, integer *n, integer *k, real *a,
4884  integer *lda, real *tau, real *work, integer *info);
4885 
4886 /* Subroutine */ int sorgrq_(integer *m, integer *n, integer *k, real *a,
4887  integer *lda, real *tau, real *work, integer *lwork, integer *info);
4888 
4889 /* Subroutine */ int sorgtr_(char *uplo, integer *n, real *a, integer *lda,
4890  real *tau, real *work, integer *lwork, integer *info);
4891 
4892 /* Subroutine */ int sorm2l_(char *side, char *trans, integer *m, integer *n,
4893  integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4894  real *work, integer *info);
4895 
4896 /* Subroutine */ int sorm2r_(char *side, char *trans, integer *m, integer *n,
4897  integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4898  real *work, integer *info);
4899 
4900 /* Subroutine */ int sormbr_(char *vect, char *side, char *trans, integer *m,
4901  integer *n, integer *k, real *a, integer *lda, real *tau, real *c__,
4902  integer *ldc, real *work, integer *lwork, integer *info);
4903 
4904 /* Subroutine */ int sormhr_(char *side, char *trans, integer *m, integer *n,
4905  integer *ilo, integer *ihi, real *a, integer *lda, real *tau, real *
4906  c__, integer *ldc, real *work, integer *lwork, integer *info);
4907 
4908 /* Subroutine */ int sorml2_(char *side, char *trans, integer *m, integer *n,
4909  integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4910  real *work, integer *info);
4911 
4912 /* Subroutine */ int sormlq_(char *side, char *trans, integer *m, integer *n,
4913  integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4914  real *work, integer *lwork, integer *info);
4915 
4916 /* Subroutine */ int sormql_(char *side, char *trans, integer *m, integer *n,
4917  integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4918  real *work, integer *lwork, integer *info);
4919 
4920 /* Subroutine */ int sormqr_(char *side, char *trans, integer *m, integer *n,
4921  integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4922  real *work, integer *lwork, integer *info);
4923 
4924 /* Subroutine */ int sormr2_(char *side, char *trans, integer *m, integer *n,
4925  integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4926  real *work, integer *info);
4927 
4928 /* Subroutine */ int sormr3_(char *side, char *trans, integer *m, integer *n,
4929  integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
4930  integer *ldc, real *work, integer *info);
4931 
4932 /* Subroutine */ int sormrq_(char *side, char *trans, integer *m, integer *n,
4933  integer *k, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4934  real *work, integer *lwork, integer *info);
4935 
4936 /* Subroutine */ int sormrz_(char *side, char *trans, integer *m, integer *n,
4937  integer *k, integer *l, real *a, integer *lda, real *tau, real *c__,
4938  integer *ldc, real *work, integer *lwork, integer *info);
4939 
4940 /* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, integer *m,
4941  integer *n, real *a, integer *lda, real *tau, real *c__, integer *ldc,
4942  real *work, integer *lwork, integer *info);
4943 
4944 /* Subroutine */ int spbcon_(char *uplo, integer *n, integer *kd, real *ab,
4945  integer *ldab, real *anorm, real *rcond, real *work, integer *iwork,
4946  integer *info);
4947 
4948 /* Subroutine */ int spbequ_(char *uplo, integer *n, integer *kd, real *ab,
4949  integer *ldab, real *s, real *scond, real *amax, integer *info);
4950 
4951 /* Subroutine */ int spbrfs_(char *uplo, integer *n, integer *kd, integer *
4952  nrhs, real *ab, integer *ldab, real *afb, integer *ldafb, real *b,
4953  integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
4954  work, integer *iwork, integer *info);
4955 
4956 /* Subroutine */ int spbstf_(char *uplo, integer *n, integer *kd, real *ab,
4957  integer *ldab, integer *info);
4958 
4959 /* Subroutine */ int spbsv_(char *uplo, integer *n, integer *kd, integer *
4960  nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
4961 
4962 /* Subroutine */ int spbsvx_(char *fact, char *uplo, integer *n, integer *kd,
4963  integer *nrhs, real *ab, integer *ldab, real *afb, integer *ldafb,
4964  char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx,
4965  real *rcond, real *ferr, real *berr, real *work, integer *iwork,
4966  integer *info);
4967 
4968 /* Subroutine */ int spbtf2_(char *uplo, integer *n, integer *kd, real *ab,
4969  integer *ldab, integer *info);
4970 
4971 /* Subroutine */ int spbtrf_(char *uplo, integer *n, integer *kd, real *ab,
4972  integer *ldab, integer *info);
4973 
4974 /* Subroutine */ int spbtrs_(char *uplo, integer *n, integer *kd, integer *
4975  nrhs, real *ab, integer *ldab, real *b, integer *ldb, integer *info);
4976 
4977 /* Subroutine */ int spftrf_(char *transr, char *uplo, integer *n, real *a,
4978  integer *info);
4979 
4980 /* Subroutine */ int spftri_(char *transr, char *uplo, integer *n, real *a,
4981  integer *info);
4982 
4983 /* Subroutine */ int spftrs_(char *transr, char *uplo, integer *n, integer *
4984  nrhs, real *a, real *b, integer *ldb, integer *info);
4985 
4986 /* Subroutine */ int spocon_(char *uplo, integer *n, real *a, integer *lda,
4987  real *anorm, real *rcond, real *work, integer *iwork, integer *info);
4988 
4989 /* Subroutine */ int spoequ_(integer *n, real *a, integer *lda, real *s, real
4990  *scond, real *amax, integer *info);
4991 
4992 /* Subroutine */ int spoequb_(integer *n, real *a, integer *lda, real *s,
4993  real *scond, real *amax, integer *info);
4994 
4995 /* Subroutine */ int sporfs_(char *uplo, integer *n, integer *nrhs, real *a,
4996  integer *lda, real *af, integer *ldaf, real *b, integer *ldb, real *x,
4997  integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
4998  integer *info);
4999 
5000 /* Subroutine */ int sporfsx_(char *uplo, char *equed, integer *n, integer *
5001  nrhs, real *a, integer *lda, real *af, integer *ldaf, real *s, real *
5002  b, integer *ldb, real *x, integer *ldx, real *rcond, real *berr,
5003  integer *n_err_bnds__, real *err_bnds_norm__, real *err_bnds_comp__,
5004  integer *nparams, real *params, real *work, integer *iwork, integer *
5005  info);
5006 
5007 /* Subroutine */ int sposv_(char *uplo, integer *n, integer *nrhs, real *a,
5008  integer *lda, real *b, integer *ldb, integer *info);
5009 
5010 /* Subroutine */ int sposvx_(char *fact, char *uplo, integer *n, integer *
5011  nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed,
5012  real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
5013  real *ferr, real *berr, real *work, integer *iwork, integer *info);
5014 
5015 /* Subroutine */ int sposvxx_(char *fact, char *uplo, integer *n, integer *
5016  nrhs, real *a, integer *lda, real *af, integer *ldaf, char *equed,
5017  real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
5018  real *rpvgrw, real *berr, integer *n_err_bnds__, real *
5019  err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
5020  params, real *work, integer *iwork, integer *info);
5021 
5022 /* Subroutine */ int spotf2_(char *uplo, integer *n, real *a, integer *lda,
5023  integer *info);
5024 
5025 /* Subroutine */ int spotrf_(char *uplo, integer *n, real *a, integer *lda,
5026  integer *info);
5027 
5028 /* Subroutine */ int spotri_(char *uplo, integer *n, real *a, integer *lda,
5029  integer *info);
5030 
5031 /* Subroutine */ int spotrs_(char *uplo, integer *n, integer *nrhs, real *a,
5032  integer *lda, real *b, integer *ldb, integer *info);
5033 
5034 /* Subroutine */ int sppcon_(char *uplo, integer *n, real *ap, real *anorm,
5035  real *rcond, real *work, integer *iwork, integer *info);
5036 
5037 /* Subroutine */ int sppequ_(char *uplo, integer *n, real *ap, real *s, real *
5038  scond, real *amax, integer *info);
5039 
5040 /* Subroutine */ int spprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
5041  real *afp, real *b, integer *ldb, real *x, integer *ldx, real *ferr,
5042  real *berr, real *work, integer *iwork, integer *info);
5043 
5044 /* Subroutine */ int sppsv_(char *uplo, integer *n, integer *nrhs, real *ap,
5045  real *b, integer *ldb, integer *info);
5046 
5047 /* Subroutine */ int sppsvx_(char *fact, char *uplo, integer *n, integer *
5048  nrhs, real *ap, real *afp, char *equed, real *s, real *b, integer *
5049  ldb, real *x, integer *ldx, real *rcond, real *ferr, real *berr, real
5050  *work, integer *iwork, integer *info);
5051 
5052 /* Subroutine */ int spptrf_(char *uplo, integer *n, real *ap, integer *info);
5053 
5054 /* Subroutine */ int spptri_(char *uplo, integer *n, real *ap, integer *info);
5055 
5056 /* Subroutine */ int spptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
5057  real *b, integer *ldb, integer *info);
5058 
5059 /* Subroutine */ int spstf2_(char *uplo, integer *n, real *a, integer *lda,
5060  integer *piv, integer *rank, real *tol, real *work, integer *info);
5061 
5062 /* Subroutine */ int spstrf_(char *uplo, integer *n, real *a, integer *lda,
5063  integer *piv, integer *rank, real *tol, real *work, integer *info);
5064 
5065 /* Subroutine */ int sptcon_(integer *n, real *d__, real *e, real *anorm,
5066  real *rcond, real *work, integer *info);
5067 
5068 /* Subroutine */ int spteqr_(char *compz, integer *n, real *d__, real *e,
5069  real *z__, integer *ldz, real *work, integer *info);
5070 
5071 /* Subroutine */ int sptrfs_(integer *n, integer *nrhs, real *d__, real *e,
5072  real *df, real *ef, real *b, integer *ldb, real *x, integer *ldx,
5073  real *ferr, real *berr, real *work, integer *info);
5074 
5075 /* Subroutine */ int sptsv_(integer *n, integer *nrhs, real *d__, real *e,
5076  real *b, integer *ldb, integer *info);
5077 
5078 /* Subroutine */ int sptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
5079  real *e, real *df, real *ef, real *b, integer *ldb, real *x, integer
5080  *ldx, real *rcond, real *ferr, real *berr, real *work, integer *info);
5081 
5082 /* Subroutine */ int spttrf_(integer *n, real *d__, real *e, integer *info);
5083 
5084 /* Subroutine */ int spttrs_(integer *n, integer *nrhs, real *d__, real *e,
5085  real *b, integer *ldb, integer *info);
5086 
5087 /* Subroutine */ int sptts2_(integer *n, integer *nrhs, real *d__, real *e,
5088  real *b, integer *ldb);
5089 
5090 /* Subroutine */ int srscl_(integer *n, real *sa, real *sx, integer *incx);
5091 
5092 /* Subroutine */ int ssbev_(char *jobz, char *uplo, integer *n, integer *kd,
5093  real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
5094  integer *info);
5095 
5096 /* Subroutine */ int ssbevd_(char *jobz, char *uplo, integer *n, integer *kd,
5097  real *ab, integer *ldab, real *w, real *z__, integer *ldz, real *work,
5098  integer *lwork, integer *iwork, integer *liwork, integer *info);
5099 
5100 /* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, integer *n,
5101  integer *kd, real *ab, integer *ldab, real *q, integer *ldq, real *vl,
5102  real *vu, integer *il, integer *iu, real *abstol, integer *m, real *
5103  w, real *z__, integer *ldz, real *work, integer *iwork, integer *
5104  ifail, integer *info);
5105 
5106 /* Subroutine */ int ssbgst_(char *vect, char *uplo, integer *n, integer *ka,
5107  integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
5108  x, integer *ldx, real *work, integer *info);
5109 
5110 /* Subroutine */ int ssbgv_(char *jobz, char *uplo, integer *n, integer *ka,
5111  integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
5112  w, real *z__, integer *ldz, real *work, integer *info);
5113 
5114 /* Subroutine */ int ssbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
5115  integer *kb, real *ab, integer *ldab, real *bb, integer *ldbb, real *
5116  w, real *z__, integer *ldz, real *work, integer *lwork, integer *
5117  iwork, integer *liwork, integer *info);
5118 
5119 /* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, integer *n,
5120  integer *ka, integer *kb, real *ab, integer *ldab, real *bb, integer *
5121  ldbb, real *q, integer *ldq, real *vl, real *vu, integer *il, integer
5122  *iu, real *abstol, integer *m, real *w, real *z__, integer *ldz, real
5123  *work, integer *iwork, integer *ifail, integer *info);
5124 
5125 /* Subroutine */ int ssbtrd_(char *vect, char *uplo, integer *n, integer *kd,
5126  real *ab, integer *ldab, real *d__, real *e, real *q, integer *ldq,
5127  real *work, integer *info);
5128 
5129 /* Subroutine */ int ssfrk_(char *transr, char *uplo, char *trans, integer *n,
5130  integer *k, real *alpha, real *a, integer *lda, real *beta, real *
5131  c__);
5132 
5133 /* Subroutine */ int sspcon_(char *uplo, integer *n, real *ap, integer *ipiv,
5134  real *anorm, real *rcond, real *work, integer *iwork, integer *info);
5135 
5136 /* Subroutine */ int sspev_(char *jobz, char *uplo, integer *n, real *ap,
5137  real *w, real *z__, integer *ldz, real *work, integer *info);
5138 
5139 /* Subroutine */ int sspevd_(char *jobz, char *uplo, integer *n, real *ap,
5140  real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
5141  *iwork, integer *liwork, integer *info);
5142 
5143 /* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, integer *n,
5144  real *ap, real *vl, real *vu, integer *il, integer *iu, real *abstol,
5145  integer *m, real *w, real *z__, integer *ldz, real *work, integer *
5146  iwork, integer *ifail, integer *info);
5147 
5148 /* Subroutine */ int sspgst_(integer *itype, char *uplo, integer *n, real *ap,
5149  real *bp, integer *info);
5150 
5151 /* Subroutine */ int sspgv_(integer *itype, char *jobz, char *uplo, integer *
5152  n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
5153  integer *info);
5154 
5155 /* Subroutine */ int sspgvd_(integer *itype, char *jobz, char *uplo, integer *
5156  n, real *ap, real *bp, real *w, real *z__, integer *ldz, real *work,
5157  integer *lwork, integer *iwork, integer *liwork, integer *info);
5158 
5159 /* Subroutine */ int sspgvx_(integer *itype, char *jobz, char *range, char *
5160  uplo, integer *n, real *ap, real *bp, real *vl, real *vu, integer *il,
5161  integer *iu, real *abstol, integer *m, real *w, real *z__, integer *
5162  ldz, real *work, integer *iwork, integer *ifail, integer *info);
5163 
5164 /* Subroutine */ int ssprfs_(char *uplo, integer *n, integer *nrhs, real *ap,
5165  real *afp, integer *ipiv, real *b, integer *ldb, real *x, integer *
5166  ldx, real *ferr, real *berr, real *work, integer *iwork, integer *
5167  info);
5168 
5169 /* Subroutine */ int sspsv_(char *uplo, integer *n, integer *nrhs, real *ap,
5170  integer *ipiv, real *b, integer *ldb, integer *info);
5171 
5172 /* Subroutine */ int sspsvx_(char *fact, char *uplo, integer *n, integer *
5173  nrhs, real *ap, real *afp, integer *ipiv, real *b, integer *ldb, real
5174  *x, integer *ldx, real *rcond, real *ferr, real *berr, real *work,
5175  integer *iwork, integer *info);
5176 
5177 /* Subroutine */ int ssptrd_(char *uplo, integer *n, real *ap, real *d__,
5178  real *e, real *tau, integer *info);
5179 
5180 /* Subroutine */ int ssptrf_(char *uplo, integer *n, real *ap, integer *ipiv,
5181  integer *info);
5182 
5183 /* Subroutine */ int ssptri_(char *uplo, integer *n, real *ap, integer *ipiv,
5184  real *work, integer *info);
5185 
5186 /* Subroutine */ int ssptrs_(char *uplo, integer *n, integer *nrhs, real *ap,
5187  integer *ipiv, real *b, integer *ldb, integer *info);
5188 
5189 /* Subroutine */ int sstebz_(char *range, char *order, integer *n, real *vl,
5190  real *vu, integer *il, integer *iu, real *abstol, real *d__, real *e,
5191  integer *m, integer *nsplit, real *w, integer *iblock, integer *
5192  isplit, real *work, integer *iwork, integer *info);
5193 
5194 /* Subroutine */ int sstedc_(char *compz, integer *n, real *d__, real *e,
5195  real *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
5196  integer *liwork, integer *info);
5197 
5198 /* Subroutine */ int sstegr_(char *jobz, char *range, integer *n, real *d__,
5199  real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
5200  integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
5201  work, integer *lwork, integer *iwork, integer *liwork, integer *info);
5202 
5203 /* Subroutine */ int sstein_(integer *n, real *d__, real *e, integer *m, real
5204  *w, integer *iblock, integer *isplit, real *z__, integer *ldz, real *
5205  work, integer *iwork, integer *ifail, integer *info);
5206 
5207 /* Subroutine */ int sstemr_(char *jobz, char *range, integer *n, real *d__,
5208  real *e, real *vl, real *vu, integer *il, integer *iu, integer *m,
5209  real *w, real *z__, integer *ldz, integer *nzc, integer *isuppz,
5210  logical *tryrac, real *work, integer *lwork, integer *iwork, integer *
5211  liwork, integer *info);
5212 
5213 /* Subroutine */ int ssteqr_(char *compz, integer *n, real *d__, real *e,
5214  real *z__, integer *ldz, real *work, integer *info);
5215 
5216 /* Subroutine */ int ssterf_(integer *n, real *d__, real *e, integer *info);
5217 
5218 /* Subroutine */ int sstev_(char *jobz, integer *n, real *d__, real *e, real *
5219  z__, integer *ldz, real *work, integer *info);
5220 
5221 /* Subroutine */ int sstevd_(char *jobz, integer *n, real *d__, real *e, real
5222  *z__, integer *ldz, real *work, integer *lwork, integer *iwork,
5223  integer *liwork, integer *info);
5224 
5225 /* Subroutine */ int sstevr_(char *jobz, char *range, integer *n, real *d__,
5226  real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
5227  integer *m, real *w, real *z__, integer *ldz, integer *isuppz, real *
5228  work, integer *lwork, integer *iwork, integer *liwork, integer *info);
5229 
5230 /* Subroutine */ int sstevx_(char *jobz, char *range, integer *n, real *d__,
5231  real *e, real *vl, real *vu, integer *il, integer *iu, real *abstol,
5232  integer *m, real *w, real *z__, integer *ldz, real *work, integer *
5233  iwork, integer *ifail, integer *info);
5234 
5235 /* Subroutine */ int ssycon_(char *uplo, integer *n, real *a, integer *lda,
5236  integer *ipiv, real *anorm, real *rcond, real *work, integer *iwork,
5237  integer *info);
5238 
5239 /* Subroutine */ int ssyequb_(char *uplo, integer *n, real *a, integer *lda,
5240  real *s, real *scond, real *amax, real *work, integer *info);
5241 
5242 /* Subroutine */ int ssyev_(char *jobz, char *uplo, integer *n, real *a,
5243  integer *lda, real *w, real *work, integer *lwork, integer *info);
5244 
5245 /* Subroutine */ int ssyevd_(char *jobz, char *uplo, integer *n, real *a,
5246  integer *lda, real *w, real *work, integer *lwork, integer *iwork,
5247  integer *liwork, integer *info);
5248 
5249 /* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, integer *n,
5250  real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
5251  real *abstol, integer *m, real *w, real *z__, integer *ldz, integer *
5252  isuppz, real *work, integer *lwork, integer *iwork, integer *liwork,
5253  integer *info);
5254 
5255 /* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, integer *n,
5256  real *a, integer *lda, real *vl, real *vu, integer *il, integer *iu,
5257  real *abstol, integer *m, real *w, real *z__, integer *ldz, real *
5258  work, integer *lwork, integer *iwork, integer *ifail, integer *info);
5259 
5260 /* Subroutine */ int ssygs2_(integer *itype, char *uplo, integer *n, real *a,
5261  integer *lda, real *b, integer *ldb, integer *info);
5262 
5263 /* Subroutine */ int ssygst_(integer *itype, char *uplo, integer *n, real *a,
5264  integer *lda, real *b, integer *ldb, integer *info);
5265 
5266 /* Subroutine */ int ssygv_(integer *itype, char *jobz, char *uplo, integer *
5267  n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
5268  integer *lwork, integer *info);
5269 
5270 /* Subroutine */ int ssygvd_(integer *itype, char *jobz, char *uplo, integer *
5271  n, real *a, integer *lda, real *b, integer *ldb, real *w, real *work,
5272  integer *lwork, integer *iwork, integer *liwork, integer *info);
5273 
5274 /* Subroutine */ int ssygvx_(integer *itype, char *jobz, char *range, char *
5275  uplo, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
5276  vl, real *vu, integer *il, integer *iu, real *abstol, integer *m,
5277  real *w, real *z__, integer *ldz, real *work, integer *lwork, integer
5278  *iwork, integer *ifail, integer *info);
5279 
5280 /* Subroutine */ int ssyrfs_(char *uplo, integer *n, integer *nrhs, real *a,
5281  integer *lda, real *af, integer *ldaf, integer *ipiv, real *b,
5282  integer *ldb, real *x, integer *ldx, real *ferr, real *berr, real *
5283  work, integer *iwork, integer *info);
5284 
5285 /* Subroutine */ int ssyrfsx_(char *uplo, char *equed, integer *n, integer *
5286  nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
5287  real *s, real *b, integer *ldb, real *x, integer *ldx, real *rcond,
5288  real *berr, integer *n_err_bnds__, real *err_bnds_norm__, real *
5289  err_bnds_comp__, integer *nparams, real *params, real *work, integer *
5290  iwork, integer *info);
5291 
5292 /* Subroutine */ int ssysv_(char *uplo, integer *n, integer *nrhs, real *a,
5293  integer *lda, integer *ipiv, real *b, integer *ldb, real *work,
5294  integer *lwork, integer *info);
5295 
5296 /* Subroutine */ int ssysvx_(char *fact, char *uplo, integer *n, integer *
5297  nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
5298  real *b, integer *ldb, real *x, integer *ldx, real *rcond, real *ferr,
5299  real *berr, real *work, integer *lwork, integer *iwork, integer *
5300  info);
5301 
5302 /* Subroutine */ int ssysvxx_(char *fact, char *uplo, integer *n, integer *
5303  nrhs, real *a, integer *lda, real *af, integer *ldaf, integer *ipiv,
5304  char *equed, real *s, real *b, integer *ldb, real *x, integer *ldx,
5305  real *rcond, real *rpvgrw, real *berr, integer *n_err_bnds__, real *
5306  err_bnds_norm__, real *err_bnds_comp__, integer *nparams, real *
5307  params, real *work, integer *iwork, integer *info);
5308 
5309 /* Subroutine */ int ssytd2_(char *uplo, integer *n, real *a, integer *lda,
5310  real *d__, real *e, real *tau, integer *info);
5311 
5312 /* Subroutine */ int ssytf2_(char *uplo, integer *n, real *a, integer *lda,
5313  integer *ipiv, integer *info);
5314 
5315 /* Subroutine */ int ssytrd_(char *uplo, integer *n, real *a, integer *lda,
5316  real *d__, real *e, real *tau, real *work, integer *lwork, integer *
5317  info);
5318 
5319 /* Subroutine */ int ssytrf_(char *uplo, integer *n, real *a, integer *lda,
5320  integer *ipiv, real *work, integer *lwork, integer *info);
5321 
5322 /* Subroutine */ int ssytri_(char *uplo, integer *n, real *a, integer *lda,
5323  integer *ipiv, real *work, integer *info);
5324 
5325 /* Subroutine */ int ssytrs_(char *uplo, integer *n, integer *nrhs, real *a,
5326  integer *lda, integer *ipiv, real *b, integer *ldb, integer *info);
5327 
5328 /* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, integer *n,
5329  integer *kd, real *ab, integer *ldab, real *rcond, real *work,
5330  integer *iwork, integer *info);
5331 
5332 /* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, integer *n,
5333  integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
5334  *ldb, real *x, integer *ldx, real *ferr, real *berr, real *work,
5335  integer *iwork, integer *info);
5336 
5337 /* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, integer *n,
5338  integer *kd, integer *nrhs, real *ab, integer *ldab, real *b, integer
5339  *ldb, integer *info);
5340 
5341 /* Subroutine */ int stfsm_(char *transr, char *side, char *uplo, char *trans,
5342  char *diag, integer *m, integer *n, real *alpha, real *a, real *b,
5343  integer *ldb);
5344 
5345 /* Subroutine */ int stftri_(char *transr, char *uplo, char *diag, integer *n,
5346  real *a, integer *info);
5347 
5348 /* Subroutine */ int stfttp_(char *transr, char *uplo, integer *n, real *arf,
5349  real *ap, integer *info);
5350 
5351 /* Subroutine */ int stfttr_(char *transr, char *uplo, integer *n, real *arf,
5352  real *a, integer *lda, integer *info);
5353 
5354 /* Subroutine */ int stgevc_(char *side, char *howmny, logical *select,
5355  integer *n, real *s, integer *lds, real *p, integer *ldp, real *vl,
5356  integer *ldvl, real *vr, integer *ldvr, integer *mm, integer *m, real
5357  *work, integer *info);
5358 
5359 /* Subroutine */ int stgex2_(logical *wantq, logical *wantz, integer *n, real
5360  *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
5361  z__, integer *ldz, integer *j1, integer *n1, integer *n2, real *work,
5362  integer *lwork, integer *info);
5363 
5364 /* Subroutine */ int stgexc_(logical *wantq, logical *wantz, integer *n, real
5365  *a, integer *lda, real *b, integer *ldb, real *q, integer *ldq, real *
5366  z__, integer *ldz, integer *ifst, integer *ilst, real *work, integer *
5367  lwork, integer *info);
5368 
5369 /* Subroutine */ int stgsen_(integer *ijob, logical *wantq, logical *wantz,
5370  logical *select, integer *n, real *a, integer *lda, real *b, integer *
5371  ldb, real *alphar, real *alphai, real *beta, real *q, integer *ldq,
5372  real *z__, integer *ldz, integer *m, real *pl, real *pr, real *dif,
5373  real *work, integer *lwork, integer *iwork, integer *liwork, integer *
5374  info);
5375 
5376 /* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, integer *m,
5377  integer *p, integer *n, integer *k, integer *l, real *a, integer *lda,
5378  real *b, integer *ldb, real *tola, real *tolb, real *alpha, real *
5379  beta, real *u, integer *ldu, real *v, integer *ldv, real *q, integer *
5380  ldq, real *work, integer *ncycle, integer *info);
5381 
5382 /* Subroutine */ int stgsna_(char *job, char *howmny, logical *select,
5383  integer *n, real *a, integer *lda, real *b, integer *ldb, real *vl,
5384  integer *ldvl, real *vr, integer *ldvr, real *s, real *dif, integer *
5385  mm, integer *m, real *work, integer *lwork, integer *iwork, integer *
5386  info);
5387 
5388 /* Subroutine */ int stgsy2_(char *trans, integer *ijob, integer *m, integer *
5389  n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
5390  ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
5391  *ldf, real *scale, real *rdsum, real *rdscal, integer *iwork, integer
5392  *pq, integer *info);
5393 
5394 /* Subroutine */ int stgsyl_(char *trans, integer *ijob, integer *m, integer *
5395  n, real *a, integer *lda, real *b, integer *ldb, real *c__, integer *
5396  ldc, real *d__, integer *ldd, real *e, integer *lde, real *f, integer
5397  *ldf, real *scale, real *dif, real *work, integer *lwork, integer *
5398  iwork, integer *info);
5399 
5400 /* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, integer *n,
5401  real *ap, real *rcond, real *work, integer *iwork, integer *info);
5402 
5403 /* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, integer *n,
5404  integer *nrhs, real *ap, real *b, integer *ldb, real *x, integer *ldx,
5405  real *ferr, real *berr, real *work, integer *iwork, integer *info);
5406 
5407 /* Subroutine */ int stptri_(char *uplo, char *diag, integer *n, real *ap,
5408  integer *info);
5409 
5410 /* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, integer *n,
5411  integer *nrhs, real *ap, real *b, integer *ldb, integer *info);
5412 
5413 /* Subroutine */ int stpttf_(char *transr, char *uplo, integer *n, real *ap,
5414  real *arf, integer *info);
5415 
5416 /* Subroutine */ int stpttr_(char *uplo, integer *n, real *ap, real *a,
5417  integer *lda, integer *info);
5418 
5419 /* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, integer *n,
5420  real *a, integer *lda, real *rcond, real *work, integer *iwork,
5421  integer *info);
5422 
5423 /* Subroutine */ int strevc_(char *side, char *howmny, logical *select,
5424  integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
5425  integer *ldvr, integer *mm, integer *m, real *work, integer *info);
5426 
5427 /* Subroutine */ int strexc_(char *compq, integer *n, real *t, integer *ldt,
5428  real *q, integer *ldq, integer *ifst, integer *ilst, real *work,
5429  integer *info);
5430 
5431 /* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, integer *n,
5432  integer *nrhs, real *a, integer *lda, real *b, integer *ldb, real *x,
5433  integer *ldx, real *ferr, real *berr, real *work, integer *iwork,
5434  integer *info);
5435 
5436 /* Subroutine */ int strsen_(char *job, char *compq, logical *select, integer
5437  *n, real *t, integer *ldt, real *q, integer *ldq, real *wr, real *wi,
5438  integer *m, real *s, real *sep, real *work, integer *lwork, integer *
5439  iwork, integer *liwork, integer *info);
5440 
5441 /* Subroutine */ int strsna_(char *job, char *howmny, logical *select,
5442  integer *n, real *t, integer *ldt, real *vl, integer *ldvl, real *vr,
5443  integer *ldvr, real *s, real *sep, integer *mm, integer *m, real *
5444  work, integer *ldwork, integer *iwork, integer *info);
5445 
5446 /* Subroutine */ int strsyl_(char *trana, char *tranb, integer *isgn, integer
5447  *m, integer *n, real *a, integer *lda, real *b, integer *ldb, real *
5448  c__, integer *ldc, real *scale, integer *info);
5449 
5450 /* Subroutine */ int strti2_(char *uplo, char *diag, integer *n, real *a,
5451  integer *lda, integer *info);
5452 
5453 /* Subroutine */ int strtri_(char *uplo, char *diag, integer *n, real *a,
5454  integer *lda, integer *info);
5455 
5456 /* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, integer *n,
5457  integer *nrhs, real *a, integer *lda, real *b, integer *ldb, integer *
5458  info);
5459 
5460 /* Subroutine */ int strttf_(char *transr, char *uplo, integer *n, real *a,
5461  integer *lda, real *arf, integer *info);
5462 
5463 /* Subroutine */ int strttp_(char *uplo, integer *n, real *a, integer *lda,
5464  real *ap, integer *info);
5465 
5466 /* Subroutine */ int stzrqf_(integer *m, integer *n, real *a, integer *lda,
5467  real *tau, integer *info);
5468 
5469 /* Subroutine */ int stzrzf_(integer *m, integer *n, real *a, integer *lda,
5470  real *tau, real *work, integer *lwork, integer *info);
5471 
5472 /* Subroutine */ int xerbla_(char *srname, integer *info);
5473 
5474 /* Subroutine */ int xerbla_array__(char *srname_array__, integer *
5475  srname_len__, integer *info, ftnlen srname_array_len);
5476 
5477 /* Subroutine */ int zbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
5478  nru, integer *ncc, doublereal *d__, doublereal *e, doublecomplex *vt,
5479  integer *ldvt, doublecomplex *u, integer *ldu, doublecomplex *c__,
5480  integer *ldc, doublereal *rwork, integer *info);
5481 
5482 /* Subroutine */ int zcgesv_(integer *n, integer *nrhs, doublecomplex *a,
5483  integer *lda, integer *ipiv, doublecomplex *b, integer *ldb,
5484  doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork,
5485  doublereal *rwork, integer *iter, integer *info);
5486 
5487 /* Subroutine */ int zcposv_(char *uplo, integer *n, integer *nrhs,
5488  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5489  doublecomplex *x, integer *ldx, doublecomplex *work, complex *swork,
5490  doublereal *rwork, integer *iter, integer *info);
5491 
5492 /* Subroutine */ int zdrscl_(integer *n, doublereal *sa, doublecomplex *sx,
5493  integer *incx);
5494 
5495 /* Subroutine */ int zgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
5496  integer *kl, integer *ku, doublecomplex *ab, integer *ldab,
5497  doublereal *d__, doublereal *e, doublecomplex *q, integer *ldq,
5498  doublecomplex *pt, integer *ldpt, doublecomplex *c__, integer *ldc,
5499  doublecomplex *work, doublereal *rwork, integer *info);
5500 
5501 /* Subroutine */ int zgbcon_(char *norm, integer *n, integer *kl, integer *ku,
5502  doublecomplex *ab, integer *ldab, integer *ipiv, doublereal *anorm,
5503  doublereal *rcond, doublecomplex *work, doublereal *rwork, integer *
5504  info);
5505 
5506 /* Subroutine */ int zgbequ_(integer *m, integer *n, integer *kl, integer *ku,
5507  doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__,
5508  doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
5509  info);
5510 
5511 /* Subroutine */ int zgbequb_(integer *m, integer *n, integer *kl, integer *
5512  ku, doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *
5513  c__, doublereal *rowcnd, doublereal *colcnd, doublereal *amax,
5514  integer *info);
5515 
5516 /* Subroutine */ int zgbrfs_(char *trans, integer *n, integer *kl, integer *
5517  ku, integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *
5518  afb, integer *ldafb, integer *ipiv, doublecomplex *b, integer *ldb,
5519  doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
5520  doublecomplex *work, doublereal *rwork, integer *info);
5521 
5522 /* Subroutine */ int zgbrfsx_(char *trans, char *equed, integer *n, integer *
5523  kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
5524  doublecomplex *afb, integer *ldafb, integer *ipiv, doublereal *r__,
5525  doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *x,
5526  integer *ldx, doublereal *rcond, doublereal *berr, integer *
5527  n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
5528  err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
5529  work, doublereal *rwork, integer *info);
5530 
5531 /* Subroutine */ int zgbsv_(integer *n, integer *kl, integer *ku, integer *
5532  nrhs, doublecomplex *ab, integer *ldab, integer *ipiv, doublecomplex *
5533  b, integer *ldb, integer *info);
5534 
5535 /* Subroutine */ int zgbsvx_(char *fact, char *trans, integer *n, integer *kl,
5536  integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
5537  doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed,
5538  doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb,
5539  doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
5540  doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
5541  info);
5542 
5543 /* Subroutine */ int zgbsvxx_(char *fact, char *trans, integer *n, integer *
5544  kl, integer *ku, integer *nrhs, doublecomplex *ab, integer *ldab,
5545  doublecomplex *afb, integer *ldafb, integer *ipiv, char *equed,
5546  doublereal *r__, doublereal *c__, doublecomplex *b, integer *ldb,
5547  doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw,
5548  doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
5549  doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
5550  doublecomplex *work, doublereal *rwork, integer *info);
5551 
5552 /* Subroutine */ int zgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
5553  doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
5554 
5555 /* Subroutine */ int zgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
5556  doublecomplex *ab, integer *ldab, integer *ipiv, integer *info);
5557 
5558 /* Subroutine */ int zgbtrs_(char *trans, integer *n, integer *kl, integer *
5559  ku, integer *nrhs, doublecomplex *ab, integer *ldab, integer *ipiv,
5560  doublecomplex *b, integer *ldb, integer *info);
5561 
5562 /* Subroutine */ int zgebak_(char *job, char *side, integer *n, integer *ilo,
5563  integer *ihi, doublereal *scale, integer *m, doublecomplex *v,
5564  integer *ldv, integer *info);
5565 
5566 /* Subroutine */ int zgebal_(char *job, integer *n, doublecomplex *a, integer
5567  *lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
5568 
5569 /* Subroutine */ int zgebd2_(integer *m, integer *n, doublecomplex *a,
5570  integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq,
5571  doublecomplex *taup, doublecomplex *work, integer *info);
5572 
5573 /* Subroutine */ int zgebrd_(integer *m, integer *n, doublecomplex *a,
5574  integer *lda, doublereal *d__, doublereal *e, doublecomplex *tauq,
5575  doublecomplex *taup, doublecomplex *work, integer *lwork, integer *
5576  info);
5577 
5578 /* Subroutine */ int zgecon_(char *norm, integer *n, doublecomplex *a,
5579  integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
5580  work, doublereal *rwork, integer *info);
5581 
5582 /* Subroutine */ int zgeequ_(integer *m, integer *n, doublecomplex *a,
5583  integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
5584  doublereal *colcnd, doublereal *amax, integer *info);
5585 
5586 /* Subroutine */ int zgeequb_(integer *m, integer *n, doublecomplex *a,
5587  integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
5588  doublereal *colcnd, doublereal *amax, integer *info);
5589 
5590 /* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, integer *n,
5591  doublecomplex *a, integer *lda, integer *sdim, doublecomplex *w,
5592  doublecomplex *vs, integer *ldvs, doublecomplex *work, integer *lwork,
5593  doublereal *rwork, logical *bwork, integer *info);
5594 
5595 /* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char *
5596  sense, integer *n, doublecomplex *a, integer *lda, integer *sdim,
5597  doublecomplex *w, doublecomplex *vs, integer *ldvs, doublereal *
5598  rconde, doublereal *rcondv, doublecomplex *work, integer *lwork,
5599  doublereal *rwork, logical *bwork, integer *info);
5600 
5601 /* Subroutine */ int zgeev_(char *jobvl, char *jobvr, integer *n,
5602  doublecomplex *a, integer *lda, doublecomplex *w, doublecomplex *vl,
5603  integer *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work,
5604  integer *lwork, doublereal *rwork, integer *info);
5605 
5606 /* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *
5607  sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *w,
5608  doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
5609  integer *ilo, integer *ihi, doublereal *scale, doublereal *abnrm,
5610  doublereal *rconde, doublereal *rcondv, doublecomplex *work, integer *
5611  lwork, doublereal *rwork, integer *info);
5612 
5613 /* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, integer *n,
5614  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5615  doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl,
5616  integer *ldvsl, doublecomplex *vsr, integer *ldvsr, doublecomplex *
5617  work, integer *lwork, doublereal *rwork, integer *info);
5618 
5619 /* Subroutine */ int zgegv_(char *jobvl, char *jobvr, integer *n,
5620  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5621  doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
5622  *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
5623  *lwork, doublereal *rwork, integer *info);
5624 
5625 /* Subroutine */ int zgehd2_(integer *n, integer *ilo, integer *ihi,
5626  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
5627  work, integer *info);
5628 
5629 /* Subroutine */ int zgehrd_(integer *n, integer *ilo, integer *ihi,
5630  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
5631  work, integer *lwork, integer *info);
5632 
5633 /* Subroutine */ int zgelq2_(integer *m, integer *n, doublecomplex *a,
5634  integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
5635 
5636 /* Subroutine */ int zgelqf_(integer *m, integer *n, doublecomplex *a,
5637  integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5638  integer *info);
5639 
5640 /* Subroutine */ int zgels_(char *trans, integer *m, integer *n, integer *
5641  nrhs, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5642  doublecomplex *work, integer *lwork, integer *info);
5643 
5644 /* Subroutine */ int zgelsd_(integer *m, integer *n, integer *nrhs,
5645  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5646  doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work,
5647  integer *lwork, doublereal *rwork, integer *iwork, integer *info);
5648 
5649 /* Subroutine */ int zgelss_(integer *m, integer *n, integer *nrhs,
5650  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5651  doublereal *s, doublereal *rcond, integer *rank, doublecomplex *work,
5652  integer *lwork, doublereal *rwork, integer *info);
5653 
5654 /* Subroutine */ int zgelsx_(integer *m, integer *n, integer *nrhs,
5655  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5656  integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
5657  doublereal *rwork, integer *info);
5658 
5659 /* Subroutine */ int zgelsy_(integer *m, integer *n, integer *nrhs,
5660  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5661  integer *jpvt, doublereal *rcond, integer *rank, doublecomplex *work,
5662  integer *lwork, doublereal *rwork, integer *info);
5663 
5664 /* Subroutine */ int zgeql2_(integer *m, integer *n, doublecomplex *a,
5665  integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
5666 
5667 /* Subroutine */ int zgeqlf_(integer *m, integer *n, doublecomplex *a,
5668  integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5669  integer *info);
5670 
5671 /* Subroutine */ int zgeqp3_(integer *m, integer *n, doublecomplex *a,
5672  integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
5673  integer *lwork, doublereal *rwork, integer *info);
5674 
5675 /* Subroutine */ int zgeqpf_(integer *m, integer *n, doublecomplex *a,
5676  integer *lda, integer *jpvt, doublecomplex *tau, doublecomplex *work,
5677  doublereal *rwork, integer *info);
5678 
5679 /* Subroutine */ int zgeqr2_(integer *m, integer *n, doublecomplex *a,
5680  integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
5681 
5682 /* Subroutine */ int zgeqrf_(integer *m, integer *n, doublecomplex *a,
5683  integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5684  integer *info);
5685 
5686 /* Subroutine */ int zgerfs_(char *trans, integer *n, integer *nrhs,
5687  doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
5688  integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
5689  integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
5690  doublereal *rwork, integer *info);
5691 
5692 /* Subroutine */ int zgerfsx_(char *trans, char *equed, integer *n, integer *
5693  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5694  ldaf, integer *ipiv, doublereal *r__, doublereal *c__, doublecomplex *
5695  b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond,
5696  doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
5697  doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
5698  doublecomplex *work, doublereal *rwork, integer *info);
5699 
5700 /* Subroutine */ int zgerq2_(integer *m, integer *n, doublecomplex *a,
5701  integer *lda, doublecomplex *tau, doublecomplex *work, integer *info);
5702 
5703 /* Subroutine */ int zgerqf_(integer *m, integer *n, doublecomplex *a,
5704  integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
5705  integer *info);
5706 
5707 /* Subroutine */ int zgesc2_(integer *n, doublecomplex *a, integer *lda,
5708  doublecomplex *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
5709 
5710 /* Subroutine */ int zgesdd_(char *jobz, integer *m, integer *n,
5711  doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u,
5712  integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work,
5713  integer *lwork, doublereal *rwork, integer *iwork, integer *info);
5714 
5715 /* Subroutine */ int zgesv_(integer *n, integer *nrhs, doublecomplex *a,
5716  integer *lda, integer *ipiv, doublecomplex *b, integer *ldb, integer *
5717  info);
5718 
5719 /* Subroutine */ int zgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
5720  doublecomplex *a, integer *lda, doublereal *s, doublecomplex *u,
5721  integer *ldu, doublecomplex *vt, integer *ldvt, doublecomplex *work,
5722  integer *lwork, doublereal *rwork, integer *info);
5723 
5724 /* Subroutine */ int zgesvx_(char *fact, char *trans, integer *n, integer *
5725  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5726  ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
5727  doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
5728  doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
5729  work, doublereal *rwork, integer *info);
5730 
5731 /* Subroutine */ int zgesvxx_(char *fact, char *trans, integer *n, integer *
5732  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5733  ldaf, integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
5734  doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
5735  doublereal *rcond, doublereal *rpvgrw, doublereal *berr, integer *
5736  n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
5737  err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
5738  work, doublereal *rwork, integer *info);
5739 
5740 /* Subroutine */ int zgetc2_(integer *n, doublecomplex *a, integer *lda,
5741  integer *ipiv, integer *jpiv, integer *info);
5742 
5743 /* Subroutine */ int zgetf2_(integer *m, integer *n, doublecomplex *a,
5744  integer *lda, integer *ipiv, integer *info);
5745 
5746 /* Subroutine */ int zgetrf_(integer *m, integer *n, doublecomplex *a,
5747  integer *lda, integer *ipiv, integer *info);
5748 
5749 /* Subroutine */ int zgetri_(integer *n, doublecomplex *a, integer *lda,
5750  integer *ipiv, doublecomplex *work, integer *lwork, integer *info);
5751 
5752 /* Subroutine */ int zgetrs_(char *trans, integer *n, integer *nrhs,
5753  doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
5754  integer *ldb, integer *info);
5755 
5756 /* Subroutine */ int zggbak_(char *job, char *side, integer *n, integer *ilo,
5757  integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
5758  doublecomplex *v, integer *ldv, integer *info);
5759 
5760 /* Subroutine */ int zggbal_(char *job, integer *n, doublecomplex *a, integer
5761  *lda, doublecomplex *b, integer *ldb, integer *ilo, integer *ihi,
5762  doublereal *lscale, doublereal *rscale, doublereal *work, integer *
5763  info);
5764 
5765 /* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
5766  selctg, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
5767  integer *ldb, integer *sdim, doublecomplex *alpha, doublecomplex *
5768  beta, doublecomplex *vsl, integer *ldvsl, doublecomplex *vsr, integer
5769  *ldvsr, doublecomplex *work, integer *lwork, doublereal *rwork,
5770  logical *bwork, integer *info);
5771 
5772 /* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
5773  selctg, char *sense, integer *n, doublecomplex *a, integer *lda,
5774  doublecomplex *b, integer *ldb, integer *sdim, doublecomplex *alpha,
5775  doublecomplex *beta, doublecomplex *vsl, integer *ldvsl,
5776  doublecomplex *vsr, integer *ldvsr, doublereal *rconde, doublereal *
5777  rcondv, doublecomplex *work, integer *lwork, doublereal *rwork,
5778  integer *iwork, integer *liwork, logical *bwork, integer *info);
5779 
5780 /* Subroutine */ int zggev_(char *jobvl, char *jobvr, integer *n,
5781  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5782  doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, integer
5783  *ldvl, doublecomplex *vr, integer *ldvr, doublecomplex *work, integer
5784  *lwork, doublereal *rwork, integer *info);
5785 
5786 /* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char *
5787  sense, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
5788  integer *ldb, doublecomplex *alpha, doublecomplex *beta,
5789  doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
5790  integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
5791  doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
5792  rcondv, doublecomplex *work, integer *lwork, doublereal *rwork,
5793  integer *iwork, logical *bwork, integer *info);
5794 
5795 /* Subroutine */ int zggglm_(integer *n, integer *m, integer *p,
5796  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5798  *work, integer *lwork, integer *info);
5799 
5800 /* Subroutine */ int zgghrd_(char *compq, char *compz, integer *n, integer *
5801  ilo, integer *ihi, doublecomplex *a, integer *lda, doublecomplex *b,
5802  integer *ldb, doublecomplex *q, integer *ldq, doublecomplex *z__,
5803  integer *ldz, integer *info);
5804 
5805 /* Subroutine */ int zgglse_(integer *m, integer *n, integer *p,
5806  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5807  doublecomplex *c__, doublecomplex *d__, doublecomplex *x,
5808  doublecomplex *work, integer *lwork, integer *info);
5809 
5810 /* Subroutine */ int zggqrf_(integer *n, integer *m, integer *p,
5811  doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
5812  integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
5813  lwork, integer *info);
5814 
5815 /* Subroutine */ int zggrqf_(integer *m, integer *p, integer *n,
5816  doublecomplex *a, integer *lda, doublecomplex *taua, doublecomplex *b,
5817  integer *ldb, doublecomplex *taub, doublecomplex *work, integer *
5818  lwork, integer *info);
5819 
5820 /* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
5821  integer *n, integer *p, integer *k, integer *l, doublecomplex *a,
5822  integer *lda, doublecomplex *b, integer *ldb, doublereal *alpha,
5823  doublereal *beta, doublecomplex *u, integer *ldu, doublecomplex *v,
5824  integer *ldv, doublecomplex *q, integer *ldq, doublecomplex *work,
5825  doublereal *rwork, integer *iwork, integer *info);
5826 
5827 /* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
5828  integer *p, integer *n, doublecomplex *a, integer *lda, doublecomplex
5829  *b, integer *ldb, doublereal *tola, doublereal *tolb, integer *k,
5830  integer *l, doublecomplex *u, integer *ldu, doublecomplex *v, integer
5831  *ldv, doublecomplex *q, integer *ldq, integer *iwork, doublereal *
5832  rwork, doublecomplex *tau, doublecomplex *work, integer *info);
5833 
5834 /* Subroutine */ int zgtcon_(char *norm, integer *n, doublecomplex *dl,
5835  doublecomplex *d__, doublecomplex *du, doublecomplex *du2, integer *
5836  ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *work,
5837  integer *info);
5838 
5839 /* Subroutine */ int zgtrfs_(char *trans, integer *n, integer *nrhs,
5840  doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
5841  doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
5842  doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
5843  doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
5844  doublecomplex *work, doublereal *rwork, integer *info);
5845 
5846 /* Subroutine */ int zgtsv_(integer *n, integer *nrhs, doublecomplex *dl,
5847  doublecomplex *d__, doublecomplex *du, doublecomplex *b, integer *ldb,
5848  integer *info);
5849 
5850 /* Subroutine */ int zgtsvx_(char *fact, char *trans, integer *n, integer *
5851  nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
5852  doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
5853  doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
5854  doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
5855  doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
5856  info);
5857 
5858 /* Subroutine */ int zgttrf_(integer *n, doublecomplex *dl, doublecomplex *
5859  d__, doublecomplex *du, doublecomplex *du2, integer *ipiv, integer *
5860  info);
5861 
5862 /* Subroutine */ int zgttrs_(char *trans, integer *n, integer *nrhs,
5863  doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
5864  doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb,
5865  integer *info);
5866 
5867 /* Subroutine */ int zgtts2_(integer *itrans, integer *n, integer *nrhs,
5868  doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
5869  doublecomplex *du2, integer *ipiv, doublecomplex *b, integer *ldb);
5870 
5871 /* Subroutine */ int zhbev_(char *jobz, char *uplo, integer *n, integer *kd,
5872  doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__,
5873  integer *ldz, doublecomplex *work, doublereal *rwork, integer *info);
5874 
5875 /* Subroutine */ int zhbevd_(char *jobz, char *uplo, integer *n, integer *kd,
5876  doublecomplex *ab, integer *ldab, doublereal *w, doublecomplex *z__,
5877  integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
5878  integer *lrwork, integer *iwork, integer *liwork, integer *info);
5879 
5880 /* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, integer *n,
5881  integer *kd, doublecomplex *ab, integer *ldab, doublecomplex *q,
5882  integer *ldq, doublereal *vl, doublereal *vu, integer *il, integer *
5883  iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
5884  integer *ldz, doublecomplex *work, doublereal *rwork, integer *iwork,
5885  integer *ifail, integer *info);
5886 
5887 /* Subroutine */ int zhbgst_(char *vect, char *uplo, integer *n, integer *ka,
5888  integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
5889  integer *ldbb, doublecomplex *x, integer *ldx, doublecomplex *work,
5890  doublereal *rwork, integer *info);
5891 
5892 /* Subroutine */ int zhbgv_(char *jobz, char *uplo, integer *n, integer *ka,
5893  integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
5894  integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz,
5895  doublecomplex *work, doublereal *rwork, integer *info);
5896 
5897 /* Subroutine */ int zhbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
5898  integer *kb, doublecomplex *ab, integer *ldab, doublecomplex *bb,
5899  integer *ldbb, doublereal *w, doublecomplex *z__, integer *ldz,
5900  doublecomplex *work, integer *lwork, doublereal *rwork, integer *
5901  lrwork, integer *iwork, integer *liwork, integer *info);
5902 
5903 /* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, integer *n,
5904  integer *ka, integer *kb, doublecomplex *ab, integer *ldab,
5905  doublecomplex *bb, integer *ldbb, doublecomplex *q, integer *ldq,
5906  doublereal *vl, doublereal *vu, integer *il, integer *iu, doublereal *
5907  abstol, integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
5908  doublecomplex *work, doublereal *rwork, integer *iwork, integer *
5909  ifail, integer *info);
5910 
5911 /* Subroutine */ int zhbtrd_(char *vect, char *uplo, integer *n, integer *kd,
5912  doublecomplex *ab, integer *ldab, doublereal *d__, doublereal *e,
5913  doublecomplex *q, integer *ldq, doublecomplex *work, integer *info);
5914 
5915 /* Subroutine */ int zhecon_(char *uplo, integer *n, doublecomplex *a,
5916  integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
5917  doublecomplex *work, integer *info);
5918 
5919 /* Subroutine */ int zheequb_(char *uplo, integer *n, doublecomplex *a,
5920  integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
5921  doublecomplex *work, integer *info);
5922 
5923 /* Subroutine */ int zheev_(char *jobz, char *uplo, integer *n, doublecomplex
5924  *a, integer *lda, doublereal *w, doublecomplex *work, integer *lwork,
5925  doublereal *rwork, integer *info);
5926 
5927 /* Subroutine */ int zheevd_(char *jobz, char *uplo, integer *n,
5928  doublecomplex *a, integer *lda, doublereal *w, doublecomplex *work,
5929  integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork,
5930  integer *liwork, integer *info);
5931 
5932 /* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, integer *n,
5933  doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu,
5934  integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
5935  w, doublecomplex *z__, integer *ldz, integer *isuppz, doublecomplex *
5936  work, integer *lwork, doublereal *rwork, integer *lrwork, integer *
5937  iwork, integer *liwork, integer *info);
5938 
5939 /* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, integer *n,
5940  doublecomplex *a, integer *lda, doublereal *vl, doublereal *vu,
5941  integer *il, integer *iu, doublereal *abstol, integer *m, doublereal *
5942  w, doublecomplex *z__, integer *ldz, doublecomplex *work, integer *
5943  lwork, doublereal *rwork, integer *iwork, integer *ifail, integer *
5944  info);
5945 
5946 /* Subroutine */ int zhegs2_(integer *itype, char *uplo, integer *n,
5947  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5948  integer *info);
5949 
5950 /* Subroutine */ int zhegst_(integer *itype, char *uplo, integer *n,
5951  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5952  integer *info);
5953 
5954 /* Subroutine */ int zhegv_(integer *itype, char *jobz, char *uplo, integer *
5955  n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5956  doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
5957  integer *info);
5958 
5959 /* Subroutine */ int zhegvd_(integer *itype, char *jobz, char *uplo, integer *
5960  n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
5961  doublereal *w, doublecomplex *work, integer *lwork, doublereal *rwork,
5962  integer *lrwork, integer *iwork, integer *liwork, integer *info);
5963 
5964 /* Subroutine */ int zhegvx_(integer *itype, char *jobz, char *range, char *
5965  uplo, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
5966  integer *ldb, doublereal *vl, doublereal *vu, integer *il, integer *
5967  iu, doublereal *abstol, integer *m, doublereal *w, doublecomplex *z__,
5968  integer *ldz, doublecomplex *work, integer *lwork, doublereal *rwork,
5969  integer *iwork, integer *ifail, integer *info);
5970 
5971 /* Subroutine */ int zherfs_(char *uplo, integer *n, integer *nrhs,
5972  doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
5973  integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
5974  integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
5975  doublereal *rwork, integer *info);
5976 
5977 /* Subroutine */ int zherfsx_(char *uplo, char *equed, integer *n, integer *
5978  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5979  ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb,
5980  doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr,
5981  integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
5982  err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
5983  work, doublereal *rwork, integer *info);
5984 
5985 /* Subroutine */ int zhesv_(char *uplo, integer *n, integer *nrhs,
5986  doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
5987  integer *ldb, doublecomplex *work, integer *lwork, integer *info);
5988 
5989 /* Subroutine */ int zhesvx_(char *fact, char *uplo, integer *n, integer *
5990  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5991  ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
5992  integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
5993  doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
5994 
5995 /* Subroutine */ int zhesvxx_(char *fact, char *uplo, integer *n, integer *
5996  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
5997  ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b,
5998  integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond,
5999  doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__,
6000  doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
6001  nparams, doublereal *params, doublecomplex *work, doublereal *rwork,
6002  integer *info);
6003 
6004 /* Subroutine */ int zhetd2_(char *uplo, integer *n, doublecomplex *a,
6005  integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau,
6006  integer *info);
6007 
6008 /* Subroutine */ int zhetf2_(char *uplo, integer *n, doublecomplex *a,
6009  integer *lda, integer *ipiv, integer *info);
6010 
6011 /* Subroutine */ int zhetrd_(char *uplo, integer *n, doublecomplex *a,
6012  integer *lda, doublereal *d__, doublereal *e, doublecomplex *tau,
6013  doublecomplex *work, integer *lwork, integer *info);
6014 
6015 /* Subroutine */ int zhetrf_(char *uplo, integer *n, doublecomplex *a,
6016  integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
6017  integer *info);
6018 
6019 /* Subroutine */ int zhetri_(char *uplo, integer *n, doublecomplex *a,
6020  integer *lda, integer *ipiv, doublecomplex *work, integer *info);
6021 
6022 /* Subroutine */ int zhetrs_(char *uplo, integer *n, integer *nrhs,
6023  doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
6024  integer *ldb, integer *info);
6025 
6026 /* Subroutine */ int zhfrk_(char *transr, char *uplo, char *trans, integer *n,
6027  integer *k, doublereal *alpha, doublecomplex *a, integer *lda,
6028  doublereal *beta, doublecomplex *c__);
6029 
6030 /* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, integer *n,
6031  integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
6032  doublecomplex *t, integer *ldt, doublecomplex *alpha, doublecomplex *
6033  beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
6034  ldz, doublecomplex *work, integer *lwork, doublereal *rwork, integer *
6035  info);
6036 
6037 /* Subroutine */ int zhpcon_(char *uplo, integer *n, doublecomplex *ap,
6038  integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
6039  work, integer *info);
6040 
6041 /* Subroutine */ int zhpev_(char *jobz, char *uplo, integer *n, doublecomplex
6042  *ap, doublereal *w, doublecomplex *z__, integer *ldz, doublecomplex *
6043  work, doublereal *rwork, integer *info);
6044 
6045 /* Subroutine */ int zhpevd_(char *jobz, char *uplo, integer *n,
6046  doublecomplex *ap, doublereal *w, doublecomplex *z__, integer *ldz,
6047  doublecomplex *work, integer *lwork, doublereal *rwork, integer *
6048  lrwork, integer *iwork, integer *liwork, integer *info);
6049 
6050 /* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, integer *n,
6051  doublecomplex *ap, doublereal *vl, doublereal *vu, integer *il,
6052  integer *iu, doublereal *abstol, integer *m, doublereal *w,
6053  doublecomplex *z__, integer *ldz, doublecomplex *work, doublereal *
6054  rwork, integer *iwork, integer *ifail, integer *info);
6055 
6056 /* Subroutine */ int zhpgst_(integer *itype, char *uplo, integer *n,
6057  doublecomplex *ap, doublecomplex *bp, integer *info);
6058 
6059 /* Subroutine */ int zhpgv_(integer *itype, char *jobz, char *uplo, integer *
6060  n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex
6061  *z__, integer *ldz, doublecomplex *work, doublereal *rwork, integer *
6062  info);
6063 
6064 /* Subroutine */ int zhpgvd_(integer *itype, char *jobz, char *uplo, integer *
6065  n, doublecomplex *ap, doublecomplex *bp, doublereal *w, doublecomplex
6066  *z__, integer *ldz, doublecomplex *work, integer *lwork, doublereal *
6067  rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
6068  info);
6069 
6070 /* Subroutine */ int zhpgvx_(integer *itype, char *jobz, char *range, char *
6071  uplo, integer *n, doublecomplex *ap, doublecomplex *bp, doublereal *
6072  vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
6073  integer *m, doublereal *w, doublecomplex *z__, integer *ldz,
6074  doublecomplex *work, doublereal *rwork, integer *iwork, integer *
6075  ifail, integer *info);
6076 
6077 /* Subroutine */ int zhprfs_(char *uplo, integer *n, integer *nrhs,
6078  doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
6079  b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
6080  doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
6081  info);
6082 
6083 /* Subroutine */ int zhpsv_(char *uplo, integer *n, integer *nrhs,
6084  doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
6085  integer *info);
6086 
6087 /* Subroutine */ int zhpsvx_(char *fact, char *uplo, integer *n, integer *
6088  nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv,
6089  doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6090  doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
6091  work, doublereal *rwork, integer *info);
6092 
6093 /* Subroutine */ int zhptrd_(char *uplo, integer *n, doublecomplex *ap,
6094  doublereal *d__, doublereal *e, doublecomplex *tau, integer *info);
6095 
6096 /* Subroutine */ int zhptrf_(char *uplo, integer *n, doublecomplex *ap,
6097  integer *ipiv, integer *info);
6098 
6099 /* Subroutine */ int zhptri_(char *uplo, integer *n, doublecomplex *ap,
6100  integer *ipiv, doublecomplex *work, integer *info);
6101 
6102 /* Subroutine */ int zhptrs_(char *uplo, integer *n, integer *nrhs,
6103  doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
6104  integer *info);
6105 
6106 /* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical *
6107  select, integer *n, doublecomplex *h__, integer *ldh, doublecomplex *
6108  w, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *ldvr,
6109  integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
6110  integer *ifaill, integer *ifailr, integer *info);
6111 
6112 /* Subroutine */ int zhseqr_(char *job, char *compz, integer *n, integer *ilo,
6113  integer *ihi, doublecomplex *h__, integer *ldh, doublecomplex *w,
6114  doublecomplex *z__, integer *ldz, doublecomplex *work, integer *lwork,
6115  integer *info);
6116 
6117 /* Subroutine */ int zla_gbamv__(integer *trans, integer *m, integer *n,
6118  integer *kl, integer *ku, doublereal *alpha, doublecomplex *ab,
6119  integer *ldab, doublecomplex *x, integer *incx, doublereal *beta,
6120  doublereal *y, integer *incy);
6121 
6122 doublereal zla_gbrcond_c__(char *trans, integer *n, integer *kl, integer *ku,
6123  doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb,
6124  integer *ipiv, doublereal *c__, logical *capply, integer *info,
6125  doublecomplex *work, doublereal *rwork, ftnlen trans_len);
6126 
6127 doublereal zla_gbrcond_x__(char *trans, integer *n, integer *kl, integer *ku,
6128  doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb,
6129  integer *ipiv, doublecomplex *x, integer *info, doublecomplex *work,
6130  doublereal *rwork, ftnlen trans_len);
6131 
6132 /* Subroutine */ int zla_gbrfsx_extended__(integer *prec_type__, integer *
6133  trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
6134  doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *ldafb,
6135  integer *ipiv, logical *colequ, doublereal *c__, doublecomplex *b,
6136  integer *ldb, doublecomplex *y, integer *ldy, doublereal *berr_out__,
6137  integer *n_norms__, doublereal *errs_n__, doublereal *errs_c__,
6138  doublecomplex *res, doublereal *ayb, doublecomplex *dy, doublecomplex
6139  *y_tail__, doublereal *rcond, integer *ithresh, doublereal *rthresh,
6140  doublereal *dz_ub__, logical *ignore_cwise__, integer *info);
6141 
6142 doublereal zla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *
6143  ncols, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
6144  ldafb);
6145 
6146 /* Subroutine */ int zla_geamv__(integer *trans, integer *m, integer *n,
6147  doublereal *alpha, doublecomplex *a, integer *lda, doublecomplex *x,
6148  integer *incx, doublereal *beta, doublereal *y, integer *incy);
6149 
6150 doublereal zla_gercond_c__(char *trans, integer *n, doublecomplex *a, integer
6151  *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *
6152  c__, logical *capply, integer *info, doublecomplex *work, doublereal *
6153  rwork, ftnlen trans_len);
6154 
6155 doublereal zla_gercond_x__(char *trans, integer *n, doublecomplex *a, integer
6156  *lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
6157  x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen
6158  trans_len);
6159 
6160 /* Subroutine */ int zla_gerfsx_extended__(integer *prec_type__, integer *
6161  trans_type__, integer *n, integer *nrhs, doublecomplex *a, integer *
6162  lda, doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ,
6163  doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y,
6164  integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
6165  errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb,
6166  doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond,
6167  integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
6168  ignore_cwise__, integer *info);
6169 
6170 /* Subroutine */ int zla_heamv__(integer *uplo, integer *n, doublereal *alpha,
6171  doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
6172  doublereal *beta, doublereal *y, integer *incy);
6173 
6174 doublereal zla_hercond_c__(char *uplo, integer *n, doublecomplex *a, integer *
6175  lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__,
6176  logical *capply, integer *info, doublecomplex *work, doublereal *
6177  rwork, ftnlen uplo_len);
6178 
6179 doublereal zla_hercond_x__(char *uplo, integer *n, doublecomplex *a, integer *
6180  lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
6181  x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen
6182  uplo_len);
6183 
6184 /* Subroutine */ int zla_herfsx_extended__(integer *prec_type__, char *uplo,
6185  integer *n, integer *nrhs, doublecomplex *a, integer *lda,
6186  doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ,
6187  doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y,
6188  integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
6189  errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb,
6190  doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond,
6191  integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
6192  ignore_cwise__, integer *info, ftnlen uplo_len);
6193 
6194 doublereal zla_herpvgrw__(char *uplo, integer *n, integer *info,
6195  doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
6196  integer *ipiv, doublereal *work, ftnlen uplo_len);
6197 
6198 /* Subroutine */ int zla_lin_berr__(integer *n, integer *nz, integer *nrhs,
6199  doublecomplex *res, doublereal *ayb, doublereal *berr);
6200 
6201 doublereal zla_porcond_c__(char *uplo, integer *n, doublecomplex *a, integer *
6202  lda, doublecomplex *af, integer *ldaf, doublereal *c__, logical *
6203  capply, integer *info, doublecomplex *work, doublereal *rwork, ftnlen
6204  uplo_len);
6205 
6206 doublereal zla_porcond_x__(char *uplo, integer *n, doublecomplex *a, integer *
6207  lda, doublecomplex *af, integer *ldaf, doublecomplex *x, integer *
6208  info, doublecomplex *work, doublereal *rwork, ftnlen uplo_len);
6209 
6210 /* Subroutine */ int zla_porfsx_extended__(integer *prec_type__, char *uplo,
6211  integer *n, integer *nrhs, doublecomplex *a, integer *lda,
6212  doublecomplex *af, integer *ldaf, logical *colequ, doublereal *c__,
6213  doublecomplex *b, integer *ldb, doublecomplex *y, integer *ldy,
6214  doublereal *berr_out__, integer *n_norms__, doublereal *errs_n__,
6215  doublereal *errs_c__, doublecomplex *res, doublereal *ayb,
6216  doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond,
6217  integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
6218  ignore_cwise__, integer *info, ftnlen uplo_len);
6219 
6220 doublereal zla_porpvgrw__(char *uplo, integer *ncols, doublecomplex *a,
6221  integer *lda, doublecomplex *af, integer *ldaf, doublereal *work,
6222  ftnlen uplo_len);
6223 
6224 doublereal zla_rpvgrw__(integer *n, integer *ncols, doublecomplex *a, integer
6225  *lda, doublecomplex *af, integer *ldaf);
6226 
6227 /* Subroutine */ int zla_syamv__(integer *uplo, integer *n, doublereal *alpha,
6228  doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
6229  doublereal *beta, doublereal *y, integer *incy);
6230 
6231 doublereal zla_syrcond_c__(char *uplo, integer *n, doublecomplex *a, integer *
6232  lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublereal *c__,
6233  logical *capply, integer *info, doublecomplex *work, doublereal *
6234  rwork, ftnlen uplo_len);
6235 
6236 doublereal zla_syrcond_x__(char *uplo, integer *n, doublecomplex *a, integer *
6237  lda, doublecomplex *af, integer *ldaf, integer *ipiv, doublecomplex *
6238  x, integer *info, doublecomplex *work, doublereal *rwork, ftnlen
6239  uplo_len);
6240 
6241 /* Subroutine */ int zla_syrfsx_extended__(integer *prec_type__, char *uplo,
6242  integer *n, integer *nrhs, doublecomplex *a, integer *lda,
6243  doublecomplex *af, integer *ldaf, integer *ipiv, logical *colequ,
6244  doublereal *c__, doublecomplex *b, integer *ldb, doublecomplex *y,
6245  integer *ldy, doublereal *berr_out__, integer *n_norms__, doublereal *
6246  errs_n__, doublereal *errs_c__, doublecomplex *res, doublereal *ayb,
6247  doublecomplex *dy, doublecomplex *y_tail__, doublereal *rcond,
6248  integer *ithresh, doublereal *rthresh, doublereal *dz_ub__, logical *
6249  ignore_cwise__, integer *info, ftnlen uplo_len);
6250 
6251 doublereal zla_syrpvgrw__(char *uplo, integer *n, integer *info,
6252  doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
6253  integer *ipiv, doublereal *work, ftnlen uplo_len);
6254 
6255 /* Subroutine */ int zla_wwaddw__(integer *n, doublecomplex *x, doublecomplex
6256  *y, doublecomplex *w);
6257 
6258 /* Subroutine */ int zlabrd_(integer *m, integer *n, integer *nb,
6259  doublecomplex *a, integer *lda, doublereal *d__, doublereal *e,
6260  doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, integer *
6261  ldx, doublecomplex *y, integer *ldy);
6262 
6263 /* Subroutine */ int zlacgv_(integer *n, doublecomplex *x, integer *incx);
6264 
6265 /* Subroutine */ int zlacn2_(integer *n, doublecomplex *v, doublecomplex *x,
6266  doublereal *est, integer *kase, integer *isave);
6267 
6268 /* Subroutine */ int zlacon_(integer *n, doublecomplex *v, doublecomplex *x,
6269  doublereal *est, integer *kase);
6270 
6271 /* Subroutine */ int zlacp2_(char *uplo, integer *m, integer *n, doublereal *
6272  a, integer *lda, doublecomplex *b, integer *ldb);
6273 
6274 /* Subroutine */ int zlacpy_(char *uplo, integer *m, integer *n,
6275  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb);
6276 
6277 /* Subroutine */ int zlacrm_(integer *m, integer *n, doublecomplex *a,
6278  integer *lda, doublereal *b, integer *ldb, doublecomplex *c__,
6279  integer *ldc, doublereal *rwork);
6280 
6281 /* Subroutine */ int zlacrt_(integer *n, doublecomplex *cx, integer *incx,
6282  doublecomplex *cy, integer *incy, doublecomplex *c__, doublecomplex *
6283  s);
6284 
6285 /* Double Complex */ VOID zladiv_(doublecomplex * ret_val, doublecomplex *x,
6286  doublecomplex *y);
6287 
6288 /* Subroutine */ int zlaed0_(integer *qsiz, integer *n, doublereal *d__,
6289  doublereal *e, doublecomplex *q, integer *ldq, doublecomplex *qstore,
6290  integer *ldqs, doublereal *rwork, integer *iwork, integer *info);
6291 
6292 /* Subroutine */ int zlaed7_(integer *n, integer *cutpnt, integer *qsiz,
6293  integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
6294  doublecomplex *q, integer *ldq, doublereal *rho, integer *indxq,
6295  doublereal *qstore, integer *qptr, integer *prmptr, integer *perm,
6296  integer *givptr, integer *givcol, doublereal *givnum, doublecomplex *
6297  work, doublereal *rwork, integer *iwork, integer *info);
6298 
6299 /* Subroutine */ int zlaed8_(integer *k, integer *n, integer *qsiz,
6300  doublecomplex *q, integer *ldq, doublereal *d__, doublereal *rho,
6301  integer *cutpnt, doublereal *z__, doublereal *dlamda, doublecomplex *
6302  q2, integer *ldq2, doublereal *w, integer *indxp, integer *indx,
6303  integer *indxq, integer *perm, integer *givptr, integer *givcol,
6304  doublereal *givnum, integer *info);
6305 
6306 /* Subroutine */ int zlaein_(logical *rightv, logical *noinit, integer *n,
6307  doublecomplex *h__, integer *ldh, doublecomplex *w, doublecomplex *v,
6308  doublecomplex *b, integer *ldb, doublereal *rwork, doublereal *eps3,
6309  doublereal *smlnum, integer *info);
6310 
6311 /* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b,
6312  doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2,
6313  doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
6314 
6315 /* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b,
6316  doublecomplex *c__, doublereal *rt1, doublereal *rt2, doublereal *cs1,
6317  doublecomplex *sn1);
6318 
6319 /* Subroutine */ int zlag2c_(integer *m, integer *n, doublecomplex *a,
6320  integer *lda, complex *sa, integer *ldsa, integer *info);
6321 
6322 /* Subroutine */ int zlags2_(logical *upper, doublereal *a1, doublecomplex *
6323  a2, doublereal *a3, doublereal *b1, doublecomplex *b2, doublereal *b3,
6324  doublereal *csu, doublecomplex *snu, doublereal *csv, doublecomplex *
6325  snv, doublereal *csq, doublecomplex *snq);
6326 
6327 /* Subroutine */ int zlagtm_(char *trans, integer *n, integer *nrhs,
6328  doublereal *alpha, doublecomplex *dl, doublecomplex *d__,
6329  doublecomplex *du, doublecomplex *x, integer *ldx, doublereal *beta,
6330  doublecomplex *b, integer *ldb);
6331 
6332 /* Subroutine */ int zlahef_(char *uplo, integer *n, integer *nb, integer *kb,
6333  doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w,
6334  integer *ldw, integer *info);
6335 
6336 /* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, integer *n,
6337  integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
6338  doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__,
6339  integer *ldz, integer *info);
6340 
6341 /* Subroutine */ int zlahr2_(integer *n, integer *k, integer *nb,
6342  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t,
6343  integer *ldt, doublecomplex *y, integer *ldy);
6344 
6345 /* Subroutine */ int zlahrd_(integer *n, integer *k, integer *nb,
6346  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *t,
6347  integer *ldt, doublecomplex *y, integer *ldy);
6348 
6349 /* Subroutine */ int zlaic1_(integer *job, integer *j, doublecomplex *x,
6350  doublereal *sest, doublecomplex *w, doublecomplex *gamma, doublereal *
6351  sestpr, doublecomplex *s, doublecomplex *c__);
6352 
6353 /* Subroutine */ int zlals0_(integer *icompq, integer *nl, integer *nr,
6354  integer *sqre, integer *nrhs, doublecomplex *b, integer *ldb,
6355  doublecomplex *bx, integer *ldbx, integer *perm, integer *givptr,
6356  integer *givcol, integer *ldgcol, doublereal *givnum, integer *ldgnum,
6357  doublereal *poles, doublereal *difl, doublereal *difr, doublereal *
6358  z__, integer *k, doublereal *c__, doublereal *s, doublereal *rwork,
6359  integer *info);
6360 
6361 /* Subroutine */ int zlalsa_(integer *icompq, integer *smlsiz, integer *n,
6362  integer *nrhs, doublecomplex *b, integer *ldb, doublecomplex *bx,
6363  integer *ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *
6364  k, doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
6365  poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
6366  perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
6367  rwork, integer *iwork, integer *info);
6368 
6369 /* Subroutine */ int zlalsd_(char *uplo, integer *smlsiz, integer *n, integer
6370  *nrhs, doublereal *d__, doublereal *e, doublecomplex *b, integer *ldb,
6371  doublereal *rcond, integer *rank, doublecomplex *work, doublereal *
6372  rwork, integer *iwork, integer *info);
6373 
6374 doublereal zlangb_(char *norm, integer *n, integer *kl, integer *ku,
6375  doublecomplex *ab, integer *ldab, doublereal *work);
6376 
6377 doublereal zlange_(char *norm, integer *m, integer *n, doublecomplex *a,
6378  integer *lda, doublereal *work);
6379 
6380 doublereal zlangt_(char *norm, integer *n, doublecomplex *dl, doublecomplex *
6381  d__, doublecomplex *du);
6382 
6383 doublereal zlanhb_(char *norm, char *uplo, integer *n, integer *k,
6384  doublecomplex *ab, integer *ldab, doublereal *work);
6385 
6386 doublereal zlanhe_(char *norm, char *uplo, integer *n, doublecomplex *a,
6387  integer *lda, doublereal *work);
6388 
6389 doublereal zlanhf_(char *norm, char *transr, char *uplo, integer *n,
6390  doublecomplex *a, doublereal *work);
6391 
6392 doublereal zlanhp_(char *norm, char *uplo, integer *n, doublecomplex *ap,
6393  doublereal *work);
6394 
6395 doublereal zlanhs_(char *norm, integer *n, doublecomplex *a, integer *lda,
6396  doublereal *work);
6397 
6398 doublereal zlanht_(char *norm, integer *n, doublereal *d__, doublecomplex *e);
6399 
6400 doublereal zlansb_(char *norm, char *uplo, integer *n, integer *k,
6401  doublecomplex *ab, integer *ldab, doublereal *work);
6402 
6403 doublereal zlansp_(char *norm, char *uplo, integer *n, doublecomplex *ap,
6404  doublereal *work);
6405 
6406 doublereal zlansy_(char *norm, char *uplo, integer *n, doublecomplex *a,
6407  integer *lda, doublereal *work);
6408 
6409 doublereal zlantb_(char *norm, char *uplo, char *diag, integer *n, integer *k,
6410  doublecomplex *ab, integer *ldab, doublereal *work);
6411 
6412 doublereal zlantp_(char *norm, char *uplo, char *diag, integer *n,
6413  doublecomplex *ap, doublereal *work);
6414 
6415 doublereal zlantr_(char *norm, char *uplo, char *diag, integer *m, integer *n,
6416  doublecomplex *a, integer *lda, doublereal *work);
6417 
6418 /* Subroutine */ int zlapll_(integer *n, doublecomplex *x, integer *incx,
6419  doublecomplex *y, integer *incy, doublereal *ssmin);
6420 
6421 /* Subroutine */ int zlapmt_(logical *forwrd, integer *m, integer *n,
6422  doublecomplex *x, integer *ldx, integer *k);
6423 
6424 /* Subroutine */ int zlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
6425  doublecomplex *ab, integer *ldab, doublereal *r__, doublereal *c__,
6426  doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
6427 
6428 /* Subroutine */ int zlaqge_(integer *m, integer *n, doublecomplex *a,
6429  integer *lda, doublereal *r__, doublereal *c__, doublereal *rowcnd,
6430  doublereal *colcnd, doublereal *amax, char *equed);
6431 
6432 /* Subroutine */ int zlaqhb_(char *uplo, integer *n, integer *kd,
6433  doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
6434  doublereal *amax, char *equed);
6435 
6436 /* Subroutine */ int zlaqhe_(char *uplo, integer *n, doublecomplex *a,
6437  integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
6438  char *equed);
6439 
6440 /* Subroutine */ int zlaqhp_(char *uplo, integer *n, doublecomplex *ap,
6441  doublereal *s, doublereal *scond, doublereal *amax, char *equed);
6442 
6443 /* Subroutine */ int zlaqp2_(integer *m, integer *n, integer *offset,
6444  doublecomplex *a, integer *lda, integer *jpvt, doublecomplex *tau,
6445  doublereal *vn1, doublereal *vn2, doublecomplex *work);
6446 
6447 /* Subroutine */ int zlaqps_(integer *m, integer *n, integer *offset, integer
6448  *nb, integer *kb, doublecomplex *a, integer *lda, integer *jpvt,
6449  doublecomplex *tau, doublereal *vn1, doublereal *vn2, doublecomplex *
6450  auxv, doublecomplex *f, integer *ldf);
6451 
6452 /* Subroutine */ int zlaqr0_(logical *wantt, logical *wantz, integer *n,
6453  integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
6454  doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__,
6455  integer *ldz, doublecomplex *work, integer *lwork, integer *info);
6456 
6457 /* Subroutine */ int zlaqr1_(integer *n, doublecomplex *h__, integer *ldh,
6459 
6460 /* Subroutine */ int zlaqr2_(logical *wantt, logical *wantz, integer *n,
6461  integer *ktop, integer *kbot, integer *nw, doublecomplex *h__,
6462  integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__,
6463  integer *ldz, integer *ns, integer *nd, doublecomplex *sh,
6464  doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t,
6465  integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv,
6466  doublecomplex *work, integer *lwork);
6467 
6468 /* Subroutine */ int zlaqr3_(logical *wantt, logical *wantz, integer *n,
6469  integer *ktop, integer *kbot, integer *nw, doublecomplex *h__,
6470  integer *ldh, integer *iloz, integer *ihiz, doublecomplex *z__,
6471  integer *ldz, integer *ns, integer *nd, doublecomplex *sh,
6472  doublecomplex *v, integer *ldv, integer *nh, doublecomplex *t,
6473  integer *ldt, integer *nv, doublecomplex *wv, integer *ldwv,
6474  doublecomplex *work, integer *lwork);
6475 
6476 /* Subroutine */ int zlaqr4_(logical *wantt, logical *wantz, integer *n,
6477  integer *ilo, integer *ihi, doublecomplex *h__, integer *ldh,
6478  doublecomplex *w, integer *iloz, integer *ihiz, doublecomplex *z__,
6479  integer *ldz, doublecomplex *work, integer *lwork, integer *info);
6480 
6481 /* Subroutine */ int zlaqr5_(logical *wantt, logical *wantz, integer *kacc22,
6482  integer *n, integer *ktop, integer *kbot, integer *nshfts,
6483  doublecomplex *s, doublecomplex *h__, integer *ldh, integer *iloz,
6484  integer *ihiz, doublecomplex *z__, integer *ldz, doublecomplex *v,
6485  integer *ldv, doublecomplex *u, integer *ldu, integer *nv,
6486  doublecomplex *wv, integer *ldwv, integer *nh, doublecomplex *wh,
6487  integer *ldwh);
6488 
6489 /* Subroutine */ int zlaqsb_(char *uplo, integer *n, integer *kd,
6490  doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
6491  doublereal *amax, char *equed);
6492 
6493 /* Subroutine */ int zlaqsp_(char *uplo, integer *n, doublecomplex *ap,
6494  doublereal *s, doublereal *scond, doublereal *amax, char *equed);
6495 
6496 /* Subroutine */ int zlaqsy_(char *uplo, integer *n, doublecomplex *a,
6497  integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
6498  char *equed);
6499 
6500 /* Subroutine */ int zlar1v_(integer *n, integer *b1, integer *bn, doublereal
6501  *lambda, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
6502  lld, doublereal *pivmin, doublereal *gaptol, doublecomplex *z__,
6503  logical *wantnc, integer *negcnt, doublereal *ztz, doublereal *mingma,
6504  integer *r__, integer *isuppz, doublereal *nrminv, doublereal *resid,
6505  doublereal *rqcorr, doublereal *work);
6506 
6507 /* Subroutine */ int zlar2v_(integer *n, doublecomplex *x, doublecomplex *y,
6508  doublecomplex *z__, integer *incx, doublereal *c__, doublecomplex *s,
6509  integer *incc);
6510 
6511 /* Subroutine */ int zlarcm_(integer *m, integer *n, doublereal *a, integer *
6512  lda, doublecomplex *b, integer *ldb, doublecomplex *c__, integer *ldc,
6513  doublereal *rwork);
6514 
6515 /* Subroutine */ int zlarf_(char *side, integer *m, integer *n, doublecomplex
6516  *v, integer *incv, doublecomplex *tau, doublecomplex *c__, integer *
6517  ldc, doublecomplex *work);
6518 
6519 /* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char *
6520  storev, integer *m, integer *n, integer *k, doublecomplex *v, integer
6521  *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__, integer *
6522  ldc, doublecomplex *work, integer *ldwork);
6523 
6524 /* Subroutine */ int zlarfg_(integer *n, doublecomplex *alpha, doublecomplex *
6525  x, integer *incx, doublecomplex *tau);
6526 
6527 /* Subroutine */ int zlarfp_(integer *n, doublecomplex *alpha, doublecomplex *
6528  x, integer *incx, doublecomplex *tau);
6529 
6530 /* Subroutine */ int zlarft_(char *direct, char *storev, integer *n, integer *
6531  k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
6532  t, integer *ldt);
6533 
6534 /* Subroutine */ int zlarfx_(char *side, integer *m, integer *n,
6535  doublecomplex *v, doublecomplex *tau, doublecomplex *c__, integer *
6536  ldc, doublecomplex *work);
6537 
6538 /* Subroutine */ int zlargv_(integer *n, doublecomplex *x, integer *incx,
6539  doublecomplex *y, integer *incy, doublereal *c__, integer *incc);
6540 
6541 /* Subroutine */ int zlarnv_(integer *idist, integer *iseed, integer *n,
6542  doublecomplex *x);
6543 
6544 /* Subroutine */ int zlarrv_(integer *n, doublereal *vl, doublereal *vu,
6545  doublereal *d__, doublereal *l, doublereal *pivmin, integer *isplit,
6546  integer *m, integer *dol, integer *dou, doublereal *minrgp,
6547  doublereal *rtol1, doublereal *rtol2, doublereal *w, doublereal *werr,
6548  doublereal *wgap, integer *iblock, integer *indexw, doublereal *gers,
6549  doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work,
6550  integer *iwork, integer *info);
6551 
6552 /* Subroutine */ int zlarscl2_(integer *m, integer *n, doublereal *d__,
6553  doublecomplex *x, integer *ldx);
6554 
6555 /* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, doublereal *
6556  cs, doublecomplex *sn, doublecomplex *r__);
6557 
6558 /* Subroutine */ int zlartv_(integer *n, doublecomplex *x, integer *incx,
6559  doublecomplex *y, integer *incy, doublereal *c__, doublecomplex *s,
6560  integer *incc);
6561 
6562 /* Subroutine */ int zlarz_(char *side, integer *m, integer *n, integer *l,
6563  doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
6564  c__, integer *ldc, doublecomplex *work);
6565 
6566 /* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char *
6567  storev, integer *m, integer *n, integer *k, integer *l, doublecomplex
6568  *v, integer *ldv, doublecomplex *t, integer *ldt, doublecomplex *c__,
6569  integer *ldc, doublecomplex *work, integer *ldwork);
6570 
6571 /* Subroutine */ int zlarzt_(char *direct, char *storev, integer *n, integer *
6572  k, doublecomplex *v, integer *ldv, doublecomplex *tau, doublecomplex *
6573  t, integer *ldt);
6574 
6575 /* Subroutine */ int zlascl_(char *type__, integer *kl, integer *ku,
6576  doublereal *cfrom, doublereal *cto, integer *m, integer *n,
6577  doublecomplex *a, integer *lda, integer *info);
6578 
6579 /* Subroutine */ int zlascl2_(integer *m, integer *n, doublereal *d__,
6580  doublecomplex *x, integer *ldx);
6581 
6582 /* Subroutine */ int zlaset_(char *uplo, integer *m, integer *n,
6583  doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, integer *
6584  lda);
6585 
6586 /* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, integer *m,
6587  integer *n, doublereal *c__, doublereal *s, doublecomplex *a,
6588  integer *lda);
6589 
6590 /* Subroutine */ int zlassq_(integer *n, doublecomplex *x, integer *incx,
6591  doublereal *scale, doublereal *sumsq);
6592 
6593 /* Subroutine */ int zlaswp_(integer *n, doublecomplex *a, integer *lda,
6594  integer *k1, integer *k2, integer *ipiv, integer *incx);
6595 
6596 /* Subroutine */ int zlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
6597  doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *w,
6598  integer *ldw, integer *info);
6599 
6600 /* Subroutine */ int zlat2c_(char *uplo, integer *n, doublecomplex *a,
6601  integer *lda, complex *sa, integer *ldsa, integer *info);
6602 
6603 /* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char *
6604  normin, integer *n, integer *kd, doublecomplex *ab, integer *ldab,
6605  doublecomplex *x, doublereal *scale, doublereal *cnorm, integer *info);
6606 
6607 /* Subroutine */ int zlatdf_(integer *ijob, integer *n, doublecomplex *z__,
6608  integer *ldz, doublecomplex *rhs, doublereal *rdsum, doublereal *
6609  rdscal, integer *ipiv, integer *jpiv);
6610 
6611 /* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char *
6612  normin, integer *n, doublecomplex *ap, doublecomplex *x, doublereal *
6613  scale, doublereal *cnorm, integer *info);
6614 
6615 /* Subroutine */ int zlatrd_(char *uplo, integer *n, integer *nb,
6616  doublecomplex *a, integer *lda, doublereal *e, doublecomplex *tau,
6617  doublecomplex *w, integer *ldw);
6618 
6619 /* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char *
6620  normin, integer *n, doublecomplex *a, integer *lda, doublecomplex *x,
6621  doublereal *scale, doublereal *cnorm, integer *info);
6622 
6623 /* Subroutine */ int zlatrz_(integer *m, integer *n, integer *l,
6624  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
6625  work);
6626 
6627 /* Subroutine */ int zlatzm_(char *side, integer *m, integer *n,
6628  doublecomplex *v, integer *incv, doublecomplex *tau, doublecomplex *
6629  c1, doublecomplex *c2, integer *ldc, doublecomplex *work);
6630 
6631 /* Subroutine */ int zlauu2_(char *uplo, integer *n, doublecomplex *a,
6632  integer *lda, integer *info);
6633 
6634 /* Subroutine */ int zlauum_(char *uplo, integer *n, doublecomplex *a,
6635  integer *lda, integer *info);
6636 
6637 /* Subroutine */ int zpbcon_(char *uplo, integer *n, integer *kd,
6638  doublecomplex *ab, integer *ldab, doublereal *anorm, doublereal *
6639  rcond, doublecomplex *work, doublereal *rwork, integer *info);
6640 
6641 /* Subroutine */ int zpbequ_(char *uplo, integer *n, integer *kd,
6642  doublecomplex *ab, integer *ldab, doublereal *s, doublereal *scond,
6643  doublereal *amax, integer *info);
6644 
6645 /* Subroutine */ int zpbrfs_(char *uplo, integer *n, integer *kd, integer *
6646  nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb, integer *
6647  ldafb, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6648  doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
6649  rwork, integer *info);
6650 
6651 /* Subroutine */ int zpbstf_(char *uplo, integer *n, integer *kd,
6652  doublecomplex *ab, integer *ldab, integer *info);
6653 
6654 /* Subroutine */ int zpbsv_(char *uplo, integer *n, integer *kd, integer *
6655  nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
6656  ldb, integer *info);
6657 
6658 /* Subroutine */ int zpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
6659  integer *nrhs, doublecomplex *ab, integer *ldab, doublecomplex *afb,
6660  integer *ldafb, char *equed, doublereal *s, doublecomplex *b, integer
6661  *ldb, doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *
6662  ferr, doublereal *berr, doublecomplex *work, doublereal *rwork,
6663  integer *info);
6664 
6665 /* Subroutine */ int zpbtf2_(char *uplo, integer *n, integer *kd,
6666  doublecomplex *ab, integer *ldab, integer *info);
6667 
6668 /* Subroutine */ int zpbtrf_(char *uplo, integer *n, integer *kd,
6669  doublecomplex *ab, integer *ldab, integer *info);
6670 
6671 /* Subroutine */ int zpbtrs_(char *uplo, integer *n, integer *kd, integer *
6672  nrhs, doublecomplex *ab, integer *ldab, doublecomplex *b, integer *
6673  ldb, integer *info);
6674 
6675 /* Subroutine */ int zpftrf_(char *transr, char *uplo, integer *n,
6676  doublecomplex *a, integer *info);
6677 
6678 /* Subroutine */ int zpftri_(char *transr, char *uplo, integer *n,
6679  doublecomplex *a, integer *info);
6680 
6681 /* Subroutine */ int zpftrs_(char *transr, char *uplo, integer *n, integer *
6682  nrhs, doublecomplex *a, doublecomplex *b, integer *ldb, integer *info);
6683 
6684 /* Subroutine */ int zpocon_(char *uplo, integer *n, doublecomplex *a,
6685  integer *lda, doublereal *anorm, doublereal *rcond, doublecomplex *
6686  work, doublereal *rwork, integer *info);
6687 
6688 /* Subroutine */ int zpoequ_(integer *n, doublecomplex *a, integer *lda,
6689  doublereal *s, doublereal *scond, doublereal *amax, integer *info);
6690 
6691 /* Subroutine */ int zpoequb_(integer *n, doublecomplex *a, integer *lda,
6692  doublereal *s, doublereal *scond, doublereal *amax, integer *info);
6693 
6694 /* Subroutine */ int zporfs_(char *uplo, integer *n, integer *nrhs,
6695  doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
6696  doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6697  doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
6698  rwork, integer *info);
6699 
6700 /* Subroutine */ int zporfsx_(char *uplo, char *equed, integer *n, integer *
6701  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6702  ldaf, doublereal *s, doublecomplex *b, integer *ldb, doublecomplex *x,
6703  integer *ldx, doublereal *rcond, doublereal *berr, integer *
6704  n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
6705  err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
6706  work, doublereal *rwork, integer *info);
6707 
6708 /* Subroutine */ int zposv_(char *uplo, integer *n, integer *nrhs,
6709  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
6710  integer *info);
6711 
6712 /* Subroutine */ int zposvx_(char *fact, char *uplo, integer *n, integer *
6713  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6714  ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb,
6715  doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *ferr,
6716  doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
6717  info);
6718 
6719 /* Subroutine */ int zposvxx_(char *fact, char *uplo, integer *n, integer *
6720  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6721  ldaf, char *equed, doublereal *s, doublecomplex *b, integer *ldb,
6722  doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *rpvgrw,
6723  doublereal *berr, integer *n_err_bnds__, doublereal *err_bnds_norm__,
6724  doublereal *err_bnds_comp__, integer *nparams, doublereal *params,
6725  doublecomplex *work, doublereal *rwork, integer *info);
6726 
6727 /* Subroutine */ int zpotf2_(char *uplo, integer *n, doublecomplex *a,
6728  integer *lda, integer *info);
6729 
6730 /* Subroutine */ int zpotrf_(char *uplo, integer *n, doublecomplex *a,
6731  integer *lda, integer *info);
6732 
6733 /* Subroutine */ int zpotri_(char *uplo, integer *n, doublecomplex *a,
6734  integer *lda, integer *info);
6735 
6736 /* Subroutine */ int zpotrs_(char *uplo, integer *n, integer *nrhs,
6737  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
6738  integer *info);
6739 
6740 /* Subroutine */ int zppcon_(char *uplo, integer *n, doublecomplex *ap,
6741  doublereal *anorm, doublereal *rcond, doublecomplex *work, doublereal
6742  *rwork, integer *info);
6743 
6744 /* Subroutine */ int zppequ_(char *uplo, integer *n, doublecomplex *ap,
6745  doublereal *s, doublereal *scond, doublereal *amax, integer *info);
6746 
6747 /* Subroutine */ int zpprfs_(char *uplo, integer *n, integer *nrhs,
6748  doublecomplex *ap, doublecomplex *afp, doublecomplex *b, integer *ldb,
6749  doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
6750  doublecomplex *work, doublereal *rwork, integer *info);
6751 
6752 /* Subroutine */ int zppsv_(char *uplo, integer *n, integer *nrhs,
6753  doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
6754 
6755 /* Subroutine */ int zppsvx_(char *fact, char *uplo, integer *n, integer *
6756  nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, doublereal *
6757  s, doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6758  doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
6759  work, doublereal *rwork, integer *info);
6760 
6761 /* Subroutine */ int zpptrf_(char *uplo, integer *n, doublecomplex *ap,
6762  integer *info);
6763 
6764 /* Subroutine */ int zpptri_(char *uplo, integer *n, doublecomplex *ap,
6765  integer *info);
6766 
6767 /* Subroutine */ int zpptrs_(char *uplo, integer *n, integer *nrhs,
6768  doublecomplex *ap, doublecomplex *b, integer *ldb, integer *info);
6769 
6770 /* Subroutine */ int zpstf2_(char *uplo, integer *n, doublecomplex *a,
6771  integer *lda, integer *piv, integer *rank, doublereal *tol,
6772  doublereal *work, integer *info);
6773 
6774 /* Subroutine */ int zpstrf_(char *uplo, integer *n, doublecomplex *a,
6775  integer *lda, integer *piv, integer *rank, doublereal *tol,
6776  doublereal *work, integer *info);
6777 
6778 /* Subroutine */ int zptcon_(integer *n, doublereal *d__, doublecomplex *e,
6779  doublereal *anorm, doublereal *rcond, doublereal *rwork, integer *
6780  info);
6781 
6782 /* Subroutine */ int zpteqr_(char *compz, integer *n, doublereal *d__,
6783  doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work,
6784  integer *info);
6785 
6786 /* Subroutine */ int zptrfs_(char *uplo, integer *n, integer *nrhs,
6787  doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef,
6788  doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6789  doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
6790  rwork, integer *info);
6791 
6792 /* Subroutine */ int zptsv_(integer *n, integer *nrhs, doublereal *d__,
6793  doublecomplex *e, doublecomplex *b, integer *ldb, integer *info);
6794 
6795 /* Subroutine */ int zptsvx_(char *fact, integer *n, integer *nrhs,
6796  doublereal *d__, doublecomplex *e, doublereal *df, doublecomplex *ef,
6797  doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6798  doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
6799  work, doublereal *rwork, integer *info);
6800 
6801 /* Subroutine */ int zpttrf_(integer *n, doublereal *d__, doublecomplex *e,
6802  integer *info);
6803 
6804 /* Subroutine */ int zpttrs_(char *uplo, integer *n, integer *nrhs,
6805  doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb,
6806  integer *info);
6807 
6808 /* Subroutine */ int zptts2_(integer *iuplo, integer *n, integer *nrhs,
6809  doublereal *d__, doublecomplex *e, doublecomplex *b, integer *ldb);
6810 
6811 /* Subroutine */ int zrot_(integer *n, doublecomplex *cx, integer *incx,
6812  doublecomplex *cy, integer *incy, doublereal *c__, doublecomplex *s);
6813 
6814 /* Subroutine */ int zspcon_(char *uplo, integer *n, doublecomplex *ap,
6815  integer *ipiv, doublereal *anorm, doublereal *rcond, doublecomplex *
6816  work, integer *info);
6817 
6818 /* Subroutine */ int zspmv_(char *uplo, integer *n, doublecomplex *alpha,
6819  doublecomplex *ap, doublecomplex *x, integer *incx, doublecomplex *
6820  beta, doublecomplex *y, integer *incy);
6821 
6822 /* Subroutine */ int zspr_(char *uplo, integer *n, doublecomplex *alpha,
6823  doublecomplex *x, integer *incx, doublecomplex *ap);
6824 
6825 /* Subroutine */ int zsprfs_(char *uplo, integer *n, integer *nrhs,
6826  doublecomplex *ap, doublecomplex *afp, integer *ipiv, doublecomplex *
6827  b, integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
6828  doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
6829  info);
6830 
6831 /* Subroutine */ int zspsv_(char *uplo, integer *n, integer *nrhs,
6832  doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
6833  integer *info);
6834 
6835 /* Subroutine */ int zspsvx_(char *fact, char *uplo, integer *n, integer *
6836  nrhs, doublecomplex *ap, doublecomplex *afp, integer *ipiv,
6837  doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6838  doublereal *rcond, doublereal *ferr, doublereal *berr, doublecomplex *
6839  work, doublereal *rwork, integer *info);
6840 
6841 /* Subroutine */ int zsptrf_(char *uplo, integer *n, doublecomplex *ap,
6842  integer *ipiv, integer *info);
6843 
6844 /* Subroutine */ int zsptri_(char *uplo, integer *n, doublecomplex *ap,
6845  integer *ipiv, doublecomplex *work, integer *info);
6846 
6847 /* Subroutine */ int zsptrs_(char *uplo, integer *n, integer *nrhs,
6848  doublecomplex *ap, integer *ipiv, doublecomplex *b, integer *ldb,
6849  integer *info);
6850 
6851 /* Subroutine */ int zstedc_(char *compz, integer *n, doublereal *d__,
6852  doublereal *e, doublecomplex *z__, integer *ldz, doublecomplex *work,
6853  integer *lwork, doublereal *rwork, integer *lrwork, integer *iwork,
6854  integer *liwork, integer *info);
6855 
6856 /* Subroutine */ int zstegr_(char *jobz, char *range, integer *n, doublereal *
6857  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
6858  integer *iu, doublereal *abstol, integer *m, doublereal *w,
6859  doublecomplex *z__, integer *ldz, integer *isuppz, doublereal *work,
6860  integer *lwork, integer *iwork, integer *liwork, integer *info);
6861 
6862 /* Subroutine */ int zstein_(integer *n, doublereal *d__, doublereal *e,
6863  integer *m, doublereal *w, integer *iblock, integer *isplit,
6864  doublecomplex *z__, integer *ldz, doublereal *work, integer *iwork,
6865  integer *ifail, integer *info);
6866 
6867 /* Subroutine */ int zstemr_(char *jobz, char *range, integer *n, doublereal *
6868  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
6869  integer *iu, integer *m, doublereal *w, doublecomplex *z__, integer *
6870  ldz, integer *nzc, integer *isuppz, logical *tryrac, doublereal *work,
6871  integer *lwork, integer *iwork, integer *liwork, integer *info);
6872 
6873 /* Subroutine */ int zsteqr_(char *compz, integer *n, doublereal *d__,
6874  doublereal *e, doublecomplex *z__, integer *ldz, doublereal *work,
6875  integer *info);
6876 
6877 /* Subroutine */ int zsycon_(char *uplo, integer *n, doublecomplex *a,
6878  integer *lda, integer *ipiv, doublereal *anorm, doublereal *rcond,
6879  doublecomplex *work, integer *info);
6880 
6881 /* Subroutine */ int zsyequb_(char *uplo, integer *n, doublecomplex *a,
6882  integer *lda, doublereal *s, doublereal *scond, doublereal *amax,
6883  doublecomplex *work, integer *info);
6884 
6885 /* Subroutine */ int zsymv_(char *uplo, integer *n, doublecomplex *alpha,
6886  doublecomplex *a, integer *lda, doublecomplex *x, integer *incx,
6887  doublecomplex *beta, doublecomplex *y, integer *incy);
6888 
6889 /* Subroutine */ int zsyr_(char *uplo, integer *n, doublecomplex *alpha,
6890  doublecomplex *x, integer *incx, doublecomplex *a, integer *lda);
6891 
6892 /* Subroutine */ int zsyrfs_(char *uplo, integer *n, integer *nrhs,
6893  doublecomplex *a, integer *lda, doublecomplex *af, integer *ldaf,
6894  integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
6895  integer *ldx, doublereal *ferr, doublereal *berr, doublecomplex *work,
6896  doublereal *rwork, integer *info);
6897 
6898 /* Subroutine */ int zsyrfsx_(char *uplo, char *equed, integer *n, integer *
6899  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6900  ldaf, integer *ipiv, doublereal *s, doublecomplex *b, integer *ldb,
6901  doublecomplex *x, integer *ldx, doublereal *rcond, doublereal *berr,
6902  integer *n_err_bnds__, doublereal *err_bnds_norm__, doublereal *
6903  err_bnds_comp__, integer *nparams, doublereal *params, doublecomplex *
6904  work, doublereal *rwork, integer *info);
6905 
6906 /* Subroutine */ int zsysv_(char *uplo, integer *n, integer *nrhs,
6907  doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
6908  integer *ldb, doublecomplex *work, integer *lwork, integer *info);
6909 
6910 /* Subroutine */ int zsysvx_(char *fact, char *uplo, integer *n, integer *
6911  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6912  ldaf, integer *ipiv, doublecomplex *b, integer *ldb, doublecomplex *x,
6913  integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
6914  doublecomplex *work, integer *lwork, doublereal *rwork, integer *info);
6915 
6916 /* Subroutine */ int zsysvxx_(char *fact, char *uplo, integer *n, integer *
6917  nrhs, doublecomplex *a, integer *lda, doublecomplex *af, integer *
6918  ldaf, integer *ipiv, char *equed, doublereal *s, doublecomplex *b,
6919  integer *ldb, doublecomplex *x, integer *ldx, doublereal *rcond,
6920  doublereal *rpvgrw, doublereal *berr, integer *n_err_bnds__,
6921  doublereal *err_bnds_norm__, doublereal *err_bnds_comp__, integer *
6922  nparams, doublereal *params, doublecomplex *work, doublereal *rwork,
6923  integer *info);
6924 
6925 /* Subroutine */ int zsytf2_(char *uplo, integer *n, doublecomplex *a,
6926  integer *lda, integer *ipiv, integer *info);
6927 
6928 /* Subroutine */ int zsytrf_(char *uplo, integer *n, doublecomplex *a,
6929  integer *lda, integer *ipiv, doublecomplex *work, integer *lwork,
6930  integer *info);
6931 
6932 /* Subroutine */ int zsytri_(char *uplo, integer *n, doublecomplex *a,
6933  integer *lda, integer *ipiv, doublecomplex *work, integer *info);
6934 
6935 /* Subroutine */ int zsytrs_(char *uplo, integer *n, integer *nrhs,
6936  doublecomplex *a, integer *lda, integer *ipiv, doublecomplex *b,
6937  integer *ldb, integer *info);
6938 
6939 /* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, integer *n,
6940  integer *kd, doublecomplex *ab, integer *ldab, doublereal *rcond,
6941  doublecomplex *work, doublereal *rwork, integer *info);
6942 
6943 /* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, integer *n,
6944  integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab,
6945  doublecomplex *b, integer *ldb, doublecomplex *x, integer *ldx,
6946  doublereal *ferr, doublereal *berr, doublecomplex *work, doublereal *
6947  rwork, integer *info);
6948 
6949 /* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, integer *n,
6950  integer *kd, integer *nrhs, doublecomplex *ab, integer *ldab,
6951  doublecomplex *b, integer *ldb, integer *info);
6952 
6953 /* Subroutine */ int ztfsm_(char *transr, char *side, char *uplo, char *trans,
6954  char *diag, integer *m, integer *n, doublecomplex *alpha,
6955  doublecomplex *a, doublecomplex *b, integer *ldb);
6956 
6957 /* Subroutine */ int ztftri_(char *transr, char *uplo, char *diag, integer *n,
6958  doublecomplex *a, integer *info);
6959 
6960 /* Subroutine */ int ztfttp_(char *transr, char *uplo, integer *n,
6961  doublecomplex *arf, doublecomplex *ap, integer *info);
6962 
6963 /* Subroutine */ int ztfttr_(char *transr, char *uplo, integer *n,
6964  doublecomplex *arf, doublecomplex *a, integer *lda, integer *info);
6965 
6966 /* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select,
6967  integer *n, doublecomplex *s, integer *lds, doublecomplex *p, integer
6968  *ldp, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
6969  ldvr, integer *mm, integer *m, doublecomplex *work, doublereal *rwork,
6970  integer *info);
6971 
6972 /* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, integer *n,
6973  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
6974  doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz,
6975  integer *j1, integer *info);
6976 
6977 /* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, integer *n,
6978  doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
6979  doublecomplex *q, integer *ldq, doublecomplex *z__, integer *ldz,
6980  integer *ifst, integer *ilst, integer *info);
6981 
6982 /* Subroutine */ int ztgsen_(integer *ijob, logical *wantq, logical *wantz,
6983  logical *select, integer *n, doublecomplex *a, integer *lda,
6984  doublecomplex *b, integer *ldb, doublecomplex *alpha, doublecomplex *
6985  beta, doublecomplex *q, integer *ldq, doublecomplex *z__, integer *
6986  ldz, integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
6987  doublecomplex *work, integer *lwork, integer *iwork, integer *liwork,
6988  integer *info);
6989 
6990 /* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, integer *m,
6991  integer *p, integer *n, integer *k, integer *l, doublecomplex *a,
6992  integer *lda, doublecomplex *b, integer *ldb, doublereal *tola,
6993  doublereal *tolb, doublereal *alpha, doublereal *beta, doublecomplex *
6994  u, integer *ldu, doublecomplex *v, integer *ldv, doublecomplex *q,
6995  integer *ldq, doublecomplex *work, integer *ncycle, integer *info);
6996 
6997 /* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select,
6998  integer *n, doublecomplex *a, integer *lda, doublecomplex *b, integer
6999  *ldb, doublecomplex *vl, integer *ldvl, doublecomplex *vr, integer *
7000  ldvr, doublereal *s, doublereal *dif, integer *mm, integer *m,
7001  doublecomplex *work, integer *lwork, integer *iwork, integer *info);
7002 
7003 /* Subroutine */ int ztgsy2_(char *trans, integer *ijob, integer *m, integer *
7004  n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
7005  doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd,
7006  doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf,
7007  doublereal *scale, doublereal *rdsum, doublereal *rdscal, integer *
7008  info);
7009 
7010 /* Subroutine */ int ztgsyl_(char *trans, integer *ijob, integer *m, integer *
7011  n, doublecomplex *a, integer *lda, doublecomplex *b, integer *ldb,
7012  doublecomplex *c__, integer *ldc, doublecomplex *d__, integer *ldd,
7013  doublecomplex *e, integer *lde, doublecomplex *f, integer *ldf,
7014  doublereal *scale, doublereal *dif, doublecomplex *work, integer *
7015  lwork, integer *iwork, integer *info);
7016 
7017 /* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, integer *n,
7018  doublecomplex *ap, doublereal *rcond, doublecomplex *work, doublereal
7019  *rwork, integer *info);
7020 
7021 /* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, integer *n,
7022  integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
7023  doublecomplex *x, integer *ldx, doublereal *ferr, doublereal *berr,
7024  doublecomplex *work, doublereal *rwork, integer *info);
7025 
7026 /* Subroutine */ int ztptri_(char *uplo, char *diag, integer *n,
7027  doublecomplex *ap, integer *info);
7028 
7029 /* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, integer *n,
7030  integer *nrhs, doublecomplex *ap, doublecomplex *b, integer *ldb,
7031  integer *info);
7032 
7033 /* Subroutine */ int ztpttf_(char *transr, char *uplo, integer *n,
7034  doublecomplex *ap, doublecomplex *arf, integer *info);
7035 
7036 /* Subroutine */ int ztpttr_(char *uplo, integer *n, doublecomplex *ap,
7037  doublecomplex *a, integer *lda, integer *info);
7038 
7039 /* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, integer *n,
7040  doublecomplex *a, integer *lda, doublereal *rcond, doublecomplex *
7041  work, doublereal *rwork, integer *info);
7042 
7043 /* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select,
7044  integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl,
7045  integer *ldvl, doublecomplex *vr, integer *ldvr, integer *mm, integer
7046  *m, doublecomplex *work, doublereal *rwork, integer *info);
7047 
7048 /* Subroutine */ int ztrexc_(char *compq, integer *n, doublecomplex *t,
7049  integer *ldt, doublecomplex *q, integer *ldq, integer *ifst, integer *
7050  ilst, integer *info);
7051 
7052 /* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, integer *n,
7053  integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b,
7054  integer *ldb, doublecomplex *x, integer *ldx, doublereal *ferr,
7055  doublereal *berr, doublecomplex *work, doublereal *rwork, integer *
7056  info);
7057 
7058 /* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, integer
7059  *n, doublecomplex *t, integer *ldt, doublecomplex *q, integer *ldq,
7060  doublecomplex *w, integer *m, doublereal *s, doublereal *sep,
7061  doublecomplex *work, integer *lwork, integer *info);
7062 
7063 /* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select,
7064  integer *n, doublecomplex *t, integer *ldt, doublecomplex *vl,
7065  integer *ldvl, doublecomplex *vr, integer *ldvr, doublereal *s,
7066  doublereal *sep, integer *mm, integer *m, doublecomplex *work,
7067  integer *ldwork, doublereal *rwork, integer *info);
7068 
7069 /* Subroutine */ int ztrsyl_(char *trana, char *tranb, integer *isgn, integer
7070  *m, integer *n, doublecomplex *a, integer *lda, doublecomplex *b,
7071  integer *ldb, doublecomplex *c__, integer *ldc, doublereal *scale,
7072  integer *info);
7073 
7074 /* Subroutine */ int ztrti2_(char *uplo, char *diag, integer *n,
7075  doublecomplex *a, integer *lda, integer *info);
7076 
7077 /* Subroutine */ int ztrtri_(char *uplo, char *diag, integer *n,
7078  doublecomplex *a, integer *lda, integer *info);
7079 
7080 /* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, integer *n,
7081  integer *nrhs, doublecomplex *a, integer *lda, doublecomplex *b,
7082  integer *ldb, integer *info);
7083 
7084 /* Subroutine */ int ztrttf_(char *transr, char *uplo, integer *n,
7085  doublecomplex *a, integer *lda, doublecomplex *arf, integer *info);
7086 
7087 /* Subroutine */ int ztrttp_(char *uplo, integer *n, doublecomplex *a,
7088  integer *lda, doublecomplex *ap, integer *info);
7089 
7090 /* Subroutine */ int ztzrqf_(integer *m, integer *n, doublecomplex *a,
7091  integer *lda, doublecomplex *tau, integer *info);
7092 
7093 /* Subroutine */ int ztzrzf_(integer *m, integer *n, doublecomplex *a,
7094  integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
7095  integer *info);
7096 
7097 /* Subroutine */ int zung2l_(integer *m, integer *n, integer *k,
7098  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7099  work, integer *info);
7100 
7101 /* Subroutine */ int zung2r_(integer *m, integer *n, integer *k,
7102  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7103  work, integer *info);
7104 
7105 /* Subroutine */ int zungbr_(char *vect, integer *m, integer *n, integer *k,
7106  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7107  work, integer *lwork, integer *info);
7108 
7109 /* Subroutine */ int zunghr_(integer *n, integer *ilo, integer *ihi,
7110  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7111  work, integer *lwork, integer *info);
7112 
7113 /* Subroutine */ int zungl2_(integer *m, integer *n, integer *k,
7114  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7115  work, integer *info);
7116 
7117 /* Subroutine */ int zunglq_(integer *m, integer *n, integer *k,
7118  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7119  work, integer *lwork, integer *info);
7120 
7121 /* Subroutine */ int zungql_(integer *m, integer *n, integer *k,
7122  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7123  work, integer *lwork, integer *info);
7124 
7125 /* Subroutine */ int zungqr_(integer *m, integer *n, integer *k,
7126  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7127  work, integer *lwork, integer *info);
7128 
7129 /* Subroutine */ int zungr2_(integer *m, integer *n, integer *k,
7130  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7131  work, integer *info);
7132 
7133 /* Subroutine */ int zungrq_(integer *m, integer *n, integer *k,
7134  doublecomplex *a, integer *lda, doublecomplex *tau, doublecomplex *
7135  work, integer *lwork, integer *info);
7136 
7137 /* Subroutine */ int zungtr_(char *uplo, integer *n, doublecomplex *a,
7138  integer *lda, doublecomplex *tau, doublecomplex *work, integer *lwork,
7139  integer *info);
7140 
7141 /* Subroutine */ int zunm2l_(char *side, char *trans, integer *m, integer *n,
7142  integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7143  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
7144 
7145 /* Subroutine */ int zunm2r_(char *side, char *trans, integer *m, integer *n,
7146  integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7147  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
7148 
7149 /* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, integer *m,
7150  integer *n, integer *k, doublecomplex *a, integer *lda, doublecomplex
7151  *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
7152  lwork, integer *info);
7153 
7154 /* Subroutine */ int zunmhr_(char *side, char *trans, integer *m, integer *n,
7155  integer *ilo, integer *ihi, doublecomplex *a, integer *lda,
7156  doublecomplex *tau, doublecomplex *c__, integer *ldc, doublecomplex *
7157  work, integer *lwork, integer *info);
7158 
7159 /* Subroutine */ int zunml2_(char *side, char *trans, integer *m, integer *n,
7160  integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7161  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
7162 
7163 /* Subroutine */ int zunmlq_(char *side, char *trans, integer *m, integer *n,
7164  integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7165  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7166  integer *info);
7167 
7168 /* Subroutine */ int zunmql_(char *side, char *trans, integer *m, integer *n,
7169  integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7170  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7171  integer *info);
7172 
7173 /* Subroutine */ int zunmqr_(char *side, char *trans, integer *m, integer *n,
7174  integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7175  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7176  integer *info);
7177 
7178 /* Subroutine */ int zunmr2_(char *side, char *trans, integer *m, integer *n,
7179  integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7180  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *info);
7181 
7182 /* Subroutine */ int zunmr3_(char *side, char *trans, integer *m, integer *n,
7183  integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex
7184  *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
7185  info);
7186 
7187 /* Subroutine */ int zunmrq_(char *side, char *trans, integer *m, integer *n,
7188  integer *k, doublecomplex *a, integer *lda, doublecomplex *tau,
7189  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7190  integer *info);
7191 
7192 /* Subroutine */ int zunmrz_(char *side, char *trans, integer *m, integer *n,
7193  integer *k, integer *l, doublecomplex *a, integer *lda, doublecomplex
7194  *tau, doublecomplex *c__, integer *ldc, doublecomplex *work, integer *
7195  lwork, integer *info);
7196 
7197 /* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, integer *m,
7198  integer *n, doublecomplex *a, integer *lda, doublecomplex *tau,
7199  doublecomplex *c__, integer *ldc, doublecomplex *work, integer *lwork,
7200  integer *info);
7201 
7202 /* Subroutine */ int zupgtr_(char *uplo, integer *n, doublecomplex *ap,
7203  doublecomplex *tau, doublecomplex *q, integer *ldq, doublecomplex *
7204  work, integer *info);
7205 
7206 /* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, integer *m,
7207  integer *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__,
7208  integer *ldc, doublecomplex *work, integer *info);
7209 
7210 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical
7211  *ieee1);
7212 
7213 doublereal dsecnd_();
7214 
7215 /* Subroutine */ int ilaver_(integer *vers_major__, integer *vers_minor__,
7216  integer *vers_patch__);
7217 
7218 logical lsame_(char *ca, char *cb);
7219 
7220 doublereal second_();
7221 
7222 doublereal slamch_(char *cmach);
7223 
7224 /* Subroutine */ int slamc1_(integer *beta, integer *t, logical *rnd, logical
7225  *ieee1);
7226 
7227 /* Subroutine */ int slamc2_(integer *beta, integer *t, logical *rnd, real *
7228  eps, integer *emin, real *rmin, integer *emax, real *rmax);
7229 
7230 doublereal slamc3_(real *a, real *b);
7231 
7232 /* Subroutine */ int slamc4_(integer *emin, real *start, integer *base);
7233 
7234 /* Subroutine */ int slamc5_(integer *beta, integer *p, integer *emin,
7235  logical *ieee, integer *emax, real *rmax);
7236 
7237 
7238 doublereal dlamch_(char *cmach);
7239 
7240 /* Subroutine */ int dlamc1_(integer *beta, integer *t, logical *rnd, logical
7241  *ieee1);
7242 
7243 /* Subroutine */ int dlamc2_(integer *beta, integer *t, logical *rnd,
7244  doublereal *eps, integer *emin, doublereal *rmin, integer *emax,
7245  doublereal *rmax);
7246 
7247 doublereal dlamc3_(doublereal *a, doublereal *b);
7248 
7249 /* Subroutine */ int dlamc4_(integer *emin, doublereal *start, integer *base);
7250 
7251 /* Subroutine */ int dlamc5_(integer *beta, integer *p, integer *emin,
7252  logical *ieee, integer *emax, doublereal *rmax);
7253 
7254 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
7255  integer *n2, integer *n3, integer *n4);
7256 
7257 #ifdef __cplusplus
7258 }
7259 #endif
7260 
7261 
7262 #endif /* __CLAPACK_H */