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