LAPACK  3.9.0
LAPACK: Linear Algebra PACKage
lapack.h
Go to the documentation of this file.
1 #ifndef LAPACK_H
2 #define LAPACK_H
3 
4 /*
5 * Turn on HAVE_LAPACK_CONFIG_H to redefine C-LAPACK datatypes
6 */
7 #ifdef HAVE_LAPACK_CONFIG_H
8 #include "lapacke_config.h"
9 #endif
10 
11 #include "lapacke_mangling.h"
12 
13 #include <stdlib.h>
14 
15 #ifdef __cplusplus
16 extern "C" {
17 #endif
18 
19 /*----------------------------------------------------------------------------*/
20 #ifndef lapack_int
21 #define lapack_int int
22 #endif
23 
24 #ifndef lapack_logical
25 #define lapack_logical lapack_int
26 #endif
27 
28 /* f2c, hence clapack and MacOS Accelerate, returns double instead of float
29  * for sdot, slange, clange, etc. */
30 #if defined(LAPACK_F2C)
31  typedef double lapack_float_return;
32 #else
33  typedef float lapack_float_return;
34 #endif
35 
36 /* Complex types are structures equivalent to the
37 * Fortran complex types COMPLEX(4) and COMPLEX(8).
38 *
39 * One can also redefine the types with his own types
40 * for example by including in the code definitions like
41 *
42 * #define lapack_complex_float std::complex<float>
43 * #define lapack_complex_double std::complex<double>
44 *
45 * or define these types in the command line:
46 *
47 * -Dlapack_complex_float="std::complex<float>"
48 * -Dlapack_complex_double="std::complex<double>"
49 */
50 
51 #ifndef LAPACK_COMPLEX_CUSTOM
52 
53 /* Complex type (single precision) */
54 #ifndef lapack_complex_float
55 #include <complex.h>
56 #define lapack_complex_float float _Complex
57 #endif
58 
59 #ifndef lapack_complex_float_real
60 #define lapack_complex_float_real(z) (creal(z))
61 #endif
62 
63 #ifndef lapack_complex_float_imag
64 #define lapack_complex_float_imag(z) (cimag(z))
65 #endif
66 
67 /* Complex type (double precision) */
68 #ifndef lapack_complex_double
69 #include <complex.h>
70 #define lapack_complex_double double _Complex
71 #endif
72 
73 #ifndef lapack_complex_double_real
74 #define lapack_complex_double_real(z) (creal(z))
75 #endif
76 
77 #ifndef lapack_complex_double_imag
78 #define lapack_complex_double_imag(z) (cimag(z))
79 #endif
80 
81 #endif /* LAPACK_COMPLEX_CUSTOM */
82 
83 /* Callback logical functions of one, two, or three arguments are used
84 * to select eigenvalues to sort to the top left of the Schur form.
85 * The value is selected if function returns TRUE (non-zero). */
86 
87 typedef lapack_logical (*LAPACK_S_SELECT2) ( const float*, const float* );
89  ( const float*, const float*, const float* );
90 typedef lapack_logical (*LAPACK_D_SELECT2) ( const double*, const double* );
92  ( const double*, const double*, const double* );
93 
100 
101 #define LAPACK_lsame LAPACK_GLOBAL(lsame,LSAME)
102 lapack_logical LAPACK_lsame( char* ca, char* cb,
103  lapack_int lca, lapack_int lcb );
104 
105 
106 /*----------------------------------------------------------------------------*/
107 /* This is in alphabetical order (ignoring leading precision). */
108 
109 #define LAPACK_cbbcsd LAPACK_GLOBAL(cbbcsd,CBBCSD)
110 void LAPACK_cbbcsd(
111  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
112  lapack_int const* m, lapack_int const* p, lapack_int const* q,
113  float* theta,
114  float* phi,
115  lapack_complex_float* U1, lapack_int const* ldu1,
116  lapack_complex_float* U2, lapack_int const* ldu2,
117  lapack_complex_float* V1T, lapack_int const* ldv1t,
118  lapack_complex_float* V2T, lapack_int const* ldv2t,
119  float* B11D,
120  float* B11E,
121  float* B12D,
122  float* B12E,
123  float* B21D,
124  float* B21E,
125  float* B22D,
126  float* B22E,
127  float* rwork, lapack_int const* lrwork,
128  lapack_int* info );
129 
130 #define LAPACK_dbbcsd LAPACK_GLOBAL(dbbcsd,DBBCSD)
131 void LAPACK_dbbcsd(
132  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
133  lapack_int const* m, lapack_int const* p, lapack_int const* q,
134  double* theta,
135  double* phi,
136  double* U1, lapack_int const* ldu1,
137  double* U2, lapack_int const* ldu2,
138  double* V1T, lapack_int const* ldv1t,
139  double* V2T, lapack_int const* ldv2t,
140  double* B11D,
141  double* B11E,
142  double* B12D,
143  double* B12E,
144  double* b21d,
145  double* b21e,
146  double* b22d,
147  double* b22e,
148  double* work, lapack_int const* lwork,
149  lapack_int* info );
150 
151 #define LAPACK_sbbcsd LAPACK_GLOBAL(sbbcsd,SBBCSD)
152 void LAPACK_sbbcsd(
153  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
154  lapack_int const* m, lapack_int const* p, lapack_int const* q,
155  float* theta,
156  float* phi,
157  float* U1, lapack_int const* ldu1,
158  float* U2, lapack_int const* ldu2,
159  float* V1T, lapack_int const* ldv1t,
160  float* V2T, lapack_int const* ldv2t,
161  float* B11D,
162  float* B11E,
163  float* B12D,
164  float* B12E,
165  float* B21D,
166  float* B21E,
167  float* B22D,
168  float* B22E,
169  float* work, lapack_int const* lwork,
170  lapack_int* info );
171 
172 #define LAPACK_zbbcsd LAPACK_GLOBAL(zbbcsd,ZBBCSD)
173 void LAPACK_zbbcsd(
174  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
175  lapack_int const* m, lapack_int const* p, lapack_int const* q,
176  double* theta,
177  double* phi,
178  lapack_complex_double* U1, lapack_int const* ldu1,
179  lapack_complex_double* U2, lapack_int const* ldu2,
180  lapack_complex_double* V1T, lapack_int const* ldv1t,
181  lapack_complex_double* V2T, lapack_int const* ldv2t,
182  double* B11D,
183  double* B11E,
184  double* B12D,
185  double* B12E,
186  double* B21D,
187  double* B21E,
188  double* B22D,
189  double* B22E,
190  double* rwork, lapack_int const* lrwork,
191  lapack_int* info );
192 
193 #define LAPACK_dbdsdc LAPACK_GLOBAL(dbdsdc,DBDSDC)
194 void LAPACK_dbdsdc(
195  char const* uplo, char const* compq,
196  lapack_int const* n,
197  double* D,
198  double* E,
199  double* U, lapack_int const* ldu,
200  double* VT, lapack_int const* ldvt,
201  double* Q, lapack_int* IQ,
202  double* work,
203  lapack_int* iwork,
204  lapack_int* info );
205 
206 #define LAPACK_sbdsdc LAPACK_GLOBAL(sbdsdc,SBDSDC)
207 void LAPACK_sbdsdc(
208  char const* uplo, char const* compq,
209  lapack_int const* n,
210  float* D,
211  float* E,
212  float* U, lapack_int const* ldu,
213  float* VT, lapack_int const* ldvt,
214  float* Q, lapack_int* IQ,
215  float* work,
216  lapack_int* iwork,
217  lapack_int* info );
218 
219 #define LAPACK_cbdsqr LAPACK_GLOBAL(cbdsqr,CBDSQR)
220 void LAPACK_cbdsqr(
221  char const* uplo,
222  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
223  float* D,
224  float* E,
225  lapack_complex_float* VT, lapack_int const* ldvt,
226  lapack_complex_float* U, lapack_int const* ldu,
227  lapack_complex_float* C, lapack_int const* ldc,
228  float* rwork,
229  lapack_int* info );
230 
231 #define LAPACK_dbdsqr LAPACK_GLOBAL(dbdsqr,DBDSQR)
232 void LAPACK_dbdsqr(
233  char const* uplo,
234  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
235  double* D,
236  double* E,
237  double* VT, lapack_int const* ldvt,
238  double* U, lapack_int const* ldu,
239  double* C, lapack_int const* ldc,
240  double* work,
241  lapack_int* info );
242 
243 #define LAPACK_sbdsqr LAPACK_GLOBAL(sbdsqr,SBDSQR)
244 void LAPACK_sbdsqr(
245  char const* uplo,
246  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
247  float* D,
248  float* E,
249  float* VT, lapack_int const* ldvt,
250  float* U, lapack_int const* ldu,
251  float* C, lapack_int const* ldc,
252  float* work,
253  lapack_int* info );
254 
255 #define LAPACK_zbdsqr LAPACK_GLOBAL(zbdsqr,ZBDSQR)
256 void LAPACK_zbdsqr(
257  char const* uplo,
258  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
259  double* D,
260  double* E,
261  lapack_complex_double* VT, lapack_int const* ldvt,
262  lapack_complex_double* U, lapack_int const* ldu,
263  lapack_complex_double* C, lapack_int const* ldc,
264  double* rwork,
265  lapack_int* info );
266 
267 #define LAPACK_dbdsvdx LAPACK_GLOBAL(dbdsvdx,DBDSVDX)
268 void LAPACK_dbdsvdx(
269  char const* uplo, char const* jobz, char const* range,
270  lapack_int const* n,
271  double const* D,
272  double const* E,
273  double const* vl,
274  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
275  double* S,
276  double* Z, lapack_int const* ldz,
277  double* work,
278  lapack_int* iwork,
279  lapack_int* info );
280 
281 #define LAPACK_sbdsvdx LAPACK_GLOBAL(sbdsvdx,SBDSVDX)
282 void LAPACK_sbdsvdx(
283  char const* uplo, char const* jobz, char const* range,
284  lapack_int const* n,
285  float const* D,
286  float const* E,
287  float const* vl,
288  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
289  float* S,
290  float* Z, lapack_int const* ldz,
291  float* work,
292  lapack_int* iwork,
293  lapack_int* info );
294 
295 #define LAPACK_ddisna LAPACK_GLOBAL(ddisna,DDISNA)
296 void LAPACK_ddisna(
297  char const* job,
298  lapack_int const* m, lapack_int const* n,
299  double const* D,
300  double* SEP,
301  lapack_int* info );
302 
303 #define LAPACK_sdisna LAPACK_GLOBAL(sdisna,SDISNA)
304 void LAPACK_sdisna(
305  char const* job,
306  lapack_int const* m, lapack_int const* n,
307  float const* D,
308  float* SEP,
309  lapack_int* info );
310 
311 #define LAPACK_cgbbrd LAPACK_GLOBAL(cgbbrd,CGBBRD)
312 void LAPACK_cgbbrd(
313  char const* vect,
314  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
315  lapack_complex_float* AB, lapack_int const* ldab,
316  float* D,
317  float* E,
318  lapack_complex_float* Q, lapack_int const* ldq,
319  lapack_complex_float* PT, lapack_int const* ldpt,
320  lapack_complex_float* C, lapack_int const* ldc,
321  lapack_complex_float* work,
322  float* rwork,
323  lapack_int* info );
324 
325 #define LAPACK_dgbbrd LAPACK_GLOBAL(dgbbrd,DGBBRD)
326 void LAPACK_dgbbrd(
327  char const* vect,
328  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
329  double* AB, lapack_int const* ldab,
330  double* D,
331  double* E,
332  double* Q, lapack_int const* ldq,
333  double* PT, lapack_int const* ldpt,
334  double* C, lapack_int const* ldc,
335  double* work,
336  lapack_int* info );
337 
338 #define LAPACK_sgbbrd LAPACK_GLOBAL(sgbbrd,SGBBRD)
339 void LAPACK_sgbbrd(
340  char const* vect,
341  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
342  float* AB, lapack_int const* ldab,
343  float* D,
344  float* E,
345  float* Q, lapack_int const* ldq,
346  float* PT, lapack_int const* ldpt,
347  float* C, lapack_int const* ldc,
348  float* work,
349  lapack_int* info );
350 
351 #define LAPACK_zgbbrd LAPACK_GLOBAL(zgbbrd,ZGBBRD)
352 void LAPACK_zgbbrd(
353  char const* vect,
354  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
355  lapack_complex_double* AB, lapack_int const* ldab,
356  double* D,
357  double* E,
358  lapack_complex_double* Q, lapack_int const* ldq,
359  lapack_complex_double* PT, lapack_int const* ldpt,
360  lapack_complex_double* C, lapack_int const* ldc,
361  lapack_complex_double* work,
362  double* rwork,
363  lapack_int* info );
364 
365 #define LAPACK_cgbcon LAPACK_GLOBAL(cgbcon,CGBCON)
366 void LAPACK_cgbcon(
367  char const* norm,
368  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
369  lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
370  float const* anorm,
371  float* rcond,
372  lapack_complex_float* work,
373  float* rwork,
374  lapack_int* info );
375 
376 #define LAPACK_dgbcon LAPACK_GLOBAL(dgbcon,DGBCON)
377 void LAPACK_dgbcon(
378  char const* norm,
379  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
380  double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
381  double const* anorm,
382  double* rcond,
383  double* work,
384  lapack_int* iwork,
385  lapack_int* info );
386 
387 #define LAPACK_sgbcon LAPACK_GLOBAL(sgbcon,SGBCON)
388 void LAPACK_sgbcon(
389  char const* norm,
390  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
391  float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
392  float const* anorm,
393  float* rcond,
394  float* work,
395  lapack_int* iwork,
396  lapack_int* info );
397 
398 #define LAPACK_zgbcon LAPACK_GLOBAL(zgbcon,ZGBCON)
399 void LAPACK_zgbcon(
400  char const* norm,
401  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
402  lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
403  double const* anorm,
404  double* rcond,
405  lapack_complex_double* work,
406  double* rwork,
407  lapack_int* info );
408 
409 #define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
410 void LAPACK_cgbequ(
411  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
412  lapack_complex_float const* AB, lapack_int const* ldab,
413  float* R,
414  float* C,
415  float* rowcnd,
416  float* colcnd,
417  float* amax,
418  lapack_int* info );
419 
420 #define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
421 void LAPACK_dgbequ(
422  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
423  double const* AB, lapack_int const* ldab,
424  double* R,
425  double* C,
426  double* rowcnd,
427  double* colcnd,
428  double* amax,
429  lapack_int* info );
430 
431 #define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
432 void LAPACK_sgbequ(
433  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
434  float const* AB, lapack_int const* ldab,
435  float* R,
436  float* C,
437  float* rowcnd,
438  float* colcnd,
439  float* amax,
440  lapack_int* info );
441 
442 #define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
443 void LAPACK_zgbequ(
444  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
445  lapack_complex_double const* AB, lapack_int const* ldab,
446  double* R,
447  double* C,
448  double* rowcnd,
449  double* colcnd,
450  double* amax,
451  lapack_int* info );
452 
453 #define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
454 void LAPACK_cgbequb(
455  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
456  lapack_complex_float const* AB, lapack_int const* ldab,
457  float* R,
458  float* C,
459  float* rowcnd,
460  float* colcnd,
461  float* amax,
462  lapack_int* info );
463 
464 #define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
465 void LAPACK_dgbequb(
466  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
467  double const* AB, lapack_int const* ldab,
468  double* R,
469  double* C,
470  double* rowcnd,
471  double* colcnd,
472  double* amax,
473  lapack_int* info );
474 
475 #define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
476 void LAPACK_sgbequb(
477  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
478  float const* AB, lapack_int const* ldab,
479  float* R,
480  float* C,
481  float* rowcnd,
482  float* colcnd,
483  float* amax,
484  lapack_int* info );
485 
486 #define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
487 void LAPACK_zgbequb(
488  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
489  lapack_complex_double const* AB, lapack_int const* ldab,
490  double* R,
491  double* C,
492  double* rowcnd,
493  double* colcnd,
494  double* amax,
495  lapack_int* info );
496 
497 #define LAPACK_cgbrfs LAPACK_GLOBAL(cgbrfs,CGBRFS)
498 void LAPACK_cgbrfs(
499  char const* trans,
500  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
501  lapack_complex_float const* AB, lapack_int const* ldab,
502  lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
503  lapack_complex_float const* B, lapack_int const* ldb,
504  lapack_complex_float* X, lapack_int const* ldx,
505  float* ferr,
506  float* berr,
507  lapack_complex_float* work,
508  float* rwork,
509  lapack_int* info );
510 
511 #define LAPACK_dgbrfs LAPACK_GLOBAL(dgbrfs,DGBRFS)
512 void LAPACK_dgbrfs(
513  char const* trans,
514  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
515  double const* AB, lapack_int const* ldab,
516  double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
517  double const* B, lapack_int const* ldb,
518  double* X, lapack_int const* ldx,
519  double* ferr,
520  double* berr,
521  double* work,
522  lapack_int* iwork,
523  lapack_int* info );
524 
525 #define LAPACK_sgbrfs LAPACK_GLOBAL(sgbrfs,SGBRFS)
526 void LAPACK_sgbrfs(
527  char const* trans,
528  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
529  float const* AB, lapack_int const* ldab,
530  float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
531  float const* B, lapack_int const* ldb,
532  float* X, lapack_int const* ldx,
533  float* ferr,
534  float* berr,
535  float* work,
536  lapack_int* iwork,
537  lapack_int* info );
538 
539 #define LAPACK_zgbrfs LAPACK_GLOBAL(zgbrfs,ZGBRFS)
540 void LAPACK_zgbrfs(
541  char const* trans,
542  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
543  lapack_complex_double const* AB, lapack_int const* ldab,
544  lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
545  lapack_complex_double const* B, lapack_int const* ldb,
546  lapack_complex_double* X, lapack_int const* ldx,
547  double* ferr,
548  double* berr,
549  lapack_complex_double* work,
550  double* rwork,
551  lapack_int* info );
552 
553 #define LAPACK_cgbrfsx LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
554 void LAPACK_cgbrfsx(
555  char const* trans, char const* equed,
556  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
557  lapack_complex_float const* AB, lapack_int const* ldab,
558  lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
559  float* R,
560  float* C,
561  lapack_complex_float const* B, lapack_int const* ldb,
562  lapack_complex_float* X, lapack_int const* ldx,
563  float* rcond,
564  float* berr, lapack_int const* n_err_bnds,
565  float* err_bnds_norm,
566  float* err_bnds_comp, lapack_int const* nparams,
567  float* params,
568  lapack_complex_float* work,
569  float* rwork,
570  lapack_int* info );
571 
572 #define LAPACK_dgbrfsx LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
573 void LAPACK_dgbrfsx(
574  char const* trans, char const* equed,
575  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
576  double const* AB, lapack_int const* ldab,
577  double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
578  double* R,
579  double* C,
580  double const* B, lapack_int const* ldb,
581  double* X, lapack_int const* ldx,
582  double* rcond,
583  double* berr, lapack_int const* n_err_bnds,
584  double* err_bnds_norm,
585  double* err_bnds_comp, lapack_int const* nparams,
586  double* params,
587  double* work,
588  lapack_int* iwork,
589  lapack_int* info );
590 
591 #define LAPACK_sgbrfsx LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
592 void LAPACK_sgbrfsx(
593  char const* trans, char const* equed,
594  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
595  float const* AB, lapack_int const* ldab,
596  float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
597  float* R,
598  float* C,
599  float const* B, lapack_int const* ldb,
600  float* X, lapack_int const* ldx,
601  float* rcond,
602  float* berr, lapack_int const* n_err_bnds,
603  float* err_bnds_norm,
604  float* err_bnds_comp, lapack_int const* nparams,
605  float* params,
606  float* work,
607  lapack_int* iwork,
608  lapack_int* info );
609 
610 #define LAPACK_zgbrfsx LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
611 void LAPACK_zgbrfsx(
612  char const* trans, char const* equed,
613  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
614  lapack_complex_double const* AB, lapack_int const* ldab,
615  lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
616  double* R,
617  double* C,
618  lapack_complex_double const* B, lapack_int const* ldb,
619  lapack_complex_double* X, lapack_int const* ldx,
620  double* rcond,
621  double* berr, lapack_int const* n_err_bnds,
622  double* err_bnds_norm,
623  double* err_bnds_comp, lapack_int const* nparams,
624  double* params,
625  lapack_complex_double* work,
626  double* rwork,
627  lapack_int* info );
628 
629 #define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
630 void LAPACK_cgbsv(
631  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
632  lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
633  lapack_complex_float* B, lapack_int const* ldb,
634  lapack_int* info );
635 
636 #define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
637 void LAPACK_dgbsv(
638  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
639  double* AB, lapack_int const* ldab, lapack_int* ipiv,
640  double* B, lapack_int const* ldb,
641  lapack_int* info );
642 
643 #define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
644 void LAPACK_sgbsv(
645  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
646  float* AB, lapack_int const* ldab, lapack_int* ipiv,
647  float* B, lapack_int const* ldb,
648  lapack_int* info );
649 
650 #define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
651 void LAPACK_zgbsv(
652  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
653  lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
654  lapack_complex_double* B, lapack_int const* ldb,
655  lapack_int* info );
656 
657 #define LAPACK_cgbsvx LAPACK_GLOBAL(cgbsvx,CGBSVX)
658 void LAPACK_cgbsvx(
659  char const* fact, char const* trans,
660  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
661  lapack_complex_float* AB, lapack_int const* ldab,
662  lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
663  float* R,
664  float* C,
666  lapack_int const* ldb,
667  lapack_complex_float* X, lapack_int const* ldx,
668  float* rcond,
669  float* ferr,
670  float* berr,
671  lapack_complex_float* work,
672  float* rwork,
673  lapack_int* info );
674 
675 #define LAPACK_dgbsvx LAPACK_GLOBAL(dgbsvx,DGBSVX)
676 void LAPACK_dgbsvx(
677  char const* fact, char const* trans,
678  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
679  double* AB, lapack_int const* ldab,
680  double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
681  double* R,
682  double* C,
683  double* B,
684  lapack_int const* ldb,
685  double* X, lapack_int const* ldx,
686  double* rcond,
687  double* ferr,
688  double* berr,
689  double* work,
690  lapack_int* iwork,
691  lapack_int* info );
692 
693 #define LAPACK_sgbsvx LAPACK_GLOBAL(sgbsvx,SGBSVX)
694 void LAPACK_sgbsvx(
695  char const* fact, char const* trans,
696  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
697  float* AB, lapack_int const* ldab,
698  float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
699  float* R,
700  float* C,
701  float* B,
702  lapack_int const* ldb,
703  float* X, lapack_int const* ldx,
704  float* rcond,
705  float* ferr,
706  float* berr,
707  float* work,
708  lapack_int* iwork,
709  lapack_int* info );
710 
711 #define LAPACK_zgbsvx LAPACK_GLOBAL(zgbsvx,ZGBSVX)
712 void LAPACK_zgbsvx(
713  char const* fact, char const* trans,
714  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
715  lapack_complex_double* AB, lapack_int const* ldab,
716  lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
717  double* R,
718  double* C,
720  lapack_int const* ldb,
721  lapack_complex_double* X, lapack_int const* ldx,
722  double* rcond,
723  double* ferr,
724  double* berr,
725  lapack_complex_double* work,
726  double* rwork,
727  lapack_int* info );
728 
729 #define LAPACK_cgbsvxx LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
730 void LAPACK_cgbsvxx(
731  char const* fact, char const* trans,
732  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
733  lapack_complex_float* AB, lapack_int const* ldab,
734  lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
735  float* R,
736  float* C,
738  lapack_int const* ldb,
739  lapack_complex_float* X, lapack_int const* ldx,
740  float* rcond,
741  float* rpvgrw,
742  float* berr, lapack_int const* n_err_bnds,
743  float* err_bnds_norm,
744  float* err_bnds_comp, lapack_int const* nparams,
745  float* params,
746  lapack_complex_float* work,
747  float* rwork,
748  lapack_int* info );
749 
750 #define LAPACK_dgbsvxx LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
751 void LAPACK_dgbsvxx(
752  char const* fact, char const* trans,
753  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
754  double* AB, lapack_int const* ldab,
755  double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
756  double* R,
757  double* C,
758  double* B,
759  lapack_int const* ldb,
760  double* X, lapack_int const* ldx,
761  double* rcond,
762  double* rpvgrw,
763  double* berr, lapack_int const* n_err_bnds,
764  double* err_bnds_norm,
765  double* err_bnds_comp, lapack_int const* nparams,
766  double* params,
767  double* work,
768  lapack_int* iwork,
769  lapack_int* info );
770 
771 #define LAPACK_sgbsvxx LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
772 void LAPACK_sgbsvxx(
773  char const* fact, char const* trans,
774  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
775  float* AB, lapack_int const* ldab,
776  float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
777  float* R,
778  float* C,
779  float* B,
780  lapack_int const* ldb,
781  float* X, lapack_int const* ldx,
782  float* rcond,
783  float* rpvgrw,
784  float* berr, lapack_int const* n_err_bnds,
785  float* err_bnds_norm,
786  float* err_bnds_comp, lapack_int const* nparams,
787  float* params,
788  float* work,
789  lapack_int* iwork,
790  lapack_int* info );
791 
792 #define LAPACK_zgbsvxx LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
793 void LAPACK_zgbsvxx(
794  char const* fact, char const* trans,
795  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
796  lapack_complex_double* AB, lapack_int const* ldab,
797  lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
798  double* R,
799  double* C,
801  lapack_int const* ldb,
802  lapack_complex_double* X, lapack_int const* ldx,
803  double* rcond,
804  double* rpvgrw,
805  double* berr, lapack_int const* n_err_bnds,
806  double* err_bnds_norm,
807  double* err_bnds_comp, lapack_int const* nparams,
808  double* params,
809  lapack_complex_double* work,
810  double* rwork,
811  lapack_int* info );
812 
813 #define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
814 void LAPACK_cgbtrf(
815  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
816  lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
817  lapack_int* info );
818 
819 #define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
820 void LAPACK_dgbtrf(
821  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
822  double* AB, lapack_int const* ldab, lapack_int* ipiv,
823  lapack_int* info );
824 
825 #define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
826 void LAPACK_sgbtrf(
827  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
828  float* AB, lapack_int const* ldab, lapack_int* ipiv,
829  lapack_int* info );
830 
831 #define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
832 void LAPACK_zgbtrf(
833  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
834  lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
835  lapack_int* info );
836 
837 #define LAPACK_cgbtrs LAPACK_GLOBAL(cgbtrs,CGBTRS)
838 void LAPACK_cgbtrs(
839  char const* trans,
840  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
841  lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
842  lapack_complex_float* B, lapack_int const* ldb,
843  lapack_int* info );
844 
845 #define LAPACK_dgbtrs LAPACK_GLOBAL(dgbtrs,DGBTRS)
846 void LAPACK_dgbtrs(
847  char const* trans,
848  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
849  double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
850  double* B, lapack_int const* ldb,
851  lapack_int* info );
852 
853 #define LAPACK_sgbtrs LAPACK_GLOBAL(sgbtrs,SGBTRS)
854 void LAPACK_sgbtrs(
855  char const* trans,
856  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
857  float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
858  float* B, lapack_int const* ldb,
859  lapack_int* info );
860 
861 #define LAPACK_zgbtrs LAPACK_GLOBAL(zgbtrs,ZGBTRS)
862 void LAPACK_zgbtrs(
863  char const* trans,
864  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
865  lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
866  lapack_complex_double* B, lapack_int const* ldb,
867  lapack_int* info );
868 
869 #define LAPACK_cgebak LAPACK_GLOBAL(cgebak,CGEBAK)
870 void LAPACK_cgebak(
871  char const* job, char const* side,
872  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
873  float const* scale, lapack_int const* m,
874  lapack_complex_float* V, lapack_int const* ldv,
875  lapack_int* info );
876 
877 #define LAPACK_dgebak LAPACK_GLOBAL(dgebak,DGEBAK)
878 void LAPACK_dgebak(
879  char const* job, char const* side,
880  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
881  double const* scale, lapack_int const* m,
882  double* V, lapack_int const* ldv,
883  lapack_int* info );
884 
885 #define LAPACK_sgebak LAPACK_GLOBAL(sgebak,SGEBAK)
886 void LAPACK_sgebak(
887  char const* job, char const* side,
888  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
889  float const* scale, lapack_int const* m,
890  float* V, lapack_int const* ldv,
891  lapack_int* info );
892 
893 #define LAPACK_zgebak LAPACK_GLOBAL(zgebak,ZGEBAK)
894 void LAPACK_zgebak(
895  char const* job, char const* side,
896  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
897  double const* scale, lapack_int const* m,
898  lapack_complex_double* V, lapack_int const* ldv,
899  lapack_int* info );
900 
901 #define LAPACK_cgebal LAPACK_GLOBAL(cgebal,CGEBAL)
902 void LAPACK_cgebal(
903  char const* job,
904  lapack_int const* n,
905  lapack_complex_float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
906  float* scale,
907  lapack_int* info );
908 
909 #define LAPACK_dgebal LAPACK_GLOBAL(dgebal,DGEBAL)
910 void LAPACK_dgebal(
911  char const* job,
912  lapack_int const* n,
913  double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
914  double* scale,
915  lapack_int* info );
916 
917 #define LAPACK_sgebal LAPACK_GLOBAL(sgebal,SGEBAL)
918 void LAPACK_sgebal(
919  char const* job,
920  lapack_int const* n,
921  float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
922  float* scale,
923  lapack_int* info );
924 
925 #define LAPACK_zgebal LAPACK_GLOBAL(zgebal,ZGEBAL)
926 void LAPACK_zgebal(
927  char const* job,
928  lapack_int const* n,
929  lapack_complex_double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
930  double* scale,
931  lapack_int* info );
932 
933 #define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
934 void LAPACK_cgebrd(
935  lapack_int const* m, lapack_int const* n,
936  lapack_complex_float* A, lapack_int const* lda,
937  float* D,
938  float* E,
939  lapack_complex_float* tauq,
940  lapack_complex_float* taup,
941  lapack_complex_float* work, lapack_int const* lwork,
942  lapack_int* info );
943 
944 #define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
945 void LAPACK_dgebrd(
946  lapack_int const* m, lapack_int const* n,
947  double* A, lapack_int const* lda,
948  double* D,
949  double* E,
950  double* tauq,
951  double* taup,
952  double* work, lapack_int const* lwork,
953  lapack_int* info );
954 
955 #define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
956 void LAPACK_sgebrd(
957  lapack_int const* m, lapack_int const* n,
958  float* A, lapack_int const* lda,
959  float* D,
960  float* E,
961  float* tauq,
962  float* taup,
963  float* work, lapack_int const* lwork,
964  lapack_int* info );
965 
966 #define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
967 void LAPACK_zgebrd(
968  lapack_int const* m, lapack_int const* n,
969  lapack_complex_double* A, lapack_int const* lda,
970  double* D,
971  double* E,
972  lapack_complex_double* tauq,
973  lapack_complex_double* taup,
974  lapack_complex_double* work, lapack_int const* lwork,
975  lapack_int* info );
976 
977 #define LAPACK_cgecon LAPACK_GLOBAL(cgecon,CGECON)
978 void LAPACK_cgecon(
979  char const* norm,
980  lapack_int const* n,
981  lapack_complex_float const* A, lapack_int const* lda,
982  float const* anorm,
983  float* rcond,
984  lapack_complex_float* work,
985  float* rwork,
986  lapack_int* info );
987 
988 #define LAPACK_dgecon LAPACK_GLOBAL(dgecon,DGECON)
989 void LAPACK_dgecon(
990  char const* norm,
991  lapack_int const* n,
992  double const* A, lapack_int const* lda,
993  double const* anorm,
994  double* rcond,
995  double* work,
996  lapack_int* iwork,
997  lapack_int* info );
998 
999 #define LAPACK_sgecon LAPACK_GLOBAL(sgecon,SGECON)
1000 void LAPACK_sgecon(
1001  char const* norm,
1002  lapack_int const* n,
1003  float const* A, lapack_int const* lda,
1004  float const* anorm,
1005  float* rcond,
1006  float* work,
1007  lapack_int* iwork,
1008  lapack_int* info );
1009 
1010 #define LAPACK_zgecon LAPACK_GLOBAL(zgecon,ZGECON)
1011 void LAPACK_zgecon(
1012  char const* norm,
1013  lapack_int const* n,
1014  lapack_complex_double const* A, lapack_int const* lda,
1015  double const* anorm,
1016  double* rcond,
1017  lapack_complex_double* work,
1018  double* rwork,
1019  lapack_int* info );
1020 
1021 #define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
1022 void LAPACK_cgeequ(
1023  lapack_int const* m, lapack_int const* n,
1024  lapack_complex_float const* A, lapack_int const* lda,
1025  float* R,
1026  float* C,
1027  float* rowcnd,
1028  float* colcnd,
1029  float* amax,
1030  lapack_int* info );
1031 
1032 #define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
1033 void LAPACK_dgeequ(
1034  lapack_int const* m, lapack_int const* n,
1035  double const* A, lapack_int const* lda,
1036  double* R,
1037  double* C,
1038  double* rowcnd,
1039  double* colcnd,
1040  double* amax,
1041  lapack_int* info );
1042 
1043 #define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
1044 void LAPACK_sgeequ(
1045  lapack_int const* m, lapack_int const* n,
1046  float const* A, lapack_int const* lda,
1047  float* R,
1048  float* C,
1049  float* rowcnd,
1050  float* colcnd,
1051  float* amax,
1052  lapack_int* info );
1053 
1054 #define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
1055 void LAPACK_zgeequ(
1056  lapack_int const* m, lapack_int const* n,
1057  lapack_complex_double const* A, lapack_int const* lda,
1058  double* R,
1059  double* C,
1060  double* rowcnd,
1061  double* colcnd,
1062  double* amax,
1063  lapack_int* info );
1064 
1065 #define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
1066 void LAPACK_cgeequb(
1067  lapack_int const* m, lapack_int const* n,
1068  lapack_complex_float const* A, lapack_int const* lda,
1069  float* R,
1070  float* C,
1071  float* rowcnd,
1072  float* colcnd,
1073  float* amax,
1074  lapack_int* info );
1075 
1076 #define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
1077 void LAPACK_dgeequb(
1078  lapack_int const* m, lapack_int const* n,
1079  double const* A, lapack_int const* lda,
1080  double* R,
1081  double* C,
1082  double* rowcnd,
1083  double* colcnd,
1084  double* amax,
1085  lapack_int* info );
1086 
1087 #define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
1088 void LAPACK_sgeequb(
1089  lapack_int const* m, lapack_int const* n,
1090  float const* A, lapack_int const* lda,
1091  float* R,
1092  float* C,
1093  float* rowcnd,
1094  float* colcnd,
1095  float* amax,
1096  lapack_int* info );
1097 
1098 #define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
1099 void LAPACK_zgeequb(
1100  lapack_int const* m, lapack_int const* n,
1101  lapack_complex_double const* A, lapack_int const* lda,
1102  double* R,
1103  double* C,
1104  double* rowcnd,
1105  double* colcnd,
1106  double* amax,
1107  lapack_int* info );
1108 
1109 #define LAPACK_cgees LAPACK_GLOBAL(cgees,CGEES)
1110 void LAPACK_cgees(
1111  char const* jobvs, char const* sort, LAPACK_C_SELECT1 select,
1112  lapack_int const* n,
1113  lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim,
1115  lapack_complex_float* VS, lapack_int const* ldvs,
1116  lapack_complex_float* work, lapack_int const* lwork,
1117  float* rwork, lapack_logical* BWORK,
1118  lapack_int* info );
1119 
1120 #define LAPACK_dgees LAPACK_GLOBAL(dgees,DGEES)
1121 void LAPACK_dgees(
1122  char const* jobvs, char const* sort, LAPACK_D_SELECT2 select,
1123  lapack_int const* n,
1124  double* A, lapack_int const* lda, lapack_int* sdim,
1125  double* WR,
1126  double* WI,
1127  double* VS, lapack_int const* ldvs,
1128  double* work, lapack_int const* lwork, lapack_logical* BWORK,
1129  lapack_int* info );
1130 
1131 #define LAPACK_sgees LAPACK_GLOBAL(sgees,SGEES)
1132 void LAPACK_sgees(
1133  char const* jobvs, char const* sort, LAPACK_S_SELECT2 select,
1134  lapack_int const* n,
1135  float* A, lapack_int const* lda, lapack_int* sdim,
1136  float* WR,
1137  float* WI,
1138  float* VS, lapack_int const* ldvs,
1139  float* work, lapack_int const* lwork, lapack_logical* BWORK,
1140  lapack_int* info );
1141 
1142 #define LAPACK_zgees LAPACK_GLOBAL(zgees,ZGEES)
1143 void LAPACK_zgees(
1144  char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select,
1145  lapack_int const* n,
1146  lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim,
1148  lapack_complex_double* VS, lapack_int const* ldvs,
1149  lapack_complex_double* work, lapack_int const* lwork,
1150  double* rwork, lapack_logical* BWORK,
1151  lapack_int* info );
1152 
1153 #define LAPACK_cgeesx LAPACK_GLOBAL(cgeesx,CGEESX)
1154 void LAPACK_cgeesx(
1155  char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, char const* sense,
1156  lapack_int const* n,
1157  lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim,
1159  lapack_complex_float* VS, lapack_int const* ldvs,
1160  float* rconde,
1161  float* rcondv,
1162  lapack_complex_float* work, lapack_int const* lwork,
1163  float* rwork, lapack_logical* BWORK,
1164  lapack_int* info );
1165 
1166 #define LAPACK_dgeesx LAPACK_GLOBAL(dgeesx,DGEESX)
1167 void LAPACK_dgeesx(
1168  char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, char const* sense,
1169  lapack_int const* n,
1170  double* A, lapack_int const* lda, lapack_int* sdim,
1171  double* WR,
1172  double* WI,
1173  double* VS, lapack_int const* ldvs,
1174  double* rconde,
1175  double* rcondv,
1176  double* work, lapack_int const* lwork,
1177  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1178  lapack_int* info );
1179 
1180 #define LAPACK_sgeesx LAPACK_GLOBAL(sgeesx,SGEESX)
1181 void LAPACK_sgeesx(
1182  char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, char const* sense,
1183  lapack_int const* n,
1184  float* A, lapack_int const* lda, lapack_int* sdim,
1185  float* WR,
1186  float* WI,
1187  float* VS, lapack_int const* ldvs,
1188  float* rconde,
1189  float* rcondv,
1190  float* work, lapack_int const* lwork,
1191  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1192  lapack_int* info );
1193 
1194 #define LAPACK_zgeesx LAPACK_GLOBAL(zgeesx,ZGEESX)
1195 void LAPACK_zgeesx(
1196  char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, char const* sense,
1197  lapack_int const* n,
1198  lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim,
1200  lapack_complex_double* VS, lapack_int const* ldvs,
1201  double* rconde,
1202  double* rcondv,
1203  lapack_complex_double* work, lapack_int const* lwork,
1204  double* rwork, lapack_logical* BWORK,
1205  lapack_int* info );
1206 
1207 #define LAPACK_cgeev LAPACK_GLOBAL(cgeev,CGEEV)
1208 void LAPACK_cgeev(
1209  char const* jobvl, char const* jobvr,
1210  lapack_int const* n,
1211  lapack_complex_float* A, lapack_int const* lda,
1213  lapack_complex_float* VL, lapack_int const* ldvl,
1214  lapack_complex_float* VR, lapack_int const* ldvr,
1215  lapack_complex_float* work, lapack_int const* lwork,
1216  float* rwork,
1217  lapack_int* info );
1218 
1219 #define LAPACK_dgeev LAPACK_GLOBAL(dgeev,DGEEV)
1220 void LAPACK_dgeev(
1221  char const* jobvl, char const* jobvr,
1222  lapack_int const* n,
1223  double* A, lapack_int const* lda,
1224  double* WR,
1225  double* WI,
1226  double* VL, lapack_int const* ldvl,
1227  double* VR, lapack_int const* ldvr,
1228  double* work, lapack_int const* lwork,
1229  lapack_int* info );
1230 
1231 #define LAPACK_sgeev LAPACK_GLOBAL(sgeev,SGEEV)
1232 void LAPACK_sgeev(
1233  char const* jobvl, char const* jobvr,
1234  lapack_int const* n,
1235  float* A, lapack_int const* lda,
1236  float* WR,
1237  float* WI,
1238  float* VL, lapack_int const* ldvl,
1239  float* VR, lapack_int const* ldvr,
1240  float* work, lapack_int const* lwork,
1241  lapack_int* info );
1242 
1243 #define LAPACK_zgeev LAPACK_GLOBAL(zgeev,ZGEEV)
1244 void LAPACK_zgeev(
1245  char const* jobvl, char const* jobvr,
1246  lapack_int const* n,
1247  lapack_complex_double* A, lapack_int const* lda,
1249  lapack_complex_double* VL, lapack_int const* ldvl,
1250  lapack_complex_double* VR, lapack_int const* ldvr,
1251  lapack_complex_double* work, lapack_int const* lwork,
1252  double* rwork,
1253  lapack_int* info );
1254 
1255 #define LAPACK_cgeevx LAPACK_GLOBAL(cgeevx,CGEEVX)
1256 void LAPACK_cgeevx(
1257  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1258  lapack_int const* n,
1259  lapack_complex_float* A, lapack_int const* lda,
1261  lapack_complex_float* VL, lapack_int const* ldvl,
1262  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1263  float* scale,
1264  float* abnrm,
1265  float* rconde,
1266  float* rcondv,
1267  lapack_complex_float* work, lapack_int const* lwork,
1268  float* rwork,
1269  lapack_int* info );
1270 
1271 #define LAPACK_dgeevx LAPACK_GLOBAL(dgeevx,DGEEVX)
1272 void LAPACK_dgeevx(
1273  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1274  lapack_int const* n,
1275  double* A, lapack_int const* lda,
1276  double* WR,
1277  double* WI,
1278  double* VL, lapack_int const* ldvl,
1279  double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1280  double* scale,
1281  double* abnrm,
1282  double* rconde,
1283  double* rcondv,
1284  double* work, lapack_int const* lwork,
1285  lapack_int* iwork,
1286  lapack_int* info );
1287 
1288 #define LAPACK_sgeevx LAPACK_GLOBAL(sgeevx,SGEEVX)
1289 void LAPACK_sgeevx(
1290  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1291  lapack_int const* n,
1292  float* A, lapack_int const* lda,
1293  float* WR,
1294  float* WI,
1295  float* VL, lapack_int const* ldvl,
1296  float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1297  float* scale,
1298  float* abnrm,
1299  float* rconde,
1300  float* rcondv,
1301  float* work, lapack_int const* lwork,
1302  lapack_int* iwork,
1303  lapack_int* info );
1304 
1305 #define LAPACK_zgeevx LAPACK_GLOBAL(zgeevx,ZGEEVX)
1306 void LAPACK_zgeevx(
1307  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1308  lapack_int const* n,
1309  lapack_complex_double* A, lapack_int const* lda,
1311  lapack_complex_double* VL, lapack_int const* ldvl,
1312  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1313  double* scale,
1314  double* abnrm,
1315  double* rconde,
1316  double* rcondv,
1317  lapack_complex_double* work, lapack_int const* lwork,
1318  double* rwork,
1319  lapack_int* info );
1320 
1321 #define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
1322 void LAPACK_cgehrd(
1323  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1324  lapack_complex_float* A, lapack_int const* lda,
1325  lapack_complex_float* tau,
1326  lapack_complex_float* work, lapack_int const* lwork,
1327  lapack_int* info );
1328 
1329 #define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
1330 void LAPACK_dgehrd(
1331  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1332  double* A, lapack_int const* lda,
1333  double* tau,
1334  double* work, lapack_int const* lwork,
1335  lapack_int* info );
1336 
1337 #define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
1338 void LAPACK_sgehrd(
1339  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1340  float* A, lapack_int const* lda,
1341  float* tau,
1342  float* work, lapack_int const* lwork,
1343  lapack_int* info );
1344 
1345 #define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
1346 void LAPACK_zgehrd(
1347  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1348  lapack_complex_double* A, lapack_int const* lda,
1349  lapack_complex_double* tau,
1350  lapack_complex_double* work, lapack_int const* lwork,
1351  lapack_int* info );
1352 
1353 #define LAPACK_cgejsv LAPACK_GLOBAL(cgejsv,CGEJSV)
1354 void LAPACK_cgejsv(
1355  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
1356  lapack_int const* m, lapack_int const* n,
1357  lapack_complex_float* A, lapack_int const* lda,
1358  float* SVA,
1359  lapack_complex_float* U, lapack_int const* ldu,
1360  lapack_complex_float* V, lapack_int const* ldv,
1361  lapack_complex_float* cwork, lapack_int const* lwork,
1362  float* rwork, lapack_int const* lrwork,
1363  lapack_int* iwork,
1364  lapack_int* info );
1365 
1366 #define LAPACK_dgejsv LAPACK_GLOBAL(dgejsv,DGEJSV)
1367 void LAPACK_dgejsv(
1368  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
1369  lapack_int const* m, lapack_int const* n,
1370  double* A, lapack_int const* lda,
1371  double* SVA,
1372  double* U, lapack_int const* ldu,
1373  double* V, lapack_int const* ldv,
1374  double* work, lapack_int const* lwork,
1375  lapack_int* iwork,
1376  lapack_int* info );
1377 
1378 #define LAPACK_sgejsv LAPACK_GLOBAL(sgejsv,SGEJSV)
1379 void LAPACK_sgejsv(
1380  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
1381  lapack_int const* m, lapack_int const* n,
1382  float* A, lapack_int const* lda,
1383  float* SVA,
1384  float* U, lapack_int const* ldu,
1385  float* V, lapack_int const* ldv,
1386  float* work, lapack_int const* lwork,
1387  lapack_int* iwork,
1388  lapack_int* info );
1389 
1390 #define LAPACK_zgejsv LAPACK_GLOBAL(zgejsv,ZGEJSV)
1391 void LAPACK_zgejsv(
1392  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
1393  lapack_int const* m, lapack_int const* n,
1394  lapack_complex_double* A, lapack_int const* lda,
1395  double* SVA,
1396  lapack_complex_double* U, lapack_int const* ldu,
1397  lapack_complex_double* V, lapack_int const* ldv,
1398  lapack_complex_double* cwork, lapack_int const* lwork,
1399  double* rwork, lapack_int const* lrwork,
1400  lapack_int* iwork,
1401  lapack_int* info );
1402 
1403 #define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ)
1404 void LAPACK_cgelq(
1405  lapack_int const* m, lapack_int const* n,
1406  lapack_complex_float* A, lapack_int const* lda,
1407  lapack_complex_float* T, lapack_int const* tsize,
1408  lapack_complex_float* work, lapack_int const* lwork,
1409  lapack_int* info );
1410 
1411 #define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ)
1412 void LAPACK_dgelq(
1413  lapack_int const* m, lapack_int const* n,
1414  double* A, lapack_int const* lda,
1415  double* T, lapack_int const* tsize,
1416  double* work, lapack_int const* lwork,
1417  lapack_int* info );
1418 
1419 #define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ)
1420 void LAPACK_sgelq(
1421  lapack_int const* m, lapack_int const* n,
1422  float* A, lapack_int const* lda,
1423  float* T, lapack_int const* tsize,
1424  float* work, lapack_int const* lwork,
1425  lapack_int* info );
1426 
1427 #define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ)
1428 void LAPACK_zgelq(
1429  lapack_int const* m, lapack_int const* n,
1430  lapack_complex_double* A, lapack_int const* lda,
1431  lapack_complex_double* T, lapack_int const* tsize,
1432  lapack_complex_double* work, lapack_int const* lwork,
1433  lapack_int* info );
1434 
1435 #define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
1436 void LAPACK_cgelq2(
1437  lapack_int const* m, lapack_int const* n,
1438  lapack_complex_float* A, lapack_int const* lda,
1439  lapack_complex_float* tau,
1440  lapack_complex_float* work,
1441  lapack_int* info );
1442 
1443 #define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
1444 void LAPACK_dgelq2(
1445  lapack_int const* m, lapack_int const* n,
1446  double* A, lapack_int const* lda,
1447  double* tau,
1448  double* work,
1449  lapack_int* info );
1450 
1451 #define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
1452 void LAPACK_sgelq2(
1453  lapack_int const* m, lapack_int const* n,
1454  float* A, lapack_int const* lda,
1455  float* tau,
1456  float* work,
1457  lapack_int* info );
1458 
1459 #define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
1460 void LAPACK_zgelq2(
1461  lapack_int const* m, lapack_int const* n,
1462  lapack_complex_double* A, lapack_int const* lda,
1463  lapack_complex_double* tau,
1464  lapack_complex_double* work,
1465  lapack_int* info );
1466 
1467 #define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
1468 void LAPACK_cgelqf(
1469  lapack_int const* m, lapack_int const* n,
1470  lapack_complex_float* A, lapack_int const* lda,
1471  lapack_complex_float* tau,
1472  lapack_complex_float* work, lapack_int const* lwork,
1473  lapack_int* info );
1474 
1475 #define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
1476 void LAPACK_dgelqf(
1477  lapack_int const* m, lapack_int const* n,
1478  double* A, lapack_int const* lda,
1479  double* tau,
1480  double* work, lapack_int const* lwork,
1481  lapack_int* info );
1482 
1483 #define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
1484 void LAPACK_sgelqf(
1485  lapack_int const* m, lapack_int const* n,
1486  float* A, lapack_int const* lda,
1487  float* tau,
1488  float* work, lapack_int const* lwork,
1489  lapack_int* info );
1490 
1491 #define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
1492 void LAPACK_zgelqf(
1493  lapack_int const* m, lapack_int const* n,
1494  lapack_complex_double* A, lapack_int const* lda,
1495  lapack_complex_double* tau,
1496  lapack_complex_double* work, lapack_int const* lwork,
1497  lapack_int* info );
1498 
1499 #define LAPACK_cgels LAPACK_GLOBAL(cgels,CGELS)
1500 void LAPACK_cgels(
1501  char const* trans,
1502  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1503  lapack_complex_float* A, lapack_int const* lda,
1504  lapack_complex_float* B, lapack_int const* ldb,
1505  lapack_complex_float* work, lapack_int const* lwork,
1506  lapack_int* info );
1507 
1508 #define LAPACK_dgels LAPACK_GLOBAL(dgels,DGELS)
1509 void LAPACK_dgels(
1510  char const* trans,
1511  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1512  double* A, lapack_int const* lda,
1513  double* B, lapack_int const* ldb,
1514  double* work, lapack_int const* lwork,
1515  lapack_int* info );
1516 
1517 #define LAPACK_sgels LAPACK_GLOBAL(sgels,SGELS)
1518 void LAPACK_sgels(
1519  char const* trans,
1520  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1521  float* A, lapack_int const* lda,
1522  float* B, lapack_int const* ldb,
1523  float* work, lapack_int const* lwork,
1524  lapack_int* info );
1525 
1526 #define LAPACK_zgels LAPACK_GLOBAL(zgels,ZGELS)
1527 void LAPACK_zgels(
1528  char const* trans,
1529  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1530  lapack_complex_double* A, lapack_int const* lda,
1531  lapack_complex_double* B, lapack_int const* ldb,
1532  lapack_complex_double* work, lapack_int const* lwork,
1533  lapack_int* info );
1534 
1535 #define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
1536 void LAPACK_cgelsd(
1537  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1538  lapack_complex_float* A, lapack_int const* lda,
1539  lapack_complex_float* B, lapack_int const* ldb,
1540  float* S,
1541  float const* rcond, lapack_int* rank,
1542  lapack_complex_float* work, lapack_int const* lwork,
1543  float* rwork,
1544  lapack_int* iwork,
1545  lapack_int* info );
1546 
1547 #define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
1548 void LAPACK_dgelsd(
1549  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1550  double* A, lapack_int const* lda,
1551  double* B, lapack_int const* ldb,
1552  double* S,
1553  double const* rcond, lapack_int* rank,
1554  double* work, lapack_int const* lwork,
1555  lapack_int* iwork,
1556  lapack_int* info );
1557 
1558 #define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
1559 void LAPACK_sgelsd(
1560  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1561  float* A, lapack_int const* lda,
1562  float* B, lapack_int const* ldb,
1563  float* S,
1564  float const* rcond, lapack_int* rank,
1565  float* work, lapack_int const* lwork,
1566  lapack_int* iwork,
1567  lapack_int* info );
1568 
1569 #define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
1570 void LAPACK_zgelsd(
1571  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1572  lapack_complex_double* A, lapack_int const* lda,
1573  lapack_complex_double* B, lapack_int const* ldb,
1574  double* S,
1575  double const* rcond, lapack_int* rank,
1576  lapack_complex_double* work, lapack_int const* lwork,
1577  double* rwork,
1578  lapack_int* iwork,
1579  lapack_int* info );
1580 
1581 #define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
1582 void LAPACK_cgelss(
1583  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1584  lapack_complex_float* A, lapack_int const* lda,
1585  lapack_complex_float* B, lapack_int const* ldb,
1586  float* S,
1587  float const* rcond, lapack_int* rank,
1588  lapack_complex_float* work, lapack_int const* lwork,
1589  float* rwork,
1590  lapack_int* info );
1591 
1592 #define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
1593 void LAPACK_dgelss(
1594  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1595  double* A, lapack_int const* lda,
1596  double* B, lapack_int const* ldb,
1597  double* S,
1598  double const* rcond, lapack_int* rank,
1599  double* work, lapack_int const* lwork,
1600  lapack_int* info );
1601 
1602 #define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
1603 void LAPACK_sgelss(
1604  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1605  float* A, lapack_int const* lda,
1606  float* B, lapack_int const* ldb,
1607  float* S,
1608  float const* rcond, lapack_int* rank,
1609  float* work, lapack_int const* lwork,
1610  lapack_int* info );
1611 
1612 #define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
1613 void LAPACK_zgelss(
1614  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1615  lapack_complex_double* A, lapack_int const* lda,
1616  lapack_complex_double* B, lapack_int const* ldb,
1617  double* S,
1618  double const* rcond, lapack_int* rank,
1619  lapack_complex_double* work, lapack_int const* lwork,
1620  double* rwork,
1621  lapack_int* info );
1622 
1623 #define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
1624 void LAPACK_cgelsy(
1625  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1626  lapack_complex_float* A, lapack_int const* lda,
1627  lapack_complex_float* B, lapack_int const* ldb, lapack_int* JPVT,
1628  float const* rcond, lapack_int* rank,
1629  lapack_complex_float* work, lapack_int const* lwork,
1630  float* rwork,
1631  lapack_int* info );
1632 
1633 #define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
1634 void LAPACK_dgelsy(
1635  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1636  double* A, lapack_int const* lda,
1637  double* B, lapack_int const* ldb, lapack_int* JPVT,
1638  double const* rcond, lapack_int* rank,
1639  double* work, lapack_int const* lwork,
1640  lapack_int* info );
1641 
1642 #define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
1643 void LAPACK_sgelsy(
1644  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1645  float* A, lapack_int const* lda,
1646  float* B, lapack_int const* ldb, lapack_int* JPVT,
1647  float const* rcond, lapack_int* rank,
1648  float* work, lapack_int const* lwork,
1649  lapack_int* info );
1650 
1651 #define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
1652 void LAPACK_zgelsy(
1653  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
1654  lapack_complex_double* A, lapack_int const* lda,
1655  lapack_complex_double* B, lapack_int const* ldb, lapack_int* JPVT,
1656  double const* rcond, lapack_int* rank,
1657  lapack_complex_double* work, lapack_int const* lwork,
1658  double* rwork,
1659  lapack_int* info );
1660 
1661 #define LAPACK_cgemlq LAPACK_GLOBAL(cgemlq,CGEMLQ)
1662 void LAPACK_cgemlq(
1663  char const* side, char const* trans,
1664  lapack_int const* m, lapack_int const* n, lapack_int const* k,
1665  lapack_complex_float const* A, lapack_int const* lda,
1666  lapack_complex_float const* T, lapack_int const* tsize,
1667  lapack_complex_float* C, lapack_int const* ldc,
1668  lapack_complex_float* work, lapack_int const* lwork,
1669  lapack_int* info );
1670 
1671 #define LAPACK_dgemlq LAPACK_GLOBAL(dgemlq,DGEMLQ)
1672 void LAPACK_dgemlq(
1673  char const* side, char const* trans,
1674  lapack_int const* m, lapack_int const* n, lapack_int const* k,
1675  double const* A, lapack_int const* lda,
1676  double const* T, lapack_int const* tsize,
1677  double* C, lapack_int const* ldc,
1678  double* work, lapack_int const* lwork,
1679  lapack_int* info );
1680 
1681 #define LAPACK_sgemlq LAPACK_GLOBAL(sgemlq,SGEMLQ)
1682 void LAPACK_sgemlq(
1683  char const* side, char const* trans,
1684  lapack_int const* m, lapack_int const* n, lapack_int const* k,
1685  float const* A, lapack_int const* lda,
1686  float const* T, lapack_int const* tsize,
1687  float* C, lapack_int const* ldc,
1688  float* work, lapack_int const* lwork,
1689  lapack_int* info );
1690 
1691 #define LAPACK_zgemlq LAPACK_GLOBAL(zgemlq,ZGEMLQ)
1692 void LAPACK_zgemlq(
1693  char const* side, char const* trans,
1694  lapack_int const* m, lapack_int const* n, lapack_int const* k,
1695  lapack_complex_double const* A, lapack_int const* lda,
1696  lapack_complex_double const* T, lapack_int const* tsize,
1697  lapack_complex_double* C, lapack_int const* ldc,
1698  lapack_complex_double* work, lapack_int const* lwork,
1699  lapack_int* info );
1700 
1701 #define LAPACK_cgemqr LAPACK_GLOBAL(cgemqr,CGEMQR)
1702 void LAPACK_cgemqr(
1703  char const* side, char const* trans,
1704  lapack_int const* m, lapack_int const* n, lapack_int const* k,
1705  lapack_complex_float const* A, lapack_int const* lda,
1706  lapack_complex_float const* T, lapack_int const* tsize,
1707  lapack_complex_float* C, lapack_int const* ldc,
1708  lapack_complex_float* work, lapack_int const* lwork,
1709  lapack_int* info );
1710 
1711 #define LAPACK_dgemqr LAPACK_GLOBAL(dgemqr,DGEMQR)
1712 void LAPACK_dgemqr(
1713  char const* side, char const* trans,
1714  lapack_int const* m, lapack_int const* n, lapack_int const* k,
1715  double const* A, lapack_int const* lda,
1716  double const* T, lapack_int const* tsize,
1717  double* C, lapack_int const* ldc,
1718  double* work, lapack_int const* lwork,
1719  lapack_int* info );
1720 
1721 #define LAPACK_sgemqr LAPACK_GLOBAL(sgemqr,SGEMQR)
1722 void LAPACK_sgemqr(
1723  char const* side, char const* trans,
1724  lapack_int const* m, lapack_int const* n, lapack_int const* k,
1725  float const* A, lapack_int const* lda,
1726  float const* T, lapack_int const* tsize,
1727  float* C, lapack_int const* ldc,
1728  float* work, lapack_int const* lwork,
1729  lapack_int* info );
1730 
1731 #define LAPACK_zgemqr LAPACK_GLOBAL(zgemqr,ZGEMQR)
1732 void LAPACK_zgemqr(
1733  char const* side, char const* trans,
1734  lapack_int const* m, lapack_int const* n, lapack_int const* k,
1735  lapack_complex_double const* A, lapack_int const* lda,
1736  lapack_complex_double const* T, lapack_int const* tsize,
1737  lapack_complex_double* C, lapack_int const* ldc,
1738  lapack_complex_double* work, lapack_int const* lwork,
1739  lapack_int* info );
1740 
1741 #define LAPACK_cgemqrt LAPACK_GLOBAL(cgemqrt,CGEMQRT)
1742 void LAPACK_cgemqrt(
1743  char const* side, char const* trans,
1744  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
1745  lapack_complex_float const* V, lapack_int const* ldv,
1746  lapack_complex_float const* T, lapack_int const* ldt,
1747  lapack_complex_float* C, lapack_int const* ldc,
1748  lapack_complex_float* work,
1749  lapack_int* info );
1750 
1751 #define LAPACK_dgemqrt LAPACK_GLOBAL(dgemqrt,DGEMQRT)
1752 void LAPACK_dgemqrt(
1753  char const* side, char const* trans,
1754  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
1755  double const* V, lapack_int const* ldv,
1756  double const* T, lapack_int const* ldt,
1757  double* C, lapack_int const* ldc,
1758  double* work,
1759  lapack_int* info );
1760 
1761 #define LAPACK_sgemqrt LAPACK_GLOBAL(sgemqrt,SGEMQRT)
1762 void LAPACK_sgemqrt(
1763  char const* side, char const* trans,
1764  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
1765  float const* V, lapack_int const* ldv,
1766  float const* T, lapack_int const* ldt,
1767  float* C, lapack_int const* ldc,
1768  float* work,
1769  lapack_int* info );
1770 
1771 #define LAPACK_zgemqrt LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
1772 void LAPACK_zgemqrt(
1773  char const* side, char const* trans,
1774  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
1775  lapack_complex_double const* V, lapack_int const* ldv,
1776  lapack_complex_double const* T, lapack_int const* ldt,
1777  lapack_complex_double* C, lapack_int const* ldc,
1778  lapack_complex_double* work,
1779  lapack_int* info );
1780 
1781 #define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2)
1782 void LAPACK_cgeql2(
1783  lapack_int const* m, lapack_int const* n,
1784  lapack_complex_float* A, lapack_int const* lda,
1785  lapack_complex_float* tau,
1786  lapack_complex_float* work,
1787  lapack_int* info );
1788 
1789 #define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2)
1790 void LAPACK_dgeql2(
1791  lapack_int const* m, lapack_int const* n,
1792  double* A, lapack_int const* lda,
1793  double* tau,
1794  double* work,
1795  lapack_int* info );
1796 
1797 #define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2)
1798 void LAPACK_sgeql2(
1799  lapack_int const* m, lapack_int const* n,
1800  float* A, lapack_int const* lda,
1801  float* tau,
1802  float* work,
1803  lapack_int* info );
1804 
1805 #define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2)
1806 void LAPACK_zgeql2(
1807  lapack_int const* m, lapack_int const* n,
1808  lapack_complex_double* A, lapack_int const* lda,
1809  lapack_complex_double* tau,
1810  lapack_complex_double* work,
1811  lapack_int* info );
1812 
1813 #define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
1814 void LAPACK_cgeqlf(
1815  lapack_int const* m, lapack_int const* n,
1816  lapack_complex_float* A, lapack_int const* lda,
1817  lapack_complex_float* tau,
1818  lapack_complex_float* work, lapack_int const* lwork,
1819  lapack_int* info );
1820 
1821 #define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
1822 void LAPACK_dgeqlf(
1823  lapack_int const* m, lapack_int const* n,
1824  double* A, lapack_int const* lda,
1825  double* tau,
1826  double* work, lapack_int const* lwork,
1827  lapack_int* info );
1828 
1829 #define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
1830 void LAPACK_sgeqlf(
1831  lapack_int const* m, lapack_int const* n,
1832  float* A, lapack_int const* lda,
1833  float* tau,
1834  float* work, lapack_int const* lwork,
1835  lapack_int* info );
1836 
1837 #define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
1838 void LAPACK_zgeqlf(
1839  lapack_int const* m, lapack_int const* n,
1840  lapack_complex_double* A, lapack_int const* lda,
1841  lapack_complex_double* tau,
1842  lapack_complex_double* work, lapack_int const* lwork,
1843  lapack_int* info );
1844 
1845 #define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
1846 void LAPACK_cgeqp3(
1847  lapack_int const* m, lapack_int const* n,
1848  lapack_complex_float* A, lapack_int const* lda, lapack_int* JPVT,
1849  lapack_complex_float* tau,
1850  lapack_complex_float* work, lapack_int const* lwork,
1851  float* rwork,
1852  lapack_int* info );
1853 
1854 #define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
1855 void LAPACK_dgeqp3(
1856  lapack_int const* m, lapack_int const* n,
1857  double* A, lapack_int const* lda, lapack_int* JPVT,
1858  double* tau,
1859  double* work, lapack_int const* lwork,
1860  lapack_int* info );
1861 
1862 #define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
1863 void LAPACK_sgeqp3(
1864  lapack_int const* m, lapack_int const* n,
1865  float* A, lapack_int const* lda, lapack_int* JPVT,
1866  float* tau,
1867  float* work, lapack_int const* lwork,
1868  lapack_int* info );
1869 
1870 #define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
1871 void LAPACK_zgeqp3(
1872  lapack_int const* m, lapack_int const* n,
1873  lapack_complex_double* A, lapack_int const* lda, lapack_int* JPVT,
1874  lapack_complex_double* tau,
1875  lapack_complex_double* work, lapack_int const* lwork,
1876  double* rwork,
1877  lapack_int* info );
1878 
1879 #define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR)
1880 void LAPACK_cgeqr(
1881  lapack_int const* m, lapack_int const* n,
1882  lapack_complex_float* A, lapack_int const* lda,
1883  lapack_complex_float* T, lapack_int const* tsize,
1884  lapack_complex_float* work, lapack_int const* lwork,
1885  lapack_int* info );
1886 
1887 #define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR)
1888 void LAPACK_dgeqr(
1889  lapack_int const* m, lapack_int const* n,
1890  double* A, lapack_int const* lda,
1891  double* T, lapack_int const* tsize,
1892  double* work, lapack_int const* lwork,
1893  lapack_int* info );
1894 
1895 #define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR)
1896 void LAPACK_sgeqr(
1897  lapack_int const* m, lapack_int const* n,
1898  float* A, lapack_int const* lda,
1899  float* T, lapack_int const* tsize,
1900  float* work, lapack_int const* lwork,
1901  lapack_int* info );
1902 
1903 #define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR)
1904 void LAPACK_zgeqr(
1905  lapack_int const* m, lapack_int const* n,
1906  lapack_complex_double* A, lapack_int const* lda,
1907  lapack_complex_double* T, lapack_int const* tsize,
1908  lapack_complex_double* work, lapack_int const* lwork,
1909  lapack_int* info );
1910 
1911 #define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
1912 void LAPACK_cgeqr2(
1913  lapack_int const* m, lapack_int const* n,
1914  lapack_complex_float* A, lapack_int const* lda,
1915  lapack_complex_float* tau,
1916  lapack_complex_float* work,
1917  lapack_int* info );
1918 
1919 #define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
1920 void LAPACK_dgeqr2(
1921  lapack_int const* m, lapack_int const* n,
1922  double* A, lapack_int const* lda,
1923  double* tau,
1924  double* work,
1925  lapack_int* info );
1926 
1927 #define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
1928 void LAPACK_sgeqr2(
1929  lapack_int const* m, lapack_int const* n,
1930  float* A, lapack_int const* lda,
1931  float* tau,
1932  float* work,
1933  lapack_int* info );
1934 
1935 #define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
1936 void LAPACK_zgeqr2(
1937  lapack_int const* m, lapack_int const* n,
1938  lapack_complex_double* A, lapack_int const* lda,
1939  lapack_complex_double* tau,
1940  lapack_complex_double* work,
1941  lapack_int* info );
1942 
1943 #define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
1944 void LAPACK_cgeqrf(
1945  lapack_int const* m, lapack_int const* n,
1946  lapack_complex_float* A, lapack_int const* lda,
1947  lapack_complex_float* tau,
1948  lapack_complex_float* work, lapack_int const* lwork,
1949  lapack_int* info );
1950 
1951 #define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
1952 void LAPACK_dgeqrf(
1953  lapack_int const* m, lapack_int const* n,
1954  double* A, lapack_int const* lda,
1955  double* tau,
1956  double* work, lapack_int const* lwork,
1957  lapack_int* info );
1958 
1959 #define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
1960 void LAPACK_sgeqrf(
1961  lapack_int const* m, lapack_int const* n,
1962  float* A, lapack_int const* lda,
1963  float* tau,
1964  float* work, lapack_int const* lwork,
1965  lapack_int* info );
1966 
1967 #define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
1968 void LAPACK_zgeqrf(
1969  lapack_int const* m, lapack_int const* n,
1970  lapack_complex_double* A, lapack_int const* lda,
1971  lapack_complex_double* tau,
1972  lapack_complex_double* work, lapack_int const* lwork,
1973  lapack_int* info );
1974 
1975 #define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
1976 void LAPACK_cgeqrfp(
1977  lapack_int const* m, lapack_int const* n,
1978  lapack_complex_float* A, lapack_int const* lda,
1979  lapack_complex_float* tau,
1980  lapack_complex_float* work, lapack_int const* lwork,
1981  lapack_int* info );
1982 
1983 #define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
1984 void LAPACK_dgeqrfp(
1985  lapack_int const* m, lapack_int const* n,
1986  double* A, lapack_int const* lda,
1987  double* tau,
1988  double* work, lapack_int const* lwork,
1989  lapack_int* info );
1990 
1991 #define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
1992 void LAPACK_sgeqrfp(
1993  lapack_int const* m, lapack_int const* n,
1994  float* A, lapack_int const* lda,
1995  float* tau,
1996  float* work, lapack_int const* lwork,
1997  lapack_int* info );
1998 
1999 #define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
2000 void LAPACK_zgeqrfp(
2001  lapack_int const* m, lapack_int const* n,
2002  lapack_complex_double* A, lapack_int const* lda,
2003  lapack_complex_double* tau,
2004  lapack_complex_double* work, lapack_int const* lwork,
2005  lapack_int* info );
2006 
2007 #define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
2008 void LAPACK_cgeqrt(
2009  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2010  lapack_complex_float* A, lapack_int const* lda,
2011  lapack_complex_float* T, lapack_int const* ldt,
2012  lapack_complex_float* work,
2013  lapack_int* info );
2014 
2015 #define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
2016 void LAPACK_dgeqrt(
2017  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2018  double* A, lapack_int const* lda,
2019  double* T, lapack_int const* ldt,
2020  double* work,
2021  lapack_int* info );
2022 
2023 #define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
2024 void LAPACK_sgeqrt(
2025  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2026  float* A, lapack_int const* lda,
2027  float* T, lapack_int const* ldt,
2028  float* work,
2029  lapack_int* info );
2030 
2031 #define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
2032 void LAPACK_zgeqrt(
2033  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2034  lapack_complex_double* A, lapack_int const* lda,
2035  lapack_complex_double* T, lapack_int const* ldt,
2036  lapack_complex_double* work,
2037  lapack_int* info );
2038 
2039 #define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
2040 void LAPACK_cgeqrt2(
2041  lapack_int const* m, lapack_int const* n,
2042  lapack_complex_float* A, lapack_int const* lda,
2043  lapack_complex_float* T, lapack_int const* ldt,
2044  lapack_int* info );
2045 
2046 #define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
2047 void LAPACK_dgeqrt2(
2048  lapack_int const* m, lapack_int const* n,
2049  double* A, lapack_int const* lda,
2050  double* T, lapack_int const* ldt,
2051  lapack_int* info );
2052 
2053 #define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
2054 void LAPACK_sgeqrt2(
2055  lapack_int const* m, lapack_int const* n,
2056  float* A, lapack_int const* lda,
2057  float* T, lapack_int const* ldt,
2058  lapack_int* info );
2059 
2060 #define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
2061 void LAPACK_zgeqrt2(
2062  lapack_int const* m, lapack_int const* n,
2063  lapack_complex_double* A, lapack_int const* lda,
2064  lapack_complex_double* T, lapack_int const* ldt,
2065  lapack_int* info );
2066 
2067 #define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
2068 void LAPACK_cgeqrt3(
2069  lapack_int const* m, lapack_int const* n,
2070  lapack_complex_float* A, lapack_int const* lda,
2071  lapack_complex_float* T, lapack_int const* ldt,
2072  lapack_int* info );
2073 
2074 #define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
2075 void LAPACK_dgeqrt3(
2076  lapack_int const* m, lapack_int const* n,
2077  double* A, lapack_int const* lda,
2078  double* T, lapack_int const* ldt,
2079  lapack_int* info );
2080 
2081 #define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
2082 void LAPACK_sgeqrt3(
2083  lapack_int const* m, lapack_int const* n,
2084  float* A, lapack_int const* lda,
2085  float* T, lapack_int const* ldt,
2086  lapack_int* info );
2087 
2088 #define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
2089 void LAPACK_zgeqrt3(
2090  lapack_int const* m, lapack_int const* n,
2091  lapack_complex_double* A, lapack_int const* lda,
2092  lapack_complex_double* T, lapack_int const* ldt,
2093  lapack_int* info );
2094 
2095 #define LAPACK_cgerfs LAPACK_GLOBAL(cgerfs,CGERFS)
2096 void LAPACK_cgerfs(
2097  char const* trans,
2098  lapack_int const* n, lapack_int const* nrhs,
2099  lapack_complex_float const* A, lapack_int const* lda,
2100  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2101  lapack_complex_float const* B, lapack_int const* ldb,
2102  lapack_complex_float* X, lapack_int const* ldx,
2103  float* ferr,
2104  float* berr,
2105  lapack_complex_float* work,
2106  float* rwork,
2107  lapack_int* info );
2108 
2109 #define LAPACK_dgerfs LAPACK_GLOBAL(dgerfs,DGERFS)
2110 void LAPACK_dgerfs(
2111  char const* trans,
2112  lapack_int const* n, lapack_int const* nrhs,
2113  double const* A, lapack_int const* lda,
2114  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2115  double const* B, lapack_int const* ldb,
2116  double* X, lapack_int const* ldx,
2117  double* ferr,
2118  double* berr,
2119  double* work,
2120  lapack_int* iwork,
2121  lapack_int* info );
2122 
2123 #define LAPACK_sgerfs LAPACK_GLOBAL(sgerfs,SGERFS)
2124 void LAPACK_sgerfs(
2125  char const* trans,
2126  lapack_int const* n, lapack_int const* nrhs,
2127  float const* A, lapack_int const* lda,
2128  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2129  float const* B, lapack_int const* ldb,
2130  float* X, lapack_int const* ldx,
2131  float* ferr,
2132  float* berr,
2133  float* work,
2134  lapack_int* iwork,
2135  lapack_int* info );
2136 
2137 #define LAPACK_zgerfs LAPACK_GLOBAL(zgerfs,ZGERFS)
2138 void LAPACK_zgerfs(
2139  char const* trans,
2140  lapack_int const* n, lapack_int const* nrhs,
2141  lapack_complex_double const* A, lapack_int const* lda,
2142  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2143  lapack_complex_double const* B, lapack_int const* ldb,
2144  lapack_complex_double* X, lapack_int const* ldx,
2145  double* ferr,
2146  double* berr,
2147  lapack_complex_double* work,
2148  double* rwork,
2149  lapack_int* info );
2150 
2151 #define LAPACK_cgerfsx LAPACK_GLOBAL(cgerfsx,CGERFSX)
2152 void LAPACK_cgerfsx(
2153  char const* trans, char const* equed,
2154  lapack_int const* n, lapack_int const* nrhs,
2155  lapack_complex_float const* A, lapack_int const* lda,
2156  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2157  float const* R,
2158  float const* C,
2159  lapack_complex_float const* B, lapack_int const* ldb,
2160  lapack_complex_float* X, lapack_int const* ldx,
2161  float* rcond,
2162  float* berr, lapack_int const* n_err_bnds,
2163  float* err_bnds_norm,
2164  float* err_bnds_comp, lapack_int const* nparams,
2165  float* params,
2166  lapack_complex_float* work,
2167  float* rwork,
2168  lapack_int* info );
2169 
2170 #define LAPACK_dgerfsx LAPACK_GLOBAL(dgerfsx,DGERFSX)
2171 void LAPACK_dgerfsx(
2172  char const* trans, char const* equed,
2173  lapack_int const* n, lapack_int const* nrhs,
2174  double const* A, lapack_int const* lda,
2175  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2176  double const* R,
2177  double const* C,
2178  double const* B, lapack_int const* ldb,
2179  double* X, lapack_int const* ldx,
2180  double* rcond,
2181  double* berr, lapack_int const* n_err_bnds,
2182  double* err_bnds_norm,
2183  double* err_bnds_comp, lapack_int const* nparams,
2184  double* params,
2185  double* work,
2186  lapack_int* iwork,
2187  lapack_int* info );
2188 
2189 #define LAPACK_sgerfsx LAPACK_GLOBAL(sgerfsx,SGERFSX)
2190 void LAPACK_sgerfsx(
2191  char const* trans, char const* equed,
2192  lapack_int const* n, lapack_int const* nrhs,
2193  float const* A, lapack_int const* lda,
2194  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2195  float const* R,
2196  float const* C,
2197  float const* B, lapack_int const* ldb,
2198  float* X, lapack_int const* ldx,
2199  float* rcond,
2200  float* berr, lapack_int const* n_err_bnds,
2201  float* err_bnds_norm,
2202  float* err_bnds_comp, lapack_int const* nparams,
2203  float* params,
2204  float* work,
2205  lapack_int* iwork,
2206  lapack_int* info );
2207 
2208 #define LAPACK_zgerfsx LAPACK_GLOBAL(zgerfsx,ZGERFSX)
2209 void LAPACK_zgerfsx(
2210  char const* trans, char const* equed,
2211  lapack_int const* n, lapack_int const* nrhs,
2212  lapack_complex_double const* A, lapack_int const* lda,
2213  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2214  double const* R,
2215  double const* C,
2216  lapack_complex_double const* B, lapack_int const* ldb,
2217  lapack_complex_double* X, lapack_int const* ldx,
2218  double* rcond,
2219  double* berr, lapack_int const* n_err_bnds,
2220  double* err_bnds_norm,
2221  double* err_bnds_comp, lapack_int const* nparams,
2222  double* params,
2223  lapack_complex_double* work,
2224  double* rwork,
2225  lapack_int* info );
2226 
2227 #define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2)
2228 void LAPACK_cgerq2(
2229  lapack_int const* m, lapack_int const* n,
2230  lapack_complex_float* A, lapack_int const* lda,
2231  lapack_complex_float* tau,
2232  lapack_complex_float* work,
2233  lapack_int* info );
2234 
2235 #define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2)
2236 void LAPACK_dgerq2(
2237  lapack_int const* m, lapack_int const* n,
2238  double* A, lapack_int const* lda,
2239  double* tau,
2240  double* work,
2241  lapack_int* info );
2242 
2243 #define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2)
2244 void LAPACK_sgerq2(
2245  lapack_int const* m, lapack_int const* n,
2246  float* A, lapack_int const* lda,
2247  float* tau,
2248  float* work,
2249  lapack_int* info );
2250 
2251 #define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2)
2252 void LAPACK_zgerq2(
2253  lapack_int const* m, lapack_int const* n,
2254  lapack_complex_double* A, lapack_int const* lda,
2255  lapack_complex_double* tau,
2256  lapack_complex_double* work,
2257  lapack_int* info );
2258 
2259 #define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
2260 void LAPACK_cgerqf(
2261  lapack_int const* m, lapack_int const* n,
2262  lapack_complex_float* A, lapack_int const* lda,
2263  lapack_complex_float* tau,
2264  lapack_complex_float* work, lapack_int const* lwork,
2265  lapack_int* info );
2266 
2267 #define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
2268 void LAPACK_dgerqf(
2269  lapack_int const* m, lapack_int const* n,
2270  double* A, lapack_int const* lda,
2271  double* tau,
2272  double* work, lapack_int const* lwork,
2273  lapack_int* info );
2274 
2275 #define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
2276 void LAPACK_sgerqf(
2277  lapack_int const* m, lapack_int const* n,
2278  float* A, lapack_int const* lda,
2279  float* tau,
2280  float* work, lapack_int const* lwork,
2281  lapack_int* info );
2282 
2283 #define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
2284 void LAPACK_zgerqf(
2285  lapack_int const* m, lapack_int const* n,
2286  lapack_complex_double* A, lapack_int const* lda,
2287  lapack_complex_double* tau,
2288  lapack_complex_double* work, lapack_int const* lwork,
2289  lapack_int* info );
2290 
2291 #define LAPACK_cgesdd LAPACK_GLOBAL(cgesdd,CGESDD)
2292 void LAPACK_cgesdd(
2293  char const* jobz,
2294  lapack_int const* m, lapack_int const* n,
2295  lapack_complex_float* A, lapack_int const* lda,
2296  float* S,
2297  lapack_complex_float* U, lapack_int const* ldu,
2298  lapack_complex_float* VT, lapack_int const* ldvt,
2299  lapack_complex_float* work, lapack_int const* lwork,
2300  float* rwork,
2301  lapack_int* iwork,
2302  lapack_int* info );
2303 
2304 #define LAPACK_dgesdd LAPACK_GLOBAL(dgesdd,DGESDD)
2305 void LAPACK_dgesdd(
2306  char const* jobz,
2307  lapack_int const* m, lapack_int const* n,
2308  double* A, lapack_int const* lda,
2309  double* S,
2310  double* U, lapack_int const* ldu,
2311  double* VT, lapack_int const* ldvt,
2312  double* work, lapack_int const* lwork,
2313  lapack_int* iwork,
2314  lapack_int* info );
2315 
2316 #define LAPACK_sgesdd LAPACK_GLOBAL(sgesdd,SGESDD)
2317 void LAPACK_sgesdd(
2318  char const* jobz,
2319  lapack_int const* m, lapack_int const* n,
2320  float* A, lapack_int const* lda,
2321  float* S,
2322  float* U, lapack_int const* ldu,
2323  float* VT, lapack_int const* ldvt,
2324  float* work, lapack_int const* lwork,
2325  lapack_int* iwork,
2326  lapack_int* info );
2327 
2328 #define LAPACK_zgesdd LAPACK_GLOBAL(zgesdd,ZGESDD)
2329 void LAPACK_zgesdd(
2330  char const* jobz,
2331  lapack_int const* m, lapack_int const* n,
2332  lapack_complex_double* A, lapack_int const* lda,
2333  double* S,
2334  lapack_complex_double* U, lapack_int const* ldu,
2335  lapack_complex_double* VT, lapack_int const* ldvt,
2336  lapack_complex_double* work, lapack_int const* lwork,
2337  double* rwork,
2338  lapack_int* iwork,
2339  lapack_int* info );
2340 
2341 #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
2342 void LAPACK_cgesv(
2343  lapack_int const* n, lapack_int const* nrhs,
2344  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
2345  lapack_complex_float* B, lapack_int const* ldb,
2346  lapack_int* info );
2347 
2348 #define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
2349 void LAPACK_dgesv(
2350  lapack_int const* n, lapack_int const* nrhs,
2351  double* A, lapack_int const* lda, lapack_int* ipiv,
2352  double* B, lapack_int const* ldb,
2353  lapack_int* info );
2354 
2355 #define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
2356 void LAPACK_sgesv(
2357  lapack_int const* n, lapack_int const* nrhs,
2358  float* A, lapack_int const* lda, lapack_int* ipiv,
2359  float* B, lapack_int const* ldb,
2360  lapack_int* info );
2361 
2362 #define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
2363 void LAPACK_zgesv(
2364  lapack_int const* n, lapack_int const* nrhs,
2365  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
2366  lapack_complex_double* B, lapack_int const* ldb,
2367  lapack_int* info );
2368 
2369 #define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
2370 void LAPACK_dsgesv(
2371  lapack_int const* n, lapack_int const* nrhs,
2372  double* A, lapack_int const* lda, lapack_int* ipiv,
2373  double const* B, lapack_int const* ldb,
2374  double* X, lapack_int const* ldx,
2375  double* work,
2376  float* swork, lapack_int* iter,
2377  lapack_int* info );
2378 
2379 #define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
2380 void LAPACK_zcgesv(
2381  lapack_int const* n, lapack_int const* nrhs,
2382  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
2383  lapack_complex_double const* B, lapack_int const* ldb,
2384  lapack_complex_double* X, lapack_int const* ldx,
2385  lapack_complex_double* work,
2386  lapack_complex_float* swork,
2387  double* rwork, lapack_int* iter,
2388  lapack_int* info );
2389 
2390 #define LAPACK_cgesvd LAPACK_GLOBAL(cgesvd,CGESVD)
2391 void LAPACK_cgesvd(
2392  char const* jobu, char const* jobvt,
2393  lapack_int const* m, lapack_int const* n,
2394  lapack_complex_float* A, lapack_int const* lda,
2395  float* S,
2396  lapack_complex_float* U, lapack_int const* ldu,
2397  lapack_complex_float* VT, lapack_int const* ldvt,
2398  lapack_complex_float* work, lapack_int const* lwork,
2399  float* rwork,
2400  lapack_int* info );
2401 
2402 #define LAPACK_dgesvd LAPACK_GLOBAL(dgesvd,DGESVD)
2403 void LAPACK_dgesvd(
2404  char const* jobu, char const* jobvt,
2405  lapack_int const* m, lapack_int const* n,
2406  double* A, lapack_int const* lda,
2407  double* S,
2408  double* U, lapack_int const* ldu,
2409  double* VT, lapack_int const* ldvt,
2410  double* work, lapack_int const* lwork,
2411  lapack_int* info );
2412 
2413 #define LAPACK_sgesvd LAPACK_GLOBAL(sgesvd,SGESVD)
2414 void LAPACK_sgesvd(
2415  char const* jobu, char const* jobvt,
2416  lapack_int const* m, lapack_int const* n,
2417  float* A, lapack_int const* lda,
2418  float* S,
2419  float* U, lapack_int const* ldu,
2420  float* VT, lapack_int const* ldvt,
2421  float* work, lapack_int const* lwork,
2422  lapack_int* info );
2423 
2424 #define LAPACK_zgesvd LAPACK_GLOBAL(zgesvd,ZGESVD)
2425 void LAPACK_zgesvd(
2426  char const* jobu, char const* jobvt,
2427  lapack_int const* m, lapack_int const* n,
2428  lapack_complex_double* A, lapack_int const* lda,
2429  double* S,
2430  lapack_complex_double* U, lapack_int const* ldu,
2431  lapack_complex_double* VT, lapack_int const* ldvt,
2432  lapack_complex_double* work, lapack_int const* lwork,
2433  double* rwork,
2434  lapack_int* info );
2435 
2436 #define LAPACK_cgesvdq LAPACK_GLOBAL(cgesvdq,CGESVDQ)
2437 void LAPACK_cgesvdq(
2438  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
2439  lapack_int const* m, lapack_int const* n,
2440  lapack_complex_float* A, lapack_int const* lda,
2441  float* S,
2442  lapack_complex_float* U, lapack_int const* ldu,
2443  lapack_complex_float* V, lapack_int const* ldv, lapack_int* numrank,
2444  lapack_int* iwork, lapack_int const* liwork,
2445  lapack_complex_float* cwork, lapack_int* lcwork,
2446  float* rwork, lapack_int const* lrwork,
2447  lapack_int* info );
2448 
2449 #define LAPACK_dgesvdq LAPACK_GLOBAL(dgesvdq,DGESVDQ)
2450 void LAPACK_dgesvdq(
2451  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
2452  lapack_int const* m, lapack_int const* n,
2453  double* A, lapack_int const* lda,
2454  double* S,
2455  double* U, lapack_int const* ldu,
2456  double* V, lapack_int const* ldv, lapack_int* numrank,
2457  lapack_int* iwork, lapack_int const* liwork,
2458  double* work, lapack_int* lwork,
2459  double* rwork, lapack_int const* lrwork,
2460  lapack_int* info );
2461 
2462 #define LAPACK_sgesvdq LAPACK_GLOBAL(sgesvdq,SGESVDQ)
2463 void LAPACK_sgesvdq(
2464  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
2465  lapack_int const* m, lapack_int const* n,
2466  float* A, lapack_int const* lda,
2467  float* S,
2468  float* U, lapack_int const* ldu,
2469  float* V, lapack_int const* ldv, lapack_int* numrank,
2470  lapack_int* iwork, lapack_int const* liwork,
2471  float* work, lapack_int* lwork,
2472  float* rwork, lapack_int const* lrwork,
2473  lapack_int* info );
2474 
2475 #define LAPACK_zgesvdq LAPACK_GLOBAL(zgesvdq,ZGESVDQ)
2476 void LAPACK_zgesvdq(
2477  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
2478  lapack_int const* m, lapack_int const* n,
2479  lapack_complex_double* A, lapack_int const* lda,
2480  double* S,
2481  lapack_complex_double* U, lapack_int const* ldu,
2482  lapack_complex_double* V, lapack_int const* ldv, lapack_int* numrank,
2483  lapack_int* iwork, lapack_int const* liwork,
2484  lapack_complex_float* cwork, lapack_int* lcwork,
2485  double* rwork, lapack_int const* lrwork,
2486  lapack_int* info );
2487 
2488 #define LAPACK_cgesvdx LAPACK_GLOBAL(cgesvdx,CGESVDX)
2489 void LAPACK_cgesvdx(
2490  char const* jobu, char const* jobvt, char const* range,
2491  lapack_int const* m, lapack_int const* n,
2492  lapack_complex_float* A, lapack_int const* lda,
2493  float const* vl,
2494  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
2495  float* S,
2496  lapack_complex_float* U, lapack_int const* ldu,
2497  lapack_complex_float* VT, lapack_int const* ldvt,
2498  lapack_complex_float* work, lapack_int const* lwork,
2499  float* rwork,
2500  lapack_int* iwork,
2501  lapack_int* info );
2502 
2503 #define LAPACK_dgesvdx LAPACK_GLOBAL(dgesvdx,DGESVDX)
2504 void LAPACK_dgesvdx(
2505  char const* jobu, char const* jobvt, char const* range,
2506  lapack_int const* m, lapack_int const* n,
2507  double* A, lapack_int const* lda,
2508  double const* vl,
2509  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
2510  double* S,
2511  double* U, lapack_int const* ldu,
2512  double* VT, lapack_int const* ldvt,
2513  double* work, lapack_int const* lwork,
2514  lapack_int* iwork,
2515  lapack_int* info );
2516 
2517 #define LAPACK_sgesvdx LAPACK_GLOBAL(sgesvdx,SGESVDX)
2518 void LAPACK_sgesvdx(
2519  char const* jobu, char const* jobvt, char const* range,
2520  lapack_int const* m, lapack_int const* n,
2521  float* A, lapack_int const* lda,
2522  float const* vl,
2523  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
2524  float* S,
2525  float* U, lapack_int const* ldu,
2526  float* VT, lapack_int const* ldvt,
2527  float* work, lapack_int const* lwork,
2528  lapack_int* iwork,
2529  lapack_int* info );
2530 
2531 #define LAPACK_zgesvdx LAPACK_GLOBAL(zgesvdx,ZGESVDX)
2532 void LAPACK_zgesvdx(
2533  char const* jobu, char const* jobvt, char const* range,
2534  lapack_int const* m, lapack_int const* n,
2535  lapack_complex_double* A, lapack_int const* lda,
2536  double const* vl,
2537  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
2538  double* S,
2539  lapack_complex_double* U, lapack_int const* ldu,
2540  lapack_complex_double* VT, lapack_int const* ldvt,
2541  lapack_complex_double* work, lapack_int const* lwork,
2542  double* rwork,
2543  lapack_int* iwork,
2544  lapack_int* info );
2545 
2546 #define LAPACK_cgesvj LAPACK_GLOBAL(cgesvj,CGESVJ)
2547 void LAPACK_cgesvj(
2548  char const* joba, char const* jobu, char const* jobv,
2549  lapack_int const* m, lapack_int const* n,
2550  lapack_complex_float* A, lapack_int const* lda,
2551  float* SVA, lapack_int const* mv,
2552  lapack_complex_float* V, lapack_int const* ldv,
2553  lapack_complex_float* cwork, lapack_int const* lwork,
2554  float* rwork, lapack_int const* lrwork,
2555  lapack_int* info );
2556 
2557 #define LAPACK_dgesvj LAPACK_GLOBAL(dgesvj,DGESVJ)
2558 void LAPACK_dgesvj(
2559  char const* joba, char const* jobu, char const* jobv,
2560  lapack_int const* m, lapack_int const* n,
2561  double* A, lapack_int const* lda,
2562  double* SVA, lapack_int const* mv,
2563  double* V, lapack_int const* ldv,
2564  double* work, lapack_int const* lwork,
2565  lapack_int* info );
2566 
2567 #define LAPACK_sgesvj LAPACK_GLOBAL(sgesvj,SGESVJ)
2568 void LAPACK_sgesvj(
2569  char const* joba, char const* jobu, char const* jobv,
2570  lapack_int const* m, lapack_int const* n,
2571  float* A, lapack_int const* lda,
2572  float* SVA, lapack_int const* mv,
2573  float* V, lapack_int const* ldv,
2574  float* work, lapack_int const* lwork,
2575  lapack_int* info );
2576 
2577 #define LAPACK_zgesvj LAPACK_GLOBAL(zgesvj,ZGESVJ)
2578 void LAPACK_zgesvj(
2579  char const* joba, char const* jobu, char const* jobv,
2580  lapack_int const* m, lapack_int const* n,
2581  lapack_complex_double* A, lapack_int const* lda,
2582  double* SVA, lapack_int const* mv,
2583  lapack_complex_double* V, lapack_int const* ldv,
2584  lapack_complex_double* cwork, lapack_int const* lwork,
2585  double* rwork, lapack_int const* lrwork,
2586  lapack_int* info );
2587 
2588 #define LAPACK_cgesvx LAPACK_GLOBAL(cgesvx,CGESVX)
2589 void LAPACK_cgesvx(
2590  char const* fact, char const* trans,
2591  lapack_int const* n, lapack_int const* nrhs,
2592  lapack_complex_float* A, lapack_int const* lda,
2593  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
2594  float* R,
2595  float* C,
2597  lapack_int const* ldb,
2598  lapack_complex_float* X, lapack_int const* ldx,
2599  float* rcond,
2600  float* ferr,
2601  float* berr,
2602  lapack_complex_float* work,
2603  float* rwork,
2604  lapack_int* info );
2605 
2606 #define LAPACK_dgesvx LAPACK_GLOBAL(dgesvx,DGESVX)
2607 void LAPACK_dgesvx(
2608  char const* fact, char const* trans,
2609  lapack_int const* n, lapack_int const* nrhs,
2610  double* A, lapack_int const* lda,
2611  double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
2612  double* R,
2613  double* C,
2614  double* B,
2615  lapack_int const* ldb,
2616  double* X, lapack_int const* ldx,
2617  double* rcond,
2618  double* ferr,
2619  double* berr,
2620  double* work,
2621  lapack_int* iwork,
2622  lapack_int* info );
2623 
2624 #define LAPACK_sgesvx LAPACK_GLOBAL(sgesvx,SGESVX)
2625 void LAPACK_sgesvx(
2626  char const* fact, char const* trans,
2627  lapack_int const* n, lapack_int const* nrhs,
2628  float* A, lapack_int const* lda,
2629  float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
2630  float* R,
2631  float* C,
2632  float* B,
2633  lapack_int const* ldb,
2634  float* X, lapack_int const* ldx,
2635  float* rcond,
2636  float* ferr,
2637  float* berr,
2638  float* work,
2639  lapack_int* iwork,
2640  lapack_int* info );
2641 
2642 #define LAPACK_zgesvx LAPACK_GLOBAL(zgesvx,ZGESVX)
2643 void LAPACK_zgesvx(
2644  char const* fact, char const* trans,
2645  lapack_int const* n, lapack_int const* nrhs,
2646  lapack_complex_double* A, lapack_int const* lda,
2647  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
2648  double* R,
2649  double* C,
2651  lapack_int const* ldb,
2652  lapack_complex_double* X, lapack_int const* ldx,
2653  double* rcond,
2654  double* ferr,
2655  double* berr,
2656  lapack_complex_double* work,
2657  double* rwork,
2658  lapack_int* info );
2659 
2660 #define LAPACK_cgesvxx LAPACK_GLOBAL(cgesvxx,CGESVXX)
2661 void LAPACK_cgesvxx(
2662  char const* fact, char const* trans,
2663  lapack_int const* n, lapack_int const* nrhs,
2664  lapack_complex_float* A, lapack_int const* lda,
2665  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
2666  float* R,
2667  float* C,
2669  lapack_int const* ldb,
2670  lapack_complex_float* X, lapack_int const* ldx,
2671  float* rcond,
2672  float* rpvgrw,
2673  float* berr, lapack_int const* n_err_bnds,
2674  float* err_bnds_norm,
2675  float* err_bnds_comp, lapack_int const* nparams,
2676  float* params,
2677  lapack_complex_float* work,
2678  float* rwork,
2679  lapack_int* info );
2680 
2681 #define LAPACK_dgesvxx LAPACK_GLOBAL(dgesvxx,DGESVXX)
2682 void LAPACK_dgesvxx(
2683  char const* fact, char const* trans,
2684  lapack_int const* n, lapack_int const* nrhs,
2685  double* A, lapack_int const* lda,
2686  double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
2687  double* R,
2688  double* C,
2689  double* B,
2690  lapack_int const* ldb,
2691  double* X, lapack_int const* ldx,
2692  double* rcond,
2693  double* rpvgrw,
2694  double* berr, lapack_int const* n_err_bnds,
2695  double* err_bnds_norm,
2696  double* err_bnds_comp, lapack_int const* nparams,
2697  double* params,
2698  double* work,
2699  lapack_int* iwork,
2700  lapack_int* info );
2701 
2702 #define LAPACK_sgesvxx LAPACK_GLOBAL(sgesvxx,SGESVXX)
2703 void LAPACK_sgesvxx(
2704  char const* fact, char const* trans,
2705  lapack_int const* n, lapack_int const* nrhs,
2706  float* A, lapack_int const* lda,
2707  float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
2708  float* R,
2709  float* C,
2710  float* B,
2711  lapack_int const* ldb,
2712  float* X, lapack_int const* ldx,
2713  float* rcond,
2714  float* rpvgrw,
2715  float* berr, lapack_int const* n_err_bnds,
2716  float* err_bnds_norm,
2717  float* err_bnds_comp, lapack_int const* nparams,
2718  float* params,
2719  float* work,
2720  lapack_int* iwork,
2721  lapack_int* info );
2722 
2723 #define LAPACK_zgesvxx LAPACK_GLOBAL(zgesvxx,ZGESVXX)
2724 void LAPACK_zgesvxx(
2725  char const* fact, char const* trans,
2726  lapack_int const* n, lapack_int const* nrhs,
2727  lapack_complex_double* A, lapack_int const* lda,
2728  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
2729  double* R,
2730  double* C,
2732  lapack_int const* ldb,
2733  lapack_complex_double* X, lapack_int const* ldx,
2734  double* rcond,
2735  double* rpvgrw,
2736  double* berr, lapack_int const* n_err_bnds,
2737  double* err_bnds_norm,
2738  double* err_bnds_comp, lapack_int const* nparams,
2739  double* params,
2740  lapack_complex_double* work,
2741  double* rwork,
2742  lapack_int* info );
2743 
2744 #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
2745 void LAPACK_cgetf2(
2746  lapack_int const* m, lapack_int const* n,
2747  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
2748  lapack_int* info );
2749 
2750 #define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
2751 void LAPACK_dgetf2(
2752  lapack_int const* m, lapack_int const* n,
2753  double* A, lapack_int const* lda, lapack_int* ipiv,
2754  lapack_int* info );
2755 
2756 #define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
2757 void LAPACK_sgetf2(
2758  lapack_int const* m, lapack_int const* n,
2759  float* A, lapack_int const* lda, lapack_int* ipiv,
2760  lapack_int* info );
2761 
2762 #define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
2763 void LAPACK_zgetf2(
2764  lapack_int const* m, lapack_int const* n,
2765  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
2766  lapack_int* info );
2767 
2768 #define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
2769 void LAPACK_cgetrf(
2770  lapack_int const* m, lapack_int const* n,
2771  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
2772  lapack_int* info );
2773 
2774 #define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
2775 void LAPACK_dgetrf(
2776  lapack_int const* m, lapack_int const* n,
2777  double* A, lapack_int const* lda, lapack_int* ipiv,
2778  lapack_int* info );
2779 
2780 #define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
2781 void LAPACK_sgetrf(
2782  lapack_int const* m, lapack_int const* n,
2783  float* A, lapack_int const* lda, lapack_int* ipiv,
2784  lapack_int* info );
2785 
2786 #define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
2787 void LAPACK_zgetrf(
2788  lapack_int const* m, lapack_int const* n,
2789  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
2790  lapack_int* info );
2791 
2792 #define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2)
2793 void LAPACK_cgetrf2(
2794  lapack_int const* m, lapack_int const* n,
2795  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
2796  lapack_int* info );
2797 
2798 #define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2)
2799 void LAPACK_dgetrf2(
2800  lapack_int const* m, lapack_int const* n,
2801  double* A, lapack_int const* lda, lapack_int* ipiv,
2802  lapack_int* info );
2803 
2804 #define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2)
2805 void LAPACK_sgetrf2(
2806  lapack_int const* m, lapack_int const* n,
2807  float* A, lapack_int const* lda, lapack_int* ipiv,
2808  lapack_int* info );
2809 
2810 #define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2)
2811 void LAPACK_zgetrf2(
2812  lapack_int const* m, lapack_int const* n,
2813  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
2814  lapack_int* info );
2815 
2816 #define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
2817 void LAPACK_cgetri(
2818  lapack_int const* n,
2819  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
2820  lapack_complex_float* work, lapack_int const* lwork,
2821  lapack_int* info );
2822 
2823 #define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
2824 void LAPACK_dgetri(
2825  lapack_int const* n,
2826  double* A, lapack_int const* lda, lapack_int const* ipiv,
2827  double* work, lapack_int const* lwork,
2828  lapack_int* info );
2829 
2830 #define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
2831 void LAPACK_sgetri(
2832  lapack_int const* n,
2833  float* A, lapack_int const* lda, lapack_int const* ipiv,
2834  float* work, lapack_int const* lwork,
2835  lapack_int* info );
2836 
2837 #define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
2838 void LAPACK_zgetri(
2839  lapack_int const* n,
2840  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
2841  lapack_complex_double* work, lapack_int const* lwork,
2842  lapack_int* info );
2843 
2844 #define LAPACK_cgetrs LAPACK_GLOBAL(cgetrs,CGETRS)
2845 void LAPACK_cgetrs(
2846  char const* trans,
2847  lapack_int const* n, lapack_int const* nrhs,
2848  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
2849  lapack_complex_float* B, lapack_int const* ldb,
2850  lapack_int* info );
2851 
2852 #define LAPACK_dgetrs LAPACK_GLOBAL(dgetrs,DGETRS)
2853 void LAPACK_dgetrs(
2854  char const* trans,
2855  lapack_int const* n, lapack_int const* nrhs,
2856  double const* A, lapack_int const* lda, lapack_int const* ipiv,
2857  double* B, lapack_int const* ldb,
2858  lapack_int* info );
2859 
2860 #define LAPACK_sgetrs LAPACK_GLOBAL(sgetrs,SGETRS)
2861 void LAPACK_sgetrs(
2862  char const* trans,
2863  lapack_int const* n, lapack_int const* nrhs,
2864  float const* A, lapack_int const* lda, lapack_int const* ipiv,
2865  float* B, lapack_int const* ldb,
2866  lapack_int* info );
2867 
2868 #define LAPACK_zgetrs LAPACK_GLOBAL(zgetrs,ZGETRS)
2869 void LAPACK_zgetrs(
2870  char const* trans,
2871  lapack_int const* n, lapack_int const* nrhs,
2872  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
2873  lapack_complex_double* B, lapack_int const* ldb,
2874  lapack_int* info );
2875 
2876 #define LAPACK_cgetsls LAPACK_GLOBAL(cgetsls,CGETSLS)
2877 void LAPACK_cgetsls(
2878  char const* trans,
2879  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2880  lapack_complex_float* A, lapack_int const* lda,
2881  lapack_complex_float* B, lapack_int const* ldb,
2882  lapack_complex_float* work, lapack_int const* lwork,
2883  lapack_int* info );
2884 
2885 #define LAPACK_dgetsls LAPACK_GLOBAL(dgetsls,DGETSLS)
2886 void LAPACK_dgetsls(
2887  char const* trans,
2888  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2889  double* A, lapack_int const* lda,
2890  double* B, lapack_int const* ldb,
2891  double* work, lapack_int const* lwork,
2892  lapack_int* info );
2893 
2894 #define LAPACK_sgetsls LAPACK_GLOBAL(sgetsls,SGETSLS)
2895 void LAPACK_sgetsls(
2896  char const* trans,
2897  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2898  float* A, lapack_int const* lda,
2899  float* B, lapack_int const* ldb,
2900  float* work, lapack_int const* lwork,
2901  lapack_int* info );
2902 
2903 #define LAPACK_zgetsls LAPACK_GLOBAL(zgetsls,ZGETSLS)
2904 void LAPACK_zgetsls(
2905  char const* trans,
2906  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2907  lapack_complex_double* A, lapack_int const* lda,
2908  lapack_complex_double* B, lapack_int const* ldb,
2909  lapack_complex_double* work, lapack_int const* lwork,
2910  lapack_int* info );
2911 
2912 #define LAPACK_cggbak LAPACK_GLOBAL(cggbak,CGGBAK)
2913 void LAPACK_cggbak(
2914  char const* job, char const* side,
2915  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2916  float const* lscale,
2917  float const* rscale, lapack_int const* m,
2918  lapack_complex_float* V, lapack_int const* ldv,
2919  lapack_int* info );
2920 
2921 #define LAPACK_dggbak LAPACK_GLOBAL(dggbak,DGGBAK)
2922 void LAPACK_dggbak(
2923  char const* job, char const* side,
2924  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2925  double const* lscale,
2926  double const* rscale, lapack_int const* m,
2927  double* V, lapack_int const* ldv,
2928  lapack_int* info );
2929 
2930 #define LAPACK_sggbak LAPACK_GLOBAL(sggbak,SGGBAK)
2931 void LAPACK_sggbak(
2932  char const* job, char const* side,
2933  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2934  float const* lscale,
2935  float const* rscale, lapack_int const* m,
2936  float* V, lapack_int const* ldv,
2937  lapack_int* info );
2938 
2939 #define LAPACK_zggbak LAPACK_GLOBAL(zggbak,ZGGBAK)
2940 void LAPACK_zggbak(
2941  char const* job, char const* side,
2942  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2943  double const* lscale,
2944  double const* rscale, lapack_int const* m,
2945  lapack_complex_double* V, lapack_int const* ldv,
2946  lapack_int* info );
2947 
2948 #define LAPACK_cggbal LAPACK_GLOBAL(cggbal,CGGBAL)
2949 void LAPACK_cggbal(
2950  char const* job,
2951  lapack_int const* n,
2952  lapack_complex_float* A, lapack_int const* lda,
2953  lapack_complex_float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
2954  float* lscale,
2955  float* rscale,
2956  float* work,
2957  lapack_int* info );
2958 
2959 #define LAPACK_dggbal LAPACK_GLOBAL(dggbal,DGGBAL)
2960 void LAPACK_dggbal(
2961  char const* job,
2962  lapack_int const* n,
2963  double* A, lapack_int const* lda,
2964  double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
2965  double* lscale,
2966  double* rscale,
2967  double* work,
2968  lapack_int* info );
2969 
2970 #define LAPACK_sggbal LAPACK_GLOBAL(sggbal,SGGBAL)
2971 void LAPACK_sggbal(
2972  char const* job,
2973  lapack_int const* n,
2974  float* A, lapack_int const* lda,
2975  float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
2976  float* lscale,
2977  float* rscale,
2978  float* work,
2979  lapack_int* info );
2980 
2981 #define LAPACK_zggbal LAPACK_GLOBAL(zggbal,ZGGBAL)
2982 void LAPACK_zggbal(
2983  char const* job,
2984  lapack_int const* n,
2985  lapack_complex_double* A, lapack_int const* lda,
2986  lapack_complex_double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
2987  double* lscale,
2988  double* rscale,
2989  double* work,
2990  lapack_int* info );
2991 
2992 #define LAPACK_cgges LAPACK_GLOBAL(cgges,CGGES)
2993 void LAPACK_cgges(
2994  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg,
2995  lapack_int const* n,
2996  lapack_complex_float* A, lapack_int const* lda,
2997  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
2998  lapack_complex_float* alpha,
2999  lapack_complex_float* beta,
3000  lapack_complex_float* VSL, lapack_int const* ldvsl,
3001  lapack_complex_float* VSR, lapack_int const* ldvsr,
3002  lapack_complex_float* work, lapack_int const* lwork,
3003  float* rwork, lapack_logical* BWORK,
3004  lapack_int* info );
3005 
3006 #define LAPACK_dgges LAPACK_GLOBAL(dgges,DGGES)
3007 void LAPACK_dgges(
3008  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg,
3009  lapack_int const* n,
3010  double* A, lapack_int const* lda,
3011  double* B, lapack_int const* ldb, lapack_int* sdim,
3012  double* alphar,
3013  double* alphai,
3014  double* beta,
3015  double* VSL, lapack_int const* ldvsl,
3016  double* VSR, lapack_int const* ldvsr,
3017  double* work, lapack_int const* lwork, lapack_logical* BWORK,
3018  lapack_int* info );
3019 
3020 #define LAPACK_sgges LAPACK_GLOBAL(sgges,SGGES)
3021 void LAPACK_sgges(
3022  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg,
3023  lapack_int const* n,
3024  float* A, lapack_int const* lda,
3025  float* B, lapack_int const* ldb, lapack_int* sdim,
3026  float* alphar,
3027  float* alphai,
3028  float* beta,
3029  float* VSL, lapack_int const* ldvsl,
3030  float* VSR, lapack_int const* ldvsr,
3031  float* work, lapack_int const* lwork, lapack_logical* BWORK,
3032  lapack_int* info );
3033 
3034 #define LAPACK_zgges LAPACK_GLOBAL(zgges,ZGGES)
3035 void LAPACK_zgges(
3036  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg,
3037  lapack_int const* n,
3038  lapack_complex_double* A, lapack_int const* lda,
3039  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
3040  lapack_complex_double* alpha,
3041  lapack_complex_double* beta,
3042  lapack_complex_double* VSL, lapack_int const* ldvsl,
3043  lapack_complex_double* VSR, lapack_int const* ldvsr,
3044  lapack_complex_double* work, lapack_int const* lwork,
3045  double* rwork, lapack_logical* BWORK,
3046  lapack_int* info );
3047 
3048 #define LAPACK_cgges3 LAPACK_GLOBAL(cgges3,CGGES3)
3049 void LAPACK_cgges3(
3050  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg,
3051  lapack_int const* n,
3052  lapack_complex_float* A, lapack_int const* lda,
3053  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
3054  lapack_complex_float* alpha,
3055  lapack_complex_float* beta,
3056  lapack_complex_float* VSL, lapack_int const* ldvsl,
3057  lapack_complex_float* VSR, lapack_int const* ldvsr,
3058  lapack_complex_float* work, lapack_int const* lwork,
3059  float* rwork, lapack_logical* BWORK,
3060  lapack_int* info );
3061 
3062 #define LAPACK_dgges3 LAPACK_GLOBAL(dgges3,DGGES3)
3063 void LAPACK_dgges3(
3064  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg,
3065  lapack_int const* n,
3066  double* A, lapack_int const* lda,
3067  double* B, lapack_int const* ldb, lapack_int* sdim,
3068  double* alphar,
3069  double* alphai,
3070  double* beta,
3071  double* VSL, lapack_int const* ldvsl,
3072  double* VSR, lapack_int const* ldvsr,
3073  double* work, lapack_int const* lwork, lapack_logical* BWORK,
3074  lapack_int* info );
3075 
3076 #define LAPACK_sgges3 LAPACK_GLOBAL(sgges3,SGGES3)
3077 void LAPACK_sgges3(
3078  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg,
3079  lapack_int const* n,
3080  float* A, lapack_int const* lda,
3081  float* B, lapack_int const* ldb, lapack_int* sdim,
3082  float* alphar,
3083  float* alphai,
3084  float* beta,
3085  float* VSL, lapack_int const* ldvsl,
3086  float* VSR, lapack_int const* ldvsr,
3087  float* work, lapack_int const* lwork, lapack_logical* BWORK,
3088  lapack_int* info );
3089 
3090 #define LAPACK_zgges3 LAPACK_GLOBAL(zgges3,ZGGES3)
3091 void LAPACK_zgges3(
3092  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg,
3093  lapack_int const* n,
3094  lapack_complex_double* A, lapack_int const* lda,
3095  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
3096  lapack_complex_double* alpha,
3097  lapack_complex_double* beta,
3098  lapack_complex_double* VSL, lapack_int const* ldvsl,
3099  lapack_complex_double* VSR, lapack_int const* ldvsr,
3100  lapack_complex_double* work, lapack_int const* lwork,
3101  double* rwork, lapack_logical* BWORK,
3102  lapack_int* info );
3103 
3104 #define LAPACK_cggesx LAPACK_GLOBAL(cggesx,CGGESX)
3105 void LAPACK_cggesx(
3106  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, char const* sense,
3107  lapack_int const* n,
3108  lapack_complex_float* A, lapack_int const* lda,
3109  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
3110  lapack_complex_float* alpha,
3111  lapack_complex_float* beta,
3112  lapack_complex_float* VSL, lapack_int const* ldvsl,
3113  lapack_complex_float* VSR, lapack_int const* ldvsr,
3114  float* rconde,
3115  float* rcondv,
3116  lapack_complex_float* work, lapack_int const* lwork,
3117  float* rwork,
3118  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
3119  lapack_int* info );
3120 
3121 #define LAPACK_dggesx LAPACK_GLOBAL(dggesx,DGGESX)
3122 void LAPACK_dggesx(
3123  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, char const* sense,
3124  lapack_int const* n,
3125  double* A, lapack_int const* lda,
3126  double* B, lapack_int const* ldb, lapack_int* sdim,
3127  double* alphar,
3128  double* alphai,
3129  double* beta,
3130  double* VSL, lapack_int const* ldvsl,
3131  double* VSR, lapack_int const* ldvsr,
3132  double* rconde,
3133  double* rcondv,
3134  double* work, lapack_int const* lwork,
3135  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
3136  lapack_int* info );
3137 
3138 #define LAPACK_sggesx LAPACK_GLOBAL(sggesx,SGGESX)
3139 void LAPACK_sggesx(
3140  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, char const* sense,
3141  lapack_int const* n,
3142  float* A, lapack_int const* lda,
3143  float* B, lapack_int const* ldb, lapack_int* sdim,
3144  float* alphar,
3145  float* alphai,
3146  float* beta,
3147  float* VSL, lapack_int const* ldvsl,
3148  float* VSR, lapack_int const* ldvsr,
3149  float* rconde,
3150  float* rcondv,
3151  float* work, lapack_int const* lwork,
3152  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
3153  lapack_int* info );
3154 
3155 #define LAPACK_zggesx LAPACK_GLOBAL(zggesx,ZGGESX)
3156 void LAPACK_zggesx(
3157  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, char const* sense,
3158  lapack_int const* n,
3159  lapack_complex_double* A, lapack_int const* lda,
3160  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
3161  lapack_complex_double* alpha,
3162  lapack_complex_double* beta,
3163  lapack_complex_double* VSL, lapack_int const* ldvsl,
3164  lapack_complex_double* VSR, lapack_int const* ldvsr,
3165  double* rconde,
3166  double* rcondv,
3167  lapack_complex_double* work, lapack_int const* lwork,
3168  double* rwork,
3169  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
3170  lapack_int* info );
3171 
3172 #define LAPACK_cggev LAPACK_GLOBAL(cggev,CGGEV)
3173 void LAPACK_cggev(
3174  char const* jobvl, char const* jobvr,
3175  lapack_int const* n,
3176  lapack_complex_float* A, lapack_int const* lda,
3177  lapack_complex_float* B, lapack_int const* ldb,
3178  lapack_complex_float* alpha,
3179  lapack_complex_float* beta,
3180  lapack_complex_float* VL, lapack_int const* ldvl,
3181  lapack_complex_float* VR, lapack_int const* ldvr,
3182  lapack_complex_float* work, lapack_int const* lwork,
3183  float* rwork,
3184  lapack_int* info );
3185 
3186 #define LAPACK_dggev LAPACK_GLOBAL(dggev,DGGEV)
3187 void LAPACK_dggev(
3188  char const* jobvl, char const* jobvr,
3189  lapack_int const* n,
3190  double* A, lapack_int const* lda,
3191  double* B, lapack_int const* ldb,
3192  double* alphar,
3193  double* alphai,
3194  double* beta,
3195  double* VL, lapack_int const* ldvl,
3196  double* VR, lapack_int const* ldvr,
3197  double* work, lapack_int const* lwork,
3198  lapack_int* info );
3199 
3200 #define LAPACK_sggev LAPACK_GLOBAL(sggev,SGGEV)
3201 void LAPACK_sggev(
3202  char const* jobvl, char const* jobvr,
3203  lapack_int const* n,
3204  float* A, lapack_int const* lda,
3205  float* B, lapack_int const* ldb,
3206  float* alphar,
3207  float* alphai,
3208  float* beta,
3209  float* VL, lapack_int const* ldvl,
3210  float* VR, lapack_int const* ldvr,
3211  float* work, lapack_int const* lwork,
3212  lapack_int* info );
3213 
3214 #define LAPACK_zggev LAPACK_GLOBAL(zggev,ZGGEV)
3215 void LAPACK_zggev(
3216  char const* jobvl, char const* jobvr,
3217  lapack_int const* n,
3218  lapack_complex_double* A, lapack_int const* lda,
3219  lapack_complex_double* B, lapack_int const* ldb,
3220  lapack_complex_double* alpha,
3221  lapack_complex_double* beta,
3222  lapack_complex_double* VL, lapack_int const* ldvl,
3223  lapack_complex_double* VR, lapack_int const* ldvr,
3224  lapack_complex_double* work, lapack_int const* lwork,
3225  double* rwork,
3226  lapack_int* info );
3227 
3228 #define LAPACK_cggev3 LAPACK_GLOBAL(cggev3,CGGEV3)
3229 void LAPACK_cggev3(
3230  char const* jobvl, char const* jobvr,
3231  lapack_int const* n,
3232  lapack_complex_float* A, lapack_int const* lda,
3233  lapack_complex_float* B, lapack_int const* ldb,
3234  lapack_complex_float* alpha,
3235  lapack_complex_float* beta,
3236  lapack_complex_float* VL, lapack_int const* ldvl,
3237  lapack_complex_float* VR, lapack_int const* ldvr,
3238  lapack_complex_float* work, lapack_int const* lwork,
3239  float* rwork,
3240  lapack_int* info );
3241 
3242 #define LAPACK_dggev3 LAPACK_GLOBAL(dggev3,DGGEV3)
3243 void LAPACK_dggev3(
3244  char const* jobvl, char const* jobvr,
3245  lapack_int const* n,
3246  double* A, lapack_int const* lda,
3247  double* B, lapack_int const* ldb,
3248  double* alphar,
3249  double* alphai,
3250  double* beta,
3251  double* VL, lapack_int const* ldvl,
3252  double* VR, lapack_int const* ldvr,
3253  double* work, lapack_int const* lwork,
3254  lapack_int* info );
3255 
3256 #define LAPACK_sggev3 LAPACK_GLOBAL(sggev3,SGGEV3)
3257 void LAPACK_sggev3(
3258  char const* jobvl, char const* jobvr,
3259  lapack_int const* n,
3260  float* A, lapack_int const* lda,
3261  float* B, lapack_int const* ldb,
3262  float* alphar,
3263  float* alphai,
3264  float* beta,
3265  float* VL, lapack_int const* ldvl,
3266  float* VR, lapack_int const* ldvr,
3267  float* work, lapack_int const* lwork,
3268  lapack_int* info );
3269 
3270 #define LAPACK_zggev3 LAPACK_GLOBAL(zggev3,ZGGEV3)
3271 void LAPACK_zggev3(
3272  char const* jobvl, char const* jobvr,
3273  lapack_int const* n,
3274  lapack_complex_double* A, lapack_int const* lda,
3275  lapack_complex_double* B, lapack_int const* ldb,
3276  lapack_complex_double* alpha,
3277  lapack_complex_double* beta,
3278  lapack_complex_double* VL, lapack_int const* ldvl,
3279  lapack_complex_double* VR, lapack_int const* ldvr,
3280  lapack_complex_double* work, lapack_int const* lwork,
3281  double* rwork,
3282  lapack_int* info );
3283 
3284 #define LAPACK_cggevx LAPACK_GLOBAL(cggevx,CGGEVX)
3285 void LAPACK_cggevx(
3286  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
3287  lapack_int const* n,
3288  lapack_complex_float* A, lapack_int const* lda,
3289  lapack_complex_float* B, lapack_int const* ldb,
3290  lapack_complex_float* alpha,
3291  lapack_complex_float* beta,
3292  lapack_complex_float* VL, lapack_int const* ldvl,
3293  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
3294  float* lscale,
3295  float* rscale,
3296  float* abnrm,
3297  float* bbnrm,
3298  float* rconde,
3299  float* rcondv,
3300  lapack_complex_float* work, lapack_int const* lwork,
3301  float* rwork,
3302  lapack_int* iwork, lapack_logical* BWORK,
3303  lapack_int* info );
3304 
3305 #define LAPACK_dggevx LAPACK_GLOBAL(dggevx,DGGEVX)
3306 void LAPACK_dggevx(
3307  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
3308  lapack_int const* n,
3309  double* A, lapack_int const* lda,
3310  double* B, lapack_int const* ldb,
3311  double* alphar,
3312  double* alphai,
3313  double* beta,
3314  double* VL, lapack_int const* ldvl,
3315  double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
3316  double* lscale,
3317  double* rscale,
3318  double* abnrm,
3319  double* bbnrm,
3320  double* rconde,
3321  double* rcondv,
3322  double* work, lapack_int const* lwork,
3323  lapack_int* iwork, lapack_logical* BWORK,
3324  lapack_int* info );
3325 
3326 #define LAPACK_sggevx LAPACK_GLOBAL(sggevx,SGGEVX)
3327 void LAPACK_sggevx(
3328  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
3329  lapack_int const* n,
3330  float* A, lapack_int const* lda,
3331  float* B, lapack_int const* ldb,
3332  float* alphar,
3333  float* alphai,
3334  float* beta,
3335  float* VL, lapack_int const* ldvl,
3336  float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
3337  float* lscale,
3338  float* rscale,
3339  float* abnrm,
3340  float* bbnrm,
3341  float* rconde,
3342  float* rcondv,
3343  float* work, lapack_int const* lwork,
3344  lapack_int* iwork, lapack_logical* BWORK,
3345  lapack_int* info );
3346 
3347 #define LAPACK_zggevx LAPACK_GLOBAL(zggevx,ZGGEVX)
3348 void LAPACK_zggevx(
3349  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
3350  lapack_int const* n,
3351  lapack_complex_double* A, lapack_int const* lda,
3352  lapack_complex_double* B, lapack_int const* ldb,
3353  lapack_complex_double* alpha,
3354  lapack_complex_double* beta,
3355  lapack_complex_double* VL, lapack_int const* ldvl,
3356  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
3357  double* lscale,
3358  double* rscale,
3359  double* abnrm,
3360  double* bbnrm,
3361  double* rconde,
3362  double* rcondv,
3363  lapack_complex_double* work, lapack_int const* lwork,
3364  double* rwork,
3365  lapack_int* iwork, lapack_logical* BWORK,
3366  lapack_int* info );
3367 
3368 #define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM)
3369 void LAPACK_cggglm(
3370  lapack_int const* n, lapack_int const* m, lapack_int const* p,
3371  lapack_complex_float* A, lapack_int const* lda,
3372  lapack_complex_float* B, lapack_int const* ldb,
3376  lapack_complex_float* work, lapack_int const* lwork,
3377  lapack_int* info );
3378 
3379 #define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM)
3380 void LAPACK_dggglm(
3381  lapack_int const* n, lapack_int const* m, lapack_int const* p,
3382  double* A, lapack_int const* lda,
3383  double* B, lapack_int const* ldb,
3384  double* D,
3385  double* X,
3386  double* Y,
3387  double* work, lapack_int const* lwork,
3388  lapack_int* info );
3389 
3390 #define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM)
3391 void LAPACK_sggglm(
3392  lapack_int const* n, lapack_int const* m, lapack_int const* p,
3393  float* A, lapack_int const* lda,
3394  float* B, lapack_int const* ldb,
3395  float* D,
3396  float* X,
3397  float* Y,
3398  float* work, lapack_int const* lwork,
3399  lapack_int* info );
3400 
3401 #define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM)
3402 void LAPACK_zggglm(
3403  lapack_int const* n, lapack_int const* m, lapack_int const* p,
3404  lapack_complex_double* A, lapack_int const* lda,
3405  lapack_complex_double* B, lapack_int const* ldb,
3409  lapack_complex_double* work, lapack_int const* lwork,
3410  lapack_int* info );
3411 
3412 #define LAPACK_cgghd3 LAPACK_GLOBAL(cgghd3,CGGHD3)
3413 void LAPACK_cgghd3(
3414  char const* compq, char const* compz,
3415  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
3416  lapack_complex_float* A, lapack_int const* lda,
3417  lapack_complex_float* B, lapack_int const* ldb,
3418  lapack_complex_float* Q, lapack_int const* ldq,
3419  lapack_complex_float* Z, lapack_int const* ldz,
3420  lapack_complex_float* work, lapack_int const* lwork,
3421  lapack_int* info );
3422 
3423 #define LAPACK_dgghd3 LAPACK_GLOBAL(dgghd3,DGGHD3)
3424 void LAPACK_dgghd3(
3425  char const* compq, char const* compz,
3426  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
3427  double* A, lapack_int const* lda,
3428  double* B, lapack_int const* ldb,
3429  double* Q, lapack_int const* ldq,
3430  double* Z, lapack_int const* ldz,
3431  double* work, lapack_int const* lwork,
3432  lapack_int* info );
3433 
3434 #define LAPACK_sgghd3 LAPACK_GLOBAL(sgghd3,SGGHD3)
3435 void LAPACK_sgghd3(
3436  char const* compq, char const* compz,
3437  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
3438  float* A, lapack_int const* lda,
3439  float* B, lapack_int const* ldb,
3440  float* Q, lapack_int const* ldq,
3441  float* Z, lapack_int const* ldz,
3442  float* work, lapack_int const* lwork,
3443  lapack_int* info );
3444 
3445 #define LAPACK_zgghd3 LAPACK_GLOBAL(zgghd3,ZGGHD3)
3446 void LAPACK_zgghd3(
3447  char const* compq, char const* compz,
3448  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
3449  lapack_complex_double* A, lapack_int const* lda,
3450  lapack_complex_double* B, lapack_int const* ldb,
3451  lapack_complex_double* Q, lapack_int const* ldq,
3452  lapack_complex_double* Z, lapack_int const* ldz,
3453  lapack_complex_double* work, lapack_int const* lwork,
3454  lapack_int* info );
3455 
3456 #define LAPACK_cgghrd LAPACK_GLOBAL(cgghrd,CGGHRD)
3457 void LAPACK_cgghrd(
3458  char const* compq, char const* compz,
3459  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
3460  lapack_complex_float* A, lapack_int const* lda,
3461  lapack_complex_float* B, lapack_int const* ldb,
3462  lapack_complex_float* Q, lapack_int const* ldq,
3463  lapack_complex_float* Z, lapack_int const* ldz,
3464  lapack_int* info );
3465 
3466 #define LAPACK_dgghrd LAPACK_GLOBAL(dgghrd,DGGHRD)
3467 void LAPACK_dgghrd(
3468  char const* compq, char const* compz,
3469  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
3470  double* A, lapack_int const* lda,
3471  double* B, lapack_int const* ldb,
3472  double* Q, lapack_int const* ldq,
3473  double* Z, lapack_int const* ldz,
3474  lapack_int* info );
3475 
3476 #define LAPACK_sgghrd LAPACK_GLOBAL(sgghrd,SGGHRD)
3477 void LAPACK_sgghrd(
3478  char const* compq, char const* compz,
3479  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
3480  float* A, lapack_int const* lda,
3481  float* B, lapack_int const* ldb,
3482  float* Q, lapack_int const* ldq,
3483  float* Z, lapack_int const* ldz,
3484  lapack_int* info );
3485 
3486 #define LAPACK_zgghrd LAPACK_GLOBAL(zgghrd,ZGGHRD)
3487 void LAPACK_zgghrd(
3488  char const* compq, char const* compz,
3489  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
3490  lapack_complex_double* A, lapack_int const* lda,
3491  lapack_complex_double* B, lapack_int const* ldb,
3492  lapack_complex_double* Q, lapack_int const* ldq,
3493  lapack_complex_double* Z, lapack_int const* ldz,
3494  lapack_int* info );
3495 
3496 #define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE)
3497 void LAPACK_cgglse(
3498  lapack_int const* m, lapack_int const* n, lapack_int const* p,
3499  lapack_complex_float* A, lapack_int const* lda,
3500  lapack_complex_float* B, lapack_int const* ldb,
3504  lapack_complex_float* work, lapack_int const* lwork,
3505  lapack_int* info );
3506 
3507 #define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE)
3508 void LAPACK_dgglse(
3509  lapack_int const* m, lapack_int const* n, lapack_int const* p,
3510  double* A, lapack_int const* lda,
3511  double* B, lapack_int const* ldb,
3512  double* C,
3513  double* D,
3514  double* X,
3515  double* work, lapack_int const* lwork,
3516  lapack_int* info );
3517 
3518 #define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE)
3519 void LAPACK_sgglse(
3520  lapack_int const* m, lapack_int const* n, lapack_int const* p,
3521  float* A, lapack_int const* lda,
3522  float* B, lapack_int const* ldb,
3523  float* C,
3524  float* D,
3525  float* X,
3526  float* work, lapack_int const* lwork,
3527  lapack_int* info );
3528 
3529 #define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE)
3530 void LAPACK_zgglse(
3531  lapack_int const* m, lapack_int const* n, lapack_int const* p,
3532  lapack_complex_double* A, lapack_int const* lda,
3533  lapack_complex_double* B, lapack_int const* ldb,
3537  lapack_complex_double* work, lapack_int const* lwork,
3538  lapack_int* info );
3539 
3540 #define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF)
3541 void LAPACK_cggqrf(
3542  lapack_int const* n, lapack_int const* m, lapack_int const* p,
3543  lapack_complex_float* A, lapack_int const* lda,
3544  lapack_complex_float* taua,
3545  lapack_complex_float* B, lapack_int const* ldb,
3546  lapack_complex_float* taub,
3547  lapack_complex_float* work, lapack_int const* lwork,
3548  lapack_int* info );
3549 
3550 #define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF)
3551 void LAPACK_dggqrf(
3552  lapack_int const* n, lapack_int const* m, lapack_int const* p,
3553  double* A, lapack_int const* lda,
3554  double* taua,
3555  double* B, lapack_int const* ldb,
3556  double* taub,
3557  double* work, lapack_int const* lwork,
3558  lapack_int* info );
3559 
3560 #define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF)
3561 void LAPACK_sggqrf(
3562  lapack_int const* n, lapack_int const* m, lapack_int const* p,
3563  float* A, lapack_int const* lda,
3564  float* taua,
3565  float* B, lapack_int const* ldb,
3566  float* taub,
3567  float* work, lapack_int const* lwork,
3568  lapack_int* info );
3569 
3570 #define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF)
3571 void LAPACK_zggqrf(
3572  lapack_int const* n, lapack_int const* m, lapack_int const* p,
3573  lapack_complex_double* A, lapack_int const* lda,
3574  lapack_complex_double* taua,
3575  lapack_complex_double* B, lapack_int const* ldb,
3576  lapack_complex_double* taub,
3577  lapack_complex_double* work, lapack_int const* lwork,
3578  lapack_int* info );
3579 
3580 #define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF)
3581 void LAPACK_cggrqf(
3582  lapack_int const* m, lapack_int const* p, lapack_int const* n,
3583  lapack_complex_float* A, lapack_int const* lda,
3584  lapack_complex_float* taua,
3585  lapack_complex_float* B, lapack_int const* ldb,
3586  lapack_complex_float* taub,
3587  lapack_complex_float* work, lapack_int const* lwork,
3588  lapack_int* info );
3589 
3590 #define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF)
3591 void LAPACK_dggrqf(
3592  lapack_int const* m, lapack_int const* p, lapack_int const* n,
3593  double* A, lapack_int const* lda,
3594  double* taua,
3595  double* B, lapack_int const* ldb,
3596  double* taub,
3597  double* work, lapack_int const* lwork,
3598  lapack_int* info );
3599 
3600 #define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF)
3601 void LAPACK_sggrqf(
3602  lapack_int const* m, lapack_int const* p, lapack_int const* n,
3603  float* A, lapack_int const* lda,
3604  float* taua,
3605  float* B, lapack_int const* ldb,
3606  float* taub,
3607  float* work, lapack_int const* lwork,
3608  lapack_int* info );
3609 
3610 #define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF)
3611 void LAPACK_zggrqf(
3612  lapack_int const* m, lapack_int const* p, lapack_int const* n,
3613  lapack_complex_double* A, lapack_int const* lda,
3614  lapack_complex_double* taua,
3615  lapack_complex_double* B, lapack_int const* ldb,
3616  lapack_complex_double* taub,
3617  lapack_complex_double* work, lapack_int const* lwork,
3618  lapack_int* info );
3619 
3620 #define LAPACK_cggsvd3 LAPACK_GLOBAL(cggsvd3,CGGSVD3)
3621 void LAPACK_cggsvd3(
3622  char const* jobu, char const* jobv, char const* jobq,
3623  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
3624  lapack_complex_float* A, lapack_int const* lda,
3625  lapack_complex_float* B, lapack_int const* ldb,
3626  float* alpha,
3627  float* beta,
3628  lapack_complex_float* U, lapack_int const* ldu,
3629  lapack_complex_float* V, lapack_int const* ldv,
3630  lapack_complex_float* Q, lapack_int const* ldq,
3631  lapack_complex_float* work, lapack_int const* lwork,
3632  float* rwork,
3633  lapack_int* iwork,
3634  lapack_int* info );
3635 
3636 #define LAPACK_dggsvd3 LAPACK_GLOBAL(dggsvd3,DGGSVD3)
3637 void LAPACK_dggsvd3(
3638  char const* jobu, char const* jobv, char const* jobq,
3639  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
3640  double* A, lapack_int const* lda,
3641  double* B, lapack_int const* ldb,
3642  double* alpha,
3643  double* beta,
3644  double* U, lapack_int const* ldu,
3645  double* V, lapack_int const* ldv,
3646  double* Q, lapack_int const* ldq,
3647  double* work, lapack_int const* lwork,
3648  lapack_int* iwork,
3649  lapack_int* info );
3650 
3651 #define LAPACK_sggsvd3 LAPACK_GLOBAL(sggsvd3,SGGSVD3)
3652 void LAPACK_sggsvd3(
3653  char const* jobu, char const* jobv, char const* jobq,
3654  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
3655  float* A, lapack_int const* lda,
3656  float* B, lapack_int const* ldb,
3657  float* alpha,
3658  float* beta,
3659  float* U, lapack_int const* ldu,
3660  float* V, lapack_int const* ldv,
3661  float* Q, lapack_int const* ldq,
3662  float* work, lapack_int const* lwork,
3663  lapack_int* iwork,
3664  lapack_int* info );
3665 
3666 #define LAPACK_zggsvd3 LAPACK_GLOBAL(zggsvd3,ZGGSVD3)
3667 void LAPACK_zggsvd3(
3668  char const* jobu, char const* jobv, char const* jobq,
3669  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
3670  lapack_complex_double* A, lapack_int const* lda,
3671  lapack_complex_double* B, lapack_int const* ldb,
3672  double* alpha,
3673  double* beta,
3674  lapack_complex_double* U, lapack_int const* ldu,
3675  lapack_complex_double* V, lapack_int const* ldv,
3676  lapack_complex_double* Q, lapack_int const* ldq,
3677  lapack_complex_double* work, lapack_int const* lwork,
3678  double* rwork,
3679  lapack_int* iwork,
3680  lapack_int* info );
3681 
3682 #define LAPACK_cggsvp3 LAPACK_GLOBAL(cggsvp3,CGGSVP3)
3683 void LAPACK_cggsvp3(
3684  char const* jobu, char const* jobv, char const* jobq,
3685  lapack_int const* m, lapack_int const* p, lapack_int const* n,
3686  lapack_complex_float* A, lapack_int const* lda,
3687  lapack_complex_float* B, lapack_int const* ldb,
3688  float const* tola,
3689  float const* tolb, lapack_int* k, lapack_int* l,
3690  lapack_complex_float* U, lapack_int const* ldu,
3691  lapack_complex_float* V, lapack_int const* ldv,
3692  lapack_complex_float* Q, lapack_int const* ldq,
3693  lapack_int* iwork,
3694  float* rwork,
3695  lapack_complex_float* tau,
3696  lapack_complex_float* work, lapack_int const* lwork,
3697  lapack_int* info );
3698 
3699 #define LAPACK_dggsvp3 LAPACK_GLOBAL(dggsvp3,DGGSVP3)
3700 void LAPACK_dggsvp3(
3701  char const* jobu, char const* jobv, char const* jobq,
3702  lapack_int const* m, lapack_int const* p, lapack_int const* n,
3703  double* A, lapack_int const* lda,
3704  double* B, lapack_int const* ldb,
3705  double const* tola,
3706  double const* tolb, lapack_int* k, lapack_int* l,
3707  double* U, lapack_int const* ldu,
3708  double* V, lapack_int const* ldv,
3709  double* Q, lapack_int const* ldq,
3710  lapack_int* iwork,
3711  double* tau,
3712  double* work, lapack_int const* lwork,
3713  lapack_int* info );
3714 
3715 #define LAPACK_sggsvp3 LAPACK_GLOBAL(sggsvp3,SGGSVP3)
3716 void LAPACK_sggsvp3(
3717  char const* jobu, char const* jobv, char const* jobq,
3718  lapack_int const* m, lapack_int const* p, lapack_int const* n,
3719  float* A, lapack_int const* lda,
3720  float* B, lapack_int const* ldb,
3721  float const* tola,
3722  float const* tolb, lapack_int* k, lapack_int* l,
3723  float* U, lapack_int const* ldu,
3724  float* V, lapack_int const* ldv,
3725  float* Q, lapack_int const* ldq,
3726  lapack_int* iwork,
3727  float* tau,
3728  float* work, lapack_int const* lwork,
3729  lapack_int* info );
3730 
3731 #define LAPACK_zggsvp3 LAPACK_GLOBAL(zggsvp3,ZGGSVP3)
3732 void LAPACK_zggsvp3(
3733  char const* jobu, char const* jobv, char const* jobq,
3734  lapack_int const* m, lapack_int const* p, lapack_int const* n,
3735  lapack_complex_double* A, lapack_int const* lda,
3736  lapack_complex_double* B, lapack_int const* ldb,
3737  double const* tola,
3738  double const* tolb, lapack_int* k, lapack_int* l,
3739  lapack_complex_double* U, lapack_int const* ldu,
3740  lapack_complex_double* V, lapack_int const* ldv,
3741  lapack_complex_double* Q, lapack_int const* ldq,
3742  lapack_int* iwork,
3743  double* rwork,
3744  lapack_complex_double* tau,
3745  lapack_complex_double* work, lapack_int const* lwork,
3746  lapack_int* info );
3747 
3748 #define LAPACK_cgtcon LAPACK_GLOBAL(cgtcon,CGTCON)
3749 void LAPACK_cgtcon(
3750  char const* norm,
3751  lapack_int const* n,
3752  lapack_complex_float const* DL,
3753  lapack_complex_float const* D,
3754  lapack_complex_float const* DU,
3755  lapack_complex_float const* DU2, lapack_int const* ipiv,
3756  float const* anorm,
3757  float* rcond,
3758  lapack_complex_float* work,
3759  lapack_int* info );
3760 
3761 #define LAPACK_dgtcon LAPACK_GLOBAL(dgtcon,DGTCON)
3762 void LAPACK_dgtcon(
3763  char const* norm,
3764  lapack_int const* n,
3765  double const* DL,
3766  double const* D,
3767  double const* DU,
3768  double const* DU2, lapack_int const* ipiv,
3769  double const* anorm,
3770  double* rcond,
3771  double* work,
3772  lapack_int* iwork,
3773  lapack_int* info );
3774