COPASI API  4.16.103
lapack.h
Go to the documentation of this file.
1 // Copyright (C) 2013 by Pedro Mendes, Virginia Tech Intellectual
2 // Properties, Inc., University of Heidelberg, and The University
3 // of Manchester.
4 // All rights reserved.
5 
6 #ifndef COPASI_lapack
7 #define COPASI_lapack
8 
9 /* Subroutine */
10 int cbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
11  nru, integer *ncc, real *d__, real *e, complex *vt, integer *ldvt,
12  complex *u, integer *ldu, complex *c__, integer *ldc, real *rwork,
13  integer *info);
14 
15 /* Subroutine */
16 int cgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
17  integer *kl, integer *ku, complex *ab, integer *ldab, real *d__,
18  real *e, complex *q, integer *ldq, complex *pt, integer *ldpt,
19  complex *c__, integer *ldc, complex *work, real *rwork, integer *info);
20 
21 /* Subroutine */
22 int cgbcon_(char *norm, integer *n, integer *kl, integer *ku,
23  complex *ab, integer *ldab, integer *ipiv, real *anorm, real *rcond,
24  complex *work, real *rwork, integer *info);
25 
26 /* Subroutine */
27 int cgbequ_(integer *m, integer *n, integer *kl, integer *ku,
28  complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
29  *colcnd, real *amax, integer *info);
30 
31 /* Subroutine */
32 int cgbrfs_(char *trans, integer *n, integer *kl, integer *
33  ku, integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
34  ldafb, integer *ipiv, complex *b, integer *ldb, complex *x, integer *
35  ldx, real *ferr, real *berr, complex *work, real *rwork, integer *
36  info);
37 
38 /* Subroutine */
39 int cgbsv_(integer *n, integer *kl, integer *ku, integer *
40  nrhs, complex *ab, integer *ldab, integer *ipiv, complex *b, integer *
41  ldb, integer *info);
42 
43 /* Subroutine */
44 int cgbsvx_(char *fact, char *trans, integer *n, integer *kl,
45  integer *ku, integer *nrhs, complex *ab, integer *ldab, complex *afb,
46  integer *ldafb, integer *ipiv, char *equed, real *r__, real *c__,
47  complex *b, integer *ldb, complex *x, integer *ldx, real *rcond, real
48  *ferr, real *berr, complex *work, real *rwork, integer *info);
49 
50 /* Subroutine */
51 int cgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
52  complex *ab, integer *ldab, integer *ipiv, integer *info);
53 
54 /* Subroutine */
55 int cgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
56  complex *ab, integer *ldab, integer *ipiv, integer *info);
57 
58 /* Subroutine */
59 int cgbtrs_(char *trans, integer *n, integer *kl, integer *
60  ku, integer *nrhs, complex *ab, integer *ldab, integer *ipiv, complex
61  *b, integer *ldb, integer *info);
62 
63 /* Subroutine */
64 int cgebak_(char *job, char *side, integer *n, integer *ilo,
65  integer *ihi, real *scale, integer *m, complex *v, integer *ldv,
66  integer *info);
67 
68 /* Subroutine */
69 int cgebal_(char *job, integer *n, complex *a, integer *lda,
70  integer *ilo, integer *ihi, real *scale, integer *info);
71 
72 /* Subroutine */
73 int cgebd2_(integer *m, integer *n, complex *a, integer *lda,
74  real *d__, real *e, complex *tauq, complex *taup, complex *work,
75  integer *info);
76 
77 /* Subroutine */
78 int cgebrd_(integer *m, integer *n, complex *a, integer *lda,
79  real *d__, real *e, complex *tauq, complex *taup, complex *work,
80  integer *lwork, integer *info);
81 
82 /* Subroutine */
83 int cgecon_(char *norm, integer *n, complex *a, integer *lda,
84  real *anorm, real *rcond, complex *work, real *rwork, integer *info);
85 
86 /* Subroutine */
87 int cgeequ_(integer *m, integer *n, complex *a, integer *lda,
88  real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
89  integer *info);
90 
91 /* Subroutine */
92 int cgees_(char *jobvs, char *sort, L_fp select, integer *n,
93  complex *a, integer *lda, integer *sdim, complex *w, complex *vs,
94  integer *ldvs, complex *work, integer *lwork, real *rwork, logical *
95  bwork, integer *info);
96 
97 /* Subroutine */
98 int cgeesx_(char *jobvs, char *sort, L_fp select, char *
99  sense, integer *n, complex *a, integer *lda, integer *sdim, complex *
100  w, complex *vs, integer *ldvs, real *rconde, real *rcondv, complex *
101  work, integer *lwork, real *rwork, logical *bwork, integer *info);
102 
103 /* Subroutine */
104 int cgeev_(char *jobvl, char *jobvr, integer *n, complex *a,
105  integer *lda, complex *w, complex *vl, integer *ldvl, complex *vr,
106  integer *ldvr, complex *work, integer *lwork, real *rwork, integer *
107  info);
108 
109 /* Subroutine */
110 int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
111  sense, integer *n, complex *a, integer *lda, complex *w, complex *vl,
112  integer *ldvl, complex *vr, integer *ldvr, integer *ilo, integer *ihi,
113  real *scale, real *abnrm, real *rconde, real *rcondv, complex *work,
114  integer *lwork, real *rwork, integer *info);
115 
116 /* Subroutine */
117 int cgegs_(char *jobvsl, char *jobvsr, integer *n, complex *
118  a, integer *lda, complex *b, integer *ldb, complex *alpha, complex *
119  beta, complex *vsl, integer *ldvsl, complex *vsr, integer *ldvsr,
120  complex *work, integer *lwork, real *rwork, integer *info);
121 
122 /* Subroutine */
123 int cgegv_(char *jobvl, char *jobvr, integer *n, complex *a,
124  integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
125  complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
126  work, integer *lwork, real *rwork, integer *info);
127 
128 /* Subroutine */
129 int cgehd2_(integer *n, integer *ilo, integer *ihi, complex *
130  a, integer *lda, complex *tau, complex *work, integer *info);
131 
132 /* Subroutine */
133 int cgehrd_(integer *n, integer *ilo, integer *ihi, complex *
134  a, integer *lda, complex *tau, complex *work, integer *lwork, integer
135  *info);
136 
137 /* Subroutine */
138 int cgelq2_(integer *m, integer *n, complex *a, integer *lda,
139  complex *tau, complex *work, integer *info);
140 
141 /* Subroutine */
142 int cgelqf_(integer *m, integer *n, complex *a, integer *lda,
143  complex *tau, complex *work, integer *lwork, integer *info);
144 
145 /* Subroutine */
146 int cgels_(char *trans, integer *m, integer *n, integer *
147  nrhs, complex *a, integer *lda, complex *b, integer *ldb, complex *
148  work, integer *lwork, integer *info);
149 
150 /* Subroutine */
151 int cgelsx_(integer *m, integer *n, integer *nrhs, complex *
152  a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
153  integer *rank, complex *work, real *rwork, integer *info);
154 
155 /* Subroutine */
156 int cgelsy_(integer *m, integer *n, integer *nrhs, complex *
157  a, integer *lda, complex *b, integer *ldb, integer *jpvt, real *rcond,
158  integer *rank, complex *work, integer *lwork, real *rwork, integer *
159  info);
160 
161 /* Subroutine */
162 int cgeql2_(integer *m, integer *n, complex *a, integer *lda,
163  complex *tau, complex *work, integer *info);
164 
165 /* Subroutine */
166 int cgeqlf_(integer *m, integer *n, complex *a, integer *lda,
167  complex *tau, complex *work, integer *lwork, integer *info);
168 
169 /* Subroutine */
170 int cgeqp3_(integer *m, integer *n, complex *a, integer *lda,
171  integer *jpvt, complex *tau, complex *work, integer *lwork, real *
172  rwork, integer *info);
173 
174 /* Subroutine */
175 int cgeqpf_(integer *m, integer *n, complex *a, integer *lda,
176  integer *jpvt, complex *tau, complex *work, real *rwork, integer *
177  info);
178 
179 /* Subroutine */
180 int cgeqr2_(integer *m, integer *n, complex *a, integer *lda,
181  complex *tau, complex *work, integer *info);
182 
183 /* Subroutine */
184 int cgeqrf_(integer *m, integer *n, complex *a, integer *lda,
185  complex *tau, complex *work, integer *lwork, integer *info);
186 
187 /* Subroutine */
188 int cgerfs_(char *trans, integer *n, integer *nrhs, complex *
189  a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
190  b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
191  complex *work, real *rwork, integer *info);
192 
193 /* Subroutine */
194 int cgerq2_(integer *m, integer *n, complex *a, integer *lda,
195  complex *tau, complex *work, integer *info);
196 
197 /* Subroutine */
198 int cgerqf_(integer *m, integer *n, complex *a, integer *lda,
199  complex *tau, complex *work, integer *lwork, integer *info);
200 
201 /* Subroutine */
202 int cgesc2_(integer *n, complex *a, integer *lda, complex *
203  rhs, integer *ipiv, integer *jpiv, real *scale);
204 
205 /* Subroutine */
206 int cgesv_(integer *n, integer *nrhs, complex *a, integer *
207  lda, integer *ipiv, complex *b, integer *ldb, integer *info);
208 
209 /* Subroutine */
210 int cgesvx_(char *fact, char *trans, integer *n, integer *
211  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
212  ipiv, char *equed, real *r__, real *c__, complex *b, integer *ldb,
213  complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
214  complex *work, real *rwork, integer *info);
215 
216 /* Subroutine */
217 int cgetc2_(integer *n, complex *a, integer *lda, integer *
218  ipiv, integer *jpiv, integer *info);
219 
220 /* Subroutine */
221 int cgetf2_(integer *m, integer *n, complex *a, integer *lda,
222  integer *ipiv, integer *info);
223 
224 /* Subroutine */
225 int cgetrf_(integer *m, integer *n, complex *a, integer *lda,
226  integer *ipiv, integer *info);
227 
228 /* Subroutine */
229 int cgetri_(integer *n, complex *a, integer *lda, integer *
230  ipiv, complex *work, integer *lwork, integer *info);
231 
232 /* Subroutine */
233 int cgetrs_(char *trans, integer *n, integer *nrhs, complex *
234  a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
235  info);
236 
237 /* Subroutine */
238 int cggbak_(char *job, char *side, integer *n, integer *ilo,
239  integer *ihi, real *lscale, real *rscale, integer *m, complex *v,
240  integer *ldv, integer *info);
241 
242 /* Subroutine */
243 int cggbal_(char *job, integer *n, complex *a, integer *lda,
244  complex *b, integer *ldb, integer *ilo, integer *ihi, real *lscale,
245  real *rscale, real *work, integer *info);
246 
247 /* Subroutine */
248 int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
249  selctg, integer *n, complex *a, integer *lda, complex *b, integer *
250  ldb, integer *sdim, complex *alpha, complex *beta, complex *vsl,
251  integer *ldvsl, complex *vsr, integer *ldvsr, complex *work, integer *
252  lwork, real *rwork, logical *bwork, integer *info);
253 
254 /* Subroutine */
255 int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
256  selctg, char *sense, integer *n, complex *a, integer *lda, complex *b,
257  integer *ldb, integer *sdim, complex *alpha, complex *beta, complex *
258  vsl, integer *ldvsl, complex *vsr, integer *ldvsr, real *rconde, real
259  *rcondv, complex *work, integer *lwork, real *rwork, integer *iwork,
260  integer *liwork, logical *bwork, integer *info);
261 
262 /* Subroutine */
263 int cggev_(char *jobvl, char *jobvr, integer *n, complex *a,
264  integer *lda, complex *b, integer *ldb, complex *alpha, complex *beta,
265  complex *vl, integer *ldvl, complex *vr, integer *ldvr, complex *
266  work, integer *lwork, real *rwork, integer *info);
267 
268 /* Subroutine */
269 int cggevx_(char *balanc, char *jobvl, char *jobvr, char *
270  sense, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
271  complex *alpha, complex *beta, complex *vl, integer *ldvl, complex *
272  vr, integer *ldvr, integer *ilo, integer *ihi, real *lscale, real *
273  rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex
274  *work, integer *lwork, real *rwork, integer *iwork, logical *bwork,
275  integer *info);
276 
277 /* Subroutine */
278 int cggglm_(integer *n, integer *m, integer *p, complex *a,
279  integer *lda, complex *b, integer *ldb, complex *d__, complex *x,
280  complex *y, complex *work, integer *lwork, integer *info);
281 
282 /* Subroutine */
283 int cgghrd_(char *compq, char *compz, integer *n, integer *
284  ilo, integer *ihi, complex *a, integer *lda, complex *b, integer *ldb,
285  complex *q, integer *ldq, complex *z__, integer *ldz, integer *info);
286 
287 /* Subroutine */
288 int cgglse_(integer *m, integer *n, integer *p, complex *a,
289  integer *lda, complex *b, integer *ldb, complex *c__, complex *d__,
290  complex *x, complex *work, integer *lwork, integer *info);
291 
292 /* Subroutine */
293 int cggqrf_(integer *n, integer *m, integer *p, complex *a,
294  integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
295  complex *work, integer *lwork, integer *info);
296 
297 /* Subroutine */
298 int cggrqf_(integer *m, integer *p, integer *n, complex *a,
299  integer *lda, complex *taua, complex *b, integer *ldb, complex *taub,
300  complex *work, integer *lwork, integer *info);
301 
302 /* Subroutine */
303 int cggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
304  integer *n, integer *p, integer *k, integer *l, complex *a, integer *
305  lda, complex *b, integer *ldb, real *alpha, real *beta, complex *u,
306  integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
307  complex *work, real *rwork, integer *iwork, integer *info);
308 
309 /* Subroutine */
310 int cggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
311  integer *p, integer *n, complex *a, integer *lda, complex *b, integer
312  *ldb, real *tola, real *tolb, integer *k, integer *l, complex *u,
313  integer *ldu, complex *v, integer *ldv, complex *q, integer *ldq,
314  integer *iwork, real *rwork, complex *tau, complex *work, integer *
315  info);
316 
317 /* Subroutine */
318 int cgtcon_(char *norm, integer *n, complex *dl, complex *
319  d__, complex *du, complex *du2, integer *ipiv, real *anorm, real *
320  rcond, complex *work, integer *info);
321 
322 /* Subroutine */
323 int cgtrfs_(char *trans, integer *n, integer *nrhs, complex *
324  dl, complex *d__, complex *du, complex *dlf, complex *df, complex *
325  duf, complex *du2, integer *ipiv, complex *b, integer *ldb, complex *
326  x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
327  integer *info);
328 
329 /* Subroutine */
330 int cgtsv_(integer *n, integer *nrhs, complex *dl, complex *
331  d__, complex *du, complex *b, integer *ldb, integer *info);
332 
333 /* Subroutine */
334 int cgtsvx_(char *fact, char *trans, integer *n, integer *
335  nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *
336  df, complex *duf, complex *du2, integer *ipiv, complex *b, integer *
337  ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
338  complex *work, real *rwork, integer *info);
339 
340 /* Subroutine */
341 int cgttrf_(integer *n, complex *dl, complex *d__, complex *
342  du, complex *du2, integer *ipiv, integer *info);
343 
344 /* Subroutine */
345 int cgttrs_(char *trans, integer *n, integer *nrhs, complex *
346  dl, complex *d__, complex *du, complex *du2, integer *ipiv, complex *
347  b, integer *ldb, integer *info);
348 
349 /* Subroutine */
350 int cgtts2_(integer *itrans, integer *n, integer *nrhs,
351  complex *dl, complex *d__, complex *du, complex *du2, integer *ipiv,
352  complex *b, integer *ldb);
353 
354 /* Subroutine */
355 int chbev_(char *jobz, char *uplo, integer *n, integer *kd,
356  complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
357  complex *work, real *rwork, integer *info);
358 
359 /* Subroutine */
360 int chbevd_(char *jobz, char *uplo, integer *n, integer *kd,
361  complex *ab, integer *ldab, real *w, complex *z__, integer *ldz,
362  complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
363  iwork, integer *liwork, integer *info);
364 
365 /* Subroutine */
366 int chbevx_(char *jobz, char *range, char *uplo, integer *n,
367  integer *kd, complex *ab, integer *ldab, complex *q, integer *ldq,
368  real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
369  m, real *w, complex *z__, integer *ldz, complex *work, real *rwork,
370  integer *iwork, integer *ifail, integer *info);
371 
372 /* Subroutine */
373 int chbgst_(char *vect, char *uplo, integer *n, integer *ka,
374  integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
375  complex *x, integer *ldx, complex *work, real *rwork, integer *info);
376 
377 /* Subroutine */
378 int chbgv_(char *jobz, char *uplo, integer *n, integer *ka,
379  integer *kb, complex *ab, integer *ldab, complex *bb, integer *ldbb,
380  real *w, complex *z__, integer *ldz, complex *work, real *rwork,
381  integer *info);
382 
383 /* Subroutine */
384 int chbgvx_(char *jobz, char *range, char *uplo, integer *n,
385  integer *ka, integer *kb, complex *ab, integer *ldab, complex *bb,
386  integer *ldbb, complex *q, integer *ldq, real *vl, real *vu, integer *
387  il, integer *iu, real *abstol, integer *m, real *w, complex *z__,
388  integer *ldz, complex *work, real *rwork, integer *iwork, integer *
389  ifail, integer *info);
390 
391 /* Subroutine */
392 int chbtrd_(char *vect, char *uplo, integer *n, integer *kd,
393  complex *ab, integer *ldab, real *d__, real *e, complex *q, integer *
394  ldq, complex *work, integer *info);
395 
396 /* Subroutine */
397 int checon_(char *uplo, integer *n, complex *a, integer *lda,
398  integer *ipiv, real *anorm, real *rcond, complex *work, integer *
399  info);
400 
401 /* Subroutine */
402 int cheev_(char *jobz, char *uplo, integer *n, complex *a,
403  integer *lda, real *w, complex *work, integer *lwork, real *rwork,
404  integer *info);
405 
406 /* Subroutine */
407 int cheevd_(char *jobz, char *uplo, integer *n, complex *a,
408  integer *lda, real *w, complex *work, integer *lwork, real *rwork,
409  integer *lrwork, integer *iwork, integer *liwork, integer *info);
410 
411 /* Subroutine */
412 int cheevr_(char *jobz, char *range, char *uplo, integer *n,
413  complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
414  iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
415  integer *isuppz, complex *work, integer *lwork, real *rwork, integer *
416  lrwork, integer *iwork, integer *liwork, integer *info);
417 
418 /* Subroutine */
419 int cheevx_(char *jobz, char *range, char *uplo, integer *n,
420  complex *a, integer *lda, real *vl, real *vu, integer *il, integer *
421  iu, real *abstol, integer *m, real *w, complex *z__, integer *ldz,
422  complex *work, integer *lwork, real *rwork, integer *iwork, integer *
423  ifail, integer *info);
424 
425 /* Subroutine */
426 int chegs2_(integer *itype, char *uplo, integer *n, complex *
427  a, integer *lda, complex *b, integer *ldb, integer *info);
428 
429 /* Subroutine */
430 int chegst_(integer *itype, char *uplo, integer *n, complex *
431  a, integer *lda, complex *b, integer *ldb, integer *info);
432 
433 /* Subroutine */
434 int chegv_(integer *itype, char *jobz, char *uplo, integer *
435  n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
436  complex *work, integer *lwork, real *rwork, integer *info);
437 
438 /* Subroutine */
439 int chegvd_(integer *itype, char *jobz, char *uplo, integer *
440  n, complex *a, integer *lda, complex *b, integer *ldb, real *w,
441  complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
442  iwork, integer *liwork, integer *info);
443 
444 /* Subroutine */
445 int chegvx_(integer *itype, char *jobz, char *range, char *
446  uplo, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
447  real *vl, real *vu, integer *il, integer *iu, real *abstol, integer *
448  m, real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
449  real *rwork, integer *iwork, integer *ifail, integer *info);
450 
451 /* Subroutine */
452 int cherfs_(char *uplo, integer *n, integer *nrhs, complex *
453  a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
454  b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
455  complex *work, real *rwork, integer *info);
456 
457 /* Subroutine */
458 int chesv_(char *uplo, integer *n, integer *nrhs, complex *a,
459  integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
460  integer *lwork, integer *info);
461 
462 /* Subroutine */
463 int chesvx_(char *fact, char *uplo, integer *n, integer *
464  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
465  ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
466  real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
467  integer *info);
468 
469 /* Subroutine */
470 int chetf2_(char *uplo, integer *n, complex *a, integer *lda,
471  integer *ipiv, integer *info);
472 
473 /* Subroutine */
474 int chetrd_(char *uplo, integer *n, complex *a, integer *lda,
475  real *d__, real *e, complex *tau, complex *work, integer *lwork,
476  integer *info);
477 
478 /* Subroutine */
479 int chetrf_(char *uplo, integer *n, complex *a, integer *lda,
480  integer *ipiv, complex *work, integer *lwork, integer *info);
481 
482 /* Subroutine */
483 int chetri_(char *uplo, integer *n, complex *a, integer *lda,
484  integer *ipiv, complex *work, integer *info);
485 
486 /* Subroutine */
487 int chetrs_(char *uplo, integer *n, integer *nrhs, complex *
488  a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
489  info);
490 
491 /* Subroutine */
492 int chgeqz_(char *job, char *compq, char *compz, integer *n,
493  integer *ilo, integer *ihi, complex *a, integer *lda, complex *b,
494  integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
495  complex *z__, integer *ldz, complex *work, integer *lwork, real *
496  rwork, integer *info);
497 
498 /* Subroutine */
499 int chpcon_(char *uplo, integer *n, complex *ap, integer *
500  ipiv, real *anorm, real *rcond, complex *work, integer *info);
501 
502 /* Subroutine */
503 int chpev_(char *jobz, char *uplo, integer *n, complex *ap,
504  real *w, complex *z__, integer *ldz, complex *work, real *rwork,
505  integer *info);
506 
507 /* Subroutine */
508 int chpevd_(char *jobz, char *uplo, integer *n, complex *ap,
509  real *w, complex *z__, integer *ldz, complex *work, integer *lwork,
510  real *rwork, integer *lrwork, integer *iwork, integer *liwork,
511  integer *info);
512 
513 /* Subroutine */
514 int chpevx_(char *jobz, char *range, char *uplo, integer *n,
515  complex *ap, real *vl, real *vu, integer *il, integer *iu, real *
516  abstol, integer *m, real *w, complex *z__, integer *ldz, complex *
517  work, real *rwork, integer *iwork, integer *ifail, integer *info);
518 
519 /* Subroutine */
520 int chpgst_(integer *itype, char *uplo, integer *n, complex *
521  ap, complex *bp, integer *info);
522 
523 /* Subroutine */
524 int chpgv_(integer *itype, char *jobz, char *uplo, integer *
525  n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
526  complex *work, real *rwork, integer *info);
527 
528 /* Subroutine */
529 int chpgvd_(integer *itype, char *jobz, char *uplo, integer *
530  n, complex *ap, complex *bp, real *w, complex *z__, integer *ldz,
531  complex *work, integer *lwork, real *rwork, integer *lrwork, integer *
532  iwork, integer *liwork, integer *info);
533 
534 /* Subroutine */
535 int chpgvx_(integer *itype, char *jobz, char *range, char *
536  uplo, integer *n, complex *ap, complex *bp, real *vl, real *vu,
537  integer *il, integer *iu, real *abstol, integer *m, real *w, complex *
538  z__, integer *ldz, complex *work, real *rwork, integer *iwork,
539  integer *ifail, integer *info);
540 
541 /* Subroutine */
542 int chprfs_(char *uplo, integer *n, integer *nrhs, complex *
543  ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
544  integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
545  integer *info);
546 
547 /* Subroutine */
548 int chpsv_(char *uplo, integer *n, integer *nrhs, complex *
549  ap, integer *ipiv, complex *b, integer *ldb, integer *info);
550 
551 /* Subroutine */
552 int chpsvx_(char *fact, char *uplo, integer *n, integer *
553  nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
554  ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
555  complex *work, real *rwork, integer *info);
556 
557 /* Subroutine */
558 int chptrd_(char *uplo, integer *n, complex *ap, real *d__,
559  real *e, complex *tau, integer *info);
560 
561 /* Subroutine */
562 int chptrf_(char *uplo, integer *n, complex *ap, integer *
563  ipiv, integer *info);
564 
565 /* Subroutine */
566 int chptri_(char *uplo, integer *n, complex *ap, integer *
567  ipiv, complex *work, integer *info);
568 
569 /* Subroutine */
570 int chptrs_(char *uplo, integer *n, integer *nrhs, complex *
571  ap, integer *ipiv, complex *b, integer *ldb, integer *info);
572 
573 /* Subroutine */
574 int chsein_(char *side, char *eigsrc, char *initv, logical *
575  select, integer *n, complex *h__, integer *ldh, complex *w, complex *
576  vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm, integer *
577  m, complex *work, real *rwork, integer *ifaill, integer *ifailr,
578  integer *info);
579 
580 /* Subroutine */
581 int chseqr_(char *job, char *compz, integer *n, integer *ilo,
582  integer *ihi, complex *h__, integer *ldh, complex *w, complex *z__,
583  integer *ldz, complex *work, integer *lwork, integer *info);
584 
585 /* Subroutine */
586 int clabrd_(integer *m, integer *n, integer *nb, complex *a,
587  integer *lda, real *d__, real *e, complex *tauq, complex *taup,
588  complex *x, integer *ldx, complex *y, integer *ldy);
589 
590 /* Subroutine */
591 int clacgv_(integer *n, complex *x, integer *incx);
592 
593 /* Subroutine */
594 int clacon_(integer *n, complex *v, complex *x, real *est,
595  integer *kase);
596 
597 /* Subroutine */
598 int clacp2_(char *uplo, integer *m, integer *n, real *a,
599  integer *lda, complex *b, integer *ldb);
600 
601 /* Subroutine */
602 int clacpy_(char *uplo, integer *m, integer *n, complex *a,
603  integer *lda, complex *b, integer *ldb);
604 
605 /* Subroutine */
606 int clacrm_(integer *m, integer *n, complex *a, integer *lda,
607  real *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
608 
609 /* Subroutine */
610 int clacrt_(integer *n, complex *cx, integer *incx, complex *
611  cy, integer *incy, complex *c__, complex *s);
612 
613 /* Subroutine */
614 int claed0_(integer *qsiz, integer *n, real *d__, real *e,
615  complex *q, integer *ldq, complex *qstore, integer *ldqs, real *rwork,
616  integer *iwork, integer *info);
617 
618 /* Subroutine */
619 int claed7_(integer *n, integer *cutpnt, integer *qsiz,
620  integer *tlvls, integer *curlvl, integer *curpbm, real *d__, complex *
621  q, integer *ldq, real *rho, integer *indxq, real *qstore, integer *
622  qptr, integer *prmptr, integer *perm, integer *givptr, integer *
623  givcol, real *givnum, complex *work, real *rwork, integer *iwork,
624  integer *info);
625 
626 /* Subroutine */
627 int claed8_(integer *k, integer *n, integer *qsiz, complex *
628  q, integer *ldq, real *d__, real *rho, integer *cutpnt, real *z__,
629  real *dlamda, complex *q2, integer *ldq2, real *w, integer *indxp,
630  integer *indx, integer *indxq, integer *perm, integer *givptr,
631  integer *givcol, real *givnum, integer *info);
632 
633 /* Subroutine */
634 int claein_(logical *rightv, logical *noinit, integer *n,
635  complex *h__, integer *ldh, complex *w, complex *v, complex *b,
636  integer *ldb, real *rwork, real *eps3, real *smlnum, integer *info);
637 
638 /* Subroutine */
639 int claesy_(complex *a, complex *b, complex *c__, complex *
640  rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
641 
642 /* Subroutine */
643 int claev2_(complex *a, complex *b, complex *c__, real *rt1,
644  real *rt2, real *cs1, complex *sn1);
645 
646 /* Subroutine */
647 int clags2_(logical *upper, real *a1, complex *a2, real *a3,
648  real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv,
649  complex *snv, real *csq, complex *snq);
650 
651 /* Subroutine */
652 int clagtm_(char *trans, integer *n, integer *nrhs, real *
653  alpha, complex *dl, complex *d__, complex *du, complex *x, integer *
654  ldx, real *beta, complex *b, integer *ldb);
655 
656 /* Subroutine */
657 int clahef_(char *uplo, integer *n, integer *nb, integer *kb,
658  complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
659  integer *info);
660 
661 /* Subroutine */
662 int clahqr_(logical *wantt, logical *wantz, integer *n,
663  integer *ilo, integer *ihi, complex *h__, integer *ldh, complex *w,
664  integer *iloz, integer *ihiz, complex *z__, integer *ldz, integer *
665  info);
666 
667 /* Subroutine */
668 int clahrd_(integer *n, integer *k, integer *nb, complex *a,
669  integer *lda, complex *tau, complex *t, integer *ldt, complex *y,
670  integer *ldy);
671 
672 /* Subroutine */
673 int claic1_(integer *job, integer *j, complex *x, real *sest,
674  complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
675 
676 /* Subroutine */
677 int clals0_(integer *icompq, integer *nl, integer *nr,
678  integer *sqre, integer *nrhs, complex *b, integer *ldb, complex *bx,
679  integer *ldbx, integer *perm, integer *givptr, integer *givcol,
680  integer *ldgcol, real *givnum, integer *ldgnum, real *poles, real *
681  difl, real *difr, real *z__, integer *k, real *c__, real *s, real *
682  rwork, integer *info);
683 
684 /* Subroutine */
685 int clalsa_(integer *icompq, integer *smlsiz, integer *n,
686  integer *nrhs, complex *b, integer *ldb, complex *bx, integer *ldbx,
687  real *u, integer *ldu, real *vt, integer *k, real *difl, real *difr,
688  real *z__, real *poles, integer *givptr, integer *givcol, integer *
689  ldgcol, integer *perm, real *givnum, real *c__, real *s, real *rwork,
690  integer *iwork, integer *info);
691 
692 /* Subroutine */
693 int clapll_(integer *n, complex *x, integer *incx, complex *
694  y, integer *incy, real *ssmin);
695 
696 /* Subroutine */
697 int clapmt_(logical *forwrd, integer *m, integer *n, complex
698  *x, integer *ldx, integer *k);
699 
700 /* Subroutine */
701 int claqgb_(integer *m, integer *n, integer *kl, integer *ku,
702  complex *ab, integer *ldab, real *r__, real *c__, real *rowcnd, real
703  *colcnd, real *amax, char *equed);
704 
705 /* Subroutine */
706 int claqge_(integer *m, integer *n, complex *a, integer *lda,
707  real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
708  equed);
709 
710 /* Subroutine */
711 int claqhb_(char *uplo, integer *n, integer *kd, complex *ab,
712  integer *ldab, real *s, real *scond, real *amax, char *equed);
713 
714 /* Subroutine */
715 int claqhe_(char *uplo, integer *n, complex *a, integer *lda,
716  real *s, real *scond, real *amax, char *equed);
717 
718 /* Subroutine */
719 int claqhp_(char *uplo, integer *n, complex *ap, real *s,
720  real *scond, real *amax, char *equed);
721 
722 /* Subroutine */
723 int claqp2_(integer *m, integer *n, integer *offset, complex
724  *a, integer *lda, integer *jpvt, complex *tau, real *vn1, real *vn2,
725  complex *work);
726 
727 /* Subroutine */
728 int claqps_(integer *m, integer *n, integer *offset, integer
729  *nb, integer *kb, complex *a, integer *lda, integer *jpvt, complex *
730  tau, real *vn1, real *vn2, complex *auxv, complex *f, integer *ldf);
731 
732 /* Subroutine */
733 int claqsb_(char *uplo, integer *n, integer *kd, complex *ab,
734  integer *ldab, real *s, real *scond, real *amax, char *equed);
735 
736 /* Subroutine */
737 int claqsp_(char *uplo, integer *n, complex *ap, real *s,
738  real *scond, real *amax, char *equed);
739 
740 /* Subroutine */
741 int claqsy_(char *uplo, integer *n, complex *a, integer *lda,
742  real *s, real *scond, real *amax, char *equed);
743 
744 /* Subroutine */
745 int clar1v_(integer *n, integer *b1, integer *bn, real *
746  sigma, real *d__, real *l, real *ld, real *lld, real *gersch, complex
747  *z__, real *ztz, real *mingma, integer *r__, integer *isuppz, real *
748  work);
749 
750 /* Subroutine */
751 int clar2v_(integer *n, complex *x, complex *y, complex *z__,
752  integer *incx, real *c__, complex *s, integer *incc);
753 
754 /* Subroutine */
755 int clarcm_(integer *m, integer *n, real *a, integer *lda,
756  complex *b, integer *ldb, complex *c__, integer *ldc, real *rwork);
757 
758 /* Subroutine */
759 int clarf_(char *side, integer *m, integer *n, complex *v,
760  integer *incv, complex *tau, complex *c__, integer *ldc, complex *
761  work);
762 
763 /* Subroutine */
764 int clarfb_(char *side, char *trans, char *direct, char *
765  storev, integer *m, integer *n, integer *k, complex *v, integer *ldv,
766  complex *t, integer *ldt, complex *c__, integer *ldc, complex *work,
767  integer *ldwork);
768 
769 /* Subroutine */
770 int clarfg_(integer *n, complex *alpha, complex *x, integer *
771  incx, complex *tau);
772 
773 /* Subroutine */
774 int clarft_(char *direct, char *storev, integer *n, integer *
775  k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
776 
777 /* Subroutine */
778 int clarfx_(char *side, integer *m, integer *n, complex *v,
779  complex *tau, complex *c__, integer *ldc, complex *work);
780 
781 /* Subroutine */
782 int clargv_(integer *n, complex *x, integer *incx, complex *
783  y, integer *incy, real *c__, integer *incc);
784 
785 /* Subroutine */
786 int clarnv_(integer *idist, integer *iseed, integer *n,
787  complex *x);
788 
789 /* Subroutine */
790 int clarrv_(integer *n, real *d__, real *l, integer *isplit,
791  integer *m, real *w, integer *iblock, real *gersch, real *tol,
792  complex *z__, integer *ldz, integer *isuppz, real *work, integer *
793  iwork, integer *info);
794 
795 /* Subroutine */
796 int clartg_(complex *f, complex *g, real *cs, complex *sn,
797  complex *r__);
798 
799 /* Subroutine */
800 int clartv_(integer *n, complex *x, integer *incx, complex *
801  y, integer *incy, real *c__, complex *s, integer *incc);
802 
803 /* Subroutine */
804 int clarz_(char *side, integer *m, integer *n, integer *l,
805  complex *v, integer *incv, complex *tau, complex *c__, integer *ldc,
806  complex *work);
807 
808 /* Subroutine */
809 int clarzb_(char *side, char *trans, char *direct, char *
810  storev, integer *m, integer *n, integer *k, integer *l, complex *v,
811  integer *ldv, complex *t, integer *ldt, complex *c__, integer *ldc,
812  complex *work, integer *ldwork);
813 
814 /* Subroutine */
815 int clarzt_(char *direct, char *storev, integer *n, integer *
816  k, complex *v, integer *ldv, complex *tau, complex *t, integer *ldt);
817 
818 /* Subroutine */
819 int clascl_(char *type__, integer *kl, integer *ku, real *
820  cfrom, real *cto, integer *m, integer *n, complex *a, integer *lda,
821  integer *info);
822 
823 /* Subroutine */
824 int claset_(char *uplo, integer *m, integer *n, complex *
825  alpha, complex *beta, complex *a, integer *lda);
826 
827 /* Subroutine */
828 int clasr_(char *side, char *pivot, char *direct, integer *m,
829  integer *n, real *c__, real *s, complex *a, integer *lda);
830 
831 /* Subroutine */
832 int classq_(integer *n, complex *x, integer *incx, real *
833  scale, real *sumsq);
834 
835 /* Subroutine */
836 int claswp_(integer *n, complex *a, integer *lda, integer *
837  k1, integer *k2, integer *ipiv, integer *incx);
838 
839 /* Subroutine */
840 int clasyf_(char *uplo, integer *n, integer *nb, integer *kb,
841  complex *a, integer *lda, integer *ipiv, complex *w, integer *ldw,
842  integer *info);
843 
844 /* Subroutine */
845 int clatbs_(char *uplo, char *trans, char *diag, char *
846  normin, integer *n, integer *kd, complex *ab, integer *ldab, complex *
847  x, real *scale, real *cnorm, integer *info);
848 
849 /* Subroutine */
850 int clatdf_(integer *ijob, integer *n, complex *z__, integer
851  *ldz, complex *rhs, real *rdsum, real *rdscal, integer *ipiv, integer
852  *jpiv);
853 
854 /* Subroutine */
855 int clatps_(char *uplo, char *trans, char *diag, char *
856  normin, integer *n, complex *ap, complex *x, real *scale, real *cnorm,
857  integer *info);
858 
859 /* Subroutine */
860 int clatrd_(char *uplo, integer *n, integer *nb, complex *a,
861  integer *lda, real *e, complex *tau, complex *w, integer *ldw);
862 
863 /* Subroutine */
864 int clatrs_(char *uplo, char *trans, char *diag, char *
865  normin, integer *n, complex *a, integer *lda, complex *x, real *scale,
866  real *cnorm, integer *info);
867 
868 /* Subroutine */
869 int clatrz_(integer *m, integer *n, integer *l, complex *a,
870  integer *lda, complex *tau, complex *work);
871 
872 /* Subroutine */
873 int clatzm_(char *side, integer *m, integer *n, complex *v,
874  integer *incv, complex *tau, complex *c1, complex *c2, integer *ldc,
875  complex *work);
876 
877 /* Subroutine */
878 int clauu2_(char *uplo, integer *n, complex *a, integer *lda,
879  integer *info);
880 
881 /* Subroutine */
882 int clauum_(char *uplo, integer *n, complex *a, integer *lda,
883  integer *info);
884 
885 /* Subroutine */
886 int cpbcon_(char *uplo, integer *n, integer *kd, complex *ab,
887  integer *ldab, real *anorm, real *rcond, complex *work, real *rwork,
888  integer *info);
889 
890 /* Subroutine */
891 int cpbequ_(char *uplo, integer *n, integer *kd, complex *ab,
892  integer *ldab, real *s, real *scond, real *amax, integer *info);
893 
894 /* Subroutine */
895 int cpbrfs_(char *uplo, integer *n, integer *kd, integer *
896  nrhs, complex *ab, integer *ldab, complex *afb, integer *ldafb,
897  complex *b, integer *ldb, complex *x, integer *ldx, real *ferr, real *
898  berr, complex *work, real *rwork, integer *info);
899 
900 /* Subroutine */
901 int cpbstf_(char *uplo, integer *n, integer *kd, complex *ab,
902  integer *ldab, integer *info);
903 
904 /* Subroutine */
905 int cpbsv_(char *uplo, integer *n, integer *kd, integer *
906  nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
907  info);
908 
909 /* Subroutine */
910 int cpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
911  integer *nrhs, complex *ab, integer *ldab, complex *afb, integer *
912  ldafb, char *equed, real *s, complex *b, integer *ldb, complex *x,
913  integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
914  real *rwork, integer *info);
915 
916 /* Subroutine */
917 int cpbtf2_(char *uplo, integer *n, integer *kd, complex *ab,
918  integer *ldab, integer *info);
919 
920 /* Subroutine */
921 int cpbtrf_(char *uplo, integer *n, integer *kd, complex *ab,
922  integer *ldab, integer *info);
923 
924 /* Subroutine */
925 int cpbtrs_(char *uplo, integer *n, integer *kd, integer *
926  nrhs, complex *ab, integer *ldab, complex *b, integer *ldb, integer *
927  info);
928 
929 /* Subroutine */
930 int cpocon_(char *uplo, integer *n, complex *a, integer *lda,
931  real *anorm, real *rcond, complex *work, real *rwork, integer *info);
932 
933 /* Subroutine */
934 int cpoequ_(integer *n, complex *a, integer *lda, real *s,
935  real *scond, real *amax, integer *info);
936 
937 /* Subroutine */
938 int cporfs_(char *uplo, integer *n, integer *nrhs, complex *
939  a, integer *lda, complex *af, integer *ldaf, complex *b, integer *ldb,
940  complex *x, integer *ldx, real *ferr, real *berr, complex *work,
941  real *rwork, integer *info);
942 
943 /* Subroutine */
944 int cposv_(char *uplo, integer *n, integer *nrhs, complex *a,
945  integer *lda, complex *b, integer *ldb, integer *info);
946 
947 /* Subroutine */
948 int cposvx_(char *fact, char *uplo, integer *n, integer *
949  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, char *
950  equed, real *s, complex *b, integer *ldb, complex *x, integer *ldx,
951  real *rcond, real *ferr, real *berr, complex *work, real *rwork,
952  integer *info);
953 
954 /* Subroutine */
955 int cpotf2_(char *uplo, integer *n, complex *a, integer *lda,
956  integer *info);
957 
958 /* Subroutine */
959 int cpotrf_(char *uplo, integer *n, complex *a, integer *lda,
960  integer *info);
961 
962 /* Subroutine */
963 int cpotri_(char *uplo, integer *n, complex *a, integer *lda,
964  integer *info);
965 
966 /* Subroutine */
967 int cpotrs_(char *uplo, integer *n, integer *nrhs, complex *
968  a, integer *lda, complex *b, integer *ldb, integer *info);
969 
970 /* Subroutine */
971 int cppcon_(char *uplo, integer *n, complex *ap, real *anorm,
972  real *rcond, complex *work, real *rwork, integer *info);
973 
974 /* Subroutine */
975 int cppequ_(char *uplo, integer *n, complex *ap, real *s,
976  real *scond, real *amax, integer *info);
977 
978 /* Subroutine */
979 int cpprfs_(char *uplo, integer *n, integer *nrhs, complex *
980  ap, complex *afp, complex *b, integer *ldb, complex *x, integer *ldx,
981  real *ferr, real *berr, complex *work, real *rwork, integer *info);
982 
983 /* Subroutine */
984 int cppsv_(char *uplo, integer *n, integer *nrhs, complex *
985  ap, complex *b, integer *ldb, integer *info);
986 
987 /* Subroutine */
988 int cppsvx_(char *fact, char *uplo, integer *n, integer *
989  nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b,
990  integer *ldb, complex *x, integer *ldx, real *rcond, real *ferr, real
991  *berr, complex *work, real *rwork, integer *info);
992 
993 /* Subroutine */
994 int cpptrf_(char *uplo, integer *n, complex *ap, integer *
995  info);
996 
997 /* Subroutine */
998 int cpptri_(char *uplo, integer *n, complex *ap, integer *
999  info);
1000 
1001 /* Subroutine */
1002 int cpptrs_(char *uplo, integer *n, integer *nrhs, complex *
1003  ap, complex *b, integer *ldb, integer *info);
1004 
1005 /* Subroutine */
1006 int cptcon_(integer *n, real *d__, complex *e, real *anorm,
1007  real *rcond, real *rwork, integer *info);
1008 
1009 /* Subroutine */
1010 int cptrfs_(char *uplo, integer *n, integer *nrhs, real *d__,
1011  complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
1012  *x, integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1013  integer *info);
1014 
1015 /* Subroutine */
1016 int cptsv_(integer *n, integer *nrhs, real *d__, complex *e,
1017  complex *b, integer *ldb, integer *info);
1018 
1019 /* Subroutine */
1020 int cptsvx_(char *fact, integer *n, integer *nrhs, real *d__,
1021  complex *e, real *df, complex *ef, complex *b, integer *ldb, complex
1022  *x, integer *ldx, real *rcond, real *ferr, real *berr, complex *work,
1023  real *rwork, integer *info);
1024 
1025 /* Subroutine */
1026 int cpttrf_(integer *n, real *d__, complex *e, integer *info);
1027 
1028 /* Subroutine */
1029 int cpttrs_(char *uplo, integer *n, integer *nrhs, real *d__,
1030  complex *e, complex *b, integer *ldb, integer *info);
1031 
1032 /* Subroutine */
1033 int cptts2_(integer *iuplo, integer *n, integer *nrhs, real *
1034  d__, complex *e, complex *b, integer *ldb);
1035 
1036 /* Subroutine */
1037 int crot_(integer *n, complex *cx, integer *incx, complex *
1038  cy, integer *incy, real *c__, complex *s);
1039 
1040 /* Subroutine */
1041 int cspcon_(char *uplo, integer *n, complex *ap, integer *
1042  ipiv, real *anorm, real *rcond, complex *work, integer *info);
1043 
1044 /* Subroutine */
1045 int cspmv_(char *uplo, integer *n, complex *alpha, complex *
1046  ap, complex *x, integer *incx, complex *beta, complex *y, integer *
1047  incy);
1048 
1049 /* Subroutine */
1050 int cspr_(char *uplo, integer *n, complex *alpha, complex *x,
1051  integer *incx, complex *ap);
1052 
1053 /* Subroutine */
1054 int csprfs_(char *uplo, integer *n, integer *nrhs, complex *
1055  ap, complex *afp, integer *ipiv, complex *b, integer *ldb, complex *x,
1056  integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1057  integer *info);
1058 
1059 /* Subroutine */
1060 int cspsv_(char *uplo, integer *n, integer *nrhs, complex *
1061  ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1062 
1063 /* Subroutine */
1064 int cspsvx_(char *fact, char *uplo, integer *n, integer *
1065  nrhs, complex *ap, complex *afp, integer *ipiv, complex *b, integer *
1066  ldb, complex *x, integer *ldx, real *rcond, real *ferr, real *berr,
1067  complex *work, real *rwork, integer *info);
1068 
1069 /* Subroutine */
1070 int csptrf_(char *uplo, integer *n, complex *ap, integer *
1071  ipiv, integer *info);
1072 
1073 /* Subroutine */
1074 int csptri_(char *uplo, integer *n, complex *ap, integer *
1075  ipiv, complex *work, integer *info);
1076 
1077 /* Subroutine */
1078 int csptrs_(char *uplo, integer *n, integer *nrhs, complex *
1079  ap, integer *ipiv, complex *b, integer *ldb, integer *info);
1080 
1081 /* Subroutine */
1082 int csrot_(integer *n, complex *cx, integer *incx, complex *
1083  cy, integer *incy, real *c__, real *s);
1084 
1085 /* Subroutine */
1086 int csrscl_(integer *n, real *sa, complex *sx, integer *incx);
1087 
1088 /* Subroutine */
1089 int cstedc_(char *compz, integer *n, real *d__, real *e,
1090  complex *z__, integer *ldz, complex *work, integer *lwork, real *
1091  rwork, integer *lrwork, integer *iwork, integer *liwork, integer *
1092  info);
1093 
1094 /* Subroutine */
1095 int cstein_(integer *n, real *d__, real *e, integer *m, real
1096  *w, integer *iblock, integer *isplit, complex *z__, integer *ldz,
1097  real *work, integer *iwork, integer *ifail, integer *info);
1098 
1099 /* Subroutine */
1100 int csteqr_(char *compz, integer *n, real *d__, real *e,
1101  complex *z__, integer *ldz, real *work, integer *info);
1102 
1103 /* Subroutine */
1104 int csycon_(char *uplo, integer *n, complex *a, integer *lda,
1105  integer *ipiv, real *anorm, real *rcond, complex *work, integer *
1106  info);
1107 
1108 /* Subroutine */
1109 int csymv_(char *uplo, integer *n, complex *alpha, complex *
1110  a, integer *lda, complex *x, integer *incx, complex *beta, complex *y,
1111  integer *incy);
1112 
1113 /* Subroutine */
1114 int csyr_(char *uplo, integer *n, complex *alpha, complex *x,
1115  integer *incx, complex *a, integer *lda);
1116 
1117 /* Subroutine */
1118 int csyrfs_(char *uplo, integer *n, integer *nrhs, complex *
1119  a, integer *lda, complex *af, integer *ldaf, integer *ipiv, complex *
1120  b, integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
1121  complex *work, real *rwork, integer *info);
1122 
1123 /* Subroutine */
1124 int csysv_(char *uplo, integer *n, integer *nrhs, complex *a,
1125  integer *lda, integer *ipiv, complex *b, integer *ldb, complex *work,
1126  integer *lwork, integer *info);
1127 
1128 /* Subroutine */
1129 int csysvx_(char *fact, char *uplo, integer *n, integer *
1130  nrhs, complex *a, integer *lda, complex *af, integer *ldaf, integer *
1131  ipiv, complex *b, integer *ldb, complex *x, integer *ldx, real *rcond,
1132  real *ferr, real *berr, complex *work, integer *lwork, real *rwork,
1133  integer *info);
1134 
1135 /* Subroutine */
1136 int csytf2_(char *uplo, integer *n, complex *a, integer *lda,
1137  integer *ipiv, integer *info);
1138 
1139 /* Subroutine */
1140 int csytrf_(char *uplo, integer *n, complex *a, integer *lda,
1141  integer *ipiv, complex *work, integer *lwork, integer *info);
1142 
1143 /* Subroutine */
1144 int csytri_(char *uplo, integer *n, complex *a, integer *lda,
1145  integer *ipiv, complex *work, integer *info);
1146 
1147 /* Subroutine */
1148 int csytrs_(char *uplo, integer *n, integer *nrhs, complex *
1149  a, integer *lda, integer *ipiv, complex *b, integer *ldb, integer *
1150  info);
1151 
1152 /* Subroutine */
1153 int ctbcon_(char *norm, char *uplo, char *diag, integer *n,
1154  integer *kd, complex *ab, integer *ldab, real *rcond, complex *work,
1155  real *rwork, integer *info);
1156 
1157 /* Subroutine */
1158 int ctbrfs_(char *uplo, char *trans, char *diag, integer *n,
1159  integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
1160  integer *ldb, complex *x, integer *ldx, real *ferr, real *berr,
1161  complex *work, real *rwork, integer *info);
1162 
1163 /* Subroutine */
1164 int ctbtrs_(char *uplo, char *trans, char *diag, integer *n,
1165  integer *kd, integer *nrhs, complex *ab, integer *ldab, complex *b,
1166  integer *ldb, integer *info);
1167 
1168 /* Subroutine */
1169 int ctgevc_(char *side, char *howmny, logical *select,
1170  integer *n, complex *a, integer *lda, complex *b, integer *ldb,
1171  complex *vl, integer *ldvl, complex *vr, integer *ldvr, integer *mm,
1172  integer *m, complex *work, real *rwork, integer *info);
1173 
1174 /* Subroutine */
1175 int ctgex2_(logical *wantq, logical *wantz, integer *n,
1176  complex *a, integer *lda, complex *b, integer *ldb, complex *q,
1177  integer *ldq, complex *z__, integer *ldz, integer *j1, integer *info);
1178 
1179 /* Subroutine */
1180 int ctgexc_(logical *wantq, logical *wantz, integer *n,
1181  complex *a, integer *lda, complex *b, integer *ldb, complex *q,
1182  integer *ldq, complex *z__, integer *ldz, integer *ifst, integer *
1183  ilst, integer *info);
1184 
1185 /* Subroutine */
1186 int ctgsen_(integer *ijob, logical *wantq, logical *wantz,
1187  logical *select, integer *n, complex *a, integer *lda, complex *b,
1188  integer *ldb, complex *alpha, complex *beta, complex *q, integer *ldq,
1189  complex *z__, integer *ldz, integer *m, real *pl, real *pr, real *
1190  dif, complex *work, integer *lwork, integer *iwork, integer *liwork,
1191  integer *info);
1192 
1193 /* Subroutine */
1194 int ctgsja_(char *jobu, char *jobv, char *jobq, integer *m,
1195  integer *p, integer *n, integer *k, integer *l, complex *a, integer *
1196  lda, complex *b, integer *ldb, real *tola, real *tolb, real *alpha,
1197  real *beta, complex *u, integer *ldu, complex *v, integer *ldv,
1198  complex *q, integer *ldq, complex *work, integer *ncycle, integer *
1199  info);
1200 
1201 /* Subroutine */
1202 int ctgsna_(char *job, char *howmny, logical *select,
1203  integer *n, complex *a, integer *lda, complex *b, integer *ldb,
1204  complex *vl, integer *ldvl, complex *vr, integer *ldvr, real *s, real
1205  *dif, integer *mm, integer *m, complex *work, integer *lwork, integer
1206  *iwork, integer *info);
1207 
1208 /* Subroutine */
1209 int ctgsy2_(char *trans, integer *ijob, integer *m, integer *
1210  n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
1211  integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
1212  complex *f, integer *ldf, real *scale, real *rdsum, real *rdscal,
1213  integer *info);
1214 
1215 /* Subroutine */
1216 int ctgsyl_(char *trans, integer *ijob, integer *m, integer *
1217  n, complex *a, integer *lda, complex *b, integer *ldb, complex *c__,
1218  integer *ldc, complex *d__, integer *ldd, complex *e, integer *lde,
1219  complex *f, integer *ldf, real *scale, real *dif, complex *work,
1220  integer *lwork, integer *iwork, integer *info);
1221 
1222 /* Subroutine */
1223 int ctpcon_(char *norm, char *uplo, char *diag, integer *n,
1224  complex *ap, real *rcond, complex *work, real *rwork, integer *info);
1225 
1226 /* Subroutine */
1227 int ctprfs_(char *uplo, char *trans, char *diag, integer *n,
1228  integer *nrhs, complex *ap, complex *b, integer *ldb, complex *x,
1229  integer *ldx, real *ferr, real *berr, complex *work, real *rwork,
1230  integer *info);
1231 
1232 /* Subroutine */
1233 int ctptri_(char *uplo, char *diag, integer *n, complex *ap,
1234  integer *info);
1235 
1236 /* Subroutine */
1237 int ctptrs_(char *uplo, char *trans, char *diag, integer *n,
1238  integer *nrhs, complex *ap, complex *b, integer *ldb, integer *info);
1239 
1240 /* Subroutine */
1241 int ctrcon_(char *norm, char *uplo, char *diag, integer *n,
1242  complex *a, integer *lda, real *rcond, complex *work, real *rwork,
1243  integer *info);
1244 
1245 /* Subroutine */
1246 int ctrevc_(char *side, char *howmny, logical *select,
1247  integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
1248  complex *vr, integer *ldvr, integer *mm, integer *m, complex *work,
1249  real *rwork, integer *info);
1250 
1251 /* Subroutine */
1252 int ctrexc_(char *compq, integer *n, complex *t, integer *
1253  ldt, complex *q, integer *ldq, integer *ifst, integer *ilst, integer *
1254  info);
1255 
1256 /* Subroutine */
1257 int ctrrfs_(char *uplo, char *trans, char *diag, integer *n,
1258  integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
1259  complex *x, integer *ldx, real *ferr, real *berr, complex *work, real
1260  *rwork, integer *info);
1261 
1262 /* Subroutine */
1263 int ctrsen_(char *job, char *compq, logical *select, integer
1264  *n, complex *t, integer *ldt, complex *q, integer *ldq, complex *w,
1265  integer *m, real *s, real *sep, complex *work, integer *lwork,
1266  integer *info);
1267 
1268 /* Subroutine */
1269 int ctrsna_(char *job, char *howmny, logical *select,
1270  integer *n, complex *t, integer *ldt, complex *vl, integer *ldvl,
1271  complex *vr, integer *ldvr, real *s, real *sep, integer *mm, integer *
1272  m, complex *work, integer *ldwork, real *rwork, integer *info);
1273 
1274 /* Subroutine */
1275 int ctrsyl_(char *trana, char *tranb, integer *isgn, integer
1276  *m, integer *n, complex *a, integer *lda, complex *b, integer *ldb,
1277  complex *c__, integer *ldc, real *scale, integer *info);
1278 
1279 /* Subroutine */
1280 int ctrti2_(char *uplo, char *diag, integer *n, complex *a,
1281  integer *lda, integer *info);
1282 
1283 /* Subroutine */
1284 int ctrtri_(char *uplo, char *diag, integer *n, complex *a,
1285  integer *lda, integer *info);
1286 
1287 /* Subroutine */
1288 int ctrtrs_(char *uplo, char *trans, char *diag, integer *n,
1289  integer *nrhs, complex *a, integer *lda, complex *b, integer *ldb,
1290  integer *info);
1291 
1292 /* Subroutine */
1293 int ctzrqf_(integer *m, integer *n, complex *a, integer *lda,
1294  complex *tau, integer *info);
1295 
1296 /* Subroutine */
1297 int ctzrzf_(integer *m, integer *n, complex *a, integer *lda,
1298  complex *tau, complex *work, integer *lwork, integer *info);
1299 
1300 /* Subroutine */
1301 int cung2l_(integer *m, integer *n, integer *k, complex *a,
1302  integer *lda, complex *tau, complex *work, integer *info);
1303 
1304 /* Subroutine */
1305 int cung2r_(integer *m, integer *n, integer *k, complex *a,
1306  integer *lda, complex *tau, complex *work, integer *info);
1307 
1308 /* Subroutine */
1309 int cungbr_(char *vect, integer *m, integer *n, integer *k,
1310  complex *a, integer *lda, complex *tau, complex *work, integer *lwork,
1311  integer *info);
1312 
1313 /* Subroutine */
1314 int cunghr_(integer *n, integer *ilo, integer *ihi, complex *
1315  a, integer *lda, complex *tau, complex *work, integer *lwork, integer
1316  *info);
1317 
1318 /* Subroutine */
1319 int cungl2_(integer *m, integer *n, integer *k, complex *a,
1320  integer *lda, complex *tau, complex *work, integer *info);
1321 
1322 /* Subroutine */
1323 int cunglq_(integer *m, integer *n, integer *k, complex *a,
1324  integer *lda, complex *tau, complex *work, integer *lwork, integer *
1325  info);
1326 
1327 /* Subroutine */
1328 int cungql_(integer *m, integer *n, integer *k, complex *a,
1329  integer *lda, complex *tau, complex *work, integer *lwork, integer *
1330  info);
1331 
1332 /* Subroutine */
1333 int cungqr_(integer *m, integer *n, integer *k, complex *a,
1334  integer *lda, complex *tau, complex *work, integer *lwork, integer *
1335  info);
1336 
1337 /* Subroutine */
1338 int cungr2_(integer *m, integer *n, integer *k, complex *a,
1339  integer *lda, complex *tau, complex *work, integer *info);
1340 
1341 /* Subroutine */
1342 int cungrq_(integer *m, integer *n, integer *k, complex *a,
1343  integer *lda, complex *tau, complex *work, integer *lwork, integer *
1344  info);
1345 
1346 /* Subroutine */
1347 int cungtr_(char *uplo, integer *n, complex *a, integer *lda,
1348  complex *tau, complex *work, integer *lwork, integer *info);
1349 
1350 /* Subroutine */
1351 int cunm2l_(char *side, char *trans, integer *m, integer *n,
1352  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1353  integer *ldc, complex *work, integer *info);
1354 
1355 /* Subroutine */
1356 int cunm2r_(char *side, char *trans, integer *m, integer *n,
1357  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1358  integer *ldc, complex *work, integer *info);
1359 
1360 /* Subroutine */
1361 int cunmbr_(char *vect, char *side, char *trans, integer *m,
1362  integer *n, integer *k, complex *a, integer *lda, complex *tau,
1363  complex *c__, integer *ldc, complex *work, integer *lwork, integer *
1364  info);
1365 
1366 /* Subroutine */
1367 int cunmhr_(char *side, char *trans, integer *m, integer *n,
1368  integer *ilo, integer *ihi, complex *a, integer *lda, complex *tau,
1369  complex *c__, integer *ldc, complex *work, integer *lwork, integer *
1370  info);
1371 
1372 /* Subroutine */
1373 int cunml2_(char *side, char *trans, integer *m, integer *n,
1374  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1375  integer *ldc, complex *work, integer *info);
1376 
1377 /* Subroutine */
1378 int cunmlq_(char *side, char *trans, integer *m, integer *n,
1379  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1380  integer *ldc, complex *work, integer *lwork, integer *info);
1381 
1382 /* Subroutine */
1383 int cunmql_(char *side, char *trans, integer *m, integer *n,
1384  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1385  integer *ldc, complex *work, integer *lwork, integer *info);
1386 
1387 /* Subroutine */
1388 int cunmqr_(char *side, char *trans, integer *m, integer *n,
1389  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1390  integer *ldc, complex *work, integer *lwork, integer *info);
1391 
1392 /* Subroutine */
1393 int cunmr2_(char *side, char *trans, integer *m, integer *n,
1394  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1395  integer *ldc, complex *work, integer *info);
1396 
1397 /* Subroutine */
1398 int cunmr3_(char *side, char *trans, integer *m, integer *n,
1399  integer *k, integer *l, complex *a, integer *lda, complex *tau,
1400  complex *c__, integer *ldc, complex *work, integer *info);
1401 
1402 /* Subroutine */
1403 int cunmrq_(char *side, char *trans, integer *m, integer *n,
1404  integer *k, complex *a, integer *lda, complex *tau, complex *c__,
1405  integer *ldc, complex *work, integer *lwork, integer *info);
1406 
1407 /* Subroutine */
1408 int cunmrz_(char *side, char *trans, integer *m, integer *n,
1409  integer *k, integer *l, complex *a, integer *lda, complex *tau,
1410  complex *c__, integer *ldc, complex *work, integer *lwork, integer *
1411  info);
1412 
1413 /* Subroutine */
1414 int cunmtr_(char *side, char *uplo, char *trans, integer *m,
1415  integer *n, complex *a, integer *lda, complex *tau, complex *c__,
1416  integer *ldc, complex *work, integer *lwork, integer *info);
1417 
1418 /* Subroutine */
1419 int cupgtr_(char *uplo, integer *n, complex *ap, complex *
1420  tau, complex *q, integer *ldq, complex *work, integer *info);
1421 
1422 /* Subroutine */
1423 int cupmtr_(char *side, char *uplo, char *trans, integer *m,
1424  integer *n, complex *ap, complex *tau, complex *c__, integer *ldc,
1425  complex *work, integer *info);
1426 
1427 /* Subroutine */
1428 int dbdsdc_(char *uplo, char *compq, integer *n, doublereal *
1429  d__, doublereal *e, doublereal *u, integer *ldu, doublereal *vt,
1430  integer *ldvt, doublereal *q, integer *iq, doublereal *work, integer *
1431  iwork, integer *info);
1432 
1433 /* Subroutine */
1434 int dbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
1435  nru, integer *ncc, doublereal *d__, doublereal *e, doublereal *vt,
1436  integer *ldvt, doublereal *u, integer *ldu, doublereal *c__, integer *
1437  ldc, doublereal *work, integer *info);
1438 
1439 /* Subroutine */
1440 int ddisna_(char *job, integer *m, integer *n, doublereal *
1441  d__, doublereal *sep, integer *info);
1442 
1443 /* Subroutine */
1444 int dgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
1445  integer *kl, integer *ku, doublereal *ab, integer *ldab, doublereal *
1446  d__, doublereal *e, doublereal *q, integer *ldq, doublereal *pt,
1447  integer *ldpt, doublereal *c__, integer *ldc, doublereal *work,
1448  integer *info);
1449 
1450 /* Subroutine */
1451 int dgbcon_(char *norm, integer *n, integer *kl, integer *ku,
1452  doublereal *ab, integer *ldab, integer *ipiv, doublereal *anorm,
1453  doublereal *rcond, doublereal *work, integer *iwork, integer *info);
1454 
1455 /* Subroutine */
1456 int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
1457  doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
1458  doublereal *rowcnd, doublereal *colcnd, doublereal *amax, integer *
1459  info);
1460 
1461 /* Subroutine */
1462 int dgbrfs_(char *trans, integer *n, integer *kl, integer *
1463  ku, integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
1464  integer *ldafb, integer *ipiv, doublereal *b, integer *ldb,
1465  doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
1466  doublereal *work, integer *iwork, integer *info);
1467 
1468 /* Subroutine */
1469 int dgbsv_(integer *n, integer *kl, integer *ku, integer *
1470  nrhs, doublereal *ab, integer *ldab, integer *ipiv, doublereal *b,
1471  integer *ldb, integer *info);
1472 
1473 /* Subroutine */
1474 int dgbsvx_(char *fact, char *trans, integer *n, integer *kl,
1475  integer *ku, integer *nrhs, doublereal *ab, integer *ldab,
1476  doublereal *afb, integer *ldafb, integer *ipiv, char *equed,
1477  doublereal *r__, doublereal *c__, doublereal *b, integer *ldb,
1478  doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
1479  doublereal *berr, doublereal *work, integer *iwork, integer *info);
1480 
1481 /* Subroutine */
1482 int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
1483  doublereal *ab, integer *ldab, integer *ipiv, integer *info);
1484 
1485 /* Subroutine */
1486 int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
1487  doublereal *ab, integer *ldab, integer *ipiv, integer *info);
1488 
1489 /* Subroutine */
1490 int dgbtrs_(char *trans, integer *n, integer *kl, integer *
1491  ku, integer *nrhs, doublereal *ab, integer *ldab, integer *ipiv,
1492  doublereal *b, integer *ldb, integer *info);
1493 
1494 /* Subroutine */
1495 int dgebak_(char *job, char *side, integer *n, integer *ilo,
1496  integer *ihi, doublereal *scale, integer *m, doublereal *v, integer *
1497  ldv, integer *info);
1498 
1499 /* Subroutine */
1500 int dgebal_(char *job, integer *n, doublereal *a, integer *
1501  lda, integer *ilo, integer *ihi, doublereal *scale, integer *info);
1502 
1503 /* Subroutine */
1504 int dgebd2_(integer *m, integer *n, doublereal *a, integer *
1505  lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
1506  taup, doublereal *work, integer *info);
1507 
1508 /* Subroutine */
1509 int dgebrd_(integer *m, integer *n, doublereal *a, integer *
1510  lda, doublereal *d__, doublereal *e, doublereal *tauq, doublereal *
1511  taup, doublereal *work, integer *lwork, integer *info);
1512 
1513 /* Subroutine */
1514 int dgecon_(char *norm, integer *n, doublereal *a, integer *
1515  lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
1516  iwork, integer *info);
1517 
1518 /* Subroutine */
1519 int dgeequ_(integer *m, integer *n, doublereal *a, integer *
1520  lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
1521  *colcnd, doublereal *amax, integer *info);
1522 
1523 /* Subroutine */
1524 int dgees_(char *jobvs, char *sort, L_fp select, integer *n,
1525  doublereal *a, integer *lda, integer *sdim, doublereal *wr,
1526  doublereal *wi, doublereal *vs, integer *ldvs, doublereal *work,
1527  integer *lwork, logical *bwork, integer *info);
1528 
1529 /* Subroutine */
1530 int dgeesx_(char *jobvs, char *sort, L_fp select, char *
1531  sense, integer *n, doublereal *a, integer *lda, integer *sdim,
1532  doublereal *wr, doublereal *wi, doublereal *vs, integer *ldvs,
1533  doublereal *rconde, doublereal *rcondv, doublereal *work, integer *
1534  lwork, integer *iwork, integer *liwork, logical *bwork, integer *info);
1535 
1536 /* Subroutine */
1537 int dgeev_(char *jobvl, char *jobvr, integer *n, doublereal *
1538  a, integer *lda, doublereal *wr, doublereal *wi, doublereal *vl,
1539  integer *ldvl, doublereal *vr, integer *ldvr, doublereal *work,
1540  integer *lwork, integer *info);
1541 
1542 /* Subroutine */
1543 int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
1544  sense, integer *n, doublereal *a, integer *lda, doublereal *wr,
1545  doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
1546  integer *ldvr, integer *ilo, integer *ihi, doublereal *scale,
1547  doublereal *abnrm, doublereal *rconde, doublereal *rcondv, doublereal
1548  *work, integer *lwork, integer *iwork, integer *info);
1549 
1550 /* Subroutine */
1551 int dgegs_(char *jobvsl, char *jobvsr, integer *n,
1552  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
1553  alphar, doublereal *alphai, doublereal *beta, doublereal *vsl,
1554  integer *ldvsl, doublereal *vsr, integer *ldvsr, doublereal *work,
1555  integer *lwork, integer *info);
1556 
1557 /* Subroutine */
1558 int dgegv_(char *jobvl, char *jobvr, integer *n, doublereal *
1559  a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
1560  doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
1561  doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
1562  integer *info);
1563 
1564 /* Subroutine */
1565 int dgehd2_(integer *n, integer *ilo, integer *ihi,
1566  doublereal *a, integer *lda, doublereal *tau, doublereal *work,
1567  integer *info);
1568 
1569 /* Subroutine */
1570 int dgehrd_(integer *n, integer *ilo, integer *ihi,
1571  doublereal *a, integer *lda, doublereal *tau, doublereal *work,
1572  integer *lwork, integer *info);
1573 
1574 /* Subroutine */
1575 int dgelq2_(integer *m, integer *n, doublereal *a, integer *
1576  lda, doublereal *tau, doublereal *work, integer *info);
1577 
1578 /* Subroutine */
1579 int dgelqf_(integer *m, integer *n, doublereal *a, integer *
1580  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1581 
1582 /* Subroutine */
1583 int dgels_(char *trans, integer *m, integer *n, integer *
1584  nrhs, doublereal *a, integer *lda, doublereal *b, integer *ldb,
1585  doublereal *work, integer *lwork, integer *info);
1586 
1587 /* Subroutine */
1588 int dgelsd_(integer *m, integer *n, integer *nrhs,
1589  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
1590  s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
1591  integer *iwork, integer *info);
1592 
1593 /* Subroutine */
1594 int dgelss_(integer *m, integer *n, integer *nrhs,
1595  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
1596  s, doublereal *rcond, integer *rank, doublereal *work, integer *lwork,
1597  integer *info);
1598 
1599 /* Subroutine */
1600 int dgelsx_(integer *m, integer *n, integer *nrhs,
1601  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
1602  jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
1603  info);
1604 
1605 /* Subroutine */
1606 int dgelsy_(integer *m, integer *n, integer *nrhs,
1607  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
1608  jpvt, doublereal *rcond, integer *rank, doublereal *work, integer *
1609  lwork, integer *info);
1610 
1611 /* Subroutine */
1612 int dgeql2_(integer *m, integer *n, doublereal *a, integer *
1613  lda, doublereal *tau, doublereal *work, integer *info);
1614 
1615 /* Subroutine */
1616 int dgeqlf_(integer *m, integer *n, doublereal *a, integer *
1617  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1618 
1619 /* Subroutine */
1620 int dgeqp3_(integer *m, integer *n, doublereal *a, integer *
1621  lda, integer *jpvt, doublereal *tau, doublereal *work, integer *lwork,
1622  integer *info);
1623 
1624 /* Subroutine */
1625 int dgeqpf_(integer *m, integer *n, doublereal *a, integer *
1626  lda, integer *jpvt, doublereal *tau, doublereal *work, integer *info);
1627 
1628 /* Subroutine */
1629 int dgeqr2_(integer *m, integer *n, doublereal *a, integer *
1630  lda, doublereal *tau, doublereal *work, integer *info);
1631 
1632 /* Subroutine */
1633 int dgeqrf_(integer *m, integer *n, doublereal *a, integer *
1634  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1635 
1636 /* Subroutine */
1637 int dgerfs_(char *trans, integer *n, integer *nrhs,
1638  doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
1639  ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
1640  doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
1641  integer *info);
1642 
1643 /* Subroutine */
1644 int dgerq2_(integer *m, integer *n, doublereal *a, integer *
1645  lda, doublereal *tau, doublereal *work, integer *info);
1646 
1647 /* Subroutine */
1648 int dgerqf_(integer *m, integer *n, doublereal *a, integer *
1649  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
1650 
1651 /* Subroutine */
1652 int dgesc2_(integer *n, doublereal *a, integer *lda,
1653  doublereal *rhs, integer *ipiv, integer *jpiv, doublereal *scale);
1654 
1655 /* Subroutine */
1656 int dgesdd_(char *jobz, integer *m, integer *n, doublereal *
1657  a, integer *lda, doublereal *s, doublereal *u, integer *ldu,
1658  doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
1659  integer *iwork, integer *info);
1660 
1661 /* Subroutine */
1662 int dgesv_(integer *n, integer *nrhs, doublereal *a, integer
1663  *lda, integer *ipiv, doublereal *b, integer *ldb, integer *info);
1664 
1665 /* Subroutine */
1666 int dgesvd_(char *jobu, char *jobvt, integer *m, integer *n,
1667  doublereal *a, integer *lda, doublereal *s, doublereal *u, integer *
1668  ldu, doublereal *vt, integer *ldvt, doublereal *work, integer *lwork,
1669  integer *info);
1670 
1671 /* Subroutine */
1672 int dgesvx_(char *fact, char *trans, integer *n, integer *
1673  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
1674  integer *ipiv, char *equed, doublereal *r__, doublereal *c__,
1675  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1676  rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
1677  iwork, integer *info);
1678 
1679 /* Subroutine */
1680 int dgetc2_(integer *n, doublereal *a, integer *lda, integer
1681  *ipiv, integer *jpiv, integer *info);
1682 
1683 /* Subroutine */
1684 int dgetf2_(integer *m, integer *n, doublereal *a, integer *
1685  lda, integer *ipiv, integer *info);
1686 
1687 /* Subroutine */
1688 int dgetrf_(integer *m, integer *n, doublereal *a, integer *
1689  lda, integer *ipiv, integer *info);
1690 
1691 /* Subroutine */
1692 int dgetri_(integer *n, doublereal *a, integer *lda, integer
1693  *ipiv, doublereal *work, integer *lwork, integer *info);
1694 
1695 /* Subroutine */
1696 int dgetrs_(char *trans, integer *n, integer *nrhs,
1697  doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
1698  ldb, integer *info);
1699 
1700 /* Subroutine */
1701 int dggbak_(char *job, char *side, integer *n, integer *ilo,
1702  integer *ihi, doublereal *lscale, doublereal *rscale, integer *m,
1703  doublereal *v, integer *ldv, integer *info);
1704 
1705 /* Subroutine */
1706 int dggbal_(char *job, integer *n, doublereal *a, integer *
1707  lda, doublereal *b, integer *ldb, integer *ilo, integer *ihi,
1708  doublereal *lscale, doublereal *rscale, doublereal *work, integer *
1709  info);
1710 
1711 /* Subroutine */
1712 int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
1713  delctg, integer *n, doublereal *a, integer *lda, doublereal *b,
1714  integer *ldb, integer *sdim, doublereal *alphar, doublereal *alphai,
1715  doublereal *beta, doublereal *vsl, integer *ldvsl, doublereal *vsr,
1716  integer *ldvsr, doublereal *work, integer *lwork, logical *bwork,
1717  integer *info);
1718 
1719 /* Subroutine */
1720 int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
1721  delctg, char *sense, integer *n, doublereal *a, integer *lda,
1722  doublereal *b, integer *ldb, integer *sdim, doublereal *alphar,
1723  doublereal *alphai, doublereal *beta, doublereal *vsl, integer *ldvsl,
1724  doublereal *vsr, integer *ldvsr, doublereal *rconde, doublereal *
1725  rcondv, doublereal *work, integer *lwork, integer *iwork, integer *
1726  liwork, logical *bwork, integer *info);
1727 
1728 /* Subroutine */
1729 int dggev_(char *jobvl, char *jobvr, integer *n, doublereal *
1730  a, integer *lda, doublereal *b, integer *ldb, doublereal *alphar,
1731  doublereal *alphai, doublereal *beta, doublereal *vl, integer *ldvl,
1732  doublereal *vr, integer *ldvr, doublereal *work, integer *lwork,
1733  integer *info);
1734 
1735 /* Subroutine */
1736 int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
1737  sense, integer *n, doublereal *a, integer *lda, doublereal *b,
1738  integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
1739  beta, doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
1740  integer *ilo, integer *ihi, doublereal *lscale, doublereal *rscale,
1741  doublereal *abnrm, doublereal *bbnrm, doublereal *rconde, doublereal *
1742  rcondv, doublereal *work, integer *lwork, integer *iwork, logical *
1743  bwork, integer *info);
1744 
1745 /* Subroutine */
1746 int dggglm_(integer *n, integer *m, integer *p, doublereal *
1747  a, integer *lda, doublereal *b, integer *ldb, doublereal *d__,
1748  doublereal *x, doublereal *y, doublereal *work, integer *lwork,
1749  integer *info);
1750 
1751 /* Subroutine */
1752 int dgghrd_(char *compq, char *compz, integer *n, integer *
1753  ilo, integer *ihi, doublereal *a, integer *lda, doublereal *b,
1754  integer *ldb, doublereal *q, integer *ldq, doublereal *z__, integer *
1755  ldz, integer *info);
1756 
1757 /* Subroutine */
1758 int dgglse_(integer *m, integer *n, integer *p, doublereal *
1759  a, integer *lda, doublereal *b, integer *ldb, doublereal *c__,
1760  doublereal *d__, doublereal *x, doublereal *work, integer *lwork,
1761  integer *info);
1762 
1763 /* Subroutine */
1764 int dggqrf_(integer *n, integer *m, integer *p, doublereal *
1765  a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
1766  doublereal *taub, doublereal *work, integer *lwork, integer *info);
1767 
1768 /* Subroutine */
1769 int dggrqf_(integer *m, integer *p, integer *n, doublereal *
1770  a, integer *lda, doublereal *taua, doublereal *b, integer *ldb,
1771  doublereal *taub, doublereal *work, integer *lwork, integer *info);
1772 
1773 /* Subroutine */
1774 int dggsvd_(char *jobu, char *jobv, char *jobq, integer *m,
1775  integer *n, integer *p, integer *k, integer *l, doublereal *a,
1776  integer *lda, doublereal *b, integer *ldb, doublereal *alpha,
1777  doublereal *beta, doublereal *u, integer *ldu, doublereal *v, integer
1778  *ldv, doublereal *q, integer *ldq, doublereal *work, integer *iwork,
1779  integer *info);
1780 
1781 /* Subroutine */
1782 int dggsvp_(char *jobu, char *jobv, char *jobq, integer *m,
1783  integer *p, integer *n, doublereal *a, integer *lda, doublereal *b,
1784  integer *ldb, doublereal *tola, doublereal *tolb, integer *k, integer
1785  *l, doublereal *u, integer *ldu, doublereal *v, integer *ldv,
1786  doublereal *q, integer *ldq, integer *iwork, doublereal *tau,
1787  doublereal *work, integer *info);
1788 
1789 /* Subroutine */
1790 int dgtcon_(char *norm, integer *n, doublereal *dl,
1791  doublereal *d__, doublereal *du, doublereal *du2, integer *ipiv,
1792  doublereal *anorm, doublereal *rcond, doublereal *work, integer *
1793  iwork, integer *info);
1794 
1795 /* Subroutine */
1796 int dgtrfs_(char *trans, integer *n, integer *nrhs,
1797  doublereal *dl, doublereal *d__, doublereal *du, doublereal *dlf,
1798  doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
1799  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1800  ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
1801  info);
1802 
1803 /* Subroutine */
1804 int dgtsv_(integer *n, integer *nrhs, doublereal *dl,
1805  doublereal *d__, doublereal *du, doublereal *b, integer *ldb, integer
1806  *info);
1807 
1808 /* Subroutine */
1809 int dgtsvx_(char *fact, char *trans, integer *n, integer *
1810  nrhs, doublereal *dl, doublereal *d__, doublereal *du, doublereal *
1811  dlf, doublereal *df, doublereal *duf, doublereal *du2, integer *ipiv,
1812  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
1813  rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
1814  iwork, integer *info);
1815 
1816 /* Subroutine */
1817 int dgttrf_(integer *n, doublereal *dl, doublereal *d__,
1818  doublereal *du, doublereal *du2, integer *ipiv, integer *info);
1819 
1820 /* Subroutine */
1821 int dgttrs_(char *trans, integer *n, integer *nrhs,
1822  doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
1823  integer *ipiv, doublereal *b, integer *ldb, integer *info);
1824 
1825 /* Subroutine */
1826 int dgtts2_(integer *itrans, integer *n, integer *nrhs,
1827  doublereal *dl, doublereal *d__, doublereal *du, doublereal *du2,
1828  integer *ipiv, doublereal *b, integer *ldb);
1829 
1830 /* Subroutine */
1831 int dhgeqz_(char *job, char *compq, char *compz, integer *n,
1832  integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
1833  b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
1834  beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
1835  doublereal *work, integer *lwork, integer *info);
1836 
1837 /* Subroutine */
1838 int dhsein_(char *side, char *eigsrc, char *initv, logical *
1839  select, integer *n, doublereal *h__, integer *ldh, doublereal *wr,
1840  doublereal *wi, doublereal *vl, integer *ldvl, doublereal *vr,
1841  integer *ldvr, integer *mm, integer *m, doublereal *work, integer *
1842  ifaill, integer *ifailr, integer *info);
1843 
1844 /* Subroutine */
1845 int dhseqr_(char *job, char *compz, integer *n, integer *ilo,
1846  integer *ihi, doublereal *h__, integer *ldh, doublereal *wr,
1847  doublereal *wi, doublereal *z__, integer *ldz, doublereal *work,
1848  integer *lwork, integer *info);
1849 
1850 /* Subroutine */
1851 int dlabad_(doublereal *small, doublereal *large);
1852 
1853 /* Subroutine */
1854 int dlabrd_(integer *m, integer *n, integer *nb, doublereal *
1855  a, integer *lda, doublereal *d__, doublereal *e, doublereal *tauq,
1856  doublereal *taup, doublereal *x, integer *ldx, doublereal *y, integer
1857  *ldy);
1858 
1859 /* Subroutine */
1860 int dlacon_(integer *n, doublereal *v, doublereal *x,
1861  integer *isgn, doublereal *est, integer *kase);
1862 
1863 /* Subroutine */
1864 int dlacpy_(char *uplo, integer *m, integer *n, doublereal *
1865  a, integer *lda, doublereal *b, integer *ldb);
1866 
1867 /* Subroutine */
1868 int dladiv_(doublereal *a, doublereal *b, doublereal *c__,
1869  doublereal *d__, doublereal *p, doublereal *q);
1870 
1871 /* Subroutine */
1872 int dlae2_(doublereal *a, doublereal *b, doublereal *c__,
1873  doublereal *rt1, doublereal *rt2);
1874 
1875 /* Subroutine */
1876 int dlaebz_(integer *ijob, integer *nitmax, integer *n,
1877  integer *mmax, integer *minp, integer *nbmin, doublereal *abstol,
1878  doublereal *reltol, doublereal *pivmin, doublereal *d__, doublereal *
1879  e, doublereal *e2, integer *nval, doublereal *ab, doublereal *c__,
1880  integer *mout, integer *nab, doublereal *work, integer *iwork,
1881  integer *info);
1882 
1883 /* Subroutine */
1884 int dlaed0_(integer *icompq, integer *qsiz, integer *n,
1885  doublereal *d__, doublereal *e, doublereal *q, integer *ldq,
1886  doublereal *qstore, integer *ldqs, doublereal *work, integer *iwork,
1887  integer *info);
1888 
1889 /* Subroutine */
1890 int dlaed1_(integer *n, doublereal *d__, doublereal *q,
1891  integer *ldq, integer *indxq, doublereal *rho, integer *cutpnt,
1892  doublereal *work, integer *iwork, integer *info);
1893 
1894 /* Subroutine */
1895 int dlaed2_(integer *k, integer *n, integer *n1, doublereal *
1896  d__, doublereal *q, integer *ldq, integer *indxq, doublereal *rho,
1897  doublereal *z__, doublereal *dlamda, doublereal *w, doublereal *q2,
1898  integer *indx, integer *indxc, integer *indxp, integer *coltyp,
1899  integer *info);
1900 
1901 /* Subroutine */
1902 int dlaed3_(integer *k, integer *n, integer *n1, doublereal *
1903  d__, doublereal *q, integer *ldq, doublereal *rho, doublereal *dlamda,
1904  doublereal *q2, integer *indx, integer *ctot, doublereal *w,
1905  doublereal *s, integer *info);
1906 
1907 /* Subroutine */
1908 int dlaed4_(integer *n, integer *i__, doublereal *d__,
1909  doublereal *z__, doublereal *delta, doublereal *rho, doublereal *dlam,
1910  integer *info);
1911 
1912 /* Subroutine */
1913 int dlaed5_(integer *i__, doublereal *d__, doublereal *z__,
1914  doublereal *delta, doublereal *rho, doublereal *dlam);
1915 
1916 /* Subroutine */
1917 int dlaed6_(integer *kniter, logical *orgati, doublereal *
1918  rho, doublereal *d__, doublereal *z__, doublereal *finit, doublereal *
1919  tau, integer *info);
1920 
1921 /* Subroutine */
1922 int dlaed7_(integer *icompq, integer *n, integer *qsiz,
1923  integer *tlvls, integer *curlvl, integer *curpbm, doublereal *d__,
1924  doublereal *q, integer *ldq, integer *indxq, doublereal *rho, integer
1925  *cutpnt, doublereal *qstore, integer *qptr, integer *prmptr, integer *
1926  perm, integer *givptr, integer *givcol, doublereal *givnum,
1927  doublereal *work, integer *iwork, integer *info);
1928 
1929 /* Subroutine */
1930 int dlaed8_(integer *icompq, integer *k, integer *n, integer
1931  *qsiz, doublereal *d__, doublereal *q, integer *ldq, integer *indxq,
1932  doublereal *rho, integer *cutpnt, doublereal *z__, doublereal *dlamda,
1933  doublereal *q2, integer *ldq2, doublereal *w, integer *perm, integer
1934  *givptr, integer *givcol, doublereal *givnum, integer *indxp, integer
1935  *indx, integer *info);
1936 
1937 /* Subroutine */
1938 int dlaed9_(integer *k, integer *kstart, integer *kstop,
1939  integer *n, doublereal *d__, doublereal *q, integer *ldq, doublereal *
1940  rho, doublereal *dlamda, doublereal *w, doublereal *s, integer *lds,
1941  integer *info);
1942 
1943 /* Subroutine */
1944 int dlaeda_(integer *n, integer *tlvls, integer *curlvl,
1945  integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
1946  integer *givcol, doublereal *givnum, doublereal *q, integer *qptr,
1947  doublereal *z__, doublereal *ztemp, integer *info);
1948 
1949 /* Subroutine */
1950 int dlaein_(logical *rightv, logical *noinit, integer *n,
1951  doublereal *h__, integer *ldh, doublereal *wr, doublereal *wi,
1952  doublereal *vr, doublereal *vi, doublereal *b, integer *ldb,
1953  doublereal *work, doublereal *eps3, doublereal *smlnum, doublereal *
1954  bignum, integer *info);
1955 
1956 /* Subroutine */
1957 int dlaev2_(doublereal *a, doublereal *b, doublereal *c__,
1958  doublereal *rt1, doublereal *rt2, doublereal *cs1, doublereal *sn1);
1959 
1960 /* Subroutine */
1961 int dlaexc_(logical *wantq, integer *n, doublereal *t,
1962  integer *ldt, doublereal *q, integer *ldq, integer *j1, integer *n1,
1963  integer *n2, doublereal *work, integer *info);
1964 
1965 /* Subroutine */
1966 int dlag2_(doublereal *a, integer *lda, doublereal *b,
1967  integer *ldb, doublereal *safmin, doublereal *scale1, doublereal *
1968  scale2, doublereal *wr1, doublereal *wr2, doublereal *wi);
1969 
1970 /* Subroutine */
1971 int dlags2_(logical *upper, doublereal *a1, doublereal *a2,
1972  doublereal *a3, doublereal *b1, doublereal *b2, doublereal *b3,
1973  doublereal *csu, doublereal *snu, doublereal *csv, doublereal *snv,
1974  doublereal *csq, doublereal *snq);
1975 
1976 /* Subroutine */
1977 int dlagtf_(integer *n, doublereal *a, doublereal *lambda,
1978  doublereal *b, doublereal *c__, doublereal *tol, doublereal *d__,
1979  integer *in, integer *info);
1980 
1981 /* Subroutine */
1982 int dlagtm_(char *trans, integer *n, integer *nrhs,
1983  doublereal *alpha, doublereal *dl, doublereal *d__, doublereal *du,
1984  doublereal *x, integer *ldx, doublereal *beta, doublereal *b, integer
1985  *ldb);
1986 
1987 /* Subroutine */
1988 int dlagts_(integer *job, integer *n, doublereal *a,
1989  doublereal *b, doublereal *c__, doublereal *d__, integer *in,
1990  doublereal *y, doublereal *tol, integer *info);
1991 
1992 /* Subroutine */
1993 int dlagv2_(doublereal *a, integer *lda, doublereal *b,
1994  integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
1995  beta, doublereal *csl, doublereal *snl, doublereal *csr, doublereal *
1996  snr);
1997 
1998 /* Subroutine */
1999 int dlahqr_(logical *wantt, logical *wantz, integer *n,
2000  integer *ilo, integer *ihi, doublereal *h__, integer *ldh, doublereal
2001  *wr, doublereal *wi, integer *iloz, integer *ihiz, doublereal *z__,
2002  integer *ldz, integer *info);
2003 
2004 /* Subroutine */
2005 int dlahrd_(integer *n, integer *k, integer *nb, doublereal *
2006  a, integer *lda, doublereal *tau, doublereal *t, integer *ldt,
2007  doublereal *y, integer *ldy);
2008 
2009 /* Subroutine */
2010 int dlaic1_(integer *job, integer *j, doublereal *x,
2011  doublereal *sest, doublereal *w, doublereal *gamma, doublereal *
2012  sestpr, doublereal *s, doublereal *c__);
2013 
2014 /* Subroutine */
2015 int dlaln2_(logical *ltrans, integer *na, integer *nw,
2016  doublereal *smin, doublereal *ca, doublereal *a, integer *lda,
2017  doublereal *d1, doublereal *d2, doublereal *b, integer *ldb,
2018  doublereal *wr, doublereal *wi, doublereal *x, integer *ldx,
2019  doublereal *scale, doublereal *xnorm, integer *info);
2020 
2021 /* Subroutine */
2022 int dlals0_(integer *icompq, integer *nl, integer *nr,
2023  integer *sqre, integer *nrhs, doublereal *b, integer *ldb, doublereal
2024  *bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol,
2025  integer *ldgcol, doublereal *givnum, integer *ldgnum, doublereal *
2026  poles, doublereal *difl, doublereal *difr, doublereal *z__, integer *
2027  k, doublereal *c__, doublereal *s, doublereal *work, integer *info);
2028 
2029 /* Subroutine */
2030 int dlalsa_(integer *icompq, integer *smlsiz, integer *n,
2031  integer *nrhs, doublereal *b, integer *ldb, doublereal *bx, integer *
2032  ldbx, doublereal *u, integer *ldu, doublereal *vt, integer *k,
2033  doublereal *difl, doublereal *difr, doublereal *z__, doublereal *
2034  poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
2035  perm, doublereal *givnum, doublereal *c__, doublereal *s, doublereal *
2036  work, integer *iwork, integer *info);
2037 
2038 /* Subroutine */
2039 int dlalsd_(char *uplo, integer *smlsiz, integer *n, integer
2040  *nrhs, doublereal *d__, doublereal *e, doublereal *b, integer *ldb,
2041  doublereal *rcond, integer *rank, doublereal *work, integer *iwork,
2042  integer *info);
2043 
2044 /* Subroutine */
2045 int dlamc1_(integer *beta, integer *t, logical *rnd, logical
2046  *ieee1);
2047 
2048 /* Subroutine */
2049 int dlamc2_(integer *beta, integer *t, logical *rnd,
2050  doublereal *eps, integer *emin, doublereal *rmin, integer *emax,
2051  doublereal *rmax);
2052 
2053 /* Subroutine */
2054 int dlamc4_(integer *emin, doublereal *start, integer *base);
2055 
2056 /* Subroutine */
2057 int dlamc5_(integer *beta, integer *p, integer *emin,
2058  logical *ieee, integer *emax, doublereal *rmax);
2059 
2060 /* Subroutine */
2061 int dlamrg_(integer *n1, integer *n2, doublereal *a, integer
2062  *dtrd1, integer *dtrd2, integer *index);
2063 
2064 /* Subroutine */
2065 int dlanv2_(doublereal *a, doublereal *b, doublereal *c__,
2066  doublereal *d__, doublereal *rt1r, doublereal *rt1i, doublereal *rt2r,
2067  doublereal *rt2i, doublereal *cs, doublereal *sn);
2068 
2069 /* Subroutine */
2070 int dlapll_(integer *n, doublereal *x, integer *incx,
2071  doublereal *y, integer *incy, doublereal *ssmin);
2072 
2073 /* Subroutine */
2074 int dlapmt_(logical *forwrd, integer *m, integer *n,
2075  doublereal *x, integer *ldx, integer *k);
2076 
2077 /* Subroutine */
2078 int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
2079  doublereal *ab, integer *ldab, doublereal *r__, doublereal *c__,
2080  doublereal *rowcnd, doublereal *colcnd, doublereal *amax, char *equed);
2081 
2082 /* Subroutine */
2083 int dlaqge_(integer *m, integer *n, doublereal *a, integer *
2084  lda, doublereal *r__, doublereal *c__, doublereal *rowcnd, doublereal
2085  *colcnd, doublereal *amax, char *equed);
2086 
2087 /* Subroutine */
2088 int dlaqp2_(integer *m, integer *n, integer *offset,
2089  doublereal *a, integer *lda, integer *jpvt, doublereal *tau,
2090  doublereal *vn1, doublereal *vn2, doublereal *work);
2091 
2092 /* Subroutine */
2093 int dlaqps_(integer *m, integer *n, integer *offset, integer
2094  *nb, integer *kb, doublereal *a, integer *lda, integer *jpvt,
2095  doublereal *tau, doublereal *vn1, doublereal *vn2, doublereal *auxv,
2096  doublereal *f, integer *ldf);
2097 
2098 /* Subroutine */
2099 int dlaqsb_(char *uplo, integer *n, integer *kd, doublereal *
2100  ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
2101  char *equed);
2102 
2103 /* Subroutine */
2104 int dlaqsp_(char *uplo, integer *n, doublereal *ap,
2105  doublereal *s, doublereal *scond, doublereal *amax, char *equed);
2106 
2107 /* Subroutine */
2108 int dlaqsy_(char *uplo, integer *n, doublereal *a, integer *
2109  lda, doublereal *s, doublereal *scond, doublereal *amax, char *equed);
2110 
2111 /* Subroutine */
2112 int dlaqtr_(logical *ltran, logical *lreal, integer *n,
2113  doublereal *t, integer *ldt, doublereal *b, doublereal *w, doublereal
2114  *scale, doublereal *x, doublereal *work, integer *info);
2115 
2116 /* Subroutine */
2117 int dlar1v_(integer *n, integer *b1, integer *bn, doublereal
2118  *sigma, doublereal *d__, doublereal *l, doublereal *ld, doublereal *
2119  lld, doublereal *gersch, doublereal *z__, doublereal *ztz, doublereal
2120  *mingma, integer *r__, integer *isuppz, doublereal *work);
2121 
2122 /* Subroutine */
2123 int dlar2v_(integer *n, doublereal *x, doublereal *y,
2124  doublereal *z__, integer *incx, doublereal *c__, doublereal *s,
2125  integer *incc);
2126 
2127 /* Subroutine */
2128 int dlarf_(char *side, integer *m, integer *n, doublereal *v,
2129  integer *incv, doublereal *tau, doublereal *c__, integer *ldc,
2130  doublereal *work);
2131 
2132 /* Subroutine */
2133 int dlarfb_(char *side, char *trans, char *direct, char *
2134  storev, integer *m, integer *n, integer *k, doublereal *v, integer *
2135  ldv, doublereal *t, integer *ldt, doublereal *c__, integer *ldc,
2136  doublereal *work, integer *ldwork);
2137 
2138 /* Subroutine */
2139 int dlarfg_(integer *n, doublereal *alpha, doublereal *x,
2140  integer *incx, doublereal *tau);
2141 
2142 /* Subroutine */
2143 int dlarft_(char *direct, char *storev, integer *n, integer *
2144  k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
2145  integer *ldt);
2146 
2147 /* Subroutine */
2148 int dlarfx_(char *side, integer *m, integer *n, doublereal *
2149  v, doublereal *tau, doublereal *c__, integer *ldc, doublereal *work);
2150 
2151 /* Subroutine */
2152 int dlargv_(integer *n, doublereal *x, integer *incx,
2153  doublereal *y, integer *incy, doublereal *c__, integer *incc);
2154 
2155 /* Subroutine */
2156 int dlarnv_(integer *idist, integer *iseed, integer *n,
2157  doublereal *x);
2158 
2159 /* Subroutine */
2160 int dlarrb_(integer *n, doublereal *d__, doublereal *l,
2161  doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast,
2162  doublereal *sigma, doublereal *reltol, doublereal *w, doublereal *
2163  wgap, doublereal *werr, doublereal *work, integer *iwork, integer *
2164  info);
2165 
2166 /* Subroutine */
2167 int dlarre_(integer *n, doublereal *d__, doublereal *e,
2168  doublereal *tol, integer *nsplit, integer *isplit, integer *m,
2169  doublereal *w, doublereal *woff, doublereal *gersch, doublereal *work,
2170  integer *info);
2171 
2172 /* Subroutine */
2173 int dlarrf_(integer *n, doublereal *d__, doublereal *l,
2174  doublereal *ld, doublereal *lld, integer *ifirst, integer *ilast,
2175  doublereal *w, doublereal *dplus, doublereal *lplus, doublereal *work,
2176  integer *iwork, integer *info);
2177 
2178 /* Subroutine */
2179 int dlarrv_(integer *n, doublereal *d__, doublereal *l,
2180  integer *isplit, integer *m, doublereal *w, integer *iblock,
2181  doublereal *gersch, doublereal *tol, doublereal *z__, integer *ldz,
2182  integer *isuppz, doublereal *work, integer *iwork, integer *info);
2183 
2184 /* Subroutine */
2185 int dlartg_(doublereal *f, doublereal *g, doublereal *cs,
2186  doublereal *sn, doublereal *r__);
2187 
2188 /* Subroutine */
2189 int dlartv_(integer *n, doublereal *x, integer *incx,
2190  doublereal *y, integer *incy, doublereal *c__, doublereal *s, integer
2191  *incc);
2192 
2193 /* Subroutine */
2194 int dlaruv_(integer *iseed, integer *n, doublereal *x);
2195 
2196 /* Subroutine */
2197 int dlarz_(char *side, integer *m, integer *n, integer *l,
2198  doublereal *v, integer *incv, doublereal *tau, doublereal *c__,
2199  integer *ldc, doublereal *work);
2200 
2201 /* Subroutine */
2202 int dlarzb_(char *side, char *trans, char *direct, char *
2203  storev, integer *m, integer *n, integer *k, integer *l, doublereal *v,
2204  integer *ldv, doublereal *t, integer *ldt, doublereal *c__, integer *
2205  ldc, doublereal *work, integer *ldwork);
2206 
2207 /* Subroutine */
2208 int dlarzt_(char *direct, char *storev, integer *n, integer *
2209  k, doublereal *v, integer *ldv, doublereal *tau, doublereal *t,
2210  integer *ldt);
2211 
2212 /* Subroutine */
2213 int dlas2_(doublereal *f, doublereal *g, doublereal *h__,
2214  doublereal *ssmin, doublereal *ssmax);
2215 
2216 /* Subroutine */
2217 int dlascl_(char *type__, integer *kl, integer *ku,
2218  doublereal *cfrom, doublereal *cto, integer *m, integer *n,
2219  doublereal *a, integer *lda, integer *info);
2220 
2221 /* Subroutine */
2222 int dlasd0_(integer *n, integer *sqre, doublereal *d__,
2223  doublereal *e, doublereal *u, integer *ldu, doublereal *vt, integer *
2224  ldvt, integer *smlsiz, integer *iwork, doublereal *work, integer *
2225  info);
2226 
2227 /* Subroutine */
2228 int dlasd1_(integer *nl, integer *nr, integer *sqre,
2229  doublereal *d__, doublereal *alpha, doublereal *beta, doublereal *u,
2230  integer *ldu, doublereal *vt, integer *ldvt, integer *idxq, integer *
2231  iwork, doublereal *work, integer *info);
2232 
2233 /* Subroutine */
2234 int dlasd2_(integer *nl, integer *nr, integer *sqre, integer
2235  *k, doublereal *d__, doublereal *z__, doublereal *alpha, doublereal *
2236  beta, doublereal *u, integer *ldu, doublereal *vt, integer *ldvt,
2237  doublereal *dsigma, doublereal *u2, integer *ldu2, doublereal *vt2,
2238  integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
2239  idxq, integer *coltyp, integer *info);
2240 
2241 /* Subroutine */
2242 int dlasd3_(integer *nl, integer *nr, integer *sqre, integer
2243  *k, doublereal *d__, doublereal *q, integer *ldq, doublereal *dsigma,
2244  doublereal *u, integer *ldu, doublereal *u2, integer *ldu2,
2245  doublereal *vt, integer *ldvt, doublereal *vt2, integer *ldvt2,
2246  integer *idxc, integer *ctot, doublereal *z__, integer *info);
2247 
2248 /* Subroutine */
2249 int dlasd4_(integer *n, integer *i__, doublereal *d__,
2250  doublereal *z__, doublereal *delta, doublereal *rho, doublereal *
2251  sigma, doublereal *work, integer *info);
2252 
2253 /* Subroutine */
2254 int dlasd5_(integer *i__, doublereal *d__, doublereal *z__,
2255  doublereal *delta, doublereal *rho, doublereal *dsigma, doublereal *
2256  work);
2257 
2258 /* Subroutine */
2259 int dlasd6_(integer *icompq, integer *nl, integer *nr,
2260  integer *sqre, doublereal *d__, doublereal *vf, doublereal *vl,
2261  doublereal *alpha, doublereal *beta, integer *idxq, integer *perm,
2262  integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
2263  integer *ldgnum, doublereal *poles, doublereal *difl, doublereal *
2264  difr, doublereal *z__, integer *k, doublereal *c__, doublereal *s,
2265  doublereal *work, integer *iwork, integer *info);
2266 
2267 /* Subroutine */
2268 int dlasd7_(integer *icompq, integer *nl, integer *nr,
2269  integer *sqre, integer *k, doublereal *d__, doublereal *z__,
2270  doublereal *zw, doublereal *vf, doublereal *vfw, doublereal *vl,
2271  doublereal *vlw, doublereal *alpha, doublereal *beta, doublereal *
2272  dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm,
2273  integer *givptr, integer *givcol, integer *ldgcol, doublereal *givnum,
2274  integer *ldgnum, doublereal *c__, doublereal *s, integer *info);
2275 
2276 /* Subroutine */
2277 int dlasd8_(integer *icompq, integer *k, doublereal *d__,
2278  doublereal *z__, doublereal *vf, doublereal *vl, doublereal *difl,
2279  doublereal *difr, integer *lddifr, doublereal *dsigma, doublereal *
2280  work, integer *info);
2281 
2282 /* Subroutine */
2283 int dlasd9_(integer *icompq, integer *ldu, integer *k,
2284  doublereal *d__, doublereal *z__, doublereal *vf, doublereal *vl,
2285  doublereal *difl, doublereal *difr, doublereal *dsigma, doublereal *
2286  work, integer *info);
2287 
2288 /* Subroutine */
2289 int dlasda_(integer *icompq, integer *smlsiz, integer *n,
2290  integer *sqre, doublereal *d__, doublereal *e, doublereal *u, integer
2291  *ldu, doublereal *vt, integer *k, doublereal *difl, doublereal *difr,
2292  doublereal *z__, doublereal *poles, integer *givptr, integer *givcol,
2293  integer *ldgcol, integer *perm, doublereal *givnum, doublereal *c__,
2294  doublereal *s, doublereal *work, integer *iwork, integer *info);
2295 
2296 /* Subroutine */
2297 int dlasdq_(char *uplo, integer *sqre, integer *n, integer *
2298  ncvt, integer *nru, integer *ncc, doublereal *d__, doublereal *e,
2299  doublereal *vt, integer *ldvt, doublereal *u, integer *ldu,
2300  doublereal *c__, integer *ldc, doublereal *work, integer *info);
2301 
2302 /* Subroutine */
2303 int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
2304  inode, integer *ndiml, integer *ndimr, integer *msub);
2305 
2306 /* Subroutine */
2307 int dlaset_(char *uplo, integer *m, integer *n, doublereal *
2308  alpha, doublereal *beta, doublereal *a, integer *lda);
2309 
2310 /* Subroutine */
2311 int dlasq1_(integer *n, doublereal *d__, doublereal *e,
2312  doublereal *work, integer *info);
2313 
2314 /* Subroutine */
2315 int dlasq2_(integer *n, doublereal *z__, integer *info);
2316 
2317 /* Subroutine */
2318 int dlasq3_(integer *i0, integer *n0, doublereal *z__,
2319  integer *pp, doublereal *dmin__, doublereal *sigma, doublereal *desig,
2320  doublereal *qmax, integer *nfail, integer *iter, integer *ndiv,
2321  logical *ieee);
2322 
2323 /* Subroutine */
2324 int dlasq4_(integer *i0, integer *n0, doublereal *z__,
2325  integer *pp, integer *n0in, doublereal *dmin__, doublereal *dmin1,
2326  doublereal *dmin2, doublereal *dn, doublereal *dn1, doublereal *dn2,
2327  doublereal *tau, integer *ttype);
2328 
2329 /* Subroutine */
2330 int dlasq5_(integer *i0, integer *n0, doublereal *z__,
2331  integer *pp, doublereal *tau, doublereal *dmin__, doublereal *dmin1,
2332  doublereal *dmin2, doublereal *dn, doublereal *dnm1, doublereal *dnm2,
2333  logical *ieee);
2334 
2335 /* Subroutine */
2336 int dlasq6_(integer *i0, integer *n0, doublereal *z__,
2337  integer *pp, doublereal *dmin__, doublereal *dmin1, doublereal *dmin2,
2338  doublereal *dn, doublereal *dnm1, doublereal *dnm2);
2339 
2340 /* Subroutine */
2341 int dlasr_(char *side, char *pivot, char *direct, integer *m,
2342  integer *n, doublereal *c__, doublereal *s, doublereal *a, integer *
2343  lda);
2344 
2345 /* Subroutine */
2346 int dlasrt_(char *id, integer *n, doublereal *d__, integer *
2347  info);
2348 
2349 /* Subroutine */
2350 int dlassq_(integer *n, doublereal *x, integer *incx,
2351  doublereal *scale, doublereal *sumsq);
2352 
2353 /* Subroutine */
2354 int dlasv2_(doublereal *f, doublereal *g, doublereal *h__,
2355  doublereal *ssmin, doublereal *ssmax, doublereal *snr, doublereal *
2356  csr, doublereal *snl, doublereal *csl);
2357 
2358 /* Subroutine */
2359 int dlaswp_(integer *n, doublereal *a, integer *lda, integer
2360  *k1, integer *k2, integer *ipiv, integer *incx);
2361 
2362 /* Subroutine */
2363 int dlasy2_(logical *ltranl, logical *ltranr, integer *isgn,
2364  integer *n1, integer *n2, doublereal *tl, integer *ldtl, doublereal *
2365  tr, integer *ldtr, doublereal *b, integer *ldb, doublereal *scale,
2366  doublereal *x, integer *ldx, doublereal *xnorm, integer *info);
2367 
2368 /* Subroutine */
2369 int dlasyf_(char *uplo, integer *n, integer *nb, integer *kb,
2370  doublereal *a, integer *lda, integer *ipiv, doublereal *w, integer *
2371  ldw, integer *info);
2372 
2373 /* Subroutine */
2374 int dlatbs_(char *uplo, char *trans, char *diag, char *
2375  normin, integer *n, integer *kd, doublereal *ab, integer *ldab,
2376  doublereal *x, doublereal *scale, doublereal *cnorm, integer *info);
2377 
2378 /* Subroutine */
2379 int dlatdf_(integer *ijob, integer *n, doublereal *z__,
2380  integer *ldz, doublereal *rhs, doublereal *rdsum, doublereal *rdscal,
2381  integer *ipiv, integer *jpiv);
2382 
2383 /* Subroutine */
2384 int dlatps_(char *uplo, char *trans, char *diag, char *
2385  normin, integer *n, doublereal *ap, doublereal *x, doublereal *scale,
2386  doublereal *cnorm, integer *info);
2387 
2388 /* Subroutine */
2389 int dlatrd_(char *uplo, integer *n, integer *nb, doublereal *
2390  a, integer *lda, doublereal *e, doublereal *tau, doublereal *w,
2391  integer *ldw);
2392 
2393 /* Subroutine */
2394 int dlatrs_(char *uplo, char *trans, char *diag, char *
2395  normin, integer *n, doublereal *a, integer *lda, doublereal *x,
2396  doublereal *scale, doublereal *cnorm, integer *info);
2397 
2398 /* Subroutine */
2399 int dlatrz_(integer *m, integer *n, integer *l, doublereal *
2400  a, integer *lda, doublereal *tau, doublereal *work);
2401 
2402 /* Subroutine */
2403 int dlatzm_(char *side, integer *m, integer *n, doublereal *
2404  v, integer *incv, doublereal *tau, doublereal *c1, doublereal *c2,
2405  integer *ldc, doublereal *work);
2406 
2407 /* Subroutine */
2408 int dlauu2_(char *uplo, integer *n, doublereal *a, integer *
2409  lda, integer *info);
2410 
2411 /* Subroutine */
2412 int dlauum_(char *uplo, integer *n, doublereal *a, integer *
2413  lda, integer *info);
2414 
2415 /* Subroutine */
2416 int dopgtr_(char *uplo, integer *n, doublereal *ap,
2417  doublereal *tau, doublereal *q, integer *ldq, doublereal *work,
2418  integer *info);
2419 
2420 /* Subroutine */
2421 int dopmtr_(char *side, char *uplo, char *trans, integer *m,
2422  integer *n, doublereal *ap, doublereal *tau, doublereal *c__, integer
2423  *ldc, doublereal *work, integer *info);
2424 
2425 /* Subroutine */
2426 int dorg2l_(integer *m, integer *n, integer *k, doublereal *
2427  a, integer *lda, doublereal *tau, doublereal *work, integer *info);
2428 
2429 /* Subroutine */
2430 int dorg2r_(integer *m, integer *n, integer *k, doublereal *
2431  a, integer *lda, doublereal *tau, doublereal *work, integer *info);
2432 
2433 /* Subroutine */
2434 int dorgbr_(char *vect, integer *m, integer *n, integer *k,
2435  doublereal *a, integer *lda, doublereal *tau, doublereal *work,
2436  integer *lwork, integer *info);
2437 
2438 /* Subroutine */
2439 int dorghr_(integer *n, integer *ilo, integer *ihi,
2440  doublereal *a, integer *lda, doublereal *tau, doublereal *work,
2441  integer *lwork, integer *info);
2442 
2443 /* Subroutine */
2444 int dorgl2_(integer *m, integer *n, integer *k, doublereal *
2445  a, integer *lda, doublereal *tau, doublereal *work, integer *info);
2446 
2447 /* Subroutine */
2448 int dorglq_(integer *m, integer *n, integer *k, doublereal *
2449  a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
2450  integer *info);
2451 
2452 /* Subroutine */
2453 int dorgql_(integer *m, integer *n, integer *k, doublereal *
2454  a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
2455  integer *info);
2456 
2457 /* Subroutine */
2458 int dorgqr_(integer *m, integer *n, integer *k, doublereal *
2459  a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
2460  integer *info);
2461 
2462 /* Subroutine */
2463 int dorgr2_(integer *m, integer *n, integer *k, doublereal *
2464  a, integer *lda, doublereal *tau, doublereal *work, integer *info);
2465 
2466 /* Subroutine */
2467 int dorgrq_(integer *m, integer *n, integer *k, doublereal *
2468  a, integer *lda, doublereal *tau, doublereal *work, integer *lwork,
2469  integer *info);
2470 
2471 /* Subroutine */
2472 int dorgtr_(char *uplo, integer *n, doublereal *a, integer *
2473  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
2474 
2475 /* Subroutine */
2476 int dorm2l_(char *side, char *trans, integer *m, integer *n,
2477  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2478  c__, integer *ldc, doublereal *work, integer *info);
2479 
2480 /* Subroutine */
2481 int dorm2r_(char *side, char *trans, integer *m, integer *n,
2482  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2483  c__, integer *ldc, doublereal *work, integer *info);
2484 
2485 /* Subroutine */
2486 int dormbr_(char *vect, char *side, char *trans, integer *m,
2487  integer *n, integer *k, doublereal *a, integer *lda, doublereal *tau,
2488  doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
2489  integer *info);
2490 
2491 /* Subroutine */
2492 int dormhr_(char *side, char *trans, integer *m, integer *n,
2493  integer *ilo, integer *ihi, doublereal *a, integer *lda, doublereal *
2494  tau, doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
2495  integer *info);
2496 
2497 /* Subroutine */
2498 int dorml2_(char *side, char *trans, integer *m, integer *n,
2499  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2500  c__, integer *ldc, doublereal *work, integer *info);
2501 
2502 /* Subroutine */
2503 int dormlq_(char *side, char *trans, integer *m, integer *n,
2504  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2505  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2506 
2507 /* Subroutine */
2508 int dormql_(char *side, char *trans, integer *m, integer *n,
2509  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2510  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2511 
2512 /* Subroutine */
2513 int dormqr_(char *side, char *trans, integer *m, integer *n,
2514  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2515  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2516 
2517 /* Subroutine */
2518 int dormr2_(char *side, char *trans, integer *m, integer *n,
2519  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2520  c__, integer *ldc, doublereal *work, integer *info);
2521 
2522 /* Subroutine */
2523 int dormr3_(char *side, char *trans, integer *m, integer *n,
2524  integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
2525  doublereal *c__, integer *ldc, doublereal *work, integer *info);
2526 
2527 /* Subroutine */
2528 int dormrq_(char *side, char *trans, integer *m, integer *n,
2529  integer *k, doublereal *a, integer *lda, doublereal *tau, doublereal *
2530  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2531 
2532 /* Subroutine */
2533 int dormrz_(char *side, char *trans, integer *m, integer *n,
2534  integer *k, integer *l, doublereal *a, integer *lda, doublereal *tau,
2535  doublereal *c__, integer *ldc, doublereal *work, integer *lwork,
2536  integer *info);
2537 
2538 /* Subroutine */
2539 int dormtr_(char *side, char *uplo, char *trans, integer *m,
2540  integer *n, doublereal *a, integer *lda, doublereal *tau, doublereal *
2541  c__, integer *ldc, doublereal *work, integer *lwork, integer *info);
2542 
2543 /* Subroutine */
2544 int dpbcon_(char *uplo, integer *n, integer *kd, doublereal *
2545  ab, integer *ldab, doublereal *anorm, doublereal *rcond, doublereal *
2546  work, integer *iwork, integer *info);
2547 
2548 /* Subroutine */
2549 int dpbequ_(char *uplo, integer *n, integer *kd, doublereal *
2550  ab, integer *ldab, doublereal *s, doublereal *scond, doublereal *amax,
2551  integer *info);
2552 
2553 /* Subroutine */
2554 int dpbrfs_(char *uplo, integer *n, integer *kd, integer *
2555  nrhs, doublereal *ab, integer *ldab, doublereal *afb, integer *ldafb,
2556  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2557  ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
2558  info);
2559 
2560 /* Subroutine */
2561 int dpbstf_(char *uplo, integer *n, integer *kd, doublereal *
2562  ab, integer *ldab, integer *info);
2563 
2564 /* Subroutine */
2565 int dpbsv_(char *uplo, integer *n, integer *kd, integer *
2566  nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
2567  integer *info);
2568 
2569 /* Subroutine */
2570 int dpbsvx_(char *fact, char *uplo, integer *n, integer *kd,
2571  integer *nrhs, doublereal *ab, integer *ldab, doublereal *afb,
2572  integer *ldafb, char *equed, doublereal *s, doublereal *b, integer *
2573  ldb, doublereal *x, integer *ldx, doublereal *rcond, doublereal *ferr,
2574  doublereal *berr, doublereal *work, integer *iwork, integer *info);
2575 
2576 /* Subroutine */
2577 int dpbtf2_(char *uplo, integer *n, integer *kd, doublereal *
2578  ab, integer *ldab, integer *info);
2579 
2580 /* Subroutine */
2581 int dpbtrf_(char *uplo, integer *n, integer *kd, doublereal *
2582  ab, integer *ldab, integer *info);
2583 
2584 /* Subroutine */
2585 int dpbtrs_(char *uplo, integer *n, integer *kd, integer *
2586  nrhs, doublereal *ab, integer *ldab, doublereal *b, integer *ldb,
2587  integer *info);
2588 
2589 /* Subroutine */
2590 int dpocon_(char *uplo, integer *n, doublereal *a, integer *
2591  lda, doublereal *anorm, doublereal *rcond, doublereal *work, integer *
2592  iwork, integer *info);
2593 
2594 /* Subroutine */
2595 int dpoequ_(integer *n, doublereal *a, integer *lda,
2596  doublereal *s, doublereal *scond, doublereal *amax, integer *info);
2597 
2598 /* Subroutine */
2599 int dporfs_(char *uplo, integer *n, integer *nrhs,
2600  doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2601  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2602  ferr, doublereal *berr, doublereal *work, integer *iwork, integer *
2603  info);
2604 
2605 /* Subroutine */
2606 int dposv_(char *uplo, integer *n, integer *nrhs, doublereal
2607  *a, integer *lda, doublereal *b, integer *ldb, integer *info);
2608 
2609 /* Subroutine */
2610 int dposvx_(char *fact, char *uplo, integer *n, integer *
2611  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2612  char *equed, doublereal *s, doublereal *b, integer *ldb, doublereal *
2613  x, integer *ldx, doublereal *rcond, doublereal *ferr, doublereal *
2614  berr, doublereal *work, integer *iwork, integer *info);
2615 
2616 /* Subroutine */
2617 int dpotf2_(char *uplo, integer *n, doublereal *a, integer *
2618  lda, integer *info);
2619 
2620 /* Subroutine */
2621 int dpotrf_(char *uplo, integer *n, doublereal *a, integer *
2622  lda, integer *info);
2623 
2624 /* Subroutine */
2625 int dpotri_(char *uplo, integer *n, doublereal *a, integer *
2626  lda, integer *info);
2627 
2628 /* Subroutine */
2629 int dpotrs_(char *uplo, integer *n, integer *nrhs,
2630  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2631  info);
2632 
2633 /* Subroutine */
2634 int dppcon_(char *uplo, integer *n, doublereal *ap,
2635  doublereal *anorm, doublereal *rcond, doublereal *work, integer *
2636  iwork, integer *info);
2637 
2638 /* Subroutine */
2639 int dppequ_(char *uplo, integer *n, doublereal *ap,
2640  doublereal *s, doublereal *scond, doublereal *amax, integer *info);
2641 
2642 /* Subroutine */
2643 int dpprfs_(char *uplo, integer *n, integer *nrhs,
2644  doublereal *ap, doublereal *afp, doublereal *b, integer *ldb,
2645  doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
2646  doublereal *work, integer *iwork, integer *info);
2647 
2648 /* Subroutine */
2649 int dppsv_(char *uplo, integer *n, integer *nrhs, doublereal
2650  *ap, doublereal *b, integer *ldb, integer *info);
2651 
2652 /* Subroutine */
2653 int dppsvx_(char *fact, char *uplo, integer *n, integer *
2654  nrhs, doublereal *ap, doublereal *afp, char *equed, doublereal *s,
2655  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2656  rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
2657  iwork, integer *info);
2658 
2659 /* Subroutine */
2660 int dpptrf_(char *uplo, integer *n, doublereal *ap, integer *
2661  info);
2662 
2663 /* Subroutine */
2664 int dpptri_(char *uplo, integer *n, doublereal *ap, integer *
2665  info);
2666 
2667 /* Subroutine */
2668 int dpptrs_(char *uplo, integer *n, integer *nrhs,
2669  doublereal *ap, doublereal *b, integer *ldb, integer *info);
2670 
2671 /* Subroutine */
2672 int dptcon_(integer *n, doublereal *d__, doublereal *e,
2673  doublereal *anorm, doublereal *rcond, doublereal *work, integer *info);
2674 
2675 /* Subroutine */
2676 int dpteqr_(char *compz, integer *n, doublereal *d__,
2677  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2678  integer *info);
2679 
2680 /* Subroutine */
2681 int dptrfs_(integer *n, integer *nrhs, doublereal *d__,
2682  doublereal *e, doublereal *df, doublereal *ef, doublereal *b, integer
2683  *ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
2684  doublereal *work, integer *info);
2685 
2686 /* Subroutine */
2687 int dptsv_(integer *n, integer *nrhs, doublereal *d__,
2688  doublereal *e, doublereal *b, integer *ldb, integer *info);
2689 
2690 /* Subroutine */
2691 int dptsvx_(char *fact, integer *n, integer *nrhs,
2692  doublereal *d__, doublereal *e, doublereal *df, doublereal *ef,
2693  doublereal *b, integer *ldb, doublereal *x, integer *ldx, doublereal *
2694  rcond, doublereal *ferr, doublereal *berr, doublereal *work, integer *
2695  info);
2696 
2697 /* Subroutine */
2698 int dpttrf_(integer *n, doublereal *d__, doublereal *e,
2699  integer *info);
2700 
2701 /* Subroutine */
2702 int dpttrs_(integer *n, integer *nrhs, doublereal *d__,
2703  doublereal *e, doublereal *b, integer *ldb, integer *info);
2704 
2705 /* Subroutine */
2706 int dptts2_(integer *n, integer *nrhs, doublereal *d__,
2707  doublereal *e, doublereal *b, integer *ldb);
2708 
2709 /* Subroutine */
2710 int drscl_(integer *n, doublereal *sa, doublereal *sx,
2711  integer *incx);
2712 
2713 /* Subroutine */
2714 int dsbev_(char *jobz, char *uplo, integer *n, integer *kd,
2715  doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
2716  integer *ldz, doublereal *work, integer *info);
2717 
2718 /* Subroutine */
2719 int dsbevd_(char *jobz, char *uplo, integer *n, integer *kd,
2720  doublereal *ab, integer *ldab, doublereal *w, doublereal *z__,
2721  integer *ldz, doublereal *work, integer *lwork, integer *iwork,
2722  integer *liwork, integer *info);
2723 
2724 /* Subroutine */
2725 int dsbevx_(char *jobz, char *range, char *uplo, integer *n,
2726  integer *kd, doublereal *ab, integer *ldab, doublereal *q, integer *
2727  ldq, doublereal *vl, doublereal *vu, integer *il, integer *iu,
2728  doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
2729  integer *ldz, doublereal *work, integer *iwork, integer *ifail,
2730  integer *info);
2731 
2732 /* Subroutine */
2733 int dsbgst_(char *vect, char *uplo, integer *n, integer *ka,
2734  integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
2735  ldbb, doublereal *x, integer *ldx, doublereal *work, integer *info);
2736 
2737 /* Subroutine */
2738 int dsbgv_(char *jobz, char *uplo, integer *n, integer *ka,
2739  integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
2740  ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2741  integer *info);
2742 
2743 /* Subroutine */
2744 int dsbgvd_(char *jobz, char *uplo, integer *n, integer *ka,
2745  integer *kb, doublereal *ab, integer *ldab, doublereal *bb, integer *
2746  ldbb, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2747  integer *lwork, integer *iwork, integer *liwork, integer *info);
2748 
2749 /* Subroutine */
2750 int dsbgvx_(char *jobz, char *range, char *uplo, integer *n,
2751  integer *ka, integer *kb, doublereal *ab, integer *ldab, doublereal *
2752  bb, integer *ldbb, doublereal *q, integer *ldq, doublereal *vl,
2753  doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
2754  *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2755  integer *iwork, integer *ifail, integer *info);
2756 
2757 /* Subroutine */
2758 int dsbtrd_(char *vect, char *uplo, integer *n, integer *kd,
2759  doublereal *ab, integer *ldab, doublereal *d__, doublereal *e,
2760  doublereal *q, integer *ldq, doublereal *work, integer *info);
2761 
2762 /* Subroutine */
2763 int dspcon_(char *uplo, integer *n, doublereal *ap, integer *
2764  ipiv, doublereal *anorm, doublereal *rcond, doublereal *work, integer
2765  *iwork, integer *info);
2766 
2767 /* Subroutine */
2768 int dspev_(char *jobz, char *uplo, integer *n, doublereal *
2769  ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2770  integer *info);
2771 
2772 /* Subroutine */
2773 int dspevd_(char *jobz, char *uplo, integer *n, doublereal *
2774  ap, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2775  integer *lwork, integer *iwork, integer *liwork, integer *info);
2776 
2777 /* Subroutine */
2778 int dspevx_(char *jobz, char *range, char *uplo, integer *n,
2779  doublereal *ap, doublereal *vl, doublereal *vu, integer *il, integer *
2780  iu, doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
2781  integer *ldz, doublereal *work, integer *iwork, integer *ifail,
2782  integer *info);
2783 
2784 /* Subroutine */
2785 int dspgst_(integer *itype, char *uplo, integer *n,
2786  doublereal *ap, doublereal *bp, integer *info);
2787 
2788 /* Subroutine */
2789 int dspgv_(integer *itype, char *jobz, char *uplo, integer *
2790  n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
2791  integer *ldz, doublereal *work, integer *info);
2792 
2793 /* Subroutine */
2794 int dspgvd_(integer *itype, char *jobz, char *uplo, integer *
2795  n, doublereal *ap, doublereal *bp, doublereal *w, doublereal *z__,
2796  integer *ldz, doublereal *work, integer *lwork, integer *iwork,
2797  integer *liwork, integer *info);
2798 
2799 /* Subroutine */
2800 int dspgvx_(integer *itype, char *jobz, char *range, char *
2801  uplo, integer *n, doublereal *ap, doublereal *bp, doublereal *vl,
2802  doublereal *vu, integer *il, integer *iu, doublereal *abstol, integer
2803  *m, doublereal *w, doublereal *z__, integer *ldz, doublereal *work,
2804  integer *iwork, integer *ifail, integer *info);
2805 
2806 /* Subroutine */
2807 int dsprfs_(char *uplo, integer *n, integer *nrhs,
2808  doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
2809  integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
2810  doublereal *berr, doublereal *work, integer *iwork, integer *info);
2811 
2812 /* Subroutine */
2813 int dspsv_(char *uplo, integer *n, integer *nrhs, doublereal
2814  *ap, integer *ipiv, doublereal *b, integer *ldb, integer *info);
2815 
2816 /* Subroutine */
2817 int dspsvx_(char *fact, char *uplo, integer *n, integer *
2818  nrhs, doublereal *ap, doublereal *afp, integer *ipiv, doublereal *b,
2819  integer *ldb, doublereal *x, integer *ldx, doublereal *rcond,
2820  doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
2821  integer *info);
2822 
2823 /* Subroutine */
2824 int dsptrd_(char *uplo, integer *n, doublereal *ap,
2825  doublereal *d__, doublereal *e, doublereal *tau, integer *info);
2826 
2827 /* Subroutine */
2828 int dsptrf_(char *uplo, integer *n, doublereal *ap, integer *
2829  ipiv, integer *info);
2830 
2831 /* Subroutine */
2832 int dsptri_(char *uplo, integer *n, doublereal *ap, integer *
2833  ipiv, doublereal *work, integer *info);
2834 
2835 /* Subroutine */
2836 int dsptrs_(char *uplo, integer *n, integer *nrhs,
2837  doublereal *ap, integer *ipiv, doublereal *b, integer *ldb, integer *
2838  info);
2839 
2840 /* Subroutine */
2841 int dstebz_(char *range, char *order, integer *n, doublereal
2842  *vl, doublereal *vu, integer *il, integer *iu, doublereal *abstol,
2843  doublereal *d__, doublereal *e, integer *m, integer *nsplit,
2844  doublereal *w, integer *iblock, integer *isplit, doublereal *work,
2845  integer *iwork, integer *info);
2846 
2847 /* Subroutine */
2848 int dstedc_(char *compz, integer *n, doublereal *d__,
2849  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2850  integer *lwork, integer *iwork, integer *liwork, integer *info);
2851 
2852 /* Subroutine */
2853 int dstegr_(char *jobz, char *range, integer *n, doublereal *
2854  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2855  integer *iu, doublereal *abstol, integer *m, doublereal *w,
2856  doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
2857  integer *lwork, integer *iwork, integer *liwork, integer *info);
2858 
2859 /* Subroutine */
2860 int dstein_(integer *n, doublereal *d__, doublereal *e,
2861  integer *m, doublereal *w, integer *iblock, integer *isplit,
2862  doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
2863  integer *ifail, integer *info);
2864 
2865 /* Subroutine */
2866 int dsteqr_(char *compz, integer *n, doublereal *d__,
2867  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2868  integer *info);
2869 
2870 /* Subroutine */
2871 int dsterf_(integer *n, doublereal *d__, doublereal *e,
2872  integer *info);
2873 
2874 /* Subroutine */
2875 int dstev_(char *jobz, integer *n, doublereal *d__,
2876  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2877  integer *info);
2878 
2879 /* Subroutine */
2880 int dstevd_(char *jobz, integer *n, doublereal *d__,
2881  doublereal *e, doublereal *z__, integer *ldz, doublereal *work,
2882  integer *lwork, integer *iwork, integer *liwork, integer *info);
2883 
2884 /* Subroutine */
2885 int dstevr_(char *jobz, char *range, integer *n, doublereal *
2886  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2887  integer *iu, doublereal *abstol, integer *m, doublereal *w,
2888  doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
2889  integer *lwork, integer *iwork, integer *liwork, integer *info);
2890 
2891 /* Subroutine */
2892 int dstevx_(char *jobz, char *range, integer *n, doublereal *
2893  d__, doublereal *e, doublereal *vl, doublereal *vu, integer *il,
2894  integer *iu, doublereal *abstol, integer *m, doublereal *w,
2895  doublereal *z__, integer *ldz, doublereal *work, integer *iwork,
2896  integer *ifail, integer *info);
2897 
2898 /* Subroutine */
2899 int dsycon_(char *uplo, integer *n, doublereal *a, integer *
2900  lda, integer *ipiv, doublereal *anorm, doublereal *rcond, doublereal *
2901  work, integer *iwork, integer *info);
2902 
2903 /* Subroutine */
2904 int dsyev_(char *jobz, char *uplo, integer *n, doublereal *a,
2905  integer *lda, doublereal *w, doublereal *work, integer *lwork,
2906  integer *info);
2907 
2908 /* Subroutine */
2909 int dsyevd_(char *jobz, char *uplo, integer *n, doublereal *
2910  a, integer *lda, doublereal *w, doublereal *work, integer *lwork,
2911  integer *iwork, integer *liwork, integer *info);
2912 
2913 /* Subroutine */
2914 int dsyevr_(char *jobz, char *range, char *uplo, integer *n,
2915  doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
2916  il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
2917  doublereal *z__, integer *ldz, integer *isuppz, doublereal *work,
2918  integer *lwork, integer *iwork, integer *liwork, integer *info);
2919 
2920 /* Subroutine */
2921 int dsyevx_(char *jobz, char *range, char *uplo, integer *n,
2922  doublereal *a, integer *lda, doublereal *vl, doublereal *vu, integer *
2923  il, integer *iu, doublereal *abstol, integer *m, doublereal *w,
2924  doublereal *z__, integer *ldz, doublereal *work, integer *lwork,
2925  integer *iwork, integer *ifail, integer *info);
2926 
2927 /* Subroutine */
2928 int dsygs2_(integer *itype, char *uplo, integer *n,
2929  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2930  info);
2931 
2932 /* Subroutine */
2933 int dsygst_(integer *itype, char *uplo, integer *n,
2934  doublereal *a, integer *lda, doublereal *b, integer *ldb, integer *
2935  info);
2936 
2937 /* Subroutine */
2938 int dsygv_(integer *itype, char *jobz, char *uplo, integer *
2939  n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2940  doublereal *w, doublereal *work, integer *lwork, integer *info);
2941 
2942 /* Subroutine */
2943 int dsygvd_(integer *itype, char *jobz, char *uplo, integer *
2944  n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
2945  doublereal *w, doublereal *work, integer *lwork, integer *iwork,
2946  integer *liwork, integer *info);
2947 
2948 /* Subroutine */
2949 int dsygvx_(integer *itype, char *jobz, char *range, char *
2950  uplo, integer *n, doublereal *a, integer *lda, doublereal *b, integer
2951  *ldb, doublereal *vl, doublereal *vu, integer *il, integer *iu,
2952  doublereal *abstol, integer *m, doublereal *w, doublereal *z__,
2953  integer *ldz, doublereal *work, integer *lwork, integer *iwork,
2954  integer *ifail, integer *info);
2955 
2956 /* Subroutine */
2957 int dsyrfs_(char *uplo, integer *n, integer *nrhs,
2958  doublereal *a, integer *lda, doublereal *af, integer *ldaf, integer *
2959  ipiv, doublereal *b, integer *ldb, doublereal *x, integer *ldx,
2960  doublereal *ferr, doublereal *berr, doublereal *work, integer *iwork,
2961  integer *info);
2962 
2963 /* Subroutine */
2964 int dsysv_(char *uplo, integer *n, integer *nrhs, doublereal
2965  *a, integer *lda, integer *ipiv, doublereal *b, integer *ldb,
2966  doublereal *work, integer *lwork, integer *info);
2967 
2968 /* Subroutine */
2969 int dsysvx_(char *fact, char *uplo, integer *n, integer *
2970  nrhs, doublereal *a, integer *lda, doublereal *af, integer *ldaf,
2971  integer *ipiv, doublereal *b, integer *ldb, doublereal *x, integer *
2972  ldx, doublereal *rcond, doublereal *ferr, doublereal *berr,
2973  doublereal *work, integer *lwork, integer *iwork, integer *info);
2974 
2975 /* Subroutine */
2976 int dsytd2_(char *uplo, integer *n, doublereal *a, integer *
2977  lda, doublereal *d__, doublereal *e, doublereal *tau, integer *info);
2978 
2979 /* Subroutine */
2980 int dsytf2_(char *uplo, integer *n, doublereal *a, integer *
2981  lda, integer *ipiv, integer *info);
2982 
2983 /* Subroutine */
2984 int dsytrd_(char *uplo, integer *n, doublereal *a, integer *
2985  lda, doublereal *d__, doublereal *e, doublereal *tau, doublereal *
2986  work, integer *lwork, integer *info);
2987 
2988 /* Subroutine */
2989 int dsytrf_(char *uplo, integer *n, doublereal *a, integer *
2990  lda, integer *ipiv, doublereal *work, integer *lwork, integer *info);
2991 
2992 /* Subroutine */
2993 int dsytri_(char *uplo, integer *n, doublereal *a, integer *
2994  lda, integer *ipiv, doublereal *work, integer *info);
2995 
2996 /* Subroutine */
2997 int dsytrs_(char *uplo, integer *n, integer *nrhs,
2998  doublereal *a, integer *lda, integer *ipiv, doublereal *b, integer *
2999  ldb, integer *info);
3000 
3001 /* Subroutine */
3002 int dtbcon_(char *norm, char *uplo, char *diag, integer *n,
3003  integer *kd, doublereal *ab, integer *ldab, doublereal *rcond,
3004  doublereal *work, integer *iwork, integer *info);
3005 
3006 /* Subroutine */
3007 int dtbrfs_(char *uplo, char *trans, char *diag, integer *n,
3008  integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
3009  *b, integer *ldb, doublereal *x, integer *ldx, doublereal *ferr,
3010  doublereal *berr, doublereal *work, integer *iwork, integer *info);
3011 
3012 /* Subroutine */
3013 int dtbtrs_(char *uplo, char *trans, char *diag, integer *n,
3014  integer *kd, integer *nrhs, doublereal *ab, integer *ldab, doublereal
3015  *b, integer *ldb, integer *info);
3016 
3017 /* Subroutine */
3018 int dtgevc_(char *side, char *howmny, logical *select,
3019  integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3020  doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr, integer
3021  *mm, integer *m, doublereal *work, integer *info);
3022 
3023 /* Subroutine */
3024 int dtgex2_(logical *wantq, logical *wantz, integer *n,
3025  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
3026  q, integer *ldq, doublereal *z__, integer *ldz, integer *j1, integer *
3027  n1, integer *n2, doublereal *work, integer *lwork, integer *info);
3028 
3029 /* Subroutine */
3030 int dtgexc_(logical *wantq, logical *wantz, integer *n,
3031  doublereal *a, integer *lda, doublereal *b, integer *ldb, doublereal *
3032  q, integer *ldq, doublereal *z__, integer *ldz, integer *ifst,
3033  integer *ilst, doublereal *work, integer *lwork, integer *info);
3034 
3035 /* Subroutine */
3036 int dtgsen_(integer *ijob, logical *wantq, logical *wantz,
3037  logical *select, integer *n, doublereal *a, integer *lda, doublereal *
3038  b, integer *ldb, doublereal *alphar, doublereal *alphai, doublereal *
3039  beta, doublereal *q, integer *ldq, doublereal *z__, integer *ldz,
3040  integer *m, doublereal *pl, doublereal *pr, doublereal *dif,
3041  doublereal *work, integer *lwork, integer *iwork, integer *liwork,
3042  integer *info);
3043 
3044 /* Subroutine */
3045 int dtgsja_(char *jobu, char *jobv, char *jobq, integer *m,
3046  integer *p, integer *n, integer *k, integer *l, doublereal *a,
3047  integer *lda, doublereal *b, integer *ldb, doublereal *tola,
3048  doublereal *tolb, doublereal *alpha, doublereal *beta, doublereal *u,
3049  integer *ldu, doublereal *v, integer *ldv, doublereal *q, integer *
3050  ldq, doublereal *work, integer *ncycle, integer *info);
3051 
3052 /* Subroutine */
3053 int dtgsna_(char *job, char *howmny, logical *select,
3054  integer *n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3055  doublereal *vl, integer *ldvl, doublereal *vr, integer *ldvr,
3056  doublereal *s, doublereal *dif, integer *mm, integer *m, doublereal *
3057  work, integer *lwork, integer *iwork, integer *info);
3058 
3059 /* Subroutine */
3060 int dtgsy2_(char *trans, integer *ijob, integer *m, integer *
3061  n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3062  doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
3063  doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
3064  scale, doublereal *rdsum, doublereal *rdscal, integer *iwork, integer
3065  *pq, integer *info);
3066 
3067 /* Subroutine */
3068 int dtgsyl_(char *trans, integer *ijob, integer *m, integer *
3069  n, doublereal *a, integer *lda, doublereal *b, integer *ldb,
3070  doublereal *c__, integer *ldc, doublereal *d__, integer *ldd,
3071  doublereal *e, integer *lde, doublereal *f, integer *ldf, doublereal *
3072  scale, doublereal *dif, doublereal *work, integer *lwork, integer *
3073  iwork, integer *info);
3074 
3075 /* Subroutine */
3076 int dtpcon_(char *norm, char *uplo, char *diag, integer *n,
3077  doublereal *ap, doublereal *rcond, doublereal *work, integer *iwork,
3078  integer *info);
3079 
3080 /* Subroutine */
3081 int dtprfs_(char *uplo, char *trans, char *diag, integer *n,
3082  integer *nrhs, doublereal *ap, doublereal *b, integer *ldb,
3083  doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3084  doublereal *work, integer *iwork, integer *info);
3085 
3086 /* Subroutine */
3087 int dtptri_(char *uplo, char *diag, integer *n, doublereal *
3088  ap, integer *info);
3089 
3090 /* Subroutine */
3091 int dtptrs_(char *uplo, char *trans, char *diag, integer *n,
3092  integer *nrhs, doublereal *ap, doublereal *b, integer *ldb, integer *
3093  info);
3094 
3095 /* Subroutine */
3096 int dtrcon_(char *norm, char *uplo, char *diag, integer *n,
3097  doublereal *a, integer *lda, doublereal *rcond, doublereal *work,
3098  integer *iwork, integer *info);
3099 
3100 /* Subroutine */
3101 int dtrevc_(char *side, char *howmny, logical *select,
3102  integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
3103  ldvl, doublereal *vr, integer *ldvr, integer *mm, integer *m,
3104  doublereal *work, integer *info);
3105 
3106 /* Subroutine */
3107 int dtrexc_(char *compq, integer *n, doublereal *t, integer *
3108  ldt, doublereal *q, integer *ldq, integer *ifst, integer *ilst,
3109  doublereal *work, integer *info);
3110 
3111 /* Subroutine */
3112 int dtrrfs_(char *uplo, char *trans, char *diag, integer *n,
3113  integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
3114  ldb, doublereal *x, integer *ldx, doublereal *ferr, doublereal *berr,
3115  doublereal *work, integer *iwork, integer *info);
3116 
3117 /* Subroutine */
3118 int dtrsen_(char *job, char *compq, logical *select, integer
3119  *n, doublereal *t, integer *ldt, doublereal *q, integer *ldq,
3120  doublereal *wr, doublereal *wi, integer *m, doublereal *s, doublereal
3121  *sep, doublereal *work, integer *lwork, integer *iwork, integer *
3122  liwork, integer *info);
3123 
3124 /* Subroutine */
3125 int dtrsna_(char *job, char *howmny, logical *select,
3126  integer *n, doublereal *t, integer *ldt, doublereal *vl, integer *
3127  ldvl, doublereal *vr, integer *ldvr, doublereal *s, doublereal *sep,
3128  integer *mm, integer *m, doublereal *work, integer *ldwork, integer *
3129  iwork, integer *info);
3130 
3131 /* Subroutine */
3132 int dtrsyl_(char *trana, char *tranb, integer *isgn, integer
3133  *m, integer *n, doublereal *a, integer *lda, doublereal *b, integer *
3134  ldb, doublereal *c__, integer *ldc, doublereal *scale, integer *info);
3135 
3136 /* Subroutine */
3137 int dtrti2_(char *uplo, char *diag, integer *n, doublereal *
3138  a, integer *lda, integer *info);
3139 
3140 /* Subroutine */
3141 int dtrtri_(char *uplo, char *diag, integer *n, doublereal *
3142  a, integer *lda, integer *info);
3143 
3144 /* Subroutine */
3145 int dtrtrs_(char *uplo, char *trans, char *diag, integer *n,
3146  integer *nrhs, doublereal *a, integer *lda, doublereal *b, integer *
3147  ldb, integer *info);
3148 
3149 /* Subroutine */
3150 int dtzrqf_(integer *m, integer *n, doublereal *a, integer *
3151  lda, doublereal *tau, integer *info);
3152 
3153 /* Subroutine */
3154 int dtzrzf_(integer *m, integer *n, doublereal *a, integer *
3155  lda, doublereal *tau, doublereal *work, integer *lwork, integer *info);
3156 
3157 integer icmax1_(integer *n, complex *cx, integer *incx);
3158 
3159 integer ieeeck_(integer *ispec, real *zero, real *one);
3160 
3161 integer ilaenv_(integer *ispec, char *name__, char *opts, integer *n1,
3162  integer *n2, integer *n3, integer *n4, ftnlen name_len, ftnlen
3163  opts_len);
3164 
3165 integer izmax1_(integer *n, doublecomplex *cx, integer *incx);
3166 
3167 /* Subroutine */
3168 int sbdsdc_(char *uplo, char *compq, integer *n, real *d__,
3169  real *e, real *u, integer *ldu, real *vt, integer *ldvt, real *q,
3170  integer *iq, real *work, integer *iwork, integer *info);
3171 
3172 /* Subroutine */
3173 int sbdsqr_(char *uplo, integer *n, integer *ncvt, integer *
3174  nru, integer *ncc, real *d__, real *e, real *vt, integer *ldvt, real *
3175  u, integer *ldu, real *c__, integer *ldc, real *work, integer *info);
3176 
3177 /* Subroutine */
3178 int sdisna_(char *job, integer *m, integer *n, real *d__,
3179  real *sep, integer *info);
3180 
3181 /* Subroutine */
3182 int sgbbrd_(char *vect, integer *m, integer *n, integer *ncc,
3183  integer *kl, integer *ku, real *ab, integer *ldab, real *d__, real *
3184  e, real *q, integer *ldq, real *pt, integer *ldpt, real *c__, integer
3185  *ldc, real *work, integer *info);
3186 
3187 /* Subroutine */
3188 int sgbcon_(char *norm, integer *n, integer *kl, integer *ku,
3189  real *ab, integer *ldab,