1 #ifndef _clapack_h_
2 #define _clapack_h_
3 
4 #include "melder.h"
5 
6 	/* double precision version of CLAPACK 3.2.1 interface */
7 
8 void chla_transtype__(char *ret_val, integer ret_val_len, integer *trans);
9 
10 int dbdsdc_(const char *uplo, const char *compq, integer *n, double *
11 	d__, double *e, double *u, integer *ldu, double *vt,
12 	integer *ldvt, double *q, integer *iq, double *work, integer *
13 	iwork, integer *info);
14 
15 int dbdsqr_(const char *uplo, integer *n, integer *ncvt, integer *
16 	nru, integer *ncc, double *d__, double *e, double *vt,
17 	integer *ldvt, double *u, integer *ldu, double *c__, integer *
18 	ldc, double *work, integer *info);
19 
20 int ddisna_(const char *job, integer *m, integer *n, double *d__, double *sep, integer *info);
21 
22 int dgbbrd_(const char *vect, integer *m, integer *n, integer *ncc,
23 	integer *kl, integer *ku, double *ab, integer *ldab, double *
24 	d__, double *e, double *q, integer *ldq, double *pt,
25 	integer *ldpt, double *c__, integer *ldc, double *work,
26 	integer *info);
27 
28 int dgbcon_(const char *norm, integer *n, integer *kl, integer *ku,
29 	double *ab, integer *ldab, integer *ipiv, double *anorm,
30 	double *rcond, double *work, integer *iwork, integer *info);
31 
32 int dgbequ_(integer *m, integer *n, integer *kl, integer *ku,
33 	double *ab, integer *ldab, double *r__, double *c__,
34 	double *rowcnd, double *colcnd, double *amax, integer *
35 	info);
36 
37 int dgbequb_(integer *m, integer *n, integer *kl, integer *
38 	ku, double *ab, integer *ldab, double *r__, double *c__,
39 	double *rowcnd, double *colcnd, double *amax, integer *info);
40 
41 int dgbrfs_(const char *trans, integer *n, integer *kl, integer *
42 	ku, integer *nrhs, double *ab, integer *ldab, double *afb,
43 	integer *ldafb, integer *ipiv, double *b, integer *ldb,
44 	double *x, integer *ldx, double *ferr, double *berr,
45 	double *work, integer *iwork, integer *info);
46 
47 int dgbrfsx_(const char *trans, const char *equed, integer *n, integer *
48 	kl, integer *ku, integer *nrhs, double *ab, integer *ldab,
49 	double *afb, integer *ldafb, integer *ipiv, double *r__,
50 	double *c__, double *b, integer *ldb, double *x, integer *
51 	ldx, double *rcond, double *berr, integer *n_err_bnds__,
52 	double *err_bnds_norm__, double *err_bnds_comp__, integer *
53 	nparams, double *params, double *work, integer *iwork, integer *info);
54 
55 int dgbsv_(integer *n, integer *kl, integer *ku, integer *nrhs, double *ab, integer *ldab,
56 	integer *ipiv, double *b, integer *ldb, integer *info);
57 
58 int dgbsvxx_(const char *fact, const char *trans, integer *n, integer *
59 	kl, integer *ku, integer *nrhs, double *ab, integer *ldab,
60 	double *afb, integer *ldafb, integer *ipiv, char *equed,
61 	double *r__, double *c__, double *b, integer *ldb,
62 	double *x, integer *ldx, double *rcond, double *rpvgrw,
63 	double *berr, integer *n_err_bnds__, double *err_bnds_norm__,
64 	double *err_bnds_comp__, integer *nparams, double *params,
65 	double *work, integer *iwork, integer *info);
66 
67 int dgbsvx_(const char *fact, const char *trans, integer *n, integer *kl,
68 	integer *ku, integer *nrhs, double *ab, integer *ldab,
69 	double *afb, integer *ldafb, integer *ipiv, char *equed,
70 	double *r__, double *c__, double *b, integer *ldb,
71 	double *x, integer *ldx, double *rcond, double *ferr,
72 	double *berr, double *work, integer *iwork, integer *info);
73 
74 int dgbtf2_(integer *m, integer *n, integer *kl, integer *ku,
75 	double *ab, integer *ldab, integer *ipiv, integer *info);
76 
77 int dgbtrf_(integer *m, integer *n, integer *kl, integer *ku,
78 	double *ab, integer *ldab, integer *ipiv, integer *info);
79 
80 int dgbtrs_(const char *trans, integer *n, integer *kl, integer *
81 	ku, integer *nrhs, double *ab, integer *ldab, integer *ipiv,
82 	double *b, integer *ldb, integer *info);
83 
84 int dgebak_(const char *job, const char *side, integer *n, integer *ilo,
85 	integer *ihi, double *scale, integer *m, double *v, integer *
86 	ldv, integer *info);
87 
88 int dgebal_(const char *job, integer *n, double *a, integer *
89 	lda, integer *ilo, integer *ihi, double *scale, integer *info);
90 
91 int dgebd2_(integer *m, integer *n, double *a, integer *
92 	lda, double *d__, double *e, double *tauq, double *
93 	taup, double *work, integer *info);
94 
95 int dgebrd_(integer *m, integer *n, double *a, integer *
96 	lda, double *d__, double *e, double *tauq, double *
97 	taup, double *work, integer *lwork, integer *info);
98 
99 int dgecon_(const char *norm, integer *n, double *a, integer *
100 	lda, double *anorm, double *rcond, double *work, integer *
101 	iwork, integer *info);
102 
103 int dgeequ_(integer *m, integer *n, double *a, integer *
104 	lda, double *r__, double *c__, double *rowcnd, double
105 	*colcnd, double *amax, integer *info);
106 
107 int dgeequb_(integer *m, integer *n, double *a, integer *lda, double *r__, double *c__,
108 	double *rowcnd, double *colcnd, double *amax, integer *info);
109 
110 int dgees_(const char *jobvs, const char *sort, bool (*select)(const double *, const double *),
111 	integer *n, double *a, integer *lda, integer *sdim, double *wr,
112 	double *wi, double *vs, integer *ldvs, double *work,
113 	integer *lwork, bool *bwork, integer *info);
114 
115 int dgeesx_(const char *jobvs, const char *sort, bool (*select)(const double *, const double *),
116 	const char *sense, integer *n, double *a, integer *lda, integer *sdim,
117 	double *wr, double *wi, double *vs, integer *ldvs,
118 	double *rconde, double *rcondv, double *work, integer *
119 	lwork, integer *iwork, integer *liwork, bool *bwork, integer *info);
120 
121 int dgeev_(const char *jobvl, const char *jobvr, integer *n, double *a, integer *lda,
122 	double *wr,	double *wi, double *vl, integer *ldvl, double *vr, integer *ldvr,
123 	double *work, integer *lwork, integer *info);
124 
125 int dgeevx_(const char *balanc, const char *jobvl, const char *jobvr, const char *
126 	sense, integer *n, double *a, integer *lda, double *wr,
127 	double *wi, double *vl, integer *ldvl, double *vr,
128 	integer *ldvr, integer *ilo, integer *ihi, double *scale,
129 	double *abnrm, double *rconde, double *rcondv, double
130 	*work, integer *lwork, integer *iwork, integer *info);
131 
132 int dgegs_(const char *jobvsl, const char *jobvsr, integer *n,
133 	double *a, integer *lda, double *b, integer *ldb, double *
134 	alphar, double *alphai, double *beta, double *vsl,
135 	integer *ldvsl, double *vsr, integer *ldvsr, double *work,
136 	integer *lwork, integer *info);
137 
138 int dgegv_(const char *jobvl, const char *jobvr, integer *n, double *
139 	a, integer *lda, double *b, integer *ldb, double *alphar,
140 	double *alphai, double *beta, double *vl, integer *ldvl,
141 	double *vr, integer *ldvr, double *work, integer *lwork,
142 	integer *info);
143 
144 int dgehd2_(integer *n, integer *ilo, integer *ihi,
145 	double *a, integer *lda, double *tau, double *work,
146 	integer *info);
147 
148 int dgehrd_(integer *n, integer *ilo, integer *ihi,
149 	double *a, integer *lda, double *tau, double *work,
150 	integer *lwork, integer *info);
151 
152 int dgelq2_(integer *m, integer *n, double *a, integer *
153 	lda, double *tau, double *work, integer *info);
154 
155 int dgelqf_(integer *m, integer *n, double *a, integer *
156 	lda, double *tau, double *work, integer *lwork, integer *info);
157 
158 int dgels_(const char *trans, integer *m, integer *n, integer *
159 	nrhs, double *a, integer *lda, double *b, integer *ldb,
160 	double *work, integer *lwork, integer *info);
161 
162 int dgelsd_(integer *m, integer *n, integer *nrhs,
163 	double *a, integer *lda, double *b, integer *ldb, double *
164 	s, double *rcond, integer *rank, double *work, integer *lwork,
165 	 integer *iwork, integer *info);
166 
167 int dgelss_(integer *m, integer *n, integer *nrhs,
168 	double *a, integer *lda, double *b, integer *ldb, double *
169 	s, double *rcond, integer *rank, double *work, integer *lwork,
170 	 integer *info);
171 
172 int dgelsx_(integer *m, integer *n, integer *nrhs,
173 	double *a, integer *lda, double *b, integer *ldb, integer *
174 	jpvt, double *rcond, integer *rank, double *work, integer *
175 	info);
176 
177 int dgelsy_(integer *m, integer *n, integer *nrhs,
178 	double *a, integer *lda, double *b, integer *ldb, integer *
179 	jpvt, double *rcond, integer *rank, double *work, integer *
180 	lwork, integer *info);
181 
182 int dgeql2_(integer *m, integer *n, double *a, integer *
183 	lda, double *tau, double *work, integer *info);
184 
185 int dgeqlf_(integer *m, integer *n, double *a, integer *
186 	lda, double *tau, double *work, integer *lwork, integer *info);
187 
188 int dgeqp3_(integer *m, integer *n, double *a, integer *
189 	lda, integer *jpvt, double *tau, double *work, integer *lwork,
190 	integer *info);
191 
192 int dgeqpf_(integer *m, integer *n, double *a, integer *
193 	lda, integer *jpvt, double *tau, double *work, integer *info);
194 
195 int dgeqr2_(integer *m, integer *n, double *a, integer *
196 	lda, double *tau, double *work, integer *info);
197 
198 int dgeqrf_(integer *m, integer *n, double *a, integer *
199 	lda, double *tau, double *work, integer *lwork, integer *info);
200 
201 int dgerfs_(const char *trans, integer *n, integer *nrhs,
202 	double *a, integer *lda, double *af, integer *ldaf, integer *
203 	ipiv, double *b, integer *ldb, double *x, integer *ldx,
204 	double *ferr, double *berr, double *work, integer *iwork,
205 	integer *info);
206 
207 int dgerq2_(integer *m, integer *n, double *a, integer *
208 	lda, double *tau, double *work, integer *info);
209 
210 int dgerqf_(integer *m, integer *n, double *a, integer *
211 	lda, double *tau, double *work, integer *lwork, integer *info);
212 
213 int dgesc2_(integer *n, double *a, integer *lda,
214 	double *rhs, integer *ipiv, integer *jpiv, double *scale);
215 
216 int dgesdd_(const char *jobz, integer *m, integer *n, double *
217 	a, integer *lda, double *s, double *u, integer *ldu,
218 	double *vt, integer *ldvt, double *work, integer *lwork,
219 	integer *iwork, integer *info);
220 
221 int dgesv_(integer *n, integer *nrhs, double *a, integer
222 	*lda, integer *ipiv, double *b, integer *ldb, integer *info);
223 
224 int dgesvd_(const char *jobu, const char *jobvt, integer *m, integer *n,
225 	double *a, integer *lda, double *s, double *u, integer *
226 	ldu, double *vt, integer *ldvt, double *work, integer *lwork,
227 	integer *info);
228 
229 int dgesvx_(const char *fact, const char *trans, integer *n, integer *
230 	nrhs, double *a, integer *lda, double *af, integer *ldaf,
231 	integer *ipiv, char *equed, double *r__, double *c__,
232 	double *b, integer *ldb, double *x, integer *ldx, double *
233 	rcond, double *ferr, double *berr, double *work, integer *
234 	iwork, integer *info);
235 
236 int dgetc2_(integer *n, double *a, integer *lda, integer *ipiv, integer *jpiv, integer *info);
237 
238 int dgetf2_(integer *m, integer *n, double *a, integer *lda, integer *ipiv, integer *info);
239 
240 int dgetrf_(integer *m, integer *n, double *a, integer *lda, integer *ipiv, integer *info);
241 
242 int dgetri_(integer *n, double *a, integer *lda, integer *ipiv, double *work, integer *lwork, integer *info);
243 
244 int dgetrs_(const char *trans, integer *n, integer *nrhs,
245 	double *a, integer *lda, integer *ipiv, double *b, integer *
246 	ldb, integer *info);
247 
248 int dggbak_(const char *job, const char *side, integer *n, integer *ilo,
249 	integer *ihi, double *lscale, double *rscale, integer *m,
250 	double *v, integer *ldv, integer *info);
251 
252 int dggbal_(const char *job, integer *n, double *a, integer *
253 	lda, double *b, integer *ldb, integer *ilo, integer *ihi,
254 	double *lscale, double *rscale, double *work, integer *
255 	info);
256 
257 int dgges_(const char *jobvsl, const char *jobvsr, const char *sort,
258 	bool (*selctg)(const double *, const double *, const double *),
259 	integer *n, double *a, integer *lda, double *b,
260 	integer *ldb, integer *sdim, double *alphar, double *alphai,
261 	double *beta, double *vsl, integer *ldvsl, double *vsr,
262 	integer *ldvsr, double *work, integer *lwork, bool *bwork,
263 	integer *info);
264 
265 int dggesx_(const char *jobvsl, const char *jobvsr, const char *sort,
266 	bool (*selctg)(const double *, const double *, const double *),
267 	const char *sense, integer *n, double *a, integer *lda,
268 	double *b, integer *ldb, integer *sdim, double *alphar,
269 	double *alphai, double *beta, double *vsl, integer *ldvsl,
270 	 double *vsr, integer *ldvsr, double *rconde, double *
271 	rcondv, double *work, integer *lwork, integer *iwork, integer *
272 	liwork, bool *bwork, integer *info);
273 
274 int dggev_(const char *jobvl, const char *jobvr, integer *n, double *
275 	a, integer *lda, double *b, integer *ldb, double *alphar,
276 	double *alphai, double *beta, double *vl, integer *ldvl,
277 	double *vr, integer *ldvr, double *work, integer *lwork,
278 	integer *info);
279 
280 int dggevx_(const char *balanc, const char *jobvl, const char *jobvr, const char *
281 	sense, integer *n, double *a, integer *lda, double *b,
282 	integer *ldb, double *alphar, double *alphai, double *
283 	beta, double *vl, integer *ldvl, double *vr, integer *ldvr,
284 	integer *ilo, integer *ihi, double *lscale, double *rscale,
285 	double *abnrm, double *bbnrm, double *rconde, double *
286 	rcondv, double *work, integer *lwork, integer *iwork, bool *
287 	bwork, integer *info);
288 
289 int dggglm_(integer *n, integer *m, integer *p, double *
290 	a, integer *lda, double *b, integer *ldb, double *d__,
291 	double *x, double *y, double *work, integer *lwork,
292 	integer *info);
293 
294 int dgghrd_(const char *compq, const char *compz, integer *n, integer *
295 	ilo, integer *ihi, double *a, integer *lda, double *b,
296 	integer *ldb, double *q, integer *ldq, double *z__, integer *
297 	ldz, integer *info);
298 
299 int dgglse_(integer *m, integer *n, integer *p, double *
300 	a, integer *lda, double *b, integer *ldb, double *c__,
301 	double *d__, double *x, double *work, integer *lwork,
302 	integer *info);
303 
304 int dggqrf_(integer *n, integer *m, integer *p, double *
305 	a, integer *lda, double *taua, double *b, integer *ldb,
306 	double *taub, double *work, integer *lwork, integer *info);
307 
308 int dggrqf_(integer *m, integer *p, integer *n, double *
309 	a, integer *lda, double *taua, double *b, integer *ldb,
310 	double *taub, double *work, integer *lwork, integer *info);
311 
312 int dggsvd_(const char *jobu, const char *jobv, const char *jobq, integer *m,
313 	integer *n, integer *p, integer *k, integer *l, double *a,
314 	integer *lda, double *b, integer *ldb, double *alpha,
315 	double *beta, double *u, integer *ldu, double *v, integer
316 	*ldv, double *q, integer *ldq, double *work, integer *iwork,
317 	integer *info);
318 
319 int dggsvp_(const char *jobu, const char *jobv, const char *jobq, integer *m,
320 	integer *p, integer *n, double *a, integer *lda, double *b,
321 	integer *ldb, double *tola, double *tolb, integer *k, integer
322 	*l, double *u, integer *ldu, double *v, integer *ldv,
323 	double *q, integer *ldq, integer *iwork, double *tau,
324 	double *work, integer *info);
325 
326 int dgtcon_(const char *norm, integer *n, double *dl,
327 	double *d__, double *du, double *du2, integer *ipiv,
328 	double *anorm, double *rcond, double *work, integer *
329 	iwork, integer *info);
330 
331 int dgtrfs_(const char *trans, integer *n, integer *nrhs,
332 	double *dl, double *d__, double *du, double *dlf,
333 	double *df, double *duf, double *du2, integer *ipiv,
334 	double *b, integer *ldb, double *x, integer *ldx, double *
335 	ferr, double *berr, double *work, integer *iwork, integer *
336 	info);
337 
338 int dgtsv_(integer *n, integer *nrhs, double *dl,
339 	double *d__, double *du, double *b, integer *ldb, integer
340 	*info);
341 
342 int dgtsvx_(const char *fact, const char *trans, integer *n, integer *
343 	nrhs, double *dl, double *d__, double *du, double *
344 	dlf, double *df, double *duf, double *du2, integer *ipiv,
345 	double *b, integer *ldb, double *x, integer *ldx, double *
346 	rcond, double *ferr, double *berr, double *work, integer *
347 	iwork, integer *info);
348 
349 int dgttrf_(integer *n, double *dl, double *d__,
350 	double *du, double *du2, integer *ipiv, integer *info);
351 
352 int dgttrs_(const char *trans, integer *n, integer *nrhs,
353 	double *dl, double *d__, double *du, double *du2,
354 	integer *ipiv, double *b, integer *ldb, integer *info);
355 
356 int dgtts2_(integer *itrans, integer *n, integer *nrhs,
357 	double *dl, double *d__, double *du, double *du2,
358 	integer *ipiv, double *b, integer *ldb);
359 
360 int dhgeqz_(const char *job, const char *compq, const char *compz, integer *n,
361 	integer *ilo, integer *ihi, double *h__, integer *ldh, double
362 	*t, integer *ldt, double *alphar, double *alphai, double *
363 	beta, double *q, integer *ldq, double *z__, integer *ldz,
364 	double *work, integer *lwork, integer *info);
365 
366 int dhsein_(const char *side, const char *eigsrc, const char *initv, bool *
367 	select, integer *n, double *h__, integer *ldh, double *wr,
368 	double *wi, double *vl, integer *ldvl, double *vr,
369 	integer *ldvr, integer *mm, integer *m, double *work, integer *
370 	ifaill, integer *ifailr, integer *info);
371 
372 int dhseqr_(const char *job, const char *compz, integer *n, integer *ilo, integer *ihi,
373 	double *h__, integer *ldh, double *wr, double *wi, double *z__, integer *ldz,
374 	double *work, integer *lwork, integer *info);
375 
376 bool disnan_(double *din);
377 
378 double dla_gbrcond__(const char *trans, integer *n, integer *kl, integer *ku,
379 	double *ab, integer *ldab, double *afb, integer *ldafb,
380 	integer *ipiv, integer *cmode, double *c__, integer *info,
381 	double *work, integer *iwork, integer trans_len);
382 
383 int dla_gbrfsx_extended__(integer *prec_type__, integer *
384 	trans_type__, integer *n, integer *kl, integer *ku, integer *nrhs,
385 	double *ab, integer *ldab, double *afb, integer *ldafb,
386 	integer *ipiv, bool *colequ, double *c__, double *b,
387 	integer *ldb, double *y, integer *ldy, double *berr_out__,
388 	integer *n_norms__, double *err_bnds_norm__, double *
389 	err_bnds_comp__, double *res, double *ayb, double *dy,
390 	double *y_tail__, double *rcond, integer *ithresh, double
391 	*rthresh, double *dz_ub__, bool *ignore_cwise__, integer *info);
392 
393 double dla_gbrpvgrw__(integer *n, integer *kl, integer *ku, integer *ncols,
394 	double *ab, integer *ldab, double *afb, integer *ldafb);
395 
396 double dla_porcond__(const char *uplo, integer *n, double *a, integer *lda,
397 	double *af, integer *ldaf, integer *cmode, double *c__,
398 	integer *info, double *work, integer *iwork, integer uplo_len);
399 
400 int dla_wwaddw__(integer *n, double *x, double *y, double *w);
401 
402 int dlabad_(double *small, double *large);
403 
404 int dlabrd_(integer *m, integer *n, integer *nb, double *
405 	a, integer *lda, double *d__, double *e, double *tauq,
406 	double *taup, double *x, integer *ldx, double *y, integer
407 	*ldy);
408 
409 int dlacn2_(integer *n, double *v, double *x,
410 	integer *isgn, double *est, integer *kase, integer *isave);
411 
412 int dlacon_(integer *n, double *v, double *x,
413 	integer *isgn, double *est, integer *kase);
414 
415 int dlacpy_(const char *uplo, integer *m, integer *n, double *
416 	a, integer *lda, double *b, integer *ldb);
417 
418 int dladiv_(double *a, double *b, double *c__,
419 	double *d__, double *p, double *q);
420 
421 int dlae2_(double *a, double *b, double *c__,
422 	double *rt1, double *rt2);
423 
424 int dlaebz_(integer *ijob, integer *nitmax, integer *n,
425 	integer *mmax, integer *minp, integer *nbmin, double *abstol,
426 	double *reltol, double *pivmin, double *d__, double *
427 	e, double *e2, integer *nval, double *ab, double *c__,
428 	integer *mout, integer *nab, double *work, integer *iwork,
429 	integer *info);
430 
431 int dlaed0_(integer *icompq, integer *qsiz, integer *n,
432 	double *d__, double *e, double *q, integer *ldq,
433 	double *qstore, integer *ldqs, double *work, integer *iwork,
434 	integer *info);
435 
436 int dlaed1_(integer *n, double *d__, double *q,
437 	integer *ldq, integer *indxq, double *rho, integer *cutpnt,
438 	double *work, integer *iwork, integer *info);
439 
440 int dlaed2_(integer *k, integer *n, integer *n1, double *
441 	d__, double *q, integer *ldq, integer *indxq, double *rho,
442 	double *z__, double *dlamda, double *w, double *q2,
443 	integer *indx, integer *indxc, integer *indxp, integer *coltyp,
444 	integer *info);
445 
446 int dlaed3_(integer *k, integer *n, integer *n1, double *
447 	d__, double *q, integer *ldq, double *rho, double *dlamda,
448 	double *q2, integer *indx, integer *ctot, double *w,
449 	double *s, integer *info);
450 
451 int dlaed4_(integer *n, integer *i__, double *d__,
452 	double *z__, double *delta, double *rho, double *dlam,
453 	integer *info);
454 
455 int dlaed5_(integer *i__, double *d__, double *z__,
456 	double *delta, double *rho, double *dlam);
457 
458 int dlaed6_(integer *kniter, bool *orgati, double *
459 	rho, double *d__, double *z__, double *finit, double *
460 	tau, integer *info);
461 
462 int dlaed7_(integer *icompq, integer *n, integer *qsiz,
463 	integer *tlvls, integer *curlvl, integer *curpbm, double *d__,
464 	double *q, integer *ldq, integer *indxq, double *rho, integer
465 	*cutpnt, double *qstore, integer *qptr, integer *prmptr, integer *
466 	perm, integer *givptr, integer *givcol, double *givnum,
467 	double *work, integer *iwork, integer *info);
468 
469 int dlaed8_(integer *icompq, integer *k, integer *n, integer
470 	*qsiz, double *d__, double *q, integer *ldq, integer *indxq,
471 	double *rho, integer *cutpnt, double *z__, double *dlamda,
472 	double *q2, integer *ldq2, double *w, integer *perm, integer
473 	*givptr, integer *givcol, double *givnum, integer *indxp, integer
474 	*indx, integer *info);
475 
476 int dlaed9_(integer *k, integer *kstart, integer *kstop,
477 	integer *n, double *d__, double *q, integer *ldq, double *
478 	rho, double *dlamda, double *w, double *s, integer *lds,
479 	integer *info);
480 
481 int dlaeda_(integer *n, integer *tlvls, integer *curlvl,
482 	integer *curpbm, integer *prmptr, integer *perm, integer *givptr,
483 	integer *givcol, double *givnum, double *q, integer *qptr,
484 	double *z__, double *ztemp, integer *info);
485 
486 int dlaein_(bool *rightv, bool *noinit, integer *n,
487 	double *h__, integer *ldh, double *wr, double *wi,
488 	double *vr, double *vi, double *b, integer *ldb,
489 	double *work, double *eps3, double *smlnum, double *
490 	bignum, integer *info);
491 
492 int dlaev2_(double *a, double *b, double *c__,
493 	double *rt1, double *rt2, double *cs1, double *sn1);
494 
495 int dlaexc_(bool *wantq, integer *n, double *t,
496 	integer *ldt, double *q, integer *ldq, integer *j1, integer *n1,
497 	integer *n2, double *work, integer *info);
498 
499 int dlag2_(double *a, integer *lda, double *b, integer *ldb, double *safmin, double *scale1,
500 	double *scale2, double *wr1, double *wr2, double *wi);
501 
502 int dlag2s_(integer *m, integer *n, double *a, integer *lda, float *sa, integer *ldsa, integer *info);
503 
504 int dlags2_(bool *upper, double *a1, double *a2,
505 	double *a3, double *b1, double *b2, double *b3,
506 	double *csu, double *snu, double *csv, double *snv,
507 	double *csq, double *snq);
508 
509 int dlagtf_(integer *n, double *a, double *lambda,
510 	double *b, double *c__, double *tol, double *d__,
511 	integer *in, integer *info);
512 
513 int dlagtm_(const char *trans, integer *n, integer *nrhs,
514 	double *alpha, double *dl, double *d__, double *du,
515 	double *x, integer *ldx, double *beta, double *b, integer
516 	*ldb);
517 
518 int dlagts_(integer *job, integer *n, double *a,
519 	double *b, double *c__, double *d__, integer *in,
520 	double *y, double *tol, integer *info);
521 
522 int dlagv2_(double *a, integer *lda, double *b,
523 	integer *ldb, double *alphar, double *alphai, double *
524 	beta, double *csl, double *snl, double *csr, double *
525 	snr);
526 
527 int dlahqr_(bool *wantt, bool *wantz, integer *n,
528 	integer *ilo, integer *ihi, double *h__, integer *ldh, double
529 	*wr, double *wi, integer *iloz, integer *ihiz, double *z__,
530 	integer *ldz, integer *info);
531 
532 int dlahr2_(integer *n, integer *k, integer *nb, double *
533 	a, integer *lda, double *tau, double *t, integer *ldt,
534 	double *y, integer *ldy);
535 
536 int dlahrd_(integer *n, integer *k, integer *nb, double *
537 	a, integer *lda, double *tau, double *t, integer *ldt,
538 	double *y, integer *ldy);
539 
540 int dlaic1_(integer *job, integer *j, double *x,
541 	double *sest, double *w, double *gamma, double *
542 	sestpr, double *s, double *c__);
543 
544 bool dlaisnan_(double *din1, double *din2);
545 
546 int dlaln2_(bool *ltrans, integer *na, integer *nw,
547 	double *smin, double *ca, double *a, integer *lda,
548 	double *d1, double *d2, double *b, integer *ldb,
549 	double *wr, double *wi, double *x, integer *ldx,
550 	double *scale, double *xnorm, integer *info);
551 
552 int dlals0_(integer *icompq, integer *nl, integer *nr,
553 	integer *sqre, integer *nrhs, double *b, integer *ldb, double
554 	*bx, integer *ldbx, integer *perm, integer *givptr, integer *givcol,
555 	integer *ldgcol, double *givnum, integer *ldgnum, double *
556 	poles, double *difl, double *difr, double *z__, integer *
557 	k, double *c__, double *s, double *work, integer *info);
558 
559 int dlalsa_(integer *icompq, integer *smlsiz, integer *n,
560 	integer *nrhs, double *b, integer *ldb, double *bx, integer *
561 	ldbx, double *u, integer *ldu, double *vt, integer *k,
562 	double *difl, double *difr, double *z__, double *
563 	poles, integer *givptr, integer *givcol, integer *ldgcol, integer *
564 	perm, double *givnum, double *c__, double *s, double *
565 	work, integer *iwork, integer *info);
566 
567 int dlalsd_(const char *uplo, integer *smlsiz, integer *n, integer
568 	*nrhs, double *d__, double *e, double *b, integer *ldb,
569 	double *rcond, integer *rank, double *work, integer *iwork,
570 	integer *info);
571 
572 int dlamc1_ (integer *beta, integer *t, bool *rnd, bool *ieee1);
573 
574 int dlamc2_ (integer *beta, integer *t, bool *rnd,
575 	double *eps, integer *emin, double *rmin, integer *emax, double *rmax);
576 
577 double dlamc3_ (double *a, double *b);
578 
579 int dlamc4_ (integer *emin, double *start, integer *base);
580 
581 int dlamc5_ (integer *beta, integer *p, integer *emin,
582 	bool *ieee, integer *emax, double *rmax);
583 
584 double dlamch_ (const char *cmach);
585 
586 int dlamrg_(integer *n1, integer *n2, double *a, integer
587 	*dtrd1, integer *dtrd2, integer *index);
588 
589 integer dlaneg_(integer *n, double *d__, double *lld, double *
590 	sigma, double *pivmin, integer *r__);
591 
592 double dlangb_(const char *norm, integer *n, integer *kl, integer *ku,
593 	double *ab, integer *ldab, double *work);
594 
595 double dlange_(const char *norm, integer *m, integer *n, double *a, integer
596 	*lda, double *work);
597 
598 double dlangt_(const char *norm, integer *n, double *dl, double *d__,
599 	double *du);
600 
601 double dlanhs_ (const char *norm, integer *n, double *a, integer *lda,
602 	double *work);
603 
604 double dlansb_(const char *norm, const char *uplo, integer *n, integer *k, double
605 	*ab, integer *ldab, double *work);
606 
607 double dlansp_(const char *norm, const char *uplo, integer *n, double *ap,
608 	double *work);
609 
610 double dlanst_(const char *norm, integer *n, double *d__, double *e);
611 
612 double dlansy_(const char *norm, const char *uplo, integer *n, double *a, integer
613 	*lda, double *work);
614 
615 double dlantb_(const char *norm, const char *uplo, const char *diag, integer *n, integer *k,
616 	 double *ab, integer *ldab, double *work);
617 
618 double dlantp_(const char *norm, const char *uplo, const char *diag, integer *n, double *ap, double *work);
619 
620 double dlantr_(const char *norm, const char *uplo, const char *diag, integer *m, integer *n,
621 	 double *a, integer *lda, double *work);
622 
623 double dlansf_(const char *norm, char *transr, char *uplo, integer *n, double *a, double *work);
624 
625 int dlanv2_(double *a, double *b, double *c__,
626 	double *d__, double *rt1r, double *rt1i, double *rt2r,
627 	 double *rt2i, double *cs, double *sn);
628 
629 int dlapll_(integer *n, double *x, integer *incx,
630 	double *y, integer *incy, double *ssmin);
631 
632 int dlapmt_(bool *forwrd, integer *m, integer *n,
633 	double *x, integer *ldx, integer *k);
634 
635 double dlapy2_(double *x, double *y);
636 
637 double dlapy3_(double *x, double *y, double *z__);
638 
639 int dlaqgb_(integer *m, integer *n, integer *kl, integer *ku,
640 	 double *ab, integer *ldab, double *r__, double *c__,
641 	double *rowcnd, double *colcnd, double *amax, char *equed);
642 
643 int dlaqge_(integer *m, integer *n, double *a, integer *
644 	lda, double *r__, double *c__, double *rowcnd, double
645 	*colcnd, double *amax, char *equed);
646 
647 int dlaqp2_(integer *m, integer *n, integer *offset,
648 	double *a, integer *lda, integer *jpvt, double *tau,
649 	double *vn1, double *vn2, double *work);
650 
651 int dlaqps_(integer *m, integer *n, integer *offset, integer
652 	*nb, integer *kb, double *a, integer *lda, integer *jpvt,
653 	double *tau, double *vn1, double *vn2, double *auxv,
654 	double *f, integer *ldf);
655 
656 int dlaqr0_(bool *wantt, bool *wantz, integer *n, integer *ilo, integer *ihi, double *h__,
657 	integer *ldh, double *wr, double *wi, integer *iloz, integer *ihiz, double *z__,
658 	integer *ldz, double *work, integer *lwork, integer *info);
659 
660 int dlaqr1_(integer *n, double *h__, integer *ldh, double *sr1, double *si1,
661 	double *sr2, double *si2, double *v);
662 
663 int dlaqr2_(bool *wantt, bool *wantz, integer *n, integer *ktop, integer *kbot, integer *nw,
664 	double *h__, integer *ldh, integer *iloz, integer *ihiz, double *z__, integer *ldz,
665 	integer *ns, integer *nd, double *sr, double *si, double *v, integer *ldv, integer *nh,
666 	double *t, integer *ldt, integer *nv, double *wv, integer *ldwv, double *work, integer *lwork);
667 int dlaqr3_(bool *wantt, bool *wantz, integer *n, integer *ktop, integer *kbot, integer *nw,
668 	double *h__, integer *ldh, integer *iloz, integer *ihiz, double *z__, integer *ldz,
669 	integer *ns, integer *nd, double *sr, double *si, double *v, integer *ldv, integer *nh,
670 	double *t, integer *ldt, integer *nv, double *wv, integer *ldwv, double *work, integer *lwork);
671 
672 int dlaqr4_(bool *wantt, bool *wantz, integer *n, integer *ilo, integer *ihi, double *h__,
673 	integer *ldh, double *wr, double *wi, integer *iloz, integer *ihiz, double *z__,
674 	integer *ldz, double *work, integer *lwork, integer *info);
675 
676 int dlaqr5_(bool *wantt, bool *wantz, integer *kacc22, integer *n, integer *ktop, integer *kbot,
677 	integer *nshfts, double *sr, double *si, double *h__, integer *ldh, integer *iloz,
678 	integer *ihiz, double *z__, integer *ldz, double *v, integer *ldv, double *u, integer *ldu,
679 	integer *nv, double *wv, integer *ldwv, integer *nh, double *wh, integer *ldwh);
680 
681 int dlaqsb_(const char *uplo, integer *n, integer *kd, double *ab, integer *ldab, double *s,
682 	double *scond, double *amax, const char *equed);
683 
684 int dlaqsp_(const char *uplo, integer *n, double *ap, double *s, double *scond, double *amax, char *equed);
685 
686 int dlaqsy_(const char *uplo, integer *n, double *a, integer *lda, double *s, double *scond,
687 	double *amax, char *equed);
688 
689 int dlaqtr_(bool *ltran, bool *lfloat, integer *n, double *t, integer *ldt, double *b,
690 	double *w, double *scale, double *x, double *work, integer *info);
691 
692 int dlar1v_(integer *n, integer *b1, integer *bn, double *lambda, double *d__, double *l,
693 	double *ld, double *lld, double *pivmin, double *gaptol, double *z__, bool *wantnc,
694 	integer *negcnt, double *ztz, double *mingma, integer *r__, integer *isuppz,
695 	double *nrminv, double *resid, double *rqcorr, double *work);
696 
697 int dlar2v_(integer *n, double *x, double *y, double *z__, integer *incx, double *c__,
698 	double *s, integer *incc);
699 
700 int dlarf_(const char *side, integer *m, integer *n, double *v, integer *incv, double *tau,
701 	double *c__, integer *ldc, double *work);
702 
703 int dlarfb_(const char *side, const char *trans, const char *direct, const char *storev, integer *m,
704 	integer *n, integer *k, double *v, integer *ldv, double *t, integer *ldt, double *c__,
705 	integer *ldc, double *work, integer *ldwork);
706 
707 int dlarfg_(integer *n, double *alpha, double *x, integer *incx, double *tau);
708 
709 int dlarfp_(integer *n, double *alpha, double *x, integer *incx, double *tau);
710 
711 int dlarft_(const char *direct, const char *storev, integer *n, integer *k, double *v,
712 	integer *ldv, double *tau, double *t, integer *ldt);
713 
714 int dlarfx_(const char *side, integer *m, integer *n, double *v, double *tau, double *c__, integer *ldc, double *work);
715 
716 int dlargv_(integer *n, double *x, integer *incx, double *y, integer *incy, double *c__, integer *incc);
717 
718 int dlarnv_(integer *idist, integer *iseed, integer *n, double *x);
719 
720 int dlarra_(integer *n, double *d__, double *e, double *e2, double *spltol, double *tnrm,
721 	integer *nsplit, integer *isplit, integer *info);
722 
723 int dlarrb_(integer *n, double *d__, double *lld, integer *ifirst, integer *ilast, double *rtol1,
724 	double *rtol2, integer *offset, double *w, double *wgap, double *werr, double *work,
725 	integer *iwork, double *pivmin, double *spdiam, integer *twist, integer *info);
726 
727 int dlarrc_(const char *jobt, integer *n, double *vl, double *vu, double *d__, double *e, double *pivmin,
728 	integer *eigcnt, integer *lcnt, integer *rcnt, integer *info);
729 
730 int dlarrd_(const char *range, const char *order, integer *n, double *vl, double *vu, integer *il,
731 	integer *iu, double *gers, double *reltol, double *d__, double *e, double *e2, double *pivmin,
732 	integer *nsplit, integer *isplit, integer *m, double *w, double *werr, double *wl, double *wu,
733 	integer *iblock, integer *indexw, double *work, integer *iwork, integer *info);
734 
735 int dlarre_(const char *range, integer *n, double *vl, double *vu, integer *il, integer *iu,
736 	double *d__, double *e, double *e2, double *rtol1, double *rtol2, double *spltol, integer *nsplit,
737 	integer *isplit, integer *m, double *w, double *werr, double *wgap, integer *iblock,
738 	integer *indexw, double *gers, double *pivmin, double *work, integer *iwork, integer *info);
739 
740 int dlarrf_(integer *n, double *d__, double *l, double *ld, integer *clstrt, integer *clend,
741 	double *w, double *wgap, double *werr, double *spdiam, double *clgapl, double *clgapr,
742 	double *pivmin, double *sigma, double *dplus, double *lplus, double *work, integer *info);
743 
744 int dlarrj_(integer *n, double *d__, double *e2, integer *ifirst, integer *ilast, double *rtol,
745 	integer *offset, double *w, double *werr, double *work, integer *iwork,
746 	double *pivmin, double *spdiam, integer *info);
747 
748 int dlarrk_(integer *n, integer *iw, double *gl, double *gu, double *d__, double *e2,
749 	double *pivmin, double *reltol, double *w, double *werr, integer *info);
750 
751 int dlarrr_(integer *n, double *d__, double *e, integer *info);
752 
753 int dlarrv_(integer *n, double *vl, double *vu,
754 	double *d__, double *l, double *pivmin, integer *isplit,
755 	integer *m, integer *dol, integer *dou, double *minrgp,
756 	double *rtol1, double *rtol2, double *w, double *werr,
757 	 double *wgap, integer *iblock, integer *indexw, double *gers,
758 	 double *z__, integer *ldz, integer *isuppz, double *work,
759 	integer *iwork, integer *info);
760 
761 int dlarscl2_(integer *m, integer *n, double *d__, double *x, integer *ldx);
762 
763 int dlartg_(double *f, double *g, double *cs, double *sn, double *r__);
764 
765 int dlartv_(integer *n, double *x, integer *incx, double *y, integer *incy,
766 	double *c__, double *s, integer *incc);
767 
768 int dlaruv_(integer *iseed, integer *n, double *x);
769 
770 int dlarz_(const char *side, integer *m, integer *n, integer *l,
771 	double *v, integer *incv, double *tau, double *c__,
772 	integer *ldc, double *work);
773 
774 int dlarzb_(const char *side, const char *trans, const char *direct, const char *storev,
775 	integer *m, integer *n, integer *k, integer *l, double *v, integer *ldv, double *t,
776 	integer *ldt, double *c__, integer *ldc, double *work, integer *ldwork);
777 
778 int dlarzt_(const char *direct, const char *storev, integer *n, integer *
779 	k, double *v, integer *ldv, double *tau, double *t, integer *ldt);
780 
781 int dlas2_(double *f, double *g, double *h__, double *ssmin, double *ssmax);
782 
783 int dlascl_(const char *type__, integer *kl, integer *ku, double *cfrom, double *cto,
784 	integer *m, integer *n, double *a, integer *lda, integer *info);
785 
786 int dlascl2_(integer *m, integer *n, double *d__, double *x, integer *ldx);
787 
788 int dlasd0_(integer *n, integer *sqre, double *d__,
789 	double *e, double *u, integer *ldu, double *vt, integer *
790 	ldvt, integer *smlsiz, integer *iwork, double *work, integer *
791 	info);
792 
793 int dlasd1_(integer *nl, integer *nr, integer *sqre,
794 	double *d__, double *alpha, double *beta, double *u,
795 	integer *ldu, double *vt, integer *ldvt, integer *idxq, integer *
796 	iwork, double *work, integer *info);
797 
798 int dlasd2_(integer *nl, integer *nr, integer *sqre, integer
799 	*k, double *d__, double *z__, double *alpha, double *
800 	beta, double *u, integer *ldu, double *vt, integer *ldvt,
801 	double *dsigma, double *u2, integer *ldu2, double *vt2,
802 	integer *ldvt2, integer *idxp, integer *idx, integer *idxc, integer *
803 	idxq, integer *coltyp, integer *info);
804 
805 int dlasd3_(integer *nl, integer *nr, integer *sqre, integer
806 	*k, double *d__, double *q, integer *ldq, double *dsigma,
807 	double *u, integer *ldu, double *u2, integer *ldu2,
808 	double *vt, integer *ldvt, double *vt2, integer *ldvt2,
809 	integer *idxc, integer *ctot, double *z__, integer *info);
810 
811 int dlasd4_(integer *n, integer *i__, double *d__,
812 	double *z__, double *delta, double *rho, double *
813 	sigma, double *work, integer *info);
814 
815 int dlasd5_(integer *i__, double *d__, double *z__,
816 	double *delta, double *rho, double *dsigma, double *
817 	work);
818 
819 int dlasd6_(integer *icompq, integer *nl, integer *nr,
820 	integer *sqre, double *d__, double *vf, double *vl,
821 	double *alpha, double *beta, integer *idxq, integer *perm,
822 	integer *givptr, integer *givcol, integer *ldgcol, double *givnum,
823 	 integer *ldgnum, double *poles, double *difl, double *
824 	difr, double *z__, integer *k, double *c__, double *s,
825 	double *work, integer *iwork, integer *info);
826 
827 int dlasd7_(integer *icompq, integer *nl, integer *nr,
828 	integer *sqre, integer *k, double *d__, double *z__,
829 	double *zw, double *vf, double *vfw, double *vl,
830 	double *vlw, double *alpha, double *beta, double *
831 	dsigma, integer *idx, integer *idxp, integer *idxq, integer *perm,
832 	integer *givptr, integer *givcol, integer *ldgcol, double *givnum,
833 	 integer *ldgnum, double *c__, double *s, integer *info);
834 
835 int dlasd8_(integer *icompq, integer *k, double *d__,
836 	double *z__, double *vf, double *vl, double *difl,
837 	double *difr, integer *lddifr, double *dsigma, double *
838 	work, integer *info);
839 
840 int dlasda_(integer *icompq, integer *smlsiz, integer *n,
841 	integer *sqre, double *d__, double *e, double *u, integer
842 	*ldu, double *vt, integer *k, double *difl, double *difr,
843 	double *z__, double *poles, integer *givptr, integer *givcol,
844 	integer *ldgcol, integer *perm, double *givnum, double *c__,
845 	double *s, double *work, integer *iwork, integer *info);
846 
847 int dlasdq_(const char *uplo, integer *sqre, integer *n, integer *
848 	ncvt, integer *nru, integer *ncc, double *d__, double *e,
849 	double *vt, integer *ldvt, double *u, integer *ldu,
850 	double *c__, integer *ldc, double *work, integer *info);
851 
852 int dlasdt_(integer *n, integer *lvl, integer *nd, integer *
853 	inode, integer *ndiml, integer *ndimr, integer *msub);
854 
855 int dlaset_(const char *uplo, integer *m, integer *n, double *
856 	alpha, double *beta, double *a, integer *lda);
857 
858 int dlasq1_(integer *n, double *d__, double *e,
859 	double *work, integer *info);
860 
861 int dlasq2_(integer *n, double *z__, integer *info);
862 
863 int dlasq3_(integer *i0, integer *n0, double *z__, integer *pp, double *dmin__, double *sigma,
864 	double *desig, double *qmax, integer *nfail, integer *iter, integer *ndiv, bool *ieee,
865 	integer *ttype, double *dmin1, double *dmin2, double *dn, double *dn1, double *dn2,
866 	double *g, double *tau);
867 
868 int dlasq4_(integer *i0, integer *n0, double *z__,
869 	integer *pp, integer *n0in, double *dmin__, double *dmin1,
870 	double *dmin2, double *dn, double *dn1, double *dn2,
871 	double *tau, integer *ttype, double *g);
872 
873 int dlasq5_(integer *i0, integer *n0, double *z__,
874 	integer *pp, double *tau, double *dmin__, double *dmin1,
875 	double *dmin2, double *dn, double *dnm1, double *dnm2,
876 	 bool *ieee);
877 
878 int dlasq6_(integer *i0, integer *n0, double *z__,
879 	integer *pp, double *dmin__, double *dmin1, double *dmin2,
880 	 double *dn, double *dnm1, double *dnm2);
881 
882 int dlasr_(const char *side, const char *pivot, const char *direct, integer *m,
883 	 integer *n, double *c__, double *s, double *a, integer *
884 	lda);
885 
886 int dlasrt_(const char *id, integer *n, double *d__, integer *
887 	info);
888 
889 int dlassq_(integer *n, double *x, integer *incx,
890 	double *scale, double *sumsq);
891 
892 int dlasv2_(double *f, double *g, double *h__,
893 	double *ssmin, double *ssmax, double *snr, double *
894 	csr, double *snl, double *csl);
895 
896 int dlaswp_(integer *n, double *a, integer *lda, integer
897 	*k1, integer *k2, integer *ipiv, integer *incx);
898 
899 int dlasy2_(bool *ltranl, bool *ltranr, integer *isgn,
900 	integer *n1, integer *n2, double *tl, integer *ldtl, double *
901 	tr, integer *ldtr, double *b, integer *ldb, double *scale,
902 	double *x, integer *ldx, double *xnorm, integer *info);
903 
904 int dlasyf_(const char *uplo, integer *n, integer *nb, integer *kb, double *a, integer *lda,
905 	integer *ipiv, double *w, integer *ldw, integer *info);
906 
907 int dlat2s_(const char *uplo, integer *n, double *a, integer *lda, float *sa, integer *ldsa, integer *info);
908 
909 int dlatbs_(const char *uplo, const char *trans, const char *diag,const  char *normin, integer *n,
910 	integer *kd, double *ab, integer *ldab, double *x, double *scale, double *cnorm, integer *info);
911 
912 int dlatdf_(integer *ijob, integer *n, double *z__,
913 	integer *ldz, double *rhs, double *rdsum, double *rdscal,
914 	integer *ipiv, integer *jpiv);
915 
916 int dlatps_(const char *uplo, const char *trans, const char *diag, const char *
917 	normin, integer *n, double *ap, double *x, double *scale,
918 	double *cnorm, integer *info);
919 
920 int dlatrd_(const char *uplo, integer *n, integer *nb, double *
921 	a, integer *lda, double *e, double *tau, double *w,
922 	integer *ldw);
923 
924 int dlatrs_(const char *uplo, const char *trans, const char *diag, const char *
925 	normin, integer *n, double *a, integer *lda, double *x,
926 	double *scale, double *cnorm, integer *info);
927 
928 int dlatrz_(integer *m, integer *n, integer *l, double *
929 	a, integer *lda, double *tau, double *work);
930 
931 int dlatzm_(const char *side, integer *m, integer *n, double *
932 	v, integer *incv, double *tau, double *c1, double *c2,
933 	integer *ldc, double *work);
934 
935 int dlauu2_(const char *uplo, integer *n, double *a, integer *
936 	lda, integer *info);
937 
938 int dlauum_(const char *uplo, integer *n, double *a, integer *
939 	lda, integer *info);
940 
941 int dlazq3_(integer *i0, integer *n0, double *z__,
942 	integer *pp, double *dmin__, double *sigma, double *desig,
943 	 double *qmax, integer *nfail, integer *iter, integer *ndiv,
944 	bool *ieee, integer *ttype, double *dmin1, double *dmin2,
945 	double *dn, double *dn1, double *dn2, double *tau);
946 
947 int dlazq4_(integer *i0, integer *n0, double *z__, integer *pp, integer *n0in, double *dmin__,
948 	double *dmin1, double *dmin2, double *dn, double *dn1, double *dn2, double *tau, integer *ttype, double *g);
949 
950 integer dmaxloc_(double *a, integer *dimm);
951 
952 double dnrm2_(integer *n, double *x, integer *incx);
953 
954 int dopgtr_(const char *uplo, integer *n, double *ap, double *tau, double *q, integer *ldq, double *work, integer *info);
955 
956 int dopmtr_(const char *side, const char *uplo, const char *trans, integer *m, integer *n,
957 	double *ap, double *tau, double *c__, integer *ldc, double *work, integer *info);
958 
959 int dorg2l_(integer *m, integer *n, integer *k, double *a, integer *lda, double *tau, double *work, integer *info);
960 
961 int dorg2r_(integer *m, integer *n, integer *k, double *a, integer *lda, double *tau, double *work, integer *info);
962 
963 int dorgbr_(const char *vect, integer *m, integer *n, integer *k,
964 	double *a, integer *lda, double *tau, double *work,
965 	integer *lwork, integer *info);
966 
967 int dorghr_(integer *n, integer *ilo, integer *ihi,
968 	double *a, integer *lda, double *tau, double *work,
969 	integer *lwork, integer *info);
970 
971 int dorgl2_(integer *m, integer *n, integer *k, double *
972 	a, integer *lda, double *tau, double *work, integer *info);
973 
974 int dorglq_(integer *m, integer *n, integer *k, double *
975 	a, integer *lda, double *tau, double *work, integer *lwork,
976 	integer *info);
977 
978 int dorgql_(integer *m, integer *n, integer *k, double *
979 	a, integer *lda, double *tau, double *work, integer *lwork,
980 	integer *info);
981 
982 int dorgqr_(integer *m, integer *n, integer *k, double *
983 	a, integer *lda, double *tau, double *work, integer *lwork,
984 	integer *info);
985 
986 int dorgr2_(integer *m, integer *n, integer *k, double *
987 	a, integer *lda, double *tau, double *work, integer *info);
988 
989 int dorgrq_(integer *m, integer *n, integer *k, double *
990 	a, integer *lda, double *tau, double *work, integer *lwork,
991 	integer *info);
992 
993 int dorgtr_(const char *uplo, integer *n, double *a, integer *
994 	lda, double *tau, double *work, integer *lwork, integer *info);
995 
996 int dorm2l_(const char *side, const char *trans, integer *m, integer *n,
997 	integer *k, double *a, integer *lda, double *tau, double *
998 	c__, integer *ldc, double *work, integer *info);
999 
1000 int dorm2r_(const char *side, const char *trans, integer *m, integer *n,
1001 	integer *k, double *a, integer *lda, double *tau, double *
1002 	c__, integer *ldc, double *work, integer *info);
1003 
1004 int dormbr_(const char *vect, const char *side, const char *trans, integer *m,
1005 	integer *n, integer *k, double *a, integer *lda, double *tau,
1006 	double *c__, integer *ldc, double *work, integer *lwork,
1007 	integer *info);
1008 
1009 int dormhr_(const char *side, const char *trans, integer *m, integer *n,
1010 	integer *ilo, integer *ihi, double *a, integer *lda, double *
1011 	tau, double *c__, integer *ldc, double *work, integer *lwork,
1012 	integer *info);
1013 
1014 int dorml2_(const char *side, const char *trans, integer *m, integer *n,
1015 	integer *k, double *a, integer *lda, double *tau, double *
1016 	c__, integer *ldc, double *work, integer *info);
1017 
1018 int dormlq_(const char *side, const char *trans, integer *m, integer *n,
1019 	integer *k, double *a, integer *lda, double *tau, double *
1020 	c__, integer *ldc, double *work, integer *lwork, integer *info);
1021 
1022 int dormql_(const char *side, const char *trans, integer *m, integer *n,
1023 	integer *k, double *a, integer *lda, double *tau, double *
1024 	c__, integer *ldc, double *work, integer *lwork, integer *info);
1025 
1026 int dormqr_(const char *side, const char *trans, integer *m, integer *n,
1027 	integer *k, double *a, integer *lda, double *tau, double *
1028 	c__, integer *ldc, double *work, integer *lwork, integer *info);
1029 
1030 int dormr2_(const char *side, const char *trans, integer *m, integer *n,
1031 	integer *k, double *a, integer *lda, double *tau, double *
1032 	c__, integer *ldc, double *work, integer *info);
1033 
1034 int dormr3_(const char *side, const char *trans, integer *m, integer *n,
1035 	integer *k, integer *l, double *a, integer *lda, double *tau,
1036 	double *c__, integer *ldc, double *work, integer *info);
1037 
1038 int dormrq_(const char *side, const char *trans, integer *m, integer *n,
1039 	integer *k, double *a, integer *lda, double *tau, double *
1040 	c__, integer *ldc, double *work, integer *lwork, integer *info);
1041 
1042 int dormrz_(const char *side, const char *trans, integer *m, integer *n,
1043 	integer *k, integer *l, double *a, integer *lda, double *tau,
1044 	double *c__, integer *ldc, double *work, integer *lwork,
1045 	integer *info);
1046 
1047 int dormtr_(const char *side, const char *uplo, const char *trans, integer *m,
1048 	integer *n, double *a, integer *lda, double *tau, double *
1049 	c__, integer *ldc, double *work, integer *lwork, integer *info);
1050 
1051 int dpbcon_(const char *uplo, integer *n, integer *kd, double *
1052 	ab, integer *ldab, double *anorm, double *rcond, double *
1053 	work, integer *iwork, integer *info);
1054 
1055 int dpbequ_(const char *uplo, integer *n, integer *kd, double *
1056 	ab, integer *ldab, double *s, double *scond, double *amax,
1057 	 integer *info);
1058 
1059 int dpbrfs_(const char *uplo, integer *n, integer *kd, integer *
1060 	nrhs, double *ab, integer *ldab, double *afb, integer *ldafb,
1061 	double *b, integer *ldb, double *x, integer *ldx, double *
1062 	ferr, double *berr, double *work, integer *iwork, integer *
1063 	info);
1064 
1065 int dpbstf_(const char *uplo, integer *n, integer *kd, double *
1066 	ab, integer *ldab, integer *info);
1067 
1068 int dpbsv_(const char *uplo, integer *n, integer *kd, integer *
1069 	nrhs, double *ab, integer *ldab, double *b, integer *ldb,
1070 	integer *info);
1071 
1072 int dpbsvx_(const char *fact, const char *uplo, integer *n, integer *kd,
1073 	integer *nrhs, double *ab, integer *ldab, double *afb,
1074 	integer *ldafb, char *equed, double *s, double *b, integer *
1075 	ldb, double *x, integer *ldx, double *rcond, double *ferr,
1076 	double *berr, double *work, integer *iwork, integer *info);
1077 
1078 int dpbtf2_(const char *uplo, integer *n, integer *kd, double *
1079 	ab, integer *ldab, integer *info);
1080 
1081 int dpbtrf_(const char *uplo, integer *n, integer *kd, double *ab, integer *ldab, integer *info);
1082 
1083 int dpbtrs_(const char *uplo, integer *n, integer *kd, integer *nrhs, double *ab,
1084 	integer *ldab, double *b, integer *ldb, integer *info);
1085 
1086 int dpftrf_(const char *transr, const char *uplo, integer *n, double *a, integer *info);
1087 
1088 int dpftri_(const char *transr, const char *uplo, integer *n, double *a, integer *info);
1089 
1090 int dpftrs_(char *transr, char *uplo, integer *n, integer *nrhs, double *a, double *b, integer *ldb, integer *info);
1091 
1092 int dpocon_(const char *uplo, integer *n, double *a, integer *lda, double *anorm,
1093 	double *rcond, double *work, integer *iwork, integer *info);
1094 
1095 int dpoequ_(integer *n, double *a, integer *lda, double *s, double *scond, double *amax, integer *info);
1096 
1097 int dpoequb_(integer *n, double *a, integer *lda, double *s, double *scond, double *amax, integer *info);
1098 
1099 int dporfs_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda,
1100 	double *af, integer *ldaf, double *b, integer *ldb, double *x, integer *ldx,
1101 	double *ferr, double *berr, double *work, integer *iwork, integer *info);
1102 
1103 int dporfsx_(const char *uplo, const char *equed, integer *n, integer *nrhs, double *a, integer *lda,
1104 	double *af, integer *ldaf, double *s, double *b, integer *ldb, double *x, integer *
1105 	ldx, double *rcond, double *berr, integer *n_err_bnds__, double *err_bnds_norm__, double *err_bnds_comp__,
1106 	integer *nparams, double *params, double *work, integer *iwork, integer *info);
1107 
1108 int dposv_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, double *b,
1109 	integer *ldb, integer *info);
1110 
1111 int dposvx_(const char *fact, const char *uplo, integer *n, integer *
1112 	nrhs, double *a, integer *lda, double *af, integer *ldaf,
1113 	char *equed, double *s, double *b, integer *ldb, double *
1114 	x, integer *ldx, double *rcond, double *ferr, double *
1115 	berr, double *work, integer *iwork, integer *info);
1116 
1117 int dposvxx_(const char *fact, const char *uplo, integer *n, integer *nrhs, double *a,
1118 	integer *lda, double *af, integer *ldaf, char *equed, double *s, double *b,
1119 	integer *ldb, double *x, integer *ldx, double *rcond, double *rpvgrw, double *berr,
1120 	integer *n_err_bnds__, double *err_bnds_norm__, double *err_bnds_comp__,
1121 	integer *nparams, double *params, double *work, integer *iwork, integer *info);
1122 
1123 int dpotf2_(const char *uplo, integer *n, double *a, integer *lda, integer *info);
1124 
1125 int dpotrf_(const char *uplo, integer *n, double *a, integer *lda, integer *info);
1126 
1127 int dpotri_(const char *uplo, integer *n, double *a, integer *lda, integer *info);
1128 
1129 int dpotrs_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, double *b,
1130 	integer *ldb, integer *	info);
1131 
1132  int dppcon_(const char *uplo, integer *n, double *ap,
1133 	double *anorm, double *rcond, double *work, integer *
1134 	iwork, integer *info);
1135 
1136  int dppequ_(const char *uplo, integer *n, double *ap,
1137 	double *s, double *scond, double *amax, integer *info);
1138 
1139  int dpprfs_(const char *uplo, integer *n, integer *nrhs,
1140 	double *ap, double *afp, double *b, integer *ldb,
1141 	double *x, integer *ldx, double *ferr, double *berr,
1142 	double *work, integer *iwork, integer *info);
1143 
1144 int dppsv_(const char *uplo, integer *n, integer *nrhs, double *ap, double *b, integer *ldb, integer *info);
1145 
1146 int dppsvx_(const char *fact, const char *uplo, integer *n, integer *nrhs, double *ap, double *afp,
1147 	char *equed, double *s, double *b, integer *ldb, double *x, integer *ldx, double *rcond,
1148 	double *ferr, double *berr, double *work, integer *iwork, integer *info);
1149 
1150 int dpptrf_(const char *uplo, integer *n, double *ap, integer *info);
1151 
1152 int dpptri_(const char *uplo, integer *n, double *ap, integer *info);
1153 
1154 int dpptrs_(const char *uplo, integer *n, integer *nrhs, double *ap, double *b, integer *ldb, integer *info);
1155 
1156 int dpstf2_(const char *uplo, integer *n, double *a, integer *lda, integer *piv, integer *rank,
1157 	double *tol, double *work, integer *info);
1158 
1159 int dpstrf_(const char *uplo, integer *n, double *a, integer *lda, integer *piv, integer *rank,
1160 	double *tol, double *work, integer *info);
1161 
1162 int dptcon_(integer *n, double *d__, double *e, double *anorm, double *rcond, double *work, integer *info);
1163 
1164 int dpteqr_(const char *compz, integer *n, double *d__, double *e, double *z__, integer *ldz,
1165 	double *work, integer *info);
1166 
1167 int dptrfs_(integer *n, integer *nrhs, double *d__, double *e, double *df, double *ef, double *b,
1168 	integer *ldb, double *x, integer *ldx, double *ferr, double *berr, double *work, integer *info);
1169 
1170 int dptsv_(integer *n, integer *nrhs, double *d__, double *e, double *b, integer *ldb, integer *info);
1171 
1172  int dptsvx_(const char *fact, integer *n, integer *nrhs,
1173 	double *d__, double *e, double *df, double *ef,
1174 	double *b, integer *ldb, double *x, integer *ldx, double *
1175 	rcond, double *ferr, double *berr, double *work, integer *
1176 	info);
1177 
1178  int dpttrf_(integer *n, double *d__, double *e,
1179 	integer *info);
1180 
1181  int dpttrs_(integer *n, integer *nrhs, double *d__,
1182 	double *e, double *b, integer *ldb, integer *info);
1183 
1184  int dptts2_(integer *n, integer *nrhs, double *d__,
1185 	double *e, double *b, integer *ldb);
1186 
1187  int drscl_(integer *n, double *sa, double *sx,
1188 	integer *incx);
1189 
1190  int dsbev_(const char *jobz, const char *uplo, integer *n, integer *kd,
1191 	double *ab, integer *ldab, double *w, double *z__,
1192 	integer *ldz, double *work, integer *info);
1193 
1194  int dsbevd_(const char *jobz, const char *uplo, integer *n, integer *kd,
1195 	double *ab, integer *ldab, double *w, double *z__,
1196 	integer *ldz, double *work, integer *lwork, integer *iwork,
1197 	integer *liwork, integer *info);
1198 
1199  int dsbevx_(const char *jobz, const char *range, const char *uplo, integer *n,
1200 	integer *kd, double *ab, integer *ldab, double *q, integer *
1201 	ldq, double *vl, double *vu, integer *il, integer *iu,
1202 	double *abstol, integer *m, double *w, double *z__,
1203 	integer *ldz, double *work, integer *iwork, integer *ifail,
1204 	integer *info);
1205 
1206  int dsbgst_(const char *vect, const char *uplo, integer *n, integer *ka,
1207 	integer *kb, double *ab, integer *ldab, double *bb, integer *
1208 	ldbb, double *x, integer *ldx, double *work, integer *info);
1209 
1210  int dsbgv_(const char *jobz, const char *uplo, integer *n, integer *ka,
1211 	integer *kb, double *ab, integer *ldab, double *bb, integer *
1212 	ldbb, double *w, double *z__, integer *ldz, double *work,
1213 	integer *info);
1214 
1215  int dsbgvd_(const char *jobz, const char *uplo, integer *n, integer *ka,
1216 	integer *kb, double *ab, integer *ldab, double *bb, integer *
1217 	ldbb, double *w, double *z__, integer *ldz, double *work,
1218 	integer *lwork, integer *iwork, integer *liwork, integer *info);
1219 
1220  int dsbgvx_(const char *jobz, const char *range, const char *uplo, integer *n,
1221 	integer *ka, integer *kb, double *ab, integer *ldab, double *
1222 	bb, integer *ldbb, double *q, integer *ldq, double *vl,
1223 	double *vu, integer *il, integer *iu, double *abstol, integer
1224 	*m, double *w, double *z__, integer *ldz, double *work,
1225 	integer *iwork, integer *ifail, integer *info);
1226 
1227 int dsbtrd_(const char *vect, const char *uplo, integer *n, integer *kd, double *ab, integer *ldab,
1228 	double *d__, double *e, double *q, integer *ldq, double *work, integer *info);
1229 
1230 int dsgesv_(integer *n, integer *nrhs, double *a, integer *lda, integer *ipiv, double *b, integer *ldb,
1231 	double *x, integer *ldx, double *work, float *swork, integer *iter, integer *info);
1232 
1233 int dspcon_(const char *uplo, integer *n, double *ap, integer *ipiv, double *anorm, double *rcond,
1234 	double *work, integer *iwork, integer *info);
1235 
1236  int dspev_(const char *jobz, const char *uplo, integer *n, double *
1237 	ap, double *w, double *z__, integer *ldz, double *work,
1238 	integer *info);
1239 
1240  int dspevd_(const char *jobz, const char *uplo, integer *n, double *
1241 	ap, double *w, double *z__, integer *ldz, double *work,
1242 	integer *lwork, integer *iwork, integer *liwork, integer *info);
1243 
1244  int dspevx_(const char *jobz, const char *range, const char *uplo, integer *n,
1245 	double *ap, double *vl, double *vu, integer *il, integer *
1246 	iu, double *abstol, integer *m, double *w, double *z__,
1247 	integer *ldz, double *work, integer *iwork, integer *ifail,
1248 	integer *info);
1249 
1250  int dspgst_(integer *itype, const char *uplo, integer *n,
1251 	double *ap, double *bp, integer *info);
1252 
1253  int dspgv_(integer *itype, const char *jobz, const char *uplo, integer *
1254 	n, double *ap, double *bp, double *w, double *z__,
1255 	integer *ldz, double *work, integer *info);
1256 
1257  int dspgvd_(integer *itype, const char *jobz, const char *uplo, integer *
1258 	n, double *ap, double *bp, double *w, double *z__,
1259 	integer *ldz, double *work, integer *lwork, integer *iwork,
1260 	integer *liwork, integer *info);
1261 
1262 int dspgvx_(integer *itype, const char *jobz, const char *range, const char *uplo, integer *n, double *ap,
1263 	double *bp, double *vl, double *vu, integer *il, integer *iu, double *abstol, integer *m,
1264 	double *w, double *z__, integer *ldz, double *work, integer *iwork, integer *ifail, integer *info);
1265 
1266 int dsposv_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, double *b, integer *ldb,
1267 	double *x, integer *ldx, double *work, float *swork, integer *iter, integer *info);
1268 
1269 int dsprfs_(const char *uplo, integer *n, integer *nrhs, double *ap, double *afp, integer *ipiv,
1270 	double *b, integer *ldb, double *x, integer *ldx, double *ferr,
1271 	double *berr, double *work, integer *iwork, integer *info);
1272 
1273 int dspsv_(const char *uplo, integer *n, integer *nrhs, double *ap, integer *ipiv, double *b,
1274 	integer *ldb, integer *info);
1275 
1276  int dspsvx_(const char *fact, const char *uplo, integer *n, integer *
1277 	nrhs, double *ap, double *afp, integer *ipiv, double *b,
1278 	integer *ldb, double *x, integer *ldx, double *rcond,
1279 	double *ferr, double *berr, double *work, integer *iwork,
1280 	integer *info);
1281 
1282  int dsptrd_(const char *uplo, integer *n, double *ap,
1283 	double *d__, double *e, double *tau, integer *info);
1284 
1285  int dsptrf_(const char *uplo, integer *n, double *ap, integer *
1286 	ipiv, integer *info);
1287 
1288  int dsptri_(const char *uplo, integer *n, double *ap, integer *
1289 	ipiv, double *work, integer *info);
1290 
1291  int dsptrs_(const char *uplo, integer *n, integer *nrhs,
1292 	double *ap, integer *ipiv, double *b, integer *ldb, integer *
1293 	info);
1294 
1295  int dstebz_(const char *range, const char *order, integer *n, double
1296 	*vl, double *vu, integer *il, integer *iu, double *abstol,
1297 	double *d__, double *e, integer *m, integer *nsplit,
1298 	double *w, integer *iblock, integer *isplit, double *work,
1299 	integer *iwork, integer *info);
1300 
1301  int dstedc_(const char *compz, integer *n, double *d__,
1302 	double *e, double *z__, integer *ldz, double *work,
1303 	integer *lwork, integer *iwork, integer *liwork, integer *info);
1304 
1305  int dstegr_(const char *jobz, const char *range, integer *n, double *
1306 	d__, double *e, double *vl, double *vu, integer *il,
1307 	integer *iu, double *abstol, integer *m, double *w,
1308 	double *z__, integer *ldz, integer *isuppz, double *work,
1309 	integer *lwork, integer *iwork, integer *liwork, integer *info);
1310 
1311  int dstein_(integer *n, double *d__, double *e,
1312 	integer *m, double *w, integer *iblock, integer *isplit,
1313 	double *z__, integer *ldz, double *work, integer *iwork,
1314 	integer *ifail, integer *info);
1315 
1316  int dstemr_(const char *jobz, const char *range, integer *n, double *
1317 	d__, double *e, double *vl, double *vu, integer *il,
1318 	integer *iu, integer *m, double *w, double *z__, integer *ldz,
1319 	 integer *nzc, integer *isuppz, bool *tryrac, double *work,
1320 	integer *lwork, integer *iwork, integer *liwork, integer *info);
1321 
1322  int dsteqr_(const char *compz, integer *n, double *d__,
1323 	double *e, double *z__, integer *ldz, double *work,
1324 	integer *info);
1325 
1326  int dsterf_(integer *n, double *d__, double *e,
1327 	integer *info);
1328 
1329  int dstev_(const char *jobz, integer *n, double *d__,
1330 	double *e, double *z__, integer *ldz, double *work,
1331 	integer *info);
1332 
1333  int dstevd_(const char *jobz, integer *n, double *d__,
1334 	double *e, double *z__, integer *ldz, double *work,
1335 	integer *lwork, integer *iwork, integer *liwork, integer *info);
1336 
1337  int dstevr_(const char *jobz, const char *range, integer *n, double *
1338 	d__, double *e, double *vl, double *vu, integer *il,
1339 	integer *iu, double *abstol, integer *m, double *w,
1340 	double *z__, integer *ldz, integer *isuppz, double *work,
1341 	integer *lwork, integer *iwork, integer *liwork, integer *info);
1342 
1343 int dstevx_(const char *jobz, const char *range, integer *n, double *d__, double *e,
1344 	double *vl, double *vu, integer *il, integer *iu, double *abstol, integer *m,
1345 	double *w, double *z__, integer *ldz, double *work, integer *iwork,
1346 	integer *ifail, integer *info);
1347 
1348 int dsycon_(const char *uplo, integer *n, double *a, integer *lda, integer *ipiv, double *anorm,
1349 	double *rcond, double *work, integer *iwork, integer *info);
1350 
1351 int dsyequb_(const char *uplo, integer *n, double *a, integer *lda, double *s, double *scond,
1352 	double *amax, double *work, integer *info);
1353 
1354 int dsyev_(const char *jobz, const char *uplo, integer *n, double *a,
1355 	 integer *lda, double *w, double *work, integer *lwork, integer *info);
1356 
1357 int dsyevd_(const char *jobz, const char *uplo, integer *n, double *a, integer *lda,
1358 	double *w, double *work, integer *lwork, integer *iwork, integer *liwork, integer *info);
1359 
1360 int dsyevr_(const char *jobz, const char *range, const char *uplo, integer *n, double *a,
1361 	integer *lda, double *vl, double *vu, integer *il, integer *iu, double *abstol, integer *m,
1362 	double *w, double *z__, integer *ldz, integer *isuppz, double *work,
1363 	integer *lwork, integer *iwork, integer *liwork, integer *info);
1364 
1365 int dsyevx_(const char *jobz, const char *range, const char *uplo, integer *n,
1366 	double *a, integer *lda, double *vl, double *vu, integer *
1367 	il, integer *iu, double *abstol, integer *m, double *w,
1368 	double *z__, integer *ldz, double *work, integer *lwork,
1369 	integer *iwork, integer *ifail, integer *info);
1370 
1371 int dsygs2_(integer *itype, const char *uplo, integer *n,
1372 	double *a, integer *lda, double *b, integer *ldb, integer *
1373 	info);
1374 
1375 int dsygst_(integer *itype, const char *uplo, integer *n,
1376 	double *a, integer *lda, double *b, integer *ldb, integer *
1377 	info);
1378 
1379 int dsygv_(integer *itype, const char *jobz, const char *uplo, integer *
1380 	n, double *a, integer *lda, double *b, integer *ldb,
1381 	double *w, double *work, integer *lwork, integer *info);
1382 
1383 int dsygvd_(integer *itype, const char *jobz, const char *uplo, integer *n, double *a,
1384 	integer *lda, double *b, integer *ldb, double *w, double *work, integer *lwork,
1385 	integer *iwork, integer *liwork, integer *info);
1386 
1387 int dsygvx_(integer *itype, const char *jobz, const char *range, const char *uplo,
1388 	integer *n, double *a, integer *lda, double *b, integer *ldb, double *vl, double *vu,
1389 	integer *il, integer *iu, double *abstol, integer *m, double *w, double *z__,
1390 	integer *ldz, double *work, integer *lwork, integer *iwork, integer *ifail, integer *info);
1391 
1392 int dsyrfs_(const char *uplo, integer *n, integer *nrhs,
1393 	double *a, integer *lda, double *af, integer *ldaf, integer *
1394 	ipiv, double *b, integer *ldb, double *x, integer *ldx,
1395 	double *ferr, double *berr, double *work, integer *iwork, integer *info);
1396 
1397 int dsyrfsx_(const char *uplo, const char *equed, integer *n, integer *nrhs, double *a,
1398 	integer *lda, double *af, integer *ldaf, integer *ipiv, double *s, double *b, integer *ldb,
1399 	double *x, integer *ldx, double *rcond, double *berr, integer *n_err_bnds__,
1400 	double *err_bnds_norm__, double *err_bnds_comp__, integer *nparams, double *params,
1401 	double *work, integer *iwork, integer *info);
1402 
1403 int dsysv_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, integer *ipiv,
1404 	double *b, integer *ldb, double *work, integer *lwork, integer *info);
1405 
1406 int dsysvx_(const char *fact, const char *uplo, integer *n, integer *
1407 	nrhs, double *a, integer *lda, double *af, integer *ldaf,
1408 	integer *ipiv, double *b, integer *ldb, double *x, integer *
1409 	ldx, double *rcond, double *ferr, double *berr,
1410 	double *work, integer *lwork, integer *iwork, integer *info);
1411 
1412 int dsysvxx_(const char *fact, const char *uplo, integer *n, integer *nrhs, double *a,
1413 	integer *lda, double *af, integer *ldaf, integer *ipiv, char *equed, double *s, double *b,
1414 	integer *ldb, double *x, integer *ldx, double *rcond, double *rpvgrw, double *berr,
1415 	integer *n_err_bnds__, double *err_bnds_norm__, double *err_bnds_comp__, integer *nparams,
1416 	double *params, double *work, integer *iwork, integer *info);
1417 
1418 int dsytd2_(const char *uplo, integer *n, double *a, integer *lda, double *d__, double *e, double *tau, integer *info);
1419 
1420 int dsytf2_(const char *uplo, integer *n, double *a, integer *lda, integer *ipiv, integer *info);
1421 
1422 int dsytrd_(const char *uplo, integer *n, double *a, integer *lda, double *d__, double *e, double *tau,
1423 	double *work, integer *lwork, integer *info);
1424 
1425 int dsytrf_(const char *uplo, integer *n, double *a, integer *lda, integer *ipiv, double *work,
1426 	integer *lwork, integer *info);
1427 
1428 int dsytri_(const char *uplo, integer *n, double *a, integer *lda, integer *ipiv, double *work, integer *info);
1429 
1430 int dsytrs_(const char *uplo, integer *n, integer *nrhs, double *a, integer *lda, integer *ipiv,
1431 	double *b, integer *ldb, integer *info);
1432 
1433 int dtbcon_(const char *norm, const char *uplo, const char *diag, integer *n, integer *kd,
1434 	double *ab, integer *ldab, double *rcond, double *work, integer *iwork, integer *info);
1435 
1436 int dtbrfs_(const char *uplo, const char *trans, const char *diag, integer *n, integer *kd,
1437 	integer *nrhs, double *ab, integer *ldab, double *b, integer *ldb, double *x, integer *ldx,
1438 	double *ferr, double *berr, double *work, integer *iwork, integer *info);
1439 
1440 int dtbtrs_(const char *uplo, const char *trans, const char *diag, integer *n, integer *kd,
1441 	integer *nrhs, double *ab, integer *ldab, double *b, integer *ldb, integer *info);
1442 
1443 int dtfsm_(const char *transr, const char *side, const char *uplo, const char *trans,
1444 	 const char *diag, integer *m, integer *n, double *alpha, double *a, double *b, integer *ldb);
1445 
1446 int dtftri_(const char *transr, const char *uplo, const char *diag, integer *n, double *a, integer *info);
1447 
1448 int dtfttp_(const char *transr, const char *uplo, integer *n, double *arf, double *ap, integer *info);
1449 
1450 int dtfttr_(const char *transr, const char *uplo, integer *n, double *arf, double *a, integer *lda, integer *info);
1451 
1452 int dtgevc_(const char *side, const char *howmny, bool *select, integer *n, double *s,
1453 	integer *lds, double *p, integer *ldp, double *vl, integer *ldvl, double *vr,
1454 	integer *ldvr, integer *mm, integer *m, double *work, integer *info);
1455 
1456 int dtgex2_(bool *wantq, bool *wantz, integer *n,
1457 	double *a, integer *lda, double *b, integer *ldb, double *
1458 	q, integer *ldq, double *z__, integer *ldz, integer *j1, integer *
1459 	n1, integer *n2, double *work, integer *lwork, integer *info);
1460 
1461 int dtgexc_(bool *wantq, bool *wantz, integer *n,
1462 	double *a, integer *lda, double *b, integer *ldb, double *
1463 	q, integer *ldq, double *z__, integer *ldz, integer *ifst,
1464 	integer *ilst, double *work, integer *lwork, integer *info);
1465 
1466 int dtgsen_(integer *ijob, bool *wantq, bool *wantz,
1467 	bool *select, integer *n, double *a, integer *lda, double *
1468 	b, integer *ldb, double *alphar, double *alphai, double *
1469 	beta, double *q, integer *ldq, double *z__, integer *ldz,
1470 	integer *m, double *pl, double *pr, double *dif,
1471 	double *work, integer *lwork, integer *iwork, integer *liwork,
1472 	integer *info);
1473 
1474 int dtgsja_(const char *jobu, const char *jobv, const char *jobq, integer *m,
1475 	integer *p, integer *n, integer *k, integer *l, double *a,
1476 	integer *lda, double *b, integer *ldb, double *tola,
1477 	double *tolb, double *alpha, double *beta, double *u,
1478 	integer *ldu, double *v, integer *ldv, double *q, integer *
1479 	ldq, double *work, integer *ncycle, integer *info);
1480 
1481 int dtgsna_(const char *job, const char *howmny, bool *select,
1482 	integer *n, double *a, integer *lda, double *b, integer *ldb,
1483 	double *vl, integer *ldvl, double *vr, integer *ldvr,
1484 	double *s, double *dif, integer *mm, integer *m, double *
1485 	work, integer *lwork, integer *iwork, integer *info);
1486 
1487 int dtgsy2_(const char *trans, integer *ijob, integer *m, integer *
1488 	n, double *a, integer *lda, double *b, integer *ldb,
1489 	double *c__, integer *ldc, double *d__, integer *ldd,
1490 	double *e, integer *lde, double *f, integer *ldf, double *
1491 	scale, double *rdsum, double *rdscal, integer *iwork, integer
1492 	*pq, integer *info);
1493 
1494 int dtgsyl_(const char *trans, integer *ijob, integer *m, integer *
1495 	n, double *a, integer *lda, double *b, integer *ldb,
1496 	double *c__, integer *ldc, double *d__, integer *ldd,
1497 	double *e, integer *lde, double *f, integer *ldf, double *
1498 	scale, double *dif, double *work, integer *lwork, integer *
1499 	iwork, integer *info);
1500 
1501 int dtpcon_(const char *norm, const char *uplo, const char *diag, integer *n,
1502 	double *ap, double *rcond, double *work, integer *iwork,
1503 	integer *info);
1504 
1505 int dtprfs_(const char *uplo, const char *trans, const char *diag, integer *n,
1506 	integer *nrhs, double *ap, double *b, integer *ldb,
1507 	double *x, integer *ldx, double *ferr, double *berr,
1508 	double *work, integer *iwork, integer *info);
1509 
1510 int dtptri_(const char *uplo, const char *diag, integer *n, double *ap, integer *info);
1511 
1512 int dtptrs_(const char *uplo, const char *trans, const char *diag, integer *n,
1513 	integer *nrhs, double *ap, double *b, integer *ldb, integer *info);
1514 
1515 int dtpttf_(const char *transr, const char *uplo, integer *n, double *ap, double *arf, integer *info);
1516 
1517 int dtpttr_(const char *uplo, integer *n, double *ap, double *a, integer *lda, integer *info);
1518 
1519 int dtrcon_(const char *norm, const char *uplo, const char *diag, integer *n,
1520 	double *a, integer *lda, double *rcond, double *work, integer *iwork, integer *info);
1521 
1522 int dtrevc_(const char *side, const char *howmny, bool *select, integer *n, double *t, integer *ldt,
1523 	double *vl, integer *ldvl, double *vr, integer *ldvr, integer *mm, integer *m,
1524 	double *work, integer *info);
1525 
1526 int dtrexc_(const char *compq, integer *n, double *t, integer *ldt, double *q, integer *ldq,
1527 	integer *ifst, integer *ilst, double *work, integer *info);
1528 
1529 int dtrrfs_(const char *uplo, const char *trans, const char *diag, integer *n, integer *nrhs,
1530 	double *a, integer *lda, double *b, integer *ldb, double *x, integer *ldx, double *ferr,
1531 	double *berr, double *work, integer *iwork, integer *info);
1532 
1533 int dtrsen_(const char *job, const char *compq, bool *select, integer
1534 	*n, double *t, integer *ldt, double *q, integer *ldq,
1535 	double *wr, double *wi, integer *m, double *s, double
1536 	*sep, double *work, integer *lwork, integer *iwork, integer *
1537 	liwork, integer *info);
1538 
1539 int dtrsna_(const char *job, const char *howmny, bool *select, integer *n, double *t, integer *ldt,
1540 	double *vl, integer *ldvl, double *vr, integer *ldvr, double *s, double *sep, integer *mm,
1541 	integer *m, double *work, integer *ldwork, integer *iwork, integer *info);
1542 
1543 int dtrsyl_(const char *trana, const char *tranb, integer *isgn, integer *m, integer *n, double *a,
1544 	integer *lda, double *b, integer *ldb, double *c__, integer *ldc, double *scale, integer *info);
1545 
1546 int dtrti2_(const char *uplo, const char *diag, integer *n, double *a, integer *lda, integer *info);
1547 
1548 int dtrtri_(const char *uplo, const char *diag, integer *n, double *a, integer *lda, integer *info);
1549 
1550 int dtrtrs_(const char *uplo, const char *trans, const char *diag, integer *n, integer *nrhs, double *a,
1551 	integer *lda, double *b, integer *ldb, integer *info);
1552 
1553 int dtrttf_(const char *transr, const char *uplo, integer *n, double *a, integer *lda, double *arf, integer *info);
1554 
1555 int dtrttp_(const char *uplo, integer *n, double *a, integer *lda, double *ap, integer *info);
1556 
1557 int dtzrqf_(integer *m, integer *n, double *a, integer *lda, double *tau, integer *info);
1558 
1559 int dtzrzf_(integer *m, integer *n, double *a, integer *lda, double *tau, double *work, integer *lwork, integer *info);
1560 
1561 integer ieeeck_(integer *ispec, float *zero, float *one);
1562 
1563 integer iladlc_(integer *m, integer *n, double *a, integer *lda);
1564 
1565 integer iladlr_(integer *m, integer *n, double *a, integer *lda);
1566 
1567 integer ilaenv_(integer *ispec, const char *name__, const char *opts, integer *n1,
1568 	integer *n2, integer *n3, integer *n4);
1569 
1570 integer ilaprec_(const char *prec);
1571 
1572 integer ilatrans_(const char *trans);
1573 
1574 int ilaver_(integer *vers_major__, integer *vers_minor__, integer *vers_patch__);
1575 
1576 integer iparmq_ (integer *ispec, const char *name__, const char *opts, integer *n, integer
1577 	*ilo, integer *ihi, integer *lwork);
1578 
1579 	/* Some single precision routines needed in approximations */
1580 
1581 int sgetrf_(integer *m, integer *n, float *a, integer *lda, integer *ipiv, integer *info);
1582 
1583 int sgetrs_(const char *trans, integer *n, integer *nrhs, float *a, integer *lda, integer *ipiv,
1584 	float *b, integer *ldb, integer *info);
1585 
1586 int slag2d_(integer *m, integer *n, float *sa, integer *ldsa, double *a, integer *lda, integer *info);
1587 
1588 double slamch_(const char *cmach);
1589 
1590 #endif /* _clapack_h_ */
1591