1
/* -------------------------------------------------------------- */
2
/* (C)Copyright 2007,2008, */
3
/* International Business Machines Corporation */
4
/* All Rights Reserved. */
6
/* Redistribution and use in source and binary forms, with or */
7
/* without modification, are permitted provided that the */
8
/* following conditions are met: */
10
/* - Redistributions of source code must retain the above copyright*/
11
/* notice, this list of conditions and the following disclaimer. */
13
/* - Redistributions in binary form must reproduce the above */
14
/* copyright notice, this list of conditions and the following */
15
/* disclaimer in the documentation and/or other materials */
16
/* provided with the distribution. */
18
/* - Neither the name of IBM Corporation nor the names of its */
19
/* contributors may be used to endorse or promote products */
20
/* derived from this software without specific prior written */
23
/* THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND */
24
/* CONTRIBUTORS "AS IS" AND ANY EXPRESS OR IMPLIED WARRANTIES, */
25
/* INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES OF */
26
/* MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE */
27
/* DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR */
28
/* CONTRIBUTORS BE LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, */
29
/* SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING, BUT */
30
/* NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES; */
31
/* LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) */
32
/* HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN */
33
/* CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR */
34
/* OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, */
35
/* EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. */
36
/* -------------------------------------------------------------- */
37
/* PROLOG END TAG zYx */
41
#include <lapack_errno.h>
63
typedef double doublereal;
64
typedef struct { real r, i; } lapack_complex;
65
typedef struct { doublereal r, i; } lapack_doublecomplex;
66
#define complex lapack_complex
67
#define doublecomplex lapack_doublecomplex
71
typedef logical (*L_fp)(...);
73
typedef logical (*L_fp)();
80
/* Optimized by using Cell BE acceleration */
81
int dbdsqr_(char *uplo, int *n, int *ncvt, int *nru, int *ncc, double *d,
82
double *e, double *vt, int *ldvt, double *u, int *ldu, double *c,
83
int *ldc, double *work, int *info);
85
int dgeqrf_(int *m, int *n, double *a, int *lda, double *tau,
86
double *work, int *lwork, int *info);
88
int dgetrf_(int *m, int *n, double *a, int *lda, int *ipiv, int *info);
90
int dgetri_(int *n, double *a, int *lda, int *ipiv, double *work,
91
int *lwork, int *info);
93
int dpotrf_(char *uplo, int *n, double *a, int *lda, int *info);
95
int dsteqr_(char *compz, int *n, double *d__, double *e, double *z__,
96
int *ldz, double *work, int *info);
98
int dgetrs_(char *trans, int *n, int *nrhs, double *a, int *lda,
99
int *ipiv, double *b, int *ldb, int *info);
101
int dpotrs_(char *uplo, int *n, int *nrhs, double *a, int *lda,
102
double *b, int *ldb, int *info);
104
int dbdsdc_(char *uplo, char *compq, int *n, double *d,
105
double *e, double *u, int *ldu, double *vt, int *ldvt,
106
double *q, int *iq, double *work, int *iwork, int *info);
108
int dgelqf_(int *m, int *n, double *a, int *lda,
109
double *tau, double *work, int *lwork, int *info);
111
int dgebrd_(int *m, int *n, double *a, int *lda, double *d,
112
double *e, double *tauq, double *taup, double *work,
113
int *lwork, int *info);
115
int dgesdd_(char *jobz, int *m, int *n, double *a, int *lda,
116
double *s, double *u, int *ldu, double *vt, int *ldvt,
117
double *work, int *lwork, int *iwork, int *info);
119
int dorgbr_(char *vect, int *m, int *n, int *k, double *a,
120
int *lda, double *tau, double *work, int *lwork, int *info);
122
int dormbr_(char *vect, char *side, char *trans, int *m, int *n,
123
int *k, double *a, int *lda, double *tau, double *c__,
124
int *ldc, double *work, int *lwork, int *info);
127
/* Unoptimized functions. Just using clapack 3.1.1 */
128
/* Subroutine */ int cbdsqr_(char *uplo, int *n, int *ncvt, int *
129
nru, int *ncc, real *d__, real *e, complex *vt, int *ldvt,
130
complex *u, int *ldu, complex *c__, int *ldc, real *rwork,
133
/* Subroutine */ int cgbbrd_(char *vect, int *m, int *n, int *ncc,
134
int *kl, int *ku, complex *ab, int *ldab, real *d__,
135
real *e, complex *q, int *ldq, complex *pt, int *ldpt,
136
complex *c__, int *ldc, complex *work, real *rwork, int *info);
138
/* Subroutine */ int cgbcon_(char *norm, int *n, int *kl, int *ku,
139
complex *ab, int *ldab, int *ipiv, real *anorm, real *rcond,
140
complex *work, real *rwork, int *info);
142
/* Subroutine */ int cgbequ_(int *m, int *n, int *kl, int *ku,
143
complex *ab, int *ldab, real *r__, real *c__, real *rowcnd, real
144
*colcnd, real *amax, int *info);
146
/* Subroutine */ int cgbrfs_(char *trans, int *n, int *kl, int *
147
ku, int *nrhs, complex *ab, int *ldab, complex *afb, int *
148
ldafb, int *ipiv, complex *b, int *ldb, complex *x, int *
149
ldx, real *ferr, real *berr, complex *work, real *rwork, int *
152
/* Subroutine */ int cgbsv_(int *n, int *kl, int *ku, int *
153
nrhs, complex *ab, int *ldab, int *ipiv, complex *b, int *
156
/* Subroutine */ int cgbsvx_(char *fact, char *trans, int *n, int *kl,
157
int *ku, int *nrhs, complex *ab, int *ldab, complex *afb,
158
int *ldafb, int *ipiv, char *equed, real *r__, real *c__,
159
complex *b, int *ldb, complex *x, int *ldx, real *rcond, real
160
*ferr, real *berr, complex *work, real *rwork, int *info);
162
/* Subroutine */ int cgbtf2_(int *m, int *n, int *kl, int *ku,
163
complex *ab, int *ldab, int *ipiv, int *info);
165
/* Subroutine */ int cgbtrf_(int *m, int *n, int *kl, int *ku,
166
complex *ab, int *ldab, int *ipiv, int *info);
168
/* Subroutine */ int cgbtrs_(char *trans, int *n, int *kl, int *
169
ku, int *nrhs, complex *ab, int *ldab, int *ipiv, complex
170
*b, int *ldb, int *info);
172
/* Subroutine */ int cgebak_(char *job, char *side, int *n, int *ilo,
173
int *ihi, real *scale, int *m, complex *v, int *ldv,
176
/* Subroutine */ int cgebal_(char *job, int *n, complex *a, int *lda,
177
int *ilo, int *ihi, real *scale, int *info);
179
/* Subroutine */ int cgebd2_(int *m, int *n, complex *a, int *lda,
180
real *d__, real *e, complex *tauq, complex *taup, complex *work,
183
/* Subroutine */ int cgebrd_(int *m, int *n, complex *a, int *lda,
184
real *d__, real *e, complex *tauq, complex *taup, complex *work,
185
int *lwork, int *info);
187
/* Subroutine */ int cgecon_(char *norm, int *n, complex *a, int *lda,
188
real *anorm, real *rcond, complex *work, real *rwork, int *info);
190
/* Subroutine */ int cgeequ_(int *m, int *n, complex *a, int *lda,
191
real *r__, real *c__, real *rowcnd, real *colcnd, real *amax,
194
/* Subroutine */ int cgees_(char *jobvs, char *sort, L_fp select, int *n,
195
complex *a, int *lda, int *sdim, complex *w, complex *vs,
196
int *ldvs, complex *work, int *lwork, real *rwork, logical *
199
/* Subroutine */ int cgeesx_(char *jobvs, char *sort, L_fp select, char *
200
sense, int *n, complex *a, int *lda, int *sdim, complex *
201
w, complex *vs, int *ldvs, real *rconde, real *rcondv, complex *
202
work, int *lwork, real *rwork, logical *bwork, int *info);
204
/* Subroutine */ int cgeev_(char *jobvl, char *jobvr, int *n, complex *a,
205
int *lda, complex *w, complex *vl, int *ldvl, complex *vr,
206
int *ldvr, complex *work, int *lwork, real *rwork, int *
209
/* Subroutine */ int cgeevx_(char *balanc, char *jobvl, char *jobvr, char *
210
sense, int *n, complex *a, int *lda, complex *w, complex *vl,
211
int *ldvl, complex *vr, int *ldvr, int *ilo, int *ihi,
212
real *scale, real *abnrm, real *rconde, real *rcondv, complex *work,
213
int *lwork, real *rwork, int *info);
215
/* Subroutine */ int cgegs_(char *jobvsl, char *jobvsr, int *n, complex *
216
a, int *lda, complex *b, int *ldb, complex *alpha, complex *
217
beta, complex *vsl, int *ldvsl, complex *vsr, int *ldvsr,
218
complex *work, int *lwork, real *rwork, int *info);
220
/* Subroutine */ int cgegv_(char *jobvl, char *jobvr, int *n, complex *a,
221
int *lda, complex *b, int *ldb, complex *alpha, complex *beta,
222
complex *vl, int *ldvl, complex *vr, int *ldvr, complex *
223
work, int *lwork, real *rwork, int *info);
225
/* Subroutine */ int cgehd2_(int *n, int *ilo, int *ihi, complex *
226
a, int *lda, complex *tau, complex *work, int *info);
228
/* Subroutine */ int cgehrd_(int *n, int *ilo, int *ihi, complex *
229
a, int *lda, complex *tau, complex *work, int *lwork, int
232
/* Subroutine */ int cgelq2_(int *m, int *n, complex *a, int *lda,
233
complex *tau, complex *work, int *info);
235
/* Subroutine */ int cgelqf_(int *m, int *n, complex *a, int *lda,
236
complex *tau, complex *work, int *lwork, int *info);
238
/* Subroutine */ int cgels_(char *trans, int *m, int *n, int *
239
nrhs, complex *a, int *lda, complex *b, int *ldb, complex *
240
work, int *lwork, int *info);
242
/* Subroutine */ int cgelsd_(int *m, int *n, int *nrhs, complex *
243
a, int *lda, complex *b, int *ldb, real *s, real *rcond,
244
int *rank, complex *work, int *lwork, real *rwork, int *
247
/* Subroutine */ int cgelss_(int *m, int *n, int *nrhs, complex *
248
a, int *lda, complex *b, int *ldb, real *s, real *rcond,
249
int *rank, complex *work, int *lwork, real *rwork, int *
252
/* Subroutine */ int cgelsx_(int *m, int *n, int *nrhs, complex *
253
a, int *lda, complex *b, int *ldb, int *jpvt, real *rcond,
254
int *rank, complex *work, real *rwork, int *info);
256
/* Subroutine */ int cgelsy_(int *m, int *n, int *nrhs, complex *
257
a, int *lda, complex *b, int *ldb, int *jpvt, real *rcond,
258
int *rank, complex *work, int *lwork, real *rwork, int *
261
/* Subroutine */ int cgeql2_(int *m, int *n, complex *a, int *lda,
262
complex *tau, complex *work, int *info);
264
/* Subroutine */ int cgeqlf_(int *m, int *n, complex *a, int *lda,
265
complex *tau, complex *work, int *lwork, int *info);
267
/* Subroutine */ int cgeqp3_(int *m, int *n, complex *a, int *lda,
268
int *jpvt, complex *tau, complex *work, int *lwork, real *
271
/* Subroutine */ int cgeqpf_(int *m, int *n, complex *a, int *lda,
272
int *jpvt, complex *tau, complex *work, real *rwork, int *
275
/* Subroutine */ int cgeqr2_(int *m, int *n, complex *a, int *lda,
276
complex *tau, complex *work, int *info);
278
/* Subroutine */ int cgeqrf_(int *m, int *n, complex *a, int *lda,
279
complex *tau, complex *work, int *lwork, int *info);
281
/* Subroutine */ int cgerfs_(char *trans, int *n, int *nrhs, complex *
282
a, int *lda, complex *af, int *ldaf, int *ipiv, complex *
283
b, int *ldb, complex *x, int *ldx, real *ferr, real *berr,
284
complex *work, real *rwork, int *info);
286
/* Subroutine */ int cgerq2_(int *m, int *n, complex *a, int *lda,
287
complex *tau, complex *work, int *info);
289
/* Subroutine */ int cgerqf_(int *m, int *n, complex *a, int *lda,
290
complex *tau, complex *work, int *lwork, int *info);
292
/* Subroutine */ int cgesc2_(int *n, complex *a, int *lda, complex *
293
rhs, int *ipiv, int *jpiv, real *scale);
295
/* Subroutine */ int cgesdd_(char *jobz, int *m, int *n, complex *a,
296
int *lda, real *s, complex *u, int *ldu, complex *vt, int
297
*ldvt, complex *work, int *lwork, real *rwork, int *iwork,
300
/* Subroutine */ int cgesv_(int *n, int *nrhs, complex *a, int *
301
lda, int *ipiv, complex *b, int *ldb, int *info);
303
/* Subroutine */ int cgesvd_(char *jobu, char *jobvt, int *m, int *n,
304
complex *a, int *lda, real *s, complex *u, int *ldu, complex *
305
vt, int *ldvt, complex *work, int *lwork, real *rwork,
308
/* Subroutine */ int cgesvx_(char *fact, char *trans, int *n, int *
309
nrhs, complex *a, int *lda, complex *af, int *ldaf, int *
310
ipiv, char *equed, real *r__, real *c__, complex *b, int *ldb,
311
complex *x, int *ldx, real *rcond, real *ferr, real *berr,
312
complex *work, real *rwork, int *info);
314
/* Subroutine */ int cgetc2_(int *n, complex *a, int *lda, int *
315
ipiv, int *jpiv, int *info);
317
/* Subroutine */ int cgetf2_(int *m, int *n, complex *a, int *lda,
318
int *ipiv, int *info);
320
/* Subroutine */ int cgetrf_(int *m, int *n, complex *a, int *lda,
321
int *ipiv, int *info);
323
/* Subroutine */ int cgetri_(int *n, complex *a, int *lda, int *
324
ipiv, complex *work, int *lwork, int *info);
326
/* Subroutine */ int cgetrs_(char *trans, int *n, int *nrhs, complex *
327
a, int *lda, int *ipiv, complex *b, int *ldb, int *
330
/* Subroutine */ int cggbak_(char *job, char *side, int *n, int *ilo,
331
int *ihi, real *lscale, real *rscale, int *m, complex *v,
332
int *ldv, int *info);
334
/* Subroutine */ int cggbal_(char *job, int *n, complex *a, int *lda,
335
complex *b, int *ldb, int *ilo, int *ihi, real *lscale,
336
real *rscale, real *work, int *info);
338
/* Subroutine */ int cgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
339
selctg, int *n, complex *a, int *lda, complex *b, int *
340
ldb, int *sdim, complex *alpha, complex *beta, complex *vsl,
341
int *ldvsl, complex *vsr, int *ldvsr, complex *work, int *
342
lwork, real *rwork, logical *bwork, int *info);
344
/* Subroutine */ int cggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
345
selctg, char *sense, int *n, complex *a, int *lda, complex *b,
346
int *ldb, int *sdim, complex *alpha, complex *beta, complex *
347
vsl, int *ldvsl, complex *vsr, int *ldvsr, real *rconde, real
348
*rcondv, complex *work, int *lwork, real *rwork, int *iwork,
349
int *liwork, logical *bwork, int *info);
351
/* Subroutine */ int cggev_(char *jobvl, char *jobvr, int *n, complex *a,
352
int *lda, complex *b, int *ldb, complex *alpha, complex *beta,
353
complex *vl, int *ldvl, complex *vr, int *ldvr, complex *
354
work, int *lwork, real *rwork, int *info);
356
/* Subroutine */ int cggevx_(char *balanc, char *jobvl, char *jobvr, char *
357
sense, int *n, complex *a, int *lda, complex *b, int *ldb,
358
complex *alpha, complex *beta, complex *vl, int *ldvl, complex *
359
vr, int *ldvr, int *ilo, int *ihi, real *lscale, real *
360
rscale, real *abnrm, real *bbnrm, real *rconde, real *rcondv, complex
361
*work, int *lwork, real *rwork, int *iwork, logical *bwork,
364
/* Subroutine */ int cggglm_(int *n, int *m, int *p, complex *a,
365
int *lda, complex *b, int *ldb, complex *d__, complex *x,
366
complex *y, complex *work, int *lwork, int *info);
368
/* Subroutine */ int cgghrd_(char *compq, char *compz, int *n, int *
369
ilo, int *ihi, complex *a, int *lda, complex *b, int *ldb,
370
complex *q, int *ldq, complex *z__, int *ldz, int *info);
372
/* Subroutine */ int cgglse_(int *m, int *n, int *p, complex *a,
373
int *lda, complex *b, int *ldb, complex *c__, complex *d__,
374
complex *x, complex *work, int *lwork, int *info);
376
/* Subroutine */ int cggqrf_(int *n, int *m, int *p, complex *a,
377
int *lda, complex *taua, complex *b, int *ldb, complex *taub,
378
complex *work, int *lwork, int *info);
380
/* Subroutine */ int cggrqf_(int *m, int *p, int *n, complex *a,
381
int *lda, complex *taua, complex *b, int *ldb, complex *taub,
382
complex *work, int *lwork, int *info);
384
/* Subroutine */ int cggsvd_(char *jobu, char *jobv, char *jobq, int *m,
385
int *n, int *p, int *k, int *l, complex *a, int *
386
lda, complex *b, int *ldb, real *alpha, real *beta, complex *u,
387
int *ldu, complex *v, int *ldv, complex *q, int *ldq,
388
complex *work, real *rwork, int *iwork, int *info);
390
/* Subroutine */ int cggsvp_(char *jobu, char *jobv, char *jobq, int *m,
391
int *p, int *n, complex *a, int *lda, complex *b, int
392
*ldb, real *tola, real *tolb, int *k, int *l, complex *u,
393
int *ldu, complex *v, int *ldv, complex *q, int *ldq,
394
int *iwork, real *rwork, complex *tau, complex *work, int *
397
/* Subroutine */ int cgtcon_(char *norm, int *n, complex *dl, complex *
398
d__, complex *du, complex *du2, int *ipiv, real *anorm, real *
399
rcond, complex *work, int *info);
401
/* Subroutine */ int cgtrfs_(char *trans, int *n, int *nrhs, complex *
402
dl, complex *d__, complex *du, complex *dlf, complex *df, complex *
403
duf, complex *du2, int *ipiv, complex *b, int *ldb, complex *
404
x, int *ldx, real *ferr, real *berr, complex *work, real *rwork,
407
/* Subroutine */ int cgtsv_(int *n, int *nrhs, complex *dl, complex *
408
d__, complex *du, complex *b, int *ldb, int *info);
410
/* Subroutine */ int cgtsvx_(char *fact, char *trans, int *n, int *
411
nrhs, complex *dl, complex *d__, complex *du, complex *dlf, complex *
412
df, complex *duf, complex *du2, int *ipiv, complex *b, int *
413
ldb, complex *x, int *ldx, real *rcond, real *ferr, real *berr,
414
complex *work, real *rwork, int *info);
416
/* Subroutine */ int cgttrf_(int *n, complex *dl, complex *d__, complex *
417
du, complex *du2, int *ipiv, int *info);
419
/* Subroutine */ int cgttrs_(char *trans, int *n, int *nrhs, complex *
420
dl, complex *d__, complex *du, complex *du2, int *ipiv, complex *
421
b, int *ldb, int *info);
423
/* Subroutine */ int cgtts2_(int *itrans, int *n, int *nrhs,
424
complex *dl, complex *d__, complex *du, complex *du2, int *ipiv,
425
complex *b, int *ldb);
427
/* Subroutine */ int chbev_(char *jobz, char *uplo, int *n, int *kd,
428
complex *ab, int *ldab, real *w, complex *z__, int *ldz,
429
complex *work, real *rwork, int *info);
431
/* Subroutine */ int chbevd_(char *jobz, char *uplo, int *n, int *kd,
432
complex *ab, int *ldab, real *w, complex *z__, int *ldz,
433
complex *work, int *lwork, real *rwork, int *lrwork, int *
434
iwork, int *liwork, int *info);
436
/* Subroutine */ int chbevx_(char *jobz, char *range, char *uplo, int *n,
437
int *kd, complex *ab, int *ldab, complex *q, int *ldq,
438
real *vl, real *vu, int *il, int *iu, real *abstol, int *
439
m, real *w, complex *z__, int *ldz, complex *work, real *rwork,
440
int *iwork, int *ifail, int *info);
442
/* Subroutine */ int chbgst_(char *vect, char *uplo, int *n, int *ka,
443
int *kb, complex *ab, int *ldab, complex *bb, int *ldbb,
444
complex *x, int *ldx, complex *work, real *rwork, int *info);
446
/* Subroutine */ int chbgv_(char *jobz, char *uplo, int *n, int *ka,
447
int *kb, complex *ab, int *ldab, complex *bb, int *ldbb,
448
real *w, complex *z__, int *ldz, complex *work, real *rwork,
451
/* Subroutine */ int chbgvd_(char *jobz, char *uplo, int *n, int *ka,
452
int *kb, complex *ab, int *ldab, complex *bb, int *ldbb,
453
real *w, complex *z__, int *ldz, complex *work, int *lwork,
454
real *rwork, int *lrwork, int *iwork, int *liwork,
457
/* Subroutine */ int chbgvx_(char *jobz, char *range, char *uplo, int *n,
458
int *ka, int *kb, complex *ab, int *ldab, complex *bb,
459
int *ldbb, complex *q, int *ldq, real *vl, real *vu, int *
460
il, int *iu, real *abstol, int *m, real *w, complex *z__,
461
int *ldz, complex *work, real *rwork, int *iwork, int *
464
/* Subroutine */ int chbtrd_(char *vect, char *uplo, int *n, int *kd,
465
complex *ab, int *ldab, real *d__, real *e, complex *q, int *
466
ldq, complex *work, int *info);
468
/* Subroutine */ int checon_(char *uplo, int *n, complex *a, int *lda,
469
int *ipiv, real *anorm, real *rcond, complex *work, int *
472
/* Subroutine */ int cheev_(char *jobz, char *uplo, int *n, complex *a,
473
int *lda, real *w, complex *work, int *lwork, real *rwork,
476
/* Subroutine */ int cheevd_(char *jobz, char *uplo, int *n, complex *a,
477
int *lda, real *w, complex *work, int *lwork, real *rwork,
478
int *lrwork, int *iwork, int *liwork, int *info);
480
/* Subroutine */ int cheevr_(char *jobz, char *range, char *uplo, int *n,
481
complex *a, int *lda, real *vl, real *vu, int *il, int *
482
iu, real *abstol, int *m, real *w, complex *z__, int *ldz,
483
int *isuppz, complex *work, int *lwork, real *rwork, int *
484
lrwork, int *iwork, int *liwork, int *info);
486
/* Subroutine */ int cheevx_(char *jobz, char *range, char *uplo, int *n,
487
complex *a, int *lda, real *vl, real *vu, int *il, int *
488
iu, real *abstol, int *m, real *w, complex *z__, int *ldz,
489
complex *work, int *lwork, real *rwork, int *iwork, int *
492
/* Subroutine */ int chegs2_(int *itype, char *uplo, int *n, complex *
493
a, int *lda, complex *b, int *ldb, int *info);
495
/* Subroutine */ int chegst_(int *itype, char *uplo, int *n, complex *
496
a, int *lda, complex *b, int *ldb, int *info);
498
/* Subroutine */ int chegv_(int *itype, char *jobz, char *uplo, int *
499
n, complex *a, int *lda, complex *b, int *ldb, real *w,
500
complex *work, int *lwork, real *rwork, int *info);
502
/* Subroutine */ int chegvd_(int *itype, char *jobz, char *uplo, int *
503
n, complex *a, int *lda, complex *b, int *ldb, real *w,
504
complex *work, int *lwork, real *rwork, int *lrwork, int *
505
iwork, int *liwork, int *info);
507
/* Subroutine */ int chegvx_(int *itype, char *jobz, char *range, char *
508
uplo, int *n, complex *a, int *lda, complex *b, int *ldb,
509
real *vl, real *vu, int *il, int *iu, real *abstol, int *
510
m, real *w, complex *z__, int *ldz, complex *work, int *lwork,
511
real *rwork, int *iwork, int *ifail, int *info);
513
/* Subroutine */ int cherfs_(char *uplo, int *n, int *nrhs, complex *
514
a, int *lda, complex *af, int *ldaf, int *ipiv, complex *
515
b, int *ldb, complex *x, int *ldx, real *ferr, real *berr,
516
complex *work, real *rwork, int *info);
518
/* Subroutine */ int chesv_(char *uplo, int *n, int *nrhs, complex *a,
519
int *lda, int *ipiv, complex *b, int *ldb, complex *work,
520
int *lwork, int *info);
522
/* Subroutine */ int chesvx_(char *fact, char *uplo, int *n, int *
523
nrhs, complex *a, int *lda, complex *af, int *ldaf, int *
524
ipiv, complex *b, int *ldb, complex *x, int *ldx, real *rcond,
525
real *ferr, real *berr, complex *work, int *lwork, real *rwork,
528
/* Subroutine */ int chetd2_(char *uplo, int *n, complex *a, int *lda,
529
real *d__, real *e, complex *tau, int *info);
531
/* Subroutine */ int chetf2_(char *uplo, int *n, complex *a, int *lda,
532
int *ipiv, int *info);
534
/* Subroutine */ int chetrd_(char *uplo, int *n, complex *a, int *lda,
535
real *d__, real *e, complex *tau, complex *work, int *lwork,
538
/* Subroutine */ int chetrf_(char *uplo, int *n, complex *a, int *lda,
539
int *ipiv, complex *work, int *lwork, int *info);
541
/* Subroutine */ int chetri_(char *uplo, int *n, complex *a, int *lda,
542
int *ipiv, complex *work, int *info);
544
/* Subroutine */ int chetrs_(char *uplo, int *n, int *nrhs, complex *
545
a, int *lda, int *ipiv, complex *b, int *ldb, int *
548
/* Subroutine */ int chgeqz_(char *job, char *compq, char *compz, int *n,
549
int *ilo, int *ihi, complex *h__, int *ldh, complex *t,
550
int *ldt, complex *alpha, complex *beta, complex *q, int *ldq,
551
complex *z__, int *ldz, complex *work, int *lwork, real *
554
/* Subroutine */ int chpcon_(char *uplo, int *n, complex *ap, int *
555
ipiv, real *anorm, real *rcond, complex *work, int *info);
557
/* Subroutine */ int chpev_(char *jobz, char *uplo, int *n, complex *ap,
558
real *w, complex *z__, int *ldz, complex *work, real *rwork,
561
/* Subroutine */ int chpevd_(char *jobz, char *uplo, int *n, complex *ap,
562
real *w, complex *z__, int *ldz, complex *work, int *lwork,
563
real *rwork, int *lrwork, int *iwork, int *liwork,
566
/* Subroutine */ int chpevx_(char *jobz, char *range, char *uplo, int *n,
567
complex *ap, real *vl, real *vu, int *il, int *iu, real *
568
abstol, int *m, real *w, complex *z__, int *ldz, complex *
569
work, real *rwork, int *iwork, int *ifail, int *info);
571
/* Subroutine */ int chpgst_(int *itype, char *uplo, int *n, complex *
572
ap, complex *bp, int *info);
574
/* Subroutine */ int chpgv_(int *itype, char *jobz, char *uplo, int *
575
n, complex *ap, complex *bp, real *w, complex *z__, int *ldz,
576
complex *work, real *rwork, int *info);
578
/* Subroutine */ int chpgvd_(int *itype, char *jobz, char *uplo, int *
579
n, complex *ap, complex *bp, real *w, complex *z__, int *ldz,
580
complex *work, int *lwork, real *rwork, int *lrwork, int *
581
iwork, int *liwork, int *info);
583
/* Subroutine */ int chpgvx_(int *itype, char *jobz, char *range, char *
584
uplo, int *n, complex *ap, complex *bp, real *vl, real *vu,
585
int *il, int *iu, real *abstol, int *m, real *w, complex *
586
z__, int *ldz, complex *work, real *rwork, int *iwork,
587
int *ifail, int *info);
589
/* Subroutine */ int chprfs_(char *uplo, int *n, int *nrhs, complex *
590
ap, complex *afp, int *ipiv, complex *b, int *ldb, complex *x,
591
int *ldx, real *ferr, real *berr, complex *work, real *rwork,
594
/* Subroutine */ int chpsv_(char *uplo, int *n, int *nrhs, complex *
595
ap, int *ipiv, complex *b, int *ldb, int *info);
597
/* Subroutine */ int chpsvx_(char *fact, char *uplo, int *n, int *
598
nrhs, complex *ap, complex *afp, int *ipiv, complex *b, int *
599
ldb, complex *x, int *ldx, real *rcond, real *ferr, real *berr,
600
complex *work, real *rwork, int *info);
602
/* Subroutine */ int chptrd_(char *uplo, int *n, complex *ap, real *d__,
603
real *e, complex *tau, int *info);
605
/* Subroutine */ int chptrf_(char *uplo, int *n, complex *ap, int *
608
/* Subroutine */ int chptri_(char *uplo, int *n, complex *ap, int *
609
ipiv, complex *work, int *info);
611
/* Subroutine */ int chptrs_(char *uplo, int *n, int *nrhs, complex *
612
ap, int *ipiv, complex *b, int *ldb, int *info);
614
/* Subroutine */ int chsein_(char *side, char *eigsrc, char *initv, logical *
615
select, int *n, complex *h__, int *ldh, complex *w, complex *
616
vl, int *ldvl, complex *vr, int *ldvr, int *mm, int *
617
m, complex *work, real *rwork, int *ifaill, int *ifailr,
620
/* Subroutine */ int chseqr_(char *job, char *compz, int *n, int *ilo,
621
int *ihi, complex *h__, int *ldh, complex *w, complex *z__,
622
int *ldz, complex *work, int *lwork, int *info);
624
/* Subroutine */ int clabrd_(int *m, int *n, int *nb, complex *a,
625
int *lda, real *d__, real *e, complex *tauq, complex *taup,
626
complex *x, int *ldx, complex *y, int *ldy);
628
/* Subroutine */ int clacgv_(int *n, complex *x, int *incx);
630
/* Subroutine */ int clacn2_(int *n, complex *v, complex *x, real *est,
631
int *kase, int *isave);
633
/* Subroutine */ int clacon_(int *n, complex *v, complex *x, real *est,
636
/* Subroutine */ int clacp2_(char *uplo, int *m, int *n, real *a,
637
int *lda, complex *b, int *ldb);
639
/* Subroutine */ int clacpy_(char *uplo, int *m, int *n, complex *a,
640
int *lda, complex *b, int *ldb);
642
/* Subroutine */ int clacrm_(int *m, int *n, complex *a, int *lda,
643
real *b, int *ldb, complex *c__, int *ldc, real *rwork);
645
/* Subroutine */ int clacrt_(int *n, complex *cx, int *incx, complex *
646
cy, int *incy, complex *c__, complex *s);
648
/* Complex */ void cladiv_(complex * ret_val, complex *x, complex *y);
650
/* Subroutine */ int claed0_(int *qsiz, int *n, real *d__, real *e,
651
complex *q, int *ldq, complex *qstore, int *ldqs, real *rwork,
652
int *iwork, int *info);
654
/* Subroutine */ int claed7_(int *n, int *cutpnt, int *qsiz,
655
int *tlvls, int *curlvl, int *curpbm, real *d__, complex *
656
q, int *ldq, real *rho, int *indxq, real *qstore, int *
657
qptr, int *prmptr, int *perm, int *givptr, int *
658
givcol, real *givnum, complex *work, real *rwork, int *iwork,
661
/* Subroutine */ int claed8_(int *k, int *n, int *qsiz, complex *
662
q, int *ldq, real *d__, real *rho, int *cutpnt, real *z__,
663
real *dlamda, complex *q2, int *ldq2, real *w, int *indxp,
664
int *indx, int *indxq, int *perm, int *givptr,
665
int *givcol, real *givnum, int *info);
667
/* Subroutine */ int claein_(logical *rightv, logical *noinit, int *n,
668
complex *h__, int *ldh, complex *w, complex *v, complex *b,
669
int *ldb, real *rwork, real *eps3, real *smlnum, int *info);
671
/* Subroutine */ int claesy_(complex *a, complex *b, complex *c__, complex *
672
rt1, complex *rt2, complex *evscal, complex *cs1, complex *sn1);
674
/* Subroutine */ int claev2_(complex *a, complex *b, complex *c__, real *rt1,
675
real *rt2, real *cs1, complex *sn1);
677
/* Subroutine */ int clag2z_(int *m, int *n, complex *sa, int *
678
ldsa, doublecomplex *a, int *lda, int *info);
680
/* Subroutine */ int clags2_(logical *upper, real *a1, complex *a2, real *a3,
681
real *b1, complex *b2, real *b3, real *csu, complex *snu, real *csv,
682
complex *snv, real *csq, complex *snq);
684
/* Subroutine */ int clagtm_(char *trans, int *n, int *nrhs, real *
685
alpha, complex *dl, complex *d__, complex *du, complex *x, int *
686
ldx, real *beta, complex *b, int *ldb);
688
/* Subroutine */ int clahef_(char *uplo, int *n, int *nb, int *kb,
689
complex *a, int *lda, int *ipiv, complex *w, int *ldw,
692
/* Subroutine */ int clahqr_(logical *wantt, logical *wantz, int *n,
693
int *ilo, int *ihi, complex *h__, int *ldh, complex *w,
694
int *iloz, int *ihiz, complex *z__, int *ldz, int *
697
/* Subroutine */ int clahr2_(int *n, int *k, int *nb, complex *a,
698
int *lda, complex *tau, complex *t, int *ldt, complex *y,
701
/* Subroutine */ int clahrd_(int *n, int *k, int *nb, complex *a,
702
int *lda, complex *tau, complex *t, int *ldt, complex *y,
705
/* Subroutine */ int claic1_(int *job, int *j, complex *x, real *sest,
706
complex *w, complex *gamma, real *sestpr, complex *s, complex *c__);
708
/* Subroutine */ int clals0_(int *icompq, int *nl, int *nr,
709
int *sqre, int *nrhs, complex *b, int *ldb, complex *bx,
710
int *ldbx, int *perm, int *givptr, int *givcol,
711
int *ldgcol, real *givnum, int *ldgnum, real *poles, real *
712
difl, real *difr, real *z__, int *k, real *c__, real *s, real *
715
/* Subroutine */ int clalsa_(int *icompq, int *smlsiz, int *n,
716
int *nrhs, complex *b, int *ldb, complex *bx, int *ldbx,
717
real *u, int *ldu, real *vt, int *k, real *difl, real *difr,
718
real *z__, real *poles, int *givptr, int *givcol, int *
719
ldgcol, int *perm, real *givnum, real *c__, real *s, real *rwork,
720
int *iwork, int *info);
722
/* Subroutine */ int clalsd_(char *uplo, int *smlsiz, int *n, int
723
*nrhs, real *d__, real *e, complex *b, int *ldb, real *rcond,
724
int *rank, complex *work, real *rwork, int *iwork, int *
727
/* Subroutine */ int clapll_(int *n, complex *x, int *incx, complex *
728
y, int *incy, real *ssmin);
730
/* Subroutine */ int clapmt_(logical *forwrd, int *m, int *n, complex
731
*x, int *ldx, int *k);
733
/* Subroutine */ int claqgb_(int *m, int *n, int *kl, int *ku,
734
complex *ab, int *ldab, real *r__, real *c__, real *rowcnd, real
735
*colcnd, real *amax, char *equed);
737
/* Subroutine */ int claqge_(int *m, int *n, complex *a, int *lda,
738
real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
741
/* Subroutine */ int claqhb_(char *uplo, int *n, int *kd, complex *ab,
742
int *ldab, real *s, real *scond, real *amax, char *equed );
744
/* Subroutine */ int claqhe_(char *uplo, int *n, complex *a, int *lda,
745
real *s, real *scond, real *amax, char *equed);
747
/* Subroutine */ int claqhp_(char *uplo, int *n, complex *ap, real *s,
748
real *scond, real *amax, char *equed );
750
/* Subroutine */ int claqp2_(int *m, int *n, int *offset, complex
751
*a, int *lda, int *jpvt, complex *tau, real *vn1, real *vn2,
754
/* Subroutine */ int claqps_(int *m, int *n, int *offset, int
755
*nb, int *kb, complex *a, int *lda, int *jpvt, complex *
756
tau, real *vn1, real *vn2, complex *auxv, complex *f, int *ldf);
758
/* Subroutine */ int claqr0_(logical *wantt, logical *wantz, int *n,
759
int *ilo, int *ihi, complex *h__, int *ldh, complex *w,
760
int *iloz, int *ihiz, complex *z__, int *ldz, complex *
761
work, int *lwork, int *info);
763
/* Subroutine */ int claqr1_(int *n, complex *h__, int *ldh, complex *
764
s1, complex *s2, complex *v);
766
/* Subroutine */ int claqr2_(logical *wantt, logical *wantz, int *n,
767
int *ktop, int *kbot, int *nw, complex *h__, int *ldh,
768
int *iloz, int *ihiz, complex *z__, int *ldz, int *
769
ns, int *nd, complex *sh, complex *v, int *ldv, int *nh,
770
complex *t, int *ldt, int *nv, complex *wv, int *ldwv,
771
complex *work, int *lwork);
773
/* Subroutine */ int claqr3_(logical *wantt, logical *wantz, int *n,
774
int *ktop, int *kbot, int *nw, complex *h__, int *ldh,
775
int *iloz, int *ihiz, complex *z__, int *ldz, int *
776
ns, int *nd, complex *sh, complex *v, int *ldv, int *nh,
777
complex *t, int *ldt, int *nv, complex *wv, int *ldwv,
778
complex *work, int *lwork);
780
/* Subroutine */ int claqr4_(logical *wantt, logical *wantz, int *n,
781
int *ilo, int *ihi, complex *h__, int *ldh, complex *w,
782
int *iloz, int *ihiz, complex *z__, int *ldz, complex *
783
work, int *lwork, int *info);
785
/* Subroutine */ int claqr5_(logical *wantt, logical *wantz, int *kacc22,
786
int *n, int *ktop, int *kbot, int *nshfts, complex *s,
787
complex *h__, int *ldh, int *iloz, int *ihiz, complex *
788
z__, int *ldz, complex *v, int *ldv, complex *u, int *ldu,
789
int *nv, complex *wv, int *ldwv, int *nh, complex *wh,
792
/* Subroutine */ int claqsb_(char *uplo, int *n, int *kd, complex *ab,
793
int *ldab, real *s, real *scond, real *amax, char *equed );
795
/* Subroutine */ int claqsp_(char *uplo, int *n, complex *ap, real *s,
796
real *scond, real *amax, char *equed );
798
/* Subroutine */ int claqsy_(char *uplo, int *n, complex *a, int *lda,
799
real *s, real *scond, real *amax, char *equed);
801
/* Subroutine */ int clar1v_(int *n, int *b1, int *bn, real *
802
lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
803
gaptol, complex *z__, logical *wantnc, int *negcnt, real *ztz,
804
real *mingma, int *r__, int *isuppz, real *nrminv, real *
805
resid, real *rqcorr, real *work);
807
/* Subroutine */ int clar2v_(int *n, complex *x, complex *y, complex *z__,
808
int *incx, real *c__, complex *s, int *incc);
810
/* Subroutine */ int clarcm_(int *m, int *n, real *a, int *lda,
811
complex *b, int *ldb, complex *c__, int *ldc, real *rwork);
813
/* Subroutine */ int clarf_(char *side, int *m, int *n, complex *v,
814
int *incv, complex *tau, complex *c__, int *ldc, complex *
817
/* Subroutine */ int clarfb_(char *side, char *trans, char *direct, char *
818
storev, int *m, int *n, int *k, complex *v, int *ldv,
819
complex *t, int *ldt, complex *c__, int *ldc, complex *work,
822
/* Subroutine */ int clarfg_(int *n, complex *alpha, complex *x, int *
825
/* Subroutine */ int clarft_(char *direct, char *storev, int *n, int *
826
k, complex *v, int *ldv, complex *tau, complex *t, int *ldt);
828
/* Subroutine */ int clarfx_(char *side, int *m, int *n, complex *v,
829
complex *tau, complex *c__, int *ldc, complex *work );
831
/* Subroutine */ int clargv_(int *n, complex *x, int *incx, complex *
832
y, int *incy, real *c__, int *incc);
834
/* Subroutine */ int clarnv_(int *idist, int *iseed, int *n,
837
/* Subroutine */ int clarrv_(int *n, real *vl, real *vu, real *d__, real *
838
l, real *pivmin, int *isplit, int *m, int *dol, int *
839
dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr,
840
real *wgap, int *iblock, int *indexw, real *gers, complex *
841
z__, int *ldz, int *isuppz, real *work, int *iwork,
844
/* Subroutine */ int clartg_(complex *f, complex *g, real *cs, complex *sn,
847
/* Subroutine */ int clartv_(int *n, complex *x, int *incx, complex *
848
y, int *incy, real *c__, complex *s, int *incc);
850
/* Subroutine */ int clarz_(char *side, int *m, int *n, int *l,
851
complex *v, int *incv, complex *tau, complex *c__, int *ldc,
854
/* Subroutine */ int clarzb_(char *side, char *trans, char *direct, char *
855
storev, int *m, int *n, int *k, int *l, complex *v,
856
int *ldv, complex *t, int *ldt, complex *c__, int *ldc,
857
complex *work, int *ldwork);
859
/* Subroutine */ int clarzt_(char *direct, char *storev, int *n, int *
860
k, complex *v, int *ldv, complex *tau, complex *t, int *ldt);
862
/* Subroutine */ int clascl_(char *type__, int *kl, int *ku, real *
863
cfrom, real *cto, int *m, int *n, complex *a, int *lda,
866
/* Subroutine */ int claset_(char *uplo, int *m, int *n, complex *
867
alpha, complex *beta, complex *a, int *lda);
869
/* Subroutine */ int clasr_(char *side, char *pivot, char *direct, int *m,
870
int *n, real *c__, real *s, complex *a, int *lda );
872
/* Subroutine */ int classq_(int *n, complex *x, int *incx, real *
875
/* Subroutine */ int claswp_(int *n, complex *a, int *lda, int *
876
k1, int *k2, int *ipiv, int *incx);
878
/* Subroutine */ int clasyf_(char *uplo, int *n, int *nb, int *kb,
879
complex *a, int *lda, int *ipiv, complex *w, int *ldw,
882
/* Subroutine */ int clatbs_(char *uplo, char *trans, char *diag, char *
883
normin, int *n, int *kd, complex *ab, int *ldab, complex *
884
x, real *scale, real *cnorm, int *info);
886
/* Subroutine */ int clatdf_(int *ijob, int *n, complex *z__, int
887
*ldz, complex *rhs, real *rdsum, real *rdscal, int *ipiv, int
890
/* Subroutine */ int clatps_(char *uplo, char *trans, char *diag, char *
891
normin, int *n, complex *ap, complex *x, real *scale, real *cnorm,
894
/* Subroutine */ int clatrd_(char *uplo, int *n, int *nb, complex *a,
895
int *lda, real *e, complex *tau, complex *w, int *ldw );
897
/* Subroutine */ int clatrs_(char *uplo, char *trans, char *diag, char *
898
normin, int *n, complex *a, int *lda, complex *x, real *scale,
899
real *cnorm, int *info);
901
/* Subroutine */ int clatrz_(int *m, int *n, int *l, complex *a,
902
int *lda, complex *tau, complex *work);
904
/* Subroutine */ int clatzm_(char *side, int *m, int *n, complex *v,
905
int *incv, complex *tau, complex *c1, complex *c2, int *ldc,
908
/* Subroutine */ int clauu2_(char *uplo, int *n, complex *a, int *lda,
911
/* Subroutine */ int clauum_(char *uplo, int *n, complex *a, int *lda,
914
/* Subroutine */ int cpbcon_(char *uplo, int *n, int *kd, complex *ab,
915
int *ldab, real *anorm, real *rcond, complex *work, real *rwork,
918
/* Subroutine */ int cpbequ_(char *uplo, int *n, int *kd, complex *ab,
919
int *ldab, real *s, real *scond, real *amax, int *info);
921
/* Subroutine */ int cpbrfs_(char *uplo, int *n, int *kd, int *
922
nrhs, complex *ab, int *ldab, complex *afb, int *ldafb,
923
complex *b, int *ldb, complex *x, int *ldx, real *ferr, real *
924
berr, complex *work, real *rwork, int *info);
926
/* Subroutine */ int cpbstf_(char *uplo, int *n, int *kd, complex *ab,
927
int *ldab, int *info);
929
/* Subroutine */ int cpbsv_(char *uplo, int *n, int *kd, int *
930
nrhs, complex *ab, int *ldab, complex *b, int *ldb, int *
933
/* Subroutine */ int cpbsvx_(char *fact, char *uplo, int *n, int *kd,
934
int *nrhs, complex *ab, int *ldab, complex *afb, int *
935
ldafb, char *equed, real *s, complex *b, int *ldb, complex *x,
936
int *ldx, real *rcond, real *ferr, real *berr, complex *work,
937
real *rwork, int *info);
939
/* Subroutine */ int cpbtf2_(char *uplo, int *n, int *kd, complex *ab,
940
int *ldab, int *info);
942
/* Subroutine */ int cpbtrf_(char *uplo, int *n, int *kd, complex *ab,
943
int *ldab, int *info);
945
/* Subroutine */ int cpbtrs_(char *uplo, int *n, int *kd, int *
946
nrhs, complex *ab, int *ldab, complex *b, int *ldb, int *
949
/* Subroutine */ int cpocon_(char *uplo, int *n, complex *a, int *lda,
950
real *anorm, real *rcond, complex *work, real *rwork, int *info);
952
/* Subroutine */ int cpoequ_(int *n, complex *a, int *lda, real *s,
953
real *scond, real *amax, int *info);
955
/* Subroutine */ int cporfs_(char *uplo, int *n, int *nrhs, complex *
956
a, int *lda, complex *af, int *ldaf, complex *b, int *ldb,
957
complex *x, int *ldx, real *ferr, real *berr, complex *work,
958
real *rwork, int *info);
960
/* Subroutine */ int cposv_(char *uplo, int *n, int *nrhs, complex *a,
961
int *lda, complex *b, int *ldb, int *info);
963
/* Subroutine */ int cposvx_(char *fact, char *uplo, int *n, int *
964
nrhs, complex *a, int *lda, complex *af, int *ldaf, char *
965
equed, real *s, complex *b, int *ldb, complex *x, int *ldx,
966
real *rcond, real *ferr, real *berr, complex *work, real *rwork,
969
/* Subroutine */ int cpotf2_(char *uplo, int *n, complex *a, int *lda,
972
/* Subroutine */ int cpotrf_(char *uplo, int *n, complex *a, int *lda,
975
/* Subroutine */ int cpotri_(char *uplo, int *n, complex *a, int *lda,
978
/* Subroutine */ int cpotrs_(char *uplo, int *n, int *nrhs, complex *
979
a, int *lda, complex *b, int *ldb, int *info);
981
/* Subroutine */ int cppcon_(char *uplo, int *n, complex *ap, real *anorm,
982
real *rcond, complex *work, real *rwork, int *info);
984
/* Subroutine */ int cppequ_(char *uplo, int *n, complex *ap, real *s,
985
real *scond, real *amax, int *info);
987
/* Subroutine */ int cpprfs_(char *uplo, int *n, int *nrhs, complex *
988
ap, complex *afp, complex *b, int *ldb, complex *x, int *ldx,
989
real *ferr, real *berr, complex *work, real *rwork, int *info);
991
/* Subroutine */ int cppsv_(char *uplo, int *n, int *nrhs, complex *
992
ap, complex *b, int *ldb, int *info);
994
/* Subroutine */ int cppsvx_(char *fact, char *uplo, int *n, int *
995
nrhs, complex *ap, complex *afp, char *equed, real *s, complex *b,
996
int *ldb, complex *x, int *ldx, real *rcond, real *ferr, real
997
*berr, complex *work, real *rwork, int *info);
999
/* Subroutine */ int cpptrf_(char *uplo, int *n, complex *ap, int *
1002
/* Subroutine */ int cpptri_(char *uplo, int *n, complex *ap, int *
1005
/* Subroutine */ int cpptrs_(char *uplo, int *n, int *nrhs, complex *
1006
ap, complex *b, int *ldb, int *info);
1008
/* Subroutine */ int cptcon_(int *n, real *d__, complex *e, real *anorm,
1009
real *rcond, real *rwork, int *info);
1011
/* Subroutine */ int cpteqr_(char *compz, int *n, real *d__, real *e,
1012
complex *z__, int *ldz, real *work, int *info);
1014
/* Subroutine */ int cptrfs_(char *uplo, int *n, int *nrhs, real *d__,
1015
complex *e, real *df, complex *ef, complex *b, int *ldb, complex
1016
*x, int *ldx, real *ferr, real *berr, complex *work, real *rwork,
1019
/* Subroutine */ int cptsv_(int *n, int *nrhs, real *d__, complex *e,
1020
complex *b, int *ldb, int *info);
1022
/* Subroutine */ int cptsvx_(char *fact, int *n, int *nrhs, real *d__,
1023
complex *e, real *df, complex *ef, complex *b, int *ldb, complex
1024
*x, int *ldx, real *rcond, real *ferr, real *berr, complex *work,
1025
real *rwork, int *info);
1027
/* Subroutine */ int cpttrf_(int *n, real *d__, complex *e, int *info);
1029
/* Subroutine */ int cpttrs_(char *uplo, int *n, int *nrhs, real *d__,
1030
complex *e, complex *b, int *ldb, int *info);
1032
/* Subroutine */ int cptts2_(int *iuplo, int *n, int *nrhs, real *
1033
d__, complex *e, complex *b, int *ldb);
1035
/* Subroutine */ int crot_(int *n, complex *cx, int *incx, complex *
1036
cy, int *incy, real *c__, complex *s);
1038
/* Subroutine */ int cspcon_(char *uplo, int *n, complex *ap, int *
1039
ipiv, real *anorm, real *rcond, complex *work, int *info);
1041
/* Subroutine */ int cspmv_(char *uplo, int *n, complex *alpha, complex *
1042
ap, complex *x, int *incx, complex *beta, complex *y, int *
1045
/* Subroutine */ int cspr_(char *uplo, int *n, complex *alpha, complex *x,
1046
int *incx, complex *ap);
1048
/* Subroutine */ int csprfs_(char *uplo, int *n, int *nrhs, complex *
1049
ap, complex *afp, int *ipiv, complex *b, int *ldb, complex *x,
1050
int *ldx, real *ferr, real *berr, complex *work, real *rwork,
1053
/* Subroutine */ int cspsv_(char *uplo, int *n, int *nrhs, complex *
1054
ap, int *ipiv, complex *b, int *ldb, int *info);
1056
/* Subroutine */ int cspsvx_(char *fact, char *uplo, int *n, int *
1057
nrhs, complex *ap, complex *afp, int *ipiv, complex *b, int *
1058
ldb, complex *x, int *ldx, real *rcond, real *ferr, real *berr,
1059
complex *work, real *rwork, int *info);
1061
/* Subroutine */ int csptrf_(char *uplo, int *n, complex *ap, int *
1064
/* Subroutine */ int csptri_(char *uplo, int *n, complex *ap, int *
1065
ipiv, complex *work, int *info);
1067
/* Subroutine */ int csptrs_(char *uplo, int *n, int *nrhs, complex *
1068
ap, int *ipiv, complex *b, int *ldb, int *info);
1070
/* Subroutine */ int csrscl_(int *n, real *sa, complex *sx, int *incx);
1072
/* Subroutine */ int cstedc_(char *compz, int *n, real *d__, real *e,
1073
complex *z__, int *ldz, complex *work, int *lwork, real *
1074
rwork, int *lrwork, int *iwork, int *liwork, int *
1077
/* Subroutine */ int cstegr_(char *jobz, char *range, int *n, real *d__,
1078
real *e, real *vl, real *vu, int *il, int *iu, real *abstol,
1079
int *m, real *w, complex *z__, int *ldz, int *isuppz,
1080
real *work, int *lwork, int *iwork, int *liwork, int *
1083
/* Subroutine */ int cstein_(int *n, real *d__, real *e, int *m, real
1084
*w, int *iblock, int *isplit, complex *z__, int *ldz,
1085
real *work, int *iwork, int *ifail, int *info);
1087
/* Subroutine */ int cstemr_(char *jobz, char *range, int *n, real *d__,
1088
real *e, real *vl, real *vu, int *il, int *iu, int *m,
1089
real *w, complex *z__, int *ldz, int *nzc, int *isuppz,
1090
logical *tryrac, real *work, int *lwork, int *iwork, int *
1093
/* Subroutine */ int csteqr_(char *compz, int *n, real *d__, real *e,
1094
complex *z__, int *ldz, real *work, int *info);
1096
/* Subroutine */ int csycon_(char *uplo, int *n, complex *a, int *lda,
1097
int *ipiv, real *anorm, real *rcond, complex *work, int *
1100
/* Subroutine */ int csymv_(char *uplo, int *n, complex *alpha, complex *
1101
a, int *lda, complex *x, int *incx, complex *beta, complex *y,
1104
/* Subroutine */ int csyr_(char *uplo, int *n, complex *alpha, complex *x,
1105
int *incx, complex *a, int *lda);
1107
/* Subroutine */ int csyrfs_(char *uplo, int *n, int *nrhs, complex *
1108
a, int *lda, complex *af, int *ldaf, int *ipiv, complex *
1109
b, int *ldb, complex *x, int *ldx, real *ferr, real *berr,
1110
complex *work, real *rwork, int *info);
1112
/* Subroutine */ int csysv_(char *uplo, int *n, int *nrhs, complex *a,
1113
int *lda, int *ipiv, complex *b, int *ldb, complex *work,
1114
int *lwork, int *info);
1116
/* Subroutine */ int csysvx_(char *fact, char *uplo, int *n, int *
1117
nrhs, complex *a, int *lda, complex *af, int *ldaf, int *
1118
ipiv, complex *b, int *ldb, complex *x, int *ldx, real *rcond,
1119
real *ferr, real *berr, complex *work, int *lwork, real *rwork,
1122
/* Subroutine */ int csytf2_(char *uplo, int *n, complex *a, int *lda,
1123
int *ipiv, int *info);
1125
/* Subroutine */ int csytrf_(char *uplo, int *n, complex *a, int *lda,
1126
int *ipiv, complex *work, int *lwork, int *info);
1128
/* Subroutine */ int csytri_(char *uplo, int *n, complex *a, int *lda,
1129
int *ipiv, complex *work, int *info);
1131
/* Subroutine */ int csytrs_(char *uplo, int *n, int *nrhs, complex *
1132
a, int *lda, int *ipiv, complex *b, int *ldb, int *
1135
/* Subroutine */ int ctbcon_(char *norm, char *uplo, char *diag, int *n,
1136
int *kd, complex *ab, int *ldab, real *rcond, complex *work,
1137
real *rwork, int *info);
1139
/* Subroutine */ int ctbrfs_(char *uplo, char *trans, char *diag, int *n,
1140
int *kd, int *nrhs, complex *ab, int *ldab, complex *b,
1141
int *ldb, complex *x, int *ldx, real *ferr, real *berr,
1142
complex *work, real *rwork, int *info);
1144
/* Subroutine */ int ctbtrs_(char *uplo, char *trans, char *diag, int *n,
1145
int *kd, int *nrhs, complex *ab, int *ldab, complex *b,
1146
int *ldb, int *info);
1148
/* Subroutine */ int ctgevc_(char *side, char *howmny, logical *select,
1149
int *n, complex *s, int *lds, complex *p, int *ldp,
1150
complex *vl, int *ldvl, complex *vr, int *ldvr, int *mm,
1151
int *m, complex *work, real *rwork, int *info);
1153
/* Subroutine */ int ctgex2_(logical *wantq, logical *wantz, int *n,
1154
complex *a, int *lda, complex *b, int *ldb, complex *q,
1155
int *ldq, complex *z__, int *ldz, int *j1, int *info);
1157
/* Subroutine */ int ctgexc_(logical *wantq, logical *wantz, int *n,
1158
complex *a, int *lda, complex *b, int *ldb, complex *q,
1159
int *ldq, complex *z__, int *ldz, int *ifst, int *
1162
/* Subroutine */ int ctgsen_(int *ijob, logical *wantq, logical *wantz,
1163
logical *select, int *n, complex *a, int *lda, complex *b,
1164
int *ldb, complex *alpha, complex *beta, complex *q, int *ldq,
1165
complex *z__, int *ldz, int *m, real *pl, real *pr, real *
1166
dif, complex *work, int *lwork, int *iwork, int *liwork,
1169
/* Subroutine */ int ctgsja_(char *jobu, char *jobv, char *jobq, int *m,
1170
int *p, int *n, int *k, int *l, complex *a, int *
1171
lda, complex *b, int *ldb, real *tola, real *tolb, real *alpha,
1172
real *beta, complex *u, int *ldu, complex *v, int *ldv,
1173
complex *q, int *ldq, complex *work, int *ncycle, int *
1176
/* Subroutine */ int ctgsna_(char *job, char *howmny, logical *select,
1177
int *n, complex *a, int *lda, complex *b, int *ldb,
1178
complex *vl, int *ldvl, complex *vr, int *ldvr, real *s, real
1179
*dif, int *mm, int *m, complex *work, int *lwork, int
1182
/* Subroutine */ int ctgsy2_(char *trans, int *ijob, int *m, int *
1183
n, complex *a, int *lda, complex *b, int *ldb, complex *c__,
1184
int *ldc, complex *d__, int *ldd, complex *e, int *lde,
1185
complex *f, int *ldf, real *scale, real *rdsum, real *rdscal,
1188
/* Subroutine */ int ctgsyl_(char *trans, int *ijob, int *m, int *
1189
n, complex *a, int *lda, complex *b, int *ldb, complex *c__,
1190
int *ldc, complex *d__, int *ldd, complex *e, int *lde,
1191
complex *f, int *ldf, real *scale, real *dif, complex *work,
1192
int *lwork, int *iwork, int *info);
1194
/* Subroutine */ int ctpcon_(char *norm, char *uplo, char *diag, int *n,
1195
complex *ap, real *rcond, complex *work, real *rwork, int *info);
1197
/* Subroutine */ int ctprfs_(char *uplo, char *trans, char *diag, int *n,
1198
int *nrhs, complex *ap, complex *b, int *ldb, complex *x,
1199
int *ldx, real *ferr, real *berr, complex *work, real *rwork,
1202
/* Subroutine */ int ctptri_(char *uplo, char *diag, int *n, complex *ap,
1205
/* Subroutine */ int ctptrs_(char *uplo, char *trans, char *diag, int *n,
1206
int *nrhs, complex *ap, complex *b, int *ldb, int *info);
1208
/* Subroutine */ int ctrcon_(char *norm, char *uplo, char *diag, int *n,
1209
complex *a, int *lda, real *rcond, complex *work, real *rwork,
1212
/* Subroutine */ int ctrevc_(char *side, char *howmny, logical *select,
1213
int *n, complex *t, int *ldt, complex *vl, int *ldvl,
1214
complex *vr, int *ldvr, int *mm, int *m, complex *work,
1215
real *rwork, int *info);
1217
/* Subroutine */ int ctrexc_(char *compq, int *n, complex *t, int *
1218
ldt, complex *q, int *ldq, int *ifst, int *ilst, int *
1221
/* Subroutine */ int ctrrfs_(char *uplo, char *trans, char *diag, int *n,
1222
int *nrhs, complex *a, int *lda, complex *b, int *ldb,
1223
complex *x, int *ldx, real *ferr, real *berr, complex *work, real
1226
/* Subroutine */ int ctrsen_(char *job, char *compq, logical *select, int
1227
*n, complex *t, int *ldt, complex *q, int *ldq, complex *w,
1228
int *m, real *s, real *sep, complex *work, int *lwork,
1231
/* Subroutine */ int ctrsna_(char *job, char *howmny, logical *select,
1232
int *n, complex *t, int *ldt, complex *vl, int *ldvl,
1233
complex *vr, int *ldvr, real *s, real *sep, int *mm, int *
1234
m, complex *work, int *ldwork, real *rwork, int *info);
1236
/* Subroutine */ int ctrsyl_(char *trana, char *tranb, int *isgn, int
1237
*m, int *n, complex *a, int *lda, complex *b, int *ldb,
1238
complex *c__, int *ldc, real *scale, int *info);
1240
/* Subroutine */ int ctrti2_(char *uplo, char *diag, int *n, complex *a,
1241
int *lda, int *info);
1243
/* Subroutine */ int ctrtri_(char *uplo, char *diag, int *n, complex *a,
1244
int *lda, int *info);
1246
/* Subroutine */ int ctrtrs_(char *uplo, char *trans, char *diag, int *n,
1247
int *nrhs, complex *a, int *lda, complex *b, int *ldb,
1250
/* Subroutine */ int ctzrqf_(int *m, int *n, complex *a, int *lda,
1251
complex *tau, int *info);
1253
/* Subroutine */ int ctzrzf_(int *m, int *n, complex *a, int *lda,
1254
complex *tau, complex *work, int *lwork, int *info);
1256
/* Subroutine */ int cung2l_(int *m, int *n, int *k, complex *a,
1257
int *lda, complex *tau, complex *work, int *info);
1259
/* Subroutine */ int cung2r_(int *m, int *n, int *k, complex *a,
1260
int *lda, complex *tau, complex *work, int *info);
1262
/* Subroutine */ int cungbr_(char *vect, int *m, int *n, int *k,
1263
complex *a, int *lda, complex *tau, complex *work, int *lwork,
1266
/* Subroutine */ int cunghr_(int *n, int *ilo, int *ihi, complex *
1267
a, int *lda, complex *tau, complex *work, int *lwork, int
1270
/* Subroutine */ int cungl2_(int *m, int *n, int *k, complex *a,
1271
int *lda, complex *tau, complex *work, int *info);
1273
/* Subroutine */ int cunglq_(int *m, int *n, int *k, complex *a,
1274
int *lda, complex *tau, complex *work, int *lwork, int *
1277
/* Subroutine */ int cungql_(int *m, int *n, int *k, complex *a,
1278
int *lda, complex *tau, complex *work, int *lwork, int *
1281
/* Subroutine */ int cungqr_(int *m, int *n, int *k, complex *a,
1282
int *lda, complex *tau, complex *work, int *lwork, int *
1285
/* Subroutine */ int cungr2_(int *m, int *n, int *k, complex *a,
1286
int *lda, complex *tau, complex *work, int *info);
1288
/* Subroutine */ int cungrq_(int *m, int *n, int *k, complex *a,
1289
int *lda, complex *tau, complex *work, int *lwork, int *
1292
/* Subroutine */ int cungtr_(char *uplo, int *n, complex *a, int *lda,
1293
complex *tau, complex *work, int *lwork, int *info);
1295
/* Subroutine */ int cunm2l_(char *side, char *trans, int *m, int *n,
1296
int *k, complex *a, int *lda, complex *tau, complex *c__,
1297
int *ldc, complex *work, int *info);
1299
/* Subroutine */ int cunm2r_(char *side, char *trans, int *m, int *n,
1300
int *k, complex *a, int *lda, complex *tau, complex *c__,
1301
int *ldc, complex *work, int *info);
1303
/* Subroutine */ int cunmbr_(char *vect, char *side, char *trans, int *m,
1304
int *n, int *k, complex *a, int *lda, complex *tau,
1305
complex *c__, int *ldc, complex *work, int *lwork, int *
1308
/* Subroutine */ int cunmhr_(char *side, char *trans, int *m, int *n,
1309
int *ilo, int *ihi, complex *a, int *lda, complex *tau,
1310
complex *c__, int *ldc, complex *work, int *lwork, int *
1313
/* Subroutine */ int cunml2_(char *side, char *trans, int *m, int *n,
1314
int *k, complex *a, int *lda, complex *tau, complex *c__,
1315
int *ldc, complex *work, int *info);
1317
/* Subroutine */ int cunmlq_(char *side, char *trans, int *m, int *n,
1318
int *k, complex *a, int *lda, complex *tau, complex *c__,
1319
int *ldc, complex *work, int *lwork, int *info);
1321
/* Subroutine */ int cunmql_(char *side, char *trans, int *m, int *n,
1322
int *k, complex *a, int *lda, complex *tau, complex *c__,
1323
int *ldc, complex *work, int *lwork, int *info);
1325
/* Subroutine */ int cunmqr_(char *side, char *trans, int *m, int *n,
1326
int *k, complex *a, int *lda, complex *tau, complex *c__,
1327
int *ldc, complex *work, int *lwork, int *info);
1329
/* Subroutine */ int cunmr2_(char *side, char *trans, int *m, int *n,
1330
int *k, complex *a, int *lda, complex *tau, complex *c__,
1331
int *ldc, complex *work, int *info);
1333
/* Subroutine */ int cunmr3_(char *side, char *trans, int *m, int *n,
1334
int *k, int *l, complex *a, int *lda, complex *tau,
1335
complex *c__, int *ldc, complex *work, int *info);
1337
/* Subroutine */ int cunmrq_(char *side, char *trans, int *m, int *n,
1338
int *k, complex *a, int *lda, complex *tau, complex *c__,
1339
int *ldc, complex *work, int *lwork, int *iinfo);
1341
/* Subroutine */ int cupgtr_(char *uplo, int *n, complex *ap, complex *
1342
tau, complex *q, int *ldq, complex *work, int *info);
1344
/* Subroutine */ int cupmtr_(char *side, char *uplo, char *trans, int *m,
1345
int *n, complex *ap, complex *tau, complex *c__, int *ldc,
1346
complex *work, int *info);
1349
/* Subroutine */ int ddisna_(char *job, int *m, int *n, double *
1350
d__, double *sep, int *info);
1352
/* Subroutine */ int dgbbrd_(char *vect, int *m, int *n, int *ncc,
1353
int *kl, int *ku, double *ab, int *ldab, double *
1354
d__, double *e, double *q, int *ldq, double *pt,
1355
int *ldpt, double *c__, int *ldc, double *work,
1358
/* Subroutine */ int dgbcon_(char *norm, int *n, int *kl, int *ku,
1359
double *ab, int *ldab, int *ipiv, double *anorm,
1360
double *rcond, double *work, int *iwork, int *info);
1362
/* Subroutine */ int dgbequ_(int *m, int *n, int *kl, int *ku,
1363
double *ab, int *ldab, double *r__, double *c__,
1364
double *rowcnd, double *colcnd, double *amax, int *
1367
/* Subroutine */ int dgbrfs_(char *trans, int *n, int *kl, int *
1368
ku, int *nrhs, double *ab, int *ldab, double *afb,
1369
int *ldafb, int *ipiv, double *b, int *ldb,
1370
double *x, int *ldx, double *ferr, double *berr,
1371
double *work, int *iwork, int *info);
1373
/* Subroutine */ int dgbsv_(int *n, int *kl, int *ku, int *
1374
nrhs, double *ab, int *ldab, int *ipiv, double *b,
1375
int *ldb, int *info);
1377
/* Subroutine */ int dgbsvx_(char *fact, char *trans, int *n, int *kl,
1378
int *ku, int *nrhs, double *ab, int *ldab,
1379
double *afb, int *ldafb, int *ipiv, char *equed,
1380
double *r__, double *c__, double *b, int *ldb,
1381
double *x, int *ldx, double *rcond, double *ferr,
1382
double *berr, double *work, int *iwork, int *info);
1384
/* Subroutine */ int dgbtf2_(int *m, int *n, int *kl, int *ku,
1385
double *ab, int *ldab, int *ipiv, int *info);
1387
/* Subroutine */ int dgbtrf_(int *m, int *n, int *kl, int *ku,
1388
double *ab, int *ldab, int *ipiv, int *info);
1390
/* Subroutine */ int dgbtrs_(char *trans, int *n, int *kl, int *
1391
ku, int *nrhs, double *ab, int *ldab, int *ipiv,
1392
double *b, int *ldb, int *info);
1394
/* Subroutine */ int dgebak_(char *job, char *side, int *n, int *ilo,
1395
int *ihi, double *scale, int *m, double *v, int *
1398
/* Subroutine */ int dgebal_(char *job, int *n, double *a, int *
1399
lda, int *ilo, int *ihi, double *scale, int *info);
1401
/* Subroutine */ int dgebd2_(int *m, int *n, double *a, int *
1402
lda, double *d__, double *e, double *tauq, double *
1403
taup, double *work, int *info);
1405
/* Subroutine */ int dgecon_(char *norm, int *n, double *a, int *
1406
lda, double *anorm, double *rcond, double *work, int *
1409
/* Subroutine */ int dgeequ_(int *m, int *n, double *a, int *
1410
lda, double *r__, double *c__, double *rowcnd, double
1411
*colcnd, double *amax, int *info);
1413
/* Subroutine */ int dgees_(char *jobvs, char *sort, L_fp select, int *n,
1414
double *a, int *lda, int *sdim, double *wr,
1415
double *wi, double *vs, int *ldvs, double *work,
1416
int *lwork, logical *bwork, int *info);
1418
/* Subroutine */ int dgeesx_(char *jobvs, char *sort, L_fp select, char *
1419
sense, int *n, double *a, int *lda, int *sdim,
1420
double *wr, double *wi, double *vs, int *ldvs,
1421
double *rconde, double *rcondv, double *work, int *
1422
lwork, int *iwork, int *liwork, logical *bwork, int *info);
1424
/* Subroutine */ int dgeev_(char *jobvl, char *jobvr, int *n, double *
1425
a, int *lda, double *wr, double *wi, double *vl,
1426
int *ldvl, double *vr, int *ldvr, double *work,
1427
int *lwork, int *info);
1429
/* Subroutine */ int dgeevx_(char *balanc, char *jobvl, char *jobvr, char *
1430
sense, int *n, double *a, int *lda, double *wr,
1431
double *wi, double *vl, int *ldvl, double *vr,
1432
int *ldvr, int *ilo, int *ihi, double *scale,
1433
double *abnrm, double *rconde, double *rcondv, double
1434
*work, int *lwork, int *iwork, int *info);
1436
/* Subroutine */ int dgegs_(char *jobvsl, char *jobvsr, int *n,
1437
double *a, int *lda, double *b, int *ldb, double *
1438
alphar, double *alphai, double *beta, double *vsl,
1439
int *ldvsl, double *vsr, int *ldvsr, double *work,
1440
int *lwork, int *info);
1442
/* Subroutine */ int dgegv_(char *jobvl, char *jobvr, int *n, double *
1443
a, int *lda, double *b, int *ldb, double *alphar,
1444
double *alphai, double *beta, double *vl, int *ldvl,
1445
double *vr, int *ldvr, double *work, int *lwork,
1448
/* Subroutine */ int dgehd2_(int *n, int *ilo, int *ihi,
1449
double *a, int *lda, double *tau, double *work,
1452
/* Subroutine */ int dgehrd_(int *n, int *ilo, int *ihi,
1453
double *a, int *lda, double *tau, double *work,
1454
int *lwork, int *info);
1456
/* Subroutine */ int dgelq2_(int *m, int *n, double *a, int *
1457
lda, double *tau, double *work, int *info);
1459
/* Subroutine */ int dgels_(char *trans, int *m, int *n, int *
1460
nrhs, double *a, int *lda, double *b, int *ldb,
1461
double *work, int *lwork, int *info);
1463
/* Subroutine */ int dgelsd_(int *m, int *n, int *nrhs,
1464
double *a, int *lda, double *b, int *ldb, double *
1465
s, double *rcond, int *rank, double *work, int *lwork,
1466
int *iwork, int *info);
1468
/* Subroutine */ int dgelss_(int *m, int *n, int *nrhs,
1469
double *a, int *lda, double *b, int *ldb, double *
1470
s, double *rcond, int *rank, double *work, int *lwork,
1473
/* Subroutine */ int dgelsx_(int *m, int *n, int *nrhs,
1474
double *a, int *lda, double *b, int *ldb, int *
1475
jpvt, double *rcond, int *rank, double *work, int *
1478
/* Subroutine */ int dgelsy_(int *m, int *n, int *nrhs,
1479
double *a, int *lda, double *b, int *ldb, int *
1480
jpvt, double *rcond, int *rank, double *work, int *
1483
/* Subroutine */ int dgeql2_(int *m, int *n, double *a, int *
1484
lda, double *tau, double *work, int *info);
1486
/* Subroutine */ int dgeqlf_(int *m, int *n, double *a, int *
1487
lda, double *tau, double *work, int *lwork, int *info);
1489
/* Subroutine */ int dgeqp3_(int *m, int *n, double *a, int *
1490
lda, int *jpvt, double *tau, double *work, int *lwork,
1493
/* Subroutine */ int dgeqpf_(int *m, int *n, double *a, int *
1494
lda, int *jpvt, double *tau, double *work, int *info);
1496
/* Subroutine */ int dgeqr2_(int *m, int *n, double *a, int *
1497
lda, double *tau, double *work, int *info);
1499
/* Subroutine */ int dgerfs_(char *trans, int *n, int *nrhs,
1500
double *a, int *lda, double *af, int *ldaf, int *
1501
ipiv, double *b, int *ldb, double *x, int *ldx,
1502
double *ferr, double *berr, double *work, int *iwork,
1505
/* Subroutine */ int dgerq2_(int *m, int *n, double *a, int *
1506
lda, double *tau, double *work, int *info);
1508
/* Subroutine */ int dgerqf_(int *m, int *n, double *a, int *
1509
lda, double *tau, double *work, int *lwork, int *info);
1511
/* Subroutine */ int dgesc2_(int *n, double *a, int *lda,
1512
double *rhs, int *ipiv, int *jpiv, double *scale);
1514
/* Subroutine */ int dgesv_(int *n, int *nrhs, double *a, int
1515
*lda, int *ipiv, double *b, int *ldb, int *info);
1517
/* Subroutine */ int dgesvd_(char *jobu, char *jobvt, int *m, int *n,
1518
double *a, int *lda, double *s, double *u, int *
1519
ldu, double *vt, int *ldvt, double *work, int *lwork,
1522
/* Subroutine */ int dgesvx_(char *fact, char *trans, int *n, int *
1523
nrhs, double *a, int *lda, double *af, int *ldaf,
1524
int *ipiv, char *equed, double *r__, double *c__,
1525
double *b, int *ldb, double *x, int *ldx, double *
1526
rcond, double *ferr, double *berr, double *work, int *
1529
/* Subroutine */ int dgetc2_(int *n, double *a, int *lda, int
1530
*ipiv, int *jpiv, int *info);
1532
/* Subroutine */ int dgetf2_(int *m, int *n, double *a, int *
1533
lda, int *ipiv, int *info);
1535
/* Subroutine */ int dggbak_(char *job, char *side, int *n, int *ilo,
1536
int *ihi, double *lscale, double *rscale, int *m,
1537
double *v, int *ldv, int *info);
1539
/* Subroutine */ int dggbal_(char *job, int *n, double *a, int *
1540
lda, double *b, int *ldb, int *ilo, int *ihi,
1541
double *lscale, double *rscale, double *work, int *
1544
/* Subroutine */ int dgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
1545
selctg, int *n, double *a, int *lda, double *b,
1546
int *ldb, int *sdim, double *alphar, double *alphai,
1547
double *beta, double *vsl, int *ldvsl, double *vsr,
1548
int *ldvsr, double *work, int *lwork, logical *bwork,
1551
/* Subroutine */ int dggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
1552
selctg, char *sense, int *n, double *a, int *lda,
1553
double *b, int *ldb, int *sdim, double *alphar,
1554
double *alphai, double *beta, double *vsl, int *ldvsl,
1555
double *vsr, int *ldvsr, double *rconde, double *
1556
rcondv, double *work, int *lwork, int *iwork, int *
1557
liwork, logical *bwork, int *info);
1559
/* Subroutine */ int dggev_(char *jobvl, char *jobvr, int *n, double *
1560
a, int *lda, double *b, int *ldb, double *alphar,
1561
double *alphai, double *beta, double *vl, int *ldvl,
1562
double *vr, int *ldvr, double *work, int *lwork,
1565
/* Subroutine */ int dggevx_(char *balanc, char *jobvl, char *jobvr, char *
1566
sense, int *n, double *a, int *lda, double *b,
1567
int *ldb, double *alphar, double *alphai, double *
1568
beta, double *vl, int *ldvl, double *vr, int *ldvr,
1569
int *ilo, int *ihi, double *lscale, double *rscale,
1570
double *abnrm, double *bbnrm, double *rconde, double *
1571
rcondv, double *work, int *lwork, int *iwork, logical *
1574
/* Subroutine */ int dggglm_(int *n, int *m, int *p, double *
1575
a, int *lda, double *b, int *ldb, double *d__,
1576
double *x, double *y, double *work, int *lwork,
1579
/* Subroutine */ int dgghrd_(char *compq, char *compz, int *n, int *
1580
ilo, int *ihi, double *a, int *lda, double *b,
1581
int *ldb, double *q, int *ldq, double *z__, int *
1584
/* Subroutine */ int dgglse_(int *m, int *n, int *p, double *
1585
a, int *lda, double *b, int *ldb, double *c__,
1586
double *d__, double *x, double *work, int *lwork,
1589
/* Subroutine */ int dggqrf_(int *n, int *m, int *p, double *
1590
a, int *lda, double *taua, double *b, int *ldb,
1591
double *taub, double *work, int *lwork, int *info);
1593
/* Subroutine */ int dggrqf_(int *m, int *p, int *n, double *
1594
a, int *lda, double *taua, double *b, int *ldb,
1595
double *taub, double *work, int *lwork, int *info);
1597
/* Subroutine */ int dggsvd_(char *jobu, char *jobv, char *jobq, int *m,
1598
int *n, int *p, int *k, int *l, double *a,
1599
int *lda, double *b, int *ldb, double *alpha,
1600
double *beta, double *u, int *ldu, double *v, int
1601
*ldv, double *q, int *ldq, double *work, int *iwork,
1604
/* Subroutine */ int dggsvp_(char *jobu, char *jobv, char *jobq, int *m,
1605
int *p, int *n, double *a, int *lda, double *b,
1606
int *ldb, double *tola, double *tolb, int *k, int
1607
*l, double *u, int *ldu, double *v, int *ldv,
1608
double *q, int *ldq, int *iwork, double *tau,
1609
double *work, int *info);
1611
/* Subroutine */ int dgtcon_(char *norm, int *n, double *dl,
1612
double *d__, double *du, double *du2, int *ipiv,
1613
double *anorm, double *rcond, double *work, int *
1616
/* Subroutine */ int dgtrfs_(char *trans, int *n, int *nrhs,
1617
double *dl, double *d__, double *du, double *dlf,
1618
double *df, double *duf, double *du2, int *ipiv,
1619
double *b, int *ldb, double *x, int *ldx, double *
1620
ferr, double *berr, double *work, int *iwork, int *
1623
/* Subroutine */ int dgtsv_(int *n, int *nrhs, double *dl,
1624
double *d__, double *du, double *b, int *ldb, int
1627
/* Subroutine */ int dgtsvx_(char *fact, char *trans, int *n, int *
1628
nrhs, double *dl, double *d__, double *du, double *
1629
dlf, double *df, double *duf, double *du2, int *ipiv,
1630
double *b, int *ldb, double *x, int *ldx, double *
1631
rcond, double *ferr, double *berr, double *work, int *
1634
/* Subroutine */ int dgttrf_(int *n, double *dl, double *d__,
1635
double *du, double *du2, int *ipiv, int *info);
1637
/* Subroutine */ int dgttrs_(char *trans, int *n, int *nrhs,
1638
double *dl, double *d__, double *du, double *du2,
1639
int *ipiv, double *b, int *ldb, int *info);
1641
/* Subroutine */ int dgtts2_(int *itrans, int *n, int *nrhs,
1642
double *dl, double *d__, double *du, double *du2,
1643
int *ipiv, double *b, int *ldb);
1645
/* Subroutine */ int dhgeqz_(char *job, char *compq, char *compz, int *n,
1646
int *ilo, int *ihi, double *h__, int *ldh, double
1647
*t, int *ldt, double *alphar, double *alphai, double *
1648
beta, double *q, int *ldq, double *z__, int *ldz,
1649
double *work, int *lwork, int *info);
1651
/* Subroutine */ int dhsein_(char *side, char *eigsrc, char *initv, logical *
1652
select, int *n, double *h__, int *ldh, double *wr,
1653
double *wi, double *vl, int *ldvl, double *vr,
1654
int *ldvr, int *mm, int *m, double *work, int *
1655
ifaill, int *ifailr, int *info);
1657
/* Subroutine */ int dhseqr_(char *job, char *compz, int *n, int *ilo,
1658
int *ihi, double *h__, int *ldh, double *wr,
1659
double *wi, double *z__, int *ldz, double *work,
1660
int *lwork, int *info);
1662
/* Subroutine */ int dlabad_(double *small, double *large);
1664
/* Subroutine */ int dlabrd_(int *m, int *n, int *nb, double *
1665
a, int *lda, double *d__, double *e, double *tauq,
1666
double *taup, double *x, int *ldx, double *y, int
1669
/* Subroutine */ int dlacn2_(int *n, double *v, double *x,
1670
int *isgn, double *est, int *kase, int *isave);
1672
/* Subroutine */ int dlacon_(int *n, double *v, double *x,
1673
int *isgn, double *est, int *kase);
1675
/* Subroutine */ int dlacpy_(char *uplo, int *m, int *n, double *
1676
a, int *lda, double *b, int *ldb);
1678
/* Subroutine */ int dladiv_(double *a, double *b, double *c__,
1679
double *d__, double *p, double *q);
1681
/* Subroutine */ int dlae2_(double *a, double *b, double *c__,
1682
double *rt1, double *rt2);
1684
/* Subroutine */ int dlaebz_(int *ijob, int *nitmax, int *n,
1685
int *mmax, int *minp, int *nbmin, double *abstol,
1686
double *reltol, double *pivmin, double *d__, double *
1687
e, double *e2, int *nval, double *ab, double *c__,
1688
int *mout, int *nab, double *work, int *iwork,
1691
/* Subroutine */ int dlaed0_(int *icompq, int *qsiz, int *n,
1692
double *d__, double *e, double *q, int *ldq,
1693
double *qstore, int *ldqs, double *work, int *iwork,
1696
/* Subroutine */ int dlaed1_(int *n, double *d__, double *q,
1697
int *ldq, int *indxq, double *rho, int *cutpnt,
1698
double *work, int *iwork, int *info);
1700
/* Subroutine */ int dlaed2_(int *k, int *n, int *n1, double *
1701
d__, double *q, int *ldq, int *indxq, double *rho,
1702
double *z__, double *dlamda, double *w, double *q2,
1703
int *indx, int *indxc, int *indxp, int *coltyp,
1706
/* Subroutine */ int dlaed3_(int *k, int *n, int *n1, double *
1707
d__, double *q, int *ldq, double *rho, double *dlamda,
1708
double *q2, int *indx, int *ctot, double *w,
1709
double *s, int *info);
1711
/* Subroutine */ int dlaed4_(int *n, int *i__, double *d__,
1712
double *z__, double *delta, double *rho, double *dlam,
1715
/* Subroutine */ int dlaed5_(int *i__, double *d__, double *z__,
1716
double *delta, double *rho, double *dlam);
1718
/* Subroutine */ int dlaed6_(int *kniter, logical *orgati, double *
1719
rho, double *d__, double *z__, double *finit, double *
1722
/* Subroutine */ int dlaed7_(int *icompq, int *n, int *qsiz,
1723
int *tlvls, int *curlvl, int *curpbm, double *d__,
1724
double *q, int *ldq, int *indxq, double *rho, int
1725
*cutpnt, double *qstore, int *qptr, int *prmptr, int *
1726
perm, int *givptr, int *givcol, double *givnum,
1727
double *work, int *iwork, int *info);
1729
/* Subroutine */ int dlaed8_(int *icompq, int *k, int *n, int
1730
*qsiz, double *d__, double *q, int *ldq, int *indxq,
1731
double *rho, int *cutpnt, double *z__, double *dlamda,
1732
double *q2, int *ldq2, double *w, int *perm, int
1733
*givptr, int *givcol, double *givnum, int *indxp, int
1736
/* Subroutine */ int dlaed9_(int *k, int *kstart, int *kstop,
1737
int *n, double *d__, double *q, int *ldq, double *
1738
rho, double *dlamda, double *w, double *s, int *lds,
1741
/* Subroutine */ int dlaeda_(int *n, int *tlvls, int *curlvl,
1742
int *curpbm, int *prmptr, int *perm, int *givptr,
1743
int *givcol, double *givnum, double *q, int *qptr,
1744
double *z__, double *ztemp, int *info);
1746
/* Subroutine */ int dlaein_(logical *rightv, logical *noinit, int *n,
1747
double *h__, int *ldh, double *wr, double *wi,
1748
double *vr, double *vi, double *b, int *ldb,
1749
double *work, double *eps3, double *smlnum, double *
1752
/* Subroutine */ int dlaev2_(double *a, double *b, double *c__,
1753
double *rt1, double *rt2, double *cs1, double *sn1);
1755
/* Subroutine */ int dlaexc_(logical *wantq, int *n, double *t,
1756
int *ldt, double *q, int *ldq, int *j1, int *n1,
1757
int *n2, double *work, int *info);
1759
/* Subroutine */ int dlag2_(double *a, int *lda, double *b,
1760
int *ldb, double *safmin, double *scale1, double *
1761
scale2, double *wr1, double *wr2, double *wi);
1763
/* Subroutine */ int dlag2s_(int *m, int *n, double *a, int *
1764
lda, real *sa, int *ldsa, int *info);
1766
/* Subroutine */ int dlags2_(logical *upper, double *a1, double *a2,
1767
double *a3, double *b1, double *b2, double *b3,
1768
double *csu, double *snu, double *csv, double *snv,
1769
double *csq, double *snq);
1771
/* Subroutine */ int dlagtf_(int *n, double *a, double *lambda,
1772
double *b, double *c__, double *tol, double *d__,
1773
int *in, int *info);
1775
/* Subroutine */ int dlagtm_(char *trans, int *n, int *nrhs,
1776
double *alpha, double *dl, double *d__, double *du,
1777
double *x, int *ldx, double *beta, double *b, int
1780
/* Subroutine */ int dlagts_(int *job, int *n, double *a,
1781
double *b, double *c__, double *d__, int *in,
1782
double *y, double *tol, int *info);
1784
/* Subroutine */ int dlagv2_(double *a, int *lda, double *b,
1785
int *ldb, double *alphar, double *alphai, double *
1786
beta, double *csl, double *snl, double *csr, double *
1789
/* Subroutine */ int dlahqr_(logical *wantt, logical *wantz, int *n,
1790
int *ilo, int *ihi, double *h__, int *ldh, double
1791
*wr, double *wi, int *iloz, int *ihiz, double *z__,
1792
int *ldz, int *info);
1794
/* Subroutine */ int dlahr2_(int *n, int *k, int *nb, double *
1795
a, int *lda, double *tau, double *t, int *ldt,
1796
double *y, int *ldy);
1798
/* Subroutine */ int dlahrd_(int *n, int *k, int *nb, double *
1799
a, int *lda, double *tau, double *t, int *ldt,
1800
double *y, int *ldy);
1802
/* Subroutine */ int dlaic1_(int *job, int *j, double *x,
1803
double *sest, double *w, double *gamma, double *
1804
sestpr, double *s, double *c__);
1806
/* Subroutine */ int dlaln2_(logical *ltrans, int *na, int *nw,
1807
double *smin, double *ca, double *a, int *lda,
1808
double *d1, double *d2, double *b, int *ldb,
1809
double *wr, double *wi, double *x, int *ldx,
1810
double *scale, double *xnorm, int *info);
1812
/* Subroutine */ int dlals0_(int *icompq, int *nl, int *nr,
1813
int *sqre, int *nrhs, double *b, int *ldb, double
1814
*bx, int *ldbx, int *perm, int *givptr, int *givcol,
1815
int *ldgcol, double *givnum, int *ldgnum, double *
1816
poles, double *difl, double *difr, double *z__, int *
1817
k, double *c__, double *s, double *work, int *info);
1819
/* Subroutine */ int dlalsa_(int *icompq, int *smlsiz, int *n,
1820
int *nrhs, double *b, int *ldb, double *bx, int *
1821
ldbx, double *u, int *ldu, double *vt, int *k,
1822
double *difl, double *difr, double *z__, double *
1823
poles, int *givptr, int *givcol, int *ldgcol, int *
1824
perm, double *givnum, double *c__, double *s, double *
1825
work, int *iwork, int *info);
1827
/* Subroutine */ int dlalsd_(char *uplo, int *smlsiz, int *n, int
1828
*nrhs, double *d__, double *e, double *b, int *ldb,
1829
double *rcond, int *rank, double *work, int *iwork,
1832
/* Subroutine */ int dlamrg_(int *n1, int *n2, double *a, int
1833
*dtrd1, int *dtrd2, int *index);
1835
/* Subroutine */ int dlanv2_(double *a, double *b, double *c__,
1836
double *d__, double *rt1r, double *rt1i, double *rt2r,
1837
double *rt2i, double *cs, double *sn);
1839
/* Subroutine */ int dlapll_(int *n, double *x, int *incx,
1840
double *y, int *incy, double *ssmin);
1842
/* Subroutine */ int dlapmt_(logical *forwrd, int *m, int *n,
1843
double *x, int *ldx, int *k);
1845
/* Subroutine */ int dlaqgb_(int *m, int *n, int *kl, int *ku,
1846
double *ab, int *ldab, double *r__, double *c__,
1847
double *rowcnd, double *colcnd, double *amax, char *equed);
1849
/* Subroutine */ int dlaqge_(int *m, int *n, double *a, int *
1850
lda, double *r__, double *c__, double *rowcnd, double
1851
*colcnd, double *amax, char *equed);
1853
/* Subroutine */ int dlaqp2_(int *m, int *n, int *offset,
1854
double *a, int *lda, int *jpvt, double *tau,
1855
double *vn1, double *vn2, double *work);
1857
/* Subroutine */ int dlaqps_(int *m, int *n, int *offset, int
1858
*nb, int *kb, double *a, int *lda, int *jpvt,
1859
double *tau, double *vn1, double *vn2, double *auxv,
1860
double *f, int *ldf);
1862
/* Subroutine */ int dlaqr0_(logical *wantt, logical *wantz, int *n,
1863
int *ilo, int *ihi, double *h__, int *ldh, double
1864
*wr, double *wi, int *iloz, int *ihiz, double *z__,
1865
int *ldz, double *work, int *lwork, int *info);
1867
/* Subroutine */ int dlaqr1_(int *n, double *h__, int *ldh,
1868
double *sr1, double *si1, double *sr2, double *si2,
1871
/* Subroutine */ int dlaqr2_(logical *wantt, logical *wantz, int *n,
1872
int *ktop, int *kbot, int *nw, double *h__, int *
1873
ldh, int *iloz, int *ihiz, double *z__, int *ldz,
1874
int *ns, int *nd, double *sr, double *si, double *
1875
v, int *ldv, int *nh, double *t, int *ldt, int *
1876
nv, double *wv, int *ldwv, double *work, int *lwork);
1878
/* Subroutine */ int dlaqr3_(logical *wantt, logical *wantz, int *n,
1879
int *ktop, int *kbot, int *nw, double *h__, int *
1880
ldh, int *iloz, int *ihiz, double *z__, int *ldz,
1881
int *ns, int *nd, double *sr, double *si, double *
1882
v, int *ldv, int *nh, double *t, int *ldt, int *
1883
nv, double *wv, int *ldwv, double *work, int *lwork);
1885
/* Subroutine */ int dlaqr4_(logical *wantt, logical *wantz, int *n,
1886
int *ilo, int *ihi, double *h__, int *ldh, double
1887
*wr, double *wi, int *iloz, int *ihiz, double *z__,
1888
int *ldz, double *work, int *lwork, int *info);
1890
/* Subroutine */ int dlaqr5_(logical *wantt, logical *wantz, int *kacc22,
1891
int *n, int *ktop, int *kbot, int *nshfts, double
1892
*sr, double *si, double *h__, int *ldh, int *iloz,
1893
int *ihiz, double *z__, int *ldz, double *v, int *
1894
ldv, double *u, int *ldu, int *nv, double *wv,
1895
int *ldwv, int *nh, double *wh, int *ldwh);
1897
/* Subroutine */ int dlaqsb_(char *uplo, int *n, int *kd, double *
1898
ab, int *ldab, double *s, double *scond, double *amax,
1901
/* Subroutine */ int dlaqsp_(char *uplo, int *n, double *ap,
1902
double *s, double *scond, double *amax, char *equed);
1904
/* Subroutine */ int dlaqsy_(char *uplo, int *n, double *a, int *
1905
lda, double *s, double *scond, double *amax, char *equed);
1907
/* Subroutine */ int dlaqtr_(logical *ltran, logical *lreal, int *n,
1908
double *t, int *ldt, double *b, double *w, double
1909
*scale, double *x, double *work, int *info);
1911
/* Subroutine */ int dlar1v_(int *n, int *b1, int *bn, double
1912
*lambda, double *d__, double *l, double *ld, double *
1913
lld, double *pivmin, double *gaptol, double *z__, logical
1914
*wantnc, int *negcnt, double *ztz, double *mingma,
1915
int *r__, int *isuppz, double *nrminv, double *resid,
1916
double *rqcorr, double *work);
1918
/* Subroutine */ int dlar2v_(int *n, double *x, double *y,
1919
double *z__, int *incx, double *c__, double *s,
1922
/* Subroutine */ int dlarf_(char *side, int *m, int *n, double *v,
1923
int *incv, double *tau, double *c__, int *ldc,
1926
/* Subroutine */ int dlarfb_(char *side, char *trans, char *direct, char *
1927
storev, int *m, int *n, int *k, double *v, int *
1928
ldv, double *t, int *ldt, double *c__, int *ldc,
1929
double *work, int *ldwork);
1931
/* Subroutine */ int dlarfg_(int *n, double *alpha, double *x,
1932
int *incx, double *tau);
1934
/* Subroutine */ int dlarft_(char *direct, char *storev, int *n, int *
1935
k, double *v, int *ldv, double *tau, double *t,
1938
/* Subroutine */ int dlarfx_(char *side, int *m, int *n, double *
1939
v, double *tau, double *c__, int *ldc, double *work);
1941
/* Subroutine */ int dlargv_(int *n, double *x, int *incx,
1942
double *y, int *incy, double *c__, int *incc);
1944
/* Subroutine */ int dlarnv_(int *idist, int *iseed, int *n,
1947
/* Subroutine */ int dlarra_(int *n, double *d__, double *e,
1948
double *e2, double *spltol, double *tnrm, int *nsplit,
1949
int *isplit, int *info);
1951
/* Subroutine */ int dlarrb_(int *n, double *d__, double *lld,
1952
int *ifirst, int *ilast, double *rtol1, double *rtol2,
1953
int *offset, double *w, double *wgap, double *werr,
1954
double *work, int *iwork, double *pivmin, double *
1955
spdiam, int *twist, int *info);
1957
/* Subroutine */ int dlarrc_(char *jobt, int *n, double *vl,
1958
double *vu, double *d__, double *e, double *pivmin,
1959
int *eigcnt, int *lcnt, int *rcnt, int *info);
1961
/* Subroutine */ int dlarrd_(char *range, char *order, int *n, double
1962
*vl, double *vu, int *il, int *iu, double *gers,
1963
double *reltol, double *d__, double *e, double *e2,
1964
double *pivmin, int *nsplit, int *isplit, int *m,
1965
double *w, double *werr, double *wl, double *wu,
1966
int *iblock, int *indexw, double *work, int *iwork,
1969
/* Subroutine */ int dlarre_(char *range, int *n, double *vl,
1970
double *vu, int *il, int *iu, double *d__, double
1971
*e, double *e2, double *rtol1, double *rtol2, double *
1972
spltol, int *nsplit, int *isplit, int *m, double *w,
1973
double *werr, double *wgap, int *iblock, int *indexw,
1974
double *gers, double *pivmin, double *work, int *
1977
/* Subroutine */ int dlarrf_(int *n, double *d__, double *l,
1978
double *ld, int *clstrt, int *clend, double *w,
1979
double *wgap, double *werr, double *spdiam, double *
1980
clgapl, double *clgapr, double *pivmin, double *sigma,
1981
double *dplus, double *lplus, double *work, int *info);
1983
/* Subroutine */ int dlarrj_(int *n, double *d__, double *e2,
1984
int *ifirst, int *ilast, double *rtol, int *offset,
1985
double *w, double *werr, double *work, int *iwork,
1986
double *pivmin, double *spdiam, int *info);
1988
/* Subroutine */ int dlarrk_(int *n, int *iw, double *gl,
1989
double *gu, double *d__, double *e2, double *pivmin,
1990
double *reltol, double *w, double *werr, int *info);
1992
/* Subroutine */ int dlarrr_(int *n, double *d__, double *e,
1995
/* Subroutine */ int dlarrv_(int *n, double *vl, double *vu,
1996
double *d__, double *l, double *pivmin, int *isplit,
1997
int *m, int *dol, int *dou, double *minrgp,
1998
double *rtol1, double *rtol2, double *w, double *werr,
1999
double *wgap, int *iblock, int *indexw, double *gers,
2000
double *z__, int *ldz, int *isuppz, double *work,
2001
int *iwork, int *info);
2003
/* Subroutine */ int dlartg_(double *f, double *g, double *cs,
2004
double *sn, double *r__);
2006
/* Subroutine */ int dlartv_(int *n, double *x, int *incx,
2007
double *y, int *incy, double *c__, double *s, int
2010
/* Subroutine */ int dlaruv_(int *iseed, int *n, double *x);
2012
/* Subroutine */ int dlarz_(char *side, int *m, int *n, int *l,
2013
double *v, int *incv, double *tau, double *c__,
2014
int *ldc, double *work);
2016
/* Subroutine */ int dlarzb_(char *side, char *trans, char *direct, char *
2017
storev, int *m, int *n, int *k, int *l, double *v,
2018
int *ldv, double *t, int *ldt, double *c__, int *
2019
ldc, double *work, int *ldwork );
2021
/* Subroutine */ int dlarzt_(char *direct, char *storev, int *n, int *
2022
k, double *v, int *ldv, double *tau, double *t,
2025
/* Subroutine */ int dlas2_(double *f, double *g, double *h__,
2026
double *ssmin, double *ssmax);
2028
/* Subroutine */ int dlascl_(char *type__, int *kl, int *ku,
2029
double *cfrom, double *cto, int *m, int *n,
2030
double *a, int *lda, int *info);
2032
/* Subroutine */ int dlasd0_(int *n, int *sqre, double *d__,
2033
double *e, double *u, int *ldu, double *vt, int *
2034
ldvt, int *smlsiz, int *iwork, double *work, int *
2037
/* Subroutine */ int dlasd1_(int *nl, int *nr, int *sqre,
2038
double *d__, double *alpha, double *beta, double *u,
2039
int *ldu, double *vt, int *ldvt, int *idxq, int *
2040
iwork, double *work, int *info);
2042
/* Subroutine */ int dlasd2_(int *nl, int *nr, int *sqre, int
2043
*k, double *d__, double *z__, double *alpha, double *
2044
beta, double *u, int *ldu, double *vt, int *ldvt,
2045
double *dsigma, double *u2, int *ldu2, double *vt2,
2046
int *ldvt2, int *idxp, int *idx, int *idxc, int *
2047
idxq, int *coltyp, int *info);
2049
/* Subroutine */ int dlasd3_(int *nl, int *nr, int *sqre, int
2050
*k, double *d__, double *q, int *ldq, double *dsigma,
2051
double *u, int *ldu, double *u2, int *ldu2,
2052
double *vt, int *ldvt, double *vt2, int *ldvt2,
2053
int *idxc, int *ctot, double *z__, int *info);
2055
/* Subroutine */ int dlasd4_(int *n, int *i__, double *d__,
2056
double *z__, double *delta, double *rho, double *
2057
sigma, double *work, int *info);
2059
/* Subroutine */ int dlasd5_(int *i__, double *d__, double *z__,
2060
double *delta, double *rho, double *dsigma, double *
2063
/* Subroutine */ int dlasd6_(int *icompq, int *nl, int *nr,
2064
int *sqre, double *d__, double *vf, double *vl,
2065
double *alpha, double *beta, int *idxq, int *perm,
2066
int *givptr, int *givcol, int *ldgcol, double *givnum,
2067
int *ldgnum, double *poles, double *difl, double *
2068
difr, double *z__, int *k, double *c__, double *s,
2069
double *work, int *iwork, int *info);
2071
/* Subroutine */ int dlasd7_(int *icompq, int *nl, int *nr,
2072
int *sqre, int *k, double *d__, double *z__,
2073
double *zw, double *vf, double *vfw, double *vl,
2074
double *vlw, double *alpha, double *beta, double *
2075
dsigma, int *idx, int *idxp, int *idxq, int *perm,
2076
int *givptr, int *givcol, int *ldgcol, double *givnum,
2077
int *ldgnum, double *c__, double *s, int *info);
2079
/* Subroutine */ int dlasd8_(int *icompq, int *k, double *d__,
2080
double *z__, double *vf, double *vl, double *difl,
2081
double *difr, int *lddifr, double *dsigma, double *
2084
/* Subroutine */ int dlasda_(int *icompq, int *smlsiz, int *n,
2085
int *sqre, double *d__, double *e, double *u, int
2086
*ldu, double *vt, int *k, double *difl, double *difr,
2087
double *z__, double *poles, int *givptr, int *givcol,
2088
int *ldgcol, int *perm, double *givnum, double *c__,
2089
double *s, double *work, int *iwork, int *info);
2091
/* Subroutine */ int dlasdq_(char *uplo, int *sqre, int *n, int *
2092
ncvt, int *nru, int *ncc, double *d__, double *e,
2093
double *vt, int *ldvt, double *u, int *ldu,
2094
double *c__, int *ldc, double *work, int *info);
2096
/* Subroutine */ int dlasdt_(int *n, int *lvl, int *nd, int *
2097
inode, int *ndiml, int *ndimr, int *msub);
2099
/* Subroutine */ int dlaset_(char *uplo, int *m, int *n, double *
2100
alpha, double *beta, double *a, int *lda);
2102
/* Subroutine */ int dlasq1_(int *n, double *d__, double *e,
2103
double *work, int *info);
2105
/* Subroutine */ int dlasq2_(int *n, double *z__, int *info);
2107
/* Subroutine */ int dlasq3_(int *i0, int *n0, double *z__,
2108
int *pp, double *dmin__, double *sigma, double *desig,
2109
double *qmax, int *nfail, int *iter, int *ndiv,
2112
/* Subroutine */ int dlasq4_(int *i0, int *n0, double *z__,
2113
int *pp, int *n0in, double *dmin__, double *dmin1,
2114
double *dmin2, double *dn, double *dn1, double *dn2,
2115
double *tau, int *ttype);
2117
/* Subroutine */ int dlasq5_(int *i0, int *n0, double *z__,
2118
int *pp, double *tau, double *dmin__, double *dmin1,
2119
double *dmin2, double *dn, double *dnm1, double *dnm2,
2122
/* Subroutine */ int dlasq6_(int *i0, int *n0, double *z__,
2123
int *pp, double *dmin__, double *dmin1, double *dmin2,
2124
double *dn, double *dnm1, double *dnm2);
2126
/* Subroutine */ int dlasr_(char *side, char *pivot, char *direct, int *m,
2127
int *n, double *c__, double *s, double *a, int *
2130
/* Subroutine */ int dlasrt_(char *id, int *n, double *d__, int *
2133
/* Subroutine */ int dlassq_(int *n, double *x, int *incx,
2134
double *scale, double *sumsq);
2136
/* Subroutine */ int dlasv2_(double *f, double *g, double *h__,
2137
double *ssmin, double *ssmax, double *snr, double *
2138
csr, double *snl, double *csl);
2140
/* Subroutine */ int dlaswp_(int *n, double *a, int *lda, int
2141
*k1, int *k2, int *ipiv, int *incx);
2143
/* Subroutine */ int dlasy2_(logical *ltranl, logical *ltranr, int *isgn,
2144
int *n1, int *n2, double *tl, int *ldtl, double *
2145
tr, int *ldtr, double *b, int *ldb, double *scale,
2146
double *x, int *ldx, double *xnorm, int *info);
2148
/* Subroutine */ int dlasyf_(char *uplo, int *n, int *nb, int *kb,
2149
double *a, int *lda, int *ipiv, double *w, int *
2152
/* Subroutine */ int dlatbs_(char *uplo, char *trans, char *diag, char *
2153
normin, int *n, int *kd, double *ab, int *ldab,
2154
double *x, double *scale, double *cnorm, int *info);
2156
/* Subroutine */ int dlatdf_(int *ijob, int *n, double *z__,
2157
int *ldz, double *rhs, double *rdsum, double *rdscal,
2158
int *ipiv, int *jpiv);
2160
/* Subroutine */ int dlatps_(char *uplo, char *trans, char *diag, char *
2161
normin, int *n, double *ap, double *x, double *scale,
2162
double *cnorm, int *info);
2164
/* Subroutine */ int dlatrd_(char *uplo, int *n, int *nb, double *
2165
a, int *lda, double *e, double *tau, double *w,
2168
/* Subroutine */ int dlatrs_(char *uplo, char *trans, char *diag, char *
2169
normin, int *n, double *a, int *lda, double *x,
2170
double *scale, double *cnorm, int *info);
2172
/* Subroutine */ int dlatrz_(int *m, int *n, int *l, double *
2173
a, int *lda, double *tau, double *work);
2175
/* Subroutine */ int dlatzm_(char *side, int *m, int *n, double *
2176
v, int *incv, double *tau, double *c1, double *c2,
2177
int *ldc, double *work);
2179
/* Subroutine */ int dlauu2_(char *uplo, int *n, double *a, int *
2182
/* Subroutine */ int dlauum_(char *uplo, int *n, double *a, int *
2185
/* Subroutine */ int dlazq3_(int *i0, int *n0, double *z__,
2186
int *pp, double *dmin__, double *sigma, double *desig,
2187
double *qmax, int *nfail, int *iter, int *ndiv,
2188
logical *ieee, int *ttype, double *dmin1, double *dmin2,
2189
double *dn, double *dn1, double *dn2, double *tau);
2191
/* Subroutine */ int dlazq4_(int *i0, int *n0, double *z__,
2192
int *pp, int *n0in, double *dmin__, double *dmin1,
2193
double *dmin2, double *dn, double *dn1, double *dn2,
2194
double *tau, int *ttype, double *g);
2196
/* Subroutine */ int dopgtr_(char *uplo, int *n, double *ap,
2197
double *tau, double *q, int *ldq, double *work,
2200
/* Subroutine */ int dopmtr_(char *side, char *uplo, char *trans, int *m,
2201
int *n, double *ap, double *tau, double *c__, int
2202
*ldc, double *work, int *info);
2204
/* Subroutine */ int dorg2l_(int *m, int *n, int *k, double *
2205
a, int *lda, double *tau, double *work, int *info);
2207
/* Subroutine */ int dorg2r_(int *m, int *n, int *k, double *
2208
a, int *lda, double *tau, double *work, int *info);
2211
/* Subroutine */ int dorghr_(int *n, int *ilo, int *ihi,
2212
double *a, int *lda, double *tau, double *work,
2213
int *lwork, int *info);
2215
/* Subroutine */ int dorgl2_(int *m, int *n, int *k, double *
2216
a, int *lda, double *tau, double *work, int *info);
2218
/* Subroutine */ int dorglq_(int *m, int *n, int *k, double *
2219
a, int *lda, double *tau, double *work, int *lwork,
2222
/* Subroutine */ int dorgql_(int *m, int *n, int *k, double *
2223
a, int *lda, double *tau, double *work, int *lwork,
2226
/* Subroutine */ int dorgqr_(int *m, int *n, int *k, double *
2227
a, int *lda, double *tau, double *work, int *lwork,
2230
/* Subroutine */ int dorgr2_(int *m, int *n, int *k, double *
2231
a, int *lda, double *tau, double *work, int *info);
2233
/* Subroutine */ int dorgrq_(int *m, int *n, int *k, double *
2234
a, int *lda, double *tau, double *work, int *lwork,
2237
/* Subroutine */ int dorgtr_(char *uplo, int *n, double *a, int *
2238
lda, double *tau, double *work, int *lwork, int *info);
2240
/* Subroutine */ int dorm2l_(char *side, char *trans, int *m, int *n,
2241
int *k, double *a, int *lda, double *tau, double *
2242
c__, int *ldc, double *work, int *info);
2244
/* Subroutine */ int dorm2r_(char *side, char *trans, int *m, int *n,
2245
int *k, double *a, int *lda, double *tau, double *
2246
c__, int *ldc, double *work, int *info);
2249
/* Subroutine */ int dormhr_(char *side, char *trans, int *m, int *n,
2250
int *ilo, int *ihi, double *a, int *lda, double *
2251
tau, double *c__, int *ldc, double *work, int *lwork,
2254
/* Subroutine */ int dorml2_(char *side, char *trans, int *m, int *n,
2255
int *k, double *a, int *lda, double *tau, double *
2256
c__, int *ldc, double *work, int *info);
2258
/* Subroutine */ int dormlq_(char *side, char *trans, int *m, int *n,
2259
int *k, double *a, int *lda, double *tau, double *
2260
c__, int *ldc, double *work, int *lwork, int *info);
2262
/* Subroutine */ int dormql_(char *side, char *trans, int *m, int *n,
2263
int *k, double *a, int *lda, double *tau, double *
2264
c__, int *ldc, double *work, int *lwork, int *info);
2266
/* Subroutine */ int dormqr_(char *side, char *trans, int *m, int *n,
2267
int *k, double *a, int *lda, double *tau, double *
2268
c__, int *ldc, double *work, int *lwork, int *info);
2270
/* Subroutine */ int dormr2_(char *side, char *trans, int *m, int *n,
2271
int *k, double *a, int *lda, double *tau, double *
2272
c__, int *ldc, double *work, int *info);
2274
/* Subroutine */ int dormr3_(char *side, char *trans, int *m, int *n,
2275
int *k, int *l, double *a, int *lda, double *tau,
2276
double *c__, int *ldc, double *work, int *info);
2278
/* Subroutine */ int dormrq_(char *side, char *trans, int *m, int *n,
2279
int *k, double *a, int *lda, double *tau, double *
2280
c__, int *ldc, double *work, int *lwork, int *info);
2282
/* Subroutine */ int dormrz_(char *side, char *trans, int *m, int *n,
2283
int *k, int *l, double *a, int *lda, double *tau,
2284
double *c__, int *ldc, double *work, int *lwork,
2287
/* Subroutine */ int dormtr_(char *side, char *uplo, char *trans, int *m,
2288
int *n, double *a, int *lda, double *tau, double *
2289
c__, int *ldc, double *work, int *lwork, int *info);
2291
/* Subroutine */ int dpbcon_(char *uplo, int *n, int *kd, double *
2292
ab, int *ldab, double *anorm, double *rcond, double *
2293
work, int *iwork, int *info);
2295
/* Subroutine */ int dpbequ_(char *uplo, int *n, int *kd, double *
2296
ab, int *ldab, double *s, double *scond, double *amax,
2299
/* Subroutine */ int dpbrfs_(char *uplo, int *n, int *kd, int *
2300
nrhs, double *ab, int *ldab, double *afb, int *ldafb,
2301
double *b, int *ldb, double *x, int *ldx, double *
2302
ferr, double *berr, double *work, int *iwork, int *
2305
/* Subroutine */ int dpbstf_(char *uplo, int *n, int *kd, double *
2306
ab, int *ldab, int *info);
2308
/* Subroutine */ int dpbsv_(char *uplo, int *n, int *kd, int *
2309
nrhs, double *ab, int *ldab, double *b, int *ldb,
2312
/* Subroutine */ int dpbsvx_(char *fact, char *uplo, int *n, int *kd,
2313
int *nrhs, double *ab, int *ldab, double *afb,
2314
int *ldafb, char *equed, double *s, double *b, int *
2315
ldb, double *x, int *ldx, double *rcond, double *ferr,
2316
double *berr, double *work, int *iwork, int *info);
2318
/* Subroutine */ int dpbtf2_(char *uplo, int *n, int *kd, double *
2319
ab, int *ldab, int *info);
2321
/* Subroutine */ int dpbtrf_(char *uplo, int *n, int *kd, double *
2322
ab, int *ldab, int *info);
2324
/* Subroutine */ int dpbtrs_(char *uplo, int *n, int *kd, int *
2325
nrhs, double *ab, int *ldab, double *b, int *ldb,
2328
/* Subroutine */ int dpocon_(char *uplo, int *n, double *a, int *
2329
lda, double *anorm, double *rcond, double *work, int *
2332
/* Subroutine */ int dpoequ_(int *n, double *a, int *lda,
2333
double *s, double *scond, double *amax, int *info);
2335
/* Subroutine */ int dporfs_(char *uplo, int *n, int *nrhs,
2336
double *a, int *lda, double *af, int *ldaf,
2337
double *b, int *ldb, double *x, int *ldx, double *
2338
ferr, double *berr, double *work, int *iwork, int *
2341
/* Subroutine */ int dposv_(char *uplo, int *n, int *nrhs, double
2342
*a, int *lda, double *b, int *ldb, int *info);
2344
/* Subroutine */ int dposvx_(char *fact, char *uplo, int *n, int *
2345
nrhs, double *a, int *lda, double *af, int *ldaf,
2346
char *equed, double *s, double *b, int *ldb, double *
2347
x, int *ldx, double *rcond, double *ferr, double *
2348
berr, double *work, int *iwork, int *info);
2350
/* Subroutine */ int dpotf2_(char *uplo, int *n, double *a, int *
2353
/* Subroutine */ int dpotri_(char *uplo, int *n, double *a, int *
2356
/* Subroutine */ int dppcon_(char *uplo, int *n, double *ap,
2357
double *anorm, double *rcond, double *work, int *
2360
/* Subroutine */ int dppequ_(char *uplo, int *n, double *ap,
2361
double *s, double *scond, double *amax, int *info);
2363
/* Subroutine */ int dpprfs_(char *uplo, int *n, int *nrhs,
2364
double *ap, double *afp, double *b, int *ldb,
2365
double *x, int *ldx, double *ferr, double *berr,
2366
double *work, int *iwork, int *info);
2368
/* Subroutine */ int dppsv_(char *uplo, int *n, int *nrhs, double
2369
*ap, double *b, int *ldb, int *info);
2371
/* Subroutine */ int dppsvx_(char *fact, char *uplo, int *n, int *
2372
nrhs, double *ap, double *afp, char *equed, double *s,
2373
double *b, int *ldb, double *x, int *ldx, double *
2374
rcond, double *ferr, double *berr, double *work, int *
2377
/* Subroutine */ int dpptrf_(char *uplo, int *n, double *ap, int *
2380
/* Subroutine */ int dpptri_(char *uplo, int *n, double *ap, int *
2383
/* Subroutine */ int dpptrs_(char *uplo, int *n, int *nrhs,
2384
double *ap, double *b, int *ldb, int *info);
2386
/* Subroutine */ int dptcon_(int *n, double *d__, double *e,
2387
double *anorm, double *rcond, double *work, int *info);
2389
/* Subroutine */ int dpteqr_(char *compz, int *n, double *d__,
2390
double *e, double *z__, int *ldz, double *work,
2393
/* Subroutine */ int dptrfs_(int *n, int *nrhs, double *d__,
2394
double *e, double *df, double *ef, double *b, int
2395
*ldb, double *x, int *ldx, double *ferr, double *berr,
2396
double *work, int *info);
2398
/* Subroutine */ int dptsv_(int *n, int *nrhs, double *d__,
2399
double *e, double *b, int *ldb, int *info);
2401
/* Subroutine */ int dptsvx_(char *fact, int *n, int *nrhs,
2402
double *d__, double *e, double *df, double *ef,
2403
double *b, int *ldb, double *x, int *ldx, double *
2404
rcond, double *ferr, double *berr, double *work, int *
2407
/* Subroutine */ int dpttrf_(int *n, double *d__, double *e,
2410
/* Subroutine */ int dpttrs_(int *n, int *nrhs, double *d__,
2411
double *e, double *b, int *ldb, int *info);
2413
/* Subroutine */ int dptts2_(int *n, int *nrhs, double *d__,
2414
double *e, double *b, int *ldb);
2416
/* Subroutine */ int drscl_(int *n, double *sa, double *sx,
2419
/* Subroutine */ int dsbev_(char *jobz, char *uplo, int *n, int *kd,
2420
double *ab, int *ldab, double *w, double *z__,
2421
int *ldz, double *work, int *info);
2423
/* Subroutine */ int dsbevd_(char *jobz, char *uplo, int *n, int *kd,
2424
double *ab, int *ldab, double *w, double *z__,
2425
int *ldz, double *work, int *lwork, int *iwork,
2426
int *liwork, int *info);
2428
/* Subroutine */ int dsbevx_(char *jobz, char *range, char *uplo, int *n,
2429
int *kd, double *ab, int *ldab, double *q, int *
2430
ldq, double *vl, double *vu, int *il, int *iu,
2431
double *abstol, int *m, double *w, double *z__,
2432
int *ldz, double *work, int *iwork, int *ifail,
2435
/* Subroutine */ int dsbgst_(char *vect, char *uplo, int *n, int *ka,
2436
int *kb, double *ab, int *ldab, double *bb, int *
2437
ldbb, double *x, int *ldx, double *work, int *info);
2439
/* Subroutine */ int dsbgv_(char *jobz, char *uplo, int *n, int *ka,
2440
int *kb, double *ab, int *ldab, double *bb, int *
2441
ldbb, double *w, double *z__, int *ldz, double *work,
2444
/* Subroutine */ int dsbgvd_(char *jobz, char *uplo, int *n, int *ka,
2445
int *kb, double *ab, int *ldab, double *bb, int *
2446
ldbb, double *w, double *z__, int *ldz, double *work,
2447
int *lwork, int *iwork, int *liwork, int *info);
2449
/* Subroutine */ int dsbgvx_(char *jobz, char *range, char *uplo, int *n,
2450
int *ka, int *kb, double *ab, int *ldab, double *
2451
bb, int *ldbb, double *q, int *ldq, double *vl,
2452
double *vu, int *il, int *iu, double *abstol, int
2453
*m, double *w, double *z__, int *ldz, double *work,
2454
int *iwork, int *ifail, int *info);
2456
/* Subroutine */ int dsbtrd_(char *vect, char *uplo, int *n, int *kd,
2457
double *ab, int *ldab, double *d__, double *e,
2458
double *q, int *ldq, double *work, int *info);
2460
/* Subroutine */ int dsgesv_(int *n, int *nrhs, double *a,
2461
int *lda, int *ipiv, double *b, int *ldb, double *
2462
x, int *ldx, double *work, real *swork, int *iter,
2465
/* Subroutine */ int dspcon_(char *uplo, int *n, double *ap, int *
2466
ipiv, double *anorm, double *rcond, double *work, int
2469
/* Subroutine */ int dspev_(char *jobz, char *uplo, int *n, double *
2470
ap, double *w, double *z__, int *ldz, double *work,
2473
/* Subroutine */ int dspevd_(char *jobz, char *uplo, int *n, double *
2474
ap, double *w, double *z__, int *ldz, double *work,
2475
int *lwork, int *iwork, int *liwork, int *info);
2477
/* Subroutine */ int dspevx_(char *jobz, char *range, char *uplo, int *n,
2478
double *ap, double *vl, double *vu, int *il, int *
2479
iu, double *abstol, int *m, double *w, double *z__,
2480
int *ldz, double *work, int *iwork, int *ifail,
2483
/* Subroutine */ int dspgst_(int *itype, char *uplo, int *n,
2484
double *ap, double *bp, int *info);
2486
/* Subroutine */ int dspgv_(int *itype, char *jobz, char *uplo, int *
2487
n, double *ap, double *bp, double *w, double *z__,
2488
int *ldz, double *work, int *info);
2490
/* Subroutine */ int dspgvd_(int *itype, char *jobz, char *uplo, int *
2491
n, double *ap, double *bp, double *w, double *z__,
2492
int *ldz, double *work, int *lwork, int *iwork,
2493
int *liwork, int *info);
2495
/* Subroutine */ int dspgvx_(int *itype, char *jobz, char *range, char *
2496
uplo, int *n, double *ap, double *bp, double *vl,
2497
double *vu, int *il, int *iu, double *abstol, int
2498
*m, double *w, double *z__, int *ldz, double *work,
2499
int *iwork, int *ifail, int *info);
2501
/* Subroutine */ int dsprfs_(char *uplo, int *n, int *nrhs,
2502
double *ap, double *afp, int *ipiv, double *b,
2503
int *ldb, double *x, int *ldx, double *ferr,
2504
double *berr, double *work, int *iwork, int *info);
2506
/* Subroutine */ int dspsv_(char *uplo, int *n, int *nrhs, double
2507
*ap, int *ipiv, double *b, int *ldb, int *info);
2509
/* Subroutine */ int dspsvx_(char *fact, char *uplo, int *n, int *
2510
nrhs, double *ap, double *afp, int *ipiv, double *b,
2511
int *ldb, double *x, int *ldx, double *rcond,
2512
double *ferr, double *berr, double *work, int *iwork,
2515
/* Subroutine */ int dsptrd_(char *uplo, int *n, double *ap,
2516
double *d__, double *e, double *tau, int *info);
2518
/* Subroutine */ int dsptrf_(char *uplo, int *n, double *ap, int *
2521
/* Subroutine */ int dsptri_(char *uplo, int *n, double *ap, int *
2522
ipiv, double *work, int *info);
2524
/* Subroutine */ int dsptrs_(char *uplo, int *n, int *nrhs,
2525
double *ap, int *ipiv, double *b, int *ldb, int *
2528
/* Subroutine */ int dstebz_(char *range, char *order, int *n, double
2529
*vl, double *vu, int *il, int *iu, double *abstol,
2530
double *d__, double *e, int *m, int *nsplit,
2531
double *w, int *iblock, int *isplit, double *work,
2532
int *iwork, int *info);
2534
/* Subroutine */ int dstedc_(char *compz, int *n, double *d__,
2535
double *e, double *z__, int *ldz, double *work,
2536
int *lwork, int *iwork, int *liwork, int *info);
2538
/* Subroutine */ int dstegr_(char *jobz, char *range, int *n, double *
2539
d__, double *e, double *vl, double *vu, int *il,
2540
int *iu, double *abstol, int *m, double *w,
2541
double *z__, int *ldz, int *isuppz, double *work,
2542
int *lwork, int *iwork, int *liwork, int *info);
2544
/* Subroutine */ int dstein_(int *n, double *d__, double *e,
2545
int *m, double *w, int *iblock, int *isplit,
2546
double *z__, int *ldz, double *work, int *iwork,
2547
int *ifail, int *info);
2549
/* Subroutine */ int dstemr_(char *jobz, char *range, int *n, double *
2550
d__, double *e, double *vl, double *vu, int *il,
2551
int *iu, int *m, double *w, double *z__, int *ldz,
2552
int *nzc, int *isuppz, logical *tryrac, double *work,
2553
int *lwork, int *iwork, int *liwork, int *info);
2556
/* Subroutine */ int dsterf_(int *n, double *d__, double *e,
2559
/* Subroutine */ int dstev_(char *jobz, int *n, double *d__,
2560
double *e, double *z__, int *ldz, double *work,
2563
/* Subroutine */ int dstevd_(char *jobz, int *n, double *d__,
2564
double *e, double *z__, int *ldz, double *work,
2565
int *lwork, int *iwork, int *liwork, int *info);
2567
/* Subroutine */ int dstevr_(char *jobz, char *range, int *n, double *
2568
d__, double *e, double *vl, double *vu, int *il,
2569
int *iu, double *abstol, int *m, double *w,
2570
double *z__, int *ldz, int *isuppz, double *work,
2571
int *lwork, int *iwork, int *liwork, int *info);
2573
/* Subroutine */ int dstevx_(char *jobz, char *range, int *n, double *
2574
d__, double *e, double *vl, double *vu, int *il,
2575
int *iu, double *abstol, int *m, double *w,
2576
double *z__, int *ldz, double *work, int *iwork,
2577
int *ifail, int *info);
2579
/* Subroutine */ int dsycon_(char *uplo, int *n, double *a, int *
2580
lda, int *ipiv, double *anorm, double *rcond, double *
2581
work, int *iwork, int *info);
2583
/* Subroutine */ int dsyev_(char *jobz, char *uplo, int *n, double *a,
2584
int *lda, double *w, double *work, int *lwork,
2587
/* Subroutine */ int dsyevd_(char *jobz, char *uplo, int *n, double *
2588
a, int *lda, double *w, double *work, int *lwork,
2589
int *iwork, int *liwork, int *info);
2591
/* Subroutine */ int dsyevr_(char *jobz, char *range, char *uplo, int *n,
2592
double *a, int *lda, double *vl, double *vu, int *
2593
il, int *iu, double *abstol, int *m, double *w,
2594
double *z__, int *ldz, int *isuppz, double *work,
2595
int *lwork, int *iwork, int *liwork, int *info);
2597
/* Subroutine */ int dsyevx_(char *jobz, char *range, char *uplo, int *n,
2598
double *a, int *lda, double *vl, double *vu, int *
2599
il, int *iu, double *abstol, int *m, double *w,
2600
double *z__, int *ldz, double *work, int *lwork,
2601
int *iwork, int *ifail, int *info);
2603
/* Subroutine */ int dsygs2_(int *itype, char *uplo, int *n,
2604
double *a, int *lda, double *b, int *ldb, int *
2607
/* Subroutine */ int dsygst_(int *itype, char *uplo, int *n,
2608
double *a, int *lda, double *b, int *ldb, int *
2611
/* Subroutine */ int dsygv_(int *itype, char *jobz, char *uplo, int *
2612
n, double *a, int *lda, double *b, int *ldb,
2613
double *w, double *work, int *lwork, int *info);
2615
/* Subroutine */ int dsygvd_(int *itype, char *jobz, char *uplo, int *
2616
n, double *a, int *lda, double *b, int *ldb,
2617
double *w, double *work, int *lwork, int *iwork,
2618
int *liwork, int *info);
2620
/* Subroutine */ int dsygvx_(int *itype, char *jobz, char *range, char *
2621
uplo, int *n, double *a, int *lda, double *b, int
2622
*ldb, double *vl, double *vu, int *il, int *iu,
2623
double *abstol, int *m, double *w, double *z__,
2624
int *ldz, double *work, int *lwork, int *iwork,
2625
int *ifail, int *info);
2627
/* Subroutine */ int dsyrfs_(char *uplo, int *n, int *nrhs,
2628
double *a, int *lda, double *af, int *ldaf, int *
2629
ipiv, double *b, int *ldb, double *x, int *ldx,
2630
double *ferr, double *berr, double *work, int *iwork,
2633
/* Subroutine */ int dsysv_(char *uplo, int *n, int *nrhs, double
2634
*a, int *lda, int *ipiv, double *b, int *ldb,
2635
double *work, int *lwork, int *info);
2637
/* Subroutine */ int dsysvx_(char *fact, char *uplo, int *n, int *
2638
nrhs, double *a, int *lda, double *af, int *ldaf,
2639
int *ipiv, double *b, int *ldb, double *x, int *
2640
ldx, double *rcond, double *ferr, double *berr,
2641
double *work, int *lwork, int *iwork, int *info);
2643
/* Subroutine */ int dsytd2_(char *uplo, int *n, double *a, int *
2644
lda, double *d__, double *e, double *tau, int *info);
2646
/* Subroutine */ int dsytf2_(char *uplo, int *n, double *a, int *
2647
lda, int *ipiv, int *info);
2649
/* Subroutine */ int dsytrd_(char *uplo, int *n, double *a, int *
2650
lda, double *d__, double *e, double *tau, double *
2651
work, int *lwork, int *info);
2653
/* Subroutine */ int dsytrf_(char *uplo, int *n, double *a, int *
2654
lda, int *ipiv, double *work, int *lwork, int *info);
2656
/* Subroutine */ int dsytri_(char *uplo, int *n, double *a, int *
2657
lda, int *ipiv, double *work, int *info);
2659
/* Subroutine */ int dsytrs_(char *uplo, int *n, int *nrhs,
2660
double *a, int *lda, int *ipiv, double *b, int *
2663
/* Subroutine */ int dtbcon_(char *norm, char *uplo, char *diag, int *n,
2664
int *kd, double *ab, int *ldab, double *rcond,
2665
double *work, int *iwork, int *info);
2667
/* Subroutine */ int dtbrfs_(char *uplo, char *trans, char *diag, int *n,
2668
int *kd, int *nrhs, double *ab, int *ldab, double
2669
*b, int *ldb, double *x, int *ldx, double *ferr,
2670
double *berr, double *work, int *iwork, int *info);
2672
/* Subroutine */ int dtbtrs_(char *uplo, char *trans, char *diag, int *n,
2673
int *kd, int *nrhs, double *ab, int *ldab, double
2674
*b, int *ldb, int *info);
2676
/* Subroutine */ int dtgevc_(char *side, char *howmny, logical *select,
2677
int *n, double *s, int *lds, double *p, int *ldp,
2678
double *vl, int *ldvl, double *vr, int *ldvr, int
2679
*mm, int *m, double *work, int *info);
2681
/* Subroutine */ int dtgex2_(logical *wantq, logical *wantz, int *n,
2682
double *a, int *lda, double *b, int *ldb, double *
2683
q, int *ldq, double *z__, int *ldz, int *j1, int *
2684
n1, int *n2, double *work, int *lwork, int *info);
2686
/* Subroutine */ int dtgexc_(logical *wantq, logical *wantz, int *n,
2687
double *a, int *lda, double *b, int *ldb, double *
2688
q, int *ldq, double *z__, int *ldz, int *ifst,
2689
int *ilst, double *work, int *lwork, int *info);
2691
/* Subroutine */ int dtgsen_(int *ijob, logical *wantq, logical *wantz,
2692
logical *select, int *n, double *a, int *lda, double *
2693
b, int *ldb, double *alphar, double *alphai, double *
2694
beta, double *q, int *ldq, double *z__, int *ldz,
2695
int *m, double *pl, double *pr, double *dif,
2696
double *work, int *lwork, int *iwork, int *liwork,
2699
/* Subroutine */ int dtgsja_(char *jobu, char *jobv, char *jobq, int *m,
2700
int *p, int *n, int *k, int *l, double *a,
2701
int *lda, double *b, int *ldb, double *tola,
2702
double *tolb, double *alpha, double *beta, double *u,
2703
int *ldu, double *v, int *ldv, double *q, int *
2704
ldq, double *work, int *ncycle, int *info);
2706
/* Subroutine */ int dtgsna_(char *job, char *howmny, logical *select,
2707
int *n, double *a, int *lda, double *b, int *ldb,
2708
double *vl, int *ldvl, double *vr, int *ldvr,
2709
double *s, double *dif, int *mm, int *m, double *
2710
work, int *lwork, int *iwork, int *info);
2712
/* Subroutine */ int dtgsy2_(char *trans, int *ijob, int *m, int *
2713
n, double *a, int *lda, double *b, int *ldb,
2714
double *c__, int *ldc, double *d__, int *ldd,
2715
double *e, int *lde, double *f, int *ldf, double *
2716
scale, double *rdsum, double *rdscal, int *iwork, int
2719
/* Subroutine */ int dtgsyl_(char *trans, int *ijob, int *m, int *
2720
n, double *a, int *lda, double *b, int *ldb,
2721
double *c__, int *ldc, double *d__, int *ldd,
2722
double *e, int *lde, double *f, int *ldf, double *
2723
scale, double *dif, double *work, int *lwork, int *
2726
/* Subroutine */ int dtpcon_(char *norm, char *uplo, char *diag, int *n,
2727
double *ap, double *rcond, double *work, int *iwork,
2730
/* Subroutine */ int dtprfs_(char *uplo, char *trans, char *diag, int *n,
2731
int *nrhs, double *ap, double *b, int *ldb,
2732
double *x, int *ldx, double *ferr, double *berr,
2733
double *work, int *iwork, int *info);
2735
/* Subroutine */ int dtptri_(char *uplo, char *diag, int *n, double *
2738
/* Subroutine */ int dtptrs_(char *uplo, char *trans, char *diag, int *n,
2739
int *nrhs, double *ap, double *b, int *ldb, int *
2742
/* Subroutine */ int dtrcon_(char *norm, char *uplo, char *diag, int *n,
2743
double *a, int *lda, double *rcond, double *work,
2744
int *iwork, int *info);
2746
/* Subroutine */ int dtrevc_(char *side, char *howmny, logical *select,
2747
int *n, double *t, int *ldt, double *vl, int *
2748
ldvl, double *vr, int *ldvr, int *mm, int *m,
2749
double *work, int *info);
2751
/* Subroutine */ int dtrexc_(char *compq, int *n, double *t, int *
2752
ldt, double *q, int *ldq, int *ifst, int *ilst,
2753
double *work, int *info);
2755
/* Subroutine */ int dtrrfs_(char *uplo, char *trans, char *diag, int *n,
2756
int *nrhs, double *a, int *lda, double *b, int *
2757
ldb, double *x, int *ldx, double *ferr, double *berr,
2758
double *work, int *iwork, int *info);
2760
/* Subroutine */ int dtrsen_(char *job, char *compq, logical *select, int
2761
*n, double *t, int *ldt, double *q, int *ldq,
2762
double *wr, double *wi, int *m, double *s, double
2763
*sep, double *work, int *lwork, int *iwork, int *
2766
/* Subroutine */ int dtrsna_(char *job, char *howmny, logical *select,
2767
int *n, double *t, int *ldt, double *vl, int *
2768
ldvl, double *vr, int *ldvr, double *s, double *sep,
2769
int *mm, int *m, double *work, int *ldwork, int *
2772
/* Subroutine */ int dtrsyl_(char *trana, char *tranb, int *isgn, int
2773
*m, int *n, double *a, int *lda, double *b, int *
2774
ldb, double *c__, int *ldc, double *scale, int *info);
2776
/* Subroutine */ int dtrti2_(char *uplo, char *diag, int *n, double *
2777
a, int *lda, int *info);
2779
/* Subroutine */ int dtrtri_(char *uplo, char *diag, int *n, double *
2780
a, int *lda, int *info);
2782
/* Subroutine */ int dtrtrs_(char *uplo, char *trans, char *diag, int *n,
2783
int *nrhs, double *a, int *lda, double *b, int *
2786
/* Subroutine */ int dtzrqf_(int *m, int *n, double *a, int *
2787
lda, double *tau, int *info);
2789
/* Subroutine */ int dtzrzf_(int *m, int *n, double *a, int *
2790
lda, double *tau, double *work, int *lwork, int *info);
2792
/* Subroutine */ int ilaver_(int *vers_major__, int *vers_minor__,
2795
/* Subroutine */ int dgesv_(int *n, int *nrhs, double *a, int
2796
*lda, int *ipiv, double *b, int *ldb, int *info);
2798
/* Subroutine */ int sbdsdc_(char *uplo, char *compq, int *n, real *d__,
2799
real *e, real *u, int *ldu, real *vt, int *ldvt, real *q,
2800
int *iq, real *work, int *iwork, int *info);
2802
/* Subroutine */ int sbdsqr_(char *uplo, int *n, int *ncvt, int *
2803
nru, int *ncc, real *d__, real *e, real *vt, int *ldvt, real *
2804
u, int *ldu, real *c__, int *ldc, real *work, int *info);
2806
/* Subroutine */ int sdisna_(char *job, int *m, int *n, real *d__,
2807
real *sep, int *info);
2809
/* Subroutine */ int sgbbrd_(char *vect, int *m, int *n, int *ncc,
2810
int *kl, int *ku, real *ab, int *ldab, real *d__, real *
2811
e, real *q, int *ldq, real *pt, int *ldpt, real *c__, int
2812
*ldc, real *work, int *info);
2814
/* Subroutine */ int sgbcon_(char *norm, int *n, int *kl, int *ku,
2815
real *ab, int *ldab, int *ipiv, real *anorm, real *rcond,
2816
real *work, int *iwork, int *info);
2818
/* Subroutine */ int sgbequ_(int *m, int *n, int *kl, int *ku,
2819
real *ab, int *ldab, real *r__, real *c__, real *rowcnd, real *
2820
colcnd, real *amax, int *info);
2822
/* Subroutine */ int sgbrfs_(char *trans, int *n, int *kl, int *
2823
ku, int *nrhs, real *ab, int *ldab, real *afb, int *ldafb,
2824
int *ipiv, real *b, int *ldb, real *x, int *ldx, real *
2825
ferr, real *berr, real *work, int *iwork, int *info);
2827
/* Subroutine */ int sgbsv_(int *n, int *kl, int *ku, int *
2828
nrhs, real *ab, int *ldab, int *ipiv, real *b, int *ldb,
2831
/* Subroutine */ int sgbsvx_(char *fact, char *trans, int *n, int *kl,
2832
int *ku, int *nrhs, real *ab, int *ldab, real *afb,
2833
int *ldafb, int *ipiv, char *equed, real *r__, real *c__,
2834
real *b, int *ldb, real *x, int *ldx, real *rcond, real *ferr,
2835
real *berr, real *work, int *iwork, int *info);
2837
/* Subroutine */ int sgbtf2_(int *m, int *n, int *kl, int *ku,
2838
real *ab, int *ldab, int *ipiv, int *info);
2840
/* Subroutine */ int sgbtrf_(int *m, int *n, int *kl, int *ku,
2841
real *ab, int *ldab, int *ipiv, int *info);
2843
/* Subroutine */ int sgbtrs_(char *trans, int *n, int *kl, int *
2844
ku, int *nrhs, real *ab, int *ldab, int *ipiv, real *b,
2845
int *ldb, int *info);
2847
/* Subroutine */ int sgebak_(char *job, char *side, int *n, int *ilo,
2848
int *ihi, real *scale, int *m, real *v, int *ldv, int
2851
/* Subroutine */ int sgebal_(char *job, int *n, real *a, int *lda,
2852
int *ilo, int *ihi, real *scale, int *info);
2854
/* Subroutine */ int sgebd2_(int *m, int *n, real *a, int *lda,
2855
real *d__, real *e, real *tauq, real *taup, real *work, int *info);
2857
/* Subroutine */ int sgebrd_(int *m, int *n, real *a, int *lda,
2858
real *d__, real *e, real *tauq, real *taup, real *work, int *
2861
/* Subroutine */ int sgecon_(char *norm, int *n, real *a, int *lda,
2862
real *anorm, real *rcond, real *work, int *iwork, int *info);
2864
/* Subroutine */ int sgeequ_(int *m, int *n, real *a, int *lda,
2865
real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, int
2868
/* Subroutine */ int sgees_(char *jobvs, char *sort, L_fp select, int *n,
2869
real *a, int *lda, int *sdim, real *wr, real *wi, real *vs,
2870
int *ldvs, real *work, int *lwork, logical *bwork, int *
2873
/* Subroutine */ int sgeesx_(char *jobvs, char *sort, L_fp select, char *
2874
sense, int *n, real *a, int *lda, int *sdim, real *wr,
2875
real *wi, real *vs, int *ldvs, real *rconde, real *rcondv, real *
2876
work, int *lwork, int *iwork, int *liwork, logical *bwork,
2879
/* Subroutine */ int sgeev_(char *jobvl, char *jobvr, int *n, real *a,
2880
int *lda, real *wr, real *wi, real *vl, int *ldvl, real *vr,
2881
int *ldvr, real *work, int *lwork, int *info);
2883
/* Subroutine */ int sgeevx_(char *balanc, char *jobvl, char *jobvr, char *
2884
sense, int *n, real *a, int *lda, real *wr, real *wi, real *
2885
vl, int *ldvl, real *vr, int *ldvr, int *ilo, int *
2886
ihi, real *scale, real *abnrm, real *rconde, real *rcondv, real *work,
2887
int *lwork, int *iwork, int *info);
2889
/* Subroutine */ int sgegs_(char *jobvsl, char *jobvsr, int *n, real *a,
2890
int *lda, real *b, int *ldb, real *alphar, real *alphai, real
2891
*beta, real *vsl, int *ldvsl, real *vsr, int *ldvsr, real *
2892
work, int *lwork, int *info);
2894
/* Subroutine */ int sgegv_(char *jobvl, char *jobvr, int *n, real *a,
2895
int *lda, real *b, int *ldb, real *alphar, real *alphai, real
2896
*beta, real *vl, int *ldvl, real *vr, int *ldvr, real *work,
2897
int *lwork, int *info);
2899
/* Subroutine */ int sgehd2_(int *n, int *ilo, int *ihi, real *a,
2900
int *lda, real *tau, real *work, int *info);
2902
/* Subroutine */ int sgehrd_(int *n, int *ilo, int *ihi, real *a,
2903
int *lda, real *tau, real *work, int *lwork, int *info);
2905
/* Subroutine */ int sgelq2_(int *m, int *n, real *a, int *lda,
2906
real *tau, real *work, int *info);
2908
/* Subroutine */ int sgelqf_(int *m, int *n, real *a, int *lda,
2909
real *tau, real *work, int *lwork, int *info);
2911
/* Subroutine */ int sgels_(char *trans, int *m, int *n, int *
2912
nrhs, real *a, int *lda, real *b, int *ldb, real *work,
2913
int *lwork, int *info);
2915
/* Subroutine */ int sgelsd_(int *m, int *n, int *nrhs, real *a,
2916
int *lda, real *b, int *ldb, real *s, real *rcond, int *
2917
rank, real *work, int *lwork, int *iwork, int *info);
2919
/* Subroutine */ int sgelss_(int *m, int *n, int *nrhs, real *a,
2920
int *lda, real *b, int *ldb, real *s, real *rcond, int *
2921
rank, real *work, int *lwork, int *info);
2923
/* Subroutine */ int sgelsx_(int *m, int *n, int *nrhs, real *a,
2924
int *lda, real *b, int *ldb, int *jpvt, real *rcond,
2925
int *rank, real *work, int *info);
2927
/* Subroutine */ int sgelsy_(int *m, int *n, int *nrhs, real *a,
2928
int *lda, real *b, int *ldb, int *jpvt, real *rcond,
2929
int *rank, real *work, int *lwork, int *info);
2931
/* Subroutine */ int sgeql2_(int *m, int *n, real *a, int *lda,
2932
real *tau, real *work, int *info);
2934
/* Subroutine */ int sgeqlf_(int *m, int *n, real *a, int *lda,
2935
real *tau, real *work, int *lwork, int *info);
2937
/* Subroutine */ int sgeqp3_(int *m, int *n, real *a, int *lda,
2938
int *jpvt, real *tau, real *work, int *lwork, int *info);
2940
/* Subroutine */ int sgeqpf_(int *m, int *n, real *a, int *lda,
2941
int *jpvt, real *tau, real *work, int *info);
2943
/* Subroutine */ int sgeqr2_(int *m, int *n, real *a, int *lda,
2944
real *tau, real *work, int *info);
2946
/* Subroutine */ int sgeqrf_(int *m, int *n, real *a, int *lda,
2947
real *tau, real *work, int *lwork, int *info);
2949
/* Subroutine */ int sgerfs_(char *trans, int *n, int *nrhs, real *a,
2950
int *lda, real *af, int *ldaf, int *ipiv, real *b,
2951
int *ldb, real *x, int *ldx, real *ferr, real *berr, real *
2952
work, int *iwork, int *info);
2954
/* Subroutine */ int sgerq2_(int *m, int *n, real *a, int *lda,
2955
real *tau, real *work, int *info);
2957
/* Subroutine */ int sgerqf_(int *m, int *n, real *a, int *lda,
2958
real *tau, real *work, int *lwork, int *info);
2960
/* Subroutine */ int sgesc2_(int *n, real *a, int *lda, real *rhs,
2961
int *ipiv, int *jpiv, real *scale);
2963
/* Subroutine */ int sgesdd_(char *jobz, int *m, int *n, real *a,
2964
int *lda, real *s, real *u, int *ldu, real *vt, int *ldvt,
2965
real *work, int *lwork, int *iwork, int *info);
2967
/* Subroutine */ int sgesv_(int *n, int *nrhs, real *a, int *lda,
2968
int *ipiv, real *b, int *ldb, int *info);
2970
/* Subroutine */ int sgesvd_(char *jobu, char *jobvt, int *m, int *n,
2971
real *a, int *lda, real *s, real *u, int *ldu, real *vt,
2972
int *ldvt, real *work, int *lwork, int *info);
2974
/* Subroutine */ int sgesvx_(char *fact, char *trans, int *n, int *
2975
nrhs, real *a, int *lda, real *af, int *ldaf, int *ipiv,
2976
char *equed, real *r__, real *c__, real *b, int *ldb, real *x,
2977
int *ldx, real *rcond, real *ferr, real *berr, real *work,
2978
int *iwork, int *info);
2980
/* Subroutine */ int sgetc2_(int *n, real *a, int *lda, int *ipiv,
2981
int *jpiv, int *info);
2983
/* Subroutine */ int sgetf2_(int *m, int *n, real *a, int *lda,
2984
int *ipiv, int *info);
2986
/* Subroutine */ int sgetrf_(int *m, int *n, real *a, int *lda,
2987
int *ipiv, int *info);
2989
/* Subroutine */ int sgetri_(int *n, real *a, int *lda, int *ipiv,
2990
real *work, int *lwork, int *info);
2992
/* Subroutine */ int sgetrs_(char *trans, int *n, int *nrhs, real *a,
2993
int *lda, int *ipiv, real *b, int *ldb, int *info);
2995
/* Subroutine */ int sggbak_(char *job, char *side, int *n, int *ilo,
2996
int *ihi, real *lscale, real *rscale, int *m, real *v,
2997
int *ldv, int *info);
2999
/* Subroutine */ int sggbal_(char *job, int *n, real *a, int *lda,
3000
real *b, int *ldb, int *ilo, int *ihi, real *lscale, real
3001
*rscale, real *work, int *info);
3003
/* Subroutine */ int sgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
3004
selctg, int *n, real *a, int *lda, real *b, int *ldb,
3005
int *sdim, real *alphar, real *alphai, real *beta, real *vsl,
3006
int *ldvsl, real *vsr, int *ldvsr, real *work, int *lwork,
3007
logical *bwork, int *info);
3009
/* Subroutine */ int sggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
3010
selctg, char *sense, int *n, real *a, int *lda, real *b,
3011
int *ldb, int *sdim, real *alphar, real *alphai, real *beta,
3012
real *vsl, int *ldvsl, real *vsr, int *ldvsr, real *rconde,
3013
real *rcondv, real *work, int *lwork, int *iwork, int *
3014
liwork, logical *bwork, int *info);
3016
/* Subroutine */ int sggev_(char *jobvl, char *jobvr, int *n, real *a,
3017
int *lda, real *b, int *ldb, real *alphar, real *alphai, real
3018
*beta, real *vl, int *ldvl, real *vr, int *ldvr, real *work,
3019
int *lwork, int *info);
3021
/* Subroutine */ int sggevx_(char *balanc, char *jobvl, char *jobvr, char *
3022
sense, int *n, real *a, int *lda, real *b, int *ldb, real
3023
*alphar, real *alphai, real *beta, real *vl, int *ldvl, real *vr,
3024
int *ldvr, int *ilo, int *ihi, real *lscale, real *rscale,
3025
real *abnrm, real *bbnrm, real *rconde, real *rcondv, real *work,
3026
int *lwork, int *iwork, logical *bwork, int *info);
3028
/* Subroutine */ int sggglm_(int *n, int *m, int *p, real *a,
3029
int *lda, real *b, int *ldb, real *d__, real *x, real *y,
3030
real *work, int *lwork, int *info);
3032
/* Subroutine */ int sgghrd_(char *compq, char *compz, int *n, int *
3033
ilo, int *ihi, real *a, int *lda, real *b, int *ldb, real
3034
*q, int *ldq, real *z__, int *ldz, int *info);
3036
/* Subroutine */ int sgglse_(int *m, int *n, int *p, real *a,
3037
int *lda, real *b, int *ldb, real *c__, real *d__, real *x,
3038
real *work, int *lwork, int *info);
3040
/* Subroutine */ int sggqrf_(int *n, int *m, int *p, real *a,
3041
int *lda, real *taua, real *b, int *ldb, real *taub, real *
3042
work, int *lwork, int *info);
3044
/* Subroutine */ int sggrqf_(int *m, int *p, int *n, real *a,
3045
int *lda, real *taua, real *b, int *ldb, real *taub, real *
3046
work, int *lwork, int *info);
3048
/* Subroutine */ int sggsvd_(char *jobu, char *jobv, char *jobq, int *m,
3049
int *n, int *p, int *k, int *l, real *a, int *lda,
3050
real *b, int *ldb, real *alpha, real *beta, real *u, int *
3051
ldu, real *v, int *ldv, real *q, int *ldq, real *work,
3052
int *iwork, int *info);
3054
/* Subroutine */ int sggsvp_(char *jobu, char *jobv, char *jobq, int *m,
3055
int *p, int *n, real *a, int *lda, real *b, int *ldb,
3056
real *tola, real *tolb, int *k, int *l, real *u, int *ldu,
3057
real *v, int *ldv, real *q, int *ldq, int *iwork, real *
3058
tau, real *work, int *info);
3060
/* Subroutine */ int sgtcon_(char *norm, int *n, real *dl, real *d__,
3061
real *du, real *du2, int *ipiv, real *anorm, real *rcond, real *
3062
work, int *iwork, int *info);
3064
/* Subroutine */ int sgtrfs_(char *trans, int *n, int *nrhs, real *dl,
3065
real *d__, real *du, real *dlf, real *df, real *duf, real *du2,
3066
int *ipiv, real *b, int *ldb, real *x, int *ldx, real *
3067
ferr, real *berr, real *work, int *iwork, int *info);
3069
/* Subroutine */ int sgtsv_(int *n, int *nrhs, real *dl, real *d__,
3070
real *du, real *b, int *ldb, int *info);
3072
/* Subroutine */ int sgtsvx_(char *fact, char *trans, int *n, int *
3073
nrhs, real *dl, real *d__, real *du, real *dlf, real *df, real *duf,
3074
real *du2, int *ipiv, real *b, int *ldb, real *x, int *
3075
ldx, real *rcond, real *ferr, real *berr, real *work, int *iwork,
3078
/* Subroutine */ int sgttrf_(int *n, real *dl, real *d__, real *du, real *
3079
du2, int *ipiv, int *info);
3081
/* Subroutine */ int sgttrs_(char *trans, int *n, int *nrhs, real *dl,
3082
real *d__, real *du, real *du2, int *ipiv, real *b, int *ldb,
3085
/* Subroutine */ int sgtts2_(int *itrans, int *n, int *nrhs, real
3086
*dl, real *d__, real *du, real *du2, int *ipiv, real *b, int *
3089
/* Subroutine */ int shgeqz_(char *job, char *compq, char *compz, int *n,
3090
int *ilo, int *ihi, real *h__, int *ldh, real *t, int
3091
*ldt, real *alphar, real *alphai, real *beta, real *q, int *ldq,
3092
real *z__, int *ldz, real *work, int *lwork, int *info);
3094
/* Subroutine */ int shsein_(char *side, char *eigsrc, char *initv, logical *
3095
select, int *n, real *h__, int *ldh, real *wr, real *wi, real
3096
*vl, int *ldvl, real *vr, int *ldvr, int *mm, int *m,
3097
real *work, int *ifaill, int *ifailr, int *info);
3099
/* Subroutine */ int shseqr_(char *job, char *compz, int *n, int *ilo,
3100
int *ihi, real *h__, int *ldh, real *wr, real *wi, real *z__,
3101
int *ldz, real *work, int *lwork, int *info);
3103
/* Subroutine */ int slabad_(real *small, real *large);
3105
/* Subroutine */ int slabrd_(int *m, int *n, int *nb, real *a,
3106
int *lda, real *d__, real *e, real *tauq, real *taup, real *x,
3107
int *ldx, real *y, int *ldy);
3109
/* Subroutine */ int slacn2_(int *n, real *v, real *x, int *isgn,
3110
real *est, int *kase, int *isave);
3112
/* Subroutine */ int slacon_(int *n, real *v, real *x, int *isgn,
3113
real *est, int *kase);
3115
/* Subroutine */ int slacpy_(char *uplo, int *m, int *n, real *a,
3116
int *lda, real *b, int *ldb);
3118
/* Subroutine */ int sladiv_(real *a, real *b, real *c__, real *d__, real *p,
3121
/* Subroutine */ int slae2_(real *a, real *b, real *c__, real *rt1, real *rt2);
3123
/* Subroutine */ int slaebz_(int *ijob, int *nitmax, int *n,
3124
int *mmax, int *minp, int *nbmin, real *abstol, real *
3125
reltol, real *pivmin, real *d__, real *e, real *e2, int *nval,
3126
real *ab, real *c__, int *mout, int *nab, real *work, int
3129
/* Subroutine */ int slaed0_(int *icompq, int *qsiz, int *n, real
3130
*d__, real *e, real *q, int *ldq, real *qstore, int *ldqs,
3131
real *work, int *iwork, int *info);
3133
/* Subroutine */ int slaed1_(int *n, real *d__, real *q, int *ldq,
3134
int *indxq, real *rho, int *cutpnt, real *work, int *
3137
/* Subroutine */ int slaed2_(int *k, int *n, int *n1, real *d__,
3138
real *q, int *ldq, int *indxq, real *rho, real *z__, real *
3139
dlamda, real *w, real *q2, int *indx, int *indxc, int *
3140
indxp, int *coltyp, int *info);
3142
/* Subroutine */ int slaed3_(int *k, int *n, int *n1, real *d__,
3143
real *q, int *ldq, real *rho, real *dlamda, real *q2, int *
3144
indx, int *ctot, real *w, real *s, int *info);
3146
/* Subroutine */ int slaed4_(int *n, int *i__, real *d__, real *z__,
3147
real *delta, real *rho, real *dlam, int *info);
3149
/* Subroutine */ int slaed5_(int *i__, real *d__, real *z__, real *delta,
3150
real *rho, real *dlam);
3152
/* Subroutine */ int slaed6_(int *kniter, logical *orgati, real *rho,
3153
real *d__, real *z__, real *finit, real *tau, int *info);
3155
/* Subroutine */ int slaed7_(int *icompq, int *n, int *qsiz,
3156
int *tlvls, int *curlvl, int *curpbm, real *d__, real *q,
3157
int *ldq, int *indxq, real *rho, int *cutpnt, real *
3158
qstore, int *qptr, int *prmptr, int *perm, int *
3159
givptr, int *givcol, real *givnum, real *work, int *iwork,
3162
/* Subroutine */ int slaed8_(int *icompq, int *k, int *n, int
3163
*qsiz, real *d__, real *q, int *ldq, int *indxq, real *rho,
3164
int *cutpnt, real *z__, real *dlamda, real *q2, int *ldq2,
3165
real *w, int *perm, int *givptr, int *givcol, real *
3166
givnum, int *indxp, int *indx, int *info);
3168
/* Subroutine */ int slaed9_(int *k, int *kstart, int *kstop,
3169
int *n, real *d__, real *q, int *ldq, real *rho, real *dlamda,
3170
real *w, real *s, int *lds, int *info);
3172
/* Subroutine */ int slaeda_(int *n, int *tlvls, int *curlvl,
3173
int *curpbm, int *prmptr, int *perm, int *givptr,
3174
int *givcol, real *givnum, real *q, int *qptr, real *z__,
3175
real *ztemp, int *info);
3177
/* Subroutine */ int slaein_(logical *rightv, logical *noinit, int *n,
3178
real *h__, int *ldh, real *wr, real *wi, real *vr, real *vi, real
3179
*b, int *ldb, real *work, real *eps3, real *smlnum, real *bignum,
3182
/* Subroutine */ int slaev2_(real *a, real *b, real *c__, real *rt1, real *
3183
rt2, real *cs1, real *sn1);
3185
/* Subroutine */ int slaexc_(logical *wantq, int *n, real *t, int *
3186
ldt, real *q, int *ldq, int *j1, int *n1, int *n2,
3187
real *work, int *info);
3189
/* Subroutine */ int slag2_(real *a, int *lda, real *b, int *ldb,
3190
real *safmin, real *scale1, real *scale2, real *wr1, real *wr2, real *
3193
/* Subroutine */ int slag2d_(int *m, int *n, real *sa, int *ldsa,
3194
double *a, int *lda, int *info);
3196
/* Subroutine */ int slags2_(logical *upper, real *a1, real *a2, real *a3,
3197
real *b1, real *b2, real *b3, real *csu, real *snu, real *csv, real *
3198
snv, real *csq, real *snq);
3200
/* Subroutine */ int slagtf_(int *n, real *a, real *lambda, real *b, real
3201
*c__, real *tol, real *d__, int *in, int *info);
3203
/* Subroutine */ int slagtm_(char *trans, int *n, int *nrhs, real *
3204
alpha, real *dl, real *d__, real *du, real *x, int *ldx, real *
3205
beta, real *b, int *ldb);
3207
/* Subroutine */ int slagts_(int *job, int *n, real *a, real *b, real
3208
*c__, real *d__, int *in, real *y, real *tol, int *info);
3210
/* Subroutine */ int slagv2_(real *a, int *lda, real *b, int *ldb,
3211
real *alphar, real *alphai, real *beta, real *csl, real *snl, real *
3214
/* Subroutine */ int slahqr_(logical *wantt, logical *wantz, int *n,
3215
int *ilo, int *ihi, real *h__, int *ldh, real *wr, real *
3216
wi, int *iloz, int *ihiz, real *z__, int *ldz, int *
3219
/* Subroutine */ int slahr2_(int *n, int *k, int *nb, real *a,
3220
int *lda, real *tau, real *t, int *ldt, real *y, int *ldy);
3222
/* Subroutine */ int slahrd_(int *n, int *k, int *nb, real *a,
3223
int *lda, real *tau, real *t, int *ldt, real *y, int *ldy);
3225
/* Subroutine */ int slaic1_(int *job, int *j, real *x, real *sest,
3226
real *w, real *gamma, real *sestpr, real *s, real *c__);
3228
/* Subroutine */ int slaln2_(logical *ltrans, int *na, int *nw, real *
3229
smin, real *ca, real *a, int *lda, real *d1, real *d2, real *b,
3230
int *ldb, real *wr, real *wi, real *x, int *ldx, real *scale,
3231
real *xnorm, int *info);
3233
/* Subroutine */ int slals0_(int *icompq, int *nl, int *nr,
3234
int *sqre, int *nrhs, real *b, int *ldb, real *bx,
3235
int *ldbx, int *perm, int *givptr, int *givcol,
3236
int *ldgcol, real *givnum, int *ldgnum, real *poles, real *
3237
difl, real *difr, real *z__, int *k, real *c__, real *s, real *
3240
/* Subroutine */ int slalsa_(int *icompq, int *smlsiz, int *n,
3241
int *nrhs, real *b, int *ldb, real *bx, int *ldbx, real *
3242
u, int *ldu, real *vt, int *k, real *difl, real *difr, real *
3243
z__, real *poles, int *givptr, int *givcol, int *ldgcol,
3244
int *perm, real *givnum, real *c__, real *s, real *work, int *
3247
/* Subroutine */ int slalsd_(char *uplo, int *smlsiz, int *n, int
3248
*nrhs, real *d__, real *e, real *b, int *ldb, real *rcond,
3249
int *rank, real *work, int *iwork, int *info);
3251
/* Subroutine */ int slamrg_(int *n1, int *n2, real *a, int *
3252
strd1, int *strd2, int *index);
3254
/* Subroutine */ int slanv2_(real *a, real *b, real *c__, real *d__, real *
3255
rt1r, real *rt1i, real *rt2r, real *rt2i, real *cs, real *sn);
3257
/* Subroutine */ int slapll_(int *n, real *x, int *incx, real *y,
3258
int *incy, real *ssmin);
3260
/* Subroutine */ int slapmt_(logical *forwrd, int *m, int *n, real *x,
3263
/* Subroutine */ int slaqgb_(int *m, int *n, int *kl, int *ku,
3264
real *ab, int *ldab, real *r__, real *c__, real *rowcnd, real *
3265
colcnd, real *amax, char *equed);
3267
/* Subroutine */ int slaqge_(int *m, int *n, real *a, int *lda,
3268
real *r__, real *c__, real *rowcnd, real *colcnd, real *amax, char *
3271
/* Subroutine */ int slaqp2_(int *m, int *n, int *offset, real *a,
3272
int *lda, int *jpvt, real *tau, real *vn1, real *vn2, real *
3275
/* Subroutine */ int slaqps_(int *m, int *n, int *offset, int
3276
*nb, int *kb, real *a, int *lda, int *jpvt, real *tau,
3277
real *vn1, real *vn2, real *auxv, real *f, int *ldf);
3279
/* Subroutine */ int slaqr0_(logical *wantt, logical *wantz, int *n,
3280
int *ilo, int *ihi, real *h__, int *ldh, real *wr, real *
3281
wi, int *iloz, int *ihiz, real *z__, int *ldz, real *work,
3282
int *lwork, int *info);
3284
/* Subroutine */ int slaqr1_(int *n, real *h__, int *ldh, real *sr1,
3285
real *si1, real *sr2, real *si2, real *v);
3287
/* Subroutine */ int slaqr2_(logical *wantt, logical *wantz, int *n,
3288
int *ktop, int *kbot, int *nw, real *h__, int *ldh,
3289
int *iloz, int *ihiz, real *z__, int *ldz, int *ns,
3290
int *nd, real *sr, real *si, real *v, int *ldv, int *nh,
3291
real *t, int *ldt, int *nv, real *wv, int *ldwv, real *
3294
/* Subroutine */ int slaqr3_(logical *wantt, logical *wantz, int *n,
3295
int *ktop, int *kbot, int *nw, real *h__, int *ldh,
3296
int *iloz, int *ihiz, real *z__, int *ldz, int *ns,
3297
int *nd, real *sr, real *si, real *v, int *ldv, int *nh,
3298
real *t, int *ldt, int *nv, real *wv, int *ldwv, real *
3301
/* Subroutine */ int slaqr4_(logical *wantt, logical *wantz, int *n,
3302
int *ilo, int *ihi, real *h__, int *ldh, real *wr, real *
3303
wi, int *iloz, int *ihiz, real *z__, int *ldz, real *work,
3304
int *lwork, int *info);
3306
/* Subroutine */ int slaqr5_(logical *wantt, logical *wantz, int *kacc22,
3307
int *n, int *ktop, int *kbot, int *nshfts, real *sr,
3308
real *si, real *h__, int *ldh, int *iloz, int *ihiz, real
3309
*z__, int *ldz, real *v, int *ldv, real *u, int *ldu,
3310
int *nv, real *wv, int *ldwv, int *nh, real *wh, int *
3313
/* Subroutine */ int slaqsb_(char *uplo, int *n, int *kd, real *ab,
3314
int *ldab, real *s, real *scond, real *amax, char *equed );
3316
/* Subroutine */ int slaqsp_(char *uplo, int *n, real *ap, real *s, real *
3317
scond, real *amax, char *equed);
3319
/* Subroutine */ int slaqsy_(char *uplo, int *n, real *a, int *lda,
3320
real *s, real *scond, real *amax, char *equed);
3322
/* Subroutine */ int slaqtr_(logical *ltran, logical *lreal, int *n, real
3323
*t, int *ldt, real *b, real *w, real *scale, real *x, real *work,
3326
/* Subroutine */ int slar1v_(int *n, int *b1, int *bn, real *
3327
lambda, real *d__, real *l, real *ld, real *lld, real *pivmin, real *
3328
gaptol, real *z__, logical *wantnc, int *negcnt, real *ztz, real *
3329
mingma, int *r__, int *isuppz, real *nrminv, real *resid,
3330
real *rqcorr, real *work);
3332
/* Subroutine */ int slar2v_(int *n, real *x, real *y, real *z__, int
3333
*incx, real *c__, real *s, int *incc);
3335
/* Subroutine */ int slarf_(char *side, int *m, int *n, real *v,
3336
int *incv, real *tau, real *c__, int *ldc, real *work );
3338
/* Subroutine */ int slarfb_(char *side, char *trans, char *direct, char *
3339
storev, int *m, int *n, int *k, real *v, int *ldv,
3340
real *t, int *ldt, real *c__, int *ldc, real *work, int *
3343
/* Subroutine */ int slarfg_(int *n, real *alpha, real *x, int *incx,
3346
/* Subroutine */ int slarft_(char *direct, char *storev, int *n, int *
3347
k, real *v, int *ldv, real *tau, real *t, int *ldt );
3349
/* Subroutine */ int slarfx_(char *side, int *m, int *n, real *v,
3350
real *tau, real *c__, int *ldc, real *work);
3352
/* Subroutine */ int slargv_(int *n, real *x, int *incx, real *y,
3353
int *incy, real *c__, int *incc);
3355
/* Subroutine */ int slarnv_(int *idist, int *iseed, int *n, real
3358
/* Subroutine */ int slarra_(int *n, real *d__, real *e, real *e2, real *
3359
spltol, real *tnrm, int *nsplit, int *isplit, int *info);
3361
/* Subroutine */ int slarrb_(int *n, real *d__, real *lld, int *
3362
ifirst, int *ilast, real *rtol1, real *rtol2, int *offset,
3363
real *w, real *wgap, real *werr, real *work, int *iwork, real *
3364
pivmin, real *spdiam, int *twist, int *info);
3366
/* Subroutine */ int slarrc_(char *jobt, int *n, real *vl, real *vu, real
3367
*d__, real *e, real *pivmin, int *eigcnt, int *lcnt, int *
3370
/* Subroutine */ int slarrd_(char *range, char *order, int *n, real *vl,
3371
real *vu, int *il, int *iu, real *gers, real *reltol, real *
3372
d__, real *e, real *e2, real *pivmin, int *nsplit, int *
3373
isplit, int *m, real *w, real *werr, real *wl, real *wu, int *
3374
iblock, int *indexw, real *work, int *iwork, int *info);
3376
/* Subroutine */ int slarre_(char *range, int *n, real *vl, real *vu,
3377
int *il, int *iu, real *d__, real *e, real *e2, real *rtol1,
3378
real *rtol2, real *spltol, int *nsplit, int *isplit, int *
3379
m, real *w, real *werr, real *wgap, int *iblock, int *indexw,
3380
real *gers, real *pivmin, real *work, int *iwork, int *info);
3382
/* Subroutine */ int slarrf_(int *n, real *d__, real *l, real *ld,
3383
int *clstrt, int *clend, real *w, real *wgap, real *werr,
3384
real *spdiam, real *clgapl, real *clgapr, real *pivmin, real *sigma,
3385
real *dplus, real *lplus, real *work, int *info);
3387
/* Subroutine */ int slarrj_(int *n, real *d__, real *e2, int *ifirst,
3388
int *ilast, real *rtol, int *offset, real *w, real *werr,
3389
real *work, int *iwork, real *pivmin, real *spdiam, int *info);
3391
/* Subroutine */ int slarrk_(int *n, int *iw, real *gl, real *gu,
3392
real *d__, real *e2, real *pivmin, real *reltol, real *w, real *werr,
3395
/* Subroutine */ int slarrr_(int *n, real *d__, real *e, int *info);
3397
/* Subroutine */ int slarrv_(int *n, real *vl, real *vu, real *d__, real *
3398
l, real *pivmin, int *isplit, int *m, int *dol, int *
3399
dou, real *minrgp, real *rtol1, real *rtol2, real *w, real *werr,
3400
real *wgap, int *iblock, int *indexw, real *gers, real *z__,
3401
int *ldz, int *isuppz, real *work, int *iwork, int *
3404
/* Subroutine */ int slartg_(real *f, real *g, real *cs, real *sn, real *r__);
3406
/* Subroutine */ int slartv_(int *n, real *x, int *incx, real *y,
3407
int *incy, real *c__, real *s, int *incc);
3409
/* Subroutine */ int slaruv_(int *iseed, int *n, real *x);
3411
/* Subroutine */ int slarz_(char *side, int *m, int *n, int *l,
3412
real *v, int *incv, real *tau, real *c__, int *ldc, real *
3415
/* Subroutine */ int slarzb_(char *side, char *trans, char *direct, char *
3416
storev, int *m, int *n, int *k, int *l, real *v,
3417
int *ldv, real *t, int *ldt, real *c__, int *ldc, real *
3418
work, int *ldwork );
3420
/* Subroutine */ int slarzt_(char *direct, char *storev, int *n, int *
3421
k, real *v, int *ldv, real *tau, real *t, int *ldt );
3423
/* Subroutine */ int slas2_(real *f, real *g, real *h__, real *ssmin, real *
3426
/* Subroutine */ int slascl_(char *type__, int *kl, int *ku, real *
3427
cfrom, real *cto, int *m, int *n, real *a, int *lda,
3430
/* Subroutine */ int slasd0_(int *n, int *sqre, real *d__, real *e,
3431
real *u, int *ldu, real *vt, int *ldvt, int *smlsiz,
3432
int *iwork, real *work, int *info);
3434
/* Subroutine */ int slasd1_(int *nl, int *nr, int *sqre, real *
3435
d__, real *alpha, real *beta, real *u, int *ldu, real *vt,
3436
int *ldvt, int *idxq, int *iwork, real *work, int *
3439
/* Subroutine */ int slasd2_(int *nl, int *nr, int *sqre, int
3440
*k, real *d__, real *z__, real *alpha, real *beta, real *u, int *
3441
ldu, real *vt, int *ldvt, real *dsigma, real *u2, int *ldu2,
3442
real *vt2, int *ldvt2, int *idxp, int *idx, int *idxc,
3443
int *idxq, int *coltyp, int *info);
3445
/* Subroutine */ int slasd3_(int *nl, int *nr, int *sqre, int
3446
*k, real *d__, real *q, int *ldq, real *dsigma, real *u, int *
3447
ldu, real *u2, int *ldu2, real *vt, int *ldvt, real *vt2,
3448
int *ldvt2, int *idxc, int *ctot, real *z__, int *
3451
/* Subroutine */ int slasd4_(int *n, int *i__, real *d__, real *z__,
3452
real *delta, real *rho, real *sigma, real *work, int *info);
3454
/* Subroutine */ int slasd5_(int *i__, real *d__, real *z__, real *delta,
3455
real *rho, real *dsigma, real *work);
3457
/* Subroutine */ int slasd6_(int *icompq, int *nl, int *nr,
3458
int *sqre, real *d__, real *vf, real *vl, real *alpha, real *beta,
3459
int *idxq, int *perm, int *givptr, int *givcol,
3460
int *ldgcol, real *givnum, int *ldgnum, real *poles, real *
3461
difl, real *difr, real *z__, int *k, real *c__, real *s, real *
3462
work, int *iwork, int *info);
3464
/* Subroutine */ int slasd7_(int *icompq, int *nl, int *nr,
3465
int *sqre, int *k, real *d__, real *z__, real *zw, real *vf,
3466
real *vfw, real *vl, real *vlw, real *alpha, real *beta, real *dsigma,
3467
int *idx, int *idxp, int *idxq, int *perm, int *
3468
givptr, int *givcol, int *ldgcol, real *givnum, int *
3469
ldgnum, real *c__, real *s, int *info);
3471
/* Subroutine */ int slasd8_(int *icompq, int *k, real *d__, real *
3472
z__, real *vf, real *vl, real *difl, real *difr, int *lddifr,
3473
real *dsigma, real *work, int *info);
3475
/* Subroutine */ int slasd9_(int *icompq, int *ldu, int *k, real *
3476
d__, real *z__, real *vf, real *vl, real *difl, real *difr, real *
3477
dsigma, real *work, int *info);
3479
/* Subroutine */ int slasda_(int *icompq, int *smlsiz, int *n,
3480
int *sqre, real *d__, real *e, real *u, int *ldu, real *vt,
3481
int *k, real *difl, real *difr, real *z__, real *poles, int *
3482
givptr, int *givcol, int *ldgcol, int *perm, real *givnum,
3483
real *c__, real *s, real *work, int *iwork, int *info);
3485
/* Subroutine */ int slasdq_(char *uplo, int *sqre, int *n, int *
3486
ncvt, int *nru, int *ncc, real *d__, real *e, real *vt,
3487
int *ldvt, real *u, int *ldu, real *c__, int *ldc, real *
3490
/* Subroutine */ int slasdt_(int *n, int *lvl, int *nd, int *
3491
inode, int *ndiml, int *ndimr, int *msub);
3493
/* Subroutine */ int slaset_(char *uplo, int *m, int *n, real *alpha,
3494
real *beta, real *a, int *lda);
3496
/* Subroutine */ int slasq1_(int *n, real *d__, real *e, real *work,
3499
/* Subroutine */ int slasq2_(int *n, real *z__, int *info);
3501
/* Subroutine */ int slasq3_(int *i0, int *n0, real *z__, int *pp,
3502
real *dmin__, real *sigma, real *desig, real *qmax, int *nfail,
3503
int *iter, int *ndiv, logical *ieee);
3505
/* Subroutine */ int slasq4_(int *i0, int *n0, real *z__, int *pp,
3506
int *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn,
3507
real *dn1, real *dn2, real *tau, int *ttype);
3509
/* Subroutine */ int slasq5_(int *i0, int *n0, real *z__, int *pp,
3510
real *tau, real *dmin__, real *dmin1, real *dmin2, real *dn, real *
3511
dnm1, real *dnm2, logical *ieee);
3513
/* Subroutine */ int slasq6_(int *i0, int *n0, real *z__, int *pp,
3514
real *dmin__, real *dmin1, real *dmin2, real *dn, real *dnm1, real *
3517
/* Subroutine */ int slasr_(char *side, char *pivot, char *direct, int *m,
3518
int *n, real *c__, real *s, real *a, int *lda );
3520
/* Subroutine */ int slasrt_(char *id, int *n, real *d__, int *info);
3522
/* Subroutine */ int slassq_(int *n, real *x, int *incx, real *scale,
3525
/* Subroutine */ int slasv2_(real *f, real *g, real *h__, real *ssmin, real *
3526
ssmax, real *snr, real *csr, real *snl, real *csl);
3528
/* Subroutine */ int slaswp_(int *n, real *a, int *lda, int *k1,
3529
int *k2, int *ipiv, int *incx);
3531
/* Subroutine */ int slasy2_(logical *ltranl, logical *ltranr, int *isgn,
3532
int *n1, int *n2, real *tl, int *ldtl, real *tr, int *
3533
ldtr, real *b, int *ldb, real *scale, real *x, int *ldx, real
3536
/* Subroutine */ int slasyf_(char *uplo, int *n, int *nb, int *kb,
3537
real *a, int *lda, int *ipiv, real *w, int *ldw, int
3540
/* Subroutine */ int slatbs_(char *uplo, char *trans, char *diag, char *
3541
normin, int *n, int *kd, real *ab, int *ldab, real *x,
3542
real *scale, real *cnorm, int *info);
3544
/* Subroutine */ int slatdf_(int *ijob, int *n, real *z__, int *
3545
ldz, real *rhs, real *rdsum, real *rdscal, int *ipiv, int *
3548
/* Subroutine */ int slatps_(char *uplo, char *trans, char *diag, char *
3549
normin, int *n, real *ap, real *x, real *scale, real *cnorm,
3552
/* Subroutine */ int slatrd_(char *uplo, int *n, int *nb, real *a,
3553
int *lda, real *e, real *tau, real *w, int *ldw );
3555
/* Subroutine */ int slatrs_(char *uplo, char *trans, char *diag, char *
3556
normin, int *n, real *a, int *lda, real *x, real *scale, real
3559
/* Subroutine */ int slatrz_(int *m, int *n, int *l, real *a,
3560
int *lda, real *tau, real *work);
3562
/* Subroutine */ int slatzm_(char *side, int *m, int *n, real *v,
3563
int *incv, real *tau, real *c1, real *c2, int *ldc, real *
3566
/* Subroutine */ int slauu2_(char *uplo, int *n, real *a, int *lda,
3569
/* Subroutine */ int slauum_(char *uplo, int *n, real *a, int *lda,
3572
/* Subroutine */ int slazq3_(int *i0, int *n0, real *z__, int *pp,
3573
real *dmin__, real *sigma, real *desig, real *qmax, int *nfail,
3574
int *iter, int *ndiv, logical *ieee, int *ttype, real *
3575
dmin1, real *dmin2, real *dn, real *dn1, real *dn2, real *tau);
3577
/* Subroutine */ int slazq4_(int *i0, int *n0, real *z__, int *pp,
3578
int *n0in, real *dmin__, real *dmin1, real *dmin2, real *dn,
3579
real *dn1, real *dn2, real *tau, int *ttype, real *g);
3581
/* Subroutine */ int sopgtr_(char *uplo, int *n, real *ap, real *tau,
3582
real *q, int *ldq, real *work, int *info);
3584
/* Subroutine */ int sopmtr_(char *side, char *uplo, char *trans, int *m,
3585
int *n, real *ap, real *tau, real *c__, int *ldc, real *work,
3588
/* Subroutine */ int sorg2l_(int *m, int *n, int *k, real *a,
3589
int *lda, real *tau, real *work, int *info);
3591
/* Subroutine */ int sorg2r_(int *m, int *n, int *k, real *a,
3592
int *lda, real *tau, real *work, int *info);
3594
/* Subroutine */ int sorgbr_(char *vect, int *m, int *n, int *k,
3595
real *a, int *lda, real *tau, real *work, int *lwork, int
3598
/* Subroutine */ int sorghr_(int *n, int *ilo, int *ihi, real *a,
3599
int *lda, real *tau, real *work, int *lwork, int *info);
3601
/* Subroutine */ int sorgl2_(int *m, int *n, int *k, real *a,
3602
int *lda, real *tau, real *work, int *info);
3604
/* Subroutine */ int sorglq_(int *m, int *n, int *k, real *a,
3605
int *lda, real *tau, real *work, int *lwork, int *info);
3607
/* Subroutine */ int sorgql_(int *m, int *n, int *k, real *a,
3608
int *lda, real *tau, real *work, int *lwork, int *info);
3610
/* Subroutine */ int sorgqr_(int *m, int *n, int *k, real *a,
3611
int *lda, real *tau, real *work, int *lwork, int *info);
3613
/* Subroutine */ int sorgr2_(int *m, int *n, int *k, real *a,
3614
int *lda, real *tau, real *work, int *info);
3616
/* Subroutine */ int sorgrq_(int *m, int *n, int *k, real *a,
3617
int *lda, real *tau, real *work, int *lwork, int *info);
3619
/* Subroutine */ int sorgtr_(char *uplo, int *n, real *a, int *lda,
3620
real *tau, real *work, int *lwork, int *info);
3622
/* Subroutine */ int sorm2l_(char *side, char *trans, int *m, int *n,
3623
int *k, real *a, int *lda, real *tau, real *c__, int *ldc,
3624
real *work, int *info);
3626
/* Subroutine */ int sorm2r_(char *side, char *trans, int *m, int *n,
3627
int *k, real *a, int *lda, real *tau, real *c__, int *ldc,
3628
real *work, int *info);
3630
/* Subroutine */ int sormbr_(char *vect, char *side, char *trans, int *m,
3631
int *n, int *k, real *a, int *lda, real *tau, real *c__,
3632
int *ldc, real *work, int *lwork, int *info);
3634
/* Subroutine */ int sormhr_(char *side, char *trans, int *m, int *n,
3635
int *ilo, int *ihi, real *a, int *lda, real *tau, real *
3636
c__, int *ldc, real *work, int *lwork, int *info);
3638
/* Subroutine */ int sorml2_(char *side, char *trans, int *m, int *n,
3639
int *k, real *a, int *lda, real *tau, real *c__, int *ldc,
3640
real *work, int *info);
3642
/* Subroutine */ int sormlq_(char *side, char *trans, int *m, int *n,
3643
int *k, real *a, int *lda, real *tau, real *c__, int *ldc,
3644
real *work, int *lwork, int *info);
3646
/* Subroutine */ int sormql_(char *side, char *trans, int *m, int *n,
3647
int *k, real *a, int *lda, real *tau, real *c__, int *ldc,
3648
real *work, int *lwork, int *info);
3650
/* Subroutine */ int sormqr_(char *side, char *trans, int *m, int *n,
3651
int *k, real *a, int *lda, real *tau, real *c__, int *ldc,
3652
real *work, int *lwork, int *info);
3654
/* Subroutine */ int sormr2_(char *side, char *trans, int *m, int *n,
3655
int *k, real *a, int *lda, real *tau, real *c__, int *ldc,
3656
real *work, int *info);
3658
/* Subroutine */ int sormr3_(char *side, char *trans, int *m, int *n,
3659
int *k, int *l, real *a, int *lda, real *tau, real *c__,
3660
int *ldc, real *work, int *info);
3662
/* Subroutine */ int sormrq_(char *side, char *trans, int *m, int *n,
3663
int *k, real *a, int *lda, real *tau, real *c__, int *ldc,
3664
real *work, int *lwork, int *info);
3666
/* Subroutine */ int sormrz_(char *side, char *trans, int *m, int *n,
3667
int *k, int *l, real *a, int *lda, real *tau, real *c__,
3668
int *ldc, real *work, int *lwork, int *info);
3670
/* Subroutine */ int sormtr_(char *side, char *uplo, char *trans, int *m,
3671
int *n, real *a, int *lda, real *tau, real *c__, int *ldc,
3672
real *work, int *lwork, int *info);
3674
/* Subroutine */ int spbcon_(char *uplo, int *n, int *kd, real *ab,
3675
int *ldab, real *anorm, real *rcond, real *work, int *iwork,
3678
/* Subroutine */ int spbequ_(char *uplo, int *n, int *kd, real *ab,
3679
int *ldab, real *s, real *scond, real *amax, int *info);
3681
/* Subroutine */ int spbrfs_(char *uplo, int *n, int *kd, int *
3682
nrhs, real *ab, int *ldab, real *afb, int *ldafb, real *b,
3683
int *ldb, real *x, int *ldx, real *ferr, real *berr, real *
3684
work, int *iwork, int *info);
3686
/* Subroutine */ int spbstf_(char *uplo, int *n, int *kd, real *ab,
3687
int *ldab, int *info);
3689
/* Subroutine */ int spbsv_(char *uplo, int *n, int *kd, int *
3690
nrhs, real *ab, int *ldab, real *b, int *ldb, int *info);
3692
/* Subroutine */ int spbsvx_(char *fact, char *uplo, int *n, int *kd,
3693
int *nrhs, real *ab, int *ldab, real *afb, int *ldafb,
3694
char *equed, real *s, real *b, int *ldb, real *x, int *ldx,
3695
real *rcond, real *ferr, real *berr, real *work, int *iwork,
3698
/* Subroutine */ int spbtf2_(char *uplo, int *n, int *kd, real *ab,
3699
int *ldab, int *info);
3701
/* Subroutine */ int spbtrf_(char *uplo, int *n, int *kd, real *ab,
3702
int *ldab, int *info);
3704
/* Subroutine */ int spbtrs_(char *uplo, int *n, int *kd, int *
3705
nrhs, real *ab, int *ldab, real *b, int *ldb, int *info);
3707
/* Subroutine */ int spocon_(char *uplo, int *n, real *a, int *lda,
3708
real *anorm, real *rcond, real *work, int *iwork, int *info);
3710
/* Subroutine */ int spoequ_(int *n, real *a, int *lda, real *s, real
3711
*scond, real *amax, int *info);
3713
/* Subroutine */ int sporfs_(char *uplo, int *n, int *nrhs, real *a,
3714
int *lda, real *af, int *ldaf, real *b, int *ldb, real *x,
3715
int *ldx, real *ferr, real *berr, real *work, int *iwork,
3718
/* Subroutine */ int sposv_(char *uplo, int *n, int *nrhs, real *a,
3719
int *lda, real *b, int *ldb, int *info);
3721
/* Subroutine */ int sposvx_(char *fact, char *uplo, int *n, int *
3722
nrhs, real *a, int *lda, real *af, int *ldaf, char *equed,
3723
real *s, real *b, int *ldb, real *x, int *ldx, real *rcond,
3724
real *ferr, real *berr, real *work, int *iwork, int *info);
3726
/* Subroutine */ int spotf2_(char *uplo, int *n, real *a, int *lda,
3729
/* Subroutine */ int spotrf_(char *uplo, int *n, real *a, int *lda,
3732
/* Subroutine */ int spotri_(char *uplo, int *n, real *a, int *lda,
3735
/* Subroutine */ int spotrs_(char *uplo, int *n, int *nrhs, real *a,
3736
int *lda, real *b, int *ldb, int *info);
3738
/* Subroutine */ int sppcon_(char *uplo, int *n, real *ap, real *anorm,
3739
real *rcond, real *work, int *iwork, int *info);
3741
/* Subroutine */ int sppequ_(char *uplo, int *n, real *ap, real *s, real *
3742
scond, real *amax, int *info);
3744
/* Subroutine */ int spprfs_(char *uplo, int *n, int *nrhs, real *ap,
3745
real *afp, real *b, int *ldb, real *x, int *ldx, real *ferr,
3746
real *berr, real *work, int *iwork, int *info);
3748
/* Subroutine */ int sppsv_(char *uplo, int *n, int *nrhs, real *ap,
3749
real *b, int *ldb, int *info);
3751
/* Subroutine */ int sppsvx_(char *fact, char *uplo, int *n, int *
3752
nrhs, real *ap, real *afp, char *equed, real *s, real *b, int *
3753
ldb, real *x, int *ldx, real *rcond, real *ferr, real *berr, real
3754
*work, int *iwork, int *info);
3756
/* Subroutine */ int spptrf_(char *uplo, int *n, real *ap, int *info);
3758
/* Subroutine */ int spptri_(char *uplo, int *n, real *ap, int *info);
3760
/* Subroutine */ int spptrs_(char *uplo, int *n, int *nrhs, real *ap,
3761
real *b, int *ldb, int *info);
3763
/* Subroutine */ int sptcon_(int *n, real *d__, real *e, real *anorm,
3764
real *rcond, real *work, int *info);
3766
/* Subroutine */ int spteqr_(char *compz, int *n, real *d__, real *e,
3767
real *z__, int *ldz, real *work, int *info);
3769
/* Subroutine */ int sptrfs_(int *n, int *nrhs, real *d__, real *e,
3770
real *df, real *ef, real *b, int *ldb, real *x, int *ldx,
3771
real *ferr, real *berr, real *work, int *info);
3773
/* Subroutine */ int sptsv_(int *n, int *nrhs, real *d__, real *e,
3774
real *b, int *ldb, int *info);
3776
/* Subroutine */ int sptsvx_(char *fact, int *n, int *nrhs, real *d__,
3777
real *e, real *df, real *ef, real *b, int *ldb, real *x, int
3778
*ldx, real *rcond, real *ferr, real *berr, real *work, int *info);
3780
/* Subroutine */ int spttrf_(int *n, real *d__, real *e, int *info);
3782
/* Subroutine */ int spttrs_(int *n, int *nrhs, real *d__, real *e,
3783
real *b, int *ldb, int *info);
3785
/* Subroutine */ int sptts2_(int *n, int *nrhs, real *d__, real *e,
3788
/* Subroutine */ int srscl_(int *n, real *sa, real *sx, int *incx);
3790
/* Subroutine */ int ssbev_(char *jobz, char *uplo, int *n, int *kd,
3791
real *ab, int *ldab, real *w, real *z__, int *ldz, real *work,
3794
/* Subroutine */ int ssbevd_(char *jobz, char *uplo, int *n, int *kd,
3795
real *ab, int *ldab, real *w, real *z__, int *ldz, real *work,
3796
int *lwork, int *iwork, int *liwork, int *info);
3798
/* Subroutine */ int ssbevx_(char *jobz, char *range, char *uplo, int *n,
3799
int *kd, real *ab, int *ldab, real *q, int *ldq, real *vl,
3800
real *vu, int *il, int *iu, real *abstol, int *m, real *
3801
w, real *z__, int *ldz, real *work, int *iwork, int *
3804
/* Subroutine */ int ssbgst_(char *vect, char *uplo, int *n, int *ka,
3805
int *kb, real *ab, int *ldab, real *bb, int *ldbb, real *
3806
x, int *ldx, real *work, int *info);
3808
/* Subroutine */ int ssbgv_(char *jobz, char *uplo, int *n, int *ka,
3809
int *kb, real *ab, int *ldab, real *bb, int *ldbb, real *
3810
w, real *z__, int *ldz, real *work, int *info);
3812
/* Subroutine */ int ssbgvd_(char *jobz, char *uplo, int *n, int *ka,
3813
int *kb, real *ab, int *ldab, real *bb, int *ldbb, real *
3814
w, real *z__, int *ldz, real *work, int *lwork, int *
3815
iwork, int *liwork, int *info);
3817
/* Subroutine */ int ssbgvx_(char *jobz, char *range, char *uplo, int *n,
3818
int *ka, int *kb, real *ab, int *ldab, real *bb, int *
3819
ldbb, real *q, int *ldq, real *vl, real *vu, int *il, int
3820
*iu, real *abstol, int *m, real *w, real *z__, int *ldz, real
3821
*work, int *iwork, int *ifail, int *info);
3823
/* Subroutine */ int ssbtrd_(char *vect, char *uplo, int *n, int *kd,
3824
real *ab, int *ldab, real *d__, real *e, real *q, int *ldq,
3825
real *work, int *info);
3827
/* Subroutine */ int sspcon_(char *uplo, int *n, real *ap, int *ipiv,
3828
real *anorm, real *rcond, real *work, int *iwork, int *info);
3830
/* Subroutine */ int sspev_(char *jobz, char *uplo, int *n, real *ap,
3831
real *w, real *z__, int *ldz, real *work, int *info);
3833
/* Subroutine */ int sspevd_(char *jobz, char *uplo, int *n, real *ap,
3834
real *w, real *z__, int *ldz, real *work, int *lwork, int
3835
*iwork, int *liwork, int *info);
3837
/* Subroutine */ int sspevx_(char *jobz, char *range, char *uplo, int *n,
3838
real *ap, real *vl, real *vu, int *il, int *iu, real *abstol,
3839
int *m, real *w, real *z__, int *ldz, real *work, int *
3840
iwork, int *ifail, int *info);
3842
/* Subroutine */ int sspgst_(int *itype, char *uplo, int *n, real *ap,
3843
real *bp, int *info);
3845
/* Subroutine */ int sspgv_(int *itype, char *jobz, char *uplo, int *
3846
n, real *ap, real *bp, real *w, real *z__, int *ldz, real *work,
3849
/* Subroutine */ int sspgvd_(int *itype, char *jobz, char *uplo, int *
3850
n, real *ap, real *bp, real *w, real *z__, int *ldz, real *work,
3851
int *lwork, int *iwork, int *liwork, int *info);
3853
/* Subroutine */ int sspgvx_(int *itype, char *jobz, char *range, char *
3854
uplo, int *n, real *ap, real *bp, real *vl, real *vu, int *il,
3855
int *iu, real *abstol, int *m, real *w, real *z__, int *
3856
ldz, real *work, int *iwork, int *ifail, int *info);
3858
/* Subroutine */ int ssprfs_(char *uplo, int *n, int *nrhs, real *ap,
3859
real *afp, int *ipiv, real *b, int *ldb, real *x, int *
3860
ldx, real *ferr, real *berr, real *work, int *iwork, int *
3863
/* Subroutine */ int sspsv_(char *uplo, int *n, int *nrhs, real *ap,
3864
int *ipiv, real *b, int *ldb, int *info);
3866
/* Subroutine */ int sspsvx_(char *fact, char *uplo, int *n, int *
3867
nrhs, real *ap, real *afp, int *ipiv, real *b, int *ldb, real
3868
*x, int *ldx, real *rcond, real *ferr, real *berr, real *work,
3869
int *iwork, int *info);
3871
/* Subroutine */ int ssptrd_(char *uplo, int *n, real *ap, real *d__,
3872
real *e, real *tau, int *info);
3874
/* Subroutine */ int ssptrf_(char *uplo, int *n, real *ap, int *ipiv,
3877
/* Subroutine */ int ssptri_(char *uplo, int *n, real *ap, int *ipiv,
3878
real *work, int *info);
3880
/* Subroutine */ int ssptrs_(char *uplo, int *n, int *nrhs, real *ap,
3881
int *ipiv, real *b, int *ldb, int *info);
3883
/* Subroutine */ int sstebz_(char *range, char *order, int *n, real *vl,
3884
real *vu, int *il, int *iu, real *abstol, real *d__, real *e,
3885
int *m, int *nsplit, real *w, int *iblock, int *
3886
isplit, real *work, int *iwork, int *info);
3888
/* Subroutine */ int sstedc_(char *compz, int *n, real *d__, real *e,
3889
real *z__, int *ldz, real *work, int *lwork, int *iwork,
3890
int *liwork, int *info);
3892
/* Subroutine */ int sstegr_(char *jobz, char *range, int *n, real *d__,
3893
real *e, real *vl, real *vu, int *il, int *iu, real *abstol,
3894
int *m, real *w, real *z__, int *ldz, int *isuppz, real *
3895
work, int *lwork, int *iwork, int *liwork, int *info);
3897
/* Subroutine */ int sstein_(int *n, real *d__, real *e, int *m, real
3898
*w, int *iblock, int *isplit, real *z__, int *ldz, real *
3899
work, int *iwork, int *ifail, int *info);
3901
/* Subroutine */ int sstemr_(char *jobz, char *range, int *n, real *d__,
3902
real *e, real *vl, real *vu, int *il, int *iu, int *m,
3903
real *w, real *z__, int *ldz, int *nzc, int *isuppz,
3904
logical *tryrac, real *work, int *lwork, int *iwork, int *
3907
/* Subroutine */ int ssteqr_(char *compz, int *n, real *d__, real *e,
3908
real *z__, int *ldz, real *work, int *info);
3910
/* Subroutine */ int ssterf_(int *n, real *d__, real *e, int *info);
3912
/* Subroutine */ int sstev_(char *jobz, int *n, real *d__, real *e, real *
3913
z__, int *ldz, real *work, int *info);
3915
/* Subroutine */ int sstevd_(char *jobz, int *n, real *d__, real *e, real
3916
*z__, int *ldz, real *work, int *lwork, int *iwork,
3917
int *liwork, int *info);
3919
/* Subroutine */ int sstevr_(char *jobz, char *range, int *n, real *d__,
3920
real *e, real *vl, real *vu, int *il, int *iu, real *abstol,
3921
int *m, real *w, real *z__, int *ldz, int *isuppz, real *
3922
work, int *lwork, int *iwork, int *liwork, int *info);
3924
/* Subroutine */ int sstevx_(char *jobz, char *range, int *n, real *d__,
3925
real *e, real *vl, real *vu, int *il, int *iu, real *abstol,
3926
int *m, real *w, real *z__, int *ldz, real *work, int *
3927
iwork, int *ifail, int *info);
3929
/* Subroutine */ int ssycon_(char *uplo, int *n, real *a, int *lda,
3930
int *ipiv, real *anorm, real *rcond, real *work, int *iwork,
3933
/* Subroutine */ int ssyev_(char *jobz, char *uplo, int *n, real *a,
3934
int *lda, real *w, real *work, int *lwork, int *info);
3936
/* Subroutine */ int ssyevd_(char *jobz, char *uplo, int *n, real *a,
3937
int *lda, real *w, real *work, int *lwork, int *iwork,
3938
int *liwork, int *info);
3940
/* Subroutine */ int ssyevr_(char *jobz, char *range, char *uplo, int *n,
3941
real *a, int *lda, real *vl, real *vu, int *il, int *iu,
3942
real *abstol, int *m, real *w, real *z__, int *ldz, int *
3943
isuppz, real *work, int *lwork, int *iwork, int *liwork,
3946
/* Subroutine */ int ssyevx_(char *jobz, char *range, char *uplo, int *n,
3947
real *a, int *lda, real *vl, real *vu, int *il, int *iu,
3948
real *abstol, int *m, real *w, real *z__, int *ldz, real *
3949
work, int *lwork, int *iwork, int *ifail, int *info);
3951
/* Subroutine */ int ssygs2_(int *itype, char *uplo, int *n, real *a,
3952
int *lda, real *b, int *ldb, int *info);
3954
/* Subroutine */ int ssygst_(int *itype, char *uplo, int *n, real *a,
3955
int *lda, real *b, int *ldb, int *info);
3957
/* Subroutine */ int ssygv_(int *itype, char *jobz, char *uplo, int *
3958
n, real *a, int *lda, real *b, int *ldb, real *w, real *work,
3959
int *lwork, int *info);
3961
/* Subroutine */ int ssygvd_(int *itype, char *jobz, char *uplo, int *
3962
n, real *a, int *lda, real *b, int *ldb, real *w, real *work,
3963
int *lwork, int *iwork, int *liwork, int *info);
3965
/* Subroutine */ int ssygvx_(int *itype, char *jobz, char *range, char *
3966
uplo, int *n, real *a, int *lda, real *b, int *ldb, real *
3967
vl, real *vu, int *il, int *iu, real *abstol, int *m,
3968
real *w, real *z__, int *ldz, real *work, int *lwork, int
3969
*iwork, int *ifail, int *info);
3971
/* Subroutine */ int ssyrfs_(char *uplo, int *n, int *nrhs, real *a,
3972
int *lda, real *af, int *ldaf, int *ipiv, real *b,
3973
int *ldb, real *x, int *ldx, real *ferr, real *berr, real *
3974
work, int *iwork, int *info);
3976
/* Subroutine */ int ssysv_(char *uplo, int *n, int *nrhs, real *a,
3977
int *lda, int *ipiv, real *b, int *ldb, real *work,
3978
int *lwork, int *info);
3980
/* Subroutine */ int ssysvx_(char *fact, char *uplo, int *n, int *
3981
nrhs, real *a, int *lda, real *af, int *ldaf, int *ipiv,
3982
real *b, int *ldb, real *x, int *ldx, real *rcond, real *ferr,
3983
real *berr, real *work, int *lwork, int *iwork, int *
3986
/* Subroutine */ int ssytd2_(char *uplo, int *n, real *a, int *lda,
3987
real *d__, real *e, real *tau, int *info);
3989
/* Subroutine */ int ssytf2_(char *uplo, int *n, real *a, int *lda,
3990
int *ipiv, int *info);
3992
/* Subroutine */ int ssytrd_(char *uplo, int *n, real *a, int *lda,
3993
real *d__, real *e, real *tau, real *work, int *lwork, int *
3996
/* Subroutine */ int ssytrf_(char *uplo, int *n, real *a, int *lda,
3997
int *ipiv, real *work, int *lwork, int *info);
3999
/* Subroutine */ int ssytri_(char *uplo, int *n, real *a, int *lda,
4000
int *ipiv, real *work, int *info);
4002
/* Subroutine */ int ssytrs_(char *uplo, int *n, int *nrhs, real *a,
4003
int *lda, int *ipiv, real *b, int *ldb, int *info);
4005
/* Subroutine */ int stbcon_(char *norm, char *uplo, char *diag, int *n,
4006
int *kd, real *ab, int *ldab, real *rcond, real *work,
4007
int *iwork, int *info);
4009
/* Subroutine */ int stbrfs_(char *uplo, char *trans, char *diag, int *n,
4010
int *kd, int *nrhs, real *ab, int *ldab, real *b, int
4011
*ldb, real *x, int *ldx, real *ferr, real *berr, real *work,
4012
int *iwork, int *info);
4014
/* Subroutine */ int stbtrs_(char *uplo, char *trans, char *diag, int *n,
4015
int *kd, int *nrhs, real *ab, int *ldab, real *b, int
4018
/* Subroutine */ int stgevc_(char *side, char *howmny, logical *select,
4019
int *n, real *s, int *lds, real *p, int *ldp, real *vl,
4020
int *ldvl, real *vr, int *ldvr, int *mm, int *m, real
4023
/* Subroutine */ int stgex2_(logical *wantq, logical *wantz, int *n, real
4024
*a, int *lda, real *b, int *ldb, real *q, int *ldq, real *
4025
z__, int *ldz, int *j1, int *n1, int *n2, real *work,
4026
int *lwork, int *info);
4028
/* Subroutine */ int stgexc_(logical *wantq, logical *wantz, int *n, real
4029
*a, int *lda, real *b, int *ldb, real *q, int *ldq, real *
4030
z__, int *ldz, int *ifst, int *ilst, real *work, int *
4033
/* Subroutine */ int stgsen_(int *ijob, logical *wantq, logical *wantz,
4034
logical *select, int *n, real *a, int *lda, real *b, int *
4035
ldb, real *alphar, real *alphai, real *beta, real *q, int *ldq,
4036
real *z__, int *ldz, int *m, real *pl, real *pr, real *dif,
4037
real *work, int *lwork, int *iwork, int *liwork, int *
4040
/* Subroutine */ int stgsja_(char *jobu, char *jobv, char *jobq, int *m,
4041
int *p, int *n, int *k, int *l, real *a, int *lda,
4042
real *b, int *ldb, real *tola, real *tolb, real *alpha, real *
4043
beta, real *u, int *ldu, real *v, int *ldv, real *q, int *
4044
ldq, real *work, int *ncycle, int *info);
4046
/* Subroutine */ int stgsna_(char *job, char *howmny, logical *select,
4047
int *n, real *a, int *lda, real *b, int *ldb, real *vl,
4048
int *ldvl, real *vr, int *ldvr, real *s, real *dif, int *
4049
mm, int *m, real *work, int *lwork, int *iwork, int *
4052
/* Subroutine */ int stgsy2_(char *trans, int *ijob, int *m, int *
4053
n, real *a, int *lda, real *b, int *ldb, real *c__, int *
4054
ldc, real *d__, int *ldd, real *e, int *lde, real *f, int
4055
*ldf, real *scale, real *rdsum, real *rdscal, int *iwork, int
4058
/* Subroutine */ int stgsyl_(char *trans, int *ijob, int *m, int *
4059
n, real *a, int *lda, real *b, int *ldb, real *c__, int *
4060
ldc, real *d__, int *ldd, real *e, int *lde, real *f, int
4061
*ldf, real *scale, real *dif, real *work, int *lwork, int *
4064
/* Subroutine */ int stpcon_(char *norm, char *uplo, char *diag, int *n,
4065
real *ap, real *rcond, real *work, int *iwork, int *info);
4067
/* Subroutine */ int stprfs_(char *uplo, char *trans, char *diag, int *n,
4068
int *nrhs, real *ap, real *b, int *ldb, real *x, int *ldx,
4069
real *ferr, real *berr, real *work, int *iwork, int *info);
4071
/* Subroutine */ int stptri_(char *uplo, char *diag, int *n, real *ap,
4074
/* Subroutine */ int stptrs_(char *uplo, char *trans, char *diag, int *n,
4075
int *nrhs, real *ap, real *b, int *ldb, int *info);
4077
/* Subroutine */ int strcon_(char *norm, char *uplo, char *diag, int *n,
4078
real *a, int *lda, real *rcond, real *work, int *iwork,
4081
/* Subroutine */ int strevc_(char *side, char *howmny, logical *select,
4082
int *n, real *t, int *ldt, real *vl, int *ldvl, real *vr,
4083
int *ldvr, int *mm, int *m, real *work, int *info);
4085
/* Subroutine */ int strexc_(char *compq, int *n, real *t, int *ldt,
4086
real *q, int *ldq, int *ifst, int *ilst, real *work,
4089
/* Subroutine */ int strrfs_(char *uplo, char *trans, char *diag, int *n,
4090
int *nrhs, real *a, int *lda, real *b, int *ldb, real *x,
4091
int *ldx, real *ferr, real *berr, real *work, int *iwork,
4094
/* Subroutine */ int strsen_(char *job, char *compq, logical *select, int
4095
*n, real *t, int *ldt, real *q, int *ldq, real *wr, real *wi,
4096
int *m, real *s, real *sep, real *work, int *lwork, int *
4097
iwork, int *liwork, int *info);
4099
/* Subroutine */ int strsna_(char *job, char *howmny, logical *select,
4100
int *n, real *t, int *ldt, real *vl, int *ldvl, real *vr,
4101
int *ldvr, real *s, real *sep, int *mm, int *m, real *
4102
work, int *ldwork, int *iwork, int *info);
4104
/* Subroutine */ int strsyl_(char *trana, char *tranb, int *isgn, int
4105
*m, int *n, real *a, int *lda, real *b, int *ldb, real *
4106
c__, int *ldc, real *scale, int *info);
4108
/* Subroutine */ int strti2_(char *uplo, char *diag, int *n, real *a,
4109
int *lda, int *info);
4111
/* Subroutine */ int strtri_(char *uplo, char *diag, int *n, real *a,
4112
int *lda, int *info);
4114
/* Subroutine */ int strtrs_(char *uplo, char *trans, char *diag, int *n,
4115
int *nrhs, real *a, int *lda, real *b, int *ldb, int *
4118
/* Subroutine */ int stzrqf_(int *m, int *n, real *a, int *lda,
4119
real *tau, int *info);
4121
/* Subroutine */ int stzrzf_(int *m, int *n, real *a, int *lda,
4122
real *tau, real *work, int *lwork, int *info);
4124
/* Subroutine */ int xerbla_(char *srname, int *info);
4126
/* Subroutine */ int zbdsqr_(char *uplo, int *n, int *ncvt, int *
4127
nru, int *ncc, double *d__, double *e, doublecomplex *vt,
4128
int *ldvt, doublecomplex *u, int *ldu, doublecomplex *c__,
4129
int *ldc, double *rwork, int *info);
4131
/* Subroutine */ int zcgesv_(int *n, int *nrhs, doublecomplex *a,
4132
int *lda, int *ipiv, doublecomplex *b, int *ldb,
4133
doublecomplex *x, int *ldx, doublecomplex *work, complex *swork,
4134
int *iter, int *info);
4136
/* Subroutine */ int zdrscl_(int *n, double *sa, doublecomplex *sx,
4139
/* Subroutine */ int zgbbrd_(char *vect, int *m, int *n, int *ncc,
4140
int *kl, int *ku, doublecomplex *ab, int *ldab,
4141
double *d__, double *e, doublecomplex *q, int *ldq,
4142
doublecomplex *pt, int *ldpt, doublecomplex *c__, int *ldc,
4143
doublecomplex *work, double *rwork, int *info);
4145
/* Subroutine */ int zgbcon_(char *norm, int *n, int *kl, int *ku,
4146
doublecomplex *ab, int *ldab, int *ipiv, double *anorm,
4147
double *rcond, doublecomplex *work, double *rwork, int *
4150
/* Subroutine */ int zgbequ_(int *m, int *n, int *kl, int *ku,
4151
doublecomplex *ab, int *ldab, double *r__, double *c__,
4152
double *rowcnd, double *colcnd, double *amax, int *
4155
/* Subroutine */ int zgbrfs_(char *trans, int *n, int *kl, int *
4156
ku, int *nrhs, doublecomplex *ab, int *ldab, doublecomplex *
4157
afb, int *ldafb, int *ipiv, doublecomplex *b, int *ldb,
4158
doublecomplex *x, int *ldx, double *ferr, double *berr,
4159
doublecomplex *work, double *rwork, int *info);
4161
/* Subroutine */ int zgbsv_(int *n, int *kl, int *ku, int *
4162
nrhs, doublecomplex *ab, int *ldab, int *ipiv, doublecomplex *
4163
b, int *ldb, int *info);
4165
/* Subroutine */ int zgbsvx_(char *fact, char *trans, int *n, int *kl,
4166
int *ku, int *nrhs, doublecomplex *ab, int *ldab,
4167
doublecomplex *afb, int *ldafb, int *ipiv, char *equed,
4168
double *r__, double *c__, doublecomplex *b, int *ldb,
4169
doublecomplex *x, int *ldx, double *rcond, double *ferr,
4170
double *berr, doublecomplex *work, double *rwork, int *
4173
/* Subroutine */ int zgbtf2_(int *m, int *n, int *kl, int *ku,
4174
doublecomplex *ab, int *ldab, int *ipiv, int *info);
4176
/* Subroutine */ int zgbtrf_(int *m, int *n, int *kl, int *ku,
4177
doublecomplex *ab, int *ldab, int *ipiv, int *info);
4179
/* Subroutine */ int zgbtrs_(char *trans, int *n, int *kl, int *
4180
ku, int *nrhs, doublecomplex *ab, int *ldab, int *ipiv,
4181
doublecomplex *b, int *ldb, int *info);
4183
/* Subroutine */ int zgebak_(char *job, char *side, int *n, int *ilo,
4184
int *ihi, double *scale, int *m, doublecomplex *v,
4185
int *ldv, int *info);
4187
/* Subroutine */ int zgebal_(char *job, int *n, doublecomplex *a, int
4188
*lda, int *ilo, int *ihi, double *scale, int *info);
4190
/* Subroutine */ int zgebd2_(int *m, int *n, doublecomplex *a,
4191
int *lda, double *d__, double *e, doublecomplex *tauq,
4192
doublecomplex *taup, doublecomplex *work, int *info);
4194
/* Subroutine */ int zgebrd_(int *m, int *n, doublecomplex *a,
4195
int *lda, double *d__, double *e, doublecomplex *tauq,
4196
doublecomplex *taup, doublecomplex *work, int *lwork, int *
4199
/* Subroutine */ int zgecon_(char *norm, int *n, doublecomplex *a,
4200
int *lda, double *anorm, double *rcond, doublecomplex *
4201
work, double *rwork, int *info);
4203
/* Subroutine */ int zgeequ_(int *m, int *n, doublecomplex *a,
4204
int *lda, double *r__, double *c__, double *rowcnd,
4205
double *colcnd, double *amax, int *info);
4207
/* Subroutine */ int zgees_(char *jobvs, char *sort, L_fp select, int *n,
4208
doublecomplex *a, int *lda, int *sdim, doublecomplex *w,
4209
doublecomplex *vs, int *ldvs, doublecomplex *work, int *lwork,
4210
double *rwork, logical *bwork, int *info);
4212
/* Subroutine */ int zgeesx_(char *jobvs, char *sort, L_fp select, char *
4213
sense, int *n, doublecomplex *a, int *lda, int *sdim,
4214
doublecomplex *w, doublecomplex *vs, int *ldvs, double *
4215
rconde, double *rcondv, doublecomplex *work, int *lwork,
4216
double *rwork, logical *bwork, int *info);
4218
/* Subroutine */ int zgeev_(char *jobvl, char *jobvr, int *n,
4219
doublecomplex *a, int *lda, doublecomplex *w, doublecomplex *vl,
4220
int *ldvl, doublecomplex *vr, int *ldvr, doublecomplex *work,
4221
int *lwork, double *rwork, int *info);
4223
/* Subroutine */ int zgeevx_(char *balanc, char *jobvl, char *jobvr, char *
4224
sense, int *n, doublecomplex *a, int *lda, doublecomplex *w,
4225
doublecomplex *vl, int *ldvl, doublecomplex *vr, int *ldvr,
4226
int *ilo, int *ihi, double *scale, double *abnrm,
4227
double *rconde, double *rcondv, doublecomplex *work, int *
4228
lwork, double *rwork, int *info);
4230
/* Subroutine */ int zgegs_(char *jobvsl, char *jobvsr, int *n,
4231
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4232
doublecomplex *alpha, doublecomplex *beta, doublecomplex *vsl,
4233
int *ldvsl, doublecomplex *vsr, int *ldvsr, doublecomplex *
4234
work, int *lwork, double *rwork, int *info);
4236
/* Subroutine */ int zgegv_(char *jobvl, char *jobvr, int *n,
4237
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4238
doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, int
4239
*ldvl, doublecomplex *vr, int *ldvr, doublecomplex *work, int
4240
*lwork, double *rwork, int *info);
4242
/* Subroutine */ int zgehd2_(int *n, int *ilo, int *ihi,
4243
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
4246
/* Subroutine */ int zgehrd_(int *n, int *ilo, int *ihi,
4247
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
4248
work, int *lwork, int *info);
4250
/* Subroutine */ int zgelq2_(int *m, int *n, doublecomplex *a,
4251
int *lda, doublecomplex *tau, doublecomplex *work, int *info);
4253
/* Subroutine */ int zgelqf_(int *m, int *n, doublecomplex *a,
4254
int *lda, doublecomplex *tau, doublecomplex *work, int *lwork,
4257
/* Subroutine */ int zgels_(char *trans, int *m, int *n, int *
4258
nrhs, doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4259
doublecomplex *work, int *lwork, int *info);
4261
/* Subroutine */ int zgelsd_(int *m, int *n, int *nrhs,
4262
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4263
double *s, double *rcond, int *rank, doublecomplex *work,
4264
int *lwork, double *rwork, int *iwork, int *info);
4266
/* Subroutine */ int zgelss_(int *m, int *n, int *nrhs,
4267
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4268
double *s, double *rcond, int *rank, doublecomplex *work,
4269
int *lwork, double *rwork, int *info);
4271
/* Subroutine */ int zgelsx_(int *m, int *n, int *nrhs,
4272
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4273
int *jpvt, double *rcond, int *rank, doublecomplex *work,
4274
double *rwork, int *info);
4276
/* Subroutine */ int zgelsy_(int *m, int *n, int *nrhs,
4277
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4278
int *jpvt, double *rcond, int *rank, doublecomplex *work,
4279
int *lwork, double *rwork, int *info);
4281
/* Subroutine */ int zgeql2_(int *m, int *n, doublecomplex *a,
4282
int *lda, doublecomplex *tau, doublecomplex *work, int *info);
4284
/* Subroutine */ int zgeqlf_(int *m, int *n, doublecomplex *a,
4285
int *lda, doublecomplex *tau, doublecomplex *work, int *lwork,
4288
/* Subroutine */ int zgeqp3_(int *m, int *n, doublecomplex *a,
4289
int *lda, int *jpvt, doublecomplex *tau, doublecomplex *work,
4290
int *lwork, double *rwork, int *info);
4292
/* Subroutine */ int zgeqpf_(int *m, int *n, doublecomplex *a,
4293
int *lda, int *jpvt, doublecomplex *tau, doublecomplex *work,
4294
double *rwork, int *info);
4296
/* Subroutine */ int zgeqr2_(int *m, int *n, doublecomplex *a,
4297
int *lda, doublecomplex *tau, doublecomplex *work, int *info);
4299
/* Subroutine */ int zgeqrf_(int *m, int *n, doublecomplex *a,
4300
int *lda, doublecomplex *tau, doublecomplex *work, int *lwork,
4303
/* Subroutine */ int zgerfs_(char *trans, int *n, int *nrhs,
4304
doublecomplex *a, int *lda, doublecomplex *af, int *ldaf,
4305
int *ipiv, doublecomplex *b, int *ldb, doublecomplex *x,
4306
int *ldx, double *ferr, double *berr, doublecomplex *work,
4307
double *rwork, int *info);
4309
/* Subroutine */ int zgerq2_(int *m, int *n, doublecomplex *a,
4310
int *lda, doublecomplex *tau, doublecomplex *work, int *info);
4312
/* Subroutine */ int zgerqf_(int *m, int *n, doublecomplex *a,
4313
int *lda, doublecomplex *tau, doublecomplex *work, int *lwork,
4316
/* Subroutine */ int zgesc2_(int *n, doublecomplex *a, int *lda,
4317
doublecomplex *rhs, int *ipiv, int *jpiv, double *scale);
4319
/* Subroutine */ int zgesdd_(char *jobz, int *m, int *n,
4320
doublecomplex *a, int *lda, double *s, doublecomplex *u,
4321
int *ldu, doublecomplex *vt, int *ldvt, doublecomplex *work,
4322
int *lwork, double *rwork, int *iwork, int *info);
4324
/* Subroutine */ int zgesv_(int *n, int *nrhs, doublecomplex *a,
4325
int *lda, int *ipiv, doublecomplex *b, int *ldb, int *
4328
/* Subroutine */ int zgesvd_(char *jobu, char *jobvt, int *m, int *n,
4329
doublecomplex *a, int *lda, double *s, doublecomplex *u,
4330
int *ldu, doublecomplex *vt, int *ldvt, doublecomplex *work,
4331
int *lwork, double *rwork, int *info);
4333
/* Subroutine */ int zgesvx_(char *fact, char *trans, int *n, int *
4334
nrhs, doublecomplex *a, int *lda, doublecomplex *af, int *
4335
ldaf, int *ipiv, char *equed, double *r__, double *c__,
4336
doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
4337
double *rcond, double *ferr, double *berr, doublecomplex *
4338
work, double *rwork, int *info);
4340
/* Subroutine */ int zgetc2_(int *n, doublecomplex *a, int *lda,
4341
int *ipiv, int *jpiv, int *info);
4343
/* Subroutine */ int zgetf2_(int *m, int *n, doublecomplex *a,
4344
int *lda, int *ipiv, int *info);
4346
/* Subroutine */ int zgetrf_(int *m, int *n, doublecomplex *a,
4347
int *lda, int *ipiv, int *info);
4349
/* Subroutine */ int zgetri_(int *n, doublecomplex *a, int *lda,
4350
int *ipiv, doublecomplex *work, int *lwork, int *info);
4352
/* Subroutine */ int zgetrs_(char *trans, int *n, int *nrhs,
4353
doublecomplex *a, int *lda, int *ipiv, doublecomplex *b,
4354
int *ldb, int *info);
4356
/* Subroutine */ int zggbak_(char *job, char *side, int *n, int *ilo,
4357
int *ihi, double *lscale, double *rscale, int *m,
4358
doublecomplex *v, int *ldv, int *info);
4360
/* Subroutine */ int zggbal_(char *job, int *n, doublecomplex *a, int
4361
*lda, doublecomplex *b, int *ldb, int *ilo, int *ihi,
4362
double *lscale, double *rscale, double *work, int *
4365
/* Subroutine */ int zgges_(char *jobvsl, char *jobvsr, char *sort, L_fp
4366
selctg, int *n, doublecomplex *a, int *lda, doublecomplex *b,
4367
int *ldb, int *sdim, doublecomplex *alpha, doublecomplex *
4368
beta, doublecomplex *vsl, int *ldvsl, doublecomplex *vsr, int
4369
*ldvsr, doublecomplex *work, int *lwork, double *rwork,
4370
logical *bwork, int *info);
4372
/* Subroutine */ int zggesx_(char *jobvsl, char *jobvsr, char *sort, L_fp
4373
selctg, char *sense, int *n, doublecomplex *a, int *lda,
4374
doublecomplex *b, int *ldb, int *sdim, doublecomplex *alpha,
4375
doublecomplex *beta, doublecomplex *vsl, int *ldvsl,
4376
doublecomplex *vsr, int *ldvsr, double *rconde, double *
4377
rcondv, doublecomplex *work, int *lwork, double *rwork,
4378
int *iwork, int *liwork, logical *bwork, int *info);
4380
/* Subroutine */ int zggev_(char *jobvl, char *jobvr, int *n,
4381
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4382
doublecomplex *alpha, doublecomplex *beta, doublecomplex *vl, int
4383
*ldvl, doublecomplex *vr, int *ldvr, doublecomplex *work, int
4384
*lwork, double *rwork, int *info);
4386
/* Subroutine */ int zggevx_(char *balanc, char *jobvl, char *jobvr, char *
4387
sense, int *n, doublecomplex *a, int *lda, doublecomplex *b,
4388
int *ldb, doublecomplex *alpha, doublecomplex *beta,
4389
doublecomplex *vl, int *ldvl, doublecomplex *vr, int *ldvr,
4390
int *ilo, int *ihi, double *lscale, double *rscale,
4391
double *abnrm, double *bbnrm, double *rconde, double *
4392
rcondv, doublecomplex *work, int *lwork, double *rwork,
4393
int *iwork, logical *bwork, int *info);
4395
/* Subroutine */ int zggglm_(int *n, int *m, int *p,
4396
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4397
doublecomplex *d__, doublecomplex *x, doublecomplex *y, doublecomplex
4398
*work, int *lwork, int *info);
4400
/* Subroutine */ int zgghrd_(char *compq, char *compz, int *n, int *
4401
ilo, int *ihi, doublecomplex *a, int *lda, doublecomplex *b,
4402
int *ldb, doublecomplex *q, int *ldq, doublecomplex *z__,
4403
int *ldz, int *info);
4405
/* Subroutine */ int zgglse_(int *m, int *n, int *p,
4406
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4407
doublecomplex *c__, doublecomplex *d__, doublecomplex *x,
4408
doublecomplex *work, int *lwork, int *info);
4410
/* Subroutine */ int zggqrf_(int *n, int *m, int *p,
4411
doublecomplex *a, int *lda, doublecomplex *taua, doublecomplex *b,
4412
int *ldb, doublecomplex *taub, doublecomplex *work, int *
4415
/* Subroutine */ int zggrqf_(int *m, int *p, int *n,
4416
doublecomplex *a, int *lda, doublecomplex *taua, doublecomplex *b,
4417
int *ldb, doublecomplex *taub, doublecomplex *work, int *
4420
/* Subroutine */ int zggsvd_(char *jobu, char *jobv, char *jobq, int *m,
4421
int *n, int *p, int *k, int *l, doublecomplex *a,
4422
int *lda, doublecomplex *b, int *ldb, double *alpha,
4423
double *beta, doublecomplex *u, int *ldu, doublecomplex *v,
4424
int *ldv, doublecomplex *q, int *ldq, doublecomplex *work,
4425
double *rwork, int *iwork, int *info);
4427
/* Subroutine */ int zggsvp_(char *jobu, char *jobv, char *jobq, int *m,
4428
int *p, int *n, doublecomplex *a, int *lda, doublecomplex
4429
*b, int *ldb, double *tola, double *tolb, int *k,
4430
int *l, doublecomplex *u, int *ldu, doublecomplex *v, int
4431
*ldv, doublecomplex *q, int *ldq, int *iwork, double *
4432
rwork, doublecomplex *tau, doublecomplex *work, int *info);
4434
/* Subroutine */ int zgtcon_(char *norm, int *n, doublecomplex *dl,
4435
doublecomplex *d__, doublecomplex *du, doublecomplex *du2, int *
4436
ipiv, double *anorm, double *rcond, doublecomplex *work,
4439
/* Subroutine */ int zgtrfs_(char *trans, int *n, int *nrhs,
4440
doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4441
doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
4442
doublecomplex *du2, int *ipiv, doublecomplex *b, int *ldb,
4443
doublecomplex *x, int *ldx, double *ferr, double *berr,
4444
doublecomplex *work, double *rwork, int *info);
4446
/* Subroutine */ int zgtsv_(int *n, int *nrhs, doublecomplex *dl,
4447
doublecomplex *d__, doublecomplex *du, doublecomplex *b, int *ldb,
4450
/* Subroutine */ int zgtsvx_(char *fact, char *trans, int *n, int *
4451
nrhs, doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4452
doublecomplex *dlf, doublecomplex *df, doublecomplex *duf,
4453
doublecomplex *du2, int *ipiv, doublecomplex *b, int *ldb,
4454
doublecomplex *x, int *ldx, double *rcond, double *ferr,
4455
double *berr, doublecomplex *work, double *rwork, int *
4458
/* Subroutine */ int zgttrf_(int *n, doublecomplex *dl, doublecomplex *
4459
d__, doublecomplex *du, doublecomplex *du2, int *ipiv, int *
4462
/* Subroutine */ int zgttrs_(char *trans, int *n, int *nrhs,
4463
doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4464
doublecomplex *du2, int *ipiv, doublecomplex *b, int *ldb,
4467
/* Subroutine */ int zgtts2_(int *itrans, int *n, int *nrhs,
4468
doublecomplex *dl, doublecomplex *d__, doublecomplex *du,
4469
doublecomplex *du2, int *ipiv, doublecomplex *b, int *ldb);
4471
/* Subroutine */ int zhbev_(char *jobz, char *uplo, int *n, int *kd,
4472
doublecomplex *ab, int *ldab, double *w, doublecomplex *z__,
4473
int *ldz, doublecomplex *work, double *rwork, int *info);
4475
/* Subroutine */ int zhbevd_(char *jobz, char *uplo, int *n, int *kd,
4476
doublecomplex *ab, int *ldab, double *w, doublecomplex *z__,
4477
int *ldz, doublecomplex *work, int *lwork, double *rwork,
4478
int *lrwork, int *iwork, int *liwork, int *info);
4480
/* Subroutine */ int zhbevx_(char *jobz, char *range, char *uplo, int *n,
4481
int *kd, doublecomplex *ab, int *ldab, doublecomplex *q,
4482
int *ldq, double *vl, double *vu, int *il, int *
4483
iu, double *abstol, int *m, double *w, doublecomplex *z__,
4484
int *ldz, doublecomplex *work, double *rwork, int *iwork,
4485
int *ifail, int *info);
4487
/* Subroutine */ int zhbgst_(char *vect, char *uplo, int *n, int *ka,
4488
int *kb, doublecomplex *ab, int *ldab, doublecomplex *bb,
4489
int *ldbb, doublecomplex *x, int *ldx, doublecomplex *work,
4490
double *rwork, int *info);
4492
/* Subroutine */ int zhbgv_(char *jobz, char *uplo, int *n, int *ka,
4493
int *kb, doublecomplex *ab, int *ldab, doublecomplex *bb,
4494
int *ldbb, double *w, doublecomplex *z__, int *ldz,
4495
doublecomplex *work, double *rwork, int *info);
4497
/* Subroutine */ int zhbgvd_(char *jobz, char *uplo, int *n, int *ka,
4498
int *kb, doublecomplex *ab, int *ldab, doublecomplex *bb,
4499
int *ldbb, double *w, doublecomplex *z__, int *ldz,
4500
doublecomplex *work, int *lwork, double *rwork, int *
4501
lrwork, int *iwork, int *liwork, int *info);
4503
/* Subroutine */ int zhbgvx_(char *jobz, char *range, char *uplo, int *n,
4504
int *ka, int *kb, doublecomplex *ab, int *ldab,
4505
doublecomplex *bb, int *ldbb, doublecomplex *q, int *ldq,
4506
double *vl, double *vu, int *il, int *iu, double *
4507
abstol, int *m, double *w, doublecomplex *z__, int *ldz,
4508
doublecomplex *work, double *rwork, int *iwork, int *
4511
/* Subroutine */ int zhbtrd_(char *vect, char *uplo, int *n, int *kd,
4512
doublecomplex *ab, int *ldab, double *d__, double *e,
4513
doublecomplex *q, int *ldq, doublecomplex *work, int *info);
4515
/* Subroutine */ int zhecon_(char *uplo, int *n, doublecomplex *a,
4516
int *lda, int *ipiv, double *anorm, double *rcond,
4517
doublecomplex *work, int *info);
4519
/* Subroutine */ int zheev_(char *jobz, char *uplo, int *n, doublecomplex
4520
*a, int *lda, double *w, doublecomplex *work, int *lwork,
4521
double *rwork, int *info);
4523
/* Subroutine */ int zheevd_(char *jobz, char *uplo, int *n,
4524
doublecomplex *a, int *lda, double *w, doublecomplex *work,
4525
int *lwork, double *rwork, int *lrwork, int *iwork,
4526
int *liwork, int *info);
4528
/* Subroutine */ int zheevr_(char *jobz, char *range, char *uplo, int *n,
4529
doublecomplex *a, int *lda, double *vl, double *vu,
4530
int *il, int *iu, double *abstol, int *m, double *
4531
w, doublecomplex *z__, int *ldz, int *isuppz, doublecomplex *
4532
work, int *lwork, double *rwork, int *lrwork, int *
4533
iwork, int *liwork, int *info);
4535
/* Subroutine */ int zheevx_(char *jobz, char *range, char *uplo, int *n,
4536
doublecomplex *a, int *lda, double *vl, double *vu,
4537
int *il, int *iu, double *abstol, int *m, double *
4538
w, doublecomplex *z__, int *ldz, doublecomplex *work, int *
4539
lwork, double *rwork, int *iwork, int *ifail, int *
4542
/* Subroutine */ int zhegs2_(int *itype, char *uplo, int *n,
4543
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4546
/* Subroutine */ int zhegst_(int *itype, char *uplo, int *n,
4547
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4550
/* Subroutine */ int zhegv_(int *itype, char *jobz, char *uplo, int *
4551
n, doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4552
double *w, doublecomplex *work, int *lwork, double *rwork,
4555
/* Subroutine */ int zhegvd_(int *itype, char *jobz, char *uplo, int *
4556
n, doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
4557
double *w, doublecomplex *work, int *lwork, double *rwork,
4558
int *lrwork, int *iwork, int *liwork, int *info);
4560
/* Subroutine */ int zhegvx_(int *itype, char *jobz, char *range, char *
4561
uplo, int *n, doublecomplex *a, int *lda, doublecomplex *b,
4562
int *ldb, double *vl, double *vu, int *il, int *
4563
iu, double *abstol, int *m, double *w, doublecomplex *z__,
4564
int *ldz, doublecomplex *work, int *lwork, double *rwork,
4565
int *iwork, int *ifail, int *info);
4567
/* Subroutine */ int zherfs_(char *uplo, int *n, int *nrhs,
4568
doublecomplex *a, int *lda, doublecomplex *af, int *ldaf,
4569
int *ipiv, doublecomplex *b, int *ldb, doublecomplex *x,
4570
int *ldx, double *ferr, double *berr, doublecomplex *work,
4571
double *rwork, int *info);
4573
/* Subroutine */ int zhesv_(char *uplo, int *n, int *nrhs,
4574
doublecomplex *a, int *lda, int *ipiv, doublecomplex *b,
4575
int *ldb, doublecomplex *work, int *lwork, int *info);
4577
/* Subroutine */ int zhesvx_(char *fact, char *uplo, int *n, int *
4578
nrhs, doublecomplex *a, int *lda, doublecomplex *af, int *
4579
ldaf, int *ipiv, doublecomplex *b, int *ldb, doublecomplex *x,
4580
int *ldx, double *rcond, double *ferr, double *berr,
4581
doublecomplex *work, int *lwork, double *rwork, int *info);
4583
/* Subroutine */ int zhetd2_(char *uplo, int *n, doublecomplex *a,
4584
int *lda, double *d__, double *e, doublecomplex *tau,
4587
/* Subroutine */ int zhetf2_(char *uplo, int *n, doublecomplex *a,
4588
int *lda, int *ipiv, int *info);
4590
/* Subroutine */ int zhetrd_(char *uplo, int *n, doublecomplex *a,
4591
int *lda, double *d__, double *e, doublecomplex *tau,
4592
doublecomplex *work, int *lwork, int *info);
4594
/* Subroutine */ int zhetrf_(char *uplo, int *n, doublecomplex *a,
4595
int *lda, int *ipiv, doublecomplex *work, int *lwork,
4598
/* Subroutine */ int zhetri_(char *uplo, int *n, doublecomplex *a,
4599
int *lda, int *ipiv, doublecomplex *work, int *info);
4601
/* Subroutine */ int zhetrs_(char *uplo, int *n, int *nrhs,
4602
doublecomplex *a, int *lda, int *ipiv, doublecomplex *b,
4603
int *ldb, int *info);
4605
/* Subroutine */ int zhgeqz_(char *job, char *compq, char *compz, int *n,
4606
int *ilo, int *ihi, doublecomplex *h__, int *ldh,
4607
doublecomplex *t, int *ldt, doublecomplex *alpha, doublecomplex *
4608
beta, doublecomplex *q, int *ldq, doublecomplex *z__, int *
4609
ldz, doublecomplex *work, int *lwork, double *rwork, int *
4612
/* Subroutine */ int zhpcon_(char *uplo, int *n, doublecomplex *ap,
4613
int *ipiv, double *anorm, double *rcond, doublecomplex *
4616
/* Subroutine */ int zhpev_(char *jobz, char *uplo, int *n, doublecomplex
4617
*ap, double *w, doublecomplex *z__, int *ldz, doublecomplex *
4618
work, double *rwork, int *info);
4620
/* Subroutine */ int zhpevd_(char *jobz, char *uplo, int *n,
4621
doublecomplex *ap, double *w, doublecomplex *z__, int *ldz,
4622
doublecomplex *work, int *lwork, double *rwork, int *
4623
lrwork, int *iwork, int *liwork, int *info);
4625
/* Subroutine */ int zhpevx_(char *jobz, char *range, char *uplo, int *n,
4626
doublecomplex *ap, double *vl, double *vu, int *il,
4627
int *iu, double *abstol, int *m, double *w,
4628
doublecomplex *z__, int *ldz, doublecomplex *work, double *
4629
rwork, int *iwork, int *ifail, int *info);
4631
/* Subroutine */ int zhpgst_(int *itype, char *uplo, int *n,
4632
doublecomplex *ap, doublecomplex *bp, int *info);
4634
/* Subroutine */ int zhpgv_(int *itype, char *jobz, char *uplo, int *
4635
n, doublecomplex *ap, doublecomplex *bp, double *w, doublecomplex
4636
*z__, int *ldz, doublecomplex *work, double *rwork, int *
4639
/* Subroutine */ int zhpgvd_(int *itype, char *jobz, char *uplo, int *
4640
n, doublecomplex *ap, doublecomplex *bp, double *w, doublecomplex
4641
*z__, int *ldz, doublecomplex *work, int *lwork, double *
4642
rwork, int *lrwork, int *iwork, int *liwork, int *
4645
/* Subroutine */ int zhpgvx_(int *itype, char *jobz, char *range, char *
4646
uplo, int *n, doublecomplex *ap, doublecomplex *bp, double *
4647
vl, double *vu, int *il, int *iu, double *abstol,
4648
int *m, double *w, doublecomplex *z__, int *ldz,
4649
doublecomplex *work, double *rwork, int *iwork, int *
4652
/* Subroutine */ int zhprfs_(char *uplo, int *n, int *nrhs,
4653
doublecomplex *ap, doublecomplex *afp, int *ipiv, doublecomplex *
4654
b, int *ldb, doublecomplex *x, int *ldx, double *ferr,
4655
double *berr, doublecomplex *work, double *rwork, int *
4658
/* Subroutine */ int zhpsv_(char *uplo, int *n, int *nrhs,
4659
doublecomplex *ap, int *ipiv, doublecomplex *b, int *ldb,
4662
/* Subroutine */ int zhpsvx_(char *fact, char *uplo, int *n, int *
4663
nrhs, doublecomplex *ap, doublecomplex *afp, int *ipiv,
4664
doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
4665
double *rcond, double *ferr, double *berr, doublecomplex *
4666
work, double *rwork, int *info);
4668
/* Subroutine */ int zhptrd_(char *uplo, int *n, doublecomplex *ap,
4669
double *d__, double *e, doublecomplex *tau, int *info);
4671
/* Subroutine */ int zhptrf_(char *uplo, int *n, doublecomplex *ap,
4672
int *ipiv, int *info);
4674
/* Subroutine */ int zhptri_(char *uplo, int *n, doublecomplex *ap,
4675
int *ipiv, doublecomplex *work, int *info);
4677
/* Subroutine */ int zhptrs_(char *uplo, int *n, int *nrhs,
4678
doublecomplex *ap, int *ipiv, doublecomplex *b, int *ldb,
4681
/* Subroutine */ int zhsein_(char *side, char *eigsrc, char *initv, logical *
4682
select, int *n, doublecomplex *h__, int *ldh, doublecomplex *
4683
w, doublecomplex *vl, int *ldvl, doublecomplex *vr, int *ldvr,
4684
int *mm, int *m, doublecomplex *work, double *rwork,
4685
int *ifaill, int *ifailr, int *info);
4687
/* Subroutine */ int zhseqr_(char *job, char *compz, int *n, int *ilo,
4688
int *ihi, doublecomplex *h__, int *ldh, doublecomplex *w,
4689
doublecomplex *z__, int *ldz, doublecomplex *work, int *lwork,
4692
/* Subroutine */ int zlabrd_(int *m, int *n, int *nb,
4693
doublecomplex *a, int *lda, double *d__, double *e,
4694
doublecomplex *tauq, doublecomplex *taup, doublecomplex *x, int *
4695
ldx, doublecomplex *y, int *ldy);
4697
/* Subroutine */ int zlacgv_(int *n, doublecomplex *x, int *incx);
4699
/* Subroutine */ int zlacn2_(int *n, doublecomplex *v, doublecomplex *x,
4700
double *est, int *kase, int *isave);
4702
/* Subroutine */ int zlacon_(int *n, doublecomplex *v, doublecomplex *x,
4703
double *est, int *kase);
4705
/* Subroutine */ int zlacp2_(char *uplo, int *m, int *n, double *
4706
a, int *lda, doublecomplex *b, int *ldb);
4708
/* Subroutine */ int zlacpy_(char *uplo, int *m, int *n,
4709
doublecomplex *a, int *lda, doublecomplex *b, int *ldb);
4711
/* Subroutine */ int zlacrm_(int *m, int *n, doublecomplex *a,
4712
int *lda, double *b, int *ldb, doublecomplex *c__,
4713
int *ldc, double *rwork);
4715
/* Subroutine */ int zlacrt_(int *n, doublecomplex *cx, int *incx,
4716
doublecomplex *cy, int *incy, doublecomplex *c__, doublecomplex *
4719
/* Double Complex */ void zladiv_(doublecomplex * ret_val, doublecomplex *x,
4722
/* Subroutine */ int zlaed0_(int *qsiz, int *n, double *d__,
4723
double *e, doublecomplex *q, int *ldq, doublecomplex *qstore,
4724
int *ldqs, double *rwork, int *iwork, int *info);
4726
/* Subroutine */ int zlaed7_(int *n, int *cutpnt, int *qsiz,
4727
int *tlvls, int *curlvl, int *curpbm, double *d__,
4728
doublecomplex *q, int *ldq, double *rho, int *indxq,
4729
double *qstore, int *qptr, int *prmptr, int *perm,
4730
int *givptr, int *givcol, double *givnum, doublecomplex *
4731
work, double *rwork, int *iwork, int *info);
4733
/* Subroutine */ int zlaed8_(int *k, int *n, int *qsiz,
4734
doublecomplex *q, int *ldq, double *d__, double *rho,
4735
int *cutpnt, double *z__, double *dlamda, doublecomplex *
4736
q2, int *ldq2, double *w, int *indxp, int *indx,
4737
int *indxq, int *perm, int *givptr, int *givcol,
4738
double *givnum, int *info);
4740
/* Subroutine */ int zlaein_(logical *rightv, logical *noinit, int *n,
4741
doublecomplex *h__, int *ldh, doublecomplex *w, doublecomplex *v,
4742
doublecomplex *b, int *ldb, double *rwork, double *eps3,
4743
double *smlnum, int *info);
4745
/* Subroutine */ int zlaesy_(doublecomplex *a, doublecomplex *b,
4746
doublecomplex *c__, doublecomplex *rt1, doublecomplex *rt2,
4747
doublecomplex *evscal, doublecomplex *cs1, doublecomplex *sn1);
4749
/* Subroutine */ int zlaev2_(doublecomplex *a, doublecomplex *b,
4750
doublecomplex *c__, double *rt1, double *rt2, double *cs1,
4751
doublecomplex *sn1);
4753
/* Subroutine */ int zlag2c_(int *m, int *n, doublecomplex *a,
4754
int *lda, complex *sa, int *ldsa, int *info);
4756
/* Subroutine */ int zlags2_(logical *upper, double *a1, doublecomplex *
4757
a2, double *a3, double *b1, doublecomplex *b2, double *b3,
4758
double *csu, doublecomplex *snu, double *csv, doublecomplex *
4759
snv, double *csq, doublecomplex *snq);
4761
/* Subroutine */ int zlagtm_(char *trans, int *n, int *nrhs,
4762
double *alpha, doublecomplex *dl, doublecomplex *d__,
4763
doublecomplex *du, doublecomplex *x, int *ldx, double *beta,
4764
doublecomplex *b, int *ldb);
4766
/* Subroutine */ int zlahef_(char *uplo, int *n, int *nb, int *kb,
4767
doublecomplex *a, int *lda, int *ipiv, doublecomplex *w,
4768
int *ldw, int *info);
4770
/* Subroutine */ int zlahqr_(logical *wantt, logical *wantz, int *n,
4771
int *ilo, int *ihi, doublecomplex *h__, int *ldh,
4772
doublecomplex *w, int *iloz, int *ihiz, doublecomplex *z__,
4773
int *ldz, int *info);
4775
/* Subroutine */ int zlahr2_(int *n, int *k, int *nb,
4776
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *t,
4777
int *ldt, doublecomplex *y, int *ldy);
4779
/* Subroutine */ int zlahrd_(int *n, int *k, int *nb,
4780
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *t,
4781
int *ldt, doublecomplex *y, int *ldy);
4783
/* Subroutine */ int zlaic1_(int *job, int *j, doublecomplex *x,
4784
double *sest, doublecomplex *w, doublecomplex *gamma, double *
4785
sestpr, doublecomplex *s, doublecomplex *c__);
4787
/* Subroutine */ int zlals0_(int *icompq, int *nl, int *nr,
4788
int *sqre, int *nrhs, doublecomplex *b, int *ldb,
4789
doublecomplex *bx, int *ldbx, int *perm, int *givptr,
4790
int *givcol, int *ldgcol, double *givnum, int *ldgnum,
4791
double *poles, double *difl, double *difr, double *
4792
z__, int *k, double *c__, double *s, double *rwork,
4795
/* Subroutine */ int zlalsa_(int *icompq, int *smlsiz, int *n,
4796
int *nrhs, doublecomplex *b, int *ldb, doublecomplex *bx,
4797
int *ldbx, double *u, int *ldu, double *vt, int *
4798
k, double *difl, double *difr, double *z__, double *
4799
poles, int *givptr, int *givcol, int *ldgcol, int *
4800
perm, double *givnum, double *c__, double *s, double *
4801
rwork, int *iwork, int *info);
4803
/* Subroutine */ int zlalsd_(char *uplo, int *smlsiz, int *n, int
4804
*nrhs, double *d__, double *e, doublecomplex *b, int *ldb,
4805
double *rcond, int *rank, doublecomplex *work, double *
4806
rwork, int *iwork, int *info);
4808
/* Subroutine */ int zlapll_(int *n, doublecomplex *x, int *incx,
4809
doublecomplex *y, int *incy, double *ssmin);
4811
/* Subroutine */ int zlapmt_(logical *forwrd, int *m, int *n,
4812
doublecomplex *x, int *ldx, int *k);
4814
/* Subroutine */ int zlaqgb_(int *m, int *n, int *kl, int *ku,
4815
doublecomplex *ab, int *ldab, double *r__, double *c__,
4816
double *rowcnd, double *colcnd, double *amax, char *equed);
4818
/* Subroutine */ int zlaqge_(int *m, int *n, doublecomplex *a,
4819
int *lda, double *r__, double *c__, double *rowcnd,
4820
double *colcnd, double *amax, char *equed);
4822
/* Subroutine */ int zlaqhb_(char *uplo, int *n, int *kd,
4823
doublecomplex *ab, int *ldab, double *s, double *scond,
4824
double *amax, char *equed);
4826
/* Subroutine */ int zlaqhe_(char *uplo, int *n, doublecomplex *a,
4827
int *lda, double *s, double *scond, double *amax,
4830
/* Subroutine */ int zlaqhp_(char *uplo, int *n, doublecomplex *ap,
4831
double *s, double *scond, double *amax, char *equed);
4833
/* Subroutine */ int zlaqp2_(int *m, int *n, int *offset,
4834
doublecomplex *a, int *lda, int *jpvt, doublecomplex *tau,
4835
double *vn1, double *vn2, doublecomplex *work);
4837
/* Subroutine */ int zlaqps_(int *m, int *n, int *offset, int
4838
*nb, int *kb, doublecomplex *a, int *lda, int *jpvt,
4839
doublecomplex *tau, double *vn1, double *vn2, doublecomplex *
4840
auxv, doublecomplex *f, int *ldf);
4842
/* Subroutine */ int zlaqr0_(logical *wantt, logical *wantz, int *n,
4843
int *ilo, int *ihi, doublecomplex *h__, int *ldh,
4844
doublecomplex *w, int *iloz, int *ihiz, doublecomplex *z__,
4845
int *ldz, doublecomplex *work, int *lwork, int *info);
4847
/* Subroutine */ int zlaqr1_(int *n, doublecomplex *h__, int *ldh,
4848
doublecomplex *s1, doublecomplex *s2, doublecomplex *v);
4850
/* Subroutine */ int zlaqr2_(logical *wantt, logical *wantz, int *n,
4851
int *ktop, int *kbot, int *nw, doublecomplex *h__,
4852
int *ldh, int *iloz, int *ihiz, doublecomplex *z__,
4853
int *ldz, int *ns, int *nd, doublecomplex *sh,
4854
doublecomplex *v, int *ldv, int *nh, doublecomplex *t,
4855
int *ldt, int *nv, doublecomplex *wv, int *ldwv,
4856
doublecomplex *work, int *lwork);
4858
/* Subroutine */ int zlaqr3_(logical *wantt, logical *wantz, int *n,
4859
int *ktop, int *kbot, int *nw, doublecomplex *h__,
4860
int *ldh, int *iloz, int *ihiz, doublecomplex *z__,
4861
int *ldz, int *ns, int *nd, doublecomplex *sh,
4862
doublecomplex *v, int *ldv, int *nh, doublecomplex *t,
4863
int *ldt, int *nv, doublecomplex *wv, int *ldwv,
4864
doublecomplex *work, int *lwork);
4866
/* Subroutine */ int zlaqr4_(logical *wantt, logical *wantz, int *n,
4867
int *ilo, int *ihi, doublecomplex *h__, int *ldh,
4868
doublecomplex *w, int *iloz, int *ihiz, doublecomplex *z__,
4869
int *ldz, doublecomplex *work, int *lwork, int *info);
4871
/* Subroutine */ int zlaqr5_(logical *wantt, logical *wantz, int *kacc22,
4872
int *n, int *ktop, int *kbot, int *nshfts,
4873
doublecomplex *s, doublecomplex *h__, int *ldh, int *iloz,
4874
int *ihiz, doublecomplex *z__, int *ldz, doublecomplex *v,
4875
int *ldv, doublecomplex *u, int *ldu, int *nv,
4876
doublecomplex *wv, int *ldwv, int *nh, doublecomplex *wh,
4879
/* Subroutine */ int zlaqsb_(char *uplo, int *n, int *kd,
4880
doublecomplex *ab, int *ldab, double *s, double *scond,
4881
double *amax, char *equed);
4883
/* Subroutine */ int zlaqsp_(char *uplo, int *n, doublecomplex *ap,
4884
double *s, double *scond, double *amax, char *equed);
4886
/* Subroutine */ int zlaqsy_(char *uplo, int *n, doublecomplex *a,
4887
int *lda, double *s, double *scond, double *amax,
4890
/* Subroutine */ int zlar1v_(int *n, int *b1, int *bn, double
4891
*lambda, double *d__, double *l, double *ld, double *
4892
lld, double *pivmin, double *gaptol, doublecomplex *z__,
4893
logical *wantnc, int *negcnt, double *ztz, double *mingma,
4894
int *r__, int *isuppz, double *nrminv, double *resid,
4895
double *rqcorr, double *work);
4897
/* Subroutine */ int zlar2v_(int *n, doublecomplex *x, doublecomplex *y,
4898
doublecomplex *z__, int *incx, double *c__, doublecomplex *s,
4901
/* Subroutine */ int zlarcm_(int *m, int *n, double *a, int *
4902
lda, doublecomplex *b, int *ldb, doublecomplex *c__, int *ldc,
4905
/* Subroutine */ int zlarf_(char *side, int *m, int *n, doublecomplex
4906
*v, int *incv, doublecomplex *tau, doublecomplex *c__, int *
4907
ldc, doublecomplex *work);
4909
/* Subroutine */ int zlarfb_(char *side, char *trans, char *direct, char *
4910
storev, int *m, int *n, int *k, doublecomplex *v, int
4911
*ldv, doublecomplex *t, int *ldt, doublecomplex *c__, int *
4912
ldc, doublecomplex *work, int *ldwork );
4914
/* Subroutine */ int zlarfg_(int *n, doublecomplex *alpha, doublecomplex *
4915
x, int *incx, doublecomplex *tau);
4917
/* Subroutine */ int zlarft_(char *direct, char *storev, int *n, int *
4918
k, doublecomplex *v, int *ldv, doublecomplex *tau, doublecomplex *
4921
/* Subroutine */ int zlarfx_(char *side, int *m, int *n,
4922
doublecomplex *v, doublecomplex *tau, doublecomplex *c__, int *
4923
ldc, doublecomplex *work);
4925
/* Subroutine */ int zlargv_(int *n, doublecomplex *x, int *incx,
4926
doublecomplex *y, int *incy, double *c__, int *incc);
4928
/* Subroutine */ int zlarnv_(int *idist, int *iseed, int *n,
4931
/* Subroutine */ int zlarrv_(int *n, double *vl, double *vu,
4932
double *d__, double *l, double *pivmin, int *isplit,
4933
int *m, int *dol, int *dou, double *minrgp,
4934
double *rtol1, double *rtol2, double *w, double *werr,
4935
double *wgap, int *iblock, int *indexw, double *gers,
4936
doublecomplex *z__, int *ldz, int *isuppz, double *work,
4937
int *iwork, int *info);
4939
/* Subroutine */ int zlartg_(doublecomplex *f, doublecomplex *g, double *
4940
cs, doublecomplex *sn, doublecomplex *r__);
4942
/* Subroutine */ int zlartv_(int *n, doublecomplex *x, int *incx,
4943
doublecomplex *y, int *incy, double *c__, doublecomplex *s,
4946
/* Subroutine */ int zlarz_(char *side, int *m, int *n, int *l,
4947
doublecomplex *v, int *incv, doublecomplex *tau, doublecomplex *
4948
c__, int *ldc, doublecomplex *work);
4950
/* Subroutine */ int zlarzb_(char *side, char *trans, char *direct, char *
4951
storev, int *m, int *n, int *k, int *l, doublecomplex
4952
*v, int *ldv, doublecomplex *t, int *ldt, doublecomplex *c__,
4953
int *ldc, doublecomplex *work, int *ldwork);
4955
/* Subroutine */ int zlarzt_(char *direct, char *storev, int *n, int *
4956
k, doublecomplex *v, int *ldv, doublecomplex *tau, doublecomplex *
4959
/* Subroutine */ int zlascl_(char *type__, int *kl, int *ku,
4960
double *cfrom, double *cto, int *m, int *n,
4961
doublecomplex *a, int *lda, int *info);
4963
/* Subroutine */ int zlaset_(char *uplo, int *m, int *n,
4964
doublecomplex *alpha, doublecomplex *beta, doublecomplex *a, int *
4967
/* Subroutine */ int zlasr_(char *side, char *pivot, char *direct, int *m,
4968
int *n, double *c__, double *s, doublecomplex *a,
4971
/* Subroutine */ int zlassq_(int *n, doublecomplex *x, int *incx,
4972
double *scale, double *sumsq);
4974
/* Subroutine */ int zlaswp_(int *n, doublecomplex *a, int *lda,
4975
int *k1, int *k2, int *ipiv, int *incx);
4977
/* Subroutine */ int zlasyf_(char *uplo, int *n, int *nb, int *kb,
4978
doublecomplex *a, int *lda, int *ipiv, doublecomplex *w,
4979
int *ldw, int *info);
4981
/* Subroutine */ int zlatbs_(char *uplo, char *trans, char *diag, char *
4982
normin, int *n, int *kd, doublecomplex *ab, int *ldab,
4983
doublecomplex *x, double *scale, double *cnorm, int *info);
4985
/* Subroutine */ int zlatdf_(int *ijob, int *n, doublecomplex *z__,
4986
int *ldz, doublecomplex *rhs, double *rdsum, double *
4987
rdscal, int *ipiv, int *jpiv);
4989
/* Subroutine */ int zlatps_(char *uplo, char *trans, char *diag, char *
4990
normin, int *n, doublecomplex *ap, doublecomplex *x, double *
4991
scale, double *cnorm, int *info);
4993
/* Subroutine */ int zlatrd_(char *uplo, int *n, int *nb,
4994
doublecomplex *a, int *lda, double *e, doublecomplex *tau,
4995
doublecomplex *w, int *ldw);
4997
/* Subroutine */ int zlatrs_(char *uplo, char *trans, char *diag, char *
4998
normin, int *n, doublecomplex *a, int *lda, doublecomplex *x,
4999
double *scale, double *cnorm, int *info);
5001
/* Subroutine */ int zlatrz_(int *m, int *n, int *l,
5002
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5005
/* Subroutine */ int zlatzm_(char *side, int *m, int *n,
5006
doublecomplex *v, int *incv, doublecomplex *tau, doublecomplex *
5007
c1, doublecomplex *c2, int *ldc, doublecomplex *work );
5009
/* Subroutine */ int zlauu2_(char *uplo, int *n, doublecomplex *a,
5010
int *lda, int *info);
5012
/* Subroutine */ int zlauum_(char *uplo, int *n, doublecomplex *a,
5013
int *lda, int *info);
5015
/* Subroutine */ int zpbcon_(char *uplo, int *n, int *kd,
5016
doublecomplex *ab, int *ldab, double *anorm, double *
5017
rcond, doublecomplex *work, double *rwork, int *info);
5019
/* Subroutine */ int zpbequ_(char *uplo, int *n, int *kd,
5020
doublecomplex *ab, int *ldab, double *s, double *scond,
5021
double *amax, int *info);
5023
/* Subroutine */ int zpbrfs_(char *uplo, int *n, int *kd, int *
5024
nrhs, doublecomplex *ab, int *ldab, doublecomplex *afb, int *
5025
ldafb, doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
5026
double *ferr, double *berr, doublecomplex *work, double *
5029
/* Subroutine */ int zpbstf_(char *uplo, int *n, int *kd,
5030
doublecomplex *ab, int *ldab, int *info);
5032
/* Subroutine */ int zpbsv_(char *uplo, int *n, int *kd, int *
5033
nrhs, doublecomplex *ab, int *ldab, doublecomplex *b, int *
5036
/* Subroutine */ int zpbsvx_(char *fact, char *uplo, int *n, int *kd,
5037
int *nrhs, doublecomplex *ab, int *ldab, doublecomplex *afb,
5038
int *ldafb, char *equed, double *s, doublecomplex *b, int
5039
*ldb, doublecomplex *x, int *ldx, double *rcond, double *
5040
ferr, double *berr, doublecomplex *work, double *rwork,
5043
/* Subroutine */ int zpbtf2_(char *uplo, int *n, int *kd,
5044
doublecomplex *ab, int *ldab, int *info);
5046
/* Subroutine */ int zpbtrf_(char *uplo, int *n, int *kd,
5047
doublecomplex *ab, int *ldab, int *info);
5049
/* Subroutine */ int zpbtrs_(char *uplo, int *n, int *kd, int *
5050
nrhs, doublecomplex *ab, int *ldab, doublecomplex *b, int *
5053
/* Subroutine */ int zpocon_(char *uplo, int *n, doublecomplex *a,
5054
int *lda, double *anorm, double *rcond, doublecomplex *
5055
work, double *rwork, int *info);
5057
/* Subroutine */ int zpoequ_(int *n, doublecomplex *a, int *lda,
5058
double *s, double *scond, double *amax, int *info);
5060
/* Subroutine */ int zporfs_(char *uplo, int *n, int *nrhs,
5061
doublecomplex *a, int *lda, doublecomplex *af, int *ldaf,
5062
doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
5063
double *ferr, double *berr, doublecomplex *work, double *
5066
/* Subroutine */ int zposv_(char *uplo, int *n, int *nrhs,
5067
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
5070
/* Subroutine */ int zposvx_(char *fact, char *uplo, int *n, int *
5071
nrhs, doublecomplex *a, int *lda, doublecomplex *af, int *
5072
ldaf, char *equed, double *s, doublecomplex *b, int *ldb,
5073
doublecomplex *x, int *ldx, double *rcond, double *ferr,
5074
double *berr, doublecomplex *work, double *rwork, int *
5077
/* Subroutine */ int zpotf2_(char *uplo, int *n, doublecomplex *a,
5078
int *lda, int *info);
5080
/* Subroutine */ int zpotrf_(char *uplo, int *n, doublecomplex *a,
5081
int *lda, int *info);
5083
/* Subroutine */ int zpotri_(char *uplo, int *n, doublecomplex *a,
5084
int *lda, int *info);
5086
/* Subroutine */ int zpotrs_(char *uplo, int *n, int *nrhs,
5087
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
5090
/* Subroutine */ int zppcon_(char *uplo, int *n, doublecomplex *ap,
5091
double *anorm, double *rcond, doublecomplex *work, double
5094
/* Subroutine */ int zppequ_(char *uplo, int *n, doublecomplex *ap,
5095
double *s, double *scond, double *amax, int *info);
5097
/* Subroutine */ int zpprfs_(char *uplo, int *n, int *nrhs,
5098
doublecomplex *ap, doublecomplex *afp, doublecomplex *b, int *ldb,
5099
doublecomplex *x, int *ldx, double *ferr, double *berr,
5100
doublecomplex *work, double *rwork, int *info);
5102
/* Subroutine */ int zppsv_(char *uplo, int *n, int *nrhs,
5103
doublecomplex *ap, doublecomplex *b, int *ldb, int *info);
5105
/* Subroutine */ int zppsvx_(char *fact, char *uplo, int *n, int *
5106
nrhs, doublecomplex *ap, doublecomplex *afp, char *equed, double *
5107
s, doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
5108
double *rcond, double *ferr, double *berr, doublecomplex *
5109
work, double *rwork, int *info);
5111
/* Subroutine */ int zpptrf_(char *uplo, int *n, doublecomplex *ap,
5114
/* Subroutine */ int zpptri_(char *uplo, int *n, doublecomplex *ap,
5117
/* Subroutine */ int zpptrs_(char *uplo, int *n, int *nrhs,
5118
doublecomplex *ap, doublecomplex *b, int *ldb, int *info);
5120
/* Subroutine */ int zptcon_(int *n, double *d__, doublecomplex *e,
5121
double *anorm, double *rcond, double *rwork, int *
5124
/* Subroutine */ int zpteqr_(char *compz, int *n, double *d__,
5125
double *e, doublecomplex *z__, int *ldz, double *work,
5128
/* Subroutine */ int zptrfs_(char *uplo, int *n, int *nrhs,
5129
double *d__, doublecomplex *e, double *df, doublecomplex *ef,
5130
doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
5131
double *ferr, double *berr, doublecomplex *work, double *
5134
/* Subroutine */ int zptsv_(int *n, int *nrhs, double *d__,
5135
doublecomplex *e, doublecomplex *b, int *ldb, int *info);
5137
/* Subroutine */ int zptsvx_(char *fact, int *n, int *nrhs,
5138
double *d__, doublecomplex *e, double *df, doublecomplex *ef,
5139
doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
5140
double *rcond, double *ferr, double *berr, doublecomplex *
5141
work, double *rwork, int *info);
5143
/* Subroutine */ int zpttrf_(int *n, double *d__, doublecomplex *e,
5146
/* Subroutine */ int zpttrs_(char *uplo, int *n, int *nrhs,
5147
double *d__, doublecomplex *e, doublecomplex *b, int *ldb,
5150
/* Subroutine */ int zptts2_(int *iuplo, int *n, int *nrhs,
5151
double *d__, doublecomplex *e, doublecomplex *b, int *ldb);
5153
/* Subroutine */ int zrot_(int *n, doublecomplex *cx, int *incx,
5154
doublecomplex *cy, int *incy, double *c__, doublecomplex *s);
5156
/* Subroutine */ int zspcon_(char *uplo, int *n, doublecomplex *ap,
5157
int *ipiv, double *anorm, double *rcond, doublecomplex *
5160
/* Subroutine */ int zspmv_(char *uplo, int *n, doublecomplex *alpha,
5161
doublecomplex *ap, doublecomplex *x, int *incx, doublecomplex *
5162
beta, doublecomplex *y, int *incy);
5164
/* Subroutine */ int zspr_(char *uplo, int *n, doublecomplex *alpha,
5165
doublecomplex *x, int *incx, doublecomplex *ap);
5167
/* Subroutine */ int zsprfs_(char *uplo, int *n, int *nrhs,
5168
doublecomplex *ap, doublecomplex *afp, int *ipiv, doublecomplex *
5169
b, int *ldb, doublecomplex *x, int *ldx, double *ferr,
5170
double *berr, doublecomplex *work, double *rwork, int *
5173
/* Subroutine */ int zspsv_(char *uplo, int *n, int *nrhs,
5174
doublecomplex *ap, int *ipiv, doublecomplex *b, int *ldb,
5177
/* Subroutine */ int zspsvx_(char *fact, char *uplo, int *n, int *
5178
nrhs, doublecomplex *ap, doublecomplex *afp, int *ipiv,
5179
doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
5180
double *rcond, double *ferr, double *berr, doublecomplex *
5181
work, double *rwork, int *info);
5183
/* Subroutine */ int zsptrf_(char *uplo, int *n, doublecomplex *ap,
5184
int *ipiv, int *info);
5186
/* Subroutine */ int zsptri_(char *uplo, int *n, doublecomplex *ap,
5187
int *ipiv, doublecomplex *work, int *info);
5189
/* Subroutine */ int zsptrs_(char *uplo, int *n, int *nrhs,
5190
doublecomplex *ap, int *ipiv, doublecomplex *b, int *ldb,
5193
/* Subroutine */ int zstedc_(char *compz, int *n, double *d__,
5194
double *e, doublecomplex *z__, int *ldz, doublecomplex *work,
5195
int *lwork, double *rwork, int *lrwork, int *iwork,
5196
int *liwork, int *info);
5198
/* Subroutine */ int zstegr_(char *jobz, char *range, int *n, double *
5199
d__, double *e, double *vl, double *vu, int *il,
5200
int *iu, double *abstol, int *m, double *w,
5201
doublecomplex *z__, int *ldz, int *isuppz, double *work,
5202
int *lwork, int *iwork, int *liwork, int *info);
5204
/* Subroutine */ int zstein_(int *n, double *d__, double *e,
5205
int *m, double *w, int *iblock, int *isplit,
5206
doublecomplex *z__, int *ldz, double *work, int *iwork,
5207
int *ifail, int *info);
5209
/* Subroutine */ int zstemr_(char *jobz, char *range, int *n, double *
5210
d__, double *e, double *vl, double *vu, int *il,
5211
int *iu, int *m, double *w, doublecomplex *z__, int *
5212
ldz, int *nzc, int *isuppz, logical *tryrac, double *work,
5213
int *lwork, int *iwork, int *liwork, int *info);
5215
/* Subroutine */ int zsteqr_(char *compz, int *n, double *d__,
5216
double *e, doublecomplex *z__, int *ldz, double *work,
5219
/* Subroutine */ int zsycon_(char *uplo, int *n, doublecomplex *a,
5220
int *lda, int *ipiv, double *anorm, double *rcond,
5221
doublecomplex *work, int *info);
5223
/* Subroutine */ int zsymv_(char *uplo, int *n, doublecomplex *alpha,
5224
doublecomplex *a, int *lda, doublecomplex *x, int *incx,
5225
doublecomplex *beta, doublecomplex *y, int *incy);
5227
/* Subroutine */ int zsyr_(char *uplo, int *n, doublecomplex *alpha,
5228
doublecomplex *x, int *incx, doublecomplex *a, int *lda);
5230
/* Subroutine */ int zsyrfs_(char *uplo, int *n, int *nrhs,
5231
doublecomplex *a, int *lda, doublecomplex *af, int *ldaf,
5232
int *ipiv, doublecomplex *b, int *ldb, doublecomplex *x,
5233
int *ldx, double *ferr, double *berr, doublecomplex *work,
5234
double *rwork, int *info);
5236
/* Subroutine */ int zsysv_(char *uplo, int *n, int *nrhs,
5237
doublecomplex *a, int *lda, int *ipiv, doublecomplex *b,
5238
int *ldb, doublecomplex *work, int *lwork, int *info);
5240
/* Subroutine */ int zsysvx_(char *fact, char *uplo, int *n, int *
5241
nrhs, doublecomplex *a, int *lda, doublecomplex *af, int *
5242
ldaf, int *ipiv, doublecomplex *b, int *ldb, doublecomplex *x,
5243
int *ldx, double *rcond, double *ferr, double *berr,
5244
doublecomplex *work, int *lwork, double *rwork, int *info);
5246
/* Subroutine */ int zsytf2_(char *uplo, int *n, doublecomplex *a,
5247
int *lda, int *ipiv, int *info);
5249
/* Subroutine */ int zsytrf_(char *uplo, int *n, doublecomplex *a,
5250
int *lda, int *ipiv, doublecomplex *work, int *lwork,
5253
/* Subroutine */ int zsytri_(char *uplo, int *n, doublecomplex *a,
5254
int *lda, int *ipiv, doublecomplex *work, int *info);
5256
/* Subroutine */ int zsytrs_(char *uplo, int *n, int *nrhs,
5257
doublecomplex *a, int *lda, int *ipiv, doublecomplex *b,
5258
int *ldb, int *info);
5260
/* Subroutine */ int ztbcon_(char *norm, char *uplo, char *diag, int *n,
5261
int *kd, doublecomplex *ab, int *ldab, double *rcond,
5262
doublecomplex *work, double *rwork, int *info);
5264
/* Subroutine */ int ztbrfs_(char *uplo, char *trans, char *diag, int *n,
5265
int *kd, int *nrhs, doublecomplex *ab, int *ldab,
5266
doublecomplex *b, int *ldb, doublecomplex *x, int *ldx,
5267
double *ferr, double *berr, doublecomplex *work, double *
5270
/* Subroutine */ int ztbtrs_(char *uplo, char *trans, char *diag, int *n,
5271
int *kd, int *nrhs, doublecomplex *ab, int *ldab,
5272
doublecomplex *b, int *ldb, int *info);
5274
/* Subroutine */ int ztgevc_(char *side, char *howmny, logical *select,
5275
int *n, doublecomplex *s, int *lds, doublecomplex *p, int
5276
*ldp, doublecomplex *vl, int *ldvl, doublecomplex *vr, int *
5277
ldvr, int *mm, int *m, doublecomplex *work, double *rwork,
5280
/* Subroutine */ int ztgex2_(logical *wantq, logical *wantz, int *n,
5281
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
5282
doublecomplex *q, int *ldq, doublecomplex *z__, int *ldz,
5283
int *j1, int *info);
5285
/* Subroutine */ int ztgexc_(logical *wantq, logical *wantz, int *n,
5286
doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
5287
doublecomplex *q, int *ldq, doublecomplex *z__, int *ldz,
5288
int *ifst, int *ilst, int *info);
5290
/* Subroutine */ int ztgsen_(int *ijob, logical *wantq, logical *wantz,
5291
logical *select, int *n, doublecomplex *a, int *lda,
5292
doublecomplex *b, int *ldb, doublecomplex *alpha, doublecomplex *
5293
beta, doublecomplex *q, int *ldq, doublecomplex *z__, int *
5294
ldz, int *m, double *pl, double *pr, double *dif,
5295
doublecomplex *work, int *lwork, int *iwork, int *liwork,
5298
/* Subroutine */ int ztgsja_(char *jobu, char *jobv, char *jobq, int *m,
5299
int *p, int *n, int *k, int *l, doublecomplex *a,
5300
int *lda, doublecomplex *b, int *ldb, double *tola,
5301
double *tolb, double *alpha, double *beta, doublecomplex *
5302
u, int *ldu, doublecomplex *v, int *ldv, doublecomplex *q,
5303
int *ldq, doublecomplex *work, int *ncycle, int *info);
5305
/* Subroutine */ int ztgsna_(char *job, char *howmny, logical *select,
5306
int *n, doublecomplex *a, int *lda, doublecomplex *b, int
5307
*ldb, doublecomplex *vl, int *ldvl, doublecomplex *vr, int *
5308
ldvr, double *s, double *dif, int *mm, int *m,
5309
doublecomplex *work, int *lwork, int *iwork, int *info);
5311
/* Subroutine */ int ztgsy2_(char *trans, int *ijob, int *m, int *
5312
n, doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
5313
doublecomplex *c__, int *ldc, doublecomplex *d__, int *ldd,
5314
doublecomplex *e, int *lde, doublecomplex *f, int *ldf,
5315
double *scale, double *rdsum, double *rdscal, int *
5318
/* Subroutine */ int ztgsyl_(char *trans, int *ijob, int *m, int *
5319
n, doublecomplex *a, int *lda, doublecomplex *b, int *ldb,
5320
doublecomplex *c__, int *ldc, doublecomplex *d__, int *ldd,
5321
doublecomplex *e, int *lde, doublecomplex *f, int *ldf,
5322
double *scale, double *dif, doublecomplex *work, int *
5323
lwork, int *iwork, int *info);
5325
/* Subroutine */ int ztpcon_(char *norm, char *uplo, char *diag, int *n,
5326
doublecomplex *ap, double *rcond, doublecomplex *work, double
5329
/* Subroutine */ int ztprfs_(char *uplo, char *trans, char *diag, int *n,
5330
int *nrhs, doublecomplex *ap, doublecomplex *b, int *ldb,
5331
doublecomplex *x, int *ldx, double *ferr, double *berr,
5332
doublecomplex *work, double *rwork, int *info);
5334
/* Subroutine */ int ztptri_(char *uplo, char *diag, int *n,
5335
doublecomplex *ap, int *info);
5337
/* Subroutine */ int ztptrs_(char *uplo, char *trans, char *diag, int *n,
5338
int *nrhs, doublecomplex *ap, doublecomplex *b, int *ldb,
5341
/* Subroutine */ int ztrcon_(char *norm, char *uplo, char *diag, int *n,
5342
doublecomplex *a, int *lda, double *rcond, doublecomplex *
5343
work, double *rwork, int *info);
5345
/* Subroutine */ int ztrevc_(char *side, char *howmny, logical *select,
5346
int *n, doublecomplex *t, int *ldt, doublecomplex *vl,
5347
int *ldvl, doublecomplex *vr, int *ldvr, int *mm, int
5348
*m, doublecomplex *work, double *rwork, int *info);
5350
/* Subroutine */ int ztrexc_(char *compq, int *n, doublecomplex *t,
5351
int *ldt, doublecomplex *q, int *ldq, int *ifst, int *
5354
/* Subroutine */ int ztrrfs_(char *uplo, char *trans, char *diag, int *n,
5355
int *nrhs, doublecomplex *a, int *lda, doublecomplex *b,
5356
int *ldb, doublecomplex *x, int *ldx, double *ferr,
5357
double *berr, doublecomplex *work, double *rwork, int *
5360
/* Subroutine */ int ztrsen_(char *job, char *compq, logical *select, int
5361
*n, doublecomplex *t, int *ldt, doublecomplex *q, int *ldq,
5362
doublecomplex *w, int *m, double *s, double *sep,
5363
doublecomplex *work, int *lwork, int *info);
5365
/* Subroutine */ int ztrsna_(char *job, char *howmny, logical *select,
5366
int *n, doublecomplex *t, int *ldt, doublecomplex *vl,
5367
int *ldvl, doublecomplex *vr, int *ldvr, double *s,
5368
double *sep, int *mm, int *m, doublecomplex *work,
5369
int *ldwork, double *rwork, int *info);
5371
/* Subroutine */ int ztrsyl_(char *trana, char *tranb, int *isgn, int
5372
*m, int *n, doublecomplex *a, int *lda, doublecomplex *b,
5373
int *ldb, doublecomplex *c__, int *ldc, double *scale,
5376
/* Subroutine */ int ztrti2_(char *uplo, char *diag, int *n,
5377
doublecomplex *a, int *lda, int *info);
5379
/* Subroutine */ int ztrtri_(char *uplo, char *diag, int *n,
5380
doublecomplex *a, int *lda, int *info);
5382
/* Subroutine */ int ztrtrs_(char *uplo, char *trans, char *diag, int *n,
5383
int *nrhs, doublecomplex *a, int *lda, doublecomplex *b,
5384
int *ldb, int *info);
5386
/* Subroutine */ int ztzrqf_(int *m, int *n, doublecomplex *a,
5387
int *lda, doublecomplex *tau, int *info);
5389
/* Subroutine */ int ztzrzf_(int *m, int *n, doublecomplex *a,
5390
int *lda, doublecomplex *tau, doublecomplex *work, int *lwork,
5393
/* Subroutine */ int zung2l_(int *m, int *n, int *k,
5394
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5397
/* Subroutine */ int zung2r_(int *m, int *n, int *k,
5398
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5401
/* Subroutine */ int zungbr_(char *vect, int *m, int *n, int *k,
5402
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5403
work, int *lwork, int *info);
5405
/* Subroutine */ int zunghr_(int *n, int *ilo, int *ihi,
5406
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5407
work, int *lwork, int *info);
5409
/* Subroutine */ int zungl2_(int *m, int *n, int *k,
5410
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5413
/* Subroutine */ int zunglq_(int *m, int *n, int *k,
5414
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5415
work, int *lwork, int *info);
5417
/* Subroutine */ int zungql_(int *m, int *n, int *k,
5418
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5419
work, int *lwork, int *info);
5421
/* Subroutine */ int zungqr_(int *m, int *n, int *k,
5422
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5423
work, int *lwork, int *info);
5425
/* Subroutine */ int zungr2_(int *m, int *n, int *k,
5426
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5429
/* Subroutine */ int zungrq_(int *m, int *n, int *k,
5430
doublecomplex *a, int *lda, doublecomplex *tau, doublecomplex *
5431
work, int *lwork, int *info);
5433
/* Subroutine */ int zungtr_(char *uplo, int *n, doublecomplex *a,
5434
int *lda, doublecomplex *tau, doublecomplex *work, int *lwork,
5437
/* Subroutine */ int zunm2l_(char *side, char *trans, int *m, int *n,
5438
int *k, doublecomplex *a, int *lda, doublecomplex *tau,
5439
doublecomplex *c__, int *ldc, doublecomplex *work, int *info);
5441
/* Subroutine */ int zunm2r_(char *side, char *trans, int *m, int *n,
5442
int *k, doublecomplex *a, int *lda, doublecomplex *tau,
5443
doublecomplex *c__, int *ldc, doublecomplex *work, int *info);
5445
/* Subroutine */ int zunmbr_(char *vect, char *side, char *trans, int *m,
5446
int *n, int *k, doublecomplex *a, int *lda, doublecomplex
5447
*tau, doublecomplex *c__, int *ldc, doublecomplex *work, int *
5450
/* Subroutine */ int zunmhr_(char *side, char *trans, int *m, int *n,
5451
int *ilo, int *ihi, doublecomplex *a, int *lda,
5452
doublecomplex *tau, doublecomplex *c__, int *ldc, doublecomplex *
5453
work, int *lwork, int *info);
5455
/* Subroutine */ int zunml2_(char *side, char *trans, int *m, int *n,
5456
int *k, doublecomplex *a, int *lda, doublecomplex *tau,
5457
doublecomplex *c__, int *ldc, doublecomplex *work, int *info);
5459
/* Subroutine */ int zunmlq_(char *side, char *trans, int *m, int *n,
5460
int *k, doublecomplex *a, int *lda, doublecomplex *tau,
5461
doublecomplex *c__, int *ldc, doublecomplex *work, int *lwork,
5464
/* Subroutine */ int zunmql_(char *side, char *trans, int *m, int *n,
5465
int *k, doublecomplex *a, int *lda, doublecomplex *tau,
5466
doublecomplex *c__, int *ldc, doublecomplex *work, int *lwork,
5469
/* Subroutine */ int zunmqr_(char *side, char *trans, int *m, int *n,
5470
int *k, doublecomplex *a, int *lda, doublecomplex *tau,
5471
doublecomplex *c__, int *ldc, doublecomplex *work, int *lwork,
5474
/* Subroutine */ int zunmr2_(char *side, char *trans, int *m, int *n,
5475
int *k, doublecomplex *a, int *lda, doublecomplex *tau,
5476
doublecomplex *c__, int *ldc, doublecomplex *work, int *info);
5478
/* Subroutine */ int zunmr3_(char *side, char *trans, int *m, int *n,
5479
int *k, int *l, doublecomplex *a, int *lda, doublecomplex
5480
*tau, doublecomplex *c__, int *ldc, doublecomplex *work, int *
5483
/* Subroutine */ int zunmrq_(char *side, char *trans, int *m, int *n,
5484
int *k, doublecomplex *a, int *lda, doublecomplex *tau,
5485
doublecomplex *c__, int *ldc, doublecomplex *work, int *lwork,
5488
/* Subroutine */ int zunmrz_(char *side, char *trans, int *m, int *n,
5489
int *k, int *l, doublecomplex *a, int *lda, doublecomplex
5490
*tau, doublecomplex *c__, int *ldc, doublecomplex *work, int *
5493
/* Subroutine */ int zunmtr_(char *side, char *uplo, char *trans, int *m,
5494
int *n, doublecomplex *a, int *lda, doublecomplex *tau,
5495
doublecomplex *c__, int *ldc, doublecomplex *work, int *lwork,
5498
/* Subroutine */ int zupgtr_(char *uplo, int *n, doublecomplex *ap,
5499
doublecomplex *tau, doublecomplex *q, int *ldq, doublecomplex *
5502
/* Subroutine */ int zupmtr_(char *side, char *uplo, char *trans, int *m,
5503
int *n, doublecomplex *ap, doublecomplex *tau, doublecomplex *c__,
5504
int *ldc, doublecomplex *work, int *info);