LAPACK  3.10.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 #include <stdarg.h>
15 
16 /* It seems all current Fortran compilers put strlen at end.
17 * Some historical compilers put strlen after the str argument
18 * or make the str argument into a struct. */
19 #define LAPACK_FORTRAN_STRLEN_END
20 
21 /* Complex types are structures equivalent to the
22 * Fortran complex types COMPLEX(4) and COMPLEX(8).
23 *
24 * One can also redefine the types with his own types
25 * for example by including in the code definitions like
26 *
27 * #define lapack_complex_float std::complex<float>
28 * #define lapack_complex_double std::complex<double>
29 *
30 * or define these types in the command line:
31 *
32 * -Dlapack_complex_float="std::complex<float>"
33 * -Dlapack_complex_double="std::complex<double>"
34 */
35 
36 #ifndef LAPACK_COMPLEX_CUSTOM
37 
38 /* Complex type (single precision) */
39 #ifndef lapack_complex_float
40 #ifndef __cplusplus
41 #include <complex.h>
42 #else
43 #include <complex>
44 #endif
45 #define lapack_complex_float float _Complex
46 #endif
47 
48 #ifndef lapack_complex_float_real
49 #define lapack_complex_float_real(z) (creal(z))
50 #endif
51 
52 #ifndef lapack_complex_float_imag
53 #define lapack_complex_float_imag(z) (cimag(z))
54 #endif
55 
56 /* Complex type (double precision) */
57 #ifndef lapack_complex_double
58 #ifndef __cplusplus
59 #include <complex.h>
60 #else
61 #include <complex>
62 #endif
63 #define lapack_complex_double double _Complex
64 #endif
65 
66 #ifndef lapack_complex_double_real
67 #define lapack_complex_double_real(z) (creal(z))
68 #endif
69 
70 #ifndef lapack_complex_double_imag
71 #define lapack_complex_double_imag(z) (cimag(z))
72 #endif
73 
74 #endif /* LAPACK_COMPLEX_CUSTOM */
75 
76 
77 #ifdef __cplusplus
78 extern "C" {
79 #endif
80 
81 /*----------------------------------------------------------------------------*/
82 #ifndef lapack_int
83 #define lapack_int int
84 #endif
85 
86 #ifndef lapack_logical
87 #define lapack_logical lapack_int
88 #endif
89 
90 /* f2c, hence clapack and MacOS Accelerate, returns double instead of float
91  * for sdot, slange, clange, etc. */
92 #if defined(LAPACK_F2C)
93  typedef double lapack_float_return;
94 #else
95  typedef float lapack_float_return;
96 #endif
97 
98 
99 /* Callback logical functions of one, two, or three arguments are used
100 * to select eigenvalues to sort to the top left of the Schur form.
101 * The value is selected if function returns TRUE (non-zero). */
102 
103 typedef lapack_logical (*LAPACK_S_SELECT2) ( const float*, const float* );
105  ( const float*, const float*, const float* );
106 typedef lapack_logical (*LAPACK_D_SELECT2) ( const double*, const double* );
108  ( const double*, const double*, const double* );
109 
112  ( const lapack_complex_float*, const lapack_complex_float* );
115  ( const lapack_complex_double*, const lapack_complex_double* );
116 
117 #define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
118 lapack_logical LAPACK_lsame_base( char* ca, char* cb,
119  lapack_int lca, lapack_int lcb
121  , size_t, size_t
122 #endif
123 );
124 #ifdef LAPACK_FORTRAN_STRLEN_END
125  #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1)
126 #else
127  #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__)
128 #endif
129 
130 
131 /*----------------------------------------------------------------------------*/
132 /* This is in alphabetical order (ignoring leading precision). */
133 
134 #define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD)
136  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
137  lapack_int const* m, lapack_int const* p, lapack_int const* q,
138  float* theta,
139  float* phi,
140  lapack_complex_float* U1, lapack_int const* ldu1,
141  lapack_complex_float* U2, lapack_int const* ldu2,
142  lapack_complex_float* V1T, lapack_int const* ldv1t,
143  lapack_complex_float* V2T, lapack_int const* ldv2t,
144  float* B11D,
145  float* B11E,
146  float* B12D,
147  float* B12E,
148  float* B21D,
149  float* B21E,
150  float* B22D,
151  float* B22E,
152  float* rwork, lapack_int const* lrwork,
153  lapack_int* info
155  , size_t, size_t, size_t, size_t, size_t
156 #endif
157 );
158 #ifdef LAPACK_FORTRAN_STRLEN_END
159  #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
160 #else
161  #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__)
162 #endif
163 
164 #define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD)
166  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
167  lapack_int const* m, lapack_int const* p, lapack_int const* q,
168  double* theta,
169  double* phi,
170  double* U1, lapack_int const* ldu1,
171  double* U2, lapack_int const* ldu2,
172  double* V1T, lapack_int const* ldv1t,
173  double* V2T, lapack_int const* ldv2t,
174  double* B11D,
175  double* B11E,
176  double* B12D,
177  double* B12E,
178  double* b21d,
179  double* b21e,
180  double* b22d,
181  double* b22e,
182  double* work, lapack_int const* lwork,
183  lapack_int* info
185  , size_t, size_t, size_t, size_t, size_t
186 #endif
187 );
188 #ifdef LAPACK_FORTRAN_STRLEN_END
189  #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
190 #else
191  #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__)
192 #endif
193 
194 #define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD)
196  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
197  lapack_int const* m, lapack_int const* p, lapack_int const* q,
198  float* theta,
199  float* phi,
200  float* U1, lapack_int const* ldu1,
201  float* U2, lapack_int const* ldu2,
202  float* V1T, lapack_int const* ldv1t,
203  float* V2T, lapack_int const* ldv2t,
204  float* B11D,
205  float* B11E,
206  float* B12D,
207  float* B12E,
208  float* B21D,
209  float* B21E,
210  float* B22D,
211  float* B22E,
212  float* work, lapack_int const* lwork,
213  lapack_int* info
215  , size_t, size_t, size_t, size_t, size_t
216 #endif
217 );
218 #ifdef LAPACK_FORTRAN_STRLEN_END
219  #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
220 #else
221  #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__)
222 #endif
223 
224 #define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD)
226  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
227  lapack_int const* m, lapack_int const* p, lapack_int const* q,
228  double* theta,
229  double* phi,
230  lapack_complex_double* U1, lapack_int const* ldu1,
231  lapack_complex_double* U2, lapack_int const* ldu2,
232  lapack_complex_double* V1T, lapack_int const* ldv1t,
233  lapack_complex_double* V2T, lapack_int const* ldv2t,
234  double* B11D,
235  double* B11E,
236  double* B12D,
237  double* B12E,
238  double* B21D,
239  double* B21E,
240  double* B22D,
241  double* B22E,
242  double* rwork, lapack_int const* lrwork,
243  lapack_int* info
245  , size_t, size_t, size_t, size_t, size_t
246 #endif
247 );
248 #ifdef LAPACK_FORTRAN_STRLEN_END
249  #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
250 #else
251  #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__)
252 #endif
253 
254 #define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC)
256  char const* uplo, char const* compq,
257  lapack_int const* n,
258  double* D,
259  double* E,
260  double* U, lapack_int const* ldu,
261  double* VT, lapack_int const* ldvt,
262  double* Q, lapack_int* IQ,
263  double* work,
264  lapack_int* iwork,
265  lapack_int* info
267  , size_t, size_t
268 #endif
269 );
270 #ifdef LAPACK_FORTRAN_STRLEN_END
271  #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1)
272 #else
273  #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__)
274 #endif
275 
276 #define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC)
278  char const* uplo, char const* compq,
279  lapack_int const* n,
280  float* D,
281  float* E,
282  float* U, lapack_int const* ldu,
283  float* VT, lapack_int const* ldvt,
284  float* Q, lapack_int* IQ,
285  float* work,
286  lapack_int* iwork,
287  lapack_int* info
289  , size_t, size_t
290 #endif
291 );
292 #ifdef LAPACK_FORTRAN_STRLEN_END
293  #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1)
294 #else
295  #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__)
296 #endif
297 
298 #define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR)
300  char const* uplo,
301  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
302  float* D,
303  float* E,
304  lapack_complex_float* VT, lapack_int const* ldvt,
305  lapack_complex_float* U, lapack_int const* ldu,
306  lapack_complex_float* C, lapack_int const* ldc,
307  float* rwork,
308  lapack_int* info
310  , size_t
311 #endif
312 );
313 #ifdef LAPACK_FORTRAN_STRLEN_END
314  #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1)
315 #else
316  #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__)
317 #endif
318 
319 #define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR)
321  char const* uplo,
322  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
323  double* D,
324  double* E,
325  double* VT, lapack_int const* ldvt,
326  double* U, lapack_int const* ldu,
327  double* C, lapack_int const* ldc,
328  double* work,
329  lapack_int* info
331  , size_t
332 #endif
333 );
334 #ifdef LAPACK_FORTRAN_STRLEN_END
335  #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1)
336 #else
337  #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__)
338 #endif
339 
340 #define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR)
342  char const* uplo,
343  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
344  float* D,
345  float* E,
346  float* VT, lapack_int const* ldvt,
347  float* U, lapack_int const* ldu,
348  float* C, lapack_int const* ldc,
349  float* work,
350  lapack_int* info
352  , size_t
353 #endif
354 );
355 #ifdef LAPACK_FORTRAN_STRLEN_END
356  #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1)
357 #else
358  #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__)
359 #endif
360 
361 #define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR)
363  char const* uplo,
364  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
365  double* D,
366  double* E,
367  lapack_complex_double* VT, lapack_int const* ldvt,
368  lapack_complex_double* U, lapack_int const* ldu,
369  lapack_complex_double* C, lapack_int const* ldc,
370  double* rwork,
371  lapack_int* info
373  , size_t
374 #endif
375 );
376 #ifdef LAPACK_FORTRAN_STRLEN_END
377  #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1)
378 #else
379  #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__)
380 #endif
381 
382 #define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX)
384  char const* uplo, char const* jobz, char const* range,
385  lapack_int const* n,
386  double const* D,
387  double const* E,
388  double const* vl,
389  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
390  double* S,
391  double* Z, lapack_int const* ldz,
392  double* work,
393  lapack_int* iwork,
394  lapack_int* info
396  , size_t, size_t, size_t
397 #endif
398 );
399 #ifdef LAPACK_FORTRAN_STRLEN_END
400  #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1)
401 #else
402  #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__)
403 #endif
404 
405 #define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX)
407  char const* uplo, char const* jobz, char const* range,
408  lapack_int const* n,
409  float const* D,
410  float const* E,
411  float const* vl,
412  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
413  float* S,
414  float* Z, lapack_int const* ldz,
415  float* work,
416  lapack_int* iwork,
417  lapack_int* info
419  , size_t, size_t, size_t
420 #endif
421 );
422 #ifdef LAPACK_FORTRAN_STRLEN_END
423  #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1)
424 #else
425  #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__)
426 #endif
427 
428 #define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA)
430  char const* job,
431  lapack_int const* m, lapack_int const* n,
432  double const* D,
433  double* SEP,
434  lapack_int* info
436  , size_t
437 #endif
438 );
439 #ifdef LAPACK_FORTRAN_STRLEN_END
440  #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1)
441 #else
442  #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__)
443 #endif
444 
445 #define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA)
447  char const* job,
448  lapack_int const* m, lapack_int const* n,
449  float const* D,
450  float* SEP,
451  lapack_int* info
453  , size_t
454 #endif
455 );
456 #ifdef LAPACK_FORTRAN_STRLEN_END
457  #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1)
458 #else
459  #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__)
460 #endif
461 
462 #define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD)
464  char const* vect,
465  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
466  lapack_complex_float* AB, lapack_int const* ldab,
467  float* D,
468  float* E,
469  lapack_complex_float* Q, lapack_int const* ldq,
470  lapack_complex_float* PT, lapack_int const* ldpt,
471  lapack_complex_float* C, lapack_int const* ldc,
472  lapack_complex_float* work,
473  float* rwork,
474  lapack_int* info
476  , size_t
477 #endif
478 );
479 #ifdef LAPACK_FORTRAN_STRLEN_END
480  #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1)
481 #else
482  #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__)
483 #endif
484 
485 #define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD)
487  char const* vect,
488  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
489  double* AB, lapack_int const* ldab,
490  double* D,
491  double* E,
492  double* Q, lapack_int const* ldq,
493  double* PT, lapack_int const* ldpt,
494  double* C, lapack_int const* ldc,
495  double* work,
496  lapack_int* info
498  , size_t
499 #endif
500 );
501 #ifdef LAPACK_FORTRAN_STRLEN_END
502  #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1)
503 #else
504  #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__)
505 #endif
506 
507 #define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD)
509  char const* vect,
510  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
511  float* AB, lapack_int const* ldab,
512  float* D,
513  float* E,
514  float* Q, lapack_int const* ldq,
515  float* PT, lapack_int const* ldpt,
516  float* C, lapack_int const* ldc,
517  float* work,
518  lapack_int* info
520  , size_t
521 #endif
522 );
523 #ifdef LAPACK_FORTRAN_STRLEN_END
524  #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1)
525 #else
526  #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__)
527 #endif
528 
529 #define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD)
531  char const* vect,
532  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
533  lapack_complex_double* AB, lapack_int const* ldab,
534  double* D,
535  double* E,
536  lapack_complex_double* Q, lapack_int const* ldq,
537  lapack_complex_double* PT, lapack_int const* ldpt,
538  lapack_complex_double* C, lapack_int const* ldc,
539  lapack_complex_double* work,
540  double* rwork,
541  lapack_int* info
543  , size_t
544 #endif
545 );
546 #ifdef LAPACK_FORTRAN_STRLEN_END
547  #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1)
548 #else
549  #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__)
550 #endif
551 
552 #define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON)
554  char const* norm,
555  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
556  lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
557  float const* anorm,
558  float* rcond,
559  lapack_complex_float* work,
560  float* rwork,
561  lapack_int* info
563  , size_t
564 #endif
565 );
566 #ifdef LAPACK_FORTRAN_STRLEN_END
567  #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1)
568 #else
569  #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__)
570 #endif
571 
572 #define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON)
574  char const* norm,
575  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
576  double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
577  double const* anorm,
578  double* rcond,
579  double* work,
580  lapack_int* iwork,
581  lapack_int* info
583  , size_t
584 #endif
585 );
586 #ifdef LAPACK_FORTRAN_STRLEN_END
587  #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1)
588 #else
589  #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__)
590 #endif
591 
592 #define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON)
594  char const* norm,
595  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
596  float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
597  float const* anorm,
598  float* rcond,
599  float* work,
600  lapack_int* iwork,
601  lapack_int* info
603  , size_t
604 #endif
605 );
606 #ifdef LAPACK_FORTRAN_STRLEN_END
607  #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1)
608 #else
609  #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__)
610 #endif
611 
612 #define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON)
614  char const* norm,
615  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
616  lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
617  double const* anorm,
618  double* rcond,
619  lapack_complex_double* work,
620  double* rwork,
621  lapack_int* info
623  , size_t
624 #endif
625 );
626 #ifdef LAPACK_FORTRAN_STRLEN_END
627  #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1)
628 #else
629  #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__)
630 #endif
631 
632 #define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
634  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
635  lapack_complex_float const* AB, lapack_int const* ldab,
636  float* R,
637  float* C,
638  float* rowcnd,
639  float* colcnd,
640  float* amax,
641  lapack_int* info );
642 
643 #define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
645  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
646  double const* AB, lapack_int const* ldab,
647  double* R,
648  double* C,
649  double* rowcnd,
650  double* colcnd,
651  double* amax,
652  lapack_int* info );
653 
654 #define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
656  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
657  float const* AB, lapack_int const* ldab,
658  float* R,
659  float* C,
660  float* rowcnd,
661  float* colcnd,
662  float* amax,
663  lapack_int* info );
664 
665 #define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
667  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
668  lapack_complex_double const* AB, lapack_int const* ldab,
669  double* R,
670  double* C,
671  double* rowcnd,
672  double* colcnd,
673  double* amax,
674  lapack_int* info );
675 
676 #define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
678  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
679  lapack_complex_float const* AB, lapack_int const* ldab,
680  float* R,
681  float* C,
682  float* rowcnd,
683  float* colcnd,
684  float* amax,
685  lapack_int* info );
686 
687 #define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
689  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
690  double const* AB, lapack_int const* ldab,
691  double* R,
692  double* C,
693  double* rowcnd,
694  double* colcnd,
695  double* amax,
696  lapack_int* info );
697 
698 #define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
700  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
701  float const* AB, lapack_int const* ldab,
702  float* R,
703  float* C,
704  float* rowcnd,
705  float* colcnd,
706  float* amax,
707  lapack_int* info );
708 
709 #define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
711  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
712  lapack_complex_double const* AB, lapack_int const* ldab,
713  double* R,
714  double* C,
715  double* rowcnd,
716  double* colcnd,
717  double* amax,
718  lapack_int* info );
719 
720 #define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS)
722  char const* trans,
723  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
724  lapack_complex_float const* AB, lapack_int const* ldab,
725  lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
726  lapack_complex_float const* B, lapack_int const* ldb,
727  lapack_complex_float* X, lapack_int const* ldx,
728  float* ferr,
729  float* berr,
730  lapack_complex_float* work,
731  float* rwork,
732  lapack_int* info
734  , size_t
735 #endif
736 );
737 #ifdef LAPACK_FORTRAN_STRLEN_END
738  #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1)
739 #else
740  #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__)
741 #endif
742 
743 #define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS)
745  char const* trans,
746  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
747  double const* AB, lapack_int const* ldab,
748  double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
749  double const* B, lapack_int const* ldb,
750  double* X, lapack_int const* ldx,
751  double* ferr,
752  double* berr,
753  double* work,
754  lapack_int* iwork,
755  lapack_int* info
757  , size_t
758 #endif
759 );
760 #ifdef LAPACK_FORTRAN_STRLEN_END
761  #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1)
762 #else
763  #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__)
764 #endif
765 
766 #define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS)
768  char const* trans,
769  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
770  float const* AB, lapack_int const* ldab,
771  float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
772  float const* B, lapack_int const* ldb,
773  float* X, lapack_int const* ldx,
774  float* ferr,
775  float* berr,
776  float* work,
777  lapack_int* iwork,
778  lapack_int* info
780  , size_t
781 #endif
782 );
783 #ifdef LAPACK_FORTRAN_STRLEN_END
784  #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1)
785 #else
786  #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__)
787 #endif
788 
789 #define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS)
791  char const* trans,
792  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
793  lapack_complex_double const* AB, lapack_int const* ldab,
794  lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
795  lapack_complex_double const* B, lapack_int const* ldb,
796  lapack_complex_double* X, lapack_int const* ldx,
797  double* ferr,
798  double* berr,
799  lapack_complex_double* work,
800  double* rwork,
801  lapack_int* info
803  , size_t
804 #endif
805 );
806 #ifdef LAPACK_FORTRAN_STRLEN_END
807  #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1)
808 #else
809  #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__)
810 #endif
811 
812 #define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
814  char const* trans, char const* equed,
815  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
816  lapack_complex_float const* AB, lapack_int const* ldab,
817  lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
818  const float* R,
819  const float* C,
820  lapack_complex_float const* B, lapack_int const* ldb,
821  lapack_complex_float* X, lapack_int const* ldx,
822  float* rcond,
823  float* berr, lapack_int const* n_err_bnds,
824  float* err_bnds_norm,
825  float* err_bnds_comp, lapack_int const* nparams,
826  float* params,
827  lapack_complex_float* work,
828  float* rwork,
829  lapack_int* info
831  , size_t, size_t
832 #endif
833 );
834 #ifdef LAPACK_FORTRAN_STRLEN_END
835  #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1)
836 #else
837  #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__)
838 #endif
839 
840 #define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
842  char const* trans, char const* equed,
843  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
844  double const* AB, lapack_int const* ldab,
845  double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
846  const double* R,
847  const double* C,
848  double const* B, lapack_int const* ldb,
849  double* X, lapack_int const* ldx,
850  double* rcond,
851  double* berr, lapack_int const* n_err_bnds,
852  double* err_bnds_norm,
853  double* err_bnds_comp, lapack_int const* nparams,
854  double* params,
855  double* work,
856  lapack_int* iwork,
857  lapack_int* info
859  , size_t, size_t
860 #endif
861 );
862 #ifdef LAPACK_FORTRAN_STRLEN_END
863  #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1)
864 #else
865  #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__)
866 #endif
867 
868 #define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
870  char const* trans, char const* equed,
871  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
872  float const* AB, lapack_int const* ldab,
873  float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
874  const float* R,
875  const float* C,
876  float const* B, lapack_int const* ldb,
877  float* X, lapack_int const* ldx,
878  float* rcond,
879  float* berr, lapack_int const* n_err_bnds,
880  float* err_bnds_norm,
881  float* err_bnds_comp, lapack_int const* nparams,
882  float* params,
883  float* work,
884  lapack_int* iwork,
885  lapack_int* info
887  , size_t, size_t
888 #endif
889 );
890 #ifdef LAPACK_FORTRAN_STRLEN_END
891  #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1)
892 #else
893  #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__)
894 #endif
895 
896 #define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
898  char const* trans, char const* equed,
899  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
900  lapack_complex_double const* AB, lapack_int const* ldab,
901  lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
902  const double* R,
903  const double* C,
904  lapack_complex_double const* B, lapack_int const* ldb,
905  lapack_complex_double* X, lapack_int const* ldx,
906  double* rcond,
907  double* berr, lapack_int const* n_err_bnds,
908  double* err_bnds_norm,
909  double* err_bnds_comp, lapack_int const* nparams,
910  double* params,
911  lapack_complex_double* work,
912  double* rwork,
913  lapack_int* info
915  , size_t, size_t
916 #endif
917 );
918 #ifdef LAPACK_FORTRAN_STRLEN_END
919  #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1)
920 #else
921  #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__)
922 #endif
923 
924 #define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
926  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
927  lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
928  lapack_complex_float* B, lapack_int const* ldb,
929  lapack_int* info );
930 
931 #define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
933  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
934  double* AB, lapack_int const* ldab, lapack_int* ipiv,
935  double* B, lapack_int const* ldb,
936  lapack_int* info );
937 
938 #define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
940  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
941  float* AB, lapack_int const* ldab, lapack_int* ipiv,
942  float* B, lapack_int const* ldb,
943  lapack_int* info );
944 
945 #define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
947  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
948  lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
949  lapack_complex_double* B, lapack_int const* ldb,
950  lapack_int* info );
951 
952 #define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX)
954  char const* fact, char const* trans,
955  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
956  lapack_complex_float* AB, lapack_int const* ldab,
957  lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
958  float* R,
959  float* C,
961  lapack_int const* ldb,
962  lapack_complex_float* X, lapack_int const* ldx,
963  float* rcond,
964  float* ferr,
965  float* berr,
966  lapack_complex_float* work,
967  float* rwork,
968  lapack_int* info
970  , size_t, size_t, size_t
971 #endif
972 );
973 #ifdef LAPACK_FORTRAN_STRLEN_END
974  #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1)
975 #else
976  #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__)
977 #endif
978 
979 #define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX)
981  char const* fact, char const* trans,
982  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
983  double* AB, lapack_int const* ldab,
984  double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
985  double* R,
986  double* C,
987  double* B,
988  lapack_int const* ldb,
989  double* X, lapack_int const* ldx,
990  double* rcond,
991  double* ferr,
992  double* berr,
993  double* work,
994  lapack_int* iwork,
995  lapack_int* info
997  , size_t, size_t, size_t
998 #endif
999 );
1000 #ifdef LAPACK_FORTRAN_STRLEN_END
1001  #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1)
1002 #else
1003  #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__)
1004 #endif
1005 
1006 #define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX)
1008  char const* fact, char const* trans,
1009  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1010  float* AB, lapack_int const* ldab,
1011  float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1012  float* R,
1013  float* C,
1014  float* B,
1015  lapack_int const* ldb,
1016  float* X, lapack_int const* ldx,
1017  float* rcond,
1018  float* ferr,
1019  float* berr,
1020  float* work,
1021  lapack_int* iwork,
1022  lapack_int* info
1024  , size_t, size_t, size_t
1025 #endif
1026 );
1027 #ifdef LAPACK_FORTRAN_STRLEN_END
1028  #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1)
1029 #else
1030  #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__)
1031 #endif
1032 
1033 #define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX)
1035  char const* fact, char const* trans,
1036  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1037  lapack_complex_double* AB, lapack_int const* ldab,
1038  lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1039  double* R,
1040  double* C,
1042  lapack_int const* ldb,
1043  lapack_complex_double* X, lapack_int const* ldx,
1044  double* rcond,
1045  double* ferr,
1046  double* berr,
1047  lapack_complex_double* work,
1048  double* rwork,
1049  lapack_int* info
1051  , size_t, size_t, size_t
1052 #endif
1053 );
1054 #ifdef LAPACK_FORTRAN_STRLEN_END
1055  #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1)
1056 #else
1057  #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__)
1058 #endif
1059 
1060 #define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
1062  char const* fact, char const* trans,
1063  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1064  lapack_complex_float* AB, lapack_int const* ldab,
1065  lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1066  float* R,
1067  float* C,
1069  lapack_int const* ldb,
1070  lapack_complex_float* X, lapack_int const* ldx,
1071  float* rcond,
1072  float* rpvgrw,
1073  float* berr, lapack_int const* n_err_bnds,
1074  float* err_bnds_norm,
1075  float* err_bnds_comp, lapack_int const* nparams,
1076  float* params,
1077  lapack_complex_float* work,
1078  float* rwork,
1079  lapack_int* info
1081  , size_t, size_t, size_t
1082 #endif
1083 );
1084 #ifdef LAPACK_FORTRAN_STRLEN_END
1085  #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1086 #else
1087  #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__)
1088 #endif
1089 
1090 #define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
1092  char const* fact, char const* trans,
1093  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1094  double* AB, lapack_int const* ldab,
1095  double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1096  double* R,
1097  double* C,
1098  double* B,
1099  lapack_int const* ldb,
1100  double* X, lapack_int const* ldx,
1101  double* rcond,
1102  double* rpvgrw,
1103  double* berr, lapack_int const* n_err_bnds,
1104  double* err_bnds_norm,
1105  double* err_bnds_comp, lapack_int const* nparams,
1106  double* params,
1107  double* work,
1108  lapack_int* iwork,
1109  lapack_int* info
1111  , size_t, size_t, size_t
1112 #endif
1113 );
1114 #ifdef LAPACK_FORTRAN_STRLEN_END
1115  #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1116 #else
1117  #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__)
1118 #endif
1119 
1120 #define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
1122  char const* fact, char const* trans,
1123  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1124  float* AB, lapack_int const* ldab,
1125  float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1126  float* R,
1127  float* C,
1128  float* B,
1129  lapack_int const* ldb,
1130  float* X, lapack_int const* ldx,
1131  float* rcond,
1132  float* rpvgrw,
1133  float* berr, lapack_int const* n_err_bnds,
1134  float* err_bnds_norm,
1135  float* err_bnds_comp, lapack_int const* nparams,
1136  float* params,
1137  float* work,
1138  lapack_int* iwork,
1139  lapack_int* info
1141  , size_t, size_t, size_t
1142 #endif
1143 );
1144 #ifdef LAPACK_FORTRAN_STRLEN_END
1145  #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1146 #else
1147  #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__)
1148 #endif
1149 
1150 #define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
1152  char const* fact, char const* trans,
1153  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1154  lapack_complex_double* AB, lapack_int const* ldab,
1155  lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1156  double* R,
1157  double* C,
1159  lapack_int const* ldb,
1160  lapack_complex_double* X, lapack_int const* ldx,
1161  double* rcond,
1162  double* rpvgrw,
1163  double* berr, lapack_int const* n_err_bnds,
1164  double* err_bnds_norm,
1165  double* err_bnds_comp, lapack_int const* nparams,
1166  double* params,
1167  lapack_complex_double* work,
1168  double* rwork,
1169  lapack_int* info
1171  , size_t, size_t, size_t
1172 #endif
1173 );
1174 #ifdef LAPACK_FORTRAN_STRLEN_END
1175  #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1176 #else
1177  #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__)
1178 #endif
1179 
1180 #define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
1182  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1183  lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
1184  lapack_int* info );
1185 
1186 #define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
1188  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1189  double* AB, lapack_int const* ldab, lapack_int* ipiv,
1190  lapack_int* info );
1191 
1192 #define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
1194  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1195  float* AB, lapack_int const* ldab, lapack_int* ipiv,
1196  lapack_int* info );
1197 
1198 #define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
1200  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1201  lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
1202  lapack_int* info );
1203 
1204 #define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS)
1206  char const* trans,
1207  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1208  lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1209  lapack_complex_float* B, lapack_int const* ldb,
1210  lapack_int* info
1212  , size_t
1213 #endif
1214 );
1215 #ifdef LAPACK_FORTRAN_STRLEN_END
1216  #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1)
1217 #else
1218  #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__)
1219 #endif
1220 
1221 #define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS)
1223  char const* trans,
1224  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1225  double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1226  double* B, lapack_int const* ldb,
1227  lapack_int* info
1229  , size_t
1230 #endif
1231 );
1232 #ifdef LAPACK_FORTRAN_STRLEN_END
1233  #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1)
1234 #else
1235  #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__)
1236 #endif
1237 
1238 #define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS)
1240  char const* trans,
1241  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1242  float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1243  float* B, lapack_int const* ldb,
1244  lapack_int* info
1246  , size_t
1247 #endif
1248 );
1249 #ifdef LAPACK_FORTRAN_STRLEN_END
1250  #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1)
1251 #else
1252  #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__)
1253 #endif
1254 
1255 #define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS)
1257  char const* trans,
1258  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1259  lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1260  lapack_complex_double* B, lapack_int const* ldb,
1261  lapack_int* info
1263  , size_t
1264 #endif
1265 );
1266 #ifdef LAPACK_FORTRAN_STRLEN_END
1267  #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1)
1268 #else
1269  #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__)
1270 #endif
1271 
1272 #define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK)
1274  char const* job, char const* side,
1275  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1276  float const* scale, lapack_int const* m,
1277  lapack_complex_float* V, lapack_int const* ldv,
1278  lapack_int* info
1280  , size_t, size_t
1281 #endif
1282 );
1283 #ifdef LAPACK_FORTRAN_STRLEN_END
1284  #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1)
1285 #else
1286  #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__)
1287 #endif
1288 
1289 #define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK)
1291  char const* job, char const* side,
1292  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1293  double const* scale, lapack_int const* m,
1294  double* V, lapack_int const* ldv,
1295  lapack_int* info
1297  , size_t, size_t
1298 #endif
1299 );
1300 #ifdef LAPACK_FORTRAN_STRLEN_END
1301  #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1)
1302 #else
1303  #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__)
1304 #endif
1305 
1306 #define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK)
1308  char const* job, char const* side,
1309  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1310  float const* scale, lapack_int const* m,
1311  float* V, lapack_int const* ldv,
1312  lapack_int* info
1314  , size_t, size_t
1315 #endif
1316 );
1317 #ifdef LAPACK_FORTRAN_STRLEN_END
1318  #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1)
1319 #else
1320  #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__)
1321 #endif
1322 
1323 #define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK)
1325  char const* job, char const* side,
1326  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1327  double const* scale, lapack_int const* m,
1328  lapack_complex_double* V, lapack_int const* ldv,
1329  lapack_int* info
1331  , size_t, size_t
1332 #endif
1333 );
1334 #ifdef LAPACK_FORTRAN_STRLEN_END
1335  #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1)
1336 #else
1337  #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__)
1338 #endif
1339 
1340 #define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL)
1342  char const* job,
1343  lapack_int const* n,
1344  lapack_complex_float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1345  float* scale,
1346  lapack_int* info
1348  , size_t
1349 #endif
1350 );
1351 #ifdef LAPACK_FORTRAN_STRLEN_END
1352  #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1)
1353 #else
1354  #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__)
1355 #endif
1356 
1357 #define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL)
1359  char const* job,
1360  lapack_int const* n,
1361  double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1362  double* scale,
1363  lapack_int* info
1365  , size_t
1366 #endif
1367 );
1368 #ifdef LAPACK_FORTRAN_STRLEN_END
1369  #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1)
1370 #else
1371  #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__)
1372 #endif
1373 
1374 #define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL)
1376  char const* job,
1377  lapack_int const* n,
1378  float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1379  float* scale,
1380  lapack_int* info
1382  , size_t
1383 #endif
1384 );
1385 #ifdef LAPACK_FORTRAN_STRLEN_END
1386  #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1)
1387 #else
1388  #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__)
1389 #endif
1390 
1391 #define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL)
1393  char const* job,
1394  lapack_int const* n,
1395  lapack_complex_double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1396  double* scale,
1397  lapack_int* info
1399  , size_t
1400 #endif
1401 );
1402 #ifdef LAPACK_FORTRAN_STRLEN_END
1403  #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1)
1404 #else
1405  #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__)
1406 #endif
1407 
1408 #define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
1410  lapack_int const* m, lapack_int const* n,
1411  lapack_complex_float* A, lapack_int const* lda,
1412  float* D,
1413  float* E,
1414  lapack_complex_float* tauq,
1415  lapack_complex_float* taup,
1416  lapack_complex_float* work, lapack_int const* lwork,
1417  lapack_int* info );
1418 
1419 #define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
1421  lapack_int const* m, lapack_int const* n,
1422  double* A, lapack_int const* lda,
1423  double* D,
1424  double* E,
1425  double* tauq,
1426  double* taup,
1427  double* work, lapack_int const* lwork,
1428  lapack_int* info );
1429 
1430 #define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
1432  lapack_int const* m, lapack_int const* n,
1433  float* A, lapack_int const* lda,
1434  float* D,
1435  float* E,
1436  float* tauq,
1437  float* taup,
1438  float* work, lapack_int const* lwork,
1439  lapack_int* info );
1440 
1441 #define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
1443  lapack_int const* m, lapack_int const* n,
1444  lapack_complex_double* A, lapack_int const* lda,
1445  double* D,
1446  double* E,
1447  lapack_complex_double* tauq,
1448  lapack_complex_double* taup,
1449  lapack_complex_double* work, lapack_int const* lwork,
1450  lapack_int* info );
1451 
1452 #define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON)
1454  char const* norm,
1455  lapack_int const* n,
1456  lapack_complex_float const* A, lapack_int const* lda,
1457  float const* anorm,
1458  float* rcond,
1459  lapack_complex_float* work,
1460  float* rwork,
1461  lapack_int* info
1463  , size_t
1464 #endif
1465 );
1466 #ifdef LAPACK_FORTRAN_STRLEN_END
1467  #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1)
1468 #else
1469  #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__)
1470 #endif
1471 
1472 #define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON)
1474  char const* norm,
1475  lapack_int const* n,
1476  double const* A, lapack_int const* lda,
1477  double const* anorm,
1478  double* rcond,
1479  double* work,
1480  lapack_int* iwork,
1481  lapack_int* info
1483  , size_t
1484 #endif
1485 );
1486 #ifdef LAPACK_FORTRAN_STRLEN_END
1487  #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1)
1488 #else
1489  #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__)
1490 #endif
1491 
1492 #define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON)
1494  char const* norm,
1495  lapack_int const* n,
1496  float const* A, lapack_int const* lda,
1497  float const* anorm,
1498  float* rcond,
1499  float* work,
1500  lapack_int* iwork,
1501  lapack_int* info
1503  , size_t
1504 #endif
1505 );
1506 #ifdef LAPACK_FORTRAN_STRLEN_END
1507  #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1)
1508 #else
1509  #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__)
1510 #endif
1511 
1512 #define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON)
1514  char const* norm,
1515  lapack_int const* n,
1516  lapack_complex_double const* A, lapack_int const* lda,
1517  double const* anorm,
1518  double* rcond,
1519  lapack_complex_double* work,
1520  double* rwork,
1521  lapack_int* info
1523  , size_t
1524 #endif
1525 );
1526 #ifdef LAPACK_FORTRAN_STRLEN_END
1527  #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1)
1528 #else
1529  #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__)
1530 #endif
1531 
1532 #define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
1534  lapack_int const* m, lapack_int const* n,
1535  lapack_complex_float const* A, lapack_int const* lda,
1536  float* R,
1537  float* C,
1538  float* rowcnd,
1539  float* colcnd,
1540  float* amax,
1541  lapack_int* info );
1542 
1543 #define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
1545  lapack_int const* m, lapack_int const* n,
1546  double const* A, lapack_int const* lda,
1547  double* R,
1548  double* C,
1549  double* rowcnd,
1550  double* colcnd,
1551  double* amax,
1552  lapack_int* info );
1553 
1554 #define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
1556  lapack_int const* m, lapack_int const* n,
1557  float const* A, lapack_int const* lda,
1558  float* R,
1559  float* C,
1560  float* rowcnd,
1561  float* colcnd,
1562  float* amax,
1563  lapack_int* info );
1564 
1565 #define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
1567  lapack_int const* m, lapack_int const* n,
1568  lapack_complex_double const* A, lapack_int const* lda,
1569  double* R,
1570  double* C,
1571  double* rowcnd,
1572  double* colcnd,
1573  double* amax,
1574  lapack_int* info );
1575 
1576 #define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
1578  lapack_int const* m, lapack_int const* n,
1579  lapack_complex_float const* A, lapack_int const* lda,
1580  float* R,
1581  float* C,
1582  float* rowcnd,
1583  float* colcnd,
1584  float* amax,
1585  lapack_int* info );
1586 
1587 #define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
1589  lapack_int const* m, lapack_int const* n,
1590  double const* A, lapack_int const* lda,
1591  double* R,
1592  double* C,
1593  double* rowcnd,
1594  double* colcnd,
1595  double* amax,
1596  lapack_int* info );
1597 
1598 #define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
1600  lapack_int const* m, lapack_int const* n,
1601  float const* A, lapack_int const* lda,
1602  float* R,
1603  float* C,
1604  float* rowcnd,
1605  float* colcnd,
1606  float* amax,
1607  lapack_int* info );
1608 
1609 #define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
1611  lapack_int const* m, lapack_int const* n,
1612  lapack_complex_double const* A, lapack_int const* lda,
1613  double* R,
1614  double* C,
1615  double* rowcnd,
1616  double* colcnd,
1617  double* amax,
1618  lapack_int* info );
1619 
1620 #define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES)
1622  char const* jobvs, char const* sort, LAPACK_C_SELECT1 select,
1623  lapack_int const* n,
1624  lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim,
1626  lapack_complex_float* VS, lapack_int const* ldvs,
1627  lapack_complex_float* work, lapack_int const* lwork,
1628  float* rwork, lapack_logical* BWORK,
1629  lapack_int* info
1631  , size_t, size_t
1632 #endif
1633 );
1634 #ifdef LAPACK_FORTRAN_STRLEN_END
1635  #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1)
1636 #else
1637  #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__)
1638 #endif
1639 
1640 #define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES)
1642  char const* jobvs, char const* sort, LAPACK_D_SELECT2 select,
1643  lapack_int const* n,
1644  double* A, lapack_int const* lda, lapack_int* sdim,
1645  double* WR,
1646  double* WI,
1647  double* VS, lapack_int const* ldvs,
1648  double* work, lapack_int const* lwork, lapack_logical* BWORK,
1649  lapack_int* info
1651  , size_t, size_t
1652 #endif
1653 );
1654 #ifdef LAPACK_FORTRAN_STRLEN_END
1655  #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1)
1656 #else
1657  #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__)
1658 #endif
1659 
1660 #define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES)
1662  char const* jobvs, char const* sort, LAPACK_S_SELECT2 select,
1663  lapack_int const* n,
1664  float* A, lapack_int const* lda, lapack_int* sdim,
1665  float* WR,
1666  float* WI,
1667  float* VS, lapack_int const* ldvs,
1668  float* work, lapack_int const* lwork, lapack_logical* BWORK,
1669  lapack_int* info
1671  , size_t, size_t
1672 #endif
1673 );
1674 #ifdef LAPACK_FORTRAN_STRLEN_END
1675  #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1)
1676 #else
1677  #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__)
1678 #endif
1679 
1680 #define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES)
1682  char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select,
1683  lapack_int const* n,
1684  lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim,
1686  lapack_complex_double* VS, lapack_int const* ldvs,
1687  lapack_complex_double* work, lapack_int const* lwork,
1688  double* rwork, lapack_logical* BWORK,
1689  lapack_int* info
1691  , size_t, size_t
1692 #endif
1693 );
1694 #ifdef LAPACK_FORTRAN_STRLEN_END
1695  #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1)
1696 #else
1697  #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__)
1698 #endif
1699 
1700 #define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX)
1702  char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, char const* sense,
1703  lapack_int const* n,
1704  lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim,
1706  lapack_complex_float* VS, lapack_int const* ldvs,
1707  float* rconde,
1708  float* rcondv,
1709  lapack_complex_float* work, lapack_int const* lwork,
1710  float* rwork, lapack_logical* BWORK,
1711  lapack_int* info
1713  , size_t, size_t, size_t
1714 #endif
1715 );
1716 #ifdef LAPACK_FORTRAN_STRLEN_END
1717  #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1)
1718 #else
1719  #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__)
1720 #endif
1721 
1722 #define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX)
1724  char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, char const* sense,
1725  lapack_int const* n,
1726  double* A, lapack_int const* lda, lapack_int* sdim,
1727  double* WR,
1728  double* WI,
1729  double* VS, lapack_int const* ldvs,
1730  double* rconde,
1731  double* rcondv,
1732  double* work, lapack_int const* lwork,
1733  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1734  lapack_int* info
1736  , size_t, size_t, size_t
1737 #endif
1738 );
1739 #ifdef LAPACK_FORTRAN_STRLEN_END
1740  #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1)
1741 #else
1742  #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__)
1743 #endif
1744 
1745 #define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX)
1747  char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, char const* sense,
1748  lapack_int const* n,
1749  float* A, lapack_int const* lda, lapack_int* sdim,
1750  float* WR,
1751  float* WI,
1752  float* VS, lapack_int const* ldvs,
1753  float* rconde,
1754  float* rcondv,
1755  float* work, lapack_int const* lwork,
1756  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1757  lapack_int* info
1759  , size_t, size_t, size_t
1760 #endif
1761 );
1762 #ifdef LAPACK_FORTRAN_STRLEN_END
1763  #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1)
1764 #else
1765  #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__)
1766 #endif
1767 
1768 #define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX)
1770  char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, char const* sense,
1771  lapack_int const* n,
1772  lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim,
1774  lapack_complex_double* VS, lapack_int const* ldvs,
1775  double* rconde,
1776  double* rcondv,
1777  lapack_complex_double* work, lapack_int const* lwork,
1778  double* rwork, lapack_logical* BWORK,
1779  lapack_int* info
1781  , size_t, size_t, size_t
1782 #endif
1783 );
1784 #ifdef LAPACK_FORTRAN_STRLEN_END
1785  #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1)
1786 #else
1787  #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__)
1788 #endif
1789 
1790 #define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV)
1792  char const* jobvl, char const* jobvr,
1793  lapack_int const* n,
1794  lapack_complex_float* A, lapack_int const* lda,
1796  lapack_complex_float* VL, lapack_int const* ldvl,
1797  lapack_complex_float* VR, lapack_int const* ldvr,
1798  lapack_complex_float* work, lapack_int const* lwork,
1799  float* rwork,
1800  lapack_int* info
1802  , size_t, size_t
1803 #endif
1804 );
1805 #ifdef LAPACK_FORTRAN_STRLEN_END
1806  #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1)
1807 #else
1808  #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__)
1809 #endif
1810 
1811 #define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV)
1813  char const* jobvl, char const* jobvr,
1814  lapack_int const* n,
1815  double* A, lapack_int const* lda,
1816  double* WR,
1817  double* WI,
1818  double* VL, lapack_int const* ldvl,
1819  double* VR, lapack_int const* ldvr,
1820  double* work, lapack_int const* lwork,
1821  lapack_int* info
1823  , size_t, size_t
1824 #endif
1825 );
1826 #ifdef LAPACK_FORTRAN_STRLEN_END
1827  #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1)
1828 #else
1829  #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__)
1830 #endif
1831 
1832 #define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV)
1834  char const* jobvl, char const* jobvr,
1835  lapack_int const* n,
1836  float* A, lapack_int const* lda,
1837  float* WR,
1838  float* WI,
1839  float* VL, lapack_int const* ldvl,
1840  float* VR, lapack_int const* ldvr,
1841  float* work, lapack_int const* lwork,
1842  lapack_int* info
1844  , size_t, size_t
1845 #endif
1846 );
1847 #ifdef LAPACK_FORTRAN_STRLEN_END
1848  #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1)
1849 #else
1850  #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__)
1851 #endif
1852 
1853 #define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV)
1855  char const* jobvl, char const* jobvr,
1856  lapack_int const* n,
1857  lapack_complex_double* A, lapack_int const* lda,
1859  lapack_complex_double* VL, lapack_int const* ldvl,
1860  lapack_complex_double* VR, lapack_int const* ldvr,
1861  lapack_complex_double* work, lapack_int const* lwork,
1862  double* rwork,
1863  lapack_int* info
1865  , size_t, size_t
1866 #endif
1867 );
1868 #ifdef LAPACK_FORTRAN_STRLEN_END
1869  #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1)
1870 #else
1871  #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__)
1872 #endif
1873 
1874 #define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX)
1876  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1877  lapack_int const* n,
1878  lapack_complex_float* A, lapack_int const* lda,
1880  lapack_complex_float* VL, lapack_int const* ldvl,
1881  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1882  float* scale,
1883  float* abnrm,
1884  float* rconde,
1885  float* rcondv,
1886  lapack_complex_float* work, lapack_int const* lwork,
1887  float* rwork,
1888  lapack_int* info
1890  , size_t, size_t, size_t, size_t
1891 #endif
1892 );
1893 #ifdef LAPACK_FORTRAN_STRLEN_END
1894  #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1895 #else
1896  #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__)
1897 #endif
1898 
1899 #define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX)
1901  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1902  lapack_int const* n,
1903  double* A, lapack_int const* lda,
1904  double* WR,
1905  double* WI,
1906  double* VL, lapack_int const* ldvl,
1907  double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1908  double* scale,
1909  double* abnrm,
1910  double* rconde,
1911  double* rcondv,
1912  double* work, lapack_int const* lwork,
1913  lapack_int* iwork,
1914  lapack_int* info
1916  , size_t, size_t, size_t, size_t
1917 #endif
1918 );
1919 #ifdef LAPACK_FORTRAN_STRLEN_END
1920  #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1921 #else
1922  #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__)
1923 #endif
1924 
1925 #define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX)
1927  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1928  lapack_int const* n,
1929  float* A, lapack_int const* lda,
1930  float* WR,
1931  float* WI,
1932  float* VL, lapack_int const* ldvl,
1933  float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1934  float* scale,
1935  float* abnrm,
1936  float* rconde,
1937  float* rcondv,
1938  float* work, lapack_int const* lwork,
1939  lapack_int* iwork,
1940  lapack_int* info
1942  , size_t, size_t, size_t, size_t
1943 #endif
1944 );
1945 #ifdef LAPACK_FORTRAN_STRLEN_END
1946  #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1947 #else
1948  #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__)
1949 #endif
1950 
1951 #define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX)
1953  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1954  lapack_int const* n,
1955  lapack_complex_double* A, lapack_int const* lda,
1957  lapack_complex_double* VL, lapack_int const* ldvl,
1958  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1959  double* scale,
1960  double* abnrm,
1961  double* rconde,
1962  double* rcondv,
1963  lapack_complex_double* work, lapack_int const* lwork,
1964  double* rwork,
1965  lapack_int* info
1967  , size_t, size_t, size_t, size_t
1968 #endif
1969 );
1970 #ifdef LAPACK_FORTRAN_STRLEN_END
1971  #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1972 #else
1973  #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__)
1974 #endif
1975 
1976 #define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
1978  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1979  lapack_complex_float* A, lapack_int const* lda,
1980  lapack_complex_float* tau,
1981  lapack_complex_float* work, lapack_int const* lwork,
1982  lapack_int* info );
1983 
1984 #define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
1986  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1987  double* A, lapack_int const* lda,
1988  double* tau,
1989  double* work, lapack_int const* lwork,
1990  lapack_int* info );
1991 
1992 #define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
1994  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1995  float* A, lapack_int const* lda,
1996  float* tau,
1997  float* work, lapack_int const* lwork,
1998  lapack_int* info );
1999 
2000 #define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
2002  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2003  lapack_complex_double* A, lapack_int const* lda,
2004  lapack_complex_double* tau,
2005  lapack_complex_double* work, lapack_int const* lwork,
2006  lapack_int* info );
2007 
2008 #define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV)
2010  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2011  lapack_int const* m, lapack_int const* n,
2012  lapack_complex_float* A, lapack_int const* lda,
2013  float* SVA,
2014  lapack_complex_float* U, lapack_int const* ldu,
2015  lapack_complex_float* V, lapack_int const* ldv,
2016  lapack_complex_float* cwork, lapack_int const* lwork,
2017  float* rwork, lapack_int const* lrwork,
2018  lapack_int* iwork,
2019  lapack_int* info
2021  , size_t, size_t, size_t, size_t, size_t, size_t
2022 #endif
2023 );
2024 #ifdef LAPACK_FORTRAN_STRLEN_END
2025  #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2026 #else
2027  #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__)
2028 #endif
2029 
2030 #define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV)
2032  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2033  lapack_int const* m, lapack_int const* n,
2034  double* A, lapack_int const* lda,
2035  double* SVA,
2036  double* U, lapack_int const* ldu,
2037  double* V, lapack_int const* ldv,
2038  double* work, lapack_int const* lwork,
2039  lapack_int* iwork,
2040  lapack_int* info
2042  , size_t, size_t, size_t, size_t, size_t, size_t
2043 #endif
2044 );
2045 #ifdef LAPACK_FORTRAN_STRLEN_END
2046  #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2047 #else
2048  #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__)
2049 #endif
2050 
2051 #define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV)
2053  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2054  lapack_int const* m, lapack_int const* n,
2055  float* A, lapack_int const* lda,
2056  float* SVA,
2057  float* U, lapack_int const* ldu,
2058  float* V, lapack_int const* ldv,
2059  float* work, lapack_int const* lwork,
2060  lapack_int* iwork,
2061  lapack_int* info
2063  , size_t, size_t, size_t, size_t, size_t, size_t
2064 #endif
2065 );
2066 #ifdef LAPACK_FORTRAN_STRLEN_END
2067  #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2068 #else
2069  #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__)
2070 #endif
2071 
2072 #define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV)
2074  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2075  lapack_int const* m, lapack_int const* n,
2076  lapack_complex_double* A, lapack_int const* lda,
2077  double* SVA,
2078  lapack_complex_double* U, lapack_int const* ldu,
2079  lapack_complex_double* V, lapack_int const* ldv,
2080  lapack_complex_double* cwork, lapack_int const* lwork,
2081  double* rwork, lapack_int const* lrwork,
2082  lapack_int* iwork,
2083  lapack_int* info
2085  , size_t, size_t, size_t, size_t, size_t, size_t
2086 #endif
2087 );
2088 #ifdef LAPACK_FORTRAN_STRLEN_END
2089  #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2090 #else
2091  #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__)
2092 #endif
2093 
2094 #define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ)
2096  lapack_int const* m, lapack_int const* n,
2097  lapack_complex_float* A, lapack_int const* lda,
2098  lapack_complex_float* T, lapack_int const* tsize,
2099  lapack_complex_float* work, lapack_int const* lwork,
2100  lapack_int* info );
2101 
2102 #define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ)
2104  lapack_int const* m, lapack_int const* n,
2105  double* A, lapack_int const* lda,
2106  double* T, lapack_int const* tsize,
2107  double* work, lapack_int const* lwork,
2108  lapack_int* info );
2109 
2110 #define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ)
2112  lapack_int const* m, lapack_int const* n,
2113  float* A, lapack_int const* lda,
2114  float* T, lapack_int const* tsize,
2115  float* work, lapack_int const* lwork,
2116  lapack_int* info );
2117 
2118 #define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ)
2120  lapack_int const* m, lapack_int const* n,
2121  lapack_complex_double* A, lapack_int const* lda,
2122  lapack_complex_double* T, lapack_int const* tsize,
2123  lapack_complex_double* work, lapack_int const* lwork,
2124  lapack_int* info );
2125 
2126 #define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
2128  lapack_int const* m, lapack_int const* n,
2129  lapack_complex_float* A, lapack_int const* lda,
2130  lapack_complex_float* tau,
2131  lapack_complex_float* work,
2132  lapack_int* info );
2133 
2134 #define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
2136  lapack_int const* m, lapack_int const* n,
2137  double* A, lapack_int const* lda,
2138  double* tau,
2139  double* work,
2140  lapack_int* info );
2141 
2142 #define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
2144  lapack_int const* m, lapack_int const* n,
2145  float* A, lapack_int const* lda,
2146  float* tau,
2147  float* work,
2148  lapack_int* info );
2149 
2150 #define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
2152  lapack_int const* m, lapack_int const* n,
2153  lapack_complex_double* A, lapack_int const* lda,
2154  lapack_complex_double* tau,
2155  lapack_complex_double* work,
2156  lapack_int* info );
2157 
2158 #define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
2160  lapack_int const* m, lapack_int const* n,
2161  lapack_complex_float* A, lapack_int const* lda,
2162  lapack_complex_float* tau,
2163  lapack_complex_float* work, lapack_int const* lwork,
2164  lapack_int* info );
2165 
2166 #define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
2168  lapack_int const* m, lapack_int const* n,
2169  double* A, lapack_int const* lda,
2170  double* tau,
2171  double* work, lapack_int const* lwork,
2172  lapack_int* info );
2173 
2174 #define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
2176  lapack_int const* m, lapack_int const* n,
2177  float* A, lapack_int const* lda,
2178  float* tau,
2179  float* work, lapack_int const* lwork,
2180  lapack_int* info );
2181 
2182 #define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
2184  lapack_int const* m, lapack_int const* n,
2185  lapack_complex_double* A, lapack_int const* lda,
2186  lapack_complex_double* tau,
2187  lapack_complex_double* work, lapack_int const* lwork,
2188  lapack_int* info );
2189 
2190 #define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS)
2192  char const* trans,
2193  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2194  lapack_complex_float* A, lapack_int const* lda,
2195  lapack_complex_float* B, lapack_int const* ldb,
2196  lapack_complex_float* work, lapack_int const* lwork,
2197  lapack_int* info
2199  , size_t
2200 #endif
2201 );
2202 #ifdef LAPACK_FORTRAN_STRLEN_END
2203  #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1)
2204 #else
2205  #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__)
2206 #endif
2207 
2208 #define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS)
2210  char const* trans,
2211  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2212  double* A, lapack_int const* lda,
2213  double* B, lapack_int const* ldb,
2214  double* work, lapack_int const* lwork,
2215  lapack_int* info
2217  , size_t
2218 #endif
2219 );
2220 #ifdef LAPACK_FORTRAN_STRLEN_END
2221  #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1)
2222 #else
2223  #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__)
2224 #endif
2225 
2226 #define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS)
2228  char const* trans,
2229  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2230  float* A, lapack_int const* lda,
2231  float* B, lapack_int const* ldb,
2232  float* work, lapack_int const* lwork,
2233  lapack_int* info
2235  , size_t
2236 #endif
2237 );
2238 #ifdef LAPACK_FORTRAN_STRLEN_END
2239  #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1)
2240 #else
2241  #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__)
2242 #endif
2243 
2244 #define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS)
2246  char const* trans,
2247  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2248  lapack_complex_double* A, lapack_int const* lda,
2249  lapack_complex_double* B, lapack_int const* ldb,
2250  lapack_complex_double* work, lapack_int const* lwork,
2251  lapack_int* info
2253  , size_t
2254 #endif
2255 );
2256 #ifdef LAPACK_FORTRAN_STRLEN_END
2257  #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1)
2258 #else
2259  #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__)
2260 #endif
2261 
2262 #define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
2264  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2265  lapack_complex_float* A, lapack_int const* lda,
2266  lapack_complex_float* B, lapack_int const* ldb,
2267  float* S,
2268  float const* rcond, lapack_int* rank,
2269  lapack_complex_float* work, lapack_int const* lwork,
2270  float* rwork,
2271  lapack_int* iwork,
2272  lapack_int* info );
2273 
2274 #define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
2276  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2277  double* A, lapack_int const* lda,
2278  double* B, lapack_int const* ldb,
2279  double* S,
2280  double const* rcond, lapack_int* rank,
2281  double* work, lapack_int const* lwork,
2282  lapack_int* iwork,
2283  lapack_int* info );
2284 
2285 #define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
2287  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2288  float* A, lapack_int const* lda,
2289  float* B, lapack_int const* ldb,
2290  float* S,
2291  float const* rcond, lapack_int* rank,
2292  float* work, lapack_int const* lwork,
2293  lapack_int* iwork,
2294  lapack_int* info );
2295 
2296 #define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
2298  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2299  lapack_complex_double* A, lapack_int const* lda,
2300  lapack_complex_double* B, lapack_int const* ldb,
2301  double* S,
2302  double const* rcond, lapack_int* rank,
2303  lapack_complex_double* work, lapack_int const* lwork,
2304  double* rwork,
2305  lapack_int* iwork,
2306  lapack_int* info );
2307 
2308 #define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
2310  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2311  lapack_complex_float* A, lapack_int const* lda,
2312  lapack_complex_float* B, lapack_int const* ldb,
2313  float* S,
2314  float const* rcond, lapack_int* rank,
2315  lapack_complex_float* work, lapack_int const* lwork,
2316  float* rwork,
2317  lapack_int* info );
2318 
2319 #define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
2321  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2322  double* A, lapack_int const* lda,
2323  double* B, lapack_int const* ldb,
2324  double* S,
2325  double const* rcond, lapack_int* rank,
2326  double* work, lapack_int const* lwork,
2327  lapack_int* info );
2328 
2329 #define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
2331  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2332  float* A, lapack_int const* lda,
2333  float* B, lapack_int const* ldb,
2334  float* S,
2335  float const* rcond, lapack_int* rank,
2336  float* work, lapack_int const* lwork,
2337  lapack_int* info );
2338 
2339 #define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
2341  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2342  lapack_complex_double* A, lapack_int const* lda,
2343  lapack_complex_double* B, lapack_int const* ldb,
2344  double* S,
2345  double const* rcond, lapack_int* rank,
2346  lapack_complex_double* work, lapack_int const* lwork,
2347  double* rwork,
2348  lapack_int* info );
2349 
2350 #define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
2352  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2353  lapack_complex_float* A, lapack_int const* lda,
2354  lapack_complex_float* B, lapack_int const* ldb, lapack_int* JPVT,
2355  float const* rcond, lapack_int* rank,
2356  lapack_complex_float* work, lapack_int const* lwork,
2357  float* rwork,
2358  lapack_int* info );
2359 
2360 #define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
2362  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2363  double* A, lapack_int const* lda,
2364  double* B, lapack_int const* ldb, lapack_int* JPVT,
2365  double const* rcond, lapack_int* rank,
2366  double* work, lapack_int const* lwork,
2367  lapack_int* info );
2368 
2369 #define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
2371  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2372  float* A, lapack_int const* lda,
2373  float* B, lapack_int const* ldb, lapack_int* JPVT,
2374  float const* rcond, lapack_int* rank,
2375  float* work, lapack_int const* lwork,
2376  lapack_int* info );
2377 
2378 #define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
2380  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2381  lapack_complex_double* A, lapack_int const* lda,
2382  lapack_complex_double* B, lapack_int const* ldb, lapack_int* JPVT,
2383  double const* rcond, lapack_int* rank,
2384  lapack_complex_double* work, lapack_int const* lwork,
2385  double* rwork,
2386  lapack_int* info );
2387 
2388 #define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ)
2390  char const* side, char const* trans,
2391  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2392  lapack_complex_float const* A, lapack_int const* lda,
2393  lapack_complex_float const* T, lapack_int const* tsize,
2394  lapack_complex_float* C, lapack_int const* ldc,
2395  lapack_complex_float* work, lapack_int const* lwork,
2396  lapack_int* info
2398  , size_t, size_t
2399 #endif
2400 );
2401 #ifdef LAPACK_FORTRAN_STRLEN_END
2402  #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1)
2403 #else
2404  #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__)
2405 #endif
2406 
2407 #define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ)
2409  char const* side, char const* trans,
2410  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2411  double const* A, lapack_int const* lda,
2412  double const* T, lapack_int const* tsize,
2413  double* C, lapack_int const* ldc,
2414  double* work, lapack_int const* lwork,
2415  lapack_int* info
2417  , size_t, size_t
2418 #endif
2419 );
2420 #ifdef LAPACK_FORTRAN_STRLEN_END
2421  #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1)
2422 #else
2423  #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__)
2424 #endif
2425 
2426 #define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ)
2428  char const* side, char const* trans,
2429  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2430  float const* A, lapack_int const* lda,
2431  float const* T, lapack_int const* tsize,
2432  float* C, lapack_int const* ldc,
2433  float* work, lapack_int const* lwork,
2434  lapack_int* info
2436  , size_t, size_t
2437 #endif
2438 );
2439 #ifdef LAPACK_FORTRAN_STRLEN_END
2440  #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1)
2441 #else
2442  #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__)
2443 #endif
2444 
2445 #define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ)
2447  char const* side, char const* trans,
2448  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2449  lapack_complex_double const* A, lapack_int const* lda,
2450  lapack_complex_double const* T, lapack_int const* tsize,
2451  lapack_complex_double* C, lapack_int const* ldc,
2452  lapack_complex_double* work, lapack_int const* lwork,
2453  lapack_int* info
2455  , size_t, size_t
2456 #endif
2457 );
2458 #ifdef LAPACK_FORTRAN_STRLEN_END
2459  #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1)
2460 #else
2461  #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__)
2462 #endif
2463 
2464 #define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR)
2466  char const* side, char const* trans,
2467  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2468  lapack_complex_float const* A, lapack_int const* lda,
2469  lapack_complex_float const* T, lapack_int const* tsize,
2470  lapack_complex_float* C, lapack_int const* ldc,
2471  lapack_complex_float* work, lapack_int const* lwork,
2472  lapack_int* info
2474  , size_t, size_t
2475 #endif
2476 );
2477 #ifdef LAPACK_FORTRAN_STRLEN_END
2478  #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1)
2479 #else
2480  #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__)
2481 #endif
2482 
2483 #define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR)
2485  char const* side, char const* trans,
2486  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2487  double const* A, lapack_int const* lda,
2488  double const* T, lapack_int const* tsize,
2489  double* C, lapack_int const* ldc,
2490  double* work, lapack_int const* lwork,
2491  lapack_int* info
2493  , size_t, size_t
2494 #endif
2495 );
2496 #ifdef LAPACK_FORTRAN_STRLEN_END
2497  #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1)
2498 #else
2499  #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__)
2500 #endif
2501 
2502 #define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR)
2504  char const* side, char const* trans,
2505  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2506  float const* A, lapack_int const* lda,
2507  float const* T, lapack_int const* tsize,
2508  float* C, lapack_int const* ldc,
2509  float* work, lapack_int const* lwork,
2510  lapack_int* info
2512  , size_t, size_t
2513 #endif
2514 );
2515 #ifdef LAPACK_FORTRAN_STRLEN_END
2516  #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1)
2517 #else
2518  #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__)
2519 #endif
2520 
2521 #define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR)
2523  char const* side, char const* trans,
2524  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2525  lapack_complex_double const* A, lapack_int const* lda,
2526  lapack_complex_double const* T, lapack_int const* tsize,
2527  lapack_complex_double* C, lapack_int const* ldc,
2528  lapack_complex_double* work, lapack_int const* lwork,
2529  lapack_int* info
2531  , size_t, size_t
2532 #endif
2533 );
2534 #ifdef LAPACK_FORTRAN_STRLEN_END
2535  #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1)
2536 #else
2537  #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__)
2538 #endif
2539 
2540 #define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT)
2542  char const* side, char const* trans,
2543  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2544  lapack_complex_float const* V, lapack_int const* ldv,
2545  lapack_complex_float const* T, lapack_int const* ldt,
2546  lapack_complex_float* C, lapack_int const* ldc,
2547  lapack_complex_float* work,
2548  lapack_int* info
2550  , size_t, size_t
2551 #endif
2552 );
2553 #ifdef LAPACK_FORTRAN_STRLEN_END
2554  #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1)
2555 #else
2556  #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__)
2557 #endif
2558 
2559 #define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT)
2561  char const* side, char const* trans,
2562  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2563  double const* V, lapack_int const* ldv,
2564  double const* T, lapack_int const* ldt,
2565  double* C, lapack_int const* ldc,
2566  double* work,
2567  lapack_int* info
2569  , size_t, size_t
2570 #endif
2571 );
2572 #ifdef LAPACK_FORTRAN_STRLEN_END
2573  #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1)
2574 #else
2575  #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__)
2576 #endif
2577 
2578 #define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT)
2580  char const* side, char const* trans,
2581  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2582  float const* V, lapack_int const* ldv,
2583  float const* T, lapack_int const* ldt,
2584  float* C, lapack_int const* ldc,
2585  float* work,
2586  lapack_int* info
2588  , size_t, size_t
2589 #endif
2590 );
2591 #ifdef LAPACK_FORTRAN_STRLEN_END
2592  #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1)
2593 #else
2594  #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__)
2595 #endif
2596 
2597 #define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
2599  char const* side, char const* trans,
2600  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2601  lapack_complex_double const* V, lapack_int const* ldv,
2602  lapack_complex_double const* T, lapack_int const* ldt,
2603  lapack_complex_double* C, lapack_int const* ldc,
2604  lapack_complex_double* work,
2605  lapack_int* info
2607  , size_t, size_t
2608 #endif
2609 );
2610 #ifdef LAPACK_FORTRAN_STRLEN_END
2611  #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1)
2612 #else
2613  #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__)
2614 #endif
2615 
2616 #define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2)
2618  lapack_int const* m, lapack_int const* n,
2619  lapack_complex_float* A, lapack_int const* lda,
2620  lapack_complex_float* tau,
2621  lapack_complex_float* work,
2622  lapack_int* info );
2623 
2624 #define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2)
2626  lapack_int const* m, lapack_int const* n,
2627  double* A, lapack_int const* lda,
2628  double* tau,
2629  double* work,
2630  lapack_int* info );
2631 
2632 #define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2)
2634  lapack_int const* m, lapack_int const* n,
2635  float* A, lapack_int const* lda,
2636  float* tau,
2637  float* work,
2638  lapack_int* info );
2639 
2640 #define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2)
2642  lapack_int const* m, lapack_int const* n,
2643  lapack_complex_double* A, lapack_int const* lda,
2644  lapack_complex_double* tau,
2645  lapack_complex_double* work,
2646  lapack_int* info );
2647 
2648 #define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
2650  lapack_int const* m, lapack_int const* n,
2651  lapack_complex_float* A, lapack_int const* lda,
2652  lapack_complex_float* tau,
2653  lapack_complex_float* work, lapack_int const* lwork,
2654  lapack_int* info );
2655 
2656 #define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
2658  lapack_int const* m, lapack_int const* n,
2659  double* A, lapack_int const* lda,
2660  double* tau,
2661  double* work, lapack_int const* lwork,
2662  lapack_int* info );
2663 
2664 #define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
2666  lapack_int const* m, lapack_int const* n,
2667  float* A, lapack_int const* lda,
2668  float* tau,
2669  float* work, lapack_int const* lwork,
2670  lapack_int* info );
2671 
2672 #define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
2674  lapack_int const* m, lapack_int const* n,
2675  lapack_complex_double* A, lapack_int const* lda,
2676  lapack_complex_double* tau,
2677  lapack_complex_double* work, lapack_int const* lwork,
2678  lapack_int* info );
2679 
2680 #define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
2681 void LAPACK_sgeqpf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
2682  lapack_int* jpvt, float* tau, float* work,
2683  lapack_int *info );
2684 
2685 #define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
2686 void LAPACK_dgeqpf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
2687  lapack_int* jpvt, double* tau, double* work,
2688  lapack_int *info );
2689 
2690 #define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
2692  lapack_int* lda, lapack_int* jpvt,
2694  float* rwork, lapack_int *info );
2695 
2696 #define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
2698  lapack_int* lda, lapack_int* jpvt,
2700  double* rwork, lapack_int *info );
2701 
2702 #define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
2704  lapack_int const* m, lapack_int const* n,
2705  lapack_complex_float* A, lapack_int const* lda, lapack_int* JPVT,
2706  lapack_complex_float* tau,
2707  lapack_complex_float* work, lapack_int const* lwork,
2708  float* rwork,
2709  lapack_int* info );
2710 
2711 #define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
2713  lapack_int const* m, lapack_int const* n,
2714  double* A, lapack_int const* lda, lapack_int* JPVT,
2715  double* tau,
2716  double* work, lapack_int const* lwork,
2717  lapack_int* info );
2718 
2719 #define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
2721  lapack_int const* m, lapack_int const* n,
2722  float* A, lapack_int const* lda, lapack_int* JPVT,
2723  float* tau,
2724  float* work, lapack_int const* lwork,
2725  lapack_int* info );
2726 
2727 #define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
2729  lapack_int const* m, lapack_int const* n,
2730  lapack_complex_double* A, lapack_int const* lda, lapack_int* JPVT,
2731  lapack_complex_double* tau,
2732  lapack_complex_double* work, lapack_int const* lwork,
2733  double* rwork,
2734  lapack_int* info );
2735 
2736 #define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR)
2738  lapack_int const* m, lapack_int const* n,
2739  lapack_complex_float* A, lapack_int const* lda,
2740  lapack_complex_float* T, lapack_int const* tsize,
2741  lapack_complex_float* work, lapack_int const* lwork,
2742  lapack_int* info );
2743 
2744 #define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR)
2746  lapack_int const* m, lapack_int const* n,
2747  double* A, lapack_int const* lda,
2748  double* T, lapack_int const* tsize,
2749  double* work, lapack_int const* lwork,
2750  lapack_int* info );
2751 
2752 #define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR)
2754  lapack_int const* m, lapack_int const* n,
2755  float* A, lapack_int const* lda,
2756  float* T, lapack_int const* tsize,
2757  float* work, lapack_int const* lwork,
2758  lapack_int* info );
2759 
2760 #define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR)
2762  lapack_int const* m, lapack_int const* n,
2763  lapack_complex_double* A, lapack_int const* lda,
2764  lapack_complex_double* T, lapack_int const* tsize,
2765  lapack_complex_double* work, lapack_int const* lwork,
2766  lapack_int* info );
2767 
2768 #define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
2770  lapack_int const* m, lapack_int const* n,
2771  lapack_complex_float* A, lapack_int const* lda,
2772  lapack_complex_float* tau,
2773  lapack_complex_float* work,
2774  lapack_int* info );
2775 
2776 #define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
2778  lapack_int const* m, lapack_int const* n,
2779  double* A, lapack_int const* lda,
2780  double* tau,
2781  double* work,
2782  lapack_int* info );
2783 
2784 #define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
2786  lapack_int const* m, lapack_int const* n,
2787  float* A, lapack_int const* lda,
2788  float* tau,
2789  float* work,
2790  lapack_int* info );
2791 
2792 #define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
2794  lapack_int const* m, lapack_int const* n,
2795  lapack_complex_double* A, lapack_int const* lda,
2796  lapack_complex_double* tau,
2797  lapack_complex_double* work,
2798  lapack_int* info );
2799 
2800 #define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
2802  lapack_int const* m, lapack_int const* n,
2803  lapack_complex_float* A, lapack_int const* lda,
2804  lapack_complex_float* tau,
2805  lapack_complex_float* work, lapack_int const* lwork,
2806  lapack_int* info );
2807 
2808 #define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
2810  lapack_int const* m, lapack_int const* n,
2811  double* A, lapack_int const* lda,
2812  double* tau,
2813  double* work, lapack_int const* lwork,
2814  lapack_int* info );
2815 
2816 #define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
2818  lapack_int const* m, lapack_int const* n,
2819  float* A, lapack_int const* lda,
2820  float* tau,
2821  float* work, lapack_int const* lwork,
2822  lapack_int* info );
2823 
2824 #define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
2826  lapack_int const* m, lapack_int const* n,
2827  lapack_complex_double* A, lapack_int const* lda,
2828  lapack_complex_double* tau,
2829  lapack_complex_double* work, lapack_int const* lwork,
2830  lapack_int* info );
2831 
2832 #define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
2834  lapack_int const* m, lapack_int const* n,
2835  lapack_complex_float* A, lapack_int const* lda,
2836  lapack_complex_float* tau,
2837  lapack_complex_float* work, lapack_int const* lwork,
2838  lapack_int* info );
2839 
2840 #define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
2842  lapack_int const* m, lapack_int const* n,
2843  double* A, lapack_int const* lda,
2844  double* tau,
2845  double* work, lapack_int const* lwork,
2846  lapack_int* info );
2847 
2848 #define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
2850  lapack_int const* m, lapack_int const* n,
2851  float* A, lapack_int const* lda,
2852  float* tau,
2853  float* work, lapack_int const* lwork,
2854  lapack_int* info );
2855 
2856 #define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
2858  lapack_int const* m, lapack_int const* n,
2859  lapack_complex_double* A, lapack_int const* lda,
2860  lapack_complex_double* tau,
2861  lapack_complex_double* work, lapack_int const* lwork,
2862  lapack_int* info );
2863 
2864 #define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
2866  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2867  lapack_complex_float* A, lapack_int const* lda,
2868  lapack_complex_float* T, lapack_int const* ldt,
2869  lapack_complex_float* work,
2870  lapack_int* info );
2871 
2872 #define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
2874  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2875  double* A, lapack_int const* lda,
2876  double* T, lapack_int const* ldt,
2877  double* work,
2878  lapack_int* info );
2879 
2880 #define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
2882  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2883  float* A, lapack_int const* lda,
2884  float* T, lapack_int const* ldt,
2885  float* work,
2886  lapack_int* info );
2887 
2888 #define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
2890  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2891  lapack_complex_double* A, lapack_int const* lda,
2892  lapack_complex_double* T, lapack_int const* ldt,
2893  lapack_complex_double* work,
2894  lapack_int* info );
2895 
2896 #define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
2898  lapack_int const* m, lapack_int const* n,
2899  lapack_complex_float* A, lapack_int const* lda,
2900  lapack_complex_float* T, lapack_int const* ldt,
2901  lapack_int* info );
2902 
2903 #define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
2905  lapack_int const* m, lapack_int const* n,
2906  double* A, lapack_int const* lda,
2907  double* T, lapack_int const* ldt,
2908  lapack_int* info );
2909 
2910 #define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
2912  lapack_int const* m, lapack_int const* n,
2913  float* A, lapack_int const* lda,
2914  float* T, lapack_int const* ldt,
2915  lapack_int* info );
2916 
2917 #define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
2919  lapack_int const* m, lapack_int const* n,
2920  lapack_complex_double* A, lapack_int const* lda,
2921  lapack_complex_double* T, lapack_int const* ldt,
2922  lapack_int* info );
2923 
2924 #define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
2926  lapack_int const* m, lapack_int const* n,
2927  lapack_complex_float* A, lapack_int const* lda,
2928  lapack_complex_float* T, lapack_int const* ldt,
2929  lapack_int* info );
2930 
2931 #define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
2933  lapack_int const* m, lapack_int const* n,
2934  double* A, lapack_int const* lda,
2935  double* T, lapack_int const* ldt,
2936  lapack_int* info );
2937 
2938 #define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
2940  lapack_int const* m, lapack_int const* n,
2941  float* A, lapack_int const* lda,
2942  float* T, lapack_int const* ldt,
2943  lapack_int* info );
2944 
2945 #define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
2947  lapack_int const* m, lapack_int const* n,
2948  lapack_complex_double* A, lapack_int const* lda,
2949  lapack_complex_double* T, lapack_int const* ldt,
2950  lapack_int* info );
2951 
2952 #define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS)
2954  char const* trans,
2955  lapack_int const* n, lapack_int const* nrhs,
2956  lapack_complex_float const* A, lapack_int const* lda,
2957  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2958  lapack_complex_float const* B, lapack_int const* ldb,
2959  lapack_complex_float* X, lapack_int const* ldx,
2960  float* ferr,
2961  float* berr,
2962  lapack_complex_float* work,
2963  float* rwork,
2964  lapack_int* info
2966  , size_t
2967 #endif
2968 );
2969 #ifdef LAPACK_FORTRAN_STRLEN_END
2970  #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1)
2971 #else
2972  #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__)
2973 #endif
2974 
2975 #define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS)
2977  char const* trans,
2978  lapack_int const* n, lapack_int const* nrhs,
2979  double const* A, lapack_int const* lda,
2980  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2981  double const* B, lapack_int const* ldb,
2982  double* X, lapack_int const* ldx,
2983  double* ferr,
2984  double* berr,
2985  double* work,
2986  lapack_int* iwork,
2987  lapack_int* info
2989  , size_t
2990 #endif
2991 );
2992 #ifdef LAPACK_FORTRAN_STRLEN_END
2993  #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1)
2994 #else
2995  #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__)
2996 #endif
2997 
2998 #define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS)
3000  char const* trans,
3001  lapack_int const* n, lapack_int const* nrhs,
3002  float const* A, lapack_int const* lda,
3003  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3004  float const* B, lapack_int const* ldb,
3005  float* X, lapack_int const* ldx,
3006  float* ferr,
3007  float* berr,
3008  float* work,
3009  lapack_int* iwork,
3010  lapack_int* info
3012  , size_t
3013 #endif
3014 );
3015 #ifdef LAPACK_FORTRAN_STRLEN_END
3016  #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1)
3017 #else
3018  #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__)
3019 #endif
3020 
3021 #define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS)
3023  char const* trans,
3024  lapack_int const* n, lapack_int const* nrhs,
3025  lapack_complex_double const* A, lapack_int const* lda,
3026  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3027  lapack_complex_double const* B, lapack_int const* ldb,
3028  lapack_complex_double* X, lapack_int const* ldx,
3029  double* ferr,
3030  double* berr,
3031  lapack_complex_double* work,
3032  double* rwork,
3033  lapack_int* info
3035  , size_t
3036 #endif
3037 );
3038 #ifdef LAPACK_FORTRAN_STRLEN_END
3039  #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1)
3040 #else
3041  #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__)
3042 #endif
3043 
3044 #define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX)
3046  char const* trans, char const* equed,
3047  lapack_int const* n, lapack_int const* nrhs,
3048  lapack_complex_float const* A, lapack_int const* lda,
3049  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3050  float const* R,
3051  float const* C,
3052  lapack_complex_float const* B, lapack_int const* ldb,
3053  lapack_complex_float* X, lapack_int const* ldx,
3054  float* rcond,
3055  float* berr, lapack_int const* n_err_bnds,
3056  float* err_bnds_norm,
3057  float* err_bnds_comp, lapack_int const* nparams,
3058  float* params,
3059  lapack_complex_float* work,
3060  float* rwork,
3061  lapack_int* info
3063  , size_t, size_t
3064 #endif
3065 );
3066 #ifdef LAPACK_FORTRAN_STRLEN_END
3067  #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1)
3068 #else
3069  #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__)
3070 #endif
3071 
3072 #define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX)
3074  char const* trans, char const* equed,
3075  lapack_int const* n, lapack_int const* nrhs,
3076  double const* A, lapack_int const* lda,
3077  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3078  double const* R,
3079  double const* C,
3080  double const* B, lapack_int const* ldb,
3081  double* X, lapack_int const* ldx,
3082  double* rcond,
3083  double* berr, lapack_int const* n_err_bnds,
3084  double* err_bnds_norm,
3085  double* err_bnds_comp, lapack_int const* nparams,
3086  double* params,
3087  double* work,
3088  lapack_int* iwork,
3089  lapack_int* info
3091  , size_t, size_t
3092 #endif
3093 );
3094 #ifdef LAPACK_FORTRAN_STRLEN_END
3095  #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1)
3096 #else
3097  #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__)
3098 #endif
3099 
3100 #define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX)
3102  char const* trans, char const* equed,
3103  lapack_int const* n, lapack_int const* nrhs,
3104  float const* A, lapack_int const* lda,
3105  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3106  float const* R,
3107  float const* C,
3108  float const* B, lapack_int const* ldb,
3109  float* X, lapack_int const* ldx,
3110  float* rcond,
3111  float* berr, lapack_int const* n_err_bnds,
3112  float* err_bnds_norm,
3113  float* err_bnds_comp, lapack_int const* nparams,
3114  float* params,
3115  float* work,
3116  lapack_int* iwork,
3117  lapack_int* info
3119  , size_t, size_t
3120 #endif
3121 );
3122 #ifdef LAPACK_FORTRAN_STRLEN_END
3123  #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1)
3124 #else
3125  #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__)
3126 #endif
3127 
3128 #define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX)
3130  char const* trans, char const* equed,
3131  lapack_int const* n, lapack_int const* nrhs,
3132  lapack_complex_double const* A, lapack_int const* lda,
3133  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3134  double const* R,
3135  double const* C,
3136  lapack_complex_double const* B, lapack_int const* ldb,
3137  lapack_complex_double* X, lapack_int const* ldx,
3138  double* rcond,
3139  double* berr, lapack_int const* n_err_bnds,
3140  double* err_bnds_norm,
3141  double* err_bnds_comp, lapack_int const* nparams,
3142  double* params,
3143  lapack_complex_double* work,
3144  double* rwork,
3145  lapack_int* info
3147  , size_t, size_t
3148 #endif
3149 );
3150 #ifdef LAPACK_FORTRAN_STRLEN_END
3151  #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1)
3152 #else
3153  #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__)
3154 #endif
3155 
3156 #define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2)
3158  lapack_int const* m, lapack_int const* n,
3159  lapack_complex_float* A, lapack_int const* lda,
3160  lapack_complex_float* tau,
3161  lapack_complex_float* work,
3162  lapack_int* info );
3163 
3164 #define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2)
3166  lapack_int const* m, lapack_int const* n,
3167  double* A, lapack_int const* lda,
3168  double* tau,
3169  double* work,
3170  lapack_int* info );
3171 
3172 #define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2)
3174  lapack_int const* m, lapack_int const* n,
3175  float* A, lapack_int const* lda,
3176  float* tau,
3177  float* work,
3178  lapack_int* info );
3179 
3180 #define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2)
3182  lapack_int const* m, lapack_int const* n,
3183  lapack_complex_double* A, lapack_int const* lda,
3184  lapack_complex_double* tau,
3185  lapack_complex_double* work,
3186  lapack_int* info );
3187 
3188 #define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
3190  lapack_int const* m, lapack_int const* n,
3191  lapack_complex_float* A, lapack_int const* lda,
3192  lapack_complex_float* tau,
3193  lapack_complex_float* work, lapack_int const* lwork,
3194  lapack_int* info );
3195 
3196 #define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
3198  lapack_int const* m, lapack_int const* n,
3199  double* A, lapack_int const* lda,
3200  double* tau,
3201  double* work, lapack_int const* lwork,
3202  lapack_int* info );
3203 
3204 #define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
3206  lapack_int const* m, lapack_int const* n,
3207  float* A, lapack_int const* lda,
3208  float* tau,
3209  float* work, lapack_int const* lwork,
3210  lapack_int* info );
3211 
3212 #define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
3214  lapack_int const* m, lapack_int const* n,
3215  lapack_complex_double* A, lapack_int const* lda,
3216  lapack_complex_double* tau,
3217  lapack_complex_double* work, lapack_int const* lwork,
3218  lapack_int* info );
3219 
3220 #define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD)
3222  char const* jobz,
3223  lapack_int const* m, lapack_int const* n,
3224  lapack_complex_float* A, lapack_int const* lda,
3225  float* S,
3226  lapack_complex_float* U, lapack_int const* ldu,
3227  lapack_complex_float* VT, lapack_int const* ldvt,
3228  lapack_complex_float* work, lapack_int const* lwork,
3229  float* rwork,
3230  lapack_int* iwork,
3231  lapack_int* info
3233  , size_t
3234 #endif
3235 );
3236 #ifdef LAPACK_FORTRAN_STRLEN_END
3237  #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1)
3238 #else
3239  #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__)
3240 #endif
3241 
3242 #define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD)
3244  char const* jobz,
3245  lapack_int const* m, lapack_int const* n,
3246  double* A, lapack_int const* lda,
3247  double* S,
3248  double* U, lapack_int const* ldu,
3249  double* VT, lapack_int const* ldvt,
3250  double* work, lapack_int const* lwork,
3251  lapack_int* iwork,
3252  lapack_int* info
3254  , size_t
3255 #endif
3256 );
3257 #ifdef LAPACK_FORTRAN_STRLEN_END
3258  #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1)
3259 #else
3260  #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__)
3261 #endif
3262 
3263 #define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD)
3265  char const* jobz,
3266  lapack_int const* m, lapack_int const* n,
3267  float* A, lapack_int const* lda,
3268  float* S,
3269  float* U, lapack_int const* ldu,
3270  float* VT, lapack_int const* ldvt,
3271  float* work, lapack_int const* lwork,
3272  lapack_int* iwork,
3273  lapack_int* info
3275  , size_t
3276 #endif
3277 );
3278 #ifdef LAPACK_FORTRAN_STRLEN_END
3279  #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1)
3280 #else
3281  #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__)
3282 #endif
3283 
3284 #define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD)
3286  char const* jobz,
3287  lapack_int const* m, lapack_int const* n,
3288  lapack_complex_double* A, lapack_int const* lda,
3289  double* S,
3290  lapack_complex_double* U, lapack_int const* ldu,
3291  lapack_complex_double* VT, lapack_int const* ldvt,
3292  lapack_complex_double* work, lapack_int const* lwork,
3293  double* rwork,
3294  lapack_int* iwork,
3295  lapack_int* info
3297  , size_t
3298 #endif
3299 );
3300 #ifdef LAPACK_FORTRAN_STRLEN_END
3301  #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1)
3302 #else
3303  #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__)
3304 #endif
3305 
3306 #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
3308  lapack_int const* n, lapack_int const* nrhs,
3309  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3310  lapack_complex_float* B, lapack_int const* ldb,
3311  lapack_int* info );
3312 
3313 #define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
3315  lapack_int const* n, lapack_int const* nrhs,
3316  double* A, lapack_int const* lda, lapack_int* ipiv,
3317  double* B, lapack_int const* ldb,
3318  lapack_int* info );
3319 
3320 #define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
3322  lapack_int const* n, lapack_int const* nrhs,
3323  float* A, lapack_int const* lda, lapack_int* ipiv,
3324  float* B, lapack_int const* ldb,
3325  lapack_int* info );
3326 
3327 #define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
3329  lapack_int const* n, lapack_int const* nrhs,
3330  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3331  lapack_complex_double* B, lapack_int const* ldb,
3332  lapack_int* info );
3333 
3334 #define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
3336  lapack_int const* n, lapack_int const* nrhs,
3337  double* A, lapack_int const* lda, lapack_int* ipiv,
3338  double const* B, lapack_int const* ldb,
3339  double* X, lapack_int const* ldx,
3340  double* work,
3341  float* swork, lapack_int* iter,
3342  lapack_int* info );
3343 
3344 #define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
3346  lapack_int const* n, lapack_int const* nrhs,
3347  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3348  lapack_complex_double const* B, lapack_int const* ldb,
3349  lapack_complex_double* X, lapack_int const* ldx,
3350  lapack_complex_double* work,
3351  lapack_complex_float* swork,
3352  double* rwork, lapack_int* iter,
3353  lapack_int* info );
3354 
3355 #define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD)
3357  char const* jobu, char const* jobvt,
3358  lapack_int const* m, lapack_int const* n,
3359  lapack_complex_float* A, lapack_int const* lda,
3360  float* S,
3361  lapack_complex_float* U, lapack_int const* ldu,
3362  lapack_complex_float* VT, lapack_int const* ldvt,
3363  lapack_complex_float* work, lapack_int const* lwork,
3364  float* rwork,
3365  lapack_int* info
3367  , size_t, size_t
3368 #endif
3369 );
3370 #ifdef LAPACK_FORTRAN_STRLEN_END
3371  #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1)
3372 #else
3373  #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__)
3374 #endif
3375 
3376 #define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD)
3378  char const* jobu, char const* jobvt,
3379  lapack_int const* m, lapack_int const* n,
3380  double* A, lapack_int const* lda,
3381  double* S,
3382  double* U, lapack_int const* ldu,
3383  double* VT, lapack_int const* ldvt,
3384  double* work, lapack_int const* lwork,
3385  lapack_int* info
3387  , size_t, size_t
3388 #endif
3389 );
3390 #ifdef LAPACK_FORTRAN_STRLEN_END
3391  #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1)
3392 #else
3393  #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__)
3394 #endif
3395 
3396 #define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD)
3398  char const* jobu, char const* jobvt,
3399  lapack_int const* m, lapack_int const* n,
3400  float* A, lapack_int const* lda,
3401  float* S,
3402  float* U, lapack_int const* ldu,
3403  float* VT, lapack_int const* ldvt,
3404  float* work, lapack_int const* lwork,
3405  lapack_int* info
3407  , size_t, size_t
3408 #endif
3409 );
3410 #ifdef LAPACK_FORTRAN_STRLEN_END
3411  #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1)
3412 #else
3413  #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__)
3414 #endif
3415 
3416 #define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD)
3418  char const* jobu, char const* jobvt,
3419  lapack_int const* m, lapack_int const* n,
3420  lapack_complex_double* A, lapack_int const* lda,
3421  double* S,
3422  lapack_complex_double* U, lapack_int const* ldu,
3423  lapack_complex_double* VT, lapack_int const* ldvt,
3424  lapack_complex_double* work, lapack_int const* lwork,
3425  double* rwork,
3426  lapack_int* info
3428  , size_t, size_t
3429 #endif
3430 );
3431 #ifdef LAPACK_FORTRAN_STRLEN_END
3432  #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1)
3433 #else
3434  #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__)
3435 #endif
3436 
3437 #define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ)
3439  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3440  lapack_int const* m, lapack_int const* n,
3441  lapack_complex_float* A, lapack_int const* lda,
3442  float* S,
3443  lapack_complex_float* U, lapack_int const* ldu,
3444  lapack_complex_float* V, lapack_int const* ldv, lapack_int* numrank,
3445  lapack_int* iwork, lapack_int const* liwork,
3446  lapack_complex_float* cwork, lapack_int* lcwork,
3447  float* rwork, lapack_int const* lrwork,
3448  lapack_int* info
3450  , size_t, size_t, size_t, size_t, size_t
3451 #endif
3452 );
3453 #ifdef LAPACK_FORTRAN_STRLEN_END
3454  #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3455 #else
3456  #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__)
3457 #endif
3458 
3459 #define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ)
3461  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3462  lapack_int const* m, lapack_int const* n,
3463  double* A, lapack_int const* lda,
3464  double* S,
3465  double* U, lapack_int const* ldu,
3466  double* V, lapack_int const* ldv, lapack_int* numrank,
3467  lapack_int* iwork, lapack_int const* liwork,
3468  double* work, lapack_int* lwork,
3469  double* rwork, lapack_int const* lrwork,
3470  lapack_int* info
3472  , size_t, size_t, size_t, size_t, size_t
3473 #endif
3474 );
3475 #ifdef LAPACK_FORTRAN_STRLEN_END
3476  #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3477 #else
3478  #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__)
3479 #endif
3480 
3481 #define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ)
3483  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3484  lapack_int const* m, lapack_int const* n,
3485  float* A, lapack_int const* lda,
3486  float* S,
3487  float* U, lapack_int const* ldu,
3488  float* V, lapack_int const* ldv, lapack_int* numrank,
3489  lapack_int* iwork, lapack_int const* liwork,
3490  float* work, lapack_int* lwork,
3491  float* rwork, lapack_int const* lrwork,
3492  lapack_int* info
3494  , size_t, size_t, size_t, size_t, size_t
3495 #endif
3496 );
3497 #ifdef LAPACK_FORTRAN_STRLEN_END
3498  #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3499 #else
3500  #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__)
3501 #endif
3502 
3503 #define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ)
3505  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3506  lapack_int const* m, lapack_int const* n,
3507  lapack_complex_double* A, lapack_int const* lda,
3508  double* S,
3509  lapack_complex_double* U, lapack_int const* ldu,
3510  lapack_complex_double* V, lapack_int const* ldv, lapack_int* numrank,
3511  lapack_int* iwork, lapack_int const* liwork,
3512  lapack_complex_double* cwork, lapack_int* lcwork,
3513  double* rwork, lapack_int const* lrwork,
3514  lapack_int* info
3516  , size_t, size_t, size_t, size_t, size_t
3517 #endif
3518 );
3519 #ifdef LAPACK_FORTRAN_STRLEN_END
3520  #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3521 #else
3522  #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__)
3523 #endif
3524 
3525 #define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX)
3527  char const* jobu, char const* jobvt, char const* range,
3528  lapack_int const* m, lapack_int const* n,
3529  lapack_complex_float* A, lapack_int const* lda,
3530  float const* vl,
3531  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3532  float* S,
3533  lapack_complex_float* U, lapack_int const* ldu,
3534  lapack_complex_float* VT, lapack_int const* ldvt,
3535  lapack_complex_float* work, lapack_int const* lwork,
3536  float* rwork,
3537  lapack_int* iwork,
3538  lapack_int* info
3540  , size_t, size_t, size_t
3541 #endif
3542 );
3543 #ifdef LAPACK_FORTRAN_STRLEN_END
3544  #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1)
3545 #else
3546  #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__)
3547 #endif
3548 
3549 
3550 #define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX)
3552  char const* jobu, char const* jobvt, char const* range,
3553  lapack_int const* m, lapack_int const* n,
3554  double* A, lapack_int const* lda,
3555  double const* vl,
3556  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3557  double* S,
3558  double* U, lapack_int const* ldu,
3559  double* VT, lapack_int const* ldvt,
3560  double* work, lapack_int const* lwork,
3561  lapack_int* iwork,
3562  lapack_int* info
3564  , size_t, size_t, size_t
3565 #endif
3566 );
3567 #ifdef LAPACK_FORTRAN_STRLEN_END
3568  #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1)
3569 #else
3570  #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__)
3571 #endif
3572 
3573 #define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX)
3575  char const* jobu, char const* jobvt, char const* range,
3576  lapack_int const* m, lapack_int const* n,
3577  float* A, lapack_int const* lda,
3578  float const* vl,
3579  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3580  float* S,
3581  float* U, lapack_int const* ldu,
3582  float* VT, lapack_int const* ldvt,
3583  float* work, lapack_int const* lwork,
3584  lapack_int* iwork,
3585  lapack_int* info
3587  , size_t, size_t, size_t
3588 #endif
3589 );
3590 #ifdef LAPACK_FORTRAN_STRLEN_END
3591  #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1)
3592 #else
3593  #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__)
3594 #endif
3595 
3596 #define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX)
3598  char const* jobu, char const* jobvt, char const* range,
3599  lapack_int const* m, lapack_int const* n,
3600  lapack_complex_double* A, lapack_int const* lda,
3601  double const* vl,
3602  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3603  double* S,
3604  lapack_complex_double* U, lapack_int const* ldu,
3605  lapack_complex_double* VT, lapack_int const* ldvt,
3606  lapack_complex_double* work, lapack_int const* lwork,
3607  double* rwork,
3608  lapack_int* iwork,
3609  lapack_int* info
3611  , size_t, size_t, size_t
3612 #endif
3613 );
3614 #ifdef LAPACK_FORTRAN_STRLEN_END
3615  #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1)
3616 #else
3617  #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__)
3618 #endif
3619 
3620 #define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ)
3622  char const* joba, char const* jobu, char const* jobv,
3623  lapack_int const* m, lapack_int const* n,
3624  lapack_complex_float* A, lapack_int const* lda,
3625  float* SVA, lapack_int const* mv,
3626  lapack_complex_float* V, lapack_int const* ldv,
3627  lapack_complex_float* cwork, lapack_int const* lwork,
3628  float* rwork, lapack_int const* lrwork,
3629  lapack_int* info
3631  , size_t, size_t, size_t
3632 #endif
3633 );
3634 #ifdef LAPACK_FORTRAN_STRLEN_END
3635  #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1)
3636 #else
3637  #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__)
3638 #endif
3639 
3640 #define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ)
3642  char const* joba, char const* jobu, char const* jobv,
3643  lapack_int const* m, lapack_int const* n,
3644  double* A, lapack_int const* lda,
3645  double* SVA, lapack_int const* mv,
3646  double* V, lapack_int const* ldv,
3647  double* work, lapack_int const* lwork,
3648  lapack_int* info
3650  , size_t, size_t, size_t
3651 #endif
3652 );
3653 #ifdef LAPACK_FORTRAN_STRLEN_END
3654  #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1)
3655 #else
3656  #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__)
3657 #endif
3658 
3659 #define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ)
3661  char const* joba, char const* jobu, char const* jobv,
3662  lapack_int const* m, lapack_int const* n,
3663  float* A, lapack_int const* lda,
3664  float* SVA, lapack_int const* mv,
3665  float* V, lapack_int const* ldv,
3666  float* work, lapack_int const* lwork,
3667  lapack_int* info
3669  , size_t, size_t, size_t
3670 #endif
3671 );
3672 #ifdef LAPACK_FORTRAN_STRLEN_END
3673  #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1)
3674 #else
3675  #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__)
3676 #endif
3677 
3678 #define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ)
3680  char const* joba, char const* jobu, char const* jobv,
3681  lapack_int const* m, lapack_int const* n,
3682  lapack_complex_double* A, lapack_int const* lda,
3683  double* SVA, lapack_int const* mv,
3684  lapack_complex_double* V, lapack_int const* ldv,
3685  lapack_complex_double* cwork, lapack_int const* lwork,
3686  double* rwork, lapack_int const* lrwork,
3687  lapack_int* info
3689  , size_t, size_t, size_t
3690 #endif
3691 );
3692 #ifdef LAPACK_FORTRAN_STRLEN_END
3693  #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1)
3694 #else
3695  #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__)
3696 #endif
3697 
3698 #define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX)
3700  char const* fact, char const* trans,
3701  lapack_int const* n, lapack_int const* nrhs,
3702  lapack_complex_float* A, lapack_int const* lda,
3703  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3704  float* R,
3705  float* C,
3707  lapack_int const* ldb,
3708  lapack_complex_float* X, lapack_int const* ldx,
3709  float* rcond,
3710  float* ferr,
3711  float* berr,
3712  lapack_complex_float* work,
3713  float* rwork,
3714  lapack_int* info
3716  , size_t, size_t, size_t
3717 #endif
3718 );
3719 #ifdef LAPACK_FORTRAN_STRLEN_END
3720  #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1)
3721 #else
3722  #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__)
3723 #endif
3724 
3725 #define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX)
3727  char const* fact, char const* trans,
3728  lapack_int const* n, lapack_int const* nrhs,
3729  double* A, lapack_int const* lda,
3730  double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3731  double* R,
3732  double* C,
3733  double* B,
3734  lapack_int const* ldb,
3735  double* X, lapack_int const* ldx,
3736  double* rcond,
3737  double* ferr,
3738  double* berr,
3739  double* work,
3740  lapack_int* iwork,
3741  lapack_int* info
3743  , size_t, size_t, size_t
3744 #endif
3745 );
3746 #ifdef LAPACK_FORTRAN_STRLEN_END
3747  #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1)
3748 #else
3749  #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__)
3750 #endif
3751 
3752 #define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX)
3754  char const* fact, char const* trans,
3755  lapack_int const* n, lapack_int const* nrhs,
3756  float* A, lapack_int const* lda,
3757  float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3758  float* R,
3759  float* C,
3760  float* B,
3761  lapack_int const* ldb,
3762  float* X, lapack_int const* ldx,
3763  float* rcond,
3764  float* ferr,
3765  float* berr,
3766  float* work,
3767  lapack_int* iwork,
3768  lapack_int* info
3770  , size_t, size_t, size_t
3771 #endif
3772 );
3773 #ifdef LAPACK_FORTRAN_STRLEN_END
3774  #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1)
3775 #else
3776  #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__)
3777 #endif
3778 
3779 #define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX)
3781  char const* fact, char const* trans,
3782  lapack_int const* n, lapack_int const* nrhs,
3783  lapack_complex_double* A, lapack_int const* lda,
3784  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3785  double* R,
3786  double* C,
3788  lapack_int const* ldb,
3789  lapack_complex_double* X, lapack_int const* ldx,
3790  double* rcond,
3791  double* ferr,
3792  double* berr,
3793  lapack_complex_double* work,
3794  double* rwork,
3795  lapack_int* info
3797  , size_t, size_t, size_t
3798 #endif
3799 );
3800 #ifdef LAPACK_FORTRAN_STRLEN_END
3801  #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1)
3802 #else
3803  #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__)
3804 #endif
3805 
3806 #define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX)
3808  char const* fact, char const* trans,
3809  lapack_int const* n, lapack_int const* nrhs,
3810  lapack_complex_float* A, lapack_int const* lda,
3811  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3812  float* R,
3813  float* C,
3815  lapack_int const* ldb,
3816  lapack_complex_float* X, lapack_int const* ldx,
3817  float* rcond,
3818  float* rpvgrw,
3819  float* berr, lapack_int const* n_err_bnds,
3820  float* err_bnds_norm,
3821  float* err_bnds_comp, lapack_int const* nparams,
3822  float* params,
3823  lapack_complex_float* work,
3824  float* rwork,
3825  lapack_int* info
3827  , size_t, size_t, size_t
3828 #endif
3829 );
3830 #ifdef LAPACK_FORTRAN_STRLEN_END
3831  #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1)
3832 #else
3833  #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__)
3834 #endif
3835 
3836 #define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX)
3838  char const* fact, char const* trans,
3839  lapack_int const* n, lapack_int const* nrhs,
3840  double* A, lapack_int const* lda,
3841  double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3842  double* R,
3843  double* C,
3844  double* B,
3845  lapack_int const* ldb,
3846  double* X, lapack_int const* ldx,
3847  double* rcond,
3848  double* rpvgrw,
3849  double* berr, lapack_int const* n_err_bnds,
3850  double* err_bnds_norm,
3851  double* err_bnds_comp, lapack_int const* nparams,
3852  double* params,
3853  double* work,
3854  lapack_int* iwork,
3855  lapack_int* info
3857  , size_t, size_t, size_t
3858 #endif
3859 );
3860 #ifdef LAPACK_FORTRAN_STRLEN_END
3861  #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1)
3862 #else
3863  #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__)
3864 #endif
3865 
3866 #define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX)
3868  char const* fact, char const* trans,
3869  lapack_int const* n, lapack_int const* nrhs,
3870  float* A, lapack_int const* lda,
3871  float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3872  float* R,
3873  float* C,
3874  float* B,
3875  lapack_int const* ldb,
3876  float* X, lapack_int const* ldx,
3877  float* rcond,
3878  float* rpvgrw,
3879  float* berr, lapack_int const* n_err_bnds,
3880  float* err_bnds_norm,
3881  float* err_bnds_comp, lapack_int const* nparams,
3882  float* params,
3883  float* work,
3884  lapack_int* iwork,
3885  lapack_int* info
3887  , size_t, size_t, size_t
3888 #endif
3889 );
3890 #ifdef LAPACK_FORTRAN_STRLEN_END
3891  #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1)
3892 #else
3893  #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__)
3894 #endif
3895 
3896 #define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX)
3898  char const* fact, char const* trans,
3899  lapack_int const* n, lapack_int const* nrhs,
3900  lapack_complex_double* A, lapack_int const* lda,
3901  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3902  double* R,
3903  double* C,
3905  lapack_int const* ldb,
3906  lapack_complex_double* X, lapack_int const* ldx,
3907  double* rcond,
3908  double* rpvgrw,
3909  double* berr, lapack_int const* n_err_bnds,
3910  double* err_bnds_norm,
3911  double* err_bnds_comp, lapack_int const* nparams,
3912  double* params,
3913  lapack_complex_double* work,
3914  double* rwork,
3915  lapack_int* info
3917  , size_t, size_t, size_t
3918 #endif
3919 );
3920 #ifdef LAPACK_FORTRAN_STRLEN_END
3921  #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1)
3922 #else
3923  #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__)
3924 #endif
3925 
3926 #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
3928  lapack_int const* m, lapack_int const* n,
3929  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3930  lapack_int* info );
3931 
3932 #define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
3934  lapack_int const* m, lapack_int const* n,
3935  double* A, lapack_int const* lda, lapack_int* ipiv,
3936  lapack_int* info );
3937 
3938 #define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
3940  lapack_int const* m, lapack_int const* n,
3941  float* A, lapack_int const* lda, lapack_int* ipiv,
3942  lapack_int* info );
3943 
3944 #define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
3946  lapack_int const* m, lapack_int const* n,
3947  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3948  lapack_int* info );
3949 
3950 #define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
3952  lapack_int const* m, lapack_int const* n,
3953  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3954  lapack_int* info );
3955 
3956 #define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
3958  lapack_int const* m, lapack_int const* n,
3959  double* A, lapack_int const* lda, lapack_int* ipiv,
3960  lapack_int* info );
3961 
3962 #define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
3964  lapack_int const* m, lapack_int const* n,
3965  float* A, lapack_int const* lda, lapack_int* ipiv,
3966  lapack_int* info );
3967 
3968 #define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
3970  lapack_int const* m, lapack_int const* n,
3971  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3972  lapack_int* info );
3973 
3974 #define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2)
3976  lapack_int const* m, lapack_int const* n,
3977  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3978  lapack_int* info );
3979 
3980 #define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2)
3982  lapack_int const* m, lapack_int const* n,
3983  double* A, lapack_int const* lda, lapack_int* ipiv,
3984  lapack_int* info );
3985 
3986 #define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2)
3988  lapack_int const* m, lapack_int const* n,
3989  float* A, lapack_int const* lda, lapack_int* ipiv,
3990  lapack_int* info );
3991 
3992 #define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2)
3994  lapack_int const* m, lapack_int const* n,
3995  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3996  lapack_int* info );
3997 
3998 #define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
4000  lapack_int const* n,
4001  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
4002  lapack_complex_float* work, lapack_int const* lwork,
4003  lapack_int* info );
4004 
4005 #define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
4007  lapack_int const* n,
4008  double* A, lapack_int const* lda, lapack_int const* ipiv,
4009  double* work, lapack_int const* lwork,
4010  lapack_int* info );
4011 
4012 #define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
4014  lapack_int const* n,
4015  float* A, lapack_int const* lda, lapack_int const* ipiv,
4016  float* work, lapack_int const* lwork,
4017  lapack_int* info );
4018 
4019 #define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
4021  lapack_int const* n,
4022  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
4023  lapack_complex_double* work, lapack_int const* lwork,
4024  lapack_int* info );
4025 
4026 #define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
4028  char const* trans,
4029  lapack_int const* n, lapack_int const* nrhs,
4030  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
4031  lapack_complex_float* B, lapack_int const* ldb,
4032  lapack_int* info
4034  , size_t
4035 #endif
4036 );
4037 #ifdef LAPACK_FORTRAN_STRLEN_END
4038  #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1)
4039 #else
4040  #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__)
4041 #endif
4042 
4043 #define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
4045  char const* trans,
4046  lapack_int const* n, lapack_int const* nrhs,
4047  double const* A, lapack_int const* lda, lapack_int const* ipiv,
4048  double* B, lapack_int const* ldb,
4049  lapack_int* info
4051  , size_t
4052 #endif
4053 );
4054 #ifdef LAPACK_FORTRAN_STRLEN_END
4055  #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1)
4056 #else
4057  #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__)
4058 #endif
4059 
4060 #define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
4062  char const* trans,
4063  lapack_int const* n, lapack_int const* nrhs,
4064  float const* A, lapack_int const* lda, lapack_int const* ipiv,
4065  float* B, lapack_int const* ldb,
4066  lapack_int* info
4068  , size_t
4069 #endif
4070 );
4071 #ifdef LAPACK_FORTRAN_STRLEN_END
4072  #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1)
4073 #else
4074  #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__)
4075 #endif
4076 
4077 #define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
4079  char const* trans,
4080  lapack_int const* n, lapack_int const* nrhs,
4081  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
4082  lapack_complex_double* B, lapack_int const* ldb,
4083  lapack_int* info
4085  , size_t
4086 #endif
4087 );
4088 #ifdef LAPACK_FORTRAN_STRLEN_END
4089  #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1)
4090 #else
4091  #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__)
4092 #endif
4093 
4094 #define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS)
4096  char const* trans,
4097  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4098  lapack_complex_float* A, lapack_int const* lda,
4099  lapack_complex_float* B, lapack_int const* ldb,
4100  lapack_complex_float* work, lapack_int const* lwork,
4101  lapack_int* info
4103  , size_t
4104 #endif
4105 );
4106 #ifdef LAPACK_FORTRAN_STRLEN_END
4107  #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1)
4108 #else
4109  #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__)
4110 #endif
4111 
4112 #define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS)
4114  char const* trans,
4115  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4116  double* A, lapack_int const* lda,
4117  double* B, lapack_int const* ldb,
4118  double* work, lapack_int const* lwork,
4119  lapack_int* info
4121  , size_t
4122 #endif
4123 );
4124 #ifdef LAPACK_FORTRAN_STRLEN_END
4125  #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1)
4126 #else
4127  #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__)
4128 #endif
4129 
4130 #define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS)
4132  char const* trans,
4133  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4134  float* A, lapack_int const* lda,
4135  float* B, lapack_int const* ldb,
4136  float* work, lapack_int const* lwork,
4137  lapack_int* info
4139  , size_t
4140 #endif
4141 );
4142 #ifdef LAPACK_FORTRAN_STRLEN_END
4143  #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1)
4144 #else
4145  #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__)
4146 #endif
4147 
4148 #define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS)
4150  char const* trans,
4151  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4152  lapack_complex_double* A, lapack_int const* lda,
4153  lapack_complex_double* B, lapack_int const* ldb,
4154  lapack_complex_double* work, lapack_int const* lwork,
4155  lapack_int* info
4157  , size_t
4158 #endif
4159 );
4160 #ifdef LAPACK_FORTRAN_STRLEN_END
4161  #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1)
4162 #else
4163  #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__)
4164 #endif
4165 
4166 #define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT)
4168  lapack_int const* m, lapack_int const* n,
4169  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,