LAPACK  3.10.1
LAPACK: Linear Algebra PACKage
lapack.h
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* );
104 typedef lapack_logical (*LAPACK_S_SELECT3)
105  ( const float*, const float*, const float* );
106 typedef lapack_logical (*LAPACK_D_SELECT2) ( const double*, const double* );
107 typedef lapack_logical (*LAPACK_D_SELECT3)
108  ( const double*, const double*, const double* );
109 
110 typedef lapack_logical (*LAPACK_C_SELECT1) ( const lapack_complex_float* );
111 typedef lapack_logical (*LAPACK_C_SELECT2)
112  ( const lapack_complex_float*, const lapack_complex_float* );
113 typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* );
114 typedef lapack_logical (*LAPACK_Z_SELECT2)
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
120 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
135 void LAPACK_cbbcsd_base(
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
154 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
165 void LAPACK_dbbcsd_base(
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
184 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
195 void LAPACK_sbbcsd_base(
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
214 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
225 void LAPACK_zbbcsd_base(
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
244 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
255 void LAPACK_dbdsdc_base(
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
266 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
277 void LAPACK_sbdsdc_base(
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
288 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
299 void LAPACK_cbdsqr_base(
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
309 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
320 void LAPACK_dbdsqr_base(
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
330 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
341 void LAPACK_sbdsqr_base(
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
351 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
362 void LAPACK_zbdsqr_base(
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
372 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
383 void LAPACK_dbdsvdx_base(
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
395 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
406 void LAPACK_sbdsvdx_base(
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
418 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
429 void LAPACK_ddisna_base(
430  char const* job,
431  lapack_int const* m, lapack_int const* n,
432  double const* D,
433  double* SEP,
434  lapack_int* info
435 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
446 void LAPACK_sdisna_base(
447  char const* job,
448  lapack_int const* m, lapack_int const* n,
449  float const* D,
450  float* SEP,
451  lapack_int* info
452 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
463 void LAPACK_cgbbrd_base(
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
475 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
486 void LAPACK_dgbbrd_base(
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
497 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
508 void LAPACK_sgbbrd_base(
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
519 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
530 void LAPACK_zgbbrd_base(
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
542 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
553 void LAPACK_cgbcon_base(
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
562 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
573 void LAPACK_dgbcon_base(
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
582 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
593 void LAPACK_sgbcon_base(
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
602 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
613 void LAPACK_zgbcon_base(
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
622 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
633 void LAPACK_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)
644 void LAPACK_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)
655 void LAPACK_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)
666 void LAPACK_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)
677 void LAPACK_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)
688 void LAPACK_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)
699 void LAPACK_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)
710 void LAPACK_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)
721 void LAPACK_cgbrfs_base(
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
733 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
744 void LAPACK_dgbrfs_base(
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
756 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
767 void LAPACK_sgbrfs_base(
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
779 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
790 void LAPACK_zgbrfs_base(
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
802 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
813 void LAPACK_cgbrfsx_base(
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
830 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
841 void LAPACK_dgbrfsx_base(
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
858 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
869 void LAPACK_sgbrfsx_base(
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
886 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
897 void LAPACK_zgbrfsx_base(
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
914 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
925 void LAPACK_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)
932 void LAPACK_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)
939 void LAPACK_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)
946 void LAPACK_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)
953 void LAPACK_cgbsvx_base(
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,
960  lapack_complex_float* B,
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
969 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
980 void LAPACK_dgbsvx_base(
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
996 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1007 void LAPACK_sgbsvx_base(
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
1023 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1034 void LAPACK_zgbsvx_base(
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,
1041  lapack_complex_double* B,
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
1050 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1061 void LAPACK_cgbsvxx_base(
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,
1068  lapack_complex_float* B,
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
1080 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1091 void LAPACK_dgbsvxx_base(
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
1110 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1121 void LAPACK_sgbsvxx_base(
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
1140 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1151 void LAPACK_zgbsvxx_base(
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,
1158  lapack_complex_double* B,
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
1170 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1181 void LAPACK_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)
1187 void LAPACK_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)
1193 void LAPACK_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)
1199 void LAPACK_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)
1205 void LAPACK_cgbtrs_base(
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
1211 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1222 void LAPACK_dgbtrs_base(
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
1228 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1239 void LAPACK_sgbtrs_base(
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
1245 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1256 void LAPACK_zgbtrs_base(
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
1262 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1273 void LAPACK_cgebak_base(
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
1279 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1290 void LAPACK_dgebak_base(
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
1296 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1307 void LAPACK_sgebak_base(
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
1313 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1324 void LAPACK_zgebak_base(
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
1330 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1341 void LAPACK_cgebal_base(
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
1347 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1358 void LAPACK_dgebal_base(
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
1364 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1375 void LAPACK_sgebal_base(
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
1381 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1392 void LAPACK_zgebal_base(
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
1398 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1409 void LAPACK_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)
1420 void LAPACK_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)
1431 void LAPACK_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)
1442 void LAPACK_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)
1453 void LAPACK_cgecon_base(
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
1462 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1473 void LAPACK_dgecon_base(
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
1482 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1493 void LAPACK_sgecon_base(
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
1502 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1513 void LAPACK_zgecon_base(
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
1522 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1533 void LAPACK_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)
1544 void LAPACK_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)
1555 void LAPACK_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)
1566 void LAPACK_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)
1577 void LAPACK_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)
1588 void LAPACK_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)
1599 void LAPACK_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)
1610 void LAPACK_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)
1621 void LAPACK_cgees_base(
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,
1625  lapack_complex_float* W,
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
1630 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1641 void LAPACK_dgees_base(
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
1650 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1661 void LAPACK_sgees_base(
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
1670 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1681 void LAPACK_zgees_base(
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,
1685  lapack_complex_double* W,
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
1690 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1701 void LAPACK_cgeesx_base(
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,
1705  lapack_complex_float* W,
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
1712 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1723 void LAPACK_dgeesx_base(
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
1735 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1746 void LAPACK_sgeesx_base(
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
1758 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1769 void LAPACK_zgeesx_base(
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,
1773  lapack_complex_double* W,
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
1780 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1791 void LAPACK_cgeev_base(
1792  char const* jobvl, char const* jobvr,
1793  lapack_int const* n,
1794  lapack_complex_float* A, lapack_int const* lda,
1795  lapack_complex_float* W,
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
1801 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1812 void LAPACK_dgeev_base(
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
1822 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1833 void LAPACK_sgeev_base(
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
1843 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1854 void LAPACK_zgeev_base(
1855  char const* jobvl, char const* jobvr,
1856  lapack_int const* n,
1857  lapack_complex_double* A, lapack_int const* lda,
1858  lapack_complex_double* W,
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
1864 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1875 void LAPACK_cgeevx_base(
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,
1879  lapack_complex_float* W,
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
1889 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1900 void LAPACK_dgeevx_base(
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
1915 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1926 void LAPACK_sgeevx_base(
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
1941 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1952 void LAPACK_zgeevx_base(
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,
1956  lapack_complex_double* W,
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
1966 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
1977 void LAPACK_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)
1985 void LAPACK_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)
1993 void LAPACK_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)
2001 void LAPACK_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)
2009 void LAPACK_cgejsv_base(
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
2020 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2031 void LAPACK_dgejsv_base(
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
2041 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2052 void LAPACK_sgejsv_base(
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
2062 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2073 void LAPACK_zgejsv_base(
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
2084 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2095 void LAPACK_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)
2103 void LAPACK_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)
2111 void LAPACK_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)
2119 void LAPACK_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)
2127 void LAPACK_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)
2135 void LAPACK_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)
2143 void LAPACK_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)
2151 void LAPACK_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)
2159 void LAPACK_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)
2167 void LAPACK_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)
2175 void LAPACK_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)
2183 void LAPACK_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)
2191 void LAPACK_cgels_base(
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
2198 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2209 void LAPACK_dgels_base(
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
2216 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2227 void LAPACK_sgels_base(
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
2234 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2245 void LAPACK_zgels_base(
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
2252 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2263 void LAPACK_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)
2275 void LAPACK_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)
2286 void LAPACK_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)
2297 void LAPACK_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)
2309 void LAPACK_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)
2320 void LAPACK_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)
2330 void LAPACK_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)
2340 void LAPACK_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)
2351 void LAPACK_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)
2361 void LAPACK_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)
2370 void LAPACK_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)
2379 void LAPACK_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)
2389 void LAPACK_cgemlq_base(
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
2397 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2408 void LAPACK_dgemlq_base(
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
2416 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2427 void LAPACK_sgemlq_base(
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
2435 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2446 void LAPACK_zgemlq_base(
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
2454 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2465 void LAPACK_cgemqr_base(
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
2473 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2484 void LAPACK_dgemqr_base(
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
2492 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2503 void LAPACK_sgemqr_base(
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
2511 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2522 void LAPACK_zgemqr_base(
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
2530 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2541 void LAPACK_cgemqrt_base(
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
2549 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2560 void LAPACK_dgemqrt_base(
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
2568 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2579 void LAPACK_sgemqrt_base(
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
2587 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2598 void LAPACK_zgemqrt_base(
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
2606 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2617 void LAPACK_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)
2625 void LAPACK_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)
2633 void LAPACK_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)
2641 void LAPACK_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)
2649 void LAPACK_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)
2657 void LAPACK_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)
2665 void LAPACK_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)
2673 void LAPACK_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)
2691 void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
2692  lapack_int* lda, lapack_int* jpvt,
2693  lapack_complex_float* tau, lapack_complex_float* work,
2694  float* rwork, lapack_int *info );
2695 
2696 #define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
2697 void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
2698  lapack_int* lda, lapack_int* jpvt,
2699  lapack_complex_double* tau, lapack_complex_double* work,
2700  double* rwork, lapack_int *info );
2701 
2702 #define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
2703 void LAPACK_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)
2712 void LAPACK_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)
2720 void LAPACK_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)
2728 void LAPACK_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)
2737 void LAPACK_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)
2745 void LAPACK_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)
2753 void LAPACK_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)
2761 void LAPACK_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)
2769 void LAPACK_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)
2777 void LAPACK_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)
2785 void LAPACK_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)
2793 void LAPACK_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)
2801 void LAPACK_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)
2809 void LAPACK_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)
2817 void LAPACK_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)
2825 void LAPACK_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)
2833 void LAPACK_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)
2841 void LAPACK_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)
2849 void LAPACK_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)
2857 void LAPACK_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)
2865 void LAPACK_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)
2873 void LAPACK_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)
2881 void LAPACK_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)
2889 void LAPACK_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)
2897 void LAPACK_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)
2904 void LAPACK_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)
2911 void LAPACK_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)
2918 void LAPACK_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)
2925 void LAPACK_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)
2932 void LAPACK_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)
2939 void LAPACK_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)
2946 void LAPACK_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)
2953 void LAPACK_cgerfs_base(
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
2965 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2976 void LAPACK_dgerfs_base(
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
2988 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
2999 void LAPACK_sgerfs_base(
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
3011 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3022 void LAPACK_zgerfs_base(
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
3034 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3045 void LAPACK_cgerfsx_base(
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
3062 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3073 void LAPACK_dgerfsx_base(
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
3090 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3101 void LAPACK_sgerfsx_base(
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
3118 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3129 void LAPACK_zgerfsx_base(
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
3146 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3157 void LAPACK_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)
3165 void LAPACK_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)
3173 void LAPACK_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)
3181 void LAPACK_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)
3189 void LAPACK_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)
3197 void LAPACK_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)
3205 void LAPACK_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)
3213 void LAPACK_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)
3221 void LAPACK_cgesdd_base(
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
3232 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3243 void LAPACK_dgesdd_base(
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
3253 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3264 void LAPACK_sgesdd_base(
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
3274 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3285 void LAPACK_zgesdd_base(
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
3296 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3307 void LAPACK_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)
3314 void LAPACK_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)
3321 void LAPACK_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)
3328 void LAPACK_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)
3335 void LAPACK_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)
3345 void LAPACK_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)
3356 void LAPACK_cgesvd_base(
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
3366 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3377 void LAPACK_dgesvd_base(
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
3386 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3397 void LAPACK_sgesvd_base(
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
3406 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3417 void LAPACK_zgesvd_base(
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
3427 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3438 void LAPACK_cgesvdq_base(
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
3449 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3460 void LAPACK_dgesvdq_base(
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
3471 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3482 void LAPACK_sgesvdq_base(
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
3493 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3504 void LAPACK_zgesvdq_base(
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
3515 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3526 void LAPACK_cgesvdx_base(
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
3539 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3551 void LAPACK_dgesvdx_base(
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
3563 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3574 void LAPACK_sgesvdx_base(
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
3586 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3597 void LAPACK_zgesvdx_base(
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
3610 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3621 void LAPACK_cgesvj_base(
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
3630 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3641 void LAPACK_dgesvj_base(
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
3649 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3660 void LAPACK_sgesvj_base(
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
3668 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3679 void LAPACK_zgesvj_base(
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
3688 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3699 void LAPACK_cgesvx_base(
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,
3706  lapack_complex_float* B,
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
3715 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3726 void LAPACK_dgesvx_base(
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
3742 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3753 void LAPACK_sgesvx_base(
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
3769 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3780 void LAPACK_zgesvx_base(
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,
3787  lapack_complex_double* B,
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
3796 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3807 void LAPACK_cgesvxx_base(
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,
3814  lapack_complex_float* B,
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
3826 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3837 void LAPACK_dgesvxx_base(
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
3856 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3867 void LAPACK_sgesvxx_base(
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
3886 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3897 void LAPACK_zgesvxx_base(
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,
3904  lapack_complex_double* B,
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
3916 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
3927 void LAPACK_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)
3933 void LAPACK_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)
3939 void LAPACK_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)
3945 void LAPACK_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)
3951 void LAPACK_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)
3957 void LAPACK_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)
3963 void LAPACK_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)
3969 void LAPACK_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)
3975 void LAPACK_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)
3981 void LAPACK_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)
3987 void LAPACK_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)
3993 void LAPACK_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)
3999 void LAPACK_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)
4006 void LAPACK_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)
4013 void LAPACK_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)
4020 void LAPACK_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)
4027 void LAPACK_cgetrs_base(
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
4033 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
4044 void LAPACK_dgetrs_base(
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
4050 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
4061 void LAPACK_sgetrs_base(
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
4067 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
4078 void LAPACK_zgetrs_base(
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
4084 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
4095 void LAPACK_cgetsls_base(
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
4102 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
4113 void LAPACK_dgetsls_base(
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
4120 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
4131 void LAPACK_sgetsls_base(
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
4138 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
4149 void LAPACK_zgetsls_base(
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
4156 #ifdef LAPACK_FORTRAN_STRLEN_END
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)
4167 void LAPACK_cgetsqrhrt(
4168  lapack_int const* m, lapack_int const* n,
4169  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4170  lapack_complex_float* A, lapack_int const* lda,
4171  lapack_complex_float* T, lapack_int const* ldt,
4172  lapack_complex_float* work, lapack_int const* lwork,
4173  lapack_int* info );
4174 
4175 #define LAPACK_dgetsqrhrt LAPACK_GLOBAL(dgetsqrhrt,DGETSQRHRT)
4176 void LAPACK_dgetsqrhrt(
4177  lapack_int const* m, lapack_int const* n,
4178  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4179  double* A, lapack_int const* lda,
4180  double* T, lapack_int const* ldt,
4181  double* work, lapack_int const* lwork,
4182  lapack_int* info );
4183 
4184 #define LAPACK_sgetsqrhrt LAPACK_GLOBAL(sgetsqrhrt,SGETSQRHRT)
4185 void LAPACK_sgetsqrhrt(
4186  lapack_int const* m, lapack_int const* n,
4187  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4188  float* A, lapack_int const* lda,
4189  float* T, lapack_int const* ldt,
4190  float* work, lapack_int const* lwork,
4191  lapack_int* info );
4192 
4193 #define LAPACK_zgetsqrhrt LAPACK_GLOBAL(zgetsqrhrt,ZGETSQRHRT)
4194 void LAPACK_zgetsqrhrt(
4195  lapack_int const* m, lapack_int const* n,
4196  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4197  lapack_complex_double* A, lapack_int const* lda,
4198  lapack_complex_double* T, lapack_int const* ldt,
4199  lapack_complex_double* work, lapack_int const* lwork,
4200  lapack_int* info );
4201 
4202 #define LAPACK_cggbak_base LAPACK_GLOBAL(cggbak,CGGBAK)
4203 void LAPACK_cggbak_base(
4204  char const* job, char const* side,
4205  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4206  float const* lscale,
4207  float const* rscale, lapack_int const* m,
4208  lapack_complex_float* V, lapack_int const* ldv,
4209  lapack_int* info
4210 #ifdef LAPACK_FORTRAN_STRLEN_END
4211  , size_t, size_t
4212 #endif
4213 );
4214 #ifdef LAPACK_FORTRAN_STRLEN_END
4215  #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1)
4216 #else
4217  #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__)
4218 #endif
4219 
4220 #define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK)
4221 void LAPACK_dggbak_base(
4222  char const* job, char const* side,
4223  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4224  double const* lscale,
4225  double const* rscale, lapack_int const* m,
4226  double* V, lapack_int const* ldv,
4227  lapack_int* info
4228 #ifdef LAPACK_FORTRAN_STRLEN_END
4229  , size_t, size_t
4230 #endif
4231 );
4232 #ifdef LAPACK_FORTRAN_STRLEN_END
4233  #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1)
4234 #else
4235  #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__)
4236 #endif
4237 
4238 #define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK)
4239 void LAPACK_sggbak_base(
4240  char const* job, char const* side,
4241  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4242  float const* lscale,
4243  float const* rscale, lapack_int const* m,
4244  float* V, lapack_int const* ldv,
4245  lapack_int* info
4246 #ifdef LAPACK_FORTRAN_STRLEN_END
4247  , size_t, size_t
4248 #endif
4249 );
4250 #ifdef LAPACK_FORTRAN_STRLEN_END
4251  #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1)
4252 #else
4253  #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__)
4254 #endif
4255 
4256 #define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK)
4257 void LAPACK_zggbak_base(
4258  char const* job, char const* side,
4259  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4260  double const* lscale,
4261  double const* rscale, lapack_int const* m,
4262  lapack_complex_double* V, lapack_int const* ldv,
4263  lapack_int* info
4264 #ifdef LAPACK_FORTRAN_STRLEN_END
4265  , size_t, size_t
4266 #endif
4267 );
4268 #ifdef LAPACK_FORTRAN_STRLEN_END
4269  #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1)
4270 #else
4271  #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__)
4272 #endif
4273 
4274 #define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL)
4275 void LAPACK_cggbal_base(
4276  char const* job,
4277  lapack_int const* n,
4278  lapack_complex_float* A, lapack_int const* lda,
4279  lapack_complex_float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4280  float* lscale,
4281  float* rscale,
4282  float* work,
4283  lapack_int* info
4284 #ifdef LAPACK_FORTRAN_STRLEN_END
4285  , size_t
4286 #endif
4287 );
4288 #ifdef LAPACK_FORTRAN_STRLEN_END
4289  #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1)
4290 #else
4291  #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__)
4292 #endif
4293 
4294 #define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL)
4295 void LAPACK_dggbal_base(
4296  char const* job,
4297  lapack_int const* n,
4298  double* A, lapack_int const* lda,
4299  double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4300  double* lscale,
4301  double* rscale,
4302  double* work,
4303  lapack_int* info
4304 #ifdef LAPACK_FORTRAN_STRLEN_END
4305  , size_t
4306 #endif
4307 );
4308 #ifdef LAPACK_FORTRAN_STRLEN_END
4309  #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1)
4310 #else
4311  #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__)
4312 #endif
4313 
4314 #define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL)
4315 void LAPACK_sggbal_base(
4316  char const* job,
4317  lapack_int const* n,
4318  float* A, lapack_int const* lda,
4319  float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4320  float* lscale,
4321  float* rscale,
4322  float* work,
4323  lapack_int* info
4324 #ifdef LAPACK_FORTRAN_STRLEN_END
4325  , size_t
4326 #endif
4327 );
4328 #ifdef LAPACK_FORTRAN_STRLEN_END
4329  #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1)
4330 #else
4331  #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__)
4332 #endif
4333 
4334 #define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL)
4335 void LAPACK_zggbal_base(
4336  char const* job,
4337  lapack_int const* n,
4338  lapack_complex_double* A, lapack_int const* lda,
4339  lapack_complex_double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4340  double* lscale,
4341  double* rscale,
4342  double* work,
4343  lapack_int* info
4344 #ifdef LAPACK_FORTRAN_STRLEN_END
4345  , size_t
4346 #endif
4347 );
4348 #ifdef LAPACK_FORTRAN_STRLEN_END
4349  #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1)
4350 #else
4351  #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__)
4352 #endif
4353 
4354 #define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES)
4355 void LAPACK_cgges_base(
4356  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg,
4357  lapack_int const* n,
4358  lapack_complex_float* A, lapack_int const* lda,
4359  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4360  lapack_complex_float* alpha,
4361  lapack_complex_float* beta,
4362  lapack_complex_float* VSL, lapack_int const* ldvsl,
4363  lapack_complex_float* VSR, lapack_int const* ldvsr,
4364  lapack_complex_float* work, lapack_int const* lwork,
4365  float* rwork, lapack_logical* BWORK,
4366  lapack_int* info
4367 #ifdef LAPACK_FORTRAN_STRLEN_END
4368  , size_t, size_t, size_t
4369 #endif
4370 );
4371 #ifdef LAPACK_FORTRAN_STRLEN_END
4372  #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1)
4373 #else
4374  #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__)
4375 #endif
4376 
4377 #define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES)
4378 void LAPACK_dgges_base(
4379  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg,
4380  lapack_int const* n,
4381  double* A, lapack_int const* lda,
4382  double* B, lapack_int const* ldb, lapack_int* sdim,
4383  double* alphar,
4384  double* alphai,
4385  double* beta,
4386  double* VSL, lapack_int const* ldvsl,
4387  double* VSR, lapack_int const* ldvsr,
4388  double* work, lapack_int const* lwork, lapack_logical* BWORK,
4389  lapack_int* info
4390 #ifdef LAPACK_FORTRAN_STRLEN_END
4391  , size_t, size_t, size_t
4392 #endif
4393 );
4394 #ifdef LAPACK_FORTRAN_STRLEN_END
4395  #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1)
4396 #else
4397  #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__)
4398 #endif
4399 
4400 #define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES)
4401 void LAPACK_sgges_base(
4402  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg,
4403  lapack_int const* n,
4404  float* A, lapack_int const* lda,
4405  float* B, lapack_int const* ldb, lapack_int* sdim,
4406  float* alphar,
4407  float* alphai,
4408  float* beta,
4409  float* VSL, lapack_int const* ldvsl,
4410  float* VSR, lapack_int const* ldvsr,
4411  float* work, lapack_int const* lwork, lapack_logical* BWORK,
4412  lapack_int* info
4413 #ifdef LAPACK_FORTRAN_STRLEN_END
4414  , size_t, size_t, size_t
4415 #endif
4416 );
4417 #ifdef LAPACK_FORTRAN_STRLEN_END
4418  #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1)
4419 #else
4420  #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__)
4421 #endif
4422 
4423 #define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES)
4424 void LAPACK_zgges_base(
4425  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg,
4426  lapack_int const* n,
4427  lapack_complex_double* A, lapack_int const* lda,
4428  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4429  lapack_complex_double* alpha,
4430  lapack_complex_double* beta,
4431  lapack_complex_double* VSL, lapack_int const* ldvsl,
4432  lapack_complex_double* VSR, lapack_int const* ldvsr,
4433  lapack_complex_double* work, lapack_int const* lwork,
4434  double* rwork, lapack_logical* BWORK,
4435  lapack_int* info
4436 #ifdef LAPACK_FORTRAN_STRLEN_END
4437  , size_t, size_t, size_t
4438 #endif
4439 );
4440 #ifdef LAPACK_FORTRAN_STRLEN_END
4441  #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1)
4442 #else
4443  #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__)
4444 #endif
4445 
4446 #define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3)
4447 void LAPACK_cgges3_base(
4448  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg,
4449  lapack_int const* n,
4450  lapack_complex_float* A, lapack_int const* lda,
4451  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4452  lapack_complex_float* alpha,
4453  lapack_complex_float* beta,
4454  lapack_complex_float* VSL, lapack_int const* ldvsl,
4455  lapack_complex_float* VSR, lapack_int const* ldvsr,
4456  lapack_complex_float* work, lapack_int const* lwork,
4457  float* rwork, lapack_logical* BWORK,
4458  lapack_int* info
4459 #ifdef LAPACK_FORTRAN_STRLEN_END
4460  , size_t, size_t, size_t
4461 #endif
4462 );
4463 #ifdef LAPACK_FORTRAN_STRLEN_END
4464  #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1)
4465 #else
4466  #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__)
4467 #endif
4468 
4469 #define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3)
4470 void LAPACK_dgges3_base(
4471  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg,
4472  lapack_int const* n,
4473  double* A, lapack_int const* lda,
4474  double* B, lapack_int const* ldb, lapack_int* sdim,
4475  double* alphar,
4476  double* alphai,
4477  double* beta,
4478  double* VSL, lapack_int const* ldvsl,
4479  double* VSR, lapack_int const* ldvsr,
4480  double* work, lapack_int const* lwork, lapack_logical* BWORK,
4481  lapack_int* info
4482 #ifdef LAPACK_FORTRAN_STRLEN_END
4483  , size_t, size_t, size_t
4484 #endif
4485 );
4486 #ifdef LAPACK_FORTRAN_STRLEN_END
4487  #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1)
4488 #else
4489  #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__)
4490 #endif
4491 
4492 #define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3)
4493 void LAPACK_sgges3_base(
4494  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg,
4495  lapack_int const* n,
4496  float* A, lapack_int const* lda,
4497  float* B, lapack_int const* ldb, lapack_int* sdim,
4498  float* alphar,
4499  float* alphai,
4500  float* beta,
4501  float* VSL, lapack_int const* ldvsl,
4502  float* VSR, lapack_int const* ldvsr,
4503  float* work, lapack_int const* lwork, lapack_logical* BWORK,
4504  lapack_int* info
4505 #ifdef LAPACK_FORTRAN_STRLEN_END
4506  , size_t, size_t, size_t
4507 #endif
4508 );
4509 #ifdef LAPACK_FORTRAN_STRLEN_END
4510  #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1)
4511 #else
4512  #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__)
4513 #endif
4514 
4515 #define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3)
4516 void LAPACK_zgges3_base(
4517  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg,
4518  lapack_int const* n,
4519  lapack_complex_double* A, lapack_int const* lda,
4520  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4521  lapack_complex_double* alpha,
4522  lapack_complex_double* beta,
4523  lapack_complex_double* VSL, lapack_int const* ldvsl,
4524  lapack_complex_double* VSR, lapack_int const* ldvsr,
4525  lapack_complex_double* work, lapack_int const* lwork,
4526  double* rwork, lapack_logical* BWORK,
4527  lapack_int* info
4528 #ifdef LAPACK_FORTRAN_STRLEN_END
4529  , size_t, size_t, size_t
4530 #endif
4531 );
4532 #ifdef LAPACK_FORTRAN_STRLEN_END
4533  #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1)
4534 #else
4535  #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__)
4536 #endif
4537 
4538 #define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX)
4539 void LAPACK_cggesx_base(
4540  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, char const* sense,
4541  lapack_int const* n,
4542  lapack_complex_float* A, lapack_int const* lda,
4543  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4544  lapack_complex_float* alpha,
4545  lapack_complex_float* beta,
4546  lapack_complex_float* VSL, lapack_int const* ldvsl,
4547  lapack_complex_float* VSR, lapack_int const* ldvsr,
4548  float* rconde,
4549  float* rcondv,
4550  lapack_complex_float* work, lapack_int const* lwork,
4551  float* rwork,
4552  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4553  lapack_int* info
4554 #ifdef LAPACK_FORTRAN_STRLEN_END
4555  , size_t, size_t, size_t, size_t
4556 #endif
4557 );
4558 #ifdef LAPACK_FORTRAN_STRLEN_END
4559  #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4560 #else
4561  #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__)
4562 #endif
4563 
4564 #define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX)
4565 void LAPACK_dggesx_base(
4566  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, char const* sense,
4567  lapack_int const* n,
4568  double* A, lapack_int const* lda,
4569  double* B, lapack_int const* ldb, lapack_int* sdim,
4570  double* alphar,
4571  double* alphai,
4572  double* beta,
4573  double* VSL, lapack_int const* ldvsl,
4574  double* VSR, lapack_int const* ldvsr,
4575  double* rconde,
4576  double* rcondv,
4577  double* work, lapack_int const* lwork,
4578  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4579  lapack_int* info
4580 #ifdef LAPACK_FORTRAN_STRLEN_END
4581  , size_t, size_t, size_t, size_t
4582 #endif
4583 );
4584 #ifdef LAPACK_FORTRAN_STRLEN_END
4585  #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4586 #else
4587  #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__)
4588 #endif
4589 
4590 #define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX)
4591 void LAPACK_sggesx_base(
4592  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, char const* sense,
4593  lapack_int const* n,
4594  float* A, lapack_int const* lda,
4595  float* B, lapack_int const* ldb, lapack_int* sdim,
4596  float* alphar,
4597  float* alphai,
4598  float* beta,
4599  float* VSL, lapack_int const* ldvsl,
4600  float* VSR, lapack_int const* ldvsr,
4601  float* rconde,
4602  float* rcondv,
4603  float* work, lapack_int const* lwork,
4604  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4605  lapack_int* info
4606 #ifdef LAPACK_FORTRAN_STRLEN_END
4607  , size_t, size_t, size_t, size_t
4608 #endif
4609 );
4610 #ifdef LAPACK_FORTRAN_STRLEN_END
4611  #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4612 #else
4613  #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__)
4614 #endif
4615 
4616 #define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX)
4617 void LAPACK_zggesx_base(
4618  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, char const* sense,
4619  lapack_int const* n,
4620  lapack_complex_double* A, lapack_int const* lda,
4621  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4622  lapack_complex_double* alpha,
4623  lapack_complex_double* beta,
4624  lapack_complex_double* VSL, lapack_int const* ldvsl,
4625  lapack_complex_double* VSR, lapack_int const* ldvsr,
4626  double* rconde,
4627  double* rcondv,
4628  lapack_complex_double* work, lapack_int const* lwork,
4629  double* rwork,
4630  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4631  lapack_int* info
4632 #ifdef LAPACK_FORTRAN_STRLEN_END
4633  , size_t, size_t, size_t, size_t
4634 #endif
4635 );
4636 #ifdef LAPACK_FORTRAN_STRLEN_END
4637  #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4638 #else
4639  #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__)
4640 #endif
4641 
4642 #define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV)
4643 void LAPACK_cggev_base(
4644  char const* jobvl, char const* jobvr,
4645  lapack_int const* n,
4646  lapack_complex_float* A, lapack_int const* lda,
4647  lapack_complex_float* B, lapack_int const* ldb,
4648  lapack_complex_float* alpha,
4649  lapack_complex_float* beta,
4650  lapack_complex_float* VL, lapack_int const* ldvl,
4651  lapack_complex_float* VR, lapack_int const* ldvr,
4652  lapack_complex_float* work, lapack_int const* lwork,
4653  float* rwork,
4654  lapack_int* info
4655 #ifdef LAPACK_FORTRAN_STRLEN_END
4656  , size_t, size_t
4657 #endif
4658 );
4659 #ifdef LAPACK_FORTRAN_STRLEN_END
4660  #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1)
4661 #else
4662  #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__)
4663 #endif
4664 
4665 #define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV)
4666 void LAPACK_dggev_base(
4667  char const* jobvl, char const* jobvr,
4668  lapack_int const* n,
4669  double* A, lapack_int const* lda,
4670  double* B, lapack_int const* ldb,
4671  double* alphar,
4672  double* alphai,
4673  double* beta,
4674  double* VL, lapack_int const* ldvl,
4675  double* VR, lapack_int const* ldvr,
4676  double* work, lapack_int const* lwork,
4677  lapack_int* info
4678 #ifdef LAPACK_FORTRAN_STRLEN_END
4679  , size_t, size_t
4680 #endif
4681 );
4682 #ifdef LAPACK_FORTRAN_STRLEN_END
4683  #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1)
4684 #else
4685  #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__)
4686 #endif
4687 
4688 #define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV)
4689 void LAPACK_sggev_base(
4690  char const* jobvl, char const* jobvr,
4691  lapack_int const* n,
4692  float* A, lapack_int const* lda,
4693  float* B, lapack_int const* ldb,
4694  float* alphar,
4695  float* alphai,
4696  float* beta,
4697  float* VL, lapack_int const* ldvl,
4698  float* VR, lapack_int const* ldvr,
4699  float* work, lapack_int const* lwork,
4700  lapack_int* info
4701 #ifdef LAPACK_FORTRAN_STRLEN_END
4702  , size_t, size_t
4703 #endif
4704 );
4705 #ifdef LAPACK_FORTRAN_STRLEN_END
4706  #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1)
4707 #else
4708  #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__)
4709 #endif
4710 
4711 #define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV)
4712 void LAPACK_zggev_base(
4713  char const* jobvl, char const* jobvr,
4714  lapack_int const* n,
4715  lapack_complex_double* A, lapack_int const* lda,
4716  lapack_complex_double* B, lapack_int const* ldb,
4717  lapack_complex_double* alpha,
4718  lapack_complex_double* beta,
4719  lapack_complex_double* VL, lapack_int const* ldvl,
4720  lapack_complex_double* VR, lapack_int const* ldvr,
4721  lapack_complex_double* work, lapack_int const* lwork,
4722  double* rwork,
4723  lapack_int* info
4724 #ifdef LAPACK_FORTRAN_STRLEN_END
4725  , size_t, size_t
4726 #endif
4727 );
4728 #ifdef LAPACK_FORTRAN_STRLEN_END
4729  #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1)
4730 #else
4731  #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__)
4732 #endif
4733 
4734 #define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3)
4735 void LAPACK_cggev3_base(
4736  char const* jobvl, char const* jobvr,
4737  lapack_int const* n,
4738  lapack_complex_float* A, lapack_int const* lda,
4739  lapack_complex_float* B, lapack_int const* ldb,
4740  lapack_complex_float* alpha,
4741  lapack_complex_float* beta,
4742  lapack_complex_float* VL, lapack_int const* ldvl,
4743  lapack_complex_float* VR, lapack_int const* ldvr,
4744  lapack_complex_float* work, lapack_int const* lwork,
4745  float* rwork,
4746  lapack_int* info
4747 #ifdef LAPACK_FORTRAN_STRLEN_END
4748  , size_t, size_t
4749 #endif
4750 );
4751 #ifdef LAPACK_FORTRAN_STRLEN_END
4752  #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1)
4753 #else
4754  #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__)
4755 #endif
4756 
4757 #define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3)
4758 void LAPACK_dggev3_base(
4759  char const* jobvl, char const* jobvr,
4760  lapack_int const* n,
4761  double* A, lapack_int const* lda,
4762  double* B, lapack_int const* ldb,
4763  double* alphar,
4764  double* alphai,
4765  double* beta,
4766  double* VL, lapack_int const* ldvl,
4767  double* VR, lapack_int const* ldvr,
4768  double* work, lapack_int const* lwork,
4769  lapack_int* info
4770 #ifdef LAPACK_FORTRAN_STRLEN_END
4771  , size_t, size_t
4772 #endif
4773 );
4774 #ifdef LAPACK_FORTRAN_STRLEN_END
4775  #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1)
4776 #else
4777  #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__)
4778 #endif
4779 
4780 #define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3)
4781 void LAPACK_sggev3_base(
4782  char const* jobvl, char const* jobvr,
4783  lapack_int const* n,
4784  float* A, lapack_int const* lda,
4785  float* B, lapack_int const* ldb,
4786  float* alphar,
4787  float* alphai,
4788  float* beta,
4789  float* VL, lapack_int const* ldvl,
4790  float* VR, lapack_int const* ldvr,
4791  float* work, lapack_int const* lwork,
4792  lapack_int* info
4793 #ifdef LAPACK_FORTRAN_STRLEN_END
4794  , size_t, size_t
4795 #endif
4796 );
4797 #ifdef LAPACK_FORTRAN_STRLEN_END
4798  #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1)
4799 #else
4800  #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__)
4801 #endif
4802 
4803 #define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3)
4804 void LAPACK_zggev3_base(
4805  char const* jobvl, char const* jobvr,
4806  lapack_int const* n,
4807  lapack_complex_double* A, lapack_int const* lda,
4808  lapack_complex_double* B, lapack_int const* ldb,
4809  lapack_complex_double* alpha,
4810  lapack_complex_double* beta,
4811  lapack_complex_double* VL, lapack_int const* ldvl,
4812  lapack_complex_double* VR, lapack_int const* ldvr,
4813  lapack_complex_double* work, lapack_int const* lwork,
4814  double* rwork,
4815  lapack_int* info
4816 #ifdef LAPACK_FORTRAN_STRLEN_END
4817  , size_t, size_t
4818 #endif
4819 );
4820 #ifdef LAPACK_FORTRAN_STRLEN_END
4821  #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1)
4822 #else
4823  #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__)
4824 #endif
4825 
4826 #define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX)
4827 void LAPACK_cggevx_base(
4828  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
4829  lapack_int const* n,
4830  lapack_complex_float* A, lapack_int const* lda,
4831  lapack_complex_float* B, lapack_int const* ldb,
4832  lapack_complex_float* alpha,
4833  lapack_complex_float* beta,
4834  lapack_complex_float* VL, lapack_int const* ldvl,
4835  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4836  float* lscale,
4837  float* rscale,
4838  float* abnrm,
4839  float* bbnrm,
4840  float* rconde,
4841  float* rcondv,
4842  lapack_complex_float* work, lapack_int const* lwork,
4843  float* rwork,
4844  lapack_int* iwork, lapack_logical* BWORK,
4845  lapack_int* info
4846 #ifdef LAPACK_FORTRAN_STRLEN_END
4847  , size_t, size_t, size_t, size_t
4848 #endif
4849 );
4850 #ifdef LAPACK_FORTRAN_STRLEN_END
4851  #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4852 #else
4853  #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__)
4854 #endif
4855 
4856 #define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX)
4857 void LAPACK_dggevx_base(
4858  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
4859  lapack_int const* n,
4860  double* A, lapack_int const* lda,
4861  double* B, lapack_int const* ldb,
4862  double* alphar,
4863  double* alphai,
4864  double* beta,
4865  double* VL, lapack_int const* ldvl,
4866  double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4867  double* lscale,
4868  double* rscale,
4869  double* abnrm,
4870  double* bbnrm,
4871  double* rconde,
4872  double* rcondv,
4873  double* work, lapack_int const* lwork,
4874  lapack_int* iwork, lapack_logical* BWORK,
4875  lapack_int* info
4876 #ifdef LAPACK_FORTRAN_STRLEN_END
4877  , size_t, size_t, size_t, size_t
4878 #endif
4879 );
4880 #ifdef LAPACK_FORTRAN_STRLEN_END
4881  #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4882 #else
4883  #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__)
4884 #endif
4885 
4886 #define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX)
4887 void LAPACK_sggevx_base(
4888  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
4889  lapack_int const* n,
4890  float* A, lapack_int const* lda,
4891  float* B, lapack_int const* ldb,
4892  float* alphar,
4893  float* alphai,
4894  float* beta,
4895  float* VL, lapack_int const* ldvl,
4896  float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4897  float* lscale,
4898  float* rscale,
4899  float* abnrm,
4900  float* bbnrm,
4901  float* rconde,
4902  float* rcondv,
4903  float* work, lapack_int const* lwork,
4904  lapack_int* iwork, lapack_logical* BWORK,
4905  lapack_int* info
4906 #ifdef LAPACK_FORTRAN_STRLEN_END
4907  , size_t, size_t, size_t, size_t
4908 #endif
4909 );
4910 #ifdef LAPACK_FORTRAN_STRLEN_END
4911  #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4912 #else
4913  #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__)
4914 #endif
4915 
4916 #define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX)
4917 void LAPACK_zggevx_base(
4918  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
4919  lapack_int const* n,
4920  lapack_complex_double* A, lapack_int const* lda,
4921  lapack_complex_double* B, lapack_int const* ldb,
4922  lapack_complex_double* alpha,
4923  lapack_complex_double* beta,
4924  lapack_complex_double* VL, lapack_int const* ldvl,
4925  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4926  double* lscale,
4927  double* rscale,
4928  double* abnrm,
4929  double* bbnrm,
4930  double* rconde,
4931  double* rcondv,
4932  lapack_complex_double* work, lapack_int const* lwork,
4933  double* rwork,
4934  lapack_int* iwork, lapack_logical* BWORK,
4935  lapack_int* info
4936 #ifdef LAPACK_FORTRAN_STRLEN_END
4937  , size_t, size_t, size_t, size_t
4938 #endif
4939 );
4940 #ifdef LAPACK_FORTRAN_STRLEN_END
4941  #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4942 #else
4943  #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__)
4944 #endif
4945 
4946 #define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM)
4947 void LAPACK_cggglm(
4948  lapack_int const* n, lapack_int const* m, lapack_int const* p,
4949  lapack_complex_float* A, lapack_int const* lda,
4950  lapack_complex_float* B, lapack_int const* ldb,
4951  lapack_complex_float* D,
4952  lapack_complex_float* X,
4953  lapack_complex_float* Y,
4954  lapack_complex_float* work, lapack_int const* lwork,
4955  lapack_int* info );
4956 
4957 #define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM)
4958 void LAPACK_dggglm(
4959  lapack_int const* n, lapack_int const* m, lapack_int const* p,
4960  double* A, lapack_int const* lda,
4961  double* B, lapack_int const* ldb,
4962  double* D,
4963  double* X,
4964  double* Y,
4965  double* work, lapack_int const* lwork,
4966  lapack_int* info );
4967 
4968 #define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM)
4969 void LAPACK_sggglm(
4970  lapack_int const* n, lapack_int const* m, lapack_int const* p,
4971  float* A, lapack_int const* lda,
4972  float* B, lapack_int const* ldb,
4973  float* D,
4974  float* X,
4975  float* Y,
4976  float* work, lapack_int const* lwork,
4977  lapack_int* info );
4978 
4979 #define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM)
4980 void LAPACK_zggglm(
4981  lapack_int const* n, lapack_int const* m, lapack_int const* p,
4982  lapack_complex_double* A, lapack_int const* lda,
4983  lapack_complex_double* B, lapack_int const* ldb,
4984  lapack_complex_double* D,
4985  lapack_complex_double* X,
4986  lapack_complex_double* Y,
4987  lapack_complex_double* work, lapack_int const* lwork,
4988  lapack_int* info );
4989 
4990 #define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3)
4991 void LAPACK_cgghd3_base(
4992  char const* compq, char const* compz,
4993  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4994  lapack_complex_float* A, lapack_int const* lda,
4995  lapack_complex_float* B, lapack_int const* ldb,
4996  lapack_complex_float* Q, lapack_int const* ldq,
4997  lapack_complex_float* Z, lapack_int const* ldz,
4998  lapack_complex_float* work, lapack_int const* lwork,
4999  lapack_int* info
5000 #ifdef LAPACK_FORTRAN_STRLEN_END
5001  , size_t, size_t
5002 #endif
5003 );
5004 #ifdef LAPACK_FORTRAN_STRLEN_END
5005  #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1)
5006 #else
5007  #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__)
5008 #endif
5009 
5010 #define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3)
5011 void LAPACK_dgghd3_base(
5012  char const* compq, char const* compz,
5013  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5014  double* A, lapack_int const* lda,
5015  double* B, lapack_int const* ldb,
5016  double* Q, lapack_int const* ldq,
5017  double* Z, lapack_int const* ldz,
5018  double* work, lapack_int const* lwork,
5019  lapack_int* info
5020 #ifdef LAPACK_FORTRAN_STRLEN_END
5021  , size_t, size_t
5022 #endif
5023 );
5024 #ifdef LAPACK_FORTRAN_STRLEN_END
5025  #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1)
5026 #else
5027  #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__)
5028 #endif
5029 
5030 #define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3)
5031 void LAPACK_sgghd3_base(
5032  char const* compq, char const* compz,
5033  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5034  float* A, lapack_int const* lda,
5035  float* B, lapack_int const* ldb,
5036  float* Q, lapack_int const* ldq,
5037  float* Z, lapack_int const* ldz,
5038  float* work, lapack_int const* lwork,
5039  lapack_int* info
5040 #ifdef LAPACK_FORTRAN_STRLEN_END
5041  , size_t, size_t
5042 #endif
5043 );
5044 #ifdef LAPACK_FORTRAN_STRLEN_END
5045  #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1)
5046 #else
5047  #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__)
5048 #endif
5049 
5050 #define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3)
5051 void LAPACK_zgghd3_base(
5052  char const* compq, char const* compz,
5053  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5054  lapack_complex_double* A, lapack_int const* lda,
5055  lapack_complex_double* B, lapack_int const* ldb,
5056  lapack_complex_double* Q, lapack_int const* ldq,
5057  lapack_complex_double* Z, lapack_int const* ldz,
5058  lapack_complex_double* work, lapack_int const* lwork,
5059  lapack_int* info
5060 #ifdef LAPACK_FORTRAN_STRLEN_END
5061  , size_t, size_t
5062 #endif
5063 );
5064 #ifdef LAPACK_FORTRAN_STRLEN_END
5065  #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1)
5066 #else
5067  #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__)
5068 #endif
5069 
5070 #define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD)
5071 void LAPACK_cgghrd_base(
5072  char const* compq, char const* compz,
5073  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5074  lapack_complex_float* A, lapack_int const* lda,
5075  lapack_complex_float* B, lapack_int const* ldb,
5076  lapack_complex_float* Q, lapack_int const* ldq,
5077  lapack_complex_float* Z, lapack_int const* ldz,
5078  lapack_int* info
5079 #ifdef LAPACK_FORTRAN_STRLEN_END
5080  , size_t, size_t
5081 #endif
5082 );
5083 #ifdef LAPACK_FORTRAN_STRLEN_END
5084  #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1)
5085 #else
5086  #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__)
5087 #endif
5088 
5089 #define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD)
5090 void LAPACK_dgghrd_base(
5091  char const* compq, char const* compz,
5092  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5093  double* A, lapack_int const* lda,
5094  double* B, lapack_int const* ldb,
5095  double* Q, lapack_int const* ldq,
5096  double* Z, lapack_int const* ldz,
5097  lapack_int* info
5098 #ifdef LAPACK_FORTRAN_STRLEN_END
5099  , size_t, size_t
5100 #endif
5101 );
5102 #ifdef LAPACK_FORTRAN_STRLEN_END
5103  #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1)
5104 #else
5105  #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__)
5106 #endif
5107 
5108 #define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD)
5109 void LAPACK_sgghrd_base(
5110  char const* compq, char const* compz,
5111  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5112  float* A, lapack_int const* lda,
5113  float* B, lapack_int const* ldb,
5114  float* Q, lapack_int const* ldq,
5115  float* Z, lapack_int const* ldz,
5116  lapack_int* info
5117 #ifdef LAPACK_FORTRAN_STRLEN_END
5118  , size_t, size_t
5119 #endif
5120 );
5121 #ifdef LAPACK_FORTRAN_STRLEN_END
5122  #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1)
5123 #else
5124  #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__)
5125 #endif
5126 
5127 #define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD)
5128 void LAPACK_zgghrd_base(
5129  char const* compq, char const* compz,
5130  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5131  lapack_complex_double* A, lapack_int const* lda,
5132  lapack_complex_double* B, lapack_int const* ldb,
5133  lapack_complex_double* Q, lapack_int const* ldq,
5134  lapack_complex_double* Z, lapack_int const* ldz,
5135  lapack_int* info
5136 #ifdef LAPACK_FORTRAN_STRLEN_END
5137  , size_t, size_t
5138 #endif
5139 );
5140 #ifdef LAPACK_FORTRAN_STRLEN_END
5141  #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1)
5142 #else
5143  #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__)
5144 #endif
5145 
5146 #define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE)
5147 void LAPACK_cgglse(
5148  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5149  lapack_complex_float* A, lapack_int const* lda,
5150  lapack_complex_float* B, lapack_int const* ldb,
5151  lapack_complex_float* C,
5152  lapack_complex_float* D,
5153  lapack_complex_float* X,
5154  lapack_complex_float* work, lapack_int const* lwork,
5155  lapack_int* info );
5156 
5157 #define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE)
5158 void LAPACK_dgglse(
5159  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5160  double* A, lapack_int const* lda,
5161  double* B, lapack_int const* ldb,
5162  double* C,
5163  double* D,
5164  double* X,
5165  double* work, lapack_int const* lwork,
5166  lapack_int* info );
5167 
5168 #define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE)
5169 void LAPACK_sgglse(
5170  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5171  float* A, lapack_int const* lda,
5172  float* B, lapack_int const* ldb,
5173  float* C,
5174  float* D,
5175  float* X,
5176  float* work, lapack_int const* lwork,
5177  lapack_int* info );
5178 
5179 #define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE)
5180 void LAPACK_zgglse(
5181  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5182  lapack_complex_double* A, lapack_int const* lda,
5183  lapack_complex_double* B, lapack_int const* ldb,
5184  lapack_complex_double* C,
5185  lapack_complex_double* D,
5186  lapack_complex_double* X,
5187  lapack_complex_double* work, lapack_int const* lwork,
5188  lapack_int* info );
5189 
5190 #define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF)
5191 void LAPACK_cggqrf(
5192  lapack_int const* n, lapack_int const* m, lapack_int const* p,
5193  lapack_complex_float* A, lapack_int const* lda,
5194  lapack_complex_float* taua,
5195  lapack_complex_float* B, lapack_int const* ldb,
5196  lapack_complex_float* taub,
5197  lapack_complex_float* work, lapack_int const* lwork,
5198  lapack_int* info );
5199 
5200 #define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF)
5201 void LAPACK_dggqrf(
5202  lapack_int const* n, lapack_int const* m, lapack_int const* p,
5203  double* A, lapack_int const* lda,
5204  double* taua,
5205  double* B, lapack_int const* ldb,
5206  double* taub,
5207  double* work, lapack_int const* lwork,
5208  lapack_int* info );
5209 
5210 #define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF)
5211 void LAPACK_sggqrf(
5212  lapack_int const* n, lapack_int const* m, lapack_int const* p,
5213  float* A, lapack_int const* lda,
5214  float* taua,
5215  float* B, lapack_int const* ldb,
5216  float* taub,
5217  float* work, lapack_int const* lwork,
5218  lapack_int* info );
5219 
5220 #define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF)
5221 void LAPACK_zggqrf(
5222  lapack_int const* n, lapack_int const* m, lapack_int const* p,
5223  lapack_complex_double* A, lapack_int const* lda,
5224  lapack_complex_double* taua,
5225  lapack_complex_double* B, lapack_int const* ldb,
5226  lapack_complex_double* taub,
5227  lapack_complex_double* work, lapack_int const* lwork,
5228  lapack_int* info );
5229 
5230 #define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF)
5231 void LAPACK_cggrqf(
5232  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5233  lapack_complex_float* A, lapack_int const* lda,
5234  lapack_complex_float* taua,
5235  lapack_complex_float* B, lapack_int const* ldb,
5236  lapack_complex_float* taub,
5237  lapack_complex_float* work, lapack_int const* lwork,
5238  lapack_int* info );
5239 
5240 #define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF)
5241 void LAPACK_dggrqf(
5242  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5243  double* A, lapack_int const* lda,
5244  double* taua,
5245  double* B, lapack_int const* ldb,
5246  double* taub,
5247  double* work, lapack_int const* lwork,
5248  lapack_int* info );
5249 
5250 #define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF)
5251 void LAPACK_sggrqf(
5252  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5253  float* A, lapack_int const* lda,
5254  float* taua,
5255  float* B, lapack_int const* ldb,
5256  float* taub,
5257  float* work, lapack_int const* lwork,
5258  lapack_int* info );
5259 
5260 #define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF)
5261 void LAPACK_zggrqf(
5262  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5263  lapack_complex_double* A, lapack_int const* lda,
5264  lapack_complex_double* taua,
5265  lapack_complex_double* B, lapack_int const* ldb,
5266  lapack_complex_double* taub,
5267  lapack_complex_double* work, lapack_int const* lwork,
5268  lapack_int* info );
5269 
5270 #define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD)
5271 lapack_int LAPACK_cggsvd_base(
5272  char const* jobu, char const* jobv, char const* jobq,
5273  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5274  lapack_int* k, lapack_int* l,
5275  lapack_complex_float* a, lapack_int const* lda,
5276  lapack_complex_float* b, lapack_int const* ldb,
5277  float* alpha, float* beta,
5278  lapack_complex_float* u, lapack_int const* ldu,
5279  lapack_complex_float* v, lapack_int const* ldv,
5280  lapack_complex_float* q, lapack_int const* ldq,
5281  lapack_complex_float* work, float* rwork,
5282  lapack_int* iwork, lapack_int* info
5283 #ifdef LAPACK_FORTRAN_STRLEN_END
5284  , size_t, size_t, size_t
5285 #endif
5286 );
5287 #ifdef LAPACK_FORTRAN_STRLEN_END
5288  #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1)
5289 #else
5290  #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__)
5291 #endif
5292 
5293 #define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD)
5294 lapack_int LAPACK_sggsvd_base(
5295  char const* jobu, char const* jobv, char const* jobq,
5296  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5297  lapack_int* k, lapack_int* l,
5298  float* a, lapack_int const* lda,
5299  float* b, lapack_int const* ldb,
5300  float* alpha, float* beta,
5301  float* u, lapack_int const* ldu,
5302  float* v, lapack_int const* ldv,
5303  float* q, lapack_int const* ldq,
5304  float* work, lapack_int* iwork, lapack_int* info
5305 #ifdef LAPACK_FORTRAN_STRLEN_END
5306  , size_t, size_t, size_t
5307 #endif
5308 );
5309 #ifdef LAPACK_FORTRAN_STRLEN_END
5310  #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1)
5311 #else
5312  #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__)
5313 #endif
5314 
5315 #define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD)
5316 lapack_int LAPACK_dggsvd_base(
5317  char const* jobu, char const* jobv, char const* jobq,
5318  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5319  lapack_int* k, lapack_int* l,
5320  double* a, lapack_int const* lda,
5321  double* b, lapack_int const* ldb,
5322  double* alpha, double* beta,
5323  double* u, lapack_int const* ldu,
5324  double* v, lapack_int const* ldv,
5325  double* q, lapack_int const* ldq,
5326  double* work, lapack_int* iwork, lapack_int* info
5327 #ifdef LAPACK_FORTRAN_STRLEN_END
5328  , size_t, size_t, size_t
5329 #endif
5330 );
5331 #ifdef LAPACK_FORTRAN_STRLEN_END
5332  #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1)
5333 #else
5334  #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__)
5335 #endif
5336 
5337 #define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD)
5338 lapack_int LAPACK_zggsvd_base(
5339  char const* jobu, char const* jobv, char const* jobq,
5340  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5341  lapack_int* k, lapack_int* l,
5342  lapack_complex_double* a, lapack_int const* lda,
5343  lapack_complex_double* b, lapack_int const* ldb,
5344  double* alpha, double* beta,
5345  lapack_complex_double* u, lapack_int const* ldu,
5346  lapack_complex_double* v, lapack_int const* ldv,
5347  lapack_complex_double* q, lapack_int const* ldq,
5348  lapack_complex_double* work, double* rwork,
5349  lapack_int* iwork, lapack_int* info
5350 #ifdef LAPACK_FORTRAN_STRLEN_END
5351  , size_t, size_t, size_t
5352 #endif
5353 );
5354 #ifdef LAPACK_FORTRAN_STRLEN_END
5355  #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1)
5356 #else
5357  #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__)
5358 #endif
5359 
5360 #define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3)
5361 void LAPACK_cggsvd3_base(
5362  char const* jobu, char const* jobv, char const* jobq,
5363  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5364  lapack_complex_float* A, lapack_int const* lda,
5365  lapack_complex_float* B, lapack_int const* ldb,
5366  float* alpha,
5367  float* beta,
5368  lapack_complex_float* U, lapack_int const* ldu,
5369  lapack_complex_float* V, lapack_int const* ldv,
5370  lapack_complex_float* Q, lapack_int const* ldq,
5371  lapack_complex_float* work, lapack_int const* lwork,
5372  float* rwork,
5373  lapack_int* iwork,
5374  lapack_int* info
5375 #ifdef LAPACK_FORTRAN_STRLEN_END
5376  , size_t, size_t, size_t
5377 #endif
5378 );
5379 #ifdef LAPACK_FORTRAN_STRLEN_END
5380  #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1)
5381 #else
5382  #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__)
5383 #endif
5384 
5385 #define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3)
5386 void LAPACK_dggsvd3_base(
5387  char const* jobu, char const* jobv, char const* jobq,
5388  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5389  double* A, lapack_int const* lda,
5390  double* B, lapack_int const* ldb,
5391  double* alpha,
5392  double* beta,
5393  double* U, lapack_int const* ldu,
5394  double* V, lapack_int const* ldv,
5395  double* Q, lapack_int const* ldq,
5396  double* work, lapack_int const* lwork,
5397  lapack_int* iwork,
5398  lapack_int* info
5399 #ifdef LAPACK_FORTRAN_STRLEN_END
5400  , size_t, size_t, size_t
5401 #endif
5402 );
5403 #ifdef LAPACK_FORTRAN_STRLEN_END
5404  #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1)
5405 #else
5406  #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__)
5407 #endif
5408 
5409 #define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3)
5410 void LAPACK_sggsvd3_base(
5411  char const* jobu, char const* jobv, char const* jobq,
5412  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5413  float* A, lapack_int const* lda,
5414  float* B, lapack_int const* ldb,
5415  float* alpha,
5416  float* beta,
5417  float* U, lapack_int const* ldu,
5418  float* V, lapack_int const* ldv,
5419  float* Q, lapack_int const* ldq,
5420  float* work, lapack_int const* lwork,
5421  lapack_int* iwork,
5422  lapack_int* info
5423 #ifdef LAPACK_FORTRAN_STRLEN_END
5424  , size_t, size_t, size_t
5425 #endif
5426 );
5427 #ifdef LAPACK_FORTRAN_STRLEN_END
5428  #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1)
5429 #else
5430  #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__)
5431 #endif
5432 
5433 #define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3)
5434 void LAPACK_zggsvd3_base(
5435  char const* jobu, char const* jobv, char const* jobq,
5436  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5437  lapack_complex_double* A, lapack_int const* lda,
5438  lapack_complex_double* B, lapack_int const* ldb,
5439  double* alpha,
5440  double* beta,
5441  lapack_complex_double* U, lapack_int const* ldu,
5442  lapack_complex_double* V, lapack_int const* ldv,
5443  lapack_complex_double* Q, lapack_int const* ldq,
5444  lapack_complex_double* work, lapack_int const* lwork,
5445  double* rwork,
5446  lapack_int* iwork,
5447  lapack_int* info
5448 #ifdef LAPACK_FORTRAN_STRLEN_END
5449  , size_t, size_t, size_t
5450 #endif
5451 );
5452 #ifdef LAPACK_FORTRAN_STRLEN_END
5453  #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1)
5454 #else
5455  #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__)
5456 #endif
5457 
5458 #define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP)
5459 lapack_int LAPACK_sggsvp_base(
5460  char const* jobu, char const* jobv, char const* jobq,
5461  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5462  float* a, lapack_int const* lda,
5463  float* b, lapack_int const* ldb,
5464  float* tola, float* tolb,
5465  lapack_int* k, lapack_int* l,
5466  float* u, lapack_int const* ldu,
5467  float* v, lapack_int const* ldv,
5468  float* q, lapack_int const* ldq,
5469  lapack_int* iwork, float* tau,
5470  float* work, lapack_int* info
5471 #ifdef LAPACK_FORTRAN_STRLEN_END
5472  , size_t, size_t, size_t
5473 #endif
5474 );
5475 #ifdef LAPACK_FORTRAN_STRLEN_END
5476  #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1)
5477 #else
5478  #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__)
5479 #endif
5480 
5481 #define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP)
5482 lapack_int LAPACK_dggsvp_base(
5483  char const* jobu, char const* jobv, char const* jobq,
5484  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5485  double* a, lapack_int const* lda,
5486  double* b, lapack_int const* ldb,
5487  double* tola, double* tolb,
5488  lapack_int* k, lapack_int* l,
5489  double* u, lapack_int const* ldu,
5490  double* v, lapack_int const* ldv,
5491  double* q, lapack_int const* ldq,
5492  lapack_int* iwork, double* tau,
5493  double* work, lapack_int* info
5494 #ifdef LAPACK_FORTRAN_STRLEN_END
5495  , size_t, size_t, size_t
5496 #endif
5497 );
5498 #ifdef LAPACK_FORTRAN_STRLEN_END
5499  #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1)
5500 #else
5501  #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__)
5502 #endif
5503 
5504 #define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP)
5505 lapack_int LAPACK_cggsvp_base(
5506  char const* jobu, char const* jobv, char const* jobq,
5507  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5508  lapack_complex_float* a, lapack_int const* lda,
5509  lapack_complex_float* b, lapack_int const* ldb,
5510  float* tola, float* tolb, lapack_int* k, lapack_int* l,
5511  lapack_complex_float* u, lapack_int const* ldu,
5512  lapack_complex_float* v, lapack_int const* ldv,
5513  lapack_complex_float* q, lapack_int const* ldq,
5514  lapack_int* iwork, float* rwork, lapack_complex_float* tau,
5515  lapack_complex_float* work, lapack_int* info
5516 #ifdef LAPACK_FORTRAN_STRLEN_END
5517  , size_t, size_t, size_t
5518 #endif
5519 );
5520 #ifdef LAPACK_FORTRAN_STRLEN_END
5521  #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1)
5522 #else
5523  #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__)
5524 #endif
5525 
5526 #define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP)
5527 lapack_int LAPACK_zggsvp_base(
5528  char const* jobu, char const* jobv, char const* jobq,
5529  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5530  lapack_complex_double* a, lapack_int const* lda,
5531  lapack_complex_double* b, lapack_int const* ldb,
5532  double* tola, double* tolb, lapack_int* k, lapack_int* l,
5533  lapack_complex_double* u, lapack_int const* ldu,
5534  lapack_complex_double* v, lapack_int const* ldv,
5535  lapack_complex_double* q, lapack_int const* ldq,
5536  lapack_int* iwork, double* rwork, lapack_complex_double* tau,
5537  lapack_complex_double* work, lapack_int* info
5538 #ifdef LAPACK_FORTRAN_STRLEN_END
5539  , size_t, size_t, size_t
5540 #endif
5541 );
5542 #ifdef LAPACK_FORTRAN_STRLEN_END
5543  #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1)
5544 #else
5545  #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__)
5546 #endif
5547 
5548 #define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3)
5549 void LAPACK_cggsvp3_base(
5550  char const* jobu, char const* jobv, char const* jobq,
5551  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5552  lapack_complex_float* A, lapack_int const* lda,
5553  lapack_complex_float* B, lapack_int const* ldb,
5554  float const* tola,
5555  float const* tolb, lapack_int* k, lapack_int* l,
5556  lapack_complex_float* U, lapack_int const* ldu,
5557  lapack_complex_float* V, lapack_int const* ldv,
5558  lapack_complex_float* Q, lapack_int const* ldq,
5559  lapack_int* iwork,
5560  float* rwork,
5561  lapack_complex_float* tau,
5562  lapack_complex_float* work, lapack_int const* lwork,
5563  lapack_int* info
5564 #ifdef LAPACK_FORTRAN_STRLEN_END
5565  , size_t, size_t, size_t
5566 #endif
5567 );
5568 #ifdef LAPACK_FORTRAN_STRLEN_END
5569  #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1)
5570 #else
5571  #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__)
5572 #endif
5573 
5574 #define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3)
5575 void LAPACK_dggsvp3_base(
5576  char const* jobu, char const* jobv, char const* jobq,
5577  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5578  double* A, lapack_int const* lda,
5579  double* B, lapack_int const* ldb,
5580  double const* tola,
5581  double const* tolb, lapack_int* k, lapack_int* l,
5582  double* U, lapack_int const* ldu,
5583  double* V, lapack_int const* ldv,
5584  double* Q, lapack_int const* ldq,
5585  lapack_int* iwork,
5586  double* tau,
5587  double* work, lapack_int const* lwork,
5588  lapack_int* info
5589 #ifdef LAPACK_FORTRAN_STRLEN_END
5590  , size_t, size_t, size_t
5591 #endif
5592 );
5593 #ifdef LAPACK_FORTRAN_STRLEN_END
5594  #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1)
5595 #else
5596  #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__)
5597 #endif
5598 
5599 #define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3)
5600 void LAPACK_sggsvp3_base(
5601  char const* jobu, char const* jobv, char const* jobq,
5602  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5603  float* A, lapack_int const* lda,
5604  float* B, lapack_int const* ldb,
5605  float const* tola,
5606  float const* tolb, lapack_int* k, lapack_int* l,
5607  float* U, lapack_int const* ldu,
5608  float* V, lapack_int const* ldv,
5609  float* Q, lapack_int const* ldq,
5610  lapack_int* iwork,
5611  float* tau,
5612  float* work, lapack_int const* lwork,
5613  lapack_int* info
5614 #ifdef LAPACK_FORTRAN_STRLEN_END
5615  , size_t, size_t, size_t
5616 #endif
5617 );
5618 #ifdef LAPACK_FORTRAN_STRLEN_END
5619  #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1)
5620 #else
5621  #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__)
5622 #endif
5623 
5624 #define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3)
5625 void LAPACK_zggsvp3_base(
5626  char const* jobu, char const* jobv, char const* jobq,
5627  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5628  lapack_complex_double* A, lapack_int const* lda,
5629  lapack_complex_double* B, lapack_int const* ldb,
5630  double const* tola,
5631  double const* tolb, lapack_int* k, lapack_int* l,
5632  lapack_complex_double* U, lapack_int const* ldu,
5633  lapack_complex_double* V, lapack_int const* ldv,
5634  lapack_complex_double* Q, lapack_int const* ldq,
5635  lapack_int* iwork,
5636  double* rwork,
5637  lapack_complex_double* tau,
5638  lapack_complex_double* work, lapack_int const* lwork,
5639  lapack_int* info
5640 #ifdef LAPACK_FORTRAN_STRLEN_END
5641  , size_t, size_t, size_t
5642 #endif
5643 );
5644 #ifdef LAPACK_FORTRAN_STRLEN_END
5645  #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1)
5646 #else
5647  #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__)
5648 #endif
5649 
5650 #define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON)
5651 void LAPACK_cgtcon_base(
5652  char const* norm,
5653  lapack_int const* n,
5654  lapack_complex_float const* DL,
5655  lapack_complex_float const* D,
5656  lapack_complex_float const* DU,
5657  lapack_complex_float const* DU2, lapack_int const* ipiv,
5658  float const* anorm,
5659  float* rcond,
5660  lapack_complex_float* work,
5661  lapack_int* info
5662 #ifdef LAPACK_FORTRAN_STRLEN_END
5663  , size_t
5664 #endif
5665 );
5666 #ifdef LAPACK_FORTRAN_STRLEN_END
5667  #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1)
5668 #else
5669  #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__)
5670 #endif
5671 
5672 #define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON)
5673 void LAPACK_dgtcon_base(
5674  char const* norm,
5675  lapack_int const* n,
5676  double const* DL,
5677  double const* D,
5678  double const* DU,
5679  double const* DU2, lapack_int const* ipiv,
5680  double const* anorm,
5681  double* rcond,
5682  double* work,
5683  lapack_int* iwork,
5684  lapack_int* info
5685 #ifdef LAPACK_FORTRAN_STRLEN_END
5686  , size_t
5687 #endif
5688 );
5689 #ifdef LAPACK_FORTRAN_STRLEN_END
5690  #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1)
5691 #else
5692  #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__)
5693 #endif
5694 
5695 #define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON)
5696 void LAPACK_sgtcon_base(
5697  char const* norm,
5698  lapack_int const* n,
5699  float const* DL,
5700  float const* D,
5701  float const* DU,
5702  float const* DU2, lapack_int const* ipiv,
5703  float const* anorm,
5704  float* rcond,
5705  float* work,
5706  lapack_int* iwork,
5707  lapack_int* info
5708 #ifdef LAPACK_FORTRAN_STRLEN_END
5709  , size_t
5710 #endif
5711 );
5712 #ifdef LAPACK_FORTRAN_STRLEN_END
5713  #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1)
5714 #else
5715  #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__)
5716 #endif
5717 
5718 #define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON)
5719 void LAPACK_zgtcon_base(
5720  char const* norm,
5721  lapack_int const* n,
5722  lapack_complex_double const* DL,
5723  lapack_complex_double const* D,
5724  lapack_complex_double const* DU,
5725  lapack_complex_double const* DU2, lapack_int const* ipiv,
5726  double const* anorm,
5727  double* rcond,
5728  lapack_complex_double* work,
5729  lapack_int* info
5730 #ifdef LAPACK_FORTRAN_STRLEN_END
5731  , size_t
5732 #endif
5733 );
5734 #ifdef LAPACK_FORTRAN_STRLEN_END
5735  #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1)
5736 #else
5737  #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__)
5738 #endif
5739 
5740 #define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS)
5741 void LAPACK_cgtrfs_base(
5742  char const* trans,
5743  lapack_int const* n, lapack_int const* nrhs,
5744  lapack_complex_float const* DL,
5745  lapack_complex_float const* D,
5746  lapack_complex_float const* DU,
5747  lapack_complex_float const* DLF,
5748  lapack_complex_float const* DF,
5749  lapack_complex_float const* DUF,
5750  lapack_complex_float const* DU2, lapack_int const* ipiv,
5751  lapack_complex_float const* B, lapack_int const* ldb,
5752  lapack_complex_float* X, lapack_int const* ldx,
5753  float* ferr,
5754  float* berr,
5755  lapack_complex_float* work,
5756  float* rwork,
5757  lapack_int* info
5758 #ifdef LAPACK_FORTRAN_STRLEN_END
5759  , size_t
5760 #endif
5761 );
5762 #ifdef LAPACK_FORTRAN_STRLEN_END
5763  #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1)
5764 #else
5765  #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__)
5766 #endif
5767 
5768 #define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS)
5769 void LAPACK_dgtrfs_base(
5770  char const* trans,
5771  lapack_int const* n, lapack_int const* nrhs,
5772  double const* DL,
5773  double const* D,
5774  double const* DU,
5775  double const* DLF,
5776  double const* DF,
5777  double const* DUF,
5778  double const* DU2, lapack_int const* ipiv,
5779  double const* B, lapack_int const* ldb,
5780  double* X, lapack_int const* ldx,
5781  double* ferr,
5782  double* berr,
5783  double* work,
5784  lapack_int* iwork,
5785  lapack_int* info
5786 #ifdef LAPACK_FORTRAN_STRLEN_END
5787  , size_t
5788 #endif
5789 );
5790 #ifdef LAPACK_FORTRAN_STRLEN_END
5791  #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1)
5792 #else
5793  #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__)
5794 #endif
5795 
5796 #define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS)
5797 void LAPACK_sgtrfs_base(
5798  char const* trans,
5799  lapack_int const* n, lapack_int const* nrhs,
5800  float const* DL,
5801  float const* D,
5802  float const* DU,
5803  float const* DLF,
5804  float const* DF,
5805  float const* DUF,
5806  float const* DU2, lapack_int const* ipiv,
5807  float const* B, lapack_int const* ldb,
5808  float* X, lapack_int const* ldx,
5809  float* ferr,
5810  float* berr,
5811  float* work,
5812  lapack_int* iwork,
5813  lapack_int* info
5814 #ifdef LAPACK_FORTRAN_STRLEN_END
5815  , size_t
5816 #endif
5817 );
5818 #ifdef LAPACK_FORTRAN_STRLEN_END
5819  #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1)
5820 #else
5821  #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__)
5822 #endif
5823 
5824 #define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS)
5825 void LAPACK_zgtrfs_base(
5826  char const* trans,
5827  lapack_int const* n, lapack_int const* nrhs,
5828  lapack_complex_double const* DL,
5829  lapack_complex_double const* D,
5830  lapack_complex_double const* DU,
5831  lapack_complex_double const* DLF,
5832  lapack_complex_double const* DF,
5833  lapack_complex_double const* DUF,
5834  lapack_complex_double const* DU2, lapack_int const* ipiv,
5835  lapack_complex_double const* B, lapack_int const* ldb,
5836  lapack_complex_double* X, lapack_int const* ldx,
5837  double* ferr,
5838  double* berr,
5839  lapack_complex_double* work,
5840  double* rwork,
5841  lapack_int* info
5842 #ifdef LAPACK_FORTRAN_STRLEN_END
5843  , size_t
5844 #endif
5845 );
5846 #ifdef LAPACK_FORTRAN_STRLEN_END
5847  #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1)
5848 #else
5849  #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__)
5850 #endif
5851 
5852 #define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV)
5853 void LAPACK_cgtsv(
5854  lapack_int const* n, lapack_int const* nrhs,
5855  lapack_complex_float* DL,
5856  lapack_complex_float* D,
5857  lapack_complex_float* DU,
5858  lapack_complex_float* B, lapack_int const* ldb,
5859  lapack_int* info );
5860 
5861 #define LAPACK_dgtsv LAPACK_GLOBAL(dgtsv,DGTSV)
5862 void LAPACK_dgtsv(
5863  lapack_int const* n, lapack_int const* nrhs,
5864  double* DL,
5865  double* D,
5866  double* DU,
5867  double* B, lapack_int const* ldb,
5868  lapack_int* info );
5869 
5870 #define LAPACK_sgtsv LAPACK_GLOBAL(sgtsv,SGTSV)
5871 void LAPACK_sgtsv(
5872  lapack_int const* n, lapack_int const* nrhs,
5873  float* DL,
5874  float* D,
5875  float* DU,
5876  float* B, lapack_int const* ldb,
5877  lapack_int* info );
5878 
5879 #define LAPACK_zgtsv LAPACK_GLOBAL(zgtsv,ZGTSV)
5880 void LAPACK_zgtsv(
5881  lapack_int const* n, lapack_int const* nrhs,
5882  lapack_complex_double* DL,
5883  lapack_complex_double* D,
5884  lapack_complex_double* DU,
5885  lapack_complex_double* B, lapack_int const* ldb,
5886  lapack_int* info );
5887 
5888 #define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX)
5889 void LAPACK_cgtsvx_base(
5890  char const* fact, char const* trans,
5891  lapack_int const* n, lapack_int const* nrhs,
5892  lapack_complex_float const* DL,
5893  lapack_complex_float const* D,
5894  lapack_complex_float const* DU,
5895  lapack_complex_float* DLF,
5896  lapack_complex_float* DF,
5897  lapack_complex_float* DUF,
5898  lapack_complex_float* DU2, lapack_int* ipiv,
5899  lapack_complex_float const* B, lapack_int const* ldb,
5900  lapack_complex_float* X, lapack_int const* ldx,
5901  float* rcond,
5902  float* ferr,
5903  float* berr,
5904  lapack_complex_float* work,
5905  float* rwork,
5906  lapack_int* info
5907 #ifdef LAPACK_FORTRAN_STRLEN_END
5908  , size_t, size_t
5909 #endif
5910 );
5911 #ifdef LAPACK_FORTRAN_STRLEN_END
5912  #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1)
5913 #else
5914  #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__)
5915 #endif
5916 
5917 #define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX)
5918 void LAPACK_dgtsvx_base(
5919  char const* fact, char const* trans,
5920  lapack_int const* n, lapack_int const* nrhs,
5921  double const* DL,
5922  double const* D,
5923  double const* DU,
5924  double* DLF,
5925  double* DF,
5926  double* DUF,
5927  double* DU2, lapack_int* ipiv,
5928  double const* B, lapack_int const* ldb,
5929  double* X, lapack_int const* ldx,
5930  double* rcond,
5931  double* ferr,
5932  double* berr,
5933  double* work,
5934  lapack_int* iwork,
5935  lapack_int* info
5936 #ifdef LAPACK_FORTRAN_STRLEN_END
5937  , size_t, size_t
5938 #endif
5939 );
5940 #ifdef LAPACK_FORTRAN_STRLEN_END
5941  #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1)
5942 #else
5943  #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__)
5944 #endif
5945 
5946 #define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX)
5947 void LAPACK_sgtsvx_base(
5948  char const* fact, char const* trans,
5949  lapack_int const* n, lapack_int const* nrhs,
5950  float const* DL,
5951  float const* D,
5952  float const* DU,
5953  float* DLF,
5954  float* DF,
5955  float* DUF,
5956  float* DU2, lapack_int* ipiv,
5957  float const* B, lapack_int const* ldb,
5958  float* X, lapack_int const* ldx,
5959  float* rcond,
5960  float* ferr,
5961  float* berr,
5962  float* work,
5963  lapack_int* iwork,
5964  lapack_int* info
5965 #ifdef LAPACK_FORTRAN_STRLEN_END
5966  , size_t, size_t
5967 #endif
5968 );
5969 #ifdef LAPACK_FORTRAN_STRLEN_END
5970  #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1)
5971 #else
5972  #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__)
5973 #endif
5974 
5975 #define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX)
5976 void LAPACK_zgtsvx_base(
5977  char const* fact, char const* trans,
5978  lapack_int const* n, lapack_int const* nrhs,
5979  lapack_complex_double const* DL,
5980  lapack_complex_double const* D,
5981  lapack_complex_double const* DU,
5982  lapack_complex_double* DLF,
5983  lapack_complex_double* DF,
5984  lapack_complex_double* DUF,
5985  lapack_complex_double* DU2, lapack_int* ipiv,
5986  lapack_complex_double const* B, lapack_int const* ldb,
5987  lapack_complex_double* X, lapack_int const* ldx,
5988  double* rcond,
5989  double* ferr,
5990  double* berr,
5991  lapack_complex_double* work,
5992  double* rwork,
5993  lapack_int* info
5994 #ifdef LAPACK_FORTRAN_STRLEN_END
5995  , size_t, size_t
5996 #endif
5997 );
5998 #ifdef LAPACK_FORTRAN_STRLEN_END
5999  #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1)
6000 #else
6001  #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__)
6002 #endif
6003 
6004 #define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF)
6005 void LAPACK_cgttrf(
6006  lapack_int const* n,
6007  lapack_complex_float* DL,
6008  lapack_complex_float* D,
6009  lapack_complex_float* DU,
6010  lapack_complex_float* DU2, lapack_int* ipiv,
6011  lapack_int* info );
6012 
6013 #define LAPACK_dgttrf LAPACK_GLOBAL(dgttrf,DGTTRF)
6014 void LAPACK_dgttrf(
6015  lapack_int const* n,
6016  double* DL,
6017  double* D,
6018  double* DU,
6019  double* DU2, lapack_int* ipiv,
6020  lapack_int* info );
6021 
6022 #define LAPACK_sgttrf LAPACK_GLOBAL(sgttrf,SGTTRF)
6023 void LAPACK_sgttrf(
6024  lapack_int const* n,
6025  float* DL,
6026  float* D,
6027  float* DU,
6028  float* DU2, lapack_int* ipiv,
6029  lapack_int* info );
6030 
6031 #define LAPACK_zgttrf LAPACK_GLOBAL(zgttrf,ZGTTRF)
6032 void LAPACK_zgttrf(
6033  lapack_int const* n,
6034  lapack_complex_double* DL,
6035  lapack_complex_double* D,
6036  lapack_complex_double* DU,
6037  lapack_complex_double* DU2, lapack_int* ipiv,
6038  lapack_int* info );
6039 
6040 #define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS)
6041 void LAPACK_cgttrs_base(
6042  char const* trans,
6043  lapack_int const* n, lapack_int const* nrhs,
6044  lapack_complex_float const* DL,
6045  lapack_complex_float const* D,
6046  lapack_complex_float const* DU,
6047  lapack_complex_float const* DU2, lapack_int const* ipiv,
6048  lapack_complex_float* B, lapack_int const* ldb,
6049  lapack_int* info
6050 #ifdef LAPACK_FORTRAN_STRLEN_END
6051  , size_t
6052 #endif
6053 );
6054 #ifdef LAPACK_FORTRAN_STRLEN_END
6055  #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1)
6056 #else
6057  #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__)
6058 #endif
6059 
6060 #define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS)
6061 void LAPACK_dgttrs_base(
6062  char const* trans,
6063  lapack_int const* n, lapack_int const* nrhs,
6064  double const* DL,
6065  double const* D,
6066  double const* DU,
6067  double const* DU2, lapack_int const* ipiv,
6068  double* B, lapack_int const* ldb,
6069  lapack_int* info
6070 #ifdef LAPACK_FORTRAN_STRLEN_END
6071  , size_t
6072 #endif
6073 );
6074 #ifdef LAPACK_FORTRAN_STRLEN_END
6075  #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1)
6076 #else
6077  #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__)
6078 #endif
6079 
6080 #define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS)
6081 void LAPACK_sgttrs_base(
6082  char const* trans,
6083  lapack_int const* n, lapack_int const* nrhs,
6084  float const* DL,
6085  float const* D,
6086  float const* DU,
6087  float const* DU2, lapack_int const* ipiv,
6088  float* B, lapack_int const* ldb,
6089  lapack_int* info
6090 #ifdef LAPACK_FORTRAN_STRLEN_END
6091  , size_t
6092 #endif
6093 );
6094 #ifdef LAPACK_FORTRAN_STRLEN_END
6095  #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1)
6096 #else
6097  #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__)
6098 #endif
6099 
6100 #define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS)
6101 void LAPACK_zgttrs_base(
6102  char const* trans,
6103  lapack_int const* n, lapack_int const* nrhs,
6104  lapack_complex_double const* DL,
6105  lapack_complex_double const* D,
6106  lapack_complex_double const* DU,
6107  lapack_complex_double const* DU2, lapack_int const* ipiv,
6108  lapack_complex_double* B, lapack_int const* ldb,
6109  lapack_int* info
6110 #ifdef LAPACK_FORTRAN_STRLEN_END
6111  , size_t
6112 #endif
6113 );
6114 #ifdef LAPACK_FORTRAN_STRLEN_END
6115  #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1)
6116 #else
6117  #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__)
6118 #endif
6119 
6120 #define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV)
6121 void LAPACK_chbev_base(
6122  char const* jobz, char const* uplo,
6123  lapack_int const* n, lapack_int const* kd,
6124  lapack_complex_float* AB, lapack_int const* ldab,
6125  float* W,
6126  lapack_complex_float* Z, lapack_int const* ldz,
6127  lapack_complex_float* work,
6128  float* rwork,
6129  lapack_int* info
6130 #ifdef LAPACK_FORTRAN_STRLEN_END
6131  , size_t, size_t
6132 #endif
6133 );
6134 #ifdef LAPACK_FORTRAN_STRLEN_END
6135  #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1)
6136 #else
6137  #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__)
6138 #endif
6139 
6140 #define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV)
6141 void LAPACK_zhbev_base(
6142  char const* jobz, char const* uplo,
6143  lapack_int const* n, lapack_int const* kd,
6144  lapack_complex_double* AB, lapack_int const* ldab,
6145  double* W,
6146  lapack_complex_double* Z, lapack_int const* ldz,
6147  lapack_complex_double* work,
6148  double* rwork,
6149  lapack_int* info
6150 #ifdef LAPACK_FORTRAN_STRLEN_END
6151  , size_t, size_t
6152 #endif
6153 );
6154 #ifdef LAPACK_FORTRAN_STRLEN_END
6155  #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1)
6156 #else
6157  #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__)
6158 #endif
6159 
6160 #define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE)
6161 void LAPACK_chbev_2stage_base(
6162  char const* jobz, char const* uplo,
6163  lapack_int const* n, lapack_int const* kd,
6164  lapack_complex_float* AB, lapack_int const* ldab,
6165  float* W,
6166  lapack_complex_float* Z, lapack_int const* ldz,
6167  lapack_complex_float* work, lapack_int const* lwork,
6168  float* rwork,
6169  lapack_int* info
6170 #ifdef LAPACK_FORTRAN_STRLEN_END
6171  , size_t, size_t
6172 #endif
6173 );
6174 #ifdef LAPACK_FORTRAN_STRLEN_END
6175  #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1)
6176 #else
6177  #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__)
6178 #endif
6179 
6180 #define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE)
6181 void LAPACK_zhbev_2stage_base(
6182  char const* jobz, char const* uplo,
6183  lapack_int const* n, lapack_int const* kd,
6184  lapack_complex_double* AB, lapack_int const* ldab,
6185  double* W,
6186  lapack_complex_double* Z, lapack_int const* ldz,
6187  lapack_complex_double* work, lapack_int const* lwork,
6188  double* rwork,
6189  lapack_int* info
6190 #ifdef LAPACK_FORTRAN_STRLEN_END
6191  , size_t, size_t
6192 #endif
6193 );
6194 #ifdef LAPACK_FORTRAN_STRLEN_END
6195  #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1)
6196 #else
6197  #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__)
6198 #endif
6199 
6200 #define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD)
6201 void LAPACK_chbevd_base(
6202  char const* jobz, char const* uplo,
6203  lapack_int const* n, lapack_int const* kd,
6204  lapack_complex_float* AB, lapack_int const* ldab,
6205  float* W,
6206  lapack_complex_float* Z, lapack_int const* ldz,
6207  lapack_complex_float* work, lapack_int const* lwork,
6208  float* rwork, lapack_int const* lrwork,
6209  lapack_int* iwork, lapack_int const* liwork,
6210  lapack_int* info
6211 #ifdef LAPACK_FORTRAN_STRLEN_END
6212  , size_t, size_t
6213 #endif
6214 );
6215 #ifdef LAPACK_FORTRAN_STRLEN_END
6216  #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1)
6217 #else
6218  #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__)
6219 #endif
6220 
6221 #define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD)
6222 void LAPACK_zhbevd_base(
6223  char const* jobz, char const* uplo,
6224  lapack_int const* n, lapack_int const* kd,
6225  lapack_complex_double* AB, lapack_int const* ldab,
6226  double* W,
6227  lapack_complex_double* Z, lapack_int const* ldz,
6228  lapack_complex_double* work, lapack_int const* lwork,
6229  double* rwork, lapack_int const* lrwork,
6230  lapack_int* iwork, lapack_int const* liwork,
6231  lapack_int* info
6232 #ifdef LAPACK_FORTRAN_STRLEN_END
6233  , size_t, size_t
6234 #endif
6235 );
6236 #ifdef LAPACK_FORTRAN_STRLEN_END
6237  #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1)
6238 #else
6239  #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__)
6240 #endif
6241 
6242 #define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE)
6243 void LAPACK_chbevd_2stage_base(
6244  char const* jobz, char const* uplo,
6245  lapack_int const* n, lapack_int const* kd,
6246  lapack_complex_float* AB, lapack_int const* ldab,
6247  float* W,
6248  lapack_complex_float* Z, lapack_int const* ldz,
6249  lapack_complex_float* work, lapack_int const* lwork,
6250  float* rwork, lapack_int const* lrwork,
6251  lapack_int* iwork, lapack_int const* liwork,
6252  lapack_int* info
6253 #ifdef LAPACK_FORTRAN_STRLEN_END
6254  , size_t, size_t
6255 #endif
6256 );
6257 #ifdef LAPACK_FORTRAN_STRLEN_END
6258  #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1)
6259 #else
6260  #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__)
6261 #endif
6262 
6263 #define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE)
6264 void LAPACK_zhbevd_2stage_base(
6265  char const* jobz, char const* uplo,
6266  lapack_int const* n, lapack_int const* kd,
6267  lapack_complex_double* AB, lapack_int const* ldab,
6268  double* W,
6269  lapack_complex_double* Z, lapack_int const* ldz,
6270  lapack_complex_double* work, lapack_int const* lwork,
6271  double* rwork, lapack_int const* lrwork,
6272  lapack_int* iwork, lapack_int const* liwork,
6273  lapack_int* info
6274 #ifdef LAPACK_FORTRAN_STRLEN_END
6275  , size_t, size_t
6276 #endif
6277 );
6278 #ifdef LAPACK_FORTRAN_STRLEN_END
6279  #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1)
6280 #else
6281  #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__)
6282 #endif
6283 
6284 #define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX)
6285 void LAPACK_chbevx_base(
6286  char const* jobz, char const* range, char const* uplo,
6287  lapack_int const* n, lapack_int const* kd,
6288  lapack_complex_float* AB, lapack_int const* ldab,
6289  lapack_complex_float* Q, lapack_int const* ldq,
6290  float const* vl,
6291  float const* vu, lapack_int const* il, lapack_int const* iu,
6292  float const* abstol, lapack_int* m,
6293  float* W,
6294  lapack_complex_float* Z, lapack_int const* ldz,
6295  lapack_complex_float* work,
6296  float* rwork,
6297  lapack_int* iwork, lapack_int* IFAIL,
6298  lapack_int* info
6299 #ifdef LAPACK_FORTRAN_STRLEN_END
6300  , size_t, size_t, size_t
6301 #endif
6302 );
6303 #ifdef LAPACK_FORTRAN_STRLEN_END
6304  #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1)
6305 #else
6306  #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__)
6307 #endif
6308 
6309 #define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX)
6310 void LAPACK_zhbevx_base(
6311  char const* jobz, char const* range, char const* uplo,
6312  lapack_int const* n, lapack_int const* kd,
6313  lapack_complex_double* AB, lapack_int const* ldab,
6314  lapack_complex_double* Q, lapack_int const* ldq,
6315  double const* vl,
6316  double const* vu, lapack_int const* il, lapack_int const* iu,
6317  double const* abstol, lapack_int* m,
6318  double* W,
6319  lapack_complex_double* Z, lapack_int const* ldz,
6320  lapack_complex_double* work,
6321  double* rwork,
6322  lapack_int* iwork, lapack_int* IFAIL,
6323  lapack_int* info
6324 #ifdef LAPACK_FORTRAN_STRLEN_END
6325  , size_t, size_t, size_t
6326 #endif
6327 );
6328 #ifdef LAPACK_FORTRAN_STRLEN_END
6329  #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1)
6330 #else
6331  #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__)
6332 #endif
6333 
6334 #define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE)
6335 void LAPACK_chbevx_2stage_base(
6336  char const* jobz, char const* range, char const* uplo,
6337  lapack_int const* n, lapack_int const* kd,
6338  lapack_complex_float* AB, lapack_int const* ldab,
6339  lapack_complex_float* Q, lapack_int const* ldq,
6340  float const* vl,
6341  float const* vu, lapack_int const* il, lapack_int const* iu,
6342  float const* abstol, lapack_int* m,
6343  float* W,
6344  lapack_complex_float* Z, lapack_int const* ldz,
6345  lapack_complex_float* work, lapack_int const* lwork,
6346  float* rwork,
6347  lapack_int* iwork, lapack_int* IFAIL,
6348  lapack_int* info
6349 #ifdef LAPACK_FORTRAN_STRLEN_END
6350  , size_t, size_t, size_t
6351 #endif
6352 );
6353 #ifdef LAPACK_FORTRAN_STRLEN_END
6354  #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6355 #else
6356  #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__)
6357 #endif
6358 
6359 #define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE)
6360 void LAPACK_zhbevx_2stage_base(
6361  char const* jobz, char const* range, char const* uplo,
6362  lapack_int const* n, lapack_int const* kd,
6363  lapack_complex_double* AB, lapack_int const* ldab,
6364  lapack_complex_double* Q, lapack_int const* ldq,
6365  double const* vl,
6366  double const* vu, lapack_int const* il, lapack_int const* iu,
6367  double const* abstol, lapack_int* m,
6368  double* W,
6369  lapack_complex_double* Z, lapack_int const* ldz,
6370  lapack_complex_double* work, lapack_int const* lwork,
6371  double* rwork,
6372  lapack_int* iwork, lapack_int* IFAIL,
6373  lapack_int* info
6374 #ifdef LAPACK_FORTRAN_STRLEN_END
6375  , size_t, size_t, size_t
6376 #endif
6377 );
6378 #ifdef LAPACK_FORTRAN_STRLEN_END
6379  #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6380 #else
6381  #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__)
6382 #endif
6383 
6384 #define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST)
6385 void LAPACK_chbgst_base(
6386  char const* vect, char const* uplo,
6387  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6388  lapack_complex_float* AB, lapack_int const* ldab,
6389  lapack_complex_float const* BB, lapack_int const* ldbb,
6390  lapack_complex_float* X, lapack_int const* ldx,
6391  lapack_complex_float* work,
6392  float* rwork,
6393  lapack_int* info
6394 #ifdef LAPACK_FORTRAN_STRLEN_END
6395  , size_t, size_t
6396 #endif
6397 );
6398 #ifdef LAPACK_FORTRAN_STRLEN_END
6399  #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1)
6400 #else
6401  #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__)
6402 #endif
6403 
6404 #define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST)
6405 void LAPACK_zhbgst_base(
6406  char const* vect, char const* uplo,
6407  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6408  lapack_complex_double* AB, lapack_int const* ldab,
6409  lapack_complex_double const* BB, lapack_int const* ldbb,
6410  lapack_complex_double* X, lapack_int const* ldx,
6411  lapack_complex_double* work,
6412  double* rwork,
6413  lapack_int* info
6414 #ifdef LAPACK_FORTRAN_STRLEN_END
6415  , size_t, size_t
6416 #endif
6417 );
6418 #ifdef LAPACK_FORTRAN_STRLEN_END
6419  #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1)
6420 #else
6421  #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__)
6422 #endif
6423 
6424 #define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV)
6425 void LAPACK_chbgv_base(
6426  char const* jobz, char const* uplo,
6427  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6428  lapack_complex_float* AB, lapack_int const* ldab,
6429  lapack_complex_float* BB, lapack_int const* ldbb,
6430  float* W,
6431  lapack_complex_float* Z, lapack_int const* ldz,
6432  lapack_complex_float* work,
6433  float* rwork,
6434  lapack_int* info
6435 #ifdef LAPACK_FORTRAN_STRLEN_END
6436  , size_t, size_t
6437 #endif
6438 );
6439 #ifdef LAPACK_FORTRAN_STRLEN_END
6440  #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1)
6441 #else
6442  #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__)
6443 #endif
6444 
6445 #define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV)
6446 void LAPACK_zhbgv_base(
6447  char const* jobz, char const* uplo,
6448  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6449  lapack_complex_double* AB, lapack_int const* ldab,
6450  lapack_complex_double* BB, lapack_int const* ldbb,
6451  double* W,
6452  lapack_complex_double* Z, lapack_int const* ldz,
6453  lapack_complex_double* work,
6454  double* rwork,
6455  lapack_int* info
6456 #ifdef LAPACK_FORTRAN_STRLEN_END
6457  , size_t, size_t
6458 #endif
6459 );
6460 #ifdef LAPACK_FORTRAN_STRLEN_END
6461  #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1)
6462 #else
6463  #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__)
6464 #endif
6465 
6466 #define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD)
6467 void LAPACK_chbgvd_base(
6468  char const* jobz, char const* uplo,
6469  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6470  lapack_complex_float* AB, lapack_int const* ldab,
6471  lapack_complex_float* BB, lapack_int const* ldbb,
6472  float* W,
6473  lapack_complex_float* Z, lapack_int const* ldz,
6474  lapack_complex_float* work, lapack_int const* lwork,
6475  float* rwork, lapack_int const* lrwork,
6476  lapack_int* iwork, lapack_int const* liwork,
6477  lapack_int* info
6478 #ifdef LAPACK_FORTRAN_STRLEN_END
6479  , size_t, size_t
6480 #endif
6481 );
6482 #ifdef LAPACK_FORTRAN_STRLEN_END
6483  #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1)
6484 #else
6485  #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__)
6486 #endif
6487 
6488 #define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD)
6489 void LAPACK_zhbgvd_base(
6490  char const* jobz, char const* uplo,
6491  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6492  lapack_complex_double* AB, lapack_int const* ldab,
6493  lapack_complex_double* BB, lapack_int const* ldbb,
6494  double* W,
6495  lapack_complex_double* Z, lapack_int const* ldz,
6496  lapack_complex_double* work, lapack_int const* lwork,
6497  double* rwork, lapack_int const* lrwork,
6498  lapack_int* iwork, lapack_int const* liwork,
6499  lapack_int* info
6500 #ifdef LAPACK_FORTRAN_STRLEN_END
6501  , size_t, size_t
6502 #endif
6503 );
6504 #ifdef LAPACK_FORTRAN_STRLEN_END
6505  #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1)
6506 #else
6507  #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__)
6508 #endif
6509 
6510 #define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX)
6511 void LAPACK_chbgvx_base(
6512  char const* jobz, char const* range, char const* uplo,
6513  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6514  lapack_complex_float* AB, lapack_int const* ldab,
6515  lapack_complex_float* BB, lapack_int const* ldbb,
6516  lapack_complex_float* Q, lapack_int const* ldq,
6517  float const* vl,
6518  float const* vu, lapack_int const* il, lapack_int const* iu,
6519  float const* abstol, lapack_int* m,
6520  float* W,
6521  lapack_complex_float* Z, lapack_int const* ldz,
6522  lapack_complex_float* work,
6523  float* rwork,
6524  lapack_int* iwork, lapack_int* IFAIL,
6525  lapack_int* info
6526 #ifdef LAPACK_FORTRAN_STRLEN_END
6527  , size_t, size_t, size_t
6528 #endif
6529 );
6530 #ifdef LAPACK_FORTRAN_STRLEN_END
6531  #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1)
6532 #else
6533  #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__)
6534 #endif
6535 
6536 #define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX)
6537 void LAPACK_zhbgvx_base(
6538  char const* jobz, char const* range, char const* uplo,
6539  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6540  lapack_complex_double* AB, lapack_int const* ldab,
6541  lapack_complex_double* BB, lapack_int const* ldbb,
6542  lapack_complex_double* Q, lapack_int const* ldq,
6543  double const* vl,
6544  double const* vu, lapack_int const* il, lapack_int const* iu,
6545  double const* abstol, lapack_int* m,
6546  double* W,
6547  lapack_complex_double* Z, lapack_int const* ldz,
6548  lapack_complex_double* work,
6549  double* rwork,
6550  lapack_int* iwork, lapack_int* IFAIL,
6551  lapack_int* info
6552 #ifdef LAPACK_FORTRAN_STRLEN_END
6553  , size_t, size_t, size_t
6554 #endif
6555 );
6556 #ifdef LAPACK_FORTRAN_STRLEN_END
6557  #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1)
6558 #else
6559  #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__)
6560 #endif
6561 
6562 #define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD)
6563 void LAPACK_chbtrd_base(
6564  char const* vect, char const* uplo,
6565  lapack_int const* n, lapack_int const* kd,
6566  lapack_complex_float* AB, lapack_int const* ldab,
6567  float* D,
6568  float* E,
6569  lapack_complex_float* Q, lapack_int const* ldq,
6570  lapack_complex_float* work,
6571  lapack_int* info
6572 #ifdef LAPACK_FORTRAN_STRLEN_END
6573  , size_t, size_t
6574 #endif
6575 );
6576 #ifdef LAPACK_FORTRAN_STRLEN_END
6577  #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1)
6578 #else
6579  #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__)
6580 #endif
6581 
6582 #define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD)
6583 void LAPACK_zhbtrd_base(
6584  char const* vect, char const* uplo,
6585  lapack_int const* n, lapack_int const* kd,
6586  lapack_complex_double* AB, lapack_int const* ldab,
6587  double* D,
6588  double* E,
6589  lapack_complex_double* Q, lapack_int const* ldq,
6590  lapack_complex_double* work,
6591  lapack_int* info
6592 #ifdef LAPACK_FORTRAN_STRLEN_END
6593  , size_t, size_t
6594 #endif
6595 );
6596 #ifdef LAPACK_FORTRAN_STRLEN_END
6597  #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1)
6598 #else
6599  #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__)
6600 #endif
6601 
6602 #define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON)
6603 void LAPACK_checon_base(
6604  char const* uplo,
6605  lapack_int const* n,
6606  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
6607  float const* anorm,
6608  float* rcond,
6609  lapack_complex_float* work,
6610  lapack_int* info
6611 #ifdef LAPACK_FORTRAN_STRLEN_END
6612  , size_t
6613 #endif
6614 );
6615 #ifdef LAPACK_FORTRAN_STRLEN_END
6616  #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1)
6617 #else
6618  #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__)
6619 #endif
6620 
6621 #define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON)
6622 void LAPACK_zhecon_base(
6623  char const* uplo,
6624  lapack_int const* n,
6625  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
6626  double const* anorm,
6627  double* rcond,
6628  lapack_complex_double* work,
6629  lapack_int* info
6630 #ifdef LAPACK_FORTRAN_STRLEN_END
6631  , size_t
6632 #endif
6633 );
6634 #ifdef LAPACK_FORTRAN_STRLEN_END
6635  #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1)
6636 #else
6637  #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__)
6638 #endif
6639 
6640 #define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3)
6641 void LAPACK_checon_3_base(
6642  char const* uplo,
6643  lapack_int const* n,
6644  lapack_complex_float const* A, lapack_int const* lda,
6645  lapack_complex_float const* E, lapack_int const* ipiv,
6646  float const* anorm,
6647  float* rcond,
6648  lapack_complex_float* work,
6649  lapack_int* info
6650 #ifdef LAPACK_FORTRAN_STRLEN_END
6651  , size_t
6652 #endif
6653 );
6654 #ifdef LAPACK_FORTRAN_STRLEN_END
6655  #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1)
6656 #else
6657  #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__)
6658 #endif
6659 
6660 #define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3)
6661 void LAPACK_zhecon_3_base(
6662  char const* uplo,
6663  lapack_int const* n,
6664  lapack_complex_double const* A, lapack_int const* lda,
6665  lapack_complex_double const* E, lapack_int const* ipiv,
6666  double const* anorm,
6667  double* rcond,
6668  lapack_complex_double* work,
6669  lapack_int* info
6670 #ifdef LAPACK_FORTRAN_STRLEN_END
6671  , size_t
6672 #endif
6673 );
6674 #ifdef LAPACK_FORTRAN_STRLEN_END
6675  #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1)
6676 #else
6677  #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__)
6678 #endif
6679 
6680 #define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB)
6681 void LAPACK_cheequb_base(
6682  char const* uplo,
6683  lapack_int const* n,
6684  lapack_complex_float const* A, lapack_int const* lda,
6685  float* S,
6686  float* scond,
6687  float* amax,
6688  lapack_complex_float* work,
6689  lapack_int* info
6690 #ifdef LAPACK_FORTRAN_STRLEN_END
6691  , size_t
6692 #endif
6693 );
6694 #ifdef LAPACK_FORTRAN_STRLEN_END
6695  #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1)
6696 #else
6697  #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__)
6698 #endif
6699 
6700 #define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB)
6701 void LAPACK_zheequb_base(
6702  char const* uplo,
6703  lapack_int const* n,
6704  lapack_complex_double const* A, lapack_int const* lda,
6705  double* S,
6706  double* scond,
6707  double* amax,
6708  lapack_complex_double* work,
6709  lapack_int* info
6710 #ifdef LAPACK_FORTRAN_STRLEN_END
6711  , size_t
6712 #endif
6713 );
6714 #ifdef LAPACK_FORTRAN_STRLEN_END
6715  #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1)
6716 #else
6717  #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__)
6718 #endif
6719 
6720 #define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV)
6721 void LAPACK_cheev_base(
6722  char const* jobz, char const* uplo,
6723  lapack_int const* n,
6724  lapack_complex_float* A, lapack_int const* lda,
6725  float* W,
6726  lapack_complex_float* work, lapack_int const* lwork,
6727  float* rwork,
6728  lapack_int* info
6729 #ifdef LAPACK_FORTRAN_STRLEN_END
6730  , size_t, size_t
6731 #endif
6732 );
6733 #ifdef LAPACK_FORTRAN_STRLEN_END
6734  #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1)
6735 #else
6736  #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__)
6737 #endif
6738 
6739 #define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV)
6740 void LAPACK_zheev_base(
6741  char const* jobz, char const* uplo,
6742  lapack_int const* n,
6743  lapack_complex_double* A, lapack_int const* lda,
6744  double* W,
6745  lapack_complex_double* work, lapack_int const* lwork,
6746  double* rwork,
6747  lapack_int* info
6748 #ifdef LAPACK_FORTRAN_STRLEN_END
6749  , size_t, size_t
6750 #endif
6751 );
6752 #ifdef LAPACK_FORTRAN_STRLEN_END
6753  #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1)
6754 #else
6755  #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__)
6756 #endif
6757 
6758 #define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE)
6759 void LAPACK_cheev_2stage_base(
6760  char const* jobz, char const* uplo,
6761  lapack_int const* n,
6762  lapack_complex_float* A, lapack_int const* lda,
6763  float* W,
6764  lapack_complex_float* work, lapack_int const* lwork,
6765  float* rwork,
6766  lapack_int* info
6767 #ifdef LAPACK_FORTRAN_STRLEN_END
6768  , size_t, size_t
6769 #endif
6770 );
6771 #ifdef LAPACK_FORTRAN_STRLEN_END
6772  #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1)
6773 #else
6774  #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__)
6775 #endif
6776 
6777 #define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE)
6778 void LAPACK_zheev_2stage_base(
6779  char const* jobz, char const* uplo,
6780  lapack_int const* n,
6781  lapack_complex_double* A, lapack_int const* lda,
6782  double* W,
6783  lapack_complex_double* work, lapack_int const* lwork,
6784  double* rwork,
6785  lapack_int* info
6786 #ifdef LAPACK_FORTRAN_STRLEN_END
6787  , size_t, size_t
6788 #endif
6789 );
6790 #ifdef LAPACK_FORTRAN_STRLEN_END
6791  #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1)
6792 #else
6793  #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__)
6794 #endif
6795 
6796 #define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD)
6797 void LAPACK_cheevd_base(
6798  char const* jobz, char const* uplo,
6799  lapack_int const* n,
6800  lapack_complex_float* A, lapack_int const* lda,
6801  float* W,
6802  lapack_complex_float* work, lapack_int const* lwork,
6803  float* rwork, lapack_int const* lrwork,
6804  lapack_int* iwork, lapack_int const* liwork,
6805  lapack_int* info
6806 #ifdef LAPACK_FORTRAN_STRLEN_END
6807  , size_t, size_t
6808 #endif
6809 );
6810 #ifdef LAPACK_FORTRAN_STRLEN_END
6811  #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1)
6812 #else
6813  #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__)
6814 #endif
6815 
6816 #define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD)
6817 void LAPACK_zheevd_base(
6818  char const* jobz, char const* uplo,
6819  lapack_int const* n,
6820  lapack_complex_double* A, lapack_int const* lda,
6821  double* W,
6822  lapack_complex_double* work, lapack_int const* lwork,
6823  double* rwork, lapack_int const* lrwork,
6824  lapack_int* iwork, lapack_int const* liwork,
6825  lapack_int* info
6826 #ifdef LAPACK_FORTRAN_STRLEN_END
6827  , size_t, size_t
6828 #endif
6829 );
6830 #ifdef LAPACK_FORTRAN_STRLEN_END
6831  #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1)
6832 #else
6833  #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__)
6834 #endif
6835 
6836 #define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE)
6837 void LAPACK_cheevd_2stage_base(
6838  char const* jobz, char const* uplo,
6839  lapack_int const* n,
6840  lapack_complex_float* A, lapack_int const* lda,
6841  float* W,
6842  lapack_complex_float* work, lapack_int const* lwork,
6843  float* rwork, lapack_int const* lrwork,
6844  lapack_int* iwork, lapack_int const* liwork,
6845  lapack_int* info
6846 #ifdef LAPACK_FORTRAN_STRLEN_END
6847  , size_t, size_t
6848 #endif
6849 );
6850 #ifdef LAPACK_FORTRAN_STRLEN_END
6851  #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1)
6852 #else
6853  #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__)
6854 #endif
6855 
6856 #define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE)
6857 void LAPACK_zheevd_2stage_base(
6858  char const* jobz, char const* uplo,
6859  lapack_int const* n,
6860  lapack_complex_double* A, lapack_int const* lda,
6861  double* W,
6862  lapack_complex_double* work, lapack_int const* lwork,
6863  double* rwork, lapack_int const* lrwork,
6864  lapack_int* iwork, lapack_int const* liwork,
6865  lapack_int* info
6866 #ifdef LAPACK_FORTRAN_STRLEN_END
6867  , size_t, size_t
6868 #endif
6869 );
6870 #ifdef LAPACK_FORTRAN_STRLEN_END
6871  #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1)
6872 #else
6873  #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__)
6874 #endif
6875 
6876 #define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR)
6877 void LAPACK_cheevr_base(
6878  char const* jobz, char const* range, char const* uplo,
6879  lapack_int const* n,
6880  lapack_complex_float* A, lapack_int const* lda,
6881  float const* vl,
6882  float const* vu, lapack_int const* il, lapack_int const* iu,
6883  float const* abstol, lapack_int* m,
6884  float* W,
6885  lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6886  lapack_complex_float* work, lapack_int const* lwork,
6887  float* rwork, lapack_int const* lrwork,
6888  lapack_int* iwork, lapack_int const* liwork,
6889  lapack_int* info
6890 #ifdef LAPACK_FORTRAN_STRLEN_END
6891  , size_t, size_t, size_t
6892 #endif
6893 );
6894 #ifdef LAPACK_FORTRAN_STRLEN_END
6895  #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1)
6896 #else
6897  #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__)
6898 #endif
6899 
6900 #define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR)
6901 void LAPACK_zheevr_base(
6902  char const* jobz, char const* range, char const* uplo,
6903  lapack_int const* n,
6904  lapack_complex_double* A, lapack_int const* lda,
6905  double const* vl,
6906  double const* vu, lapack_int const* il, lapack_int const* iu,
6907  double const* abstol, lapack_int* m,
6908  double* W,
6909  lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6910  lapack_complex_double* work, lapack_int const* lwork,
6911  double* rwork, lapack_int const* lrwork,
6912  lapack_int* iwork, lapack_int const* liwork,
6913  lapack_int* info
6914 #ifdef LAPACK_FORTRAN_STRLEN_END
6915  , size_t, size_t, size_t
6916 #endif
6917 );
6918 #ifdef LAPACK_FORTRAN_STRLEN_END
6919  #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1)
6920 #else
6921  #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__)
6922 #endif
6923 
6924 #define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE)
6925 void LAPACK_cheevr_2stage_base(
6926  char const* jobz, char const* range, char const* uplo,
6927  lapack_int const* n,
6928  lapack_complex_float* A, lapack_int const* lda,
6929  float const* vl,
6930  float const* vu, lapack_int const* il, lapack_int const* iu,
6931  float const* abstol, lapack_int* m,
6932  float* W,
6933  lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6934  lapack_complex_float* work, lapack_int const* lwork,
6935  float* rwork, lapack_int const* lrwork,
6936  lapack_int* iwork, lapack_int const* liwork,
6937  lapack_int* info
6938 #ifdef LAPACK_FORTRAN_STRLEN_END
6939  , size_t, size_t, size_t
6940 #endif
6941 );
6942 #ifdef LAPACK_FORTRAN_STRLEN_END
6943  #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6944 #else
6945  #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__)
6946 #endif
6947 
6948 #define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE)
6949 void LAPACK_zheevr_2stage_base(
6950  char const* jobz, char const* range, char const* uplo,
6951  lapack_int const* n,
6952  lapack_complex_double* A, lapack_int const* lda,
6953  double const* vl,
6954  double const* vu, lapack_int const* il, lapack_int const* iu,
6955  double const* abstol, lapack_int* m,
6956  double* W,
6957  lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6958  lapack_complex_double* work, lapack_int const* lwork,
6959  double* rwork, lapack_int const* lrwork,
6960  lapack_int* iwork, lapack_int const* liwork,
6961  lapack_int* info
6962 #ifdef LAPACK_FORTRAN_STRLEN_END
6963  , size_t, size_t, size_t
6964 #endif
6965 );
6966 #ifdef LAPACK_FORTRAN_STRLEN_END
6967  #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6968 #else
6969  #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__)
6970 #endif
6971 
6972 #define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX)
6973 void LAPACK_cheevx_base(
6974  char const* jobz, char const* range, char const* uplo,
6975  lapack_int const* n,
6976  lapack_complex_float* A, lapack_int const* lda,
6977  float const* vl,
6978  float const* vu, lapack_int const* il, lapack_int const* iu,
6979  float const* abstol, lapack_int* m,
6980  float* W,
6981  lapack_complex_float* Z, lapack_int const* ldz,
6982  lapack_complex_float* work, lapack_int const* lwork,
6983  float* rwork,
6984  lapack_int* iwork, lapack_int* IFAIL,
6985  lapack_int* info
6986 #ifdef LAPACK_FORTRAN_STRLEN_END
6987  , size_t, size_t, size_t
6988 #endif
6989 );
6990 #ifdef LAPACK_FORTRAN_STRLEN_END
6991  #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1)
6992 #else
6993  #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__)
6994 #endif
6995 
6996 #define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX)
6997 void LAPACK_zheevx_base(
6998  char const* jobz, char const* range, char const* uplo,
6999  lapack_int const* n,
7000  lapack_complex_double* A, lapack_int const* lda,
7001  double const* vl,
7002  double const* vu, lapack_int const* il, lapack_int const* iu,
7003  double const* abstol, lapack_int* m,
7004  double* W,
7005  lapack_complex_double* Z, lapack_int const* ldz,
7006  lapack_complex_double* work, lapack_int const* lwork,
7007  double* rwork,
7008  lapack_int* iwork, lapack_int* IFAIL,
7009  lapack_int* info
7010 #ifdef LAPACK_FORTRAN_STRLEN_END
7011  , size_t, size_t, size_t
7012 #endif
7013 );
7014 #ifdef LAPACK_FORTRAN_STRLEN_END
7015  #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1)
7016 #else
7017  #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__)
7018 #endif
7019 
7020 #define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE)
7021 void LAPACK_cheevx_2stage_base(
7022  char const* jobz, char const* range, char const* uplo,
7023  lapack_int const* n,
7024  lapack_complex_float* A, lapack_int const* lda,
7025  float const* vl,
7026  float const* vu, lapack_int const* il, lapack_int const* iu,
7027  float const* abstol, lapack_int* m,
7028  float* W,
7029  lapack_complex_float* Z, lapack_int const* ldz,
7030  lapack_complex_float* work, lapack_int const* lwork,
7031  float* rwork,
7032  lapack_int* iwork, lapack_int* IFAIL,
7033  lapack_int* info
7034 #ifdef LAPACK_FORTRAN_STRLEN_END
7035  , size_t, size_t, size_t
7036 #endif
7037 );
7038 #ifdef LAPACK_FORTRAN_STRLEN_END
7039  #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7040 #else
7041  #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__)
7042 #endif
7043 
7044 #define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE)
7045 void LAPACK_zheevx_2stage_base(
7046  char const* jobz, char const* range, char const* uplo,
7047  lapack_int const* n,
7048  lapack_complex_double* A, lapack_int const* lda,
7049  double const* vl,
7050  double const* vu, lapack_int const* il, lapack_int const* iu,
7051  double const* abstol, lapack_int* m,
7052  double* W,
7053  lapack_complex_double* Z, lapack_int const* ldz,
7054  lapack_complex_double* work, lapack_int const* lwork,
7055  double* rwork,
7056  lapack_int* iwork, lapack_int* IFAIL,
7057  lapack_int* info
7058 #ifdef LAPACK_FORTRAN_STRLEN_END
7059  , size_t, size_t, size_t
7060 #endif
7061 );
7062 #ifdef LAPACK_FORTRAN_STRLEN_END
7063  #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7064 #else
7065  #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__)
7066 #endif
7067 
7068 #define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST)
7069 void LAPACK_chegst_base(
7070  lapack_int const* itype, char const* uplo,
7071  lapack_int const* n,
7072  lapack_complex_float* A, lapack_int const* lda,
7073  const lapack_complex_float* B, lapack_int const* ldb,
7074  lapack_int* info
7075 #ifdef LAPACK_FORTRAN_STRLEN_END
7076  , size_t
7077 #endif
7078 );
7079 #ifdef LAPACK_FORTRAN_STRLEN_END
7080  #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1)
7081 #else
7082  #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__)
7083 #endif
7084 
7085 #define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST)
7086 void LAPACK_zhegst_base(
7087  lapack_int const* itype, char const* uplo,
7088  lapack_int const* n,
7089  lapack_complex_double* A, lapack_int const* lda,
7090  const lapack_complex_double* B, lapack_int const* ldb,
7091  lapack_int* info
7092 #ifdef LAPACK_FORTRAN_STRLEN_END
7093  , size_t
7094 #endif
7095 );
7096 #ifdef LAPACK_FORTRAN_STRLEN_END
7097  #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1)
7098 #else
7099  #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__)
7100 #endif
7101 
7102 #define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV)
7103 void LAPACK_chegv_base(
7104  lapack_int const* itype, char const* jobz, char const* uplo,
7105  lapack_int const* n,
7106  lapack_complex_float* A, lapack_int const* lda,
7107  lapack_complex_float* B, lapack_int const* ldb,
7108  float* W,
7109  lapack_complex_float* work, lapack_int const* lwork,
7110  float* rwork,
7111  lapack_int* info
7112 #ifdef LAPACK_FORTRAN_STRLEN_END
7113  , size_t, size_t
7114 #endif
7115 );
7116 #ifdef LAPACK_FORTRAN_STRLEN_END
7117  #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1)
7118 #else
7119  #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__)
7120 #endif
7121 
7122 #define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV)
7123 void LAPACK_zhegv_base(
7124  lapack_int const* itype, char const* jobz, char const* uplo,
7125  lapack_int const* n,
7126  lapack_complex_double* A, lapack_int const* lda,
7127  lapack_complex_double* B, lapack_int const* ldb,
7128  double* W,
7129  lapack_complex_double* work, lapack_int const* lwork,
7130  double* rwork,
7131  lapack_int* info
7132 #ifdef LAPACK_FORTRAN_STRLEN_END
7133  , size_t, size_t
7134 #endif
7135 );
7136 #ifdef LAPACK_FORTRAN_STRLEN_END
7137  #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1)
7138 #else
7139  #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__)
7140 #endif
7141 
7142 #define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE)
7143 void LAPACK_chegv_2stage_base(
7144  lapack_int const* itype, char const* jobz, char const* uplo,
7145  lapack_int const* n,
7146  lapack_complex_float* A, lapack_int const* lda,
7147  lapack_complex_float* B, lapack_int const* ldb,
7148  float* W,
7149  lapack_complex_float* work, lapack_int const* lwork,
7150  float* rwork,
7151  lapack_int* info
7152 #ifdef LAPACK_FORTRAN_STRLEN_END
7153  , size_t, size_t
7154 #endif
7155 );
7156 #ifdef LAPACK_FORTRAN_STRLEN_END
7157  #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1)
7158 #else
7159  #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__)
7160 #endif
7161 
7162 #define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE)
7163 void LAPACK_zhegv_2stage_base(
7164  lapack_int const* itype, char const* jobz, char const* uplo,
7165  lapack_int const* n,
7166  lapack_complex_double* A, lapack_int const* lda,
7167  lapack_complex_double* B, lapack_int const* ldb,
7168  double* W,
7169  lapack_complex_double* work, lapack_int const* lwork,
7170  double* rwork,
7171  lapack_int* info
7172 #ifdef LAPACK_FORTRAN_STRLEN_END
7173  , size_t, size_t
7174 #endif
7175 );
7176 #ifdef LAPACK_FORTRAN_STRLEN_END
7177  #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1)
7178 #else
7179  #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__)
7180 #endif
7181 
7182 #define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD)
7183 void LAPACK_chegvd_base(
7184  lapack_int const* itype, char const* jobz, char const* uplo,
7185  lapack_int const* n,
7186  lapack_complex_float* A, lapack_int const* lda,
7187  lapack_complex_float* B, lapack_int const* ldb,
7188  float* W,
7189  lapack_complex_float* work, lapack_int const* lwork,
7190  float* rwork, lapack_int const* lrwork,
7191  lapack_int* iwork, lapack_int const* liwork,
7192  lapack_int* info
7193 #ifdef LAPACK_FORTRAN_STRLEN_END
7194  , size_t, size_t
7195 #endif
7196 );
7197 #ifdef LAPACK_FORTRAN_STRLEN_END
7198  #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1)
7199 #else
7200  #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__)
7201 #endif
7202 
7203 #define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD)
7204 void LAPACK_zhegvd_base(
7205  lapack_int const* itype, char const* jobz, char const* uplo,
7206  lapack_int const* n,
7207  lapack_complex_double* A, lapack_int const* lda,
7208  lapack_complex_double* B, lapack_int const* ldb,
7209  double* W,
7210  lapack_complex_double* work, lapack_int const* lwork,
7211  double* rwork, lapack_int const* lrwork,
7212  lapack_int* iwork, lapack_int const* liwork,
7213  lapack_int* info
7214 #ifdef LAPACK_FORTRAN_STRLEN_END
7215  , size_t, size_t
7216 #endif
7217 );
7218 #ifdef LAPACK_FORTRAN_STRLEN_END
7219  #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1)
7220 #else
7221  #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__)
7222 #endif
7223 
7224 #define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX)
7225 void LAPACK_chegvx_base(
7226  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
7227  lapack_int const* n,
7228  lapack_complex_float* A, lapack_int const* lda,
7229  lapack_complex_float* B, lapack_int const* ldb,
7230  float const* vl,
7231  float const* vu, lapack_int const* il, lapack_int const* iu,
7232  float const* abstol, lapack_int* m,
7233  float* W,
7234  lapack_complex_float* Z, lapack_int const* ldz,
7235  lapack_complex_float* work, lapack_int const* lwork,
7236  float* rwork,
7237  lapack_int* iwork, lapack_int* IFAIL,
7238  lapack_int* info
7239 #ifdef LAPACK_FORTRAN_STRLEN_END
7240  , size_t, size_t, size_t
7241 #endif
7242 );
7243 #ifdef LAPACK_FORTRAN_STRLEN_END
7244  #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1)
7245 #else
7246  #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__)
7247 #endif
7248 
7249 #define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX)
7250 void LAPACK_zhegvx_base(
7251  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
7252  lapack_int const* n,
7253  lapack_complex_double* A, lapack_int const* lda,
7254  lapack_complex_double* B, lapack_int const* ldb,
7255  double const* vl,
7256  double const* vu, lapack_int const* il, lapack_int const* iu,
7257  double const* abstol, lapack_int* m,
7258  double* W,
7259  lapack_complex_double* Z, lapack_int const* ldz,
7260  lapack_complex_double* work, lapack_int const* lwork,
7261  double* rwork,
7262  lapack_int* iwork, lapack_int* IFAIL,
7263  lapack_int* info
7264 #ifdef LAPACK_FORTRAN_STRLEN_END
7265  , size_t, size_t, size_t
7266 #endif
7267 );
7268 #ifdef LAPACK_FORTRAN_STRLEN_END
7269  #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1)
7270 #else
7271  #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__)
7272 #endif
7273 
7274 #define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS)
7275 void LAPACK_cherfs_base(
7276  char const* uplo,
7277  lapack_int const* n, lapack_int const* nrhs,
7278  lapack_complex_float const* A, lapack_int const* lda,
7279  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7280  lapack_complex_float const* B, lapack_int const* ldb,
7281  lapack_complex_float* X, lapack_int const* ldx,
7282  float* ferr,
7283  float* berr,
7284  lapack_complex_float* work,
7285  float* rwork,
7286  lapack_int* info
7287 #ifdef LAPACK_FORTRAN_STRLEN_END
7288  , size_t
7289 #endif
7290 );
7291 #ifdef LAPACK_FORTRAN_STRLEN_END
7292  #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1)
7293 #else
7294  #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__)
7295 #endif
7296 
7297 #define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS)
7298 void LAPACK_zherfs_base(
7299  char const* uplo,
7300  lapack_int const* n, lapack_int const* nrhs,
7301  lapack_complex_double const* A, lapack_int const* lda,
7302  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7303  lapack_complex_double const* B, lapack_int const* ldb,
7304  lapack_complex_double* X, lapack_int const* ldx,
7305  double* ferr,
7306  double* berr,
7307  lapack_complex_double* work,
7308  double* rwork,
7309  lapack_int* info
7310 #ifdef LAPACK_FORTRAN_STRLEN_END
7311  , size_t
7312 #endif
7313 );
7314 #ifdef LAPACK_FORTRAN_STRLEN_END
7315  #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1)
7316 #else
7317  #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__)
7318 #endif
7319 
7320 #define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX)
7321 void LAPACK_cherfsx_base(
7322  char const* uplo, char const* equed,
7323  lapack_int const* n, lapack_int const* nrhs,
7324  lapack_complex_float const* A, lapack_int const* lda,
7325  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7326  const float* S,
7327  lapack_complex_float const* B, lapack_int const* ldb,
7328  lapack_complex_float* X, lapack_int const* ldx,
7329  float* rcond,
7330  float* berr, lapack_int const* n_err_bnds,
7331  float* err_bnds_norm,
7332  float* err_bnds_comp, lapack_int const* nparams,
7333  float* params,
7334  lapack_complex_float* work,
7335  float* rwork,
7336  lapack_int* info
7337 #ifdef LAPACK_FORTRAN_STRLEN_END
7338  , size_t, size_t
7339 #endif
7340 );
7341 #ifdef LAPACK_FORTRAN_STRLEN_END
7342  #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1)
7343 #else
7344  #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__)
7345 #endif
7346 
7347 #define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX)
7348 void LAPACK_zherfsx_base(
7349  char const* uplo, char const* equed,
7350  lapack_int const* n, lapack_int const* nrhs,
7351  lapack_complex_double const* A, lapack_int const* lda,
7352  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7353  const double* S,
7354  lapack_complex_double const* B, lapack_int const* ldb,
7355  lapack_complex_double* X, lapack_int const* ldx,
7356  double* rcond,
7357  double* berr, lapack_int const* n_err_bnds,
7358  double* err_bnds_norm,
7359  double* err_bnds_comp, lapack_int const* nparams,
7360  double* params,
7361  lapack_complex_double* work,
7362  double* rwork,
7363  lapack_int* info
7364 #ifdef LAPACK_FORTRAN_STRLEN_END
7365  , size_t, size_t
7366 #endif
7367 );
7368 #ifdef LAPACK_FORTRAN_STRLEN_END
7369  #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1)
7370 #else
7371  #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__)
7372 #endif
7373 
7374 #define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV)
7375 void LAPACK_chesv_base(
7376  char const* uplo,
7377  lapack_int const* n, lapack_int const* nrhs,
7378  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7379  lapack_complex_float* B, lapack_int const* ldb,
7380  lapack_complex_float* work, lapack_int const* lwork,
7381  lapack_int* info
7382 #ifdef LAPACK_FORTRAN_STRLEN_END
7383  , size_t
7384 #endif
7385 );
7386 #ifdef LAPACK_FORTRAN_STRLEN_END
7387  #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1)
7388 #else
7389  #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__)
7390 #endif
7391 
7392 #define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV)
7393 void LAPACK_zhesv_base(
7394  char const* uplo,
7395  lapack_int const* n, lapack_int const* nrhs,
7396  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7397  lapack_complex_double* B, lapack_int const* ldb,
7398  lapack_complex_double* work, lapack_int const* lwork,
7399  lapack_int* info
7400 #ifdef LAPACK_FORTRAN_STRLEN_END
7401  , size_t
7402 #endif
7403 );
7404 #ifdef LAPACK_FORTRAN_STRLEN_END
7405  #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1)
7406 #else
7407  #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__)
7408 #endif
7409 
7410 #define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA)
7411 void LAPACK_chesv_aa_base(
7412  char const* uplo,
7413  lapack_int const* n, lapack_int const* nrhs,
7414  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7415  lapack_complex_float* B, lapack_int const* ldb,
7416  lapack_complex_float* work, lapack_int const* lwork,
7417  lapack_int* info
7418 #ifdef LAPACK_FORTRAN_STRLEN_END
7419  , size_t
7420 #endif
7421 );
7422 #ifdef LAPACK_FORTRAN_STRLEN_END
7423  #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1)
7424 #else
7425  #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__)
7426 #endif
7427 
7428 #define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA)
7429 void LAPACK_zhesv_aa_base(
7430  char const* uplo,
7431  lapack_int const* n, lapack_int const* nrhs,
7432  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7433  lapack_complex_double* B, lapack_int const* ldb,
7434  lapack_complex_double* work, lapack_int const* lwork,
7435  lapack_int* info
7436 #ifdef LAPACK_FORTRAN_STRLEN_END
7437  , size_t
7438 #endif
7439 );
7440 #ifdef LAPACK_FORTRAN_STRLEN_END
7441  #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1)
7442 #else
7443  #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__)
7444 #endif
7445 
7446 #define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE)
7447 void LAPACK_chesv_aa_2stage_base(
7448  char const* uplo,
7449  lapack_int const* n, lapack_int const* nrhs,
7450  lapack_complex_float* A, lapack_int const* lda,
7451  lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7452  lapack_complex_float* B, lapack_int const* ldb,
7453  lapack_complex_float* work, lapack_int const* lwork,
7454  lapack_int* info
7455 #ifdef LAPACK_FORTRAN_STRLEN_END
7456  , size_t
7457 #endif
7458 );
7459 #ifdef LAPACK_FORTRAN_STRLEN_END
7460  #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1)
7461 #else
7462  #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__)
7463 #endif
7464 
7465 #define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE)
7466 void LAPACK_zhesv_aa_2stage_base(
7467  char const* uplo,
7468  lapack_int const* n, lapack_int const* nrhs,
7469  lapack_complex_double* A, lapack_int const* lda,
7470  lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7471  lapack_complex_double* B, lapack_int const* ldb,
7472  lapack_complex_double* work, lapack_int const* lwork,
7473  lapack_int* info
7474 #ifdef LAPACK_FORTRAN_STRLEN_END
7475  , size_t
7476 #endif
7477 );
7478 #ifdef LAPACK_FORTRAN_STRLEN_END
7479  #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1)
7480 #else
7481  #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__)
7482 #endif
7483 
7484 #define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK)
7485 void LAPACK_chesv_rk_base(
7486  char const* uplo,
7487  lapack_int const* n, lapack_int const* nrhs,
7488  lapack_complex_float* A, lapack_int const* lda,
7489  lapack_complex_float* E, lapack_int* ipiv,
7490  lapack_complex_float* B, lapack_int const* ldb,
7491  lapack_complex_float* work, lapack_int const* lwork,
7492  lapack_int* info
7493 #ifdef LAPACK_FORTRAN_STRLEN_END
7494  , size_t
7495 #endif
7496 );
7497 #ifdef LAPACK_FORTRAN_STRLEN_END
7498  #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1)
7499 #else
7500  #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__)
7501 #endif
7502 
7503 #define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK)
7504 void LAPACK_zhesv_rk_base(
7505  char const* uplo,
7506  lapack_int const* n, lapack_int const* nrhs,
7507  lapack_complex_double* A, lapack_int const* lda,
7508  lapack_complex_double* E, lapack_int* ipiv,
7509  lapack_complex_double* B, lapack_int const* ldb,
7510  lapack_complex_double* work, lapack_int const* lwork,
7511  lapack_int* info
7512 #ifdef LAPACK_FORTRAN_STRLEN_END
7513  , size_t
7514 #endif
7515 );
7516 #ifdef LAPACK_FORTRAN_STRLEN_END
7517  #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1)
7518 #else
7519  #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__)
7520 #endif
7521 
7522 #define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK)
7523 void LAPACK_chesv_rook_base(
7524  char const* uplo,
7525  lapack_int const* n, lapack_int const* nrhs,
7526  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7527  lapack_complex_float* B, lapack_int const* ldb,
7528  lapack_complex_float* work, lapack_int const* lwork,
7529  lapack_int* info
7530 #ifdef LAPACK_FORTRAN_STRLEN_END
7531  , size_t
7532 #endif
7533 );
7534 #ifdef LAPACK_FORTRAN_STRLEN_END
7535  #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1)
7536 #else
7537  #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__)
7538 #endif
7539 
7540 #define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK)
7541 void LAPACK_zhesv_rook_base(
7542  char const* uplo,
7543  lapack_int const* n, lapack_int const* nrhs,
7544  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7545  lapack_complex_double* B, lapack_int const* ldb,
7546  lapack_complex_double* work, lapack_int const* lwork,
7547  lapack_int* info
7548 #ifdef LAPACK_FORTRAN_STRLEN_END
7549  , size_t
7550 #endif
7551 );
7552 #ifdef LAPACK_FORTRAN_STRLEN_END
7553  #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1)
7554 #else
7555  #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__)
7556 #endif
7557 
7558 #define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX)
7559 void LAPACK_chesvx_base(
7560  char const* fact, char const* uplo,
7561  lapack_int const* n, lapack_int const* nrhs,
7562  lapack_complex_float const* A, lapack_int const* lda,
7563  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv,
7564  lapack_complex_float const* B, lapack_int const* ldb,
7565  lapack_complex_float* X, lapack_int const* ldx,
7566  float* rcond,
7567  float* ferr,
7568  float* berr,
7569  lapack_complex_float* work, lapack_int const* lwork,
7570  float* rwork,
7571  lapack_int* info
7572 #ifdef LAPACK_FORTRAN_STRLEN_END
7573  , size_t, size_t
7574 #endif
7575 );
7576 #ifdef LAPACK_FORTRAN_STRLEN_END
7577  #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1)
7578 #else
7579  #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__)
7580 #endif
7581 
7582 #define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX)
7583 void LAPACK_zhesvx_base(
7584  char const* fact, char const* uplo,
7585  lapack_int const* n, lapack_int const* nrhs,
7586  lapack_complex_double const* A, lapack_int const* lda,
7587  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv,
7588  lapack_complex_double const* B, lapack_int const* ldb,
7589  lapack_complex_double* X, lapack_int const* ldx,
7590  double* rcond,
7591  double* ferr,
7592  double* berr,
7593  lapack_complex_double* work, lapack_int const* lwork,
7594  double* rwork,
7595  lapack_int* info
7596 #ifdef LAPACK_FORTRAN_STRLEN_END
7597  , size_t, size_t
7598 #endif
7599 );
7600 #ifdef LAPACK_FORTRAN_STRLEN_END
7601  #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1)
7602 #else
7603  #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__)
7604 #endif
7605 
7606 #define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX)
7607 void LAPACK_chesvxx_base(
7608  char const* fact, char const* uplo,
7609  lapack_int const* n, lapack_int const* nrhs,
7610  lapack_complex_float* A, lapack_int const* lda,
7611  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
7612  float* S,
7613  lapack_complex_float* B,
7614  lapack_int const* ldb,
7615  lapack_complex_float* X, lapack_int const* ldx,
7616  float* rcond,
7617  float* rpvgrw,
7618  float* berr, lapack_int const* n_err_bnds,
7619  float* err_bnds_norm,
7620  float* err_bnds_comp, lapack_int const* nparams,
7621  float* params,
7622  lapack_complex_float* work,
7623  float* rwork,
7624  lapack_int* info
7625 #ifdef LAPACK_FORTRAN_STRLEN_END
7626  , size_t, size_t, size_t
7627 #endif
7628 );
7629 #ifdef LAPACK_FORTRAN_STRLEN_END
7630  #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1)
7631 #else
7632  #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__)
7633 #endif
7634 
7635 #define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX)
7636 void LAPACK_zhesvxx_base(
7637  char const* fact, char const* uplo,
7638  lapack_int const* n, lapack_int const* nrhs,
7639  lapack_complex_double* A, lapack_int const* lda,
7640  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
7641  double* S,
7642  lapack_complex_double* B,
7643  lapack_int const* ldb,
7644  lapack_complex_double* X, lapack_int const* ldx,
7645  double* rcond,
7646  double* rpvgrw,
7647  double* berr, lapack_int const* n_err_bnds,
7648  double* err_bnds_norm,
7649  double* err_bnds_comp, lapack_int const* nparams,
7650  double* params,
7651  lapack_complex_double* work,
7652  double* rwork,
7653  lapack_int* info
7654 #ifdef LAPACK_FORTRAN_STRLEN_END
7655  , size_t, size_t, size_t
7656 #endif
7657 );
7658 #ifdef LAPACK_FORTRAN_STRLEN_END
7659  #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1)
7660 #else
7661  #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__)
7662 #endif
7663 
7664 #define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR)
7665 void LAPACK_cheswapr_base(
7666  char const* uplo,
7667  lapack_int const* n,
7668  lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
7669 #ifdef LAPACK_FORTRAN_STRLEN_END
7670  , size_t
7671 #endif
7672 );
7673 #ifdef LAPACK_FORTRAN_STRLEN_END
7674  #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1)
7675 #else
7676  #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__)
7677 #endif
7678 
7679 #define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR)
7680 void LAPACK_zheswapr_base(
7681  char const* uplo,
7682  lapack_int const* n,
7683  lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
7684 #ifdef LAPACK_FORTRAN_STRLEN_END
7685  , size_t
7686 #endif
7687 );
7688 #ifdef LAPACK_FORTRAN_STRLEN_END
7689  #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1)
7690 #else
7691  #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__)
7692 #endif
7693 
7694 #define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD)
7695 void LAPACK_chetrd_base(
7696  char const* uplo,
7697  lapack_int const* n,
7698  lapack_complex_float* A, lapack_int const* lda,
7699  float* D,
7700  float* E,
7701  lapack_complex_float* tau,
7702  lapack_complex_float* work, lapack_int const* lwork,
7703  lapack_int* info
7704 #ifdef LAPACK_FORTRAN_STRLEN_END
7705  , size_t
7706 #endif
7707 );
7708 #ifdef LAPACK_FORTRAN_STRLEN_END
7709  #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1)
7710 #else
7711  #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__)
7712 #endif
7713 
7714 #define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD)
7715 void LAPACK_zhetrd_base(
7716  char const* uplo,
7717  lapack_int const* n,
7718  lapack_complex_double* A, lapack_int const* lda,
7719  double* D,
7720  double* E,
7721  lapack_complex_double* tau,
7722  lapack_complex_double* work, lapack_int const* lwork,
7723  lapack_int* info
7724 #ifdef LAPACK_FORTRAN_STRLEN_END
7725  , size_t
7726 #endif
7727 );
7728 #ifdef LAPACK_FORTRAN_STRLEN_END
7729  #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1)
7730 #else
7731  #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__)
7732 #endif
7733 
7734 #define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE)
7735 void LAPACK_chetrd_2stage_base(
7736  char const* vect, char const* uplo,
7737  lapack_int const* n,
7738  lapack_complex_float* A, lapack_int const* lda,
7739  float* D,
7740  float* E,
7741  lapack_complex_float* tau,
7742  lapack_complex_float* HOUS2, lapack_int const* lhous2,
7743  lapack_complex_float* work, lapack_int const* lwork,
7744  lapack_int* info
7745 #ifdef LAPACK_FORTRAN_STRLEN_END
7746  , size_t, size_t
7747 #endif
7748 );
7749 #ifdef LAPACK_FORTRAN_STRLEN_END
7750  #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1)
7751 #else
7752  #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__)
7753 #endif
7754 
7755 #define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE)
7756 void LAPACK_zhetrd_2stage_base(
7757  char const* vect, char const* uplo,
7758  lapack_int const* n,
7759  lapack_complex_double* A, lapack_int const* lda,
7760  double* D,
7761  double* E,
7762  lapack_complex_double* tau,
7763  lapack_complex_double* HOUS2, lapack_int const* lhous2,
7764  lapack_complex_double* work, lapack_int const* lwork,
7765  lapack_int* info
7766 #ifdef LAPACK_FORTRAN_STRLEN_END
7767  , size_t, size_t
7768 #endif
7769 );
7770 #ifdef LAPACK_FORTRAN_STRLEN_END
7771  #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1)
7772 #else
7773  #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__)
7774 #endif
7775 
7776 #define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF)
7777 void LAPACK_chetrf_base(
7778  char const* uplo,
7779  lapack_int const* n,
7780  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7781  lapack_complex_float* work, lapack_int const* lwork,
7782  lapack_int* info
7783 #ifdef LAPACK_FORTRAN_STRLEN_END
7784  , size_t
7785 #endif
7786 );
7787 #ifdef LAPACK_FORTRAN_STRLEN_END
7788  #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1)
7789 #else
7790  #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__)
7791 #endif
7792 
7793 #define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF)
7794 void LAPACK_zhetrf_base(
7795  char const* uplo,
7796  lapack_int const* n,
7797  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7798  lapack_complex_double* work, lapack_int const* lwork,
7799  lapack_int* info
7800 #ifdef LAPACK_FORTRAN_STRLEN_END
7801  , size_t
7802 #endif
7803 );
7804 #ifdef LAPACK_FORTRAN_STRLEN_END
7805  #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1)
7806 #else
7807  #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__)
7808 #endif
7809 
7810 #define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA)
7811 void LAPACK_chetrf_aa_base(
7812  char const* uplo,
7813  lapack_int const* n,
7814  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7815  lapack_complex_float* work, lapack_int const* lwork,
7816  lapack_int* info
7817 #ifdef LAPACK_FORTRAN_STRLEN_END
7818  , size_t
7819 #endif
7820 );
7821 #ifdef LAPACK_FORTRAN_STRLEN_END
7822  #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1)
7823 #else
7824  #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__)
7825 #endif
7826 
7827 #define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA)
7828 void LAPACK_zhetrf_aa_base(
7829  char const* uplo,
7830  lapack_int const* n,
7831  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7832  lapack_complex_double* work, lapack_int const* lwork,
7833  lapack_int* info
7834 #ifdef LAPACK_FORTRAN_STRLEN_END
7835  , size_t
7836 #endif
7837 );
7838 #ifdef LAPACK_FORTRAN_STRLEN_END
7839  #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1)
7840 #else
7841  #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__)
7842 #endif
7843 
7844 #define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE)
7845 void LAPACK_chetrf_aa_2stage_base(
7846  char const* uplo,
7847  lapack_int const* n,
7848  lapack_complex_float* A, lapack_int const* lda,
7849  lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7850  lapack_complex_float* work, lapack_int const* lwork,
7851  lapack_int* info
7852 #ifdef LAPACK_FORTRAN_STRLEN_END
7853  , size_t
7854 #endif
7855 );
7856 #ifdef LAPACK_FORTRAN_STRLEN_END
7857  #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1)
7858 #else
7859  #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__)
7860 #endif
7861 
7862 #define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE)
7863 void LAPACK_zhetrf_aa_2stage_base(
7864  char const* uplo,
7865  lapack_int const* n,
7866  lapack_complex_double* A, lapack_int const* lda,
7867  lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7868  lapack_complex_double* work, lapack_int const* lwork,
7869  lapack_int* info
7870 #ifdef LAPACK_FORTRAN_STRLEN_END
7871  , size_t
7872 #endif
7873 );
7874 #ifdef LAPACK_FORTRAN_STRLEN_END
7875  #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1)
7876 #else
7877  #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__)
7878 #endif
7879 
7880 #define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK)
7881 void LAPACK_chetrf_rk_base(
7882  char const* uplo,
7883  lapack_int const* n,
7884  lapack_complex_float* A, lapack_int const* lda,
7885  lapack_complex_float* E, lapack_int* ipiv,
7886  lapack_complex_float* work, lapack_int const* lwork,
7887  lapack_int* info
7888 #ifdef LAPACK_FORTRAN_STRLEN_END
7889  , size_t
7890 #endif
7891 );
7892 #ifdef LAPACK_FORTRAN_STRLEN_END
7893  #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1)
7894 #else
7895  #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__)
7896 #endif
7897 
7898 #define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK)
7899 void LAPACK_zhetrf_rk_base(
7900  char const* uplo,
7901  lapack_int const* n,
7902  lapack_complex_double* A, lapack_int const* lda,
7903  lapack_complex_double* E, lapack_int* ipiv,
7904  lapack_complex_double* work, lapack_int const* lwork,
7905  lapack_int* info
7906 #ifdef LAPACK_FORTRAN_STRLEN_END
7907  , size_t
7908 #endif
7909 );
7910 #ifdef LAPACK_FORTRAN_STRLEN_END
7911  #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1)
7912 #else
7913  #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__)
7914 #endif
7915 
7916 #define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK)
7917 void LAPACK_chetrf_rook_base(
7918  char const* uplo,
7919  lapack_int const* n,
7920  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7921  lapack_complex_float* work, lapack_int const* lwork,
7922  lapack_int* info
7923 #ifdef LAPACK_FORTRAN_STRLEN_END
7924  , size_t
7925 #endif
7926 );
7927 #ifdef LAPACK_FORTRAN_STRLEN_END
7928  #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1)
7929 #else
7930  #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__)
7931 #endif
7932 
7933 #define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK)
7934 void LAPACK_zhetrf_rook_base(
7935  char const* uplo,
7936  lapack_int const* n,
7937  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7938  lapack_complex_double* work, lapack_int const* lwork,
7939  lapack_int* info
7940 #ifdef LAPACK_FORTRAN_STRLEN_END
7941  , size_t
7942 #endif
7943 );
7944 #ifdef LAPACK_FORTRAN_STRLEN_END
7945  #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1)
7946 #else
7947  #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__)
7948 #endif
7949 
7950 #define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI)
7951 void LAPACK_chetri_base(
7952  char const* uplo,
7953  lapack_int const* n,
7954  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
7955  lapack_complex_float* work,
7956  lapack_int* info
7957 #ifdef LAPACK_FORTRAN_STRLEN_END
7958  , size_t
7959 #endif
7960 );
7961 #ifdef LAPACK_FORTRAN_STRLEN_END
7962  #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1)
7963 #else
7964  #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__)
7965 #endif
7966 
7967 #define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI)
7968 void LAPACK_zhetri_base(
7969  char const* uplo,
7970  lapack_int const* n,
7971  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
7972  lapack_complex_double* work,
7973  lapack_int* info
7974 #ifdef LAPACK_FORTRAN_STRLEN_END
7975  , size_t
7976 #endif
7977 );
7978 #ifdef LAPACK_FORTRAN_STRLEN_END
7979  #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1)
7980 #else
7981  #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__)
7982 #endif
7983 
7984 #define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2)
7985 void LAPACK_chetri2_base(
7986  char const* uplo,
7987  lapack_int const* n,
7988  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
7989  lapack_complex_float* work, lapack_int const* lwork,
7990  lapack_int* info
7991 #ifdef LAPACK_FORTRAN_STRLEN_END
7992  , size_t
7993 #endif
7994 );
7995 #ifdef LAPACK_FORTRAN_STRLEN_END
7996  #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1)
7997 #else
7998  #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__)
7999 #endif
8000 
8001 #define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2)
8002 void LAPACK_zhetri2_base(
8003  char const* uplo,
8004  lapack_int const* n,
8005  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8006  lapack_complex_double* work, lapack_int const* lwork,
8007  lapack_int* info
8008 #ifdef LAPACK_FORTRAN_STRLEN_END
8009  , size_t
8010 #endif
8011 );
8012 #ifdef LAPACK_FORTRAN_STRLEN_END
8013  #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1)
8014 #else
8015  #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__)
8016 #endif
8017 
8018 #define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X)
8019 void LAPACK_chetri2x_base(
8020  char const* uplo,
8021  lapack_int const* n,
8022  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
8023  lapack_complex_float* work, lapack_int const* nb,
8024  lapack_int* info
8025 #ifdef LAPACK_FORTRAN_STRLEN_END
8026  , size_t
8027 #endif
8028 );
8029 #ifdef LAPACK_FORTRAN_STRLEN_END
8030  #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1)
8031 #else
8032  #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__)
8033 #endif
8034 
8035 #define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X)
8036 void LAPACK_zhetri2x_base(
8037  char const* uplo,
8038  lapack_int const* n,
8039  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8040  lapack_complex_double* work, lapack_int const* nb,
8041  lapack_int* info
8042 #ifdef LAPACK_FORTRAN_STRLEN_END
8043  , size_t
8044 #endif
8045 );
8046 #ifdef LAPACK_FORTRAN_STRLEN_END
8047  #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1)
8048 #else
8049  #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__)
8050 #endif
8051 
8052 #define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3)
8053 void LAPACK_chetri_3_base(
8054  char const* uplo,
8055  lapack_int const* n,
8056  lapack_complex_float* A, lapack_int const* lda,
8057  lapack_complex_float const* E, lapack_int const* ipiv,
8058  lapack_complex_float* work, lapack_int const* lwork,
8059  lapack_int* info
8060 #ifdef LAPACK_FORTRAN_STRLEN_END
8061  , size_t
8062 #endif
8063 );
8064 #ifdef LAPACK_FORTRAN_STRLEN_END
8065  #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1)
8066 #else
8067  #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__)
8068 #endif
8069 
8070 #define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3)
8071 void LAPACK_zhetri_3_base(
8072  char const* uplo,
8073  lapack_int const* n,
8074  lapack_complex_double* A, lapack_int const* lda,
8075  lapack_complex_double const* E, lapack_int const* ipiv,
8076  lapack_complex_double* work, lapack_int const* lwork,
8077  lapack_int* info
8078 #ifdef LAPACK_FORTRAN_STRLEN_END
8079  , size_t
8080 #endif
8081 );
8082 #ifdef LAPACK_FORTRAN_STRLEN_END
8083  #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1)
8084 #else
8085  #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__)
8086 #endif
8087 
8088 #define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS)
8089 void LAPACK_chetrs_base(
8090  char const* uplo,
8091  lapack_int const* n, lapack_int const* nrhs,
8092  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8093  lapack_complex_float* B, lapack_int const* ldb,
8094  lapack_int* info
8095 #ifdef LAPACK_FORTRAN_STRLEN_END
8096  , size_t
8097 #endif
8098 );
8099 #ifdef LAPACK_FORTRAN_STRLEN_END
8100  #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1)
8101 #else
8102  #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__)
8103 #endif
8104 
8105 #define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS)
8106 void LAPACK_zhetrs_base(
8107  char const* uplo,
8108  lapack_int const* n, lapack_int const* nrhs,
8109  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8110  lapack_complex_double* B, lapack_int const* ldb,
8111  lapack_int* info
8112 #ifdef LAPACK_FORTRAN_STRLEN_END
8113  , size_t
8114 #endif
8115 );
8116 #ifdef LAPACK_FORTRAN_STRLEN_END
8117  #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1)
8118 #else
8119  #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__)
8120 #endif
8121 
8122 #define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2)
8123 void LAPACK_chetrs2_base(
8124  char const* uplo,
8125  lapack_int const* n, lapack_int const* nrhs,
8126  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8127  lapack_complex_float* B, lapack_int const* ldb,
8128  lapack_complex_float* work,
8129  lapack_int* info
8130 #ifdef LAPACK_FORTRAN_STRLEN_END
8131  , size_t
8132 #endif
8133 );
8134 #ifdef LAPACK_FORTRAN_STRLEN_END
8135  #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1)
8136 #else
8137  #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__)
8138 #endif
8139 
8140 #define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2)
8141 void LAPACK_zhetrs2_base(
8142  char const* uplo,
8143  lapack_int const* n, lapack_int const* nrhs,
8144  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8145  lapack_complex_double* B, lapack_int const* ldb,
8146  lapack_complex_double* work,
8147  lapack_int* info
8148 #ifdef LAPACK_FORTRAN_STRLEN_END
8149  , size_t
8150 #endif
8151 );
8152 #ifdef LAPACK_FORTRAN_STRLEN_END
8153  #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1)
8154 #else
8155  #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__)
8156 #endif
8157 
8158 #define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3)
8159 void LAPACK_chetrs_3_base(
8160  char const* uplo,
8161  lapack_int const* n, lapack_int const* nrhs,
8162  lapack_complex_float const* A, lapack_int const* lda,
8163  lapack_complex_float const* E, lapack_int const* ipiv,
8164  lapack_complex_float* B, lapack_int const* ldb,
8165  lapack_int* info
8166 #ifdef LAPACK_FORTRAN_STRLEN_END
8167  , size_t
8168 #endif
8169 );
8170 #ifdef LAPACK_FORTRAN_STRLEN_END
8171  #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1)
8172 #else
8173  #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__)
8174 #endif
8175 
8176 #define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3)
8177 void LAPACK_zhetrs_3_base(
8178  char const* uplo,
8179  lapack_int const* n, lapack_int const* nrhs,
8180  lapack_complex_double const* A, lapack_int const* lda,
8181  lapack_complex_double const* E, lapack_int const* ipiv,
8182  lapack_complex_double* B, lapack_int const* ldb,
8183  lapack_int* info
8184 #ifdef LAPACK_FORTRAN_STRLEN_END
8185  , size_t
8186 #endif
8187 );
8188 #ifdef LAPACK_FORTRAN_STRLEN_END
8189  #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1)
8190 #else
8191  #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__)
8192 #endif
8193 
8194 #define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA)
8195 void LAPACK_chetrs_aa_base(
8196  char const* uplo,
8197  lapack_int const* n, lapack_int const* nrhs,
8198  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8199  lapack_complex_float* B, lapack_int const* ldb,
8200  lapack_complex_float* work, lapack_int const* lwork,
8201  lapack_int* info
8202 #ifdef LAPACK_FORTRAN_STRLEN_END
8203  , size_t
8204 #endif
8205 );
8206 #ifdef LAPACK_FORTRAN_STRLEN_END
8207  #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1)
8208 #else
8209  #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__)
8210 #endif
8211 
8212 #define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA)
8213 void LAPACK_zhetrs_aa_base(
8214  char const* uplo,
8215  lapack_int const* n, lapack_int const* nrhs,
8216  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8217  lapack_complex_double* B, lapack_int const* ldb,
8218  lapack_complex_double* work, lapack_int const* lwork,
8219  lapack_int* info
8220 #ifdef LAPACK_FORTRAN_STRLEN_END
8221  , size_t
8222 #endif
8223 );
8224 #ifdef LAPACK_FORTRAN_STRLEN_END
8225  #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1)
8226 #else
8227  #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__)
8228 #endif
8229 
8230 #define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE)
8231 void LAPACK_chetrs_aa_2stage_base(
8232  char const* uplo,
8233  lapack_int const* n, lapack_int const* nrhs,
8234  lapack_complex_float const* A, lapack_int const* lda,
8235  lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
8236  lapack_complex_float* B, lapack_int const* ldb,
8237  lapack_int* info
8238 #ifdef LAPACK_FORTRAN_STRLEN_END
8239  , size_t
8240 #endif
8241 );
8242 #ifdef LAPACK_FORTRAN_STRLEN_END
8243  #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1)
8244 #else
8245  #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__)
8246 #endif
8247 
8248 #define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE)
8249 void LAPACK_zhetrs_aa_2stage_base(
8250  char const* uplo,
8251  lapack_int const* n, lapack_int const* nrhs,
8252  lapack_complex_double const* A, lapack_int const* lda,
8253  lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
8254  lapack_complex_double* B, lapack_int const* ldb,
8255  lapack_int* info
8256 #ifdef LAPACK_FORTRAN_STRLEN_END
8257  , size_t
8258 #endif
8259 );
8260 #ifdef LAPACK_FORTRAN_STRLEN_END
8261  #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1)
8262 #else
8263  #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__)
8264 #endif
8265 
8266 #define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK)
8267 void LAPACK_chetrs_rook_base(
8268  char const* uplo,
8269  lapack_int const* n, lapack_int const* nrhs,
8270  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8271  lapack_complex_float* B, lapack_int const* ldb,
8272  lapack_int* info
8273 #ifdef LAPACK_FORTRAN_STRLEN_END
8274  , size_t
8275 #endif
8276 );
8277 #ifdef LAPACK_FORTRAN_STRLEN_END
8278  #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1)
8279 #else
8280  #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__)
8281 #endif
8282 
8283 #define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK)
8284 void LAPACK_zhetrs_rook_base(
8285  char const* uplo,
8286  lapack_int const* n, lapack_int const* nrhs,
8287  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8288  lapack_complex_double* B, lapack_int const* ldb,
8289  lapack_int* info
8290 #ifdef LAPACK_FORTRAN_STRLEN_END
8291  , size_t
8292 #endif
8293 );
8294 #ifdef LAPACK_FORTRAN_STRLEN_END
8295  #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1)
8296 #else
8297  #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__)
8298 #endif
8299 
8300 #define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK)
8301 void LAPACK_chfrk_base(
8302  char const* transr, char const* uplo, char const* trans,
8303  lapack_int const* n, lapack_int const* k,
8304  float const* alpha,
8305  lapack_complex_float const* A, lapack_int const* lda,
8306  float const* beta,
8307  lapack_complex_float* C
8308 #ifdef LAPACK_FORTRAN_STRLEN_END
8309  , size_t, size_t, size_t
8310 #endif
8311 );
8312 #ifdef LAPACK_FORTRAN_STRLEN_END
8313  #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1)
8314 #else
8315  #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__)
8316 #endif
8317 
8318 #define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK)
8319 void LAPACK_zhfrk_base(
8320  char const* transr, char const* uplo, char const* trans,
8321  lapack_int const* n, lapack_int const* k,
8322  double const* alpha,
8323  lapack_complex_double const* A, lapack_int const* lda,
8324  double const* beta,
8325  lapack_complex_double* C
8326 #ifdef LAPACK_FORTRAN_STRLEN_END
8327  , size_t, size_t, size_t
8328 #endif
8329 );
8330 #ifdef LAPACK_FORTRAN_STRLEN_END
8331  #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1)
8332 #else
8333  #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__)
8334 #endif
8335 
8336 #define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ)
8337 void LAPACK_chgeqz_base(
8338  char const* job, char const* compq, char const* compz,
8339  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8340  lapack_complex_float* H, lapack_int const* ldh,
8341  lapack_complex_float* T, lapack_int const* ldt,
8342  lapack_complex_float* alpha,
8343  lapack_complex_float* beta,
8344  lapack_complex_float* Q, lapack_int const* ldq,
8345  lapack_complex_float* Z, lapack_int const* ldz,
8346  lapack_complex_float* work, lapack_int const* lwork,
8347  float* rwork,
8348  lapack_int* info
8349 #ifdef LAPACK_FORTRAN_STRLEN_END
8350  , size_t, size_t, size_t
8351 #endif
8352 );
8353 #ifdef LAPACK_FORTRAN_STRLEN_END
8354  #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1)
8355 #else
8356  #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__)
8357 #endif
8358 
8359 #define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ)
8360 void LAPACK_dhgeqz_base(
8361  char const* job, char const* compq, char const* compz,
8362  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8363  double* H, lapack_int const* ldh,
8364  double* T, lapack_int const* ldt,
8365  double* alphar,
8366  double* alphai,
8367  double* beta,
8368  double* Q, lapack_int const* ldq,
8369  double* Z, lapack_int const* ldz,
8370  double* work, lapack_int const* lwork,
8371  lapack_int* info
8372 #ifdef LAPACK_FORTRAN_STRLEN_END
8373  , size_t, size_t, size_t
8374 #endif
8375 );
8376 #ifdef LAPACK_FORTRAN_STRLEN_END
8377  #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1)
8378 #else
8379  #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__)
8380 #endif
8381 
8382 #define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ)
8383 void LAPACK_shgeqz_base(
8384  char const* job, char const* compq, char const* compz,
8385  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8386  float* H, lapack_int const* ldh,
8387  float* T, lapack_int const* ldt,
8388  float* alphar,
8389  float* alphai,
8390  float* beta,
8391  float* Q, lapack_int const* ldq,
8392  float* Z, lapack_int const* ldz,
8393  float* work, lapack_int const* lwork,
8394  lapack_int* info
8395 #ifdef LAPACK_FORTRAN_STRLEN_END
8396  , size_t, size_t, size_t
8397 #endif
8398 );
8399 #ifdef LAPACK_FORTRAN_STRLEN_END
8400  #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1)
8401 #else
8402  #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__)
8403 #endif
8404 
8405 #define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ)
8406 void LAPACK_zhgeqz_base(
8407  char const* job, char const* compq, char const* compz,
8408  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8409  lapack_complex_double* H, lapack_int const* ldh,
8410  lapack_complex_double* T, lapack_int const* ldt,
8411  lapack_complex_double* alpha,
8412  lapack_complex_double* beta,
8413  lapack_complex_double* Q, lapack_int const* ldq,
8414  lapack_complex_double* Z, lapack_int const* ldz,
8415  lapack_complex_double* work, lapack_int const* lwork,
8416  double* rwork,
8417  lapack_int* info
8418 #ifdef LAPACK_FORTRAN_STRLEN_END
8419  , size_t, size_t, size_t
8420 #endif
8421 );
8422 #ifdef LAPACK_FORTRAN_STRLEN_END
8423  #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1)
8424 #else
8425  #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__)
8426 #endif
8427 
8428 #define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON)
8429 void LAPACK_chpcon_base(
8430  char const* uplo,
8431  lapack_int const* n,
8432  lapack_complex_float const* AP, lapack_int const* ipiv,
8433  float const* anorm,
8434  float* rcond,
8435  lapack_complex_float* work,
8436  lapack_int* info
8437 #ifdef LAPACK_FORTRAN_STRLEN_END
8438  , size_t
8439 #endif
8440 );
8441 #ifdef LAPACK_FORTRAN_STRLEN_END
8442  #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1)
8443 #else
8444  #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__)
8445 #endif
8446 
8447 #define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON)
8448 void LAPACK_zhpcon_base(
8449  char const* uplo,
8450  lapack_int const* n,
8451  lapack_complex_double const* AP, lapack_int const* ipiv,
8452  double const* anorm,
8453  double* rcond,
8454  lapack_complex_double* work,
8455  lapack_int* info
8456 #ifdef LAPACK_FORTRAN_STRLEN_END
8457  , size_t
8458 #endif
8459 );
8460 #ifdef LAPACK_FORTRAN_STRLEN_END
8461  #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1)
8462 #else
8463  #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__)
8464 #endif
8465 
8466 #define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV)
8467 void LAPACK_chpev_base(
8468  char const* jobz, char const* uplo,
8469  lapack_int const* n,
8470  lapack_complex_float* AP,
8471  float* W,
8472  lapack_complex_float* Z, lapack_int const* ldz,
8473  lapack_complex_float* work,
8474  float* rwork,
8475  lapack_int* info
8476 #ifdef LAPACK_FORTRAN_STRLEN_END
8477  , size_t, size_t
8478 #endif
8479 );
8480 #ifdef LAPACK_FORTRAN_STRLEN_END
8481  #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1)
8482 #else
8483  #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__)
8484 #endif
8485 
8486 #define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV)
8487 void LAPACK_zhpev_base(
8488  char const* jobz, char const* uplo,
8489  lapack_int const* n,
8490  lapack_complex_double* AP,
8491  double* W,
8492  lapack_complex_double* Z, lapack_int const* ldz,
8493  lapack_complex_double* work,
8494  double* rwork,
8495  lapack_int* info
8496 #ifdef LAPACK_FORTRAN_STRLEN_END
8497  , size_t, size_t
8498 #endif
8499 );
8500 #ifdef LAPACK_FORTRAN_STRLEN_END
8501  #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1)
8502 #else
8503  #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__)
8504 #endif
8505 
8506 #define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD)
8507 void LAPACK_chpevd_base(
8508  char const* jobz, char const* uplo,
8509  lapack_int const* n,
8510  lapack_complex_float* AP,
8511  float* W,
8512  lapack_complex_float* Z, lapack_int const* ldz,
8513  lapack_complex_float* work, lapack_int const* lwork,
8514  float* rwork, lapack_int const* lrwork,
8515  lapack_int* iwork, lapack_int const* liwork,
8516  lapack_int* info
8517 #ifdef LAPACK_FORTRAN_STRLEN_END
8518  , size_t, size_t
8519 #endif
8520 );
8521 #ifdef LAPACK_FORTRAN_STRLEN_END
8522  #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1)
8523 #else
8524  #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__)
8525 #endif
8526 
8527 #define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD)
8528 void LAPACK_zhpevd_base(
8529  char const* jobz, char const* uplo,
8530  lapack_int const* n,
8531  lapack_complex_double* AP,
8532  double* W,
8533  lapack_complex_double* Z, lapack_int const* ldz,
8534  lapack_complex_double* work, lapack_int const* lwork,
8535  double* rwork, lapack_int const* lrwork,
8536  lapack_int* iwork, lapack_int const* liwork,
8537  lapack_int* info
8538 #ifdef LAPACK_FORTRAN_STRLEN_END
8539  , size_t, size_t
8540 #endif
8541 );
8542 #ifdef LAPACK_FORTRAN_STRLEN_END
8543  #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1)
8544 #else
8545  #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__)
8546 #endif
8547 
8548 #define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX)
8549 void LAPACK_chpevx_base(
8550  char const* jobz, char const* range, char const* uplo,
8551  lapack_int const* n,
8552  lapack_complex_float* AP,
8553  float const* vl,
8554  float const* vu, lapack_int const* il, lapack_int const* iu,
8555  float const* abstol, lapack_int* m,
8556  float* W,
8557  lapack_complex_float* Z, lapack_int const* ldz,
8558  lapack_complex_float* work,
8559  float* rwork,
8560  lapack_int* iwork, lapack_int* IFAIL,
8561  lapack_int* info
8562 #ifdef LAPACK_FORTRAN_STRLEN_END
8563  , size_t, size_t, size_t
8564 #endif
8565 );
8566 #ifdef LAPACK_FORTRAN_STRLEN_END
8567  #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1)
8568 #else
8569  #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__)
8570 #endif
8571 
8572 #define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX)
8573 void LAPACK_zhpevx_base(
8574  char const* jobz, char const* range, char const* uplo,
8575  lapack_int const* n,
8576  lapack_complex_double* AP,
8577  double const* vl,
8578  double const* vu, lapack_int const* il, lapack_int const* iu,
8579  double const* abstol, lapack_int* m,
8580  double* W,
8581  lapack_complex_double* Z, lapack_int const* ldz,
8582  lapack_complex_double* work,
8583  double* rwork,
8584  lapack_int* iwork, lapack_int* IFAIL,
8585  lapack_int* info
8586 #ifdef LAPACK_FORTRAN_STRLEN_END
8587  , size_t, size_t, size_t
8588 #endif
8589 );
8590 #ifdef LAPACK_FORTRAN_STRLEN_END
8591  #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1)
8592 #else
8593  #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__)
8594 #endif
8595 
8596 #define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST)
8597 void LAPACK_chpgst_base(
8598  lapack_int const* itype, char const* uplo,
8599  lapack_int const* n,
8600  lapack_complex_float* AP,
8601  lapack_complex_float const* BP,
8602  lapack_int* info
8603 #ifdef LAPACK_FORTRAN_STRLEN_END
8604  , size_t
8605 #endif
8606 );
8607 #ifdef LAPACK_FORTRAN_STRLEN_END
8608  #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1)
8609 #else
8610  #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__)
8611 #endif
8612 
8613 #define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST)
8614 void LAPACK_zhpgst_base(
8615  lapack_int const* itype, char const* uplo,
8616  lapack_int const* n,
8617  lapack_complex_double* AP,
8618  lapack_complex_double const* BP,
8619  lapack_int* info
8620 #ifdef LAPACK_FORTRAN_STRLEN_END
8621  , size_t
8622 #endif
8623 );
8624 #ifdef LAPACK_FORTRAN_STRLEN_END
8625  #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1)
8626 #else
8627  #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__)
8628 #endif
8629 
8630 #define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV)
8631 void LAPACK_chpgv_base(
8632  lapack_int const* itype, char const* jobz, char const* uplo,
8633  lapack_int const* n,
8634  lapack_complex_float* AP,
8635  lapack_complex_float* BP,
8636  float* W,
8637  lapack_complex_float* Z, lapack_int const* ldz,
8638  lapack_complex_float* work,
8639  float* rwork,
8640  lapack_int* info
8641 #ifdef LAPACK_FORTRAN_STRLEN_END
8642  , size_t, size_t
8643 #endif
8644 );
8645 #ifdef LAPACK_FORTRAN_STRLEN_END
8646  #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1)
8647 #else
8648  #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__)
8649 #endif
8650 
8651 #define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV)
8652 void LAPACK_zhpgv_base(
8653  lapack_int const* itype, char const* jobz, char const* uplo,
8654  lapack_int const* n,
8655  lapack_complex_double* AP,
8656  lapack_complex_double* BP,
8657  double* W,
8658  lapack_complex_double* Z, lapack_int const* ldz,
8659  lapack_complex_double* work,
8660  double* rwork,
8661  lapack_int* info
8662 #ifdef LAPACK_FORTRAN_STRLEN_END
8663  , size_t, size_t
8664 #endif
8665 );
8666 #ifdef LAPACK_FORTRAN_STRLEN_END
8667  #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1)
8668 #else
8669  #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__)
8670 #endif
8671 
8672 #define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD)
8673 void LAPACK_chpgvd_base(
8674  lapack_int const* itype, char const* jobz, char const* uplo,
8675  lapack_int const* n,
8676  lapack_complex_float* AP,
8677  lapack_complex_float* BP,
8678  float* W,
8679  lapack_complex_float* Z, lapack_int const* ldz,
8680  lapack_complex_float* work, lapack_int const* lwork,
8681  float* rwork, lapack_int const* lrwork,
8682  lapack_int* iwork, lapack_int const* liwork,
8683  lapack_int* info
8684 #ifdef LAPACK_FORTRAN_STRLEN_END
8685  , size_t, size_t
8686 #endif
8687 );
8688 #ifdef LAPACK_FORTRAN_STRLEN_END
8689  #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1)
8690 #else
8691  #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__)
8692 #endif
8693 
8694 #define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD)
8695 void LAPACK_zhpgvd_base(
8696  lapack_int const* itype, char const* jobz, char const* uplo,
8697  lapack_int const* n,
8698  lapack_complex_double* AP,
8699  lapack_complex_double* BP,
8700  double* W,
8701  lapack_complex_double* Z, lapack_int const* ldz,
8702  lapack_complex_double* work, lapack_int const* lwork,
8703  double* rwork, lapack_int const* lrwork,
8704  lapack_int* iwork, lapack_int const* liwork,
8705  lapack_int* info
8706 #ifdef LAPACK_FORTRAN_STRLEN_END
8707  , size_t, size_t
8708 #endif
8709 );
8710 #ifdef LAPACK_FORTRAN_STRLEN_END
8711  #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1)
8712 #else
8713  #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__)
8714 #endif
8715 
8716 #define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX)
8717 void LAPACK_chpgvx_base(
8718  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
8719  lapack_int const* n,
8720  lapack_complex_float* AP,
8721  lapack_complex_float* BP,
8722  float const* vl,
8723  float const* vu, lapack_int const* il, lapack_int const* iu,
8724  float const* abstol, lapack_int* m,
8725  float* W,
8726  lapack_complex_float* Z, lapack_int const* ldz,
8727  lapack_complex_float* work,
8728  float* rwork,
8729  lapack_int* iwork, lapack_int* IFAIL,
8730  lapack_int* info
8731 #ifdef LAPACK_FORTRAN_STRLEN_END
8732  , size_t, size_t, size_t
8733 #endif
8734 );
8735 #ifdef LAPACK_FORTRAN_STRLEN_END
8736  #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1)
8737 #else
8738  #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__)
8739 #endif
8740 
8741 #define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX)
8742 void LAPACK_zhpgvx_base(
8743  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
8744  lapack_int const* n,
8745  lapack_complex_double* AP,
8746  lapack_complex_double* BP,
8747  double const* vl,
8748  double const* vu, lapack_int const* il, lapack_int const* iu,
8749  double const* abstol, lapack_int* m,
8750  double* W,
8751  lapack_complex_double* Z, lapack_int const* ldz,
8752  lapack_complex_double* work,
8753  double* rwork,
8754  lapack_int* iwork, lapack_int* IFAIL,
8755  lapack_int* info
8756 #ifdef LAPACK_FORTRAN_STRLEN_END
8757  , size_t, size_t, size_t
8758 #endif
8759 );
8760 #ifdef LAPACK_FORTRAN_STRLEN_END
8761  #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1)
8762 #else
8763  #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__)
8764 #endif
8765 
8766 #define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS)
8767 void LAPACK_chprfs_base(
8768  char const* uplo,
8769  lapack_int const* n, lapack_int const* nrhs,
8770  lapack_complex_float const* AP,
8771  lapack_complex_float const* AFP, lapack_int const* ipiv,
8772  lapack_complex_float const* B, lapack_int const* ldb,
8773  lapack_complex_float* X, lapack_int const* ldx,
8774  float* ferr,
8775  float* berr,
8776  lapack_complex_float* work,
8777  float* rwork,
8778  lapack_int* info
8779 #ifdef LAPACK_FORTRAN_STRLEN_END
8780  , size_t
8781 #endif
8782 );
8783 #ifdef LAPACK_FORTRAN_STRLEN_END
8784  #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1)
8785 #else
8786  #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__)
8787 #endif
8788 
8789 #define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS)
8790 void LAPACK_zhprfs_base(
8791  char const* uplo,
8792  lapack_int const* n, lapack_int const* nrhs,
8793  lapack_complex_double const* AP,
8794  lapack_complex_double const* AFP, lapack_int const* ipiv,
8795  lapack_complex_double const* B, lapack_int const* ldb,
8796  lapack_complex_double* X, lapack_int const* ldx,
8797  double* ferr,
8798  double* berr,
8799  lapack_complex_double* work,
8800  double* rwork,
8801  lapack_int* info
8802 #ifdef LAPACK_FORTRAN_STRLEN_END
8803  , size_t
8804 #endif
8805 );
8806 #ifdef LAPACK_FORTRAN_STRLEN_END
8807  #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1)
8808 #else
8809  #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__)
8810 #endif
8811 
8812 #define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV)
8813 void LAPACK_chpsv_base(
8814  char const* uplo,
8815  lapack_int const* n, lapack_int const* nrhs,
8816  lapack_complex_float* AP, lapack_int* ipiv,
8817  lapack_complex_float* B, lapack_int const* ldb,
8818  lapack_int* info
8819 #ifdef LAPACK_FORTRAN_STRLEN_END
8820  , size_t
8821 #endif
8822 );
8823 #ifdef LAPACK_FORTRAN_STRLEN_END
8824  #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1)
8825 #else
8826  #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__)
8827 #endif
8828 
8829 #define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV)
8830 void LAPACK_zhpsv_base(
8831  char const* uplo,
8832  lapack_int const* n, lapack_int const* nrhs,
8833  lapack_complex_double* AP, lapack_int* ipiv,
8834  lapack_complex_double* B, lapack_int const* ldb,
8835  lapack_int* info
8836 #ifdef LAPACK_FORTRAN_STRLEN_END
8837  , size_t
8838 #endif
8839 );
8840 #ifdef LAPACK_FORTRAN_STRLEN_END
8841  #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1)
8842 #else
8843  #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__)
8844 #endif
8845 
8846 #define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX)
8847 void LAPACK_chpsvx_base(
8848  char const* fact, char const* uplo,
8849  lapack_int const* n, lapack_int const* nrhs,
8850  lapack_complex_float const* AP,
8851  lapack_complex_float* AFP, lapack_int* ipiv,
8852  lapack_complex_float const* B, lapack_int const* ldb,
8853  lapack_complex_float* X, lapack_int const* ldx,
8854  float* rcond,
8855  float* ferr,
8856  float* berr,
8857  lapack_complex_float* work,
8858  float* rwork,
8859  lapack_int* info
8860 #ifdef LAPACK_FORTRAN_STRLEN_END
8861  , size_t, size_t
8862 #endif
8863 );
8864 #ifdef LAPACK_FORTRAN_STRLEN_END
8865  #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1)
8866 #else
8867  #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__)
8868 #endif
8869 
8870 #define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX)
8871 void LAPACK_zhpsvx_base(
8872  char const* fact, char const* uplo,
8873  lapack_int const* n, lapack_int const* nrhs,
8874  lapack_complex_double const* AP,
8875  lapack_complex_double* AFP, lapack_int* ipiv,
8876  lapack_complex_double const* B, lapack_int const* ldb,
8877  lapack_complex_double* X, lapack_int const* ldx,
8878  double* rcond,
8879  double* ferr,
8880  double* berr,
8881  lapack_complex_double* work,
8882  double* rwork,
8883  lapack_int* info
8884 #ifdef LAPACK_FORTRAN_STRLEN_END
8885  , size_t, size_t
8886 #endif
8887 );
8888 #ifdef LAPACK_FORTRAN_STRLEN_END
8889  #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1)
8890 #else
8891  #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__)
8892 #endif
8893 
8894 #define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD)
8895 void LAPACK_chptrd_base(
8896  char const* uplo,
8897  lapack_int const* n,
8898  lapack_complex_float* AP,
8899  float* D,
8900  float* E,
8901  lapack_complex_float* tau,
8902  lapack_int* info
8903 #ifdef LAPACK_FORTRAN_STRLEN_END
8904  , size_t
8905 #endif
8906 );
8907 #ifdef LAPACK_FORTRAN_STRLEN_END
8908  #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1)
8909 #else
8910  #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__)
8911 #endif
8912 
8913 #define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD)
8914 void LAPACK_zhptrd_base(
8915  char const* uplo,
8916  lapack_int const* n,
8917  lapack_complex_double* AP,
8918  double* D,
8919  double* E,
8920  lapack_complex_double* tau,
8921  lapack_int* info
8922 #ifdef LAPACK_FORTRAN_STRLEN_END
8923  , size_t
8924 #endif
8925 );
8926 #ifdef LAPACK_FORTRAN_STRLEN_END
8927  #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1)
8928 #else
8929  #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__)
8930 #endif
8931 
8932 #define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF)
8933 void LAPACK_chptrf_base(
8934  char const* uplo,
8935  lapack_int const* n,
8936  lapack_complex_float* AP, lapack_int* ipiv,
8937  lapack_int* info
8938 #ifdef LAPACK_FORTRAN_STRLEN_END
8939  , size_t
8940 #endif
8941 );
8942 #ifdef LAPACK_FORTRAN_STRLEN_END
8943  #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1)
8944 #else
8945  #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__)
8946 #endif
8947 
8948 #define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF)
8949 void LAPACK_zhptrf_base(
8950  char const* uplo,
8951  lapack_int const* n,
8952  lapack_complex_double* AP, lapack_int* ipiv,
8953  lapack_int* info
8954 #ifdef LAPACK_FORTRAN_STRLEN_END
8955  , size_t
8956 #endif
8957 );
8958 #ifdef LAPACK_FORTRAN_STRLEN_END
8959  #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1)
8960 #else
8961  #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__)
8962 #endif
8963 
8964 #define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI)
8965 void LAPACK_chptri_base(
8966  char const* uplo,
8967  lapack_int const* n,
8968  lapack_complex_float* AP, lapack_int const* ipiv,
8969  lapack_complex_float* work,
8970  lapack_int* info
8971 #ifdef LAPACK_FORTRAN_STRLEN_END
8972  , size_t
8973 #endif
8974 );
8975 #ifdef LAPACK_FORTRAN_STRLEN_END
8976  #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1)
8977 #else
8978  #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__)
8979 #endif
8980 
8981 #define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI)
8982 void LAPACK_zhptri_base(
8983  char const* uplo,
8984  lapack_int const* n,
8985  lapack_complex_double* AP, lapack_int const* ipiv,
8986  lapack_complex_double* work,
8987  lapack_int* info
8988 #ifdef LAPACK_FORTRAN_STRLEN_END
8989  , size_t
8990 #endif
8991 );
8992 #ifdef LAPACK_FORTRAN_STRLEN_END
8993  #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1)
8994 #else
8995  #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__)
8996 #endif
8997 
8998 #define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS)
8999 void LAPACK_chptrs_base(
9000  char const* uplo,
9001  lapack_int const* n, lapack_int const* nrhs,
9002  lapack_complex_float const* AP, lapack_int const* ipiv,
9003  lapack_complex_float* B, lapack_int const* ldb,
9004  lapack_int* info
9005 #ifdef LAPACK_FORTRAN_STRLEN_END
9006  , size_t
9007 #endif
9008 );
9009 #ifdef LAPACK_FORTRAN_STRLEN_END
9010  #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1)
9011 #else
9012  #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__)
9013 #endif
9014 
9015 #define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS)
9016 void LAPACK_zhptrs_base(
9017  char const* uplo,
9018  lapack_int const* n, lapack_int const* nrhs,
9019  lapack_complex_double const* AP, lapack_int const* ipiv,
9020  lapack_complex_double* B, lapack_int const* ldb,
9021  lapack_int* info
9022 #ifdef LAPACK_FORTRAN_STRLEN_END
9023  , size_t
9024 #endif
9025 );
9026 #ifdef LAPACK_FORTRAN_STRLEN_END
9027  #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1)
9028 #else
9029  #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__)
9030 #endif
9031 
9032 #define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN)
9033 void LAPACK_chsein_base(
9034  char const* side, char const* eigsrc, char const* initv,
9035  lapack_logical const* select,
9036  lapack_int const* n,
9037  lapack_complex_float const* H, lapack_int const* ldh,
9038  lapack_complex_float* W,
9039  lapack_complex_float* VL, lapack_int const* ldvl,
9040  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9041  lapack_complex_float* work,
9042  float* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9043  lapack_int* info
9044 #ifdef LAPACK_FORTRAN_STRLEN_END
9045  , size_t, size_t, size_t
9046 #endif
9047 );
9048 #ifdef LAPACK_FORTRAN_STRLEN_END
9049  #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1)
9050 #else
9051  #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__)
9052 #endif
9053 
9054 #define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN)
9055 void LAPACK_dhsein_base(
9056  char const* side, char const* eigsrc, char const* initv,
9057  lapack_logical* select,
9058  lapack_int const* n,
9059  double const* H, lapack_int const* ldh,
9060  double* WR,
9061  double const* WI,
9062  double* VL, lapack_int const* ldvl,
9063  double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9064  double* work, lapack_int* IFAILL, lapack_int* IFAILR,
9065  lapack_int* info
9066 #ifdef LAPACK_FORTRAN_STRLEN_END
9067  , size_t, size_t, size_t
9068 #endif
9069 );
9070 #ifdef LAPACK_FORTRAN_STRLEN_END
9071  #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1)
9072 #else
9073  #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__)
9074 #endif
9075 
9076 #define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN)
9077 void LAPACK_shsein_base(
9078  char const* side, char const* eigsrc, char const* initv,
9079  lapack_logical* select,
9080  lapack_int const* n,
9081  float const* H, lapack_int const* ldh,
9082  float* WR,
9083  float const* WI,
9084  float* VL, lapack_int const* ldvl,
9085  float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9086  float* work, lapack_int* IFAILL, lapack_int* IFAILR,
9087  lapack_int* info
9088 #ifdef LAPACK_FORTRAN_STRLEN_END
9089  , size_t, size_t, size_t
9090 #endif
9091 );
9092 #ifdef LAPACK_FORTRAN_STRLEN_END
9093  #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1)
9094 #else
9095  #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__)
9096 #endif
9097 
9098 #define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN)
9099 void LAPACK_zhsein_base(
9100  char const* side, char const* eigsrc, char const* initv,
9101  lapack_logical const* select,
9102  lapack_int const* n,
9103  lapack_complex_double const* H, lapack_int const* ldh,
9104  lapack_complex_double* W,
9105  lapack_complex_double* VL, lapack_int const* ldvl,
9106  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9107  lapack_complex_double* work,
9108  double* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9109  lapack_int* info
9110 #ifdef LAPACK_FORTRAN_STRLEN_END
9111  , size_t, size_t, size_t
9112 #endif
9113 );
9114 #ifdef LAPACK_FORTRAN_STRLEN_END
9115  #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1)
9116 #else
9117  #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__)
9118 #endif
9119 
9120 #define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR)
9121 void LAPACK_chseqr_base(
9122  char const* job, char const* compz,
9123  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9124  lapack_complex_float* H, lapack_int const* ldh,
9125  lapack_complex_float* W,
9126  lapack_complex_float* Z, lapack_int const* ldz,
9127  lapack_complex_float* work, lapack_int const* lwork,
9128  lapack_int* info
9129 #ifdef LAPACK_FORTRAN_STRLEN_END
9130  , size_t, size_t
9131 #endif
9132 );
9133 #ifdef LAPACK_FORTRAN_STRLEN_END
9134  #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1)
9135 #else
9136  #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__)
9137 #endif
9138 
9139 #define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR)
9140 void LAPACK_dhseqr_base(
9141  char const* job, char const* compz,
9142  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9143  double* H, lapack_int const* ldh,
9144  double* WR,
9145  double* WI,
9146  double* Z, lapack_int const* ldz,
9147  double* work, lapack_int const* lwork,
9148  lapack_int* info
9149 #ifdef LAPACK_FORTRAN_STRLEN_END
9150  , size_t, size_t
9151 #endif
9152 );
9153 #ifdef LAPACK_FORTRAN_STRLEN_END
9154  #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1)
9155 #else
9156  #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__)
9157 #endif
9158 
9159 #define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR)
9160 void LAPACK_shseqr_base(
9161  char const* job, char const* compz,
9162  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9163  float* H, lapack_int const* ldh,
9164  float* WR,
9165  float* WI,
9166  float* Z, lapack_int const* ldz,
9167  float* work, lapack_int const* lwork,
9168  lapack_int* info
9169 #ifdef LAPACK_FORTRAN_STRLEN_END
9170  , size_t, size_t
9171 #endif
9172 );
9173 #ifdef LAPACK_FORTRAN_STRLEN_END
9174  #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1)
9175 #else
9176  #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__)
9177 #endif
9178 
9179 #define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR)
9180 void LAPACK_zhseqr_base(
9181  char const* job, char const* compz,
9182  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9183  lapack_complex_double* H, lapack_int const* ldh,
9184  lapack_complex_double* W,
9185  lapack_complex_double* Z, lapack_int const* ldz,
9186  lapack_complex_double* work, lapack_int const* lwork,
9187  lapack_int* info
9188 #ifdef LAPACK_FORTRAN_STRLEN_END
9189  , size_t, size_t
9190 #endif
9191 );
9192 #ifdef LAPACK_FORTRAN_STRLEN_END
9193  #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1)
9194 #else
9195  #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__)
9196 #endif
9197 
9198 #define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV)
9199 void LAPACK_clacgv(
9200  lapack_int const* n,
9201  lapack_complex_float* X, lapack_int const* incx );
9202 
9203 #define LAPACK_zlacgv LAPACK_GLOBAL(zlacgv,ZLACGV)
9204 void LAPACK_zlacgv(
9205  lapack_int const* n,
9206  lapack_complex_double* X, lapack_int const* incx );
9207 
9208 #define LAPACK_clacn2 LAPACK_GLOBAL(clacn2,CLACN2)
9209 void LAPACK_clacn2(
9210  lapack_int const* n,
9211  lapack_complex_float* V,
9212  lapack_complex_float* X,
9213  float* est, lapack_int* kase, lapack_int* ISAVE );
9214 
9215 #define LAPACK_dlacn2 LAPACK_GLOBAL(dlacn2,DLACN2)
9216 void LAPACK_dlacn2(
9217  lapack_int const* n,
9218  double* V,
9219  double* X, lapack_int* ISGN,
9220  double* est, lapack_int* kase, lapack_int* ISAVE );
9221 
9222 #define LAPACK_slacn2 LAPACK_GLOBAL(slacn2,SLACN2)
9223 void LAPACK_slacn2(
9224  lapack_int const* n,
9225  float* V,
9226  float* X, lapack_int* ISGN,
9227  float* est, lapack_int* kase, lapack_int* ISAVE );
9228 
9229 #define LAPACK_zlacn2 LAPACK_GLOBAL(zlacn2,ZLACN2)
9230 void LAPACK_zlacn2(
9231  lapack_int const* n,
9232  lapack_complex_double* V,
9233  lapack_complex_double* X,
9234  double* est, lapack_int* kase, lapack_int* ISAVE );
9235 
9236 #define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2)
9237 void LAPACK_clacp2_base(
9238  char const* uplo,
9239  lapack_int const* m, lapack_int const* n,
9240  float const* A, lapack_int const* lda,
9241  lapack_complex_float* B, lapack_int const* ldb
9242 #ifdef LAPACK_FORTRAN_STRLEN_END
9243  , size_t
9244 #endif
9245 );
9246 #ifdef LAPACK_FORTRAN_STRLEN_END
9247  #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1)
9248 #else
9249  #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__)
9250 #endif
9251 
9252 #define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2)
9253 void LAPACK_zlacp2_base(
9254  char const* uplo,
9255  lapack_int const* m, lapack_int const* n,
9256  double const* A, lapack_int const* lda,
9257  lapack_complex_double* B, lapack_int const* ldb
9258 #ifdef LAPACK_FORTRAN_STRLEN_END
9259  , size_t
9260 #endif
9261 );
9262 #ifdef LAPACK_FORTRAN_STRLEN_END
9263  #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1)
9264 #else
9265  #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__)
9266 #endif
9267 
9268 #define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY)
9269 void LAPACK_clacpy_base(
9270  char const* uplo,
9271  lapack_int const* m, lapack_int const* n,
9272  lapack_complex_float const* A, lapack_int const* lda,
9273  lapack_complex_float* B, lapack_int const* ldb
9274 #ifdef LAPACK_FORTRAN_STRLEN_END
9275  , size_t
9276 #endif
9277 );
9278 #ifdef LAPACK_FORTRAN_STRLEN_END
9279  #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1)
9280 #else
9281  #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__)
9282 #endif
9283 
9284 #define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY)
9285 void LAPACK_dlacpy_base(
9286  char const* uplo,
9287  lapack_int const* m, lapack_int const* n,
9288  double const* A, lapack_int const* lda,
9289  double* B, lapack_int const* ldb
9290 #ifdef LAPACK_FORTRAN_STRLEN_END
9291  , size_t
9292 #endif
9293 );
9294 #ifdef LAPACK_FORTRAN_STRLEN_END
9295  #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1)
9296 #else
9297  #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__)
9298 #endif
9299 
9300 #define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY)
9301 void LAPACK_slacpy_base(
9302  char const* uplo,
9303  lapack_int const* m, lapack_int const* n,
9304  float const* A, lapack_int const* lda,
9305  float* B, lapack_int const* ldb
9306 #ifdef LAPACK_FORTRAN_STRLEN_END
9307  , size_t
9308 #endif
9309 );
9310 #ifdef LAPACK_FORTRAN_STRLEN_END
9311  #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1)
9312 #else
9313  #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__)
9314 #endif
9315 
9316 #define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY)
9317 void LAPACK_zlacpy_base(
9318  char const* uplo,
9319  lapack_int const* m, lapack_int const* n,
9320  lapack_complex_double const* A, lapack_int const* lda,
9321  lapack_complex_double* B, lapack_int const* ldb
9322 #ifdef LAPACK_FORTRAN_STRLEN_END
9323  , size_t
9324 #endif
9325 );
9326 #ifdef LAPACK_FORTRAN_STRLEN_END
9327  #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1)
9328 #else
9329  #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__)
9330 #endif
9331 
9332 #define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM)
9333 void LAPACK_clacrm(
9334  lapack_int const* m, lapack_int const* n,
9335  lapack_complex_float const* A, lapack_int const* lda,
9336  float const* B, lapack_int const* ldb,
9337  lapack_complex_float* C, lapack_int const* ldc,
9338  float* rwork );
9339 
9340 #define LAPACK_zlacrm LAPACK_GLOBAL(zlacrm,ZLACRM)
9341 void LAPACK_zlacrm(
9342  lapack_int const* m, lapack_int const* n,
9343  lapack_complex_double const* A, lapack_int const* lda,
9344  double const* B, lapack_int const* ldb,
9345  lapack_complex_double* C, lapack_int const* ldc,
9346  double* rwork );
9347 
9348 #define LAPACK_zlag2c LAPACK_GLOBAL(zlag2c,ZLAG2C)
9349 void LAPACK_zlag2c(
9350  lapack_int const* m, lapack_int const* n,
9351  lapack_complex_double const* A, lapack_int const* lda,
9352  lapack_complex_float* SA, lapack_int const* ldsa,
9353  lapack_int* info );
9354 
9355 #define LAPACK_slag2d LAPACK_GLOBAL(slag2d,SLAG2D)
9356 void LAPACK_slag2d(
9357  lapack_int const* m, lapack_int const* n,
9358  float const* SA, lapack_int const* ldsa,
9359  double* A, lapack_int const* lda,
9360  lapack_int* info );
9361 
9362 #define LAPACK_dlag2s LAPACK_GLOBAL(dlag2s,DLAG2S)
9363 void LAPACK_dlag2s(
9364  lapack_int const* m, lapack_int const* n,
9365  double const* A, lapack_int const* lda,
9366  float* SA, lapack_int const* ldsa,
9367  lapack_int* info );
9368 
9369 #define LAPACK_clag2z LAPACK_GLOBAL(clag2z,CLAG2Z)
9370 void LAPACK_clag2z(
9371  lapack_int const* m, lapack_int const* n,
9372  lapack_complex_float const* SA, lapack_int const* ldsa,
9373  lapack_complex_double* A, lapack_int const* lda,
9374  lapack_int* info );
9375 
9376 #define LAPACK_clagge LAPACK_GLOBAL(clagge,CLAGGE)
9377 void LAPACK_clagge(
9378  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9379  float const* D,
9380  lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9381  lapack_complex_float* work,
9382  lapack_int* info );
9383 
9384 #define LAPACK_dlagge LAPACK_GLOBAL(dlagge,DLAGGE)
9385 void LAPACK_dlagge(
9386  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9387  double const* D,
9388  double* A, lapack_int const* lda, lapack_int* iseed,
9389  double* work,
9390  lapack_int* info );
9391 
9392 #define LAPACK_slagge LAPACK_GLOBAL(slagge,SLAGGE)
9393 void LAPACK_slagge(
9394  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9395  float const* D,
9396  float* A, lapack_int const* lda, lapack_int* iseed,
9397  float* work,
9398  lapack_int* info );
9399 
9400 #define LAPACK_zlagge LAPACK_GLOBAL(zlagge,ZLAGGE)
9401 void LAPACK_zlagge(
9402  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9403  double const* D,
9404  lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9405  lapack_complex_double* work,
9406  lapack_int* info );
9407 
9408 #define LAPACK_claghe LAPACK_GLOBAL(claghe,CLAGHE)
9409 void LAPACK_claghe(
9410  lapack_int const* n, lapack_int const* k,
9411  float const* D,
9412  lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9413  lapack_complex_float* work,
9414  lapack_int* info );
9415 
9416 #define LAPACK_zlaghe LAPACK_GLOBAL(zlaghe,ZLAGHE)
9417 void LAPACK_zlaghe(
9418  lapack_int const* n, lapack_int const* k,
9419  double const* D,
9420  lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9421  lapack_complex_double* work,
9422  lapack_int* info );
9423 
9424 #define LAPACK_clagsy LAPACK_GLOBAL(clagsy,CLAGSY)
9425 void LAPACK_clagsy(
9426  lapack_int const* n, lapack_int const* k,
9427  float const* D,
9428  lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9429  lapack_complex_float* work,
9430  lapack_int* info );
9431 
9432 #define LAPACK_dlagsy LAPACK_GLOBAL(dlagsy,DLAGSY)
9433 void LAPACK_dlagsy(
9434  lapack_int const* n, lapack_int const* k,
9435  double const* D,
9436  double* A, lapack_int const* lda, lapack_int* iseed,
9437  double* work,
9438  lapack_int* info );
9439 
9440 #define LAPACK_slagsy LAPACK_GLOBAL(slagsy,SLAGSY)
9441 void LAPACK_slagsy(
9442  lapack_int const* n, lapack_int const* k,
9443  float const* D,
9444  float* A, lapack_int const* lda, lapack_int* iseed,
9445  float* work,
9446  lapack_int* info );
9447 
9448 #define LAPACK_zlagsy LAPACK_GLOBAL(zlagsy,ZLAGSY)
9449 void LAPACK_zlagsy(
9450  lapack_int const* n, lapack_int const* k,
9451  double const* D,
9452  lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9453  lapack_complex_double* work,
9454  lapack_int* info );
9455 
9456 #define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH)
9457 double LAPACK_dlamch_base(
9458  char const* cmach
9459 #ifdef LAPACK_FORTRAN_STRLEN_END
9460  , size_t
9461 #endif
9462 );
9463 #ifdef LAPACK_FORTRAN_STRLEN_END
9464  #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1)
9465 #else
9466  #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__)
9467 #endif
9468 
9469 #define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH)
9470 lapack_float_return LAPACK_slamch_base(
9471  char const* cmach
9472 #ifdef LAPACK_FORTRAN_STRLEN_END
9473  , size_t
9474 #endif
9475 );
9476 #ifdef LAPACK_FORTRAN_STRLEN_END
9477  #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1)
9478 #else
9479  #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__)
9480 #endif
9481 
9482 #define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB)
9483 lapack_float_return LAPACK_clangb_base(
9484  char const* norm,
9485  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9486  lapack_complex_float const* AB, lapack_int const* ldab,
9487  float* work
9488 #ifdef LAPACK_FORTRAN_STRLEN_END
9489  , size_t
9490 #endif
9491 );
9492 #ifdef LAPACK_FORTRAN_STRLEN_END
9493  #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1)
9494 #else
9495  #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__)
9496 #endif
9497 
9498 #define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB)
9499 double LAPACK_dlangb_base(
9500  char const* norm,
9501  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9502  double const* AB, lapack_int const* ldab,
9503  double* work
9504 #ifdef LAPACK_FORTRAN_STRLEN_END
9505  , size_t
9506 #endif
9507 );
9508 #ifdef LAPACK_FORTRAN_STRLEN_END
9509  #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1)
9510 #else
9511  #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__)
9512 #endif
9513 
9514 #define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB)
9515 lapack_float_return LAPACK_slangb_base(
9516  char const* norm,
9517  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9518  float const* AB, lapack_int const* ldab,
9519  float* work
9520 #ifdef LAPACK_FORTRAN_STRLEN_END
9521  , size_t
9522 #endif
9523 );
9524 #ifdef LAPACK_FORTRAN_STRLEN_END
9525  #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1)
9526 #else
9527  #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__)
9528 #endif
9529 
9530 #define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB)
9531 double LAPACK_zlangb_base(
9532  char const* norm,
9533  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9534  lapack_complex_double const* AB, lapack_int const* ldab,
9535  double* work
9536 #ifdef LAPACK_FORTRAN_STRLEN_END
9537  , size_t
9538 #endif
9539 );
9540 #ifdef LAPACK_FORTRAN_STRLEN_END
9541  #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1)
9542 #else
9543  #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__)
9544 #endif
9545 
9546 #define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE)
9547 lapack_float_return LAPACK_clange_base(
9548  char const* norm,
9549  lapack_int const* m, lapack_int const* n,
9550  lapack_complex_float const* A, lapack_int const* lda,
9551  float* work
9552 #ifdef LAPACK_FORTRAN_STRLEN_END
9553  , size_t
9554 #endif
9555 );
9556 #ifdef LAPACK_FORTRAN_STRLEN_END
9557  #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1)
9558 #else
9559  #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__)
9560 #endif
9561 
9562 #define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE)
9563 double LAPACK_dlange_base(
9564  char const* norm,
9565  lapack_int const* m, lapack_int const* n,
9566  double const* A, lapack_int const* lda,
9567  double* work
9568 #ifdef LAPACK_FORTRAN_STRLEN_END
9569  , size_t
9570 #endif
9571 );
9572 #ifdef LAPACK_FORTRAN_STRLEN_END
9573  #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1)
9574 #else
9575  #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__)
9576 #endif
9577 
9578 #define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE)
9579 lapack_float_return LAPACK_slange_base(
9580  char const* norm,
9581  lapack_int const* m, lapack_int const* n,
9582  float const* A, lapack_int const* lda,
9583  float* work
9584 #ifdef LAPACK_FORTRAN_STRLEN_END
9585  , size_t
9586 #endif
9587 );
9588 #ifdef LAPACK_FORTRAN_STRLEN_END
9589  #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1)
9590 #else
9591  #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__)
9592 #endif
9593 
9594 #define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE)
9595 double LAPACK_zlange_base(
9596  char const* norm,
9597  lapack_int const* m, lapack_int const* n,
9598  lapack_complex_double const* A, lapack_int const* lda,
9599  double* work
9600 #ifdef LAPACK_FORTRAN_STRLEN_END
9601  , size_t
9602 #endif
9603 );
9604 #ifdef LAPACK_FORTRAN_STRLEN_END
9605  #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1)
9606 #else
9607  #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__)
9608 #endif
9609 
9610 #define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT)
9611 lapack_float_return LAPACK_clangt_base(
9612  char const* norm,
9613  lapack_int const* n,
9614  lapack_complex_float const* DL,
9615  lapack_complex_float const* D,
9616  lapack_complex_float const* DU
9617 #ifdef LAPACK_FORTRAN_STRLEN_END
9618  , size_t
9619 #endif
9620 );
9621 #ifdef LAPACK_FORTRAN_STRLEN_END
9622  #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1)
9623 #else
9624  #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__)
9625 #endif
9626 
9627 #define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT)
9628 double LAPACK_dlangt_base(
9629  char const* norm,
9630  lapack_int const* n,
9631  double const* DL,
9632  double const* D,
9633  double const* DU
9634 #ifdef LAPACK_FORTRAN_STRLEN_END
9635  , size_t
9636 #endif
9637 );
9638 #ifdef LAPACK_FORTRAN_STRLEN_END
9639  #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1)
9640 #else
9641  #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__)
9642 #endif
9643 
9644 #define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT)
9645 lapack_float_return LAPACK_slangt_base(
9646  char const* norm,
9647  lapack_int const* n,
9648  float const* DL,
9649  float const* D,
9650  float const* DU
9651 #ifdef LAPACK_FORTRAN_STRLEN_END
9652  , size_t
9653 #endif
9654 );
9655 #ifdef LAPACK_FORTRAN_STRLEN_END
9656  #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1)
9657 #else
9658  #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__)
9659 #endif
9660 
9661 #define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT)
9662 double LAPACK_zlangt_base(
9663  char const* norm,
9664  lapack_int const* n,
9665  lapack_complex_double const* DL,
9666  lapack_complex_double const* D,
9667  lapack_complex_double const* DU
9668 #ifdef LAPACK_FORTRAN_STRLEN_END
9669  , size_t
9670 #endif
9671 );
9672 #ifdef LAPACK_FORTRAN_STRLEN_END
9673  #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1)
9674 #else
9675  #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__)
9676 #endif
9677 
9678 #define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB)
9679 lapack_float_return LAPACK_clanhb_base(
9680  char const* norm, char const* uplo,
9681  lapack_int const* n, lapack_int const* k,
9682  lapack_complex_float const* AB, lapack_int const* ldab,
9683  float* work
9684 #ifdef LAPACK_FORTRAN_STRLEN_END
9685  , size_t, size_t
9686 #endif
9687 );
9688 #ifdef LAPACK_FORTRAN_STRLEN_END
9689  #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1)
9690 #else
9691  #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__)
9692 #endif
9693 
9694 #define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB)
9695 double LAPACK_zlanhb_base(
9696  char const* norm, char const* uplo,
9697  lapack_int const* n, lapack_int const* k,
9698  lapack_complex_double const* AB, lapack_int const* ldab,
9699  double* work
9700 #ifdef LAPACK_FORTRAN_STRLEN_END
9701  , size_t, size_t
9702 #endif
9703 );
9704 #ifdef LAPACK_FORTRAN_STRLEN_END
9705  #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1)
9706 #else
9707  #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__)
9708 #endif
9709 
9710 #define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE)
9711 lapack_float_return LAPACK_clanhe_base(
9712  char const* norm, char const* uplo,
9713  lapack_int const* n,
9714  lapack_complex_float const* A, lapack_int const* lda,
9715  float* work
9716 #ifdef LAPACK_FORTRAN_STRLEN_END
9717  , size_t, size_t
9718 #endif
9719 );
9720 #ifdef LAPACK_FORTRAN_STRLEN_END
9721  #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1)
9722 #else
9723  #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__)
9724 #endif
9725 
9726 #define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE)
9727 double LAPACK_zlanhe_base(
9728  char const* norm, char const* uplo,
9729  lapack_int const* n,
9730  lapack_complex_double const* A, lapack_int const* lda,
9731  double* work
9732 #ifdef LAPACK_FORTRAN_STRLEN_END
9733  , size_t, size_t
9734 #endif
9735 );
9736 #ifdef LAPACK_FORTRAN_STRLEN_END
9737  #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1)
9738 #else
9739  #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__)
9740 #endif
9741 
9742 #define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP)
9743 lapack_float_return LAPACK_clanhp_base(
9744  char const* norm, char const* uplo,
9745  lapack_int const* n,
9746  lapack_complex_float const* AP,
9747  float* work
9748 #ifdef LAPACK_FORTRAN_STRLEN_END
9749  , size_t, size_t
9750 #endif
9751 );
9752 #ifdef LAPACK_FORTRAN_STRLEN_END
9753  #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1)
9754 #else
9755  #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__)
9756 #endif
9757 
9758 #define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP)
9759 double LAPACK_zlanhp_base(
9760  char const* norm, char const* uplo,
9761  lapack_int const* n,
9762  lapack_complex_double const* AP,
9763  double* work
9764 #ifdef LAPACK_FORTRAN_STRLEN_END
9765  , size_t, size_t
9766 #endif
9767 );
9768 #ifdef LAPACK_FORTRAN_STRLEN_END
9769  #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1)
9770 #else
9771  #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__)
9772 #endif
9773 
9774 #define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS)
9775 lapack_float_return LAPACK_clanhs_base(
9776  char const* norm,
9777  lapack_int const* n,
9778  lapack_complex_float const* A, lapack_int const* lda,
9779  float* work
9780 #ifdef LAPACK_FORTRAN_STRLEN_END
9781  , size_t
9782 #endif
9783 );
9784 #ifdef LAPACK_FORTRAN_STRLEN_END
9785  #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1)
9786 #else
9787  #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__)
9788 #endif
9789 
9790 #define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS)
9791 double LAPACK_dlanhs_base(
9792  char const* norm,
9793  lapack_int const* n,
9794  double const* A, lapack_int const* lda,
9795  double* work
9796 #ifdef LAPACK_FORTRAN_STRLEN_END
9797  , size_t
9798 #endif
9799 );
9800 #ifdef LAPACK_FORTRAN_STRLEN_END
9801  #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1)
9802 #else
9803  #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__)
9804 #endif
9805 
9806 #define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS)
9807 lapack_float_return LAPACK_slanhs_base(
9808  char const* norm,
9809  lapack_int const* n,
9810  float const* A, lapack_int const* lda,
9811  float* work
9812 #ifdef LAPACK_FORTRAN_STRLEN_END
9813  , size_t
9814 #endif
9815 );
9816 #ifdef LAPACK_FORTRAN_STRLEN_END
9817  #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1)
9818 #else
9819  #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__)
9820 #endif
9821 
9822 #define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS)
9823 double LAPACK_zlanhs_base(
9824  char const* norm,
9825  lapack_int const* n,
9826  lapack_complex_double const* A, lapack_int const* lda,
9827  double* work
9828 #ifdef LAPACK_FORTRAN_STRLEN_END
9829  , size_t
9830 #endif
9831 );
9832 #ifdef LAPACK_FORTRAN_STRLEN_END
9833  #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1)
9834 #else
9835  #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__)
9836 #endif
9837 
9838 #define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT)
9839 lapack_float_return LAPACK_clanht_base(
9840  char const* norm,
9841  lapack_int const* n,
9842  float const* D,
9843  lapack_complex_float const* E
9844 #ifdef LAPACK_FORTRAN_STRLEN_END
9845  , size_t
9846 #endif
9847 );
9848 #ifdef LAPACK_FORTRAN_STRLEN_END
9849  #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1)
9850 #else
9851  #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__)
9852 #endif
9853 
9854 #define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT)
9855 double LAPACK_zlanht_base(
9856  char const* norm,
9857  lapack_int const* n,
9858  double const* D,
9859  lapack_complex_double const* E
9860 #ifdef LAPACK_FORTRAN_STRLEN_END
9861  , size_t
9862 #endif
9863 );
9864 #ifdef LAPACK_FORTRAN_STRLEN_END
9865  #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1)
9866 #else
9867  #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__)
9868 #endif
9869 
9870 #define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB)
9871 lapack_float_return LAPACK_clansb_base(
9872  char const* norm, char const* uplo,
9873  lapack_int const* n, lapack_int const* k,
9874  lapack_complex_float const* AB, lapack_int const* ldab,
9875  float* work
9876 #ifdef LAPACK_FORTRAN_STRLEN_END
9877  , size_t, size_t
9878 #endif
9879 );
9880 #ifdef LAPACK_FORTRAN_STRLEN_END
9881  #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1)
9882 #else
9883  #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__)
9884 #endif
9885 
9886 #define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB)
9887 double LAPACK_dlansb_base(
9888  char const* norm, char const* uplo,
9889  lapack_int const* n, lapack_int const* k,
9890  double const* AB, lapack_int const* ldab,
9891  double* work
9892 #ifdef LAPACK_FORTRAN_STRLEN_END
9893  , size_t, size_t
9894 #endif
9895 );
9896 #ifdef LAPACK_FORTRAN_STRLEN_END
9897  #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1)
9898 #else
9899  #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__)
9900 #endif
9901 
9902 #define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB)
9903 lapack_float_return LAPACK_slansb_base(
9904  char const* norm, char const* uplo,
9905  lapack_int const* n, lapack_int const* k,
9906  float const* AB, lapack_int const* ldab,
9907  float* work
9908 #ifdef LAPACK_FORTRAN_STRLEN_END
9909  , size_t, size_t
9910 #endif
9911 );
9912 #ifdef LAPACK_FORTRAN_STRLEN_END
9913  #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1)
9914 #else
9915  #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__)
9916 #endif
9917 
9918 #define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB)
9919 double LAPACK_zlansb_base(
9920  char const* norm, char const* uplo,
9921  lapack_int const* n, lapack_int const* k,
9922  lapack_complex_double const* AB, lapack_int const* ldab,
9923  double* work
9924 #ifdef LAPACK_FORTRAN_STRLEN_END
9925  , size_t, size_t
9926 #endif
9927 );
9928 #ifdef LAPACK_FORTRAN_STRLEN_END
9929  #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1)
9930 #else
9931  #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__)
9932 #endif
9933 
9934 #define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP)
9935 lapack_float_return LAPACK_clansp_base(
9936  char const* norm, char const* uplo,
9937  lapack_int const* n,
9938  lapack_complex_float const* AP,
9939  float* work
9940 #ifdef LAPACK_FORTRAN_STRLEN_END
9941  , size_t, size_t
9942 #endif
9943 );
9944 #ifdef LAPACK_FORTRAN_STRLEN_END
9945  #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1)
9946 #else
9947  #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__)
9948 #endif
9949 
9950 #define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP)
9951 double LAPACK_dlansp_base(
9952  char const* norm, char const* uplo,
9953  lapack_int const* n,
9954  double const* AP,
9955  double* work
9956 #ifdef LAPACK_FORTRAN_STRLEN_END
9957  , size_t, size_t
9958 #endif
9959 );
9960 #ifdef LAPACK_FORTRAN_STRLEN_END
9961  #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1)
9962 #else
9963  #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__)
9964 #endif
9965 
9966 #define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP)
9967 lapack_float_return LAPACK_slansp_base(
9968  char const* norm, char const* uplo,
9969  lapack_int const* n,
9970  float const* AP,
9971  float* work
9972 #ifdef LAPACK_FORTRAN_STRLEN_END
9973  , size_t, size_t
9974 #endif
9975 );
9976 #ifdef LAPACK_FORTRAN_STRLEN_END
9977  #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1)
9978 #else
9979  #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__)
9980 #endif
9981 
9982 #define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP)
9983 double LAPACK_zlansp_base(
9984  char const* norm, char const* uplo,
9985  lapack_int const* n,
9986  lapack_complex_double const* AP,
9987  double* work
9988 #ifdef LAPACK_FORTRAN_STRLEN_END
9989  , size_t, size_t
9990 #endif
9991 );
9992 #ifdef LAPACK_FORTRAN_STRLEN_END
9993  #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1)
9994 #else
9995  #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__)
9996 #endif
9997 
9998 #define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST)
9999 double LAPACK_dlanst_base(
10000  char const* norm,
10001  lapack_int const* n,
10002  double const* D,
10003  double const* E
10004 #ifdef LAPACK_FORTRAN_STRLEN_END
10005  , size_t
10006 #endif
10007 );
10008 #ifdef LAPACK_FORTRAN_STRLEN_END
10009  #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1)
10010 #else
10011  #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__)
10012 #endif
10013 
10014 #define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST)
10015 lapack_float_return LAPACK_slanst_base(
10016  char const* norm,
10017  lapack_int const* n,
10018  float const* D,
10019  float const* E
10020 #ifdef LAPACK_FORTRAN_STRLEN_END
10021  , size_t
10022 #endif
10023 );
10024 #ifdef LAPACK_FORTRAN_STRLEN_END
10025  #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1)
10026 #else
10027  #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__)
10028 #endif
10029 
10030 #define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY)
10031 lapack_float_return LAPACK_clansy_base(
10032  char const* norm, char const* uplo,
10033  lapack_int const* n,
10034  lapack_complex_float const* A, lapack_int const* lda,
10035  float* work
10036 #ifdef LAPACK_FORTRAN_STRLEN_END
10037  , size_t, size_t
10038 #endif
10039 );
10040 #ifdef LAPACK_FORTRAN_STRLEN_END
10041  #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1)
10042 #else
10043  #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__)
10044 #endif
10045 
10046 #define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY)
10047 double LAPACK_dlansy_base(
10048  char const* norm, char const* uplo,
10049  lapack_int const* n,
10050  double const* A, lapack_int const* lda,
10051  double* work
10052 #ifdef LAPACK_FORTRAN_STRLEN_END
10053  , size_t, size_t
10054 #endif
10055 );
10056 #ifdef LAPACK_FORTRAN_STRLEN_END
10057  #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1)
10058 #else
10059  #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__)
10060 #endif
10061 
10062 #define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY)
10063 lapack_float_return LAPACK_slansy_base(
10064  char const* norm, char const* uplo,
10065  lapack_int const* n,
10066  float const* A, lapack_int const* lda,
10067  float* work
10068 #ifdef LAPACK_FORTRAN_STRLEN_END
10069  , size_t, size_t
10070 #endif
10071 );
10072 #ifdef LAPACK_FORTRAN_STRLEN_END
10073  #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1)
10074 #else
10075  #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__)
10076 #endif
10077 
10078 #define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY)
10079 double LAPACK_zlansy_base(
10080  char const* norm, char const* uplo,
10081  lapack_int const* n,
10082  lapack_complex_double const* A, lapack_int const* lda,
10083  double* work
10084 #ifdef LAPACK_FORTRAN_STRLEN_END
10085  , size_t, size_t
10086 #endif
10087 );
10088 #ifdef LAPACK_FORTRAN_STRLEN_END
10089  #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1)
10090 #else
10091  #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__)
10092 #endif
10093 
10094 #define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB)
10095 lapack_float_return LAPACK_clantb_base(
10096  char const* norm, char const* uplo, char const* diag,
10097  lapack_int const* n, lapack_int const* k,
10098  lapack_complex_float const* AB, lapack_int const* ldab,
10099  float* work
10100 #ifdef LAPACK_FORTRAN_STRLEN_END
10101  , size_t, size_t, size_t
10102 #endif
10103 );
10104 #ifdef LAPACK_FORTRAN_STRLEN_END
10105  #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1)
10106 #else
10107  #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__)
10108 #endif
10109 
10110 #define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB)
10111 double LAPACK_dlantb_base(
10112  char const* norm, char const* uplo, char const* diag,
10113  lapack_int const* n, lapack_int const* k,
10114  double const* AB, lapack_int const* ldab,
10115  double* work
10116 #ifdef LAPACK_FORTRAN_STRLEN_END
10117  , size_t, size_t, size_t
10118 #endif
10119 );
10120 #ifdef LAPACK_FORTRAN_STRLEN_END
10121  #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1)
10122 #else
10123  #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__)
10124 #endif
10125 
10126 #define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB)
10127 lapack_float_return LAPACK_slantb_base(
10128  char const* norm, char const* uplo, char const* diag,
10129  lapack_int const* n, lapack_int const* k,
10130  float const* AB, lapack_int const* ldab,
10131  float* work
10132 #ifdef LAPACK_FORTRAN_STRLEN_END
10133  , size_t, size_t, size_t
10134 #endif
10135 );
10136 #ifdef LAPACK_FORTRAN_STRLEN_END
10137  #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1)
10138 #else
10139  #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__)
10140 #endif
10141 
10142 #define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB)
10143 double LAPACK_zlantb_base(
10144  char const* norm, char const* uplo, char const* diag,
10145  lapack_int const* n, lapack_int const* k,
10146  lapack_complex_double const* AB, lapack_int const* ldab,
10147  double* work
10148 #ifdef LAPACK_FORTRAN_STRLEN_END
10149  , size_t, size_t, size_t
10150 #endif
10151 );
10152 #ifdef LAPACK_FORTRAN_STRLEN_END
10153  #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1)
10154 #else
10155  #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__)
10156 #endif
10157 
10158 #define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP)
10159 lapack_float_return LAPACK_clantp_base(
10160  char const* norm, char const* uplo, char const* diag,
10161  lapack_int const* n,
10162  lapack_complex_float const* AP,
10163  float* work
10164 #ifdef LAPACK_FORTRAN_STRLEN_END
10165  , size_t, size_t, size_t
10166 #endif
10167 );
10168 #ifdef LAPACK_FORTRAN_STRLEN_END
10169  #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1)
10170 #else
10171  #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__)
10172 #endif
10173 
10174 #define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP)
10175 double LAPACK_dlantp_base(
10176  char const* norm, char const* uplo, char const* diag,
10177  lapack_int const* n,
10178  double const* AP,
10179  double* work
10180 #ifdef LAPACK_FORTRAN_STRLEN_END
10181  , size_t, size_t, size_t
10182 #endif
10183 );
10184 #ifdef LAPACK_FORTRAN_STRLEN_END
10185  #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1)
10186 #else
10187  #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__)
10188 #endif
10189 
10190 #define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP)
10191 lapack_float_return LAPACK_slantp_base(
10192  char const* norm, char const* uplo, char const* diag,
10193  lapack_int const* n,
10194  float const* AP,
10195  float* work
10196 #ifdef LAPACK_FORTRAN_STRLEN_END
10197  , size_t, size_t, size_t
10198 #endif
10199 );
10200 #ifdef LAPACK_FORTRAN_STRLEN_END
10201  #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1)
10202 #else
10203  #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__)
10204 #endif
10205 
10206 #define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP)
10207 double LAPACK_zlantp_base(
10208  char const* norm, char const* uplo, char const* diag,
10209  lapack_int const* n,
10210  lapack_complex_double const* AP,
10211  double* work
10212 #ifdef LAPACK_FORTRAN_STRLEN_END
10213  , size_t, size_t, size_t
10214 #endif
10215 );
10216 #ifdef LAPACK_FORTRAN_STRLEN_END
10217  #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1)
10218 #else
10219  #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__)
10220 #endif
10221 
10222 #define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR)
10223 lapack_float_return LAPACK_clantr_base(
10224  char const* norm, char const* uplo, char const* diag,
10225  lapack_int const* m, lapack_int const* n,
10226  lapack_complex_float const* A, lapack_int const* lda,
10227  float* work
10228 #ifdef LAPACK_FORTRAN_STRLEN_END
10229  , size_t, size_t, size_t
10230 #endif
10231 );
10232 #ifdef LAPACK_FORTRAN_STRLEN_END
10233  #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1)
10234 #else
10235  #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__)
10236 #endif
10237 
10238 #define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR)
10239 double LAPACK_dlantr_base(
10240  char const* norm, char const* uplo, char const* diag,
10241  lapack_int const* m, lapack_int const* n,
10242  double const* A, lapack_int const* lda,
10243  double* work
10244 #ifdef LAPACK_FORTRAN_STRLEN_END
10245  , size_t, size_t, size_t
10246 #endif
10247 );
10248 #ifdef LAPACK_FORTRAN_STRLEN_END
10249  #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1)
10250 #else
10251  #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__)
10252 #endif
10253 
10254 #define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR)
10255 lapack_float_return LAPACK_slantr_base(
10256  char const* norm, char const* uplo, char const* diag,
10257  lapack_int const* m, lapack_int const* n,
10258  float const* A, lapack_int const* lda,
10259  float* work
10260 #ifdef LAPACK_FORTRAN_STRLEN_END
10261  , size_t, size_t, size_t
10262 #endif
10263 );
10264 #ifdef LAPACK_FORTRAN_STRLEN_END
10265  #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1)
10266 #else
10267  #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__)
10268 #endif
10269 
10270 #define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR)
10271 double LAPACK_zlantr_base(
10272  char const* norm, char const* uplo, char const* diag,
10273  lapack_int const* m, lapack_int const* n,
10274  lapack_complex_double const* A, lapack_int const* lda,
10275  double* work
10276 #ifdef LAPACK_FORTRAN_STRLEN_END
10277  , size_t, size_t, size_t
10278 #endif
10279 );
10280 #ifdef LAPACK_FORTRAN_STRLEN_END
10281  #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1)
10282 #else
10283  #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__)
10284 #endif
10285 
10286 #define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR)
10287 void LAPACK_clapmr(
10288  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10289  lapack_complex_float* X, lapack_int const* ldx, lapack_int* K );
10290 
10291 #define LAPACK_dlapmr LAPACK_GLOBAL(dlapmr,DLAPMR)
10292 void LAPACK_dlapmr(
10293  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10294  double* X, lapack_int const* ldx, lapack_int* K );
10295 
10296 #define LAPACK_slapmr LAPACK_GLOBAL(slapmr,SLAPMR)
10297 void LAPACK_slapmr(
10298  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10299  float* X, lapack_int const* ldx, lapack_int* K );
10300 
10301 #define LAPACK_zlapmr LAPACK_GLOBAL(zlapmr,ZLAPMR)
10302 void LAPACK_zlapmr(
10303  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10304  lapack_complex_double* X, lapack_int const* ldx, lapack_int* K );
10305 
10306 #define LAPACK_clapmt LAPACK_GLOBAL(clapmt,CLAPMT)
10307 void LAPACK_clapmt(
10308  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10309  lapack_complex_float* X, lapack_int const* ldx, lapack_int* K );
10310 
10311 #define LAPACK_dlapmt LAPACK_GLOBAL(dlapmt,DLAPMT)
10312 void LAPACK_dlapmt(
10313  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10314  double* X, lapack_int const* ldx, lapack_int* K );
10315 
10316 #define LAPACK_slapmt LAPACK_GLOBAL(slapmt,SLAPMT)
10317 void LAPACK_slapmt(
10318  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10319  float* X, lapack_int const* ldx, lapack_int* K );
10320 
10321 #define LAPACK_zlapmt LAPACK_GLOBAL(zlapmt,ZLAPMT)
10322 void LAPACK_zlapmt(
10323  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10324  lapack_complex_double* X, lapack_int const* ldx, lapack_int* K );
10325 
10326 #define LAPACK_dlapy2 LAPACK_GLOBAL(dlapy2,DLAPY2)
10327 double LAPACK_dlapy2(
10328  double const* x,
10329  double const* y );
10330 
10331 #define LAPACK_slapy2 LAPACK_GLOBAL(slapy2,SLAPY2)
10332 lapack_float_return LAPACK_slapy2(
10333  float const* x,
10334  float const* y );
10335 
10336 #define LAPACK_dlapy3 LAPACK_GLOBAL(dlapy3,DLAPY3)
10337 double LAPACK_dlapy3(
10338  double const* x,
10339  double const* y,
10340  double const* z );
10341 
10342 #define LAPACK_slapy3 LAPACK_GLOBAL(slapy3,SLAPY3)
10343 lapack_float_return LAPACK_slapy3(
10344  float const* x,
10345  float const* y,
10346  float const* z );
10347 
10348 #define LAPACK_clarcm LAPACK_GLOBAL(clarcm,CLARCM)
10349 void LAPACK_clarcm(
10350  lapack_int const* m, lapack_int const* n,
10351  float const* A, lapack_int const* lda,
10352  lapack_complex_float const* B, lapack_int const* ldb,
10353  lapack_complex_float* C, lapack_int const* ldc,
10354  float* rwork );
10355 
10356 #define LAPACK_zlarcm LAPACK_GLOBAL(zlarcm,ZLARCM)
10357 void LAPACK_zlarcm(
10358  lapack_int const* m, lapack_int const* n,
10359  double const* A, lapack_int const* lda,
10360  lapack_complex_double const* B, lapack_int const* ldb,
10361  lapack_complex_double* C, lapack_int const* ldc,
10362  double* rwork );
10363 
10364 #define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF)
10365 void LAPACK_clarf_base(
10366  char const* side,
10367  lapack_int const* m, lapack_int const* n,
10368  lapack_complex_float const* V, lapack_int const* incv,
10369  lapack_complex_float const* tau,
10370  lapack_complex_float* C, lapack_int const* ldc,
10371  lapack_complex_float* work
10372 #ifdef LAPACK_FORTRAN_STRLEN_END
10373  , size_t
10374 #endif
10375 );
10376 #ifdef LAPACK_FORTRAN_STRLEN_END
10377  #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1)
10378 #else
10379  #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__)
10380 #endif
10381 
10382 #define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF)
10383 void LAPACK_dlarf_base(
10384  char const* side,
10385  lapack_int const* m, lapack_int const* n,
10386  double const* V, lapack_int const* incv,
10387  double const* tau,
10388  double* C, lapack_int const* ldc,
10389  double* work
10390 #ifdef LAPACK_FORTRAN_STRLEN_END
10391  , size_t
10392 #endif
10393 );
10394 #ifdef LAPACK_FORTRAN_STRLEN_END
10395  #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1)
10396 #else
10397  #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__)
10398 #endif
10399 
10400 #define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF)
10401 void LAPACK_slarf_base(
10402  char const* side,
10403  lapack_int const* m, lapack_int const* n,
10404  float const* V, lapack_int const* incv,
10405  float const* tau,
10406  float* C, lapack_int const* ldc,
10407  float* work
10408 #ifdef LAPACK_FORTRAN_STRLEN_END
10409  , size_t
10410 #endif
10411 );
10412 #ifdef LAPACK_FORTRAN_STRLEN_END
10413  #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1)
10414 #else
10415  #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__)
10416 #endif
10417 
10418 #define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF)
10419 void LAPACK_zlarf_base(
10420  char const* side,
10421  lapack_int const* m, lapack_int const* n,
10422  lapack_complex_double const* V, lapack_int const* incv,
10423  lapack_complex_double const* tau,
10424  lapack_complex_double* C, lapack_int const* ldc,
10425  lapack_complex_double* work
10426 #ifdef LAPACK_FORTRAN_STRLEN_END
10427  , size_t
10428 #endif
10429 );
10430 #ifdef LAPACK_FORTRAN_STRLEN_END
10431  #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1)
10432 #else
10433  #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__)
10434 #endif
10435 
10436 #define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB)
10437 void LAPACK_clarfb_base(
10438  char const* side, char const* trans, char const* direct, char const* storev,
10439  lapack_int const* m, lapack_int const* n, lapack_int const* k,
10440  lapack_complex_float const* V, lapack_int const* ldv,
10441  lapack_complex_float const* T, lapack_int const* ldt,
10442  lapack_complex_float* C, lapack_int const* ldc,
10443  lapack_complex_float* work, lapack_int const* ldwork
10444 #ifdef LAPACK_FORTRAN_STRLEN_END
10445  , size_t, size_t, size_t, size_t
10446 #endif
10447 );
10448 #ifdef LAPACK_FORTRAN_STRLEN_END
10449  #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10450 #else
10451  #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__)
10452 #endif
10453 
10454 #define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB)
10455 void LAPACK_dlarfb_base(
10456  char const* side, char const* trans, char const* direct, char const* storev,
10457  lapack_int const* m, lapack_int const* n, lapack_int const* k,
10458  double const* V, lapack_int const* ldv,
10459  double const* T, lapack_int const* ldt,
10460  double* C, lapack_int const* ldc,
10461  double* work, lapack_int const* ldwork
10462 #ifdef LAPACK_FORTRAN_STRLEN_END
10463  , size_t, size_t, size_t, size_t
10464 #endif
10465 );
10466 #ifdef LAPACK_FORTRAN_STRLEN_END
10467  #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10468 #else
10469  #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__)
10470 #endif
10471 
10472 #define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB)
10473 void LAPACK_slarfb_base(
10474  char const* side, char const* trans, char const* direct, char const* storev,
10475  lapack_int const* m, lapack_int const* n, lapack_int const* k,
10476  float const* V, lapack_int const* ldv,
10477  float const* T, lapack_int const* ldt,
10478  float* C, lapack_int const* ldc,
10479  float* work, lapack_int const* ldwork
10480 #ifdef LAPACK_FORTRAN_STRLEN_END
10481  , size_t, size_t, size_t, size_t
10482 #endif
10483 );
10484 #ifdef LAPACK_FORTRAN_STRLEN_END
10485  #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10486 #else
10487  #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__)
10488 #endif
10489 
10490 #define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB)
10491 void LAPACK_zlarfb_base(
10492  char const* side, char const* trans, char const* direct, char const* storev,
10493  lapack_int const* m, lapack_int const* n, lapack_int const* k,
10494  lapack_complex_double const* V, lapack_int const* ldv,
10495  lapack_complex_double const* T, lapack_int const* ldt,
10496  lapack_complex_double* C, lapack_int const* ldc,
10497  lapack_complex_double* work, lapack_int const* ldwork
10498 #ifdef LAPACK_FORTRAN_STRLEN_END
10499  , size_t, size_t, size_t, size_t
10500 #endif
10501 );
10502 #ifdef LAPACK_FORTRAN_STRLEN_END
10503  #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10504 #else
10505  #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__)
10506 #endif
10507 
10508 #define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG)
10509 void LAPACK_clarfg(
10510  lapack_int const* n,
10511  lapack_complex_float* alpha,
10512  lapack_complex_float* X, lapack_int const* incx,
10513  lapack_complex_float* tau );
10514 
10515 #define LAPACK_dlarfg LAPACK_GLOBAL(dlarfg,DLARFG)
10516 void LAPACK_dlarfg(
10517  lapack_int const* n,
10518  double* alpha,
10519  double* X, lapack_int const* incx,
10520  double* tau );
10521 
10522 #define LAPACK_slarfg LAPACK_GLOBAL(slarfg,SLARFG)
10523 void LAPACK_slarfg(
10524  lapack_int const* n,
10525  float* alpha,
10526  float* X, lapack_int const* incx,
10527  float* tau );
10528 
10529 #define LAPACK_zlarfg LAPACK_GLOBAL(zlarfg,ZLARFG)
10530 void LAPACK_zlarfg(
10531  lapack_int const* n,
10532  lapack_complex_double* alpha,
10533  lapack_complex_double* X, lapack_int const* incx,
10534  lapack_complex_double* tau );
10535 
10536 #define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT)
10537 void LAPACK_clarft_base(
10538  char const* direct, char const* storev,
10539  lapack_int const* n, lapack_int const* k,
10540  lapack_complex_float const* V, lapack_int const* ldv,
10541  lapack_complex_float const* tau,
10542  lapack_complex_float* T, lapack_int const* ldt
10543 #ifdef LAPACK_FORTRAN_STRLEN_END
10544  , size_t, size_t
10545 #endif
10546 );
10547 #ifdef LAPACK_FORTRAN_STRLEN_END
10548  #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1)
10549 #else
10550  #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__)
10551 #endif
10552 
10553 #define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT)
10554 void LAPACK_dlarft_base(
10555  char const* direct, char const* storev,
10556  lapack_int const* n, lapack_int const* k,
10557  double const* V, lapack_int const* ldv,
10558  double const* tau,
10559  double* T, lapack_int const* ldt
10560 #ifdef LAPACK_FORTRAN_STRLEN_END
10561  , size_t, size_t
10562 #endif
10563 );
10564 #ifdef LAPACK_FORTRAN_STRLEN_END
10565  #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1)
10566 #else
10567  #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__)
10568 #endif
10569 
10570 #define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT)
10571 void LAPACK_slarft_base(
10572  char const* direct, char const* storev,
10573  lapack_int const* n, lapack_int const* k,
10574  float const* V, lapack_int const* ldv,
10575  float const* tau,
10576  float* T, lapack_int const* ldt
10577 #ifdef LAPACK_FORTRAN_STRLEN_END
10578  , size_t, size_t
10579 #endif
10580 );
10581 #ifdef LAPACK_FORTRAN_STRLEN_END
10582  #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1)
10583 #else
10584  #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__)
10585 #endif
10586 
10587 #define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT)
10588 void LAPACK_zlarft_base(
10589  char const* direct, char const* storev,
10590  lapack_int const* n, lapack_int const* k,
10591  lapack_complex_double const* V, lapack_int const* ldv,
10592  lapack_complex_double const* tau,
10593  lapack_complex_double* T, lapack_int const* ldt
10594 #ifdef LAPACK_FORTRAN_STRLEN_END
10595  , size_t, size_t
10596 #endif
10597 );
10598 #ifdef LAPACK_FORTRAN_STRLEN_END
10599  #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1)
10600 #else
10601  #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__)
10602 #endif
10603 
10604 #define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX)
10605 void LAPACK_clarfx_base(
10606  char const* side,
10607  lapack_int const* m, lapack_int const* n,
10608  lapack_complex_float const* V,
10609  lapack_complex_float const* tau,
10610  lapack_complex_float* C, lapack_int const* ldc,
10611  lapack_complex_float* work
10612 #ifdef LAPACK_FORTRAN_STRLEN_END
10613  , size_t
10614 #endif
10615 );
10616 #ifdef LAPACK_FORTRAN_STRLEN_END
10617  #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1)
10618 #else
10619  #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__)
10620 #endif
10621 
10622 #define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX)
10623 void LAPACK_dlarfx_base(
10624  char const* side,
10625  lapack_int const* m, lapack_int const* n,
10626  double const* V,
10627  double const* tau,
10628  double* C, lapack_int const* ldc,
10629  double* work
10630 #ifdef LAPACK_FORTRAN_STRLEN_END
10631  , size_t
10632 #endif
10633 );
10634 #ifdef LAPACK_FORTRAN_STRLEN_END
10635  #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1)
10636 #else
10637  #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__)
10638 #endif
10639 
10640 #define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX)
10641 void LAPACK_slarfx_base(
10642  char const* side,
10643  lapack_int const* m, lapack_int const* n,
10644  float const* V,
10645  float const* tau,
10646  float* C, lapack_int const* ldc,
10647  float* work
10648 #ifdef LAPACK_FORTRAN_STRLEN_END
10649  , size_t
10650 #endif
10651 );
10652 #ifdef LAPACK_FORTRAN_STRLEN_END
10653  #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1)
10654 #else
10655  #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__)
10656 #endif
10657 
10658 #define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX)
10659 void LAPACK_zlarfx_base(
10660  char const* side,
10661  lapack_int const* m, lapack_int const* n,
10662  lapack_complex_double const* V,
10663  lapack_complex_double const* tau,
10664  lapack_complex_double* C, lapack_int const* ldc,
10665  lapack_complex_double* work
10666 #ifdef LAPACK_FORTRAN_STRLEN_END
10667  , size_t
10668 #endif
10669 );
10670 #ifdef LAPACK_FORTRAN_STRLEN_END
10671  #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1)
10672 #else
10673  #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__)
10674 #endif
10675 
10676 #define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV)
10677 void LAPACK_clarnv(
10678  lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10679  lapack_complex_float* X );
10680 
10681 #define LAPACK_dlarnv LAPACK_GLOBAL(dlarnv,DLARNV)
10682 void LAPACK_dlarnv(
10683  lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10684  double* X );
10685 
10686 #define LAPACK_slarnv LAPACK_GLOBAL(slarnv,SLARNV)
10687 void LAPACK_slarnv(
10688  lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10689  float* X );
10690 
10691 #define LAPACK_zlarnv LAPACK_GLOBAL(zlarnv,ZLARNV)
10692 void LAPACK_zlarnv(
10693  lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10694  lapack_complex_double* X );
10695 
10696 #define LAPACK_dlartgp LAPACK_GLOBAL(dlartgp,DLARTGP)
10697 void LAPACK_dlartgp(
10698  double const* f,
10699  double const* g,
10700  double* cs,
10701  double* sn,
10702  double* r );
10703 
10704 #define LAPACK_slartgp LAPACK_GLOBAL(slartgp,SLARTGP)
10705 void LAPACK_slartgp(
10706  float const* f,
10707  float const* g,
10708  float* cs,
10709  float* sn,
10710  float* r );
10711 
10712 #define LAPACK_dlartgs LAPACK_GLOBAL(dlartgs,DLARTGS)
10713 void LAPACK_dlartgs(
10714  double const* x,
10715  double const* y,
10716  double const* sigma,
10717  double* cs,
10718  double* sn );
10719 
10720 #define LAPACK_slartgs LAPACK_GLOBAL(slartgs,SLARTGS)
10721 void LAPACK_slartgs(
10722  float const* x,
10723  float const* y,
10724  float const* sigma,
10725  float* cs,
10726  float* sn );
10727 
10728 #define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL)
10729 void LAPACK_clascl_base(
10730  char const* type,
10731  lapack_int const* kl, lapack_int const* ku,
10732  float const* cfrom,
10733  float const* cto, lapack_int const* m, lapack_int const* n,
10734  lapack_complex_float* A, lapack_int const* lda,
10735  lapack_int* info
10736 #ifdef LAPACK_FORTRAN_STRLEN_END
10737  , size_t
10738 #endif
10739 );
10740 #ifdef LAPACK_FORTRAN_STRLEN_END
10741  #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1)
10742 #else
10743  #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__)
10744 #endif
10745 
10746 #define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL)
10747 void LAPACK_dlascl_base(
10748  char const* type,
10749  lapack_int const* kl, lapack_int const* ku,
10750  double const* cfrom,
10751  double const* cto, lapack_int const* m, lapack_int const* n,
10752  double* A, lapack_int const* lda,
10753  lapack_int* info
10754 #ifdef LAPACK_FORTRAN_STRLEN_END
10755  , size_t
10756 #endif
10757 );
10758 #ifdef LAPACK_FORTRAN_STRLEN_END
10759  #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1)
10760 #else
10761  #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__)
10762 #endif
10763 
10764 #define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL)
10765 void LAPACK_slascl_base(
10766  char const* type,
10767  lapack_int const* kl, lapack_int const* ku,
10768  float const* cfrom,
10769  float const* cto, lapack_int const* m, lapack_int const* n,
10770  float* A, lapack_int const* lda,
10771  lapack_int* info
10772 #ifdef LAPACK_FORTRAN_STRLEN_END
10773  , size_t
10774 #endif
10775 );
10776 #ifdef LAPACK_FORTRAN_STRLEN_END
10777  #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1)
10778 #else
10779  #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__)
10780 #endif
10781 
10782 #define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL)
10783 void LAPACK_zlascl_base(
10784  char const* type,
10785  lapack_int const* kl, lapack_int const* ku,
10786  double const* cfrom,
10787  double const* cto, lapack_int const* m, lapack_int const* n,
10788  lapack_complex_double* A, lapack_int const* lda,
10789  lapack_int* info
10790 #ifdef LAPACK_FORTRAN_STRLEN_END
10791  , size_t
10792 #endif
10793 );
10794 #ifdef LAPACK_FORTRAN_STRLEN_END
10795  #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1)
10796 #else
10797  #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__)
10798 #endif
10799 
10800 #define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET)
10801 void LAPACK_claset_base(
10802  char const* uplo,
10803  lapack_int const* m, lapack_int const* n,
10804  lapack_complex_float const* alpha,
10805  lapack_complex_float const* beta,
10806  lapack_complex_float* A, lapack_int const* lda
10807 #ifdef LAPACK_FORTRAN_STRLEN_END
10808  , size_t
10809 #endif
10810 );
10811 #ifdef LAPACK_FORTRAN_STRLEN_END
10812  #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1)
10813 #else
10814  #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__)
10815 #endif
10816 
10817 #define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET)
10818 void LAPACK_dlaset_base(
10819  char const* uplo,
10820  lapack_int const* m, lapack_int const* n,
10821  double const* alpha,
10822  double const* beta,
10823  double* A, lapack_int const* lda
10824 #ifdef LAPACK_FORTRAN_STRLEN_END
10825  , size_t
10826 #endif
10827 );
10828 #ifdef LAPACK_FORTRAN_STRLEN_END
10829  #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1)
10830 #else
10831  #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__)
10832 #endif
10833 
10834 #define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET)
10835 void LAPACK_slaset_base(
10836  char const* uplo,
10837  lapack_int const* m, lapack_int const* n,
10838  float const* alpha,
10839  float const* beta,
10840  float* A, lapack_int const* lda
10841 #ifdef LAPACK_FORTRAN_STRLEN_END
10842  , size_t
10843 #endif
10844 );
10845 #ifdef LAPACK_FORTRAN_STRLEN_END
10846  #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1)
10847 #else
10848  #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__)
10849 #endif
10850 
10851 #define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET)
10852 void LAPACK_zlaset_base(
10853  char const* uplo,
10854  lapack_int const* m, lapack_int const* n,
10855  lapack_complex_double const* alpha,
10856  lapack_complex_double const* beta,
10857  lapack_complex_double* A, lapack_int const* lda
10858 #ifdef LAPACK_FORTRAN_STRLEN_END
10859  , size_t
10860 #endif
10861 );
10862 #ifdef LAPACK_FORTRAN_STRLEN_END
10863  #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1)
10864 #else
10865  #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__)
10866 #endif
10867 
10868 #define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT)
10869 void LAPACK_dlasrt_base(
10870  char const* id,
10871  lapack_int const* n,
10872  double* D,
10873  lapack_int* info
10874 #ifdef LAPACK_FORTRAN_STRLEN_END
10875  , size_t
10876 #endif
10877 );
10878 #ifdef LAPACK_FORTRAN_STRLEN_END
10879  #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1)
10880 #else
10881  #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__)
10882 #endif
10883 
10884 #define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT)
10885 void LAPACK_slasrt_base(
10886  char const* id,
10887  lapack_int const* n,
10888  float* D,
10889  lapack_int* info
10890 #ifdef LAPACK_FORTRAN_STRLEN_END
10891  , size_t
10892 #endif
10893 );
10894 #ifdef LAPACK_FORTRAN_STRLEN_END
10895  #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1)
10896 #else
10897  #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__)
10898 #endif
10899 
10900 #define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ)
10901 void LAPACK_classq(
10902  lapack_int const* n,
10903  lapack_complex_float const* X, lapack_int const* incx,
10904  float* scale,
10905  float* sumsq );
10906 
10907 #define LAPACK_dlassq LAPACK_GLOBAL(dlassq,DLASSQ)
10908 void LAPACK_dlassq(
10909  lapack_int const* n,
10910  double const* X, lapack_int const* incx,
10911  double* scale,
10912  double* sumsq );
10913 
10914 #define LAPACK_slassq LAPACK_GLOBAL(slassq,SLASSQ)
10915 void LAPACK_slassq(
10916  lapack_int const* n,
10917  float const* X, lapack_int const* incx,
10918  float* scale,
10919  float* sumsq );
10920 
10921 #define LAPACK_zlassq LAPACK_GLOBAL(zlassq,ZLASSQ)
10922 void LAPACK_zlassq(
10923  lapack_int const* n,
10924  lapack_complex_double const* X, lapack_int const* incx,
10925  double* scale,
10926  double* sumsq );
10927 
10928 #define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
10929 void LAPACK_claswp(
10930  lapack_int const* n,
10931  lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10932 
10933 #define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
10934 void LAPACK_dlaswp(
10935  lapack_int const* n,
10936  double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10937 
10938 #define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
10939 void LAPACK_slaswp(
10940  lapack_int const* n,
10941  float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10942 
10943 #define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
10944 void LAPACK_zlaswp(
10945  lapack_int const* n,
10946  lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10947 
10948 #define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS)
10949 void LAPACK_clatms_base(
10950  lapack_int const* m, lapack_int const* n, char const* dist,
10951  lapack_int* iseed, char const* sym,
10952  float* D,
10953  lapack_int const* mode,
10954  float const* cond,
10955  float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
10956  lapack_complex_float* A,
10957  lapack_int const* lda,
10958  lapack_complex_float* work,
10959  lapack_int* info
10960 #ifdef LAPACK_FORTRAN_STRLEN_END
10961  , size_t, size_t, size_t
10962 #endif
10963 );
10964 #ifdef LAPACK_FORTRAN_STRLEN_END
10965  #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1)
10966 #else
10967  #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__)
10968 #endif
10969 
10970 #define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS)
10971 void LAPACK_dlatms_base(
10972  lapack_int const* m, lapack_int const* n, char const* dist,
10973  lapack_int* iseed, char const* sym,
10974  double* D,
10975  lapack_int const* mode,
10976  double const* cond,
10977  double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
10978  double* A,
10979  lapack_int const* lda,
10980  double* work,
10981  lapack_int* info
10982 #ifdef LAPACK_FORTRAN_STRLEN_END
10983  , size_t, size_t, size_t
10984 #endif
10985 );
10986 #ifdef LAPACK_FORTRAN_STRLEN_END
10987  #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1)
10988 #else
10989  #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__)
10990 #endif
10991 
10992 #define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS)
10993 void LAPACK_slatms_base(
10994  lapack_int const* m, lapack_int const* n, char const* dist,
10995  lapack_int* iseed, char const* sym,
10996  float* D,
10997  lapack_int const* mode,
10998  float const* cond,
10999  float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11000  float* A,
11001  lapack_int const* lda,
11002  float* work,
11003  lapack_int* info
11004 #ifdef LAPACK_FORTRAN_STRLEN_END
11005  , size_t, size_t, size_t
11006 #endif
11007 );
11008 #ifdef LAPACK_FORTRAN_STRLEN_END
11009  #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1)
11010 #else
11011  #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__)
11012 #endif
11013 
11014 #define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS)
11015 void LAPACK_zlatms_base(
11016  lapack_int const* m, lapack_int const* n, char const* dist,
11017  lapack_int* iseed, char const* sym,
11018  double* D,
11019  lapack_int const* mode,
11020  double const* cond,
11021  double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11022  lapack_complex_double* A,
11023  lapack_int const* lda,
11024  lapack_complex_double* work,
11025  lapack_int* info
11026 #ifdef LAPACK_FORTRAN_STRLEN_END
11027  , size_t, size_t, size_t
11028 #endif
11029 );
11030 #ifdef LAPACK_FORTRAN_STRLEN_END
11031  #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1)
11032 #else
11033  #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__)
11034 #endif
11035 
11036 #define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM)
11037 void LAPACK_clauum_base(
11038  char const* uplo,
11039  lapack_int const* n,
11040  lapack_complex_float* A, lapack_int const* lda,
11041  lapack_int* info
11042 #ifdef LAPACK_FORTRAN_STRLEN_END
11043  , size_t
11044 #endif
11045 );
11046 #ifdef LAPACK_FORTRAN_STRLEN_END
11047  #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1)
11048 #else
11049  #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__)
11050 #endif
11051 
11052 #define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM)
11053 void LAPACK_dlauum_base(
11054  char const* uplo,
11055  lapack_int const* n,
11056  double* A, lapack_int const* lda,
11057  lapack_int* info
11058 #ifdef LAPACK_FORTRAN_STRLEN_END
11059  , size_t
11060 #endif
11061 );
11062 #ifdef LAPACK_FORTRAN_STRLEN_END
11063  #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1)
11064 #else
11065  #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__)
11066 #endif
11067 
11068 #define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM)
11069 void LAPACK_slauum_base(
11070  char const* uplo,
11071  lapack_int const* n,
11072  float* A, lapack_int const* lda,
11073  lapack_int* info
11074 #ifdef LAPACK_FORTRAN_STRLEN_END
11075  , size_t
11076 #endif
11077 );
11078 #ifdef LAPACK_FORTRAN_STRLEN_END
11079  #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1)
11080 #else
11081  #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__)
11082 #endif
11083 
11084 #define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM)
11085 void LAPACK_zlauum_base(
11086  char const* uplo,
11087  lapack_int const* n,
11088  lapack_complex_double* A, lapack_int const* lda,
11089  lapack_int* info
11090 #ifdef LAPACK_FORTRAN_STRLEN_END
11091  , size_t
11092 #endif
11093 );
11094 #ifdef LAPACK_FORTRAN_STRLEN_END
11095  #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1)
11096 #else
11097  #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__)
11098 #endif
11099 
11100 #define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER)
11101 void LAPACK_ilaver(
11102  lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch );
11103 
11104 #define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR)
11105 void LAPACK_dopgtr_base(
11106  char const* uplo,
11107  lapack_int const* n,
11108  double const* AP,
11109  double const* tau,
11110  double* Q, lapack_int const* ldq,
11111  double* work,
11112  lapack_int* info
11113 #ifdef LAPACK_FORTRAN_STRLEN_END
11114  , size_t
11115 #endif
11116 );
11117 #ifdef LAPACK_FORTRAN_STRLEN_END
11118  #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1)
11119 #else
11120  #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__)
11121 #endif
11122 
11123 #define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR)
11124 void LAPACK_sopgtr_base(
11125  char const* uplo,
11126  lapack_int const* n,
11127  float const* AP,
11128  float const* tau,
11129  float* Q, lapack_int const* ldq,
11130  float* work,
11131  lapack_int* info
11132 #ifdef LAPACK_FORTRAN_STRLEN_END
11133  , size_t
11134 #endif
11135 );
11136 #ifdef LAPACK_FORTRAN_STRLEN_END
11137  #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1)
11138 #else
11139  #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__)
11140 #endif
11141 
11142 #define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR)
11143 void LAPACK_dopmtr_base(
11144  char const* side, char const* uplo, char const* trans,
11145  lapack_int const* m, lapack_int const* n,
11146  double const* AP,
11147  double const* tau,
11148  double* C, lapack_int const* ldc,
11149  double* work,
11150  lapack_int* info
11151 #ifdef LAPACK_FORTRAN_STRLEN_END
11152  , size_t, size_t, size_t
11153 #endif
11154 );
11155 #ifdef LAPACK_FORTRAN_STRLEN_END
11156  #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1)
11157 #else
11158  #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__)
11159 #endif
11160 
11161 #define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR)
11162 void LAPACK_sopmtr_base(
11163  char const* side, char const* uplo, char const* trans,
11164  lapack_int const* m, lapack_int const* n,
11165  float const* AP,
11166  float const* tau,
11167  float* C, lapack_int const* ldc,
11168  float* work,
11169  lapack_int* info
11170 #ifdef LAPACK_FORTRAN_STRLEN_END
11171  , size_t, size_t, size_t
11172 #endif
11173 );
11174 #ifdef LAPACK_FORTRAN_STRLEN_END
11175  #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1)
11176 #else
11177  #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__)
11178 #endif
11179 
11180 #define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB)
11181 void LAPACK_dorbdb_base(
11182  char const* trans, char const* signs,
11183  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11184  double* X11, lapack_int const* ldx11,
11185  double* X12, lapack_int const* ldx12,
11186  double* X21, lapack_int const* ldx21,
11187  double* X22, lapack_int const* ldx22,
11188  double* theta,
11189  double* phi,
11190  double* TAUP1,
11191  double* TAUP2,
11192  double* TAUQ1,
11193  double* TAUQ2,
11194  double* work, lapack_int const* lwork,
11195  lapack_int* info
11196 #ifdef LAPACK_FORTRAN_STRLEN_END
11197  , size_t, size_t
11198 #endif
11199 );
11200 #ifdef LAPACK_FORTRAN_STRLEN_END
11201  #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1)
11202 #else
11203  #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__)
11204 #endif
11205 
11206 #define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB)
11207 void LAPACK_sorbdb_base(
11208  char const* trans, char const* signs,
11209  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11210  float* X11, lapack_int const* ldx11,
11211  float* X12, lapack_int const* ldx12,
11212  float* X21, lapack_int const* ldx21,
11213  float* X22, lapack_int const* ldx22,
11214  float* theta,
11215  float* phi,
11216  float* TAUP1,
11217  float* TAUP2,
11218  float* TAUQ1,
11219  float* TAUQ2,
11220  float* work, lapack_int const* lwork,
11221  lapack_int* info
11222 #ifdef LAPACK_FORTRAN_STRLEN_END
11223  , size_t, size_t
11224 #endif
11225 );
11226 #ifdef LAPACK_FORTRAN_STRLEN_END
11227  #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1)
11228 #else
11229  #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__)
11230 #endif
11231 
11232 #define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD)
11233 void LAPACK_dorcsd_base(
11234  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
11235  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11236  double* X11, lapack_int const* ldx11,
11237  double* X12, lapack_int const* ldx12,
11238  double* X21, lapack_int const* ldx21,
11239  double* X22, lapack_int const* ldx22,
11240  double* theta,
11241  double* U1, lapack_int const* ldu1,
11242  double* U2, lapack_int const* ldu2,
11243  double* V1T, lapack_int const* ldv1t,
11244  double* V2T, lapack_int const* ldv2t,
11245  double* work, lapack_int const* lwork,
11246  lapack_int* iwork,
11247  lapack_int* info
11248 #ifdef LAPACK_FORTRAN_STRLEN_END
11249  , size_t, size_t, size_t, size_t, size_t, size_t
11250 #endif
11251 );
11252 #ifdef LAPACK_FORTRAN_STRLEN_END
11253  #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11254 #else
11255  #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__)
11256 #endif
11257 
11258 #define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD)
11259 void LAPACK_sorcsd_base(
11260  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
11261  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11262  float* X11, lapack_int const* ldx11,
11263  float* X12, lapack_int const* ldx12,
11264  float* X21, lapack_int const* ldx21,
11265  float* X22, lapack_int const* ldx22,
11266  float* theta,
11267  float* U1, lapack_int const* ldu1,
11268  float* U2, lapack_int const* ldu2,
11269  float* V1T, lapack_int const* ldv1t,
11270  float* V2T, lapack_int const* ldv2t,
11271  float* work, lapack_int const* lwork,
11272  lapack_int* iwork,
11273  lapack_int* info
11274 #ifdef LAPACK_FORTRAN_STRLEN_END
11275  , size_t, size_t, size_t, size_t, size_t, size_t
11276 #endif
11277 );
11278 #ifdef LAPACK_FORTRAN_STRLEN_END
11279  #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11280 #else
11281  #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__)
11282 #endif
11283 
11284 #define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1)
11285 void LAPACK_dorcsd2by1_base(
11286  char const* jobu1, char const* jobu2, char const* jobv1t,
11287  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11288  double* X11, lapack_int const* ldx11,
11289  double* X21, lapack_int const* ldx21,
11290  double* theta,
11291  double* U1, lapack_int const* ldu1,
11292  double* U2, lapack_int const* ldu2,
11293  double* V1T, lapack_int const* ldv1t,
11294  double* work, lapack_int const* lwork,
11295  lapack_int* iwork,
11296  lapack_int* info
11297 #ifdef LAPACK_FORTRAN_STRLEN_END
11298  , size_t, size_t, size_t
11299 #endif
11300 );
11301 #ifdef LAPACK_FORTRAN_STRLEN_END
11302  #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11303 #else
11304  #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__)
11305 #endif
11306 
11307 #define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1)
11308 void LAPACK_sorcsd2by1_base(
11309  char const* jobu1, char const* jobu2, char const* jobv1t,
11310  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11311  float* X11, lapack_int const* ldx11,
11312  float* X21, lapack_int const* ldx21,
11313  float* theta,
11314  float* U1, lapack_int const* ldu1,
11315  float* U2, lapack_int const* ldu2,
11316  float* V1T, lapack_int const* ldv1t,
11317  float* work, lapack_int const* lwork,
11318  lapack_int* iwork,
11319  lapack_int* info
11320 #ifdef LAPACK_FORTRAN_STRLEN_END
11321  , size_t, size_t, size_t
11322 #endif
11323 );
11324 #ifdef LAPACK_FORTRAN_STRLEN_END
11325  #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11326 #else
11327  #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__)
11328 #endif
11329 
11330 #define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR)
11331 void LAPACK_dorgbr_base(
11332  char const* vect,
11333  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11334  double* A, lapack_int const* lda,
11335  double const* tau,
11336  double* work, lapack_int const* lwork,
11337  lapack_int* info
11338 #ifdef LAPACK_FORTRAN_STRLEN_END
11339  , size_t
11340 #endif
11341 );
11342 #ifdef LAPACK_FORTRAN_STRLEN_END
11343  #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1)
11344 #else
11345  #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__)
11346 #endif
11347 
11348 #define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR)
11349 void LAPACK_sorgbr_base(
11350  char const* vect,
11351  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11352  float* A, lapack_int const* lda,
11353  float const* tau,
11354  float* work, lapack_int const* lwork,
11355  lapack_int* info
11356 #ifdef LAPACK_FORTRAN_STRLEN_END
11357  , size_t
11358 #endif
11359 );
11360 #ifdef LAPACK_FORTRAN_STRLEN_END
11361  #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1)
11362 #else
11363  #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__)
11364 #endif
11365 
11366 #define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR)
11367 void LAPACK_dorghr(
11368  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11369  double* A, lapack_int const* lda,
11370  double const* tau,
11371  double* work, lapack_int const* lwork,
11372  lapack_int* info );
11373 
11374 #define LAPACK_sorghr LAPACK_GLOBAL(sorghr,SORGHR)
11375 void LAPACK_sorghr(
11376  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11377  float* A, lapack_int const* lda,
11378  float const* tau,
11379  float* work, lapack_int const* lwork,
11380  lapack_int* info );
11381 
11382 #define LAPACK_dorglq LAPACK_GLOBAL(dorglq,DORGLQ)
11383 void LAPACK_dorglq(
11384  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11385  double* A, lapack_int const* lda,
11386  double const* tau,
11387  double* work, lapack_int const* lwork,
11388  lapack_int* info );
11389 
11390 #define LAPACK_sorglq LAPACK_GLOBAL(sorglq,SORGLQ)
11391 void LAPACK_sorglq(
11392  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11393  float* A, lapack_int const* lda,
11394  float const* tau,
11395  float* work, lapack_int const* lwork,
11396  lapack_int* info );
11397 
11398 #define LAPACK_dorgql LAPACK_GLOBAL(dorgql,DORGQL)
11399 void LAPACK_dorgql(
11400  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11401  double* A, lapack_int const* lda,
11402  double const* tau,
11403  double* work, lapack_int const* lwork,
11404  lapack_int* info );
11405 
11406 #define LAPACK_sorgql LAPACK_GLOBAL(sorgql,SORGQL)
11407 void LAPACK_sorgql(
11408  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11409  float* A, lapack_int const* lda,
11410  float const* tau,
11411  float* work, lapack_int const* lwork,
11412  lapack_int* info );
11413 
11414 #define LAPACK_dorgqr LAPACK_GLOBAL(dorgqr,DORGQR)
11415 void LAPACK_dorgqr(
11416  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11417  double* A, lapack_int const* lda,
11418  double const* tau,
11419  double* work, lapack_int const* lwork,
11420  lapack_int* info );
11421 
11422 #define LAPACK_sorgqr LAPACK_GLOBAL(sorgqr,SORGQR)
11423 void LAPACK_sorgqr(
11424  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11425  float* A, lapack_int const* lda,
11426  float const* tau,
11427  float* work, lapack_int const* lwork,
11428  lapack_int* info );
11429 
11430 #define LAPACK_dorgrq LAPACK_GLOBAL(dorgrq,DORGRQ)
11431 void LAPACK_dorgrq(
11432  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11433  double* A, lapack_int const* lda,
11434  double const* tau,
11435  double* work, lapack_int const* lwork,
11436  lapack_int* info );
11437 
11438 #define LAPACK_sorgrq LAPACK_GLOBAL(sorgrq,SORGRQ)
11439 void LAPACK_sorgrq(
11440  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11441  float* A, lapack_int const* lda,
11442  float const* tau,
11443  float* work, lapack_int const* lwork,
11444  lapack_int* info );
11445 
11446 #define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR)
11447 void LAPACK_dorgtr_base(
11448  char const* uplo,
11449  lapack_int const* n,
11450  double* A, lapack_int const* lda,
11451  double const* tau,
11452  double* work, lapack_int const* lwork,
11453  lapack_int* info
11454 #ifdef LAPACK_FORTRAN_STRLEN_END
11455  , size_t
11456 #endif
11457 );
11458 #ifdef LAPACK_FORTRAN_STRLEN_END
11459  #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1)
11460 #else
11461  #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__)
11462 #endif
11463 
11464 #define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR)
11465 void LAPACK_sorgtr_base(
11466  char const* uplo,
11467  lapack_int const* n,
11468  float* A, lapack_int const* lda,
11469  float const* tau,
11470  float* work, lapack_int const* lwork,
11471  lapack_int* info
11472 #ifdef LAPACK_FORTRAN_STRLEN_END
11473  , size_t
11474 #endif
11475 );
11476 #ifdef LAPACK_FORTRAN_STRLEN_END
11477  #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1)
11478 #else
11479  #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__)
11480 #endif
11481 
11482 #define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW)
11483 void LAPACK_dorgtsqr_row(
11484  lapack_int const* m, lapack_int const* n,
11485  lapack_int const* mb, lapack_int const* nb,
11486  double* A, lapack_int const* lda,
11487  double const* T, lapack_int const* ldt,
11488  double* work, lapack_int const* lwork,
11489  lapack_int* info );
11490 
11491 #define LAPACK_sorgtsqr_row LAPACK_GLOBAL(sorgtsqr_row,SORGTSQR_ROW)
11492 void LAPACK_sorgtsqr_row(
11493  lapack_int const* m, lapack_int const* n,
11494  lapack_int const* mb, lapack_int const* nb,
11495  float* A, lapack_int const* lda,
11496  float const* T, lapack_int const* ldt,
11497  float* work, lapack_int const* lwork,
11498  lapack_int* info );
11499 
11500 #define LAPACK_dormbr_base LAPACK_GLOBAL(dormbr,DORMBR)
11501 void LAPACK_dormbr_base(
11502  char const* vect, char const* side, char const* trans,
11503  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11504  double const* A, lapack_int const* lda,
11505  double const* tau,
11506  double* C, lapack_int const* ldc,
11507  double* work, lapack_int const* lwork,
11508  lapack_int* info
11509 #ifdef LAPACK_FORTRAN_STRLEN_END
11510  , size_t, size_t, size_t
11511 #endif
11512 );
11513 #ifdef LAPACK_FORTRAN_STRLEN_END
11514  #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1)
11515 #else
11516  #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__)
11517 #endif
11518 
11519 #define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR)
11520 void LAPACK_sormbr_base(
11521  char const* vect, char const* side, char const* trans,
11522  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11523  float const* A, lapack_int const* lda,
11524  float const* tau,
11525  float* C, lapack_int const* ldc,
11526  float* work, lapack_int const* lwork,
11527  lapack_int* info
11528 #ifdef LAPACK_FORTRAN_STRLEN_END
11529  , size_t, size_t, size_t
11530 #endif
11531 );
11532 #ifdef LAPACK_FORTRAN_STRLEN_END
11533  #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1)
11534 #else
11535  #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__)
11536 #endif
11537 
11538 #define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR)
11539 void LAPACK_dormhr_base(
11540  char const* side, char const* trans,
11541  lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11542  double const* A, lapack_int const* lda,
11543  double const* tau,
11544  double* C, lapack_int const* ldc,
11545  double* work, lapack_int const* lwork,
11546  lapack_int* info
11547 #ifdef LAPACK_FORTRAN_STRLEN_END
11548  , size_t, size_t
11549 #endif
11550 );
11551 #ifdef LAPACK_FORTRAN_STRLEN_END
11552  #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1)
11553 #else
11554  #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__)
11555 #endif
11556 
11557 #define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR)
11558 void LAPACK_sormhr_base(
11559  char const* side, char const* trans,
11560  lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11561  float const* A, lapack_int const* lda,
11562  float const* tau,
11563  float* C, lapack_int const* ldc,
11564  float* work, lapack_int const* lwork,
11565  lapack_int* info
11566 #ifdef LAPACK_FORTRAN_STRLEN_END
11567  , size_t, size_t
11568 #endif
11569 );
11570 #ifdef LAPACK_FORTRAN_STRLEN_END
11571  #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1)
11572 #else
11573  #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__)
11574 #endif
11575 
11576 #define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ)
11577 void LAPACK_dormlq_base(
11578  char const* side, char const* trans,
11579  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11580  double const* A, lapack_int const* lda,
11581  double const* tau,
11582  double* C, lapack_int const* ldc,
11583  double* work, lapack_int const* lwork,
11584  lapack_int* info
11585 #ifdef LAPACK_FORTRAN_STRLEN_END
11586  , size_t, size_t
11587 #endif
11588 );
11589 #ifdef LAPACK_FORTRAN_STRLEN_END
11590  #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1)
11591 #else
11592  #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__)
11593 #endif
11594 
11595 #define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ)
11596 void LAPACK_sormlq_base(
11597  char const* side, char const* trans,
11598  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11599  float const* A, lapack_int const* lda,
11600  float const* tau,
11601  float* C, lapack_int const* ldc,
11602  float* work, lapack_int const* lwork,
11603  lapack_int* info
11604 #ifdef LAPACK_FORTRAN_STRLEN_END
11605  , size_t, size_t
11606 #endif
11607 );
11608 #ifdef LAPACK_FORTRAN_STRLEN_END
11609  #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1)
11610 #else
11611  #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__)
11612 #endif
11613 
11614 #define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL)
11615 void LAPACK_dormql_base(
11616  char const* side, char const* trans,
11617  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11618  double const* A, lapack_int const* lda,
11619  double const* tau,
11620  double* C, lapack_int const* ldc,
11621  double* work, lapack_int const* lwork,
11622  lapack_int* info
11623 #ifdef LAPACK_FORTRAN_STRLEN_END
11624  , size_t, size_t
11625 #endif
11626 );
11627 #ifdef LAPACK_FORTRAN_STRLEN_END
11628  #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1)
11629 #else
11630  #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__)
11631 #endif
11632 
11633 #define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL)
11634 void LAPACK_sormql_base(
11635  char const* side, char const* trans,
11636  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11637  float const* A, lapack_int const* lda,
11638  float const* tau,
11639  float* C, lapack_int const* ldc,
11640  float* work, lapack_int const* lwork,
11641  lapack_int* info
11642 #ifdef LAPACK_FORTRAN_STRLEN_END
11643  , size_t, size_t
11644 #endif
11645 );
11646 #ifdef LAPACK_FORTRAN_STRLEN_END
11647  #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1)
11648 #else
11649  #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__)
11650 #endif
11651 
11652 #define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR)
11653 void LAPACK_dormqr_base(
11654  char const* side, char const* trans,
11655  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11656  double const* A, lapack_int const* lda,
11657  double const* tau,
11658  double* C, lapack_int const* ldc,
11659  double* work, lapack_int const* lwork,
11660  lapack_int* info
11661 #ifdef LAPACK_FORTRAN_STRLEN_END
11662  , size_t, size_t
11663 #endif
11664 );
11665 #ifdef LAPACK_FORTRAN_STRLEN_END
11666  #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1)
11667 #else
11668  #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__)
11669 #endif
11670 
11671 #define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR)
11672 void LAPACK_sormqr_base(
11673  char const* side, char const* trans,
11674  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11675  float const* A, lapack_int const* lda,
11676  float const* tau,
11677  float* C, lapack_int const* ldc,
11678  float* work, lapack_int const* lwork,
11679  lapack_int* info
11680 #ifdef LAPACK_FORTRAN_STRLEN_END
11681  , size_t, size_t
11682 #endif
11683 );
11684 #ifdef LAPACK_FORTRAN_STRLEN_END
11685  #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1)
11686 #else
11687  #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__)
11688 #endif
11689 
11690 #define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ)
11691 void LAPACK_dormrq_base(
11692  char const* side, char const* trans,
11693  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11694  double const* A, lapack_int const* lda,
11695  double const* tau,
11696  double* C, lapack_int const* ldc,
11697  double* work, lapack_int const* lwork,
11698  lapack_int* info
11699 #ifdef LAPACK_FORTRAN_STRLEN_END
11700  , size_t, size_t
11701 #endif
11702 );
11703 #ifdef LAPACK_FORTRAN_STRLEN_END
11704  #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1)
11705 #else
11706  #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__)
11707 #endif
11708 
11709 #define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ)
11710 void LAPACK_sormrq_base(
11711  char const* side, char const* trans,
11712  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11713  float const* A, lapack_int const* lda,
11714  float const* tau,
11715  float* C, lapack_int const* ldc,
11716  float* work, lapack_int const* lwork,
11717  lapack_int* info
11718 #ifdef LAPACK_FORTRAN_STRLEN_END
11719  , size_t, size_t
11720 #endif
11721 );
11722 #ifdef LAPACK_FORTRAN_STRLEN_END
11723  #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1)
11724 #else
11725  #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__)
11726 #endif
11727 
11728 #define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ)
11729 void LAPACK_dormrz_base(
11730  char const* side, char const* trans,
11731  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
11732  double const* A, lapack_int const* lda,
11733  double const* tau,
11734  double* C, lapack_int const* ldc,
11735  double* work, lapack_int const* lwork,
11736  lapack_int* info
11737 #ifdef LAPACK_FORTRAN_STRLEN_END
11738  , size_t, size_t
11739 #endif
11740 );
11741 #ifdef LAPACK_FORTRAN_STRLEN_END
11742  #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1)
11743 #else
11744  #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__)
11745 #endif
11746 
11747 #define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ)
11748 void LAPACK_sormrz_base(
11749  char const* side, char const* trans,
11750  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
11751  float const* A, lapack_int const* lda,
11752  float const* tau,
11753  float* C, lapack_int const* ldc,
11754  float* work, lapack_int const* lwork,
11755  lapack_int* info
11756 #ifdef LAPACK_FORTRAN_STRLEN_END
11757  , size_t, size_t
11758 #endif
11759 );
11760 #ifdef LAPACK_FORTRAN_STRLEN_END
11761  #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1)
11762 #else
11763  #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__)
11764 #endif
11765 
11766 #define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR)
11767 void LAPACK_dormtr_base(
11768  char const* side, char const* uplo, char const* trans,
11769  lapack_int const* m, lapack_int const* n,
11770  double const* A, lapack_int const* lda,
11771  double const* tau,
11772  double* C, lapack_int const* ldc,
11773  double* work, lapack_int const* lwork,
11774  lapack_int* info
11775 #ifdef LAPACK_FORTRAN_STRLEN_END
11776  , size_t, size_t, size_t
11777 #endif
11778 );
11779 #ifdef LAPACK_FORTRAN_STRLEN_END
11780  #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1)
11781 #else
11782  #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__)
11783 #endif
11784 
11785 #define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR)
11786 void LAPACK_sormtr_base(
11787  char const* side, char const* uplo, char const* trans,
11788  lapack_int const* m, lapack_int const* n,
11789  float const* A, lapack_int const* lda,
11790  float const* tau,
11791  float* C, lapack_int const* ldc,
11792  float* work, lapack_int const* lwork,
11793  lapack_int* info
11794 #ifdef LAPACK_FORTRAN_STRLEN_END
11795  , size_t, size_t, size_t
11796 #endif
11797 );
11798 #ifdef LAPACK_FORTRAN_STRLEN_END
11799  #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1)
11800 #else
11801  #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__)
11802 #endif
11803 
11804 #define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON)
11805 void LAPACK_cpbcon_base(
11806  char const* uplo,
11807  lapack_int const* n, lapack_int const* kd,
11808  lapack_complex_float const* AB, lapack_int const* ldab,
11809  float const* anorm,
11810  float* rcond,
11811  lapack_complex_float* work,
11812  float* rwork,
11813  lapack_int* info
11814 #ifdef LAPACK_FORTRAN_STRLEN_END
11815  , size_t
11816 #endif
11817 );
11818 #ifdef LAPACK_FORTRAN_STRLEN_END
11819  #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1)
11820 #else
11821  #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__)
11822 #endif
11823 
11824 #define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON)
11825 void LAPACK_dpbcon_base(
11826  char const* uplo,
11827  lapack_int const* n, lapack_int const* kd,
11828  double const* AB, lapack_int const* ldab,
11829  double const* anorm,
11830  double* rcond,
11831  double* work,
11832  lapack_int* iwork,
11833  lapack_int* info
11834 #ifdef LAPACK_FORTRAN_STRLEN_END
11835  , size_t
11836 #endif
11837 );
11838 #ifdef LAPACK_FORTRAN_STRLEN_END
11839  #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1)
11840 #else
11841  #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__)
11842 #endif
11843 
11844 #define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON)
11845 void LAPACK_spbcon_base(
11846  char const* uplo,
11847  lapack_int const* n, lapack_int const* kd,
11848  float const* AB, lapack_int const* ldab,
11849  float const* anorm,
11850  float* rcond,
11851  float* work,
11852  lapack_int* iwork,
11853  lapack_int* info
11854 #ifdef LAPACK_FORTRAN_STRLEN_END
11855  , size_t
11856 #endif
11857 );
11858 #ifdef LAPACK_FORTRAN_STRLEN_END
11859  #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1)
11860 #else
11861  #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__)
11862 #endif
11863 
11864 #define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON)
11865 void LAPACK_zpbcon_base(
11866  char const* uplo,
11867  lapack_int const* n, lapack_int const* kd,
11868  lapack_complex_double const* AB, lapack_int const* ldab,
11869  double const* anorm,
11870  double* rcond,
11871  lapack_complex_double* work,
11872  double* rwork,
11873  lapack_int* info
11874 #ifdef LAPACK_FORTRAN_STRLEN_END
11875  , size_t
11876 #endif
11877 );
11878 #ifdef LAPACK_FORTRAN_STRLEN_END
11879  #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1)
11880 #else
11881  #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__)
11882 #endif
11883 
11884 #define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU)
11885 void LAPACK_cpbequ_base(
11886  char const* uplo,
11887  lapack_int const* n, lapack_int const* kd,
11888  lapack_complex_float const* AB, lapack_int const* ldab,
11889  float* S,
11890  float* scond,
11891  float* amax,
11892  lapack_int* info
11893 #ifdef LAPACK_FORTRAN_STRLEN_END
11894  , size_t
11895 #endif
11896 );
11897 #ifdef LAPACK_FORTRAN_STRLEN_END
11898  #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1)
11899 #else
11900  #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__)
11901 #endif
11902 
11903 #define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU)
11904 void LAPACK_dpbequ_base(
11905  char const* uplo,
11906  lapack_int const* n, lapack_int const* kd,
11907  double const* AB, lapack_int const* ldab,
11908  double* S,
11909  double* scond,
11910  double* amax,
11911  lapack_int* info
11912 #ifdef LAPACK_FORTRAN_STRLEN_END
11913  , size_t
11914 #endif
11915 );
11916 #ifdef LAPACK_FORTRAN_STRLEN_END
11917  #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1)
11918 #else
11919  #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__)
11920 #endif
11921 
11922 #define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU)
11923 void LAPACK_spbequ_base(
11924  char const* uplo,
11925  lapack_int const* n, lapack_int const* kd,
11926  float const* AB, lapack_int const* ldab,
11927  float* S,
11928  float* scond,
11929  float* amax,
11930  lapack_int* info
11931 #ifdef LAPACK_FORTRAN_STRLEN_END
11932  , size_t
11933 #endif
11934 );
11935 #ifdef LAPACK_FORTRAN_STRLEN_END
11936  #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1)
11937 #else
11938  #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__)
11939 #endif
11940 
11941 #define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU)
11942 void LAPACK_zpbequ_base(
11943  char const* uplo,
11944  lapack_int const* n, lapack_int const* kd,
11945  lapack_complex_double const* AB, lapack_int const* ldab,
11946  double* S,
11947  double* scond,
11948  double* amax,
11949  lapack_int* info
11950 #ifdef LAPACK_FORTRAN_STRLEN_END
11951  , size_t
11952 #endif
11953 );
11954 #ifdef LAPACK_FORTRAN_STRLEN_END
11955  #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1)
11956 #else
11957  #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__)
11958 #endif
11959 
11960 #define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS)
11961 void LAPACK_cpbrfs_base(
11962  char const* uplo,
11963  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
11964  lapack_complex_float const* AB, lapack_int const* ldab,
11965  lapack_complex_float const* AFB, lapack_int const* ldafb,
11966  lapack_complex_float const* B, lapack_int const* ldb,
11967  lapack_complex_float* X, lapack_int const* ldx,
11968  float* ferr,
11969  float* berr,
11970  lapack_complex_float* work,
11971  float* rwork,
11972  lapack_int* info
11973 #ifdef LAPACK_FORTRAN_STRLEN_END
11974  , size_t
11975 #endif
11976 );
11977 #ifdef LAPACK_FORTRAN_STRLEN_END
11978  #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1)
11979 #else
11980  #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__)
11981 #endif
11982 
11983 #define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS)
11984 void LAPACK_dpbrfs_base(
11985  char const* uplo,
11986  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
11987  double const* AB, lapack_int const* ldab,
11988  double const* AFB, lapack_int const* ldafb,
11989  double const* B, lapack_int const* ldb,
11990  double* X, lapack_int const* ldx,
11991  double* ferr,
11992  double* berr,
11993  double* work,
11994  lapack_int* iwork,
11995  lapack_int* info
11996 #ifdef LAPACK_FORTRAN_STRLEN_END
11997  , size_t
11998 #endif
11999 );
12000 #ifdef LAPACK_FORTRAN_STRLEN_END
12001  #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1)
12002 #else
12003  #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__)
12004 #endif
12005 
12006 #define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS)
12007 void LAPACK_spbrfs_base(
12008  char const* uplo,
12009  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12010  float const* AB, lapack_int const* ldab,
12011  float const* AFB, lapack_int const* ldafb,
12012  float const* B, lapack_int const* ldb,
12013  float* X, lapack_int const* ldx,
12014  float* ferr,
12015  float* berr,
12016  float* work,
12017  lapack_int* iwork,
12018  lapack_int* info
12019 #ifdef LAPACK_FORTRAN_STRLEN_END
12020  , size_t
12021 #endif
12022 );
12023 #ifdef LAPACK_FORTRAN_STRLEN_END
12024  #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1)
12025 #else
12026  #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__)
12027 #endif
12028 
12029 #define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS)
12030 void LAPACK_zpbrfs_base(
12031  char const* uplo,
12032  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12033  lapack_complex_double const* AB, lapack_int const* ldab,
12034  lapack_complex_double const* AFB, lapack_int const* ldafb,
12035  lapack_complex_double const* B, lapack_int const* ldb,
12036  lapack_complex_double* X, lapack_int const* ldx,
12037  double* ferr,
12038  double* berr,
12039  lapack_complex_double* work,
12040  double* rwork,
12041  lapack_int* info
12042 #ifdef LAPACK_FORTRAN_STRLEN_END
12043  , size_t
12044 #endif
12045 );
12046 #ifdef LAPACK_FORTRAN_STRLEN_END
12047  #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1)
12048 #else
12049  #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__)
12050 #endif
12051 
12052 #define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF)
12053 void LAPACK_cpbstf_base(
12054  char const* uplo,
12055  lapack_int const* n, lapack_int const* kd,
12056  lapack_complex_float* AB, lapack_int const* ldab,
12057  lapack_int* info
12058 #ifdef LAPACK_FORTRAN_STRLEN_END
12059  , size_t
12060 #endif
12061 );
12062 #ifdef LAPACK_FORTRAN_STRLEN_END
12063  #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1)
12064 #else
12065  #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__)
12066 #endif
12067 
12068 #define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF)
12069 void LAPACK_dpbstf_base(
12070  char const* uplo,
12071  lapack_int const* n, lapack_int const* kd,
12072  double* AB, lapack_int const* ldab,
12073  lapack_int* info
12074 #ifdef LAPACK_FORTRAN_STRLEN_END
12075  , size_t
12076 #endif
12077 );
12078 #ifdef LAPACK_FORTRAN_STRLEN_END
12079  #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1)
12080 #else
12081  #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__)
12082 #endif
12083 
12084 #define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF)
12085 void LAPACK_spbstf_base(
12086  char const* uplo,
12087  lapack_int const* n, lapack_int const* kd,
12088  float* AB, lapack_int const* ldab,
12089  lapack_int* info
12090 #ifdef LAPACK_FORTRAN_STRLEN_END
12091  , size_t
12092 #endif
12093 );
12094 #ifdef LAPACK_FORTRAN_STRLEN_END
12095  #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1)
12096 #else
12097  #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__)
12098 #endif
12099 
12100 #define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF)
12101 void LAPACK_zpbstf_base(
12102  char const* uplo,
12103  lapack_int const* n, lapack_int const* kd,
12104  lapack_complex_double* AB, lapack_int const* ldab,
12105  lapack_int* info
12106 #ifdef LAPACK_FORTRAN_STRLEN_END
12107  , size_t
12108 #endif
12109 );
12110 #ifdef LAPACK_FORTRAN_STRLEN_END
12111  #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1)
12112 #else
12113  #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__)
12114 #endif
12115 
12116 #define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV)
12117 void LAPACK_cpbsv_base(
12118  char const* uplo,
12119  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12120  lapack_complex_float* AB, lapack_int const* ldab,
12121  lapack_complex_float* B, lapack_int const* ldb,
12122  lapack_int* info
12123 #ifdef LAPACK_FORTRAN_STRLEN_END
12124  , size_t
12125 #endif
12126 );
12127 #ifdef LAPACK_FORTRAN_STRLEN_END
12128  #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1)
12129 #else
12130  #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__)
12131 #endif
12132 
12133 #define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV)
12134 void LAPACK_dpbsv_base(
12135  char const* uplo,
12136  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12137  double* AB, lapack_int const* ldab,
12138  double* B, lapack_int const* ldb,
12139  lapack_int* info
12140 #ifdef LAPACK_FORTRAN_STRLEN_END
12141  , size_t
12142 #endif
12143 );
12144 #ifdef LAPACK_FORTRAN_STRLEN_END
12145  #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1)
12146 #else
12147  #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__)
12148 #endif
12149 
12150 #define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV)
12151 void LAPACK_spbsv_base(
12152  char const* uplo,
12153  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12154  float* AB, lapack_int const* ldab,
12155  float* B, lapack_int const* ldb,
12156  lapack_int* info
12157 #ifdef LAPACK_FORTRAN_STRLEN_END
12158  , size_t
12159 #endif
12160 );
12161 #ifdef LAPACK_FORTRAN_STRLEN_END
12162  #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1)
12163 #else
12164  #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__)
12165 #endif
12166 
12167 #define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV)
12168 void LAPACK_zpbsv_base(
12169  char const* uplo,
12170  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12171  lapack_complex_double* AB, lapack_int const* ldab,
12172  lapack_complex_double* B, lapack_int const* ldb,
12173  lapack_int* info
12174 #ifdef LAPACK_FORTRAN_STRLEN_END
12175  , size_t
12176 #endif
12177 );
12178 #ifdef LAPACK_FORTRAN_STRLEN_END
12179  #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1)
12180 #else
12181  #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__)
12182 #endif
12183 
12184 #define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX)
12185 void LAPACK_cpbsvx_base(
12186  char const* fact, char const* uplo,
12187  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12188  lapack_complex_float* AB, lapack_int const* ldab,
12189  lapack_complex_float* AFB, lapack_int const* ldafb, char* equed,
12190  float* S,
12191  lapack_complex_float* B,
12192  lapack_int const* ldb,
12193  lapack_complex_float* X, lapack_int const* ldx,
12194  float* rcond,
12195  float* ferr,
12196  float* berr,
12197  lapack_complex_float* work,
12198  float* rwork,
12199  lapack_int* info
12200 #ifdef LAPACK_FORTRAN_STRLEN_END
12201  , size_t, size_t, size_t
12202 #endif
12203 );
12204 #ifdef LAPACK_FORTRAN_STRLEN_END
12205  #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1)
12206 #else
12207  #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__)
12208 #endif
12209 
12210 #define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX)
12211 void LAPACK_dpbsvx_base(
12212  char const* fact, char const* uplo,
12213  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12214  double* AB, lapack_int const* ldab,
12215  double* AFB, lapack_int const* ldafb, char* equed,
12216  double* S,
12217  double* B,
12218  lapack_int const* ldb,
12219  double* X, lapack_int const* ldx,
12220  double* rcond,
12221  double* ferr,
12222  double* berr,
12223  double* work,
12224  lapack_int* iwork,
12225  lapack_int* info
12226 #ifdef LAPACK_FORTRAN_STRLEN_END
12227  , size_t, size_t, size_t
12228 #endif
12229 );
12230 #ifdef LAPACK_FORTRAN_STRLEN_END
12231  #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1)
12232 #else
12233  #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__)
12234 #endif
12235 
12236 #define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX)
12237 void LAPACK_spbsvx_base(
12238  char const* fact, char const* uplo,
12239  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12240  float* AB, lapack_int const* ldab,
12241  float* AFB, lapack_int const* ldafb, char* equed,
12242  float* S,
12243  float* B,
12244  lapack_int const* ldb,
12245  float* X, lapack_int const* ldx,
12246  float* rcond,
12247  float* ferr,
12248  float* berr,
12249  float* work,
12250  lapack_int* iwork,
12251  lapack_int* info
12252 #ifdef LAPACK_FORTRAN_STRLEN_END
12253  , size_t, size_t, size_t
12254 #endif
12255 );
12256 #ifdef LAPACK_FORTRAN_STRLEN_END
12257  #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1)
12258 #else
12259  #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__)
12260 #endif
12261 
12262 #define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX)
12263 void LAPACK_zpbsvx_base(
12264  char const* fact, char const* uplo,
12265  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12266  lapack_complex_double* AB, lapack_int const* ldab,
12267  lapack_complex_double* AFB, lapack_int const* ldafb, char* equed,
12268  double* S,
12269  lapack_complex_double* B,
12270  lapack_int const* ldb,
12271  lapack_complex_double* X, lapack_int const* ldx,
12272  double* rcond,
12273  double* ferr,
12274  double* berr,
12275  lapack_complex_double* work,
12276  double* rwork,
12277  lapack_int* info
12278 #ifdef LAPACK_FORTRAN_STRLEN_END
12279  , size_t, size_t, size_t
12280 #endif
12281 );
12282 #ifdef LAPACK_FORTRAN_STRLEN_END
12283  #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1)
12284 #else
12285  #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__)
12286 #endif
12287 
12288 #define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF)
12289 void LAPACK_cpbtrf_base(
12290  char const* uplo,
12291  lapack_int const* n, lapack_int const* kd,
12292  lapack_complex_float* AB, lapack_int const* ldab,
12293  lapack_int* info
12294 #ifdef LAPACK_FORTRAN_STRLEN_END
12295  , size_t
12296 #endif
12297 );
12298 #ifdef LAPACK_FORTRAN_STRLEN_END
12299  #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1)
12300 #else
12301  #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__)
12302 #endif
12303 
12304 #define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF)
12305 void LAPACK_dpbtrf_base(
12306  char const* uplo,
12307  lapack_int const* n, lapack_int const* kd,
12308  double* AB, lapack_int const* ldab,
12309  lapack_int* info
12310 #ifdef LAPACK_FORTRAN_STRLEN_END
12311  , size_t
12312 #endif
12313 );
12314 #ifdef LAPACK_FORTRAN_STRLEN_END
12315  #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1)
12316 #else
12317  #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__)
12318 #endif
12319 
12320 #define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF)
12321 void LAPACK_spbtrf_base(
12322  char const* uplo,
12323  lapack_int const* n, lapack_int const* kd,
12324  float* AB, lapack_int const* ldab,
12325  lapack_int* info
12326 #ifdef LAPACK_FORTRAN_STRLEN_END
12327  , size_t
12328 #endif
12329 );
12330 #ifdef LAPACK_FORTRAN_STRLEN_END
12331  #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1)
12332 #else
12333  #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__)
12334 #endif
12335 
12336 #define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF)
12337 void LAPACK_zpbtrf_base(
12338  char const* uplo,
12339  lapack_int const* n, lapack_int const* kd,
12340  lapack_complex_double* AB, lapack_int const* ldab,
12341  lapack_int* info
12342 #ifdef LAPACK_FORTRAN_STRLEN_END
12343  , size_t
12344 #endif
12345 );
12346 #ifdef LAPACK_FORTRAN_STRLEN_END
12347  #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1)
12348 #else
12349  #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__)
12350 #endif
12351 
12352 #define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS)
12353 void LAPACK_cpbtrs_base(
12354  char const* uplo,
12355  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12356  lapack_complex_float const* AB, lapack_int const* ldab,
12357  lapack_complex_float* B, lapack_int const* ldb,
12358  lapack_int* info
12359 #ifdef LAPACK_FORTRAN_STRLEN_END
12360  , size_t
12361 #endif
12362 );
12363 #ifdef LAPACK_FORTRAN_STRLEN_END
12364  #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1)
12365 #else
12366  #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__)
12367 #endif
12368 
12369 #define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS)
12370 void LAPACK_dpbtrs_base(
12371  char const* uplo,
12372  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12373  double const* AB, lapack_int const* ldab,
12374  double* B, lapack_int const* ldb,
12375  lapack_int* info
12376 #ifdef LAPACK_FORTRAN_STRLEN_END
12377  , size_t
12378 #endif
12379 );
12380 #ifdef LAPACK_FORTRAN_STRLEN_END
12381  #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1)
12382 #else
12383  #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__)
12384 #endif
12385 
12386 #define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS)
12387 void LAPACK_spbtrs_base(
12388  char const* uplo,
12389  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12390  float const* AB, lapack_int const* ldab,
12391  float* B, lapack_int const* ldb,
12392  lapack_int* info
12393 #ifdef LAPACK_FORTRAN_STRLEN_END
12394  , size_t
12395 #endif
12396 );
12397 #ifdef LAPACK_FORTRAN_STRLEN_END
12398  #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1)
12399 #else
12400  #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__)
12401 #endif
12402 
12403 #define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS)
12404 void LAPACK_zpbtrs_base(
12405  char const* uplo,
12406  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12407  lapack_complex_double const* AB, lapack_int const* ldab,
12408  lapack_complex_double* B, lapack_int const* ldb,
12409  lapack_int* info
12410 #ifdef LAPACK_FORTRAN_STRLEN_END
12411  , size_t
12412 #endif
12413 );
12414 #ifdef LAPACK_FORTRAN_STRLEN_END
12415  #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1)
12416 #else
12417  #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__)
12418 #endif
12419 
12420 #define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF)
12421 void LAPACK_cpftrf_base(
12422  char const* transr, char const* uplo,
12423  lapack_int const* n,
12424  lapack_complex_float* A,
12425  lapack_int* info
12426 #ifdef LAPACK_FORTRAN_STRLEN_END
12427  , size_t, size_t
12428 #endif
12429 );
12430 #ifdef LAPACK_FORTRAN_STRLEN_END
12431  #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1)
12432 #else
12433  #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__)
12434 #endif
12435 
12436 #define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF)
12437 void LAPACK_dpftrf_base(
12438  char const* transr, char const* uplo,
12439  lapack_int const* n,
12440  double* A,
12441  lapack_int* info
12442 #ifdef LAPACK_FORTRAN_STRLEN_END
12443  , size_t, size_t
12444 #endif
12445 );
12446 #ifdef LAPACK_FORTRAN_STRLEN_END
12447  #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1)
12448 #else
12449  #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__)
12450 #endif
12451 
12452 #define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF)
12453 void LAPACK_spftrf_base(
12454  char const* transr, char const* uplo,
12455  lapack_int const* n,
12456  float* A,
12457  lapack_int* info
12458 #ifdef LAPACK_FORTRAN_STRLEN_END
12459  , size_t, size_t
12460 #endif
12461 );
12462 #ifdef LAPACK_FORTRAN_STRLEN_END
12463  #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1)
12464 #else
12465  #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__)
12466 #endif
12467 
12468 #define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF)
12469 void LAPACK_zpftrf_base(
12470  char const* transr, char const* uplo,
12471  lapack_int const* n,
12472  lapack_complex_double* A,
12473  lapack_int* info
12474 #ifdef LAPACK_FORTRAN_STRLEN_END
12475  , size_t, size_t
12476 #endif
12477 );
12478 #ifdef LAPACK_FORTRAN_STRLEN_END
12479  #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1)
12480 #else
12481  #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__)
12482 #endif
12483 
12484 #define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI)
12485 void LAPACK_cpftri_base(
12486  char const* transr, char const* uplo,
12487  lapack_int const* n,
12488  lapack_complex_float* A,
12489  lapack_int* info
12490 #ifdef LAPACK_FORTRAN_STRLEN_END
12491  , size_t, size_t
12492 #endif
12493 );
12494 #ifdef LAPACK_FORTRAN_STRLEN_END
12495  #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1)
12496 #else
12497  #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__)
12498 #endif
12499 
12500 #define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI)
12501 void LAPACK_dpftri_base(
12502  char const* transr, char const* uplo,
12503  lapack_int const* n,
12504  double* A,
12505  lapack_int* info
12506 #ifdef LAPACK_FORTRAN_STRLEN_END
12507  , size_t, size_t
12508 #endif
12509 );
12510 #ifdef LAPACK_FORTRAN_STRLEN_END
12511  #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1)
12512 #else
12513  #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__)
12514 #endif
12515 
12516 #define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI)
12517 void LAPACK_spftri_base(
12518  char const* transr, char const* uplo,
12519  lapack_int const* n,
12520  float* A,
12521  lapack_int* info
12522 #ifdef LAPACK_FORTRAN_STRLEN_END
12523  , size_t, size_t
12524 #endif
12525 );
12526 #ifdef LAPACK_FORTRAN_STRLEN_END
12527  #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1)
12528 #else
12529  #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__)
12530 #endif
12531 
12532 #define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI)
12533 void LAPACK_zpftri_base(
12534  char const* transr, char const* uplo,
12535  lapack_int const* n,
12536  lapack_complex_double* A,
12537  lapack_int* info
12538 #ifdef LAPACK_FORTRAN_STRLEN_END
12539  , size_t, size_t
12540 #endif
12541 );
12542 #ifdef LAPACK_FORTRAN_STRLEN_END
12543  #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1)
12544 #else
12545  #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__)
12546 #endif
12547 
12548 #define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS)
12549 void LAPACK_cpftrs_base(
12550  char const* transr, char const* uplo,
12551  lapack_int const* n, lapack_int const* nrhs,
12552  lapack_complex_float const* A,
12553  lapack_complex_float* B, lapack_int const* ldb,
12554  lapack_int* info
12555 #ifdef LAPACK_FORTRAN_STRLEN_END
12556  , size_t, size_t
12557 #endif
12558 );
12559 #ifdef LAPACK_FORTRAN_STRLEN_END
12560  #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1)
12561 #else
12562  #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__)
12563 #endif
12564 
12565 #define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS)
12566 void LAPACK_dpftrs_base(
12567  char const* transr, char const* uplo,
12568  lapack_int const* n, lapack_int const* nrhs,
12569  double const* A,
12570  double* B, lapack_int const* ldb,
12571  lapack_int* info
12572 #ifdef LAPACK_FORTRAN_STRLEN_END
12573  , size_t, size_t
12574 #endif
12575 );
12576 #ifdef LAPACK_FORTRAN_STRLEN_END
12577  #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1)
12578 #else
12579  #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__)
12580 #endif
12581 
12582 #define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS)
12583 void LAPACK_spftrs_base(
12584  char const* transr, char const* uplo,
12585  lapack_int const* n, lapack_int const* nrhs,
12586  float const* A,
12587  float* B, lapack_int const* ldb,
12588  lapack_int* info
12589 #ifdef LAPACK_FORTRAN_STRLEN_END
12590  , size_t, size_t
12591 #endif
12592 );
12593 #ifdef LAPACK_FORTRAN_STRLEN_END
12594  #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1)
12595 #else
12596  #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__)
12597 #endif
12598 
12599 #define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS)
12600 void LAPACK_zpftrs_base(
12601  char const* transr, char const* uplo,
12602  lapack_int const* n, lapack_int const* nrhs,
12603  lapack_complex_double const* A,
12604  lapack_complex_double* B, lapack_int const* ldb,
12605  lapack_int* info
12606 #ifdef LAPACK_FORTRAN_STRLEN_END
12607  , size_t, size_t
12608 #endif
12609 );
12610 #ifdef LAPACK_FORTRAN_STRLEN_END
12611  #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1)
12612 #else
12613  #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__)
12614 #endif
12615 
12616 #define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON)
12617 void LAPACK_cpocon_base(
12618  char const* uplo,
12619  lapack_int const* n,
12620  lapack_complex_float const* A, lapack_int const* lda,
12621  float const* anorm,
12622  float* rcond,
12623  lapack_complex_float* work,
12624  float* rwork,
12625  lapack_int* info
12626 #ifdef LAPACK_FORTRAN_STRLEN_END
12627  , size_t
12628 #endif
12629 );
12630 #ifdef LAPACK_FORTRAN_STRLEN_END
12631  #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1)
12632 #else
12633  #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__)
12634 #endif
12635 
12636 #define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON)
12637 void LAPACK_dpocon_base(
12638  char const* uplo,
12639  lapack_int const* n,
12640  double const* A, lapack_int const* lda,
12641  double const* anorm,
12642  double* rcond,
12643  double* work,
12644  lapack_int* iwork,
12645  lapack_int* info
12646 #ifdef LAPACK_FORTRAN_STRLEN_END
12647  , size_t
12648 #endif
12649 );
12650 #ifdef LAPACK_FORTRAN_STRLEN_END
12651  #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1)
12652 #else
12653  #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__)
12654 #endif
12655 
12656 #define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON)
12657 void LAPACK_spocon_base(
12658  char const* uplo,
12659  lapack_int const* n,
12660  float const* A, lapack_int const* lda,
12661  float const* anorm,
12662  float* rcond,
12663  float* work,
12664  lapack_int* iwork,
12665  lapack_int* info
12666 #ifdef LAPACK_FORTRAN_STRLEN_END
12667  , size_t
12668 #endif
12669 );
12670 #ifdef LAPACK_FORTRAN_STRLEN_END
12671  #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1)
12672 #else
12673  #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__)
12674 #endif
12675 
12676 #define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON)
12677 void LAPACK_zpocon_base(
12678  char const* uplo,
12679  lapack_int const* n,
12680  lapack_complex_double const* A, lapack_int const* lda,
12681  double const* anorm,
12682  double* rcond,
12683  lapack_complex_double* work,
12684  double* rwork,
12685  lapack_int* info
12686 #ifdef LAPACK_FORTRAN_STRLEN_END
12687  , size_t
12688 #endif
12689 );
12690 #ifdef LAPACK_FORTRAN_STRLEN_END
12691  #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1)
12692 #else
12693  #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__)
12694 #endif
12695 
12696 #define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU)
12697 void LAPACK_cpoequ(
12698  lapack_int const* n,
12699  lapack_complex_float const* A, lapack_int const* lda,
12700  float* S,
12701  float* scond,
12702  float* amax,
12703  lapack_int* info );
12704 
12705 #define LAPACK_dpoequ LAPACK_GLOBAL(dpoequ,DPOEQU)
12706 void LAPACK_dpoequ(
12707  lapack_int const* n,
12708  double const* A, lapack_int const* lda,
12709  double* S,
12710  double* scond,
12711  double* amax,
12712  lapack_int* info );
12713 
12714 #define LAPACK_spoequ LAPACK_GLOBAL(spoequ,SPOEQU)
12715 void LAPACK_spoequ(
12716  lapack_int const* n,
12717  float const* A, lapack_int const* lda,
12718  float* S,
12719  float* scond,
12720  float* amax,
12721  lapack_int* info );
12722 
12723 #define LAPACK_zpoequ LAPACK_GLOBAL(zpoequ,ZPOEQU)
12724 void LAPACK_zpoequ(
12725  lapack_int const* n,
12726  lapack_complex_double const* A, lapack_int const* lda,
12727  double* S,
12728  double* scond,
12729  double* amax,
12730  lapack_int* info );
12731 
12732 #define LAPACK_cpoequb LAPACK_GLOBAL(cpoequb,CPOEQUB)
12733 void LAPACK_cpoequb(
12734  lapack_int const* n,
12735  lapack_complex_float const* A, lapack_int const* lda,
12736  float* S,
12737  float* scond,
12738  float* amax,
12739  lapack_int* info );
12740 
12741 #define LAPACK_dpoequb LAPACK_GLOBAL(dpoequb,DPOEQUB)
12742 void LAPACK_dpoequb(
12743  lapack_int const* n,
12744  double const* A, lapack_int const* lda,
12745  double* S,
12746  double* scond,
12747  double* amax,
12748  lapack_int* info );
12749 
12750 #define LAPACK_spoequb LAPACK_GLOBAL(spoequb,SPOEQUB)
12751 void LAPACK_spoequb(
12752  lapack_int const* n,
12753  float const* A, lapack_int const* lda,
12754  float* S,
12755  float* scond,
12756  float* amax,
12757  lapack_int* info );
12758 
12759 #define LAPACK_zpoequb LAPACK_GLOBAL(zpoequb,ZPOEQUB)
12760 void LAPACK_zpoequb(
12761  lapack_int const* n,
12762  lapack_complex_double const* A, lapack_int const* lda,
12763  double* S,
12764  double* scond,
12765  double* amax,
12766  lapack_int* info );
12767 
12768 #define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS)
12769 void LAPACK_cporfs_base(
12770  char const* uplo,
12771  lapack_int const* n, lapack_int const* nrhs,
12772  lapack_complex_float const* A, lapack_int const* lda,
12773  lapack_complex_float const* AF, lapack_int const* ldaf,
12774  lapack_complex_float const* B, lapack_int const* ldb,
12775  lapack_complex_float* X, lapack_int const* ldx,
12776  float* ferr,
12777  float* berr,
12778  lapack_complex_float* work,
12779  float* rwork,
12780  lapack_int* info
12781 #ifdef LAPACK_FORTRAN_STRLEN_END
12782  , size_t
12783 #endif
12784 );
12785 #ifdef LAPACK_FORTRAN_STRLEN_END
12786  #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1)
12787 #else
12788  #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__)
12789 #endif
12790 
12791 #define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS)
12792 void LAPACK_dporfs_base(
12793  char const* uplo,
12794  lapack_int const* n, lapack_int const* nrhs,
12795  double const* A, lapack_int const* lda,
12796  double const* AF, lapack_int const* ldaf,
12797  double const* B, lapack_int const* ldb,
12798  double* X, lapack_int const* ldx,
12799  double* ferr,
12800  double* berr,
12801  double* work,
12802  lapack_int* iwork,
12803  lapack_int* info
12804 #ifdef LAPACK_FORTRAN_STRLEN_END
12805  , size_t
12806 #endif
12807 );
12808 #ifdef LAPACK_FORTRAN_STRLEN_END
12809  #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1)
12810 #else
12811  #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__)
12812 #endif
12813 
12814 #define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS)
12815 void LAPACK_sporfs_base(
12816  char const* uplo,
12817  lapack_int const* n, lapack_int const* nrhs,
12818  float const* A, lapack_int const* lda,
12819  float const* AF, lapack_int const* ldaf,
12820  float const* B, lapack_int const* ldb,
12821  float* X, lapack_int const* ldx,
12822  float* ferr,
12823  float* berr,
12824  float* work,
12825  lapack_int* iwork,
12826  lapack_int* info
12827 #ifdef LAPACK_FORTRAN_STRLEN_END
12828  , size_t
12829 #endif
12830 );
12831 #ifdef LAPACK_FORTRAN_STRLEN_END
12832  #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1)
12833 #else
12834  #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__)
12835 #endif
12836 
12837 #define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS)
12838 void LAPACK_zporfs_base(
12839  char const* uplo,
12840  lapack_int const* n, lapack_int const* nrhs,
12841  lapack_complex_double const* A, lapack_int const* lda,
12842  lapack_complex_double const* AF, lapack_int const* ldaf,
12843  lapack_complex_double const* B, lapack_int const* ldb,
12844  lapack_complex_double* X, lapack_int const* ldx,
12845  double* ferr,
12846  double* berr,
12847  lapack_complex_double* work,
12848  double* rwork,
12849  lapack_int* info
12850 #ifdef LAPACK_FORTRAN_STRLEN_END
12851  , size_t
12852 #endif
12853 );
12854 #ifdef LAPACK_FORTRAN_STRLEN_END
12855  #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1)
12856 #else
12857  #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__)
12858 #endif
12859 
12860 #define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX)
12861 void LAPACK_cporfsx_base(
12862  char const* uplo, char const* equed,
12863  lapack_int const* n, lapack_int const* nrhs,
12864  lapack_complex_float const* A, lapack_int const* lda,
12865  lapack_complex_float const* AF, lapack_int const* ldaf,
12866  const float* S,
12867  lapack_complex_float const* B, lapack_int const* ldb,
12868  lapack_complex_float* X, lapack_int const* ldx,
12869  float* rcond,
12870  float* berr, lapack_int const* n_err_bnds,
12871  float* err_bnds_norm,
12872  float* err_bnds_comp, lapack_int const* nparams,
12873  float* params,
12874  lapack_complex_float* work,
12875  float* rwork,
12876  lapack_int* info
12877 #ifdef LAPACK_FORTRAN_STRLEN_END
12878  , size_t, size_t
12879 #endif
12880 );
12881 #ifdef LAPACK_FORTRAN_STRLEN_END
12882  #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1)
12883 #else
12884  #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__)
12885 #endif
12886 
12887 #define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX)
12888 void LAPACK_dporfsx_base(
12889  char const* uplo, char const* equed,
12890  lapack_int const* n, lapack_int const* nrhs,
12891  double const* A, lapack_int const* lda,
12892  double const* AF, lapack_int const* ldaf,
12893  const double* S,
12894  double const* B, lapack_int const* ldb,
12895  double* X, lapack_int const* ldx,
12896  double* rcond,
12897  double* berr, lapack_int const* n_err_bnds,
12898  double* err_bnds_norm,
12899  double* err_bnds_comp, lapack_int const* nparams,
12900  double* params,
12901  double* work,
12902  lapack_int* iwork,
12903  lapack_int* info
12904 #ifdef LAPACK_FORTRAN_STRLEN_END
12905  , size_t, size_t
12906 #endif
12907 );
12908 #ifdef LAPACK_FORTRAN_STRLEN_END
12909  #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1)
12910 #else
12911  #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__)
12912 #endif
12913 
12914 #define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX)
12915 void LAPACK_sporfsx_base(
12916  char const* uplo, char const* equed,
12917  lapack_int const* n, lapack_int const* nrhs,
12918  float const* A, lapack_int const* lda,
12919  float const* AF, lapack_int const* ldaf,
12920  const float* S,
12921  float const* B, lapack_int const* ldb,
12922  float* X, lapack_int const* ldx,
12923  float* rcond,
12924  float* berr, lapack_int const* n_err_bnds,
12925  float* err_bnds_norm,
12926  float* err_bnds_comp, lapack_int const* nparams,
12927  float* params,
12928  float* work,
12929  lapack_int* iwork,
12930  lapack_int* info
12931 #ifdef LAPACK_FORTRAN_STRLEN_END
12932  , size_t, size_t
12933 #endif
12934 );
12935 #ifdef LAPACK_FORTRAN_STRLEN_END
12936  #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1)
12937 #else
12938  #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__)
12939 #endif
12940 
12941 #define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX)
12942 void LAPACK_zporfsx_base(
12943  char const* uplo, char const* equed,
12944  lapack_int const* n, lapack_int const* nrhs,
12945  lapack_complex_double const* A, lapack_int const* lda,
12946  lapack_complex_double const* AF, lapack_int const* ldaf,
12947  const double* S,
12948  lapack_complex_double const* B, lapack_int const* ldb,
12949  lapack_complex_double* X, lapack_int const* ldx,
12950  double* rcond,
12951  double* berr, lapack_int const* n_err_bnds,
12952  double* err_bnds_norm,
12953  double* err_bnds_comp, lapack_int const* nparams,
12954  double* params,
12955  lapack_complex_double* work,
12956  double* rwork,
12957  lapack_int* info
12958 #ifdef LAPACK_FORTRAN_STRLEN_END
12959  , size_t, size_t
12960 #endif
12961 );
12962 #ifdef LAPACK_FORTRAN_STRLEN_END
12963  #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1)
12964 #else
12965  #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__)
12966 #endif
12967 
12968 #define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV)
12969 void LAPACK_cposv_base(
12970  char const* uplo,
12971  lapack_int const* n, lapack_int const* nrhs,
12972  lapack_complex_float* A, lapack_int const* lda,
12973  lapack_complex_float* B, lapack_int const* ldb,
12974  lapack_int* info
12975 #ifdef LAPACK_FORTRAN_STRLEN_END
12976  , size_t
12977 #endif
12978 );
12979 #ifdef LAPACK_FORTRAN_STRLEN_END
12980  #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1)
12981 #else
12982  #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__)
12983 #endif
12984 
12985 #define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV)
12986 void LAPACK_dposv_base(
12987  char const* uplo,
12988  lapack_int const* n, lapack_int const* nrhs,
12989  double* A, lapack_int const* lda,
12990  double* B, lapack_int const* ldb,
12991  lapack_int* info
12992 #ifdef LAPACK_FORTRAN_STRLEN_END
12993  , size_t
12994 #endif
12995 );
12996 #ifdef LAPACK_FORTRAN_STRLEN_END
12997  #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1)
12998 #else
12999  #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__)
13000 #endif
13001 
13002 #define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV)
13003 void LAPACK_sposv_base(
13004  char const* uplo,
13005  lapack_int const* n, lapack_int const* nrhs,
13006  float* A, lapack_int const* lda,
13007  float* B, lapack_int const* ldb,
13008  lapack_int* info
13009 #ifdef LAPACK_FORTRAN_STRLEN_END
13010  , size_t
13011 #endif
13012 );
13013 #ifdef LAPACK_FORTRAN_STRLEN_END
13014  #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1)
13015 #else
13016  #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__)
13017 #endif
13018 
13019 #define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV)
13020 void LAPACK_zposv_base(
13021  char const* uplo,
13022  lapack_int const* n, lapack_int const* nrhs,
13023  lapack_complex_double* A, lapack_int const* lda,
13024  lapack_complex_double* B, lapack_int const* ldb,
13025  lapack_int* info
13026 #ifdef LAPACK_FORTRAN_STRLEN_END
13027  , size_t
13028 #endif
13029 );
13030 #ifdef LAPACK_FORTRAN_STRLEN_END
13031  #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1)
13032 #else
13033  #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__)
13034 #endif
13035 
13036 #define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV)
13037 void LAPACK_dsposv_base(
13038  char const* uplo,
13039  lapack_int const* n, lapack_int const* nrhs,
13040  double* A, lapack_int const* lda,
13041  double const* B, lapack_int const* ldb,
13042  double* X, lapack_int const* ldx,
13043  double* work,
13044  float* swork, lapack_int* iter,
13045  lapack_int* info
13046 #ifdef LAPACK_FORTRAN_STRLEN_END
13047  , size_t
13048 #endif
13049 );
13050 #ifdef LAPACK_FORTRAN_STRLEN_END
13051  #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1)
13052 #else
13053  #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__)
13054 #endif
13055 
13056 #define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV)
13057 void LAPACK_zcposv_base(
13058  char const* uplo,
13059  lapack_int const* n, lapack_int const* nrhs,
13060  lapack_complex_double* A, lapack_int const* lda,
13061  lapack_complex_double const* B, lapack_int const* ldb,
13062  lapack_complex_double* X, lapack_int const* ldx,
13063  lapack_complex_double* work,
13064  lapack_complex_float* swork,
13065  double* rwork, lapack_int* iter,
13066  lapack_int* info
13067 #ifdef LAPACK_FORTRAN_STRLEN_END
13068  , size_t
13069 #endif
13070 );
13071 #ifdef LAPACK_FORTRAN_STRLEN_END
13072  #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1)
13073 #else
13074  #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__)
13075 #endif
13076 
13077 #define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX)
13078 void LAPACK_cposvx_base(
13079  char const* fact, char const* uplo,
13080  lapack_int const* n, lapack_int const* nrhs,
13081  lapack_complex_float* A, lapack_int const* lda,
13082  lapack_complex_float* AF, lapack_int const* ldaf, char* equed,
13083  float* S,
13084  lapack_complex_float* B,
13085  lapack_int const* ldb,
13086  lapack_complex_float* X, lapack_int const* ldx,
13087  float* rcond,
13088  float* ferr,
13089  float* berr,
13090  lapack_complex_float* work,
13091  float* rwork,
13092  lapack_int* info
13093 #ifdef LAPACK_FORTRAN_STRLEN_END
13094  , size_t, size_t, size_t
13095 #endif
13096 );
13097 #ifdef LAPACK_FORTRAN_STRLEN_END
13098  #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1)
13099 #else
13100  #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__)
13101 #endif
13102 
13103 #define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX)
13104 void LAPACK_dposvx_base(
13105  char const* fact, char const* uplo,
13106  lapack_int const* n, lapack_int const* nrhs,
13107  double* A, lapack_int const* lda,
13108  double* AF, lapack_int const* ldaf, char* equed,
13109  double* S,
13110  double* B,
13111  lapack_int const* ldb,
13112  double* X, lapack_int const* ldx,
13113  double* rcond,
13114  double* ferr,
13115  double* berr,
13116  double* work,
13117  lapack_int* iwork,
13118  lapack_int* info
13119 #ifdef LAPACK_FORTRAN_STRLEN_END
13120  , size_t, size_t, size_t
13121 #endif
13122 );
13123 #ifdef LAPACK_FORTRAN_STRLEN_END
13124  #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1)
13125 #else
13126  #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__)
13127 #endif
13128 
13129 #define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX)
13130 void LAPACK_sposvx_base(
13131  char const* fact, char const* uplo,
13132  lapack_int const* n, lapack_int const* nrhs,
13133  float* A, lapack_int const* lda,
13134  float* AF, lapack_int const* ldaf, char* equed,
13135  float* S,
13136  float* B,
13137  lapack_int const* ldb,
13138  float* X, lapack_int const* ldx,
13139  float* rcond,
13140  float* ferr,
13141  float* berr,
13142  float* work,
13143  lapack_int* iwork,
13144  lapack_int* info
13145 #ifdef LAPACK_FORTRAN_STRLEN_END
13146  , size_t, size_t, size_t
13147 #endif
13148 );
13149 #ifdef LAPACK_FORTRAN_STRLEN_END
13150  #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1)
13151 #else
13152  #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__)
13153 #endif
13154 
13155 #define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX)
13156 void LAPACK_zposvx_base(
13157  char const* fact, char const* uplo,
13158  lapack_int const* n, lapack_int const* nrhs,
13159  lapack_complex_double* A, lapack_int const* lda,
13160  lapack_complex_double* AF, lapack_int const* ldaf, char* equed,
13161  double* S,
13162  lapack_complex_double* B,
13163  lapack_int const* ldb,
13164  lapack_complex_double* X, lapack_int const* ldx,
13165  double* rcond,
13166  double* ferr,
13167  double* berr,
13168  lapack_complex_double* work,
13169  double* rwork,
13170  lapack_int* info
13171 #ifdef LAPACK_FORTRAN_STRLEN_END
13172  , size_t, size_t, size_t
13173 #endif
13174 );
13175 #ifdef LAPACK_FORTRAN_STRLEN_END
13176  #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1)
13177 #else
13178  #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__)
13179 #endif
13180 
13181 #define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX)
13182 void LAPACK_cposvxx_base(
13183  char const* fact, char const* uplo,
13184  lapack_int const* n, lapack_int const* nrhs,
13185  lapack_complex_float* A, lapack_int const* lda,
13186  lapack_complex_float* AF, lapack_int const* ldaf, char* equed,
13187  float* S,
13188  lapack_complex_float* B,
13189  lapack_int const* ldb,
13190  lapack_complex_float* X, lapack_int const* ldx,
13191  float* rcond,
13192  float* rpvgrw,
13193  float* berr, lapack_int const* n_err_bnds,
13194  float* err_bnds_norm,
13195  float* err_bnds_comp, lapack_int const* nparams,
13196  float* params,
13197  lapack_complex_float* work,
13198  float* rwork,
13199  lapack_int* info
13200 #ifdef LAPACK_FORTRAN_STRLEN_END
13201  , size_t, size_t, size_t
13202 #endif
13203 );
13204 #ifdef LAPACK_FORTRAN_STRLEN_END
13205  #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1)
13206 #else
13207  #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__)
13208 #endif
13209 
13210 #define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX)
13211 void LAPACK_dposvxx_base(
13212  char const* fact, char const* uplo,
13213  lapack_int const* n, lapack_int const* nrhs,
13214  double* A, lapack_int const* lda,
13215  double* AF, lapack_int const* ldaf, char* equed,
13216  double* S,
13217  double* B,
13218  lapack_int const* ldb,
13219  double* X, lapack_int const* ldx,
13220  double* rcond,
13221  double* rpvgrw,
13222  double* berr, lapack_int const* n_err_bnds,
13223  double* err_bnds_norm,
13224  double* err_bnds_comp, lapack_int const* nparams,
13225  double* params,
13226  double* work,
13227  lapack_int* iwork,
13228  lapack_int* info
13229 #ifdef LAPACK_FORTRAN_STRLEN_END
13230  , size_t, size_t, size_t
13231 #endif
13232 );
13233 #ifdef LAPACK_FORTRAN_STRLEN_END
13234  #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1)
13235 #else
13236  #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__)
13237 #endif
13238 
13239 #define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX)
13240 void LAPACK_sposvxx_base(
13241  char const* fact, char const* uplo,
13242  lapack_int const* n, lapack_int const* nrhs,
13243  float* A, lapack_int const* lda,
13244  float* AF, lapack_int const* ldaf, char* equed,
13245  float* S,
13246  float* B,
13247  lapack_int const* ldb,
13248  float* X, lapack_int const* ldx,
13249  float* rcond,
13250  float* rpvgrw,
13251  float* berr, lapack_int const* n_err_bnds,
13252  float* err_bnds_norm,
13253  float* err_bnds_comp, lapack_int const* nparams,
13254  float* params,
13255  float* work,
13256  lapack_int* iwork,
13257  lapack_int* info
13258 #ifdef LAPACK_FORTRAN_STRLEN_END
13259  , size_t, size_t, size_t
13260 #endif
13261 );
13262 #ifdef LAPACK_FORTRAN_STRLEN_END
13263  #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1)
13264 #else
13265  #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__)
13266 #endif
13267 
13268 #define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX)
13269 void LAPACK_zposvxx_base(
13270  char const* fact, char const* uplo,
13271  lapack_int const* n, lapack_int const* nrhs,
13272  lapack_complex_double* A, lapack_int const* lda,
13273  lapack_complex_double* AF, lapack_int const* ldaf, char* equed,
13274  double* S,
13275  lapack_complex_double* B,
13276  lapack_int const* ldb,
13277  lapack_complex_double* X, lapack_int const* ldx,
13278  double* rcond,
13279  double* rpvgrw,
13280  double* berr, lapack_int const* n_err_bnds,
13281  double* err_bnds_norm,
13282  double* err_bnds_comp, lapack_int const* nparams,
13283  double* params,
13284  lapack_complex_double* work,
13285  double* rwork,
13286  lapack_int* info
13287 #ifdef LAPACK_FORTRAN_STRLEN_END
13288  , size_t, size_t, size_t
13289 #endif
13290 );
13291 #ifdef LAPACK_FORTRAN_STRLEN_END
13292  #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1)
13293 #else
13294  #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__)
13295 #endif
13296 
13297 #define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2)
13298 void LAPACK_cpotf2_base(
13299  char const* uplo,
13300  lapack_int const* n,
13301  lapack_complex_float* A, lapack_int const* lda,
13302  lapack_int* info
13303 #ifdef LAPACK_FORTRAN_STRLEN_END
13304  , size_t
13305 #endif
13306 );
13307 #ifdef LAPACK_FORTRAN_STRLEN_END
13308  #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1)
13309 #else
13310  #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__)
13311 #endif
13312 
13313 #define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2)
13314 void LAPACK_dpotf2_base(
13315  char const* uplo,
13316  lapack_int const* n,
13317  double* A, lapack_int const* lda,
13318  lapack_int* info
13319 #ifdef LAPACK_FORTRAN_STRLEN_END
13320  , size_t
13321 #endif
13322 );
13323 #ifdef LAPACK_FORTRAN_STRLEN_END
13324  #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1)
13325 #else
13326  #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__)
13327 #endif
13328 
13329 #define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2)
13330 void LAPACK_spotf2_base(
13331  char const* uplo,
13332  lapack_int const* n,
13333  float* A, lapack_int const* lda,
13334  lapack_int* info
13335 #ifdef LAPACK_FORTRAN_STRLEN_END
13336  , size_t
13337 #endif
13338 );
13339 #ifdef LAPACK_FORTRAN_STRLEN_END
13340  #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1)
13341 #else
13342  #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__)
13343 #endif
13344 
13345 #define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2)
13346 void LAPACK_zpotf2_base(
13347  char const* uplo,
13348  lapack_int const* n,
13349  lapack_complex_double* A, lapack_int const* lda,
13350  lapack_int* info
13351 #ifdef LAPACK_FORTRAN_STRLEN_END
13352  , size_t
13353 #endif
13354 );
13355 #ifdef LAPACK_FORTRAN_STRLEN_END
13356  #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1)
13357 #else
13358  #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__)
13359 #endif
13360 
13361 #define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF)
13362 void LAPACK_cpotrf_base(
13363  char const* uplo,
13364  lapack_int const* n,
13365  lapack_complex_float* A, lapack_int const* lda,
13366  lapack_int* info
13367 #ifdef LAPACK_FORTRAN_STRLEN_END
13368  , size_t
13369 #endif
13370 );
13371 #ifdef LAPACK_FORTRAN_STRLEN_END
13372  #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1)
13373 #else
13374  #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__)
13375 #endif
13376 
13377 #define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF)
13378 void LAPACK_dpotrf_base(
13379  char const* uplo,
13380  lapack_int const* n,
13381  double* A, lapack_int const* lda,
13382  lapack_int* info
13383 #ifdef LAPACK_FORTRAN_STRLEN_END
13384  , size_t
13385 #endif
13386 );
13387 #ifdef LAPACK_FORTRAN_STRLEN_END
13388  #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1)
13389 #else
13390  #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__)
13391 #endif
13392 
13393 #define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF)
13394 void LAPACK_spotrf_base(
13395  char const* uplo,
13396  lapack_int const* n,
13397  float* A, lapack_int const* lda,
13398  lapack_int* info
13399 #ifdef LAPACK_FORTRAN_STRLEN_END
13400  , size_t
13401 #endif
13402 );
13403 #ifdef LAPACK_FORTRAN_STRLEN_END
13404  #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1)
13405 #else
13406  #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__)
13407 #endif
13408 
13409 #define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF)
13410 void LAPACK_zpotrf_base(
13411  char const* uplo,
13412  lapack_int const* n,
13413  lapack_complex_double* A, lapack_int const* lda,
13414  lapack_int* info
13415 #ifdef LAPACK_FORTRAN_STRLEN_END
13416  , size_t
13417 #endif
13418 );
13419 #ifdef LAPACK_FORTRAN_STRLEN_END
13420  #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1)
13421 #else
13422  #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__)
13423 #endif
13424 
13425 #define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2)
13426 void LAPACK_cpotrf2_base(
13427  char const* uplo,
13428  lapack_int const* n,
13429  lapack_complex_float* A, lapack_int const* lda,
13430  lapack_int* info
13431 #ifdef LAPACK_FORTRAN_STRLEN_END
13432  , size_t
13433 #endif
13434 );
13435 #ifdef LAPACK_FORTRAN_STRLEN_END
13436  #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1)
13437 #else
13438  #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__)
13439 #endif
13440 
13441 #define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2)
13442 void LAPACK_dpotrf2_base(
13443  char const* uplo,
13444  lapack_int const* n,
13445  double* A, lapack_int const* lda,
13446  lapack_int* info
13447 #ifdef LAPACK_FORTRAN_STRLEN_END
13448  , size_t
13449 #endif
13450 );
13451 #ifdef LAPACK_FORTRAN_STRLEN_END
13452  #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1)
13453 #else
13454  #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__)
13455 #endif
13456 
13457 #define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2)
13458 void LAPACK_spotrf2_base(
13459  char const* uplo,
13460  lapack_int const* n,
13461  float* A, lapack_int const* lda,
13462  lapack_int* info
13463 #ifdef LAPACK_FORTRAN_STRLEN_END
13464  , size_t
13465 #endif
13466 );
13467 #ifdef LAPACK_FORTRAN_STRLEN_END
13468  #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1)
13469 #else
13470  #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__)
13471 #endif
13472 
13473 #define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2)
13474 void LAPACK_zpotrf2_base(
13475  char const* uplo,
13476  lapack_int const* n,
13477  lapack_complex_double* A, lapack_int const* lda,
13478  lapack_int* info
13479 #ifdef LAPACK_FORTRAN_STRLEN_END
13480  , size_t
13481 #endif
13482 );
13483 #ifdef LAPACK_FORTRAN_STRLEN_END
13484  #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1)
13485 #else
13486  #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__)
13487 #endif
13488 
13489 #define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI)
13490 void LAPACK_cpotri_base(
13491  char const* uplo,
13492  lapack_int const* n,
13493  lapack_complex_float* A, lapack_int const* lda,
13494  lapack_int* info
13495 #ifdef LAPACK_FORTRAN_STRLEN_END
13496  , size_t
13497 #endif
13498 );
13499 #ifdef LAPACK_FORTRAN_STRLEN_END
13500  #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1)
13501 #else
13502  #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__)
13503 #endif
13504 
13505 #define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI)
13506 void LAPACK_dpotri_base(
13507  char const* uplo,
13508  lapack_int const* n,
13509  double* A, lapack_int const* lda,
13510  lapack_int* info
13511 #ifdef LAPACK_FORTRAN_STRLEN_END
13512  , size_t
13513 #endif
13514 );
13515 #ifdef LAPACK_FORTRAN_STRLEN_END
13516  #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1)
13517 #else
13518  #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__)
13519 #endif
13520 
13521 #define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI)
13522 void LAPACK_spotri_base(
13523  char const* uplo,
13524  lapack_int const* n,
13525  float* A, lapack_int const* lda,
13526  lapack_int* info
13527 #ifdef LAPACK_FORTRAN_STRLEN_END
13528  , size_t
13529 #endif
13530 );
13531 #ifdef LAPACK_FORTRAN_STRLEN_END
13532  #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1)
13533 #else
13534  #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__)
13535 #endif
13536 
13537 #define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI)
13538 void LAPACK_zpotri_base(
13539  char const* uplo,
13540  lapack_int const* n,
13541  lapack_complex_double* A, lapack_int const* lda,
13542  lapack_int* info
13543 #ifdef LAPACK_FORTRAN_STRLEN_END
13544  , size_t
13545 #endif
13546 );
13547 #ifdef LAPACK_FORTRAN_STRLEN_END
13548  #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1)
13549 #else
13550  #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__)
13551 #endif
13552 
13553 #define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS)
13554 void LAPACK_cpotrs_base(
13555  char const* uplo,
13556  lapack_int const* n, lapack_int const* nrhs,
13557  lapack_complex_float const* A, lapack_int const* lda,
13558  lapack_complex_float* B, lapack_int const* ldb,
13559  lapack_int* info
13560 #ifdef LAPACK_FORTRAN_STRLEN_END
13561  , size_t
13562 #endif
13563 );
13564 #ifdef LAPACK_FORTRAN_STRLEN_END
13565  #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1)
13566 #else
13567  #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__)
13568 #endif
13569 
13570 #define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS)
13571 void LAPACK_dpotrs_base(
13572  char const* uplo,
13573  lapack_int const* n, lapack_int const* nrhs,
13574  double const* A, lapack_int const* lda,
13575  double* B, lapack_int const* ldb,
13576  lapack_int* info
13577 #ifdef LAPACK_FORTRAN_STRLEN_END
13578  , size_t
13579 #endif
13580 );
13581 #ifdef LAPACK_FORTRAN_STRLEN_END
13582  #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1)
13583 #else
13584  #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__)
13585 #endif
13586 
13587 #define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS)
13588 void LAPACK_spotrs_base(
13589  char const* uplo,
13590  lapack_int const* n, lapack_int const* nrhs,
13591  float const* A, lapack_int const* lda,
13592  float* B, lapack_int const* ldb,
13593  lapack_int* info
13594 #ifdef LAPACK_FORTRAN_STRLEN_END
13595  , size_t
13596 #endif
13597 );
13598 #ifdef LAPACK_FORTRAN_STRLEN_END
13599  #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1)
13600 #else
13601  #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__)
13602 #endif
13603 
13604 #define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS)
13605 void LAPACK_zpotrs_base(
13606  char const* uplo,
13607  lapack_int const* n, lapack_int const* nrhs,
13608  lapack_complex_double const* A, lapack_int const* lda,
13609  lapack_complex_double* B, lapack_int const* ldb,
13610  lapack_int* info
13611 #ifdef LAPACK_FORTRAN_STRLEN_END
13612  , size_t
13613 #endif
13614 );
13615 #ifdef LAPACK_FORTRAN_STRLEN_END
13616  #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1)
13617 #else
13618  #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__)
13619 #endif
13620 
13621 #define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON)
13622 void LAPACK_cppcon_base(
13623  char const* uplo,
13624  lapack_int const* n,
13625  lapack_complex_float const* AP,
13626  float const* anorm,
13627  float* rcond,
13628  lapack_complex_float* work,
13629  float* rwork,
13630  lapack_int* info
13631 #ifdef LAPACK_FORTRAN_STRLEN_END
13632  , size_t
13633 #endif
13634 );
13635 #ifdef LAPACK_FORTRAN_STRLEN_END
13636  #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1)
13637 #else
13638  #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__)
13639 #endif
13640 
13641 #define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON)
13642 void LAPACK_dppcon_base(
13643  char const* uplo,
13644  lapack_int const* n,
13645  double const* AP,
13646  double const* anorm,
13647  double* rcond,
13648  double* work,
13649  lapack_int* iwork,
13650  lapack_int* info
13651 #ifdef LAPACK_FORTRAN_STRLEN_END
13652  , size_t
13653 #endif
13654 );
13655 #ifdef LAPACK_FORTRAN_STRLEN_END
13656  #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1)
13657 #else
13658  #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__)
13659 #endif
13660 
13661 #define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON)
13662 void LAPACK_sppcon_base(
13663  char const* uplo,
13664  lapack_int const* n,
13665  float const* AP,
13666  float const* anorm,
13667  float* rcond,
13668  float* work,
13669  lapack_int* iwork,
13670  lapack_int* info
13671 #ifdef LAPACK_FORTRAN_STRLEN_END
13672  , size_t
13673 #endif
13674 );
13675 #ifdef LAPACK_FORTRAN_STRLEN_END
13676  #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1)
13677 #else
13678  #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__)
13679 #endif
13680 
13681 #define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON)
13682 void LAPACK_zppcon_base(
13683  char const* uplo,
13684  lapack_int const* n,
13685  lapack_complex_double const* AP,
13686  double const* anorm,
13687  double* rcond,
13688  lapack_complex_double* work,
13689  double* rwork,
13690  lapack_int* info
13691 #ifdef LAPACK_FORTRAN_STRLEN_END
13692  , size_t
13693 #endif
13694 );
13695 #ifdef LAPACK_FORTRAN_STRLEN_END
13696  #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1)
13697 #else
13698  #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__)
13699 #endif
13700 
13701 #define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU)
13702 void LAPACK_cppequ_base(
13703  char const* uplo,
13704  lapack_int const* n,
13705  lapack_complex_float const* AP,
13706  float* S,
13707  float* scond,
13708  float* amax,
13709  lapack_int* info
13710 #ifdef LAPACK_FORTRAN_STRLEN_END
13711  , size_t
13712 #endif
13713 );
13714 #ifdef LAPACK_FORTRAN_STRLEN_END
13715  #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1)
13716 #else
13717  #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__)
13718 #endif
13719 
13720 #define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU)
13721 void LAPACK_dppequ_base(
13722  char const* uplo,
13723  lapack_int const* n,
13724  double const* AP,
13725  double* S,
13726  double* scond,
13727  double* amax,
13728  lapack_int* info
13729 #ifdef LAPACK_FORTRAN_STRLEN_END
13730  , size_t
13731 #endif
13732 );
13733 #ifdef LAPACK_FORTRAN_STRLEN_END
13734  #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1)
13735 #else
13736  #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__)
13737 #endif
13738 
13739 #define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU)
13740 void LAPACK_sppequ_base(
13741  char const* uplo,
13742  lapack_int const* n,
13743  float const* AP,
13744  float* S,
13745  float* scond,
13746  float* amax,
13747  lapack_int* info
13748 #ifdef LAPACK_FORTRAN_STRLEN_END
13749  , size_t
13750 #endif
13751 );
13752 #ifdef LAPACK_FORTRAN_STRLEN_END
13753  #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1)
13754 #else
13755  #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__)
13756 #endif
13757 
13758 #define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU)
13759 void LAPACK_zppequ_base(
13760  char const* uplo,
13761  lapack_int const* n,
13762  lapack_complex_double const* AP,
13763  double* S,
13764  double* scond,
13765  double* amax,
13766  lapack_int* info
13767 #ifdef LAPACK_FORTRAN_STRLEN_END
13768  , size_t
13769 #endif
13770 );
13771 #ifdef LAPACK_FORTRAN_STRLEN_END
13772  #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1)
13773 #else
13774  #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__)
13775 #endif
13776 
13777 #define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS)
13778 void LAPACK_cpprfs_base(
13779  char const* uplo,
13780  lapack_int const* n, lapack_int const* nrhs,
13781  lapack_complex_float const* AP,
13782  lapack_complex_float const* AFP,
13783  lapack_complex_float const* B, lapack_int const* ldb,
13784  lapack_complex_float* X, lapack_int const* ldx,
13785  float* ferr,
13786  float* berr,
13787  lapack_complex_float* work,
13788  float* rwork,
13789  lapack_int* info
13790 #ifdef LAPACK_FORTRAN_STRLEN_END
13791  , size_t
13792 #endif
13793 );
13794 #ifdef LAPACK_FORTRAN_STRLEN_END
13795  #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1)
13796 #else
13797  #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__)
13798 #endif
13799 
13800 #define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS)
13801 void LAPACK_dpprfs_base(
13802  char const* uplo,
13803  lapack_int const* n, lapack_int const* nrhs,
13804  double const* AP,
13805  double const* AFP,
13806  double const* B, lapack_int const* ldb,
13807  double* X, lapack_int const* ldx,
13808  double* ferr,
13809  double* berr,
13810  double* work,
13811  lapack_int* iwork,
13812  lapack_int* info
13813 #ifdef LAPACK_FORTRAN_STRLEN_END
13814  , size_t
13815 #endif
13816 );
13817 #ifdef LAPACK_FORTRAN_STRLEN_END
13818  #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1)
13819 #else
13820  #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__)
13821 #endif
13822 
13823 #define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS)
13824 void LAPACK_spprfs_base(
13825  char const* uplo,
13826  lapack_int const* n, lapack_int const* nrhs,
13827  float const* AP,
13828  float const* AFP,
13829  float const* B, lapack_int const* ldb,
13830  float* X, lapack_int const* ldx,
13831  float* ferr,
13832  float* berr,
13833  float* work,
13834  lapack_int* iwork,
13835  lapack_int* info
13836 #ifdef LAPACK_FORTRAN_STRLEN_END
13837  , size_t
13838 #endif
13839 );
13840 #ifdef LAPACK_FORTRAN_STRLEN_END
13841  #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1)
13842 #else
13843  #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__)
13844 #endif
13845 
13846 #define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS)
13847 void LAPACK_zpprfs_base(
13848  char const* uplo,
13849  lapack_int const* n, lapack_int const* nrhs,
13850  lapack_complex_double const* AP,
13851  lapack_complex_double const* AFP,
13852  lapack_complex_double const* B, lapack_int const* ldb,
13853  lapack_complex_double* X, lapack_int const* ldx,
13854  double* ferr,
13855  double* berr,
13856  lapack_complex_double* work,
13857  double* rwork,
13858  lapack_int* info
13859 #ifdef LAPACK_FORTRAN_STRLEN_END
13860  , size_t
13861 #endif
13862 );
13863 #ifdef LAPACK_FORTRAN_STRLEN_END
13864  #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1)
13865 #else
13866  #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__)
13867 #endif
13868 
13869 #define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV)
13870 void LAPACK_cppsv_base(
13871  char const* uplo,
13872  lapack_int const* n, lapack_int const* nrhs,
13873  lapack_complex_float* AP,
13874  lapack_complex_float* B, lapack_int const* ldb,
13875  lapack_int* info
13876 #ifdef LAPACK_FORTRAN_STRLEN_END
13877  , size_t
13878 #endif
13879 );
13880 #ifdef LAPACK_FORTRAN_STRLEN_END
13881  #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1)
13882 #else
13883  #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__)
13884 #endif
13885 
13886 #define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV)
13887 void LAPACK_dppsv_base(
13888  char const* uplo,
13889  lapack_int const* n, lapack_int const* nrhs,
13890  double* AP,
13891  double* B, lapack_int const* ldb,
13892  lapack_int* info
13893 #ifdef LAPACK_FORTRAN_STRLEN_END
13894  , size_t
13895 #endif
13896 );
13897 #ifdef LAPACK_FORTRAN_STRLEN_END
13898  #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1)
13899 #else
13900  #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__)
13901 #endif
13902 
13903 #define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV)
13904 void LAPACK_sppsv_base(
13905  char const* uplo,
13906  lapack_int const* n, lapack_int const* nrhs,
13907  float* AP,
13908  float* B, lapack_int const* ldb,
13909  lapack_int* info
13910 #ifdef LAPACK_FORTRAN_STRLEN_END
13911  , size_t
13912 #endif
13913 );
13914 #ifdef LAPACK_FORTRAN_STRLEN_END
13915  #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1)
13916 #else
13917  #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__)
13918 #endif
13919 
13920 #define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV)
13921 void LAPACK_zppsv_base(
13922  char const* uplo,
13923  lapack_int const* n, lapack_int const* nrhs,
13924  lapack_complex_double* AP,
13925  lapack_complex_double* B, lapack_int const* ldb,
13926  lapack_int* info
13927 #ifdef LAPACK_FORTRAN_STRLEN_END
13928  , size_t
13929 #endif
13930 );
13931 #ifdef LAPACK_FORTRAN_STRLEN_END
13932  #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1)
13933 #else
13934  #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__)
13935 #endif
13936 
13937 #define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX)
13938 void LAPACK_cppsvx_base(
13939  char const* fact, char const* uplo,
13940  lapack_int const* n, lapack_int const* nrhs,
13941  lapack_complex_float* AP,
13942  lapack_complex_float* AFP, char* equed,
13943  float* S,
13944  lapack_complex_float* B,
13945  lapack_int const* ldb,
13946  lapack_complex_float* X, lapack_int const* ldx,
13947  float* rcond,
13948  float* ferr,
13949  float* berr,
13950  lapack_complex_float* work,
13951  float* rwork,
13952  lapack_int* info
13953 #ifdef LAPACK_FORTRAN_STRLEN_END
13954  , size_t, size_t, size_t
13955 #endif
13956 );
13957 #ifdef LAPACK_FORTRAN_STRLEN_END
13958  #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1)
13959 #else
13960  #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__)
13961 #endif
13962 
13963 #define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX)
13964 void LAPACK_dppsvx_base(
13965  char const* fact, char const* uplo,
13966  lapack_int const* n, lapack_int const* nrhs,
13967  double* AP,
13968  double* AFP, char* equed,
13969  double* S,
13970  double* B,
13971  lapack_int const* ldb,
13972  double* X, lapack_int const* ldx,
13973  double* rcond,
13974  double* ferr,
13975  double* berr,
13976  double* work,
13977  lapack_int* iwork,
13978  lapack_int* info
13979 #ifdef LAPACK_FORTRAN_STRLEN_END
13980  , size_t, size_t, size_t
13981 #endif
13982 );
13983 #ifdef LAPACK_FORTRAN_STRLEN_END
13984  #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1)
13985 #else
13986  #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__)
13987 #endif
13988 
13989 #define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX)
13990 void LAPACK_sppsvx_base(
13991  char const* fact, char const* uplo,
13992  lapack_int const* n, lapack_int const* nrhs,
13993  float* AP,
13994  float* AFP, char* equed,
13995  float* S,
13996  float* B,
13997  lapack_int const* ldb,
13998  float* X, lapack_int const* ldx,
13999  float* rcond,
14000  float* ferr,
14001  float* berr,
14002  float* work,
14003  lapack_int* iwork,
14004  lapack_int* info
14005 #ifdef LAPACK_FORTRAN_STRLEN_END
14006  , size_t, size_t, size_t
14007 #endif
14008 );
14009 #ifdef LAPACK_FORTRAN_STRLEN_END
14010  #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1)
14011 #else
14012  #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__)
14013 #endif
14014 
14015 #define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX)
14016 void LAPACK_zppsvx_base(
14017  char const* fact, char const* uplo,
14018  lapack_int const* n, lapack_int const* nrhs,
14019  lapack_complex_double* AP,
14020  lapack_complex_double* AFP, char* equed,
14021  double* S,
14022  lapack_complex_double* B,
14023  lapack_int const* ldb,
14024  lapack_complex_double* X, lapack_int const* ldx,
14025  double* rcond,
14026  double* ferr,
14027  double* berr,
14028  lapack_complex_double* work,
14029  double* rwork,
14030  lapack_int* info
14031 #ifdef LAPACK_FORTRAN_STRLEN_END
14032  , size_t, size_t, size_t
14033 #endif
14034 );
14035 #ifdef LAPACK_FORTRAN_STRLEN_END
14036  #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1)
14037 #else
14038  #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__)
14039 #endif
14040 
14041 #define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF)
14042 void LAPACK_cpptrf_base(
14043  char const* uplo,
14044  lapack_int const* n,
14045  lapack_complex_float* AP,
14046  lapack_int* info
14047 #ifdef LAPACK_FORTRAN_STRLEN_END
14048  , size_t
14049 #endif
14050 );
14051 #ifdef LAPACK_FORTRAN_STRLEN_END
14052  #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1)
14053 #else
14054  #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__)
14055 #endif
14056 
14057 #define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF)
14058 void LAPACK_dpptrf_base(
14059  char const* uplo,
14060  lapack_int const* n,
14061  double* AP,
14062  lapack_int* info
14063 #ifdef LAPACK_FORTRAN_STRLEN_END
14064  , size_t
14065 #endif
14066 );
14067 #ifdef LAPACK_FORTRAN_STRLEN_END
14068  #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1)
14069 #else
14070  #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__)
14071 #endif
14072 
14073 #define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF)
14074 void LAPACK_spptrf_base(
14075  char const* uplo,
14076  lapack_int const* n,
14077  float* AP,
14078  lapack_int* info
14079 #ifdef LAPACK_FORTRAN_STRLEN_END
14080  , size_t
14081 #endif
14082 );
14083 #ifdef LAPACK_FORTRAN_STRLEN_END
14084  #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1)
14085 #else
14086  #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__)
14087 #endif
14088 
14089 #define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF)
14090 void LAPACK_zpptrf_base(
14091  char const* uplo,
14092  lapack_int const* n,
14093  lapack_complex_double* AP,
14094  lapack_int* info
14095 #ifdef LAPACK_FORTRAN_STRLEN_END
14096  , size_t
14097 #endif
14098 );
14099 #ifdef LAPACK_FORTRAN_STRLEN_END
14100  #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1)
14101 #else
14102  #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__)
14103 #endif
14104 
14105 #define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI)
14106 void LAPACK_cpptri_base(
14107  char const* uplo,
14108  lapack_int const* n,
14109  lapack_complex_float* AP,
14110  lapack_int* info
14111 #ifdef LAPACK_FORTRAN_STRLEN_END
14112  , size_t
14113 #endif
14114 );
14115 #ifdef LAPACK_FORTRAN_STRLEN_END
14116  #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1)
14117 #else
14118  #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__)
14119 #endif
14120 
14121 #define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI)
14122 void LAPACK_dpptri_base(
14123  char const* uplo,
14124  lapack_int const* n,
14125  double* AP,
14126  lapack_int* info
14127 #ifdef LAPACK_FORTRAN_STRLEN_END
14128  , size_t
14129 #endif
14130 );
14131 #ifdef LAPACK_FORTRAN_STRLEN_END
14132  #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1)
14133 #else
14134  #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__)
14135 #endif
14136 
14137 #define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI)
14138 void LAPACK_spptri_base(
14139  char const* uplo,
14140  lapack_int const* n,
14141  float* AP,
14142  lapack_int* info
14143 #ifdef LAPACK_FORTRAN_STRLEN_END
14144  , size_t
14145 #endif
14146 );
14147 #ifdef LAPACK_FORTRAN_STRLEN_END
14148  #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1)
14149 #else
14150  #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__)
14151 #endif
14152 
14153 #define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI)
14154 void LAPACK_zpptri_base(
14155  char const* uplo,
14156  lapack_int const* n,
14157  lapack_complex_double* AP,
14158  lapack_int* info
14159 #ifdef LAPACK_FORTRAN_STRLEN_END
14160  , size_t
14161 #endif
14162 );
14163 #ifdef LAPACK_FORTRAN_STRLEN_END
14164  #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1)
14165 #else
14166  #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__)
14167 #endif
14168 
14169 #define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS)
14170 void LAPACK_cpptrs_base(
14171  char const* uplo,
14172  lapack_int const* n, lapack_int const* nrhs,
14173  lapack_complex_float const* AP,
14174  lapack_complex_float* B, lapack_int const* ldb,
14175  lapack_int* info
14176 #ifdef LAPACK_FORTRAN_STRLEN_END
14177  , size_t
14178 #endif
14179 );
14180 #ifdef LAPACK_FORTRAN_STRLEN_END
14181  #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1)
14182 #else
14183  #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__)
14184 #endif
14185 
14186 #define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS)
14187 void LAPACK_dpptrs_base(
14188  char const* uplo,
14189  lapack_int const* n, lapack_int const* nrhs,
14190  double const* AP,
14191  double* B, lapack_int const* ldb,
14192  lapack_int* info
14193 #ifdef LAPACK_FORTRAN_STRLEN_END
14194  , size_t
14195 #endif
14196 );
14197 #ifdef LAPACK_FORTRAN_STRLEN_END
14198  #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1)
14199 #else
14200  #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__)
14201 #endif
14202 
14203 #define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS)
14204 void LAPACK_spptrs_base(
14205  char const* uplo,
14206  lapack_int const* n, lapack_int const* nrhs,
14207  float const* AP,
14208  float* B, lapack_int const* ldb,
14209  lapack_int* info
14210 #ifdef LAPACK_FORTRAN_STRLEN_END
14211  , size_t
14212 #endif
14213 );
14214 #ifdef LAPACK_FORTRAN_STRLEN_END
14215  #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1)
14216 #else
14217  #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__)
14218 #endif
14219 
14220 #define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS)
14221 void LAPACK_zpptrs_base(
14222  char const* uplo,
14223  lapack_int const* n, lapack_int const* nrhs,
14224  lapack_complex_double const* AP,
14225  lapack_complex_double* B, lapack_int const* ldb,
14226  lapack_int* info
14227 #ifdef LAPACK_FORTRAN_STRLEN_END
14228  , size_t
14229 #endif
14230 );
14231 #ifdef LAPACK_FORTRAN_STRLEN_END
14232  #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1)
14233 #else
14234  #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__)
14235 #endif
14236 
14237 #define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF)
14238 void LAPACK_cpstrf_base(
14239  char const* uplo,
14240  lapack_int const* n,
14241  lapack_complex_float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14242  float const* tol,
14243  float* work,
14244  lapack_int* info
14245 #ifdef LAPACK_FORTRAN_STRLEN_END
14246  , size_t
14247 #endif
14248 );
14249 #ifdef LAPACK_FORTRAN_STRLEN_END
14250  #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1)
14251 #else
14252  #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__)
14253 #endif
14254 
14255 #define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF)
14256 void LAPACK_dpstrf_base(
14257  char const* uplo,
14258  lapack_int const* n,
14259  double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14260  double const* tol,
14261  double* work,
14262  lapack_int* info
14263 #ifdef LAPACK_FORTRAN_STRLEN_END
14264  , size_t
14265 #endif
14266 );
14267 #ifdef LAPACK_FORTRAN_STRLEN_END
14268  #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1)
14269 #else
14270  #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__)
14271 #endif
14272 
14273 #define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF)
14274 void LAPACK_spstrf_base(
14275  char const* uplo,
14276  lapack_int const* n,
14277  float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14278  float const* tol,
14279  float* work,
14280  lapack_int* info
14281 #ifdef LAPACK_FORTRAN_STRLEN_END
14282  , size_t
14283 #endif
14284 );
14285 #ifdef LAPACK_FORTRAN_STRLEN_END
14286  #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1)
14287 #else
14288  #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__)
14289 #endif
14290 
14291 #define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF)
14292 void LAPACK_zpstrf_base(
14293  char const* uplo,
14294  lapack_int const* n,
14295  lapack_complex_double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14296  double const* tol,
14297  double* work,
14298  lapack_int* info
14299 #ifdef LAPACK_FORTRAN_STRLEN_END
14300  , size_t
14301 #endif
14302 );
14303 #ifdef LAPACK_FORTRAN_STRLEN_END
14304  #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1)
14305 #else
14306  #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__)
14307 #endif
14308 
14309 #define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON)
14310 void LAPACK_cptcon(
14311  lapack_int const* n,
14312  float const* D,
14313  lapack_complex_float const* E,
14314  float const* anorm,
14315  float* rcond,
14316  float* rwork,
14317  lapack_int* info );
14318 
14319 #define LAPACK_dptcon LAPACK_GLOBAL(dptcon,DPTCON)
14320 void LAPACK_dptcon(
14321  lapack_int const* n,
14322  double const* D,
14323  double const* E,
14324  double const* anorm,
14325  double* rcond,
14326  double* work,
14327  lapack_int* info );
14328 
14329 #define LAPACK_sptcon LAPACK_GLOBAL(sptcon,SPTCON)
14330 void LAPACK_sptcon(
14331  lapack_int const* n,
14332  float const* D,
14333  float const* E,
14334  float const* anorm,
14335  float* rcond,
14336  float* work,
14337  lapack_int* info );
14338 
14339 #define LAPACK_zptcon LAPACK_GLOBAL(zptcon,ZPTCON)
14340 void LAPACK_zptcon(
14341  lapack_int const* n,
14342  double const* D,
14343  lapack_complex_double const* E,
14344  double const* anorm,
14345  double* rcond,
14346  double* rwork,
14347  lapack_int* info );
14348 
14349 #define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR)
14350 void LAPACK_cpteqr_base(
14351  char const* compz,
14352  lapack_int const* n,
14353  float* D,
14354  float* E,
14355  lapack_complex_float* Z, lapack_int const* ldz,
14356  float* work,
14357  lapack_int* info
14358 #ifdef LAPACK_FORTRAN_STRLEN_END
14359  , size_t
14360 #endif
14361 );
14362 #ifdef LAPACK_FORTRAN_STRLEN_END
14363  #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1)
14364 #else
14365  #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__)
14366 #endif
14367 
14368 #define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR)
14369 void LAPACK_dpteqr_base(
14370  char const* compz,
14371  lapack_int const* n,
14372  double* D,
14373  double* E,
14374  double* Z, lapack_int const* ldz,
14375  double* work,
14376  lapack_int* info
14377 #ifdef LAPACK_FORTRAN_STRLEN_END
14378  , size_t
14379 #endif
14380 );
14381 #ifdef LAPACK_FORTRAN_STRLEN_END
14382  #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1)
14383 #else
14384  #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__)
14385 #endif
14386 
14387 #define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR)
14388 void LAPACK_spteqr_base(
14389  char const* compz,
14390  lapack_int const* n,
14391  float* D,
14392  float* E,
14393  float* Z, lapack_int const* ldz,
14394  float* work,
14395  lapack_int* info
14396 #ifdef LAPACK_FORTRAN_STRLEN_END
14397  , size_t
14398 #endif
14399 );
14400 #ifdef LAPACK_FORTRAN_STRLEN_END
14401  #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1)
14402 #else
14403  #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__)
14404 #endif
14405 
14406 #define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR)
14407 void LAPACK_zpteqr_base(
14408  char const* compz,
14409  lapack_int const* n,
14410  double* D,
14411  double* E,
14412  lapack_complex_double* Z, lapack_int const* ldz,
14413  double* work,
14414  lapack_int* info
14415 #ifdef LAPACK_FORTRAN_STRLEN_END
14416  , size_t
14417 #endif
14418 );
14419 #ifdef LAPACK_FORTRAN_STRLEN_END
14420  #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1)
14421 #else
14422  #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__)
14423 #endif
14424 
14425 #define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS)
14426 void LAPACK_cptrfs_base(
14427  char const* uplo,
14428  lapack_int const* n, lapack_int const* nrhs,
14429  float const* D,
14430  lapack_complex_float const* E,
14431  float const* DF,
14432  lapack_complex_float const* EF,
14433  lapack_complex_float const* B, lapack_int const* ldb,
14434  lapack_complex_float* X, lapack_int const* ldx,
14435  float* ferr,
14436  float* berr,
14437  lapack_complex_float* work,
14438  float* rwork,
14439  lapack_int* info
14440 #ifdef LAPACK_FORTRAN_STRLEN_END
14441  , size_t
14442 #endif
14443 );
14444 #ifdef LAPACK_FORTRAN_STRLEN_END
14445  #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1)
14446 #else
14447  #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__)
14448 #endif
14449 
14450 #define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS)
14451 void LAPACK_dptrfs(
14452  lapack_int const* n, lapack_int const* nrhs,
14453  double const* D,
14454  double const* E,
14455  double const* DF,
14456  double const* EF,
14457  double const* B, lapack_int const* ldb,
14458  double* X, lapack_int const* ldx,
14459  double* ferr,
14460  double* berr,
14461  double* work,
14462  lapack_int* info );
14463 
14464 #define LAPACK_sptrfs LAPACK_GLOBAL(sptrfs,SPTRFS)
14465 void LAPACK_sptrfs(
14466  lapack_int const* n, lapack_int const* nrhs,
14467  float const* D,
14468  float const* E,
14469  float const* DF,
14470  float const* EF,
14471  float const* B, lapack_int const* ldb,
14472  float* X, lapack_int const* ldx,
14473  float* ferr,
14474  float* berr,
14475  float* work,
14476  lapack_int* info );
14477 
14478 #define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS)
14479 void LAPACK_zptrfs_base(
14480  char const* uplo,
14481  lapack_int const* n, lapack_int const* nrhs,
14482  double const* D,
14483  lapack_complex_double const* E,
14484  double const* DF,
14485  lapack_complex_double const* EF,
14486  lapack_complex_double const* B, lapack_int const* ldb,
14487  lapack_complex_double* X, lapack_int const* ldx,
14488  double* ferr,
14489  double* berr,
14490  lapack_complex_double* work,
14491  double* rwork,
14492  lapack_int* info
14493 #ifdef LAPACK_FORTRAN_STRLEN_END
14494  , size_t
14495 #endif
14496 );
14497 #ifdef LAPACK_FORTRAN_STRLEN_END
14498  #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1)
14499 #else
14500  #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__)
14501 #endif
14502 
14503 #define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV)
14504 void LAPACK_cptsv(
14505  lapack_int const* n, lapack_int const* nrhs,
14506  float* D,
14507  lapack_complex_float* E,
14508  lapack_complex_float* B, lapack_int const* ldb,
14509  lapack_int* info );
14510 
14511 #define LAPACK_dptsv LAPACK_GLOBAL(dptsv,DPTSV)
14512 void LAPACK_dptsv(
14513  lapack_int const* n, lapack_int const* nrhs,
14514  double* D,
14515  double* E,
14516  double* B, lapack_int const* ldb,
14517  lapack_int* info );
14518 
14519 #define LAPACK_sptsv LAPACK_GLOBAL(sptsv,SPTSV)
14520 void LAPACK_sptsv(
14521  lapack_int const* n, lapack_int const* nrhs,
14522  float* D,
14523  float* E,
14524  float* B, lapack_int const* ldb,
14525  lapack_int* info );
14526 
14527 #define LAPACK_zptsv LAPACK_GLOBAL(zptsv,ZPTSV)
14528 void LAPACK_zptsv(
14529  lapack_int const* n, lapack_int const* nrhs,
14530  double* D,
14531  lapack_complex_double* E,
14532  lapack_complex_double* B, lapack_int const* ldb,
14533  lapack_int* info );
14534 
14535 #define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX)
14536 void LAPACK_cptsvx_base(
14537  char const* fact,
14538  lapack_int const* n, lapack_int const* nrhs,
14539  float const* D,
14540  lapack_complex_float const* E,
14541  float* DF,
14542  lapack_complex_float* EF,
14543  lapack_complex_float const* B, lapack_int const* ldb,
14544  lapack_complex_float* X, lapack_int const* ldx,
14545  float* rcond,
14546  float* ferr,
14547  float* berr,
14548  lapack_complex_float* work,
14549  float* rwork,
14550  lapack_int* info
14551 #ifdef LAPACK_FORTRAN_STRLEN_END
14552  , size_t
14553 #endif
14554 );
14555 #ifdef LAPACK_FORTRAN_STRLEN_END
14556  #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1)
14557 #else
14558  #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__)
14559 #endif
14560 
14561 #define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX)
14562 void LAPACK_dptsvx_base(
14563  char const* fact,
14564  lapack_int const* n, lapack_int const* nrhs,
14565  double const* D,
14566  double const* E,
14567  double* DF,
14568  double* EF,
14569  double const* B, lapack_int const* ldb,
14570  double* X, lapack_int const* ldx,
14571  double* rcond,
14572  double* ferr,
14573  double* berr,
14574  double* work,
14575  lapack_int* info
14576 #ifdef LAPACK_FORTRAN_STRLEN_END
14577  , size_t
14578 #endif
14579 );
14580 #ifdef LAPACK_FORTRAN_STRLEN_END
14581  #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1)
14582 #else
14583  #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__)
14584 #endif
14585 
14586 #define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX)
14587 void LAPACK_sptsvx_base(
14588  char const* fact,
14589  lapack_int const* n, lapack_int const* nrhs,
14590  float const* D,
14591  float const* E,
14592  float* DF,
14593  float* EF,
14594  float const* B, lapack_int const* ldb,
14595  float* X, lapack_int const* ldx,
14596  float* rcond,
14597  float* ferr,
14598  float* berr,
14599  float* work,
14600  lapack_int* info
14601 #ifdef LAPACK_FORTRAN_STRLEN_END
14602  , size_t
14603 #endif
14604 );
14605 #ifdef LAPACK_FORTRAN_STRLEN_END
14606  #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1)
14607 #else
14608  #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__)
14609 #endif
14610 
14611 #define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX)
14612 void LAPACK_zptsvx_base(
14613  char const* fact,
14614  lapack_int const* n, lapack_int const* nrhs,
14615  double const* D,
14616  lapack_complex_double const* E,
14617  double* DF,
14618  lapack_complex_double* EF,
14619  lapack_complex_double const* B, lapack_int const* ldb,
14620  lapack_complex_double* X, lapack_int const* ldx,
14621  double* rcond,
14622  double* ferr,
14623  double* berr,
14624  lapack_complex_double* work,
14625  double* rwork,
14626  lapack_int* info
14627 #ifdef LAPACK_FORTRAN_STRLEN_END
14628  , size_t
14629 #endif
14630 );
14631 #ifdef LAPACK_FORTRAN_STRLEN_END
14632  #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1)
14633 #else
14634  #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__)
14635 #endif
14636 
14637 #define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF)
14638 void LAPACK_cpttrf(
14639  lapack_int const* n,
14640  float* D,
14641  lapack_complex_float* E,
14642  lapack_int* info );
14643 
14644 #define LAPACK_dpttrf LAPACK_GLOBAL(dpttrf,DPTTRF)
14645 void LAPACK_dpttrf(
14646  lapack_int const* n,
14647  double* D,
14648  double* E,
14649  lapack_int* info );
14650 
14651 #define LAPACK_spttrf LAPACK_GLOBAL(spttrf,SPTTRF)
14652 void LAPACK_spttrf(
14653  lapack_int const* n,
14654  float* D,
14655  float* E,
14656  lapack_int* info );
14657 
14658 #define LAPACK_zpttrf LAPACK_GLOBAL(zpttrf,ZPTTRF)
14659 void LAPACK_zpttrf(
14660  lapack_int const* n,
14661  double* D,
14662  lapack_complex_double* E,
14663  lapack_int* info );
14664 
14665 #define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS)
14666 void LAPACK_cpttrs_base(
14667  char const* uplo,
14668  lapack_int const* n, lapack_int const* nrhs,
14669  float const* D,
14670  lapack_complex_float const* E,
14671  lapack_complex_float* B, lapack_int const* ldb,
14672  lapack_int* info
14673 #ifdef LAPACK_FORTRAN_STRLEN_END
14674  , size_t
14675 #endif
14676 );
14677 #ifdef LAPACK_FORTRAN_STRLEN_END
14678  #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1)
14679 #else
14680  #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__)
14681 #endif
14682 
14683 #define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS)
14684 void LAPACK_dpttrs(
14685  lapack_int const* n, lapack_int const* nrhs,
14686  double const* D,
14687  double const* E,
14688  double* B, lapack_int const* ldb,
14689  lapack_int* info );
14690 
14691 #define LAPACK_spttrs LAPACK_GLOBAL(spttrs,SPTTRS)
14692 void LAPACK_spttrs(
14693  lapack_int const* n, lapack_int const* nrhs,
14694  float const* D,
14695  float const* E,
14696  float* B, lapack_int const* ldb,
14697  lapack_int* info );
14698 
14699 #define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS)
14700 void LAPACK_zpttrs_base(
14701  char const* uplo,
14702  lapack_int const* n, lapack_int const* nrhs,
14703  double const* D,
14704  lapack_complex_double const* E,
14705  lapack_complex_double* B, lapack_int const* ldb,
14706  lapack_int* info
14707 #ifdef LAPACK_FORTRAN_STRLEN_END
14708  , size_t
14709 #endif
14710 );
14711 #ifdef LAPACK_FORTRAN_STRLEN_END
14712  #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1)
14713 #else
14714  #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__)
14715 #endif
14716 
14717 #define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV)
14718 void LAPACK_dsbev_base(
14719  char const* jobz, char const* uplo,
14720  lapack_int const* n, lapack_int const* kd,
14721  double* AB, lapack_int const* ldab,
14722  double* W,
14723  double* Z, lapack_int const* ldz,
14724  double* work,
14725  lapack_int* info
14726 #ifdef LAPACK_FORTRAN_STRLEN_END
14727  , size_t, size_t
14728 #endif
14729 );
14730 #ifdef LAPACK_FORTRAN_STRLEN_END
14731  #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1)
14732 #else
14733  #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__)
14734 #endif
14735 
14736 #define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV)
14737 void LAPACK_ssbev_base(
14738  char const* jobz, char const* uplo,
14739  lapack_int const* n, lapack_int const* kd,
14740  float* AB, lapack_int const* ldab,
14741  float* W,
14742  float* Z, lapack_int const* ldz,
14743  float* work,
14744  lapack_int* info
14745 #ifdef LAPACK_FORTRAN_STRLEN_END
14746  , size_t, size_t
14747 #endif
14748 );
14749 #ifdef LAPACK_FORTRAN_STRLEN_END
14750  #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1)
14751 #else
14752  #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__)
14753 #endif
14754 
14755 #define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE)
14756 void LAPACK_dsbev_2stage_base(
14757  char const* jobz, char const* uplo,
14758  lapack_int const* n, lapack_int const* kd,
14759  double* AB, lapack_int const* ldab,
14760  double* W,
14761  double* Z, lapack_int const* ldz,
14762  double* work, lapack_int const* lwork,
14763  lapack_int* info
14764 #ifdef LAPACK_FORTRAN_STRLEN_END
14765  , size_t, size_t
14766 #endif
14767 );
14768 #ifdef LAPACK_FORTRAN_STRLEN_END
14769  #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1)
14770 #else
14771  #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__)
14772 #endif
14773 
14774 #define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE)
14775 void LAPACK_ssbev_2stage_base(
14776  char const* jobz, char const* uplo,
14777  lapack_int const* n, lapack_int const* kd,
14778  float* AB, lapack_int const* ldab,
14779  float* W,
14780  float* Z, lapack_int const* ldz,
14781  float* work, lapack_int const* lwork,
14782  lapack_int* info
14783 #ifdef LAPACK_FORTRAN_STRLEN_END
14784  , size_t, size_t
14785 #endif
14786 );
14787 #ifdef LAPACK_FORTRAN_STRLEN_END
14788  #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1)
14789 #else
14790  #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__)
14791 #endif
14792 
14793 #define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD)
14794 void LAPACK_dsbevd_base(
14795  char const* jobz, char const* uplo,
14796  lapack_int const* n, lapack_int const* kd,
14797  double* AB, lapack_int const* ldab,
14798  double* W,
14799  double* Z, lapack_int const* ldz,
14800  double* work, lapack_int const* lwork,
14801  lapack_int* iwork, lapack_int const* liwork,
14802  lapack_int* info
14803 #ifdef LAPACK_FORTRAN_STRLEN_END
14804  , size_t, size_t
14805 #endif
14806 );
14807 #ifdef LAPACK_FORTRAN_STRLEN_END
14808  #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1)
14809 #else
14810  #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__)
14811 #endif
14812 
14813 #define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD)
14814 void LAPACK_ssbevd_base(
14815  char const* jobz, char const* uplo,
14816  lapack_int const* n, lapack_int const* kd,
14817  float* AB, lapack_int const* ldab,
14818  float* W,
14819  float* Z, lapack_int const* ldz,
14820  float* work, lapack_int const* lwork,
14821  lapack_int* iwork, lapack_int const* liwork,
14822  lapack_int* info
14823 #ifdef LAPACK_FORTRAN_STRLEN_END
14824  , size_t, size_t
14825 #endif
14826 );
14827 #ifdef LAPACK_FORTRAN_STRLEN_END
14828  #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1)
14829 #else
14830  #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__)
14831 #endif
14832 
14833 #define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE)
14834 void LAPACK_dsbevd_2stage_base(
14835  char const* jobz, char const* uplo,
14836  lapack_int const* n, lapack_int const* kd,
14837  double* AB, lapack_int const* ldab,
14838  double* W,
14839  double* Z, lapack_int const* ldz,
14840  double* work, lapack_int const* lwork,
14841  lapack_int* iwork, lapack_int const* liwork,
14842  lapack_int* info
14843 #ifdef LAPACK_FORTRAN_STRLEN_END
14844  , size_t, size_t
14845 #endif
14846 );
14847 #ifdef LAPACK_FORTRAN_STRLEN_END
14848  #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1)
14849 #else
14850  #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__)
14851 #endif
14852 
14853 #define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE)
14854 void LAPACK_ssbevd_2stage_base(
14855  char const* jobz, char const* uplo,
14856  lapack_int const* n, lapack_int const* kd,
14857  float* AB, lapack_int const* ldab,
14858  float* W,
14859  float* Z, lapack_int const* ldz,
14860  float* work, lapack_int const* lwork,
14861  lapack_int* iwork, lapack_int const* liwork,
14862  lapack_int* info
14863 #ifdef LAPACK_FORTRAN_STRLEN_END
14864  , size_t, size_t
14865 #endif
14866 );
14867 #ifdef LAPACK_FORTRAN_STRLEN_END
14868  #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1)
14869 #else
14870  #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__)
14871 #endif
14872 
14873 #define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX)
14874 void LAPACK_dsbevx_base(
14875  char const* jobz, char const* range, char const* uplo,
14876  lapack_int const* n, lapack_int const* kd,
14877  double* AB, lapack_int const* ldab,
14878  double* Q, lapack_int const* ldq,
14879  double const* vl,
14880  double const* vu, lapack_int const* il, lapack_int const* iu,
14881  double const* abstol, lapack_int* m,
14882  double* W,
14883  double* Z, lapack_int const* ldz,
14884  double* work,
14885  lapack_int* iwork, lapack_int* IFAIL,
14886  lapack_int* info
14887 #ifdef LAPACK_FORTRAN_STRLEN_END
14888  , size_t, size_t, size_t
14889 #endif
14890 );
14891 #ifdef LAPACK_FORTRAN_STRLEN_END
14892  #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1)
14893 #else
14894  #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__)
14895 #endif
14896 
14897 #define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX)
14898 void LAPACK_ssbevx_base(
14899  char const* jobz, char const* range, char const* uplo,
14900  lapack_int const* n, lapack_int const* kd,
14901  float* AB, lapack_int const* ldab,
14902  float* Q, lapack_int const* ldq,
14903  float const* vl,
14904  float const* vu, lapack_int const* il, lapack_int const* iu,
14905  float const* abstol, lapack_int* m,
14906  float* W,
14907  float* Z, lapack_int const* ldz,
14908  float* work,
14909  lapack_int* iwork, lapack_int* IFAIL,
14910  lapack_int* info
14911 #ifdef LAPACK_FORTRAN_STRLEN_END
14912  , size_t, size_t, size_t
14913 #endif
14914 );
14915 #ifdef LAPACK_FORTRAN_STRLEN_END
14916  #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1)
14917 #else
14918  #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__)
14919 #endif
14920 
14921 #define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE)
14922 void LAPACK_dsbevx_2stage_base(
14923  char const* jobz, char const* range, char const* uplo,
14924  lapack_int const* n, lapack_int const* kd,
14925  double* AB, lapack_int const* ldab,
14926  double* Q, lapack_int const* ldq,
14927  double const* vl,
14928  double const* vu, lapack_int const* il, lapack_int const* iu,
14929  double const* abstol, lapack_int* m,
14930  double* W,
14931  double* Z, lapack_int const* ldz,
14932  double* work, lapack_int const* lwork,
14933  lapack_int* iwork, lapack_int* IFAIL,
14934  lapack_int* info
14935 #ifdef LAPACK_FORTRAN_STRLEN_END
14936  , size_t, size_t, size_t
14937 #endif
14938 );
14939 #ifdef LAPACK_FORTRAN_STRLEN_END
14940  #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14941 #else
14942  #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__)
14943 #endif
14944 
14945 #define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE)
14946 void LAPACK_ssbevx_2stage_base(
14947  char const* jobz, char const* range, char const* uplo,
14948  lapack_int const* n, lapack_int const* kd,
14949  float* AB, lapack_int const* ldab,
14950  float* Q, lapack_int const* ldq,
14951  float const* vl,
14952  float const* vu, lapack_int const* il, lapack_int const* iu,
14953  float const* abstol, lapack_int* m,
14954  float* W,
14955  float* Z, lapack_int const* ldz,
14956  float* work, lapack_int const* lwork,
14957  lapack_int* iwork, lapack_int* IFAIL,
14958  lapack_int* info
14959 #ifdef LAPACK_FORTRAN_STRLEN_END
14960  , size_t, size_t, size_t
14961 #endif
14962 );
14963 #ifdef LAPACK_FORTRAN_STRLEN_END
14964  #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14965 #else
14966  #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__)
14967 #endif
14968 
14969 #define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST)
14970 void LAPACK_dsbgst_base(
14971  char const* vect, char const* uplo,
14972  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
14973  double* AB, lapack_int const* ldab,
14974  double const* BB, lapack_int const* ldbb,
14975  double* X, lapack_int const* ldx,
14976  double* work,
14977  lapack_int* info
14978 #ifdef LAPACK_FORTRAN_STRLEN_END
14979  , size_t, size_t
14980 #endif
14981 );
14982 #ifdef LAPACK_FORTRAN_STRLEN_END
14983  #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1)
14984 #else
14985  #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__)
14986 #endif
14987 
14988 #define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST)
14989 void LAPACK_ssbgst_base(
14990  char const* vect, char const* uplo,
14991  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
14992  float* AB, lapack_int const* ldab,
14993  float const* BB, lapack_int const* ldbb,
14994  float* X, lapack_int const* ldx,
14995  float* work,
14996  lapack_int* info
14997 #ifdef LAPACK_FORTRAN_STRLEN_END
14998  , size_t, size_t
14999 #endif
15000 );
15001 #ifdef LAPACK_FORTRAN_STRLEN_END
15002  #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1)
15003 #else
15004  #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__)
15005 #endif
15006 
15007 #define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV)
15008 void LAPACK_dsbgv_base(
15009  char const* jobz, char const* uplo,
15010  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15011  double* AB, lapack_int const* ldab,
15012  double* BB, lapack_int const* ldbb,
15013  double* W,
15014  double* Z, lapack_int const* ldz,
15015  double* work,
15016  lapack_int* info
15017 #ifdef LAPACK_FORTRAN_STRLEN_END
15018  , size_t, size_t
15019 #endif
15020 );
15021 #ifdef LAPACK_FORTRAN_STRLEN_END
15022  #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1)
15023 #else
15024  #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__)
15025 #endif
15026 
15027 #define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV)
15028 void LAPACK_ssbgv_base(
15029  char const* jobz, char const* uplo,
15030  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15031  float* AB, lapack_int const* ldab,
15032  float* BB, lapack_int const* ldbb,
15033  float* W,
15034  float* Z, lapack_int const* ldz,
15035  float* work,
15036  lapack_int* info
15037 #ifdef LAPACK_FORTRAN_STRLEN_END
15038  , size_t, size_t
15039 #endif
15040 );
15041 #ifdef LAPACK_FORTRAN_STRLEN_END
15042  #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1)
15043 #else
15044  #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__)
15045 #endif
15046 
15047 #define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD)
15048 void LAPACK_dsbgvd_base(
15049  char const* jobz, char const* uplo,
15050  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15051  double* AB, lapack_int const* ldab,
15052  double* BB, lapack_int const* ldbb,
15053  double* W,
15054  double* Z, lapack_int const* ldz,
15055  double* work, lapack_int const* lwork,
15056  lapack_int* iwork, lapack_int const* liwork,
15057  lapack_int* info
15058 #ifdef LAPACK_FORTRAN_STRLEN_END
15059  , size_t, size_t
15060 #endif
15061 );
15062 #ifdef LAPACK_FORTRAN_STRLEN_END
15063  #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1)
15064 #else
15065  #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__)
15066 #endif
15067 
15068 #define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD)
15069 void LAPACK_ssbgvd_base(
15070  char const* jobz, char const* uplo,
15071  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15072  float* AB, lapack_int const* ldab,
15073  float* BB, lapack_int const* ldbb,
15074  float* W,
15075  float* Z, lapack_int const* ldz,
15076  float* work, lapack_int const* lwork,
15077  lapack_int* iwork, lapack_int const* liwork,
15078  lapack_int* info
15079 #ifdef LAPACK_FORTRAN_STRLEN_END
15080  , size_t, size_t
15081 #endif
15082 );
15083 #ifdef LAPACK_FORTRAN_STRLEN_END
15084  #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1)
15085 #else
15086  #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__)
15087 #endif
15088 
15089 #define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX)
15090 void LAPACK_dsbgvx_base(
15091  char const* jobz, char const* range, char const* uplo,
15092  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15093  double* AB, lapack_int const* ldab,
15094  double* BB, lapack_int const* ldbb,
15095  double* Q, lapack_int const* ldq,
15096  double const* vl,
15097  double const* vu, lapack_int const* il, lapack_int const* iu,
15098  double const* abstol, lapack_int* m,
15099  double* W,
15100  double* Z, lapack_int const* ldz,
15101  double* work,
15102  lapack_int* iwork, lapack_int* IFAIL,
15103  lapack_int* info
15104 #ifdef LAPACK_FORTRAN_STRLEN_END
15105  , size_t, size_t, size_t
15106 #endif
15107 );
15108 #ifdef LAPACK_FORTRAN_STRLEN_END
15109  #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1)
15110 #else
15111  #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__)
15112 #endif
15113 
15114 #define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX)
15115 void LAPACK_ssbgvx_base(
15116  char const* jobz, char const* range, char const* uplo,
15117  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15118  float* AB, lapack_int const* ldab,
15119  float* BB, lapack_int const* ldbb,
15120  float* Q, lapack_int const* ldq,
15121  float const* vl,
15122  float const* vu, lapack_int const* il, lapack_int const* iu,
15123  float const* abstol, lapack_int* m,
15124  float* W,
15125  float* Z, lapack_int const* ldz,
15126  float* work,
15127  lapack_int* iwork, lapack_int* IFAIL,
15128  lapack_int* info
15129 #ifdef LAPACK_FORTRAN_STRLEN_END
15130  , size_t, size_t, size_t
15131 #endif
15132 );
15133 #ifdef LAPACK_FORTRAN_STRLEN_END
15134  #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1)
15135 #else
15136  #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__)
15137 #endif
15138 
15139 #define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD)
15140 void LAPACK_dsbtrd_base(
15141  char const* vect, char const* uplo,
15142  lapack_int const* n, lapack_int const* kd,
15143  double* AB, lapack_int const* ldab,
15144  double* D,
15145  double* E,
15146  double* Q, lapack_int const* ldq,
15147  double* work,
15148  lapack_int* info
15149 #ifdef LAPACK_FORTRAN_STRLEN_END
15150  , size_t, size_t
15151 #endif
15152 );
15153 #ifdef LAPACK_FORTRAN_STRLEN_END
15154  #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1)
15155 #else
15156  #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__)
15157 #endif
15158 
15159 #define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD)
15160 void LAPACK_ssbtrd_base(
15161  char const* vect, char const* uplo,
15162  lapack_int const* n, lapack_int const* kd,
15163  float* AB, lapack_int const* ldab,
15164  float* D,
15165  float* E,
15166  float* Q, lapack_int const* ldq,
15167  float* work,
15168  lapack_int* info
15169 #ifdef LAPACK_FORTRAN_STRLEN_END
15170  , size_t, size_t
15171 #endif
15172 );
15173 #ifdef LAPACK_FORTRAN_STRLEN_END
15174  #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1)
15175 #else
15176  #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__)
15177 #endif
15178 
15179 #define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK)
15180 void LAPACK_dsfrk_base(
15181  char const* transr, char const* uplo, char const* trans,
15182  lapack_int const* n, lapack_int const* k,
15183  double const* alpha,
15184  double const* A, lapack_int const* lda,
15185  double const* beta,
15186  double* C
15187 #ifdef LAPACK_FORTRAN_STRLEN_END
15188  , size_t, size_t, size_t
15189 #endif
15190 );
15191 #ifdef LAPACK_FORTRAN_STRLEN_END
15192  #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1)
15193 #else
15194  #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__)
15195 #endif
15196 
15197 #define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK)
15198 void LAPACK_ssfrk_base(
15199  char const* transr, char const* uplo, char const* trans,
15200  lapack_int const* n, lapack_int const* k,
15201  float const* alpha,
15202  float const* A, lapack_int const* lda,
15203  float const* beta,
15204  float* C
15205 #ifdef LAPACK_FORTRAN_STRLEN_END
15206  , size_t, size_t, size_t
15207 #endif
15208 );
15209 #ifdef LAPACK_FORTRAN_STRLEN_END
15210  #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1)
15211 #else
15212  #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__)
15213 #endif
15214 
15215 #define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON)
15216 void LAPACK_cspcon_base(
15217  char const* uplo,
15218  lapack_int const* n,
15219  lapack_complex_float const* AP, lapack_int const* ipiv,
15220  float const* anorm,
15221  float* rcond,
15222  lapack_complex_float* work,
15223  lapack_int* info
15224 #ifdef LAPACK_FORTRAN_STRLEN_END
15225  , size_t
15226 #endif
15227 );
15228 #ifdef LAPACK_FORTRAN_STRLEN_END
15229  #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1)
15230 #else
15231  #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__)
15232 #endif
15233 
15234 #define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON)
15235 void LAPACK_dspcon_base(
15236  char const* uplo,
15237  lapack_int const* n,
15238  double const* AP, lapack_int const* ipiv,
15239  double const* anorm,
15240  double* rcond,
15241  double* work,
15242  lapack_int* iwork,
15243  lapack_int* info
15244 #ifdef LAPACK_FORTRAN_STRLEN_END
15245  , size_t
15246 #endif
15247 );
15248 #ifdef LAPACK_FORTRAN_STRLEN_END
15249  #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1)
15250 #else
15251  #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__)
15252 #endif
15253 
15254 #define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON)
15255 void LAPACK_sspcon_base(
15256  char const* uplo,
15257  lapack_int const* n,
15258  float const* AP, lapack_int const* ipiv,
15259  float const* anorm,
15260  float* rcond,
15261  float* work,
15262  lapack_int* iwork,
15263  lapack_int* info
15264 #ifdef LAPACK_FORTRAN_STRLEN_END
15265  , size_t
15266 #endif
15267 );
15268 #ifdef LAPACK_FORTRAN_STRLEN_END
15269  #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1)
15270 #else
15271  #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__)
15272 #endif
15273 
15274 #define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON)
15275 void LAPACK_zspcon_base(
15276  char const* uplo,
15277  lapack_int const* n,
15278  lapack_complex_double const* AP, lapack_int const* ipiv,
15279  double const* anorm,
15280  double* rcond,
15281  lapack_complex_double* work,
15282  lapack_int* info
15283 #ifdef LAPACK_FORTRAN_STRLEN_END
15284  , size_t
15285 #endif
15286 );
15287 #ifdef LAPACK_FORTRAN_STRLEN_END
15288  #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1)
15289 #else
15290  #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__)
15291 #endif
15292 
15293 #define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV)
15294 void LAPACK_dspev_base(
15295  char const* jobz, char const* uplo,
15296  lapack_int const* n,
15297  double* AP,
15298  double* W,
15299  double* Z, lapack_int const* ldz,
15300  double* work,
15301  lapack_int* info
15302 #ifdef LAPACK_FORTRAN_STRLEN_END
15303  , size_t, size_t
15304 #endif
15305 );
15306 #ifdef LAPACK_FORTRAN_STRLEN_END
15307  #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1)
15308 #else
15309  #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__)
15310 #endif
15311 
15312 #define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV)
15313 void LAPACK_sspev_base(
15314  char const* jobz, char const* uplo,
15315  lapack_int const* n,
15316  float* AP,
15317  float* W,
15318  float* Z, lapack_int const* ldz,
15319  float* work,
15320  lapack_int* info
15321 #ifdef LAPACK_FORTRAN_STRLEN_END
15322  , size_t, size_t
15323 #endif
15324 );
15325 #ifdef LAPACK_FORTRAN_STRLEN_END
15326  #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1)
15327 #else
15328  #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__)
15329 #endif
15330 
15331 #define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD)
15332 void LAPACK_dspevd_base(
15333  char const* jobz, char const* uplo,
15334  lapack_int const* n,
15335  double* AP,
15336  double* W,
15337  double* Z, lapack_int const* ldz,
15338  double* work, lapack_int const* lwork,
15339  lapack_int* iwork, lapack_int const* liwork,
15340  lapack_int* info
15341 #ifdef LAPACK_FORTRAN_STRLEN_END
15342  , size_t, size_t
15343 #endif
15344 );
15345 #ifdef LAPACK_FORTRAN_STRLEN_END
15346  #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1)
15347 #else
15348  #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__)
15349 #endif
15350 
15351 #define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD)
15352 void LAPACK_sspevd_base(
15353  char const* jobz, char const* uplo,
15354  lapack_int const* n,
15355  float* AP,
15356  float* W,
15357  float* Z, lapack_int const* ldz,
15358  float* work, lapack_int const* lwork,
15359  lapack_int* iwork, lapack_int const* liwork,
15360  lapack_int* info
15361 #ifdef LAPACK_FORTRAN_STRLEN_END
15362  , size_t, size_t
15363 #endif
15364 );
15365 #ifdef LAPACK_FORTRAN_STRLEN_END
15366  #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1)
15367 #else
15368  #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__)
15369 #endif
15370 
15371 #define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX)
15372 void LAPACK_dspevx_base(
15373  char const* jobz, char const* range, char const* uplo,
15374  lapack_int const* n,
15375  double* AP,
15376  double const* vl,
15377  double const* vu, lapack_int const* il, lapack_int const* iu,
15378  double const* abstol, lapack_int* m,
15379  double* W,
15380  double* Z, lapack_int const* ldz,
15381  double* work,
15382  lapack_int* iwork, lapack_int* IFAIL,
15383  lapack_int* info
15384 #ifdef LAPACK_FORTRAN_STRLEN_END
15385  , size_t, size_t, size_t
15386 #endif
15387 );
15388 #ifdef LAPACK_FORTRAN_STRLEN_END
15389  #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1)
15390 #else
15391  #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__)
15392 #endif
15393 
15394 #define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX)
15395 void LAPACK_sspevx_base(
15396  char const* jobz, char const* range, char const* uplo,
15397  lapack_int const* n,
15398  float* AP,
15399  float const* vl,
15400  float const* vu, lapack_int const* il, lapack_int const* iu,
15401  float const* abstol, lapack_int* m,
15402  float* W,
15403  float* Z, lapack_int const* ldz,
15404  float* work,
15405  lapack_int* iwork, lapack_int* IFAIL,
15406  lapack_int* info
15407 #ifdef LAPACK_FORTRAN_STRLEN_END
15408  , size_t, size_t, size_t
15409 #endif
15410 );
15411 #ifdef LAPACK_FORTRAN_STRLEN_END
15412  #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1)
15413 #else
15414  #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__)
15415 #endif
15416 
15417 #define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST)
15418 void LAPACK_dspgst_base(
15419  lapack_int const* itype, char const* uplo,
15420  lapack_int const* n,
15421  double* AP,
15422  double const* BP,
15423  lapack_int* info
15424 #ifdef LAPACK_FORTRAN_STRLEN_END
15425  , size_t
15426 #endif
15427 );
15428 #ifdef LAPACK_FORTRAN_STRLEN_END
15429  #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1)
15430 #else
15431  #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__)
15432 #endif
15433 
15434 #define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST)
15435 void LAPACK_sspgst_base(
15436  lapack_int const* itype, char const* uplo,
15437  lapack_int const* n,
15438  float* AP,
15439  float const* BP,
15440  lapack_int* info
15441 #ifdef LAPACK_FORTRAN_STRLEN_END
15442  , size_t
15443 #endif
15444 );
15445 #ifdef LAPACK_FORTRAN_STRLEN_END
15446  #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1)
15447 #else
15448  #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__)
15449 #endif
15450 
15451 #define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV)
15452 void LAPACK_dspgv_base(
15453  lapack_int const* itype, char const* jobz, char const* uplo,
15454  lapack_int const* n,
15455  double* AP,
15456  double* BP,
15457  double* W,
15458  double* Z, lapack_int const* ldz,
15459  double* work,
15460  lapack_int* info
15461 #ifdef LAPACK_FORTRAN_STRLEN_END
15462  , size_t, size_t
15463 #endif
15464 );
15465 #ifdef LAPACK_FORTRAN_STRLEN_END
15466  #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1)
15467 #else
15468  #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__)
15469 #endif
15470 
15471 #define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV)
15472 void LAPACK_sspgv_base(
15473  lapack_int const* itype, char const* jobz, char const* uplo,
15474  lapack_int const* n,
15475  float* AP,
15476  float* BP,
15477  float* W,
15478  float* Z, lapack_int const* ldz,
15479  float* work,
15480  lapack_int* info
15481 #ifdef LAPACK_FORTRAN_STRLEN_END
15482  , size_t, size_t
15483 #endif
15484 );
15485 #ifdef LAPACK_FORTRAN_STRLEN_END
15486  #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1)
15487 #else
15488  #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__)
15489 #endif
15490 
15491 #define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD)
15492 void LAPACK_dspgvd_base(
15493  lapack_int const* itype, char const* jobz, char const* uplo,
15494  lapack_int const* n,
15495  double* AP,
15496  double* BP,
15497  double* W,
15498  double* Z, lapack_int const* ldz,
15499  double* work, lapack_int const* lwork,
15500  lapack_int* iwork, lapack_int const* liwork,
15501  lapack_int* info
15502 #ifdef LAPACK_FORTRAN_STRLEN_END
15503  , size_t, size_t
15504 #endif
15505 );
15506 #ifdef LAPACK_FORTRAN_STRLEN_END
15507  #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1)
15508 #else
15509  #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__)
15510 #endif
15511 
15512 #define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD)
15513 void LAPACK_sspgvd_base(
15514  lapack_int const* itype, char const* jobz, char const* uplo,
15515  lapack_int const* n,
15516  float* AP,
15517  float* BP,
15518  float* W,
15519  float* Z, lapack_int const* ldz,
15520  float* work, lapack_int const* lwork,
15521  lapack_int* iwork, lapack_int const* liwork,
15522  lapack_int* info
15523 #ifdef LAPACK_FORTRAN_STRLEN_END
15524  , size_t, size_t
15525 #endif
15526 );
15527 #ifdef LAPACK_FORTRAN_STRLEN_END
15528  #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1)
15529 #else
15530  #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__)
15531 #endif
15532 
15533 #define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX)
15534 void LAPACK_dspgvx_base(
15535  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
15536  lapack_int const* n,
15537  double* AP,
15538  double* BP,
15539  double const* vl,
15540  double const* vu, lapack_int const* il, lapack_int const* iu,
15541  double const* abstol, lapack_int* m,
15542  double* W,
15543  double* Z, lapack_int const* ldz,
15544  double* work,
15545  lapack_int* iwork, lapack_int* IFAIL,
15546  lapack_int* info
15547 #ifdef LAPACK_FORTRAN_STRLEN_END
15548  , size_t, size_t, size_t
15549 #endif
15550 );
15551 #ifdef LAPACK_FORTRAN_STRLEN_END
15552  #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1)
15553 #else
15554  #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__)
15555 #endif
15556 
15557 #define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX)
15558 void LAPACK_sspgvx_base(
15559  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
15560  lapack_int const* n,
15561  float* AP,
15562  float* BP,
15563  float const* vl,
15564  float const* vu, lapack_int const* il, lapack_int const* iu,
15565  float const* abstol, lapack_int* m,
15566  float* W,
15567  float* Z, lapack_int const* ldz,
15568  float* work,
15569  lapack_int* iwork, lapack_int* IFAIL,
15570  lapack_int* info
15571 #ifdef LAPACK_FORTRAN_STRLEN_END
15572  , size_t, size_t, size_t
15573 #endif
15574 );
15575 #ifdef LAPACK_FORTRAN_STRLEN_END
15576  #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1)
15577 #else
15578  #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__)
15579 #endif
15580 
15581 #define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS)
15582 void LAPACK_csprfs_base(
15583  char const* uplo,
15584  lapack_int const* n, lapack_int const* nrhs,
15585  lapack_complex_float const* AP,
15586  lapack_complex_float const* AFP, lapack_int const* ipiv,
15587  lapack_complex_float const* B, lapack_int const* ldb,
15588  lapack_complex_float* X, lapack_int const* ldx,
15589  float* ferr,
15590  float* berr,
15591  lapack_complex_float* work,
15592  float* rwork,
15593  lapack_int* info
15594 #ifdef LAPACK_FORTRAN_STRLEN_END
15595  , size_t
15596 #endif
15597 );
15598 #ifdef LAPACK_FORTRAN_STRLEN_END
15599  #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1)
15600 #else
15601  #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__)
15602 #endif
15603 
15604 #define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS)
15605 void LAPACK_dsprfs_base(
15606  char const* uplo,
15607  lapack_int const* n, lapack_int const* nrhs,
15608  double const* AP,
15609  double const* AFP, lapack_int const* ipiv,
15610  double const* B, lapack_int const* ldb,
15611  double* X, lapack_int const* ldx,
15612  double* ferr,
15613  double* berr,
15614  double* work,
15615  lapack_int* iwork,
15616  lapack_int* info
15617 #ifdef LAPACK_FORTRAN_STRLEN_END
15618  , size_t
15619 #endif
15620 );
15621 #ifdef LAPACK_FORTRAN_STRLEN_END
15622  #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1)
15623 #else
15624  #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__)
15625 #endif
15626 
15627 #define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS)
15628 void LAPACK_ssprfs_base(
15629  char const* uplo,
15630  lapack_int const* n, lapack_int const* nrhs,
15631  float const* AP,
15632  float const* AFP, lapack_int const* ipiv,
15633  float const* B, lapack_int const* ldb,
15634  float* X, lapack_int const* ldx,
15635  float* ferr,
15636  float* berr,
15637  float* work,
15638  lapack_int* iwork,
15639  lapack_int* info
15640 #ifdef LAPACK_FORTRAN_STRLEN_END
15641  , size_t
15642 #endif
15643 );
15644 #ifdef LAPACK_FORTRAN_STRLEN_END
15645  #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1)
15646 #else
15647  #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__)
15648 #endif
15649 
15650 #define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS)
15651 void LAPACK_zsprfs_base(
15652  char const* uplo,
15653  lapack_int const* n, lapack_int const* nrhs,
15654  lapack_complex_double const* AP,
15655  lapack_complex_double const* AFP, lapack_int const* ipiv,
15656  lapack_complex_double const* B, lapack_int const* ldb,
15657  lapack_complex_double* X, lapack_int const* ldx,
15658  double* ferr,
15659  double* berr,
15660  lapack_complex_double* work,
15661  double* rwork,
15662  lapack_int* info
15663 #ifdef LAPACK_FORTRAN_STRLEN_END
15664  , size_t
15665 #endif
15666 );
15667 #ifdef LAPACK_FORTRAN_STRLEN_END
15668  #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1)
15669 #else
15670  #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__)
15671 #endif
15672 
15673 #define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV)
15674 void LAPACK_cspsv_base(
15675  char const* uplo,
15676  lapack_int const* n, lapack_int const* nrhs,
15677  lapack_complex_float* AP, lapack_int* ipiv,
15678  lapack_complex_float* B, lapack_int const* ldb,
15679  lapack_int* info
15680 #ifdef LAPACK_FORTRAN_STRLEN_END
15681  , size_t
15682 #endif
15683 );
15684 #ifdef LAPACK_FORTRAN_STRLEN_END
15685  #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1)
15686 #else
15687  #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__)
15688 #endif
15689 
15690 #define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV)
15691 void LAPACK_dspsv_base(
15692  char const* uplo,
15693  lapack_int const* n, lapack_int const* nrhs,
15694  double* AP, lapack_int* ipiv,
15695  double* B, lapack_int const* ldb,
15696  lapack_int* info
15697 #ifdef LAPACK_FORTRAN_STRLEN_END
15698  , size_t
15699 #endif
15700 );
15701 #ifdef LAPACK_FORTRAN_STRLEN_END
15702  #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1)
15703 #else
15704  #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__)
15705 #endif
15706 
15707 #define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV)
15708 void LAPACK_sspsv_base(
15709  char const* uplo,
15710  lapack_int const* n, lapack_int const* nrhs,
15711  float* AP, lapack_int* ipiv,
15712  float* B, lapack_int const* ldb,
15713  lapack_int* info
15714 #ifdef LAPACK_FORTRAN_STRLEN_END
15715  , size_t
15716 #endif
15717 );
15718 #ifdef LAPACK_FORTRAN_STRLEN_END
15719  #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1)
15720 #else
15721  #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__)
15722 #endif
15723 
15724 #define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV)
15725 void LAPACK_zspsv_base(
15726  char const* uplo,
15727  lapack_int const* n, lapack_int const* nrhs,
15728  lapack_complex_double* AP, lapack_int* ipiv,
15729  lapack_complex_double* B, lapack_int const* ldb,
15730  lapack_int* info
15731 #ifdef LAPACK_FORTRAN_STRLEN_END
15732  , size_t
15733 #endif
15734 );
15735 #ifdef LAPACK_FORTRAN_STRLEN_END
15736  #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1)
15737 #else
15738  #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__)
15739 #endif
15740 
15741 #define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX)
15742 void LAPACK_cspsvx_base(
15743  char const* fact, char const* uplo,
15744  lapack_int const* n, lapack_int const* nrhs,
15745  lapack_complex_float const* AP,
15746  lapack_complex_float* AFP, lapack_int* ipiv,
15747  lapack_complex_float const* B, lapack_int const* ldb,
15748  lapack_complex_float* X, lapack_int const* ldx,
15749  float* rcond,
15750  float* ferr,
15751  float* berr,
15752  lapack_complex_float* work,
15753  float* rwork,
15754  lapack_int* info
15755 #ifdef LAPACK_FORTRAN_STRLEN_END
15756  , size_t, size_t
15757 #endif
15758 );
15759 #ifdef LAPACK_FORTRAN_STRLEN_END
15760  #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1)
15761 #else
15762  #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__)
15763 #endif
15764 
15765 #define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX)
15766 void LAPACK_dspsvx_base(
15767  char const* fact, char const* uplo,
15768  lapack_int const* n, lapack_int const* nrhs,
15769  double const* AP,
15770  double* AFP, lapack_int* ipiv,
15771  double const* B, lapack_int const* ldb,
15772  double* X, lapack_int const* ldx,
15773  double* rcond,
15774  double* ferr,
15775  double* berr,
15776  double* work,
15777  lapack_int* iwork,
15778  lapack_int* info
15779 #ifdef LAPACK_FORTRAN_STRLEN_END
15780  , size_t, size_t
15781 #endif
15782 );
15783 #ifdef LAPACK_FORTRAN_STRLEN_END
15784  #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1)
15785 #else
15786  #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__)
15787 #endif
15788 
15789 #define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX)
15790 void LAPACK_sspsvx_base(
15791  char const* fact, char const* uplo,
15792  lapack_int const* n, lapack_int const* nrhs,
15793  float const* AP,
15794  float* AFP, lapack_int* ipiv,
15795  float const* B, lapack_int const* ldb,
15796  float* X, lapack_int const* ldx,
15797  float* rcond,
15798  float* ferr,
15799  float* berr,
15800  float* work,
15801  lapack_int* iwork,
15802  lapack_int* info
15803 #ifdef LAPACK_FORTRAN_STRLEN_END
15804  , size_t, size_t
15805 #endif
15806 );
15807 #ifdef LAPACK_FORTRAN_STRLEN_END
15808  #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1)
15809 #else
15810  #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__)
15811 #endif
15812 
15813 #define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX)
15814 void LAPACK_zspsvx_base(
15815  char const* fact, char const* uplo,
15816  lapack_int const* n, lapack_int const* nrhs,
15817  lapack_complex_double const* AP,
15818  lapack_complex_double* AFP, lapack_int* ipiv,
15819  lapack_complex_double const* B, lapack_int const* ldb,
15820  lapack_complex_double* X, lapack_int const* ldx,
15821  double* rcond,
15822  double* ferr,
15823  double* berr,
15824  lapack_complex_double* work,
15825  double* rwork,
15826  lapack_int* info
15827 #ifdef LAPACK_FORTRAN_STRLEN_END
15828  , size_t, size_t
15829 #endif
15830 );
15831 #ifdef LAPACK_FORTRAN_STRLEN_END
15832  #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1)
15833 #else
15834  #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__)
15835 #endif
15836 
15837 #define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD)
15838 void LAPACK_dsptrd_base(
15839  char const* uplo,
15840  lapack_int const* n,
15841  double* AP,
15842  double* D,
15843  double* E,
15844  double* tau,
15845  lapack_int* info
15846 #ifdef LAPACK_FORTRAN_STRLEN_END
15847  , size_t
15848 #endif
15849 );
15850 #ifdef LAPACK_FORTRAN_STRLEN_END
15851  #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1)
15852 #else
15853  #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__)
15854 #endif
15855 
15856 #define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD)
15857 void LAPACK_ssptrd_base(
15858  char const* uplo,
15859  lapack_int const* n,
15860  float* AP,
15861  float* D,
15862  float* E,
15863  float* tau,
15864  lapack_int* info
15865 #ifdef LAPACK_FORTRAN_STRLEN_END
15866  , size_t
15867 #endif
15868 );
15869 #ifdef LAPACK_FORTRAN_STRLEN_END
15870  #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1)
15871 #else
15872  #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__)
15873 #endif
15874 
15875 #define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF)
15876 void LAPACK_csptrf_base(
15877  char const* uplo,
15878  lapack_int const* n,
15879  lapack_complex_float* AP, lapack_int* ipiv,
15880  lapack_int* info
15881 #ifdef LAPACK_FORTRAN_STRLEN_END
15882  , size_t
15883 #endif
15884 );
15885 #ifdef LAPACK_FORTRAN_STRLEN_END
15886  #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1)
15887 #else
15888  #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__)
15889 #endif
15890 
15891 #define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF)
15892 void LAPACK_dsptrf_base(
15893  char const* uplo,
15894  lapack_int const* n,
15895  double* AP, lapack_int* ipiv,
15896  lapack_int* info
15897 #ifdef LAPACK_FORTRAN_STRLEN_END
15898  , size_t
15899 #endif
15900 );
15901 #ifdef LAPACK_FORTRAN_STRLEN_END
15902  #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1)
15903 #else
15904  #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__)
15905 #endif
15906 
15907 #define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF)
15908 void LAPACK_ssptrf_base(
15909  char const* uplo,
15910  lapack_int const* n,
15911  float* AP, lapack_int* ipiv,
15912  lapack_int* info
15913 #ifdef LAPACK_FORTRAN_STRLEN_END
15914  , size_t
15915 #endif
15916 );
15917 #ifdef LAPACK_FORTRAN_STRLEN_END
15918  #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1)
15919 #else
15920  #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__)
15921 #endif
15922 
15923 #define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF)
15924 void LAPACK_zsptrf_base(
15925  char const* uplo,
15926  lapack_int const* n,
15927  lapack_complex_double* AP, lapack_int* ipiv,
15928  lapack_int* info
15929 #ifdef LAPACK_FORTRAN_STRLEN_END
15930  , size_t
15931 #endif
15932 );
15933 #ifdef LAPACK_FORTRAN_STRLEN_END
15934  #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1)
15935 #else
15936  #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__)
15937 #endif
15938 
15939 #define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI)
15940 void LAPACK_csptri_base(
15941  char const* uplo,
15942  lapack_int const* n,
15943  lapack_complex_float* AP, lapack_int const* ipiv,
15944  lapack_complex_float* work,
15945  lapack_int* info
15946 #ifdef LAPACK_FORTRAN_STRLEN_END
15947  , size_t
15948 #endif
15949 );
15950 #ifdef LAPACK_FORTRAN_STRLEN_END
15951  #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1)
15952 #else
15953  #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__)
15954 #endif
15955 
15956 #define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI)
15957 void LAPACK_dsptri_base(
15958  char const* uplo,
15959  lapack_int const* n,
15960  double* AP, lapack_int const* ipiv,
15961  double* work,
15962  lapack_int* info
15963 #ifdef LAPACK_FORTRAN_STRLEN_END
15964  , size_t
15965 #endif
15966 );
15967 #ifdef LAPACK_FORTRAN_STRLEN_END
15968  #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1)
15969 #else
15970  #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__)
15971 #endif
15972 
15973 #define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI)
15974 void LAPACK_ssptri_base(
15975  char const* uplo,
15976  lapack_int const* n,
15977  float* AP, lapack_int const* ipiv,
15978  float* work,
15979  lapack_int* info
15980 #ifdef LAPACK_FORTRAN_STRLEN_END
15981  , size_t
15982 #endif
15983 );
15984 #ifdef LAPACK_FORTRAN_STRLEN_END
15985  #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1)
15986 #else
15987  #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__)
15988 #endif
15989 
15990 #define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI)
15991 void LAPACK_zsptri_base(
15992  char const* uplo,
15993  lapack_int const* n,
15994  lapack_complex_double* AP, lapack_int const* ipiv,
15995  lapack_complex_double* work,
15996  lapack_int* info
15997 #ifdef LAPACK_FORTRAN_STRLEN_END
15998  , size_t
15999 #endif
16000 );
16001 #ifdef LAPACK_FORTRAN_STRLEN_END
16002  #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1)
16003 #else
16004  #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__)
16005 #endif
16006 
16007 #define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS)
16008 void LAPACK_csptrs_base(
16009  char const* uplo,
16010  lapack_int const* n, lapack_int const* nrhs,
16011  lapack_complex_float const* AP, lapack_int const* ipiv,
16012  lapack_complex_float* B, lapack_int const* ldb,
16013  lapack_int* info
16014 #ifdef LAPACK_FORTRAN_STRLEN_END
16015  , size_t
16016 #endif
16017 );
16018 #ifdef LAPACK_FORTRAN_STRLEN_END
16019  #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1)
16020 #else
16021  #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__)
16022 #endif
16023 
16024 #define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS)
16025 void LAPACK_dsptrs_base(
16026  char const* uplo,
16027  lapack_int const* n, lapack_int const* nrhs,
16028  double const* AP, lapack_int const* ipiv,
16029  double* B, lapack_int const* ldb,
16030  lapack_int* info
16031 #ifdef LAPACK_FORTRAN_STRLEN_END
16032  , size_t
16033 #endif
16034 );
16035 #ifdef LAPACK_FORTRAN_STRLEN_END
16036  #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1)
16037 #else
16038  #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__)
16039 #endif
16040 
16041 #define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS)
16042 void LAPACK_ssptrs_base(
16043  char const* uplo,
16044  lapack_int const* n, lapack_int const* nrhs,
16045  float const* AP, lapack_int const* ipiv,
16046  float* B, lapack_int const* ldb,
16047  lapack_int* info
16048 #ifdef LAPACK_FORTRAN_STRLEN_END
16049  , size_t
16050 #endif
16051 );
16052 #ifdef LAPACK_FORTRAN_STRLEN_END
16053  #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1)
16054 #else
16055  #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__)
16056 #endif
16057 
16058 #define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS)
16059 void LAPACK_zsptrs_base(
16060  char const* uplo,
16061  lapack_int const* n, lapack_int const* nrhs,
16062  lapack_complex_double const* AP, lapack_int const* ipiv,
16063  lapack_complex_double* B, lapack_int const* ldb,
16064  lapack_int* info
16065 #ifdef LAPACK_FORTRAN_STRLEN_END
16066  , size_t
16067 #endif
16068 );
16069 #ifdef LAPACK_FORTRAN_STRLEN_END
16070  #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1)
16071 #else
16072  #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__)
16073 #endif
16074 
16075 #define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ)
16076 void LAPACK_dstebz_base(
16077  char const* range, char const* order,
16078  lapack_int const* n,
16079  double const* vl,
16080  double const* vu, lapack_int const* il, lapack_int const* iu,
16081  double const* abstol,
16082  double const* D,
16083  double const* E, lapack_int* m, lapack_int* nsplit,
16084  double* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16085  double* work,
16086  lapack_int* iwork,
16087  lapack_int* info
16088 #ifdef LAPACK_FORTRAN_STRLEN_END
16089  , size_t, size_t
16090 #endif
16091 );
16092 #ifdef LAPACK_FORTRAN_STRLEN_END
16093  #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1)
16094 #else
16095  #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__)
16096 #endif
16097 
16098 #define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ)
16099 void LAPACK_sstebz_base(
16100  char const* range, char const* order,
16101  lapack_int const* n,
16102  float const* vl,
16103  float const* vu, lapack_int const* il, lapack_int const* iu,
16104  float const* abstol,
16105  float const* D,
16106  float const* E, lapack_int* m, lapack_int* nsplit,
16107  float* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16108  float* work,
16109  lapack_int* iwork,
16110  lapack_int* info
16111 #ifdef LAPACK_FORTRAN_STRLEN_END
16112  , size_t, size_t
16113 #endif
16114 );
16115 #ifdef LAPACK_FORTRAN_STRLEN_END
16116  #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1)
16117 #else
16118  #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__)
16119 #endif
16120 
16121 #define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC)
16122 void LAPACK_cstedc_base(
16123  char const* compz,
16124  lapack_int const* n,
16125  float* D,
16126  float* E,
16127  lapack_complex_float* Z, lapack_int const* ldz,
16128  lapack_complex_float* work, lapack_int const* lwork,
16129  float* rwork, lapack_int const* lrwork,
16130  lapack_int* iwork, lapack_int const* liwork,
16131  lapack_int* info
16132 #ifdef LAPACK_FORTRAN_STRLEN_END
16133  , size_t
16134 #endif
16135 );
16136 #ifdef LAPACK_FORTRAN_STRLEN_END
16137  #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1)
16138 #else
16139  #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__)
16140 #endif
16141 
16142 #define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC)
16143 void LAPACK_dstedc_base(
16144  char const* compz,
16145  lapack_int const* n,
16146  double* D,
16147  double* E,
16148  double* Z, lapack_int const* ldz,
16149  double* work, lapack_int const* lwork,
16150  lapack_int* iwork, lapack_int const* liwork,
16151  lapack_int* info
16152 #ifdef LAPACK_FORTRAN_STRLEN_END
16153  , size_t
16154 #endif
16155 );
16156 #ifdef LAPACK_FORTRAN_STRLEN_END
16157  #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1)
16158 #else
16159  #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__)
16160 #endif
16161 
16162 #define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC)
16163 void LAPACK_sstedc_base(
16164  char const* compz,
16165  lapack_int const* n,
16166  float* D,
16167  float* E,
16168  float* Z, lapack_int const* ldz,
16169  float* work, lapack_int const* lwork,
16170  lapack_int* iwork, lapack_int const* liwork,
16171  lapack_int* info
16172 #ifdef LAPACK_FORTRAN_STRLEN_END
16173  , size_t
16174 #endif
16175 );
16176 #ifdef LAPACK_FORTRAN_STRLEN_END
16177  #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1)
16178 #else
16179  #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__)
16180 #endif
16181 
16182 #define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC)
16183 void LAPACK_zstedc_base(
16184  char const* compz,
16185  lapack_int const* n,
16186  double* D,
16187  double* E,
16188  lapack_complex_double* Z, lapack_int const* ldz,
16189  lapack_complex_double* work, lapack_int const* lwork,
16190  double* rwork, lapack_int const* lrwork,
16191  lapack_int* iwork, lapack_int const* liwork,
16192  lapack_int* info
16193 #ifdef LAPACK_FORTRAN_STRLEN_END
16194  , size_t
16195 #endif
16196 );
16197 #ifdef LAPACK_FORTRAN_STRLEN_END
16198  #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1)
16199 #else
16200  #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__)
16201 #endif
16202 
16203 #define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR)
16204 void LAPACK_cstegr_base(
16205  char const* jobz, char const* range,
16206  lapack_int const* n,
16207  float* D,
16208  float* E,
16209  float const* vl,
16210  float const* vu, lapack_int const* il, lapack_int const* iu,
16211  float const* abstol, lapack_int* m,
16212  float* W,
16213  lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16214  float* work, lapack_int const* lwork,
16215  lapack_int* iwork, lapack_int const* liwork,
16216  lapack_int* info
16217 #ifdef LAPACK_FORTRAN_STRLEN_END
16218  , size_t, size_t
16219 #endif
16220 );
16221 #ifdef LAPACK_FORTRAN_STRLEN_END
16222  #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1)
16223 #else
16224  #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__)
16225 #endif
16226 
16227 #define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR)
16228 void LAPACK_dstegr_base(
16229  char const* jobz, char const* range,
16230  lapack_int const* n,
16231  double* D,
16232  double* E,
16233  double const* vl,
16234  double const* vu, lapack_int const* il, lapack_int const* iu,
16235  double const* abstol, lapack_int* m,
16236  double* W,
16237  double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16238  double* work, lapack_int const* lwork,
16239  lapack_int* iwork, lapack_int const* liwork,
16240  lapack_int* info
16241 #ifdef LAPACK_FORTRAN_STRLEN_END
16242  , size_t, size_t
16243 #endif
16244 );
16245 #ifdef LAPACK_FORTRAN_STRLEN_END
16246  #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1)
16247 #else
16248  #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__)
16249 #endif
16250 
16251 #define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR)
16252 void LAPACK_sstegr_base(
16253  char const* jobz, char const* range,
16254  lapack_int const* n,
16255  float* D,
16256  float* E,
16257  float const* vl,
16258  float const* vu, lapack_int const* il, lapack_int const* iu,
16259  float const* abstol, lapack_int* m,
16260  float* W,
16261  float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16262  float* work, lapack_int const* lwork,
16263  lapack_int* iwork, lapack_int const* liwork,
16264  lapack_int* info
16265 #ifdef LAPACK_FORTRAN_STRLEN_END
16266  , size_t, size_t
16267 #endif
16268 );
16269 #ifdef LAPACK_FORTRAN_STRLEN_END
16270  #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1)
16271 #else
16272  #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__)
16273 #endif
16274 
16275 #define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR)
16276 void LAPACK_zstegr_base(
16277  char const* jobz, char const* range,
16278  lapack_int const* n,
16279  double* D,
16280  double* E,
16281  double const* vl,
16282  double const* vu, lapack_int const* il, lapack_int const* iu,
16283  double const* abstol, lapack_int* m,
16284  double* W,
16285  lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16286  double* work, lapack_int const* lwork,
16287  lapack_int* iwork, lapack_int const* liwork,
16288  lapack_int* info
16289 #ifdef LAPACK_FORTRAN_STRLEN_END
16290  , size_t, size_t
16291 #endif
16292 );
16293 #ifdef LAPACK_FORTRAN_STRLEN_END
16294  #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1)
16295 #else
16296  #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__)
16297 #endif
16298 
16299 #define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN)
16300 void LAPACK_cstein(
16301  lapack_int const* n,
16302  float const* D,
16303  float const* E, lapack_int const* m,
16304  float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16305  lapack_complex_float* Z, lapack_int const* ldz,
16306  float* work,
16307  lapack_int* iwork, lapack_int* IFAIL,
16308  lapack_int* info );
16309 
16310 #define LAPACK_dstein LAPACK_GLOBAL(dstein,DSTEIN)
16311 void LAPACK_dstein(
16312  lapack_int const* n,
16313  double const* D,
16314  double const* E, lapack_int const* m,
16315  double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16316  double* Z, lapack_int const* ldz,
16317  double* work,
16318  lapack_int* iwork, lapack_int* IFAIL,
16319  lapack_int* info );
16320 
16321 #define LAPACK_sstein LAPACK_GLOBAL(sstein,SSTEIN)
16322 void LAPACK_sstein(
16323  lapack_int const* n,
16324  float const* D,
16325  float const* E, lapack_int const* m,
16326  float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16327  float* Z, lapack_int const* ldz,
16328  float* work,
16329  lapack_int* iwork, lapack_int* IFAIL,
16330  lapack_int* info );
16331 
16332 #define LAPACK_zstein LAPACK_GLOBAL(zstein,ZSTEIN)
16333 void LAPACK_zstein(
16334  lapack_int const* n,
16335  double const* D,
16336  double const* E, lapack_int const* m,
16337  double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16338  lapack_complex_double* Z, lapack_int const* ldz,
16339  double* work,
16340  lapack_int* iwork, lapack_int* IFAIL,
16341  lapack_int* info );
16342 
16343 #define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR)
16344 void LAPACK_cstemr_base(
16345  char const* jobz, char const* range,
16346  lapack_int const* n,
16347  float* D,
16348  float* E,
16349  float const* vl,
16350  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16351  float* W,
16352  lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16353  float* work, lapack_int const* lwork,
16354  lapack_int* iwork, lapack_int const* liwork,
16355  lapack_int* info
16356 #ifdef LAPACK_FORTRAN_STRLEN_END
16357  , size_t, size_t
16358 #endif
16359 );
16360 #ifdef LAPACK_FORTRAN_STRLEN_END
16361  #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1)
16362 #else
16363  #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__)
16364 #endif
16365 
16366 #define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR)
16367 void LAPACK_dstemr_base(
16368  char const* jobz, char const* range,
16369  lapack_int const* n,
16370  double* D,
16371  double* E,
16372  double const* vl,
16373  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16374  double* W,
16375  double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16376  double* work, lapack_int const* lwork,
16377  lapack_int* iwork, lapack_int const* liwork,
16378  lapack_int* info
16379 #ifdef LAPACK_FORTRAN_STRLEN_END
16380  , size_t, size_t
16381 #endif
16382 );
16383 #ifdef LAPACK_FORTRAN_STRLEN_END
16384  #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1)
16385 #else
16386  #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__)
16387 #endif
16388 
16389 #define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR)
16390 void LAPACK_sstemr_base(
16391  char const* jobz, char const* range,
16392  lapack_int const* n,
16393  float* D,
16394  float* E,
16395  float const* vl,
16396  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16397  float* W,
16398  float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16399  float* work, lapack_int const* lwork,
16400  lapack_int* iwork, lapack_int const* liwork,
16401  lapack_int* info
16402 #ifdef LAPACK_FORTRAN_STRLEN_END
16403  , size_t, size_t
16404 #endif
16405 );
16406 #ifdef LAPACK_FORTRAN_STRLEN_END
16407  #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1)
16408 #else
16409  #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__)
16410 #endif
16411 
16412 #define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR)
16413 void LAPACK_zstemr_base(
16414  char const* jobz, char const* range,
16415  lapack_int const* n,
16416  double* D,
16417  double* E,
16418  double const* vl,
16419  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16420  double* W,
16421  lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16422  double* work, lapack_int const* lwork,
16423  lapack_int* iwork, lapack_int const* liwork,
16424  lapack_int* info
16425 #ifdef LAPACK_FORTRAN_STRLEN_END
16426  , size_t, size_t
16427 #endif
16428 );
16429 #ifdef LAPACK_FORTRAN_STRLEN_END
16430  #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1)
16431 #else
16432  #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__)
16433 #endif
16434 
16435 #define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR)
16436 void LAPACK_csteqr_base(
16437  char const* compz,
16438  lapack_int const* n,
16439  float* D,
16440  float* E,
16441  lapack_complex_float* Z, lapack_int const* ldz,
16442  float* work,
16443  lapack_int* info
16444 #ifdef LAPACK_FORTRAN_STRLEN_END
16445  , size_t
16446 #endif
16447 );
16448 #ifdef LAPACK_FORTRAN_STRLEN_END
16449  #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1)
16450 #else
16451  #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__)
16452 #endif
16453 
16454 #define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR)
16455 void LAPACK_dsteqr_base(
16456  char const* compz,
16457  lapack_int const* n,
16458  double* D,
16459  double* E,
16460  double* Z, lapack_int const* ldz,
16461  double* work,
16462  lapack_int* info
16463 #ifdef LAPACK_FORTRAN_STRLEN_END
16464  , size_t
16465 #endif
16466 );
16467 #ifdef LAPACK_FORTRAN_STRLEN_END
16468  #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1)
16469 #else
16470  #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__)
16471 #endif
16472 
16473 #define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR)
16474 void LAPACK_ssteqr_base(
16475  char const* compz,
16476  lapack_int const* n,
16477  float* D,
16478  float* E,
16479  float* Z, lapack_int const* ldz,
16480  float* work,
16481  lapack_int* info
16482 #ifdef LAPACK_FORTRAN_STRLEN_END
16483  , size_t
16484 #endif
16485 );
16486 #ifdef LAPACK_FORTRAN_STRLEN_END
16487  #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1)
16488 #else
16489  #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__)
16490 #endif
16491 
16492 #define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR)
16493 void LAPACK_zsteqr_base(
16494  char const* compz,
16495  lapack_int const* n,
16496  double* D,
16497  double* E,
16498  lapack_complex_double* Z, lapack_int const* ldz,
16499  double* work,
16500  lapack_int* info
16501 #ifdef LAPACK_FORTRAN_STRLEN_END
16502  , size_t
16503 #endif
16504 );
16505 #ifdef LAPACK_FORTRAN_STRLEN_END
16506  #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1)
16507 #else
16508  #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__)
16509 #endif
16510 
16511 #define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF)
16512 void LAPACK_dsterf(
16513  lapack_int const* n,
16514  double* D,
16515  double* E,
16516  lapack_int* info );
16517 
16518 #define LAPACK_ssterf LAPACK_GLOBAL(ssterf,SSTERF)
16519 void LAPACK_ssterf(
16520  lapack_int const* n,
16521  float* D,
16522  float* E,
16523  lapack_int* info );
16524 
16525 #define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV)
16526 void LAPACK_dstev_base(
16527  char const* jobz,
16528  lapack_int const* n,
16529  double* D,
16530  double* E,
16531  double* Z, lapack_int const* ldz,
16532  double* work,
16533  lapack_int* info
16534 #ifdef LAPACK_FORTRAN_STRLEN_END
16535  , size_t
16536 #endif
16537 );
16538 #ifdef LAPACK_FORTRAN_STRLEN_END
16539  #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1)
16540 #else
16541  #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__)
16542 #endif
16543 
16544 #define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV)
16545 void LAPACK_sstev_base(
16546  char const* jobz,
16547  lapack_int const* n,
16548  float* D,
16549  float* E,
16550  float* Z, lapack_int const* ldz,
16551  float* work,
16552  lapack_int* info
16553 #ifdef LAPACK_FORTRAN_STRLEN_END
16554  , size_t
16555 #endif
16556 );
16557 #ifdef LAPACK_FORTRAN_STRLEN_END
16558  #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1)
16559 #else
16560  #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__)
16561 #endif
16562 
16563 #define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD)
16564 void LAPACK_dstevd_base(
16565  char const* jobz,
16566  lapack_int const* n,
16567  double* D,
16568  double* E,
16569  double* Z, lapack_int const* ldz,
16570  double* work, lapack_int const* lwork,
16571  lapack_int* iwork, lapack_int const* liwork,
16572  lapack_int* info
16573 #ifdef LAPACK_FORTRAN_STRLEN_END
16574  , size_t
16575 #endif
16576 );
16577 #ifdef LAPACK_FORTRAN_STRLEN_END
16578  #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1)
16579 #else
16580  #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__)
16581 #endif
16582 
16583 #define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD)
16584 void LAPACK_sstevd_base(
16585  char const* jobz,
16586  lapack_int const* n,
16587  float* D,
16588  float* E,
16589  float* Z, lapack_int const* ldz,
16590  float* work, lapack_int const* lwork,
16591  lapack_int* iwork, lapack_int const* liwork,
16592  lapack_int* info
16593 #ifdef LAPACK_FORTRAN_STRLEN_END
16594  , size_t
16595 #endif
16596 );
16597 #ifdef LAPACK_FORTRAN_STRLEN_END
16598  #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1)
16599 #else
16600  #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__)
16601 #endif
16602 
16603 #define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR)
16604 void LAPACK_dstevr_base(
16605  char const* jobz, char const* range,
16606  lapack_int const* n,
16607  double* D,
16608  double* E,
16609  double const* vl,
16610  double const* vu, lapack_int const* il, lapack_int const* iu,
16611  double const* abstol, lapack_int* m,
16612  double* W,
16613  double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16614  double* work, lapack_int const* lwork,
16615  lapack_int* iwork, lapack_int const* liwork,
16616  lapack_int* info
16617 #ifdef LAPACK_FORTRAN_STRLEN_END
16618  , size_t, size_t
16619 #endif
16620 );
16621 #ifdef LAPACK_FORTRAN_STRLEN_END
16622  #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1)
16623 #else
16624  #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__)
16625 #endif
16626 
16627 #define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR)
16628 void LAPACK_sstevr_base(
16629  char const* jobz, char const* range,
16630  lapack_int const* n,
16631  float* D,
16632  float* E,
16633  float const* vl,
16634  float const* vu, lapack_int const* il, lapack_int const* iu,
16635  float const* abstol, lapack_int* m,
16636  float* W,
16637  float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16638  float* work, lapack_int const* lwork,
16639  lapack_int* iwork, lapack_int const* liwork,
16640  lapack_int* info
16641 #ifdef LAPACK_FORTRAN_STRLEN_END
16642  , size_t, size_t
16643 #endif
16644 );
16645 #ifdef LAPACK_FORTRAN_STRLEN_END
16646  #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1)
16647 #else
16648  #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__)
16649 #endif
16650 
16651 #define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX)
16652 void LAPACK_dstevx_base(
16653  char const* jobz, char const* range,
16654  lapack_int const* n,
16655  double* D,
16656  double* E,
16657  double const* vl,
16658  double const* vu, lapack_int const* il, lapack_int const* iu,
16659  double const* abstol, lapack_int* m,
16660  double* W,
16661  double* Z, lapack_int const* ldz,
16662  double* work,
16663  lapack_int* iwork, lapack_int* IFAIL,
16664  lapack_int* info
16665 #ifdef LAPACK_FORTRAN_STRLEN_END
16666  , size_t, size_t
16667 #endif
16668 );
16669 #ifdef LAPACK_FORTRAN_STRLEN_END
16670  #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1)
16671 #else
16672  #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__)
16673 #endif
16674 
16675 #define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX)
16676 void LAPACK_sstevx_base(
16677  char const* jobz, char const* range,
16678  lapack_int const* n,
16679  float* D,
16680  float* E,
16681  float const* vl,
16682  float const* vu, lapack_int const* il, lapack_int const* iu,
16683  float const* abstol, lapack_int* m,
16684  float* W,
16685  float* Z, lapack_int const* ldz,
16686  float* work,
16687  lapack_int* iwork, lapack_int* IFAIL,
16688  lapack_int* info
16689 #ifdef LAPACK_FORTRAN_STRLEN_END
16690  , size_t, size_t
16691 #endif
16692 );
16693 #ifdef LAPACK_FORTRAN_STRLEN_END
16694  #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1)
16695 #else
16696  #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__)
16697 #endif
16698 
16699 #define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON)
16700 void LAPACK_csycon_base(
16701  char const* uplo,
16702  lapack_int const* n,
16703  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
16704  float const* anorm,
16705  float* rcond,
16706  lapack_complex_float* work,
16707  lapack_int* info
16708 #ifdef LAPACK_FORTRAN_STRLEN_END
16709  , size_t
16710 #endif
16711 );
16712 #ifdef LAPACK_FORTRAN_STRLEN_END
16713  #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1)
16714 #else
16715  #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__)
16716 #endif
16717 
16718 #define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON)
16719 void LAPACK_dsycon_base(
16720  char const* uplo,
16721  lapack_int const* n,
16722  double const* A, lapack_int const* lda, lapack_int const* ipiv,
16723  double const* anorm,
16724  double* rcond,
16725  double* work,
16726  lapack_int* iwork,
16727  lapack_int* info
16728 #ifdef LAPACK_FORTRAN_STRLEN_END
16729  , size_t
16730 #endif
16731 );
16732 #ifdef LAPACK_FORTRAN_STRLEN_END
16733  #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1)
16734 #else
16735  #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__)
16736 #endif
16737 
16738 #define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON)
16739 void LAPACK_ssycon_base(
16740  char const* uplo,
16741  lapack_int const* n,
16742  float const* A, lapack_int const* lda, lapack_int const* ipiv,
16743  float const* anorm,
16744  float* rcond,
16745  float* work,
16746  lapack_int* iwork,
16747  lapack_int* info
16748 #ifdef LAPACK_FORTRAN_STRLEN_END
16749  , size_t
16750 #endif
16751 );
16752 #ifdef LAPACK_FORTRAN_STRLEN_END
16753  #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1)
16754 #else
16755  #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__)
16756 #endif
16757 
16758 #define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON)
16759 void LAPACK_zsycon_base(
16760  char const* uplo,
16761  lapack_int const* n,
16762  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
16763  double const* anorm,
16764  double* rcond,
16765  lapack_complex_double* work,
16766  lapack_int* info
16767 #ifdef LAPACK_FORTRAN_STRLEN_END
16768  , size_t
16769 #endif
16770 );
16771 #ifdef LAPACK_FORTRAN_STRLEN_END
16772  #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1)
16773 #else
16774  #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__)
16775 #endif
16776 
16777 #define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3)
16778 void LAPACK_csycon_3_base(
16779  char const* uplo,
16780  lapack_int const* n,
16781  lapack_complex_float const* A, lapack_int const* lda,
16782  lapack_complex_float const* E, lapack_int const* ipiv,
16783  float const* anorm,
16784  float* rcond,
16785  lapack_complex_float* work,
16786  lapack_int* info
16787 #ifdef LAPACK_FORTRAN_STRLEN_END
16788  , size_t
16789 #endif
16790 );
16791 #ifdef LAPACK_FORTRAN_STRLEN_END
16792  #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1)
16793 #else
16794  #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__)
16795 #endif
16796 
16797 #define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3)
16798 void LAPACK_dsycon_3_base(
16799  char const* uplo,
16800  lapack_int const* n,
16801  double const* A, lapack_int const* lda,
16802  double const* E, lapack_int const* ipiv,
16803  double const* anorm,
16804  double* rcond,
16805  double* work,
16806  lapack_int* iwork,
16807  lapack_int* info
16808 #ifdef LAPACK_FORTRAN_STRLEN_END
16809  , size_t
16810 #endif
16811 );
16812 #ifdef LAPACK_FORTRAN_STRLEN_END
16813  #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1)
16814 #else
16815  #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__)
16816 #endif
16817 
16818 #define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3)
16819 void LAPACK_ssycon_3_base(
16820  char const* uplo,
16821  lapack_int const* n,
16822  float const* A, lapack_int const* lda,
16823  float const* E, lapack_int const* ipiv,
16824  float const* anorm,
16825  float* rcond,
16826  float* work,
16827  lapack_int* iwork,
16828  lapack_int* info
16829 #ifdef LAPACK_FORTRAN_STRLEN_END
16830  , size_t
16831 #endif
16832 );
16833 #ifdef LAPACK_FORTRAN_STRLEN_END
16834  #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1)
16835 #else
16836  #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__)
16837 #endif
16838 
16839 #define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3)
16840 void LAPACK_zsycon_3_base(
16841  char const* uplo,
16842  lapack_int const* n,
16843  lapack_complex_double const* A, lapack_int const* lda,
16844  lapack_complex_double const* E, lapack_int const* ipiv,
16845  double const* anorm,
16846  double* rcond,
16847  lapack_complex_double* work,
16848  lapack_int* info
16849 #ifdef LAPACK_FORTRAN_STRLEN_END
16850  , size_t
16851 #endif
16852 );
16853 #ifdef LAPACK_FORTRAN_STRLEN_END
16854  #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1)
16855 #else
16856  #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__)
16857 #endif
16858 
16859 #define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV)
16860 void LAPACK_csyconv_base(
16861  char const* uplo, char const* way,
16862  lapack_int const* n,
16863  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
16864  lapack_complex_float* E,
16865  lapack_int* info
16866 #ifdef LAPACK_FORTRAN_STRLEN_END
16867  , size_t, size_t
16868 #endif
16869 );
16870 #ifdef LAPACK_FORTRAN_STRLEN_END
16871  #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1)
16872 #else
16873  #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__)
16874 #endif
16875 
16876 #define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV)
16877 void LAPACK_dsyconv_base(
16878  char const* uplo, char const* way,
16879  lapack_int const* n,
16880  double* A, lapack_int const* lda, lapack_int const* ipiv,
16881  double* E,
16882  lapack_int* info
16883 #ifdef LAPACK_FORTRAN_STRLEN_END
16884  , size_t, size_t
16885 #endif
16886 );
16887 #ifdef LAPACK_FORTRAN_STRLEN_END
16888  #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1)
16889 #else
16890  #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__)
16891 #endif
16892 
16893 #define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV)
16894 void LAPACK_ssyconv_base(
16895  char const* uplo, char const* way,
16896  lapack_int const* n,
16897  float* A, lapack_int const* lda, lapack_int const* ipiv,
16898  float* E,
16899  lapack_int* info
16900 #ifdef LAPACK_FORTRAN_STRLEN_END
16901  , size_t, size_t
16902 #endif
16903 );
16904 #ifdef LAPACK_FORTRAN_STRLEN_END
16905  #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1)
16906 #else
16907  #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__)
16908 #endif
16909 
16910 #define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV)
16911 void LAPACK_zsyconv_base(
16912  char const* uplo, char const* way,
16913  lapack_int const* n,
16914  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
16915  lapack_complex_double* E,
16916  lapack_int* info
16917 #ifdef LAPACK_FORTRAN_STRLEN_END
16918  , size_t, size_t
16919 #endif
16920 );
16921 #ifdef LAPACK_FORTRAN_STRLEN_END
16922  #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1)
16923 #else
16924  #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__)
16925 #endif
16926 
16927 #define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB)
16928 void LAPACK_csyequb_base(
16929  char const* uplo,
16930  lapack_int const* n,
16931  lapack_complex_float const* A, lapack_int const* lda,
16932  float* S,
16933  float* scond,
16934  float* amax,
16935  lapack_complex_float* work,
16936  lapack_int* info
16937 #ifdef LAPACK_FORTRAN_STRLEN_END
16938  , size_t
16939 #endif
16940 );
16941 #ifdef LAPACK_FORTRAN_STRLEN_END
16942  #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1)
16943 #else
16944  #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__)
16945 #endif
16946 
16947 #define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB)
16948 void LAPACK_dsyequb_base(
16949  char const* uplo,
16950  lapack_int const* n,
16951  double const* A, lapack_int const* lda,
16952  double* S,
16953  double* scond,
16954  double* amax,
16955  double* work,
16956  lapack_int* info
16957 #ifdef LAPACK_FORTRAN_STRLEN_END
16958  , size_t
16959 #endif
16960 );
16961 #ifdef LAPACK_FORTRAN_STRLEN_END
16962  #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1)
16963 #else
16964  #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__)
16965 #endif
16966 
16967 #define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB)
16968 void LAPACK_ssyequb_base(
16969  char const* uplo,
16970  lapack_int const* n,
16971  float const* A, lapack_int const* lda,
16972  float* S,
16973  float* scond,
16974  float* amax,
16975  float* work,
16976  lapack_int* info
16977 #ifdef LAPACK_FORTRAN_STRLEN_END
16978  , size_t
16979 #endif
16980 );
16981 #ifdef LAPACK_FORTRAN_STRLEN_END
16982  #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1)
16983 #else
16984  #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__)
16985 #endif
16986 
16987 #define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB)
16988 void LAPACK_zsyequb_base(
16989  char const* uplo,
16990  lapack_int const* n,
16991  lapack_complex_double const* A, lapack_int const* lda,
16992  double* S,
16993  double* scond,
16994  double* amax,
16995  lapack_complex_double* work,
16996  lapack_int* info
16997 #ifdef LAPACK_FORTRAN_STRLEN_END
16998  , size_t
16999 #endif
17000 );
17001 #ifdef LAPACK_FORTRAN_STRLEN_END
17002  #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1)
17003 #else
17004  #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__)
17005 #endif
17006 
17007 #define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV)
17008 void LAPACK_dsyev_base(
17009  char const* jobz, char const* uplo,
17010  lapack_int const* n,
17011  double* A, lapack_int const* lda,
17012  double* W,
17013  double* work, lapack_int const* lwork,
17014  lapack_int* info
17015 #ifdef LAPACK_FORTRAN_STRLEN_END
17016  , size_t, size_t
17017 #endif
17018 );
17019 #ifdef LAPACK_FORTRAN_STRLEN_END
17020  #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1)
17021 #else
17022  #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__)
17023 #endif
17024 
17025 #define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV)
17026 void LAPACK_ssyev_base(
17027  char const* jobz, char const* uplo,
17028  lapack_int const* n,
17029  float* A, lapack_int const* lda,
17030  float* W,
17031  float* work, lapack_int const* lwork,
17032  lapack_int* info
17033 #ifdef LAPACK_FORTRAN_STRLEN_END
17034  , size_t, size_t
17035 #endif
17036 );
17037 #ifdef LAPACK_FORTRAN_STRLEN_END
17038  #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1)
17039 #else
17040  #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__)
17041 #endif
17042 
17043 #define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE)
17044 void LAPACK_dsyev_2stage_base(
17045  char const* jobz, char const* uplo,
17046  lapack_int const* n,
17047  double* A, lapack_int const* lda,
17048  double* W,
17049  double* work, lapack_int const* lwork,
17050  lapack_int* info
17051 #ifdef LAPACK_FORTRAN_STRLEN_END
17052  , size_t, size_t
17053 #endif
17054 );
17055 #ifdef LAPACK_FORTRAN_STRLEN_END
17056  #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1)
17057 #else
17058  #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__)
17059 #endif
17060 
17061 #define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE)
17062 void LAPACK_ssyev_2stage_base(
17063  char const* jobz, char const* uplo,
17064  lapack_int const* n,
17065  float* A, lapack_int const* lda,
17066  float* W,
17067  float* work, lapack_int const* lwork,
17068  lapack_int* info
17069 #ifdef LAPACK_FORTRAN_STRLEN_END
17070  , size_t, size_t
17071 #endif
17072 );
17073 #ifdef LAPACK_FORTRAN_STRLEN_END
17074  #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1)
17075 #else
17076  #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__)
17077 #endif
17078 
17079 #define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD)
17080 void LAPACK_dsyevd_base(
17081  char const* jobz, char const* uplo,
17082  lapack_int const* n,
17083  double* A, lapack_int const* lda,
17084  double* W,
17085  double* work, lapack_int const* lwork,
17086  lapack_int* iwork, lapack_int const* liwork,
17087  lapack_int* info
17088 #ifdef LAPACK_FORTRAN_STRLEN_END
17089  , size_t, size_t
17090 #endif
17091 );
17092 #ifdef LAPACK_FORTRAN_STRLEN_END
17093  #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1)
17094 #else
17095  #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__)
17096 #endif
17097 
17098 #define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD)
17099 void LAPACK_ssyevd_base(
17100  char const* jobz, char const* uplo,
17101  lapack_int const* n,
17102  float* A, lapack_int const* lda,
17103  float* W,
17104  float* work, lapack_int const* lwork,
17105  lapack_int* iwork, lapack_int const* liwork,
17106  lapack_int* info
17107 #ifdef LAPACK_FORTRAN_STRLEN_END
17108  , size_t, size_t
17109 #endif
17110 );
17111 #ifdef LAPACK_FORTRAN_STRLEN_END
17112  #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1)
17113 #else
17114  #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__)
17115 #endif
17116 
17117 #define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE)
17118 void LAPACK_dsyevd_2stage_base(
17119  char const* jobz, char const* uplo,
17120  lapack_int const* n,
17121  double* A, lapack_int const* lda,
17122  double* W,
17123  double* work, lapack_int const* lwork,
17124  lapack_int* iwork, lapack_int const* liwork,
17125  lapack_int* info
17126 #ifdef LAPACK_FORTRAN_STRLEN_END
17127  , size_t, size_t
17128 #endif
17129 );
17130 #ifdef LAPACK_FORTRAN_STRLEN_END
17131  #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1)
17132 #else
17133  #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__)
17134 #endif
17135 
17136 #define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE)
17137 void LAPACK_ssyevd_2stage_base(
17138  char const* jobz, char const* uplo,
17139  lapack_int const* n,
17140  float* A, lapack_int const* lda,
17141  float* W,
17142  float* work, lapack_int const* lwork,
17143  lapack_int* iwork, lapack_int const* liwork,
17144  lapack_int* info
17145 #ifdef LAPACK_FORTRAN_STRLEN_END
17146  , size_t, size_t
17147 #endif
17148 );
17149 #ifdef LAPACK_FORTRAN_STRLEN_END
17150  #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1)
17151 #else
17152  #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__)
17153 #endif
17154 
17155 #define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR)
17156 void LAPACK_dsyevr_base(
17157  char const* jobz, char const* range, char const* uplo,
17158  lapack_int const* n,
17159  double* A, lapack_int const* lda,
17160  double const* vl,
17161  double const* vu, lapack_int const* il, lapack_int const* iu,
17162  double const* abstol, lapack_int* m,
17163  double* W,
17164  double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17165  double* work, lapack_int const* lwork,
17166  lapack_int* iwork, lapack_int const* liwork,
17167  lapack_int* info
17168 #ifdef LAPACK_FORTRAN_STRLEN_END
17169  , size_t, size_t, size_t
17170 #endif
17171 );
17172 #ifdef LAPACK_FORTRAN_STRLEN_END
17173  #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1)
17174 #else
17175  #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__)
17176 #endif
17177 
17178 #define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR)
17179 void LAPACK_ssyevr_base(
17180  char const* jobz, char const* range, char const* uplo,
17181  lapack_int const* n,
17182  float* A, lapack_int const* lda,
17183  float const* vl,
17184  float const* vu, lapack_int const* il, lapack_int const* iu,
17185  float const* abstol, lapack_int* m,
17186  float* W,
17187  float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17188  float* work, lapack_int const* lwork,
17189  lapack_int* iwork, lapack_int const* liwork,
17190  lapack_int* info
17191 #ifdef LAPACK_FORTRAN_STRLEN_END
17192  , size_t, size_t, size_t
17193 #endif
17194 );
17195 #ifdef LAPACK_FORTRAN_STRLEN_END
17196  #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1)
17197 #else
17198  #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__)
17199 #endif
17200 
17201 #define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE)
17202 void LAPACK_dsyevr_2stage_base(
17203  char const* jobz, char const* range, char const* uplo,
17204  lapack_int const* n,
17205  double* A, lapack_int const* lda,
17206  double const* vl,
17207  double const* vu, lapack_int const* il, lapack_int const* iu,
17208  double const* abstol, lapack_int* m,
17209  double* W,
17210  double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17211  double* work, lapack_int const* lwork,
17212  lapack_int* iwork, lapack_int const* liwork,
17213  lapack_int* info
17214 #ifdef LAPACK_FORTRAN_STRLEN_END
17215  , size_t, size_t, size_t
17216 #endif
17217 );
17218 #ifdef LAPACK_FORTRAN_STRLEN_END
17219  #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17220 #else
17221  #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__)
17222 #endif
17223 
17224 #define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE)
17225 void LAPACK_ssyevr_2stage_base(
17226  char const* jobz, char const* range, char const* uplo,
17227  lapack_int const* n,
17228  float* A, lapack_int const* lda,
17229  float const* vl,
17230  float const* vu, lapack_int const* il, lapack_int const* iu,
17231  float const* abstol, lapack_int* m,
17232  float* W,
17233  float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17234  float* work, lapack_int const* lwork,
17235  lapack_int* iwork, lapack_int const* liwork,
17236  lapack_int* info
17237 #ifdef LAPACK_FORTRAN_STRLEN_END
17238  , size_t, size_t, size_t
17239 #endif
17240 );
17241 #ifdef LAPACK_FORTRAN_STRLEN_END
17242  #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17243 #else
17244  #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__)
17245 #endif
17246 
17247 #define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX)
17248 void LAPACK_dsyevx_base(
17249  char const* jobz, char const* range, char const* uplo,
17250  lapack_int const* n,
17251  double* A, lapack_int const* lda,
17252  double const* vl,
17253  double const* vu, lapack_int const* il, lapack_int const* iu,
17254  double const* abstol, lapack_int* m,
17255  double* W,
17256  double* Z, lapack_int const* ldz,
17257  double* work, lapack_int const* lwork,
17258  lapack_int* iwork, lapack_int* IFAIL,
17259  lapack_int* info
17260 #ifdef LAPACK_FORTRAN_STRLEN_END
17261  , size_t, size_t, size_t
17262 #endif
17263 );
17264 #ifdef LAPACK_FORTRAN_STRLEN_END
17265  #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1)
17266 #else
17267  #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__)
17268 #endif
17269 
17270 #define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX)
17271 void LAPACK_ssyevx_base(
17272  char const* jobz, char const* range, char const* uplo,
17273  lapack_int const* n,
17274  float* A, lapack_int const* lda,
17275  float const* vl,
17276  float const* vu, lapack_int const* il, lapack_int const* iu,
17277  float const* abstol, lapack_int* m,
17278  float* W,
17279  float* Z, lapack_int const* ldz,
17280  float* work, lapack_int const* lwork,
17281  lapack_int* iwork, lapack_int* IFAIL,
17282  lapack_int* info
17283 #ifdef LAPACK_FORTRAN_STRLEN_END
17284  , size_t, size_t, size_t
17285 #endif
17286 );
17287 #ifdef LAPACK_FORTRAN_STRLEN_END
17288  #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1)
17289 #else
17290  #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__)
17291 #endif
17292 
17293 #define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE)
17294 void LAPACK_dsyevx_2stage_base(
17295  char const* jobz, char const* range, char const* uplo,
17296  lapack_int const* n,
17297  double* A, lapack_int const* lda,
17298  double const* vl,
17299  double const* vu, lapack_int const* il, lapack_int const* iu,
17300  double const* abstol, lapack_int* m,
17301  double* W,
17302  double* Z, lapack_int const* ldz,
17303  double* work, lapack_int const* lwork,
17304  lapack_int* iwork, lapack_int* IFAIL,
17305  lapack_int* info
17306 #ifdef LAPACK_FORTRAN_STRLEN_END
17307  , size_t, size_t, size_t
17308 #endif
17309 );
17310 #ifdef LAPACK_FORTRAN_STRLEN_END
17311  #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17312 #else
17313  #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__)
17314 #endif
17315 
17316 #define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE)
17317 void LAPACK_ssyevx_2stage_base(
17318  char const* jobz, char const* range, char const* uplo,
17319  lapack_int const* n,
17320  float* A, lapack_int const* lda,
17321  float const* vl,
17322  float const* vu, lapack_int const* il, lapack_int const* iu,
17323  float const* abstol, lapack_int* m,
17324  float* W,
17325  float* Z, lapack_int const* ldz,
17326  float* work, lapack_int const* lwork,
17327  lapack_int* iwork, lapack_int* IFAIL,
17328  lapack_int* info
17329 #ifdef LAPACK_FORTRAN_STRLEN_END
17330  , size_t, size_t, size_t
17331 #endif
17332 );
17333 #ifdef LAPACK_FORTRAN_STRLEN_END
17334  #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17335 #else
17336  #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__)
17337 #endif
17338 
17339 #define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST)
17340 void LAPACK_dsygst_base(
17341  lapack_int const* itype, char const* uplo,
17342  lapack_int const* n,
17343  double* A, lapack_int const* lda,
17344  double const* B, lapack_int const* ldb,
17345  lapack_int* info
17346 #ifdef LAPACK_FORTRAN_STRLEN_END
17347  , size_t
17348 #endif
17349 );
17350 #ifdef LAPACK_FORTRAN_STRLEN_END
17351  #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1)
17352 #else
17353  #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__)
17354 #endif
17355 
17356 #define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST)
17357 void LAPACK_ssygst_base(
17358  lapack_int const* itype, char const* uplo,
17359  lapack_int const* n,
17360  float* A, lapack_int const* lda,
17361  float const* B, lapack_int const* ldb,
17362  lapack_int* info
17363 #ifdef LAPACK_FORTRAN_STRLEN_END
17364  , size_t
17365 #endif
17366 );
17367 #ifdef LAPACK_FORTRAN_STRLEN_END
17368  #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1)
17369 #else
17370  #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__)
17371 #endif
17372 
17373 #define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV)
17374 void LAPACK_dsygv_base(
17375  lapack_int const* itype, char const* jobz, char const* uplo,
17376  lapack_int const* n,
17377  double* A, lapack_int const* lda,
17378  double* B, lapack_int const* ldb,
17379  double* W,
17380  double* work, lapack_int const* lwork,
17381  lapack_int* info
17382 #ifdef LAPACK_FORTRAN_STRLEN_END
17383  , size_t, size_t
17384 #endif
17385 );
17386 #ifdef LAPACK_FORTRAN_STRLEN_END
17387  #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1)
17388 #else
17389  #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__)
17390 #endif
17391 
17392 #define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV)
17393 void LAPACK_ssygv_base(
17394  lapack_int const* itype, char const* jobz, char const* uplo,
17395  lapack_int const* n,
17396  float* A, lapack_int const* lda,
17397  float* B, lapack_int const* ldb,
17398  float* W,
17399  float* work, lapack_int const* lwork,
17400  lapack_int* info
17401 #ifdef LAPACK_FORTRAN_STRLEN_END
17402  , size_t, size_t
17403 #endif
17404 );
17405 #ifdef LAPACK_FORTRAN_STRLEN_END
17406  #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1)
17407 #else
17408  #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__)
17409 #endif
17410 
17411 #define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE)
17412 void LAPACK_dsygv_2stage_base(
17413  lapack_int const* itype, char const* jobz, char const* uplo,
17414  lapack_int const* n,
17415  double* A, lapack_int const* lda,
17416  double* B, lapack_int const* ldb,
17417  double* W,
17418  double* work, lapack_int const* lwork,
17419  lapack_int* info
17420 #ifdef LAPACK_FORTRAN_STRLEN_END
17421  , size_t, size_t
17422 #endif
17423 );
17424 #ifdef LAPACK_FORTRAN_STRLEN_END
17425  #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1)
17426 #else
17427  #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__)
17428 #endif
17429 
17430 #define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE)
17431 void LAPACK_ssygv_2stage_base(
17432  lapack_int const* itype, char const* jobz, char const* uplo,
17433  lapack_int const* n,
17434  float* A, lapack_int const* lda,
17435  float* B, lapack_int const* ldb,
17436  float* W,
17437  float* work, lapack_int const* lwork,
17438  lapack_int* info
17439 #ifdef LAPACK_FORTRAN_STRLEN_END
17440  , size_t, size_t
17441 #endif
17442 );
17443 #ifdef LAPACK_FORTRAN_STRLEN_END
17444  #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1)
17445 #else
17446  #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__)
17447 #endif
17448 
17449 #define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD)
17450 void LAPACK_dsygvd_base(
17451  lapack_int const* itype, char const* jobz, char const* uplo,
17452  lapack_int const* n,
17453  double* A, lapack_int const* lda,
17454  double* B, lapack_int const* ldb,
17455  double* W,
17456  double* work, lapack_int const* lwork,
17457  lapack_int* iwork, lapack_int const* liwork,
17458  lapack_int* info
17459 #ifdef LAPACK_FORTRAN_STRLEN_END
17460  , size_t, size_t
17461 #endif
17462 );
17463 #ifdef LAPACK_FORTRAN_STRLEN_END
17464  #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1)
17465 #else
17466  #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__)
17467 #endif
17468 
17469 #define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD)
17470 void LAPACK_ssygvd_base(
17471  lapack_int const* itype, char const* jobz, char const* uplo,
17472  lapack_int const* n,
17473  float* A, lapack_int const* lda,
17474  float* B, lapack_int const* ldb,
17475  float* W,
17476  float* work, lapack_int const* lwork,
17477  lapack_int* iwork, lapack_int const* liwork,
17478  lapack_int* info
17479 #ifdef LAPACK_FORTRAN_STRLEN_END
17480  , size_t, size_t
17481 #endif
17482 );
17483 #ifdef LAPACK_FORTRAN_STRLEN_END
17484  #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1)
17485 #else
17486  #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__)
17487 #endif
17488 
17489 #define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX)
17490 void LAPACK_dsygvx_base(
17491  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
17492  lapack_int const* n,
17493  double* A, lapack_int const* lda,
17494  double* B, lapack_int const* ldb,
17495  double const* vl,
17496  double const* vu, lapack_int const* il, lapack_int const* iu,
17497  double const* abstol, lapack_int* m,
17498  double* W,
17499  double* Z, lapack_int const* ldz,
17500  double* work, lapack_int const* lwork,
17501  lapack_int* iwork, lapack_int* IFAIL,
17502  lapack_int* info
17503 #ifdef LAPACK_FORTRAN_STRLEN_END
17504  , size_t, size_t, size_t
17505 #endif
17506 );
17507 #ifdef LAPACK_FORTRAN_STRLEN_END
17508  #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1)
17509 #else
17510  #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__)
17511 #endif
17512 
17513 #define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX)
17514 void LAPACK_ssygvx_base(
17515  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
17516  lapack_int const* n,
17517  float* A, lapack_int const* lda,
17518  float* B, lapack_int const* ldb,
17519  float const* vl,
17520  float const* vu, lapack_int const* il, lapack_int const* iu,
17521  float const* abstol, lapack_int* m,
17522  float* W,
17523  float* Z, lapack_int const* ldz,
17524  float* work, lapack_int const* lwork,
17525  lapack_int* iwork, lapack_int* IFAIL,
17526  lapack_int* info
17527 #ifdef LAPACK_FORTRAN_STRLEN_END
17528  , size_t, size_t, size_t
17529 #endif
17530 );
17531 #ifdef LAPACK_FORTRAN_STRLEN_END
17532  #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1)
17533 #else
17534  #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__)
17535 #endif
17536 
17537 #define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR)
17538 void LAPACK_csyr_base(
17539  char const* uplo,
17540  lapack_int const* n,
17541  lapack_complex_float const* alpha,
17542  lapack_complex_float const* X, lapack_int const* incx,
17543  lapack_complex_float* A, lapack_int const* lda
17544 #ifdef LAPACK_FORTRAN_STRLEN_END
17545  , size_t
17546 #endif
17547 );
17548 #ifdef LAPACK_FORTRAN_STRLEN_END
17549  #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1)
17550 #else
17551  #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__)
17552 #endif
17553 
17554 #define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR)
17555 void LAPACK_zsyr_base(
17556  char const* uplo,
17557  lapack_int const* n,
17558  lapack_complex_double const* alpha,
17559  lapack_complex_double const* X, lapack_int const* incx,
17560  lapack_complex_double* A, lapack_int const* lda
17561 #ifdef LAPACK_FORTRAN_STRLEN_END
17562  , size_t
17563 #endif
17564 );
17565 #ifdef LAPACK_FORTRAN_STRLEN_END
17566  #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1)
17567 #else
17568  #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__)
17569 #endif
17570 
17571 #define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS)
17572 void LAPACK_csyrfs_base(
17573  char const* uplo,
17574  lapack_int const* n, lapack_int const* nrhs,
17575  lapack_complex_float const* A, lapack_int const* lda,
17576  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17577  lapack_complex_float const* B, lapack_int const* ldb,
17578  lapack_complex_float* X, lapack_int const* ldx,
17579  float* ferr,
17580  float* berr,
17581  lapack_complex_float* work,
17582  float* rwork,
17583  lapack_int* info
17584 #ifdef LAPACK_FORTRAN_STRLEN_END
17585  , size_t
17586 #endif
17587 );
17588 #ifdef LAPACK_FORTRAN_STRLEN_END
17589  #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1)
17590 #else
17591  #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__)
17592 #endif
17593 
17594 #define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS)
17595 void LAPACK_dsyrfs_base(
17596  char const* uplo,
17597  lapack_int const* n, lapack_int const* nrhs,
17598  double const* A, lapack_int const* lda,
17599  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17600  double const* B, lapack_int const* ldb,
17601  double* X, lapack_int const* ldx,
17602  double* ferr,
17603  double* berr,
17604  double* work,
17605  lapack_int* iwork,
17606  lapack_int* info
17607 #ifdef LAPACK_FORTRAN_STRLEN_END
17608  , size_t
17609 #endif
17610 );
17611 #ifdef LAPACK_FORTRAN_STRLEN_END
17612  #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1)
17613 #else
17614  #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__)
17615 #endif
17616 
17617 #define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS)
17618 void LAPACK_ssyrfs_base(
17619  char const* uplo,
17620  lapack_int const* n, lapack_int const* nrhs,
17621  float const* A, lapack_int const* lda,
17622  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17623  float const* B, lapack_int const* ldb,
17624  float* X, lapack_int const* ldx,
17625  float* ferr,
17626  float* berr,
17627  float* work,
17628  lapack_int* iwork,
17629  lapack_int* info
17630 #ifdef LAPACK_FORTRAN_STRLEN_END
17631  , size_t
17632 #endif
17633 );
17634 #ifdef LAPACK_FORTRAN_STRLEN_END
17635  #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1)
17636 #else
17637  #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__)
17638 #endif
17639 
17640 #define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS)
17641 void LAPACK_zsyrfs_base(
17642  char const* uplo,
17643  lapack_int const* n, lapack_int const* nrhs,
17644  lapack_complex_double const* A, lapack_int const* lda,
17645  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17646  lapack_complex_double const* B, lapack_int const* ldb,
17647  lapack_complex_double* X, lapack_int const* ldx,
17648  double* ferr,
17649  double* berr,
17650  lapack_complex_double* work,
17651  double* rwork,
17652  lapack_int* info
17653 #ifdef LAPACK_FORTRAN_STRLEN_END
17654  , size_t
17655 #endif
17656 );
17657 #ifdef LAPACK_FORTRAN_STRLEN_END
17658  #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1)
17659 #else
17660  #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__)
17661 #endif
17662 
17663 #define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX)
17664 void LAPACK_csyrfsx_base(
17665  char const* uplo, char const* equed,
17666  lapack_int const* n, lapack_int const* nrhs,
17667  lapack_complex_float const* A, lapack_int const* lda,
17668  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17669  const float* S,
17670  lapack_complex_float const* B, lapack_int const* ldb,
17671  lapack_complex_float* X, lapack_int const* ldx,
17672  float* rcond,
17673  float* berr, lapack_int const* n_err_bnds,
17674  float* err_bnds_norm,
17675  float* err_bnds_comp, lapack_int const* nparams,
17676  float* params,
17677  lapack_complex_float* work,
17678  float* rwork,
17679  lapack_int* info
17680 #ifdef LAPACK_FORTRAN_STRLEN_END
17681  , size_t, size_t
17682 #endif
17683 );
17684 #ifdef LAPACK_FORTRAN_STRLEN_END
17685  #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1)
17686 #else
17687  #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__)
17688 #endif
17689 
17690 #define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX)
17691 void LAPACK_dsyrfsx_base(
17692  char const* uplo, char const* equed,
17693  lapack_int const* n, lapack_int const* nrhs,
17694  double const* A, lapack_int const* lda,
17695  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17696  const double* S,
17697  double const* B, lapack_int const* ldb,
17698  double* X, lapack_int const* ldx,
17699  double* rcond,
17700  double* berr, lapack_int const* n_err_bnds,
17701  double* err_bnds_norm,
17702  double* err_bnds_comp, lapack_int const* nparams,
17703  double* params,
17704  double* work,
17705  lapack_int* iwork,
17706  lapack_int* info
17707 #ifdef LAPACK_FORTRAN_STRLEN_END
17708  , size_t, size_t
17709 #endif
17710 );
17711 #ifdef LAPACK_FORTRAN_STRLEN_END
17712  #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1)
17713 #else
17714  #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__)
17715 #endif
17716 
17717 #define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX)
17718 void LAPACK_ssyrfsx_base(
17719  char const* uplo, char const* equed,
17720  lapack_int const* n, lapack_int const* nrhs,
17721  float const* A, lapack_int const* lda,
17722  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17723  const float* S,
17724  float const* B, lapack_int const* ldb,
17725  float* X, lapack_int const* ldx,
17726  float* rcond,
17727  float* berr, lapack_int const* n_err_bnds,
17728  float* err_bnds_norm,
17729  float* err_bnds_comp, lapack_int const* nparams,
17730  float* params,
17731  float* work,
17732  lapack_int* iwork,
17733  lapack_int* info
17734 #ifdef LAPACK_FORTRAN_STRLEN_END
17735  , size_t, size_t
17736 #endif
17737 );
17738 #ifdef LAPACK_FORTRAN_STRLEN_END
17739  #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1)
17740 #else
17741  #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__)
17742 #endif
17743 
17744 #define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX)
17745 void LAPACK_zsyrfsx_base(
17746  char const* uplo, char const* equed,
17747  lapack_int const* n, lapack_int const* nrhs,
17748  lapack_complex_double const* A, lapack_int const* lda,
17749  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17750  const double* S,
17751  lapack_complex_double const* B, lapack_int const* ldb,
17752  lapack_complex_double* X, lapack_int const* ldx,
17753  double* rcond,
17754  double* berr, lapack_int const* n_err_bnds,
17755  double* err_bnds_norm,
17756  double* err_bnds_comp, lapack_int const* nparams,
17757  double* params,
17758  lapack_complex_double* work,
17759  double* rwork,
17760  lapack_int* info
17761 #ifdef LAPACK_FORTRAN_STRLEN_END
17762  , size_t, size_t
17763 #endif
17764 );
17765 #ifdef LAPACK_FORTRAN_STRLEN_END
17766  #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1)
17767 #else
17768  #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__)
17769 #endif
17770 
17771 #define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV)
17772 void LAPACK_csysv_base(
17773  char const* uplo,
17774  lapack_int const* n, lapack_int const* nrhs,
17775  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
17776  lapack_complex_float* B, lapack_int const* ldb,
17777  lapack_complex_float* work, lapack_int const* lwork,
17778  lapack_int* info
17779 #ifdef LAPACK_FORTRAN_STRLEN_END
17780  , size_t
17781 #endif
17782 );
17783 #ifdef LAPACK_FORTRAN_STRLEN_END
17784  #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1)
17785 #else
17786  #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__)
17787 #endif
17788 
17789 #define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV)
17790 void LAPACK_dsysv_base(
17791  char const* uplo,
17792  lapack_int const* n, lapack_int const* nrhs,
17793  double* A, lapack_int const* lda, lapack_int* ipiv,
17794  double* B, lapack_int const* ldb,
17795  double* work, lapack_int const* lwork,
17796  lapack_int* info
17797 #ifdef LAPACK_FORTRAN_STRLEN_END
17798  , size_t
17799 #endif
17800 );
17801 #ifdef LAPACK_FORTRAN_STRLEN_END
17802  #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1)
17803 #else
17804  #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__)
17805 #endif
17806 
17807 #define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV)
17808 void LAPACK_ssysv_base(
17809  char const* uplo,
17810  lapack_int const* n, lapack_int const* nrhs,
17811  float* A, lapack_int const* lda, lapack_int* ipiv,
17812  float* B, lapack_int const* ldb,
17813  float* work, lapack_int const* lwork,
17814  lapack_int* info
17815 #ifdef LAPACK_FORTRAN_STRLEN_END
17816  , size_t
17817 #endif
17818 );
17819 #ifdef LAPACK_FORTRAN_STRLEN_END
17820  #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1)
17821 #else
17822  #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__)
17823 #endif
17824 
17825 #define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV)
17826 void LAPACK_zsysv_base(
17827  char const* uplo,
17828  lapack_int const* n, lapack_int const* nrhs,
17829  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
17830  lapack_complex_double* B, lapack_int const* ldb,
17831  lapack_complex_double* work, lapack_int const* lwork,
17832  lapack_int* info
17833 #ifdef LAPACK_FORTRAN_STRLEN_END
17834  , size_t
17835 #endif
17836 );
17837 #ifdef LAPACK_FORTRAN_STRLEN_END
17838  #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1)
17839 #else
17840  #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__)
17841 #endif
17842 
17843 #define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA)
17844 void LAPACK_csysv_aa_base(
17845  char const* uplo,
17846  lapack_int const* n, lapack_int const* nrhs,
17847  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
17848  lapack_complex_float* B, lapack_int const* ldb,
17849  lapack_complex_float* work, lapack_int const* lwork,
17850  lapack_int* info
17851 #ifdef LAPACK_FORTRAN_STRLEN_END
17852  , size_t
17853 #endif
17854 );
17855 #ifdef LAPACK_FORTRAN_STRLEN_END
17856  #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1)
17857 #else
17858  #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__)
17859 #endif
17860 
17861 #define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA)
17862 void LAPACK_dsysv_aa_base(
17863  char const* uplo,
17864  lapack_int const* n, lapack_int const* nrhs,
17865  double* A, lapack_int const* lda, lapack_int* ipiv,
17866  double* B, lapack_int const* ldb,
17867  double* work, lapack_int const* lwork,
17868  lapack_int* info
17869 #ifdef LAPACK_FORTRAN_STRLEN_END
17870  , size_t
17871 #endif
17872 );
17873 #ifdef LAPACK_FORTRAN_STRLEN_END
17874  #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1)
17875 #else
17876  #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__)
17877 #endif
17878 
17879 #define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA)
17880 void LAPACK_ssysv_aa_base(
17881  char const* uplo,
17882  lapack_int const* n, lapack_int const* nrhs,
17883  float* A, lapack_int const* lda, lapack_int* ipiv,
17884  float* B, lapack_int const* ldb,
17885  float* work, lapack_int const* lwork,
17886  lapack_int* info
17887 #ifdef LAPACK_FORTRAN_STRLEN_END
17888  , size_t
17889 #endif
17890 );
17891 #ifdef LAPACK_FORTRAN_STRLEN_END
17892  #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1)
17893 #else
17894  #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__)
17895 #endif
17896 
17897 #define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA)
17898 void LAPACK_zsysv_aa_base(
17899  char const* uplo,
17900  lapack_int const* n, lapack_int const* nrhs,
17901  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
17902  lapack_complex_double* B, lapack_int const* ldb,
17903  lapack_complex_double* work, lapack_int const* lwork,
17904  lapack_int* info
17905 #ifdef LAPACK_FORTRAN_STRLEN_END
17906  , size_t
17907 #endif
17908 );
17909 #ifdef LAPACK_FORTRAN_STRLEN_END
17910  #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1)
17911 #else
17912  #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__)
17913 #endif
17914 
17915 #define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE)
17916 void LAPACK_csysv_aa_2stage_base(
17917  char const* uplo,
17918  lapack_int const* n, lapack_int const* nrhs,
17919  lapack_complex_float* A, lapack_int const* lda,
17920  lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17921  lapack_complex_float* B, lapack_int const* ldb,
17922  lapack_complex_float* work, lapack_int const* lwork,
17923  lapack_int* info
17924 #ifdef LAPACK_FORTRAN_STRLEN_END
17925  , size_t
17926 #endif
17927 );
17928 #ifdef LAPACK_FORTRAN_STRLEN_END
17929  #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1)
17930 #else
17931  #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__)
17932 #endif
17933 
17934 #define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE)
17935 void LAPACK_dsysv_aa_2stage_base(
17936  char const* uplo,
17937  lapack_int const* n, lapack_int const* nrhs,
17938  double* A, lapack_int const* lda,
17939  double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17940  double* B, lapack_int const* ldb,
17941  double* work, lapack_int const* lwork,
17942  lapack_int* info
17943 #ifdef LAPACK_FORTRAN_STRLEN_END
17944  , size_t
17945 #endif
17946 );
17947 #ifdef LAPACK_FORTRAN_STRLEN_END
17948  #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1)
17949 #else
17950  #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__)
17951 #endif
17952 
17953 #define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE)
17954 void LAPACK_ssysv_aa_2stage_base(
17955  char const* uplo,
17956  lapack_int const* n, lapack_int const* nrhs,
17957  float* A, lapack_int const* lda,
17958  float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17959  float* B, lapack_int const* ldb,
17960  float* work, lapack_int const* lwork,
17961  lapack_int* info
17962 #ifdef LAPACK_FORTRAN_STRLEN_END
17963  , size_t
17964 #endif
17965 );
17966 #ifdef LAPACK_FORTRAN_STRLEN_END
17967  #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1)
17968 #else
17969  #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__)
17970 #endif
17971 
17972 #define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE)
17973 void LAPACK_zsysv_aa_2stage_base(
17974  char const* uplo,
17975  lapack_int const* n, lapack_int const* nrhs,
17976  lapack_complex_double* A, lapack_int const* lda,
17977  lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17978  lapack_complex_double* B, lapack_int const* ldb,
17979  lapack_complex_double* work, lapack_int const* lwork,
17980  lapack_int* info
17981 #ifdef LAPACK_FORTRAN_STRLEN_END
17982  , size_t
17983 #endif
17984 );
17985 #ifdef LAPACK_FORTRAN_STRLEN_END
17986  #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1)
17987 #else
17988  #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__)
17989 #endif
17990 
17991 #define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK)
17992 void LAPACK_csysv_rk_base(
17993  char const* uplo,
17994  lapack_int const* n, lapack_int const* nrhs,
17995  lapack_complex_float* A, lapack_int const* lda,
17996  lapack_complex_float* E, lapack_int* ipiv,
17997  lapack_complex_float* B, lapack_int const* ldb,
17998  lapack_complex_float* work, lapack_int const* lwork,
17999  lapack_int* info
18000 #ifdef LAPACK_FORTRAN_STRLEN_END
18001  , size_t
18002 #endif
18003 );
18004 #ifdef LAPACK_FORTRAN_STRLEN_END
18005  #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1)
18006 #else
18007  #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__)
18008 #endif
18009 
18010 #define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK)
18011 void LAPACK_dsysv_rk_base(
18012  char const* uplo,
18013  lapack_int const* n, lapack_int const* nrhs,
18014  double* A, lapack_int const* lda,
18015  double* E, lapack_int* ipiv,
18016  double* B, lapack_int const* ldb,
18017  double* work, lapack_int const* lwork,
18018  lapack_int* info
18019 #ifdef LAPACK_FORTRAN_STRLEN_END
18020  , size_t
18021 #endif
18022 );
18023 #ifdef LAPACK_FORTRAN_STRLEN_END
18024  #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1)
18025 #else
18026  #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__)
18027 #endif
18028 
18029 #define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK)
18030 void LAPACK_ssysv_rk_base(
18031  char const* uplo,
18032  lapack_int const* n, lapack_int const* nrhs,
18033  float* A, lapack_int const* lda,
18034  float* E, lapack_int* ipiv,
18035  float* B, lapack_int const* ldb,
18036  float* work, lapack_int const* lwork,
18037  lapack_int* info
18038 #ifdef LAPACK_FORTRAN_STRLEN_END
18039  , size_t
18040 #endif
18041 );
18042 #ifdef LAPACK_FORTRAN_STRLEN_END
18043  #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1)
18044 #else
18045  #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__)
18046 #endif
18047 
18048 #define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK)
18049 void LAPACK_zsysv_rk_base(
18050  char const* uplo,
18051  lapack_int const* n, lapack_int const* nrhs,
18052  lapack_complex_double* A, lapack_int const* lda,
18053  lapack_complex_double* E, lapack_int* ipiv,
18054  lapack_complex_double* B, lapack_int const* ldb,
18055  lapack_complex_double* work, lapack_int const* lwork,
18056  lapack_int* info
18057 #ifdef LAPACK_FORTRAN_STRLEN_END
18058  , size_t
18059 #endif
18060 );
18061 #ifdef LAPACK_FORTRAN_STRLEN_END
18062  #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1)
18063 #else
18064  #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__)
18065 #endif
18066 
18067 #define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK)
18068 void LAPACK_csysv_rook_base(
18069  char const* uplo,
18070  lapack_int const* n, lapack_int const* nrhs,
18071  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18072  lapack_complex_float* B, lapack_int const* ldb,
18073  lapack_complex_float* work, lapack_int const* lwork,
18074  lapack_int* info
18075 #ifdef LAPACK_FORTRAN_STRLEN_END
18076  , size_t
18077 #endif
18078 );
18079 #ifdef LAPACK_FORTRAN_STRLEN_END
18080  #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1)
18081 #else
18082  #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__)
18083 #endif
18084 
18085 #define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK)
18086 void LAPACK_dsysv_rook_base(
18087  char const* uplo,
18088  lapack_int const* n, lapack_int const* nrhs,
18089  double* A, lapack_int const* lda, lapack_int* ipiv,
18090  double* B, lapack_int const* ldb,
18091  double* work, lapack_int const* lwork,
18092  lapack_int* info
18093 #ifdef LAPACK_FORTRAN_STRLEN_END
18094  , size_t
18095 #endif
18096 );
18097 #ifdef LAPACK_FORTRAN_STRLEN_END
18098  #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1)
18099 #else
18100  #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__)
18101 #endif
18102 
18103 #define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK)
18104 void LAPACK_ssysv_rook_base(
18105  char const* uplo,
18106  lapack_int const* n, lapack_int const* nrhs,
18107  float* A, lapack_int const* lda, lapack_int* ipiv,
18108  float* B, lapack_int const* ldb,
18109  float* work, lapack_int const* lwork,
18110  lapack_int* info
18111 #ifdef LAPACK_FORTRAN_STRLEN_END
18112  , size_t
18113 #endif
18114 );
18115 #ifdef LAPACK_FORTRAN_STRLEN_END
18116  #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1)
18117 #else
18118  #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__)
18119 #endif
18120 
18121 #define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK)
18122 void LAPACK_zsysv_rook_base(
18123  char const* uplo,
18124  lapack_int const* n, lapack_int const* nrhs,
18125  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18126  lapack_complex_double* B, lapack_int const* ldb,
18127  lapack_complex_double* work, lapack_int const* lwork,
18128  lapack_int* info
18129 #ifdef LAPACK_FORTRAN_STRLEN_END
18130  , size_t
18131 #endif
18132 );
18133 #ifdef LAPACK_FORTRAN_STRLEN_END
18134  #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1)
18135 #else
18136  #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__)
18137 #endif
18138 
18139 #define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX)
18140 void LAPACK_csysvx_base(
18141  char const* fact, char const* uplo,
18142  lapack_int const* n, lapack_int const* nrhs,
18143  lapack_complex_float const* A, lapack_int const* lda,
18144  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv,
18145  lapack_complex_float const* B, lapack_int const* ldb,
18146  lapack_complex_float* X, lapack_int const* ldx,
18147  float* rcond,
18148  float* ferr,
18149  float* berr,
18150  lapack_complex_float* work, lapack_int const* lwork,
18151  float* rwork,
18152  lapack_int* info
18153 #ifdef LAPACK_FORTRAN_STRLEN_END
18154  , size_t, size_t
18155 #endif
18156 );
18157 #ifdef LAPACK_FORTRAN_STRLEN_END
18158  #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1)
18159 #else
18160  #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__)
18161 #endif
18162 
18163 #define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX)
18164 void LAPACK_dsysvx_base(
18165  char const* fact, char const* uplo,
18166  lapack_int const* n, lapack_int const* nrhs,
18167  double const* A, lapack_int const* lda,
18168  double* AF, lapack_int const* ldaf, lapack_int* ipiv,
18169  double const* B, lapack_int const* ldb,
18170  double* X, lapack_int const* ldx,
18171  double* rcond,
18172  double* ferr,
18173  double* berr,
18174  double* work, lapack_int const* lwork,
18175  lapack_int* iwork,
18176  lapack_int* info
18177 #ifdef LAPACK_FORTRAN_STRLEN_END
18178  , size_t, size_t
18179 #endif
18180 );
18181 #ifdef LAPACK_FORTRAN_STRLEN_END
18182  #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1)
18183 #else
18184  #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__)
18185 #endif
18186 
18187 #define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX)
18188 void LAPACK_ssysvx_base(
18189  char const* fact, char const* uplo,
18190  lapack_int const* n, lapack_int const* nrhs,
18191  float const* A, lapack_int const* lda,
18192  float* AF, lapack_int const* ldaf, lapack_int* ipiv,
18193  float const* B, lapack_int const* ldb,
18194  float* X, lapack_int const* ldx,
18195  float* rcond,
18196  float* ferr,
18197  float* berr,
18198  float* work, lapack_int const* lwork,
18199  lapack_int* iwork,
18200  lapack_int* info
18201 #ifdef LAPACK_FORTRAN_STRLEN_END
18202  , size_t, size_t
18203 #endif
18204 );
18205 #ifdef LAPACK_FORTRAN_STRLEN_END
18206  #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1)
18207 #else
18208  #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__)
18209 #endif
18210 
18211 #define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX)
18212 void LAPACK_zsysvx_base(
18213  char const* fact, char const* uplo,
18214  lapack_int const* n, lapack_int const* nrhs,
18215  lapack_complex_double const* A, lapack_int const* lda,
18216  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv,
18217  lapack_complex_double const* B, lapack_int const* ldb,
18218  lapack_complex_double* X, lapack_int const* ldx,
18219  double* rcond,
18220  double* ferr,
18221  double* berr,
18222  lapack_complex_double* work, lapack_int const* lwork,
18223  double* rwork,
18224  lapack_int* info
18225 #ifdef LAPACK_FORTRAN_STRLEN_END
18226  , size_t, size_t
18227 #endif
18228 );
18229 #ifdef LAPACK_FORTRAN_STRLEN_END
18230  #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1)
18231 #else
18232  #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__)
18233 #endif
18234 
18235 #define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX)
18236 void LAPACK_csysvxx_base(
18237  char const* fact, char const* uplo,
18238  lapack_int const* n, lapack_int const* nrhs,
18239  lapack_complex_float* A, lapack_int const* lda,
18240  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18241  float* S,
18242  lapack_complex_float* B,
18243  lapack_int const* ldb,
18244  lapack_complex_float* X, lapack_int const* ldx,
18245  float* rcond,
18246  float* rpvgrw,
18247  float* berr, lapack_int const* n_err_bnds,
18248  float* err_bnds_norm,
18249  float* err_bnds_comp, lapack_int const* nparams,
18250  float* params,
18251  lapack_complex_float* work,
18252  float* rwork,
18253  lapack_int* info
18254 #ifdef LAPACK_FORTRAN_STRLEN_END
18255  , size_t, size_t, size_t
18256 #endif
18257 );
18258 #ifdef LAPACK_FORTRAN_STRLEN_END
18259  #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1)
18260 #else
18261  #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__)
18262 #endif
18263 
18264 #define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX)
18265 void LAPACK_dsysvxx_base(
18266  char const* fact, char const* uplo,
18267  lapack_int const* n, lapack_int const* nrhs,
18268  double* A, lapack_int const* lda,
18269  double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18270  double* S,
18271  double* B,
18272  lapack_int const* ldb,
18273  double* X, lapack_int const* ldx,
18274  double* rcond,
18275  double* rpvgrw,
18276  double* berr, lapack_int const* n_err_bnds,
18277  double* err_bnds_norm,
18278  double* err_bnds_comp, lapack_int const* nparams,
18279  double* params,
18280  double* work,
18281  lapack_int* iwork,
18282  lapack_int* info
18283 #ifdef LAPACK_FORTRAN_STRLEN_END
18284  , size_t, size_t, size_t
18285 #endif
18286 );
18287 #ifdef LAPACK_FORTRAN_STRLEN_END
18288  #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1)
18289 #else
18290  #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__)
18291 #endif
18292 
18293 #define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX)
18294 void LAPACK_ssysvxx_base(
18295  char const* fact, char const* uplo,
18296  lapack_int const* n, lapack_int const* nrhs,
18297  float* A, lapack_int const* lda,
18298  float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18299  float* S,
18300  float* B,
18301  lapack_int const* ldb,
18302  float* X, lapack_int const* ldx,
18303  float* rcond,
18304  float* rpvgrw,
18305  float* berr, lapack_int const* n_err_bnds,
18306  float* err_bnds_norm,
18307  float* err_bnds_comp, lapack_int const* nparams,
18308  float* params,
18309  float* work,
18310  lapack_int* iwork,
18311  lapack_int* info
18312 #ifdef LAPACK_FORTRAN_STRLEN_END
18313  , size_t, size_t, size_t
18314 #endif
18315 );
18316 #ifdef LAPACK_FORTRAN_STRLEN_END
18317  #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1)
18318 #else
18319  #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__)
18320 #endif
18321 
18322 #define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX)
18323 void LAPACK_zsysvxx_base(
18324  char const* fact, char const* uplo,
18325  lapack_int const* n, lapack_int const* nrhs,
18326  lapack_complex_double* A, lapack_int const* lda,
18327  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18328  double* S,
18329  lapack_complex_double* B,
18330  lapack_int const* ldb,
18331  lapack_complex_double* X, lapack_int const* ldx,
18332  double* rcond,
18333  double* rpvgrw,
18334  double* berr, lapack_int const* n_err_bnds,
18335  double* err_bnds_norm,
18336  double* err_bnds_comp, lapack_int const* nparams,
18337  double* params,
18338  lapack_complex_double* work,
18339  double* rwork,
18340  lapack_int* info
18341 #ifdef LAPACK_FORTRAN_STRLEN_END
18342  , size_t, size_t, size_t
18343 #endif
18344 );
18345 #ifdef LAPACK_FORTRAN_STRLEN_END
18346  #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1)
18347 #else
18348  #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__)
18349 #endif
18350 
18351 #define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR)
18352 void LAPACK_csyswapr_base(
18353  char const* uplo,
18354  lapack_int const* n,
18355  lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18356 #ifdef LAPACK_FORTRAN_STRLEN_END
18357  , size_t
18358 #endif
18359 );
18360 #ifdef LAPACK_FORTRAN_STRLEN_END
18361  #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1)
18362 #else
18363  #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__)
18364 #endif
18365 
18366 #define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR)
18367 void LAPACK_dsyswapr_base(
18368  char const* uplo,
18369  lapack_int const* n,
18370  double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18371 #ifdef LAPACK_FORTRAN_STRLEN_END
18372  , size_t
18373 #endif
18374 );
18375 #ifdef LAPACK_FORTRAN_STRLEN_END
18376  #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1)
18377 #else
18378  #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__)
18379 #endif
18380 
18381 #define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR)
18382 void LAPACK_ssyswapr_base(
18383  char const* uplo,
18384  lapack_int const* n,
18385  float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18386 #ifdef LAPACK_FORTRAN_STRLEN_END
18387  , size_t
18388 #endif
18389 );
18390 #ifdef LAPACK_FORTRAN_STRLEN_END
18391  #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1)
18392 #else
18393  #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__)
18394 #endif
18395 
18396 #define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR)
18397 void LAPACK_zsyswapr_base(
18398  char const* uplo,
18399  lapack_int const* n,
18400  lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18401 #ifdef LAPACK_FORTRAN_STRLEN_END
18402  , size_t
18403 #endif
18404 );
18405 #ifdef LAPACK_FORTRAN_STRLEN_END
18406  #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1)
18407 #else
18408  #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__)
18409 #endif
18410 
18411 #define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD)
18412 void LAPACK_dsytrd_base(
18413  char const* uplo,
18414  lapack_int const* n,
18415  double* A, lapack_int const* lda,
18416  double* D,
18417  double* E,
18418  double* tau,
18419  double* work, lapack_int const* lwork,
18420  lapack_int* info
18421 #ifdef LAPACK_FORTRAN_STRLEN_END
18422  , size_t
18423 #endif
18424 );
18425 #ifdef LAPACK_FORTRAN_STRLEN_END
18426  #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1)
18427 #else
18428  #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__)
18429 #endif
18430 
18431 #define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD)
18432 void LAPACK_ssytrd_base(
18433  char const* uplo,
18434  lapack_int const* n,
18435  float* A, lapack_int const* lda,
18436  float* D,
18437  float* E,
18438  float* tau,
18439  float* work, lapack_int const* lwork,
18440  lapack_int* info
18441 #ifdef LAPACK_FORTRAN_STRLEN_END
18442  , size_t
18443 #endif
18444 );
18445 #ifdef LAPACK_FORTRAN_STRLEN_END
18446  #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1)
18447 #else
18448  #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__)
18449 #endif
18450 
18451 #define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE)
18452 void LAPACK_dsytrd_2stage_base(
18453  char const* vect, char const* uplo,
18454  lapack_int const* n,
18455  double* A, lapack_int const* lda,
18456  double* D,
18457  double* E,
18458  double* tau,
18459  double* HOUS2, lapack_int const* lhous2,
18460  double* work, lapack_int const* lwork,
18461  lapack_int* info
18462 #ifdef LAPACK_FORTRAN_STRLEN_END
18463  , size_t, size_t
18464 #endif
18465 );
18466 #ifdef LAPACK_FORTRAN_STRLEN_END
18467  #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1)
18468 #else
18469  #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__)
18470 #endif
18471 
18472 #define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE)
18473 void LAPACK_ssytrd_2stage_base(
18474  char const* vect, char const* uplo,
18475  lapack_int const* n,
18476  float* A, lapack_int const* lda,
18477  float* D,
18478  float* E,
18479  float* tau,
18480  float* HOUS2, lapack_int const* lhous2,
18481  float* work, lapack_int const* lwork,
18482  lapack_int* info
18483 #ifdef LAPACK_FORTRAN_STRLEN_END
18484  , size_t, size_t
18485 #endif
18486 );
18487 #ifdef LAPACK_FORTRAN_STRLEN_END
18488  #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1)
18489 #else
18490  #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__)
18491 #endif
18492 
18493 #define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF)
18494 void LAPACK_csytrf_base(
18495  char const* uplo,
18496  lapack_int const* n,
18497  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18498  lapack_complex_float* work, lapack_int const* lwork,
18499  lapack_int* info
18500 #ifdef LAPACK_FORTRAN_STRLEN_END
18501  , size_t
18502 #endif
18503 );
18504 #ifdef LAPACK_FORTRAN_STRLEN_END
18505  #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1)
18506 #else
18507  #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__)
18508 #endif
18509 
18510 #define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF)
18511 void LAPACK_dsytrf_base(
18512  char const* uplo,
18513  lapack_int const* n,
18514  double* A, lapack_int const* lda, lapack_int* ipiv,
18515  double* work, lapack_int const* lwork,
18516  lapack_int* info
18517 #ifdef LAPACK_FORTRAN_STRLEN_END
18518  , size_t
18519 #endif
18520 );
18521 #ifdef LAPACK_FORTRAN_STRLEN_END
18522  #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1)
18523 #else
18524  #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__)
18525 #endif
18526 
18527 #define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF)
18528 void LAPACK_ssytrf_base(
18529  char const* uplo,
18530  lapack_int const* n,
18531  float* A, lapack_int const* lda, lapack_int* ipiv,
18532  float* work, lapack_int const* lwork,
18533  lapack_int* info
18534 #ifdef LAPACK_FORTRAN_STRLEN_END
18535  , size_t
18536 #endif
18537 );
18538 #ifdef LAPACK_FORTRAN_STRLEN_END
18539  #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1)
18540 #else
18541  #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__)
18542 #endif
18543 
18544 #define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF)
18545 void LAPACK_zsytrf_base(
18546  char const* uplo,
18547  lapack_int const* n,
18548  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18549  lapack_complex_double* work, lapack_int const* lwork,
18550  lapack_int* info
18551 #ifdef LAPACK_FORTRAN_STRLEN_END
18552  , size_t
18553 #endif
18554 );
18555 #ifdef LAPACK_FORTRAN_STRLEN_END
18556  #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1)
18557 #else
18558  #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__)
18559 #endif
18560 
18561 #define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA)
18562 void LAPACK_csytrf_aa_base(
18563  char const* uplo,
18564  lapack_int const* n,
18565  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18566  lapack_complex_float* work, lapack_int const* lwork,
18567  lapack_int* info
18568 #ifdef LAPACK_FORTRAN_STRLEN_END
18569  , size_t
18570 #endif
18571 );
18572 #ifdef LAPACK_FORTRAN_STRLEN_END
18573  #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1)
18574 #else
18575  #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__)
18576 #endif
18577 
18578 #define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA)
18579 void LAPACK_dsytrf_aa_base(
18580  char const* uplo,
18581  lapack_int const* n,
18582  double* A, lapack_int const* lda, lapack_int* ipiv,
18583  double* work, lapack_int const* lwork,
18584  lapack_int* info
18585 #ifdef LAPACK_FORTRAN_STRLEN_END
18586  , size_t
18587 #endif
18588 );
18589 #ifdef LAPACK_FORTRAN_STRLEN_END
18590  #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1)
18591 #else
18592  #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__)
18593 #endif
18594 
18595 #define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA)
18596 void LAPACK_ssytrf_aa_base(
18597  char const* uplo,
18598  lapack_int const* n,
18599  float* A, lapack_int const* lda, lapack_int* ipiv,
18600  float* work, lapack_int const* lwork,
18601  lapack_int* info
18602 #ifdef LAPACK_FORTRAN_STRLEN_END
18603  , size_t
18604 #endif
18605 );
18606 #ifdef LAPACK_FORTRAN_STRLEN_END
18607  #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1)
18608 #else
18609  #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__)
18610 #endif
18611 
18612 #define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA)
18613 void LAPACK_zsytrf_aa_base(
18614  char const* uplo,
18615  lapack_int const* n,
18616  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18617  lapack_complex_double* work, lapack_int const* lwork,
18618  lapack_int* info
18619 #ifdef LAPACK_FORTRAN_STRLEN_END
18620  , size_t
18621 #endif
18622 );
18623 #ifdef LAPACK_FORTRAN_STRLEN_END
18624  #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1)
18625 #else
18626  #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__)
18627 #endif
18628 
18629 #define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE)
18630 void LAPACK_csytrf_aa_2stage_base(
18631  char const* uplo,
18632  lapack_int const* n,
18633  lapack_complex_float* A, lapack_int const* lda,
18634  lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18635  lapack_complex_float* work, lapack_int const* lwork,
18636  lapack_int* info
18637 #ifdef LAPACK_FORTRAN_STRLEN_END
18638  , size_t
18639 #endif
18640 );
18641 #ifdef LAPACK_FORTRAN_STRLEN_END
18642  #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1)
18643 #else
18644  #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__)
18645 #endif
18646 
18647 #define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE)
18648 void LAPACK_dsytrf_aa_2stage_base(
18649  char const* uplo,
18650  lapack_int const* n,
18651  double* A, lapack_int const* lda,
18652  double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18653  double* work, lapack_int const* lwork,
18654  lapack_int* info
18655 #ifdef LAPACK_FORTRAN_STRLEN_END
18656  , size_t
18657 #endif
18658 );
18659 #ifdef LAPACK_FORTRAN_STRLEN_END
18660  #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1)
18661 #else
18662  #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__)
18663 #endif
18664 
18665 #define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE)
18666 void LAPACK_ssytrf_aa_2stage_base(
18667  char const* uplo,
18668  lapack_int const* n,
18669  float* A, lapack_int const* lda,
18670  float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18671  float* work, lapack_int const* lwork,
18672  lapack_int* info
18673 #ifdef LAPACK_FORTRAN_STRLEN_END
18674  , size_t
18675 #endif
18676 );
18677 #ifdef LAPACK_FORTRAN_STRLEN_END
18678  #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1)
18679 #else
18680  #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__)
18681 #endif
18682 
18683 #define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE)
18684 void LAPACK_zsytrf_aa_2stage_base(
18685  char const* uplo,
18686  lapack_int const* n,
18687  lapack_complex_double* A, lapack_int const* lda,
18688  lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18689  lapack_complex_double* work, lapack_int const* lwork,
18690  lapack_int* info
18691 #ifdef LAPACK_FORTRAN_STRLEN_END
18692  , size_t
18693 #endif
18694 );
18695 #ifdef LAPACK_FORTRAN_STRLEN_END
18696  #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1)
18697 #else
18698  #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__)
18699 #endif
18700 
18701 #define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK)
18702 void LAPACK_csytrf_rk_base(
18703  char const* uplo,
18704  lapack_int const* n,
18705  lapack_complex_float* A, lapack_int const* lda,
18706  lapack_complex_float* E, lapack_int* ipiv,
18707  lapack_complex_float* work, lapack_int const* lwork,
18708  lapack_int* info
18709 #ifdef LAPACK_FORTRAN_STRLEN_END
18710  , size_t
18711 #endif
18712 );
18713 #ifdef LAPACK_FORTRAN_STRLEN_END
18714  #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1)
18715 #else
18716  #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__)
18717 #endif
18718 
18719 #define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK)
18720 void LAPACK_dsytrf_rk_base(
18721  char const* uplo,
18722  lapack_int const* n,
18723  double* A, lapack_int const* lda,
18724  double* E, lapack_int* ipiv,
18725  double* work, lapack_int const* lwork,
18726  lapack_int* info
18727 #ifdef LAPACK_FORTRAN_STRLEN_END
18728  , size_t
18729 #endif
18730 );
18731 #ifdef LAPACK_FORTRAN_STRLEN_END
18732  #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1)
18733 #else
18734  #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__)
18735 #endif
18736 
18737 #define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK)
18738 void LAPACK_ssytrf_rk_base(
18739  char const* uplo,
18740  lapack_int const* n,
18741  float* A, lapack_int const* lda,
18742  float* E, lapack_int* ipiv,
18743  float* work, lapack_int const* lwork,
18744  lapack_int* info
18745 #ifdef LAPACK_FORTRAN_STRLEN_END
18746  , size_t
18747 #endif
18748 );
18749 #ifdef LAPACK_FORTRAN_STRLEN_END
18750  #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1)
18751 #else
18752  #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__)
18753 #endif
18754 
18755 #define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK)
18756 void LAPACK_zsytrf_rk_base(
18757  char const* uplo,
18758  lapack_int const* n,
18759  lapack_complex_double* A, lapack_int const* lda,
18760  lapack_complex_double* E, lapack_int* ipiv,
18761  lapack_complex_double* work, lapack_int const* lwork,
18762  lapack_int* info
18763 #ifdef LAPACK_FORTRAN_STRLEN_END
18764  , size_t
18765 #endif
18766 );
18767 #ifdef LAPACK_FORTRAN_STRLEN_END
18768  #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1)
18769 #else
18770  #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__)
18771 #endif
18772 
18773 #define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK)
18774 void LAPACK_csytrf_rook_base(
18775  char const* uplo,
18776  lapack_int const* n,
18777  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18778  lapack_complex_float* work, lapack_int const* lwork,
18779  lapack_int* info
18780 #ifdef LAPACK_FORTRAN_STRLEN_END
18781  , size_t
18782 #endif
18783 );
18784 #ifdef LAPACK_FORTRAN_STRLEN_END
18785  #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1)
18786 #else
18787  #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__)
18788 #endif
18789 
18790 #define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK)
18791 void LAPACK_dsytrf_rook_base(
18792  char const* uplo,
18793  lapack_int const* n,
18794  double* A, lapack_int const* lda, lapack_int* ipiv,
18795  double* work, lapack_int const* lwork,
18796  lapack_int* info
18797 #ifdef LAPACK_FORTRAN_STRLEN_END
18798  , size_t
18799 #endif
18800 );
18801 #ifdef LAPACK_FORTRAN_STRLEN_END
18802  #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1)
18803 #else
18804  #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__)
18805 #endif
18806 
18807 #define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK)
18808 void LAPACK_ssytrf_rook_base(
18809  char const* uplo,
18810  lapack_int const* n,
18811  float* A, lapack_int const* lda, lapack_int* ipiv,
18812  float* work, lapack_int const* lwork,
18813  lapack_int* info
18814 #ifdef LAPACK_FORTRAN_STRLEN_END
18815  , size_t
18816 #endif
18817 );
18818 #ifdef LAPACK_FORTRAN_STRLEN_END
18819  #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1)
18820 #else
18821  #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__)
18822 #endif
18823 
18824 #define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK)
18825 void LAPACK_zsytrf_rook_base(
18826  char const* uplo,
18827  lapack_int const* n,
18828  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18829  lapack_complex_double* work, lapack_int const* lwork,
18830  lapack_int* info
18831 #ifdef LAPACK_FORTRAN_STRLEN_END
18832  , size_t
18833 #endif
18834 );
18835 #ifdef LAPACK_FORTRAN_STRLEN_END
18836  #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1)
18837 #else
18838  #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__)
18839 #endif
18840 
18841 #define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI)
18842 void LAPACK_csytri_base(
18843  char const* uplo,
18844  lapack_int const* n,
18845  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18846  lapack_complex_float* work,
18847  lapack_int* info
18848 #ifdef LAPACK_FORTRAN_STRLEN_END
18849  , size_t
18850 #endif
18851 );
18852 #ifdef LAPACK_FORTRAN_STRLEN_END
18853  #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1)
18854 #else
18855  #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__)
18856 #endif
18857 
18858 #define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI)
18859 void LAPACK_dsytri_base(
18860  char const* uplo,
18861  lapack_int const* n,
18862  double* A, lapack_int const* lda, lapack_int const* ipiv,
18863  double* work,
18864  lapack_int* info
18865 #ifdef LAPACK_FORTRAN_STRLEN_END
18866  , size_t
18867 #endif
18868 );
18869 #ifdef LAPACK_FORTRAN_STRLEN_END
18870  #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1)
18871 #else
18872  #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__)
18873 #endif
18874 
18875 #define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI)
18876 void LAPACK_ssytri_base(
18877  char const* uplo,
18878  lapack_int const* n,
18879  float* A, lapack_int const* lda, lapack_int const* ipiv,
18880  float* work,
18881  lapack_int* info
18882 #ifdef LAPACK_FORTRAN_STRLEN_END
18883  , size_t
18884 #endif
18885 );
18886 #ifdef LAPACK_FORTRAN_STRLEN_END
18887  #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1)
18888 #else
18889  #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__)
18890 #endif
18891 
18892 #define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI)
18893 void LAPACK_zsytri_base(
18894  char const* uplo,
18895  lapack_int const* n,
18896  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
18897  lapack_complex_double* work,
18898  lapack_int* info
18899 #ifdef LAPACK_FORTRAN_STRLEN_END
18900  , size_t
18901 #endif
18902 );
18903 #ifdef LAPACK_FORTRAN_STRLEN_END
18904  #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1)
18905 #else
18906  #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__)
18907 #endif
18908 
18909 #define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2)
18910 void LAPACK_csytri2_base(
18911  char const* uplo,
18912  lapack_int const* n,
18913  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18914  lapack_complex_float* work, lapack_int const* lwork,
18915  lapack_int* info
18916 #ifdef LAPACK_FORTRAN_STRLEN_END
18917  , size_t
18918 #endif
18919 );
18920 #ifdef LAPACK_FORTRAN_STRLEN_END
18921  #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1)
18922 #else
18923  #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__)
18924 #endif
18925 
18926 #define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2)
18927 void LAPACK_dsytri2_base(
18928  char const* uplo,
18929  lapack_int const* n,
18930  double* A, lapack_int const* lda, lapack_int const* ipiv,
18931  double* work, lapack_int const* lwork,
18932  lapack_int* info
18933 #ifdef LAPACK_FORTRAN_STRLEN_END
18934  , size_t
18935 #endif
18936 );
18937 #ifdef LAPACK_FORTRAN_STRLEN_END
18938  #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1)
18939 #else
18940  #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__)
18941 #endif
18942 
18943 #define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2)
18944 void LAPACK_ssytri2_base(
18945  char const* uplo,
18946  lapack_int const* n,
18947  float* A, lapack_int const* lda, lapack_int const* ipiv,
18948  float* work, lapack_int const* lwork,
18949  lapack_int* info
18950 #ifdef LAPACK_FORTRAN_STRLEN_END
18951  , size_t
18952 #endif
18953 );
18954 #ifdef LAPACK_FORTRAN_STRLEN_END
18955  #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1)
18956 #else
18957  #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__)
18958 #endif
18959 
18960 #define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2)
18961 void LAPACK_zsytri2_base(
18962  char const* uplo,
18963  lapack_int const* n,
18964  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
18965  lapack_complex_double* work, lapack_int const* lwork,
18966  lapack_int* info
18967 #ifdef LAPACK_FORTRAN_STRLEN_END
18968  , size_t
18969 #endif
18970 );
18971 #ifdef LAPACK_FORTRAN_STRLEN_END
18972  #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1)
18973 #else
18974  #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__)
18975 #endif
18976 
18977 #define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X)
18978 void LAPACK_csytri2x_base(
18979  char const* uplo,
18980  lapack_int const* n,
18981  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18982  lapack_complex_float* work, lapack_int const* nb,
18983  lapack_int* info
18984 #ifdef LAPACK_FORTRAN_STRLEN_END
18985  , size_t
18986 #endif
18987 );
18988 #ifdef LAPACK_FORTRAN_STRLEN_END
18989  #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1)
18990 #else
18991  #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__)
18992 #endif
18993 
18994 #define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X)
18995 void LAPACK_dsytri2x_base(
18996  char const* uplo,
18997  lapack_int const* n,
18998  double* A, lapack_int const* lda, lapack_int const* ipiv,
18999  double* work, lapack_int const* nb,
19000  lapack_int* info
19001 #ifdef LAPACK_FORTRAN_STRLEN_END
19002  , size_t
19003 #endif
19004 );
19005 #ifdef LAPACK_FORTRAN_STRLEN_END
19006  #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1)
19007 #else
19008  #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__)
19009 #endif
19010 
19011 #define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X)
19012 void LAPACK_ssytri2x_base(
19013  char const* uplo,
19014  lapack_int const* n,
19015  float* A, lapack_int const* lda, lapack_int const* ipiv,
19016  float* work, lapack_int const* nb,
19017  lapack_int* info
19018 #ifdef LAPACK_FORTRAN_STRLEN_END
19019  , size_t
19020 #endif
19021 );
19022 #ifdef LAPACK_FORTRAN_STRLEN_END
19023  #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1)
19024 #else
19025  #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__)
19026 #endif
19027 
19028 #define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X)
19029 void LAPACK_zsytri2x_base(
19030  char const* uplo,
19031  lapack_int const* n,
19032  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19033  lapack_complex_double* work, lapack_int const* nb,
19034  lapack_int* info
19035 #ifdef LAPACK_FORTRAN_STRLEN_END
19036  , size_t
19037 #endif
19038 );
19039 #ifdef LAPACK_FORTRAN_STRLEN_END
19040  #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1)
19041 #else
19042  #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__)
19043 #endif
19044 
19045 #define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3)
19046 void LAPACK_csytri_3_base(
19047  char const* uplo,
19048  lapack_int const* n,
19049  lapack_complex_float* A, lapack_int const* lda,
19050  lapack_complex_float const* E, lapack_int const* ipiv,
19051  lapack_complex_float* work, lapack_int const* lwork,
19052  lapack_int* info
19053 #ifdef LAPACK_FORTRAN_STRLEN_END
19054  , size_t
19055 #endif
19056 );
19057 #ifdef LAPACK_FORTRAN_STRLEN_END
19058  #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1)
19059 #else
19060  #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__)
19061 #endif
19062 
19063 #define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3)
19064 void LAPACK_dsytri_3_base(
19065  char const* uplo,
19066  lapack_int const* n,
19067  double* A, lapack_int const* lda,
19068  double const* E, lapack_int const* ipiv,
19069  double* work, lapack_int const* lwork,
19070  lapack_int* info
19071 #ifdef LAPACK_FORTRAN_STRLEN_END
19072  , size_t
19073 #endif
19074 );
19075 #ifdef LAPACK_FORTRAN_STRLEN_END
19076  #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1)
19077 #else
19078  #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__)
19079 #endif
19080 
19081 #define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3)
19082 void LAPACK_ssytri_3_base(
19083  char const* uplo,
19084  lapack_int const* n,
19085  float* A, lapack_int const* lda,
19086  float const* E, lapack_int const* ipiv,
19087  float* work, lapack_int const* lwork,
19088  lapack_int* info
19089 #ifdef LAPACK_FORTRAN_STRLEN_END
19090  , size_t
19091 #endif
19092 );
19093 #ifdef LAPACK_FORTRAN_STRLEN_END
19094  #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1)
19095 #else
19096  #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__)
19097 #endif
19098 
19099 #define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3)
19100 void LAPACK_zsytri_3_base(
19101  char const* uplo,
19102  lapack_int const* n,
19103  lapack_complex_double* A, lapack_int const* lda,
19104  lapack_complex_double const* E, lapack_int const* ipiv,
19105  lapack_complex_double* work, lapack_int const* lwork,
19106  lapack_int* info
19107 #ifdef LAPACK_FORTRAN_STRLEN_END
19108  , size_t
19109 #endif
19110 );
19111 #ifdef LAPACK_FORTRAN_STRLEN_END
19112  #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1)
19113 #else
19114  #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__)
19115 #endif
19116 
19117 #define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS)
19118 void LAPACK_csytrs_base(
19119  char const* uplo,
19120  lapack_int const* n, lapack_int const* nrhs,
19121  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19122  lapack_complex_float* B, lapack_int const* ldb,
19123  lapack_int* info
19124 #ifdef LAPACK_FORTRAN_STRLEN_END
19125  , size_t
19126 #endif
19127 );
19128 #ifdef LAPACK_FORTRAN_STRLEN_END
19129  #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1)
19130 #else
19131  #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__)
19132 #endif
19133 
19134 #define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS)
19135 void LAPACK_dsytrs_base(
19136  char const* uplo,
19137  lapack_int const* n, lapack_int const* nrhs,
19138  double const* A, lapack_int const* lda, lapack_int const* ipiv,
19139  double* B, lapack_int const* ldb,
19140  lapack_int* info
19141 #ifdef LAPACK_FORTRAN_STRLEN_END
19142  , size_t
19143 #endif
19144 );
19145 #ifdef LAPACK_FORTRAN_STRLEN_END
19146  #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1)
19147 #else
19148  #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__)
19149 #endif
19150 
19151 #define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS)
19152 void LAPACK_ssytrs_base(
19153  char const* uplo,
19154  lapack_int const* n, lapack_int const* nrhs,
19155  float const* A, lapack_int const* lda, lapack_int const* ipiv,
19156  float* B, lapack_int const* ldb,
19157  lapack_int* info
19158 #ifdef LAPACK_FORTRAN_STRLEN_END
19159  , size_t
19160 #endif
19161 );
19162 #ifdef LAPACK_FORTRAN_STRLEN_END
19163  #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1)
19164 #else
19165  #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__)
19166 #endif
19167 
19168 #define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS)
19169 void LAPACK_zsytrs_base(
19170  char const* uplo,
19171  lapack_int const* n, lapack_int const* nrhs,
19172  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19173  lapack_complex_double* B, lapack_int const* ldb,
19174  lapack_int* info
19175 #ifdef LAPACK_FORTRAN_STRLEN_END
19176  , size_t
19177 #endif
19178 );
19179 #ifdef LAPACK_FORTRAN_STRLEN_END
19180  #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1)
19181 #else
19182  #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__)
19183 #endif
19184 
19185 #define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2)
19186 void LAPACK_csytrs2_base(
19187  char const* uplo,
19188  lapack_int const* n, lapack_int const* nrhs,
19189  const lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
19190  lapack_complex_float* B, lapack_int const* ldb,
19191  lapack_complex_float* work,
19192  lapack_int* info
19193 #ifdef LAPACK_FORTRAN_STRLEN_END
19194  , size_t
19195 #endif
19196 );
19197 #ifdef LAPACK_FORTRAN_STRLEN_END
19198  #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1)
19199 #else
19200  #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__)
19201 #endif
19202 
19203 #define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2)
19204 void LAPACK_dsytrs2_base(
19205  char const* uplo,
19206  lapack_int const* n, lapack_int const* nrhs,
19207  const double* A, lapack_int const* lda, lapack_int const* ipiv,
19208  double* B, lapack_int const* ldb,
19209  double* work,
19210  lapack_int* info
19211 #ifdef LAPACK_FORTRAN_STRLEN_END
19212  , size_t
19213 #endif
19214 );
19215 #ifdef LAPACK_FORTRAN_STRLEN_END
19216  #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1)
19217 #else
19218  #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__)
19219 #endif
19220 
19221 #define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2)
19222 void LAPACK_ssytrs2_base(
19223  char const* uplo,
19224  lapack_int const* n, lapack_int const* nrhs,
19225  const float* A, lapack_int const* lda, lapack_int const* ipiv,
19226  float* B, lapack_int const* ldb,
19227  float* work,
19228  lapack_int* info
19229 #ifdef LAPACK_FORTRAN_STRLEN_END
19230  , size_t
19231 #endif
19232 );
19233 #ifdef LAPACK_FORTRAN_STRLEN_END
19234  #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1)
19235 #else
19236  #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__)
19237 #endif
19238 
19239 #define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2)
19240 void LAPACK_zsytrs2_base(
19241  char const* uplo,
19242  lapack_int const* n, lapack_int const* nrhs,
19243  const lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19244  lapack_complex_double* B, lapack_int const* ldb,
19245  lapack_complex_double* work,
19246  lapack_int* info
19247 #ifdef LAPACK_FORTRAN_STRLEN_END
19248  , size_t
19249 #endif
19250 );
19251 #ifdef LAPACK_FORTRAN_STRLEN_END
19252  #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1)
19253 #else
19254  #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__)
19255 #endif
19256 
19257 #define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3)
19258 void LAPACK_csytrs_3_base(
19259  char const* uplo,
19260  lapack_int const* n, lapack_int const* nrhs,
19261  lapack_complex_float const* A, lapack_int const* lda,
19262  lapack_complex_float const* E, lapack_int const* ipiv,
19263  lapack_complex_float* B, lapack_int const* ldb,
19264  lapack_int* info
19265 #ifdef LAPACK_FORTRAN_STRLEN_END
19266  , size_t
19267 #endif
19268 );
19269 #ifdef LAPACK_FORTRAN_STRLEN_END
19270  #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1)
19271 #else
19272  #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__)
19273 #endif
19274 
19275 #define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3)
19276 void LAPACK_dsytrs_3_base(
19277  char const* uplo,
19278  lapack_int const* n, lapack_int const* nrhs,
19279  double const* A, lapack_int const* lda,
19280  double const* E, lapack_int const* ipiv,
19281  double* B, lapack_int const* ldb,
19282  lapack_int* info
19283 #ifdef LAPACK_FORTRAN_STRLEN_END
19284  , size_t
19285 #endif
19286 );
19287 #ifdef LAPACK_FORTRAN_STRLEN_END
19288  #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1)
19289 #else
19290  #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__)
19291 #endif
19292 
19293 #define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3)
19294 void LAPACK_ssytrs_3_base(
19295  char const* uplo,
19296  lapack_int const* n, lapack_int const* nrhs,
19297  float const* A, lapack_int const* lda,
19298  float const* E, lapack_int const* ipiv,
19299  float* B, lapack_int const* ldb,
19300  lapack_int* info
19301 #ifdef LAPACK_FORTRAN_STRLEN_END
19302  , size_t
19303 #endif
19304 );
19305 #ifdef LAPACK_FORTRAN_STRLEN_END
19306  #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1)
19307 #else
19308  #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__)
19309 #endif
19310 
19311 #define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3)
19312 void LAPACK_zsytrs_3_base(
19313  char const* uplo,
19314  lapack_int const* n, lapack_int const* nrhs,
19315  lapack_complex_double const* A, lapack_int const* lda,
19316  lapack_complex_double const* E, lapack_int const* ipiv,
19317  lapack_complex_double* B, lapack_int const* ldb,
19318  lapack_int* info
19319 #ifdef LAPACK_FORTRAN_STRLEN_END
19320  , size_t
19321 #endif
19322 );
19323 #ifdef LAPACK_FORTRAN_STRLEN_END
19324  #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1)
19325 #else
19326  #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__)
19327 #endif
19328 
19329 #define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA)
19330 void LAPACK_csytrs_aa_base(
19331  char const* uplo,
19332  lapack_int const* n, lapack_int const* nrhs,
19333  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19334  lapack_complex_float* B, lapack_int const* ldb,
19335  lapack_complex_float* work, lapack_int const* lwork,
19336  lapack_int* info
19337 #ifdef LAPACK_FORTRAN_STRLEN_END
19338  , size_t
19339 #endif
19340 );
19341 #ifdef LAPACK_FORTRAN_STRLEN_END
19342  #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1)
19343 #else
19344  #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__)
19345 #endif
19346 
19347 #define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA)
19348 void LAPACK_dsytrs_aa_base(
19349  char const* uplo,
19350  lapack_int const* n, lapack_int const* nrhs,
19351  double const* A, lapack_int const* lda, lapack_int const* ipiv,
19352  double* B, lapack_int const* ldb,
19353  double* work, lapack_int const* lwork,
19354  lapack_int* info
19355 #ifdef LAPACK_FORTRAN_STRLEN_END
19356  , size_t
19357 #endif
19358 );
19359 #ifdef LAPACK_FORTRAN_STRLEN_END
19360  #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1)
19361 #else
19362  #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__)
19363 #endif
19364 
19365 #define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA)
19366 void LAPACK_ssytrs_aa_base(
19367  char const* uplo,
19368  lapack_int const* n, lapack_int const* nrhs,
19369  float const* A, lapack_int const* lda, lapack_int const* ipiv,
19370  float* B, lapack_int const* ldb,
19371  float* work, lapack_int const* lwork,
19372  lapack_int* info
19373 #ifdef LAPACK_FORTRAN_STRLEN_END
19374  , size_t
19375 #endif
19376 );
19377 #ifdef LAPACK_FORTRAN_STRLEN_END
19378  #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1)
19379 #else
19380  #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__)
19381 #endif
19382 
19383 #define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA)
19384 void LAPACK_zsytrs_aa_base(
19385  char const* uplo,
19386  lapack_int const* n, lapack_int const* nrhs,
19387  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19388  lapack_complex_double* B, lapack_int const* ldb,
19389  lapack_complex_double* work, lapack_int const* lwork,
19390  lapack_int* info
19391 #ifdef LAPACK_FORTRAN_STRLEN_END
19392  , size_t
19393 #endif
19394 );
19395 #ifdef LAPACK_FORTRAN_STRLEN_END
19396  #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1)
19397 #else
19398  #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__)
19399 #endif
19400 
19401 #define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE)
19402 void LAPACK_csytrs_aa_2stage_base(
19403  char const* uplo,
19404  lapack_int const* n, lapack_int const* nrhs,
19405  lapack_complex_float const* A, lapack_int const* lda,
19406  lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19407  lapack_complex_float* B, lapack_int const* ldb,
19408  lapack_int* info
19409 #ifdef LAPACK_FORTRAN_STRLEN_END
19410  , size_t
19411 #endif
19412 );
19413 #ifdef LAPACK_FORTRAN_STRLEN_END
19414  #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1)
19415 #else
19416  #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__)
19417 #endif
19418 
19419 #define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE)
19420 void LAPACK_dsytrs_aa_2stage_base(
19421  char const* uplo,
19422  lapack_int const* n, lapack_int const* nrhs,
19423  double const* A, lapack_int const* lda,
19424  double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19425  double* B, lapack_int const* ldb,
19426  lapack_int* info
19427 #ifdef LAPACK_FORTRAN_STRLEN_END
19428  , size_t
19429 #endif
19430 );
19431 #ifdef LAPACK_FORTRAN_STRLEN_END
19432  #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1)
19433 #else
19434  #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__)
19435 #endif
19436 
19437 #define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE)
19438 void LAPACK_ssytrs_aa_2stage_base(
19439  char const* uplo,
19440  lapack_int const* n, lapack_int const* nrhs,
19441  float const* A, lapack_int const* lda,
19442  float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19443  float* B, lapack_int const* ldb,
19444  lapack_int* info
19445 #ifdef LAPACK_FORTRAN_STRLEN_END
19446  , size_t
19447 #endif
19448 );
19449 #ifdef LAPACK_FORTRAN_STRLEN_END
19450  #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1)
19451 #else
19452  #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__)
19453 #endif
19454 
19455 #define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE)
19456 void LAPACK_zsytrs_aa_2stage_base(
19457  char const* uplo,
19458  lapack_int const* n, lapack_int const* nrhs,
19459  lapack_complex_double const* A, lapack_int const* lda,
19460  lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19461  lapack_complex_double* B, lapack_int const* ldb,
19462  lapack_int* info
19463 #ifdef LAPACK_FORTRAN_STRLEN_END
19464  , size_t
19465 #endif
19466 );
19467 #ifdef LAPACK_FORTRAN_STRLEN_END
19468  #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1)
19469 #else
19470  #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__)
19471 #endif
19472 
19473 #define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK)
19474 void LAPACK_csytrs_rook_base(
19475  char const* uplo,
19476  lapack_int const* n, lapack_int const* nrhs,
19477  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19478  lapack_complex_float* B, lapack_int const* ldb,
19479  lapack_int* info
19480 #ifdef LAPACK_FORTRAN_STRLEN_END
19481  , size_t
19482 #endif
19483 );
19484 #ifdef LAPACK_FORTRAN_STRLEN_END
19485  #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1)
19486 #else
19487  #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__)
19488 #endif
19489 
19490 #define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK)
19491 void LAPACK_dsytrs_rook_base(
19492  char const* uplo,
19493  lapack_int const* n, lapack_int const* nrhs,
19494  double const* A, lapack_int const* lda, lapack_int const* ipiv,
19495  double* B, lapack_int const* ldb,
19496  lapack_int* info
19497 #ifdef LAPACK_FORTRAN_STRLEN_END
19498  , size_t
19499 #endif
19500 );
19501 #ifdef LAPACK_FORTRAN_STRLEN_END
19502  #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1)
19503 #else
19504  #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__)
19505 #endif
19506 
19507 #define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK)
19508 void LAPACK_ssytrs_rook_base(
19509  char const* uplo,
19510  lapack_int const* n, lapack_int const* nrhs,
19511  float const* A, lapack_int const* lda, lapack_int const* ipiv,
19512  float* B, lapack_int const* ldb,
19513  lapack_int* info
19514 #ifdef LAPACK_FORTRAN_STRLEN_END
19515  , size_t
19516 #endif
19517 );
19518 #ifdef LAPACK_FORTRAN_STRLEN_END
19519  #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1)
19520 #else
19521  #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__)
19522 #endif
19523 
19524 #define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK)
19525 void LAPACK_zsytrs_rook_base(
19526  char const* uplo,
19527  lapack_int const* n, lapack_int const* nrhs,
19528  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19529  lapack_complex_double* B, lapack_int const* ldb,
19530  lapack_int* info
19531 #ifdef LAPACK_FORTRAN_STRLEN_END
19532  , size_t
19533 #endif
19534 );
19535 #ifdef LAPACK_FORTRAN_STRLEN_END
19536  #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1)
19537 #else
19538  #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__)
19539 #endif
19540 
19541 #define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON)
19542 void LAPACK_ctbcon_base(
19543  char const* norm, char const* uplo, char const* diag,
19544  lapack_int const* n, lapack_int const* kd,
19545  lapack_complex_float const* AB, lapack_int const* ldab,
19546  float* rcond,
19547  lapack_complex_float* work,
19548  float* rwork,
19549  lapack_int* info
19550 #ifdef LAPACK_FORTRAN_STRLEN_END
19551  , size_t, size_t, size_t
19552 #endif
19553 );
19554 #ifdef LAPACK_FORTRAN_STRLEN_END
19555  #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1)
19556 #else
19557  #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__)
19558 #endif
19559 
19560 #define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON)
19561 void LAPACK_dtbcon_base(
19562  char const* norm, char const* uplo, char const* diag,
19563  lapack_int const* n, lapack_int const* kd,
19564  double const* AB, lapack_int const* ldab,
19565  double* rcond,
19566  double* work,
19567  lapack_int* iwork,
19568  lapack_int* info
19569 #ifdef LAPACK_FORTRAN_STRLEN_END
19570  , size_t, size_t, size_t
19571 #endif
19572 );
19573 #ifdef LAPACK_FORTRAN_STRLEN_END
19574  #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1)
19575 #else
19576  #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__)
19577 #endif
19578 
19579 #define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON)
19580 void LAPACK_stbcon_base(
19581  char const* norm, char const* uplo, char const* diag,
19582  lapack_int const* n, lapack_int const* kd,
19583  float const* AB, lapack_int const* ldab,
19584  float* rcond,
19585  float* work,
19586  lapack_int* iwork,
19587  lapack_int* info
19588 #ifdef LAPACK_FORTRAN_STRLEN_END
19589  , size_t, size_t, size_t
19590 #endif
19591 );
19592 #ifdef LAPACK_FORTRAN_STRLEN_END
19593  #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1)
19594 #else
19595  #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__)
19596 #endif
19597 
19598 #define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON)
19599 void LAPACK_ztbcon_base(
19600  char const* norm, char const* uplo, char const* diag,
19601  lapack_int const* n, lapack_int const* kd,
19602  lapack_complex_double const* AB, lapack_int const* ldab,
19603  double* rcond,
19604  lapack_complex_double* work,
19605  double* rwork,
19606  lapack_int* info
19607 #ifdef LAPACK_FORTRAN_STRLEN_END
19608  , size_t, size_t, size_t
19609 #endif
19610 );
19611 #ifdef LAPACK_FORTRAN_STRLEN_END
19612  #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1)
19613 #else
19614  #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__)
19615 #endif
19616 
19617 #define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS)
19618 void LAPACK_ctbrfs_base(
19619  char const* uplo, char const* trans, char const* diag,
19620  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19621  lapack_complex_float const* AB, lapack_int const* ldab,
19622  lapack_complex_float const* B, lapack_int const* ldb,
19623  lapack_complex_float const* X, lapack_int const* ldx,
19624  float* ferr,
19625  float* berr,
19626  lapack_complex_float* work,
19627  float* rwork,
19628  lapack_int* info
19629 #ifdef LAPACK_FORTRAN_STRLEN_END
19630  , size_t, size_t, size_t
19631 #endif
19632 );
19633 #ifdef LAPACK_FORTRAN_STRLEN_END
19634  #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1)
19635 #else
19636  #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__)
19637 #endif
19638 
19639 #define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS)
19640 void LAPACK_dtbrfs_base(
19641  char const* uplo, char const* trans, char const* diag,
19642  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19643  double const* AB, lapack_int const* ldab,
19644  double const* B, lapack_int const* ldb,
19645  double const* X, lapack_int const* ldx,
19646  double* ferr,
19647  double* berr,
19648  double* work,
19649  lapack_int* iwork,
19650  lapack_int* info
19651 #ifdef LAPACK_FORTRAN_STRLEN_END
19652  , size_t, size_t, size_t
19653 #endif
19654 );
19655 #ifdef LAPACK_FORTRAN_STRLEN_END
19656  #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1)
19657 #else
19658  #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__)
19659 #endif
19660 
19661 #define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS)
19662 void LAPACK_stbrfs_base(
19663  char const* uplo, char const* trans, char const* diag,
19664  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19665  float const* AB, lapack_int const* ldab,
19666  float const* B, lapack_int const* ldb,
19667  float const* X, lapack_int const* ldx,
19668  float* ferr,
19669  float* berr,
19670  float* work,
19671  lapack_int* iwork,
19672  lapack_int* info
19673 #ifdef LAPACK_FORTRAN_STRLEN_END
19674  , size_t, size_t, size_t
19675 #endif
19676 );
19677 #ifdef LAPACK_FORTRAN_STRLEN_END
19678  #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1)
19679 #else
19680  #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__)
19681 #endif
19682 
19683 #define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS)
19684 void LAPACK_ztbrfs_base(
19685  char const* uplo, char const* trans, char const* diag,
19686  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19687  lapack_complex_double const* AB, lapack_int const* ldab,
19688  lapack_complex_double const* B, lapack_int const* ldb,
19689  lapack_complex_double const* X, lapack_int const* ldx,
19690  double* ferr,
19691  double* berr,
19692  lapack_complex_double* work,
19693  double* rwork,
19694  lapack_int* info
19695 #ifdef LAPACK_FORTRAN_STRLEN_END
19696  , size_t, size_t, size_t
19697 #endif
19698 );
19699 #ifdef LAPACK_FORTRAN_STRLEN_END
19700  #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1)
19701 #else
19702  #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__)
19703 #endif
19704 
19705 #define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS)
19706 void LAPACK_ctbtrs_base(
19707  char const* uplo, char const* trans, char const* diag,
19708  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19709  lapack_complex_float const* AB, lapack_int const* ldab,
19710  lapack_complex_float* B, lapack_int const* ldb,
19711  lapack_int* info
19712 #ifdef LAPACK_FORTRAN_STRLEN_END
19713  , size_t, size_t, size_t
19714 #endif
19715 );
19716 #ifdef LAPACK_FORTRAN_STRLEN_END
19717  #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1)
19718 #else
19719  #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__)
19720 #endif
19721 
19722 #define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS)
19723 void LAPACK_dtbtrs_base(
19724  char const* uplo, char const* trans, char const* diag,
19725  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19726  double const* AB, lapack_int const* ldab,
19727  double* B, lapack_int const* ldb,
19728  lapack_int* info
19729 #ifdef LAPACK_FORTRAN_STRLEN_END
19730  , size_t, size_t, size_t
19731 #endif
19732 );
19733 #ifdef LAPACK_FORTRAN_STRLEN_END
19734  #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1)
19735 #else
19736  #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__)
19737 #endif
19738 
19739 #define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS)
19740 void LAPACK_stbtrs_base(
19741  char const* uplo, char const* trans, char const* diag,
19742  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19743  float const* AB, lapack_int const* ldab,
19744  float* B, lapack_int const* ldb,
19745  lapack_int* info
19746 #ifdef LAPACK_FORTRAN_STRLEN_END
19747  , size_t, size_t, size_t
19748 #endif
19749 );
19750 #ifdef LAPACK_FORTRAN_STRLEN_END
19751  #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1)
19752 #else
19753  #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__)
19754 #endif
19755 
19756 #define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS)
19757 void LAPACK_ztbtrs_base(
19758  char const* uplo, char const* trans, char const* diag,
19759  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19760  lapack_complex_double const* AB, lapack_int const* ldab,
19761  lapack_complex_double* B, lapack_int const* ldb,
19762  lapack_int* info
19763 #ifdef LAPACK_FORTRAN_STRLEN_END
19764  , size_t, size_t, size_t
19765 #endif
19766 );
19767 #ifdef LAPACK_FORTRAN_STRLEN_END
19768  #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1)
19769 #else
19770  #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__)
19771 #endif
19772 
19773 #define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM)
19774 void LAPACK_ctfsm_base(
19775  char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
19776  lapack_int const* m, lapack_int const* n,
19777  lapack_complex_float const* alpha,
19778  lapack_complex_float const* A,
19779  lapack_complex_float* B, lapack_int const* ldb
19780 #ifdef LAPACK_FORTRAN_STRLEN_END
19781  , size_t, size_t, size_t, size_t, size_t
19782 #endif
19783 );
19784 #ifdef LAPACK_FORTRAN_STRLEN_END
19785  #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19786 #else
19787  #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__)
19788 #endif
19789 
19790 #define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM)
19791 void LAPACK_dtfsm_base(
19792  char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
19793  lapack_int const* m, lapack_int const* n,
19794  double const* alpha,
19795  double const* A,
19796  double* B, lapack_int const* ldb
19797 #ifdef LAPACK_FORTRAN_STRLEN_END
19798  , size_t, size_t, size_t, size_t, size_t
19799 #endif
19800 );
19801 #ifdef LAPACK_FORTRAN_STRLEN_END
19802  #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19803 #else
19804  #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__)
19805 #endif
19806 
19807 #define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM)
19808 void LAPACK_stfsm_base(
19809  char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
19810  lapack_int const* m, lapack_int const* n,
19811  float const* alpha,
19812  float const* A,
19813  float* B, lapack_int const* ldb
19814 #ifdef LAPACK_FORTRAN_STRLEN_END
19815  , size_t, size_t, size_t, size_t, size_t
19816 #endif
19817 );
19818 #ifdef LAPACK_FORTRAN_STRLEN_END
19819  #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19820 #else
19821  #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__)
19822 #endif
19823 
19824 #define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM)
19825 void LAPACK_ztfsm_base(
19826  char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
19827  lapack_int const* m, lapack_int const* n,
19828  lapack_complex_double const* alpha,
19829  lapack_complex_double const* A,
19830  lapack_complex_double* B, lapack_int const* ldb
19831 #ifdef LAPACK_FORTRAN_STRLEN_END
19832  , size_t, size_t, size_t, size_t, size_t
19833 #endif
19834 );
19835 #ifdef LAPACK_FORTRAN_STRLEN_END
19836  #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19837 #else
19838  #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__)
19839 #endif
19840 
19841 #define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI)
19842 void LAPACK_ctftri_base(
19843  char const* transr, char const* uplo, char const* diag,
19844  lapack_int const* n,
19845  lapack_complex_float* A,
19846  lapack_int* info
19847 #ifdef LAPACK_FORTRAN_STRLEN_END
19848  , size_t, size_t, size_t
19849 #endif
19850 );
19851 #ifdef LAPACK_FORTRAN_STRLEN_END
19852  #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1)
19853 #else
19854  #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__)
19855 #endif
19856 
19857 #define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI)
19858 void LAPACK_dtftri_base(
19859  char const* transr, char const* uplo, char const* diag,
19860  lapack_int const* n,
19861  double* A,
19862  lapack_int* info
19863 #ifdef LAPACK_FORTRAN_STRLEN_END
19864  , size_t, size_t, size_t
19865 #endif
19866 );
19867 #ifdef LAPACK_FORTRAN_STRLEN_END
19868  #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1)
19869 #else
19870  #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__)
19871 #endif
19872 
19873 #define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI)
19874 void LAPACK_stftri_base(
19875  char const* transr, char const* uplo, char const* diag,
19876  lapack_int const* n,
19877  float* A,
19878  lapack_int* info
19879 #ifdef LAPACK_FORTRAN_STRLEN_END
19880  , size_t, size_t, size_t
19881 #endif
19882 );
19883 #ifdef LAPACK_FORTRAN_STRLEN_END
19884  #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1)
19885 #else
19886  #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__)
19887 #endif
19888 
19889 #define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI)
19890 void LAPACK_ztftri_base(
19891  char const* transr, char const* uplo, char const* diag,
19892  lapack_int const* n,
19893  lapack_complex_double* A,
19894  lapack_int* info
19895 #ifdef LAPACK_FORTRAN_STRLEN_END
19896  , size_t, size_t, size_t
19897 #endif
19898 );
19899 #ifdef LAPACK_FORTRAN_STRLEN_END
19900  #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1)
19901 #else
19902  #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__)
19903 #endif
19904 
19905 #define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP)
19906 void LAPACK_ctfttp_base(
19907  char const* transr, char const* uplo,
19908  lapack_int const* n,
19909  lapack_complex_float const* ARF,
19910  lapack_complex_float* AP,
19911  lapack_int* info
19912 #ifdef LAPACK_FORTRAN_STRLEN_END
19913  , size_t, size_t
19914 #endif
19915 );
19916 #ifdef LAPACK_FORTRAN_STRLEN_END
19917  #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1)
19918 #else
19919  #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__)
19920 #endif
19921 
19922 #define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP)
19923 void LAPACK_dtfttp_base(
19924  char const* transr, char const* uplo,
19925  lapack_int const* n,
19926  double const* ARF,
19927  double* AP,
19928  lapack_int* info
19929 #ifdef LAPACK_FORTRAN_STRLEN_END
19930  , size_t, size_t
19931 #endif
19932 );
19933 #ifdef LAPACK_FORTRAN_STRLEN_END
19934  #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1)
19935 #else
19936  #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__)
19937 #endif
19938 
19939 #define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP)
19940 void LAPACK_stfttp_base(
19941  char const* transr, char const* uplo,
19942  lapack_int const* n,
19943  float const* ARF,
19944  float* AP,
19945  lapack_int* info
19946 #ifdef LAPACK_FORTRAN_STRLEN_END
19947  , size_t, size_t
19948 #endif
19949 );
19950 #ifdef LAPACK_FORTRAN_STRLEN_END
19951  #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1)
19952 #else
19953  #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__)
19954 #endif
19955 
19956 #define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP)
19957 void LAPACK_ztfttp_base(
19958  char const* transr, char const* uplo,
19959  lapack_int const* n,
19960  lapack_complex_double const* ARF,
19961  lapack_complex_double* AP,
19962  lapack_int* info
19963 #ifdef LAPACK_FORTRAN_STRLEN_END
19964  , size_t, size_t
19965 #endif
19966 );
19967 #ifdef LAPACK_FORTRAN_STRLEN_END
19968  #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1)
19969 #else
19970  #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__)
19971 #endif
19972 
19973 #define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR)
19974 void LAPACK_ctfttr_base(
19975  char const* transr, char const* uplo,
19976  lapack_int const* n,
19977  lapack_complex_float const* ARF,
19978  lapack_complex_float* A, lapack_int const* lda,
19979  lapack_int* info
19980 #ifdef LAPACK_FORTRAN_STRLEN_END
19981  , size_t, size_t
19982 #endif
19983 );
19984 #ifdef LAPACK_FORTRAN_STRLEN_END
19985  #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1)
19986 #else
19987  #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__)
19988 #endif
19989 
19990 #define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR)
19991 void LAPACK_dtfttr_base(
19992  char const* transr, char const* uplo,
19993  lapack_int const* n,
19994  double const* ARF,
19995  double* A, lapack_int const* lda,
19996  lapack_int* info
19997 #ifdef LAPACK_FORTRAN_STRLEN_END
19998  , size_t, size_t
19999 #endif
20000 );
20001 #ifdef LAPACK_FORTRAN_STRLEN_END
20002  #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1)
20003 #else
20004  #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__)
20005 #endif
20006 
20007 #define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR)
20008 void LAPACK_stfttr_base(
20009  char const* transr, char const* uplo,
20010  lapack_int const* n,
20011  float const* ARF,
20012  float* A, lapack_int const* lda,
20013  lapack_int* info
20014 #ifdef LAPACK_FORTRAN_STRLEN_END
20015  , size_t, size_t
20016 #endif
20017 );
20018 #ifdef LAPACK_FORTRAN_STRLEN_END
20019  #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1)
20020 #else
20021  #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__)
20022 #endif
20023 
20024 #define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR)
20025 void LAPACK_ztfttr_base(
20026  char const* transr, char const* uplo,
20027  lapack_int const* n,
20028  lapack_complex_double const* ARF,
20029  lapack_complex_double* A, lapack_int const* lda,
20030  lapack_int* info
20031 #ifdef LAPACK_FORTRAN_STRLEN_END
20032  , size_t, size_t
20033 #endif
20034 );
20035 #ifdef LAPACK_FORTRAN_STRLEN_END
20036  #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1)
20037 #else
20038  #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__)
20039 #endif
20040 
20041 #define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC)
20042 void LAPACK_ctgevc_base(
20043  char const* side, char const* howmny,
20044  lapack_logical const* select,
20045  lapack_int const* n,
20046  lapack_complex_float const* S, lapack_int const* lds,
20047  lapack_complex_float const* P, lapack_int const* ldp,
20048  lapack_complex_float* VL, lapack_int const* ldvl,
20049  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20050  lapack_complex_float* work,
20051  float* rwork,
20052  lapack_int* info
20053 #ifdef LAPACK_FORTRAN_STRLEN_END
20054  , size_t, size_t
20055 #endif
20056 );
20057 #ifdef LAPACK_FORTRAN_STRLEN_END
20058  #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1)
20059 #else
20060  #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__)
20061 #endif
20062 
20063 #define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC)
20064 void LAPACK_dtgevc_base(
20065  char const* side, char const* howmny,
20066  lapack_logical const* select,
20067  lapack_int const* n,
20068  double const* S, lapack_int const* lds,
20069  double const* P, lapack_int const* ldp,
20070  double* VL, lapack_int const* ldvl,
20071  double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20072  double* work,
20073  lapack_int* info
20074 #ifdef LAPACK_FORTRAN_STRLEN_END
20075  , size_t, size_t
20076 #endif
20077 );
20078 #ifdef LAPACK_FORTRAN_STRLEN_END
20079  #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1)
20080 #else
20081  #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__)
20082 #endif
20083 
20084 #define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC)
20085 void LAPACK_stgevc_base(
20086  char const* side, char const* howmny,
20087  lapack_logical const* select,
20088  lapack_int const* n,
20089  float const* S, lapack_int const* lds,
20090  float const* P, lapack_int const* ldp,
20091  float* VL, lapack_int const* ldvl,
20092  float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20093  float* work,
20094  lapack_int* info
20095 #ifdef LAPACK_FORTRAN_STRLEN_END
20096  , size_t, size_t
20097 #endif
20098 );
20099 #ifdef LAPACK_FORTRAN_STRLEN_END
20100  #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1)
20101 #else
20102  #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__)
20103 #endif
20104 
20105 #define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC)
20106 void LAPACK_ztgevc_base(
20107  char const* side, char const* howmny,
20108  lapack_logical const* select,
20109  lapack_int const* n,
20110  lapack_complex_double const* S, lapack_int const* lds,
20111  lapack_complex_double const* P, lapack_int const* ldp,
20112  lapack_complex_double* VL, lapack_int const* ldvl,
20113  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20114  lapack_complex_double* work,
20115  double* rwork,
20116  lapack_int* info
20117 #ifdef LAPACK_FORTRAN_STRLEN_END
20118  , size_t, size_t
20119 #endif
20120 );
20121 #ifdef LAPACK_FORTRAN_STRLEN_END
20122  #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1)
20123 #else
20124  #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__)
20125 #endif
20126 
20127 #define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC)
20128 void LAPACK_ctgexc(
20129  lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20130  lapack_complex_float* A, lapack_int const* lda,
20131  lapack_complex_float* B, lapack_int const* ldb,
20132  lapack_complex_float* Q, lapack_int const* ldq,
20133  lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst,
20134  lapack_int* info );
20135 
20136 #define LAPACK_dtgexc LAPACK_GLOBAL(dtgexc,DTGEXC)
20137 void LAPACK_dtgexc(
20138  lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20139  double* A, lapack_int const* lda,
20140  double* B, lapack_int const* ldb,
20141  double* Q, lapack_int const* ldq,
20142  double* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst,
20143  double* work, lapack_int const* lwork,
20144  lapack_int* info );
20145 
20146 #define LAPACK_stgexc LAPACK_GLOBAL(stgexc,STGEXC)
20147 void LAPACK_stgexc(
20148  lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20149  float* A, lapack_int const* lda,
20150  float* B, lapack_int const* ldb,
20151  float* Q, lapack_int const* ldq,
20152  float* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst,
20153  float* work, lapack_int const* lwork,
20154  lapack_int* info );
20155 
20156 #define LAPACK_ztgexc LAPACK_GLOBAL(ztgexc,ZTGEXC)
20157 void LAPACK_ztgexc(
20158  lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20159  lapack_complex_double* A, lapack_int const* lda,
20160  lapack_complex_double* B, lapack_int const* ldb,
20161  lapack_complex_double* Q, lapack_int const* ldq,
20162  lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst,
20163  lapack_int* info );
20164 
20165 #define LAPACK_ctgsen LAPACK_GLOBAL(ctgsen,CTGSEN)
20166 void LAPACK_ctgsen(
20167  lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20168  lapack_complex_float* A, lapack_int const* lda,
20169  lapack_complex_float* B, lapack_int const* ldb,
20170  lapack_complex_float* alpha,
20171  lapack_complex_float* beta,
20172  lapack_complex_float* Q, lapack_int const* ldq,
20173  lapack_complex_float* Z, lapack_int const* ldz, lapack_int* m,
20174  float* pl,
20175  float* pr,
20176  float* DIF,
20177  lapack_complex_float* work, lapack_int const* lwork,
20178  lapack_int* iwork, lapack_int const* liwork,
20179  lapack_int* info );
20180 
20181 #define LAPACK_dtgsen LAPACK_GLOBAL(dtgsen,DTGSEN)
20182 void LAPACK_dtgsen(
20183  lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20184  double* A, lapack_int const* lda,
20185  double* B, lapack_int const* ldb,
20186  double* alphar,
20187  double* alphai,
20188  double* beta,
20189  double* Q, lapack_int const* ldq,
20190  double* Z, lapack_int const* ldz, lapack_int* m,
20191  double* pl,
20192  double* pr,
20193  double* DIF,
20194  double* work, lapack_int const* lwork,
20195  lapack_int* iwork, lapack_int const* liwork,
20196  lapack_int* info );
20197 
20198 #define LAPACK_stgsen LAPACK_GLOBAL(stgsen,STGSEN)
20199 void LAPACK_stgsen(
20200  lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20201  float* A, lapack_int const* lda,
20202  float* B, lapack_int const* ldb,
20203  float* alphar,
20204  float* alphai,
20205  float* beta,
20206  float* Q, lapack_int const* ldq,
20207  float* Z, lapack_int const* ldz, lapack_int* m,
20208  float* pl,
20209  float* pr,
20210  float* DIF,
20211  float* work, lapack_int const* lwork,
20212  lapack_int* iwork, lapack_int const* liwork,
20213  lapack_int* info );
20214 
20215 #define LAPACK_ztgsen LAPACK_GLOBAL(ztgsen,ZTGSEN)
20216 void LAPACK_ztgsen(
20217  lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20218  lapack_complex_double* A, lapack_int const* lda,
20219  lapack_complex_double* B, lapack_int const* ldb,
20220  lapack_complex_double* alpha,
20221  lapack_complex_double* beta,
20222  lapack_complex_double* Q, lapack_int const* ldq,
20223  lapack_complex_double* Z, lapack_int const* ldz, lapack_int* m,
20224  double* pl,
20225  double* pr,
20226  double* DIF,
20227  lapack_complex_double* work, lapack_int const* lwork,
20228  lapack_int* iwork, lapack_int const* liwork,
20229  lapack_int* info );
20230 
20231 #define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA)
20232 void LAPACK_ctgsja_base(
20233  char const* jobu, char const* jobv, char const* jobq,
20234  lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20235  lapack_complex_float* A, lapack_int const* lda,
20236  lapack_complex_float* B, lapack_int const* ldb,
20237  float const* tola,
20238  float const* tolb,
20239  float* alpha,
20240  float* beta,
20241  lapack_complex_float* U, lapack_int const* ldu,
20242  lapack_complex_float* V, lapack_int const* ldv,
20243  lapack_complex_float* Q, lapack_int const* ldq,
20244  lapack_complex_float* work, lapack_int* ncycle,
20245  lapack_int* info
20246 #ifdef LAPACK_FORTRAN_STRLEN_END
20247  , size_t, size_t, size_t
20248 #endif
20249 );
20250 #ifdef LAPACK_FORTRAN_STRLEN_END
20251  #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1)
20252 #else
20253  #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__)
20254 #endif
20255 
20256 #define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA)
20257 void LAPACK_dtgsja_base(
20258  char const* jobu, char const* jobv, char const* jobq,
20259  lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20260  double* A, lapack_int const* lda,
20261  double* B, lapack_int const* ldb,
20262  double const* tola,
20263  double const* tolb,
20264  double* alpha,
20265  double* beta,
20266  double* U, lapack_int const* ldu,
20267  double* V, lapack_int const* ldv,
20268  double* Q, lapack_int const* ldq,
20269  double* work, lapack_int* ncycle,
20270  lapack_int* info
20271 #ifdef LAPACK_FORTRAN_STRLEN_END
20272  , size_t, size_t, size_t
20273 #endif
20274 );
20275 #ifdef LAPACK_FORTRAN_STRLEN_END
20276  #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1)
20277 #else
20278  #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__)
20279 #endif
20280 
20281 #define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA)
20282 void LAPACK_stgsja_base(
20283  char const* jobu, char const* jobv, char const* jobq,
20284  lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20285  float* A, lapack_int const* lda,
20286  float* B, lapack_int const* ldb,
20287  float const* tola,
20288  float const* tolb,
20289  float* alpha,
20290  float* beta,
20291  float* U, lapack_int const* ldu,
20292  float* V, lapack_int const* ldv,
20293  float* Q, lapack_int const* ldq,
20294  float* work, lapack_int* ncycle,
20295  lapack_int* info
20296 #ifdef LAPACK_FORTRAN_STRLEN_END
20297  , size_t, size_t, size_t
20298 #endif
20299 );
20300 #ifdef LAPACK_FORTRAN_STRLEN_END
20301  #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1)
20302 #else
20303  #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__)
20304 #endif
20305 
20306 #define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA)
20307 void LAPACK_ztgsja_base(
20308  char const* jobu, char const* jobv, char const* jobq,
20309  lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20310  lapack_complex_double* A, lapack_int const* lda,
20311  lapack_complex_double* B, lapack_int const* ldb,
20312  double const* tola,
20313  double const* tolb,
20314  double* alpha,
20315  double* beta,
20316  lapack_complex_double* U, lapack_int const* ldu,
20317  lapack_complex_double* V, lapack_int const* ldv,
20318  lapack_complex_double* Q, lapack_int const* ldq,
20319  lapack_complex_double* work, lapack_int* ncycle,
20320  lapack_int* info
20321 #ifdef LAPACK_FORTRAN_STRLEN_END
20322  , size_t, size_t, size_t
20323 #endif
20324 );
20325 #ifdef LAPACK_FORTRAN_STRLEN_END
20326  #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1)
20327 #else
20328  #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__)
20329 #endif
20330 
20331 #define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA)
20332 void LAPACK_ctgsna_base(
20333  char const* job, char const* howmny,
20334  lapack_logical const* select,
20335  lapack_int const* n,
20336  lapack_complex_float const* A, lapack_int const* lda,
20337  lapack_complex_float const* B, lapack_int const* ldb,
20338  lapack_complex_float const* VL, lapack_int const* ldvl,
20339  lapack_complex_float const* VR, lapack_int const* ldvr,
20340  float* S,
20341  float* DIF, lapack_int const* mm, lapack_int* m,
20342  lapack_complex_float* work, lapack_int const* lwork,
20343  lapack_int* iwork,
20344  lapack_int* info
20345 #ifdef LAPACK_FORTRAN_STRLEN_END
20346  , size_t, size_t
20347 #endif
20348 );
20349 #ifdef LAPACK_FORTRAN_STRLEN_END
20350  #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1)
20351 #else
20352  #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__)
20353 #endif
20354 
20355 #define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA)
20356 void LAPACK_dtgsna_base(
20357  char const* job, char const* howmny,
20358  lapack_logical const* select,
20359  lapack_int const* n,
20360  double const* A, lapack_int const* lda,
20361  double const* B, lapack_int const* ldb,
20362  double const* VL, lapack_int const* ldvl,
20363  double const* VR, lapack_int const* ldvr,
20364  double* S,
20365  double* DIF, lapack_int const* mm, lapack_int* m,
20366  double* work, lapack_int const* lwork,
20367  lapack_int* iwork,
20368  lapack_int* info
20369 #ifdef LAPACK_FORTRAN_STRLEN_END
20370  , size_t, size_t
20371 #endif
20372 );
20373 #ifdef LAPACK_FORTRAN_STRLEN_END
20374  #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1)
20375 #else
20376  #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__)
20377 #endif
20378 
20379 #define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA)
20380 void LAPACK_stgsna_base(
20381  char const* job, char const* howmny,
20382  lapack_logical const* select,
20383  lapack_int const* n,
20384  float const* A, lapack_int const* lda,
20385  float const* B, lapack_int const* ldb,
20386  float const* VL, lapack_int const* ldvl,
20387  float const* VR, lapack_int const* ldvr,
20388  float* S,
20389  float* DIF, lapack_int const* mm, lapack_int* m,
20390  float* work, lapack_int const* lwork,
20391  lapack_int* iwork,
20392  lapack_int* info
20393 #ifdef LAPACK_FORTRAN_STRLEN_END
20394  , size_t, size_t
20395 #endif
20396 );
20397 #ifdef LAPACK_FORTRAN_STRLEN_END
20398  #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1)
20399 #else
20400  #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__)
20401 #endif
20402 
20403 #define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA)
20404 void LAPACK_ztgsna_base(
20405  char const* job, char const* howmny,
20406  lapack_logical const* select,
20407  lapack_int const* n,
20408  lapack_complex_double const* A, lapack_int const* lda,
20409  lapack_complex_double const* B, lapack_int const* ldb,
20410  lapack_complex_double const* VL, lapack_int const* ldvl,
20411  lapack_complex_double const* VR, lapack_int const* ldvr,
20412  double* S,
20413  double* DIF, lapack_int const* mm, lapack_int* m,
20414  lapack_complex_double* work, lapack_int const* lwork,
20415  lapack_int* iwork,
20416  lapack_int* info
20417 #ifdef LAPACK_FORTRAN_STRLEN_END
20418  , size_t, size_t
20419 #endif
20420 );
20421 #ifdef LAPACK_FORTRAN_STRLEN_END
20422  #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1)
20423 #else
20424  #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__)
20425 #endif
20426 
20427 #define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL)
20428 void LAPACK_ctgsyl_base(
20429  char const* trans,
20430  lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20431  lapack_complex_float const* A, lapack_int const* lda,
20432  lapack_complex_float const* B, lapack_int const* ldb,
20433  lapack_complex_float* C, lapack_int const* ldc,
20434  lapack_complex_float const* D, lapack_int const* ldd,
20435  lapack_complex_float const* E, lapack_int const* lde,
20436  lapack_complex_float* F, lapack_int const* ldf,
20437  float* dif,
20438  float* scale,
20439  lapack_complex_float* work, lapack_int const* lwork,
20440  lapack_int* iwork,
20441  lapack_int* info
20442 #ifdef LAPACK_FORTRAN_STRLEN_END
20443  , size_t
20444 #endif
20445 );
20446 #ifdef LAPACK_FORTRAN_STRLEN_END
20447  #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1)
20448 #else
20449  #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__)
20450 #endif
20451 
20452 #define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL)
20453 void LAPACK_dtgsyl_base(
20454  char const* trans,
20455  lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20456  double const* A, lapack_int const* lda,
20457  double const* B, lapack_int const* ldb,
20458  double* C, lapack_int const* ldc,
20459  double const* D, lapack_int const* ldd,
20460  double const* E, lapack_int const* lde,
20461  double* F, lapack_int const* ldf,
20462  double* dif,
20463  double* scale,
20464  double* work, lapack_int const* lwork,
20465  lapack_int* iwork,
20466  lapack_int* info
20467 #ifdef LAPACK_FORTRAN_STRLEN_END
20468  , size_t
20469 #endif
20470 );
20471 #ifdef LAPACK_FORTRAN_STRLEN_END
20472  #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1)
20473 #else
20474  #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__)
20475 #endif
20476 
20477 #define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL)
20478 void LAPACK_stgsyl_base(
20479  char const* trans,
20480  lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20481  float const* A, lapack_int const* lda,
20482  float const* B, lapack_int const* ldb,
20483  float* C, lapack_int const* ldc,
20484  float const* D, lapack_int const* ldd,
20485  float const* E, lapack_int const* lde,
20486  float* F, lapack_int const* ldf,
20487  float* dif,
20488  float* scale,
20489  float* work, lapack_int const* lwork,
20490  lapack_int* iwork,
20491  lapack_int* info
20492 #ifdef LAPACK_FORTRAN_STRLEN_END
20493  , size_t
20494 #endif
20495 );
20496 #ifdef LAPACK_FORTRAN_STRLEN_END
20497  #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1)
20498 #else
20499  #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__)
20500 #endif
20501 
20502 #define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL)
20503 void LAPACK_ztgsyl_base(
20504  char const* trans,
20505  lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20506  lapack_complex_double const* A, lapack_int const* lda,
20507  lapack_complex_double const* B, lapack_int const* ldb,
20508  lapack_complex_double* C, lapack_int const* ldc,
20509  lapack_complex_double const* D, lapack_int const* ldd,
20510  lapack_complex_double const* E, lapack_int const* lde,
20511  lapack_complex_double* F, lapack_int const* ldf,
20512  double* dif,
20513  double* scale,
20514  lapack_complex_double* work, lapack_int const* lwork,
20515  lapack_int* iwork,
20516  lapack_int* info
20517 #ifdef LAPACK_FORTRAN_STRLEN_END
20518  , size_t
20519 #endif
20520 );
20521 #ifdef LAPACK_FORTRAN_STRLEN_END
20522  #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1)
20523 #else
20524  #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__)
20525 #endif
20526 
20527 #define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON)
20528 void LAPACK_ctpcon_base(
20529  char const* norm, char const* uplo, char const* diag,
20530  lapack_int const* n,
20531  lapack_complex_float const* AP,
20532  float* rcond,
20533  lapack_complex_float* work,
20534  float* rwork,
20535  lapack_int* info
20536 #ifdef LAPACK_FORTRAN_STRLEN_END
20537  , size_t, size_t, size_t
20538 #endif
20539 );
20540 #ifdef LAPACK_FORTRAN_STRLEN_END
20541  #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1)
20542 #else
20543  #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__)
20544 #endif
20545 
20546 #define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON)
20547 void LAPACK_dtpcon_base(
20548  char const* norm, char const* uplo, char const* diag,
20549  lapack_int const* n,
20550  double const* AP,
20551  double* rcond,
20552  double* work,
20553  lapack_int* iwork,
20554  lapack_int* info
20555 #ifdef LAPACK_FORTRAN_STRLEN_END
20556  , size_t, size_t, size_t
20557 #endif
20558 );
20559 #ifdef LAPACK_FORTRAN_STRLEN_END
20560  #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1)
20561 #else
20562  #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__)
20563 #endif
20564 
20565 #define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON)
20566 void LAPACK_stpcon_base(
20567  char const* norm, char const* uplo, char const* diag,
20568  lapack_int const* n,
20569  float const* AP,
20570  float* rcond,
20571  float* work,
20572  lapack_int* iwork,
20573  lapack_int* info
20574 #ifdef LAPACK_FORTRAN_STRLEN_END
20575  , size_t, size_t, size_t
20576 #endif
20577 );
20578 #ifdef LAPACK_FORTRAN_STRLEN_END
20579  #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1)
20580 #else
20581  #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__)
20582 #endif
20583 
20584 #define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON)
20585 void LAPACK_ztpcon_base(
20586  char const* norm, char const* uplo, char const* diag,
20587  lapack_int const* n,
20588  lapack_complex_double const* AP,
20589  double* rcond,
20590  lapack_complex_double* work,
20591  double* rwork,
20592  lapack_int* info
20593 #ifdef LAPACK_FORTRAN_STRLEN_END
20594  , size_t, size_t, size_t
20595 #endif
20596 );
20597 #ifdef LAPACK_FORTRAN_STRLEN_END
20598  #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1)
20599 #else
20600  #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__)
20601 #endif
20602 
20603 #define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT)
20604 void LAPACK_ctplqt(
20605  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20606  lapack_complex_float* A, lapack_int const* lda,
20607  lapack_complex_float* B, lapack_int const* ldb,
20608  lapack_complex_float* T, lapack_int const* ldt,
20609  lapack_complex_float* work,
20610  lapack_int* info );
20611 
20612 #define LAPACK_dtplqt LAPACK_GLOBAL(dtplqt,DTPLQT)
20613 void LAPACK_dtplqt(
20614  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20615  double* A, lapack_int const* lda,
20616  double* B, lapack_int const* ldb,
20617  double* T, lapack_int const* ldt,
20618  double* work,
20619  lapack_int* info );
20620 
20621 #define LAPACK_stplqt LAPACK_GLOBAL(stplqt,STPLQT)
20622 void LAPACK_stplqt(
20623  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20624  float* A, lapack_int const* lda,
20625  float* B, lapack_int const* ldb,
20626  float* T, lapack_int const* ldt,
20627  float* work,
20628  lapack_int* info );
20629 
20630 #define LAPACK_ztplqt LAPACK_GLOBAL(ztplqt,ZTPLQT)
20631 void LAPACK_ztplqt(
20632  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20633  lapack_complex_double* A, lapack_int const* lda,
20634  lapack_complex_double* B, lapack_int const* ldb,
20635  lapack_complex_double* T, lapack_int const* ldt,
20636  lapack_complex_double* work,
20637  lapack_int* info );
20638 
20639 #define LAPACK_ctplqt2 LAPACK_GLOBAL(ctplqt2,CTPLQT2)
20640 void LAPACK_ctplqt2(
20641  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20642  lapack_complex_float* A, lapack_int const* lda,
20643  lapack_complex_float* B, lapack_int const* ldb,
20644  lapack_complex_float* T, lapack_int const* ldt,
20645  lapack_int* info );
20646 
20647 #define LAPACK_dtplqt2 LAPACK_GLOBAL(dtplqt2,DTPLQT2)
20648 void LAPACK_dtplqt2(
20649  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20650  double* A, lapack_int const* lda,
20651  double* B, lapack_int const* ldb,
20652  double* T, lapack_int const* ldt,
20653  lapack_int* info );
20654 
20655 #define LAPACK_stplqt2 LAPACK_GLOBAL(stplqt2,STPLQT2)
20656 void LAPACK_stplqt2(
20657  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20658  float* A, lapack_int const* lda,
20659  float* B, lapack_int const* ldb,
20660  float* T, lapack_int const* ldt,
20661  lapack_int* info );
20662 
20663 #define LAPACK_ztplqt2 LAPACK_GLOBAL(ztplqt2,ZTPLQT2)
20664 void LAPACK_ztplqt2(
20665  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20666  lapack_complex_double* A, lapack_int const* lda,
20667  lapack_complex_double* B, lapack_int const* ldb,
20668  lapack_complex_double* T, lapack_int const* ldt,
20669  lapack_int* info );
20670 
20671 #define LAPACK_ctpmlqt_base LAPACK_GLOBAL(ctpmlqt,CTPMLQT)
20672 void LAPACK_ctpmlqt_base(
20673  char const* side, char const* trans,
20674  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20675  lapack_complex_float const* V, lapack_int const* ldv,
20676  lapack_complex_float const* T, lapack_int const* ldt,
20677  lapack_complex_float* A, lapack_int const* lda,
20678  lapack_complex_float* B, lapack_int const* ldb,
20679  lapack_complex_float* work,
20680  lapack_int* info
20681 #ifdef LAPACK_FORTRAN_STRLEN_END
20682  , size_t, size_t
20683 #endif
20684 );
20685 #ifdef LAPACK_FORTRAN_STRLEN_END
20686  #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1)
20687 #else
20688  #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__)
20689 #endif
20690 
20691 #define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT)
20692 void LAPACK_dtpmlqt_base(
20693  char const* side, char const* trans,
20694  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20695  double const* V, lapack_int const* ldv,
20696  double const* T, lapack_int const* ldt,
20697  double* A, lapack_int const* lda,
20698  double* B, lapack_int const* ldb,
20699  double* work,
20700  lapack_int* info
20701 #ifdef LAPACK_FORTRAN_STRLEN_END
20702  , size_t, size_t
20703 #endif
20704 );
20705 #ifdef LAPACK_FORTRAN_STRLEN_END
20706  #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1)
20707 #else
20708  #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__)
20709 #endif
20710 
20711 #define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT)
20712 void LAPACK_stpmlqt_base(
20713  char const* side, char const* trans,
20714  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20715  float const* V, lapack_int const* ldv,
20716  float const* T, lapack_int const* ldt,
20717  float* A, lapack_int const* lda,
20718  float* B, lapack_int const* ldb,
20719  float* work,
20720  lapack_int* info
20721 #ifdef LAPACK_FORTRAN_STRLEN_END
20722  , size_t, size_t
20723 #endif
20724 );
20725 #ifdef LAPACK_FORTRAN_STRLEN_END
20726  #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1)
20727 #else
20728  #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__)
20729 #endif
20730 
20731 #define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT)
20732 void LAPACK_ztpmlqt_base(
20733  char const* side, char const* trans,
20734  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20735  lapack_complex_double const* V, lapack_int const* ldv,
20736  lapack_complex_double const* T, lapack_int const* ldt,
20737  lapack_complex_double* A, lapack_int const* lda,
20738  lapack_complex_double* B, lapack_int const* ldb,
20739  lapack_complex_double* work,
20740  lapack_int* info
20741 #ifdef LAPACK_FORTRAN_STRLEN_END
20742  , size_t, size_t
20743 #endif
20744 );
20745 #ifdef LAPACK_FORTRAN_STRLEN_END
20746  #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1)
20747 #else
20748  #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__)
20749 #endif
20750 
20751 #define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT)
20752 void LAPACK_ctpmqrt_base(
20753  char const* side, char const* trans,
20754  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
20755  lapack_complex_float const* V, lapack_int const* ldv,
20756  lapack_complex_float const* T, lapack_int const* ldt,
20757  lapack_complex_float* A, lapack_int const* lda,
20758  lapack_complex_float* B, lapack_int const* ldb,
20759  lapack_complex_float* work,
20760  lapack_int* info
20761 #ifdef LAPACK_FORTRAN_STRLEN_END
20762  , size_t, size_t
20763 #endif
20764 );
20765 #ifdef LAPACK_FORTRAN_STRLEN_END
20766  #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1)
20767 #else
20768  #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__)
20769 #endif
20770 
20771 #define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT)
20772 void LAPACK_dtpmqrt_base(
20773  char const* side, char const* trans,
20774  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
20775  double const* V, lapack_int const* ldv,
20776  double const* T, lapack_int const* ldt,
20777  double* A, lapack_int const* lda,
20778  double* B, lapack_int const* ldb,
20779  double* work,
20780  lapack_int* info
20781 #ifdef LAPACK_FORTRAN_STRLEN_END
20782  , size_t, size_t
20783 #endif
20784 );
20785 #ifdef LAPACK_FORTRAN_STRLEN_END
20786  #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1)
20787 #else
20788  #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__)
20789 #endif
20790 
20791 #define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT)
20792 void LAPACK_stpmqrt_base(
20793  char const* side, char const* trans,
20794  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
20795  float const* V, lapack_int const* ldv,
20796  float const* T, lapack_int const* ldt,
20797  float* A, lapack_int const* lda,
20798  float* B, lapack_int const* ldb,
20799  float* work,
20800  lapack_int* info
20801 #ifdef LAPACK_FORTRAN_STRLEN_END
20802  , size_t, size_t
20803 #endif
20804 );
20805 #ifdef LAPACK_FORTRAN_STRLEN_END
20806  #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1)
20807 #else
20808  #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__)
20809 #endif
20810 
20811 #define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT)
20812 void LAPACK_ztpmqrt_base(
20813  char const* side, char const* trans,
20814  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
20815  lapack_complex_double const* V, lapack_int const* ldv,
20816  lapack_complex_double const* T, lapack_int const* ldt,
20817  lapack_complex_double* A, lapack_int const* lda,
20818  lapack_complex_double* B, lapack_int const* ldb,
20819  lapack_complex_double* work,
20820  lapack_int* info
20821 #ifdef LAPACK_FORTRAN_STRLEN_END
20822  , size_t, size_t
20823 #endif
20824 );
20825 #ifdef LAPACK_FORTRAN_STRLEN_END
20826  #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1)
20827 #else
20828  #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__)
20829 #endif
20830 
20831 #define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT)
20832 void LAPACK_ctpqrt(
20833  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20834  lapack_complex_float* A, lapack_int const* lda,
20835  lapack_complex_float* B, lapack_int const* ldb,
20836  lapack_complex_float* T, lapack_int const* ldt,
20837  lapack_complex_float* work,
20838  lapack_int* info );
20839 
20840 #define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT)
20841 void LAPACK_dtpqrt(
20842  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20843  double* A, lapack_int const* lda,
20844  double* B, lapack_int const* ldb,
20845  double* T, lapack_int const* ldt,
20846  double* work,
20847  lapack_int* info );
20848 
20849 #define LAPACK_stpqrt LAPACK_GLOBAL(stpqrt,STPQRT)
20850 void LAPACK_stpqrt(
20851  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20852  float* A, lapack_int const* lda,
20853  float* B, lapack_int const* ldb,
20854  float* T, lapack_int const* ldt,
20855  float* work,
20856  lapack_int* info );
20857 
20858 #define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT)
20859 void LAPACK_ztpqrt(
20860  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20861  lapack_complex_double* A, lapack_int const* lda,
20862  lapack_complex_double* B, lapack_int const* ldb,
20863  lapack_complex_double* T, lapack_int const* ldt,
20864  lapack_complex_double* work,
20865  lapack_int* info );
20866 
20867 #define LAPACK_ctpqrt2 LAPACK_GLOBAL(ctpqrt2,CTPQRT2)
20868 void LAPACK_ctpqrt2(
20869  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20870  lapack_complex_float* A, lapack_int const* lda,
20871  lapack_complex_float* B, lapack_int const* ldb,
20872  lapack_complex_float* T, lapack_int const* ldt,
20873  lapack_int* info );
20874 
20875 #define LAPACK_dtpqrt2 LAPACK_GLOBAL(dtpqrt2,DTPQRT2)
20876 void LAPACK_dtpqrt2(
20877  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20878  double* A, lapack_int const* lda,
20879  double* B, lapack_int const* ldb,
20880  double* T, lapack_int const* ldt,
20881  lapack_int* info );
20882 
20883 #define LAPACK_stpqrt2 LAPACK_GLOBAL(stpqrt2,STPQRT2)
20884 void LAPACK_stpqrt2(
20885  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20886  float* A, lapack_int const* lda,
20887  float* B, lapack_int const* ldb,
20888  float* T, lapack_int const* ldt,
20889  lapack_int* info );
20890 
20891 #define LAPACK_ztpqrt2 LAPACK_GLOBAL(ztpqrt2,ZTPQRT2)
20892 void LAPACK_ztpqrt2(
20893  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20894  lapack_complex_double* A, lapack_int const* lda,
20895  lapack_complex_double* B, lapack_int const* ldb,
20896  lapack_complex_double* T, lapack_int const* ldt,
20897  lapack_int* info );
20898 
20899 #define LAPACK_ctprfb_base LAPACK_GLOBAL(ctprfb,CTPRFB)
20900 void LAPACK_ctprfb_base(
20901  char const* side, char const* trans, char const* direct, char const* storev,
20902  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20903  lapack_complex_float const* V, lapack_int const* ldv,
20904  lapack_complex_float const* T, lapack_int const* ldt,
20905  lapack_complex_float* A, lapack_int const* lda,
20906  lapack_complex_float* B, lapack_int const* ldb,
20907  lapack_complex_float* work, lapack_int const* ldwork
20908 #ifdef LAPACK_FORTRAN_STRLEN_END
20909  , size_t, size_t, size_t, size_t
20910 #endif
20911 );
20912 #ifdef LAPACK_FORTRAN_STRLEN_END
20913  #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20914 #else
20915  #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__)
20916 #endif
20917 
20918 #define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB)
20919 void LAPACK_dtprfb_base(
20920  char const* side, char const* trans, char const* direct, char const* storev,
20921  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20922  double const* V, lapack_int const* ldv,
20923  double const* T, lapack_int const* ldt,
20924  double* A, lapack_int const* lda,
20925  double* B, lapack_int const* ldb,
20926  double* work, lapack_int const* ldwork
20927 #ifdef LAPACK_FORTRAN_STRLEN_END
20928  , size_t, size_t, size_t, size_t
20929 #endif
20930 );
20931 #ifdef LAPACK_FORTRAN_STRLEN_END
20932  #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20933 #else
20934  #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__)
20935 #endif
20936 
20937 #define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB)
20938 void LAPACK_stprfb_base(
20939  char const* side, char const* trans, char const* direct, char const* storev,
20940  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20941  float const* V, lapack_int const* ldv,
20942  float const* T, lapack_int const* ldt,
20943  float* A, lapack_int const* lda,
20944  float* B, lapack_int const* ldb,
20945  float* work, lapack_int const* ldwork
20946 #ifdef LAPACK_FORTRAN_STRLEN_END
20947  , size_t, size_t, size_t, size_t
20948 #endif
20949 );
20950 #ifdef LAPACK_FORTRAN_STRLEN_END
20951  #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20952 #else
20953  #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__)
20954 #endif
20955 
20956 #define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB)
20957 void LAPACK_ztprfb_base(
20958  char const* side, char const* trans, char const* direct, char const* storev,
20959  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20960  lapack_complex_double const* V, lapack_int const* ldv,
20961  lapack_complex_double const* T, lapack_int const* ldt,
20962  lapack_complex_double* A, lapack_int const* lda,
20963  lapack_complex_double* B, lapack_int const* ldb,
20964  lapack_complex_double* work, lapack_int const* ldwork
20965 #ifdef LAPACK_FORTRAN_STRLEN_END
20966  , size_t, size_t, size_t, size_t
20967 #endif
20968 );
20969 #ifdef LAPACK_FORTRAN_STRLEN_END
20970  #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20971 #else
20972  #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__)
20973 #endif
20974 
20975 #define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS)
20976 void LAPACK_ctprfs_base(
20977  char const* uplo, char const* trans, char const* diag,
20978  lapack_int const* n, lapack_int const* nrhs,
20979  lapack_complex_float const* AP,
20980  lapack_complex_float const* B, lapack_int const* ldb,
20981  lapack_complex_float const* X, lapack_int const* ldx,
20982  float* ferr,
20983  float* berr,
20984  lapack_complex_float* work,
20985  float* rwork,
20986  lapack_int* info
20987 #ifdef LAPACK_FORTRAN_STRLEN_END
20988  , size_t, size_t, size_t
20989 #endif
20990 );
20991 #ifdef LAPACK_FORTRAN_STRLEN_END
20992  #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1)
20993 #else
20994  #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__)
20995 #endif
20996 
20997 #define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS)
20998 void LAPACK_dtprfs_base(
20999  char const* uplo, char const* trans, char const* diag,
21000  lapack_int const* n, lapack_int const* nrhs,
21001  double const* AP,
21002  double const* B, lapack_int const* ldb,
21003  double const* X, lapack_int const* ldx,
21004  double* ferr,
21005  double* berr,
21006  double* work,
21007  lapack_int* iwork,
21008  lapack_int* info
21009 #ifdef LAPACK_FORTRAN_STRLEN_END
21010  , size_t, size_t, size_t
21011 #endif
21012 );
21013 #ifdef LAPACK_FORTRAN_STRLEN_END
21014  #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1)
21015 #else
21016  #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__)
21017 #endif
21018 
21019 #define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS)
21020 void LAPACK_stprfs_base(
21021  char const* uplo, char const* trans, char const* diag,
21022  lapack_int const* n, lapack_int const* nrhs,
21023  float const* AP,
21024  float const* B, lapack_int const* ldb,
21025  float const* X, lapack_int const* ldx,
21026  float* ferr,
21027  float* berr,
21028  float* work,
21029  lapack_int* iwork,
21030  lapack_int* info
21031 #ifdef LAPACK_FORTRAN_STRLEN_END
21032  , size_t, size_t, size_t
21033 #endif
21034 );
21035 #ifdef LAPACK_FORTRAN_STRLEN_END
21036  #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1)
21037 #else
21038  #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__)
21039 #endif
21040 
21041 #define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS)
21042 void LAPACK_ztprfs_base(
21043  char const* uplo, char const* trans, char const* diag,
21044  lapack_int const* n, lapack_int const* nrhs,
21045  lapack_complex_double const* AP,
21046  lapack_complex_double const* B, lapack_int const* ldb,
21047  lapack_complex_double const* X, lapack_int const* ldx,
21048  double* ferr,
21049  double* berr,
21050  lapack_complex_double* work,
21051  double* rwork,
21052  lapack_int* info
21053 #ifdef LAPACK_FORTRAN_STRLEN_END
21054  , size_t, size_t, size_t
21055 #endif
21056 );
21057 #ifdef LAPACK_FORTRAN_STRLEN_END
21058  #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1)
21059 #else
21060  #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__)
21061 #endif
21062 
21063 #define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI)
21064 void LAPACK_ctptri_base(
21065  char const* uplo, char const* diag,
21066  lapack_int const* n,
21067  lapack_complex_float* AP,
21068  lapack_int* info
21069 #ifdef LAPACK_FORTRAN_STRLEN_END
21070  , size_t, size_t
21071 #endif
21072 );
21073 #ifdef LAPACK_FORTRAN_STRLEN_END
21074  #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1)
21075 #else
21076  #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__)
21077 #endif
21078 
21079 #define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI)
21080 void LAPACK_dtptri_base(
21081  char const* uplo, char const* diag,
21082  lapack_int const* n,
21083  double* AP,
21084  lapack_int* info
21085 #ifdef LAPACK_FORTRAN_STRLEN_END
21086  , size_t, size_t
21087 #endif
21088 );
21089 #ifdef LAPACK_FORTRAN_STRLEN_END
21090  #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1)
21091 #else
21092  #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__)
21093 #endif
21094 
21095 #define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI)
21096 void LAPACK_stptri_base(
21097  char const* uplo, char const* diag,
21098  lapack_int const* n,
21099  float* AP,
21100  lapack_int* info
21101 #ifdef LAPACK_FORTRAN_STRLEN_END
21102  , size_t, size_t
21103 #endif
21104 );
21105 #ifdef LAPACK_FORTRAN_STRLEN_END
21106  #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1)
21107 #else
21108  #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__)
21109 #endif
21110 
21111 #define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI)
21112 void LAPACK_ztptri_base(
21113  char const* uplo, char const* diag,
21114  lapack_int const* n,
21115  lapack_complex_double* AP,
21116  lapack_int* info
21117 #ifdef LAPACK_FORTRAN_STRLEN_END
21118  , size_t, size_t
21119 #endif
21120 );
21121 #ifdef LAPACK_FORTRAN_STRLEN_END
21122  #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1)
21123 #else
21124  #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__)
21125 #endif
21126 
21127 #define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS)
21128 void LAPACK_ctptrs_base(
21129  char const* uplo, char const* trans, char const* diag,
21130  lapack_int const* n, lapack_int const* nrhs,
21131  lapack_complex_float const* AP,
21132  lapack_complex_float* B, lapack_int const* ldb,
21133  lapack_int* info
21134 #ifdef LAPACK_FORTRAN_STRLEN_END
21135  , size_t, size_t, size_t
21136 #endif
21137 );
21138 #ifdef LAPACK_FORTRAN_STRLEN_END
21139  #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1)
21140 #else
21141  #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__)
21142 #endif
21143 
21144 #define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS)
21145 void LAPACK_dtptrs_base(
21146  char const* uplo, char const* trans, char const* diag,
21147  lapack_int const* n, lapack_int const* nrhs,
21148  double const* AP,
21149  double* B, lapack_int const* ldb,
21150  lapack_int* info
21151 #ifdef LAPACK_FORTRAN_STRLEN_END
21152  , size_t, size_t, size_t
21153 #endif
21154 );
21155 #ifdef LAPACK_FORTRAN_STRLEN_END
21156  #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1)
21157 #else
21158  #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__)
21159 #endif
21160 
21161 #define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS)
21162 void LAPACK_stptrs_base(
21163  char const* uplo, char const* trans, char const* diag,
21164  lapack_int const* n, lapack_int const* nrhs,
21165  float const* AP,
21166  float* B, lapack_int const* ldb,
21167  lapack_int* info
21168 #ifdef LAPACK_FORTRAN_STRLEN_END
21169  , size_t, size_t, size_t
21170 #endif
21171 );
21172 #ifdef LAPACK_FORTRAN_STRLEN_END
21173  #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1)
21174 #else
21175  #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__)
21176 #endif
21177 
21178 #define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS)
21179 void LAPACK_ztptrs_base(
21180  char const* uplo, char const* trans, char const* diag,
21181  lapack_int const* n, lapack_int const* nrhs,
21182  lapack_complex_double const* AP,
21183  lapack_complex_double* B, lapack_int const* ldb,
21184  lapack_int* info
21185 #ifdef LAPACK_FORTRAN_STRLEN_END
21186  , size_t, size_t, size_t
21187 #endif
21188 );
21189 #ifdef LAPACK_FORTRAN_STRLEN_END
21190  #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1)
21191 #else
21192  #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__)
21193 #endif
21194 
21195 #define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF)
21196 void LAPACK_ctpttf_base(
21197  char const* transr, char const* uplo,
21198  lapack_int const* n,
21199  lapack_complex_float const* AP,
21200  lapack_complex_float* ARF,
21201  lapack_int* info
21202 #ifdef LAPACK_FORTRAN_STRLEN_END
21203  , size_t, size_t
21204 #endif
21205 );
21206 #ifdef LAPACK_FORTRAN_STRLEN_END
21207  #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1)
21208 #else
21209  #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__)
21210 #endif
21211 
21212 #define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF)
21213 void LAPACK_dtpttf_base(
21214  char const* transr, char const* uplo,
21215  lapack_int const* n,
21216  double const* AP,
21217  double* ARF,
21218  lapack_int* info
21219 #ifdef LAPACK_FORTRAN_STRLEN_END
21220  , size_t, size_t
21221 #endif
21222 );
21223 #ifdef LAPACK_FORTRAN_STRLEN_END
21224  #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1)
21225 #else
21226  #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__)
21227 #endif
21228 
21229 #define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF)
21230 void LAPACK_stpttf_base(
21231  char const* transr, char const* uplo,
21232  lapack_int const* n,
21233  float const* AP,
21234  float* ARF,
21235  lapack_int* info
21236 #ifdef LAPACK_FORTRAN_STRLEN_END
21237  , size_t, size_t
21238 #endif
21239 );
21240 #ifdef LAPACK_FORTRAN_STRLEN_END
21241  #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1)
21242 #else
21243  #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__)
21244 #endif
21245 
21246 #define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF)
21247 void LAPACK_ztpttf_base(
21248  char const* transr, char const* uplo,
21249  lapack_int const* n,
21250  lapack_complex_double const* AP,
21251  lapack_complex_double* ARF,
21252  lapack_int* info
21253 #ifdef LAPACK_FORTRAN_STRLEN_END
21254  , size_t, size_t
21255 #endif
21256 );
21257 #ifdef LAPACK_FORTRAN_STRLEN_END
21258  #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1)
21259 #else
21260  #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__)
21261 #endif
21262 
21263 #define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR)
21264 void LAPACK_ctpttr_base(
21265  char const* uplo,
21266  lapack_int const* n,
21267  lapack_complex_float const* AP,
21268  lapack_complex_float* A, lapack_int const* lda,
21269  lapack_int* info
21270 #ifdef LAPACK_FORTRAN_STRLEN_END
21271  , size_t
21272 #endif
21273 );
21274 #ifdef LAPACK_FORTRAN_STRLEN_END
21275  #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1)
21276 #else
21277  #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__)
21278 #endif
21279 
21280 #define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR)
21281 void LAPACK_dtpttr_base(
21282  char const* uplo,
21283  lapack_int const* n,
21284  double const* AP,
21285  double* A, lapack_int const* lda,
21286  lapack_int* info
21287 #ifdef LAPACK_FORTRAN_STRLEN_END
21288  , size_t
21289 #endif
21290 );
21291 #ifdef LAPACK_FORTRAN_STRLEN_END
21292  #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1)
21293 #else
21294  #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__)
21295 #endif
21296 
21297 #define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR)
21298 void LAPACK_stpttr_base(
21299  char const* uplo,
21300  lapack_int const* n,
21301  float const* AP,
21302  float* A, lapack_int const* lda,
21303  lapack_int* info
21304 #ifdef LAPACK_FORTRAN_STRLEN_END
21305  , size_t
21306 #endif
21307 );
21308 #ifdef LAPACK_FORTRAN_STRLEN_END
21309  #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1)
21310 #else
21311  #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__)
21312 #endif
21313 
21314 #define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR)
21315 void LAPACK_ztpttr_base(
21316  char const* uplo,
21317  lapack_int const* n,
21318  lapack_complex_double const* AP,
21319  lapack_complex_double* A, lapack_int const* lda,
21320  lapack_int* info
21321 #ifdef LAPACK_FORTRAN_STRLEN_END
21322  , size_t
21323 #endif
21324 );
21325 #ifdef LAPACK_FORTRAN_STRLEN_END
21326  #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1)
21327 #else
21328  #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__)
21329 #endif
21330 
21331 #define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON)
21332 void LAPACK_ctrcon_base(
21333  char const* norm, char const* uplo, char const* diag,
21334  lapack_int const* n,
21335  lapack_complex_float const* A, lapack_int const* lda,
21336  float* rcond,
21337  lapack_complex_float* work,
21338  float* rwork,
21339  lapack_int* info
21340 #ifdef LAPACK_FORTRAN_STRLEN_END
21341  , size_t, size_t, size_t
21342 #endif
21343 );
21344 #ifdef LAPACK_FORTRAN_STRLEN_END
21345  #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1)
21346 #else
21347  #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__)
21348 #endif
21349 
21350 #define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON)
21351 void LAPACK_dtrcon_base(
21352  char const* norm, char const* uplo, char const* diag,
21353  lapack_int const* n,
21354  double const* A, lapack_int const* lda,
21355  double* rcond,
21356  double* work,
21357  lapack_int* iwork,
21358  lapack_int* info
21359 #ifdef LAPACK_FORTRAN_STRLEN_END
21360  , size_t, size_t, size_t
21361 #endif
21362 );
21363 #ifdef LAPACK_FORTRAN_STRLEN_END
21364  #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1)
21365 #else
21366  #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__)
21367 #endif
21368 
21369 #define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON)
21370 void LAPACK_strcon_base(
21371  char const* norm, char const* uplo, char const* diag,
21372  lapack_int const* n,
21373  float const* A, lapack_int const* lda,
21374  float* rcond,
21375  float* work,
21376  lapack_int* iwork,
21377  lapack_int* info
21378 #ifdef LAPACK_FORTRAN_STRLEN_END
21379  , size_t, size_t, size_t
21380 #endif
21381 );
21382 #ifdef LAPACK_FORTRAN_STRLEN_END
21383  #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1)
21384 #else
21385  #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__)
21386 #endif
21387 
21388 #define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON)
21389 void LAPACK_ztrcon_base(
21390  char const* norm, char const* uplo, char const* diag,
21391  lapack_int const* n,
21392  lapack_complex_double const* A, lapack_int const* lda,
21393  double* rcond,
21394  lapack_complex_double* work,
21395  double* rwork,
21396  lapack_int* info
21397 #ifdef LAPACK_FORTRAN_STRLEN_END
21398  , size_t, size_t, size_t
21399 #endif
21400 );
21401 #ifdef LAPACK_FORTRAN_STRLEN_END
21402  #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1)
21403 #else
21404  #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__)
21405 #endif
21406 
21407 #define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC)
21408 void LAPACK_ctrevc_base(
21409  char const* side, char const* howmny,
21410  lapack_logical const* select,
21411  lapack_int const* n,
21412  lapack_complex_float* T, lapack_int const* ldt,
21413  lapack_complex_float* VL, lapack_int const* ldvl,
21414  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21415  lapack_complex_float* work,
21416  float* rwork,
21417  lapack_int* info
21418 #ifdef LAPACK_FORTRAN_STRLEN_END
21419  , size_t, size_t
21420 #endif
21421 );
21422 #ifdef LAPACK_FORTRAN_STRLEN_END
21423  #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1)
21424 #else
21425  #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__)
21426 #endif
21427 
21428 #define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC)
21429 void LAPACK_dtrevc_base(
21430  char const* side, char const* howmny,
21431  lapack_logical* select,
21432  lapack_int const* n,
21433  double const* T, lapack_int const* ldt,
21434  double* VL, lapack_int const* ldvl,
21435  double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21436  double* work,
21437  lapack_int* info
21438 #ifdef LAPACK_FORTRAN_STRLEN_END
21439  , size_t, size_t
21440 #endif
21441 );
21442 #ifdef LAPACK_FORTRAN_STRLEN_END
21443  #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1)
21444 #else
21445  #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__)
21446 #endif
21447 
21448 #define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC)
21449 void LAPACK_strevc_base(
21450  char const* side, char const* howmny,
21451  lapack_logical* select,
21452  lapack_int const* n,
21453  float const* T, lapack_int const* ldt,
21454  float* VL, lapack_int const* ldvl,
21455  float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21456  float* work,
21457  lapack_int* info
21458 #ifdef LAPACK_FORTRAN_STRLEN_END
21459  , size_t, size_t
21460 #endif
21461 );
21462 #ifdef LAPACK_FORTRAN_STRLEN_END
21463  #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1)
21464 #else
21465  #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__)
21466 #endif
21467 
21468 #define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC)
21469 void LAPACK_ztrevc_base(
21470  char const* side, char const* howmny,
21471  lapack_logical const* select,
21472  lapack_int const* n,
21473  lapack_complex_double* T, lapack_int const* ldt,
21474  lapack_complex_double* VL, lapack_int const* ldvl,
21475  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21476  lapack_complex_double* work,
21477  double* rwork,
21478  lapack_int* info
21479 #ifdef LAPACK_FORTRAN_STRLEN_END
21480  , size_t, size_t
21481 #endif
21482 );
21483 #ifdef LAPACK_FORTRAN_STRLEN_END
21484  #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, 1, 1)
21485 #else
21486  #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__)
21487 #endif
21488 
21489 #define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3)
21490 void LAPACK_ctrevc3_base(
21491  char const* side, char const* howmny,
21492  lapack_logical const* select,
21493  lapack_int const* n,
21494  lapack_complex_float* T, lapack_int const* ldt,
21495  lapack_complex_float* VL, lapack_int const* ldvl,
21496  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21497  lapack_complex_float* work, lapack_int const* lwork,
21498  float* rwork, lapack_int const* lrwork,
21499  lapack_int* info
21500 #ifdef LAPACK_FORTRAN_STRLEN_END
21501  , size_t, size_t
21502 #endif
21503 );
21504 #ifdef LAPACK_FORTRAN_STRLEN_END
21505  #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1)
21506 #else
21507  #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__)
21508 #endif
21509 
21510 #define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3)
21511 void LAPACK_dtrevc3_base(
21512  char const* side, char const* howmny,
21513  lapack_logical* select,
21514  lapack_int const* n,
21515  double const* T, lapack_int const* ldt,
21516  double* VL, lapack_int const* ldvl,
21517  double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21518  double* work, lapack_int const* lwork,
21519  lapack_int* info
21520 #ifdef LAPACK_FORTRAN_STRLEN_END
21521  , size_t, size_t
21522 #endif
21523 );
21524 #ifdef LAPACK_FORTRAN_STRLEN_END
21525  #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1)
21526 #else
21527  #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__)
21528 #endif
21529 
21530 #define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3)
21531 void LAPACK_strevc3_base(
21532  char const* side, char const* howmny,
21533  lapack_logical* select,
21534  lapack_int const* n,
21535  float const* T, lapack_int const* ldt,
21536  float* VL, lapack_int const* ldvl,
21537  float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21538  float* work, lapack_int const* lwork,
21539  lapack_int* info
21540 #ifdef LAPACK_FORTRAN_STRLEN_END
21541  , size_t, size_t
21542 #endif
21543 );
21544 #ifdef LAPACK_FORTRAN_STRLEN_END
21545  #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1)
21546 #else
21547  #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__)
21548 #endif
21549 
21550 #define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3)
21551 void LAPACK_ztrevc3_base(
21552  char const* side, char const* howmny,
21553  lapack_logical const* select,
21554  lapack_int const* n,
21555  lapack_complex_double* T, lapack_int const* ldt,
21556  lapack_complex_double* VL, lapack_int const* ldvl,
21557  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21558  lapack_complex_double* work, lapack_int const* lwork,
21559  double* rwork, lapack_int const* lrwork,
21560  lapack_int* info
21561 #ifdef LAPACK_FORTRAN_STRLEN_END
21562  , size_t, size_t
21563 #endif
21564 );
21565 #ifdef LAPACK_FORTRAN_STRLEN_END
21566  #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1)
21567 #else
21568  #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__)
21569 #endif
21570 
21571 #define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC)
21572 void LAPACK_ctrexc_base(
21573  char const* compq,
21574  lapack_int const* n,
21575  lapack_complex_float* T, lapack_int const* ldt,
21576  lapack_complex_float* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst,
21577  lapack_int* info
21578 #ifdef LAPACK_FORTRAN_STRLEN_END
21579  , size_t
21580 #endif
21581 );
21582 #ifdef LAPACK_FORTRAN_STRLEN_END
21583  #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1)
21584 #else
21585  #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__)
21586 #endif
21587 
21588 #define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC)
21589 void LAPACK_dtrexc_base(
21590  char const* compq,
21591  lapack_int const* n,
21592  double* T, lapack_int const* ldt,
21593  double* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst,
21594  double* work,
21595  lapack_int* info
21596 #ifdef LAPACK_FORTRAN_STRLEN_END
21597  , size_t
21598 #endif
21599 );
21600 #ifdef LAPACK_FORTRAN_STRLEN_END
21601  #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1)
21602 #else
21603  #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__)
21604 #endif
21605 
21606 #define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC)
21607 void LAPACK_strexc_base(
21608  char const* compq,
21609  lapack_int const* n,
21610  float* T, lapack_int const* ldt,
21611  float* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst,
21612  float* work,
21613  lapack_int* info
21614 #ifdef LAPACK_FORTRAN_STRLEN_END
21615  , size_t
21616 #endif
21617 );
21618 #ifdef LAPACK_FORTRAN_STRLEN_END
21619  #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1)
21620 #else
21621  #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__)
21622 #endif
21623 
21624 #define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC)
21625 void LAPACK_ztrexc_base(
21626  char const* compq,
21627  lapack_int const* n,
21628  lapack_complex_double* T, lapack_int const* ldt,
21629  lapack_complex_double* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst,
21630  lapack_int* info
21631 #ifdef LAPACK_FORTRAN_STRLEN_END
21632  , size_t
21633 #endif
21634 );
21635 #ifdef LAPACK_FORTRAN_STRLEN_END
21636  #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1)
21637 #else
21638  #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__)
21639 #endif
21640 
21641 #define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS)
21642 void LAPACK_ctrrfs_base(
21643  char const* uplo, char const* trans, char const* diag,
21644  lapack_int const* n, lapack_int const* nrhs,
21645  lapack_complex_float const* A, lapack_int const* lda,
21646  lapack_complex_float const* B, lapack_int const* ldb,
21647  lapack_complex_float const* X, lapack_int const* ldx,
21648  float* ferr,
21649  float* berr,
21650  lapack_complex_float* work,
21651  float* rwork,
21652  lapack_int* info
21653 #ifdef LAPACK_FORTRAN_STRLEN_END
21654  , size_t, size_t, size_t
21655 #endif
21656 );
21657 #ifdef LAPACK_FORTRAN_STRLEN_END
21658  #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1)
21659 #else
21660  #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__)
21661 #endif
21662 
21663 #define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS)
21664 void LAPACK_dtrrfs_base(
21665  char const* uplo, char const* trans, char const* diag,
21666  lapack_int const* n, lapack_int const* nrhs,
21667  double const* A, lapack_int const* lda,
21668  double const* B, lapack_int const* ldb,
21669  double const* X, lapack_int const* ldx,
21670  double* ferr,
21671  double* berr,
21672  double* work,
21673  lapack_int* iwork,
21674  lapack_int* info
21675 #ifdef LAPACK_FORTRAN_STRLEN_END
21676  , size_t, size_t, size_t
21677 #endif
21678 );
21679 #ifdef LAPACK_FORTRAN_STRLEN_END
21680  #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1)
21681 #else
21682  #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__)
21683 #endif
21684 
21685 #define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS)
21686 void LAPACK_strrfs_base(
21687  char const* uplo, char const* trans, char const* diag,
21688  lapack_int const* n, lapack_int const* nrhs,
21689  float const* A, lapack_int const* lda,
21690  float const* B, lapack_int const* ldb,
21691  float const* X, lapack_int const* ldx,
21692  float* ferr,
21693  float* berr,
21694  float* work,
21695  lapack_int* iwork,
21696  lapack_int* info
21697 #ifdef LAPACK_FORTRAN_STRLEN_END
21698  , size_t, size_t, size_t
21699 #endif
21700 );
21701 #ifdef LAPACK_FORTRAN_STRLEN_END
21702  #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1)
21703 #else
21704  #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__)
21705 #endif
21706 
21707 #define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS)
21708 void LAPACK_ztrrfs_base(
21709  char const* uplo, char const* trans, char const* diag,
21710  lapack_int const* n, lapack_int const* nrhs,
21711  lapack_complex_double const* A, lapack_int const* lda,
21712  lapack_complex_double const* B, lapack_int const* ldb,
21713  lapack_complex_double const* X, lapack_int const* ldx,
21714  double* ferr,
21715  double* berr,
21716  lapack_complex_double* work,
21717  double* rwork,
21718  lapack_int* info
21719 #ifdef LAPACK_FORTRAN_STRLEN_END
21720  , size_t, size_t, size_t
21721 #endif
21722 );
21723 #ifdef LAPACK_FORTRAN_STRLEN_END
21724  #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1)
21725 #else
21726  #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__)
21727 #endif
21728 
21729 #define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN)
21730 void LAPACK_ctrsen_base(
21731  char const* job, char const* compq,
21732  lapack_logical const* select,
21733  lapack_int const* n,
21734  lapack_complex_float* T, lapack_int const* ldt,
21735  lapack_complex_float* Q, lapack_int const* ldq,
21736  lapack_complex_float* W, lapack_int* m,
21737  float* s,
21738  float* sep,
21739  lapack_complex_float* work, lapack_int const* lwork,
21740  lapack_int* info
21741 #ifdef LAPACK_FORTRAN_STRLEN_END
21742  , size_t, size_t
21743 #endif
21744 );
21745 #ifdef LAPACK_FORTRAN_STRLEN_END
21746  #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1)
21747 #else
21748  #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__)
21749 #endif
21750 
21751 #define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN)
21752 void LAPACK_dtrsen_base(
21753  char const* job, char const* compq,
21754  lapack_logical const* select,
21755  lapack_int const* n,
21756  double* T, lapack_int const* ldt,
21757  double* Q, lapack_int const* ldq,
21758  double* WR,
21759  double* WI, lapack_int* m,
21760  double* s,
21761  double* sep,
21762  double* work, lapack_int const* lwork,
21763  lapack_int* iwork, lapack_int const* liwork,
21764  lapack_int* info
21765 #ifdef LAPACK_FORTRAN_STRLEN_END
21766  , size_t, size_t
21767 #endif
21768 );
21769 #ifdef LAPACK_FORTRAN_STRLEN_END
21770  #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1)
21771 #else
21772  #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__)
21773 #endif
21774 
21775 #define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN)
21776 void LAPACK_strsen_base(
21777  char const* job, char const* compq,
21778  lapack_logical const* select,
21779  lapack_int const* n,
21780  float* T, lapack_int const* ldt,
21781  float* Q, lapack_int const* ldq,
21782  float* WR,
21783  float* WI, lapack_int* m,
21784  float* s,
21785  float* sep,
21786  float* work, lapack_int const* lwork,
21787  lapack_int* iwork, lapack_int const* liwork,
21788  lapack_int* info
21789 #ifdef LAPACK_FORTRAN_STRLEN_END
21790  , size_t, size_t
21791 #endif
21792 );
21793 #ifdef LAPACK_FORTRAN_STRLEN_END
21794  #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1)
21795 #else
21796  #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__)
21797 #endif
21798 
21799 #define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN)
21800 void LAPACK_ztrsen_base(
21801  char const* job, char const* compq,
21802  lapack_logical const* select,
21803  lapack_int const* n,
21804  lapack_complex_double* T, lapack_int const* ldt,
21805  lapack_complex_double* Q, lapack_int const* ldq,
21806  lapack_complex_double* W, lapack_int* m,
21807  double* s,
21808  double* sep,
21809  lapack_complex_double* work, lapack_int const* lwork,
21810  lapack_int* info
21811 #ifdef LAPACK_FORTRAN_STRLEN_END
21812  , size_t, size_t
21813 #endif
21814 );
21815 #ifdef LAPACK_FORTRAN_STRLEN_END
21816  #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1)
21817 #else
21818  #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__)
21819 #endif
21820 
21821 #define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA)
21822 void LAPACK_ctrsna_base(
21823  char const* job, char const* howmny,
21824  lapack_logical const* select,
21825  lapack_int const* n,
21826  lapack_complex_float const* T, lapack_int const* ldt,
21827  lapack_complex_float const* VL, lapack_int const* ldvl,
21828  lapack_complex_float const* VR, lapack_int const* ldvr,
21829  float* S,
21830  float* SEP, lapack_int const* mm, lapack_int* m,
21831  lapack_complex_float* work, lapack_int const* ldwork,
21832  float* rwork,
21833  lapack_int* info
21834 #ifdef LAPACK_FORTRAN_STRLEN_END
21835  , size_t, size_t
21836 #endif
21837 );
21838 #ifdef LAPACK_FORTRAN_STRLEN_END
21839  #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1)
21840 #else
21841  #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__)
21842 #endif
21843 
21844 #define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA)
21845 void LAPACK_dtrsna_base(
21846  char const* job, char const* howmny,
21847  lapack_logical const* select,
21848  lapack_int const* n,
21849  double const* T, lapack_int const* ldt,
21850  double const* VL, lapack_int const* ldvl,
21851  double const* VR, lapack_int const* ldvr,
21852  double* S,
21853  double* SEP, lapack_int const* mm, lapack_int* m,
21854  double* work, lapack_int const* ldwork,
21855  lapack_int* iwork,
21856  lapack_int* info
21857 #ifdef LAPACK_FORTRAN_STRLEN_END
21858  , size_t, size_t
21859 #endif
21860 );
21861 #ifdef LAPACK_FORTRAN_STRLEN_END
21862  #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1)
21863 #else
21864  #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__)
21865 #endif
21866 
21867 #define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA)
21868 void LAPACK_strsna_base(
21869  char const* job, char const* howmny,
21870  lapack_logical const* select,
21871  lapack_int const* n,
21872  float const* T, lapack_int const* ldt,
21873  float const* VL, lapack_int const* ldvl,
21874  float const* VR, lapack_int const* ldvr,
21875  float* S,
21876  float* SEP, lapack_int const* mm, lapack_int* m,
21877  float* work, lapack_int const* ldwork,
21878  lapack_int* iwork,
21879  lapack_int* info
21880 #ifdef LAPACK_FORTRAN_STRLEN_END
21881  , size_t, size_t
21882 #endif
21883 );
21884 #ifdef LAPACK_FORTRAN_STRLEN_END
21885  #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1)
21886 #else
21887  #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__)
21888 #endif
21889 
21890 #define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA)
21891 void LAPACK_ztrsna_base(
21892  char const* job, char const* howmny,
21893  lapack_logical const* select,
21894  lapack_int const* n,
21895  lapack_complex_double const* T, lapack_int const* ldt,
21896  lapack_complex_double const* VL, lapack_int const* ldvl,
21897  lapack_complex_double const* VR, lapack_int const* ldvr,
21898  double* S,
21899  double* SEP, lapack_int const* mm, lapack_int* m,
21900  lapack_complex_double* work, lapack_int const* ldwork,
21901  double* rwork,
21902  lapack_int* info
21903 #ifdef LAPACK_FORTRAN_STRLEN_END
21904  , size_t, size_t
21905 #endif
21906 );
21907 #ifdef LAPACK_FORTRAN_STRLEN_END
21908  #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1)
21909 #else
21910  #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__)
21911 #endif
21912 
21913 #define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL)
21914 void LAPACK_ctrsyl_base(
21915  char const* trana, char const* tranb,
21916  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
21917  lapack_complex_float const* A, lapack_int const* lda,
21918  lapack_complex_float const* B, lapack_int const* ldb,
21919  lapack_complex_float* C, lapack_int const* ldc,
21920  float* scale,
21921  lapack_int* info
21922 #ifdef LAPACK_FORTRAN_STRLEN_END
21923  , size_t, size_t
21924 #endif
21925 );
21926 #ifdef LAPACK_FORTRAN_STRLEN_END
21927  #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1)
21928 #else
21929  #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__)
21930 #endif
21931 
21932 #define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL)
21933 void LAPACK_dtrsyl_base(
21934  char const* trana, char const* tranb,
21935  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
21936  double const* A, lapack_int const* lda,
21937  double const* B, lapack_int const* ldb,
21938  double* C, lapack_int const* ldc,
21939  double* scale,
21940  lapack_int* info
21941 #ifdef LAPACK_FORTRAN_STRLEN_END
21942  , size_t, size_t
21943 #endif
21944 );
21945 #ifdef LAPACK_FORTRAN_STRLEN_END
21946  #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1)
21947 #else
21948  #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__)
21949 #endif
21950 
21951 #define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL)
21952 void LAPACK_strsyl_base(
21953  char const* trana, char const* tranb,
21954  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
21955  float const* A, lapack_int const* lda,
21956  float const* B, lapack_int const* ldb,
21957  float* C, lapack_int const* ldc,
21958  float* scale,
21959  lapack_int* info
21960 #ifdef LAPACK_FORTRAN_STRLEN_END
21961  , size_t, size_t
21962 #endif
21963 );
21964 #ifdef LAPACK_FORTRAN_STRLEN_END
21965  #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1)
21966 #else
21967  #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__)
21968 #endif
21969 
21970 #define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL)
21971 void LAPACK_ztrsyl_base(
21972  char const* trana, char const* tranb,
21973  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
21974  lapack_complex_double const* A, lapack_int const* lda,
21975  lapack_complex_double const* B, lapack_int const* ldb,
21976  lapack_complex_double* C, lapack_int const* ldc,
21977  double* scale,
21978  lapack_int* info
21979 #ifdef LAPACK_FORTRAN_STRLEN_END
21980  , size_t, size_t
21981 #endif
21982 );
21983 #ifdef LAPACK_FORTRAN_STRLEN_END
21984  #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1)
21985 #else
21986  #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__)
21987 #endif
21988 
21989 #define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI)
21990 void LAPACK_ctrtri_base(
21991  char const* uplo, char const* diag,
21992  lapack_int const* n,
21993  lapack_complex_float* A, lapack_int const* lda,
21994  lapack_int* info
21995 #ifdef LAPACK_FORTRAN_STRLEN_END
21996  , size_t, size_t
21997 #endif
21998 );
21999 #ifdef LAPACK_FORTRAN_STRLEN_END
22000  #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1)
22001 #else
22002  #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__)
22003 #endif
22004 
22005 #define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI)
22006 void LAPACK_dtrtri_base(
22007  char const* uplo, char const* diag,
22008  lapack_int const* n,
22009  double* A, lapack_int const* lda,
22010  lapack_int* info
22011 #ifdef LAPACK_FORTRAN_STRLEN_END
22012  , size_t, size_t
22013 #endif
22014 );
22015 #ifdef LAPACK_FORTRAN_STRLEN_END
22016  #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1)
22017 #else
22018  #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__)
22019 #endif
22020 
22021 #define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI)
22022 void LAPACK_strtri_base(
22023  char const* uplo, char const* diag,
22024  lapack_int const* n,
22025  float* A, lapack_int const* lda,
22026  lapack_int* info
22027 #ifdef LAPACK_FORTRAN_STRLEN_END
22028  , size_t, size_t
22029 #endif
22030 );
22031 #ifdef LAPACK_FORTRAN_STRLEN_END
22032  #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1)
22033 #else
22034  #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__)
22035 #endif
22036 
22037 #define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI)
22038 void LAPACK_ztrtri_base(
22039  char const* uplo, char const* diag,
22040  lapack_int const* n,
22041  lapack_complex_double* A, lapack_int const* lda,
22042  lapack_int* info
22043 #ifdef LAPACK_FORTRAN_STRLEN_END
22044  , size_t, size_t
22045 #endif
22046 );
22047 #ifdef LAPACK_FORTRAN_STRLEN_END
22048  #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1)
22049 #else
22050  #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__)
22051 #endif
22052 
22053 #define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS)
22054 void LAPACK_ctrtrs_base(
22055  char const* uplo, char const* trans, char const* diag,
22056  lapack_int const* n, lapack_int const* nrhs,
22057  lapack_complex_float const* A, lapack_int const* lda,
22058  lapack_complex_float* B, lapack_int const* ldb,
22059  lapack_int* info
22060 #ifdef LAPACK_FORTRAN_STRLEN_END
22061  , size_t, size_t, size_t
22062 #endif
22063 );
22064 #ifdef LAPACK_FORTRAN_STRLEN_END
22065  #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1)
22066 #else
22067  #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__)
22068 #endif
22069 
22070 #define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS)
22071 void LAPACK_dtrtrs_base(
22072  char const* uplo, char const* trans, char const* diag,
22073  lapack_int const* n, lapack_int const* nrhs,
22074  double const* A, lapack_int const* lda,
22075  double* B, lapack_int const* ldb,
22076  lapack_int* info
22077 #ifdef LAPACK_FORTRAN_STRLEN_END
22078  , size_t, size_t, size_t
22079 #endif
22080 );
22081 #ifdef LAPACK_FORTRAN_STRLEN_END
22082  #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1)
22083 #else
22084  #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__)
22085 #endif
22086 
22087 #define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS)
22088 void LAPACK_strtrs_base(
22089  char const* uplo, char const* trans, char const* diag,
22090  lapack_int const* n, lapack_int const* nrhs,
22091  float const* A, lapack_int const* lda,
22092  float* B, lapack_int const* ldb,
22093  lapack_int* info
22094 #ifdef LAPACK_FORTRAN_STRLEN_END
22095  , size_t, size_t, size_t
22096 #endif
22097 );
22098 #ifdef LAPACK_FORTRAN_STRLEN_END
22099  #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1)
22100 #else
22101  #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__)
22102 #endif
22103 
22104 #define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS)
22105 void LAPACK_ztrtrs_base(
22106  char const* uplo, char const* trans, char const* diag,
22107  lapack_int const* n, lapack_int const* nrhs,
22108  lapack_complex_double const* A, lapack_int const* lda,
22109  lapack_complex_double* B, lapack_int const* ldb,
22110  lapack_int* info
22111 #ifdef LAPACK_FORTRAN_STRLEN_END
22112  , size_t, size_t, size_t
22113 #endif
22114 );
22115 #ifdef LAPACK_FORTRAN_STRLEN_END
22116  #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1)
22117 #else
22118  #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__)
22119 #endif
22120 
22121 #define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF)
22122 void LAPACK_ctrttf_base(
22123  char const* transr, char const* uplo,
22124  lapack_int const* n,
22125  lapack_complex_float const* A, lapack_int const* lda,
22126  lapack_complex_float* ARF,
22127  lapack_int* info
22128 #ifdef LAPACK_FORTRAN_STRLEN_END
22129  , size_t, size_t
22130 #endif
22131 );
22132 #ifdef LAPACK_FORTRAN_STRLEN_END
22133  #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1)
22134 #else
22135  #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__)
22136 #endif
22137 
22138 #define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF)
22139 void LAPACK_dtrttf_base(
22140  char const* transr, char const* uplo,
22141  lapack_int const* n,
22142  double const* A, lapack_int const* lda,
22143  double* ARF,
22144  lapack_int* info
22145 #ifdef LAPACK_FORTRAN_STRLEN_END
22146  , size_t, size_t
22147 #endif
22148 );
22149 #ifdef LAPACK_FORTRAN_STRLEN_END
22150  #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1)
22151 #else
22152  #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__)
22153 #endif
22154 
22155 #define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF)
22156 void LAPACK_strttf_base(
22157  char const* transr, char const* uplo,
22158  lapack_int const* n,
22159  float const* A, lapack_int const* lda,
22160  float* ARF,
22161  lapack_int* info
22162 #ifdef LAPACK_FORTRAN_STRLEN_END
22163  , size_t, size_t
22164 #endif
22165 );
22166 #ifdef LAPACK_FORTRAN_STRLEN_END
22167  #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1)
22168 #else
22169  #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__)
22170 #endif
22171 
22172 #define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF)
22173 void LAPACK_ztrttf_base(
22174  char const* transr, char const* uplo,
22175  lapack_int const* n,
22176  lapack_complex_double const* A, lapack_int const* lda,
22177  lapack_complex_double* ARF,
22178  lapack_int* info
22179 #ifdef LAPACK_FORTRAN_STRLEN_END
22180  , size_t, size_t
22181 #endif
22182 );
22183 #ifdef LAPACK_FORTRAN_STRLEN_END
22184  #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1)
22185 #else
22186  #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__)
22187 #endif
22188 
22189 #define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP)
22190 void LAPACK_ctrttp_base(
22191  char const* uplo,
22192  lapack_int const* n,
22193  lapack_complex_float const* A, lapack_int const* lda,
22194  lapack_complex_float* AP,
22195  lapack_int* info
22196 #ifdef LAPACK_FORTRAN_STRLEN_END
22197  , size_t
22198 #endif
22199 );
22200 #ifdef LAPACK_FORTRAN_STRLEN_END
22201  #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1)
22202 #else
22203  #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__)
22204 #endif
22205 
22206 #define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP)
22207 void LAPACK_dtrttp_base(
22208  char const* uplo,
22209  lapack_int const* n,
22210  double const* A, lapack_int const* lda,
22211  double* AP,
22212  lapack_int* info
22213 #ifdef LAPACK_FORTRAN_STRLEN_END
22214  , size_t
22215 #endif
22216 );
22217 #ifdef LAPACK_FORTRAN_STRLEN_END
22218  #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1)
22219 #else
22220  #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__)
22221 #endif
22222 
22223 #define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP)
22224 void LAPACK_strttp_base(
22225  char const* uplo,
22226  lapack_int const* n,
22227  float const* A, lapack_int const* lda,
22228  float* AP,
22229  lapack_int* info
22230 #ifdef LAPACK_FORTRAN_STRLEN_END
22231  , size_t
22232 #endif
22233 );
22234 #ifdef LAPACK_FORTRAN_STRLEN_END
22235  #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1)
22236 #else
22237  #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__)
22238 #endif
22239 
22240 #define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP)
22241 void LAPACK_ztrttp_base(
22242  char const* uplo,
22243  lapack_int const* n,
22244  lapack_complex_double const* A, lapack_int const* lda,
22245  lapack_complex_double* AP,
22246  lapack_int* info
22247 #ifdef LAPACK_FORTRAN_STRLEN_END
22248  , size_t
22249 #endif
22250 );
22251 #ifdef LAPACK_FORTRAN_STRLEN_END
22252  #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1)
22253 #else
22254  #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__)
22255 #endif
22256 
22257 #define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF)
22258 void LAPACK_ctzrzf(
22259  lapack_int const* m, lapack_int const* n,
22260  lapack_complex_float* A, lapack_int const* lda,
22261  lapack_complex_float* tau,
22262  lapack_complex_float* work, lapack_int const* lwork,
22263  lapack_int* info );
22264 
22265 #define LAPACK_dtzrzf LAPACK_GLOBAL(dtzrzf,DTZRZF)
22266 void LAPACK_dtzrzf(
22267  lapack_int const* m, lapack_int const* n,
22268  double* A, lapack_int const* lda,
22269  double* tau,
22270  double* work, lapack_int const* lwork,
22271  lapack_int* info );
22272 
22273 #define LAPACK_stzrzf LAPACK_GLOBAL(stzrzf,STZRZF)
22274 void LAPACK_stzrzf(
22275  lapack_int const* m, lapack_int const* n,
22276  float* A, lapack_int const* lda,
22277  float* tau,
22278  float* work, lapack_int const* lwork,
22279  lapack_int* info );
22280 
22281 #define LAPACK_ztzrzf LAPACK_GLOBAL(ztzrzf,ZTZRZF)
22282 void LAPACK_ztzrzf(
22283  lapack_int const* m, lapack_int const* n,
22284  lapack_complex_double* A, lapack_int const* lda,
22285  lapack_complex_double* tau,
22286  lapack_complex_double* work, lapack_int const* lwork,
22287  lapack_int* info );
22288 
22289 #define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB)
22290 void LAPACK_cunbdb_base(
22291  char const* trans, char const* signs,
22292  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22293  lapack_complex_float* X11, lapack_int const* ldx11,
22294  lapack_complex_float* X12, lapack_int const* ldx12,
22295  lapack_complex_float* X21, lapack_int const* ldx21,
22296  lapack_complex_float* X22, lapack_int const* ldx22,
22297  float* theta,
22298  float* phi,
22299  lapack_complex_float* TAUP1,
22300  lapack_complex_float* TAUP2,
22301  lapack_complex_float* TAUQ1,
22302  lapack_complex_float* TAUQ2,
22303  lapack_complex_float* work, lapack_int const* lwork,
22304  lapack_int* info
22305 #ifdef LAPACK_FORTRAN_STRLEN_END
22306  , size_t, size_t
22307 #endif
22308 );
22309 #ifdef LAPACK_FORTRAN_STRLEN_END
22310  #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1)
22311 #else
22312  #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__)
22313 #endif
22314 
22315 #define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB)
22316 void LAPACK_zunbdb_base(
22317  char const* trans, char const* signs,
22318  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22319  lapack_complex_double* X11, lapack_int const* ldx11,
22320  lapack_complex_double* X12, lapack_int const* ldx12,
22321  lapack_complex_double* X21, lapack_int const* ldx21,
22322  lapack_complex_double* X22, lapack_int const* ldx22,
22323  double* theta,
22324  double* phi,
22325  lapack_complex_double* TAUP1,
22326  lapack_complex_double* TAUP2,
22327  lapack_complex_double* TAUQ1,
22328  lapack_complex_double* TAUQ2,
22329  lapack_complex_double* work, lapack_int const* lwork,
22330  lapack_int* info
22331 #ifdef LAPACK_FORTRAN_STRLEN_END
22332  , size_t, size_t
22333 #endif
22334 );
22335 #ifdef LAPACK_FORTRAN_STRLEN_END
22336  #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1)
22337 #else
22338  #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__)
22339 #endif
22340 
22341 #define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD)
22342 void LAPACK_cuncsd_base(
22343  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
22344  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22345  lapack_complex_float* X11, lapack_int const* ldx11,
22346  lapack_complex_float* X12, lapack_int const* ldx12,
22347  lapack_complex_float* X21, lapack_int const* ldx21,
22348  lapack_complex_float* X22, lapack_int const* ldx22,
22349  float* theta,
22350  lapack_complex_float* U1, lapack_int const* ldu1,
22351  lapack_complex_float* U2, lapack_int const* ldu2,
22352  lapack_complex_float* V1T, lapack_int const* ldv1t,
22353  lapack_complex_float* V2T, lapack_int const* ldv2t,
22354  lapack_complex_float* work, lapack_int const* lwork,
22355  float* rwork, lapack_int const* lrwork,
22356  lapack_int* iwork,
22357  lapack_int* info
22358 #ifdef LAPACK_FORTRAN_STRLEN_END
22359  , size_t, size_t, size_t, size_t, size_t, size_t
22360 #endif
22361 );
22362 #ifdef LAPACK_FORTRAN_STRLEN_END
22363  #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22364 #else
22365  #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__)
22366 #endif
22367 
22368 #define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD)
22369 void LAPACK_zuncsd_base(
22370  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
22371  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22372  lapack_complex_double* X11, lapack_int const* ldx11,
22373  lapack_complex_double* X12, lapack_int const* ldx12,
22374  lapack_complex_double* X21, lapack_int const* ldx21,
22375  lapack_complex_double* X22, lapack_int const* ldx22,
22376  double* theta,
22377  lapack_complex_double* U1, lapack_int const* ldu1,
22378  lapack_complex_double* U2, lapack_int const* ldu2,
22379  lapack_complex_double* V1T, lapack_int const* ldv1t,
22380  lapack_complex_double* V2T, lapack_int const* ldv2t,
22381  lapack_complex_double* work, lapack_int const* lwork,
22382  double* rwork, lapack_int const* lrwork,
22383  lapack_int* iwork,
22384  lapack_int* info
22385 #ifdef LAPACK_FORTRAN_STRLEN_END
22386  , size_t, size_t, size_t, size_t, size_t, size_t
22387 #endif
22388 );
22389 #ifdef LAPACK_FORTRAN_STRLEN_END
22390  #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22391 #else
22392  #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__)
22393 #endif
22394 
22395 #define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1)
22396 void LAPACK_cuncsd2by1_base(
22397  char const* jobu1, char const* jobu2, char const* jobv1t,
22398  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22399  lapack_complex_float* X11, lapack_int const* ldx11,
22400  lapack_complex_float* X21, lapack_int const* ldx21,
22401  float* theta,
22402  lapack_complex_float* U1, lapack_int const* ldu1,
22403  lapack_complex_float* U2, lapack_int const* ldu2,
22404  lapack_complex_float* V1T, lapack_int const* ldv1t,
22405  lapack_complex_float* work, lapack_int const* lwork,
22406  float* rwork, lapack_int const* lrwork,
22407  lapack_int* iwork,
22408  lapack_int* info
22409 #ifdef LAPACK_FORTRAN_STRLEN_END
22410  , size_t, size_t, size_t
22411 #endif
22412 );
22413 #ifdef LAPACK_FORTRAN_STRLEN_END
22414  #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22415 #else
22416  #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__)
22417 #endif
22418 
22419 #define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1)
22420 void LAPACK_zuncsd2by1_base(
22421  char const* jobu1, char const* jobu2, char const* jobv1t,
22422  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22423  lapack_complex_double* X11, lapack_int const* ldx11,
22424  lapack_complex_double* X21, lapack_int const* ldx21,
22425  double* theta,
22426  lapack_complex_double* U1, lapack_int const* ldu1,
22427  lapack_complex_double* U2, lapack_int const* ldu2,
22428  lapack_complex_double* V1T, lapack_int const* ldv1t,
22429  lapack_complex_double* work, lapack_int const* lwork,
22430  double* rwork, lapack_int const* lrwork,
22431  lapack_int* iwork,
22432  lapack_int* info
22433 #ifdef LAPACK_FORTRAN_STRLEN_END
22434  , size_t, size_t, size_t
22435 #endif
22436 );
22437 #ifdef LAPACK_FORTRAN_STRLEN_END
22438  #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22439 #else
22440  #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__)
22441 #endif
22442 
22443 #define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR)
22444 void LAPACK_cungbr_base(
22445  char const* vect,
22446  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22447  lapack_complex_float* A, lapack_int const* lda,
22448  lapack_complex_float const* tau,
22449  lapack_complex_float* work, lapack_int const* lwork,
22450  lapack_int* info
22451 #ifdef LAPACK_FORTRAN_STRLEN_END
22452  , size_t
22453 #endif
22454 );
22455 #ifdef LAPACK_FORTRAN_STRLEN_END
22456  #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1)
22457 #else
22458  #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__)
22459 #endif
22460 
22461 #define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR)
22462 void LAPACK_zungbr_base(
22463  char const* vect,
22464  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22465  lapack_complex_double* A, lapack_int const* lda,
22466  lapack_complex_double const* tau,
22467  lapack_complex_double* work, lapack_int const* lwork,
22468  lapack_int* info
22469 #ifdef LAPACK_FORTRAN_STRLEN_END
22470  , size_t
22471 #endif
22472 );
22473 #ifdef LAPACK_FORTRAN_STRLEN_END
22474  #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1)
22475 #else
22476  #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__)
22477 #endif
22478 
22479 #define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR)
22480 void LAPACK_cunghr(
22481  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22482  lapack_complex_float* A, lapack_int const* lda,
22483  lapack_complex_float const* tau,
22484  lapack_complex_float* work, lapack_int const* lwork,
22485  lapack_int* info );
22486 
22487 #define LAPACK_zunghr LAPACK_GLOBAL(zunghr,ZUNGHR)
22488 void LAPACK_zunghr(
22489  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22490  lapack_complex_double* A, lapack_int const* lda,
22491  lapack_complex_double const* tau,
22492  lapack_complex_double* work, lapack_int const* lwork,
22493  lapack_int* info );
22494 
22495 #define LAPACK_cunglq LAPACK_GLOBAL(cunglq,CUNGLQ)
22496 void LAPACK_cunglq(
22497  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22498  lapack_complex_float* A, lapack_int const* lda,
22499  lapack_complex_float const* tau,
22500  lapack_complex_float* work, lapack_int const* lwork,
22501  lapack_int* info );
22502 
22503 #define LAPACK_zunglq LAPACK_GLOBAL(zunglq,ZUNGLQ)
22504 void LAPACK_zunglq(
22505  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22506  lapack_complex_double* A, lapack_int const* lda,
22507  lapack_complex_double const* tau,
22508  lapack_complex_double* work, lapack_int const* lwork,
22509  lapack_int* info );
22510 
22511 #define LAPACK_cungql LAPACK_GLOBAL(cungql,CUNGQL)
22512 void LAPACK_cungql(
22513  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22514  lapack_complex_float* A, lapack_int const* lda,
22515  lapack_complex_float const* tau,
22516  lapack_complex_float* work, lapack_int const* lwork,
22517  lapack_int* info );
22518 
22519 #define LAPACK_zungql LAPACK_GLOBAL(zungql,ZUNGQL)
22520 void LAPACK_zungql(
22521  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22522  lapack_complex_double* A, lapack_int const* lda,
22523  lapack_complex_double const* tau,
22524  lapack_complex_double* work, lapack_int const* lwork,
22525  lapack_int* info );
22526 
22527 #define LAPACK_cungqr LAPACK_GLOBAL(cungqr,CUNGQR)
22528 void LAPACK_cungqr(
22529  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22530  lapack_complex_float* A, lapack_int const* lda,
22531  lapack_complex_float const* tau,
22532  lapack_complex_float* work, lapack_int const* lwork,
22533  lapack_int* info );
22534 
22535 #define LAPACK_zungqr LAPACK_GLOBAL(zungqr,ZUNGQR)
22536 void LAPACK_zungqr(
22537  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22538  lapack_complex_double* A, lapack_int const* lda,
22539  lapack_complex_double const* tau,
22540  lapack_complex_double* work, lapack_int const* lwork,
22541  lapack_int* info );
22542 
22543 #define LAPACK_cungrq LAPACK_GLOBAL(cungrq,CUNGRQ)
22544 void LAPACK_cungrq(
22545  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22546  lapack_complex_float* A, lapack_int const* lda,
22547  lapack_complex_float const* tau,
22548  lapack_complex_float* work, lapack_int const* lwork,
22549  lapack_int* info );
22550 
22551 #define LAPACK_zungrq LAPACK_GLOBAL(zungrq,ZUNGRQ)
22552 void LAPACK_zungrq(
22553  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22554  lapack_complex_double* A, lapack_int const* lda,
22555  lapack_complex_double const* tau,
22556  lapack_complex_double* work, lapack_int const* lwork,
22557  lapack_int* info );
22558 
22559 #define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR)
22560 void LAPACK_cungtr_base(
22561  char const* uplo,
22562  lapack_int const* n,
22563  lapack_complex_float* A, lapack_int const* lda,
22564  lapack_complex_float const* tau,
22565  lapack_complex_float* work, lapack_int const* lwork,
22566  lapack_int* info
22567 #ifdef LAPACK_FORTRAN_STRLEN_END
22568  , size_t
22569 #endif
22570 );
22571 #ifdef LAPACK_FORTRAN_STRLEN_END
22572  #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1)
22573 #else
22574  #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__)
22575 #endif
22576 
22577 #define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR)
22578 void LAPACK_zungtr_base(
22579  char const* uplo,
22580  lapack_int const* n,
22581  lapack_complex_double* A, lapack_int const* lda,
22582  lapack_complex_double const* tau,
22583  lapack_complex_double* work, lapack_int const* lwork,
22584  lapack_int* info
22585 #ifdef LAPACK_FORTRAN_STRLEN_END
22586  , size_t
22587 #endif
22588 );
22589 #ifdef LAPACK_FORTRAN_STRLEN_END
22590  #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1)
22591 #else
22592  #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__)
22593 #endif
22594 
22595 #define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW)
22596 void LAPACK_cungtsqr_row(
22597  lapack_int const* m, lapack_int const* n,
22598  lapack_int const* mb, lapack_int const* nb,
22599  lapack_complex_float* A, lapack_int const* lda,
22600  lapack_complex_float const* T, lapack_int const* ldt,
22601  lapack_complex_float* work, lapack_int const* lwork,
22602  lapack_int* info );
22603 
22604 #define LAPACK_zungtsqr_row LAPACK_GLOBAL(zungtsqr_row,ZUNGTSQR_ROW)
22605 void LAPACK_zungtsqr_row(
22606  lapack_int const* m, lapack_int const* n,
22607  lapack_int const* mb, lapack_int const* nb,
22608  lapack_complex_double* A, lapack_int const* lda,
22609  lapack_complex_double const* T, lapack_int const* ldt,
22610  lapack_complex_double* work, lapack_int const* lwork,
22611  lapack_int* info );
22612 
22613 #define LAPACK_cunmbr_base LAPACK_GLOBAL(cunmbr,CUNMBR)
22614 void LAPACK_cunmbr_base(
22615  char const* vect, char const* side, char const* trans,
22616  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22617  lapack_complex_float const* A, lapack_int const* lda,
22618  lapack_complex_float const* tau,
22619  lapack_complex_float* C, lapack_int const* ldc,
22620  lapack_complex_float* work, lapack_int const* lwork,
22621  lapack_int* info
22622 #ifdef LAPACK_FORTRAN_STRLEN_END
22623  , size_t, size_t, size_t
22624 #endif
22625 );
22626 #ifdef LAPACK_FORTRAN_STRLEN_END
22627  #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1)
22628 #else
22629  #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__)
22630 #endif
22631 
22632 #define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR)
22633 void LAPACK_zunmbr_base(
22634  char const* vect, char const* side, char const* trans,
22635  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22636  lapack_complex_double const* A, lapack_int const* lda,
22637  lapack_complex_double const* tau,
22638  lapack_complex_double* C, lapack_int const* ldc,
22639  lapack_complex_double* work, lapack_int const* lwork,
22640  lapack_int* info
22641 #ifdef LAPACK_FORTRAN_STRLEN_END
22642  , size_t, size_t, size_t
22643 #endif
22644 );
22645 #ifdef LAPACK_FORTRAN_STRLEN_END
22646  #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1)
22647 #else
22648  #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__)
22649 #endif
22650 
22651 #define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR)
22652 void LAPACK_cunmhr_base(
22653  char const* side, char const* trans,
22654  lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22655  lapack_complex_float const* A, lapack_int const* lda,
22656  lapack_complex_float const* tau,
22657  lapack_complex_float* C, lapack_int const* ldc,
22658  lapack_complex_float* work, lapack_int const* lwork,
22659  lapack_int* info
22660 #ifdef LAPACK_FORTRAN_STRLEN_END
22661  , size_t, size_t
22662 #endif
22663 );
22664 #ifdef LAPACK_FORTRAN_STRLEN_END
22665  #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1)
22666 #else
22667  #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__)
22668 #endif
22669 
22670 #define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR)
22671 void LAPACK_zunmhr_base(
22672  char const* side, char const* trans,
22673  lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22674  lapack_complex_double const* A, lapack_int const* lda,
22675  lapack_complex_double const* tau,
22676  lapack_complex_double* C, lapack_int const* ldc,
22677  lapack_complex_double* work, lapack_int const* lwork,
22678  lapack_int* info
22679 #ifdef LAPACK_FORTRAN_STRLEN_END
22680  , size_t, size_t
22681 #endif
22682 );
22683 #ifdef LAPACK_FORTRAN_STRLEN_END
22684  #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1)
22685 #else
22686  #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__)
22687 #endif
22688 
22689 #define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ)
22690 void LAPACK_cunmlq_base(
22691  char const* side, char const* trans,
22692  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22693  lapack_complex_float const* A, lapack_int const* lda,
22694  lapack_complex_float const* tau,
22695  lapack_complex_float* C, lapack_int const* ldc,
22696  lapack_complex_float* work, lapack_int const* lwork,
22697  lapack_int* info
22698 #ifdef LAPACK_FORTRAN_STRLEN_END
22699  , size_t, size_t
22700 #endif
22701 );
22702 #ifdef LAPACK_FORTRAN_STRLEN_END
22703  #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1)
22704 #else
22705  #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__)
22706 #endif
22707 
22708 #define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ)
22709 void LAPACK_zunmlq_base(
22710  char const* side, char const* trans,
22711  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22712  lapack_complex_double const* A, lapack_int const* lda,
22713  lapack_complex_double const* tau,
22714  lapack_complex_double* C, lapack_int const* ldc,
22715  lapack_complex_double* work, lapack_int const* lwork,
22716  lapack_int* info
22717 #ifdef LAPACK_FORTRAN_STRLEN_END
22718  , size_t, size_t
22719 #endif
22720 );
22721 #ifdef LAPACK_FORTRAN_STRLEN_END
22722  #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1)
22723 #else
22724  #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__)
22725 #endif
22726 
22727 #define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL)
22728 void LAPACK_cunmql_base(
22729  char const* side, char const* trans,
22730  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22731  lapack_complex_float const* A, lapack_int const* lda,
22732  lapack_complex_float const* tau,
22733  lapack_complex_float* C, lapack_int const* ldc,
22734  lapack_complex_float* work, lapack_int const* lwork,
22735  lapack_int* info
22736 #ifdef LAPACK_FORTRAN_STRLEN_END
22737  , size_t, size_t
22738 #endif
22739 );
22740 #ifdef LAPACK_FORTRAN_STRLEN_END
22741  #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1)
22742 #else
22743  #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__)
22744 #endif
22745 
22746 #define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL)
22747 void LAPACK_zunmql_base(
22748  char const* side, char const* trans,
22749  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22750  lapack_complex_double const* A, lapack_int const* lda,
22751  lapack_complex_double const* tau,
22752  lapack_complex_double* C, lapack_int const* ldc,
22753  lapack_complex_double* work, lapack_int const* lwork,
22754  lapack_int* info
22755 #ifdef LAPACK_FORTRAN_STRLEN_END
22756  , size_t, size_t
22757 #endif
22758 );
22759 #ifdef LAPACK_FORTRAN_STRLEN_END
22760  #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1)
22761 #else
22762  #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__)
22763 #endif
22764 
22765 #define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR)
22766 void LAPACK_cunmqr_base(
22767  char const* side, char const* trans,
22768  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22769  lapack_complex_float const* A, lapack_int const* lda,
22770  lapack_complex_float const* tau,
22771  lapack_complex_float* C, lapack_int const* ldc,
22772  lapack_complex_float* work, lapack_int const* lwork,
22773  lapack_int* info
22774 #ifdef LAPACK_FORTRAN_STRLEN_END
22775  , size_t, size_t
22776 #endif
22777 );
22778 #ifdef LAPACK_FORTRAN_STRLEN_END
22779  #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1)
22780 #else
22781  #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__)
22782 #endif
22783 
22784 #define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR)
22785 void LAPACK_zunmqr_base(
22786  char const* side, char const* trans,
22787  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22788  lapack_complex_double const* A, lapack_int const* lda,
22789  lapack_complex_double const* tau,
22790  lapack_complex_double* C, lapack_int const* ldc,
22791  lapack_complex_double* work, lapack_int const* lwork,
22792  lapack_int* info
22793 #ifdef LAPACK_FORTRAN_STRLEN_END
22794  , size_t, size_t
22795 #endif
22796 );
22797 #ifdef LAPACK_FORTRAN_STRLEN_END
22798  #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1)
22799 #else
22800  #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__)
22801 #endif
22802 
22803 #define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ)
22804 void LAPACK_cunmrq_base(
22805  char const* side, char const* trans,
22806  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22807  lapack_complex_float const* A, lapack_int const* lda,
22808  lapack_complex_float const* tau,
22809  lapack_complex_float* C, lapack_int const* ldc,
22810  lapack_complex_float* work, lapack_int const* lwork,
22811  lapack_int* info
22812 #ifdef LAPACK_FORTRAN_STRLEN_END
22813  , size_t, size_t
22814 #endif
22815 );
22816 #ifdef LAPACK_FORTRAN_STRLEN_END
22817  #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1)
22818 #else
22819  #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__)
22820 #endif
22821 
22822 #define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ)
22823 void LAPACK_zunmrq_base(
22824  char const* side, char const* trans,
22825  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22826  lapack_complex_double const* A, lapack_int const* lda,
22827  lapack_complex_double const* tau,
22828  lapack_complex_double* C, lapack_int const* ldc,
22829  lapack_complex_double* work, lapack_int const* lwork,
22830  lapack_int* info
22831 #ifdef LAPACK_FORTRAN_STRLEN_END
22832  , size_t, size_t
22833 #endif
22834 );
22835 #ifdef LAPACK_FORTRAN_STRLEN_END
22836  #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1)
22837 #else
22838  #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__)
22839 #endif
22840 
22841 #define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ)
22842 void LAPACK_cunmrz_base(
22843  char const* side, char const* trans,
22844  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
22845  lapack_complex_float const* A, lapack_int const* lda,
22846  lapack_complex_float const* tau,
22847  lapack_complex_float* C, lapack_int const* ldc,
22848  lapack_complex_float* work, lapack_int const* lwork,
22849  lapack_int* info
22850 #ifdef LAPACK_FORTRAN_STRLEN_END
22851  , size_t, size_t
22852 #endif
22853 );
22854 #ifdef LAPACK_FORTRAN_STRLEN_END
22855  #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1)
22856 #else
22857  #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__)
22858 #endif
22859 
22860 #define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ)
22861 void LAPACK_zunmrz_base(
22862  char const* side, char const* trans,
22863  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
22864  lapack_complex_double const* A, lapack_int const* lda,
22865  lapack_complex_double const* tau,
22866  lapack_complex_double* C, lapack_int const* ldc,
22867  lapack_complex_double* work, lapack_int const* lwork,
22868  lapack_int* info
22869 #ifdef LAPACK_FORTRAN_STRLEN_END
22870  , size_t, size_t
22871 #endif
22872 );
22873 #ifdef LAPACK_FORTRAN_STRLEN_END
22874  #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1)
22875 #else
22876  #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__)
22877 #endif
22878 
22879 #define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR)
22880 void LAPACK_cunmtr_base(
22881  char const* side, char const* uplo, char const* trans,
22882  lapack_int const* m, lapack_int const* n,
22883  lapack_complex_float const* A, lapack_int const* lda,
22884  lapack_complex_float const* tau,
22885  lapack_complex_float* C, lapack_int const* ldc,
22886  lapack_complex_float* work, lapack_int const* lwork,
22887  lapack_int* info
22888 #ifdef LAPACK_FORTRAN_STRLEN_END
22889  , size_t, size_t, size_t
22890 #endif
22891 );
22892 #ifdef LAPACK_FORTRAN_STRLEN_END
22893  #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1)
22894 #else
22895  #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__)
22896 #endif
22897 
22898 #define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR)
22899 void LAPACK_zunmtr_base(
22900  char const* side, char const* uplo, char const* trans,
22901  lapack_int const* m, lapack_int const* n,
22902  lapack_complex_double const* A, lapack_int const* lda,
22903  lapack_complex_double const* tau,
22904  lapack_complex_double* C, lapack_int const* ldc,
22905  lapack_complex_double* work, lapack_int const* lwork,
22906  lapack_int* info
22907 #ifdef LAPACK_FORTRAN_STRLEN_END
22908  , size_t, size_t, size_t
22909 #endif
22910 );
22911 #ifdef LAPACK_FORTRAN_STRLEN_END
22912  #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1)
22913 #else
22914  #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__)
22915 #endif
22916 
22917 #define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR)
22918 void LAPACK_cupgtr_base(
22919  char const* uplo,
22920  lapack_int const* n,
22921  lapack_complex_float const* AP,
22922  lapack_complex_float const* tau,
22923  lapack_complex_float* Q, lapack_int const* ldq,
22924  lapack_complex_float* work,
22925  lapack_int* info
22926 #ifdef LAPACK_FORTRAN_STRLEN_END
22927  , size_t
22928 #endif
22929 );
22930 #ifdef LAPACK_FORTRAN_STRLEN_END
22931  #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1)
22932 #else
22933  #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__)
22934 #endif
22935 
22936 #define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR)
22937 void LAPACK_zupgtr_base(
22938  char const* uplo,
22939  lapack_int const* n,
22940  lapack_complex_double const* AP,
22941  lapack_complex_double const* tau,
22942  lapack_complex_double* Q, lapack_int const* ldq,
22943  lapack_complex_double* work,
22944  lapack_int* info
22945 #ifdef LAPACK_FORTRAN_STRLEN_END
22946  , size_t
22947 #endif
22948 );
22949 #ifdef LAPACK_FORTRAN_STRLEN_END
22950  #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1)
22951 #else
22952  #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__)
22953 #endif
22954 
22955 #define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR)
22956 void LAPACK_cupmtr_base(
22957  char const* side, char const* uplo, char const* trans,
22958  lapack_int const* m, lapack_int const* n,
22959  lapack_complex_float const* AP,
22960  lapack_complex_float const* tau,
22961  lapack_complex_float* C, lapack_int const* ldc,
22962  lapack_complex_float* work,
22963  lapack_int* info
22964 #ifdef LAPACK_FORTRAN_STRLEN_END
22965  , size_t, size_t, size_t
22966 #endif
22967 );
22968 #ifdef LAPACK_FORTRAN_STRLEN_END
22969  #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1)
22970 #else
22971  #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__)
22972 #endif
22973 
22974 #define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR)
22975 void LAPACK_zupmtr_base(
22976  char const* side, char const* uplo, char const* trans,
22977  lapack_int const* m, lapack_int const* n,
22978  lapack_complex_double const* AP,
22979  lapack_complex_double const* tau,
22980  lapack_complex_double* C, lapack_int const* ldc,
22981  lapack_complex_double* work,
22982  lapack_int* info
22983 #ifdef LAPACK_FORTRAN_STRLEN_END
22984  , size_t, size_t, size_t
22985 #endif
22986 );
22987 #ifdef LAPACK_FORTRAN_STRLEN_END
22988  #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1)
22989 #else
22990  #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__)
22991 #endif
22992 
22993 #ifdef __cplusplus
22994 } /* extern "C" */
22995 #endif
22996 
22997 #endif /* LAPACK_H */