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