LAPACK  3.11.0
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 #include <inttypes.h>
16 
17 /* It seems all current Fortran compilers put strlen at end.
18 * Some historical compilers put strlen after the str argument
19 * or make the str argument into a struct. */
20 #define LAPACK_FORTRAN_STRLEN_END
21 
22 /* Complex types are structures equivalent to the
23 * Fortran complex types COMPLEX(4) and COMPLEX(8).
24 *
25 * One can also redefine the types with his own types
26 * for example by including in the code definitions like
27 *
28 * #define lapack_complex_float std::complex<float>
29 * #define lapack_complex_double std::complex<double>
30 *
31 * or define these types in the command line:
32 *
33 * -Dlapack_complex_float="std::complex<float>"
34 * -Dlapack_complex_double="std::complex<double>"
35 */
36 
37 #ifndef LAPACK_COMPLEX_CUSTOM
38 
39 /* Complex type (single precision) */
40 #ifndef lapack_complex_float
41 #ifndef __cplusplus
42 #include <complex.h>
43 #else
44 #include <complex>
45 #endif
46 #define lapack_complex_float float _Complex
47 #endif
48 
49 #ifndef lapack_complex_float_real
50 #define lapack_complex_float_real(z) (creal(z))
51 #endif
52 
53 #ifndef lapack_complex_float_imag
54 #define lapack_complex_float_imag(z) (cimag(z))
55 #endif
56 
57 /* Complex type (double precision) */
58 #ifndef lapack_complex_double
59 #ifndef __cplusplus
60 #include <complex.h>
61 #else
62 #include <complex>
63 #endif
64 #define lapack_complex_double double _Complex
65 #endif
66 
67 #ifndef lapack_complex_double_real
68 #define lapack_complex_double_real(z) (creal(z))
69 #endif
70 
71 #ifndef lapack_complex_double_imag
72 #define lapack_complex_double_imag(z) (cimag(z))
73 #endif
74 
75 #endif /* LAPACK_COMPLEX_CUSTOM */
76 
77 
78 #ifdef __cplusplus
79 extern "C" {
80 #endif
81 
82 /*----------------------------------------------------------------------------*/
83 #ifndef lapack_int
84 #if defined(LAPACK_ILP64)
85 #define lapack_int int64_t
86 #else
87 #define lapack_int int32_t
88 #endif
89 #endif
90 
91 /*
92  * Integer format string
93  */
94 #ifndef LAPACK_IFMT
95 #if defined(LAPACK_ILP64)
96 #define LAPACK_IFMT PRId64
97 #else
98 #define LAPACK_IFMT PRId32
99 #endif
100 #endif
101 
102 #ifndef lapack_logical
103 #define lapack_logical lapack_int
104 #endif
105 
106 /* f2c, hence clapack and MacOS Accelerate, returns double instead of float
107  * for sdot, slange, clange, etc. */
108 #if defined(LAPACK_F2C)
109  typedef double lapack_float_return;
110 #else
111  typedef float lapack_float_return;
112 #endif
113 
114 
115 /* Callback logical functions of one, two, or three arguments are used
116 * to select eigenvalues to sort to the top left of the Schur form.
117 * The value is selected if function returns TRUE (non-zero). */
118 
119 typedef lapack_logical (*LAPACK_S_SELECT2) ( const float*, const float* );
120 typedef lapack_logical (*LAPACK_S_SELECT3)
121  ( const float*, const float*, const float* );
122 typedef lapack_logical (*LAPACK_D_SELECT2) ( const double*, const double* );
123 typedef lapack_logical (*LAPACK_D_SELECT3)
124  ( const double*, const double*, const double* );
125 
126 typedef lapack_logical (*LAPACK_C_SELECT1) ( const lapack_complex_float* );
127 typedef lapack_logical (*LAPACK_C_SELECT2)
128  ( const lapack_complex_float*, const lapack_complex_float* );
129 typedef lapack_logical (*LAPACK_Z_SELECT1) ( const lapack_complex_double* );
130 typedef lapack_logical (*LAPACK_Z_SELECT2)
131  ( const lapack_complex_double*, const lapack_complex_double* );
132 
133 #define LAPACK_lsame_base LAPACK_GLOBAL(lsame,LSAME)
134 lapack_logical LAPACK_lsame_base( const char* ca, const char* cb,
135  lapack_int lca, lapack_int lcb
136 #ifdef LAPACK_FORTRAN_STRLEN_END
137  , size_t, size_t
138 #endif
139 );
140 #ifdef LAPACK_FORTRAN_STRLEN_END
141  #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__, 1, 1)
142 #else
143  #define LAPACK_lsame(...) LAPACK_lsame_base(__VA_ARGS__)
144 #endif
145 
146 
147 /*----------------------------------------------------------------------------*/
148 /* This is in alphabetical order (ignoring leading precision). */
149 
150 #define LAPACK_cbbcsd_base LAPACK_GLOBAL(cbbcsd,CBBCSD)
151 void LAPACK_cbbcsd_base(
152  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
153  lapack_int const* m, lapack_int const* p, lapack_int const* q,
154  float* theta,
155  float* phi,
156  lapack_complex_float* U1, lapack_int const* ldu1,
157  lapack_complex_float* U2, lapack_int const* ldu2,
158  lapack_complex_float* V1T, lapack_int const* ldv1t,
159  lapack_complex_float* V2T, lapack_int const* ldv2t,
160  float* B11D,
161  float* B11E,
162  float* B12D,
163  float* B12E,
164  float* B21D,
165  float* B21E,
166  float* B22D,
167  float* B22E,
168  float* rwork, lapack_int const* lrwork,
169  lapack_int* info
170 #ifdef LAPACK_FORTRAN_STRLEN_END
171  , size_t, size_t, size_t, size_t, size_t
172 #endif
173 );
174 #ifdef LAPACK_FORTRAN_STRLEN_END
175  #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
176 #else
177  #define LAPACK_cbbcsd(...) LAPACK_cbbcsd_base(__VA_ARGS__)
178 #endif
179 
180 #define LAPACK_dbbcsd_base LAPACK_GLOBAL(dbbcsd,DBBCSD)
181 void LAPACK_dbbcsd_base(
182  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
183  lapack_int const* m, lapack_int const* p, lapack_int const* q,
184  double* theta,
185  double* phi,
186  double* U1, lapack_int const* ldu1,
187  double* U2, lapack_int const* ldu2,
188  double* V1T, lapack_int const* ldv1t,
189  double* V2T, lapack_int const* ldv2t,
190  double* B11D,
191  double* B11E,
192  double* B12D,
193  double* B12E,
194  double* b21d,
195  double* b21e,
196  double* b22d,
197  double* b22e,
198  double* work, lapack_int const* lwork,
199  lapack_int* info
200 #ifdef LAPACK_FORTRAN_STRLEN_END
201  , size_t, size_t, size_t, size_t, size_t
202 #endif
203 );
204 #ifdef LAPACK_FORTRAN_STRLEN_END
205  #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
206 #else
207  #define LAPACK_dbbcsd(...) LAPACK_dbbcsd_base(__VA_ARGS__)
208 #endif
209 
210 #define LAPACK_sbbcsd_base LAPACK_GLOBAL(sbbcsd,SBBCSD)
211 void LAPACK_sbbcsd_base(
212  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
213  lapack_int const* m, lapack_int const* p, lapack_int const* q,
214  float* theta,
215  float* phi,
216  float* U1, lapack_int const* ldu1,
217  float* U2, lapack_int const* ldu2,
218  float* V1T, lapack_int const* ldv1t,
219  float* V2T, lapack_int const* ldv2t,
220  float* B11D,
221  float* B11E,
222  float* B12D,
223  float* B12E,
224  float* B21D,
225  float* B21E,
226  float* B22D,
227  float* B22E,
228  float* work, lapack_int const* lwork,
229  lapack_int* info
230 #ifdef LAPACK_FORTRAN_STRLEN_END
231  , size_t, size_t, size_t, size_t, size_t
232 #endif
233 );
234 #ifdef LAPACK_FORTRAN_STRLEN_END
235  #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
236 #else
237  #define LAPACK_sbbcsd(...) LAPACK_sbbcsd_base(__VA_ARGS__)
238 #endif
239 
240 #define LAPACK_zbbcsd_base LAPACK_GLOBAL(zbbcsd,ZBBCSD)
241 void LAPACK_zbbcsd_base(
242  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans,
243  lapack_int const* m, lapack_int const* p, lapack_int const* q,
244  double* theta,
245  double* phi,
246  lapack_complex_double* U1, lapack_int const* ldu1,
247  lapack_complex_double* U2, lapack_int const* ldu2,
248  lapack_complex_double* V1T, lapack_int const* ldv1t,
249  lapack_complex_double* V2T, lapack_int const* ldv2t,
250  double* B11D,
251  double* B11E,
252  double* B12D,
253  double* B12E,
254  double* B21D,
255  double* B21E,
256  double* B22D,
257  double* B22E,
258  double* rwork, lapack_int const* lrwork,
259  lapack_int* info
260 #ifdef LAPACK_FORTRAN_STRLEN_END
261  , size_t, size_t, size_t, size_t, size_t
262 #endif
263 );
264 #ifdef LAPACK_FORTRAN_STRLEN_END
265  #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1)
266 #else
267  #define LAPACK_zbbcsd(...) LAPACK_zbbcsd_base(__VA_ARGS__)
268 #endif
269 
270 #define LAPACK_dbdsdc_base LAPACK_GLOBAL(dbdsdc,DBDSDC)
271 void LAPACK_dbdsdc_base(
272  char const* uplo, char const* compq,
273  lapack_int const* n,
274  double* D,
275  double* E,
276  double* U, lapack_int const* ldu,
277  double* VT, lapack_int const* ldvt,
278  double* Q, lapack_int* IQ,
279  double* work,
280  lapack_int* iwork,
281  lapack_int* info
282 #ifdef LAPACK_FORTRAN_STRLEN_END
283  , size_t, size_t
284 #endif
285 );
286 #ifdef LAPACK_FORTRAN_STRLEN_END
287  #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__, 1, 1)
288 #else
289  #define LAPACK_dbdsdc(...) LAPACK_dbdsdc_base(__VA_ARGS__)
290 #endif
291 
292 #define LAPACK_sbdsdc_base LAPACK_GLOBAL(sbdsdc,SBDSDC)
293 void LAPACK_sbdsdc_base(
294  char const* uplo, char const* compq,
295  lapack_int const* n,
296  float* D,
297  float* E,
298  float* U, lapack_int const* ldu,
299  float* VT, lapack_int const* ldvt,
300  float* Q, lapack_int* IQ,
301  float* work,
302  lapack_int* iwork,
303  lapack_int* info
304 #ifdef LAPACK_FORTRAN_STRLEN_END
305  , size_t, size_t
306 #endif
307 );
308 #ifdef LAPACK_FORTRAN_STRLEN_END
309  #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__, 1, 1)
310 #else
311  #define LAPACK_sbdsdc(...) LAPACK_sbdsdc_base(__VA_ARGS__)
312 #endif
313 
314 #define LAPACK_cbdsqr_base LAPACK_GLOBAL(cbdsqr,CBDSQR)
315 void LAPACK_cbdsqr_base(
316  char const* uplo,
317  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
318  float* D,
319  float* E,
320  lapack_complex_float* VT, lapack_int const* ldvt,
321  lapack_complex_float* U, lapack_int const* ldu,
322  lapack_complex_float* C, lapack_int const* ldc,
323  float* rwork,
324  lapack_int* info
325 #ifdef LAPACK_FORTRAN_STRLEN_END
326  , size_t
327 #endif
328 );
329 #ifdef LAPACK_FORTRAN_STRLEN_END
330  #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__, 1)
331 #else
332  #define LAPACK_cbdsqr(...) LAPACK_cbdsqr_base(__VA_ARGS__)
333 #endif
334 
335 #define LAPACK_dbdsqr_base LAPACK_GLOBAL(dbdsqr,DBDSQR)
336 void LAPACK_dbdsqr_base(
337  char const* uplo,
338  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
339  double* D,
340  double* E,
341  double* VT, lapack_int const* ldvt,
342  double* U, lapack_int const* ldu,
343  double* C, lapack_int const* ldc,
344  double* work,
345  lapack_int* info
346 #ifdef LAPACK_FORTRAN_STRLEN_END
347  , size_t
348 #endif
349 );
350 #ifdef LAPACK_FORTRAN_STRLEN_END
351  #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__, 1)
352 #else
353  #define LAPACK_dbdsqr(...) LAPACK_dbdsqr_base(__VA_ARGS__)
354 #endif
355 
356 #define LAPACK_sbdsqr_base LAPACK_GLOBAL(sbdsqr,SBDSQR)
357 void LAPACK_sbdsqr_base(
358  char const* uplo,
359  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
360  float* D,
361  float* E,
362  float* VT, lapack_int const* ldvt,
363  float* U, lapack_int const* ldu,
364  float* C, lapack_int const* ldc,
365  float* work,
366  lapack_int* info
367 #ifdef LAPACK_FORTRAN_STRLEN_END
368  , size_t
369 #endif
370 );
371 #ifdef LAPACK_FORTRAN_STRLEN_END
372  #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__, 1)
373 #else
374  #define LAPACK_sbdsqr(...) LAPACK_sbdsqr_base(__VA_ARGS__)
375 #endif
376 
377 #define LAPACK_zbdsqr_base LAPACK_GLOBAL(zbdsqr,ZBDSQR)
378 void LAPACK_zbdsqr_base(
379  char const* uplo,
380  lapack_int const* n, lapack_int const* ncvt, lapack_int const* nru, lapack_int const* ncc,
381  double* D,
382  double* E,
383  lapack_complex_double* VT, lapack_int const* ldvt,
384  lapack_complex_double* U, lapack_int const* ldu,
385  lapack_complex_double* C, lapack_int const* ldc,
386  double* rwork,
387  lapack_int* info
388 #ifdef LAPACK_FORTRAN_STRLEN_END
389  , size_t
390 #endif
391 );
392 #ifdef LAPACK_FORTRAN_STRLEN_END
393  #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__, 1)
394 #else
395  #define LAPACK_zbdsqr(...) LAPACK_zbdsqr_base(__VA_ARGS__)
396 #endif
397 
398 #define LAPACK_dbdsvdx_base LAPACK_GLOBAL(dbdsvdx,DBDSVDX)
399 void LAPACK_dbdsvdx_base(
400  char const* uplo, char const* jobz, char const* range,
401  lapack_int const* n,
402  double const* D,
403  double const* E,
404  double const* vl,
405  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
406  double* S,
407  double* Z, lapack_int const* ldz,
408  double* work,
409  lapack_int* iwork,
410  lapack_int* info
411 #ifdef LAPACK_FORTRAN_STRLEN_END
412  , size_t, size_t, size_t
413 #endif
414 );
415 #ifdef LAPACK_FORTRAN_STRLEN_END
416  #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__, 1, 1, 1)
417 #else
418  #define LAPACK_dbdsvdx(...) LAPACK_dbdsvdx_base(__VA_ARGS__)
419 #endif
420 
421 #define LAPACK_sbdsvdx_base LAPACK_GLOBAL(sbdsvdx,SBDSVDX)
422 void LAPACK_sbdsvdx_base(
423  char const* uplo, char const* jobz, char const* range,
424  lapack_int const* n,
425  float const* D,
426  float const* E,
427  float const* vl,
428  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
429  float* S,
430  float* Z, lapack_int const* ldz,
431  float* work,
432  lapack_int* iwork,
433  lapack_int* info
434 #ifdef LAPACK_FORTRAN_STRLEN_END
435  , size_t, size_t, size_t
436 #endif
437 );
438 #ifdef LAPACK_FORTRAN_STRLEN_END
439  #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__, 1, 1, 1)
440 #else
441  #define LAPACK_sbdsvdx(...) LAPACK_sbdsvdx_base(__VA_ARGS__)
442 #endif
443 
444 #define LAPACK_ddisna_base LAPACK_GLOBAL(ddisna,DDISNA)
445 void LAPACK_ddisna_base(
446  char const* job,
447  lapack_int const* m, lapack_int const* n,
448  double const* D,
449  double* SEP,
450  lapack_int* info
451 #ifdef LAPACK_FORTRAN_STRLEN_END
452  , size_t
453 #endif
454 );
455 #ifdef LAPACK_FORTRAN_STRLEN_END
456  #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__, 1)
457 #else
458  #define LAPACK_ddisna(...) LAPACK_ddisna_base(__VA_ARGS__)
459 #endif
460 
461 #define LAPACK_sdisna_base LAPACK_GLOBAL(sdisna,SDISNA)
462 void LAPACK_sdisna_base(
463  char const* job,
464  lapack_int const* m, lapack_int const* n,
465  float const* D,
466  float* SEP,
467  lapack_int* info
468 #ifdef LAPACK_FORTRAN_STRLEN_END
469  , size_t
470 #endif
471 );
472 #ifdef LAPACK_FORTRAN_STRLEN_END
473  #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__, 1)
474 #else
475  #define LAPACK_sdisna(...) LAPACK_sdisna_base(__VA_ARGS__)
476 #endif
477 
478 #define LAPACK_cgbbrd_base LAPACK_GLOBAL(cgbbrd,CGBBRD)
479 void LAPACK_cgbbrd_base(
480  char const* vect,
481  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
482  lapack_complex_float* AB, lapack_int const* ldab,
483  float* D,
484  float* E,
485  lapack_complex_float* Q, lapack_int const* ldq,
486  lapack_complex_float* PT, lapack_int const* ldpt,
487  lapack_complex_float* C, lapack_int const* ldc,
488  lapack_complex_float* work,
489  float* rwork,
490  lapack_int* info
491 #ifdef LAPACK_FORTRAN_STRLEN_END
492  , size_t
493 #endif
494 );
495 #ifdef LAPACK_FORTRAN_STRLEN_END
496  #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__, 1)
497 #else
498  #define LAPACK_cgbbrd(...) LAPACK_cgbbrd_base(__VA_ARGS__)
499 #endif
500 
501 #define LAPACK_dgbbrd_base LAPACK_GLOBAL(dgbbrd,DGBBRD)
502 void LAPACK_dgbbrd_base(
503  char const* vect,
504  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
505  double* AB, lapack_int const* ldab,
506  double* D,
507  double* E,
508  double* Q, lapack_int const* ldq,
509  double* PT, lapack_int const* ldpt,
510  double* C, lapack_int const* ldc,
511  double* work,
512  lapack_int* info
513 #ifdef LAPACK_FORTRAN_STRLEN_END
514  , size_t
515 #endif
516 );
517 #ifdef LAPACK_FORTRAN_STRLEN_END
518  #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__, 1)
519 #else
520  #define LAPACK_dgbbrd(...) LAPACK_dgbbrd_base(__VA_ARGS__)
521 #endif
522 
523 #define LAPACK_sgbbrd_base LAPACK_GLOBAL(sgbbrd,SGBBRD)
524 void LAPACK_sgbbrd_base(
525  char const* vect,
526  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
527  float* AB, lapack_int const* ldab,
528  float* D,
529  float* E,
530  float* Q, lapack_int const* ldq,
531  float* PT, lapack_int const* ldpt,
532  float* C, lapack_int const* ldc,
533  float* work,
534  lapack_int* info
535 #ifdef LAPACK_FORTRAN_STRLEN_END
536  , size_t
537 #endif
538 );
539 #ifdef LAPACK_FORTRAN_STRLEN_END
540  #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__, 1)
541 #else
542  #define LAPACK_sgbbrd(...) LAPACK_sgbbrd_base(__VA_ARGS__)
543 #endif
544 
545 #define LAPACK_zgbbrd_base LAPACK_GLOBAL(zgbbrd,ZGBBRD)
546 void LAPACK_zgbbrd_base(
547  char const* vect,
548  lapack_int const* m, lapack_int const* n, lapack_int const* ncc, lapack_int const* kl, lapack_int const* ku,
549  lapack_complex_double* AB, lapack_int const* ldab,
550  double* D,
551  double* E,
552  lapack_complex_double* Q, lapack_int const* ldq,
553  lapack_complex_double* PT, lapack_int const* ldpt,
554  lapack_complex_double* C, lapack_int const* ldc,
555  lapack_complex_double* work,
556  double* rwork,
557  lapack_int* info
558 #ifdef LAPACK_FORTRAN_STRLEN_END
559  , size_t
560 #endif
561 );
562 #ifdef LAPACK_FORTRAN_STRLEN_END
563  #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__, 1)
564 #else
565  #define LAPACK_zgbbrd(...) LAPACK_zgbbrd_base(__VA_ARGS__)
566 #endif
567 
568 #define LAPACK_cgbcon_base LAPACK_GLOBAL(cgbcon,CGBCON)
569 void LAPACK_cgbcon_base(
570  char const* norm,
571  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
572  lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
573  float const* anorm,
574  float* rcond,
575  lapack_complex_float* work,
576  float* rwork,
577  lapack_int* info
578 #ifdef LAPACK_FORTRAN_STRLEN_END
579  , size_t
580 #endif
581 );
582 #ifdef LAPACK_FORTRAN_STRLEN_END
583  #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__, 1)
584 #else
585  #define LAPACK_cgbcon(...) LAPACK_cgbcon_base(__VA_ARGS__)
586 #endif
587 
588 #define LAPACK_dgbcon_base LAPACK_GLOBAL(dgbcon,DGBCON)
589 void LAPACK_dgbcon_base(
590  char const* norm,
591  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
592  double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
593  double const* anorm,
594  double* rcond,
595  double* work,
596  lapack_int* iwork,
597  lapack_int* info
598 #ifdef LAPACK_FORTRAN_STRLEN_END
599  , size_t
600 #endif
601 );
602 #ifdef LAPACK_FORTRAN_STRLEN_END
603  #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__, 1)
604 #else
605  #define LAPACK_dgbcon(...) LAPACK_dgbcon_base(__VA_ARGS__)
606 #endif
607 
608 #define LAPACK_sgbcon_base LAPACK_GLOBAL(sgbcon,SGBCON)
609 void LAPACK_sgbcon_base(
610  char const* norm,
611  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
612  float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
613  float const* anorm,
614  float* rcond,
615  float* work,
616  lapack_int* iwork,
617  lapack_int* info
618 #ifdef LAPACK_FORTRAN_STRLEN_END
619  , size_t
620 #endif
621 );
622 #ifdef LAPACK_FORTRAN_STRLEN_END
623  #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__, 1)
624 #else
625  #define LAPACK_sgbcon(...) LAPACK_sgbcon_base(__VA_ARGS__)
626 #endif
627 
628 #define LAPACK_zgbcon_base LAPACK_GLOBAL(zgbcon,ZGBCON)
629 void LAPACK_zgbcon_base(
630  char const* norm,
631  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
632  lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
633  double const* anorm,
634  double* rcond,
635  lapack_complex_double* work,
636  double* rwork,
637  lapack_int* info
638 #ifdef LAPACK_FORTRAN_STRLEN_END
639  , size_t
640 #endif
641 );
642 #ifdef LAPACK_FORTRAN_STRLEN_END
643  #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__, 1)
644 #else
645  #define LAPACK_zgbcon(...) LAPACK_zgbcon_base(__VA_ARGS__)
646 #endif
647 
648 #define LAPACK_cgbequ LAPACK_GLOBAL(cgbequ,CGBEQU)
649 void LAPACK_cgbequ(
650  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
651  lapack_complex_float const* AB, lapack_int const* ldab,
652  float* R,
653  float* C,
654  float* rowcnd,
655  float* colcnd,
656  float* amax,
657  lapack_int* info );
658 
659 #define LAPACK_dgbequ LAPACK_GLOBAL(dgbequ,DGBEQU)
660 void LAPACK_dgbequ(
661  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
662  double const* AB, lapack_int const* ldab,
663  double* R,
664  double* C,
665  double* rowcnd,
666  double* colcnd,
667  double* amax,
668  lapack_int* info );
669 
670 #define LAPACK_sgbequ LAPACK_GLOBAL(sgbequ,SGBEQU)
671 void LAPACK_sgbequ(
672  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
673  float const* AB, lapack_int const* ldab,
674  float* R,
675  float* C,
676  float* rowcnd,
677  float* colcnd,
678  float* amax,
679  lapack_int* info );
680 
681 #define LAPACK_zgbequ LAPACK_GLOBAL(zgbequ,ZGBEQU)
682 void LAPACK_zgbequ(
683  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
684  lapack_complex_double const* AB, lapack_int const* ldab,
685  double* R,
686  double* C,
687  double* rowcnd,
688  double* colcnd,
689  double* amax,
690  lapack_int* info );
691 
692 #define LAPACK_cgbequb LAPACK_GLOBAL(cgbequb,CGBEQUB)
693 void LAPACK_cgbequb(
694  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
695  lapack_complex_float const* AB, lapack_int const* ldab,
696  float* R,
697  float* C,
698  float* rowcnd,
699  float* colcnd,
700  float* amax,
701  lapack_int* info );
702 
703 #define LAPACK_dgbequb LAPACK_GLOBAL(dgbequb,DGBEQUB)
704 void LAPACK_dgbequb(
705  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
706  double const* AB, lapack_int const* ldab,
707  double* R,
708  double* C,
709  double* rowcnd,
710  double* colcnd,
711  double* amax,
712  lapack_int* info );
713 
714 #define LAPACK_sgbequb LAPACK_GLOBAL(sgbequb,SGBEQUB)
715 void LAPACK_sgbequb(
716  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
717  float const* AB, lapack_int const* ldab,
718  float* R,
719  float* C,
720  float* rowcnd,
721  float* colcnd,
722  float* amax,
723  lapack_int* info );
724 
725 #define LAPACK_zgbequb LAPACK_GLOBAL(zgbequb,ZGBEQUB)
726 void LAPACK_zgbequb(
727  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
728  lapack_complex_double const* AB, lapack_int const* ldab,
729  double* R,
730  double* C,
731  double* rowcnd,
732  double* colcnd,
733  double* amax,
734  lapack_int* info );
735 
736 #define LAPACK_cgbrfs_base LAPACK_GLOBAL(cgbrfs,CGBRFS)
737 void LAPACK_cgbrfs_base(
738  char const* trans,
739  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
740  lapack_complex_float const* AB, lapack_int const* ldab,
741  lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
742  lapack_complex_float const* B, lapack_int const* ldb,
743  lapack_complex_float* X, lapack_int const* ldx,
744  float* ferr,
745  float* berr,
746  lapack_complex_float* work,
747  float* rwork,
748  lapack_int* info
749 #ifdef LAPACK_FORTRAN_STRLEN_END
750  , size_t
751 #endif
752 );
753 #ifdef LAPACK_FORTRAN_STRLEN_END
754  #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__, 1)
755 #else
756  #define LAPACK_cgbrfs(...) LAPACK_cgbrfs_base(__VA_ARGS__)
757 #endif
758 
759 #define LAPACK_dgbrfs_base LAPACK_GLOBAL(dgbrfs,DGBRFS)
760 void LAPACK_dgbrfs_base(
761  char const* trans,
762  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
763  double const* AB, lapack_int const* ldab,
764  double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
765  double const* B, lapack_int const* ldb,
766  double* X, lapack_int const* ldx,
767  double* ferr,
768  double* berr,
769  double* work,
770  lapack_int* iwork,
771  lapack_int* info
772 #ifdef LAPACK_FORTRAN_STRLEN_END
773  , size_t
774 #endif
775 );
776 #ifdef LAPACK_FORTRAN_STRLEN_END
777  #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__, 1)
778 #else
779  #define LAPACK_dgbrfs(...) LAPACK_dgbrfs_base(__VA_ARGS__)
780 #endif
781 
782 #define LAPACK_sgbrfs_base LAPACK_GLOBAL(sgbrfs,SGBRFS)
783 void LAPACK_sgbrfs_base(
784  char const* trans,
785  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
786  float const* AB, lapack_int const* ldab,
787  float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
788  float const* B, lapack_int const* ldb,
789  float* X, lapack_int const* ldx,
790  float* ferr,
791  float* berr,
792  float* work,
793  lapack_int* iwork,
794  lapack_int* info
795 #ifdef LAPACK_FORTRAN_STRLEN_END
796  , size_t
797 #endif
798 );
799 #ifdef LAPACK_FORTRAN_STRLEN_END
800  #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__, 1)
801 #else
802  #define LAPACK_sgbrfs(...) LAPACK_sgbrfs_base(__VA_ARGS__)
803 #endif
804 
805 #define LAPACK_zgbrfs_base LAPACK_GLOBAL(zgbrfs,ZGBRFS)
806 void LAPACK_zgbrfs_base(
807  char const* trans,
808  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
809  lapack_complex_double const* AB, lapack_int const* ldab,
810  lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
811  lapack_complex_double const* B, lapack_int const* ldb,
812  lapack_complex_double* X, lapack_int const* ldx,
813  double* ferr,
814  double* berr,
815  lapack_complex_double* work,
816  double* rwork,
817  lapack_int* info
818 #ifdef LAPACK_FORTRAN_STRLEN_END
819  , size_t
820 #endif
821 );
822 #ifdef LAPACK_FORTRAN_STRLEN_END
823  #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__, 1)
824 #else
825  #define LAPACK_zgbrfs(...) LAPACK_zgbrfs_base(__VA_ARGS__)
826 #endif
827 
828 #define LAPACK_cgbrfsx_base LAPACK_GLOBAL(cgbrfsx,CGBRFSX)
829 void LAPACK_cgbrfsx_base(
830  char const* trans, char const* equed,
831  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
832  lapack_complex_float const* AB, lapack_int const* ldab,
833  lapack_complex_float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
834  const float* R,
835  const float* C,
836  lapack_complex_float const* B, lapack_int const* ldb,
837  lapack_complex_float* X, lapack_int const* ldx,
838  float* rcond,
839  float* berr, lapack_int const* n_err_bnds,
840  float* err_bnds_norm,
841  float* err_bnds_comp, lapack_int const* nparams,
842  float* params,
843  lapack_complex_float* work,
844  float* rwork,
845  lapack_int* info
846 #ifdef LAPACK_FORTRAN_STRLEN_END
847  , size_t, size_t
848 #endif
849 );
850 #ifdef LAPACK_FORTRAN_STRLEN_END
851  #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__, 1, 1)
852 #else
853  #define LAPACK_cgbrfsx(...) LAPACK_cgbrfsx_base(__VA_ARGS__)
854 #endif
855 
856 #define LAPACK_dgbrfsx_base LAPACK_GLOBAL(dgbrfsx,DGBRFSX)
857 void LAPACK_dgbrfsx_base(
858  char const* trans, char const* equed,
859  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
860  double const* AB, lapack_int const* ldab,
861  double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
862  const double* R,
863  const double* C,
864  double const* B, lapack_int const* ldb,
865  double* X, lapack_int const* ldx,
866  double* rcond,
867  double* berr, lapack_int const* n_err_bnds,
868  double* err_bnds_norm,
869  double* err_bnds_comp, lapack_int const* nparams,
870  double* params,
871  double* work,
872  lapack_int* iwork,
873  lapack_int* info
874 #ifdef LAPACK_FORTRAN_STRLEN_END
875  , size_t, size_t
876 #endif
877 );
878 #ifdef LAPACK_FORTRAN_STRLEN_END
879  #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__, 1, 1)
880 #else
881  #define LAPACK_dgbrfsx(...) LAPACK_dgbrfsx_base(__VA_ARGS__)
882 #endif
883 
884 #define LAPACK_sgbrfsx_base LAPACK_GLOBAL(sgbrfsx,SGBRFSX)
885 void LAPACK_sgbrfsx_base(
886  char const* trans, char const* equed,
887  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
888  float const* AB, lapack_int const* ldab,
889  float const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
890  const float* R,
891  const float* C,
892  float const* B, lapack_int const* ldb,
893  float* X, lapack_int const* ldx,
894  float* rcond,
895  float* berr, lapack_int const* n_err_bnds,
896  float* err_bnds_norm,
897  float* err_bnds_comp, lapack_int const* nparams,
898  float* params,
899  float* work,
900  lapack_int* iwork,
901  lapack_int* info
902 #ifdef LAPACK_FORTRAN_STRLEN_END
903  , size_t, size_t
904 #endif
905 );
906 #ifdef LAPACK_FORTRAN_STRLEN_END
907  #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__, 1, 1)
908 #else
909  #define LAPACK_sgbrfsx(...) LAPACK_sgbrfsx_base(__VA_ARGS__)
910 #endif
911 
912 #define LAPACK_zgbrfsx_base LAPACK_GLOBAL(zgbrfsx,ZGBRFSX)
913 void LAPACK_zgbrfsx_base(
914  char const* trans, char const* equed,
915  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
916  lapack_complex_double const* AB, lapack_int const* ldab,
917  lapack_complex_double const* AFB, lapack_int const* ldafb, lapack_int const* ipiv,
918  const double* R,
919  const double* C,
920  lapack_complex_double const* B, lapack_int const* ldb,
921  lapack_complex_double* X, lapack_int const* ldx,
922  double* rcond,
923  double* berr, lapack_int const* n_err_bnds,
924  double* err_bnds_norm,
925  double* err_bnds_comp, lapack_int const* nparams,
926  double* params,
927  lapack_complex_double* work,
928  double* rwork,
929  lapack_int* info
930 #ifdef LAPACK_FORTRAN_STRLEN_END
931  , size_t, size_t
932 #endif
933 );
934 #ifdef LAPACK_FORTRAN_STRLEN_END
935  #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__, 1, 1)
936 #else
937  #define LAPACK_zgbrfsx(...) LAPACK_zgbrfsx_base(__VA_ARGS__)
938 #endif
939 
940 #define LAPACK_cgbsv LAPACK_GLOBAL(cgbsv,CGBSV)
941 void LAPACK_cgbsv(
942  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
943  lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
944  lapack_complex_float* B, lapack_int const* ldb,
945  lapack_int* info );
946 
947 #define LAPACK_dgbsv LAPACK_GLOBAL(dgbsv,DGBSV)
948 void LAPACK_dgbsv(
949  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
950  double* AB, lapack_int const* ldab, lapack_int* ipiv,
951  double* B, lapack_int const* ldb,
952  lapack_int* info );
953 
954 #define LAPACK_sgbsv LAPACK_GLOBAL(sgbsv,SGBSV)
955 void LAPACK_sgbsv(
956  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
957  float* AB, lapack_int const* ldab, lapack_int* ipiv,
958  float* B, lapack_int const* ldb,
959  lapack_int* info );
960 
961 #define LAPACK_zgbsv LAPACK_GLOBAL(zgbsv,ZGBSV)
962 void LAPACK_zgbsv(
963  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
964  lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
965  lapack_complex_double* B, lapack_int const* ldb,
966  lapack_int* info );
967 
968 #define LAPACK_cgbsvx_base LAPACK_GLOBAL(cgbsvx,CGBSVX)
969 void LAPACK_cgbsvx_base(
970  char const* fact, char const* trans,
971  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
972  lapack_complex_float* AB, lapack_int const* ldab,
973  lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
974  float* R,
975  float* C,
976  lapack_complex_float* B,
977  lapack_int const* ldb,
978  lapack_complex_float* X, lapack_int const* ldx,
979  float* rcond,
980  float* ferr,
981  float* berr,
982  lapack_complex_float* work,
983  float* rwork,
984  lapack_int* info
985 #ifdef LAPACK_FORTRAN_STRLEN_END
986  , size_t, size_t, size_t
987 #endif
988 );
989 #ifdef LAPACK_FORTRAN_STRLEN_END
990  #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__, 1, 1, 1)
991 #else
992  #define LAPACK_cgbsvx(...) LAPACK_cgbsvx_base(__VA_ARGS__)
993 #endif
994 
995 #define LAPACK_dgbsvx_base LAPACK_GLOBAL(dgbsvx,DGBSVX)
996 void LAPACK_dgbsvx_base(
997  char const* fact, char const* trans,
998  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
999  double* AB, lapack_int const* ldab,
1000  double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1001  double* R,
1002  double* C,
1003  double* B,
1004  lapack_int const* ldb,
1005  double* X, lapack_int const* ldx,
1006  double* rcond,
1007  double* ferr,
1008  double* berr,
1009  double* work,
1010  lapack_int* iwork,
1011  lapack_int* info
1012 #ifdef LAPACK_FORTRAN_STRLEN_END
1013  , size_t, size_t, size_t
1014 #endif
1015 );
1016 #ifdef LAPACK_FORTRAN_STRLEN_END
1017  #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__, 1, 1, 1)
1018 #else
1019  #define LAPACK_dgbsvx(...) LAPACK_dgbsvx_base(__VA_ARGS__)
1020 #endif
1021 
1022 #define LAPACK_sgbsvx_base LAPACK_GLOBAL(sgbsvx,SGBSVX)
1023 void LAPACK_sgbsvx_base(
1024  char const* fact, char const* trans,
1025  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1026  float* AB, lapack_int const* ldab,
1027  float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1028  float* R,
1029  float* C,
1030  float* B,
1031  lapack_int const* ldb,
1032  float* X, lapack_int const* ldx,
1033  float* rcond,
1034  float* ferr,
1035  float* berr,
1036  float* work,
1037  lapack_int* iwork,
1038  lapack_int* info
1039 #ifdef LAPACK_FORTRAN_STRLEN_END
1040  , size_t, size_t, size_t
1041 #endif
1042 );
1043 #ifdef LAPACK_FORTRAN_STRLEN_END
1044  #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__, 1, 1, 1)
1045 #else
1046  #define LAPACK_sgbsvx(...) LAPACK_sgbsvx_base(__VA_ARGS__)
1047 #endif
1048 
1049 #define LAPACK_zgbsvx_base LAPACK_GLOBAL(zgbsvx,ZGBSVX)
1050 void LAPACK_zgbsvx_base(
1051  char const* fact, char const* trans,
1052  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1053  lapack_complex_double* AB, lapack_int const* ldab,
1054  lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1055  double* R,
1056  double* C,
1057  lapack_complex_double* B,
1058  lapack_int const* ldb,
1059  lapack_complex_double* X, lapack_int const* ldx,
1060  double* rcond,
1061  double* ferr,
1062  double* berr,
1063  lapack_complex_double* work,
1064  double* rwork,
1065  lapack_int* info
1066 #ifdef LAPACK_FORTRAN_STRLEN_END
1067  , size_t, size_t, size_t
1068 #endif
1069 );
1070 #ifdef LAPACK_FORTRAN_STRLEN_END
1071  #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__, 1, 1, 1)
1072 #else
1073  #define LAPACK_zgbsvx(...) LAPACK_zgbsvx_base(__VA_ARGS__)
1074 #endif
1075 
1076 #define LAPACK_cgbsvxx_base LAPACK_GLOBAL(cgbsvxx,CGBSVXX)
1077 void LAPACK_cgbsvxx_base(
1078  char const* fact, char const* trans,
1079  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1080  lapack_complex_float* AB, lapack_int const* ldab,
1081  lapack_complex_float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1082  float* R,
1083  float* C,
1084  lapack_complex_float* B,
1085  lapack_int const* ldb,
1086  lapack_complex_float* X, lapack_int const* ldx,
1087  float* rcond,
1088  float* rpvgrw,
1089  float* berr, lapack_int const* n_err_bnds,
1090  float* err_bnds_norm,
1091  float* err_bnds_comp, lapack_int const* nparams,
1092  float* params,
1093  lapack_complex_float* work,
1094  float* rwork,
1095  lapack_int* info
1096 #ifdef LAPACK_FORTRAN_STRLEN_END
1097  , size_t, size_t, size_t
1098 #endif
1099 );
1100 #ifdef LAPACK_FORTRAN_STRLEN_END
1101  #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1102 #else
1103  #define LAPACK_cgbsvxx(...) LAPACK_cgbsvxx_base(__VA_ARGS__)
1104 #endif
1105 
1106 #define LAPACK_dgbsvxx_base LAPACK_GLOBAL(dgbsvxx,DGBSVXX)
1107 void LAPACK_dgbsvxx_base(
1108  char const* fact, char const* trans,
1109  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1110  double* AB, lapack_int const* ldab,
1111  double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1112  double* R,
1113  double* C,
1114  double* B,
1115  lapack_int const* ldb,
1116  double* X, lapack_int const* ldx,
1117  double* rcond,
1118  double* rpvgrw,
1119  double* berr, lapack_int const* n_err_bnds,
1120  double* err_bnds_norm,
1121  double* err_bnds_comp, lapack_int const* nparams,
1122  double* params,
1123  double* work,
1124  lapack_int* iwork,
1125  lapack_int* info
1126 #ifdef LAPACK_FORTRAN_STRLEN_END
1127  , size_t, size_t, size_t
1128 #endif
1129 );
1130 #ifdef LAPACK_FORTRAN_STRLEN_END
1131  #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1132 #else
1133  #define LAPACK_dgbsvxx(...) LAPACK_dgbsvxx_base(__VA_ARGS__)
1134 #endif
1135 
1136 #define LAPACK_sgbsvxx_base LAPACK_GLOBAL(sgbsvxx,SGBSVXX)
1137 void LAPACK_sgbsvxx_base(
1138  char const* fact, char const* trans,
1139  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1140  float* AB, lapack_int const* ldab,
1141  float* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1142  float* R,
1143  float* C,
1144  float* B,
1145  lapack_int const* ldb,
1146  float* X, lapack_int const* ldx,
1147  float* rcond,
1148  float* rpvgrw,
1149  float* berr, lapack_int const* n_err_bnds,
1150  float* err_bnds_norm,
1151  float* err_bnds_comp, lapack_int const* nparams,
1152  float* params,
1153  float* work,
1154  lapack_int* iwork,
1155  lapack_int* info
1156 #ifdef LAPACK_FORTRAN_STRLEN_END
1157  , size_t, size_t, size_t
1158 #endif
1159 );
1160 #ifdef LAPACK_FORTRAN_STRLEN_END
1161  #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1162 #else
1163  #define LAPACK_sgbsvxx(...) LAPACK_sgbsvxx_base(__VA_ARGS__)
1164 #endif
1165 
1166 #define LAPACK_zgbsvxx_base LAPACK_GLOBAL(zgbsvxx,ZGBSVXX)
1167 void LAPACK_zgbsvxx_base(
1168  char const* fact, char const* trans,
1169  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1170  lapack_complex_double* AB, lapack_int const* ldab,
1171  lapack_complex_double* AFB, lapack_int const* ldafb, lapack_int* ipiv, char* equed,
1172  double* R,
1173  double* C,
1174  lapack_complex_double* B,
1175  lapack_int const* ldb,
1176  lapack_complex_double* X, lapack_int const* ldx,
1177  double* rcond,
1178  double* rpvgrw,
1179  double* berr, lapack_int const* n_err_bnds,
1180  double* err_bnds_norm,
1181  double* err_bnds_comp, lapack_int const* nparams,
1182  double* params,
1183  lapack_complex_double* work,
1184  double* rwork,
1185  lapack_int* info
1186 #ifdef LAPACK_FORTRAN_STRLEN_END
1187  , size_t, size_t, size_t
1188 #endif
1189 );
1190 #ifdef LAPACK_FORTRAN_STRLEN_END
1191  #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__, 1, 1, 1)
1192 #else
1193  #define LAPACK_zgbsvxx(...) LAPACK_zgbsvxx_base(__VA_ARGS__)
1194 #endif
1195 
1196 #define LAPACK_cgbtrf LAPACK_GLOBAL(cgbtrf,CGBTRF)
1197 void LAPACK_cgbtrf(
1198  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1199  lapack_complex_float* AB, lapack_int const* ldab, lapack_int* ipiv,
1200  lapack_int* info );
1201 
1202 #define LAPACK_dgbtrf LAPACK_GLOBAL(dgbtrf,DGBTRF)
1203 void LAPACK_dgbtrf(
1204  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1205  double* AB, lapack_int const* ldab, lapack_int* ipiv,
1206  lapack_int* info );
1207 
1208 #define LAPACK_sgbtrf LAPACK_GLOBAL(sgbtrf,SGBTRF)
1209 void LAPACK_sgbtrf(
1210  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1211  float* AB, lapack_int const* ldab, lapack_int* ipiv,
1212  lapack_int* info );
1213 
1214 #define LAPACK_zgbtrf LAPACK_GLOBAL(zgbtrf,ZGBTRF)
1215 void LAPACK_zgbtrf(
1216  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
1217  lapack_complex_double* AB, lapack_int const* ldab, lapack_int* ipiv,
1218  lapack_int* info );
1219 
1220 #define LAPACK_cgbtrs_base LAPACK_GLOBAL(cgbtrs,CGBTRS)
1221 void LAPACK_cgbtrs_base(
1222  char const* trans,
1223  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1224  lapack_complex_float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1225  lapack_complex_float* B, lapack_int const* ldb,
1226  lapack_int* info
1227 #ifdef LAPACK_FORTRAN_STRLEN_END
1228  , size_t
1229 #endif
1230 );
1231 #ifdef LAPACK_FORTRAN_STRLEN_END
1232  #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__, 1)
1233 #else
1234  #define LAPACK_cgbtrs(...) LAPACK_cgbtrs_base(__VA_ARGS__)
1235 #endif
1236 
1237 #define LAPACK_dgbtrs_base LAPACK_GLOBAL(dgbtrs,DGBTRS)
1238 void LAPACK_dgbtrs_base(
1239  char const* trans,
1240  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1241  double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1242  double* B, lapack_int const* ldb,
1243  lapack_int* info
1244 #ifdef LAPACK_FORTRAN_STRLEN_END
1245  , size_t
1246 #endif
1247 );
1248 #ifdef LAPACK_FORTRAN_STRLEN_END
1249  #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__, 1)
1250 #else
1251  #define LAPACK_dgbtrs(...) LAPACK_dgbtrs_base(__VA_ARGS__)
1252 #endif
1253 
1254 #define LAPACK_sgbtrs_base LAPACK_GLOBAL(sgbtrs,SGBTRS)
1255 void LAPACK_sgbtrs_base(
1256  char const* trans,
1257  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1258  float const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1259  float* B, lapack_int const* ldb,
1260  lapack_int* info
1261 #ifdef LAPACK_FORTRAN_STRLEN_END
1262  , size_t
1263 #endif
1264 );
1265 #ifdef LAPACK_FORTRAN_STRLEN_END
1266  #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__, 1)
1267 #else
1268  #define LAPACK_sgbtrs(...) LAPACK_sgbtrs_base(__VA_ARGS__)
1269 #endif
1270 
1271 #define LAPACK_zgbtrs_base LAPACK_GLOBAL(zgbtrs,ZGBTRS)
1272 void LAPACK_zgbtrs_base(
1273  char const* trans,
1274  lapack_int const* n, lapack_int const* kl, lapack_int const* ku, lapack_int const* nrhs,
1275  lapack_complex_double const* AB, lapack_int const* ldab, lapack_int const* ipiv,
1276  lapack_complex_double* B, lapack_int const* ldb,
1277  lapack_int* info
1278 #ifdef LAPACK_FORTRAN_STRLEN_END
1279  , size_t
1280 #endif
1281 );
1282 #ifdef LAPACK_FORTRAN_STRLEN_END
1283  #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__, 1)
1284 #else
1285  #define LAPACK_zgbtrs(...) LAPACK_zgbtrs_base(__VA_ARGS__)
1286 #endif
1287 
1288 #define LAPACK_cgebak_base LAPACK_GLOBAL(cgebak,CGEBAK)
1289 void LAPACK_cgebak_base(
1290  char const* job, char const* side,
1291  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1292  float const* scale, lapack_int const* m,
1293  lapack_complex_float* V, lapack_int const* ldv,
1294  lapack_int* info
1295 #ifdef LAPACK_FORTRAN_STRLEN_END
1296  , size_t, size_t
1297 #endif
1298 );
1299 #ifdef LAPACK_FORTRAN_STRLEN_END
1300  #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__, 1, 1)
1301 #else
1302  #define LAPACK_cgebak(...) LAPACK_cgebak_base(__VA_ARGS__)
1303 #endif
1304 
1305 #define LAPACK_dgebak_base LAPACK_GLOBAL(dgebak,DGEBAK)
1306 void LAPACK_dgebak_base(
1307  char const* job, char const* side,
1308  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1309  double const* scale, lapack_int const* m,
1310  double* V, lapack_int const* ldv,
1311  lapack_int* info
1312 #ifdef LAPACK_FORTRAN_STRLEN_END
1313  , size_t, size_t
1314 #endif
1315 );
1316 #ifdef LAPACK_FORTRAN_STRLEN_END
1317  #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__, 1, 1)
1318 #else
1319  #define LAPACK_dgebak(...) LAPACK_dgebak_base(__VA_ARGS__)
1320 #endif
1321 
1322 #define LAPACK_sgebak_base LAPACK_GLOBAL(sgebak,SGEBAK)
1323 void LAPACK_sgebak_base(
1324  char const* job, char const* side,
1325  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1326  float const* scale, lapack_int const* m,
1327  float* V, lapack_int const* ldv,
1328  lapack_int* info
1329 #ifdef LAPACK_FORTRAN_STRLEN_END
1330  , size_t, size_t
1331 #endif
1332 );
1333 #ifdef LAPACK_FORTRAN_STRLEN_END
1334  #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__, 1, 1)
1335 #else
1336  #define LAPACK_sgebak(...) LAPACK_sgebak_base(__VA_ARGS__)
1337 #endif
1338 
1339 #define LAPACK_zgebak_base LAPACK_GLOBAL(zgebak,ZGEBAK)
1340 void LAPACK_zgebak_base(
1341  char const* job, char const* side,
1342  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1343  double const* scale, lapack_int const* m,
1344  lapack_complex_double* V, lapack_int const* ldv,
1345  lapack_int* info
1346 #ifdef LAPACK_FORTRAN_STRLEN_END
1347  , size_t, size_t
1348 #endif
1349 );
1350 #ifdef LAPACK_FORTRAN_STRLEN_END
1351  #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__, 1, 1)
1352 #else
1353  #define LAPACK_zgebak(...) LAPACK_zgebak_base(__VA_ARGS__)
1354 #endif
1355 
1356 #define LAPACK_cgebal_base LAPACK_GLOBAL(cgebal,CGEBAL)
1357 void LAPACK_cgebal_base(
1358  char const* job,
1359  lapack_int const* n,
1360  lapack_complex_float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1361  float* scale,
1362  lapack_int* info
1363 #ifdef LAPACK_FORTRAN_STRLEN_END
1364  , size_t
1365 #endif
1366 );
1367 #ifdef LAPACK_FORTRAN_STRLEN_END
1368  #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__, 1)
1369 #else
1370  #define LAPACK_cgebal(...) LAPACK_cgebal_base(__VA_ARGS__)
1371 #endif
1372 
1373 #define LAPACK_dgebal_base LAPACK_GLOBAL(dgebal,DGEBAL)
1374 void LAPACK_dgebal_base(
1375  char const* job,
1376  lapack_int const* n,
1377  double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1378  double* scale,
1379  lapack_int* info
1380 #ifdef LAPACK_FORTRAN_STRLEN_END
1381  , size_t
1382 #endif
1383 );
1384 #ifdef LAPACK_FORTRAN_STRLEN_END
1385  #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__, 1)
1386 #else
1387  #define LAPACK_dgebal(...) LAPACK_dgebal_base(__VA_ARGS__)
1388 #endif
1389 
1390 #define LAPACK_sgebal_base LAPACK_GLOBAL(sgebal,SGEBAL)
1391 void LAPACK_sgebal_base(
1392  char const* job,
1393  lapack_int const* n,
1394  float* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1395  float* scale,
1396  lapack_int* info
1397 #ifdef LAPACK_FORTRAN_STRLEN_END
1398  , size_t
1399 #endif
1400 );
1401 #ifdef LAPACK_FORTRAN_STRLEN_END
1402  #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__, 1)
1403 #else
1404  #define LAPACK_sgebal(...) LAPACK_sgebal_base(__VA_ARGS__)
1405 #endif
1406 
1407 #define LAPACK_zgebal_base LAPACK_GLOBAL(zgebal,ZGEBAL)
1408 void LAPACK_zgebal_base(
1409  char const* job,
1410  lapack_int const* n,
1411  lapack_complex_double* A, lapack_int const* lda, lapack_int* ilo, lapack_int* ihi,
1412  double* scale,
1413  lapack_int* info
1414 #ifdef LAPACK_FORTRAN_STRLEN_END
1415  , size_t
1416 #endif
1417 );
1418 #ifdef LAPACK_FORTRAN_STRLEN_END
1419  #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__, 1)
1420 #else
1421  #define LAPACK_zgebal(...) LAPACK_zgebal_base(__VA_ARGS__)
1422 #endif
1423 
1424 #define LAPACK_cgebrd LAPACK_GLOBAL(cgebrd,CGEBRD)
1425 void LAPACK_cgebrd(
1426  lapack_int const* m, lapack_int const* n,
1427  lapack_complex_float* A, lapack_int const* lda,
1428  float* D,
1429  float* E,
1430  lapack_complex_float* tauq,
1431  lapack_complex_float* taup,
1432  lapack_complex_float* work, lapack_int const* lwork,
1433  lapack_int* info );
1434 
1435 #define LAPACK_dgebrd LAPACK_GLOBAL(dgebrd,DGEBRD)
1436 void LAPACK_dgebrd(
1437  lapack_int const* m, lapack_int const* n,
1438  double* A, lapack_int const* lda,
1439  double* D,
1440  double* E,
1441  double* tauq,
1442  double* taup,
1443  double* work, lapack_int const* lwork,
1444  lapack_int* info );
1445 
1446 #define LAPACK_sgebrd LAPACK_GLOBAL(sgebrd,SGEBRD)
1447 void LAPACK_sgebrd(
1448  lapack_int const* m, lapack_int const* n,
1449  float* A, lapack_int const* lda,
1450  float* D,
1451  float* E,
1452  float* tauq,
1453  float* taup,
1454  float* work, lapack_int const* lwork,
1455  lapack_int* info );
1456 
1457 #define LAPACK_zgebrd LAPACK_GLOBAL(zgebrd,ZGEBRD)
1458 void LAPACK_zgebrd(
1459  lapack_int const* m, lapack_int const* n,
1460  lapack_complex_double* A, lapack_int const* lda,
1461  double* D,
1462  double* E,
1463  lapack_complex_double* tauq,
1464  lapack_complex_double* taup,
1465  lapack_complex_double* work, lapack_int const* lwork,
1466  lapack_int* info );
1467 
1468 #define LAPACK_cgecon_base LAPACK_GLOBAL(cgecon,CGECON)
1469 void LAPACK_cgecon_base(
1470  char const* norm,
1471  lapack_int const* n,
1472  lapack_complex_float const* A, lapack_int const* lda,
1473  float const* anorm,
1474  float* rcond,
1475  lapack_complex_float* work,
1476  float* rwork,
1477  lapack_int* info
1478 #ifdef LAPACK_FORTRAN_STRLEN_END
1479  , size_t
1480 #endif
1481 );
1482 #ifdef LAPACK_FORTRAN_STRLEN_END
1483  #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__, 1)
1484 #else
1485  #define LAPACK_cgecon(...) LAPACK_cgecon_base(__VA_ARGS__)
1486 #endif
1487 
1488 #define LAPACK_dgecon_base LAPACK_GLOBAL(dgecon,DGECON)
1489 void LAPACK_dgecon_base(
1490  char const* norm,
1491  lapack_int const* n,
1492  double const* A, lapack_int const* lda,
1493  double const* anorm,
1494  double* rcond,
1495  double* work,
1496  lapack_int* iwork,
1497  lapack_int* info
1498 #ifdef LAPACK_FORTRAN_STRLEN_END
1499  , size_t
1500 #endif
1501 );
1502 #ifdef LAPACK_FORTRAN_STRLEN_END
1503  #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__, 1)
1504 #else
1505  #define LAPACK_dgecon(...) LAPACK_dgecon_base(__VA_ARGS__)
1506 #endif
1507 
1508 #define LAPACK_sgecon_base LAPACK_GLOBAL(sgecon,SGECON)
1509 void LAPACK_sgecon_base(
1510  char const* norm,
1511  lapack_int const* n,
1512  float const* A, lapack_int const* lda,
1513  float const* anorm,
1514  float* rcond,
1515  float* work,
1516  lapack_int* iwork,
1517  lapack_int* info
1518 #ifdef LAPACK_FORTRAN_STRLEN_END
1519  , size_t
1520 #endif
1521 );
1522 #ifdef LAPACK_FORTRAN_STRLEN_END
1523  #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__, 1)
1524 #else
1525  #define LAPACK_sgecon(...) LAPACK_sgecon_base(__VA_ARGS__)
1526 #endif
1527 
1528 #define LAPACK_zgecon_base LAPACK_GLOBAL(zgecon,ZGECON)
1529 void LAPACK_zgecon_base(
1530  char const* norm,
1531  lapack_int const* n,
1532  lapack_complex_double const* A, lapack_int const* lda,
1533  double const* anorm,
1534  double* rcond,
1535  lapack_complex_double* work,
1536  double* rwork,
1537  lapack_int* info
1538 #ifdef LAPACK_FORTRAN_STRLEN_END
1539  , size_t
1540 #endif
1541 );
1542 #ifdef LAPACK_FORTRAN_STRLEN_END
1543  #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__, 1)
1544 #else
1545  #define LAPACK_zgecon(...) LAPACK_zgecon_base(__VA_ARGS__)
1546 #endif
1547 
1548 #define LAPACK_cgeequ LAPACK_GLOBAL(cgeequ,CGEEQU)
1549 void LAPACK_cgeequ(
1550  lapack_int const* m, lapack_int const* n,
1551  lapack_complex_float const* A, lapack_int const* lda,
1552  float* R,
1553  float* C,
1554  float* rowcnd,
1555  float* colcnd,
1556  float* amax,
1557  lapack_int* info );
1558 
1559 #define LAPACK_dgeequ LAPACK_GLOBAL(dgeequ,DGEEQU)
1560 void LAPACK_dgeequ(
1561  lapack_int const* m, lapack_int const* n,
1562  double const* A, lapack_int const* lda,
1563  double* R,
1564  double* C,
1565  double* rowcnd,
1566  double* colcnd,
1567  double* amax,
1568  lapack_int* info );
1569 
1570 #define LAPACK_sgeequ LAPACK_GLOBAL(sgeequ,SGEEQU)
1571 void LAPACK_sgeequ(
1572  lapack_int const* m, lapack_int const* n,
1573  float const* A, lapack_int const* lda,
1574  float* R,
1575  float* C,
1576  float* rowcnd,
1577  float* colcnd,
1578  float* amax,
1579  lapack_int* info );
1580 
1581 #define LAPACK_zgeequ LAPACK_GLOBAL(zgeequ,ZGEEQU)
1582 void LAPACK_zgeequ(
1583  lapack_int const* m, lapack_int const* n,
1584  lapack_complex_double const* A, lapack_int const* lda,
1585  double* R,
1586  double* C,
1587  double* rowcnd,
1588  double* colcnd,
1589  double* amax,
1590  lapack_int* info );
1591 
1592 #define LAPACK_cgeequb LAPACK_GLOBAL(cgeequb,CGEEQUB)
1593 void LAPACK_cgeequb(
1594  lapack_int const* m, lapack_int const* n,
1595  lapack_complex_float const* A, lapack_int const* lda,
1596  float* R,
1597  float* C,
1598  float* rowcnd,
1599  float* colcnd,
1600  float* amax,
1601  lapack_int* info );
1602 
1603 #define LAPACK_dgeequb LAPACK_GLOBAL(dgeequb,DGEEQUB)
1604 void LAPACK_dgeequb(
1605  lapack_int const* m, lapack_int const* n,
1606  double const* A, lapack_int const* lda,
1607  double* R,
1608  double* C,
1609  double* rowcnd,
1610  double* colcnd,
1611  double* amax,
1612  lapack_int* info );
1613 
1614 #define LAPACK_sgeequb LAPACK_GLOBAL(sgeequb,SGEEQUB)
1615 void LAPACK_sgeequb(
1616  lapack_int const* m, lapack_int const* n,
1617  float const* A, lapack_int const* lda,
1618  float* R,
1619  float* C,
1620  float* rowcnd,
1621  float* colcnd,
1622  float* amax,
1623  lapack_int* info );
1624 
1625 #define LAPACK_zgeequb LAPACK_GLOBAL(zgeequb,ZGEEQUB)
1626 void LAPACK_zgeequb(
1627  lapack_int const* m, lapack_int const* n,
1628  lapack_complex_double const* A, lapack_int const* lda,
1629  double* R,
1630  double* C,
1631  double* rowcnd,
1632  double* colcnd,
1633  double* amax,
1634  lapack_int* info );
1635 
1636 #define LAPACK_cgees_base LAPACK_GLOBAL(cgees,CGEES)
1637 void LAPACK_cgees_base(
1638  char const* jobvs, char const* sort, LAPACK_C_SELECT1 select,
1639  lapack_int const* n,
1640  lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim,
1641  lapack_complex_float* W,
1642  lapack_complex_float* VS, lapack_int const* ldvs,
1643  lapack_complex_float* work, lapack_int const* lwork,
1644  float* rwork, lapack_logical* BWORK,
1645  lapack_int* info
1646 #ifdef LAPACK_FORTRAN_STRLEN_END
1647  , size_t, size_t
1648 #endif
1649 );
1650 #ifdef LAPACK_FORTRAN_STRLEN_END
1651  #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__, 1, 1)
1652 #else
1653  #define LAPACK_cgees(...) LAPACK_cgees_base(__VA_ARGS__)
1654 #endif
1655 
1656 #define LAPACK_dgees_base LAPACK_GLOBAL(dgees,DGEES)
1657 void LAPACK_dgees_base(
1658  char const* jobvs, char const* sort, LAPACK_D_SELECT2 select,
1659  lapack_int const* n,
1660  double* A, lapack_int const* lda, lapack_int* sdim,
1661  double* WR,
1662  double* WI,
1663  double* VS, lapack_int const* ldvs,
1664  double* work, lapack_int const* lwork, lapack_logical* BWORK,
1665  lapack_int* info
1666 #ifdef LAPACK_FORTRAN_STRLEN_END
1667  , size_t, size_t
1668 #endif
1669 );
1670 #ifdef LAPACK_FORTRAN_STRLEN_END
1671  #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__, 1, 1)
1672 #else
1673  #define LAPACK_dgees(...) LAPACK_dgees_base(__VA_ARGS__)
1674 #endif
1675 
1676 #define LAPACK_sgees_base LAPACK_GLOBAL(sgees,SGEES)
1677 void LAPACK_sgees_base(
1678  char const* jobvs, char const* sort, LAPACK_S_SELECT2 select,
1679  lapack_int const* n,
1680  float* A, lapack_int const* lda, lapack_int* sdim,
1681  float* WR,
1682  float* WI,
1683  float* VS, lapack_int const* ldvs,
1684  float* work, lapack_int const* lwork, lapack_logical* BWORK,
1685  lapack_int* info
1686 #ifdef LAPACK_FORTRAN_STRLEN_END
1687  , size_t, size_t
1688 #endif
1689 );
1690 #ifdef LAPACK_FORTRAN_STRLEN_END
1691  #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__, 1, 1)
1692 #else
1693  #define LAPACK_sgees(...) LAPACK_sgees_base(__VA_ARGS__)
1694 #endif
1695 
1696 #define LAPACK_zgees_base LAPACK_GLOBAL(zgees,ZGEES)
1697 void LAPACK_zgees_base(
1698  char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select,
1699  lapack_int const* n,
1700  lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim,
1701  lapack_complex_double* W,
1702  lapack_complex_double* VS, lapack_int const* ldvs,
1703  lapack_complex_double* work, lapack_int const* lwork,
1704  double* rwork, lapack_logical* BWORK,
1705  lapack_int* info
1706 #ifdef LAPACK_FORTRAN_STRLEN_END
1707  , size_t, size_t
1708 #endif
1709 );
1710 #ifdef LAPACK_FORTRAN_STRLEN_END
1711  #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__, 1, 1)
1712 #else
1713  #define LAPACK_zgees(...) LAPACK_zgees_base(__VA_ARGS__)
1714 #endif
1715 
1716 #define LAPACK_cgeesx_base LAPACK_GLOBAL(cgeesx,CGEESX)
1717 void LAPACK_cgeesx_base(
1718  char const* jobvs, char const* sort, LAPACK_C_SELECT1 select, char const* sense,
1719  lapack_int const* n,
1720  lapack_complex_float* A, lapack_int const* lda, lapack_int* sdim,
1721  lapack_complex_float* W,
1722  lapack_complex_float* VS, lapack_int const* ldvs,
1723  float* rconde,
1724  float* rcondv,
1725  lapack_complex_float* work, lapack_int const* lwork,
1726  float* rwork, lapack_logical* BWORK,
1727  lapack_int* info
1728 #ifdef LAPACK_FORTRAN_STRLEN_END
1729  , size_t, size_t, size_t
1730 #endif
1731 );
1732 #ifdef LAPACK_FORTRAN_STRLEN_END
1733  #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__, 1, 1, 1)
1734 #else
1735  #define LAPACK_cgeesx(...) LAPACK_cgeesx_base(__VA_ARGS__)
1736 #endif
1737 
1738 #define LAPACK_dgeesx_base LAPACK_GLOBAL(dgeesx,DGEESX)
1739 void LAPACK_dgeesx_base(
1740  char const* jobvs, char const* sort, LAPACK_D_SELECT2 select, char const* sense,
1741  lapack_int const* n,
1742  double* A, lapack_int const* lda, lapack_int* sdim,
1743  double* WR,
1744  double* WI,
1745  double* VS, lapack_int const* ldvs,
1746  double* rconde,
1747  double* rcondv,
1748  double* work, lapack_int const* lwork,
1749  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1750  lapack_int* info
1751 #ifdef LAPACK_FORTRAN_STRLEN_END
1752  , size_t, size_t, size_t
1753 #endif
1754 );
1755 #ifdef LAPACK_FORTRAN_STRLEN_END
1756  #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__, 1, 1, 1)
1757 #else
1758  #define LAPACK_dgeesx(...) LAPACK_dgeesx_base(__VA_ARGS__)
1759 #endif
1760 
1761 #define LAPACK_sgeesx_base LAPACK_GLOBAL(sgeesx,SGEESX)
1762 void LAPACK_sgeesx_base(
1763  char const* jobvs, char const* sort, LAPACK_S_SELECT2 select, char const* sense,
1764  lapack_int const* n,
1765  float* A, lapack_int const* lda, lapack_int* sdim,
1766  float* WR,
1767  float* WI,
1768  float* VS, lapack_int const* ldvs,
1769  float* rconde,
1770  float* rcondv,
1771  float* work, lapack_int const* lwork,
1772  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
1773  lapack_int* info
1774 #ifdef LAPACK_FORTRAN_STRLEN_END
1775  , size_t, size_t, size_t
1776 #endif
1777 );
1778 #ifdef LAPACK_FORTRAN_STRLEN_END
1779  #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__, 1, 1, 1)
1780 #else
1781  #define LAPACK_sgeesx(...) LAPACK_sgeesx_base(__VA_ARGS__)
1782 #endif
1783 
1784 #define LAPACK_zgeesx_base LAPACK_GLOBAL(zgeesx,ZGEESX)
1785 void LAPACK_zgeesx_base(
1786  char const* jobvs, char const* sort, LAPACK_Z_SELECT1 select, char const* sense,
1787  lapack_int const* n,
1788  lapack_complex_double* A, lapack_int const* lda, lapack_int* sdim,
1789  lapack_complex_double* W,
1790  lapack_complex_double* VS, lapack_int const* ldvs,
1791  double* rconde,
1792  double* rcondv,
1793  lapack_complex_double* work, lapack_int const* lwork,
1794  double* rwork, lapack_logical* BWORK,
1795  lapack_int* info
1796 #ifdef LAPACK_FORTRAN_STRLEN_END
1797  , size_t, size_t, size_t
1798 #endif
1799 );
1800 #ifdef LAPACK_FORTRAN_STRLEN_END
1801  #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__, 1, 1, 1)
1802 #else
1803  #define LAPACK_zgeesx(...) LAPACK_zgeesx_base(__VA_ARGS__)
1804 #endif
1805 
1806 #define LAPACK_cgeev_base LAPACK_GLOBAL(cgeev,CGEEV)
1807 void LAPACK_cgeev_base(
1808  char const* jobvl, char const* jobvr,
1809  lapack_int const* n,
1810  lapack_complex_float* A, lapack_int const* lda,
1811  lapack_complex_float* W,
1812  lapack_complex_float* VL, lapack_int const* ldvl,
1813  lapack_complex_float* VR, lapack_int const* ldvr,
1814  lapack_complex_float* work, lapack_int const* lwork,
1815  float* rwork,
1816  lapack_int* info
1817 #ifdef LAPACK_FORTRAN_STRLEN_END
1818  , size_t, size_t
1819 #endif
1820 );
1821 #ifdef LAPACK_FORTRAN_STRLEN_END
1822  #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__, 1, 1)
1823 #else
1824  #define LAPACK_cgeev(...) LAPACK_cgeev_base(__VA_ARGS__)
1825 #endif
1826 
1827 #define LAPACK_dgeev_base LAPACK_GLOBAL(dgeev,DGEEV)
1828 void LAPACK_dgeev_base(
1829  char const* jobvl, char const* jobvr,
1830  lapack_int const* n,
1831  double* A, lapack_int const* lda,
1832  double* WR,
1833  double* WI,
1834  double* VL, lapack_int const* ldvl,
1835  double* VR, lapack_int const* ldvr,
1836  double* work, lapack_int const* lwork,
1837  lapack_int* info
1838 #ifdef LAPACK_FORTRAN_STRLEN_END
1839  , size_t, size_t
1840 #endif
1841 );
1842 #ifdef LAPACK_FORTRAN_STRLEN_END
1843  #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__, 1, 1)
1844 #else
1845  #define LAPACK_dgeev(...) LAPACK_dgeev_base(__VA_ARGS__)
1846 #endif
1847 
1848 #define LAPACK_sgeev_base LAPACK_GLOBAL(sgeev,SGEEV)
1849 void LAPACK_sgeev_base(
1850  char const* jobvl, char const* jobvr,
1851  lapack_int const* n,
1852  float* A, lapack_int const* lda,
1853  float* WR,
1854  float* WI,
1855  float* VL, lapack_int const* ldvl,
1856  float* VR, lapack_int const* ldvr,
1857  float* work, lapack_int const* lwork,
1858  lapack_int* info
1859 #ifdef LAPACK_FORTRAN_STRLEN_END
1860  , size_t, size_t
1861 #endif
1862 );
1863 #ifdef LAPACK_FORTRAN_STRLEN_END
1864  #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__, 1, 1)
1865 #else
1866  #define LAPACK_sgeev(...) LAPACK_sgeev_base(__VA_ARGS__)
1867 #endif
1868 
1869 #define LAPACK_zgeev_base LAPACK_GLOBAL(zgeev,ZGEEV)
1870 void LAPACK_zgeev_base(
1871  char const* jobvl, char const* jobvr,
1872  lapack_int const* n,
1873  lapack_complex_double* A, lapack_int const* lda,
1874  lapack_complex_double* W,
1875  lapack_complex_double* VL, lapack_int const* ldvl,
1876  lapack_complex_double* VR, lapack_int const* ldvr,
1877  lapack_complex_double* work, lapack_int const* lwork,
1878  double* rwork,
1879  lapack_int* info
1880 #ifdef LAPACK_FORTRAN_STRLEN_END
1881  , size_t, size_t
1882 #endif
1883 );
1884 #ifdef LAPACK_FORTRAN_STRLEN_END
1885  #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__, 1, 1)
1886 #else
1887  #define LAPACK_zgeev(...) LAPACK_zgeev_base(__VA_ARGS__)
1888 #endif
1889 
1890 #define LAPACK_cgeevx_base LAPACK_GLOBAL(cgeevx,CGEEVX)
1891 void LAPACK_cgeevx_base(
1892  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1893  lapack_int const* n,
1894  lapack_complex_float* A, lapack_int const* lda,
1895  lapack_complex_float* W,
1896  lapack_complex_float* VL, lapack_int const* ldvl,
1897  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1898  float* scale,
1899  float* abnrm,
1900  float* rconde,
1901  float* rcondv,
1902  lapack_complex_float* work, lapack_int const* lwork,
1903  float* rwork,
1904  lapack_int* info
1905 #ifdef LAPACK_FORTRAN_STRLEN_END
1906  , size_t, size_t, size_t, size_t
1907 #endif
1908 );
1909 #ifdef LAPACK_FORTRAN_STRLEN_END
1910  #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1911 #else
1912  #define LAPACK_cgeevx(...) LAPACK_cgeevx_base(__VA_ARGS__)
1913 #endif
1914 
1915 #define LAPACK_dgeevx_base LAPACK_GLOBAL(dgeevx,DGEEVX)
1916 void LAPACK_dgeevx_base(
1917  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1918  lapack_int const* n,
1919  double* A, lapack_int const* lda,
1920  double* WR,
1921  double* WI,
1922  double* VL, lapack_int const* ldvl,
1923  double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1924  double* scale,
1925  double* abnrm,
1926  double* rconde,
1927  double* rcondv,
1928  double* work, lapack_int const* lwork,
1929  lapack_int* iwork,
1930  lapack_int* info
1931 #ifdef LAPACK_FORTRAN_STRLEN_END
1932  , size_t, size_t, size_t, size_t
1933 #endif
1934 );
1935 #ifdef LAPACK_FORTRAN_STRLEN_END
1936  #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1937 #else
1938  #define LAPACK_dgeevx(...) LAPACK_dgeevx_base(__VA_ARGS__)
1939 #endif
1940 
1941 #define LAPACK_sgeevx_base LAPACK_GLOBAL(sgeevx,SGEEVX)
1942 void LAPACK_sgeevx_base(
1943  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1944  lapack_int const* n,
1945  float* A, lapack_int const* lda,
1946  float* WR,
1947  float* WI,
1948  float* VL, lapack_int const* ldvl,
1949  float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1950  float* scale,
1951  float* abnrm,
1952  float* rconde,
1953  float* rcondv,
1954  float* work, lapack_int const* lwork,
1955  lapack_int* iwork,
1956  lapack_int* info
1957 #ifdef LAPACK_FORTRAN_STRLEN_END
1958  , size_t, size_t, size_t, size_t
1959 #endif
1960 );
1961 #ifdef LAPACK_FORTRAN_STRLEN_END
1962  #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1963 #else
1964  #define LAPACK_sgeevx(...) LAPACK_sgeevx_base(__VA_ARGS__)
1965 #endif
1966 
1967 #define LAPACK_zgeevx_base LAPACK_GLOBAL(zgeevx,ZGEEVX)
1968 void LAPACK_zgeevx_base(
1969  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
1970  lapack_int const* n,
1971  lapack_complex_double* A, lapack_int const* lda,
1972  lapack_complex_double* W,
1973  lapack_complex_double* VL, lapack_int const* ldvl,
1974  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
1975  double* scale,
1976  double* abnrm,
1977  double* rconde,
1978  double* rcondv,
1979  lapack_complex_double* work, lapack_int const* lwork,
1980  double* rwork,
1981  lapack_int* info
1982 #ifdef LAPACK_FORTRAN_STRLEN_END
1983  , size_t, size_t, size_t, size_t
1984 #endif
1985 );
1986 #ifdef LAPACK_FORTRAN_STRLEN_END
1987  #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__, 1, 1, 1, 1)
1988 #else
1989  #define LAPACK_zgeevx(...) LAPACK_zgeevx_base(__VA_ARGS__)
1990 #endif
1991 
1992 #define LAPACK_cgehrd LAPACK_GLOBAL(cgehrd,CGEHRD)
1993 void LAPACK_cgehrd(
1994  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
1995  lapack_complex_float* A, lapack_int const* lda,
1996  lapack_complex_float* tau,
1997  lapack_complex_float* work, lapack_int const* lwork,
1998  lapack_int* info );
1999 
2000 #define LAPACK_dgehrd LAPACK_GLOBAL(dgehrd,DGEHRD)
2001 void LAPACK_dgehrd(
2002  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2003  double* A, lapack_int const* lda,
2004  double* tau,
2005  double* work, lapack_int const* lwork,
2006  lapack_int* info );
2007 
2008 #define LAPACK_sgehrd LAPACK_GLOBAL(sgehrd,SGEHRD)
2009 void LAPACK_sgehrd(
2010  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2011  float* A, lapack_int const* lda,
2012  float* tau,
2013  float* work, lapack_int const* lwork,
2014  lapack_int* info );
2015 
2016 #define LAPACK_zgehrd LAPACK_GLOBAL(zgehrd,ZGEHRD)
2017 void LAPACK_zgehrd(
2018  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
2019  lapack_complex_double* A, lapack_int const* lda,
2020  lapack_complex_double* tau,
2021  lapack_complex_double* work, lapack_int const* lwork,
2022  lapack_int* info );
2023 
2024 #define LAPACK_cgejsv_base LAPACK_GLOBAL(cgejsv,CGEJSV)
2025 void LAPACK_cgejsv_base(
2026  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2027  lapack_int const* m, lapack_int const* n,
2028  lapack_complex_float* A, lapack_int const* lda,
2029  float* SVA,
2030  lapack_complex_float* U, lapack_int const* ldu,
2031  lapack_complex_float* V, lapack_int const* ldv,
2032  lapack_complex_float* cwork, lapack_int const* lwork,
2033  float* rwork, lapack_int const* lrwork,
2034  lapack_int* iwork,
2035  lapack_int* info
2036 #ifdef LAPACK_FORTRAN_STRLEN_END
2037  , size_t, size_t, size_t, size_t, size_t, size_t
2038 #endif
2039 );
2040 #ifdef LAPACK_FORTRAN_STRLEN_END
2041  #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2042 #else
2043  #define LAPACK_cgejsv(...) LAPACK_cgejsv_base(__VA_ARGS__)
2044 #endif
2045 
2046 #define LAPACK_dgejsv_base LAPACK_GLOBAL(dgejsv,DGEJSV)
2047 void LAPACK_dgejsv_base(
2048  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2049  lapack_int const* m, lapack_int const* n,
2050  double* A, lapack_int const* lda,
2051  double* SVA,
2052  double* U, lapack_int const* ldu,
2053  double* V, lapack_int const* ldv,
2054  double* work, lapack_int const* lwork,
2055  lapack_int* iwork,
2056  lapack_int* info
2057 #ifdef LAPACK_FORTRAN_STRLEN_END
2058  , size_t, size_t, size_t, size_t, size_t, size_t
2059 #endif
2060 );
2061 #ifdef LAPACK_FORTRAN_STRLEN_END
2062  #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2063 #else
2064  #define LAPACK_dgejsv(...) LAPACK_dgejsv_base(__VA_ARGS__)
2065 #endif
2066 
2067 #define LAPACK_sgejsv_base LAPACK_GLOBAL(sgejsv,SGEJSV)
2068 void LAPACK_sgejsv_base(
2069  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2070  lapack_int const* m, lapack_int const* n,
2071  float* A, lapack_int const* lda,
2072  float* SVA,
2073  float* U, lapack_int const* ldu,
2074  float* V, lapack_int const* ldv,
2075  float* work, lapack_int const* lwork,
2076  lapack_int* iwork,
2077  lapack_int* info
2078 #ifdef LAPACK_FORTRAN_STRLEN_END
2079  , size_t, size_t, size_t, size_t, size_t, size_t
2080 #endif
2081 );
2082 #ifdef LAPACK_FORTRAN_STRLEN_END
2083  #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2084 #else
2085  #define LAPACK_sgejsv(...) LAPACK_sgejsv_base(__VA_ARGS__)
2086 #endif
2087 
2088 #define LAPACK_zgejsv_base LAPACK_GLOBAL(zgejsv,ZGEJSV)
2089 void LAPACK_zgejsv_base(
2090  char const* joba, char const* jobu, char const* jobv, char const* jobr, char const* jobt, char const* jobp,
2091  lapack_int const* m, lapack_int const* n,
2092  lapack_complex_double* A, lapack_int const* lda,
2093  double* SVA,
2094  lapack_complex_double* U, lapack_int const* ldu,
2095  lapack_complex_double* V, lapack_int const* ldv,
2096  lapack_complex_double* cwork, lapack_int const* lwork,
2097  double* rwork, lapack_int const* lrwork,
2098  lapack_int* iwork,
2099  lapack_int* info
2100 #ifdef LAPACK_FORTRAN_STRLEN_END
2101  , size_t, size_t, size_t, size_t, size_t, size_t
2102 #endif
2103 );
2104 #ifdef LAPACK_FORTRAN_STRLEN_END
2105  #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
2106 #else
2107  #define LAPACK_zgejsv(...) LAPACK_zgejsv_base(__VA_ARGS__)
2108 #endif
2109 
2110 #define LAPACK_cgelq LAPACK_GLOBAL(cgelq,CGELQ)
2111 void LAPACK_cgelq(
2112  lapack_int const* m, lapack_int const* n,
2113  lapack_complex_float* A, lapack_int const* lda,
2114  lapack_complex_float* T, lapack_int const* tsize,
2115  lapack_complex_float* work, lapack_int const* lwork,
2116  lapack_int* info );
2117 
2118 #define LAPACK_dgelq LAPACK_GLOBAL(dgelq,DGELQ)
2119 void LAPACK_dgelq(
2120  lapack_int const* m, lapack_int const* n,
2121  double* A, lapack_int const* lda,
2122  double* T, lapack_int const* tsize,
2123  double* work, lapack_int const* lwork,
2124  lapack_int* info );
2125 
2126 #define LAPACK_sgelq LAPACK_GLOBAL(sgelq,SGELQ)
2127 void LAPACK_sgelq(
2128  lapack_int const* m, lapack_int const* n,
2129  float* A, lapack_int const* lda,
2130  float* T, lapack_int const* tsize,
2131  float* work, lapack_int const* lwork,
2132  lapack_int* info );
2133 
2134 #define LAPACK_zgelq LAPACK_GLOBAL(zgelq,ZGELQ)
2135 void LAPACK_zgelq(
2136  lapack_int const* m, lapack_int const* n,
2137  lapack_complex_double* A, lapack_int const* lda,
2138  lapack_complex_double* T, lapack_int const* tsize,
2139  lapack_complex_double* work, lapack_int const* lwork,
2140  lapack_int* info );
2141 
2142 #define LAPACK_cgelq2 LAPACK_GLOBAL(cgelq2,CGELQ2)
2143 void LAPACK_cgelq2(
2144  lapack_int const* m, lapack_int const* n,
2145  lapack_complex_float* A, lapack_int const* lda,
2146  lapack_complex_float* tau,
2147  lapack_complex_float* work,
2148  lapack_int* info );
2149 
2150 #define LAPACK_dgelq2 LAPACK_GLOBAL(dgelq2,DGELQ2)
2151 void LAPACK_dgelq2(
2152  lapack_int const* m, lapack_int const* n,
2153  double* A, lapack_int const* lda,
2154  double* tau,
2155  double* work,
2156  lapack_int* info );
2157 
2158 #define LAPACK_sgelq2 LAPACK_GLOBAL(sgelq2,SGELQ2)
2159 void LAPACK_sgelq2(
2160  lapack_int const* m, lapack_int const* n,
2161  float* A, lapack_int const* lda,
2162  float* tau,
2163  float* work,
2164  lapack_int* info );
2165 
2166 #define LAPACK_zgelq2 LAPACK_GLOBAL(zgelq2,ZGELQ2)
2167 void LAPACK_zgelq2(
2168  lapack_int const* m, lapack_int const* n,
2169  lapack_complex_double* A, lapack_int const* lda,
2170  lapack_complex_double* tau,
2171  lapack_complex_double* work,
2172  lapack_int* info );
2173 
2174 #define LAPACK_cgelqf LAPACK_GLOBAL(cgelqf,CGELQF)
2175 void LAPACK_cgelqf(
2176  lapack_int const* m, lapack_int const* n,
2177  lapack_complex_float* A, lapack_int const* lda,
2178  lapack_complex_float* tau,
2179  lapack_complex_float* work, lapack_int const* lwork,
2180  lapack_int* info );
2181 
2182 #define LAPACK_dgelqf LAPACK_GLOBAL(dgelqf,DGELQF)
2183 void LAPACK_dgelqf(
2184  lapack_int const* m, lapack_int const* n,
2185  double* A, lapack_int const* lda,
2186  double* tau,
2187  double* work, lapack_int const* lwork,
2188  lapack_int* info );
2189 
2190 #define LAPACK_sgelqf LAPACK_GLOBAL(sgelqf,SGELQF)
2191 void LAPACK_sgelqf(
2192  lapack_int const* m, lapack_int const* n,
2193  float* A, lapack_int const* lda,
2194  float* tau,
2195  float* work, lapack_int const* lwork,
2196  lapack_int* info );
2197 
2198 #define LAPACK_zgelqf LAPACK_GLOBAL(zgelqf,ZGELQF)
2199 void LAPACK_zgelqf(
2200  lapack_int const* m, lapack_int const* n,
2201  lapack_complex_double* A, lapack_int const* lda,
2202  lapack_complex_double* tau,
2203  lapack_complex_double* work, lapack_int const* lwork,
2204  lapack_int* info );
2205 
2206 #define LAPACK_cgels_base LAPACK_GLOBAL(cgels,CGELS)
2207 void LAPACK_cgels_base(
2208  char const* trans,
2209  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2210  lapack_complex_float* A, lapack_int const* lda,
2211  lapack_complex_float* B, lapack_int const* ldb,
2212  lapack_complex_float* work, lapack_int const* lwork,
2213  lapack_int* info
2214 #ifdef LAPACK_FORTRAN_STRLEN_END
2215  , size_t
2216 #endif
2217 );
2218 #ifdef LAPACK_FORTRAN_STRLEN_END
2219  #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__, 1)
2220 #else
2221  #define LAPACK_cgels(...) LAPACK_cgels_base(__VA_ARGS__)
2222 #endif
2223 
2224 #define LAPACK_dgels_base LAPACK_GLOBAL(dgels,DGELS)
2225 void LAPACK_dgels_base(
2226  char const* trans,
2227  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2228  double* A, lapack_int const* lda,
2229  double* B, lapack_int const* ldb,
2230  double* work, lapack_int const* lwork,
2231  lapack_int* info
2232 #ifdef LAPACK_FORTRAN_STRLEN_END
2233  , size_t
2234 #endif
2235 );
2236 #ifdef LAPACK_FORTRAN_STRLEN_END
2237  #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__, 1)
2238 #else
2239  #define LAPACK_dgels(...) LAPACK_dgels_base(__VA_ARGS__)
2240 #endif
2241 
2242 #define LAPACK_sgels_base LAPACK_GLOBAL(sgels,SGELS)
2243 void LAPACK_sgels_base(
2244  char const* trans,
2245  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2246  float* A, lapack_int const* lda,
2247  float* B, lapack_int const* ldb,
2248  float* work, lapack_int const* lwork,
2249  lapack_int* info
2250 #ifdef LAPACK_FORTRAN_STRLEN_END
2251  , size_t
2252 #endif
2253 );
2254 #ifdef LAPACK_FORTRAN_STRLEN_END
2255  #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__, 1)
2256 #else
2257  #define LAPACK_sgels(...) LAPACK_sgels_base(__VA_ARGS__)
2258 #endif
2259 
2260 #define LAPACK_zgels_base LAPACK_GLOBAL(zgels,ZGELS)
2261 void LAPACK_zgels_base(
2262  char const* trans,
2263  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2264  lapack_complex_double* A, lapack_int const* lda,
2265  lapack_complex_double* B, lapack_int const* ldb,
2266  lapack_complex_double* work, lapack_int const* lwork,
2267  lapack_int* info
2268 #ifdef LAPACK_FORTRAN_STRLEN_END
2269  , size_t
2270 #endif
2271 );
2272 #ifdef LAPACK_FORTRAN_STRLEN_END
2273  #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__, 1)
2274 #else
2275  #define LAPACK_zgels(...) LAPACK_zgels_base(__VA_ARGS__)
2276 #endif
2277 
2278 #define LAPACK_cgelsd LAPACK_GLOBAL(cgelsd,CGELSD)
2279 void LAPACK_cgelsd(
2280  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2281  lapack_complex_float* A, lapack_int const* lda,
2282  lapack_complex_float* B, lapack_int const* ldb,
2283  float* S,
2284  float const* rcond, lapack_int* rank,
2285  lapack_complex_float* work, lapack_int const* lwork,
2286  float* rwork,
2287  lapack_int* iwork,
2288  lapack_int* info );
2289 
2290 #define LAPACK_dgelsd LAPACK_GLOBAL(dgelsd,DGELSD)
2291 void LAPACK_dgelsd(
2292  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2293  double* A, lapack_int const* lda,
2294  double* B, lapack_int const* ldb,
2295  double* S,
2296  double const* rcond, lapack_int* rank,
2297  double* work, lapack_int const* lwork,
2298  lapack_int* iwork,
2299  lapack_int* info );
2300 
2301 #define LAPACK_sgelsd LAPACK_GLOBAL(sgelsd,SGELSD)
2302 void LAPACK_sgelsd(
2303  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2304  float* A, lapack_int const* lda,
2305  float* B, lapack_int const* ldb,
2306  float* S,
2307  float const* rcond, lapack_int* rank,
2308  float* work, lapack_int const* lwork,
2309  lapack_int* iwork,
2310  lapack_int* info );
2311 
2312 #define LAPACK_zgelsd LAPACK_GLOBAL(zgelsd,ZGELSD)
2313 void LAPACK_zgelsd(
2314  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2315  lapack_complex_double* A, lapack_int const* lda,
2316  lapack_complex_double* B, lapack_int const* ldb,
2317  double* S,
2318  double const* rcond, lapack_int* rank,
2319  lapack_complex_double* work, lapack_int const* lwork,
2320  double* rwork,
2321  lapack_int* iwork,
2322  lapack_int* info );
2323 
2324 #define LAPACK_cgelss LAPACK_GLOBAL(cgelss,CGELSS)
2325 void LAPACK_cgelss(
2326  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2327  lapack_complex_float* A, lapack_int const* lda,
2328  lapack_complex_float* B, lapack_int const* ldb,
2329  float* S,
2330  float const* rcond, lapack_int* rank,
2331  lapack_complex_float* work, lapack_int const* lwork,
2332  float* rwork,
2333  lapack_int* info );
2334 
2335 #define LAPACK_dgelss LAPACK_GLOBAL(dgelss,DGELSS)
2336 void LAPACK_dgelss(
2337  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2338  double* A, lapack_int const* lda,
2339  double* B, lapack_int const* ldb,
2340  double* S,
2341  double const* rcond, lapack_int* rank,
2342  double* work, lapack_int const* lwork,
2343  lapack_int* info );
2344 
2345 #define LAPACK_sgelss LAPACK_GLOBAL(sgelss,SGELSS)
2346 void LAPACK_sgelss(
2347  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2348  float* A, lapack_int const* lda,
2349  float* B, lapack_int const* ldb,
2350  float* S,
2351  float const* rcond, lapack_int* rank,
2352  float* work, lapack_int const* lwork,
2353  lapack_int* info );
2354 
2355 #define LAPACK_zgelss LAPACK_GLOBAL(zgelss,ZGELSS)
2356 void LAPACK_zgelss(
2357  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2358  lapack_complex_double* A, lapack_int const* lda,
2359  lapack_complex_double* B, lapack_int const* ldb,
2360  double* S,
2361  double const* rcond, lapack_int* rank,
2362  lapack_complex_double* work, lapack_int const* lwork,
2363  double* rwork,
2364  lapack_int* info );
2365 
2366 #define LAPACK_cgelsy LAPACK_GLOBAL(cgelsy,CGELSY)
2367 void LAPACK_cgelsy(
2368  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2369  lapack_complex_float* A, lapack_int const* lda,
2370  lapack_complex_float* B, lapack_int const* ldb, lapack_int* JPVT,
2371  float const* rcond, lapack_int* rank,
2372  lapack_complex_float* work, lapack_int const* lwork,
2373  float* rwork,
2374  lapack_int* info );
2375 
2376 #define LAPACK_dgelsy LAPACK_GLOBAL(dgelsy,DGELSY)
2377 void LAPACK_dgelsy(
2378  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2379  double* A, lapack_int const* lda,
2380  double* B, lapack_int const* ldb, lapack_int* JPVT,
2381  double const* rcond, lapack_int* rank,
2382  double* work, lapack_int const* lwork,
2383  lapack_int* info );
2384 
2385 #define LAPACK_sgelsy LAPACK_GLOBAL(sgelsy,SGELSY)
2386 void LAPACK_sgelsy(
2387  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2388  float* A, lapack_int const* lda,
2389  float* B, lapack_int const* ldb, lapack_int* JPVT,
2390  float const* rcond, lapack_int* rank,
2391  float* work, lapack_int const* lwork,
2392  lapack_int* info );
2393 
2394 #define LAPACK_zgelsy LAPACK_GLOBAL(zgelsy,ZGELSY)
2395 void LAPACK_zgelsy(
2396  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
2397  lapack_complex_double* A, lapack_int const* lda,
2398  lapack_complex_double* B, lapack_int const* ldb, lapack_int* JPVT,
2399  double const* rcond, lapack_int* rank,
2400  lapack_complex_double* work, lapack_int const* lwork,
2401  double* rwork,
2402  lapack_int* info );
2403 
2404 #define LAPACK_cgemlq_base LAPACK_GLOBAL(cgemlq,CGEMLQ)
2405 void LAPACK_cgemlq_base(
2406  char const* side, char const* trans,
2407  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2408  lapack_complex_float const* A, lapack_int const* lda,
2409  lapack_complex_float const* T, lapack_int const* tsize,
2410  lapack_complex_float* C, lapack_int const* ldc,
2411  lapack_complex_float* work, lapack_int const* lwork,
2412  lapack_int* info
2413 #ifdef LAPACK_FORTRAN_STRLEN_END
2414  , size_t, size_t
2415 #endif
2416 );
2417 #ifdef LAPACK_FORTRAN_STRLEN_END
2418  #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__, 1, 1)
2419 #else
2420  #define LAPACK_cgemlq(...) LAPACK_cgemlq_base(__VA_ARGS__)
2421 #endif
2422 
2423 #define LAPACK_dgemlq_base LAPACK_GLOBAL(dgemlq,DGEMLQ)
2424 void LAPACK_dgemlq_base(
2425  char const* side, char const* trans,
2426  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2427  double const* A, lapack_int const* lda,
2428  double const* T, lapack_int const* tsize,
2429  double* C, lapack_int const* ldc,
2430  double* work, lapack_int const* lwork,
2431  lapack_int* info
2432 #ifdef LAPACK_FORTRAN_STRLEN_END
2433  , size_t, size_t
2434 #endif
2435 );
2436 #ifdef LAPACK_FORTRAN_STRLEN_END
2437  #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__, 1, 1)
2438 #else
2439  #define LAPACK_dgemlq(...) LAPACK_dgemlq_base(__VA_ARGS__)
2440 #endif
2441 
2442 #define LAPACK_sgemlq_base LAPACK_GLOBAL(sgemlq,SGEMLQ)
2443 void LAPACK_sgemlq_base(
2444  char const* side, char const* trans,
2445  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2446  float const* A, lapack_int const* lda,
2447  float const* T, lapack_int const* tsize,
2448  float* C, lapack_int const* ldc,
2449  float* work, lapack_int const* lwork,
2450  lapack_int* info
2451 #ifdef LAPACK_FORTRAN_STRLEN_END
2452  , size_t, size_t
2453 #endif
2454 );
2455 #ifdef LAPACK_FORTRAN_STRLEN_END
2456  #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__, 1, 1)
2457 #else
2458  #define LAPACK_sgemlq(...) LAPACK_sgemlq_base(__VA_ARGS__)
2459 #endif
2460 
2461 #define LAPACK_zgemlq_base LAPACK_GLOBAL(zgemlq,ZGEMLQ)
2462 void LAPACK_zgemlq_base(
2463  char const* side, char const* trans,
2464  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2465  lapack_complex_double const* A, lapack_int const* lda,
2466  lapack_complex_double const* T, lapack_int const* tsize,
2467  lapack_complex_double* C, lapack_int const* ldc,
2468  lapack_complex_double* work, lapack_int const* lwork,
2469  lapack_int* info
2470 #ifdef LAPACK_FORTRAN_STRLEN_END
2471  , size_t, size_t
2472 #endif
2473 );
2474 #ifdef LAPACK_FORTRAN_STRLEN_END
2475  #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__, 1, 1)
2476 #else
2477  #define LAPACK_zgemlq(...) LAPACK_zgemlq_base(__VA_ARGS__)
2478 #endif
2479 
2480 #define LAPACK_cgemqr_base LAPACK_GLOBAL(cgemqr,CGEMQR)
2481 void LAPACK_cgemqr_base(
2482  char const* side, char const* trans,
2483  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2484  lapack_complex_float const* A, lapack_int const* lda,
2485  lapack_complex_float const* T, lapack_int const* tsize,
2486  lapack_complex_float* C, lapack_int const* ldc,
2487  lapack_complex_float* work, lapack_int const* lwork,
2488  lapack_int* info
2489 #ifdef LAPACK_FORTRAN_STRLEN_END
2490  , size_t, size_t
2491 #endif
2492 );
2493 #ifdef LAPACK_FORTRAN_STRLEN_END
2494  #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__, 1, 1)
2495 #else
2496  #define LAPACK_cgemqr(...) LAPACK_cgemqr_base(__VA_ARGS__)
2497 #endif
2498 
2499 #define LAPACK_dgemqr_base LAPACK_GLOBAL(dgemqr,DGEMQR)
2500 void LAPACK_dgemqr_base(
2501  char const* side, char const* trans,
2502  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2503  double const* A, lapack_int const* lda,
2504  double const* T, lapack_int const* tsize,
2505  double* C, lapack_int const* ldc,
2506  double* work, lapack_int const* lwork,
2507  lapack_int* info
2508 #ifdef LAPACK_FORTRAN_STRLEN_END
2509  , size_t, size_t
2510 #endif
2511 );
2512 #ifdef LAPACK_FORTRAN_STRLEN_END
2513  #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__, 1, 1)
2514 #else
2515  #define LAPACK_dgemqr(...) LAPACK_dgemqr_base(__VA_ARGS__)
2516 #endif
2517 
2518 #define LAPACK_sgemqr_base LAPACK_GLOBAL(sgemqr,SGEMQR)
2519 void LAPACK_sgemqr_base(
2520  char const* side, char const* trans,
2521  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2522  float const* A, lapack_int const* lda,
2523  float const* T, lapack_int const* tsize,
2524  float* C, lapack_int const* ldc,
2525  float* work, lapack_int const* lwork,
2526  lapack_int* info
2527 #ifdef LAPACK_FORTRAN_STRLEN_END
2528  , size_t, size_t
2529 #endif
2530 );
2531 #ifdef LAPACK_FORTRAN_STRLEN_END
2532  #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__, 1, 1)
2533 #else
2534  #define LAPACK_sgemqr(...) LAPACK_sgemqr_base(__VA_ARGS__)
2535 #endif
2536 
2537 #define LAPACK_zgemqr_base LAPACK_GLOBAL(zgemqr,ZGEMQR)
2538 void LAPACK_zgemqr_base(
2539  char const* side, char const* trans,
2540  lapack_int const* m, lapack_int const* n, lapack_int const* k,
2541  lapack_complex_double const* A, lapack_int const* lda,
2542  lapack_complex_double const* T, lapack_int const* tsize,
2543  lapack_complex_double* C, lapack_int const* ldc,
2544  lapack_complex_double* work, lapack_int const* lwork,
2545  lapack_int* info
2546 #ifdef LAPACK_FORTRAN_STRLEN_END
2547  , size_t, size_t
2548 #endif
2549 );
2550 #ifdef LAPACK_FORTRAN_STRLEN_END
2551  #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__, 1, 1)
2552 #else
2553  #define LAPACK_zgemqr(...) LAPACK_zgemqr_base(__VA_ARGS__)
2554 #endif
2555 
2556 #define LAPACK_cgemqrt_base LAPACK_GLOBAL(cgemqrt,CGEMQRT)
2557 void LAPACK_cgemqrt_base(
2558  char const* side, char const* trans,
2559  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2560  lapack_complex_float const* V, lapack_int const* ldv,
2561  lapack_complex_float const* T, lapack_int const* ldt,
2562  lapack_complex_float* C, lapack_int const* ldc,
2563  lapack_complex_float* work,
2564  lapack_int* info
2565 #ifdef LAPACK_FORTRAN_STRLEN_END
2566  , size_t, size_t
2567 #endif
2568 );
2569 #ifdef LAPACK_FORTRAN_STRLEN_END
2570  #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__, 1, 1)
2571 #else
2572  #define LAPACK_cgemqrt(...) LAPACK_cgemqrt_base(__VA_ARGS__)
2573 #endif
2574 
2575 #define LAPACK_dgemqrt_base LAPACK_GLOBAL(dgemqrt,DGEMQRT)
2576 void LAPACK_dgemqrt_base(
2577  char const* side, char const* trans,
2578  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2579  double const* V, lapack_int const* ldv,
2580  double const* T, lapack_int const* ldt,
2581  double* C, lapack_int const* ldc,
2582  double* work,
2583  lapack_int* info
2584 #ifdef LAPACK_FORTRAN_STRLEN_END
2585  , size_t, size_t
2586 #endif
2587 );
2588 #ifdef LAPACK_FORTRAN_STRLEN_END
2589  #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__, 1, 1)
2590 #else
2591  #define LAPACK_dgemqrt(...) LAPACK_dgemqrt_base(__VA_ARGS__)
2592 #endif
2593 
2594 #define LAPACK_sgemqrt_base LAPACK_GLOBAL(sgemqrt,SGEMQRT)
2595 void LAPACK_sgemqrt_base(
2596  char const* side, char const* trans,
2597  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2598  float const* V, lapack_int const* ldv,
2599  float const* T, lapack_int const* ldt,
2600  float* C, lapack_int const* ldc,
2601  float* work,
2602  lapack_int* info
2603 #ifdef LAPACK_FORTRAN_STRLEN_END
2604  , size_t, size_t
2605 #endif
2606 );
2607 #ifdef LAPACK_FORTRAN_STRLEN_END
2608  #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__, 1, 1)
2609 #else
2610  #define LAPACK_sgemqrt(...) LAPACK_sgemqrt_base(__VA_ARGS__)
2611 #endif
2612 
2613 #define LAPACK_zgemqrt_base LAPACK_GLOBAL(zgemqrt,ZGEMQRT)
2614 void LAPACK_zgemqrt_base(
2615  char const* side, char const* trans,
2616  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* nb,
2617  lapack_complex_double const* V, lapack_int const* ldv,
2618  lapack_complex_double const* T, lapack_int const* ldt,
2619  lapack_complex_double* C, lapack_int const* ldc,
2620  lapack_complex_double* work,
2621  lapack_int* info
2622 #ifdef LAPACK_FORTRAN_STRLEN_END
2623  , size_t, size_t
2624 #endif
2625 );
2626 #ifdef LAPACK_FORTRAN_STRLEN_END
2627  #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__, 1, 1)
2628 #else
2629  #define LAPACK_zgemqrt(...) LAPACK_zgemqrt_base(__VA_ARGS__)
2630 #endif
2631 
2632 #define LAPACK_cgeql2 LAPACK_GLOBAL(cgeql2,CGEQL2)
2633 void LAPACK_cgeql2(
2634  lapack_int const* m, lapack_int const* n,
2635  lapack_complex_float* A, lapack_int const* lda,
2636  lapack_complex_float* tau,
2637  lapack_complex_float* work,
2638  lapack_int* info );
2639 
2640 #define LAPACK_dgeql2 LAPACK_GLOBAL(dgeql2,DGEQL2)
2641 void LAPACK_dgeql2(
2642  lapack_int const* m, lapack_int const* n,
2643  double* A, lapack_int const* lda,
2644  double* tau,
2645  double* work,
2646  lapack_int* info );
2647 
2648 #define LAPACK_sgeql2 LAPACK_GLOBAL(sgeql2,SGEQL2)
2649 void LAPACK_sgeql2(
2650  lapack_int const* m, lapack_int const* n,
2651  float* A, lapack_int const* lda,
2652  float* tau,
2653  float* work,
2654  lapack_int* info );
2655 
2656 #define LAPACK_zgeql2 LAPACK_GLOBAL(zgeql2,ZGEQL2)
2657 void LAPACK_zgeql2(
2658  lapack_int const* m, lapack_int const* n,
2659  lapack_complex_double* A, lapack_int const* lda,
2660  lapack_complex_double* tau,
2661  lapack_complex_double* work,
2662  lapack_int* info );
2663 
2664 #define LAPACK_cgeqlf LAPACK_GLOBAL(cgeqlf,CGEQLF)
2665 void LAPACK_cgeqlf(
2666  lapack_int const* m, lapack_int const* n,
2667  lapack_complex_float* A, lapack_int const* lda,
2668  lapack_complex_float* tau,
2669  lapack_complex_float* work, lapack_int const* lwork,
2670  lapack_int* info );
2671 
2672 #define LAPACK_dgeqlf LAPACK_GLOBAL(dgeqlf,DGEQLF)
2673 void LAPACK_dgeqlf(
2674  lapack_int const* m, lapack_int const* n,
2675  double* A, lapack_int const* lda,
2676  double* tau,
2677  double* work, lapack_int const* lwork,
2678  lapack_int* info );
2679 
2680 #define LAPACK_sgeqlf LAPACK_GLOBAL(sgeqlf,SGEQLF)
2681 void LAPACK_sgeqlf(
2682  lapack_int const* m, lapack_int const* n,
2683  float* A, lapack_int const* lda,
2684  float* tau,
2685  float* work, lapack_int const* lwork,
2686  lapack_int* info );
2687 
2688 #define LAPACK_zgeqlf LAPACK_GLOBAL(zgeqlf,ZGEQLF)
2689 void LAPACK_zgeqlf(
2690  lapack_int const* m, lapack_int const* n,
2691  lapack_complex_double* A, lapack_int const* lda,
2692  lapack_complex_double* tau,
2693  lapack_complex_double* work, lapack_int const* lwork,
2694  lapack_int* info );
2695 
2696 #define LAPACK_sgeqpf LAPACK_GLOBAL(sgeqpf,SGEQPF)
2697 void LAPACK_sgeqpf( lapack_int* m, lapack_int* n, float* a, lapack_int* lda,
2698  lapack_int* jpvt, float* tau, float* work,
2699  lapack_int *info );
2700 
2701 #define LAPACK_dgeqpf LAPACK_GLOBAL(dgeqpf,DGEQPF)
2702 void LAPACK_dgeqpf( lapack_int* m, lapack_int* n, double* a, lapack_int* lda,
2703  lapack_int* jpvt, double* tau, double* work,
2704  lapack_int *info );
2705 
2706 #define LAPACK_cgeqpf LAPACK_GLOBAL(cgeqpf,CGEQPF)
2707 void LAPACK_cgeqpf( lapack_int* m, lapack_int* n, lapack_complex_float* a,
2708  lapack_int* lda, lapack_int* jpvt,
2709  lapack_complex_float* tau, lapack_complex_float* work,
2710  float* rwork, lapack_int *info );
2711 
2712 #define LAPACK_zgeqpf LAPACK_GLOBAL(zgeqpf,ZGEQPF)
2713 void LAPACK_zgeqpf( lapack_int* m, lapack_int* n, lapack_complex_double* a,
2714  lapack_int* lda, lapack_int* jpvt,
2715  lapack_complex_double* tau, lapack_complex_double* work,
2716  double* rwork, lapack_int *info );
2717 
2718 #define LAPACK_cgeqp3 LAPACK_GLOBAL(cgeqp3,CGEQP3)
2719 void LAPACK_cgeqp3(
2720  lapack_int const* m, lapack_int const* n,
2721  lapack_complex_float* A, lapack_int const* lda, lapack_int* JPVT,
2722  lapack_complex_float* tau,
2723  lapack_complex_float* work, lapack_int const* lwork,
2724  float* rwork,
2725  lapack_int* info );
2726 
2727 #define LAPACK_dgeqp3 LAPACK_GLOBAL(dgeqp3,DGEQP3)
2728 void LAPACK_dgeqp3(
2729  lapack_int const* m, lapack_int const* n,
2730  double* A, lapack_int const* lda, lapack_int* JPVT,
2731  double* tau,
2732  double* work, lapack_int const* lwork,
2733  lapack_int* info );
2734 
2735 #define LAPACK_sgeqp3 LAPACK_GLOBAL(sgeqp3,SGEQP3)
2736 void LAPACK_sgeqp3(
2737  lapack_int const* m, lapack_int const* n,
2738  float* A, lapack_int const* lda, lapack_int* JPVT,
2739  float* tau,
2740  float* work, lapack_int const* lwork,
2741  lapack_int* info );
2742 
2743 #define LAPACK_zgeqp3 LAPACK_GLOBAL(zgeqp3,ZGEQP3)
2744 void LAPACK_zgeqp3(
2745  lapack_int const* m, lapack_int const* n,
2746  lapack_complex_double* A, lapack_int const* lda, lapack_int* JPVT,
2747  lapack_complex_double* tau,
2748  lapack_complex_double* work, lapack_int const* lwork,
2749  double* rwork,
2750  lapack_int* info );
2751 
2752 #define LAPACK_cgeqr LAPACK_GLOBAL(cgeqr,CGEQR)
2753 void LAPACK_cgeqr(
2754  lapack_int const* m, lapack_int const* n,
2755  lapack_complex_float* A, lapack_int const* lda,
2756  lapack_complex_float* T, lapack_int const* tsize,
2757  lapack_complex_float* work, lapack_int const* lwork,
2758  lapack_int* info );
2759 
2760 #define LAPACK_dgeqr LAPACK_GLOBAL(dgeqr,DGEQR)
2761 void LAPACK_dgeqr(
2762  lapack_int const* m, lapack_int const* n,
2763  double* A, lapack_int const* lda,
2764  double* T, lapack_int const* tsize,
2765  double* work, lapack_int const* lwork,
2766  lapack_int* info );
2767 
2768 #define LAPACK_sgeqr LAPACK_GLOBAL(sgeqr,SGEQR)
2769 void LAPACK_sgeqr(
2770  lapack_int const* m, lapack_int const* n,
2771  float* A, lapack_int const* lda,
2772  float* T, lapack_int const* tsize,
2773  float* work, lapack_int const* lwork,
2774  lapack_int* info );
2775 
2776 #define LAPACK_zgeqr LAPACK_GLOBAL(zgeqr,ZGEQR)
2777 void LAPACK_zgeqr(
2778  lapack_int const* m, lapack_int const* n,
2779  lapack_complex_double* A, lapack_int const* lda,
2780  lapack_complex_double* T, lapack_int const* tsize,
2781  lapack_complex_double* work, lapack_int const* lwork,
2782  lapack_int* info );
2783 
2784 #define LAPACK_cgeqr2 LAPACK_GLOBAL(cgeqr2,CGEQR2)
2785 void LAPACK_cgeqr2(
2786  lapack_int const* m, lapack_int const* n,
2787  lapack_complex_float* A, lapack_int const* lda,
2788  lapack_complex_float* tau,
2789  lapack_complex_float* work,
2790  lapack_int* info );
2791 
2792 #define LAPACK_dgeqr2 LAPACK_GLOBAL(dgeqr2,DGEQR2)
2793 void LAPACK_dgeqr2(
2794  lapack_int const* m, lapack_int const* n,
2795  double* A, lapack_int const* lda,
2796  double* tau,
2797  double* work,
2798  lapack_int* info );
2799 
2800 #define LAPACK_sgeqr2 LAPACK_GLOBAL(sgeqr2,SGEQR2)
2801 void LAPACK_sgeqr2(
2802  lapack_int const* m, lapack_int const* n,
2803  float* A, lapack_int const* lda,
2804  float* tau,
2805  float* work,
2806  lapack_int* info );
2807 
2808 #define LAPACK_zgeqr2 LAPACK_GLOBAL(zgeqr2,ZGEQR2)
2809 void LAPACK_zgeqr2(
2810  lapack_int const* m, lapack_int const* n,
2811  lapack_complex_double* A, lapack_int const* lda,
2812  lapack_complex_double* tau,
2813  lapack_complex_double* work,
2814  lapack_int* info );
2815 
2816 #define LAPACK_cgeqrf LAPACK_GLOBAL(cgeqrf,CGEQRF)
2817 void LAPACK_cgeqrf(
2818  lapack_int const* m, lapack_int const* n,
2819  lapack_complex_float* A, lapack_int const* lda,
2820  lapack_complex_float* tau,
2821  lapack_complex_float* work, lapack_int const* lwork,
2822  lapack_int* info );
2823 
2824 #define LAPACK_dgeqrf LAPACK_GLOBAL(dgeqrf,DGEQRF)
2825 void LAPACK_dgeqrf(
2826  lapack_int const* m, lapack_int const* n,
2827  double* A, lapack_int const* lda,
2828  double* tau,
2829  double* work, lapack_int const* lwork,
2830  lapack_int* info );
2831 
2832 #define LAPACK_sgeqrf LAPACK_GLOBAL(sgeqrf,SGEQRF)
2833 void LAPACK_sgeqrf(
2834  lapack_int const* m, lapack_int const* n,
2835  float* A, lapack_int const* lda,
2836  float* tau,
2837  float* work, lapack_int const* lwork,
2838  lapack_int* info );
2839 
2840 #define LAPACK_zgeqrf LAPACK_GLOBAL(zgeqrf,ZGEQRF)
2841 void LAPACK_zgeqrf(
2842  lapack_int const* m, lapack_int const* n,
2843  lapack_complex_double* A, lapack_int const* lda,
2844  lapack_complex_double* tau,
2845  lapack_complex_double* work, lapack_int const* lwork,
2846  lapack_int* info );
2847 
2848 #define LAPACK_cgeqrfp LAPACK_GLOBAL(cgeqrfp,CGEQRFP)
2849 void LAPACK_cgeqrfp(
2850  lapack_int const* m, lapack_int const* n,
2851  lapack_complex_float* A, lapack_int const* lda,
2852  lapack_complex_float* tau,
2853  lapack_complex_float* work, lapack_int const* lwork,
2854  lapack_int* info );
2855 
2856 #define LAPACK_dgeqrfp LAPACK_GLOBAL(dgeqrfp,DGEQRFP)
2857 void LAPACK_dgeqrfp(
2858  lapack_int const* m, lapack_int const* n,
2859  double* A, lapack_int const* lda,
2860  double* tau,
2861  double* work, lapack_int const* lwork,
2862  lapack_int* info );
2863 
2864 #define LAPACK_sgeqrfp LAPACK_GLOBAL(sgeqrfp,SGEQRFP)
2865 void LAPACK_sgeqrfp(
2866  lapack_int const* m, lapack_int const* n,
2867  float* A, lapack_int const* lda,
2868  float* tau,
2869  float* work, lapack_int const* lwork,
2870  lapack_int* info );
2871 
2872 #define LAPACK_zgeqrfp LAPACK_GLOBAL(zgeqrfp,ZGEQRFP)
2873 void LAPACK_zgeqrfp(
2874  lapack_int const* m, lapack_int const* n,
2875  lapack_complex_double* A, lapack_int const* lda,
2876  lapack_complex_double* tau,
2877  lapack_complex_double* work, lapack_int const* lwork,
2878  lapack_int* info );
2879 
2880 #define LAPACK_cgeqrt LAPACK_GLOBAL(cgeqrt,CGEQRT)
2881 void LAPACK_cgeqrt(
2882  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2883  lapack_complex_float* A, lapack_int const* lda,
2884  lapack_complex_float* T, lapack_int const* ldt,
2885  lapack_complex_float* work,
2886  lapack_int* info );
2887 
2888 #define LAPACK_dgeqrt LAPACK_GLOBAL(dgeqrt,DGEQRT)
2889 void LAPACK_dgeqrt(
2890  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2891  double* A, lapack_int const* lda,
2892  double* T, lapack_int const* ldt,
2893  double* work,
2894  lapack_int* info );
2895 
2896 #define LAPACK_sgeqrt LAPACK_GLOBAL(sgeqrt,SGEQRT)
2897 void LAPACK_sgeqrt(
2898  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2899  float* A, lapack_int const* lda,
2900  float* T, lapack_int const* ldt,
2901  float* work,
2902  lapack_int* info );
2903 
2904 #define LAPACK_zgeqrt LAPACK_GLOBAL(zgeqrt,ZGEQRT)
2905 void LAPACK_zgeqrt(
2906  lapack_int const* m, lapack_int const* n, lapack_int const* nb,
2907  lapack_complex_double* A, lapack_int const* lda,
2908  lapack_complex_double* T, lapack_int const* ldt,
2909  lapack_complex_double* work,
2910  lapack_int* info );
2911 
2912 #define LAPACK_cgeqrt2 LAPACK_GLOBAL(cgeqrt2,CGEQRT2)
2913 void LAPACK_cgeqrt2(
2914  lapack_int const* m, lapack_int const* n,
2915  lapack_complex_float* A, lapack_int const* lda,
2916  lapack_complex_float* T, lapack_int const* ldt,
2917  lapack_int* info );
2918 
2919 #define LAPACK_dgeqrt2 LAPACK_GLOBAL(dgeqrt2,DGEQRT2)
2920 void LAPACK_dgeqrt2(
2921  lapack_int const* m, lapack_int const* n,
2922  double* A, lapack_int const* lda,
2923  double* T, lapack_int const* ldt,
2924  lapack_int* info );
2925 
2926 #define LAPACK_sgeqrt2 LAPACK_GLOBAL(sgeqrt2,SGEQRT2)
2927 void LAPACK_sgeqrt2(
2928  lapack_int const* m, lapack_int const* n,
2929  float* A, lapack_int const* lda,
2930  float* T, lapack_int const* ldt,
2931  lapack_int* info );
2932 
2933 #define LAPACK_zgeqrt2 LAPACK_GLOBAL(zgeqrt2,ZGEQRT2)
2934 void LAPACK_zgeqrt2(
2935  lapack_int const* m, lapack_int const* n,
2936  lapack_complex_double* A, lapack_int const* lda,
2937  lapack_complex_double* T, lapack_int const* ldt,
2938  lapack_int* info );
2939 
2940 #define LAPACK_cgeqrt3 LAPACK_GLOBAL(cgeqrt3,CGEQRT3)
2941 void LAPACK_cgeqrt3(
2942  lapack_int const* m, lapack_int const* n,
2943  lapack_complex_float* A, lapack_int const* lda,
2944  lapack_complex_float* T, lapack_int const* ldt,
2945  lapack_int* info );
2946 
2947 #define LAPACK_dgeqrt3 LAPACK_GLOBAL(dgeqrt3,DGEQRT3)
2948 void LAPACK_dgeqrt3(
2949  lapack_int const* m, lapack_int const* n,
2950  double* A, lapack_int const* lda,
2951  double* T, lapack_int const* ldt,
2952  lapack_int* info );
2953 
2954 #define LAPACK_sgeqrt3 LAPACK_GLOBAL(sgeqrt3,SGEQRT3)
2955 void LAPACK_sgeqrt3(
2956  lapack_int const* m, lapack_int const* n,
2957  float* A, lapack_int const* lda,
2958  float* T, lapack_int const* ldt,
2959  lapack_int* info );
2960 
2961 #define LAPACK_zgeqrt3 LAPACK_GLOBAL(zgeqrt3,ZGEQRT3)
2962 void LAPACK_zgeqrt3(
2963  lapack_int const* m, lapack_int const* n,
2964  lapack_complex_double* A, lapack_int const* lda,
2965  lapack_complex_double* T, lapack_int const* ldt,
2966  lapack_int* info );
2967 
2968 #define LAPACK_cgerfs_base LAPACK_GLOBAL(cgerfs,CGERFS)
2969 void LAPACK_cgerfs_base(
2970  char const* trans,
2971  lapack_int const* n, lapack_int const* nrhs,
2972  lapack_complex_float const* A, lapack_int const* lda,
2973  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2974  lapack_complex_float const* B, lapack_int const* ldb,
2975  lapack_complex_float* X, lapack_int const* ldx,
2976  float* ferr,
2977  float* berr,
2978  lapack_complex_float* work,
2979  float* rwork,
2980  lapack_int* info
2981 #ifdef LAPACK_FORTRAN_STRLEN_END
2982  , size_t
2983 #endif
2984 );
2985 #ifdef LAPACK_FORTRAN_STRLEN_END
2986  #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__, 1)
2987 #else
2988  #define LAPACK_cgerfs(...) LAPACK_cgerfs_base(__VA_ARGS__)
2989 #endif
2990 
2991 #define LAPACK_dgerfs_base LAPACK_GLOBAL(dgerfs,DGERFS)
2992 void LAPACK_dgerfs_base(
2993  char const* trans,
2994  lapack_int const* n, lapack_int const* nrhs,
2995  double const* A, lapack_int const* lda,
2996  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
2997  double const* B, lapack_int const* ldb,
2998  double* X, lapack_int const* ldx,
2999  double* ferr,
3000  double* berr,
3001  double* work,
3002  lapack_int* iwork,
3003  lapack_int* info
3004 #ifdef LAPACK_FORTRAN_STRLEN_END
3005  , size_t
3006 #endif
3007 );
3008 #ifdef LAPACK_FORTRAN_STRLEN_END
3009  #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__, 1)
3010 #else
3011  #define LAPACK_dgerfs(...) LAPACK_dgerfs_base(__VA_ARGS__)
3012 #endif
3013 
3014 #define LAPACK_sgerfs_base LAPACK_GLOBAL(sgerfs,SGERFS)
3015 void LAPACK_sgerfs_base(
3016  char const* trans,
3017  lapack_int const* n, lapack_int const* nrhs,
3018  float const* A, lapack_int const* lda,
3019  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3020  float const* B, lapack_int const* ldb,
3021  float* X, lapack_int const* ldx,
3022  float* ferr,
3023  float* berr,
3024  float* work,
3025  lapack_int* iwork,
3026  lapack_int* info
3027 #ifdef LAPACK_FORTRAN_STRLEN_END
3028  , size_t
3029 #endif
3030 );
3031 #ifdef LAPACK_FORTRAN_STRLEN_END
3032  #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__, 1)
3033 #else
3034  #define LAPACK_sgerfs(...) LAPACK_sgerfs_base(__VA_ARGS__)
3035 #endif
3036 
3037 #define LAPACK_zgerfs_base LAPACK_GLOBAL(zgerfs,ZGERFS)
3038 void LAPACK_zgerfs_base(
3039  char const* trans,
3040  lapack_int const* n, lapack_int const* nrhs,
3041  lapack_complex_double const* A, lapack_int const* lda,
3042  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3043  lapack_complex_double const* B, lapack_int const* ldb,
3044  lapack_complex_double* X, lapack_int const* ldx,
3045  double* ferr,
3046  double* berr,
3047  lapack_complex_double* work,
3048  double* rwork,
3049  lapack_int* info
3050 #ifdef LAPACK_FORTRAN_STRLEN_END
3051  , size_t
3052 #endif
3053 );
3054 #ifdef LAPACK_FORTRAN_STRLEN_END
3055  #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__, 1)
3056 #else
3057  #define LAPACK_zgerfs(...) LAPACK_zgerfs_base(__VA_ARGS__)
3058 #endif
3059 
3060 #define LAPACK_cgerfsx_base LAPACK_GLOBAL(cgerfsx,CGERFSX)
3061 void LAPACK_cgerfsx_base(
3062  char const* trans, char const* equed,
3063  lapack_int const* n, lapack_int const* nrhs,
3064  lapack_complex_float const* A, lapack_int const* lda,
3065  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3066  float const* R,
3067  float const* C,
3068  lapack_complex_float const* B, lapack_int const* ldb,
3069  lapack_complex_float* X, lapack_int const* ldx,
3070  float* rcond,
3071  float* berr, lapack_int const* n_err_bnds,
3072  float* err_bnds_norm,
3073  float* err_bnds_comp, lapack_int const* nparams,
3074  float* params,
3075  lapack_complex_float* work,
3076  float* rwork,
3077  lapack_int* info
3078 #ifdef LAPACK_FORTRAN_STRLEN_END
3079  , size_t, size_t
3080 #endif
3081 );
3082 #ifdef LAPACK_FORTRAN_STRLEN_END
3083  #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__, 1, 1)
3084 #else
3085  #define LAPACK_cgerfsx(...) LAPACK_cgerfsx_base(__VA_ARGS__)
3086 #endif
3087 
3088 #define LAPACK_dgerfsx_base LAPACK_GLOBAL(dgerfsx,DGERFSX)
3089 void LAPACK_dgerfsx_base(
3090  char const* trans, char const* equed,
3091  lapack_int const* n, lapack_int const* nrhs,
3092  double const* A, lapack_int const* lda,
3093  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3094  double const* R,
3095  double const* C,
3096  double const* B, lapack_int const* ldb,
3097  double* X, lapack_int const* ldx,
3098  double* rcond,
3099  double* berr, lapack_int const* n_err_bnds,
3100  double* err_bnds_norm,
3101  double* err_bnds_comp, lapack_int const* nparams,
3102  double* params,
3103  double* work,
3104  lapack_int* iwork,
3105  lapack_int* info
3106 #ifdef LAPACK_FORTRAN_STRLEN_END
3107  , size_t, size_t
3108 #endif
3109 );
3110 #ifdef LAPACK_FORTRAN_STRLEN_END
3111  #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__, 1, 1)
3112 #else
3113  #define LAPACK_dgerfsx(...) LAPACK_dgerfsx_base(__VA_ARGS__)
3114 #endif
3115 
3116 #define LAPACK_sgerfsx_base LAPACK_GLOBAL(sgerfsx,SGERFSX)
3117 void LAPACK_sgerfsx_base(
3118  char const* trans, char const* equed,
3119  lapack_int const* n, lapack_int const* nrhs,
3120  float const* A, lapack_int const* lda,
3121  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3122  float const* R,
3123  float const* C,
3124  float const* B, lapack_int const* ldb,
3125  float* X, lapack_int const* ldx,
3126  float* rcond,
3127  float* berr, lapack_int const* n_err_bnds,
3128  float* err_bnds_norm,
3129  float* err_bnds_comp, lapack_int const* nparams,
3130  float* params,
3131  float* work,
3132  lapack_int* iwork,
3133  lapack_int* info
3134 #ifdef LAPACK_FORTRAN_STRLEN_END
3135  , size_t, size_t
3136 #endif
3137 );
3138 #ifdef LAPACK_FORTRAN_STRLEN_END
3139  #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__, 1, 1)
3140 #else
3141  #define LAPACK_sgerfsx(...) LAPACK_sgerfsx_base(__VA_ARGS__)
3142 #endif
3143 
3144 #define LAPACK_zgerfsx_base LAPACK_GLOBAL(zgerfsx,ZGERFSX)
3145 void LAPACK_zgerfsx_base(
3146  char const* trans, char const* equed,
3147  lapack_int const* n, lapack_int const* nrhs,
3148  lapack_complex_double const* A, lapack_int const* lda,
3149  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
3150  double const* R,
3151  double const* C,
3152  lapack_complex_double const* B, lapack_int const* ldb,
3153  lapack_complex_double* X, lapack_int const* ldx,
3154  double* rcond,
3155  double* berr, lapack_int const* n_err_bnds,
3156  double* err_bnds_norm,
3157  double* err_bnds_comp, lapack_int const* nparams,
3158  double* params,
3159  lapack_complex_double* work,
3160  double* rwork,
3161  lapack_int* info
3162 #ifdef LAPACK_FORTRAN_STRLEN_END
3163  , size_t, size_t
3164 #endif
3165 );
3166 #ifdef LAPACK_FORTRAN_STRLEN_END
3167  #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__, 1, 1)
3168 #else
3169  #define LAPACK_zgerfsx(...) LAPACK_zgerfsx_base(__VA_ARGS__)
3170 #endif
3171 
3172 #define LAPACK_cgerq2 LAPACK_GLOBAL(cgerq2,CGERQ2)
3173 void LAPACK_cgerq2(
3174  lapack_int const* m, lapack_int const* n,
3175  lapack_complex_float* A, lapack_int const* lda,
3176  lapack_complex_float* tau,
3177  lapack_complex_float* work,
3178  lapack_int* info );
3179 
3180 #define LAPACK_dgerq2 LAPACK_GLOBAL(dgerq2,DGERQ2)
3181 void LAPACK_dgerq2(
3182  lapack_int const* m, lapack_int const* n,
3183  double* A, lapack_int const* lda,
3184  double* tau,
3185  double* work,
3186  lapack_int* info );
3187 
3188 #define LAPACK_sgerq2 LAPACK_GLOBAL(sgerq2,SGERQ2)
3189 void LAPACK_sgerq2(
3190  lapack_int const* m, lapack_int const* n,
3191  float* A, lapack_int const* lda,
3192  float* tau,
3193  float* work,
3194  lapack_int* info );
3195 
3196 #define LAPACK_zgerq2 LAPACK_GLOBAL(zgerq2,ZGERQ2)
3197 void LAPACK_zgerq2(
3198  lapack_int const* m, lapack_int const* n,
3199  lapack_complex_double* A, lapack_int const* lda,
3200  lapack_complex_double* tau,
3201  lapack_complex_double* work,
3202  lapack_int* info );
3203 
3204 #define LAPACK_cgerqf LAPACK_GLOBAL(cgerqf,CGERQF)
3205 void LAPACK_cgerqf(
3206  lapack_int const* m, lapack_int const* n,
3207  lapack_complex_float* A, lapack_int const* lda,
3208  lapack_complex_float* tau,
3209  lapack_complex_float* work, lapack_int const* lwork,
3210  lapack_int* info );
3211 
3212 #define LAPACK_dgerqf LAPACK_GLOBAL(dgerqf,DGERQF)
3213 void LAPACK_dgerqf(
3214  lapack_int const* m, lapack_int const* n,
3215  double* A, lapack_int const* lda,
3216  double* tau,
3217  double* work, lapack_int const* lwork,
3218  lapack_int* info );
3219 
3220 #define LAPACK_sgerqf LAPACK_GLOBAL(sgerqf,SGERQF)
3221 void LAPACK_sgerqf(
3222  lapack_int const* m, lapack_int const* n,
3223  float* A, lapack_int const* lda,
3224  float* tau,
3225  float* work, lapack_int const* lwork,
3226  lapack_int* info );
3227 
3228 #define LAPACK_zgerqf LAPACK_GLOBAL(zgerqf,ZGERQF)
3229 void LAPACK_zgerqf(
3230  lapack_int const* m, lapack_int const* n,
3231  lapack_complex_double* A, lapack_int const* lda,
3232  lapack_complex_double* tau,
3233  lapack_complex_double* work, lapack_int const* lwork,
3234  lapack_int* info );
3235 
3236 #define LAPACK_cgesdd_base LAPACK_GLOBAL(cgesdd,CGESDD)
3237 void LAPACK_cgesdd_base(
3238  char const* jobz,
3239  lapack_int const* m, lapack_int const* n,
3240  lapack_complex_float* A, lapack_int const* lda,
3241  float* S,
3242  lapack_complex_float* U, lapack_int const* ldu,
3243  lapack_complex_float* VT, lapack_int const* ldvt,
3244  lapack_complex_float* work, lapack_int const* lwork,
3245  float* rwork,
3246  lapack_int* iwork,
3247  lapack_int* info
3248 #ifdef LAPACK_FORTRAN_STRLEN_END
3249  , size_t
3250 #endif
3251 );
3252 #ifdef LAPACK_FORTRAN_STRLEN_END
3253  #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__, 1)
3254 #else
3255  #define LAPACK_cgesdd(...) LAPACK_cgesdd_base(__VA_ARGS__)
3256 #endif
3257 
3258 #define LAPACK_dgesdd_base LAPACK_GLOBAL(dgesdd,DGESDD)
3259 void LAPACK_dgesdd_base(
3260  char const* jobz,
3261  lapack_int const* m, lapack_int const* n,
3262  double* A, lapack_int const* lda,
3263  double* S,
3264  double* U, lapack_int const* ldu,
3265  double* VT, lapack_int const* ldvt,
3266  double* work, lapack_int const* lwork,
3267  lapack_int* iwork,
3268  lapack_int* info
3269 #ifdef LAPACK_FORTRAN_STRLEN_END
3270  , size_t
3271 #endif
3272 );
3273 #ifdef LAPACK_FORTRAN_STRLEN_END
3274  #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__, 1)
3275 #else
3276  #define LAPACK_dgesdd(...) LAPACK_dgesdd_base(__VA_ARGS__)
3277 #endif
3278 
3279 #define LAPACK_sgesdd_base LAPACK_GLOBAL(sgesdd,SGESDD)
3280 void LAPACK_sgesdd_base(
3281  char const* jobz,
3282  lapack_int const* m, lapack_int const* n,
3283  float* A, lapack_int const* lda,
3284  float* S,
3285  float* U, lapack_int const* ldu,
3286  float* VT, lapack_int const* ldvt,
3287  float* work, lapack_int const* lwork,
3288  lapack_int* iwork,
3289  lapack_int* info
3290 #ifdef LAPACK_FORTRAN_STRLEN_END
3291  , size_t
3292 #endif
3293 );
3294 #ifdef LAPACK_FORTRAN_STRLEN_END
3295  #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__, 1)
3296 #else
3297  #define LAPACK_sgesdd(...) LAPACK_sgesdd_base(__VA_ARGS__)
3298 #endif
3299 
3300 #define LAPACK_zgesdd_base LAPACK_GLOBAL(zgesdd,ZGESDD)
3301 void LAPACK_zgesdd_base(
3302  char const* jobz,
3303  lapack_int const* m, lapack_int const* n,
3304  lapack_complex_double* A, lapack_int const* lda,
3305  double* S,
3306  lapack_complex_double* U, lapack_int const* ldu,
3307  lapack_complex_double* VT, lapack_int const* ldvt,
3308  lapack_complex_double* work, lapack_int const* lwork,
3309  double* rwork,
3310  lapack_int* iwork,
3311  lapack_int* info
3312 #ifdef LAPACK_FORTRAN_STRLEN_END
3313  , size_t
3314 #endif
3315 );
3316 #ifdef LAPACK_FORTRAN_STRLEN_END
3317  #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__, 1)
3318 #else
3319  #define LAPACK_zgesdd(...) LAPACK_zgesdd_base(__VA_ARGS__)
3320 #endif
3321 
3322 #define LAPACK_cgesv LAPACK_GLOBAL(cgesv,CGESV)
3323 void LAPACK_cgesv(
3324  lapack_int const* n, lapack_int const* nrhs,
3325  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3326  lapack_complex_float* B, lapack_int const* ldb,
3327  lapack_int* info );
3328 
3329 #define LAPACK_dgesv LAPACK_GLOBAL(dgesv,DGESV)
3330 void LAPACK_dgesv(
3331  lapack_int const* n, lapack_int const* nrhs,
3332  double* A, lapack_int const* lda, lapack_int* ipiv,
3333  double* B, lapack_int const* ldb,
3334  lapack_int* info );
3335 
3336 #define LAPACK_sgesv LAPACK_GLOBAL(sgesv,SGESV)
3337 void LAPACK_sgesv(
3338  lapack_int const* n, lapack_int const* nrhs,
3339  float* A, lapack_int const* lda, lapack_int* ipiv,
3340  float* B, lapack_int const* ldb,
3341  lapack_int* info );
3342 
3343 #define LAPACK_zgesv LAPACK_GLOBAL(zgesv,ZGESV)
3344 void LAPACK_zgesv(
3345  lapack_int const* n, lapack_int const* nrhs,
3346  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3347  lapack_complex_double* B, lapack_int const* ldb,
3348  lapack_int* info );
3349 
3350 #define LAPACK_dsgesv LAPACK_GLOBAL(dsgesv,DSGESV)
3351 void LAPACK_dsgesv(
3352  lapack_int const* n, lapack_int const* nrhs,
3353  double* A, lapack_int const* lda, lapack_int* ipiv,
3354  double const* B, lapack_int const* ldb,
3355  double* X, lapack_int const* ldx,
3356  double* work,
3357  float* swork, lapack_int* iter,
3358  lapack_int* info );
3359 
3360 #define LAPACK_zcgesv LAPACK_GLOBAL(zcgesv,ZCGESV)
3361 void LAPACK_zcgesv(
3362  lapack_int const* n, lapack_int const* nrhs,
3363  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3364  lapack_complex_double const* B, lapack_int const* ldb,
3365  lapack_complex_double* X, lapack_int const* ldx,
3366  lapack_complex_double* work,
3367  lapack_complex_float* swork,
3368  double* rwork, lapack_int* iter,
3369  lapack_int* info );
3370 
3371 #define LAPACK_cgesvd_base LAPACK_GLOBAL(cgesvd,CGESVD)
3372 void LAPACK_cgesvd_base(
3373  char const* jobu, char const* jobvt,
3374  lapack_int const* m, lapack_int const* n,
3375  lapack_complex_float* A, lapack_int const* lda,
3376  float* S,
3377  lapack_complex_float* U, lapack_int const* ldu,
3378  lapack_complex_float* VT, lapack_int const* ldvt,
3379  lapack_complex_float* work, lapack_int const* lwork,
3380  float* rwork,
3381  lapack_int* info
3382 #ifdef LAPACK_FORTRAN_STRLEN_END
3383  , size_t, size_t
3384 #endif
3385 );
3386 #ifdef LAPACK_FORTRAN_STRLEN_END
3387  #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__, 1, 1)
3388 #else
3389  #define LAPACK_cgesvd(...) LAPACK_cgesvd_base(__VA_ARGS__)
3390 #endif
3391 
3392 #define LAPACK_dgesvd_base LAPACK_GLOBAL(dgesvd,DGESVD)
3393 void LAPACK_dgesvd_base(
3394  char const* jobu, char const* jobvt,
3395  lapack_int const* m, lapack_int const* n,
3396  double* A, lapack_int const* lda,
3397  double* S,
3398  double* U, lapack_int const* ldu,
3399  double* VT, lapack_int const* ldvt,
3400  double* work, lapack_int const* lwork,
3401  lapack_int* info
3402 #ifdef LAPACK_FORTRAN_STRLEN_END
3403  , size_t, size_t
3404 #endif
3405 );
3406 #ifdef LAPACK_FORTRAN_STRLEN_END
3407  #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__, 1, 1)
3408 #else
3409  #define LAPACK_dgesvd(...) LAPACK_dgesvd_base(__VA_ARGS__)
3410 #endif
3411 
3412 #define LAPACK_sgesvd_base LAPACK_GLOBAL(sgesvd,SGESVD)
3413 void LAPACK_sgesvd_base(
3414  char const* jobu, char const* jobvt,
3415  lapack_int const* m, lapack_int const* n,
3416  float* A, lapack_int const* lda,
3417  float* S,
3418  float* U, lapack_int const* ldu,
3419  float* VT, lapack_int const* ldvt,
3420  float* work, lapack_int const* lwork,
3421  lapack_int* info
3422 #ifdef LAPACK_FORTRAN_STRLEN_END
3423  , size_t, size_t
3424 #endif
3425 );
3426 #ifdef LAPACK_FORTRAN_STRLEN_END
3427  #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__, 1, 1)
3428 #else
3429  #define LAPACK_sgesvd(...) LAPACK_sgesvd_base(__VA_ARGS__)
3430 #endif
3431 
3432 #define LAPACK_zgesvd_base LAPACK_GLOBAL(zgesvd,ZGESVD)
3433 void LAPACK_zgesvd_base(
3434  char const* jobu, char const* jobvt,
3435  lapack_int const* m, lapack_int const* n,
3436  lapack_complex_double* A, lapack_int const* lda,
3437  double* S,
3438  lapack_complex_double* U, lapack_int const* ldu,
3439  lapack_complex_double* VT, lapack_int const* ldvt,
3440  lapack_complex_double* work, lapack_int const* lwork,
3441  double* rwork,
3442  lapack_int* info
3443 #ifdef LAPACK_FORTRAN_STRLEN_END
3444  , size_t, size_t
3445 #endif
3446 );
3447 #ifdef LAPACK_FORTRAN_STRLEN_END
3448  #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__, 1, 1)
3449 #else
3450  #define LAPACK_zgesvd(...) LAPACK_zgesvd_base(__VA_ARGS__)
3451 #endif
3452 
3453 #define LAPACK_cgesvdq_base LAPACK_GLOBAL(cgesvdq,CGESVDQ)
3454 void LAPACK_cgesvdq_base(
3455  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3456  lapack_int const* m, lapack_int const* n,
3457  lapack_complex_float* A, lapack_int const* lda,
3458  float* S,
3459  lapack_complex_float* U, lapack_int const* ldu,
3460  lapack_complex_float* V, lapack_int const* ldv, lapack_int* numrank,
3461  lapack_int* iwork, lapack_int const* liwork,
3462  lapack_complex_float* cwork, lapack_int* lcwork,
3463  float* rwork, lapack_int const* lrwork,
3464  lapack_int* info
3465 #ifdef LAPACK_FORTRAN_STRLEN_END
3466  , size_t, size_t, size_t, size_t, size_t
3467 #endif
3468 );
3469 #ifdef LAPACK_FORTRAN_STRLEN_END
3470  #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3471 #else
3472  #define LAPACK_cgesvdq(...) LAPACK_cgesvdq_base(__VA_ARGS__)
3473 #endif
3474 
3475 #define LAPACK_dgesvdq_base LAPACK_GLOBAL(dgesvdq,DGESVDQ)
3476 void LAPACK_dgesvdq_base(
3477  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3478  lapack_int const* m, lapack_int const* n,
3479  double* A, lapack_int const* lda,
3480  double* S,
3481  double* U, lapack_int const* ldu,
3482  double* V, lapack_int const* ldv, lapack_int* numrank,
3483  lapack_int* iwork, lapack_int const* liwork,
3484  double* work, lapack_int* lwork,
3485  double* rwork, lapack_int const* lrwork,
3486  lapack_int* info
3487 #ifdef LAPACK_FORTRAN_STRLEN_END
3488  , size_t, size_t, size_t, size_t, size_t
3489 #endif
3490 );
3491 #ifdef LAPACK_FORTRAN_STRLEN_END
3492  #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3493 #else
3494  #define LAPACK_dgesvdq(...) LAPACK_dgesvdq_base(__VA_ARGS__)
3495 #endif
3496 
3497 #define LAPACK_sgesvdq_base LAPACK_GLOBAL(sgesvdq,SGESVDQ)
3498 void LAPACK_sgesvdq_base(
3499  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3500  lapack_int const* m, lapack_int const* n,
3501  float* A, lapack_int const* lda,
3502  float* S,
3503  float* U, lapack_int const* ldu,
3504  float* V, lapack_int const* ldv, lapack_int* numrank,
3505  lapack_int* iwork, lapack_int const* liwork,
3506  float* work, lapack_int* lwork,
3507  float* rwork, lapack_int const* lrwork,
3508  lapack_int* info
3509 #ifdef LAPACK_FORTRAN_STRLEN_END
3510  , size_t, size_t, size_t, size_t, size_t
3511 #endif
3512 );
3513 #ifdef LAPACK_FORTRAN_STRLEN_END
3514  #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3515 #else
3516  #define LAPACK_sgesvdq(...) LAPACK_sgesvdq_base(__VA_ARGS__)
3517 #endif
3518 
3519 #define LAPACK_zgesvdq_base LAPACK_GLOBAL(zgesvdq,ZGESVDQ)
3520 void LAPACK_zgesvdq_base(
3521  char const* joba, char const* jobp, char const* jobr, char const* jobu, char const* jobv,
3522  lapack_int const* m, lapack_int const* n,
3523  lapack_complex_double* A, lapack_int const* lda,
3524  double* S,
3525  lapack_complex_double* U, lapack_int const* ldu,
3526  lapack_complex_double* V, lapack_int const* ldv, lapack_int* numrank,
3527  lapack_int* iwork, lapack_int const* liwork,
3528  lapack_complex_double* cwork, lapack_int* lcwork,
3529  double* rwork, lapack_int const* lrwork,
3530  lapack_int* info
3531 #ifdef LAPACK_FORTRAN_STRLEN_END
3532  , size_t, size_t, size_t, size_t, size_t
3533 #endif
3534 );
3535 #ifdef LAPACK_FORTRAN_STRLEN_END
3536  #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__, 1, 1, 1, 1, 1)
3537 #else
3538  #define LAPACK_zgesvdq(...) LAPACK_zgesvdq_base(__VA_ARGS__)
3539 #endif
3540 
3541 #define LAPACK_cgesvdx_base LAPACK_GLOBAL(cgesvdx,CGESVDX)
3542 void LAPACK_cgesvdx_base(
3543  char const* jobu, char const* jobvt, char const* range,
3544  lapack_int const* m, lapack_int const* n,
3545  lapack_complex_float* A, lapack_int const* lda,
3546  float const* vl,
3547  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3548  float* S,
3549  lapack_complex_float* U, lapack_int const* ldu,
3550  lapack_complex_float* VT, lapack_int const* ldvt,
3551  lapack_complex_float* work, lapack_int const* lwork,
3552  float* rwork,
3553  lapack_int* iwork,
3554  lapack_int* info
3555 #ifdef LAPACK_FORTRAN_STRLEN_END
3556  , size_t, size_t, size_t
3557 #endif
3558 );
3559 #ifdef LAPACK_FORTRAN_STRLEN_END
3560  #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__, 1, 1, 1)
3561 #else
3562  #define LAPACK_cgesvdx(...) LAPACK_cgesvdx_base(__VA_ARGS__)
3563 #endif
3564 
3565 
3566 #define LAPACK_dgesvdx_base LAPACK_GLOBAL(dgesvdx,DGESVDX)
3567 void LAPACK_dgesvdx_base(
3568  char const* jobu, char const* jobvt, char const* range,
3569  lapack_int const* m, lapack_int const* n,
3570  double* A, lapack_int const* lda,
3571  double const* vl,
3572  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3573  double* S,
3574  double* U, lapack_int const* ldu,
3575  double* VT, lapack_int const* ldvt,
3576  double* work, lapack_int const* lwork,
3577  lapack_int* iwork,
3578  lapack_int* info
3579 #ifdef LAPACK_FORTRAN_STRLEN_END
3580  , size_t, size_t, size_t
3581 #endif
3582 );
3583 #ifdef LAPACK_FORTRAN_STRLEN_END
3584  #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__, 1, 1, 1)
3585 #else
3586  #define LAPACK_dgesvdx(...) LAPACK_dgesvdx_base(__VA_ARGS__)
3587 #endif
3588 
3589 #define LAPACK_sgesvdx_base LAPACK_GLOBAL(sgesvdx,SGESVDX)
3590 void LAPACK_sgesvdx_base(
3591  char const* jobu, char const* jobvt, char const* range,
3592  lapack_int const* m, lapack_int const* n,
3593  float* A, lapack_int const* lda,
3594  float const* vl,
3595  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3596  float* S,
3597  float* U, lapack_int const* ldu,
3598  float* VT, lapack_int const* ldvt,
3599  float* work, lapack_int const* lwork,
3600  lapack_int* iwork,
3601  lapack_int* info
3602 #ifdef LAPACK_FORTRAN_STRLEN_END
3603  , size_t, size_t, size_t
3604 #endif
3605 );
3606 #ifdef LAPACK_FORTRAN_STRLEN_END
3607  #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__, 1, 1, 1)
3608 #else
3609  #define LAPACK_sgesvdx(...) LAPACK_sgesvdx_base(__VA_ARGS__)
3610 #endif
3611 
3612 #define LAPACK_zgesvdx_base LAPACK_GLOBAL(zgesvdx,ZGESVDX)
3613 void LAPACK_zgesvdx_base(
3614  char const* jobu, char const* jobvt, char const* range,
3615  lapack_int const* m, lapack_int const* n,
3616  lapack_complex_double* A, lapack_int const* lda,
3617  double const* vl,
3618  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* ns,
3619  double* S,
3620  lapack_complex_double* U, lapack_int const* ldu,
3621  lapack_complex_double* VT, lapack_int const* ldvt,
3622  lapack_complex_double* work, lapack_int const* lwork,
3623  double* rwork,
3624  lapack_int* iwork,
3625  lapack_int* info
3626 #ifdef LAPACK_FORTRAN_STRLEN_END
3627  , size_t, size_t, size_t
3628 #endif
3629 );
3630 #ifdef LAPACK_FORTRAN_STRLEN_END
3631  #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__, 1, 1, 1)
3632 #else
3633  #define LAPACK_zgesvdx(...) LAPACK_zgesvdx_base(__VA_ARGS__)
3634 #endif
3635 
3636 #define LAPACK_cgesvj_base LAPACK_GLOBAL(cgesvj,CGESVJ)
3637 void LAPACK_cgesvj_base(
3638  char const* joba, char const* jobu, char const* jobv,
3639  lapack_int const* m, lapack_int const* n,
3640  lapack_complex_float* A, lapack_int const* lda,
3641  float* SVA, lapack_int const* mv,
3642  lapack_complex_float* V, lapack_int const* ldv,
3643  lapack_complex_float* cwork, lapack_int const* lwork,
3644  float* rwork, lapack_int const* lrwork,
3645  lapack_int* info
3646 #ifdef LAPACK_FORTRAN_STRLEN_END
3647  , size_t, size_t, size_t
3648 #endif
3649 );
3650 #ifdef LAPACK_FORTRAN_STRLEN_END
3651  #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__, 1, 1, 1)
3652 #else
3653  #define LAPACK_cgesvj(...) LAPACK_cgesvj_base(__VA_ARGS__)
3654 #endif
3655 
3656 #define LAPACK_dgesvj_base LAPACK_GLOBAL(dgesvj,DGESVJ)
3657 void LAPACK_dgesvj_base(
3658  char const* joba, char const* jobu, char const* jobv,
3659  lapack_int const* m, lapack_int const* n,
3660  double* A, lapack_int const* lda,
3661  double* SVA, lapack_int const* mv,
3662  double* V, lapack_int const* ldv,
3663  double* work, lapack_int const* lwork,
3664  lapack_int* info
3665 #ifdef LAPACK_FORTRAN_STRLEN_END
3666  , size_t, size_t, size_t
3667 #endif
3668 );
3669 #ifdef LAPACK_FORTRAN_STRLEN_END
3670  #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__, 1, 1, 1)
3671 #else
3672  #define LAPACK_dgesvj(...) LAPACK_dgesvj_base(__VA_ARGS__)
3673 #endif
3674 
3675 #define LAPACK_sgesvj_base LAPACK_GLOBAL(sgesvj,SGESVJ)
3676 void LAPACK_sgesvj_base(
3677  char const* joba, char const* jobu, char const* jobv,
3678  lapack_int const* m, lapack_int const* n,
3679  float* A, lapack_int const* lda,
3680  float* SVA, lapack_int const* mv,
3681  float* V, lapack_int const* ldv,
3682  float* work, lapack_int const* lwork,
3683  lapack_int* info
3684 #ifdef LAPACK_FORTRAN_STRLEN_END
3685  , size_t, size_t, size_t
3686 #endif
3687 );
3688 #ifdef LAPACK_FORTRAN_STRLEN_END
3689  #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__, 1, 1, 1)
3690 #else
3691  #define LAPACK_sgesvj(...) LAPACK_sgesvj_base(__VA_ARGS__)
3692 #endif
3693 
3694 #define LAPACK_zgesvj_base LAPACK_GLOBAL(zgesvj,ZGESVJ)
3695 void LAPACK_zgesvj_base(
3696  char const* joba, char const* jobu, char const* jobv,
3697  lapack_int const* m, lapack_int const* n,
3698  lapack_complex_double* A, lapack_int const* lda,
3699  double* SVA, lapack_int const* mv,
3700  lapack_complex_double* V, lapack_int const* ldv,
3701  lapack_complex_double* cwork, lapack_int const* lwork,
3702  double* rwork, lapack_int const* lrwork,
3703  lapack_int* info
3704 #ifdef LAPACK_FORTRAN_STRLEN_END
3705  , size_t, size_t, size_t
3706 #endif
3707 );
3708 #ifdef LAPACK_FORTRAN_STRLEN_END
3709  #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__, 1, 1, 1)
3710 #else
3711  #define LAPACK_zgesvj(...) LAPACK_zgesvj_base(__VA_ARGS__)
3712 #endif
3713 
3714 #define LAPACK_cgesvx_base LAPACK_GLOBAL(cgesvx,CGESVX)
3715 void LAPACK_cgesvx_base(
3716  char const* fact, char const* trans,
3717  lapack_int const* n, lapack_int const* nrhs,
3718  lapack_complex_float* A, lapack_int const* lda,
3719  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3720  float* R,
3721  float* C,
3722  lapack_complex_float* B,
3723  lapack_int const* ldb,
3724  lapack_complex_float* X, lapack_int const* ldx,
3725  float* rcond,
3726  float* ferr,
3727  float* berr,
3728  lapack_complex_float* work,
3729  float* rwork,
3730  lapack_int* info
3731 #ifdef LAPACK_FORTRAN_STRLEN_END
3732  , size_t, size_t, size_t
3733 #endif
3734 );
3735 #ifdef LAPACK_FORTRAN_STRLEN_END
3736  #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__, 1, 1, 1)
3737 #else
3738  #define LAPACK_cgesvx(...) LAPACK_cgesvx_base(__VA_ARGS__)
3739 #endif
3740 
3741 #define LAPACK_dgesvx_base LAPACK_GLOBAL(dgesvx,DGESVX)
3742 void LAPACK_dgesvx_base(
3743  char const* fact, char const* trans,
3744  lapack_int const* n, lapack_int const* nrhs,
3745  double* A, lapack_int const* lda,
3746  double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3747  double* R,
3748  double* C,
3749  double* B,
3750  lapack_int const* ldb,
3751  double* X, lapack_int const* ldx,
3752  double* rcond,
3753  double* ferr,
3754  double* berr,
3755  double* work,
3756  lapack_int* iwork,
3757  lapack_int* info
3758 #ifdef LAPACK_FORTRAN_STRLEN_END
3759  , size_t, size_t, size_t
3760 #endif
3761 );
3762 #ifdef LAPACK_FORTRAN_STRLEN_END
3763  #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__, 1, 1, 1)
3764 #else
3765  #define LAPACK_dgesvx(...) LAPACK_dgesvx_base(__VA_ARGS__)
3766 #endif
3767 
3768 #define LAPACK_sgesvx_base LAPACK_GLOBAL(sgesvx,SGESVX)
3769 void LAPACK_sgesvx_base(
3770  char const* fact, char const* trans,
3771  lapack_int const* n, lapack_int const* nrhs,
3772  float* A, lapack_int const* lda,
3773  float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3774  float* R,
3775  float* C,
3776  float* B,
3777  lapack_int const* ldb,
3778  float* X, lapack_int const* ldx,
3779  float* rcond,
3780  float* ferr,
3781  float* berr,
3782  float* work,
3783  lapack_int* iwork,
3784  lapack_int* info
3785 #ifdef LAPACK_FORTRAN_STRLEN_END
3786  , size_t, size_t, size_t
3787 #endif
3788 );
3789 #ifdef LAPACK_FORTRAN_STRLEN_END
3790  #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__, 1, 1, 1)
3791 #else
3792  #define LAPACK_sgesvx(...) LAPACK_sgesvx_base(__VA_ARGS__)
3793 #endif
3794 
3795 #define LAPACK_zgesvx_base LAPACK_GLOBAL(zgesvx,ZGESVX)
3796 void LAPACK_zgesvx_base(
3797  char const* fact, char const* trans,
3798  lapack_int const* n, lapack_int const* nrhs,
3799  lapack_complex_double* A, lapack_int const* lda,
3800  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3801  double* R,
3802  double* C,
3803  lapack_complex_double* B,
3804  lapack_int const* ldb,
3805  lapack_complex_double* X, lapack_int const* ldx,
3806  double* rcond,
3807  double* ferr,
3808  double* berr,
3809  lapack_complex_double* work,
3810  double* rwork,
3811  lapack_int* info
3812 #ifdef LAPACK_FORTRAN_STRLEN_END
3813  , size_t, size_t, size_t
3814 #endif
3815 );
3816 #ifdef LAPACK_FORTRAN_STRLEN_END
3817  #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__, 1, 1, 1)
3818 #else
3819  #define LAPACK_zgesvx(...) LAPACK_zgesvx_base(__VA_ARGS__)
3820 #endif
3821 
3822 #define LAPACK_cgesvxx_base LAPACK_GLOBAL(cgesvxx,CGESVXX)
3823 void LAPACK_cgesvxx_base(
3824  char const* fact, char const* trans,
3825  lapack_int const* n, lapack_int const* nrhs,
3826  lapack_complex_float* A, lapack_int const* lda,
3827  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3828  float* R,
3829  float* C,
3830  lapack_complex_float* B,
3831  lapack_int const* ldb,
3832  lapack_complex_float* X, lapack_int const* ldx,
3833  float* rcond,
3834  float* rpvgrw,
3835  float* berr, lapack_int const* n_err_bnds,
3836  float* err_bnds_norm,
3837  float* err_bnds_comp, lapack_int const* nparams,
3838  float* params,
3839  lapack_complex_float* work,
3840  float* rwork,
3841  lapack_int* info
3842 #ifdef LAPACK_FORTRAN_STRLEN_END
3843  , size_t, size_t, size_t
3844 #endif
3845 );
3846 #ifdef LAPACK_FORTRAN_STRLEN_END
3847  #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__, 1, 1, 1)
3848 #else
3849  #define LAPACK_cgesvxx(...) LAPACK_cgesvxx_base(__VA_ARGS__)
3850 #endif
3851 
3852 #define LAPACK_dgesvxx_base LAPACK_GLOBAL(dgesvxx,DGESVXX)
3853 void LAPACK_dgesvxx_base(
3854  char const* fact, char const* trans,
3855  lapack_int const* n, lapack_int const* nrhs,
3856  double* A, lapack_int const* lda,
3857  double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3858  double* R,
3859  double* C,
3860  double* B,
3861  lapack_int const* ldb,
3862  double* X, lapack_int const* ldx,
3863  double* rcond,
3864  double* rpvgrw,
3865  double* berr, lapack_int const* n_err_bnds,
3866  double* err_bnds_norm,
3867  double* err_bnds_comp, lapack_int const* nparams,
3868  double* params,
3869  double* work,
3870  lapack_int* iwork,
3871  lapack_int* info
3872 #ifdef LAPACK_FORTRAN_STRLEN_END
3873  , size_t, size_t, size_t
3874 #endif
3875 );
3876 #ifdef LAPACK_FORTRAN_STRLEN_END
3877  #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__, 1, 1, 1)
3878 #else
3879  #define LAPACK_dgesvxx(...) LAPACK_dgesvxx_base(__VA_ARGS__)
3880 #endif
3881 
3882 #define LAPACK_sgesvxx_base LAPACK_GLOBAL(sgesvxx,SGESVXX)
3883 void LAPACK_sgesvxx_base(
3884  char const* fact, char const* trans,
3885  lapack_int const* n, lapack_int const* nrhs,
3886  float* A, lapack_int const* lda,
3887  float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3888  float* R,
3889  float* C,
3890  float* B,
3891  lapack_int const* ldb,
3892  float* X, lapack_int const* ldx,
3893  float* rcond,
3894  float* rpvgrw,
3895  float* berr, lapack_int const* n_err_bnds,
3896  float* err_bnds_norm,
3897  float* err_bnds_comp, lapack_int const* nparams,
3898  float* params,
3899  float* work,
3900  lapack_int* iwork,
3901  lapack_int* info
3902 #ifdef LAPACK_FORTRAN_STRLEN_END
3903  , size_t, size_t, size_t
3904 #endif
3905 );
3906 #ifdef LAPACK_FORTRAN_STRLEN_END
3907  #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__, 1, 1, 1)
3908 #else
3909  #define LAPACK_sgesvxx(...) LAPACK_sgesvxx_base(__VA_ARGS__)
3910 #endif
3911 
3912 #define LAPACK_zgesvxx_base LAPACK_GLOBAL(zgesvxx,ZGESVXX)
3913 void LAPACK_zgesvxx_base(
3914  char const* fact, char const* trans,
3915  lapack_int const* n, lapack_int const* nrhs,
3916  lapack_complex_double* A, lapack_int const* lda,
3917  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
3918  double* R,
3919  double* C,
3920  lapack_complex_double* B,
3921  lapack_int const* ldb,
3922  lapack_complex_double* X, lapack_int const* ldx,
3923  double* rcond,
3924  double* rpvgrw,
3925  double* berr, lapack_int const* n_err_bnds,
3926  double* err_bnds_norm,
3927  double* err_bnds_comp, lapack_int const* nparams,
3928  double* params,
3929  lapack_complex_double* work,
3930  double* rwork,
3931  lapack_int* info
3932 #ifdef LAPACK_FORTRAN_STRLEN_END
3933  , size_t, size_t, size_t
3934 #endif
3935 );
3936 #ifdef LAPACK_FORTRAN_STRLEN_END
3937  #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__, 1, 1, 1)
3938 #else
3939  #define LAPACK_zgesvxx(...) LAPACK_zgesvxx_base(__VA_ARGS__)
3940 #endif
3941 
3942 #define LAPACK_cgetf2 LAPACK_GLOBAL(cgetf2,CGETF2)
3943 void LAPACK_cgetf2(
3944  lapack_int const* m, lapack_int const* n,
3945  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3946  lapack_int* info );
3947 
3948 #define LAPACK_dgetf2 LAPACK_GLOBAL(dgetf2,DGETF2)
3949 void LAPACK_dgetf2(
3950  lapack_int const* m, lapack_int const* n,
3951  double* A, lapack_int const* lda, lapack_int* ipiv,
3952  lapack_int* info );
3953 
3954 #define LAPACK_sgetf2 LAPACK_GLOBAL(sgetf2,SGETF2)
3955 void LAPACK_sgetf2(
3956  lapack_int const* m, lapack_int const* n,
3957  float* A, lapack_int const* lda, lapack_int* ipiv,
3958  lapack_int* info );
3959 
3960 #define LAPACK_zgetf2 LAPACK_GLOBAL(zgetf2,ZGETF2)
3961 void LAPACK_zgetf2(
3962  lapack_int const* m, lapack_int const* n,
3963  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3964  lapack_int* info );
3965 
3966 #define LAPACK_cgetrf LAPACK_GLOBAL(cgetrf,CGETRF)
3967 void LAPACK_cgetrf(
3968  lapack_int const* m, lapack_int const* n,
3969  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3970  lapack_int* info );
3971 
3972 #define LAPACK_dgetrf LAPACK_GLOBAL(dgetrf,DGETRF)
3973 void LAPACK_dgetrf(
3974  lapack_int const* m, lapack_int const* n,
3975  double* A, lapack_int const* lda, lapack_int* ipiv,
3976  lapack_int* info );
3977 
3978 #define LAPACK_sgetrf LAPACK_GLOBAL(sgetrf,SGETRF)
3979 void LAPACK_sgetrf(
3980  lapack_int const* m, lapack_int const* n,
3981  float* A, lapack_int const* lda, lapack_int* ipiv,
3982  lapack_int* info );
3983 
3984 #define LAPACK_zgetrf LAPACK_GLOBAL(zgetrf,ZGETRF)
3985 void LAPACK_zgetrf(
3986  lapack_int const* m, lapack_int const* n,
3987  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
3988  lapack_int* info );
3989 
3990 #define LAPACK_cgetrf2 LAPACK_GLOBAL(cgetrf2,CGETRF2)
3991 void LAPACK_cgetrf2(
3992  lapack_int const* m, lapack_int const* n,
3993  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
3994  lapack_int* info );
3995 
3996 #define LAPACK_dgetrf2 LAPACK_GLOBAL(dgetrf2,DGETRF2)
3997 void LAPACK_dgetrf2(
3998  lapack_int const* m, lapack_int const* n,
3999  double* A, lapack_int const* lda, lapack_int* ipiv,
4000  lapack_int* info );
4001 
4002 #define LAPACK_sgetrf2 LAPACK_GLOBAL(sgetrf2,SGETRF2)
4003 void LAPACK_sgetrf2(
4004  lapack_int const* m, lapack_int const* n,
4005  float* A, lapack_int const* lda, lapack_int* ipiv,
4006  lapack_int* info );
4007 
4008 #define LAPACK_zgetrf2 LAPACK_GLOBAL(zgetrf2,ZGETRF2)
4009 void LAPACK_zgetrf2(
4010  lapack_int const* m, lapack_int const* n,
4011  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
4012  lapack_int* info );
4013 
4014 #define LAPACK_cgetri LAPACK_GLOBAL(cgetri,CGETRI)
4015 void LAPACK_cgetri(
4016  lapack_int const* n,
4017  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
4018  lapack_complex_float* work, lapack_int const* lwork,
4019  lapack_int* info );
4020 
4021 #define LAPACK_dgetri LAPACK_GLOBAL(dgetri,DGETRI)
4022 void LAPACK_dgetri(
4023  lapack_int const* n,
4024  double* A, lapack_int const* lda, lapack_int const* ipiv,
4025  double* work, lapack_int const* lwork,
4026  lapack_int* info );
4027 
4028 #define LAPACK_sgetri LAPACK_GLOBAL(sgetri,SGETRI)
4029 void LAPACK_sgetri(
4030  lapack_int const* n,
4031  float* A, lapack_int const* lda, lapack_int const* ipiv,
4032  float* work, lapack_int const* lwork,
4033  lapack_int* info );
4034 
4035 #define LAPACK_zgetri LAPACK_GLOBAL(zgetri,ZGETRI)
4036 void LAPACK_zgetri(
4037  lapack_int const* n,
4038  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
4039  lapack_complex_double* work, lapack_int const* lwork,
4040  lapack_int* info );
4041 
4042 #define LAPACK_cgetrs_base LAPACK_GLOBAL(cgetrs,CGETRS)
4043 void LAPACK_cgetrs_base(
4044  char const* trans,
4045  lapack_int const* n, lapack_int const* nrhs,
4046  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
4047  lapack_complex_float* B, lapack_int const* ldb,
4048  lapack_int* info
4049 #ifdef LAPACK_FORTRAN_STRLEN_END
4050  , size_t
4051 #endif
4052 );
4053 #ifdef LAPACK_FORTRAN_STRLEN_END
4054  #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__, 1)
4055 #else
4056  #define LAPACK_cgetrs(...) LAPACK_cgetrs_base(__VA_ARGS__)
4057 #endif
4058 
4059 #define LAPACK_dgetrs_base LAPACK_GLOBAL(dgetrs,DGETRS)
4060 void LAPACK_dgetrs_base(
4061  char const* trans,
4062  lapack_int const* n, lapack_int const* nrhs,
4063  double const* A, lapack_int const* lda, lapack_int const* ipiv,
4064  double* B, lapack_int const* ldb,
4065  lapack_int* info
4066 #ifdef LAPACK_FORTRAN_STRLEN_END
4067  , size_t
4068 #endif
4069 );
4070 #ifdef LAPACK_FORTRAN_STRLEN_END
4071  #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__, 1)
4072 #else
4073  #define LAPACK_dgetrs(...) LAPACK_dgetrs_base(__VA_ARGS__)
4074 #endif
4075 
4076 #define LAPACK_sgetrs_base LAPACK_GLOBAL(sgetrs,SGETRS)
4077 void LAPACK_sgetrs_base(
4078  char const* trans,
4079  lapack_int const* n, lapack_int const* nrhs,
4080  float const* A, lapack_int const* lda, lapack_int const* ipiv,
4081  float* B, lapack_int const* ldb,
4082  lapack_int* info
4083 #ifdef LAPACK_FORTRAN_STRLEN_END
4084  , size_t
4085 #endif
4086 );
4087 #ifdef LAPACK_FORTRAN_STRLEN_END
4088  #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__, 1)
4089 #else
4090  #define LAPACK_sgetrs(...) LAPACK_sgetrs_base(__VA_ARGS__)
4091 #endif
4092 
4093 #define LAPACK_zgetrs_base LAPACK_GLOBAL(zgetrs,ZGETRS)
4094 void LAPACK_zgetrs_base(
4095  char const* trans,
4096  lapack_int const* n, lapack_int const* nrhs,
4097  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
4098  lapack_complex_double* B, lapack_int const* ldb,
4099  lapack_int* info
4100 #ifdef LAPACK_FORTRAN_STRLEN_END
4101  , size_t
4102 #endif
4103 );
4104 #ifdef LAPACK_FORTRAN_STRLEN_END
4105  #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__, 1)
4106 #else
4107  #define LAPACK_zgetrs(...) LAPACK_zgetrs_base(__VA_ARGS__)
4108 #endif
4109 
4110 #define LAPACK_cgetsls_base LAPACK_GLOBAL(cgetsls,CGETSLS)
4111 void LAPACK_cgetsls_base(
4112  char const* trans,
4113  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4114  lapack_complex_float* A, lapack_int const* lda,
4115  lapack_complex_float* B, lapack_int const* ldb,
4116  lapack_complex_float* work, lapack_int const* lwork,
4117  lapack_int* info
4118 #ifdef LAPACK_FORTRAN_STRLEN_END
4119  , size_t
4120 #endif
4121 );
4122 #ifdef LAPACK_FORTRAN_STRLEN_END
4123  #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__, 1)
4124 #else
4125  #define LAPACK_cgetsls(...) LAPACK_cgetsls_base(__VA_ARGS__)
4126 #endif
4127 
4128 #define LAPACK_dgetsls_base LAPACK_GLOBAL(dgetsls,DGETSLS)
4129 void LAPACK_dgetsls_base(
4130  char const* trans,
4131  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4132  double* A, lapack_int const* lda,
4133  double* B, lapack_int const* ldb,
4134  double* work, lapack_int const* lwork,
4135  lapack_int* info
4136 #ifdef LAPACK_FORTRAN_STRLEN_END
4137  , size_t
4138 #endif
4139 );
4140 #ifdef LAPACK_FORTRAN_STRLEN_END
4141  #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__, 1)
4142 #else
4143  #define LAPACK_dgetsls(...) LAPACK_dgetsls_base(__VA_ARGS__)
4144 #endif
4145 
4146 #define LAPACK_sgetsls_base LAPACK_GLOBAL(sgetsls,SGETSLS)
4147 void LAPACK_sgetsls_base(
4148  char const* trans,
4149  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4150  float* A, lapack_int const* lda,
4151  float* B, lapack_int const* ldb,
4152  float* work, lapack_int const* lwork,
4153  lapack_int* info
4154 #ifdef LAPACK_FORTRAN_STRLEN_END
4155  , size_t
4156 #endif
4157 );
4158 #ifdef LAPACK_FORTRAN_STRLEN_END
4159  #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__, 1)
4160 #else
4161  #define LAPACK_sgetsls(...) LAPACK_sgetsls_base(__VA_ARGS__)
4162 #endif
4163 
4164 #define LAPACK_zgetsls_base LAPACK_GLOBAL(zgetsls,ZGETSLS)
4165 void LAPACK_zgetsls_base(
4166  char const* trans,
4167  lapack_int const* m, lapack_int const* n, lapack_int const* nrhs,
4168  lapack_complex_double* A, lapack_int const* lda,
4169  lapack_complex_double* B, lapack_int const* ldb,
4170  lapack_complex_double* work, lapack_int const* lwork,
4171  lapack_int* info
4172 #ifdef LAPACK_FORTRAN_STRLEN_END
4173  , size_t
4174 #endif
4175 );
4176 #ifdef LAPACK_FORTRAN_STRLEN_END
4177  #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__, 1)
4178 #else
4179  #define LAPACK_zgetsls(...) LAPACK_zgetsls_base(__VA_ARGS__)
4180 #endif
4181 
4182 #define LAPACK_cgetsqrhrt LAPACK_GLOBAL(cgetsqrhrt,CGETSQRHRT)
4183 void LAPACK_cgetsqrhrt(
4184  lapack_int const* m, lapack_int const* n,
4185  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4186  lapack_complex_float* A, lapack_int const* lda,
4187  lapack_complex_float* T, lapack_int const* ldt,
4188  lapack_complex_float* work, lapack_int const* lwork,
4189  lapack_int* info );
4190 
4191 #define LAPACK_dgetsqrhrt LAPACK_GLOBAL(dgetsqrhrt,DGETSQRHRT)
4192 void LAPACK_dgetsqrhrt(
4193  lapack_int const* m, lapack_int const* n,
4194  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4195  double* A, lapack_int const* lda,
4196  double* T, lapack_int const* ldt,
4197  double* work, lapack_int const* lwork,
4198  lapack_int* info );
4199 
4200 #define LAPACK_sgetsqrhrt LAPACK_GLOBAL(sgetsqrhrt,SGETSQRHRT)
4201 void LAPACK_sgetsqrhrt(
4202  lapack_int const* m, lapack_int const* n,
4203  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4204  float* A, lapack_int const* lda,
4205  float* T, lapack_int const* ldt,
4206  float* work, lapack_int const* lwork,
4207  lapack_int* info );
4208 
4209 #define LAPACK_zgetsqrhrt LAPACK_GLOBAL(zgetsqrhrt,ZGETSQRHRT)
4210 void LAPACK_zgetsqrhrt(
4211  lapack_int const* m, lapack_int const* n,
4212  lapack_int const* mb1, lapack_int const* nb1, lapack_int const* nb2,
4213  lapack_complex_double* A, lapack_int const* lda,
4214  lapack_complex_double* T, lapack_int const* ldt,
4215  lapack_complex_double* work, lapack_int const* lwork,
4216  lapack_int* info );
4217 
4218 #define LAPACK_cggbak_base LAPACK_GLOBAL(cggbak,CGGBAK)
4219 void LAPACK_cggbak_base(
4220  char const* job, char const* side,
4221  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4222  float const* lscale,
4223  float const* rscale, lapack_int const* m,
4224  lapack_complex_float* V, lapack_int const* ldv,
4225  lapack_int* info
4226 #ifdef LAPACK_FORTRAN_STRLEN_END
4227  , size_t, size_t
4228 #endif
4229 );
4230 #ifdef LAPACK_FORTRAN_STRLEN_END
4231  #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__, 1, 1)
4232 #else
4233  #define LAPACK_cggbak(...) LAPACK_cggbak_base(__VA_ARGS__)
4234 #endif
4235 
4236 #define LAPACK_dggbak_base LAPACK_GLOBAL(dggbak,DGGBAK)
4237 void LAPACK_dggbak_base(
4238  char const* job, char const* side,
4239  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4240  double const* lscale,
4241  double const* rscale, lapack_int const* m,
4242  double* V, lapack_int const* ldv,
4243  lapack_int* info
4244 #ifdef LAPACK_FORTRAN_STRLEN_END
4245  , size_t, size_t
4246 #endif
4247 );
4248 #ifdef LAPACK_FORTRAN_STRLEN_END
4249  #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__, 1, 1)
4250 #else
4251  #define LAPACK_dggbak(...) LAPACK_dggbak_base(__VA_ARGS__)
4252 #endif
4253 
4254 #define LAPACK_sggbak_base LAPACK_GLOBAL(sggbak,SGGBAK)
4255 void LAPACK_sggbak_base(
4256  char const* job, char const* side,
4257  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4258  float const* lscale,
4259  float const* rscale, lapack_int const* m,
4260  float* V, lapack_int const* ldv,
4261  lapack_int* info
4262 #ifdef LAPACK_FORTRAN_STRLEN_END
4263  , size_t, size_t
4264 #endif
4265 );
4266 #ifdef LAPACK_FORTRAN_STRLEN_END
4267  #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__, 1, 1)
4268 #else
4269  #define LAPACK_sggbak(...) LAPACK_sggbak_base(__VA_ARGS__)
4270 #endif
4271 
4272 #define LAPACK_zggbak_base LAPACK_GLOBAL(zggbak,ZGGBAK)
4273 void LAPACK_zggbak_base(
4274  char const* job, char const* side,
4275  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
4276  double const* lscale,
4277  double const* rscale, lapack_int const* m,
4278  lapack_complex_double* V, lapack_int const* ldv,
4279  lapack_int* info
4280 #ifdef LAPACK_FORTRAN_STRLEN_END
4281  , size_t, size_t
4282 #endif
4283 );
4284 #ifdef LAPACK_FORTRAN_STRLEN_END
4285  #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__, 1, 1)
4286 #else
4287  #define LAPACK_zggbak(...) LAPACK_zggbak_base(__VA_ARGS__)
4288 #endif
4289 
4290 #define LAPACK_cggbal_base LAPACK_GLOBAL(cggbal,CGGBAL)
4291 void LAPACK_cggbal_base(
4292  char const* job,
4293  lapack_int const* n,
4294  lapack_complex_float* A, lapack_int const* lda,
4295  lapack_complex_float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4296  float* lscale,
4297  float* rscale,
4298  float* work,
4299  lapack_int* info
4300 #ifdef LAPACK_FORTRAN_STRLEN_END
4301  , size_t
4302 #endif
4303 );
4304 #ifdef LAPACK_FORTRAN_STRLEN_END
4305  #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__, 1)
4306 #else
4307  #define LAPACK_cggbal(...) LAPACK_cggbal_base(__VA_ARGS__)
4308 #endif
4309 
4310 #define LAPACK_dggbal_base LAPACK_GLOBAL(dggbal,DGGBAL)
4311 void LAPACK_dggbal_base(
4312  char const* job,
4313  lapack_int const* n,
4314  double* A, lapack_int const* lda,
4315  double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4316  double* lscale,
4317  double* rscale,
4318  double* work,
4319  lapack_int* info
4320 #ifdef LAPACK_FORTRAN_STRLEN_END
4321  , size_t
4322 #endif
4323 );
4324 #ifdef LAPACK_FORTRAN_STRLEN_END
4325  #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__, 1)
4326 #else
4327  #define LAPACK_dggbal(...) LAPACK_dggbal_base(__VA_ARGS__)
4328 #endif
4329 
4330 #define LAPACK_sggbal_base LAPACK_GLOBAL(sggbal,SGGBAL)
4331 void LAPACK_sggbal_base(
4332  char const* job,
4333  lapack_int const* n,
4334  float* A, lapack_int const* lda,
4335  float* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4336  float* lscale,
4337  float* rscale,
4338  float* work,
4339  lapack_int* info
4340 #ifdef LAPACK_FORTRAN_STRLEN_END
4341  , size_t
4342 #endif
4343 );
4344 #ifdef LAPACK_FORTRAN_STRLEN_END
4345  #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__, 1)
4346 #else
4347  #define LAPACK_sggbal(...) LAPACK_sggbal_base(__VA_ARGS__)
4348 #endif
4349 
4350 #define LAPACK_zggbal_base LAPACK_GLOBAL(zggbal,ZGGBAL)
4351 void LAPACK_zggbal_base(
4352  char const* job,
4353  lapack_int const* n,
4354  lapack_complex_double* A, lapack_int const* lda,
4355  lapack_complex_double* B, lapack_int const* ldb, lapack_int* ilo, lapack_int* ihi,
4356  double* lscale,
4357  double* rscale,
4358  double* work,
4359  lapack_int* info
4360 #ifdef LAPACK_FORTRAN_STRLEN_END
4361  , size_t
4362 #endif
4363 );
4364 #ifdef LAPACK_FORTRAN_STRLEN_END
4365  #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__, 1)
4366 #else
4367  #define LAPACK_zggbal(...) LAPACK_zggbal_base(__VA_ARGS__)
4368 #endif
4369 
4370 #define LAPACK_cgges_base LAPACK_GLOBAL(cgges,CGGES)
4371 void LAPACK_cgges_base(
4372  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg,
4373  lapack_int const* n,
4374  lapack_complex_float* A, lapack_int const* lda,
4375  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4376  lapack_complex_float* alpha,
4377  lapack_complex_float* beta,
4378  lapack_complex_float* VSL, lapack_int const* ldvsl,
4379  lapack_complex_float* VSR, lapack_int const* ldvsr,
4380  lapack_complex_float* work, lapack_int const* lwork,
4381  float* rwork, lapack_logical* BWORK,
4382  lapack_int* info
4383 #ifdef LAPACK_FORTRAN_STRLEN_END
4384  , size_t, size_t, size_t
4385 #endif
4386 );
4387 #ifdef LAPACK_FORTRAN_STRLEN_END
4388  #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__, 1, 1, 1)
4389 #else
4390  #define LAPACK_cgges(...) LAPACK_cgges_base(__VA_ARGS__)
4391 #endif
4392 
4393 #define LAPACK_dgges_base LAPACK_GLOBAL(dgges,DGGES)
4394 void LAPACK_dgges_base(
4395  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg,
4396  lapack_int const* n,
4397  double* A, lapack_int const* lda,
4398  double* B, lapack_int const* ldb, lapack_int* sdim,
4399  double* alphar,
4400  double* alphai,
4401  double* beta,
4402  double* VSL, lapack_int const* ldvsl,
4403  double* VSR, lapack_int const* ldvsr,
4404  double* work, lapack_int const* lwork, lapack_logical* BWORK,
4405  lapack_int* info
4406 #ifdef LAPACK_FORTRAN_STRLEN_END
4407  , size_t, size_t, size_t
4408 #endif
4409 );
4410 #ifdef LAPACK_FORTRAN_STRLEN_END
4411  #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__, 1, 1, 1)
4412 #else
4413  #define LAPACK_dgges(...) LAPACK_dgges_base(__VA_ARGS__)
4414 #endif
4415 
4416 #define LAPACK_sgges_base LAPACK_GLOBAL(sgges,SGGES)
4417 void LAPACK_sgges_base(
4418  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg,
4419  lapack_int const* n,
4420  float* A, lapack_int const* lda,
4421  float* B, lapack_int const* ldb, lapack_int* sdim,
4422  float* alphar,
4423  float* alphai,
4424  float* beta,
4425  float* VSL, lapack_int const* ldvsl,
4426  float* VSR, lapack_int const* ldvsr,
4427  float* work, lapack_int const* lwork, lapack_logical* BWORK,
4428  lapack_int* info
4429 #ifdef LAPACK_FORTRAN_STRLEN_END
4430  , size_t, size_t, size_t
4431 #endif
4432 );
4433 #ifdef LAPACK_FORTRAN_STRLEN_END
4434  #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__, 1, 1, 1)
4435 #else
4436  #define LAPACK_sgges(...) LAPACK_sgges_base(__VA_ARGS__)
4437 #endif
4438 
4439 #define LAPACK_zgges_base LAPACK_GLOBAL(zgges,ZGGES)
4440 void LAPACK_zgges_base(
4441  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg,
4442  lapack_int const* n,
4443  lapack_complex_double* A, lapack_int const* lda,
4444  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4445  lapack_complex_double* alpha,
4446  lapack_complex_double* beta,
4447  lapack_complex_double* VSL, lapack_int const* ldvsl,
4448  lapack_complex_double* VSR, lapack_int const* ldvsr,
4449  lapack_complex_double* work, lapack_int const* lwork,
4450  double* rwork, lapack_logical* BWORK,
4451  lapack_int* info
4452 #ifdef LAPACK_FORTRAN_STRLEN_END
4453  , size_t, size_t, size_t
4454 #endif
4455 );
4456 #ifdef LAPACK_FORTRAN_STRLEN_END
4457  #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__, 1, 1, 1)
4458 #else
4459  #define LAPACK_zgges(...) LAPACK_zgges_base(__VA_ARGS__)
4460 #endif
4461 
4462 #define LAPACK_cgges3_base LAPACK_GLOBAL(cgges3,CGGES3)
4463 void LAPACK_cgges3_base(
4464  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg,
4465  lapack_int const* n,
4466  lapack_complex_float* A, lapack_int const* lda,
4467  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4468  lapack_complex_float* alpha,
4469  lapack_complex_float* beta,
4470  lapack_complex_float* VSL, lapack_int const* ldvsl,
4471  lapack_complex_float* VSR, lapack_int const* ldvsr,
4472  lapack_complex_float* work, lapack_int const* lwork,
4473  float* rwork, lapack_logical* BWORK,
4474  lapack_int* info
4475 #ifdef LAPACK_FORTRAN_STRLEN_END
4476  , size_t, size_t, size_t
4477 #endif
4478 );
4479 #ifdef LAPACK_FORTRAN_STRLEN_END
4480  #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__, 1, 1, 1)
4481 #else
4482  #define LAPACK_cgges3(...) LAPACK_cgges3_base(__VA_ARGS__)
4483 #endif
4484 
4485 #define LAPACK_dgges3_base LAPACK_GLOBAL(dgges3,DGGES3)
4486 void LAPACK_dgges3_base(
4487  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg,
4488  lapack_int const* n,
4489  double* A, lapack_int const* lda,
4490  double* B, lapack_int const* ldb, lapack_int* sdim,
4491  double* alphar,
4492  double* alphai,
4493  double* beta,
4494  double* VSL, lapack_int const* ldvsl,
4495  double* VSR, lapack_int const* ldvsr,
4496  double* work, lapack_int const* lwork, lapack_logical* BWORK,
4497  lapack_int* info
4498 #ifdef LAPACK_FORTRAN_STRLEN_END
4499  , size_t, size_t, size_t
4500 #endif
4501 );
4502 #ifdef LAPACK_FORTRAN_STRLEN_END
4503  #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__, 1, 1, 1)
4504 #else
4505  #define LAPACK_dgges3(...) LAPACK_dgges3_base(__VA_ARGS__)
4506 #endif
4507 
4508 #define LAPACK_sgges3_base LAPACK_GLOBAL(sgges3,SGGES3)
4509 void LAPACK_sgges3_base(
4510  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg,
4511  lapack_int const* n,
4512  float* A, lapack_int const* lda,
4513  float* B, lapack_int const* ldb, lapack_int* sdim,
4514  float* alphar,
4515  float* alphai,
4516  float* beta,
4517  float* VSL, lapack_int const* ldvsl,
4518  float* VSR, lapack_int const* ldvsr,
4519  float* work, lapack_int const* lwork, lapack_logical* BWORK,
4520  lapack_int* info
4521 #ifdef LAPACK_FORTRAN_STRLEN_END
4522  , size_t, size_t, size_t
4523 #endif
4524 );
4525 #ifdef LAPACK_FORTRAN_STRLEN_END
4526  #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__, 1, 1, 1)
4527 #else
4528  #define LAPACK_sgges3(...) LAPACK_sgges3_base(__VA_ARGS__)
4529 #endif
4530 
4531 #define LAPACK_zgges3_base LAPACK_GLOBAL(zgges3,ZGGES3)
4532 void LAPACK_zgges3_base(
4533  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg,
4534  lapack_int const* n,
4535  lapack_complex_double* A, lapack_int const* lda,
4536  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4537  lapack_complex_double* alpha,
4538  lapack_complex_double* beta,
4539  lapack_complex_double* VSL, lapack_int const* ldvsl,
4540  lapack_complex_double* VSR, lapack_int const* ldvsr,
4541  lapack_complex_double* work, lapack_int const* lwork,
4542  double* rwork, lapack_logical* BWORK,
4543  lapack_int* info
4544 #ifdef LAPACK_FORTRAN_STRLEN_END
4545  , size_t, size_t, size_t
4546 #endif
4547 );
4548 #ifdef LAPACK_FORTRAN_STRLEN_END
4549  #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__, 1, 1, 1)
4550 #else
4551  #define LAPACK_zgges3(...) LAPACK_zgges3_base(__VA_ARGS__)
4552 #endif
4553 
4554 #define LAPACK_cggesx_base LAPACK_GLOBAL(cggesx,CGGESX)
4555 void LAPACK_cggesx_base(
4556  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_C_SELECT2 selctg, char const* sense,
4557  lapack_int const* n,
4558  lapack_complex_float* A, lapack_int const* lda,
4559  lapack_complex_float* B, lapack_int const* ldb, lapack_int* sdim,
4560  lapack_complex_float* alpha,
4561  lapack_complex_float* beta,
4562  lapack_complex_float* VSL, lapack_int const* ldvsl,
4563  lapack_complex_float* VSR, lapack_int const* ldvsr,
4564  float* rconde,
4565  float* rcondv,
4566  lapack_complex_float* work, lapack_int const* lwork,
4567  float* rwork,
4568  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4569  lapack_int* info
4570 #ifdef LAPACK_FORTRAN_STRLEN_END
4571  , size_t, size_t, size_t, size_t
4572 #endif
4573 );
4574 #ifdef LAPACK_FORTRAN_STRLEN_END
4575  #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4576 #else
4577  #define LAPACK_cggesx(...) LAPACK_cggesx_base(__VA_ARGS__)
4578 #endif
4579 
4580 #define LAPACK_dggesx_base LAPACK_GLOBAL(dggesx,DGGESX)
4581 void LAPACK_dggesx_base(
4582  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_D_SELECT3 selctg, char const* sense,
4583  lapack_int const* n,
4584  double* A, lapack_int const* lda,
4585  double* B, lapack_int const* ldb, lapack_int* sdim,
4586  double* alphar,
4587  double* alphai,
4588  double* beta,
4589  double* VSL, lapack_int const* ldvsl,
4590  double* VSR, lapack_int const* ldvsr,
4591  double* rconde,
4592  double* rcondv,
4593  double* work, lapack_int const* lwork,
4594  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4595  lapack_int* info
4596 #ifdef LAPACK_FORTRAN_STRLEN_END
4597  , size_t, size_t, size_t, size_t
4598 #endif
4599 );
4600 #ifdef LAPACK_FORTRAN_STRLEN_END
4601  #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4602 #else
4603  #define LAPACK_dggesx(...) LAPACK_dggesx_base(__VA_ARGS__)
4604 #endif
4605 
4606 #define LAPACK_sggesx_base LAPACK_GLOBAL(sggesx,SGGESX)
4607 void LAPACK_sggesx_base(
4608  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_S_SELECT3 selctg, char const* sense,
4609  lapack_int const* n,
4610  float* A, lapack_int const* lda,
4611  float* B, lapack_int const* ldb, lapack_int* sdim,
4612  float* alphar,
4613  float* alphai,
4614  float* beta,
4615  float* VSL, lapack_int const* ldvsl,
4616  float* VSR, lapack_int const* ldvsr,
4617  float* rconde,
4618  float* rcondv,
4619  float* work, lapack_int const* lwork,
4620  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4621  lapack_int* info
4622 #ifdef LAPACK_FORTRAN_STRLEN_END
4623  , size_t, size_t, size_t, size_t
4624 #endif
4625 );
4626 #ifdef LAPACK_FORTRAN_STRLEN_END
4627  #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4628 #else
4629  #define LAPACK_sggesx(...) LAPACK_sggesx_base(__VA_ARGS__)
4630 #endif
4631 
4632 #define LAPACK_zggesx_base LAPACK_GLOBAL(zggesx,ZGGESX)
4633 void LAPACK_zggesx_base(
4634  char const* jobvsl, char const* jobvsr, char const* sort, LAPACK_Z_SELECT2 selctg, char const* sense,
4635  lapack_int const* n,
4636  lapack_complex_double* A, lapack_int const* lda,
4637  lapack_complex_double* B, lapack_int const* ldb, lapack_int* sdim,
4638  lapack_complex_double* alpha,
4639  lapack_complex_double* beta,
4640  lapack_complex_double* VSL, lapack_int const* ldvsl,
4641  lapack_complex_double* VSR, lapack_int const* ldvsr,
4642  double* rconde,
4643  double* rcondv,
4644  lapack_complex_double* work, lapack_int const* lwork,
4645  double* rwork,
4646  lapack_int* iwork, lapack_int const* liwork, lapack_logical* BWORK,
4647  lapack_int* info
4648 #ifdef LAPACK_FORTRAN_STRLEN_END
4649  , size_t, size_t, size_t, size_t
4650 #endif
4651 );
4652 #ifdef LAPACK_FORTRAN_STRLEN_END
4653  #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__, 1, 1, 1, 1)
4654 #else
4655  #define LAPACK_zggesx(...) LAPACK_zggesx_base(__VA_ARGS__)
4656 #endif
4657 
4658 #define LAPACK_cggev_base LAPACK_GLOBAL(cggev,CGGEV)
4659 void LAPACK_cggev_base(
4660  char const* jobvl, char const* jobvr,
4661  lapack_int const* n,
4662  lapack_complex_float* A, lapack_int const* lda,
4663  lapack_complex_float* B, lapack_int const* ldb,
4664  lapack_complex_float* alpha,
4665  lapack_complex_float* beta,
4666  lapack_complex_float* VL, lapack_int const* ldvl,
4667  lapack_complex_float* VR, lapack_int const* ldvr,
4668  lapack_complex_float* work, lapack_int const* lwork,
4669  float* rwork,
4670  lapack_int* info
4671 #ifdef LAPACK_FORTRAN_STRLEN_END
4672  , size_t, size_t
4673 #endif
4674 );
4675 #ifdef LAPACK_FORTRAN_STRLEN_END
4676  #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__, 1, 1)
4677 #else
4678  #define LAPACK_cggev(...) LAPACK_cggev_base(__VA_ARGS__)
4679 #endif
4680 
4681 #define LAPACK_dggev_base LAPACK_GLOBAL(dggev,DGGEV)
4682 void LAPACK_dggev_base(
4683  char const* jobvl, char const* jobvr,
4684  lapack_int const* n,
4685  double* A, lapack_int const* lda,
4686  double* B, lapack_int const* ldb,
4687  double* alphar,
4688  double* alphai,
4689  double* beta,
4690  double* VL, lapack_int const* ldvl,
4691  double* VR, lapack_int const* ldvr,
4692  double* work, lapack_int const* lwork,
4693  lapack_int* info
4694 #ifdef LAPACK_FORTRAN_STRLEN_END
4695  , size_t, size_t
4696 #endif
4697 );
4698 #ifdef LAPACK_FORTRAN_STRLEN_END
4699  #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__, 1, 1)
4700 #else
4701  #define LAPACK_dggev(...) LAPACK_dggev_base(__VA_ARGS__)
4702 #endif
4703 
4704 #define LAPACK_sggev_base LAPACK_GLOBAL(sggev,SGGEV)
4705 void LAPACK_sggev_base(
4706  char const* jobvl, char const* jobvr,
4707  lapack_int const* n,
4708  float* A, lapack_int const* lda,
4709  float* B, lapack_int const* ldb,
4710  float* alphar,
4711  float* alphai,
4712  float* beta,
4713  float* VL, lapack_int const* ldvl,
4714  float* VR, lapack_int const* ldvr,
4715  float* work, lapack_int const* lwork,
4716  lapack_int* info
4717 #ifdef LAPACK_FORTRAN_STRLEN_END
4718  , size_t, size_t
4719 #endif
4720 );
4721 #ifdef LAPACK_FORTRAN_STRLEN_END
4722  #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__, 1, 1)
4723 #else
4724  #define LAPACK_sggev(...) LAPACK_sggev_base(__VA_ARGS__)
4725 #endif
4726 
4727 #define LAPACK_zggev_base LAPACK_GLOBAL(zggev,ZGGEV)
4728 void LAPACK_zggev_base(
4729  char const* jobvl, char const* jobvr,
4730  lapack_int const* n,
4731  lapack_complex_double* A, lapack_int const* lda,
4732  lapack_complex_double* B, lapack_int const* ldb,
4733  lapack_complex_double* alpha,
4734  lapack_complex_double* beta,
4735  lapack_complex_double* VL, lapack_int const* ldvl,
4736  lapack_complex_double* VR, lapack_int const* ldvr,
4737  lapack_complex_double* work, lapack_int const* lwork,
4738  double* rwork,
4739  lapack_int* info
4740 #ifdef LAPACK_FORTRAN_STRLEN_END
4741  , size_t, size_t
4742 #endif
4743 );
4744 #ifdef LAPACK_FORTRAN_STRLEN_END
4745  #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__, 1, 1)
4746 #else
4747  #define LAPACK_zggev(...) LAPACK_zggev_base(__VA_ARGS__)
4748 #endif
4749 
4750 #define LAPACK_cggev3_base LAPACK_GLOBAL(cggev3,CGGEV3)
4751 void LAPACK_cggev3_base(
4752  char const* jobvl, char const* jobvr,
4753  lapack_int const* n,
4754  lapack_complex_float* A, lapack_int const* lda,
4755  lapack_complex_float* B, lapack_int const* ldb,
4756  lapack_complex_float* alpha,
4757  lapack_complex_float* beta,
4758  lapack_complex_float* VL, lapack_int const* ldvl,
4759  lapack_complex_float* VR, lapack_int const* ldvr,
4760  lapack_complex_float* work, lapack_int const* lwork,
4761  float* rwork,
4762  lapack_int* info
4763 #ifdef LAPACK_FORTRAN_STRLEN_END
4764  , size_t, size_t
4765 #endif
4766 );
4767 #ifdef LAPACK_FORTRAN_STRLEN_END
4768  #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__, 1, 1)
4769 #else
4770  #define LAPACK_cggev3(...) LAPACK_cggev3_base(__VA_ARGS__)
4771 #endif
4772 
4773 #define LAPACK_dggev3_base LAPACK_GLOBAL(dggev3,DGGEV3)
4774 void LAPACK_dggev3_base(
4775  char const* jobvl, char const* jobvr,
4776  lapack_int const* n,
4777  double* A, lapack_int const* lda,
4778  double* B, lapack_int const* ldb,
4779  double* alphar,
4780  double* alphai,
4781  double* beta,
4782  double* VL, lapack_int const* ldvl,
4783  double* VR, lapack_int const* ldvr,
4784  double* work, lapack_int const* lwork,
4785  lapack_int* info
4786 #ifdef LAPACK_FORTRAN_STRLEN_END
4787  , size_t, size_t
4788 #endif
4789 );
4790 #ifdef LAPACK_FORTRAN_STRLEN_END
4791  #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__, 1, 1)
4792 #else
4793  #define LAPACK_dggev3(...) LAPACK_dggev3_base(__VA_ARGS__)
4794 #endif
4795 
4796 #define LAPACK_sggev3_base LAPACK_GLOBAL(sggev3,SGGEV3)
4797 void LAPACK_sggev3_base(
4798  char const* jobvl, char const* jobvr,
4799  lapack_int const* n,
4800  float* A, lapack_int const* lda,
4801  float* B, lapack_int const* ldb,
4802  float* alphar,
4803  float* alphai,
4804  float* beta,
4805  float* VL, lapack_int const* ldvl,
4806  float* VR, lapack_int const* ldvr,
4807  float* work, lapack_int const* lwork,
4808  lapack_int* info
4809 #ifdef LAPACK_FORTRAN_STRLEN_END
4810  , size_t, size_t
4811 #endif
4812 );
4813 #ifdef LAPACK_FORTRAN_STRLEN_END
4814  #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__, 1, 1)
4815 #else
4816  #define LAPACK_sggev3(...) LAPACK_sggev3_base(__VA_ARGS__)
4817 #endif
4818 
4819 #define LAPACK_zggev3_base LAPACK_GLOBAL(zggev3,ZGGEV3)
4820 void LAPACK_zggev3_base(
4821  char const* jobvl, char const* jobvr,
4822  lapack_int const* n,
4823  lapack_complex_double* A, lapack_int const* lda,
4824  lapack_complex_double* B, lapack_int const* ldb,
4825  lapack_complex_double* alpha,
4826  lapack_complex_double* beta,
4827  lapack_complex_double* VL, lapack_int const* ldvl,
4828  lapack_complex_double* VR, lapack_int const* ldvr,
4829  lapack_complex_double* work, lapack_int const* lwork,
4830  double* rwork,
4831  lapack_int* info
4832 #ifdef LAPACK_FORTRAN_STRLEN_END
4833  , size_t, size_t
4834 #endif
4835 );
4836 #ifdef LAPACK_FORTRAN_STRLEN_END
4837  #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__, 1, 1)
4838 #else
4839  #define LAPACK_zggev3(...) LAPACK_zggev3_base(__VA_ARGS__)
4840 #endif
4841 
4842 #define LAPACK_cggevx_base LAPACK_GLOBAL(cggevx,CGGEVX)
4843 void LAPACK_cggevx_base(
4844  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
4845  lapack_int const* n,
4846  lapack_complex_float* A, lapack_int const* lda,
4847  lapack_complex_float* B, lapack_int const* ldb,
4848  lapack_complex_float* alpha,
4849  lapack_complex_float* beta,
4850  lapack_complex_float* VL, lapack_int const* ldvl,
4851  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4852  float* lscale,
4853  float* rscale,
4854  float* abnrm,
4855  float* bbnrm,
4856  float* rconde,
4857  float* rcondv,
4858  lapack_complex_float* work, lapack_int const* lwork,
4859  float* rwork,
4860  lapack_int* iwork, lapack_logical* BWORK,
4861  lapack_int* info
4862 #ifdef LAPACK_FORTRAN_STRLEN_END
4863  , size_t, size_t, size_t, size_t
4864 #endif
4865 );
4866 #ifdef LAPACK_FORTRAN_STRLEN_END
4867  #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4868 #else
4869  #define LAPACK_cggevx(...) LAPACK_cggevx_base(__VA_ARGS__)
4870 #endif
4871 
4872 #define LAPACK_dggevx_base LAPACK_GLOBAL(dggevx,DGGEVX)
4873 void LAPACK_dggevx_base(
4874  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
4875  lapack_int const* n,
4876  double* A, lapack_int const* lda,
4877  double* B, lapack_int const* ldb,
4878  double* alphar,
4879  double* alphai,
4880  double* beta,
4881  double* VL, lapack_int const* ldvl,
4882  double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4883  double* lscale,
4884  double* rscale,
4885  double* abnrm,
4886  double* bbnrm,
4887  double* rconde,
4888  double* rcondv,
4889  double* work, lapack_int const* lwork,
4890  lapack_int* iwork, lapack_logical* BWORK,
4891  lapack_int* info
4892 #ifdef LAPACK_FORTRAN_STRLEN_END
4893  , size_t, size_t, size_t, size_t
4894 #endif
4895 );
4896 #ifdef LAPACK_FORTRAN_STRLEN_END
4897  #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4898 #else
4899  #define LAPACK_dggevx(...) LAPACK_dggevx_base(__VA_ARGS__)
4900 #endif
4901 
4902 #define LAPACK_sggevx_base LAPACK_GLOBAL(sggevx,SGGEVX)
4903 void LAPACK_sggevx_base(
4904  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
4905  lapack_int const* n,
4906  float* A, lapack_int const* lda,
4907  float* B, lapack_int const* ldb,
4908  float* alphar,
4909  float* alphai,
4910  float* beta,
4911  float* VL, lapack_int const* ldvl,
4912  float* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4913  float* lscale,
4914  float* rscale,
4915  float* abnrm,
4916  float* bbnrm,
4917  float* rconde,
4918  float* rcondv,
4919  float* work, lapack_int const* lwork,
4920  lapack_int* iwork, lapack_logical* BWORK,
4921  lapack_int* info
4922 #ifdef LAPACK_FORTRAN_STRLEN_END
4923  , size_t, size_t, size_t, size_t
4924 #endif
4925 );
4926 #ifdef LAPACK_FORTRAN_STRLEN_END
4927  #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4928 #else
4929  #define LAPACK_sggevx(...) LAPACK_sggevx_base(__VA_ARGS__)
4930 #endif
4931 
4932 #define LAPACK_zggevx_base LAPACK_GLOBAL(zggevx,ZGGEVX)
4933 void LAPACK_zggevx_base(
4934  char const* balanc, char const* jobvl, char const* jobvr, char const* sense,
4935  lapack_int const* n,
4936  lapack_complex_double* A, lapack_int const* lda,
4937  lapack_complex_double* B, lapack_int const* ldb,
4938  lapack_complex_double* alpha,
4939  lapack_complex_double* beta,
4940  lapack_complex_double* VL, lapack_int const* ldvl,
4941  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int* ilo, lapack_int* ihi,
4942  double* lscale,
4943  double* rscale,
4944  double* abnrm,
4945  double* bbnrm,
4946  double* rconde,
4947  double* rcondv,
4948  lapack_complex_double* work, lapack_int const* lwork,
4949  double* rwork,
4950  lapack_int* iwork, lapack_logical* BWORK,
4951  lapack_int* info
4952 #ifdef LAPACK_FORTRAN_STRLEN_END
4953  , size_t, size_t, size_t, size_t
4954 #endif
4955 );
4956 #ifdef LAPACK_FORTRAN_STRLEN_END
4957  #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__, 1, 1, 1, 1)
4958 #else
4959  #define LAPACK_zggevx(...) LAPACK_zggevx_base(__VA_ARGS__)
4960 #endif
4961 
4962 #define LAPACK_cggglm LAPACK_GLOBAL(cggglm,CGGGLM)
4963 void LAPACK_cggglm(
4964  lapack_int const* n, lapack_int const* m, lapack_int const* p,
4965  lapack_complex_float* A, lapack_int const* lda,
4966  lapack_complex_float* B, lapack_int const* ldb,
4967  lapack_complex_float* D,
4968  lapack_complex_float* X,
4969  lapack_complex_float* Y,
4970  lapack_complex_float* work, lapack_int const* lwork,
4971  lapack_int* info );
4972 
4973 #define LAPACK_dggglm LAPACK_GLOBAL(dggglm,DGGGLM)
4974 void LAPACK_dggglm(
4975  lapack_int const* n, lapack_int const* m, lapack_int const* p,
4976  double* A, lapack_int const* lda,
4977  double* B, lapack_int const* ldb,
4978  double* D,
4979  double* X,
4980  double* Y,
4981  double* work, lapack_int const* lwork,
4982  lapack_int* info );
4983 
4984 #define LAPACK_sggglm LAPACK_GLOBAL(sggglm,SGGGLM)
4985 void LAPACK_sggglm(
4986  lapack_int const* n, lapack_int const* m, lapack_int const* p,
4987  float* A, lapack_int const* lda,
4988  float* B, lapack_int const* ldb,
4989  float* D,
4990  float* X,
4991  float* Y,
4992  float* work, lapack_int const* lwork,
4993  lapack_int* info );
4994 
4995 #define LAPACK_zggglm LAPACK_GLOBAL(zggglm,ZGGGLM)
4996 void LAPACK_zggglm(
4997  lapack_int const* n, lapack_int const* m, lapack_int const* p,
4998  lapack_complex_double* A, lapack_int const* lda,
4999  lapack_complex_double* B, lapack_int const* ldb,
5000  lapack_complex_double* D,
5001  lapack_complex_double* X,
5002  lapack_complex_double* Y,
5003  lapack_complex_double* work, lapack_int const* lwork,
5004  lapack_int* info );
5005 
5006 #define LAPACK_cgghd3_base LAPACK_GLOBAL(cgghd3,CGGHD3)
5007 void LAPACK_cgghd3_base(
5008  char const* compq, char const* compz,
5009  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5010  lapack_complex_float* A, lapack_int const* lda,
5011  lapack_complex_float* B, lapack_int const* ldb,
5012  lapack_complex_float* Q, lapack_int const* ldq,
5013  lapack_complex_float* Z, lapack_int const* ldz,
5014  lapack_complex_float* work, lapack_int const* lwork,
5015  lapack_int* info
5016 #ifdef LAPACK_FORTRAN_STRLEN_END
5017  , size_t, size_t
5018 #endif
5019 );
5020 #ifdef LAPACK_FORTRAN_STRLEN_END
5021  #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__, 1, 1)
5022 #else
5023  #define LAPACK_cgghd3(...) LAPACK_cgghd3_base(__VA_ARGS__)
5024 #endif
5025 
5026 #define LAPACK_dgghd3_base LAPACK_GLOBAL(dgghd3,DGGHD3)
5027 void LAPACK_dgghd3_base(
5028  char const* compq, char const* compz,
5029  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5030  double* A, lapack_int const* lda,
5031  double* B, lapack_int const* ldb,
5032  double* Q, lapack_int const* ldq,
5033  double* Z, lapack_int const* ldz,
5034  double* work, lapack_int const* lwork,
5035  lapack_int* info
5036 #ifdef LAPACK_FORTRAN_STRLEN_END
5037  , size_t, size_t
5038 #endif
5039 );
5040 #ifdef LAPACK_FORTRAN_STRLEN_END
5041  #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__, 1, 1)
5042 #else
5043  #define LAPACK_dgghd3(...) LAPACK_dgghd3_base(__VA_ARGS__)
5044 #endif
5045 
5046 #define LAPACK_sgghd3_base LAPACK_GLOBAL(sgghd3,SGGHD3)
5047 void LAPACK_sgghd3_base(
5048  char const* compq, char const* compz,
5049  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5050  float* A, lapack_int const* lda,
5051  float* B, lapack_int const* ldb,
5052  float* Q, lapack_int const* ldq,
5053  float* Z, lapack_int const* ldz,
5054  float* work, lapack_int const* lwork,
5055  lapack_int* info
5056 #ifdef LAPACK_FORTRAN_STRLEN_END
5057  , size_t, size_t
5058 #endif
5059 );
5060 #ifdef LAPACK_FORTRAN_STRLEN_END
5061  #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__, 1, 1)
5062 #else
5063  #define LAPACK_sgghd3(...) LAPACK_sgghd3_base(__VA_ARGS__)
5064 #endif
5065 
5066 #define LAPACK_zgghd3_base LAPACK_GLOBAL(zgghd3,ZGGHD3)
5067 void LAPACK_zgghd3_base(
5068  char const* compq, char const* compz,
5069  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5070  lapack_complex_double* A, lapack_int const* lda,
5071  lapack_complex_double* B, lapack_int const* ldb,
5072  lapack_complex_double* Q, lapack_int const* ldq,
5073  lapack_complex_double* Z, lapack_int const* ldz,
5074  lapack_complex_double* work, lapack_int const* lwork,
5075  lapack_int* info
5076 #ifdef LAPACK_FORTRAN_STRLEN_END
5077  , size_t, size_t
5078 #endif
5079 );
5080 #ifdef LAPACK_FORTRAN_STRLEN_END
5081  #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__, 1, 1)
5082 #else
5083  #define LAPACK_zgghd3(...) LAPACK_zgghd3_base(__VA_ARGS__)
5084 #endif
5085 
5086 #define LAPACK_cgghrd_base LAPACK_GLOBAL(cgghrd,CGGHRD)
5087 void LAPACK_cgghrd_base(
5088  char const* compq, char const* compz,
5089  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5090  lapack_complex_float* A, lapack_int const* lda,
5091  lapack_complex_float* B, lapack_int const* ldb,
5092  lapack_complex_float* Q, lapack_int const* ldq,
5093  lapack_complex_float* Z, lapack_int const* ldz,
5094  lapack_int* info
5095 #ifdef LAPACK_FORTRAN_STRLEN_END
5096  , size_t, size_t
5097 #endif
5098 );
5099 #ifdef LAPACK_FORTRAN_STRLEN_END
5100  #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__, 1, 1)
5101 #else
5102  #define LAPACK_cgghrd(...) LAPACK_cgghrd_base(__VA_ARGS__)
5103 #endif
5104 
5105 #define LAPACK_dgghrd_base LAPACK_GLOBAL(dgghrd,DGGHRD)
5106 void LAPACK_dgghrd_base(
5107  char const* compq, char const* compz,
5108  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5109  double* A, lapack_int const* lda,
5110  double* B, lapack_int const* ldb,
5111  double* Q, lapack_int const* ldq,
5112  double* Z, lapack_int const* ldz,
5113  lapack_int* info
5114 #ifdef LAPACK_FORTRAN_STRLEN_END
5115  , size_t, size_t
5116 #endif
5117 );
5118 #ifdef LAPACK_FORTRAN_STRLEN_END
5119  #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__, 1, 1)
5120 #else
5121  #define LAPACK_dgghrd(...) LAPACK_dgghrd_base(__VA_ARGS__)
5122 #endif
5123 
5124 #define LAPACK_sgghrd_base LAPACK_GLOBAL(sgghrd,SGGHRD)
5125 void LAPACK_sgghrd_base(
5126  char const* compq, char const* compz,
5127  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5128  float* A, lapack_int const* lda,
5129  float* B, lapack_int const* ldb,
5130  float* Q, lapack_int const* ldq,
5131  float* Z, lapack_int const* ldz,
5132  lapack_int* info
5133 #ifdef LAPACK_FORTRAN_STRLEN_END
5134  , size_t, size_t
5135 #endif
5136 );
5137 #ifdef LAPACK_FORTRAN_STRLEN_END
5138  #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__, 1, 1)
5139 #else
5140  #define LAPACK_sgghrd(...) LAPACK_sgghrd_base(__VA_ARGS__)
5141 #endif
5142 
5143 #define LAPACK_zgghrd_base LAPACK_GLOBAL(zgghrd,ZGGHRD)
5144 void LAPACK_zgghrd_base(
5145  char const* compq, char const* compz,
5146  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
5147  lapack_complex_double* A, lapack_int const* lda,
5148  lapack_complex_double* B, lapack_int const* ldb,
5149  lapack_complex_double* Q, lapack_int const* ldq,
5150  lapack_complex_double* Z, lapack_int const* ldz,
5151  lapack_int* info
5152 #ifdef LAPACK_FORTRAN_STRLEN_END
5153  , size_t, size_t
5154 #endif
5155 );
5156 #ifdef LAPACK_FORTRAN_STRLEN_END
5157  #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__, 1, 1)
5158 #else
5159  #define LAPACK_zgghrd(...) LAPACK_zgghrd_base(__VA_ARGS__)
5160 #endif
5161 
5162 #define LAPACK_cgglse LAPACK_GLOBAL(cgglse,CGGLSE)
5163 void LAPACK_cgglse(
5164  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5165  lapack_complex_float* A, lapack_int const* lda,
5166  lapack_complex_float* B, lapack_int const* ldb,
5167  lapack_complex_float* C,
5168  lapack_complex_float* D,
5169  lapack_complex_float* X,
5170  lapack_complex_float* work, lapack_int const* lwork,
5171  lapack_int* info );
5172 
5173 #define LAPACK_dgglse LAPACK_GLOBAL(dgglse,DGGLSE)
5174 void LAPACK_dgglse(
5175  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5176  double* A, lapack_int const* lda,
5177  double* B, lapack_int const* ldb,
5178  double* C,
5179  double* D,
5180  double* X,
5181  double* work, lapack_int const* lwork,
5182  lapack_int* info );
5183 
5184 #define LAPACK_sgglse LAPACK_GLOBAL(sgglse,SGGLSE)
5185 void LAPACK_sgglse(
5186  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5187  float* A, lapack_int const* lda,
5188  float* B, lapack_int const* ldb,
5189  float* C,
5190  float* D,
5191  float* X,
5192  float* work, lapack_int const* lwork,
5193  lapack_int* info );
5194 
5195 #define LAPACK_zgglse LAPACK_GLOBAL(zgglse,ZGGLSE)
5196 void LAPACK_zgglse(
5197  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5198  lapack_complex_double* A, lapack_int const* lda,
5199  lapack_complex_double* B, lapack_int const* ldb,
5200  lapack_complex_double* C,
5201  lapack_complex_double* D,
5202  lapack_complex_double* X,
5203  lapack_complex_double* work, lapack_int const* lwork,
5204  lapack_int* info );
5205 
5206 #define LAPACK_cggqrf LAPACK_GLOBAL(cggqrf,CGGQRF)
5207 void LAPACK_cggqrf(
5208  lapack_int const* n, lapack_int const* m, lapack_int const* p,
5209  lapack_complex_float* A, lapack_int const* lda,
5210  lapack_complex_float* taua,
5211  lapack_complex_float* B, lapack_int const* ldb,
5212  lapack_complex_float* taub,
5213  lapack_complex_float* work, lapack_int const* lwork,
5214  lapack_int* info );
5215 
5216 #define LAPACK_dggqrf LAPACK_GLOBAL(dggqrf,DGGQRF)
5217 void LAPACK_dggqrf(
5218  lapack_int const* n, lapack_int const* m, lapack_int const* p,
5219  double* A, lapack_int const* lda,
5220  double* taua,
5221  double* B, lapack_int const* ldb,
5222  double* taub,
5223  double* work, lapack_int const* lwork,
5224  lapack_int* info );
5225 
5226 #define LAPACK_sggqrf LAPACK_GLOBAL(sggqrf,SGGQRF)
5227 void LAPACK_sggqrf(
5228  lapack_int const* n, lapack_int const* m, lapack_int const* p,
5229  float* A, lapack_int const* lda,
5230  float* taua,
5231  float* B, lapack_int const* ldb,
5232  float* taub,
5233  float* work, lapack_int const* lwork,
5234  lapack_int* info );
5235 
5236 #define LAPACK_zggqrf LAPACK_GLOBAL(zggqrf,ZGGQRF)
5237 void LAPACK_zggqrf(
5238  lapack_int const* n, lapack_int const* m, lapack_int const* p,
5239  lapack_complex_double* A, lapack_int const* lda,
5240  lapack_complex_double* taua,
5241  lapack_complex_double* B, lapack_int const* ldb,
5242  lapack_complex_double* taub,
5243  lapack_complex_double* work, lapack_int const* lwork,
5244  lapack_int* info );
5245 
5246 #define LAPACK_cggrqf LAPACK_GLOBAL(cggrqf,CGGRQF)
5247 void LAPACK_cggrqf(
5248  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5249  lapack_complex_float* A, lapack_int const* lda,
5250  lapack_complex_float* taua,
5251  lapack_complex_float* B, lapack_int const* ldb,
5252  lapack_complex_float* taub,
5253  lapack_complex_float* work, lapack_int const* lwork,
5254  lapack_int* info );
5255 
5256 #define LAPACK_dggrqf LAPACK_GLOBAL(dggrqf,DGGRQF)
5257 void LAPACK_dggrqf(
5258  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5259  double* A, lapack_int const* lda,
5260  double* taua,
5261  double* B, lapack_int const* ldb,
5262  double* taub,
5263  double* work, lapack_int const* lwork,
5264  lapack_int* info );
5265 
5266 #define LAPACK_sggrqf LAPACK_GLOBAL(sggrqf,SGGRQF)
5267 void LAPACK_sggrqf(
5268  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5269  float* A, lapack_int const* lda,
5270  float* taua,
5271  float* B, lapack_int const* ldb,
5272  float* taub,
5273  float* work, lapack_int const* lwork,
5274  lapack_int* info );
5275 
5276 #define LAPACK_zggrqf LAPACK_GLOBAL(zggrqf,ZGGRQF)
5277 void LAPACK_zggrqf(
5278  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5279  lapack_complex_double* A, lapack_int const* lda,
5280  lapack_complex_double* taua,
5281  lapack_complex_double* B, lapack_int const* ldb,
5282  lapack_complex_double* taub,
5283  lapack_complex_double* work, lapack_int const* lwork,
5284  lapack_int* info );
5285 
5286 #define LAPACK_cggsvd_base LAPACK_GLOBAL(cggsvd,CGGSVD)
5287 lapack_int LAPACK_cggsvd_base(
5288  char const* jobu, char const* jobv, char const* jobq,
5289  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5290  lapack_int* k, lapack_int* l,
5291  lapack_complex_float* a, lapack_int const* lda,
5292  lapack_complex_float* b, lapack_int const* ldb,
5293  float* alpha, float* beta,
5294  lapack_complex_float* u, lapack_int const* ldu,
5295  lapack_complex_float* v, lapack_int const* ldv,
5296  lapack_complex_float* q, lapack_int const* ldq,
5297  lapack_complex_float* work, float* rwork,
5298  lapack_int* iwork, lapack_int* info
5299 #ifdef LAPACK_FORTRAN_STRLEN_END
5300  , size_t, size_t, size_t
5301 #endif
5302 );
5303 #ifdef LAPACK_FORTRAN_STRLEN_END
5304  #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__, 1, 1, 1)
5305 #else
5306  #define LAPACK_cggsvd(...) LAPACK_cggsvd_base(__VA_ARGS__)
5307 #endif
5308 
5309 #define LAPACK_sggsvd_base LAPACK_GLOBAL(sggsvd,SGGSVD)
5310 lapack_int LAPACK_sggsvd_base(
5311  char const* jobu, char const* jobv, char const* jobq,
5312  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5313  lapack_int* k, lapack_int* l,
5314  float* a, lapack_int const* lda,
5315  float* b, lapack_int const* ldb,
5316  float* alpha, float* beta,
5317  float* u, lapack_int const* ldu,
5318  float* v, lapack_int const* ldv,
5319  float* q, lapack_int const* ldq,
5320  float* work, lapack_int* iwork, lapack_int* info
5321 #ifdef LAPACK_FORTRAN_STRLEN_END
5322  , size_t, size_t, size_t
5323 #endif
5324 );
5325 #ifdef LAPACK_FORTRAN_STRLEN_END
5326  #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__, 1, 1, 1)
5327 #else
5328  #define LAPACK_sggsvd(...) LAPACK_sggsvd_base(__VA_ARGS__)
5329 #endif
5330 
5331 #define LAPACK_dggsvd_base LAPACK_GLOBAL(dggsvd,DGGSVD)
5332 lapack_int LAPACK_dggsvd_base(
5333  char const* jobu, char const* jobv, char const* jobq,
5334  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5335  lapack_int* k, lapack_int* l,
5336  double* a, lapack_int const* lda,
5337  double* b, lapack_int const* ldb,
5338  double* alpha, double* beta,
5339  double* u, lapack_int const* ldu,
5340  double* v, lapack_int const* ldv,
5341  double* q, lapack_int const* ldq,
5342  double* work, lapack_int* iwork, lapack_int* info
5343 #ifdef LAPACK_FORTRAN_STRLEN_END
5344  , size_t, size_t, size_t
5345 #endif
5346 );
5347 #ifdef LAPACK_FORTRAN_STRLEN_END
5348  #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__, 1, 1, 1)
5349 #else
5350  #define LAPACK_dggsvd(...) LAPACK_dggsvd_base(__VA_ARGS__)
5351 #endif
5352 
5353 #define LAPACK_zggsvd_base LAPACK_GLOBAL(zggsvd,ZGGSVD)
5354 lapack_int LAPACK_zggsvd_base(
5355  char const* jobu, char const* jobv, char const* jobq,
5356  lapack_int const* m, lapack_int const* n, lapack_int const* p,
5357  lapack_int* k, lapack_int* l,
5358  lapack_complex_double* a, lapack_int const* lda,
5359  lapack_complex_double* b, lapack_int const* ldb,
5360  double* alpha, double* beta,
5361  lapack_complex_double* u, lapack_int const* ldu,
5362  lapack_complex_double* v, lapack_int const* ldv,
5363  lapack_complex_double* q, lapack_int const* ldq,
5364  lapack_complex_double* work, double* rwork,
5365  lapack_int* iwork, lapack_int* info
5366 #ifdef LAPACK_FORTRAN_STRLEN_END
5367  , size_t, size_t, size_t
5368 #endif
5369 );
5370 #ifdef LAPACK_FORTRAN_STRLEN_END
5371  #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__, 1, 1, 1)
5372 #else
5373  #define LAPACK_zggsvd(...) LAPACK_zggsvd_base(__VA_ARGS__)
5374 #endif
5375 
5376 #define LAPACK_cggsvd3_base LAPACK_GLOBAL(cggsvd3,CGGSVD3)
5377 void LAPACK_cggsvd3_base(
5378  char const* jobu, char const* jobv, char const* jobq,
5379  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5380  lapack_complex_float* A, lapack_int const* lda,
5381  lapack_complex_float* B, lapack_int const* ldb,
5382  float* alpha,
5383  float* beta,
5384  lapack_complex_float* U, lapack_int const* ldu,
5385  lapack_complex_float* V, lapack_int const* ldv,
5386  lapack_complex_float* Q, lapack_int const* ldq,
5387  lapack_complex_float* work, lapack_int const* lwork,
5388  float* rwork,
5389  lapack_int* iwork,
5390  lapack_int* info
5391 #ifdef LAPACK_FORTRAN_STRLEN_END
5392  , size_t, size_t, size_t
5393 #endif
5394 );
5395 #ifdef LAPACK_FORTRAN_STRLEN_END
5396  #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__, 1, 1, 1)
5397 #else
5398  #define LAPACK_cggsvd3(...) LAPACK_cggsvd3_base(__VA_ARGS__)
5399 #endif
5400 
5401 #define LAPACK_dggsvd3_base LAPACK_GLOBAL(dggsvd3,DGGSVD3)
5402 void LAPACK_dggsvd3_base(
5403  char const* jobu, char const* jobv, char const* jobq,
5404  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5405  double* A, lapack_int const* lda,
5406  double* B, lapack_int const* ldb,
5407  double* alpha,
5408  double* beta,
5409  double* U, lapack_int const* ldu,
5410  double* V, lapack_int const* ldv,
5411  double* Q, lapack_int const* ldq,
5412  double* work, lapack_int const* lwork,
5413  lapack_int* iwork,
5414  lapack_int* info
5415 #ifdef LAPACK_FORTRAN_STRLEN_END
5416  , size_t, size_t, size_t
5417 #endif
5418 );
5419 #ifdef LAPACK_FORTRAN_STRLEN_END
5420  #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__, 1, 1, 1)
5421 #else
5422  #define LAPACK_dggsvd3(...) LAPACK_dggsvd3_base(__VA_ARGS__)
5423 #endif
5424 
5425 #define LAPACK_sggsvd3_base LAPACK_GLOBAL(sggsvd3,SGGSVD3)
5426 void LAPACK_sggsvd3_base(
5427  char const* jobu, char const* jobv, char const* jobq,
5428  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5429  float* A, lapack_int const* lda,
5430  float* B, lapack_int const* ldb,
5431  float* alpha,
5432  float* beta,
5433  float* U, lapack_int const* ldu,
5434  float* V, lapack_int const* ldv,
5435  float* Q, lapack_int const* ldq,
5436  float* work, lapack_int const* lwork,
5437  lapack_int* iwork,
5438  lapack_int* info
5439 #ifdef LAPACK_FORTRAN_STRLEN_END
5440  , size_t, size_t, size_t
5441 #endif
5442 );
5443 #ifdef LAPACK_FORTRAN_STRLEN_END
5444  #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__, 1, 1, 1)
5445 #else
5446  #define LAPACK_sggsvd3(...) LAPACK_sggsvd3_base(__VA_ARGS__)
5447 #endif
5448 
5449 #define LAPACK_zggsvd3_base LAPACK_GLOBAL(zggsvd3,ZGGSVD3)
5450 void LAPACK_zggsvd3_base(
5451  char const* jobu, char const* jobv, char const* jobq,
5452  lapack_int const* m, lapack_int const* n, lapack_int const* p, lapack_int* k, lapack_int* l,
5453  lapack_complex_double* A, lapack_int const* lda,
5454  lapack_complex_double* B, lapack_int const* ldb,
5455  double* alpha,
5456  double* beta,
5457  lapack_complex_double* U, lapack_int const* ldu,
5458  lapack_complex_double* V, lapack_int const* ldv,
5459  lapack_complex_double* Q, lapack_int const* ldq,
5460  lapack_complex_double* work, lapack_int const* lwork,
5461  double* rwork,
5462  lapack_int* iwork,
5463  lapack_int* info
5464 #ifdef LAPACK_FORTRAN_STRLEN_END
5465  , size_t, size_t, size_t
5466 #endif
5467 );
5468 #ifdef LAPACK_FORTRAN_STRLEN_END
5469  #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__, 1, 1, 1)
5470 #else
5471  #define LAPACK_zggsvd3(...) LAPACK_zggsvd3_base(__VA_ARGS__)
5472 #endif
5473 
5474 #define LAPACK_sggsvp_base LAPACK_GLOBAL(sggsvp,SGGSVP)
5475 lapack_int LAPACK_sggsvp_base(
5476  char const* jobu, char const* jobv, char const* jobq,
5477  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5478  float* a, lapack_int const* lda,
5479  float* b, lapack_int const* ldb,
5480  float* tola, float* tolb,
5481  lapack_int* k, lapack_int* l,
5482  float* u, lapack_int const* ldu,
5483  float* v, lapack_int const* ldv,
5484  float* q, lapack_int const* ldq,
5485  lapack_int* iwork, float* tau,
5486  float* work, lapack_int* info
5487 #ifdef LAPACK_FORTRAN_STRLEN_END
5488  , size_t, size_t, size_t
5489 #endif
5490 );
5491 #ifdef LAPACK_FORTRAN_STRLEN_END
5492  #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__, 1, 1, 1)
5493 #else
5494  #define LAPACK_sggsvp(...) LAPACK_sggsvp_base(__VA_ARGS__)
5495 #endif
5496 
5497 #define LAPACK_dggsvp_base LAPACK_GLOBAL(dggsvp,DGGSVP)
5498 lapack_int LAPACK_dggsvp_base(
5499  char const* jobu, char const* jobv, char const* jobq,
5500  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5501  double* a, lapack_int const* lda,
5502  double* b, lapack_int const* ldb,
5503  double* tola, double* tolb,
5504  lapack_int* k, lapack_int* l,
5505  double* u, lapack_int const* ldu,
5506  double* v, lapack_int const* ldv,
5507  double* q, lapack_int const* ldq,
5508  lapack_int* iwork, double* tau,
5509  double* work, lapack_int* info
5510 #ifdef LAPACK_FORTRAN_STRLEN_END
5511  , size_t, size_t, size_t
5512 #endif
5513 );
5514 #ifdef LAPACK_FORTRAN_STRLEN_END
5515  #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__, 1, 1, 1)
5516 #else
5517  #define LAPACK_dggsvp(...) LAPACK_dggsvp_base(__VA_ARGS__)
5518 #endif
5519 
5520 #define LAPACK_cggsvp_base LAPACK_GLOBAL(cggsvp,CGGSVP)
5521 lapack_int LAPACK_cggsvp_base(
5522  char const* jobu, char const* jobv, char const* jobq,
5523  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5524  lapack_complex_float* a, lapack_int const* lda,
5525  lapack_complex_float* b, lapack_int const* ldb,
5526  float* tola, float* tolb, lapack_int* k, lapack_int* l,
5527  lapack_complex_float* u, lapack_int const* ldu,
5528  lapack_complex_float* v, lapack_int const* ldv,
5529  lapack_complex_float* q, lapack_int const* ldq,
5530  lapack_int* iwork, float* rwork, lapack_complex_float* tau,
5531  lapack_complex_float* work, lapack_int* info
5532 #ifdef LAPACK_FORTRAN_STRLEN_END
5533  , size_t, size_t, size_t
5534 #endif
5535 );
5536 #ifdef LAPACK_FORTRAN_STRLEN_END
5537  #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__, 1, 1, 1)
5538 #else
5539  #define LAPACK_cggsvp(...) LAPACK_cggsvp_base(__VA_ARGS__)
5540 #endif
5541 
5542 #define LAPACK_zggsvp_base LAPACK_GLOBAL(zggsvp,ZGGSVP)
5543 lapack_int LAPACK_zggsvp_base(
5544  char const* jobu, char const* jobv, char const* jobq,
5545  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5546  lapack_complex_double* a, lapack_int const* lda,
5547  lapack_complex_double* b, lapack_int const* ldb,
5548  double* tola, double* tolb, lapack_int* k, lapack_int* l,
5549  lapack_complex_double* u, lapack_int const* ldu,
5550  lapack_complex_double* v, lapack_int const* ldv,
5551  lapack_complex_double* q, lapack_int const* ldq,
5552  lapack_int* iwork, double* rwork, lapack_complex_double* tau,
5553  lapack_complex_double* work, lapack_int* info
5554 #ifdef LAPACK_FORTRAN_STRLEN_END
5555  , size_t, size_t, size_t
5556 #endif
5557 );
5558 #ifdef LAPACK_FORTRAN_STRLEN_END
5559  #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__, 1, 1, 1)
5560 #else
5561  #define LAPACK_zggsvp(...) LAPACK_zggsvp_base(__VA_ARGS__)
5562 #endif
5563 
5564 #define LAPACK_cggsvp3_base LAPACK_GLOBAL(cggsvp3,CGGSVP3)
5565 void LAPACK_cggsvp3_base(
5566  char const* jobu, char const* jobv, char const* jobq,
5567  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5568  lapack_complex_float* A, lapack_int const* lda,
5569  lapack_complex_float* B, lapack_int const* ldb,
5570  float const* tola,
5571  float const* tolb, lapack_int* k, lapack_int* l,
5572  lapack_complex_float* U, lapack_int const* ldu,
5573  lapack_complex_float* V, lapack_int const* ldv,
5574  lapack_complex_float* Q, lapack_int const* ldq,
5575  lapack_int* iwork,
5576  float* rwork,
5577  lapack_complex_float* tau,
5578  lapack_complex_float* work, lapack_int const* lwork,
5579  lapack_int* info
5580 #ifdef LAPACK_FORTRAN_STRLEN_END
5581  , size_t, size_t, size_t
5582 #endif
5583 );
5584 #ifdef LAPACK_FORTRAN_STRLEN_END
5585  #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__, 1, 1, 1)
5586 #else
5587  #define LAPACK_cggsvp3(...) LAPACK_cggsvp3_base(__VA_ARGS__)
5588 #endif
5589 
5590 #define LAPACK_dggsvp3_base LAPACK_GLOBAL(dggsvp3,DGGSVP3)
5591 void LAPACK_dggsvp3_base(
5592  char const* jobu, char const* jobv, char const* jobq,
5593  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5594  double* A, lapack_int const* lda,
5595  double* B, lapack_int const* ldb,
5596  double const* tola,
5597  double const* tolb, lapack_int* k, lapack_int* l,
5598  double* U, lapack_int const* ldu,
5599  double* V, lapack_int const* ldv,
5600  double* Q, lapack_int const* ldq,
5601  lapack_int* iwork,
5602  double* tau,
5603  double* work, lapack_int const* lwork,
5604  lapack_int* info
5605 #ifdef LAPACK_FORTRAN_STRLEN_END
5606  , size_t, size_t, size_t
5607 #endif
5608 );
5609 #ifdef LAPACK_FORTRAN_STRLEN_END
5610  #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__, 1, 1, 1)
5611 #else
5612  #define LAPACK_dggsvp3(...) LAPACK_dggsvp3_base(__VA_ARGS__)
5613 #endif
5614 
5615 #define LAPACK_sggsvp3_base LAPACK_GLOBAL(sggsvp3,SGGSVP3)
5616 void LAPACK_sggsvp3_base(
5617  char const* jobu, char const* jobv, char const* jobq,
5618  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5619  float* A, lapack_int const* lda,
5620  float* B, lapack_int const* ldb,
5621  float const* tola,
5622  float const* tolb, lapack_int* k, lapack_int* l,
5623  float* U, lapack_int const* ldu,
5624  float* V, lapack_int const* ldv,
5625  float* Q, lapack_int const* ldq,
5626  lapack_int* iwork,
5627  float* tau,
5628  float* work, lapack_int const* lwork,
5629  lapack_int* info
5630 #ifdef LAPACK_FORTRAN_STRLEN_END
5631  , size_t, size_t, size_t
5632 #endif
5633 );
5634 #ifdef LAPACK_FORTRAN_STRLEN_END
5635  #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__, 1, 1, 1)
5636 #else
5637  #define LAPACK_sggsvp3(...) LAPACK_sggsvp3_base(__VA_ARGS__)
5638 #endif
5639 
5640 #define LAPACK_zggsvp3_base LAPACK_GLOBAL(zggsvp3,ZGGSVP3)
5641 void LAPACK_zggsvp3_base(
5642  char const* jobu, char const* jobv, char const* jobq,
5643  lapack_int const* m, lapack_int const* p, lapack_int const* n,
5644  lapack_complex_double* A, lapack_int const* lda,
5645  lapack_complex_double* B, lapack_int const* ldb,
5646  double const* tola,
5647  double const* tolb, lapack_int* k, lapack_int* l,
5648  lapack_complex_double* U, lapack_int const* ldu,
5649  lapack_complex_double* V, lapack_int const* ldv,
5650  lapack_complex_double* Q, lapack_int const* ldq,
5651  lapack_int* iwork,
5652  double* rwork,
5653  lapack_complex_double* tau,
5654  lapack_complex_double* work, lapack_int const* lwork,
5655  lapack_int* info
5656 #ifdef LAPACK_FORTRAN_STRLEN_END
5657  , size_t, size_t, size_t
5658 #endif
5659 );
5660 #ifdef LAPACK_FORTRAN_STRLEN_END
5661  #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__, 1, 1, 1)
5662 #else
5663  #define LAPACK_zggsvp3(...) LAPACK_zggsvp3_base(__VA_ARGS__)
5664 #endif
5665 
5666 #define LAPACK_cgtcon_base LAPACK_GLOBAL(cgtcon,CGTCON)
5667 void LAPACK_cgtcon_base(
5668  char const* norm,
5669  lapack_int const* n,
5670  lapack_complex_float const* DL,
5671  lapack_complex_float const* D,
5672  lapack_complex_float const* DU,
5673  lapack_complex_float const* DU2, lapack_int const* ipiv,
5674  float const* anorm,
5675  float* rcond,
5676  lapack_complex_float* work,
5677  lapack_int* info
5678 #ifdef LAPACK_FORTRAN_STRLEN_END
5679  , size_t
5680 #endif
5681 );
5682 #ifdef LAPACK_FORTRAN_STRLEN_END
5683  #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__, 1)
5684 #else
5685  #define LAPACK_cgtcon(...) LAPACK_cgtcon_base(__VA_ARGS__)
5686 #endif
5687 
5688 #define LAPACK_dgtcon_base LAPACK_GLOBAL(dgtcon,DGTCON)
5689 void LAPACK_dgtcon_base(
5690  char const* norm,
5691  lapack_int const* n,
5692  double const* DL,
5693  double const* D,
5694  double const* DU,
5695  double const* DU2, lapack_int const* ipiv,
5696  double const* anorm,
5697  double* rcond,
5698  double* work,
5699  lapack_int* iwork,
5700  lapack_int* info
5701 #ifdef LAPACK_FORTRAN_STRLEN_END
5702  , size_t
5703 #endif
5704 );
5705 #ifdef LAPACK_FORTRAN_STRLEN_END
5706  #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__, 1)
5707 #else
5708  #define LAPACK_dgtcon(...) LAPACK_dgtcon_base(__VA_ARGS__)
5709 #endif
5710 
5711 #define LAPACK_sgtcon_base LAPACK_GLOBAL(sgtcon,SGTCON)
5712 void LAPACK_sgtcon_base(
5713  char const* norm,
5714  lapack_int const* n,
5715  float const* DL,
5716  float const* D,
5717  float const* DU,
5718  float const* DU2, lapack_int const* ipiv,
5719  float const* anorm,
5720  float* rcond,
5721  float* work,
5722  lapack_int* iwork,
5723  lapack_int* info
5724 #ifdef LAPACK_FORTRAN_STRLEN_END
5725  , size_t
5726 #endif
5727 );
5728 #ifdef LAPACK_FORTRAN_STRLEN_END
5729  #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__, 1)
5730 #else
5731  #define LAPACK_sgtcon(...) LAPACK_sgtcon_base(__VA_ARGS__)
5732 #endif
5733 
5734 #define LAPACK_zgtcon_base LAPACK_GLOBAL(zgtcon,ZGTCON)
5735 void LAPACK_zgtcon_base(
5736  char const* norm,
5737  lapack_int const* n,
5738  lapack_complex_double const* DL,
5739  lapack_complex_double const* D,
5740  lapack_complex_double const* DU,
5741  lapack_complex_double const* DU2, lapack_int const* ipiv,
5742  double const* anorm,
5743  double* rcond,
5744  lapack_complex_double* work,
5745  lapack_int* info
5746 #ifdef LAPACK_FORTRAN_STRLEN_END
5747  , size_t
5748 #endif
5749 );
5750 #ifdef LAPACK_FORTRAN_STRLEN_END
5751  #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__, 1)
5752 #else
5753  #define LAPACK_zgtcon(...) LAPACK_zgtcon_base(__VA_ARGS__)
5754 #endif
5755 
5756 #define LAPACK_cgtrfs_base LAPACK_GLOBAL(cgtrfs,CGTRFS)
5757 void LAPACK_cgtrfs_base(
5758  char const* trans,
5759  lapack_int const* n, lapack_int const* nrhs,
5760  lapack_complex_float const* DL,
5761  lapack_complex_float const* D,
5762  lapack_complex_float const* DU,
5763  lapack_complex_float const* DLF,
5764  lapack_complex_float const* DF,
5765  lapack_complex_float const* DUF,
5766  lapack_complex_float const* DU2, lapack_int const* ipiv,
5767  lapack_complex_float const* B, lapack_int const* ldb,
5768  lapack_complex_float* X, lapack_int const* ldx,
5769  float* ferr,
5770  float* berr,
5771  lapack_complex_float* work,
5772  float* rwork,
5773  lapack_int* info
5774 #ifdef LAPACK_FORTRAN_STRLEN_END
5775  , size_t
5776 #endif
5777 );
5778 #ifdef LAPACK_FORTRAN_STRLEN_END
5779  #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__, 1)
5780 #else
5781  #define LAPACK_cgtrfs(...) LAPACK_cgtrfs_base(__VA_ARGS__)
5782 #endif
5783 
5784 #define LAPACK_dgtrfs_base LAPACK_GLOBAL(dgtrfs,DGTRFS)
5785 void LAPACK_dgtrfs_base(
5786  char const* trans,
5787  lapack_int const* n, lapack_int const* nrhs,
5788  double const* DL,
5789  double const* D,
5790  double const* DU,
5791  double const* DLF,
5792  double const* DF,
5793  double const* DUF,
5794  double const* DU2, lapack_int const* ipiv,
5795  double const* B, lapack_int const* ldb,
5796  double* X, lapack_int const* ldx,
5797  double* ferr,
5798  double* berr,
5799  double* work,
5800  lapack_int* iwork,
5801  lapack_int* info
5802 #ifdef LAPACK_FORTRAN_STRLEN_END
5803  , size_t
5804 #endif
5805 );
5806 #ifdef LAPACK_FORTRAN_STRLEN_END
5807  #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__, 1)
5808 #else
5809  #define LAPACK_dgtrfs(...) LAPACK_dgtrfs_base(__VA_ARGS__)
5810 #endif
5811 
5812 #define LAPACK_sgtrfs_base LAPACK_GLOBAL(sgtrfs,SGTRFS)
5813 void LAPACK_sgtrfs_base(
5814  char const* trans,
5815  lapack_int const* n, lapack_int const* nrhs,
5816  float const* DL,
5817  float const* D,
5818  float const* DU,
5819  float const* DLF,
5820  float const* DF,
5821  float const* DUF,
5822  float const* DU2, lapack_int const* ipiv,
5823  float const* B, lapack_int const* ldb,
5824  float* X, lapack_int const* ldx,
5825  float* ferr,
5826  float* berr,
5827  float* work,
5828  lapack_int* iwork,
5829  lapack_int* info
5830 #ifdef LAPACK_FORTRAN_STRLEN_END
5831  , size_t
5832 #endif
5833 );
5834 #ifdef LAPACK_FORTRAN_STRLEN_END
5835  #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__, 1)
5836 #else
5837  #define LAPACK_sgtrfs(...) LAPACK_sgtrfs_base(__VA_ARGS__)
5838 #endif
5839 
5840 #define LAPACK_zgtrfs_base LAPACK_GLOBAL(zgtrfs,ZGTRFS)
5841 void LAPACK_zgtrfs_base(
5842  char const* trans,
5843  lapack_int const* n, lapack_int const* nrhs,
5844  lapack_complex_double const* DL,
5845  lapack_complex_double const* D,
5846  lapack_complex_double const* DU,
5847  lapack_complex_double const* DLF,
5848  lapack_complex_double const* DF,
5849  lapack_complex_double const* DUF,
5850  lapack_complex_double const* DU2, lapack_int const* ipiv,
5851  lapack_complex_double const* B, lapack_int const* ldb,
5852  lapack_complex_double* X, lapack_int const* ldx,
5853  double* ferr,
5854  double* berr,
5855  lapack_complex_double* work,
5856  double* rwork,
5857  lapack_int* info
5858 #ifdef LAPACK_FORTRAN_STRLEN_END
5859  , size_t
5860 #endif
5861 );
5862 #ifdef LAPACK_FORTRAN_STRLEN_END
5863  #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__, 1)
5864 #else
5865  #define LAPACK_zgtrfs(...) LAPACK_zgtrfs_base(__VA_ARGS__)
5866 #endif
5867 
5868 #define LAPACK_cgtsv LAPACK_GLOBAL(cgtsv,CGTSV)
5869 void LAPACK_cgtsv(
5870  lapack_int const* n, lapack_int const* nrhs,
5871  lapack_complex_float* DL,
5872  lapack_complex_float* D,
5873  lapack_complex_float* DU,
5874  lapack_complex_float* B, lapack_int const* ldb,
5875  lapack_int* info );
5876 
5877 #define LAPACK_dgtsv LAPACK_GLOBAL(dgtsv,DGTSV)
5878 void LAPACK_dgtsv(
5879  lapack_int const* n, lapack_int const* nrhs,
5880  double* DL,
5881  double* D,
5882  double* DU,
5883  double* B, lapack_int const* ldb,
5884  lapack_int* info );
5885 
5886 #define LAPACK_sgtsv LAPACK_GLOBAL(sgtsv,SGTSV)
5887 void LAPACK_sgtsv(
5888  lapack_int const* n, lapack_int const* nrhs,
5889  float* DL,
5890  float* D,
5891  float* DU,
5892  float* B, lapack_int const* ldb,
5893  lapack_int* info );
5894 
5895 #define LAPACK_zgtsv LAPACK_GLOBAL(zgtsv,ZGTSV)
5896 void LAPACK_zgtsv(
5897  lapack_int const* n, lapack_int const* nrhs,
5898  lapack_complex_double* DL,
5899  lapack_complex_double* D,
5900  lapack_complex_double* DU,
5901  lapack_complex_double* B, lapack_int const* ldb,
5902  lapack_int* info );
5903 
5904 #define LAPACK_cgtsvx_base LAPACK_GLOBAL(cgtsvx,CGTSVX)
5905 void LAPACK_cgtsvx_base(
5906  char const* fact, char const* trans,
5907  lapack_int const* n, lapack_int const* nrhs,
5908  lapack_complex_float const* DL,
5909  lapack_complex_float const* D,
5910  lapack_complex_float const* DU,
5911  lapack_complex_float* DLF,
5912  lapack_complex_float* DF,
5913  lapack_complex_float* DUF,
5914  lapack_complex_float* DU2, lapack_int* ipiv,
5915  lapack_complex_float const* B, lapack_int const* ldb,
5916  lapack_complex_float* X, lapack_int const* ldx,
5917  float* rcond,
5918  float* ferr,
5919  float* berr,
5920  lapack_complex_float* work,
5921  float* rwork,
5922  lapack_int* info
5923 #ifdef LAPACK_FORTRAN_STRLEN_END
5924  , size_t, size_t
5925 #endif
5926 );
5927 #ifdef LAPACK_FORTRAN_STRLEN_END
5928  #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__, 1, 1)
5929 #else
5930  #define LAPACK_cgtsvx(...) LAPACK_cgtsvx_base(__VA_ARGS__)
5931 #endif
5932 
5933 #define LAPACK_dgtsvx_base LAPACK_GLOBAL(dgtsvx,DGTSVX)
5934 void LAPACK_dgtsvx_base(
5935  char const* fact, char const* trans,
5936  lapack_int const* n, lapack_int const* nrhs,
5937  double const* DL,
5938  double const* D,
5939  double const* DU,
5940  double* DLF,
5941  double* DF,
5942  double* DUF,
5943  double* DU2, lapack_int* ipiv,
5944  double const* B, lapack_int const* ldb,
5945  double* X, lapack_int const* ldx,
5946  double* rcond,
5947  double* ferr,
5948  double* berr,
5949  double* work,
5950  lapack_int* iwork,
5951  lapack_int* info
5952 #ifdef LAPACK_FORTRAN_STRLEN_END
5953  , size_t, size_t
5954 #endif
5955 );
5956 #ifdef LAPACK_FORTRAN_STRLEN_END
5957  #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__, 1, 1)
5958 #else
5959  #define LAPACK_dgtsvx(...) LAPACK_dgtsvx_base(__VA_ARGS__)
5960 #endif
5961 
5962 #define LAPACK_sgtsvx_base LAPACK_GLOBAL(sgtsvx,SGTSVX)
5963 void LAPACK_sgtsvx_base(
5964  char const* fact, char const* trans,
5965  lapack_int const* n, lapack_int const* nrhs,
5966  float const* DL,
5967  float const* D,
5968  float const* DU,
5969  float* DLF,
5970  float* DF,
5971  float* DUF,
5972  float* DU2, lapack_int* ipiv,
5973  float const* B, lapack_int const* ldb,
5974  float* X, lapack_int const* ldx,
5975  float* rcond,
5976  float* ferr,
5977  float* berr,
5978  float* work,
5979  lapack_int* iwork,
5980  lapack_int* info
5981 #ifdef LAPACK_FORTRAN_STRLEN_END
5982  , size_t, size_t
5983 #endif
5984 );
5985 #ifdef LAPACK_FORTRAN_STRLEN_END
5986  #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__, 1, 1)
5987 #else
5988  #define LAPACK_sgtsvx(...) LAPACK_sgtsvx_base(__VA_ARGS__)
5989 #endif
5990 
5991 #define LAPACK_zgtsvx_base LAPACK_GLOBAL(zgtsvx,ZGTSVX)
5992 void LAPACK_zgtsvx_base(
5993  char const* fact, char const* trans,
5994  lapack_int const* n, lapack_int const* nrhs,
5995  lapack_complex_double const* DL,
5996  lapack_complex_double const* D,
5997  lapack_complex_double const* DU,
5998  lapack_complex_double* DLF,
5999  lapack_complex_double* DF,
6000  lapack_complex_double* DUF,
6001  lapack_complex_double* DU2, lapack_int* ipiv,
6002  lapack_complex_double const* B, lapack_int const* ldb,
6003  lapack_complex_double* X, lapack_int const* ldx,
6004  double* rcond,
6005  double* ferr,
6006  double* berr,
6007  lapack_complex_double* work,
6008  double* rwork,
6009  lapack_int* info
6010 #ifdef LAPACK_FORTRAN_STRLEN_END
6011  , size_t, size_t
6012 #endif
6013 );
6014 #ifdef LAPACK_FORTRAN_STRLEN_END
6015  #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__, 1, 1)
6016 #else
6017  #define LAPACK_zgtsvx(...) LAPACK_zgtsvx_base(__VA_ARGS__)
6018 #endif
6019 
6020 #define LAPACK_cgttrf LAPACK_GLOBAL(cgttrf,CGTTRF)
6021 void LAPACK_cgttrf(
6022  lapack_int const* n,
6023  lapack_complex_float* DL,
6024  lapack_complex_float* D,
6025  lapack_complex_float* DU,
6026  lapack_complex_float* DU2, lapack_int* ipiv,
6027  lapack_int* info );
6028 
6029 #define LAPACK_dgttrf LAPACK_GLOBAL(dgttrf,DGTTRF)
6030 void LAPACK_dgttrf(
6031  lapack_int const* n,
6032  double* DL,
6033  double* D,
6034  double* DU,
6035  double* DU2, lapack_int* ipiv,
6036  lapack_int* info );
6037 
6038 #define LAPACK_sgttrf LAPACK_GLOBAL(sgttrf,SGTTRF)
6039 void LAPACK_sgttrf(
6040  lapack_int const* n,
6041  float* DL,
6042  float* D,
6043  float* DU,
6044  float* DU2, lapack_int* ipiv,
6045  lapack_int* info );
6046 
6047 #define LAPACK_zgttrf LAPACK_GLOBAL(zgttrf,ZGTTRF)
6048 void LAPACK_zgttrf(
6049  lapack_int const* n,
6050  lapack_complex_double* DL,
6051  lapack_complex_double* D,
6052  lapack_complex_double* DU,
6053  lapack_complex_double* DU2, lapack_int* ipiv,
6054  lapack_int* info );
6055 
6056 #define LAPACK_cgttrs_base LAPACK_GLOBAL(cgttrs,CGTTRS)
6057 void LAPACK_cgttrs_base(
6058  char const* trans,
6059  lapack_int const* n, lapack_int const* nrhs,
6060  lapack_complex_float const* DL,
6061  lapack_complex_float const* D,
6062  lapack_complex_float const* DU,
6063  lapack_complex_float const* DU2, lapack_int const* ipiv,
6064  lapack_complex_float* B, lapack_int const* ldb,
6065  lapack_int* info
6066 #ifdef LAPACK_FORTRAN_STRLEN_END
6067  , size_t
6068 #endif
6069 );
6070 #ifdef LAPACK_FORTRAN_STRLEN_END
6071  #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__, 1)
6072 #else
6073  #define LAPACK_cgttrs(...) LAPACK_cgttrs_base(__VA_ARGS__)
6074 #endif
6075 
6076 #define LAPACK_dgttrs_base LAPACK_GLOBAL(dgttrs,DGTTRS)
6077 void LAPACK_dgttrs_base(
6078  char const* trans,
6079  lapack_int const* n, lapack_int const* nrhs,
6080  double const* DL,
6081  double const* D,
6082  double const* DU,
6083  double const* DU2, lapack_int const* ipiv,
6084  double* B, lapack_int const* ldb,
6085  lapack_int* info
6086 #ifdef LAPACK_FORTRAN_STRLEN_END
6087  , size_t
6088 #endif
6089 );
6090 #ifdef LAPACK_FORTRAN_STRLEN_END
6091  #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__, 1)
6092 #else
6093  #define LAPACK_dgttrs(...) LAPACK_dgttrs_base(__VA_ARGS__)
6094 #endif
6095 
6096 #define LAPACK_sgttrs_base LAPACK_GLOBAL(sgttrs,SGTTRS)
6097 void LAPACK_sgttrs_base(
6098  char const* trans,
6099  lapack_int const* n, lapack_int const* nrhs,
6100  float const* DL,
6101  float const* D,
6102  float const* DU,
6103  float const* DU2, lapack_int const* ipiv,
6104  float* B, lapack_int const* ldb,
6105  lapack_int* info
6106 #ifdef LAPACK_FORTRAN_STRLEN_END
6107  , size_t
6108 #endif
6109 );
6110 #ifdef LAPACK_FORTRAN_STRLEN_END
6111  #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__, 1)
6112 #else
6113  #define LAPACK_sgttrs(...) LAPACK_sgttrs_base(__VA_ARGS__)
6114 #endif
6115 
6116 #define LAPACK_zgttrs_base LAPACK_GLOBAL(zgttrs,ZGTTRS)
6117 void LAPACK_zgttrs_base(
6118  char const* trans,
6119  lapack_int const* n, lapack_int const* nrhs,
6120  lapack_complex_double const* DL,
6121  lapack_complex_double const* D,
6122  lapack_complex_double const* DU,
6123  lapack_complex_double const* DU2, lapack_int const* ipiv,
6124  lapack_complex_double* B, lapack_int const* ldb,
6125  lapack_int* info
6126 #ifdef LAPACK_FORTRAN_STRLEN_END
6127  , size_t
6128 #endif
6129 );
6130 #ifdef LAPACK_FORTRAN_STRLEN_END
6131  #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__, 1)
6132 #else
6133  #define LAPACK_zgttrs(...) LAPACK_zgttrs_base(__VA_ARGS__)
6134 #endif
6135 
6136 #define LAPACK_chbev_base LAPACK_GLOBAL(chbev,CHBEV)
6137 void LAPACK_chbev_base(
6138  char const* jobz, char const* uplo,
6139  lapack_int const* n, lapack_int const* kd,
6140  lapack_complex_float* AB, lapack_int const* ldab,
6141  float* W,
6142  lapack_complex_float* Z, lapack_int const* ldz,
6143  lapack_complex_float* work,
6144  float* rwork,
6145  lapack_int* info
6146 #ifdef LAPACK_FORTRAN_STRLEN_END
6147  , size_t, size_t
6148 #endif
6149 );
6150 #ifdef LAPACK_FORTRAN_STRLEN_END
6151  #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__, 1, 1)
6152 #else
6153  #define LAPACK_chbev(...) LAPACK_chbev_base(__VA_ARGS__)
6154 #endif
6155 
6156 #define LAPACK_zhbev_base LAPACK_GLOBAL(zhbev,ZHBEV)
6157 void LAPACK_zhbev_base(
6158  char const* jobz, char const* uplo,
6159  lapack_int const* n, lapack_int const* kd,
6160  lapack_complex_double* AB, lapack_int const* ldab,
6161  double* W,
6162  lapack_complex_double* Z, lapack_int const* ldz,
6163  lapack_complex_double* work,
6164  double* rwork,
6165  lapack_int* info
6166 #ifdef LAPACK_FORTRAN_STRLEN_END
6167  , size_t, size_t
6168 #endif
6169 );
6170 #ifdef LAPACK_FORTRAN_STRLEN_END
6171  #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__, 1, 1)
6172 #else
6173  #define LAPACK_zhbev(...) LAPACK_zhbev_base(__VA_ARGS__)
6174 #endif
6175 
6176 #define LAPACK_chbev_2stage_base LAPACK_GLOBAL(chbev_2stage,CHBEV_2STAGE)
6177 void LAPACK_chbev_2stage_base(
6178  char const* jobz, char const* uplo,
6179  lapack_int const* n, lapack_int const* kd,
6180  lapack_complex_float* AB, lapack_int const* ldab,
6181  float* W,
6182  lapack_complex_float* Z, lapack_int const* ldz,
6183  lapack_complex_float* work, lapack_int const* lwork,
6184  float* rwork,
6185  lapack_int* info
6186 #ifdef LAPACK_FORTRAN_STRLEN_END
6187  , size_t, size_t
6188 #endif
6189 );
6190 #ifdef LAPACK_FORTRAN_STRLEN_END
6191  #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__, 1, 1)
6192 #else
6193  #define LAPACK_chbev_2stage(...) LAPACK_chbev_2stage_base(__VA_ARGS__)
6194 #endif
6195 
6196 #define LAPACK_zhbev_2stage_base LAPACK_GLOBAL(zhbev_2stage,ZHBEV_2STAGE)
6197 void LAPACK_zhbev_2stage_base(
6198  char const* jobz, char const* uplo,
6199  lapack_int const* n, lapack_int const* kd,
6200  lapack_complex_double* AB, lapack_int const* ldab,
6201  double* W,
6202  lapack_complex_double* Z, lapack_int const* ldz,
6203  lapack_complex_double* work, lapack_int const* lwork,
6204  double* rwork,
6205  lapack_int* info
6206 #ifdef LAPACK_FORTRAN_STRLEN_END
6207  , size_t, size_t
6208 #endif
6209 );
6210 #ifdef LAPACK_FORTRAN_STRLEN_END
6211  #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__, 1, 1)
6212 #else
6213  #define LAPACK_zhbev_2stage(...) LAPACK_zhbev_2stage_base(__VA_ARGS__)
6214 #endif
6215 
6216 #define LAPACK_chbevd_base LAPACK_GLOBAL(chbevd,CHBEVD)
6217 void LAPACK_chbevd_base(
6218  char const* jobz, char const* uplo,
6219  lapack_int const* n, lapack_int const* kd,
6220  lapack_complex_float* AB, lapack_int const* ldab,
6221  float* W,
6222  lapack_complex_float* Z, lapack_int const* ldz,
6223  lapack_complex_float* work, lapack_int const* lwork,
6224  float* rwork, lapack_int const* lrwork,
6225  lapack_int* iwork, lapack_int const* liwork,
6226  lapack_int* info
6227 #ifdef LAPACK_FORTRAN_STRLEN_END
6228  , size_t, size_t
6229 #endif
6230 );
6231 #ifdef LAPACK_FORTRAN_STRLEN_END
6232  #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__, 1, 1)
6233 #else
6234  #define LAPACK_chbevd(...) LAPACK_chbevd_base(__VA_ARGS__)
6235 #endif
6236 
6237 #define LAPACK_zhbevd_base LAPACK_GLOBAL(zhbevd,ZHBEVD)
6238 void LAPACK_zhbevd_base(
6239  char const* jobz, char const* uplo,
6240  lapack_int const* n, lapack_int const* kd,
6241  lapack_complex_double* AB, lapack_int const* ldab,
6242  double* W,
6243  lapack_complex_double* Z, lapack_int const* ldz,
6244  lapack_complex_double* work, lapack_int const* lwork,
6245  double* rwork, lapack_int const* lrwork,
6246  lapack_int* iwork, lapack_int const* liwork,
6247  lapack_int* info
6248 #ifdef LAPACK_FORTRAN_STRLEN_END
6249  , size_t, size_t
6250 #endif
6251 );
6252 #ifdef LAPACK_FORTRAN_STRLEN_END
6253  #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__, 1, 1)
6254 #else
6255  #define LAPACK_zhbevd(...) LAPACK_zhbevd_base(__VA_ARGS__)
6256 #endif
6257 
6258 #define LAPACK_chbevd_2stage_base LAPACK_GLOBAL(chbevd_2stage,CHBEVD_2STAGE)
6259 void LAPACK_chbevd_2stage_base(
6260  char const* jobz, char const* uplo,
6261  lapack_int const* n, lapack_int const* kd,
6262  lapack_complex_float* AB, lapack_int const* ldab,
6263  float* W,
6264  lapack_complex_float* Z, lapack_int const* ldz,
6265  lapack_complex_float* work, lapack_int const* lwork,
6266  float* rwork, lapack_int const* lrwork,
6267  lapack_int* iwork, lapack_int const* liwork,
6268  lapack_int* info
6269 #ifdef LAPACK_FORTRAN_STRLEN_END
6270  , size_t, size_t
6271 #endif
6272 );
6273 #ifdef LAPACK_FORTRAN_STRLEN_END
6274  #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__, 1, 1)
6275 #else
6276  #define LAPACK_chbevd_2stage(...) LAPACK_chbevd_2stage_base(__VA_ARGS__)
6277 #endif
6278 
6279 #define LAPACK_zhbevd_2stage_base LAPACK_GLOBAL(zhbevd_2stage,ZHBEVD_2STAGE)
6280 void LAPACK_zhbevd_2stage_base(
6281  char const* jobz, char const* uplo,
6282  lapack_int const* n, lapack_int const* kd,
6283  lapack_complex_double* AB, lapack_int const* ldab,
6284  double* W,
6285  lapack_complex_double* Z, lapack_int const* ldz,
6286  lapack_complex_double* work, lapack_int const* lwork,
6287  double* rwork, lapack_int const* lrwork,
6288  lapack_int* iwork, lapack_int const* liwork,
6289  lapack_int* info
6290 #ifdef LAPACK_FORTRAN_STRLEN_END
6291  , size_t, size_t
6292 #endif
6293 );
6294 #ifdef LAPACK_FORTRAN_STRLEN_END
6295  #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__, 1, 1)
6296 #else
6297  #define LAPACK_zhbevd_2stage(...) LAPACK_zhbevd_2stage_base(__VA_ARGS__)
6298 #endif
6299 
6300 #define LAPACK_chbevx_base LAPACK_GLOBAL(chbevx,CHBEVX)
6301 void LAPACK_chbevx_base(
6302  char const* jobz, char const* range, char const* uplo,
6303  lapack_int const* n, lapack_int const* kd,
6304  lapack_complex_float* AB, lapack_int const* ldab,
6305  lapack_complex_float* Q, lapack_int const* ldq,
6306  float const* vl,
6307  float const* vu, lapack_int const* il, lapack_int const* iu,
6308  float const* abstol, lapack_int* m,
6309  float* W,
6310  lapack_complex_float* Z, lapack_int const* ldz,
6311  lapack_complex_float* work,
6312  float* rwork,
6313  lapack_int* iwork, lapack_int* IFAIL,
6314  lapack_int* info
6315 #ifdef LAPACK_FORTRAN_STRLEN_END
6316  , size_t, size_t, size_t
6317 #endif
6318 );
6319 #ifdef LAPACK_FORTRAN_STRLEN_END
6320  #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__, 1, 1, 1)
6321 #else
6322  #define LAPACK_chbevx(...) LAPACK_chbevx_base(__VA_ARGS__)
6323 #endif
6324 
6325 #define LAPACK_zhbevx_base LAPACK_GLOBAL(zhbevx,ZHBEVX)
6326 void LAPACK_zhbevx_base(
6327  char const* jobz, char const* range, char const* uplo,
6328  lapack_int const* n, lapack_int const* kd,
6329  lapack_complex_double* AB, lapack_int const* ldab,
6330  lapack_complex_double* Q, lapack_int const* ldq,
6331  double const* vl,
6332  double const* vu, lapack_int const* il, lapack_int const* iu,
6333  double const* abstol, lapack_int* m,
6334  double* W,
6335  lapack_complex_double* Z, lapack_int const* ldz,
6336  lapack_complex_double* work,
6337  double* rwork,
6338  lapack_int* iwork, lapack_int* IFAIL,
6339  lapack_int* info
6340 #ifdef LAPACK_FORTRAN_STRLEN_END
6341  , size_t, size_t, size_t
6342 #endif
6343 );
6344 #ifdef LAPACK_FORTRAN_STRLEN_END
6345  #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__, 1, 1, 1)
6346 #else
6347  #define LAPACK_zhbevx(...) LAPACK_zhbevx_base(__VA_ARGS__)
6348 #endif
6349 
6350 #define LAPACK_chbevx_2stage_base LAPACK_GLOBAL(chbevx_2stage,CHBEVX_2STAGE)
6351 void LAPACK_chbevx_2stage_base(
6352  char const* jobz, char const* range, char const* uplo,
6353  lapack_int const* n, lapack_int const* kd,
6354  lapack_complex_float* AB, lapack_int const* ldab,
6355  lapack_complex_float* Q, lapack_int const* ldq,
6356  float const* vl,
6357  float const* vu, lapack_int const* il, lapack_int const* iu,
6358  float const* abstol, lapack_int* m,
6359  float* W,
6360  lapack_complex_float* Z, lapack_int const* ldz,
6361  lapack_complex_float* work, lapack_int const* lwork,
6362  float* rwork,
6363  lapack_int* iwork, lapack_int* IFAIL,
6364  lapack_int* info
6365 #ifdef LAPACK_FORTRAN_STRLEN_END
6366  , size_t, size_t, size_t
6367 #endif
6368 );
6369 #ifdef LAPACK_FORTRAN_STRLEN_END
6370  #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6371 #else
6372  #define LAPACK_chbevx_2stage(...) LAPACK_chbevx_2stage_base(__VA_ARGS__)
6373 #endif
6374 
6375 #define LAPACK_zhbevx_2stage_base LAPACK_GLOBAL(zhbevx_2stage,ZHBEVX_2STAGE)
6376 void LAPACK_zhbevx_2stage_base(
6377  char const* jobz, char const* range, char const* uplo,
6378  lapack_int const* n, lapack_int const* kd,
6379  lapack_complex_double* AB, lapack_int const* ldab,
6380  lapack_complex_double* Q, lapack_int const* ldq,
6381  double const* vl,
6382  double const* vu, lapack_int const* il, lapack_int const* iu,
6383  double const* abstol, lapack_int* m,
6384  double* W,
6385  lapack_complex_double* Z, lapack_int const* ldz,
6386  lapack_complex_double* work, lapack_int const* lwork,
6387  double* rwork,
6388  lapack_int* iwork, lapack_int* IFAIL,
6389  lapack_int* info
6390 #ifdef LAPACK_FORTRAN_STRLEN_END
6391  , size_t, size_t, size_t
6392 #endif
6393 );
6394 #ifdef LAPACK_FORTRAN_STRLEN_END
6395  #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
6396 #else
6397  #define LAPACK_zhbevx_2stage(...) LAPACK_zhbevx_2stage_base(__VA_ARGS__)
6398 #endif
6399 
6400 #define LAPACK_chbgst_base LAPACK_GLOBAL(chbgst,CHBGST)
6401 void LAPACK_chbgst_base(
6402  char const* vect, char const* uplo,
6403  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6404  lapack_complex_float* AB, lapack_int const* ldab,
6405  lapack_complex_float const* BB, lapack_int const* ldbb,
6406  lapack_complex_float* X, lapack_int const* ldx,
6407  lapack_complex_float* work,
6408  float* rwork,
6409  lapack_int* info
6410 #ifdef LAPACK_FORTRAN_STRLEN_END
6411  , size_t, size_t
6412 #endif
6413 );
6414 #ifdef LAPACK_FORTRAN_STRLEN_END
6415  #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__, 1, 1)
6416 #else
6417  #define LAPACK_chbgst(...) LAPACK_chbgst_base(__VA_ARGS__)
6418 #endif
6419 
6420 #define LAPACK_zhbgst_base LAPACK_GLOBAL(zhbgst,ZHBGST)
6421 void LAPACK_zhbgst_base(
6422  char const* vect, char const* uplo,
6423  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6424  lapack_complex_double* AB, lapack_int const* ldab,
6425  lapack_complex_double const* BB, lapack_int const* ldbb,
6426  lapack_complex_double* X, lapack_int const* ldx,
6427  lapack_complex_double* work,
6428  double* rwork,
6429  lapack_int* info
6430 #ifdef LAPACK_FORTRAN_STRLEN_END
6431  , size_t, size_t
6432 #endif
6433 );
6434 #ifdef LAPACK_FORTRAN_STRLEN_END
6435  #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__, 1, 1)
6436 #else
6437  #define LAPACK_zhbgst(...) LAPACK_zhbgst_base(__VA_ARGS__)
6438 #endif
6439 
6440 #define LAPACK_chbgv_base LAPACK_GLOBAL(chbgv,CHBGV)
6441 void LAPACK_chbgv_base(
6442  char const* jobz, char const* uplo,
6443  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6444  lapack_complex_float* AB, lapack_int const* ldab,
6445  lapack_complex_float* BB, lapack_int const* ldbb,
6446  float* W,
6447  lapack_complex_float* Z, lapack_int const* ldz,
6448  lapack_complex_float* work,
6449  float* rwork,
6450  lapack_int* info
6451 #ifdef LAPACK_FORTRAN_STRLEN_END
6452  , size_t, size_t
6453 #endif
6454 );
6455 #ifdef LAPACK_FORTRAN_STRLEN_END
6456  #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__, 1, 1)
6457 #else
6458  #define LAPACK_chbgv(...) LAPACK_chbgv_base(__VA_ARGS__)
6459 #endif
6460 
6461 #define LAPACK_zhbgv_base LAPACK_GLOBAL(zhbgv,ZHBGV)
6462 void LAPACK_zhbgv_base(
6463  char const* jobz, char const* uplo,
6464  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6465  lapack_complex_double* AB, lapack_int const* ldab,
6466  lapack_complex_double* BB, lapack_int const* ldbb,
6467  double* W,
6468  lapack_complex_double* Z, lapack_int const* ldz,
6469  lapack_complex_double* work,
6470  double* rwork,
6471  lapack_int* info
6472 #ifdef LAPACK_FORTRAN_STRLEN_END
6473  , size_t, size_t
6474 #endif
6475 );
6476 #ifdef LAPACK_FORTRAN_STRLEN_END
6477  #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__, 1, 1)
6478 #else
6479  #define LAPACK_zhbgv(...) LAPACK_zhbgv_base(__VA_ARGS__)
6480 #endif
6481 
6482 #define LAPACK_chbgvd_base LAPACK_GLOBAL(chbgvd,CHBGVD)
6483 void LAPACK_chbgvd_base(
6484  char const* jobz, char const* uplo,
6485  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6486  lapack_complex_float* AB, lapack_int const* ldab,
6487  lapack_complex_float* BB, lapack_int const* ldbb,
6488  float* W,
6489  lapack_complex_float* Z, lapack_int const* ldz,
6490  lapack_complex_float* work, lapack_int const* lwork,
6491  float* rwork, lapack_int const* lrwork,
6492  lapack_int* iwork, lapack_int const* liwork,
6493  lapack_int* info
6494 #ifdef LAPACK_FORTRAN_STRLEN_END
6495  , size_t, size_t
6496 #endif
6497 );
6498 #ifdef LAPACK_FORTRAN_STRLEN_END
6499  #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__, 1, 1)
6500 #else
6501  #define LAPACK_chbgvd(...) LAPACK_chbgvd_base(__VA_ARGS__)
6502 #endif
6503 
6504 #define LAPACK_zhbgvd_base LAPACK_GLOBAL(zhbgvd,ZHBGVD)
6505 void LAPACK_zhbgvd_base(
6506  char const* jobz, char const* uplo,
6507  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6508  lapack_complex_double* AB, lapack_int const* ldab,
6509  lapack_complex_double* BB, lapack_int const* ldbb,
6510  double* W,
6511  lapack_complex_double* Z, lapack_int const* ldz,
6512  lapack_complex_double* work, lapack_int const* lwork,
6513  double* rwork, lapack_int const* lrwork,
6514  lapack_int* iwork, lapack_int const* liwork,
6515  lapack_int* info
6516 #ifdef LAPACK_FORTRAN_STRLEN_END
6517  , size_t, size_t
6518 #endif
6519 );
6520 #ifdef LAPACK_FORTRAN_STRLEN_END
6521  #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__, 1, 1)
6522 #else
6523  #define LAPACK_zhbgvd(...) LAPACK_zhbgvd_base(__VA_ARGS__)
6524 #endif
6525 
6526 #define LAPACK_chbgvx_base LAPACK_GLOBAL(chbgvx,CHBGVX)
6527 void LAPACK_chbgvx_base(
6528  char const* jobz, char const* range, char const* uplo,
6529  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6530  lapack_complex_float* AB, lapack_int const* ldab,
6531  lapack_complex_float* BB, lapack_int const* ldbb,
6532  lapack_complex_float* Q, lapack_int const* ldq,
6533  float const* vl,
6534  float const* vu, lapack_int const* il, lapack_int const* iu,
6535  float const* abstol, lapack_int* m,
6536  float* W,
6537  lapack_complex_float* Z, lapack_int const* ldz,
6538  lapack_complex_float* work,
6539  float* rwork,
6540  lapack_int* iwork, lapack_int* IFAIL,
6541  lapack_int* info
6542 #ifdef LAPACK_FORTRAN_STRLEN_END
6543  , size_t, size_t, size_t
6544 #endif
6545 );
6546 #ifdef LAPACK_FORTRAN_STRLEN_END
6547  #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__, 1, 1, 1)
6548 #else
6549  #define LAPACK_chbgvx(...) LAPACK_chbgvx_base(__VA_ARGS__)
6550 #endif
6551 
6552 #define LAPACK_zhbgvx_base LAPACK_GLOBAL(zhbgvx,ZHBGVX)
6553 void LAPACK_zhbgvx_base(
6554  char const* jobz, char const* range, char const* uplo,
6555  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
6556  lapack_complex_double* AB, lapack_int const* ldab,
6557  lapack_complex_double* BB, lapack_int const* ldbb,
6558  lapack_complex_double* Q, lapack_int const* ldq,
6559  double const* vl,
6560  double const* vu, lapack_int const* il, lapack_int const* iu,
6561  double const* abstol, lapack_int* m,
6562  double* W,
6563  lapack_complex_double* Z, lapack_int const* ldz,
6564  lapack_complex_double* work,
6565  double* rwork,
6566  lapack_int* iwork, lapack_int* IFAIL,
6567  lapack_int* info
6568 #ifdef LAPACK_FORTRAN_STRLEN_END
6569  , size_t, size_t, size_t
6570 #endif
6571 );
6572 #ifdef LAPACK_FORTRAN_STRLEN_END
6573  #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__, 1, 1, 1)
6574 #else
6575  #define LAPACK_zhbgvx(...) LAPACK_zhbgvx_base(__VA_ARGS__)
6576 #endif
6577 
6578 #define LAPACK_chbtrd_base LAPACK_GLOBAL(chbtrd,CHBTRD)
6579 void LAPACK_chbtrd_base(
6580  char const* vect, char const* uplo,
6581  lapack_int const* n, lapack_int const* kd,
6582  lapack_complex_float* AB, lapack_int const* ldab,
6583  float* D,
6584  float* E,
6585  lapack_complex_float* Q, lapack_int const* ldq,
6586  lapack_complex_float* work,
6587  lapack_int* info
6588 #ifdef LAPACK_FORTRAN_STRLEN_END
6589  , size_t, size_t
6590 #endif
6591 );
6592 #ifdef LAPACK_FORTRAN_STRLEN_END
6593  #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__, 1, 1)
6594 #else
6595  #define LAPACK_chbtrd(...) LAPACK_chbtrd_base(__VA_ARGS__)
6596 #endif
6597 
6598 #define LAPACK_zhbtrd_base LAPACK_GLOBAL(zhbtrd,ZHBTRD)
6599 void LAPACK_zhbtrd_base(
6600  char const* vect, char const* uplo,
6601  lapack_int const* n, lapack_int const* kd,
6602  lapack_complex_double* AB, lapack_int const* ldab,
6603  double* D,
6604  double* E,
6605  lapack_complex_double* Q, lapack_int const* ldq,
6606  lapack_complex_double* work,
6607  lapack_int* info
6608 #ifdef LAPACK_FORTRAN_STRLEN_END
6609  , size_t, size_t
6610 #endif
6611 );
6612 #ifdef LAPACK_FORTRAN_STRLEN_END
6613  #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__, 1, 1)
6614 #else
6615  #define LAPACK_zhbtrd(...) LAPACK_zhbtrd_base(__VA_ARGS__)
6616 #endif
6617 
6618 #define LAPACK_checon_base LAPACK_GLOBAL(checon,CHECON)
6619 void LAPACK_checon_base(
6620  char const* uplo,
6621  lapack_int const* n,
6622  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
6623  float const* anorm,
6624  float* rcond,
6625  lapack_complex_float* work,
6626  lapack_int* info
6627 #ifdef LAPACK_FORTRAN_STRLEN_END
6628  , size_t
6629 #endif
6630 );
6631 #ifdef LAPACK_FORTRAN_STRLEN_END
6632  #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__, 1)
6633 #else
6634  #define LAPACK_checon(...) LAPACK_checon_base(__VA_ARGS__)
6635 #endif
6636 
6637 #define LAPACK_zhecon_base LAPACK_GLOBAL(zhecon,ZHECON)
6638 void LAPACK_zhecon_base(
6639  char const* uplo,
6640  lapack_int const* n,
6641  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
6642  double const* anorm,
6643  double* rcond,
6644  lapack_complex_double* work,
6645  lapack_int* info
6646 #ifdef LAPACK_FORTRAN_STRLEN_END
6647  , size_t
6648 #endif
6649 );
6650 #ifdef LAPACK_FORTRAN_STRLEN_END
6651  #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__, 1)
6652 #else
6653  #define LAPACK_zhecon(...) LAPACK_zhecon_base(__VA_ARGS__)
6654 #endif
6655 
6656 #define LAPACK_checon_3_base LAPACK_GLOBAL(checon_3,CHECON_3)
6657 void LAPACK_checon_3_base(
6658  char const* uplo,
6659  lapack_int const* n,
6660  lapack_complex_float const* A, lapack_int const* lda,
6661  lapack_complex_float const* E, lapack_int const* ipiv,
6662  float const* anorm,
6663  float* rcond,
6664  lapack_complex_float* work,
6665  lapack_int* info
6666 #ifdef LAPACK_FORTRAN_STRLEN_END
6667  , size_t
6668 #endif
6669 );
6670 #ifdef LAPACK_FORTRAN_STRLEN_END
6671  #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__, 1)
6672 #else
6673  #define LAPACK_checon_3(...) LAPACK_checon_3_base(__VA_ARGS__)
6674 #endif
6675 
6676 #define LAPACK_zhecon_3_base LAPACK_GLOBAL(zhecon_3,ZHECON_3)
6677 void LAPACK_zhecon_3_base(
6678  char const* uplo,
6679  lapack_int const* n,
6680  lapack_complex_double const* A, lapack_int const* lda,
6681  lapack_complex_double const* E, lapack_int const* ipiv,
6682  double const* anorm,
6683  double* rcond,
6684  lapack_complex_double* work,
6685  lapack_int* info
6686 #ifdef LAPACK_FORTRAN_STRLEN_END
6687  , size_t
6688 #endif
6689 );
6690 #ifdef LAPACK_FORTRAN_STRLEN_END
6691  #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__, 1)
6692 #else
6693  #define LAPACK_zhecon_3(...) LAPACK_zhecon_3_base(__VA_ARGS__)
6694 #endif
6695 
6696 #define LAPACK_cheequb_base LAPACK_GLOBAL(cheequb,CHEEQUB)
6697 void LAPACK_cheequb_base(
6698  char const* uplo,
6699  lapack_int const* n,
6700  lapack_complex_float const* A, lapack_int const* lda,
6701  float* S,
6702  float* scond,
6703  float* amax,
6704  lapack_complex_float* work,
6705  lapack_int* info
6706 #ifdef LAPACK_FORTRAN_STRLEN_END
6707  , size_t
6708 #endif
6709 );
6710 #ifdef LAPACK_FORTRAN_STRLEN_END
6711  #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__, 1)
6712 #else
6713  #define LAPACK_cheequb(...) LAPACK_cheequb_base(__VA_ARGS__)
6714 #endif
6715 
6716 #define LAPACK_zheequb_base LAPACK_GLOBAL(zheequb,ZHEEQUB)
6717 void LAPACK_zheequb_base(
6718  char const* uplo,
6719  lapack_int const* n,
6720  lapack_complex_double const* A, lapack_int const* lda,
6721  double* S,
6722  double* scond,
6723  double* amax,
6724  lapack_complex_double* work,
6725  lapack_int* info
6726 #ifdef LAPACK_FORTRAN_STRLEN_END
6727  , size_t
6728 #endif
6729 );
6730 #ifdef LAPACK_FORTRAN_STRLEN_END
6731  #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__, 1)
6732 #else
6733  #define LAPACK_zheequb(...) LAPACK_zheequb_base(__VA_ARGS__)
6734 #endif
6735 
6736 #define LAPACK_cheev_base LAPACK_GLOBAL(cheev,CHEEV)
6737 void LAPACK_cheev_base(
6738  char const* jobz, char const* uplo,
6739  lapack_int const* n,
6740  lapack_complex_float* A, lapack_int const* lda,
6741  float* W,
6742  lapack_complex_float* work, lapack_int const* lwork,
6743  float* rwork,
6744  lapack_int* info
6745 #ifdef LAPACK_FORTRAN_STRLEN_END
6746  , size_t, size_t
6747 #endif
6748 );
6749 #ifdef LAPACK_FORTRAN_STRLEN_END
6750  #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__, 1, 1)
6751 #else
6752  #define LAPACK_cheev(...) LAPACK_cheev_base(__VA_ARGS__)
6753 #endif
6754 
6755 #define LAPACK_zheev_base LAPACK_GLOBAL(zheev,ZHEEV)
6756 void LAPACK_zheev_base(
6757  char const* jobz, char const* uplo,
6758  lapack_int const* n,
6759  lapack_complex_double* A, lapack_int const* lda,
6760  double* W,
6761  lapack_complex_double* work, lapack_int const* lwork,
6762  double* rwork,
6763  lapack_int* info
6764 #ifdef LAPACK_FORTRAN_STRLEN_END
6765  , size_t, size_t
6766 #endif
6767 );
6768 #ifdef LAPACK_FORTRAN_STRLEN_END
6769  #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__, 1, 1)
6770 #else
6771  #define LAPACK_zheev(...) LAPACK_zheev_base(__VA_ARGS__)
6772 #endif
6773 
6774 #define LAPACK_cheev_2stage_base LAPACK_GLOBAL(cheev_2stage,CHEEV_2STAGE)
6775 void LAPACK_cheev_2stage_base(
6776  char const* jobz, char const* uplo,
6777  lapack_int const* n,
6778  lapack_complex_float* A, lapack_int const* lda,
6779  float* W,
6780  lapack_complex_float* work, lapack_int const* lwork,
6781  float* rwork,
6782  lapack_int* info
6783 #ifdef LAPACK_FORTRAN_STRLEN_END
6784  , size_t, size_t
6785 #endif
6786 );
6787 #ifdef LAPACK_FORTRAN_STRLEN_END
6788  #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__, 1, 1)
6789 #else
6790  #define LAPACK_cheev_2stage(...) LAPACK_cheev_2stage_base(__VA_ARGS__)
6791 #endif
6792 
6793 #define LAPACK_zheev_2stage_base LAPACK_GLOBAL(zheev_2stage,ZHEEV_2STAGE)
6794 void LAPACK_zheev_2stage_base(
6795  char const* jobz, char const* uplo,
6796  lapack_int const* n,
6797  lapack_complex_double* A, lapack_int const* lda,
6798  double* W,
6799  lapack_complex_double* work, lapack_int const* lwork,
6800  double* rwork,
6801  lapack_int* info
6802 #ifdef LAPACK_FORTRAN_STRLEN_END
6803  , size_t, size_t
6804 #endif
6805 );
6806 #ifdef LAPACK_FORTRAN_STRLEN_END
6807  #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__, 1, 1)
6808 #else
6809  #define LAPACK_zheev_2stage(...) LAPACK_zheev_2stage_base(__VA_ARGS__)
6810 #endif
6811 
6812 #define LAPACK_cheevd_base LAPACK_GLOBAL(cheevd,CHEEVD)
6813 void LAPACK_cheevd_base(
6814  char const* jobz, char const* uplo,
6815  lapack_int const* n,
6816  lapack_complex_float* A, lapack_int const* lda,
6817  float* W,
6818  lapack_complex_float* work, lapack_int const* lwork,
6819  float* rwork, lapack_int const* lrwork,
6820  lapack_int* iwork, lapack_int const* liwork,
6821  lapack_int* info
6822 #ifdef LAPACK_FORTRAN_STRLEN_END
6823  , size_t, size_t
6824 #endif
6825 );
6826 #ifdef LAPACK_FORTRAN_STRLEN_END
6827  #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__, 1, 1)
6828 #else
6829  #define LAPACK_cheevd(...) LAPACK_cheevd_base(__VA_ARGS__)
6830 #endif
6831 
6832 #define LAPACK_zheevd_base LAPACK_GLOBAL(zheevd,ZHEEVD)
6833 void LAPACK_zheevd_base(
6834  char const* jobz, char const* uplo,
6835  lapack_int const* n,
6836  lapack_complex_double* A, lapack_int const* lda,
6837  double* W,
6838  lapack_complex_double* work, lapack_int const* lwork,
6839  double* rwork, lapack_int const* lrwork,
6840  lapack_int* iwork, lapack_int const* liwork,
6841  lapack_int* info
6842 #ifdef LAPACK_FORTRAN_STRLEN_END
6843  , size_t, size_t
6844 #endif
6845 );
6846 #ifdef LAPACK_FORTRAN_STRLEN_END
6847  #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__, 1, 1)
6848 #else
6849  #define LAPACK_zheevd(...) LAPACK_zheevd_base(__VA_ARGS__)
6850 #endif
6851 
6852 #define LAPACK_cheevd_2stage_base LAPACK_GLOBAL(cheevd_2stage,CHEEVD_2STAGE)
6853 void LAPACK_cheevd_2stage_base(
6854  char const* jobz, char const* uplo,
6855  lapack_int const* n,
6856  lapack_complex_float* A, lapack_int const* lda,
6857  float* W,
6858  lapack_complex_float* work, lapack_int const* lwork,
6859  float* rwork, lapack_int const* lrwork,
6860  lapack_int* iwork, lapack_int const* liwork,
6861  lapack_int* info
6862 #ifdef LAPACK_FORTRAN_STRLEN_END
6863  , size_t, size_t
6864 #endif
6865 );
6866 #ifdef LAPACK_FORTRAN_STRLEN_END
6867  #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__, 1, 1)
6868 #else
6869  #define LAPACK_cheevd_2stage(...) LAPACK_cheevd_2stage_base(__VA_ARGS__)
6870 #endif
6871 
6872 #define LAPACK_zheevd_2stage_base LAPACK_GLOBAL(zheevd_2stage,ZHEEVD_2STAGE)
6873 void LAPACK_zheevd_2stage_base(
6874  char const* jobz, char const* uplo,
6875  lapack_int const* n,
6876  lapack_complex_double* A, lapack_int const* lda,
6877  double* W,
6878  lapack_complex_double* work, lapack_int const* lwork,
6879  double* rwork, lapack_int const* lrwork,
6880  lapack_int* iwork, lapack_int const* liwork,
6881  lapack_int* info
6882 #ifdef LAPACK_FORTRAN_STRLEN_END
6883  , size_t, size_t
6884 #endif
6885 );
6886 #ifdef LAPACK_FORTRAN_STRLEN_END
6887  #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__, 1, 1)
6888 #else
6889  #define LAPACK_zheevd_2stage(...) LAPACK_zheevd_2stage_base(__VA_ARGS__)
6890 #endif
6891 
6892 #define LAPACK_cheevr_base LAPACK_GLOBAL(cheevr,CHEEVR)
6893 void LAPACK_cheevr_base(
6894  char const* jobz, char const* range, char const* uplo,
6895  lapack_int const* n,
6896  lapack_complex_float* A, lapack_int const* lda,
6897  float const* vl,
6898  float const* vu, lapack_int const* il, lapack_int const* iu,
6899  float const* abstol, lapack_int* m,
6900  float* W,
6901  lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6902  lapack_complex_float* work, lapack_int const* lwork,
6903  float* rwork, lapack_int const* lrwork,
6904  lapack_int* iwork, lapack_int const* liwork,
6905  lapack_int* info
6906 #ifdef LAPACK_FORTRAN_STRLEN_END
6907  , size_t, size_t, size_t
6908 #endif
6909 );
6910 #ifdef LAPACK_FORTRAN_STRLEN_END
6911  #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__, 1, 1, 1)
6912 #else
6913  #define LAPACK_cheevr(...) LAPACK_cheevr_base(__VA_ARGS__)
6914 #endif
6915 
6916 #define LAPACK_zheevr_base LAPACK_GLOBAL(zheevr,ZHEEVR)
6917 void LAPACK_zheevr_base(
6918  char const* jobz, char const* range, char const* uplo,
6919  lapack_int const* n,
6920  lapack_complex_double* A, lapack_int const* lda,
6921  double const* vl,
6922  double const* vu, lapack_int const* il, lapack_int const* iu,
6923  double const* abstol, lapack_int* m,
6924  double* W,
6925  lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6926  lapack_complex_double* work, lapack_int const* lwork,
6927  double* rwork, lapack_int const* lrwork,
6928  lapack_int* iwork, lapack_int const* liwork,
6929  lapack_int* info
6930 #ifdef LAPACK_FORTRAN_STRLEN_END
6931  , size_t, size_t, size_t
6932 #endif
6933 );
6934 #ifdef LAPACK_FORTRAN_STRLEN_END
6935  #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__, 1, 1, 1)
6936 #else
6937  #define LAPACK_zheevr(...) LAPACK_zheevr_base(__VA_ARGS__)
6938 #endif
6939 
6940 #define LAPACK_cheevr_2stage_base LAPACK_GLOBAL(cheevr_2stage,CHEEVR_2STAGE)
6941 void LAPACK_cheevr_2stage_base(
6942  char const* jobz, char const* range, char const* uplo,
6943  lapack_int const* n,
6944  lapack_complex_float* A, lapack_int const* lda,
6945  float const* vl,
6946  float const* vu, lapack_int const* il, lapack_int const* iu,
6947  float const* abstol, lapack_int* m,
6948  float* W,
6949  lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6950  lapack_complex_float* work, lapack_int const* lwork,
6951  float* rwork, lapack_int const* lrwork,
6952  lapack_int* iwork, lapack_int const* liwork,
6953  lapack_int* info
6954 #ifdef LAPACK_FORTRAN_STRLEN_END
6955  , size_t, size_t, size_t
6956 #endif
6957 );
6958 #ifdef LAPACK_FORTRAN_STRLEN_END
6959  #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6960 #else
6961  #define LAPACK_cheevr_2stage(...) LAPACK_cheevr_2stage_base(__VA_ARGS__)
6962 #endif
6963 
6964 #define LAPACK_zheevr_2stage_base LAPACK_GLOBAL(zheevr_2stage,ZHEEVR_2STAGE)
6965 void LAPACK_zheevr_2stage_base(
6966  char const* jobz, char const* range, char const* uplo,
6967  lapack_int const* n,
6968  lapack_complex_double* A, lapack_int const* lda,
6969  double const* vl,
6970  double const* vu, lapack_int const* il, lapack_int const* iu,
6971  double const* abstol, lapack_int* m,
6972  double* W,
6973  lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
6974  lapack_complex_double* work, lapack_int const* lwork,
6975  double* rwork, lapack_int const* lrwork,
6976  lapack_int* iwork, lapack_int const* liwork,
6977  lapack_int* info
6978 #ifdef LAPACK_FORTRAN_STRLEN_END
6979  , size_t, size_t, size_t
6980 #endif
6981 );
6982 #ifdef LAPACK_FORTRAN_STRLEN_END
6983  #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__, 1, 1, 1)
6984 #else
6985  #define LAPACK_zheevr_2stage(...) LAPACK_zheevr_2stage_base(__VA_ARGS__)
6986 #endif
6987 
6988 #define LAPACK_cheevx_base LAPACK_GLOBAL(cheevx,CHEEVX)
6989 void LAPACK_cheevx_base(
6990  char const* jobz, char const* range, char const* uplo,
6991  lapack_int const* n,
6992  lapack_complex_float* A, lapack_int const* lda,
6993  float const* vl,
6994  float const* vu, lapack_int const* il, lapack_int const* iu,
6995  float const* abstol, lapack_int* m,
6996  float* W,
6997  lapack_complex_float* Z, lapack_int const* ldz,
6998  lapack_complex_float* work, lapack_int const* lwork,
6999  float* rwork,
7000  lapack_int* iwork, lapack_int* IFAIL,
7001  lapack_int* info
7002 #ifdef LAPACK_FORTRAN_STRLEN_END
7003  , size_t, size_t, size_t
7004 #endif
7005 );
7006 #ifdef LAPACK_FORTRAN_STRLEN_END
7007  #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__, 1, 1, 1)
7008 #else
7009  #define LAPACK_cheevx(...) LAPACK_cheevx_base(__VA_ARGS__)
7010 #endif
7011 
7012 #define LAPACK_zheevx_base LAPACK_GLOBAL(zheevx,ZHEEVX)
7013 void LAPACK_zheevx_base(
7014  char const* jobz, char const* range, char const* uplo,
7015  lapack_int const* n,
7016  lapack_complex_double* A, lapack_int const* lda,
7017  double const* vl,
7018  double const* vu, lapack_int const* il, lapack_int const* iu,
7019  double const* abstol, lapack_int* m,
7020  double* W,
7021  lapack_complex_double* Z, lapack_int const* ldz,
7022  lapack_complex_double* work, lapack_int const* lwork,
7023  double* rwork,
7024  lapack_int* iwork, lapack_int* IFAIL,
7025  lapack_int* info
7026 #ifdef LAPACK_FORTRAN_STRLEN_END
7027  , size_t, size_t, size_t
7028 #endif
7029 );
7030 #ifdef LAPACK_FORTRAN_STRLEN_END
7031  #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__, 1, 1, 1)
7032 #else
7033  #define LAPACK_zheevx(...) LAPACK_zheevx_base(__VA_ARGS__)
7034 #endif
7035 
7036 #define LAPACK_cheevx_2stage_base LAPACK_GLOBAL(cheevx_2stage,CHEEVX_2STAGE)
7037 void LAPACK_cheevx_2stage_base(
7038  char const* jobz, char const* range, char const* uplo,
7039  lapack_int const* n,
7040  lapack_complex_float* A, lapack_int const* lda,
7041  float const* vl,
7042  float const* vu, lapack_int const* il, lapack_int const* iu,
7043  float const* abstol, lapack_int* m,
7044  float* W,
7045  lapack_complex_float* Z, lapack_int const* ldz,
7046  lapack_complex_float* work, lapack_int const* lwork,
7047  float* rwork,
7048  lapack_int* iwork, lapack_int* IFAIL,
7049  lapack_int* info
7050 #ifdef LAPACK_FORTRAN_STRLEN_END
7051  , size_t, size_t, size_t
7052 #endif
7053 );
7054 #ifdef LAPACK_FORTRAN_STRLEN_END
7055  #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7056 #else
7057  #define LAPACK_cheevx_2stage(...) LAPACK_cheevx_2stage_base(__VA_ARGS__)
7058 #endif
7059 
7060 #define LAPACK_zheevx_2stage_base LAPACK_GLOBAL(zheevx_2stage,ZHEEVX_2STAGE)
7061 void LAPACK_zheevx_2stage_base(
7062  char const* jobz, char const* range, char const* uplo,
7063  lapack_int const* n,
7064  lapack_complex_double* A, lapack_int const* lda,
7065  double const* vl,
7066  double const* vu, lapack_int const* il, lapack_int const* iu,
7067  double const* abstol, lapack_int* m,
7068  double* W,
7069  lapack_complex_double* Z, lapack_int const* ldz,
7070  lapack_complex_double* work, lapack_int const* lwork,
7071  double* rwork,
7072  lapack_int* iwork, lapack_int* IFAIL,
7073  lapack_int* info
7074 #ifdef LAPACK_FORTRAN_STRLEN_END
7075  , size_t, size_t, size_t
7076 #endif
7077 );
7078 #ifdef LAPACK_FORTRAN_STRLEN_END
7079  #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__, 1, 1, 1)
7080 #else
7081  #define LAPACK_zheevx_2stage(...) LAPACK_zheevx_2stage_base(__VA_ARGS__)
7082 #endif
7083 
7084 #define LAPACK_chegst_base LAPACK_GLOBAL(chegst,CHEGST)
7085 void LAPACK_chegst_base(
7086  lapack_int const* itype, char const* uplo,
7087  lapack_int const* n,
7088  lapack_complex_float* A, lapack_int const* lda,
7089  const lapack_complex_float* B, lapack_int const* ldb,
7090  lapack_int* info
7091 #ifdef LAPACK_FORTRAN_STRLEN_END
7092  , size_t
7093 #endif
7094 );
7095 #ifdef LAPACK_FORTRAN_STRLEN_END
7096  #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__, 1)
7097 #else
7098  #define LAPACK_chegst(...) LAPACK_chegst_base(__VA_ARGS__)
7099 #endif
7100 
7101 #define LAPACK_zhegst_base LAPACK_GLOBAL(zhegst,ZHEGST)
7102 void LAPACK_zhegst_base(
7103  lapack_int const* itype, char const* uplo,
7104  lapack_int const* n,
7105  lapack_complex_double* A, lapack_int const* lda,
7106  const lapack_complex_double* B, lapack_int const* ldb,
7107  lapack_int* info
7108 #ifdef LAPACK_FORTRAN_STRLEN_END
7109  , size_t
7110 #endif
7111 );
7112 #ifdef LAPACK_FORTRAN_STRLEN_END
7113  #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__, 1)
7114 #else
7115  #define LAPACK_zhegst(...) LAPACK_zhegst_base(__VA_ARGS__)
7116 #endif
7117 
7118 #define LAPACK_chegv_base LAPACK_GLOBAL(chegv,CHEGV)
7119 void LAPACK_chegv_base(
7120  lapack_int const* itype, char const* jobz, char const* uplo,
7121  lapack_int const* n,
7122  lapack_complex_float* A, lapack_int const* lda,
7123  lapack_complex_float* B, lapack_int const* ldb,
7124  float* W,
7125  lapack_complex_float* work, lapack_int const* lwork,
7126  float* rwork,
7127  lapack_int* info
7128 #ifdef LAPACK_FORTRAN_STRLEN_END
7129  , size_t, size_t
7130 #endif
7131 );
7132 #ifdef LAPACK_FORTRAN_STRLEN_END
7133  #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__, 1, 1)
7134 #else
7135  #define LAPACK_chegv(...) LAPACK_chegv_base(__VA_ARGS__)
7136 #endif
7137 
7138 #define LAPACK_zhegv_base LAPACK_GLOBAL(zhegv,ZHEGV)
7139 void LAPACK_zhegv_base(
7140  lapack_int const* itype, char const* jobz, char const* uplo,
7141  lapack_int const* n,
7142  lapack_complex_double* A, lapack_int const* lda,
7143  lapack_complex_double* B, lapack_int const* ldb,
7144  double* W,
7145  lapack_complex_double* work, lapack_int const* lwork,
7146  double* rwork,
7147  lapack_int* info
7148 #ifdef LAPACK_FORTRAN_STRLEN_END
7149  , size_t, size_t
7150 #endif
7151 );
7152 #ifdef LAPACK_FORTRAN_STRLEN_END
7153  #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__, 1, 1)
7154 #else
7155  #define LAPACK_zhegv(...) LAPACK_zhegv_base(__VA_ARGS__)
7156 #endif
7157 
7158 #define LAPACK_chegv_2stage_base LAPACK_GLOBAL(chegv_2stage,CHEGV_2STAGE)
7159 void LAPACK_chegv_2stage_base(
7160  lapack_int const* itype, char const* jobz, char const* uplo,
7161  lapack_int const* n,
7162  lapack_complex_float* A, lapack_int const* lda,
7163  lapack_complex_float* B, lapack_int const* ldb,
7164  float* W,
7165  lapack_complex_float* work, lapack_int const* lwork,
7166  float* rwork,
7167  lapack_int* info
7168 #ifdef LAPACK_FORTRAN_STRLEN_END
7169  , size_t, size_t
7170 #endif
7171 );
7172 #ifdef LAPACK_FORTRAN_STRLEN_END
7173  #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__, 1, 1)
7174 #else
7175  #define LAPACK_chegv_2stage(...) LAPACK_chegv_2stage_base(__VA_ARGS__)
7176 #endif
7177 
7178 #define LAPACK_zhegv_2stage_base LAPACK_GLOBAL(zhegv_2stage,ZHEGV_2STAGE)
7179 void LAPACK_zhegv_2stage_base(
7180  lapack_int const* itype, char const* jobz, char const* uplo,
7181  lapack_int const* n,
7182  lapack_complex_double* A, lapack_int const* lda,
7183  lapack_complex_double* B, lapack_int const* ldb,
7184  double* W,
7185  lapack_complex_double* work, lapack_int const* lwork,
7186  double* rwork,
7187  lapack_int* info
7188 #ifdef LAPACK_FORTRAN_STRLEN_END
7189  , size_t, size_t
7190 #endif
7191 );
7192 #ifdef LAPACK_FORTRAN_STRLEN_END
7193  #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__, 1, 1)
7194 #else
7195  #define LAPACK_zhegv_2stage(...) LAPACK_zhegv_2stage_base(__VA_ARGS__)
7196 #endif
7197 
7198 #define LAPACK_chegvd_base LAPACK_GLOBAL(chegvd,CHEGVD)
7199 void LAPACK_chegvd_base(
7200  lapack_int const* itype, char const* jobz, char const* uplo,
7201  lapack_int const* n,
7202  lapack_complex_float* A, lapack_int const* lda,
7203  lapack_complex_float* B, lapack_int const* ldb,
7204  float* W,
7205  lapack_complex_float* work, lapack_int const* lwork,
7206  float* rwork, lapack_int const* lrwork,
7207  lapack_int* iwork, lapack_int const* liwork,
7208  lapack_int* info
7209 #ifdef LAPACK_FORTRAN_STRLEN_END
7210  , size_t, size_t
7211 #endif
7212 );
7213 #ifdef LAPACK_FORTRAN_STRLEN_END
7214  #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__, 1, 1)
7215 #else
7216  #define LAPACK_chegvd(...) LAPACK_chegvd_base(__VA_ARGS__)
7217 #endif
7218 
7219 #define LAPACK_zhegvd_base LAPACK_GLOBAL(zhegvd,ZHEGVD)
7220 void LAPACK_zhegvd_base(
7221  lapack_int const* itype, char const* jobz, char const* uplo,
7222  lapack_int const* n,
7223  lapack_complex_double* A, lapack_int const* lda,
7224  lapack_complex_double* B, lapack_int const* ldb,
7225  double* W,
7226  lapack_complex_double* work, lapack_int const* lwork,
7227  double* rwork, lapack_int const* lrwork,
7228  lapack_int* iwork, lapack_int const* liwork,
7229  lapack_int* info
7230 #ifdef LAPACK_FORTRAN_STRLEN_END
7231  , size_t, size_t
7232 #endif
7233 );
7234 #ifdef LAPACK_FORTRAN_STRLEN_END
7235  #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__, 1, 1)
7236 #else
7237  #define LAPACK_zhegvd(...) LAPACK_zhegvd_base(__VA_ARGS__)
7238 #endif
7239 
7240 #define LAPACK_chegvx_base LAPACK_GLOBAL(chegvx,CHEGVX)
7241 void LAPACK_chegvx_base(
7242  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
7243  lapack_int const* n,
7244  lapack_complex_float* A, lapack_int const* lda,
7245  lapack_complex_float* B, lapack_int const* ldb,
7246  float const* vl,
7247  float const* vu, lapack_int const* il, lapack_int const* iu,
7248  float const* abstol, lapack_int* m,
7249  float* W,
7250  lapack_complex_float* Z, lapack_int const* ldz,
7251  lapack_complex_float* work, lapack_int const* lwork,
7252  float* rwork,
7253  lapack_int* iwork, lapack_int* IFAIL,
7254  lapack_int* info
7255 #ifdef LAPACK_FORTRAN_STRLEN_END
7256  , size_t, size_t, size_t
7257 #endif
7258 );
7259 #ifdef LAPACK_FORTRAN_STRLEN_END
7260  #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__, 1, 1, 1)
7261 #else
7262  #define LAPACK_chegvx(...) LAPACK_chegvx_base(__VA_ARGS__)
7263 #endif
7264 
7265 #define LAPACK_zhegvx_base LAPACK_GLOBAL(zhegvx,ZHEGVX)
7266 void LAPACK_zhegvx_base(
7267  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
7268  lapack_int const* n,
7269  lapack_complex_double* A, lapack_int const* lda,
7270  lapack_complex_double* B, lapack_int const* ldb,
7271  double const* vl,
7272  double const* vu, lapack_int const* il, lapack_int const* iu,
7273  double const* abstol, lapack_int* m,
7274  double* W,
7275  lapack_complex_double* Z, lapack_int const* ldz,
7276  lapack_complex_double* work, lapack_int const* lwork,
7277  double* rwork,
7278  lapack_int* iwork, lapack_int* IFAIL,
7279  lapack_int* info
7280 #ifdef LAPACK_FORTRAN_STRLEN_END
7281  , size_t, size_t, size_t
7282 #endif
7283 );
7284 #ifdef LAPACK_FORTRAN_STRLEN_END
7285  #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__, 1, 1, 1)
7286 #else
7287  #define LAPACK_zhegvx(...) LAPACK_zhegvx_base(__VA_ARGS__)
7288 #endif
7289 
7290 #define LAPACK_cherfs_base LAPACK_GLOBAL(cherfs,CHERFS)
7291 void LAPACK_cherfs_base(
7292  char const* uplo,
7293  lapack_int const* n, lapack_int const* nrhs,
7294  lapack_complex_float const* A, lapack_int const* lda,
7295  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7296  lapack_complex_float const* B, lapack_int const* ldb,
7297  lapack_complex_float* X, lapack_int const* ldx,
7298  float* ferr,
7299  float* berr,
7300  lapack_complex_float* work,
7301  float* rwork,
7302  lapack_int* info
7303 #ifdef LAPACK_FORTRAN_STRLEN_END
7304  , size_t
7305 #endif
7306 );
7307 #ifdef LAPACK_FORTRAN_STRLEN_END
7308  #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__, 1)
7309 #else
7310  #define LAPACK_cherfs(...) LAPACK_cherfs_base(__VA_ARGS__)
7311 #endif
7312 
7313 #define LAPACK_zherfs_base LAPACK_GLOBAL(zherfs,ZHERFS)
7314 void LAPACK_zherfs_base(
7315  char const* uplo,
7316  lapack_int const* n, lapack_int const* nrhs,
7317  lapack_complex_double const* A, lapack_int const* lda,
7318  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7319  lapack_complex_double const* B, lapack_int const* ldb,
7320  lapack_complex_double* X, lapack_int const* ldx,
7321  double* ferr,
7322  double* berr,
7323  lapack_complex_double* work,
7324  double* rwork,
7325  lapack_int* info
7326 #ifdef LAPACK_FORTRAN_STRLEN_END
7327  , size_t
7328 #endif
7329 );
7330 #ifdef LAPACK_FORTRAN_STRLEN_END
7331  #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__, 1)
7332 #else
7333  #define LAPACK_zherfs(...) LAPACK_zherfs_base(__VA_ARGS__)
7334 #endif
7335 
7336 #define LAPACK_cherfsx_base LAPACK_GLOBAL(cherfsx,CHERFSX)
7337 void LAPACK_cherfsx_base(
7338  char const* uplo, char const* equed,
7339  lapack_int const* n, lapack_int const* nrhs,
7340  lapack_complex_float const* A, lapack_int const* lda,
7341  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7342  const float* S,
7343  lapack_complex_float const* B, lapack_int const* ldb,
7344  lapack_complex_float* X, lapack_int const* ldx,
7345  float* rcond,
7346  float* berr, lapack_int const* n_err_bnds,
7347  float* err_bnds_norm,
7348  float* err_bnds_comp, lapack_int const* nparams,
7349  float* params,
7350  lapack_complex_float* work,
7351  float* rwork,
7352  lapack_int* info
7353 #ifdef LAPACK_FORTRAN_STRLEN_END
7354  , size_t, size_t
7355 #endif
7356 );
7357 #ifdef LAPACK_FORTRAN_STRLEN_END
7358  #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__, 1, 1)
7359 #else
7360  #define LAPACK_cherfsx(...) LAPACK_cherfsx_base(__VA_ARGS__)
7361 #endif
7362 
7363 #define LAPACK_zherfsx_base LAPACK_GLOBAL(zherfsx,ZHERFSX)
7364 void LAPACK_zherfsx_base(
7365  char const* uplo, char const* equed,
7366  lapack_int const* n, lapack_int const* nrhs,
7367  lapack_complex_double const* A, lapack_int const* lda,
7368  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
7369  const double* S,
7370  lapack_complex_double const* B, lapack_int const* ldb,
7371  lapack_complex_double* X, lapack_int const* ldx,
7372  double* rcond,
7373  double* berr, lapack_int const* n_err_bnds,
7374  double* err_bnds_norm,
7375  double* err_bnds_comp, lapack_int const* nparams,
7376  double* params,
7377  lapack_complex_double* work,
7378  double* rwork,
7379  lapack_int* info
7380 #ifdef LAPACK_FORTRAN_STRLEN_END
7381  , size_t, size_t
7382 #endif
7383 );
7384 #ifdef LAPACK_FORTRAN_STRLEN_END
7385  #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__, 1, 1)
7386 #else
7387  #define LAPACK_zherfsx(...) LAPACK_zherfsx_base(__VA_ARGS__)
7388 #endif
7389 
7390 #define LAPACK_chesv_base LAPACK_GLOBAL(chesv,CHESV)
7391 void LAPACK_chesv_base(
7392  char const* uplo,
7393  lapack_int const* n, lapack_int const* nrhs,
7394  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7395  lapack_complex_float* B, lapack_int const* ldb,
7396  lapack_complex_float* work, lapack_int const* lwork,
7397  lapack_int* info
7398 #ifdef LAPACK_FORTRAN_STRLEN_END
7399  , size_t
7400 #endif
7401 );
7402 #ifdef LAPACK_FORTRAN_STRLEN_END
7403  #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__, 1)
7404 #else
7405  #define LAPACK_chesv(...) LAPACK_chesv_base(__VA_ARGS__)
7406 #endif
7407 
7408 #define LAPACK_zhesv_base LAPACK_GLOBAL(zhesv,ZHESV)
7409 void LAPACK_zhesv_base(
7410  char const* uplo,
7411  lapack_int const* n, lapack_int const* nrhs,
7412  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7413  lapack_complex_double* B, lapack_int const* ldb,
7414  lapack_complex_double* work, lapack_int const* lwork,
7415  lapack_int* info
7416 #ifdef LAPACK_FORTRAN_STRLEN_END
7417  , size_t
7418 #endif
7419 );
7420 #ifdef LAPACK_FORTRAN_STRLEN_END
7421  #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__, 1)
7422 #else
7423  #define LAPACK_zhesv(...) LAPACK_zhesv_base(__VA_ARGS__)
7424 #endif
7425 
7426 #define LAPACK_chesv_aa_base LAPACK_GLOBAL(chesv_aa,CHESV_AA)
7427 void LAPACK_chesv_aa_base(
7428  char const* uplo,
7429  lapack_int const* n, lapack_int const* nrhs,
7430  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7431  lapack_complex_float* B, lapack_int const* ldb,
7432  lapack_complex_float* work, lapack_int const* lwork,
7433  lapack_int* info
7434 #ifdef LAPACK_FORTRAN_STRLEN_END
7435  , size_t
7436 #endif
7437 );
7438 #ifdef LAPACK_FORTRAN_STRLEN_END
7439  #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__, 1)
7440 #else
7441  #define LAPACK_chesv_aa(...) LAPACK_chesv_aa_base(__VA_ARGS__)
7442 #endif
7443 
7444 #define LAPACK_zhesv_aa_base LAPACK_GLOBAL(zhesv_aa,ZHESV_AA)
7445 void LAPACK_zhesv_aa_base(
7446  char const* uplo,
7447  lapack_int const* n, lapack_int const* nrhs,
7448  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7449  lapack_complex_double* B, lapack_int const* ldb,
7450  lapack_complex_double* work, lapack_int const* lwork,
7451  lapack_int* info
7452 #ifdef LAPACK_FORTRAN_STRLEN_END
7453  , size_t
7454 #endif
7455 );
7456 #ifdef LAPACK_FORTRAN_STRLEN_END
7457  #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__, 1)
7458 #else
7459  #define LAPACK_zhesv_aa(...) LAPACK_zhesv_aa_base(__VA_ARGS__)
7460 #endif
7461 
7462 #define LAPACK_chesv_aa_2stage_base LAPACK_GLOBAL(chesv_aa_2stage,CHESV_AA_2STAGE)
7463 void LAPACK_chesv_aa_2stage_base(
7464  char const* uplo,
7465  lapack_int const* n, lapack_int const* nrhs,
7466  lapack_complex_float* A, lapack_int const* lda,
7467  lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7468  lapack_complex_float* B, lapack_int const* ldb,
7469  lapack_complex_float* work, lapack_int const* lwork,
7470  lapack_int* info
7471 #ifdef LAPACK_FORTRAN_STRLEN_END
7472  , size_t
7473 #endif
7474 );
7475 #ifdef LAPACK_FORTRAN_STRLEN_END
7476  #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__, 1)
7477 #else
7478  #define LAPACK_chesv_aa_2stage(...) LAPACK_chesv_aa_2stage_base(__VA_ARGS__)
7479 #endif
7480 
7481 #define LAPACK_zhesv_aa_2stage_base LAPACK_GLOBAL(zhesv_aa_2stage,ZHESV_AA_2STAGE)
7482 void LAPACK_zhesv_aa_2stage_base(
7483  char const* uplo,
7484  lapack_int const* n, lapack_int const* nrhs,
7485  lapack_complex_double* A, lapack_int const* lda,
7486  lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7487  lapack_complex_double* B, lapack_int const* ldb,
7488  lapack_complex_double* work, lapack_int const* lwork,
7489  lapack_int* info
7490 #ifdef LAPACK_FORTRAN_STRLEN_END
7491  , size_t
7492 #endif
7493 );
7494 #ifdef LAPACK_FORTRAN_STRLEN_END
7495  #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__, 1)
7496 #else
7497  #define LAPACK_zhesv_aa_2stage(...) LAPACK_zhesv_aa_2stage_base(__VA_ARGS__)
7498 #endif
7499 
7500 #define LAPACK_chesv_rk_base LAPACK_GLOBAL(chesv_rk,CHESV_RK)
7501 void LAPACK_chesv_rk_base(
7502  char const* uplo,
7503  lapack_int const* n, lapack_int const* nrhs,
7504  lapack_complex_float* A, lapack_int const* lda,
7505  lapack_complex_float* E, lapack_int* ipiv,
7506  lapack_complex_float* B, lapack_int const* ldb,
7507  lapack_complex_float* work, lapack_int const* lwork,
7508  lapack_int* info
7509 #ifdef LAPACK_FORTRAN_STRLEN_END
7510  , size_t
7511 #endif
7512 );
7513 #ifdef LAPACK_FORTRAN_STRLEN_END
7514  #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__, 1)
7515 #else
7516  #define LAPACK_chesv_rk(...) LAPACK_chesv_rk_base(__VA_ARGS__)
7517 #endif
7518 
7519 #define LAPACK_zhesv_rk_base LAPACK_GLOBAL(zhesv_rk,ZHESV_RK)
7520 void LAPACK_zhesv_rk_base(
7521  char const* uplo,
7522  lapack_int const* n, lapack_int const* nrhs,
7523  lapack_complex_double* A, lapack_int const* lda,
7524  lapack_complex_double* E, lapack_int* ipiv,
7525  lapack_complex_double* B, lapack_int const* ldb,
7526  lapack_complex_double* work, lapack_int const* lwork,
7527  lapack_int* info
7528 #ifdef LAPACK_FORTRAN_STRLEN_END
7529  , size_t
7530 #endif
7531 );
7532 #ifdef LAPACK_FORTRAN_STRLEN_END
7533  #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__, 1)
7534 #else
7535  #define LAPACK_zhesv_rk(...) LAPACK_zhesv_rk_base(__VA_ARGS__)
7536 #endif
7537 
7538 #define LAPACK_chesv_rook_base LAPACK_GLOBAL(chesv_rook,CHESV_ROOK)
7539 void LAPACK_chesv_rook_base(
7540  char const* uplo,
7541  lapack_int const* n, lapack_int const* nrhs,
7542  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7543  lapack_complex_float* B, lapack_int const* ldb,
7544  lapack_complex_float* work, lapack_int const* lwork,
7545  lapack_int* info
7546 #ifdef LAPACK_FORTRAN_STRLEN_END
7547  , size_t
7548 #endif
7549 );
7550 #ifdef LAPACK_FORTRAN_STRLEN_END
7551  #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__, 1)
7552 #else
7553  #define LAPACK_chesv_rook(...) LAPACK_chesv_rook_base(__VA_ARGS__)
7554 #endif
7555 
7556 #define LAPACK_zhesv_rook_base LAPACK_GLOBAL(zhesv_rook,ZHESV_ROOK)
7557 void LAPACK_zhesv_rook_base(
7558  char const* uplo,
7559  lapack_int const* n, lapack_int const* nrhs,
7560  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7561  lapack_complex_double* B, lapack_int const* ldb,
7562  lapack_complex_double* work, lapack_int const* lwork,
7563  lapack_int* info
7564 #ifdef LAPACK_FORTRAN_STRLEN_END
7565  , size_t
7566 #endif
7567 );
7568 #ifdef LAPACK_FORTRAN_STRLEN_END
7569  #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__, 1)
7570 #else
7571  #define LAPACK_zhesv_rook(...) LAPACK_zhesv_rook_base(__VA_ARGS__)
7572 #endif
7573 
7574 #define LAPACK_chesvx_base LAPACK_GLOBAL(chesvx,CHESVX)
7575 void LAPACK_chesvx_base(
7576  char const* fact, char const* uplo,
7577  lapack_int const* n, lapack_int const* nrhs,
7578  lapack_complex_float const* A, lapack_int const* lda,
7579  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv,
7580  lapack_complex_float const* B, lapack_int const* ldb,
7581  lapack_complex_float* X, lapack_int const* ldx,
7582  float* rcond,
7583  float* ferr,
7584  float* berr,
7585  lapack_complex_float* work, lapack_int const* lwork,
7586  float* rwork,
7587  lapack_int* info
7588 #ifdef LAPACK_FORTRAN_STRLEN_END
7589  , size_t, size_t
7590 #endif
7591 );
7592 #ifdef LAPACK_FORTRAN_STRLEN_END
7593  #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__, 1, 1)
7594 #else
7595  #define LAPACK_chesvx(...) LAPACK_chesvx_base(__VA_ARGS__)
7596 #endif
7597 
7598 #define LAPACK_zhesvx_base LAPACK_GLOBAL(zhesvx,ZHESVX)
7599 void LAPACK_zhesvx_base(
7600  char const* fact, char const* uplo,
7601  lapack_int const* n, lapack_int const* nrhs,
7602  lapack_complex_double const* A, lapack_int const* lda,
7603  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv,
7604  lapack_complex_double const* B, lapack_int const* ldb,
7605  lapack_complex_double* X, lapack_int const* ldx,
7606  double* rcond,
7607  double* ferr,
7608  double* berr,
7609  lapack_complex_double* work, lapack_int const* lwork,
7610  double* rwork,
7611  lapack_int* info
7612 #ifdef LAPACK_FORTRAN_STRLEN_END
7613  , size_t, size_t
7614 #endif
7615 );
7616 #ifdef LAPACK_FORTRAN_STRLEN_END
7617  #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__, 1, 1)
7618 #else
7619  #define LAPACK_zhesvx(...) LAPACK_zhesvx_base(__VA_ARGS__)
7620 #endif
7621 
7622 #define LAPACK_chesvxx_base LAPACK_GLOBAL(chesvxx,CHESVXX)
7623 void LAPACK_chesvxx_base(
7624  char const* fact, char const* uplo,
7625  lapack_int const* n, lapack_int const* nrhs,
7626  lapack_complex_float* A, lapack_int const* lda,
7627  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
7628  float* S,
7629  lapack_complex_float* B,
7630  lapack_int const* ldb,
7631  lapack_complex_float* X, lapack_int const* ldx,
7632  float* rcond,
7633  float* rpvgrw,
7634  float* berr, lapack_int const* n_err_bnds,
7635  float* err_bnds_norm,
7636  float* err_bnds_comp, lapack_int const* nparams,
7637  float* params,
7638  lapack_complex_float* work,
7639  float* rwork,
7640  lapack_int* info
7641 #ifdef LAPACK_FORTRAN_STRLEN_END
7642  , size_t, size_t, size_t
7643 #endif
7644 );
7645 #ifdef LAPACK_FORTRAN_STRLEN_END
7646  #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__, 1, 1, 1)
7647 #else
7648  #define LAPACK_chesvxx(...) LAPACK_chesvxx_base(__VA_ARGS__)
7649 #endif
7650 
7651 #define LAPACK_zhesvxx_base LAPACK_GLOBAL(zhesvxx,ZHESVXX)
7652 void LAPACK_zhesvxx_base(
7653  char const* fact, char const* uplo,
7654  lapack_int const* n, lapack_int const* nrhs,
7655  lapack_complex_double* A, lapack_int const* lda,
7656  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
7657  double* S,
7658  lapack_complex_double* B,
7659  lapack_int const* ldb,
7660  lapack_complex_double* X, lapack_int const* ldx,
7661  double* rcond,
7662  double* rpvgrw,
7663  double* berr, lapack_int const* n_err_bnds,
7664  double* err_bnds_norm,
7665  double* err_bnds_comp, lapack_int const* nparams,
7666  double* params,
7667  lapack_complex_double* work,
7668  double* rwork,
7669  lapack_int* info
7670 #ifdef LAPACK_FORTRAN_STRLEN_END
7671  , size_t, size_t, size_t
7672 #endif
7673 );
7674 #ifdef LAPACK_FORTRAN_STRLEN_END
7675  #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__, 1, 1, 1)
7676 #else
7677  #define LAPACK_zhesvxx(...) LAPACK_zhesvxx_base(__VA_ARGS__)
7678 #endif
7679 
7680 #define LAPACK_cheswapr_base LAPACK_GLOBAL(cheswapr,CHESWAPR)
7681 void LAPACK_cheswapr_base(
7682  char const* uplo,
7683  lapack_int const* n,
7684  lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
7685 #ifdef LAPACK_FORTRAN_STRLEN_END
7686  , size_t
7687 #endif
7688 );
7689 #ifdef LAPACK_FORTRAN_STRLEN_END
7690  #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__, 1)
7691 #else
7692  #define LAPACK_cheswapr(...) LAPACK_cheswapr_base(__VA_ARGS__)
7693 #endif
7694 
7695 #define LAPACK_zheswapr_base LAPACK_GLOBAL(zheswapr,ZHESWAPR)
7696 void LAPACK_zheswapr_base(
7697  char const* uplo,
7698  lapack_int const* n,
7699  lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
7700 #ifdef LAPACK_FORTRAN_STRLEN_END
7701  , size_t
7702 #endif
7703 );
7704 #ifdef LAPACK_FORTRAN_STRLEN_END
7705  #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__, 1)
7706 #else
7707  #define LAPACK_zheswapr(...) LAPACK_zheswapr_base(__VA_ARGS__)
7708 #endif
7709 
7710 #define LAPACK_chetrd_base LAPACK_GLOBAL(chetrd,CHETRD)
7711 void LAPACK_chetrd_base(
7712  char const* uplo,
7713  lapack_int const* n,
7714  lapack_complex_float* A, lapack_int const* lda,
7715  float* D,
7716  float* E,
7717  lapack_complex_float* tau,
7718  lapack_complex_float* work, lapack_int const* lwork,
7719  lapack_int* info
7720 #ifdef LAPACK_FORTRAN_STRLEN_END
7721  , size_t
7722 #endif
7723 );
7724 #ifdef LAPACK_FORTRAN_STRLEN_END
7725  #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__, 1)
7726 #else
7727  #define LAPACK_chetrd(...) LAPACK_chetrd_base(__VA_ARGS__)
7728 #endif
7729 
7730 #define LAPACK_zhetrd_base LAPACK_GLOBAL(zhetrd,ZHETRD)
7731 void LAPACK_zhetrd_base(
7732  char const* uplo,
7733  lapack_int const* n,
7734  lapack_complex_double* A, lapack_int const* lda,
7735  double* D,
7736  double* E,
7737  lapack_complex_double* tau,
7738  lapack_complex_double* work, lapack_int const* lwork,
7739  lapack_int* info
7740 #ifdef LAPACK_FORTRAN_STRLEN_END
7741  , size_t
7742 #endif
7743 );
7744 #ifdef LAPACK_FORTRAN_STRLEN_END
7745  #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__, 1)
7746 #else
7747  #define LAPACK_zhetrd(...) LAPACK_zhetrd_base(__VA_ARGS__)
7748 #endif
7749 
7750 #define LAPACK_chetrd_2stage_base LAPACK_GLOBAL(chetrd_2stage,CHETRD_2STAGE)
7751 void LAPACK_chetrd_2stage_base(
7752  char const* vect, char const* uplo,
7753  lapack_int const* n,
7754  lapack_complex_float* A, lapack_int const* lda,
7755  float* D,
7756  float* E,
7757  lapack_complex_float* tau,
7758  lapack_complex_float* HOUS2, lapack_int const* lhous2,
7759  lapack_complex_float* work, lapack_int const* lwork,
7760  lapack_int* info
7761 #ifdef LAPACK_FORTRAN_STRLEN_END
7762  , size_t, size_t
7763 #endif
7764 );
7765 #ifdef LAPACK_FORTRAN_STRLEN_END
7766  #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__, 1, 1)
7767 #else
7768  #define LAPACK_chetrd_2stage(...) LAPACK_chetrd_2stage_base(__VA_ARGS__)
7769 #endif
7770 
7771 #define LAPACK_zhetrd_2stage_base LAPACK_GLOBAL(zhetrd_2stage,ZHETRD_2STAGE)
7772 void LAPACK_zhetrd_2stage_base(
7773  char const* vect, char const* uplo,
7774  lapack_int const* n,
7775  lapack_complex_double* A, lapack_int const* lda,
7776  double* D,
7777  double* E,
7778  lapack_complex_double* tau,
7779  lapack_complex_double* HOUS2, lapack_int const* lhous2,
7780  lapack_complex_double* work, lapack_int const* lwork,
7781  lapack_int* info
7782 #ifdef LAPACK_FORTRAN_STRLEN_END
7783  , size_t, size_t
7784 #endif
7785 );
7786 #ifdef LAPACK_FORTRAN_STRLEN_END
7787  #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__, 1, 1)
7788 #else
7789  #define LAPACK_zhetrd_2stage(...) LAPACK_zhetrd_2stage_base(__VA_ARGS__)
7790 #endif
7791 
7792 #define LAPACK_chetrf_base LAPACK_GLOBAL(chetrf,CHETRF)
7793 void LAPACK_chetrf_base(
7794  char const* uplo,
7795  lapack_int const* n,
7796  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7797  lapack_complex_float* work, lapack_int const* lwork,
7798  lapack_int* info
7799 #ifdef LAPACK_FORTRAN_STRLEN_END
7800  , size_t
7801 #endif
7802 );
7803 #ifdef LAPACK_FORTRAN_STRLEN_END
7804  #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__, 1)
7805 #else
7806  #define LAPACK_chetrf(...) LAPACK_chetrf_base(__VA_ARGS__)
7807 #endif
7808 
7809 #define LAPACK_zhetrf_base LAPACK_GLOBAL(zhetrf,ZHETRF)
7810 void LAPACK_zhetrf_base(
7811  char const* uplo,
7812  lapack_int const* n,
7813  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7814  lapack_complex_double* work, lapack_int const* lwork,
7815  lapack_int* info
7816 #ifdef LAPACK_FORTRAN_STRLEN_END
7817  , size_t
7818 #endif
7819 );
7820 #ifdef LAPACK_FORTRAN_STRLEN_END
7821  #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__, 1)
7822 #else
7823  #define LAPACK_zhetrf(...) LAPACK_zhetrf_base(__VA_ARGS__)
7824 #endif
7825 
7826 #define LAPACK_chetrf_aa_base LAPACK_GLOBAL(chetrf_aa,CHETRF_AA)
7827 void LAPACK_chetrf_aa_base(
7828  char const* uplo,
7829  lapack_int const* n,
7830  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7831  lapack_complex_float* work, lapack_int const* lwork,
7832  lapack_int* info
7833 #ifdef LAPACK_FORTRAN_STRLEN_END
7834  , size_t
7835 #endif
7836 );
7837 #ifdef LAPACK_FORTRAN_STRLEN_END
7838  #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__, 1)
7839 #else
7840  #define LAPACK_chetrf_aa(...) LAPACK_chetrf_aa_base(__VA_ARGS__)
7841 #endif
7842 
7843 #define LAPACK_zhetrf_aa_base LAPACK_GLOBAL(zhetrf_aa,ZHETRF_AA)
7844 void LAPACK_zhetrf_aa_base(
7845  char const* uplo,
7846  lapack_int const* n,
7847  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7848  lapack_complex_double* work, lapack_int const* lwork,
7849  lapack_int* info
7850 #ifdef LAPACK_FORTRAN_STRLEN_END
7851  , size_t
7852 #endif
7853 );
7854 #ifdef LAPACK_FORTRAN_STRLEN_END
7855  #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__, 1)
7856 #else
7857  #define LAPACK_zhetrf_aa(...) LAPACK_zhetrf_aa_base(__VA_ARGS__)
7858 #endif
7859 
7860 #define LAPACK_chetrf_aa_2stage_base LAPACK_GLOBAL(chetrf_aa_2stage,CHETRF_AA_2STAGE)
7861 void LAPACK_chetrf_aa_2stage_base(
7862  char const* uplo,
7863  lapack_int const* n,
7864  lapack_complex_float* A, lapack_int const* lda,
7865  lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7866  lapack_complex_float* work, lapack_int const* lwork,
7867  lapack_int* info
7868 #ifdef LAPACK_FORTRAN_STRLEN_END
7869  , size_t
7870 #endif
7871 );
7872 #ifdef LAPACK_FORTRAN_STRLEN_END
7873  #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__, 1)
7874 #else
7875  #define LAPACK_chetrf_aa_2stage(...) LAPACK_chetrf_aa_2stage_base(__VA_ARGS__)
7876 #endif
7877 
7878 #define LAPACK_zhetrf_aa_2stage_base LAPACK_GLOBAL(zhetrf_aa_2stage,ZHETRF_AA_2STAGE)
7879 void LAPACK_zhetrf_aa_2stage_base(
7880  char const* uplo,
7881  lapack_int const* n,
7882  lapack_complex_double* A, lapack_int const* lda,
7883  lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
7884  lapack_complex_double* work, lapack_int const* lwork,
7885  lapack_int* info
7886 #ifdef LAPACK_FORTRAN_STRLEN_END
7887  , size_t
7888 #endif
7889 );
7890 #ifdef LAPACK_FORTRAN_STRLEN_END
7891  #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__, 1)
7892 #else
7893  #define LAPACK_zhetrf_aa_2stage(...) LAPACK_zhetrf_aa_2stage_base(__VA_ARGS__)
7894 #endif
7895 
7896 #define LAPACK_chetrf_rk_base LAPACK_GLOBAL(chetrf_rk,CHETRF_RK)
7897 void LAPACK_chetrf_rk_base(
7898  char const* uplo,
7899  lapack_int const* n,
7900  lapack_complex_float* A, lapack_int const* lda,
7901  lapack_complex_float* E, lapack_int* ipiv,
7902  lapack_complex_float* work, lapack_int const* lwork,
7903  lapack_int* info
7904 #ifdef LAPACK_FORTRAN_STRLEN_END
7905  , size_t
7906 #endif
7907 );
7908 #ifdef LAPACK_FORTRAN_STRLEN_END
7909  #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__, 1)
7910 #else
7911  #define LAPACK_chetrf_rk(...) LAPACK_chetrf_rk_base(__VA_ARGS__)
7912 #endif
7913 
7914 #define LAPACK_zhetrf_rk_base LAPACK_GLOBAL(zhetrf_rk,ZHETRF_RK)
7915 void LAPACK_zhetrf_rk_base(
7916  char const* uplo,
7917  lapack_int const* n,
7918  lapack_complex_double* A, lapack_int const* lda,
7919  lapack_complex_double* E, lapack_int* ipiv,
7920  lapack_complex_double* work, lapack_int const* lwork,
7921  lapack_int* info
7922 #ifdef LAPACK_FORTRAN_STRLEN_END
7923  , size_t
7924 #endif
7925 );
7926 #ifdef LAPACK_FORTRAN_STRLEN_END
7927  #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__, 1)
7928 #else
7929  #define LAPACK_zhetrf_rk(...) LAPACK_zhetrf_rk_base(__VA_ARGS__)
7930 #endif
7931 
7932 #define LAPACK_chetrf_rook_base LAPACK_GLOBAL(chetrf_rook,CHETRF_ROOK)
7933 void LAPACK_chetrf_rook_base(
7934  char const* uplo,
7935  lapack_int const* n,
7936  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
7937  lapack_complex_float* work, lapack_int const* lwork,
7938  lapack_int* info
7939 #ifdef LAPACK_FORTRAN_STRLEN_END
7940  , size_t
7941 #endif
7942 );
7943 #ifdef LAPACK_FORTRAN_STRLEN_END
7944  #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__, 1)
7945 #else
7946  #define LAPACK_chetrf_rook(...) LAPACK_chetrf_rook_base(__VA_ARGS__)
7947 #endif
7948 
7949 #define LAPACK_zhetrf_rook_base LAPACK_GLOBAL(zhetrf_rook,ZHETRF_ROOK)
7950 void LAPACK_zhetrf_rook_base(
7951  char const* uplo,
7952  lapack_int const* n,
7953  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
7954  lapack_complex_double* work, lapack_int const* lwork,
7955  lapack_int* info
7956 #ifdef LAPACK_FORTRAN_STRLEN_END
7957  , size_t
7958 #endif
7959 );
7960 #ifdef LAPACK_FORTRAN_STRLEN_END
7961  #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__, 1)
7962 #else
7963  #define LAPACK_zhetrf_rook(...) LAPACK_zhetrf_rook_base(__VA_ARGS__)
7964 #endif
7965 
7966 #define LAPACK_chetri_base LAPACK_GLOBAL(chetri,CHETRI)
7967 void LAPACK_chetri_base(
7968  char const* uplo,
7969  lapack_int const* n,
7970  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
7971  lapack_complex_float* work,
7972  lapack_int* info
7973 #ifdef LAPACK_FORTRAN_STRLEN_END
7974  , size_t
7975 #endif
7976 );
7977 #ifdef LAPACK_FORTRAN_STRLEN_END
7978  #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__, 1)
7979 #else
7980  #define LAPACK_chetri(...) LAPACK_chetri_base(__VA_ARGS__)
7981 #endif
7982 
7983 #define LAPACK_zhetri_base LAPACK_GLOBAL(zhetri,ZHETRI)
7984 void LAPACK_zhetri_base(
7985  char const* uplo,
7986  lapack_int const* n,
7987  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
7988  lapack_complex_double* work,
7989  lapack_int* info
7990 #ifdef LAPACK_FORTRAN_STRLEN_END
7991  , size_t
7992 #endif
7993 );
7994 #ifdef LAPACK_FORTRAN_STRLEN_END
7995  #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__, 1)
7996 #else
7997  #define LAPACK_zhetri(...) LAPACK_zhetri_base(__VA_ARGS__)
7998 #endif
7999 
8000 #define LAPACK_chetri2_base LAPACK_GLOBAL(chetri2,CHETRI2)
8001 void LAPACK_chetri2_base(
8002  char const* uplo,
8003  lapack_int const* n,
8004  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
8005  lapack_complex_float* work, lapack_int const* lwork,
8006  lapack_int* info
8007 #ifdef LAPACK_FORTRAN_STRLEN_END
8008  , size_t
8009 #endif
8010 );
8011 #ifdef LAPACK_FORTRAN_STRLEN_END
8012  #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__, 1)
8013 #else
8014  #define LAPACK_chetri2(...) LAPACK_chetri2_base(__VA_ARGS__)
8015 #endif
8016 
8017 #define LAPACK_zhetri2_base LAPACK_GLOBAL(zhetri2,ZHETRI2)
8018 void LAPACK_zhetri2_base(
8019  char const* uplo,
8020  lapack_int const* n,
8021  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8022  lapack_complex_double* work, lapack_int const* lwork,
8023  lapack_int* info
8024 #ifdef LAPACK_FORTRAN_STRLEN_END
8025  , size_t
8026 #endif
8027 );
8028 #ifdef LAPACK_FORTRAN_STRLEN_END
8029  #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__, 1)
8030 #else
8031  #define LAPACK_zhetri2(...) LAPACK_zhetri2_base(__VA_ARGS__)
8032 #endif
8033 
8034 #define LAPACK_chetri2x_base LAPACK_GLOBAL(chetri2x,CHETRI2X)
8035 void LAPACK_chetri2x_base(
8036  char const* uplo,
8037  lapack_int const* n,
8038  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
8039  lapack_complex_float* work, lapack_int const* nb,
8040  lapack_int* info
8041 #ifdef LAPACK_FORTRAN_STRLEN_END
8042  , size_t
8043 #endif
8044 );
8045 #ifdef LAPACK_FORTRAN_STRLEN_END
8046  #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__, 1)
8047 #else
8048  #define LAPACK_chetri2x(...) LAPACK_chetri2x_base(__VA_ARGS__)
8049 #endif
8050 
8051 #define LAPACK_zhetri2x_base LAPACK_GLOBAL(zhetri2x,ZHETRI2X)
8052 void LAPACK_zhetri2x_base(
8053  char const* uplo,
8054  lapack_int const* n,
8055  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
8056  lapack_complex_double* work, lapack_int const* nb,
8057  lapack_int* info
8058 #ifdef LAPACK_FORTRAN_STRLEN_END
8059  , size_t
8060 #endif
8061 );
8062 #ifdef LAPACK_FORTRAN_STRLEN_END
8063  #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__, 1)
8064 #else
8065  #define LAPACK_zhetri2x(...) LAPACK_zhetri2x_base(__VA_ARGS__)
8066 #endif
8067 
8068 #define LAPACK_chetri_3_base LAPACK_GLOBAL(chetri_3,CHETRI_3)
8069 void LAPACK_chetri_3_base(
8070  char const* uplo,
8071  lapack_int const* n,
8072  lapack_complex_float* A, lapack_int const* lda,
8073  lapack_complex_float const* E, lapack_int const* ipiv,
8074  lapack_complex_float* work, lapack_int const* lwork,
8075  lapack_int* info
8076 #ifdef LAPACK_FORTRAN_STRLEN_END
8077  , size_t
8078 #endif
8079 );
8080 #ifdef LAPACK_FORTRAN_STRLEN_END
8081  #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__, 1)
8082 #else
8083  #define LAPACK_chetri_3(...) LAPACK_chetri_3_base(__VA_ARGS__)
8084 #endif
8085 
8086 #define LAPACK_zhetri_3_base LAPACK_GLOBAL(zhetri_3,ZHETRI_3)
8087 void LAPACK_zhetri_3_base(
8088  char const* uplo,
8089  lapack_int const* n,
8090  lapack_complex_double* A, lapack_int const* lda,
8091  lapack_complex_double const* E, lapack_int const* ipiv,
8092  lapack_complex_double* work, lapack_int const* lwork,
8093  lapack_int* info
8094 #ifdef LAPACK_FORTRAN_STRLEN_END
8095  , size_t
8096 #endif
8097 );
8098 #ifdef LAPACK_FORTRAN_STRLEN_END
8099  #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__, 1)
8100 #else
8101  #define LAPACK_zhetri_3(...) LAPACK_zhetri_3_base(__VA_ARGS__)
8102 #endif
8103 
8104 #define LAPACK_chetrs_base LAPACK_GLOBAL(chetrs,CHETRS)
8105 void LAPACK_chetrs_base(
8106  char const* uplo,
8107  lapack_int const* n, lapack_int const* nrhs,
8108  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8109  lapack_complex_float* B, lapack_int const* ldb,
8110  lapack_int* info
8111 #ifdef LAPACK_FORTRAN_STRLEN_END
8112  , size_t
8113 #endif
8114 );
8115 #ifdef LAPACK_FORTRAN_STRLEN_END
8116  #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__, 1)
8117 #else
8118  #define LAPACK_chetrs(...) LAPACK_chetrs_base(__VA_ARGS__)
8119 #endif
8120 
8121 #define LAPACK_zhetrs_base LAPACK_GLOBAL(zhetrs,ZHETRS)
8122 void LAPACK_zhetrs_base(
8123  char const* uplo,
8124  lapack_int const* n, lapack_int const* nrhs,
8125  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8126  lapack_complex_double* B, lapack_int const* ldb,
8127  lapack_int* info
8128 #ifdef LAPACK_FORTRAN_STRLEN_END
8129  , size_t
8130 #endif
8131 );
8132 #ifdef LAPACK_FORTRAN_STRLEN_END
8133  #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__, 1)
8134 #else
8135  #define LAPACK_zhetrs(...) LAPACK_zhetrs_base(__VA_ARGS__)
8136 #endif
8137 
8138 #define LAPACK_chetrs2_base LAPACK_GLOBAL(chetrs2,CHETRS2)
8139 void LAPACK_chetrs2_base(
8140  char const* uplo,
8141  lapack_int const* n, lapack_int const* nrhs,
8142  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8143  lapack_complex_float* B, lapack_int const* ldb,
8144  lapack_complex_float* work,
8145  lapack_int* info
8146 #ifdef LAPACK_FORTRAN_STRLEN_END
8147  , size_t
8148 #endif
8149 );
8150 #ifdef LAPACK_FORTRAN_STRLEN_END
8151  #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__, 1)
8152 #else
8153  #define LAPACK_chetrs2(...) LAPACK_chetrs2_base(__VA_ARGS__)
8154 #endif
8155 
8156 #define LAPACK_zhetrs2_base LAPACK_GLOBAL(zhetrs2,ZHETRS2)
8157 void LAPACK_zhetrs2_base(
8158  char const* uplo,
8159  lapack_int const* n, lapack_int const* nrhs,
8160  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8161  lapack_complex_double* B, lapack_int const* ldb,
8162  lapack_complex_double* work,
8163  lapack_int* info
8164 #ifdef LAPACK_FORTRAN_STRLEN_END
8165  , size_t
8166 #endif
8167 );
8168 #ifdef LAPACK_FORTRAN_STRLEN_END
8169  #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__, 1)
8170 #else
8171  #define LAPACK_zhetrs2(...) LAPACK_zhetrs2_base(__VA_ARGS__)
8172 #endif
8173 
8174 #define LAPACK_chetrs_3_base LAPACK_GLOBAL(chetrs_3,CHETRS_3)
8175 void LAPACK_chetrs_3_base(
8176  char const* uplo,
8177  lapack_int const* n, lapack_int const* nrhs,
8178  lapack_complex_float const* A, lapack_int const* lda,
8179  lapack_complex_float const* E, lapack_int const* ipiv,
8180  lapack_complex_float* B, lapack_int const* ldb,
8181  lapack_int* info
8182 #ifdef LAPACK_FORTRAN_STRLEN_END
8183  , size_t
8184 #endif
8185 );
8186 #ifdef LAPACK_FORTRAN_STRLEN_END
8187  #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__, 1)
8188 #else
8189  #define LAPACK_chetrs_3(...) LAPACK_chetrs_3_base(__VA_ARGS__)
8190 #endif
8191 
8192 #define LAPACK_zhetrs_3_base LAPACK_GLOBAL(zhetrs_3,ZHETRS_3)
8193 void LAPACK_zhetrs_3_base(
8194  char const* uplo,
8195  lapack_int const* n, lapack_int const* nrhs,
8196  lapack_complex_double const* A, lapack_int const* lda,
8197  lapack_complex_double const* E, lapack_int const* ipiv,
8198  lapack_complex_double* B, lapack_int const* ldb,
8199  lapack_int* info
8200 #ifdef LAPACK_FORTRAN_STRLEN_END
8201  , size_t
8202 #endif
8203 );
8204 #ifdef LAPACK_FORTRAN_STRLEN_END
8205  #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__, 1)
8206 #else
8207  #define LAPACK_zhetrs_3(...) LAPACK_zhetrs_3_base(__VA_ARGS__)
8208 #endif
8209 
8210 #define LAPACK_chetrs_aa_base LAPACK_GLOBAL(chetrs_aa,CHETRS_AA)
8211 void LAPACK_chetrs_aa_base(
8212  char const* uplo,
8213  lapack_int const* n, lapack_int const* nrhs,
8214  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8215  lapack_complex_float* B, lapack_int const* ldb,
8216  lapack_complex_float* work, lapack_int const* lwork,
8217  lapack_int* info
8218 #ifdef LAPACK_FORTRAN_STRLEN_END
8219  , size_t
8220 #endif
8221 );
8222 #ifdef LAPACK_FORTRAN_STRLEN_END
8223  #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__, 1)
8224 #else
8225  #define LAPACK_chetrs_aa(...) LAPACK_chetrs_aa_base(__VA_ARGS__)
8226 #endif
8227 
8228 #define LAPACK_zhetrs_aa_base LAPACK_GLOBAL(zhetrs_aa,ZHETRS_AA)
8229 void LAPACK_zhetrs_aa_base(
8230  char const* uplo,
8231  lapack_int const* n, lapack_int const* nrhs,
8232  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8233  lapack_complex_double* B, lapack_int const* ldb,
8234  lapack_complex_double* work, lapack_int const* lwork,
8235  lapack_int* info
8236 #ifdef LAPACK_FORTRAN_STRLEN_END
8237  , size_t
8238 #endif
8239 );
8240 #ifdef LAPACK_FORTRAN_STRLEN_END
8241  #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__, 1)
8242 #else
8243  #define LAPACK_zhetrs_aa(...) LAPACK_zhetrs_aa_base(__VA_ARGS__)
8244 #endif
8245 
8246 #define LAPACK_chetrs_aa_2stage_base LAPACK_GLOBAL(chetrs_aa_2stage,CHETRS_AA_2STAGE)
8247 void LAPACK_chetrs_aa_2stage_base(
8248  char const* uplo,
8249  lapack_int const* n, lapack_int const* nrhs,
8250  lapack_complex_float const* A, lapack_int const* lda,
8251  lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
8252  lapack_complex_float* B, lapack_int const* ldb,
8253  lapack_int* info
8254 #ifdef LAPACK_FORTRAN_STRLEN_END
8255  , size_t
8256 #endif
8257 );
8258 #ifdef LAPACK_FORTRAN_STRLEN_END
8259  #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__, 1)
8260 #else
8261  #define LAPACK_chetrs_aa_2stage(...) LAPACK_chetrs_aa_2stage_base(__VA_ARGS__)
8262 #endif
8263 
8264 #define LAPACK_zhetrs_aa_2stage_base LAPACK_GLOBAL(zhetrs_aa_2stage,ZHETRS_AA_2STAGE)
8265 void LAPACK_zhetrs_aa_2stage_base(
8266  char const* uplo,
8267  lapack_int const* n, lapack_int const* nrhs,
8268  lapack_complex_double const* A, lapack_int const* lda,
8269  lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
8270  lapack_complex_double* B, lapack_int const* ldb,
8271  lapack_int* info
8272 #ifdef LAPACK_FORTRAN_STRLEN_END
8273  , size_t
8274 #endif
8275 );
8276 #ifdef LAPACK_FORTRAN_STRLEN_END
8277  #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__, 1)
8278 #else
8279  #define LAPACK_zhetrs_aa_2stage(...) LAPACK_zhetrs_aa_2stage_base(__VA_ARGS__)
8280 #endif
8281 
8282 #define LAPACK_chetrs_rook_base LAPACK_GLOBAL(chetrs_rook,CHETRS_ROOK)
8283 void LAPACK_chetrs_rook_base(
8284  char const* uplo,
8285  lapack_int const* n, lapack_int const* nrhs,
8286  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
8287  lapack_complex_float* B, lapack_int const* ldb,
8288  lapack_int* info
8289 #ifdef LAPACK_FORTRAN_STRLEN_END
8290  , size_t
8291 #endif
8292 );
8293 #ifdef LAPACK_FORTRAN_STRLEN_END
8294  #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__, 1)
8295 #else
8296  #define LAPACK_chetrs_rook(...) LAPACK_chetrs_rook_base(__VA_ARGS__)
8297 #endif
8298 
8299 #define LAPACK_zhetrs_rook_base LAPACK_GLOBAL(zhetrs_rook,ZHETRS_ROOK)
8300 void LAPACK_zhetrs_rook_base(
8301  char const* uplo,
8302  lapack_int const* n, lapack_int const* nrhs,
8303  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
8304  lapack_complex_double* B, lapack_int const* ldb,
8305  lapack_int* info
8306 #ifdef LAPACK_FORTRAN_STRLEN_END
8307  , size_t
8308 #endif
8309 );
8310 #ifdef LAPACK_FORTRAN_STRLEN_END
8311  #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__, 1)
8312 #else
8313  #define LAPACK_zhetrs_rook(...) LAPACK_zhetrs_rook_base(__VA_ARGS__)
8314 #endif
8315 
8316 #define LAPACK_chfrk_base LAPACK_GLOBAL(chfrk,CHFRK)
8317 void LAPACK_chfrk_base(
8318  char const* transr, char const* uplo, char const* trans,
8319  lapack_int const* n, lapack_int const* k,
8320  float const* alpha,
8321  lapack_complex_float const* A, lapack_int const* lda,
8322  float const* beta,
8323  lapack_complex_float* C
8324 #ifdef LAPACK_FORTRAN_STRLEN_END
8325  , size_t, size_t, size_t
8326 #endif
8327 );
8328 #ifdef LAPACK_FORTRAN_STRLEN_END
8329  #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__, 1, 1, 1)
8330 #else
8331  #define LAPACK_chfrk(...) LAPACK_chfrk_base(__VA_ARGS__)
8332 #endif
8333 
8334 #define LAPACK_zhfrk_base LAPACK_GLOBAL(zhfrk,ZHFRK)
8335 void LAPACK_zhfrk_base(
8336  char const* transr, char const* uplo, char const* trans,
8337  lapack_int const* n, lapack_int const* k,
8338  double const* alpha,
8339  lapack_complex_double const* A, lapack_int const* lda,
8340  double const* beta,
8341  lapack_complex_double* C
8342 #ifdef LAPACK_FORTRAN_STRLEN_END
8343  , size_t, size_t, size_t
8344 #endif
8345 );
8346 #ifdef LAPACK_FORTRAN_STRLEN_END
8347  #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__, 1, 1, 1)
8348 #else
8349  #define LAPACK_zhfrk(...) LAPACK_zhfrk_base(__VA_ARGS__)
8350 #endif
8351 
8352 #define LAPACK_chgeqz_base LAPACK_GLOBAL(chgeqz,CHGEQZ)
8353 void LAPACK_chgeqz_base(
8354  char const* job, char const* compq, char const* compz,
8355  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8356  lapack_complex_float* H, lapack_int const* ldh,
8357  lapack_complex_float* T, lapack_int const* ldt,
8358  lapack_complex_float* alpha,
8359  lapack_complex_float* beta,
8360  lapack_complex_float* Q, lapack_int const* ldq,
8361  lapack_complex_float* Z, lapack_int const* ldz,
8362  lapack_complex_float* work, lapack_int const* lwork,
8363  float* rwork,
8364  lapack_int* info
8365 #ifdef LAPACK_FORTRAN_STRLEN_END
8366  , size_t, size_t, size_t
8367 #endif
8368 );
8369 #ifdef LAPACK_FORTRAN_STRLEN_END
8370  #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__, 1, 1, 1)
8371 #else
8372  #define LAPACK_chgeqz(...) LAPACK_chgeqz_base(__VA_ARGS__)
8373 #endif
8374 
8375 #define LAPACK_dhgeqz_base LAPACK_GLOBAL(dhgeqz,DHGEQZ)
8376 void LAPACK_dhgeqz_base(
8377  char const* job, char const* compq, char const* compz,
8378  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8379  double* H, lapack_int const* ldh,
8380  double* T, lapack_int const* ldt,
8381  double* alphar,
8382  double* alphai,
8383  double* beta,
8384  double* Q, lapack_int const* ldq,
8385  double* Z, lapack_int const* ldz,
8386  double* work, lapack_int const* lwork,
8387  lapack_int* info
8388 #ifdef LAPACK_FORTRAN_STRLEN_END
8389  , size_t, size_t, size_t
8390 #endif
8391 );
8392 #ifdef LAPACK_FORTRAN_STRLEN_END
8393  #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__, 1, 1, 1)
8394 #else
8395  #define LAPACK_dhgeqz(...) LAPACK_dhgeqz_base(__VA_ARGS__)
8396 #endif
8397 
8398 #define LAPACK_shgeqz_base LAPACK_GLOBAL(shgeqz,SHGEQZ)
8399 void LAPACK_shgeqz_base(
8400  char const* job, char const* compq, char const* compz,
8401  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8402  float* H, lapack_int const* ldh,
8403  float* T, lapack_int const* ldt,
8404  float* alphar,
8405  float* alphai,
8406  float* beta,
8407  float* Q, lapack_int const* ldq,
8408  float* Z, lapack_int const* ldz,
8409  float* work, lapack_int const* lwork,
8410  lapack_int* info
8411 #ifdef LAPACK_FORTRAN_STRLEN_END
8412  , size_t, size_t, size_t
8413 #endif
8414 );
8415 #ifdef LAPACK_FORTRAN_STRLEN_END
8416  #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__, 1, 1, 1)
8417 #else
8418  #define LAPACK_shgeqz(...) LAPACK_shgeqz_base(__VA_ARGS__)
8419 #endif
8420 
8421 #define LAPACK_zhgeqz_base LAPACK_GLOBAL(zhgeqz,ZHGEQZ)
8422 void LAPACK_zhgeqz_base(
8423  char const* job, char const* compq, char const* compz,
8424  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
8425  lapack_complex_double* H, lapack_int const* ldh,
8426  lapack_complex_double* T, lapack_int const* ldt,
8427  lapack_complex_double* alpha,
8428  lapack_complex_double* beta,
8429  lapack_complex_double* Q, lapack_int const* ldq,
8430  lapack_complex_double* Z, lapack_int const* ldz,
8431  lapack_complex_double* work, lapack_int const* lwork,
8432  double* rwork,
8433  lapack_int* info
8434 #ifdef LAPACK_FORTRAN_STRLEN_END
8435  , size_t, size_t, size_t
8436 #endif
8437 );
8438 #ifdef LAPACK_FORTRAN_STRLEN_END
8439  #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__, 1, 1, 1)
8440 #else
8441  #define LAPACK_zhgeqz(...) LAPACK_zhgeqz_base(__VA_ARGS__)
8442 #endif
8443 
8444 #define LAPACK_chpcon_base LAPACK_GLOBAL(chpcon,CHPCON)
8445 void LAPACK_chpcon_base(
8446  char const* uplo,
8447  lapack_int const* n,
8448  lapack_complex_float const* AP, lapack_int const* ipiv,
8449  float const* anorm,
8450  float* rcond,
8451  lapack_complex_float* work,
8452  lapack_int* info
8453 #ifdef LAPACK_FORTRAN_STRLEN_END
8454  , size_t
8455 #endif
8456 );
8457 #ifdef LAPACK_FORTRAN_STRLEN_END
8458  #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__, 1)
8459 #else
8460  #define LAPACK_chpcon(...) LAPACK_chpcon_base(__VA_ARGS__)
8461 #endif
8462 
8463 #define LAPACK_zhpcon_base LAPACK_GLOBAL(zhpcon,ZHPCON)
8464 void LAPACK_zhpcon_base(
8465  char const* uplo,
8466  lapack_int const* n,
8467  lapack_complex_double const* AP, lapack_int const* ipiv,
8468  double const* anorm,
8469  double* rcond,
8470  lapack_complex_double* work,
8471  lapack_int* info
8472 #ifdef LAPACK_FORTRAN_STRLEN_END
8473  , size_t
8474 #endif
8475 );
8476 #ifdef LAPACK_FORTRAN_STRLEN_END
8477  #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__, 1)
8478 #else
8479  #define LAPACK_zhpcon(...) LAPACK_zhpcon_base(__VA_ARGS__)
8480 #endif
8481 
8482 #define LAPACK_chpev_base LAPACK_GLOBAL(chpev,CHPEV)
8483 void LAPACK_chpev_base(
8484  char const* jobz, char const* uplo,
8485  lapack_int const* n,
8486  lapack_complex_float* AP,
8487  float* W,
8488  lapack_complex_float* Z, lapack_int const* ldz,
8489  lapack_complex_float* work,
8490  float* rwork,
8491  lapack_int* info
8492 #ifdef LAPACK_FORTRAN_STRLEN_END
8493  , size_t, size_t
8494 #endif
8495 );
8496 #ifdef LAPACK_FORTRAN_STRLEN_END
8497  #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__, 1, 1)
8498 #else
8499  #define LAPACK_chpev(...) LAPACK_chpev_base(__VA_ARGS__)
8500 #endif
8501 
8502 #define LAPACK_zhpev_base LAPACK_GLOBAL(zhpev,ZHPEV)
8503 void LAPACK_zhpev_base(
8504  char const* jobz, char const* uplo,
8505  lapack_int const* n,
8506  lapack_complex_double* AP,
8507  double* W,
8508  lapack_complex_double* Z, lapack_int const* ldz,
8509  lapack_complex_double* work,
8510  double* rwork,
8511  lapack_int* info
8512 #ifdef LAPACK_FORTRAN_STRLEN_END
8513  , size_t, size_t
8514 #endif
8515 );
8516 #ifdef LAPACK_FORTRAN_STRLEN_END
8517  #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__, 1, 1)
8518 #else
8519  #define LAPACK_zhpev(...) LAPACK_zhpev_base(__VA_ARGS__)
8520 #endif
8521 
8522 #define LAPACK_chpevd_base LAPACK_GLOBAL(chpevd,CHPEVD)
8523 void LAPACK_chpevd_base(
8524  char const* jobz, char const* uplo,
8525  lapack_int const* n,
8526  lapack_complex_float* AP,
8527  float* W,
8528  lapack_complex_float* Z, lapack_int const* ldz,
8529  lapack_complex_float* work, lapack_int const* lwork,
8530  float* rwork, lapack_int const* lrwork,
8531  lapack_int* iwork, lapack_int const* liwork,
8532  lapack_int* info
8533 #ifdef LAPACK_FORTRAN_STRLEN_END
8534  , size_t, size_t
8535 #endif
8536 );
8537 #ifdef LAPACK_FORTRAN_STRLEN_END
8538  #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__, 1, 1)
8539 #else
8540  #define LAPACK_chpevd(...) LAPACK_chpevd_base(__VA_ARGS__)
8541 #endif
8542 
8543 #define LAPACK_zhpevd_base LAPACK_GLOBAL(zhpevd,ZHPEVD)
8544 void LAPACK_zhpevd_base(
8545  char const* jobz, char const* uplo,
8546  lapack_int const* n,
8547  lapack_complex_double* AP,
8548  double* W,
8549  lapack_complex_double* Z, lapack_int const* ldz,
8550  lapack_complex_double* work, lapack_int const* lwork,
8551  double* rwork, lapack_int const* lrwork,
8552  lapack_int* iwork, lapack_int const* liwork,
8553  lapack_int* info
8554 #ifdef LAPACK_FORTRAN_STRLEN_END
8555  , size_t, size_t
8556 #endif
8557 );
8558 #ifdef LAPACK_FORTRAN_STRLEN_END
8559  #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__, 1, 1)
8560 #else
8561  #define LAPACK_zhpevd(...) LAPACK_zhpevd_base(__VA_ARGS__)
8562 #endif
8563 
8564 #define LAPACK_chpevx_base LAPACK_GLOBAL(chpevx,CHPEVX)
8565 void LAPACK_chpevx_base(
8566  char const* jobz, char const* range, char const* uplo,
8567  lapack_int const* n,
8568  lapack_complex_float* AP,
8569  float const* vl,
8570  float const* vu, lapack_int const* il, lapack_int const* iu,
8571  float const* abstol, lapack_int* m,
8572  float* W,
8573  lapack_complex_float* Z, lapack_int const* ldz,
8574  lapack_complex_float* work,
8575  float* rwork,
8576  lapack_int* iwork, lapack_int* IFAIL,
8577  lapack_int* info
8578 #ifdef LAPACK_FORTRAN_STRLEN_END
8579  , size_t, size_t, size_t
8580 #endif
8581 );
8582 #ifdef LAPACK_FORTRAN_STRLEN_END
8583  #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__, 1, 1, 1)
8584 #else
8585  #define LAPACK_chpevx(...) LAPACK_chpevx_base(__VA_ARGS__)
8586 #endif
8587 
8588 #define LAPACK_zhpevx_base LAPACK_GLOBAL(zhpevx,ZHPEVX)
8589 void LAPACK_zhpevx_base(
8590  char const* jobz, char const* range, char const* uplo,
8591  lapack_int const* n,
8592  lapack_complex_double* AP,
8593  double const* vl,
8594  double const* vu, lapack_int const* il, lapack_int const* iu,
8595  double const* abstol, lapack_int* m,
8596  double* W,
8597  lapack_complex_double* Z, lapack_int const* ldz,
8598  lapack_complex_double* work,
8599  double* rwork,
8600  lapack_int* iwork, lapack_int* IFAIL,
8601  lapack_int* info
8602 #ifdef LAPACK_FORTRAN_STRLEN_END
8603  , size_t, size_t, size_t
8604 #endif
8605 );
8606 #ifdef LAPACK_FORTRAN_STRLEN_END
8607  #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__, 1, 1, 1)
8608 #else
8609  #define LAPACK_zhpevx(...) LAPACK_zhpevx_base(__VA_ARGS__)
8610 #endif
8611 
8612 #define LAPACK_chpgst_base LAPACK_GLOBAL(chpgst,CHPGST)
8613 void LAPACK_chpgst_base(
8614  lapack_int const* itype, char const* uplo,
8615  lapack_int const* n,
8616  lapack_complex_float* AP,
8617  lapack_complex_float const* BP,
8618  lapack_int* info
8619 #ifdef LAPACK_FORTRAN_STRLEN_END
8620  , size_t
8621 #endif
8622 );
8623 #ifdef LAPACK_FORTRAN_STRLEN_END
8624  #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__, 1)
8625 #else
8626  #define LAPACK_chpgst(...) LAPACK_chpgst_base(__VA_ARGS__)
8627 #endif
8628 
8629 #define LAPACK_zhpgst_base LAPACK_GLOBAL(zhpgst,ZHPGST)
8630 void LAPACK_zhpgst_base(
8631  lapack_int const* itype, char const* uplo,
8632  lapack_int const* n,
8633  lapack_complex_double* AP,
8634  lapack_complex_double const* BP,
8635  lapack_int* info
8636 #ifdef LAPACK_FORTRAN_STRLEN_END
8637  , size_t
8638 #endif
8639 );
8640 #ifdef LAPACK_FORTRAN_STRLEN_END
8641  #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__, 1)
8642 #else
8643  #define LAPACK_zhpgst(...) LAPACK_zhpgst_base(__VA_ARGS__)
8644 #endif
8645 
8646 #define LAPACK_chpgv_base LAPACK_GLOBAL(chpgv,CHPGV)
8647 void LAPACK_chpgv_base(
8648  lapack_int const* itype, char const* jobz, char const* uplo,
8649  lapack_int const* n,
8650  lapack_complex_float* AP,
8651  lapack_complex_float* BP,
8652  float* W,
8653  lapack_complex_float* Z, lapack_int const* ldz,
8654  lapack_complex_float* work,
8655  float* rwork,
8656  lapack_int* info
8657 #ifdef LAPACK_FORTRAN_STRLEN_END
8658  , size_t, size_t
8659 #endif
8660 );
8661 #ifdef LAPACK_FORTRAN_STRLEN_END
8662  #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__, 1, 1)
8663 #else
8664  #define LAPACK_chpgv(...) LAPACK_chpgv_base(__VA_ARGS__)
8665 #endif
8666 
8667 #define LAPACK_zhpgv_base LAPACK_GLOBAL(zhpgv,ZHPGV)
8668 void LAPACK_zhpgv_base(
8669  lapack_int const* itype, char const* jobz, char const* uplo,
8670  lapack_int const* n,
8671  lapack_complex_double* AP,
8672  lapack_complex_double* BP,
8673  double* W,
8674  lapack_complex_double* Z, lapack_int const* ldz,
8675  lapack_complex_double* work,
8676  double* rwork,
8677  lapack_int* info
8678 #ifdef LAPACK_FORTRAN_STRLEN_END
8679  , size_t, size_t
8680 #endif
8681 );
8682 #ifdef LAPACK_FORTRAN_STRLEN_END
8683  #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__, 1, 1)
8684 #else
8685  #define LAPACK_zhpgv(...) LAPACK_zhpgv_base(__VA_ARGS__)
8686 #endif
8687 
8688 #define LAPACK_chpgvd_base LAPACK_GLOBAL(chpgvd,CHPGVD)
8689 void LAPACK_chpgvd_base(
8690  lapack_int const* itype, char const* jobz, char const* uplo,
8691  lapack_int const* n,
8692  lapack_complex_float* AP,
8693  lapack_complex_float* BP,
8694  float* W,
8695  lapack_complex_float* Z, lapack_int const* ldz,
8696  lapack_complex_float* work, lapack_int const* lwork,
8697  float* rwork, lapack_int const* lrwork,
8698  lapack_int* iwork, lapack_int const* liwork,
8699  lapack_int* info
8700 #ifdef LAPACK_FORTRAN_STRLEN_END
8701  , size_t, size_t
8702 #endif
8703 );
8704 #ifdef LAPACK_FORTRAN_STRLEN_END
8705  #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__, 1, 1)
8706 #else
8707  #define LAPACK_chpgvd(...) LAPACK_chpgvd_base(__VA_ARGS__)
8708 #endif
8709 
8710 #define LAPACK_zhpgvd_base LAPACK_GLOBAL(zhpgvd,ZHPGVD)
8711 void LAPACK_zhpgvd_base(
8712  lapack_int const* itype, char const* jobz, char const* uplo,
8713  lapack_int const* n,
8714  lapack_complex_double* AP,
8715  lapack_complex_double* BP,
8716  double* W,
8717  lapack_complex_double* Z, lapack_int const* ldz,
8718  lapack_complex_double* work, lapack_int const* lwork,
8719  double* rwork, lapack_int const* lrwork,
8720  lapack_int* iwork, lapack_int const* liwork,
8721  lapack_int* info
8722 #ifdef LAPACK_FORTRAN_STRLEN_END
8723  , size_t, size_t
8724 #endif
8725 );
8726 #ifdef LAPACK_FORTRAN_STRLEN_END
8727  #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__, 1, 1)
8728 #else
8729  #define LAPACK_zhpgvd(...) LAPACK_zhpgvd_base(__VA_ARGS__)
8730 #endif
8731 
8732 #define LAPACK_chpgvx_base LAPACK_GLOBAL(chpgvx,CHPGVX)
8733 void LAPACK_chpgvx_base(
8734  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
8735  lapack_int const* n,
8736  lapack_complex_float* AP,
8737  lapack_complex_float* BP,
8738  float const* vl,
8739  float const* vu, lapack_int const* il, lapack_int const* iu,
8740  float const* abstol, lapack_int* m,
8741  float* W,
8742  lapack_complex_float* Z, lapack_int const* ldz,
8743  lapack_complex_float* work,
8744  float* rwork,
8745  lapack_int* iwork, lapack_int* IFAIL,
8746  lapack_int* info
8747 #ifdef LAPACK_FORTRAN_STRLEN_END
8748  , size_t, size_t, size_t
8749 #endif
8750 );
8751 #ifdef LAPACK_FORTRAN_STRLEN_END
8752  #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__, 1, 1, 1)
8753 #else
8754  #define LAPACK_chpgvx(...) LAPACK_chpgvx_base(__VA_ARGS__)
8755 #endif
8756 
8757 #define LAPACK_zhpgvx_base LAPACK_GLOBAL(zhpgvx,ZHPGVX)
8758 void LAPACK_zhpgvx_base(
8759  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
8760  lapack_int const* n,
8761  lapack_complex_double* AP,
8762  lapack_complex_double* BP,
8763  double const* vl,
8764  double const* vu, lapack_int const* il, lapack_int const* iu,
8765  double const* abstol, lapack_int* m,
8766  double* W,
8767  lapack_complex_double* Z, lapack_int const* ldz,
8768  lapack_complex_double* work,
8769  double* rwork,
8770  lapack_int* iwork, lapack_int* IFAIL,
8771  lapack_int* info
8772 #ifdef LAPACK_FORTRAN_STRLEN_END
8773  , size_t, size_t, size_t
8774 #endif
8775 );
8776 #ifdef LAPACK_FORTRAN_STRLEN_END
8777  #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__, 1, 1, 1)
8778 #else
8779  #define LAPACK_zhpgvx(...) LAPACK_zhpgvx_base(__VA_ARGS__)
8780 #endif
8781 
8782 #define LAPACK_chprfs_base LAPACK_GLOBAL(chprfs,CHPRFS)
8783 void LAPACK_chprfs_base(
8784  char const* uplo,
8785  lapack_int const* n, lapack_int const* nrhs,
8786  lapack_complex_float const* AP,
8787  lapack_complex_float const* AFP, lapack_int const* ipiv,
8788  lapack_complex_float const* B, lapack_int const* ldb,
8789  lapack_complex_float* X, lapack_int const* ldx,
8790  float* ferr,
8791  float* berr,
8792  lapack_complex_float* work,
8793  float* rwork,
8794  lapack_int* info
8795 #ifdef LAPACK_FORTRAN_STRLEN_END
8796  , size_t
8797 #endif
8798 );
8799 #ifdef LAPACK_FORTRAN_STRLEN_END
8800  #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__, 1)
8801 #else
8802  #define LAPACK_chprfs(...) LAPACK_chprfs_base(__VA_ARGS__)
8803 #endif
8804 
8805 #define LAPACK_zhprfs_base LAPACK_GLOBAL(zhprfs,ZHPRFS)
8806 void LAPACK_zhprfs_base(
8807  char const* uplo,
8808  lapack_int const* n, lapack_int const* nrhs,
8809  lapack_complex_double const* AP,
8810  lapack_complex_double const* AFP, lapack_int const* ipiv,
8811  lapack_complex_double const* B, lapack_int const* ldb,
8812  lapack_complex_double* X, lapack_int const* ldx,
8813  double* ferr,
8814  double* berr,
8815  lapack_complex_double* work,
8816  double* rwork,
8817  lapack_int* info
8818 #ifdef LAPACK_FORTRAN_STRLEN_END
8819  , size_t
8820 #endif
8821 );
8822 #ifdef LAPACK_FORTRAN_STRLEN_END
8823  #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__, 1)
8824 #else
8825  #define LAPACK_zhprfs(...) LAPACK_zhprfs_base(__VA_ARGS__)
8826 #endif
8827 
8828 #define LAPACK_chpsv_base LAPACK_GLOBAL(chpsv,CHPSV)
8829 void LAPACK_chpsv_base(
8830  char const* uplo,
8831  lapack_int const* n, lapack_int const* nrhs,
8832  lapack_complex_float* AP, lapack_int* ipiv,
8833  lapack_complex_float* B, lapack_int const* ldb,
8834  lapack_int* info
8835 #ifdef LAPACK_FORTRAN_STRLEN_END
8836  , size_t
8837 #endif
8838 );
8839 #ifdef LAPACK_FORTRAN_STRLEN_END
8840  #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__, 1)
8841 #else
8842  #define LAPACK_chpsv(...) LAPACK_chpsv_base(__VA_ARGS__)
8843 #endif
8844 
8845 #define LAPACK_zhpsv_base LAPACK_GLOBAL(zhpsv,ZHPSV)
8846 void LAPACK_zhpsv_base(
8847  char const* uplo,
8848  lapack_int const* n, lapack_int const* nrhs,
8849  lapack_complex_double* AP, lapack_int* ipiv,
8850  lapack_complex_double* B, lapack_int const* ldb,
8851  lapack_int* info
8852 #ifdef LAPACK_FORTRAN_STRLEN_END
8853  , size_t
8854 #endif
8855 );
8856 #ifdef LAPACK_FORTRAN_STRLEN_END
8857  #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__, 1)
8858 #else
8859  #define LAPACK_zhpsv(...) LAPACK_zhpsv_base(__VA_ARGS__)
8860 #endif
8861 
8862 #define LAPACK_chpsvx_base LAPACK_GLOBAL(chpsvx,CHPSVX)
8863 void LAPACK_chpsvx_base(
8864  char const* fact, char const* uplo,
8865  lapack_int const* n, lapack_int const* nrhs,
8866  lapack_complex_float const* AP,
8867  lapack_complex_float* AFP, lapack_int* ipiv,
8868  lapack_complex_float const* B, lapack_int const* ldb,
8869  lapack_complex_float* X, lapack_int const* ldx,
8870  float* rcond,
8871  float* ferr,
8872  float* berr,
8873  lapack_complex_float* work,
8874  float* rwork,
8875  lapack_int* info
8876 #ifdef LAPACK_FORTRAN_STRLEN_END
8877  , size_t, size_t
8878 #endif
8879 );
8880 #ifdef LAPACK_FORTRAN_STRLEN_END
8881  #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__, 1, 1)
8882 #else
8883  #define LAPACK_chpsvx(...) LAPACK_chpsvx_base(__VA_ARGS__)
8884 #endif
8885 
8886 #define LAPACK_zhpsvx_base LAPACK_GLOBAL(zhpsvx,ZHPSVX)
8887 void LAPACK_zhpsvx_base(
8888  char const* fact, char const* uplo,
8889  lapack_int const* n, lapack_int const* nrhs,
8890  lapack_complex_double const* AP,
8891  lapack_complex_double* AFP, lapack_int* ipiv,
8892  lapack_complex_double const* B, lapack_int const* ldb,
8893  lapack_complex_double* X, lapack_int const* ldx,
8894  double* rcond,
8895  double* ferr,
8896  double* berr,
8897  lapack_complex_double* work,
8898  double* rwork,
8899  lapack_int* info
8900 #ifdef LAPACK_FORTRAN_STRLEN_END
8901  , size_t, size_t
8902 #endif
8903 );
8904 #ifdef LAPACK_FORTRAN_STRLEN_END
8905  #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__, 1, 1)
8906 #else
8907  #define LAPACK_zhpsvx(...) LAPACK_zhpsvx_base(__VA_ARGS__)
8908 #endif
8909 
8910 #define LAPACK_chptrd_base LAPACK_GLOBAL(chptrd,CHPTRD)
8911 void LAPACK_chptrd_base(
8912  char const* uplo,
8913  lapack_int const* n,
8914  lapack_complex_float* AP,
8915  float* D,
8916  float* E,
8917  lapack_complex_float* tau,
8918  lapack_int* info
8919 #ifdef LAPACK_FORTRAN_STRLEN_END
8920  , size_t
8921 #endif
8922 );
8923 #ifdef LAPACK_FORTRAN_STRLEN_END
8924  #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__, 1)
8925 #else
8926  #define LAPACK_chptrd(...) LAPACK_chptrd_base(__VA_ARGS__)
8927 #endif
8928 
8929 #define LAPACK_zhptrd_base LAPACK_GLOBAL(zhptrd,ZHPTRD)
8930 void LAPACK_zhptrd_base(
8931  char const* uplo,
8932  lapack_int const* n,
8933  lapack_complex_double* AP,
8934  double* D,
8935  double* E,
8936  lapack_complex_double* tau,
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_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__, 1)
8944 #else
8945  #define LAPACK_zhptrd(...) LAPACK_zhptrd_base(__VA_ARGS__)
8946 #endif
8947 
8948 #define LAPACK_chptrf_base LAPACK_GLOBAL(chptrf,CHPTRF)
8949 void LAPACK_chptrf_base(
8950  char const* uplo,
8951  lapack_int const* n,
8952  lapack_complex_float* 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_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__, 1)
8960 #else
8961  #define LAPACK_chptrf(...) LAPACK_chptrf_base(__VA_ARGS__)
8962 #endif
8963 
8964 #define LAPACK_zhptrf_base LAPACK_GLOBAL(zhptrf,ZHPTRF)
8965 void LAPACK_zhptrf_base(
8966  char const* uplo,
8967  lapack_int const* n,
8968  lapack_complex_double* AP, lapack_int* ipiv,
8969  lapack_int* info
8970 #ifdef LAPACK_FORTRAN_STRLEN_END
8971  , size_t
8972 #endif
8973 );
8974 #ifdef LAPACK_FORTRAN_STRLEN_END
8975  #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__, 1)
8976 #else
8977  #define LAPACK_zhptrf(...) LAPACK_zhptrf_base(__VA_ARGS__)
8978 #endif
8979 
8980 #define LAPACK_chptri_base LAPACK_GLOBAL(chptri,CHPTRI)
8981 void LAPACK_chptri_base(
8982  char const* uplo,
8983  lapack_int const* n,
8984  lapack_complex_float* AP, lapack_int const* ipiv,
8985  lapack_complex_float* work,
8986  lapack_int* info
8987 #ifdef LAPACK_FORTRAN_STRLEN_END
8988  , size_t
8989 #endif
8990 );
8991 #ifdef LAPACK_FORTRAN_STRLEN_END
8992  #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__, 1)
8993 #else
8994  #define LAPACK_chptri(...) LAPACK_chptri_base(__VA_ARGS__)
8995 #endif
8996 
8997 #define LAPACK_zhptri_base LAPACK_GLOBAL(zhptri,ZHPTRI)
8998 void LAPACK_zhptri_base(
8999  char const* uplo,
9000  lapack_int const* n,
9001  lapack_complex_double* AP, lapack_int const* ipiv,
9002  lapack_complex_double* work,
9003  lapack_int* info
9004 #ifdef LAPACK_FORTRAN_STRLEN_END
9005  , size_t
9006 #endif
9007 );
9008 #ifdef LAPACK_FORTRAN_STRLEN_END
9009  #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__, 1)
9010 #else
9011  #define LAPACK_zhptri(...) LAPACK_zhptri_base(__VA_ARGS__)
9012 #endif
9013 
9014 #define LAPACK_chptrs_base LAPACK_GLOBAL(chptrs,CHPTRS)
9015 void LAPACK_chptrs_base(
9016  char const* uplo,
9017  lapack_int const* n, lapack_int const* nrhs,
9018  lapack_complex_float const* AP, lapack_int const* ipiv,
9019  lapack_complex_float* B, lapack_int const* ldb,
9020  lapack_int* info
9021 #ifdef LAPACK_FORTRAN_STRLEN_END
9022  , size_t
9023 #endif
9024 );
9025 #ifdef LAPACK_FORTRAN_STRLEN_END
9026  #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__, 1)
9027 #else
9028  #define LAPACK_chptrs(...) LAPACK_chptrs_base(__VA_ARGS__)
9029 #endif
9030 
9031 #define LAPACK_zhptrs_base LAPACK_GLOBAL(zhptrs,ZHPTRS)
9032 void LAPACK_zhptrs_base(
9033  char const* uplo,
9034  lapack_int const* n, lapack_int const* nrhs,
9035  lapack_complex_double const* AP, lapack_int const* ipiv,
9036  lapack_complex_double* B, lapack_int const* ldb,
9037  lapack_int* info
9038 #ifdef LAPACK_FORTRAN_STRLEN_END
9039  , size_t
9040 #endif
9041 );
9042 #ifdef LAPACK_FORTRAN_STRLEN_END
9043  #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__, 1)
9044 #else
9045  #define LAPACK_zhptrs(...) LAPACK_zhptrs_base(__VA_ARGS__)
9046 #endif
9047 
9048 #define LAPACK_chsein_base LAPACK_GLOBAL(chsein,CHSEIN)
9049 void LAPACK_chsein_base(
9050  char const* side, char const* eigsrc, char const* initv,
9051  lapack_logical const* select,
9052  lapack_int const* n,
9053  lapack_complex_float const* H, lapack_int const* ldh,
9054  lapack_complex_float* W,
9055  lapack_complex_float* VL, lapack_int const* ldvl,
9056  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9057  lapack_complex_float* work,
9058  float* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9059  lapack_int* info
9060 #ifdef LAPACK_FORTRAN_STRLEN_END
9061  , size_t, size_t, size_t
9062 #endif
9063 );
9064 #ifdef LAPACK_FORTRAN_STRLEN_END
9065  #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__, 1, 1, 1)
9066 #else
9067  #define LAPACK_chsein(...) LAPACK_chsein_base(__VA_ARGS__)
9068 #endif
9069 
9070 #define LAPACK_dhsein_base LAPACK_GLOBAL(dhsein,DHSEIN)
9071 void LAPACK_dhsein_base(
9072  char const* side, char const* eigsrc, char const* initv,
9073  lapack_logical* select,
9074  lapack_int const* n,
9075  double const* H, lapack_int const* ldh,
9076  double* WR,
9077  double const* WI,
9078  double* VL, lapack_int const* ldvl,
9079  double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9080  double* work, lapack_int* IFAILL, lapack_int* IFAILR,
9081  lapack_int* info
9082 #ifdef LAPACK_FORTRAN_STRLEN_END
9083  , size_t, size_t, size_t
9084 #endif
9085 );
9086 #ifdef LAPACK_FORTRAN_STRLEN_END
9087  #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__, 1, 1, 1)
9088 #else
9089  #define LAPACK_dhsein(...) LAPACK_dhsein_base(__VA_ARGS__)
9090 #endif
9091 
9092 #define LAPACK_shsein_base LAPACK_GLOBAL(shsein,SHSEIN)
9093 void LAPACK_shsein_base(
9094  char const* side, char const* eigsrc, char const* initv,
9095  lapack_logical* select,
9096  lapack_int const* n,
9097  float const* H, lapack_int const* ldh,
9098  float* WR,
9099  float const* WI,
9100  float* VL, lapack_int const* ldvl,
9101  float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9102  float* work, lapack_int* IFAILL, lapack_int* IFAILR,
9103  lapack_int* info
9104 #ifdef LAPACK_FORTRAN_STRLEN_END
9105  , size_t, size_t, size_t
9106 #endif
9107 );
9108 #ifdef LAPACK_FORTRAN_STRLEN_END
9109  #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__, 1, 1, 1)
9110 #else
9111  #define LAPACK_shsein(...) LAPACK_shsein_base(__VA_ARGS__)
9112 #endif
9113 
9114 #define LAPACK_zhsein_base LAPACK_GLOBAL(zhsein,ZHSEIN)
9115 void LAPACK_zhsein_base(
9116  char const* side, char const* eigsrc, char const* initv,
9117  lapack_logical const* select,
9118  lapack_int const* n,
9119  lapack_complex_double const* H, lapack_int const* ldh,
9120  lapack_complex_double* W,
9121  lapack_complex_double* VL, lapack_int const* ldvl,
9122  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
9123  lapack_complex_double* work,
9124  double* rwork, lapack_int* IFAILL, lapack_int* IFAILR,
9125  lapack_int* info
9126 #ifdef LAPACK_FORTRAN_STRLEN_END
9127  , size_t, size_t, size_t
9128 #endif
9129 );
9130 #ifdef LAPACK_FORTRAN_STRLEN_END
9131  #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__, 1, 1, 1)
9132 #else
9133  #define LAPACK_zhsein(...) LAPACK_zhsein_base(__VA_ARGS__)
9134 #endif
9135 
9136 #define LAPACK_chseqr_base LAPACK_GLOBAL(chseqr,CHSEQR)
9137 void LAPACK_chseqr_base(
9138  char const* job, char const* compz,
9139  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9140  lapack_complex_float* H, lapack_int const* ldh,
9141  lapack_complex_float* W,
9142  lapack_complex_float* Z, lapack_int const* ldz,
9143  lapack_complex_float* work, lapack_int const* lwork,
9144  lapack_int* info
9145 #ifdef LAPACK_FORTRAN_STRLEN_END
9146  , size_t, size_t
9147 #endif
9148 );
9149 #ifdef LAPACK_FORTRAN_STRLEN_END
9150  #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__, 1, 1)
9151 #else
9152  #define LAPACK_chseqr(...) LAPACK_chseqr_base(__VA_ARGS__)
9153 #endif
9154 
9155 #define LAPACK_dhseqr_base LAPACK_GLOBAL(dhseqr,DHSEQR)
9156 void LAPACK_dhseqr_base(
9157  char const* job, char const* compz,
9158  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9159  double* H, lapack_int const* ldh,
9160  double* WR,
9161  double* WI,
9162  double* Z, lapack_int const* ldz,
9163  double* work, lapack_int const* lwork,
9164  lapack_int* info
9165 #ifdef LAPACK_FORTRAN_STRLEN_END
9166  , size_t, size_t
9167 #endif
9168 );
9169 #ifdef LAPACK_FORTRAN_STRLEN_END
9170  #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__, 1, 1)
9171 #else
9172  #define LAPACK_dhseqr(...) LAPACK_dhseqr_base(__VA_ARGS__)
9173 #endif
9174 
9175 #define LAPACK_shseqr_base LAPACK_GLOBAL(shseqr,SHSEQR)
9176 void LAPACK_shseqr_base(
9177  char const* job, char const* compz,
9178  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9179  float* H, lapack_int const* ldh,
9180  float* WR,
9181  float* WI,
9182  float* Z, lapack_int const* ldz,
9183  float* work, lapack_int const* lwork,
9184  lapack_int* info
9185 #ifdef LAPACK_FORTRAN_STRLEN_END
9186  , size_t, size_t
9187 #endif
9188 );
9189 #ifdef LAPACK_FORTRAN_STRLEN_END
9190  #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__, 1, 1)
9191 #else
9192  #define LAPACK_shseqr(...) LAPACK_shseqr_base(__VA_ARGS__)
9193 #endif
9194 
9195 #define LAPACK_zhseqr_base LAPACK_GLOBAL(zhseqr,ZHSEQR)
9196 void LAPACK_zhseqr_base(
9197  char const* job, char const* compz,
9198  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
9199  lapack_complex_double* H, lapack_int const* ldh,
9200  lapack_complex_double* W,
9201  lapack_complex_double* Z, lapack_int const* ldz,
9202  lapack_complex_double* work, lapack_int const* lwork,
9203  lapack_int* info
9204 #ifdef LAPACK_FORTRAN_STRLEN_END
9205  , size_t, size_t
9206 #endif
9207 );
9208 #ifdef LAPACK_FORTRAN_STRLEN_END
9209  #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__, 1, 1)
9210 #else
9211  #define LAPACK_zhseqr(...) LAPACK_zhseqr_base(__VA_ARGS__)
9212 #endif
9213 
9214 #define LAPACK_clacgv LAPACK_GLOBAL(clacgv,CLACGV)
9215 void LAPACK_clacgv(
9216  lapack_int const* n,
9217  lapack_complex_float* X, lapack_int const* incx );
9218 
9219 #define LAPACK_zlacgv LAPACK_GLOBAL(zlacgv,ZLACGV)
9220 void LAPACK_zlacgv(
9221  lapack_int const* n,
9222  lapack_complex_double* X, lapack_int const* incx );
9223 
9224 #define LAPACK_clacn2 LAPACK_GLOBAL(clacn2,CLACN2)
9225 void LAPACK_clacn2(
9226  lapack_int const* n,
9227  lapack_complex_float* V,
9228  lapack_complex_float* X,
9229  float* est, lapack_int* kase, lapack_int* ISAVE );
9230 
9231 #define LAPACK_dlacn2 LAPACK_GLOBAL(dlacn2,DLACN2)
9232 void LAPACK_dlacn2(
9233  lapack_int const* n,
9234  double* V,
9235  double* X, lapack_int* ISGN,
9236  double* est, lapack_int* kase, lapack_int* ISAVE );
9237 
9238 #define LAPACK_slacn2 LAPACK_GLOBAL(slacn2,SLACN2)
9239 void LAPACK_slacn2(
9240  lapack_int const* n,
9241  float* V,
9242  float* X, lapack_int* ISGN,
9243  float* est, lapack_int* kase, lapack_int* ISAVE );
9244 
9245 #define LAPACK_zlacn2 LAPACK_GLOBAL(zlacn2,ZLACN2)
9246 void LAPACK_zlacn2(
9247  lapack_int const* n,
9248  lapack_complex_double* V,
9249  lapack_complex_double* X,
9250  double* est, lapack_int* kase, lapack_int* ISAVE );
9251 
9252 #define LAPACK_clacp2_base LAPACK_GLOBAL(clacp2,CLACP2)
9253 void LAPACK_clacp2_base(
9254  char const* uplo,
9255  lapack_int const* m, lapack_int const* n,
9256  float const* A, lapack_int const* lda,
9257  lapack_complex_float* 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_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__, 1)
9264 #else
9265  #define LAPACK_clacp2(...) LAPACK_clacp2_base(__VA_ARGS__)
9266 #endif
9267 
9268 #define LAPACK_zlacp2_base LAPACK_GLOBAL(zlacp2,ZLACP2)
9269 void LAPACK_zlacp2_base(
9270  char const* uplo,
9271  lapack_int const* m, lapack_int const* n,
9272  double const* A, lapack_int const* lda,
9273  lapack_complex_double* 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_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__, 1)
9280 #else
9281  #define LAPACK_zlacp2(...) LAPACK_zlacp2_base(__VA_ARGS__)
9282 #endif
9283 
9284 #define LAPACK_clacpy_base LAPACK_GLOBAL(clacpy,CLACPY)
9285 void LAPACK_clacpy_base(
9286  char const* uplo,
9287  lapack_int const* m, lapack_int const* n,
9288  lapack_complex_float const* A, lapack_int const* lda,
9289  lapack_complex_float* 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_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__, 1)
9296 #else
9297  #define LAPACK_clacpy(...) LAPACK_clacpy_base(__VA_ARGS__)
9298 #endif
9299 
9300 #define LAPACK_dlacpy_base LAPACK_GLOBAL(dlacpy,DLACPY)
9301 void LAPACK_dlacpy_base(
9302  char const* uplo,
9303  lapack_int const* m, lapack_int const* n,
9304  double const* A, lapack_int const* lda,
9305  double* 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_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__, 1)
9312 #else
9313  #define LAPACK_dlacpy(...) LAPACK_dlacpy_base(__VA_ARGS__)
9314 #endif
9315 
9316 #define LAPACK_slacpy_base LAPACK_GLOBAL(slacpy,SLACPY)
9317 void LAPACK_slacpy_base(
9318  char const* uplo,
9319  lapack_int const* m, lapack_int const* n,
9320  float const* A, lapack_int const* lda,
9321  float* 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_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__, 1)
9328 #else
9329  #define LAPACK_slacpy(...) LAPACK_slacpy_base(__VA_ARGS__)
9330 #endif
9331 
9332 #define LAPACK_zlacpy_base LAPACK_GLOBAL(zlacpy,ZLACPY)
9333 void LAPACK_zlacpy_base(
9334  char const* uplo,
9335  lapack_int const* m, lapack_int const* n,
9336  lapack_complex_double const* A, lapack_int const* lda,
9337  lapack_complex_double* B, lapack_int const* ldb
9338 #ifdef LAPACK_FORTRAN_STRLEN_END
9339  , size_t
9340 #endif
9341 );
9342 #ifdef LAPACK_FORTRAN_STRLEN_END
9343  #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__, 1)
9344 #else
9345  #define LAPACK_zlacpy(...) LAPACK_zlacpy_base(__VA_ARGS__)
9346 #endif
9347 
9348 #define LAPACK_clacrm LAPACK_GLOBAL(clacrm,CLACRM)
9349 void LAPACK_clacrm(
9350  lapack_int const* m, lapack_int const* n,
9351  lapack_complex_float const* A, lapack_int const* lda,
9352  float const* B, lapack_int const* ldb,
9353  lapack_complex_float* C, lapack_int const* ldc,
9354  float* rwork );
9355 
9356 #define LAPACK_zlacrm LAPACK_GLOBAL(zlacrm,ZLACRM)
9357 void LAPACK_zlacrm(
9358  lapack_int const* m, lapack_int const* n,
9359  lapack_complex_double const* A, lapack_int const* lda,
9360  double const* B, lapack_int const* ldb,
9361  lapack_complex_double* C, lapack_int const* ldc,
9362  double* rwork );
9363 
9364 #define LAPACK_zlag2c LAPACK_GLOBAL(zlag2c,ZLAG2C)
9365 void LAPACK_zlag2c(
9366  lapack_int const* m, lapack_int const* n,
9367  lapack_complex_double const* A, lapack_int const* lda,
9368  lapack_complex_float* SA, lapack_int const* ldsa,
9369  lapack_int* info );
9370 
9371 #define LAPACK_slag2d LAPACK_GLOBAL(slag2d,SLAG2D)
9372 void LAPACK_slag2d(
9373  lapack_int const* m, lapack_int const* n,
9374  float const* SA, lapack_int const* ldsa,
9375  double* A, lapack_int const* lda,
9376  lapack_int* info );
9377 
9378 #define LAPACK_dlag2s LAPACK_GLOBAL(dlag2s,DLAG2S)
9379 void LAPACK_dlag2s(
9380  lapack_int const* m, lapack_int const* n,
9381  double const* A, lapack_int const* lda,
9382  float* SA, lapack_int const* ldsa,
9383  lapack_int* info );
9384 
9385 #define LAPACK_clag2z LAPACK_GLOBAL(clag2z,CLAG2Z)
9386 void LAPACK_clag2z(
9387  lapack_int const* m, lapack_int const* n,
9388  lapack_complex_float const* SA, lapack_int const* ldsa,
9389  lapack_complex_double* A, lapack_int const* lda,
9390  lapack_int* info );
9391 
9392 #define LAPACK_clagge LAPACK_GLOBAL(clagge,CLAGGE)
9393 void LAPACK_clagge(
9394  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9395  float const* D,
9396  lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9397  lapack_complex_float* work,
9398  lapack_int* info );
9399 
9400 #define LAPACK_dlagge LAPACK_GLOBAL(dlagge,DLAGGE)
9401 void LAPACK_dlagge(
9402  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9403  double const* D,
9404  double* A, lapack_int const* lda, lapack_int* iseed,
9405  double* work,
9406  lapack_int* info );
9407 
9408 #define LAPACK_slagge LAPACK_GLOBAL(slagge,SLAGGE)
9409 void LAPACK_slagge(
9410  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9411  float const* D,
9412  float* A, lapack_int const* lda, lapack_int* iseed,
9413  float* work,
9414  lapack_int* info );
9415 
9416 #define LAPACK_zlagge LAPACK_GLOBAL(zlagge,ZLAGGE)
9417 void LAPACK_zlagge(
9418  lapack_int const* m, lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
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_claghe LAPACK_GLOBAL(claghe,CLAGHE)
9425 void LAPACK_claghe(
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_zlaghe LAPACK_GLOBAL(zlaghe,ZLAGHE)
9433 void LAPACK_zlaghe(
9434  lapack_int const* n, lapack_int const* k,
9435  double const* D,
9436  lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9437  lapack_complex_double* work,
9438  lapack_int* info );
9439 
9440 #define LAPACK_clagsy LAPACK_GLOBAL(clagsy,CLAGSY)
9441 void LAPACK_clagsy(
9442  lapack_int const* n, lapack_int const* k,
9443  float const* D,
9444  lapack_complex_float* A, lapack_int const* lda, lapack_int* iseed,
9445  lapack_complex_float* work,
9446  lapack_int* info );
9447 
9448 #define LAPACK_dlagsy LAPACK_GLOBAL(dlagsy,DLAGSY)
9449 void LAPACK_dlagsy(
9450  lapack_int const* n, lapack_int const* k,
9451  double const* D,
9452  double* A, lapack_int const* lda, lapack_int* iseed,
9453  double* work,
9454  lapack_int* info );
9455 
9456 #define LAPACK_slagsy LAPACK_GLOBAL(slagsy,SLAGSY)
9457 void LAPACK_slagsy(
9458  lapack_int const* n, lapack_int const* k,
9459  float const* D,
9460  float* A, lapack_int const* lda, lapack_int* iseed,
9461  float* work,
9462  lapack_int* info );
9463 
9464 #define LAPACK_zlagsy LAPACK_GLOBAL(zlagsy,ZLAGSY)
9465 void LAPACK_zlagsy(
9466  lapack_int const* n, lapack_int const* k,
9467  double const* D,
9468  lapack_complex_double* A, lapack_int const* lda, lapack_int* iseed,
9469  lapack_complex_double* work,
9470  lapack_int* info );
9471 
9472 #define LAPACK_dlamch_base LAPACK_GLOBAL(dlamch,DLAMCH)
9473 double LAPACK_dlamch_base(
9474  char const* cmach
9475 #ifdef LAPACK_FORTRAN_STRLEN_END
9476  , size_t
9477 #endif
9478 );
9479 #ifdef LAPACK_FORTRAN_STRLEN_END
9480  #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__, 1)
9481 #else
9482  #define LAPACK_dlamch(...) LAPACK_dlamch_base(__VA_ARGS__)
9483 #endif
9484 
9485 #define LAPACK_slamch_base LAPACK_GLOBAL(slamch,SLAMCH)
9486 lapack_float_return LAPACK_slamch_base(
9487  char const* cmach
9488 #ifdef LAPACK_FORTRAN_STRLEN_END
9489  , size_t
9490 #endif
9491 );
9492 #ifdef LAPACK_FORTRAN_STRLEN_END
9493  #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__, 1)
9494 #else
9495  #define LAPACK_slamch(...) LAPACK_slamch_base(__VA_ARGS__)
9496 #endif
9497 
9498 #define LAPACK_clangb_base LAPACK_GLOBAL(clangb,CLANGB)
9499 lapack_float_return LAPACK_clangb_base(
9500  char const* norm,
9501  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9502  lapack_complex_float const* AB, lapack_int const* ldab,
9503  float* work
9504 #ifdef LAPACK_FORTRAN_STRLEN_END
9505  , size_t
9506 #endif
9507 );
9508 #ifdef LAPACK_FORTRAN_STRLEN_END
9509  #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__, 1)
9510 #else
9511  #define LAPACK_clangb(...) LAPACK_clangb_base(__VA_ARGS__)
9512 #endif
9513 
9514 #define LAPACK_dlangb_base LAPACK_GLOBAL(dlangb,DLANGB)
9515 double LAPACK_dlangb_base(
9516  char const* norm,
9517  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9518  double const* AB, lapack_int const* ldab,
9519  double* work
9520 #ifdef LAPACK_FORTRAN_STRLEN_END
9521  , size_t
9522 #endif
9523 );
9524 #ifdef LAPACK_FORTRAN_STRLEN_END
9525  #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__, 1)
9526 #else
9527  #define LAPACK_dlangb(...) LAPACK_dlangb_base(__VA_ARGS__)
9528 #endif
9529 
9530 #define LAPACK_slangb_base LAPACK_GLOBAL(slangb,SLANGB)
9531 lapack_float_return LAPACK_slangb_base(
9532  char const* norm,
9533  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9534  float const* AB, lapack_int const* ldab,
9535  float* work
9536 #ifdef LAPACK_FORTRAN_STRLEN_END
9537  , size_t
9538 #endif
9539 );
9540 #ifdef LAPACK_FORTRAN_STRLEN_END
9541  #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__, 1)
9542 #else
9543  #define LAPACK_slangb(...) LAPACK_slangb_base(__VA_ARGS__)
9544 #endif
9545 
9546 #define LAPACK_zlangb_base LAPACK_GLOBAL(zlangb,ZLANGB)
9547 double LAPACK_zlangb_base(
9548  char const* norm,
9549  lapack_int const* n, lapack_int const* kl, lapack_int const* ku,
9550  lapack_complex_double const* AB, lapack_int const* ldab,
9551  double* work
9552 #ifdef LAPACK_FORTRAN_STRLEN_END
9553  , size_t
9554 #endif
9555 );
9556 #ifdef LAPACK_FORTRAN_STRLEN_END
9557  #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__, 1)
9558 #else
9559  #define LAPACK_zlangb(...) LAPACK_zlangb_base(__VA_ARGS__)
9560 #endif
9561 
9562 #define LAPACK_clange_base LAPACK_GLOBAL(clange,CLANGE)
9563 lapack_float_return LAPACK_clange_base(
9564  char const* norm,
9565  lapack_int const* m, lapack_int const* n,
9566  lapack_complex_float const* A, lapack_int const* lda,
9567  float* work
9568 #ifdef LAPACK_FORTRAN_STRLEN_END
9569  , size_t
9570 #endif
9571 );
9572 #ifdef LAPACK_FORTRAN_STRLEN_END
9573  #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__, 1)
9574 #else
9575  #define LAPACK_clange(...) LAPACK_clange_base(__VA_ARGS__)
9576 #endif
9577 
9578 #define LAPACK_dlange_base LAPACK_GLOBAL(dlange,DLANGE)
9579 double LAPACK_dlange_base(
9580  char const* norm,
9581  lapack_int const* m, lapack_int const* n,
9582  double const* A, lapack_int const* lda,
9583  double* work
9584 #ifdef LAPACK_FORTRAN_STRLEN_END
9585  , size_t
9586 #endif
9587 );
9588 #ifdef LAPACK_FORTRAN_STRLEN_END
9589  #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__, 1)
9590 #else
9591  #define LAPACK_dlange(...) LAPACK_dlange_base(__VA_ARGS__)
9592 #endif
9593 
9594 #define LAPACK_slange_base LAPACK_GLOBAL(slange,SLANGE)
9595 lapack_float_return LAPACK_slange_base(
9596  char const* norm,
9597  lapack_int const* m, lapack_int const* n,
9598  float const* A, lapack_int const* lda,
9599  float* work
9600 #ifdef LAPACK_FORTRAN_STRLEN_END
9601  , size_t
9602 #endif
9603 );
9604 #ifdef LAPACK_FORTRAN_STRLEN_END
9605  #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__, 1)
9606 #else
9607  #define LAPACK_slange(...) LAPACK_slange_base(__VA_ARGS__)
9608 #endif
9609 
9610 #define LAPACK_zlange_base LAPACK_GLOBAL(zlange,ZLANGE)
9611 double LAPACK_zlange_base(
9612  char const* norm,
9613  lapack_int const* m, lapack_int const* n,
9614  lapack_complex_double const* A, lapack_int const* lda,
9615  double* work
9616 #ifdef LAPACK_FORTRAN_STRLEN_END
9617  , size_t
9618 #endif
9619 );
9620 #ifdef LAPACK_FORTRAN_STRLEN_END
9621  #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__, 1)
9622 #else
9623  #define LAPACK_zlange(...) LAPACK_zlange_base(__VA_ARGS__)
9624 #endif
9625 
9626 #define LAPACK_clangt_base LAPACK_GLOBAL(clangt,CLANGT)
9627 lapack_float_return LAPACK_clangt_base(
9628  char const* norm,
9629  lapack_int const* n,
9630  lapack_complex_float const* DL,
9631  lapack_complex_float const* D,
9632  lapack_complex_float const* DU
9633 #ifdef LAPACK_FORTRAN_STRLEN_END
9634  , size_t
9635 #endif
9636 );
9637 #ifdef LAPACK_FORTRAN_STRLEN_END
9638  #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__, 1)
9639 #else
9640  #define LAPACK_clangt(...) LAPACK_clangt_base(__VA_ARGS__)
9641 #endif
9642 
9643 #define LAPACK_dlangt_base LAPACK_GLOBAL(dlangt,DLANGT)
9644 double LAPACK_dlangt_base(
9645  char const* norm,
9646  lapack_int const* n,
9647  double const* DL,
9648  double const* D,
9649  double const* DU
9650 #ifdef LAPACK_FORTRAN_STRLEN_END
9651  , size_t
9652 #endif
9653 );
9654 #ifdef LAPACK_FORTRAN_STRLEN_END
9655  #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__, 1)
9656 #else
9657  #define LAPACK_dlangt(...) LAPACK_dlangt_base(__VA_ARGS__)
9658 #endif
9659 
9660 #define LAPACK_slangt_base LAPACK_GLOBAL(slangt,SLANGT)
9661 lapack_float_return LAPACK_slangt_base(
9662  char const* norm,
9663  lapack_int const* n,
9664  float const* DL,
9665  float const* D,
9666  float const* DU
9667 #ifdef LAPACK_FORTRAN_STRLEN_END
9668  , size_t
9669 #endif
9670 );
9671 #ifdef LAPACK_FORTRAN_STRLEN_END
9672  #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__, 1)
9673 #else
9674  #define LAPACK_slangt(...) LAPACK_slangt_base(__VA_ARGS__)
9675 #endif
9676 
9677 #define LAPACK_zlangt_base LAPACK_GLOBAL(zlangt,ZLANGT)
9678 double LAPACK_zlangt_base(
9679  char const* norm,
9680  lapack_int const* n,
9681  lapack_complex_double const* DL,
9682  lapack_complex_double const* D,
9683  lapack_complex_double const* DU
9684 #ifdef LAPACK_FORTRAN_STRLEN_END
9685  , size_t
9686 #endif
9687 );
9688 #ifdef LAPACK_FORTRAN_STRLEN_END
9689  #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__, 1)
9690 #else
9691  #define LAPACK_zlangt(...) LAPACK_zlangt_base(__VA_ARGS__)
9692 #endif
9693 
9694 #define LAPACK_clanhb_base LAPACK_GLOBAL(clanhb,CLANHB)
9695 lapack_float_return LAPACK_clanhb_base(
9696  char const* norm, char const* uplo,
9697  lapack_int const* n, lapack_int const* k,
9698  lapack_complex_float const* AB, lapack_int const* ldab,
9699  float* work
9700 #ifdef LAPACK_FORTRAN_STRLEN_END
9701  , size_t, size_t
9702 #endif
9703 );
9704 #ifdef LAPACK_FORTRAN_STRLEN_END
9705  #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__, 1, 1)
9706 #else
9707  #define LAPACK_clanhb(...) LAPACK_clanhb_base(__VA_ARGS__)
9708 #endif
9709 
9710 #define LAPACK_zlanhb_base LAPACK_GLOBAL(zlanhb,ZLANHB)
9711 double LAPACK_zlanhb_base(
9712  char const* norm, char const* uplo,
9713  lapack_int const* n, lapack_int const* k,
9714  lapack_complex_double const* AB, lapack_int const* ldab,
9715  double* work
9716 #ifdef LAPACK_FORTRAN_STRLEN_END
9717  , size_t, size_t
9718 #endif
9719 );
9720 #ifdef LAPACK_FORTRAN_STRLEN_END
9721  #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__, 1, 1)
9722 #else
9723  #define LAPACK_zlanhb(...) LAPACK_zlanhb_base(__VA_ARGS__)
9724 #endif
9725 
9726 #define LAPACK_clanhe_base LAPACK_GLOBAL(clanhe,CLANHE)
9727 lapack_float_return LAPACK_clanhe_base(
9728  char const* norm, char const* uplo,
9729  lapack_int const* n,
9730  lapack_complex_float const* A, lapack_int const* lda,
9731  float* work
9732 #ifdef LAPACK_FORTRAN_STRLEN_END
9733  , size_t, size_t
9734 #endif
9735 );
9736 #ifdef LAPACK_FORTRAN_STRLEN_END
9737  #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__, 1, 1)
9738 #else
9739  #define LAPACK_clanhe(...) LAPACK_clanhe_base(__VA_ARGS__)
9740 #endif
9741 
9742 #define LAPACK_zlanhe_base LAPACK_GLOBAL(zlanhe,ZLANHE)
9743 double LAPACK_zlanhe_base(
9744  char const* norm, char const* uplo,
9745  lapack_int const* n,
9746  lapack_complex_double const* A, lapack_int const* lda,
9747  double* work
9748 #ifdef LAPACK_FORTRAN_STRLEN_END
9749  , size_t, size_t
9750 #endif
9751 );
9752 #ifdef LAPACK_FORTRAN_STRLEN_END
9753  #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__, 1, 1)
9754 #else
9755  #define LAPACK_zlanhe(...) LAPACK_zlanhe_base(__VA_ARGS__)
9756 #endif
9757 
9758 #define LAPACK_clanhp_base LAPACK_GLOBAL(clanhp,CLANHP)
9759 lapack_float_return LAPACK_clanhp_base(
9760  char const* norm, char const* uplo,
9761  lapack_int const* n,
9762  lapack_complex_float const* AP,
9763  float* work
9764 #ifdef LAPACK_FORTRAN_STRLEN_END
9765  , size_t, size_t
9766 #endif
9767 );
9768 #ifdef LAPACK_FORTRAN_STRLEN_END
9769  #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__, 1, 1)
9770 #else
9771  #define LAPACK_clanhp(...) LAPACK_clanhp_base(__VA_ARGS__)
9772 #endif
9773 
9774 #define LAPACK_zlanhp_base LAPACK_GLOBAL(zlanhp,ZLANHP)
9775 double LAPACK_zlanhp_base(
9776  char const* norm, char const* uplo,
9777  lapack_int const* n,
9778  lapack_complex_double const* AP,
9779  double* work
9780 #ifdef LAPACK_FORTRAN_STRLEN_END
9781  , size_t, size_t
9782 #endif
9783 );
9784 #ifdef LAPACK_FORTRAN_STRLEN_END
9785  #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__, 1, 1)
9786 #else
9787  #define LAPACK_zlanhp(...) LAPACK_zlanhp_base(__VA_ARGS__)
9788 #endif
9789 
9790 #define LAPACK_clanhs_base LAPACK_GLOBAL(clanhs,CLANHS)
9791 lapack_float_return LAPACK_clanhs_base(
9792  char const* norm,
9793  lapack_int const* n,
9794  lapack_complex_float const* A, lapack_int const* lda,
9795  float* work
9796 #ifdef LAPACK_FORTRAN_STRLEN_END
9797  , size_t
9798 #endif
9799 );
9800 #ifdef LAPACK_FORTRAN_STRLEN_END
9801  #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__, 1)
9802 #else
9803  #define LAPACK_clanhs(...) LAPACK_clanhs_base(__VA_ARGS__)
9804 #endif
9805 
9806 #define LAPACK_dlanhs_base LAPACK_GLOBAL(dlanhs,DLANHS)
9807 double LAPACK_dlanhs_base(
9808  char const* norm,
9809  lapack_int const* n,
9810  double const* A, lapack_int const* lda,
9811  double* work
9812 #ifdef LAPACK_FORTRAN_STRLEN_END
9813  , size_t
9814 #endif
9815 );
9816 #ifdef LAPACK_FORTRAN_STRLEN_END
9817  #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__, 1)
9818 #else
9819  #define LAPACK_dlanhs(...) LAPACK_dlanhs_base(__VA_ARGS__)
9820 #endif
9821 
9822 #define LAPACK_slanhs_base LAPACK_GLOBAL(slanhs,SLANHS)
9823 lapack_float_return LAPACK_slanhs_base(
9824  char const* norm,
9825  lapack_int const* n,
9826  float const* A, lapack_int const* lda,
9827  float* work
9828 #ifdef LAPACK_FORTRAN_STRLEN_END
9829  , size_t
9830 #endif
9831 );
9832 #ifdef LAPACK_FORTRAN_STRLEN_END
9833  #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__, 1)
9834 #else
9835  #define LAPACK_slanhs(...) LAPACK_slanhs_base(__VA_ARGS__)
9836 #endif
9837 
9838 #define LAPACK_zlanhs_base LAPACK_GLOBAL(zlanhs,ZLANHS)
9839 double LAPACK_zlanhs_base(
9840  char const* norm,
9841  lapack_int const* n,
9842  lapack_complex_double const* A, lapack_int const* lda,
9843  double* work
9844 #ifdef LAPACK_FORTRAN_STRLEN_END
9845  , size_t
9846 #endif
9847 );
9848 #ifdef LAPACK_FORTRAN_STRLEN_END
9849  #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__, 1)
9850 #else
9851  #define LAPACK_zlanhs(...) LAPACK_zlanhs_base(__VA_ARGS__)
9852 #endif
9853 
9854 #define LAPACK_clanht_base LAPACK_GLOBAL(clanht,CLANHT)
9855 lapack_float_return LAPACK_clanht_base(
9856  char const* norm,
9857  lapack_int const* n,
9858  float const* D,
9859  lapack_complex_float const* E
9860 #ifdef LAPACK_FORTRAN_STRLEN_END
9861  , size_t
9862 #endif
9863 );
9864 #ifdef LAPACK_FORTRAN_STRLEN_END
9865  #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__, 1)
9866 #else
9867  #define LAPACK_clanht(...) LAPACK_clanht_base(__VA_ARGS__)
9868 #endif
9869 
9870 #define LAPACK_zlanht_base LAPACK_GLOBAL(zlanht,ZLANHT)
9871 double LAPACK_zlanht_base(
9872  char const* norm,
9873  lapack_int const* n,
9874  double const* D,
9875  lapack_complex_double const* E
9876 #ifdef LAPACK_FORTRAN_STRLEN_END
9877  , size_t
9878 #endif
9879 );
9880 #ifdef LAPACK_FORTRAN_STRLEN_END
9881  #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__, 1)
9882 #else
9883  #define LAPACK_zlanht(...) LAPACK_zlanht_base(__VA_ARGS__)
9884 #endif
9885 
9886 #define LAPACK_clansb_base LAPACK_GLOBAL(clansb,CLANSB)
9887 lapack_float_return LAPACK_clansb_base(
9888  char const* norm, char const* uplo,
9889  lapack_int const* n, lapack_int const* k,
9890  lapack_complex_float const* AB, lapack_int const* ldab,
9891  float* work
9892 #ifdef LAPACK_FORTRAN_STRLEN_END
9893  , size_t, size_t
9894 #endif
9895 );
9896 #ifdef LAPACK_FORTRAN_STRLEN_END
9897  #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__, 1, 1)
9898 #else
9899  #define LAPACK_clansb(...) LAPACK_clansb_base(__VA_ARGS__)
9900 #endif
9901 
9902 #define LAPACK_dlansb_base LAPACK_GLOBAL(dlansb,DLANSB)
9903 double LAPACK_dlansb_base(
9904  char const* norm, char const* uplo,
9905  lapack_int const* n, lapack_int const* k,
9906  double const* AB, lapack_int const* ldab,
9907  double* work
9908 #ifdef LAPACK_FORTRAN_STRLEN_END
9909  , size_t, size_t
9910 #endif
9911 );
9912 #ifdef LAPACK_FORTRAN_STRLEN_END
9913  #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__, 1, 1)
9914 #else
9915  #define LAPACK_dlansb(...) LAPACK_dlansb_base(__VA_ARGS__)
9916 #endif
9917 
9918 #define LAPACK_slansb_base LAPACK_GLOBAL(slansb,SLANSB)
9919 lapack_float_return LAPACK_slansb_base(
9920  char const* norm, char const* uplo,
9921  lapack_int const* n, lapack_int const* k,
9922  float const* AB, lapack_int const* ldab,
9923  float* work
9924 #ifdef LAPACK_FORTRAN_STRLEN_END
9925  , size_t, size_t
9926 #endif
9927 );
9928 #ifdef LAPACK_FORTRAN_STRLEN_END
9929  #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__, 1, 1)
9930 #else
9931  #define LAPACK_slansb(...) LAPACK_slansb_base(__VA_ARGS__)
9932 #endif
9933 
9934 #define LAPACK_zlansb_base LAPACK_GLOBAL(zlansb,ZLANSB)
9935 double LAPACK_zlansb_base(
9936  char const* norm, char const* uplo,
9937  lapack_int const* n, lapack_int const* k,
9938  lapack_complex_double const* AB, lapack_int const* ldab,
9939  double* work
9940 #ifdef LAPACK_FORTRAN_STRLEN_END
9941  , size_t, size_t
9942 #endif
9943 );
9944 #ifdef LAPACK_FORTRAN_STRLEN_END
9945  #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__, 1, 1)
9946 #else
9947  #define LAPACK_zlansb(...) LAPACK_zlansb_base(__VA_ARGS__)
9948 #endif
9949 
9950 #define LAPACK_clansp_base LAPACK_GLOBAL(clansp,CLANSP)
9951 lapack_float_return LAPACK_clansp_base(
9952  char const* norm, char const* uplo,
9953  lapack_int const* n,
9954  lapack_complex_float const* AP,
9955  float* work
9956 #ifdef LAPACK_FORTRAN_STRLEN_END
9957  , size_t, size_t
9958 #endif
9959 );
9960 #ifdef LAPACK_FORTRAN_STRLEN_END
9961  #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__, 1, 1)
9962 #else
9963  #define LAPACK_clansp(...) LAPACK_clansp_base(__VA_ARGS__)
9964 #endif
9965 
9966 #define LAPACK_dlansp_base LAPACK_GLOBAL(dlansp,DLANSP)
9967 double LAPACK_dlansp_base(
9968  char const* norm, char const* uplo,
9969  lapack_int const* n,
9970  double const* AP,
9971  double* work
9972 #ifdef LAPACK_FORTRAN_STRLEN_END
9973  , size_t, size_t
9974 #endif
9975 );
9976 #ifdef LAPACK_FORTRAN_STRLEN_END
9977  #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__, 1, 1)
9978 #else
9979  #define LAPACK_dlansp(...) LAPACK_dlansp_base(__VA_ARGS__)
9980 #endif
9981 
9982 #define LAPACK_slansp_base LAPACK_GLOBAL(slansp,SLANSP)
9983 lapack_float_return LAPACK_slansp_base(
9984  char const* norm, char const* uplo,
9985  lapack_int const* n,
9986  float const* AP,
9987  float* work
9988 #ifdef LAPACK_FORTRAN_STRLEN_END
9989  , size_t, size_t
9990 #endif
9991 );
9992 #ifdef LAPACK_FORTRAN_STRLEN_END
9993  #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__, 1, 1)
9994 #else
9995  #define LAPACK_slansp(...) LAPACK_slansp_base(__VA_ARGS__)
9996 #endif
9997 
9998 #define LAPACK_zlansp_base LAPACK_GLOBAL(zlansp,ZLANSP)
9999 double LAPACK_zlansp_base(
10000  char const* norm, char const* uplo,
10001  lapack_int const* n,
10002  lapack_complex_double const* AP,
10003  double* work
10004 #ifdef LAPACK_FORTRAN_STRLEN_END
10005  , size_t, size_t
10006 #endif
10007 );
10008 #ifdef LAPACK_FORTRAN_STRLEN_END
10009  #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__, 1, 1)
10010 #else
10011  #define LAPACK_zlansp(...) LAPACK_zlansp_base(__VA_ARGS__)
10012 #endif
10013 
10014 #define LAPACK_dlanst_base LAPACK_GLOBAL(dlanst,DLANST)
10015 double LAPACK_dlanst_base(
10016  char const* norm,
10017  lapack_int const* n,
10018  double const* D,
10019  double const* E
10020 #ifdef LAPACK_FORTRAN_STRLEN_END
10021  , size_t
10022 #endif
10023 );
10024 #ifdef LAPACK_FORTRAN_STRLEN_END
10025  #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__, 1)
10026 #else
10027  #define LAPACK_dlanst(...) LAPACK_dlanst_base(__VA_ARGS__)
10028 #endif
10029 
10030 #define LAPACK_slanst_base LAPACK_GLOBAL(slanst,SLANST)
10031 lapack_float_return LAPACK_slanst_base(
10032  char const* norm,
10033  lapack_int const* n,
10034  float const* D,
10035  float const* E
10036 #ifdef LAPACK_FORTRAN_STRLEN_END
10037  , size_t
10038 #endif
10039 );
10040 #ifdef LAPACK_FORTRAN_STRLEN_END
10041  #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__, 1)
10042 #else
10043  #define LAPACK_slanst(...) LAPACK_slanst_base(__VA_ARGS__)
10044 #endif
10045 
10046 #define LAPACK_clansy_base LAPACK_GLOBAL(clansy,CLANSY)
10047 lapack_float_return LAPACK_clansy_base(
10048  char const* norm, char const* uplo,
10049  lapack_int const* n,
10050  lapack_complex_float const* A, lapack_int const* lda,
10051  float* work
10052 #ifdef LAPACK_FORTRAN_STRLEN_END
10053  , size_t, size_t
10054 #endif
10055 );
10056 #ifdef LAPACK_FORTRAN_STRLEN_END
10057  #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__, 1, 1)
10058 #else
10059  #define LAPACK_clansy(...) LAPACK_clansy_base(__VA_ARGS__)
10060 #endif
10061 
10062 #define LAPACK_dlansy_base LAPACK_GLOBAL(dlansy,DLANSY)
10063 double LAPACK_dlansy_base(
10064  char const* norm, char const* uplo,
10065  lapack_int const* n,
10066  double const* A, lapack_int const* lda,
10067  double* work
10068 #ifdef LAPACK_FORTRAN_STRLEN_END
10069  , size_t, size_t
10070 #endif
10071 );
10072 #ifdef LAPACK_FORTRAN_STRLEN_END
10073  #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__, 1, 1)
10074 #else
10075  #define LAPACK_dlansy(...) LAPACK_dlansy_base(__VA_ARGS__)
10076 #endif
10077 
10078 #define LAPACK_slansy_base LAPACK_GLOBAL(slansy,SLANSY)
10079 lapack_float_return LAPACK_slansy_base(
10080  char const* norm, char const* uplo,
10081  lapack_int const* n,
10082  float const* A, lapack_int const* lda,
10083  float* work
10084 #ifdef LAPACK_FORTRAN_STRLEN_END
10085  , size_t, size_t
10086 #endif
10087 );
10088 #ifdef LAPACK_FORTRAN_STRLEN_END
10089  #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__, 1, 1)
10090 #else
10091  #define LAPACK_slansy(...) LAPACK_slansy_base(__VA_ARGS__)
10092 #endif
10093 
10094 #define LAPACK_zlansy_base LAPACK_GLOBAL(zlansy,ZLANSY)
10095 double LAPACK_zlansy_base(
10096  char const* norm, char const* uplo,
10097  lapack_int const* n,
10098  lapack_complex_double const* A, lapack_int const* lda,
10099  double* work
10100 #ifdef LAPACK_FORTRAN_STRLEN_END
10101  , size_t, size_t
10102 #endif
10103 );
10104 #ifdef LAPACK_FORTRAN_STRLEN_END
10105  #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__, 1, 1)
10106 #else
10107  #define LAPACK_zlansy(...) LAPACK_zlansy_base(__VA_ARGS__)
10108 #endif
10109 
10110 #define LAPACK_clantb_base LAPACK_GLOBAL(clantb,CLANTB)
10111 lapack_float_return LAPACK_clantb_base(
10112  char const* norm, char const* uplo, char const* diag,
10113  lapack_int const* n, lapack_int const* k,
10114  lapack_complex_float const* AB, lapack_int const* ldab,
10115  float* 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_clantb(...) LAPACK_clantb_base(__VA_ARGS__, 1, 1, 1)
10122 #else
10123  #define LAPACK_clantb(...) LAPACK_clantb_base(__VA_ARGS__)
10124 #endif
10125 
10126 #define LAPACK_dlantb_base LAPACK_GLOBAL(dlantb,DLANTB)
10127 double LAPACK_dlantb_base(
10128  char const* norm, char const* uplo, char const* diag,
10129  lapack_int const* n, lapack_int const* k,
10130  double const* AB, lapack_int const* ldab,
10131  double* 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_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__, 1, 1, 1)
10138 #else
10139  #define LAPACK_dlantb(...) LAPACK_dlantb_base(__VA_ARGS__)
10140 #endif
10141 
10142 #define LAPACK_slantb_base LAPACK_GLOBAL(slantb,SLANTB)
10143 lapack_float_return LAPACK_slantb_base(
10144  char const* norm, char const* uplo, char const* diag,
10145  lapack_int const* n, lapack_int const* k,
10146  float const* AB, lapack_int const* ldab,
10147  float* 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_slantb(...) LAPACK_slantb_base(__VA_ARGS__, 1, 1, 1)
10154 #else
10155  #define LAPACK_slantb(...) LAPACK_slantb_base(__VA_ARGS__)
10156 #endif
10157 
10158 #define LAPACK_zlantb_base LAPACK_GLOBAL(zlantb,ZLANTB)
10159 double LAPACK_zlantb_base(
10160  char const* norm, char const* uplo, char const* diag,
10161  lapack_int const* n, lapack_int const* k,
10162  lapack_complex_double const* AB, lapack_int const* ldab,
10163  double* 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_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__, 1, 1, 1)
10170 #else
10171  #define LAPACK_zlantb(...) LAPACK_zlantb_base(__VA_ARGS__)
10172 #endif
10173 
10174 #define LAPACK_clantp_base LAPACK_GLOBAL(clantp,CLANTP)
10175 lapack_float_return LAPACK_clantp_base(
10176  char const* norm, char const* uplo, char const* diag,
10177  lapack_int const* n,
10178  lapack_complex_float const* AP,
10179  float* 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_clantp(...) LAPACK_clantp_base(__VA_ARGS__, 1, 1, 1)
10186 #else
10187  #define LAPACK_clantp(...) LAPACK_clantp_base(__VA_ARGS__)
10188 #endif
10189 
10190 #define LAPACK_dlantp_base LAPACK_GLOBAL(dlantp,DLANTP)
10191 double LAPACK_dlantp_base(
10192  char const* norm, char const* uplo, char const* diag,
10193  lapack_int const* n,
10194  double const* AP,
10195  double* 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_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__, 1, 1, 1)
10202 #else
10203  #define LAPACK_dlantp(...) LAPACK_dlantp_base(__VA_ARGS__)
10204 #endif
10205 
10206 #define LAPACK_slantp_base LAPACK_GLOBAL(slantp,SLANTP)
10207 lapack_float_return LAPACK_slantp_base(
10208  char const* norm, char const* uplo, char const* diag,
10209  lapack_int const* n,
10210  float const* AP,
10211  float* 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_slantp(...) LAPACK_slantp_base(__VA_ARGS__, 1, 1, 1)
10218 #else
10219  #define LAPACK_slantp(...) LAPACK_slantp_base(__VA_ARGS__)
10220 #endif
10221 
10222 #define LAPACK_zlantp_base LAPACK_GLOBAL(zlantp,ZLANTP)
10223 double LAPACK_zlantp_base(
10224  char const* norm, char const* uplo, char const* diag,
10225  lapack_int const* n,
10226  lapack_complex_double const* AP,
10227  double* 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_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__, 1, 1, 1)
10234 #else
10235  #define LAPACK_zlantp(...) LAPACK_zlantp_base(__VA_ARGS__)
10236 #endif
10237 
10238 #define LAPACK_clantr_base LAPACK_GLOBAL(clantr,CLANTR)
10239 lapack_float_return LAPACK_clantr_base(
10240  char const* norm, char const* uplo, char const* diag,
10241  lapack_int const* m, lapack_int const* n,
10242  lapack_complex_float const* A, lapack_int const* lda,
10243  float* 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_clantr(...) LAPACK_clantr_base(__VA_ARGS__, 1, 1, 1)
10250 #else
10251  #define LAPACK_clantr(...) LAPACK_clantr_base(__VA_ARGS__)
10252 #endif
10253 
10254 #define LAPACK_dlantr_base LAPACK_GLOBAL(dlantr,DLANTR)
10255 double LAPACK_dlantr_base(
10256  char const* norm, char const* uplo, char const* diag,
10257  lapack_int const* m, lapack_int const* n,
10258  double const* A, lapack_int const* lda,
10259  double* 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_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__, 1, 1, 1)
10266 #else
10267  #define LAPACK_dlantr(...) LAPACK_dlantr_base(__VA_ARGS__)
10268 #endif
10269 
10270 #define LAPACK_slantr_base LAPACK_GLOBAL(slantr,SLANTR)
10271 lapack_float_return LAPACK_slantr_base(
10272  char const* norm, char const* uplo, char const* diag,
10273  lapack_int const* m, lapack_int const* n,
10274  float const* A, lapack_int const* lda,
10275  float* 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_slantr(...) LAPACK_slantr_base(__VA_ARGS__, 1, 1, 1)
10282 #else
10283  #define LAPACK_slantr(...) LAPACK_slantr_base(__VA_ARGS__)
10284 #endif
10285 
10286 #define LAPACK_zlantr_base LAPACK_GLOBAL(zlantr,ZLANTR)
10287 double LAPACK_zlantr_base(
10288  char const* norm, char const* uplo, char const* diag,
10289  lapack_int const* m, lapack_int const* n,
10290  lapack_complex_double const* A, lapack_int const* lda,
10291  double* work
10292 #ifdef LAPACK_FORTRAN_STRLEN_END
10293  , size_t, size_t, size_t
10294 #endif
10295 );
10296 #ifdef LAPACK_FORTRAN_STRLEN_END
10297  #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__, 1, 1, 1)
10298 #else
10299  #define LAPACK_zlantr(...) LAPACK_zlantr_base(__VA_ARGS__)
10300 #endif
10301 
10302 #define LAPACK_clapmr LAPACK_GLOBAL(clapmr,CLAPMR)
10303 void LAPACK_clapmr(
10304  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10305  lapack_complex_float* X, lapack_int const* ldx, lapack_int* K );
10306 
10307 #define LAPACK_dlapmr LAPACK_GLOBAL(dlapmr,DLAPMR)
10308 void LAPACK_dlapmr(
10309  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10310  double* X, lapack_int const* ldx, lapack_int* K );
10311 
10312 #define LAPACK_slapmr LAPACK_GLOBAL(slapmr,SLAPMR)
10313 void LAPACK_slapmr(
10314  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10315  float* X, lapack_int const* ldx, lapack_int* K );
10316 
10317 #define LAPACK_zlapmr LAPACK_GLOBAL(zlapmr,ZLAPMR)
10318 void LAPACK_zlapmr(
10319  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10320  lapack_complex_double* X, lapack_int const* ldx, lapack_int* K );
10321 
10322 #define LAPACK_clapmt LAPACK_GLOBAL(clapmt,CLAPMT)
10323 void LAPACK_clapmt(
10324  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10325  lapack_complex_float* X, lapack_int const* ldx, lapack_int* K );
10326 
10327 #define LAPACK_dlapmt LAPACK_GLOBAL(dlapmt,DLAPMT)
10328 void LAPACK_dlapmt(
10329  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10330  double* X, lapack_int const* ldx, lapack_int* K );
10331 
10332 #define LAPACK_slapmt LAPACK_GLOBAL(slapmt,SLAPMT)
10333 void LAPACK_slapmt(
10334  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10335  float* X, lapack_int const* ldx, lapack_int* K );
10336 
10337 #define LAPACK_zlapmt LAPACK_GLOBAL(zlapmt,ZLAPMT)
10338 void LAPACK_zlapmt(
10339  lapack_logical const* forwrd, lapack_int const* m, lapack_int const* n,
10340  lapack_complex_double* X, lapack_int const* ldx, lapack_int* K );
10341 
10342 #define LAPACK_dlapy2 LAPACK_GLOBAL(dlapy2,DLAPY2)
10343 double LAPACK_dlapy2(
10344  double const* x,
10345  double const* y );
10346 
10347 #define LAPACK_slapy2 LAPACK_GLOBAL(slapy2,SLAPY2)
10348 lapack_float_return LAPACK_slapy2(
10349  float const* x,
10350  float const* y );
10351 
10352 #define LAPACK_dlapy3 LAPACK_GLOBAL(dlapy3,DLAPY3)
10353 double LAPACK_dlapy3(
10354  double const* x,
10355  double const* y,
10356  double const* z );
10357 
10358 #define LAPACK_slapy3 LAPACK_GLOBAL(slapy3,SLAPY3)
10359 lapack_float_return LAPACK_slapy3(
10360  float const* x,
10361  float const* y,
10362  float const* z );
10363 
10364 #define LAPACK_clarcm LAPACK_GLOBAL(clarcm,CLARCM)
10365 void LAPACK_clarcm(
10366  lapack_int const* m, lapack_int const* n,
10367  float const* A, lapack_int const* lda,
10368  lapack_complex_float const* B, lapack_int const* ldb,
10369  lapack_complex_float* C, lapack_int const* ldc,
10370  float* rwork );
10371 
10372 #define LAPACK_zlarcm LAPACK_GLOBAL(zlarcm,ZLARCM)
10373 void LAPACK_zlarcm(
10374  lapack_int const* m, lapack_int const* n,
10375  double const* A, lapack_int const* lda,
10376  lapack_complex_double const* B, lapack_int const* ldb,
10377  lapack_complex_double* C, lapack_int const* ldc,
10378  double* rwork );
10379 
10380 #define LAPACK_clarf_base LAPACK_GLOBAL(clarf,CLARF)
10381 void LAPACK_clarf_base(
10382  char const* side,
10383  lapack_int const* m, lapack_int const* n,
10384  lapack_complex_float const* V, lapack_int const* incv,
10385  lapack_complex_float const* tau,
10386  lapack_complex_float* C, lapack_int const* ldc,
10387  lapack_complex_float* work
10388 #ifdef LAPACK_FORTRAN_STRLEN_END
10389  , size_t
10390 #endif
10391 );
10392 #ifdef LAPACK_FORTRAN_STRLEN_END
10393  #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__, 1)
10394 #else
10395  #define LAPACK_clarf(...) LAPACK_clarf_base(__VA_ARGS__)
10396 #endif
10397 
10398 #define LAPACK_dlarf_base LAPACK_GLOBAL(dlarf,DLARF)
10399 void LAPACK_dlarf_base(
10400  char const* side,
10401  lapack_int const* m, lapack_int const* n,
10402  double const* V, lapack_int const* incv,
10403  double const* tau,
10404  double* C, lapack_int const* ldc,
10405  double* work
10406 #ifdef LAPACK_FORTRAN_STRLEN_END
10407  , size_t
10408 #endif
10409 );
10410 #ifdef LAPACK_FORTRAN_STRLEN_END
10411  #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__, 1)
10412 #else
10413  #define LAPACK_dlarf(...) LAPACK_dlarf_base(__VA_ARGS__)
10414 #endif
10415 
10416 #define LAPACK_slarf_base LAPACK_GLOBAL(slarf,SLARF)
10417 void LAPACK_slarf_base(
10418  char const* side,
10419  lapack_int const* m, lapack_int const* n,
10420  float const* V, lapack_int const* incv,
10421  float const* tau,
10422  float* C, lapack_int const* ldc,
10423  float* work
10424 #ifdef LAPACK_FORTRAN_STRLEN_END
10425  , size_t
10426 #endif
10427 );
10428 #ifdef LAPACK_FORTRAN_STRLEN_END
10429  #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__, 1)
10430 #else
10431  #define LAPACK_slarf(...) LAPACK_slarf_base(__VA_ARGS__)
10432 #endif
10433 
10434 #define LAPACK_zlarf_base LAPACK_GLOBAL(zlarf,ZLARF)
10435 void LAPACK_zlarf_base(
10436  char const* side,
10437  lapack_int const* m, lapack_int const* n,
10438  lapack_complex_double const* V, lapack_int const* incv,
10439  lapack_complex_double const* tau,
10440  lapack_complex_double* C, lapack_int const* ldc,
10441  lapack_complex_double* work
10442 #ifdef LAPACK_FORTRAN_STRLEN_END
10443  , size_t
10444 #endif
10445 );
10446 #ifdef LAPACK_FORTRAN_STRLEN_END
10447  #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__, 1)
10448 #else
10449  #define LAPACK_zlarf(...) LAPACK_zlarf_base(__VA_ARGS__)
10450 #endif
10451 
10452 #define LAPACK_clarfb_base LAPACK_GLOBAL(clarfb,CLARFB)
10453 void LAPACK_clarfb_base(
10454  char const* side, char const* trans, char const* direct, char const* storev,
10455  lapack_int const* m, lapack_int const* n, lapack_int const* k,
10456  lapack_complex_float const* V, lapack_int const* ldv,
10457  lapack_complex_float const* T, lapack_int const* ldt,
10458  lapack_complex_float* C, lapack_int const* ldc,
10459  lapack_complex_float* work, lapack_int const* ldwork
10460 #ifdef LAPACK_FORTRAN_STRLEN_END
10461  , size_t, size_t, size_t, size_t
10462 #endif
10463 );
10464 #ifdef LAPACK_FORTRAN_STRLEN_END
10465  #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10466 #else
10467  #define LAPACK_clarfb(...) LAPACK_clarfb_base(__VA_ARGS__)
10468 #endif
10469 
10470 #define LAPACK_dlarfb_base LAPACK_GLOBAL(dlarfb,DLARFB)
10471 void LAPACK_dlarfb_base(
10472  char const* side, char const* trans, char const* direct, char const* storev,
10473  lapack_int const* m, lapack_int const* n, lapack_int const* k,
10474  double const* V, lapack_int const* ldv,
10475  double const* T, lapack_int const* ldt,
10476  double* C, lapack_int const* ldc,
10477  double* work, lapack_int const* ldwork
10478 #ifdef LAPACK_FORTRAN_STRLEN_END
10479  , size_t, size_t, size_t, size_t
10480 #endif
10481 );
10482 #ifdef LAPACK_FORTRAN_STRLEN_END
10483  #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10484 #else
10485  #define LAPACK_dlarfb(...) LAPACK_dlarfb_base(__VA_ARGS__)
10486 #endif
10487 
10488 #define LAPACK_slarfb_base LAPACK_GLOBAL(slarfb,SLARFB)
10489 void LAPACK_slarfb_base(
10490  char const* side, char const* trans, char const* direct, char const* storev,
10491  lapack_int const* m, lapack_int const* n, lapack_int const* k,
10492  float const* V, lapack_int const* ldv,
10493  float const* T, lapack_int const* ldt,
10494  float* C, lapack_int const* ldc,
10495  float* work, lapack_int const* ldwork
10496 #ifdef LAPACK_FORTRAN_STRLEN_END
10497  , size_t, size_t, size_t, size_t
10498 #endif
10499 );
10500 #ifdef LAPACK_FORTRAN_STRLEN_END
10501  #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10502 #else
10503  #define LAPACK_slarfb(...) LAPACK_slarfb_base(__VA_ARGS__)
10504 #endif
10505 
10506 #define LAPACK_zlarfb_base LAPACK_GLOBAL(zlarfb,ZLARFB)
10507 void LAPACK_zlarfb_base(
10508  char const* side, char const* trans, char const* direct, char const* storev,
10509  lapack_int const* m, lapack_int const* n, lapack_int const* k,
10510  lapack_complex_double const* V, lapack_int const* ldv,
10511  lapack_complex_double const* T, lapack_int const* ldt,
10512  lapack_complex_double* C, lapack_int const* ldc,
10513  lapack_complex_double* work, lapack_int const* ldwork
10514 #ifdef LAPACK_FORTRAN_STRLEN_END
10515  , size_t, size_t, size_t, size_t
10516 #endif
10517 );
10518 #ifdef LAPACK_FORTRAN_STRLEN_END
10519  #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__, 1, 1, 1, 1)
10520 #else
10521  #define LAPACK_zlarfb(...) LAPACK_zlarfb_base(__VA_ARGS__)
10522 #endif
10523 
10524 #define LAPACK_clarfg LAPACK_GLOBAL(clarfg,CLARFG)
10525 void LAPACK_clarfg(
10526  lapack_int const* n,
10527  lapack_complex_float* alpha,
10528  lapack_complex_float* X, lapack_int const* incx,
10529  lapack_complex_float* tau );
10530 
10531 #define LAPACK_dlarfg LAPACK_GLOBAL(dlarfg,DLARFG)
10532 void LAPACK_dlarfg(
10533  lapack_int const* n,
10534  double* alpha,
10535  double* X, lapack_int const* incx,
10536  double* tau );
10537 
10538 #define LAPACK_slarfg LAPACK_GLOBAL(slarfg,SLARFG)
10539 void LAPACK_slarfg(
10540  lapack_int const* n,
10541  float* alpha,
10542  float* X, lapack_int const* incx,
10543  float* tau );
10544 
10545 #define LAPACK_zlarfg LAPACK_GLOBAL(zlarfg,ZLARFG)
10546 void LAPACK_zlarfg(
10547  lapack_int const* n,
10548  lapack_complex_double* alpha,
10549  lapack_complex_double* X, lapack_int const* incx,
10550  lapack_complex_double* tau );
10551 
10552 #define LAPACK_clarft_base LAPACK_GLOBAL(clarft,CLARFT)
10553 void LAPACK_clarft_base(
10554  char const* direct, char const* storev,
10555  lapack_int const* n, lapack_int const* k,
10556  lapack_complex_float const* V, lapack_int const* ldv,
10557  lapack_complex_float const* tau,
10558  lapack_complex_float* T, lapack_int const* ldt
10559 #ifdef LAPACK_FORTRAN_STRLEN_END
10560  , size_t, size_t
10561 #endif
10562 );
10563 #ifdef LAPACK_FORTRAN_STRLEN_END
10564  #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__, 1, 1)
10565 #else
10566  #define LAPACK_clarft(...) LAPACK_clarft_base(__VA_ARGS__)
10567 #endif
10568 
10569 #define LAPACK_dlarft_base LAPACK_GLOBAL(dlarft,DLARFT)
10570 void LAPACK_dlarft_base(
10571  char const* direct, char const* storev,
10572  lapack_int const* n, lapack_int const* k,
10573  double const* V, lapack_int const* ldv,
10574  double const* tau,
10575  double* T, lapack_int const* ldt
10576 #ifdef LAPACK_FORTRAN_STRLEN_END
10577  , size_t, size_t
10578 #endif
10579 );
10580 #ifdef LAPACK_FORTRAN_STRLEN_END
10581  #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__, 1, 1)
10582 #else
10583  #define LAPACK_dlarft(...) LAPACK_dlarft_base(__VA_ARGS__)
10584 #endif
10585 
10586 #define LAPACK_slarft_base LAPACK_GLOBAL(slarft,SLARFT)
10587 void LAPACK_slarft_base(
10588  char const* direct, char const* storev,
10589  lapack_int const* n, lapack_int const* k,
10590  float const* V, lapack_int const* ldv,
10591  float const* tau,
10592  float* T, lapack_int const* ldt
10593 #ifdef LAPACK_FORTRAN_STRLEN_END
10594  , size_t, size_t
10595 #endif
10596 );
10597 #ifdef LAPACK_FORTRAN_STRLEN_END
10598  #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__, 1, 1)
10599 #else
10600  #define LAPACK_slarft(...) LAPACK_slarft_base(__VA_ARGS__)
10601 #endif
10602 
10603 #define LAPACK_zlarft_base LAPACK_GLOBAL(zlarft,ZLARFT)
10604 void LAPACK_zlarft_base(
10605  char const* direct, char const* storev,
10606  lapack_int const* n, lapack_int const* k,
10607  lapack_complex_double const* V, lapack_int const* ldv,
10608  lapack_complex_double const* tau,
10609  lapack_complex_double* T, lapack_int const* ldt
10610 #ifdef LAPACK_FORTRAN_STRLEN_END
10611  , size_t, size_t
10612 #endif
10613 );
10614 #ifdef LAPACK_FORTRAN_STRLEN_END
10615  #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__, 1, 1)
10616 #else
10617  #define LAPACK_zlarft(...) LAPACK_zlarft_base(__VA_ARGS__)
10618 #endif
10619 
10620 #define LAPACK_clarfx_base LAPACK_GLOBAL(clarfx,CLARFX)
10621 void LAPACK_clarfx_base(
10622  char const* side,
10623  lapack_int const* m, lapack_int const* n,
10624  lapack_complex_float const* V,
10625  lapack_complex_float const* tau,
10626  lapack_complex_float* C, lapack_int const* ldc,
10627  lapack_complex_float* work
10628 #ifdef LAPACK_FORTRAN_STRLEN_END
10629  , size_t
10630 #endif
10631 );
10632 #ifdef LAPACK_FORTRAN_STRLEN_END
10633  #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__, 1)
10634 #else
10635  #define LAPACK_clarfx(...) LAPACK_clarfx_base(__VA_ARGS__)
10636 #endif
10637 
10638 #define LAPACK_dlarfx_base LAPACK_GLOBAL(dlarfx,DLARFX)
10639 void LAPACK_dlarfx_base(
10640  char const* side,
10641  lapack_int const* m, lapack_int const* n,
10642  double const* V,
10643  double const* tau,
10644  double* C, lapack_int const* ldc,
10645  double* work
10646 #ifdef LAPACK_FORTRAN_STRLEN_END
10647  , size_t
10648 #endif
10649 );
10650 #ifdef LAPACK_FORTRAN_STRLEN_END
10651  #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__, 1)
10652 #else
10653  #define LAPACK_dlarfx(...) LAPACK_dlarfx_base(__VA_ARGS__)
10654 #endif
10655 
10656 #define LAPACK_slarfx_base LAPACK_GLOBAL(slarfx,SLARFX)
10657 void LAPACK_slarfx_base(
10658  char const* side,
10659  lapack_int const* m, lapack_int const* n,
10660  float const* V,
10661  float const* tau,
10662  float* C, lapack_int const* ldc,
10663  float* work
10664 #ifdef LAPACK_FORTRAN_STRLEN_END
10665  , size_t
10666 #endif
10667 );
10668 #ifdef LAPACK_FORTRAN_STRLEN_END
10669  #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__, 1)
10670 #else
10671  #define LAPACK_slarfx(...) LAPACK_slarfx_base(__VA_ARGS__)
10672 #endif
10673 
10674 #define LAPACK_zlarfx_base LAPACK_GLOBAL(zlarfx,ZLARFX)
10675 void LAPACK_zlarfx_base(
10676  char const* side,
10677  lapack_int const* m, lapack_int const* n,
10678  lapack_complex_double const* V,
10679  lapack_complex_double const* tau,
10680  lapack_complex_double* C, lapack_int const* ldc,
10681  lapack_complex_double* work
10682 #ifdef LAPACK_FORTRAN_STRLEN_END
10683  , size_t
10684 #endif
10685 );
10686 #ifdef LAPACK_FORTRAN_STRLEN_END
10687  #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__, 1)
10688 #else
10689  #define LAPACK_zlarfx(...) LAPACK_zlarfx_base(__VA_ARGS__)
10690 #endif
10691 
10692 #define LAPACK_clarnv LAPACK_GLOBAL(clarnv,CLARNV)
10693 void LAPACK_clarnv(
10694  lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10695  lapack_complex_float* X );
10696 
10697 #define LAPACK_dlarnv LAPACK_GLOBAL(dlarnv,DLARNV)
10698 void LAPACK_dlarnv(
10699  lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10700  double* X );
10701 
10702 #define LAPACK_slarnv LAPACK_GLOBAL(slarnv,SLARNV)
10703 void LAPACK_slarnv(
10704  lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10705  float* X );
10706 
10707 #define LAPACK_zlarnv LAPACK_GLOBAL(zlarnv,ZLARNV)
10708 void LAPACK_zlarnv(
10709  lapack_int const* idist, lapack_int* iseed, lapack_int const* n,
10710  lapack_complex_double* X );
10711 
10712 #define LAPACK_dlartgp LAPACK_GLOBAL(dlartgp,DLARTGP)
10713 void LAPACK_dlartgp(
10714  double const* f,
10715  double const* g,
10716  double* cs,
10717  double* sn,
10718  double* r );
10719 
10720 #define LAPACK_slartgp LAPACK_GLOBAL(slartgp,SLARTGP)
10721 void LAPACK_slartgp(
10722  float const* f,
10723  float const* g,
10724  float* cs,
10725  float* sn,
10726  float* r );
10727 
10728 #define LAPACK_dlartgs LAPACK_GLOBAL(dlartgs,DLARTGS)
10729 void LAPACK_dlartgs(
10730  double const* x,
10731  double const* y,
10732  double const* sigma,
10733  double* cs,
10734  double* sn );
10735 
10736 #define LAPACK_slartgs LAPACK_GLOBAL(slartgs,SLARTGS)
10737 void LAPACK_slartgs(
10738  float const* x,
10739  float const* y,
10740  float const* sigma,
10741  float* cs,
10742  float* sn );
10743 
10744 #define LAPACK_clascl_base LAPACK_GLOBAL(clascl,CLASCL)
10745 void LAPACK_clascl_base(
10746  char const* type,
10747  lapack_int const* kl, lapack_int const* ku,
10748  float const* cfrom,
10749  float const* cto, lapack_int const* m, lapack_int const* n,
10750  lapack_complex_float* A, lapack_int const* lda,
10751  lapack_int* info
10752 #ifdef LAPACK_FORTRAN_STRLEN_END
10753  , size_t
10754 #endif
10755 );
10756 #ifdef LAPACK_FORTRAN_STRLEN_END
10757  #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__, 1)
10758 #else
10759  #define LAPACK_clascl(...) LAPACK_clascl_base(__VA_ARGS__)
10760 #endif
10761 
10762 #define LAPACK_dlascl_base LAPACK_GLOBAL(dlascl,DLASCL)
10763 void LAPACK_dlascl_base(
10764  char const* type,
10765  lapack_int const* kl, lapack_int const* ku,
10766  double const* cfrom,
10767  double const* cto, lapack_int const* m, lapack_int const* n,
10768  double* A, lapack_int const* lda,
10769  lapack_int* info
10770 #ifdef LAPACK_FORTRAN_STRLEN_END
10771  , size_t
10772 #endif
10773 );
10774 #ifdef LAPACK_FORTRAN_STRLEN_END
10775  #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__, 1)
10776 #else
10777  #define LAPACK_dlascl(...) LAPACK_dlascl_base(__VA_ARGS__)
10778 #endif
10779 
10780 #define LAPACK_slascl_base LAPACK_GLOBAL(slascl,SLASCL)
10781 void LAPACK_slascl_base(
10782  char const* type,
10783  lapack_int const* kl, lapack_int const* ku,
10784  float const* cfrom,
10785  float const* cto, lapack_int const* m, lapack_int const* n,
10786  float* A, lapack_int const* lda,
10787  lapack_int* info
10788 #ifdef LAPACK_FORTRAN_STRLEN_END
10789  , size_t
10790 #endif
10791 );
10792 #ifdef LAPACK_FORTRAN_STRLEN_END
10793  #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__, 1)
10794 #else
10795  #define LAPACK_slascl(...) LAPACK_slascl_base(__VA_ARGS__)
10796 #endif
10797 
10798 #define LAPACK_zlascl_base LAPACK_GLOBAL(zlascl,ZLASCL)
10799 void LAPACK_zlascl_base(
10800  char const* type,
10801  lapack_int const* kl, lapack_int const* ku,
10802  double const* cfrom,
10803  double const* cto, lapack_int const* m, lapack_int const* n,
10804  lapack_complex_double* A, lapack_int const* lda,
10805  lapack_int* info
10806 #ifdef LAPACK_FORTRAN_STRLEN_END
10807  , size_t
10808 #endif
10809 );
10810 #ifdef LAPACK_FORTRAN_STRLEN_END
10811  #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__, 1)
10812 #else
10813  #define LAPACK_zlascl(...) LAPACK_zlascl_base(__VA_ARGS__)
10814 #endif
10815 
10816 #define LAPACK_claset_base LAPACK_GLOBAL(claset,CLASET)
10817 void LAPACK_claset_base(
10818  char const* uplo,
10819  lapack_int const* m, lapack_int const* n,
10820  lapack_complex_float const* alpha,
10821  lapack_complex_float const* beta,
10822  lapack_complex_float* A, lapack_int const* lda
10823 #ifdef LAPACK_FORTRAN_STRLEN_END
10824  , size_t
10825 #endif
10826 );
10827 #ifdef LAPACK_FORTRAN_STRLEN_END
10828  #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__, 1)
10829 #else
10830  #define LAPACK_claset(...) LAPACK_claset_base(__VA_ARGS__)
10831 #endif
10832 
10833 #define LAPACK_dlaset_base LAPACK_GLOBAL(dlaset,DLASET)
10834 void LAPACK_dlaset_base(
10835  char const* uplo,
10836  lapack_int const* m, lapack_int const* n,
10837  double const* alpha,
10838  double const* beta,
10839  double* A, lapack_int const* lda
10840 #ifdef LAPACK_FORTRAN_STRLEN_END
10841  , size_t
10842 #endif
10843 );
10844 #ifdef LAPACK_FORTRAN_STRLEN_END
10845  #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__, 1)
10846 #else
10847  #define LAPACK_dlaset(...) LAPACK_dlaset_base(__VA_ARGS__)
10848 #endif
10849 
10850 #define LAPACK_slaset_base LAPACK_GLOBAL(slaset,SLASET)
10851 void LAPACK_slaset_base(
10852  char const* uplo,
10853  lapack_int const* m, lapack_int const* n,
10854  float const* alpha,
10855  float const* beta,
10856  float* A, lapack_int const* lda
10857 #ifdef LAPACK_FORTRAN_STRLEN_END
10858  , size_t
10859 #endif
10860 );
10861 #ifdef LAPACK_FORTRAN_STRLEN_END
10862  #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__, 1)
10863 #else
10864  #define LAPACK_slaset(...) LAPACK_slaset_base(__VA_ARGS__)
10865 #endif
10866 
10867 #define LAPACK_zlaset_base LAPACK_GLOBAL(zlaset,ZLASET)
10868 void LAPACK_zlaset_base(
10869  char const* uplo,
10870  lapack_int const* m, lapack_int const* n,
10871  lapack_complex_double const* alpha,
10872  lapack_complex_double const* beta,
10873  lapack_complex_double* A, lapack_int const* lda
10874 #ifdef LAPACK_FORTRAN_STRLEN_END
10875  , size_t
10876 #endif
10877 );
10878 #ifdef LAPACK_FORTRAN_STRLEN_END
10879  #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__, 1)
10880 #else
10881  #define LAPACK_zlaset(...) LAPACK_zlaset_base(__VA_ARGS__)
10882 #endif
10883 
10884 #define LAPACK_dlasrt_base LAPACK_GLOBAL(dlasrt,DLASRT)
10885 void LAPACK_dlasrt_base(
10886  char const* id,
10887  lapack_int const* n,
10888  double* 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_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__, 1)
10896 #else
10897  #define LAPACK_dlasrt(...) LAPACK_dlasrt_base(__VA_ARGS__)
10898 #endif
10899 
10900 #define LAPACK_slasrt_base LAPACK_GLOBAL(slasrt,SLASRT)
10901 void LAPACK_slasrt_base(
10902  char const* id,
10903  lapack_int const* n,
10904  float* D,
10905  lapack_int* info
10906 #ifdef LAPACK_FORTRAN_STRLEN_END
10907  , size_t
10908 #endif
10909 );
10910 #ifdef LAPACK_FORTRAN_STRLEN_END
10911  #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__, 1)
10912 #else
10913  #define LAPACK_slasrt(...) LAPACK_slasrt_base(__VA_ARGS__)
10914 #endif
10915 
10916 #define LAPACK_classq LAPACK_GLOBAL(classq,CLASSQ)
10917 void LAPACK_classq(
10918  lapack_int const* n,
10919  lapack_complex_float const* X, lapack_int const* incx,
10920  float* scale,
10921  float* sumsq );
10922 
10923 #define LAPACK_dlassq LAPACK_GLOBAL(dlassq,DLASSQ)
10924 void LAPACK_dlassq(
10925  lapack_int const* n,
10926  double const* X, lapack_int const* incx,
10927  double* scale,
10928  double* sumsq );
10929 
10930 #define LAPACK_slassq LAPACK_GLOBAL(slassq,SLASSQ)
10931 void LAPACK_slassq(
10932  lapack_int const* n,
10933  float const* X, lapack_int const* incx,
10934  float* scale,
10935  float* sumsq );
10936 
10937 #define LAPACK_zlassq LAPACK_GLOBAL(zlassq,ZLASSQ)
10938 void LAPACK_zlassq(
10939  lapack_int const* n,
10940  lapack_complex_double const* X, lapack_int const* incx,
10941  double* scale,
10942  double* sumsq );
10943 
10944 #define LAPACK_claswp LAPACK_GLOBAL(claswp,CLASWP)
10945 void LAPACK_claswp(
10946  lapack_int const* n,
10947  lapack_complex_float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10948 
10949 #define LAPACK_dlaswp LAPACK_GLOBAL(dlaswp,DLASWP)
10950 void LAPACK_dlaswp(
10951  lapack_int const* n,
10952  double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10953 
10954 #define LAPACK_slaswp LAPACK_GLOBAL(slaswp,SLASWP)
10955 void LAPACK_slaswp(
10956  lapack_int const* n,
10957  float* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10958 
10959 #define LAPACK_zlaswp LAPACK_GLOBAL(zlaswp,ZLASWP)
10960 void LAPACK_zlaswp(
10961  lapack_int const* n,
10962  lapack_complex_double* A, lapack_int const* lda, lapack_int const* k1, lapack_int const* k2, lapack_int const* ipiv, lapack_int const* incx );
10963 
10964 #define LAPACK_clatms_base LAPACK_GLOBAL(clatms,CLATMS)
10965 void LAPACK_clatms_base(
10966  lapack_int const* m, lapack_int const* n, char const* dist,
10967  lapack_int* iseed, char const* sym,
10968  float* D,
10969  lapack_int const* mode,
10970  float const* cond,
10971  float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
10972  lapack_complex_float* A,
10973  lapack_int const* lda,
10974  lapack_complex_float* work,
10975  lapack_int* info
10976 #ifdef LAPACK_FORTRAN_STRLEN_END
10977  , size_t, size_t, size_t
10978 #endif
10979 );
10980 #ifdef LAPACK_FORTRAN_STRLEN_END
10981  #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__, 1, 1, 1)
10982 #else
10983  #define LAPACK_clatms(...) LAPACK_clatms_base(__VA_ARGS__)
10984 #endif
10985 
10986 #define LAPACK_dlatms_base LAPACK_GLOBAL(dlatms,DLATMS)
10987 void LAPACK_dlatms_base(
10988  lapack_int const* m, lapack_int const* n, char const* dist,
10989  lapack_int* iseed, char const* sym,
10990  double* D,
10991  lapack_int const* mode,
10992  double const* cond,
10993  double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
10994  double* A,
10995  lapack_int const* lda,
10996  double* work,
10997  lapack_int* info
10998 #ifdef LAPACK_FORTRAN_STRLEN_END
10999  , size_t, size_t, size_t
11000 #endif
11001 );
11002 #ifdef LAPACK_FORTRAN_STRLEN_END
11003  #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__, 1, 1, 1)
11004 #else
11005  #define LAPACK_dlatms(...) LAPACK_dlatms_base(__VA_ARGS__)
11006 #endif
11007 
11008 #define LAPACK_slatms_base LAPACK_GLOBAL(slatms,SLATMS)
11009 void LAPACK_slatms_base(
11010  lapack_int const* m, lapack_int const* n, char const* dist,
11011  lapack_int* iseed, char const* sym,
11012  float* D,
11013  lapack_int const* mode,
11014  float const* cond,
11015  float const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11016  float* A,
11017  lapack_int const* lda,
11018  float* work,
11019  lapack_int* info
11020 #ifdef LAPACK_FORTRAN_STRLEN_END
11021  , size_t, size_t, size_t
11022 #endif
11023 );
11024 #ifdef LAPACK_FORTRAN_STRLEN_END
11025  #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__, 1, 1, 1)
11026 #else
11027  #define LAPACK_slatms(...) LAPACK_slatms_base(__VA_ARGS__)
11028 #endif
11029 
11030 #define LAPACK_zlatms_base LAPACK_GLOBAL(zlatms,ZLATMS)
11031 void LAPACK_zlatms_base(
11032  lapack_int const* m, lapack_int const* n, char const* dist,
11033  lapack_int* iseed, char const* sym,
11034  double* D,
11035  lapack_int const* mode,
11036  double const* cond,
11037  double const* dmax, lapack_int const* kl, lapack_int const* ku, char const* pack,
11038  lapack_complex_double* A,
11039  lapack_int const* lda,
11040  lapack_complex_double* work,
11041  lapack_int* info
11042 #ifdef LAPACK_FORTRAN_STRLEN_END
11043  , size_t, size_t, size_t
11044 #endif
11045 );
11046 #ifdef LAPACK_FORTRAN_STRLEN_END
11047  #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__, 1, 1, 1)
11048 #else
11049  #define LAPACK_zlatms(...) LAPACK_zlatms_base(__VA_ARGS__)
11050 #endif
11051 
11052 #define LAPACK_clauum_base LAPACK_GLOBAL(clauum,CLAUUM)
11053 void LAPACK_clauum_base(
11054  char const* uplo,
11055  lapack_int const* n,
11056  lapack_complex_float* 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_clauum(...) LAPACK_clauum_base(__VA_ARGS__, 1)
11064 #else
11065  #define LAPACK_clauum(...) LAPACK_clauum_base(__VA_ARGS__)
11066 #endif
11067 
11068 #define LAPACK_dlauum_base LAPACK_GLOBAL(dlauum,DLAUUM)
11069 void LAPACK_dlauum_base(
11070  char const* uplo,
11071  lapack_int const* n,
11072  double* 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_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__, 1)
11080 #else
11081  #define LAPACK_dlauum(...) LAPACK_dlauum_base(__VA_ARGS__)
11082 #endif
11083 
11084 #define LAPACK_slauum_base LAPACK_GLOBAL(slauum,SLAUUM)
11085 void LAPACK_slauum_base(
11086  char const* uplo,
11087  lapack_int const* n,
11088  float* 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_slauum(...) LAPACK_slauum_base(__VA_ARGS__, 1)
11096 #else
11097  #define LAPACK_slauum(...) LAPACK_slauum_base(__VA_ARGS__)
11098 #endif
11099 
11100 #define LAPACK_zlauum_base LAPACK_GLOBAL(zlauum,ZLAUUM)
11101 void LAPACK_zlauum_base(
11102  char const* uplo,
11103  lapack_int const* n,
11104  lapack_complex_double* A, lapack_int const* lda,
11105  lapack_int* info
11106 #ifdef LAPACK_FORTRAN_STRLEN_END
11107  , size_t
11108 #endif
11109 );
11110 #ifdef LAPACK_FORTRAN_STRLEN_END
11111  #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__, 1)
11112 #else
11113  #define LAPACK_zlauum(...) LAPACK_zlauum_base(__VA_ARGS__)
11114 #endif
11115 
11116 #define LAPACK_ilaver LAPACK_GLOBAL(ilaver,ILAVER)
11117 void LAPACK_ilaver(
11118  lapack_int* vers_major, lapack_int* vers_minor, lapack_int* vers_patch );
11119 
11120 #define LAPACK_dopgtr_base LAPACK_GLOBAL(dopgtr,DOPGTR)
11121 void LAPACK_dopgtr_base(
11122  char const* uplo,
11123  lapack_int const* n,
11124  double const* AP,
11125  double const* tau,
11126  double* Q, lapack_int const* ldq,
11127  double* work,
11128  lapack_int* info
11129 #ifdef LAPACK_FORTRAN_STRLEN_END
11130  , size_t
11131 #endif
11132 );
11133 #ifdef LAPACK_FORTRAN_STRLEN_END
11134  #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__, 1)
11135 #else
11136  #define LAPACK_dopgtr(...) LAPACK_dopgtr_base(__VA_ARGS__)
11137 #endif
11138 
11139 #define LAPACK_sopgtr_base LAPACK_GLOBAL(sopgtr,SOPGTR)
11140 void LAPACK_sopgtr_base(
11141  char const* uplo,
11142  lapack_int const* n,
11143  float const* AP,
11144  float const* tau,
11145  float* Q, lapack_int const* ldq,
11146  float* work,
11147  lapack_int* info
11148 #ifdef LAPACK_FORTRAN_STRLEN_END
11149  , size_t
11150 #endif
11151 );
11152 #ifdef LAPACK_FORTRAN_STRLEN_END
11153  #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__, 1)
11154 #else
11155  #define LAPACK_sopgtr(...) LAPACK_sopgtr_base(__VA_ARGS__)
11156 #endif
11157 
11158 #define LAPACK_dopmtr_base LAPACK_GLOBAL(dopmtr,DOPMTR)
11159 void LAPACK_dopmtr_base(
11160  char const* side, char const* uplo, char const* trans,
11161  lapack_int const* m, lapack_int const* n,
11162  double const* AP,
11163  double const* tau,
11164  double* C, lapack_int const* ldc,
11165  double* work,
11166  lapack_int* info
11167 #ifdef LAPACK_FORTRAN_STRLEN_END
11168  , size_t, size_t, size_t
11169 #endif
11170 );
11171 #ifdef LAPACK_FORTRAN_STRLEN_END
11172  #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__, 1, 1, 1)
11173 #else
11174  #define LAPACK_dopmtr(...) LAPACK_dopmtr_base(__VA_ARGS__)
11175 #endif
11176 
11177 #define LAPACK_sopmtr_base LAPACK_GLOBAL(sopmtr,SOPMTR)
11178 void LAPACK_sopmtr_base(
11179  char const* side, char const* uplo, char const* trans,
11180  lapack_int const* m, lapack_int const* n,
11181  float const* AP,
11182  float const* tau,
11183  float* C, lapack_int const* ldc,
11184  float* work,
11185  lapack_int* info
11186 #ifdef LAPACK_FORTRAN_STRLEN_END
11187  , size_t, size_t, size_t
11188 #endif
11189 );
11190 #ifdef LAPACK_FORTRAN_STRLEN_END
11191  #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__, 1, 1, 1)
11192 #else
11193  #define LAPACK_sopmtr(...) LAPACK_sopmtr_base(__VA_ARGS__)
11194 #endif
11195 
11196 #define LAPACK_dorbdb_base LAPACK_GLOBAL(dorbdb,DORBDB)
11197 void LAPACK_dorbdb_base(
11198  char const* trans, char const* signs,
11199  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11200  double* X11, lapack_int const* ldx11,
11201  double* X12, lapack_int const* ldx12,
11202  double* X21, lapack_int const* ldx21,
11203  double* X22, lapack_int const* ldx22,
11204  double* theta,
11205  double* phi,
11206  double* TAUP1,
11207  double* TAUP2,
11208  double* TAUQ1,
11209  double* TAUQ2,
11210  double* work, lapack_int const* lwork,
11211  lapack_int* info
11212 #ifdef LAPACK_FORTRAN_STRLEN_END
11213  , size_t, size_t
11214 #endif
11215 );
11216 #ifdef LAPACK_FORTRAN_STRLEN_END
11217  #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__, 1, 1)
11218 #else
11219  #define LAPACK_dorbdb(...) LAPACK_dorbdb_base(__VA_ARGS__)
11220 #endif
11221 
11222 #define LAPACK_sorbdb_base LAPACK_GLOBAL(sorbdb,SORBDB)
11223 void LAPACK_sorbdb_base(
11224  char const* trans, char const* signs,
11225  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11226  float* X11, lapack_int const* ldx11,
11227  float* X12, lapack_int const* ldx12,
11228  float* X21, lapack_int const* ldx21,
11229  float* X22, lapack_int const* ldx22,
11230  float* theta,
11231  float* phi,
11232  float* TAUP1,
11233  float* TAUP2,
11234  float* TAUQ1,
11235  float* TAUQ2,
11236  float* work, lapack_int const* lwork,
11237  lapack_int* info
11238 #ifdef LAPACK_FORTRAN_STRLEN_END
11239  , size_t, size_t
11240 #endif
11241 );
11242 #ifdef LAPACK_FORTRAN_STRLEN_END
11243  #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__, 1, 1)
11244 #else
11245  #define LAPACK_sorbdb(...) LAPACK_sorbdb_base(__VA_ARGS__)
11246 #endif
11247 
11248 #define LAPACK_dorcsd_base LAPACK_GLOBAL(dorcsd,DORCSD)
11249 void LAPACK_dorcsd_base(
11250  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
11251  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11252  double* X11, lapack_int const* ldx11,
11253  double* X12, lapack_int const* ldx12,
11254  double* X21, lapack_int const* ldx21,
11255  double* X22, lapack_int const* ldx22,
11256  double* theta,
11257  double* U1, lapack_int const* ldu1,
11258  double* U2, lapack_int const* ldu2,
11259  double* V1T, lapack_int const* ldv1t,
11260  double* V2T, lapack_int const* ldv2t,
11261  double* work, lapack_int const* lwork,
11262  lapack_int* iwork,
11263  lapack_int* info
11264 #ifdef LAPACK_FORTRAN_STRLEN_END
11265  , size_t, size_t, size_t, size_t, size_t, size_t
11266 #endif
11267 );
11268 #ifdef LAPACK_FORTRAN_STRLEN_END
11269  #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11270 #else
11271  #define LAPACK_dorcsd(...) LAPACK_dorcsd_base(__VA_ARGS__)
11272 #endif
11273 
11274 #define LAPACK_sorcsd_base LAPACK_GLOBAL(sorcsd,SORCSD)
11275 void LAPACK_sorcsd_base(
11276  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
11277  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11278  float* X11, lapack_int const* ldx11,
11279  float* X12, lapack_int const* ldx12,
11280  float* X21, lapack_int const* ldx21,
11281  float* X22, lapack_int const* ldx22,
11282  float* theta,
11283  float* U1, lapack_int const* ldu1,
11284  float* U2, lapack_int const* ldu2,
11285  float* V1T, lapack_int const* ldv1t,
11286  float* V2T, lapack_int const* ldv2t,
11287  float* work, lapack_int const* lwork,
11288  lapack_int* iwork,
11289  lapack_int* info
11290 #ifdef LAPACK_FORTRAN_STRLEN_END
11291  , size_t, size_t, size_t, size_t, size_t, size_t
11292 #endif
11293 );
11294 #ifdef LAPACK_FORTRAN_STRLEN_END
11295  #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
11296 #else
11297  #define LAPACK_sorcsd(...) LAPACK_sorcsd_base(__VA_ARGS__)
11298 #endif
11299 
11300 #define LAPACK_dorcsd2by1_base LAPACK_GLOBAL(dorcsd2by1,DORCSD2BY1)
11301 void LAPACK_dorcsd2by1_base(
11302  char const* jobu1, char const* jobu2, char const* jobv1t,
11303  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11304  double* X11, lapack_int const* ldx11,
11305  double* X21, lapack_int const* ldx21,
11306  double* theta,
11307  double* U1, lapack_int const* ldu1,
11308  double* U2, lapack_int const* ldu2,
11309  double* V1T, lapack_int const* ldv1t,
11310  double* work, lapack_int const* lwork,
11311  lapack_int* iwork,
11312  lapack_int* info
11313 #ifdef LAPACK_FORTRAN_STRLEN_END
11314  , size_t, size_t, size_t
11315 #endif
11316 );
11317 #ifdef LAPACK_FORTRAN_STRLEN_END
11318  #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11319 #else
11320  #define LAPACK_dorcsd2by1(...) LAPACK_dorcsd2by1_base(__VA_ARGS__)
11321 #endif
11322 
11323 #define LAPACK_sorcsd2by1_base LAPACK_GLOBAL(sorcsd2by1,SORCSD2BY1)
11324 void LAPACK_sorcsd2by1_base(
11325  char const* jobu1, char const* jobu2, char const* jobv1t,
11326  lapack_int const* m, lapack_int const* p, lapack_int const* q,
11327  float* X11, lapack_int const* ldx11,
11328  float* X21, lapack_int const* ldx21,
11329  float* theta,
11330  float* U1, lapack_int const* ldu1,
11331  float* U2, lapack_int const* ldu2,
11332  float* V1T, lapack_int const* ldv1t,
11333  float* work, lapack_int const* lwork,
11334  lapack_int* iwork,
11335  lapack_int* info
11336 #ifdef LAPACK_FORTRAN_STRLEN_END
11337  , size_t, size_t, size_t
11338 #endif
11339 );
11340 #ifdef LAPACK_FORTRAN_STRLEN_END
11341  #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__, 1, 1, 1)
11342 #else
11343  #define LAPACK_sorcsd2by1(...) LAPACK_sorcsd2by1_base(__VA_ARGS__)
11344 #endif
11345 
11346 #define LAPACK_dorgbr_base LAPACK_GLOBAL(dorgbr,DORGBR)
11347 void LAPACK_dorgbr_base(
11348  char const* vect,
11349  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11350  double* A, lapack_int const* lda,
11351  double const* tau,
11352  double* work, lapack_int const* lwork,
11353  lapack_int* info
11354 #ifdef LAPACK_FORTRAN_STRLEN_END
11355  , size_t
11356 #endif
11357 );
11358 #ifdef LAPACK_FORTRAN_STRLEN_END
11359  #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__, 1)
11360 #else
11361  #define LAPACK_dorgbr(...) LAPACK_dorgbr_base(__VA_ARGS__)
11362 #endif
11363 
11364 #define LAPACK_sorgbr_base LAPACK_GLOBAL(sorgbr,SORGBR)
11365 void LAPACK_sorgbr_base(
11366  char const* vect,
11367  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11368  float* A, lapack_int const* lda,
11369  float const* tau,
11370  float* work, lapack_int const* lwork,
11371  lapack_int* info
11372 #ifdef LAPACK_FORTRAN_STRLEN_END
11373  , size_t
11374 #endif
11375 );
11376 #ifdef LAPACK_FORTRAN_STRLEN_END
11377  #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__, 1)
11378 #else
11379  #define LAPACK_sorgbr(...) LAPACK_sorgbr_base(__VA_ARGS__)
11380 #endif
11381 
11382 #define LAPACK_dorghr LAPACK_GLOBAL(dorghr,DORGHR)
11383 void LAPACK_dorghr(
11384  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
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_sorghr LAPACK_GLOBAL(sorghr,SORGHR)
11391 void LAPACK_sorghr(
11392  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
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_dorglq LAPACK_GLOBAL(dorglq,DORGLQ)
11399 void LAPACK_dorglq(
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_sorglq LAPACK_GLOBAL(sorglq,SORGLQ)
11407 void LAPACK_sorglq(
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_dorgql LAPACK_GLOBAL(dorgql,DORGQL)
11415 void LAPACK_dorgql(
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_sorgql LAPACK_GLOBAL(sorgql,SORGQL)
11423 void LAPACK_sorgql(
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_dorgqr LAPACK_GLOBAL(dorgqr,DORGQR)
11431 void LAPACK_dorgqr(
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_sorgqr LAPACK_GLOBAL(sorgqr,SORGQR)
11439 void LAPACK_sorgqr(
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_dorgrq LAPACK_GLOBAL(dorgrq,DORGRQ)
11447 void LAPACK_dorgrq(
11448  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11449  double* A, lapack_int const* lda,
11450  double const* tau,
11451  double* work, lapack_int const* lwork,
11452  lapack_int* info );
11453 
11454 #define LAPACK_sorgrq LAPACK_GLOBAL(sorgrq,SORGRQ)
11455 void LAPACK_sorgrq(
11456  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11457  float* A, lapack_int const* lda,
11458  float const* tau,
11459  float* work, lapack_int const* lwork,
11460  lapack_int* info );
11461 
11462 #define LAPACK_dorgtr_base LAPACK_GLOBAL(dorgtr,DORGTR)
11463 void LAPACK_dorgtr_base(
11464  char const* uplo,
11465  lapack_int const* n,
11466  double* A, lapack_int const* lda,
11467  double const* tau,
11468  double* work, lapack_int const* lwork,
11469  lapack_int* info
11470 #ifdef LAPACK_FORTRAN_STRLEN_END
11471  , size_t
11472 #endif
11473 );
11474 #ifdef LAPACK_FORTRAN_STRLEN_END
11475  #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__, 1)
11476 #else
11477  #define LAPACK_dorgtr(...) LAPACK_dorgtr_base(__VA_ARGS__)
11478 #endif
11479 
11480 #define LAPACK_sorgtr_base LAPACK_GLOBAL(sorgtr,SORGTR)
11481 void LAPACK_sorgtr_base(
11482  char const* uplo,
11483  lapack_int const* n,
11484  float* A, lapack_int const* lda,
11485  float const* tau,
11486  float* work, lapack_int const* lwork,
11487  lapack_int* info
11488 #ifdef LAPACK_FORTRAN_STRLEN_END
11489  , size_t
11490 #endif
11491 );
11492 #ifdef LAPACK_FORTRAN_STRLEN_END
11493  #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__, 1)
11494 #else
11495  #define LAPACK_sorgtr(...) LAPACK_sorgtr_base(__VA_ARGS__)
11496 #endif
11497 
11498 #define LAPACK_dorgtsqr_row LAPACK_GLOBAL(dorgtsqr_row,DORGTSQR_ROW)
11499 void LAPACK_dorgtsqr_row(
11500  lapack_int const* m, lapack_int const* n,
11501  lapack_int const* mb, lapack_int const* nb,
11502  double* A, lapack_int const* lda,
11503  double const* T, lapack_int const* ldt,
11504  double* work, lapack_int const* lwork,
11505  lapack_int* info );
11506 
11507 #define LAPACK_sorgtsqr_row LAPACK_GLOBAL(sorgtsqr_row,SORGTSQR_ROW)
11508 void LAPACK_sorgtsqr_row(
11509  lapack_int const* m, lapack_int const* n,
11510  lapack_int const* mb, lapack_int const* nb,
11511  float* A, lapack_int const* lda,
11512  float const* T, lapack_int const* ldt,
11513  float* work, lapack_int const* lwork,
11514  lapack_int* info );
11515 
11516 #define LAPACK_dormbr_base LAPACK_GLOBAL(dormbr,DORMBR)
11517 void LAPACK_dormbr_base(
11518  char const* vect, char const* side, char const* trans,
11519  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11520  double const* A, lapack_int const* lda,
11521  double const* tau,
11522  double* C, lapack_int const* ldc,
11523  double* work, lapack_int const* lwork,
11524  lapack_int* info
11525 #ifdef LAPACK_FORTRAN_STRLEN_END
11526  , size_t, size_t, size_t
11527 #endif
11528 );
11529 #ifdef LAPACK_FORTRAN_STRLEN_END
11530  #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__, 1, 1, 1)
11531 #else
11532  #define LAPACK_dormbr(...) LAPACK_dormbr_base(__VA_ARGS__)
11533 #endif
11534 
11535 #define LAPACK_sormbr_base LAPACK_GLOBAL(sormbr,SORMBR)
11536 void LAPACK_sormbr_base(
11537  char const* vect, char const* side, char const* trans,
11538  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11539  float const* A, lapack_int const* lda,
11540  float const* tau,
11541  float* C, lapack_int const* ldc,
11542  float* work, lapack_int const* lwork,
11543  lapack_int* info
11544 #ifdef LAPACK_FORTRAN_STRLEN_END
11545  , size_t, size_t, size_t
11546 #endif
11547 );
11548 #ifdef LAPACK_FORTRAN_STRLEN_END
11549  #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__, 1, 1, 1)
11550 #else
11551  #define LAPACK_sormbr(...) LAPACK_sormbr_base(__VA_ARGS__)
11552 #endif
11553 
11554 #define LAPACK_dormhr_base LAPACK_GLOBAL(dormhr,DORMHR)
11555 void LAPACK_dormhr_base(
11556  char const* side, char const* trans,
11557  lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11558  double const* A, lapack_int const* lda,
11559  double const* tau,
11560  double* C, lapack_int const* ldc,
11561  double* work, lapack_int const* lwork,
11562  lapack_int* info
11563 #ifdef LAPACK_FORTRAN_STRLEN_END
11564  , size_t, size_t
11565 #endif
11566 );
11567 #ifdef LAPACK_FORTRAN_STRLEN_END
11568  #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__, 1, 1)
11569 #else
11570  #define LAPACK_dormhr(...) LAPACK_dormhr_base(__VA_ARGS__)
11571 #endif
11572 
11573 #define LAPACK_sormhr_base LAPACK_GLOBAL(sormhr,SORMHR)
11574 void LAPACK_sormhr_base(
11575  char const* side, char const* trans,
11576  lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
11577  float const* A, lapack_int const* lda,
11578  float const* tau,
11579  float* C, lapack_int const* ldc,
11580  float* work, lapack_int const* lwork,
11581  lapack_int* info
11582 #ifdef LAPACK_FORTRAN_STRLEN_END
11583  , size_t, size_t
11584 #endif
11585 );
11586 #ifdef LAPACK_FORTRAN_STRLEN_END
11587  #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__, 1, 1)
11588 #else
11589  #define LAPACK_sormhr(...) LAPACK_sormhr_base(__VA_ARGS__)
11590 #endif
11591 
11592 #define LAPACK_dormlq_base LAPACK_GLOBAL(dormlq,DORMLQ)
11593 void LAPACK_dormlq_base(
11594  char const* side, char const* trans,
11595  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11596  double const* A, lapack_int const* lda,
11597  double const* tau,
11598  double* C, lapack_int const* ldc,
11599  double* work, lapack_int const* lwork,
11600  lapack_int* info
11601 #ifdef LAPACK_FORTRAN_STRLEN_END
11602  , size_t, size_t
11603 #endif
11604 );
11605 #ifdef LAPACK_FORTRAN_STRLEN_END
11606  #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__, 1, 1)
11607 #else
11608  #define LAPACK_dormlq(...) LAPACK_dormlq_base(__VA_ARGS__)
11609 #endif
11610 
11611 #define LAPACK_sormlq_base LAPACK_GLOBAL(sormlq,SORMLQ)
11612 void LAPACK_sormlq_base(
11613  char const* side, char const* trans,
11614  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11615  float const* A, lapack_int const* lda,
11616  float const* tau,
11617  float* C, lapack_int const* ldc,
11618  float* work, lapack_int const* lwork,
11619  lapack_int* info
11620 #ifdef LAPACK_FORTRAN_STRLEN_END
11621  , size_t, size_t
11622 #endif
11623 );
11624 #ifdef LAPACK_FORTRAN_STRLEN_END
11625  #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__, 1, 1)
11626 #else
11627  #define LAPACK_sormlq(...) LAPACK_sormlq_base(__VA_ARGS__)
11628 #endif
11629 
11630 #define LAPACK_dormql_base LAPACK_GLOBAL(dormql,DORMQL)
11631 void LAPACK_dormql_base(
11632  char const* side, char const* trans,
11633  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11634  double const* A, lapack_int const* lda,
11635  double const* tau,
11636  double* C, lapack_int const* ldc,
11637  double* work, lapack_int const* lwork,
11638  lapack_int* info
11639 #ifdef LAPACK_FORTRAN_STRLEN_END
11640  , size_t, size_t
11641 #endif
11642 );
11643 #ifdef LAPACK_FORTRAN_STRLEN_END
11644  #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__, 1, 1)
11645 #else
11646  #define LAPACK_dormql(...) LAPACK_dormql_base(__VA_ARGS__)
11647 #endif
11648 
11649 #define LAPACK_sormql_base LAPACK_GLOBAL(sormql,SORMQL)
11650 void LAPACK_sormql_base(
11651  char const* side, char const* trans,
11652  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11653  float const* A, lapack_int const* lda,
11654  float const* tau,
11655  float* C, lapack_int const* ldc,
11656  float* work, lapack_int const* lwork,
11657  lapack_int* info
11658 #ifdef LAPACK_FORTRAN_STRLEN_END
11659  , size_t, size_t
11660 #endif
11661 );
11662 #ifdef LAPACK_FORTRAN_STRLEN_END
11663  #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__, 1, 1)
11664 #else
11665  #define LAPACK_sormql(...) LAPACK_sormql_base(__VA_ARGS__)
11666 #endif
11667 
11668 #define LAPACK_dormqr_base LAPACK_GLOBAL(dormqr,DORMQR)
11669 void LAPACK_dormqr_base(
11670  char const* side, char const* trans,
11671  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11672  double const* A, lapack_int const* lda,
11673  double const* tau,
11674  double* C, lapack_int const* ldc,
11675  double* work, lapack_int const* lwork,
11676  lapack_int* info
11677 #ifdef LAPACK_FORTRAN_STRLEN_END
11678  , size_t, size_t
11679 #endif
11680 );
11681 #ifdef LAPACK_FORTRAN_STRLEN_END
11682  #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__, 1, 1)
11683 #else
11684  #define LAPACK_dormqr(...) LAPACK_dormqr_base(__VA_ARGS__)
11685 #endif
11686 
11687 #define LAPACK_sormqr_base LAPACK_GLOBAL(sormqr,SORMQR)
11688 void LAPACK_sormqr_base(
11689  char const* side, char const* trans,
11690  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11691  float const* A, lapack_int const* lda,
11692  float const* tau,
11693  float* C, lapack_int const* ldc,
11694  float* work, lapack_int const* lwork,
11695  lapack_int* info
11696 #ifdef LAPACK_FORTRAN_STRLEN_END
11697  , size_t, size_t
11698 #endif
11699 );
11700 #ifdef LAPACK_FORTRAN_STRLEN_END
11701  #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__, 1, 1)
11702 #else
11703  #define LAPACK_sormqr(...) LAPACK_sormqr_base(__VA_ARGS__)
11704 #endif
11705 
11706 #define LAPACK_dormrq_base LAPACK_GLOBAL(dormrq,DORMRQ)
11707 void LAPACK_dormrq_base(
11708  char const* side, char const* trans,
11709  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11710  double const* A, lapack_int const* lda,
11711  double const* tau,
11712  double* C, lapack_int const* ldc,
11713  double* work, lapack_int const* lwork,
11714  lapack_int* info
11715 #ifdef LAPACK_FORTRAN_STRLEN_END
11716  , size_t, size_t
11717 #endif
11718 );
11719 #ifdef LAPACK_FORTRAN_STRLEN_END
11720  #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__, 1, 1)
11721 #else
11722  #define LAPACK_dormrq(...) LAPACK_dormrq_base(__VA_ARGS__)
11723 #endif
11724 
11725 #define LAPACK_sormrq_base LAPACK_GLOBAL(sormrq,SORMRQ)
11726 void LAPACK_sormrq_base(
11727  char const* side, char const* trans,
11728  lapack_int const* m, lapack_int const* n, lapack_int const* k,
11729  float const* A, lapack_int const* lda,
11730  float const* tau,
11731  float* C, lapack_int const* ldc,
11732  float* work, lapack_int const* lwork,
11733  lapack_int* info
11734 #ifdef LAPACK_FORTRAN_STRLEN_END
11735  , size_t, size_t
11736 #endif
11737 );
11738 #ifdef LAPACK_FORTRAN_STRLEN_END
11739  #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__, 1, 1)
11740 #else
11741  #define LAPACK_sormrq(...) LAPACK_sormrq_base(__VA_ARGS__)
11742 #endif
11743 
11744 #define LAPACK_dormrz_base LAPACK_GLOBAL(dormrz,DORMRZ)
11745 void LAPACK_dormrz_base(
11746  char const* side, char const* trans,
11747  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
11748  double const* A, lapack_int const* lda,
11749  double const* tau,
11750  double* C, lapack_int const* ldc,
11751  double* work, lapack_int const* lwork,
11752  lapack_int* info
11753 #ifdef LAPACK_FORTRAN_STRLEN_END
11754  , size_t, size_t
11755 #endif
11756 );
11757 #ifdef LAPACK_FORTRAN_STRLEN_END
11758  #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__, 1, 1)
11759 #else
11760  #define LAPACK_dormrz(...) LAPACK_dormrz_base(__VA_ARGS__)
11761 #endif
11762 
11763 #define LAPACK_sormrz_base LAPACK_GLOBAL(sormrz,SORMRZ)
11764 void LAPACK_sormrz_base(
11765  char const* side, char const* trans,
11766  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
11767  float const* A, lapack_int const* lda,
11768  float const* tau,
11769  float* C, lapack_int const* ldc,
11770  float* work, lapack_int const* lwork,
11771  lapack_int* info
11772 #ifdef LAPACK_FORTRAN_STRLEN_END
11773  , size_t, size_t
11774 #endif
11775 );
11776 #ifdef LAPACK_FORTRAN_STRLEN_END
11777  #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__, 1, 1)
11778 #else
11779  #define LAPACK_sormrz(...) LAPACK_sormrz_base(__VA_ARGS__)
11780 #endif
11781 
11782 #define LAPACK_dormtr_base LAPACK_GLOBAL(dormtr,DORMTR)
11783 void LAPACK_dormtr_base(
11784  char const* side, char const* uplo, char const* trans,
11785  lapack_int const* m, lapack_int const* n,
11786  double const* A, lapack_int const* lda,
11787  double const* tau,
11788  double* C, lapack_int const* ldc,
11789  double* work, lapack_int const* lwork,
11790  lapack_int* info
11791 #ifdef LAPACK_FORTRAN_STRLEN_END
11792  , size_t, size_t, size_t
11793 #endif
11794 );
11795 #ifdef LAPACK_FORTRAN_STRLEN_END
11796  #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__, 1, 1, 1)
11797 #else
11798  #define LAPACK_dormtr(...) LAPACK_dormtr_base(__VA_ARGS__)
11799 #endif
11800 
11801 #define LAPACK_sormtr_base LAPACK_GLOBAL(sormtr,SORMTR)
11802 void LAPACK_sormtr_base(
11803  char const* side, char const* uplo, char const* trans,
11804  lapack_int const* m, lapack_int const* n,
11805  float const* A, lapack_int const* lda,
11806  float const* tau,
11807  float* C, lapack_int const* ldc,
11808  float* work, lapack_int const* lwork,
11809  lapack_int* info
11810 #ifdef LAPACK_FORTRAN_STRLEN_END
11811  , size_t, size_t, size_t
11812 #endif
11813 );
11814 #ifdef LAPACK_FORTRAN_STRLEN_END
11815  #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__, 1, 1, 1)
11816 #else
11817  #define LAPACK_sormtr(...) LAPACK_sormtr_base(__VA_ARGS__)
11818 #endif
11819 
11820 #define LAPACK_cpbcon_base LAPACK_GLOBAL(cpbcon,CPBCON)
11821 void LAPACK_cpbcon_base(
11822  char const* uplo,
11823  lapack_int const* n, lapack_int const* kd,
11824  lapack_complex_float const* AB, lapack_int const* ldab,
11825  float const* anorm,
11826  float* rcond,
11827  lapack_complex_float* work,
11828  float* rwork,
11829  lapack_int* info
11830 #ifdef LAPACK_FORTRAN_STRLEN_END
11831  , size_t
11832 #endif
11833 );
11834 #ifdef LAPACK_FORTRAN_STRLEN_END
11835  #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__, 1)
11836 #else
11837  #define LAPACK_cpbcon(...) LAPACK_cpbcon_base(__VA_ARGS__)
11838 #endif
11839 
11840 #define LAPACK_dpbcon_base LAPACK_GLOBAL(dpbcon,DPBCON)
11841 void LAPACK_dpbcon_base(
11842  char const* uplo,
11843  lapack_int const* n, lapack_int const* kd,
11844  double const* AB, lapack_int const* ldab,
11845  double const* anorm,
11846  double* rcond,
11847  double* work,
11848  lapack_int* iwork,
11849  lapack_int* info
11850 #ifdef LAPACK_FORTRAN_STRLEN_END
11851  , size_t
11852 #endif
11853 );
11854 #ifdef LAPACK_FORTRAN_STRLEN_END
11855  #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__, 1)
11856 #else
11857  #define LAPACK_dpbcon(...) LAPACK_dpbcon_base(__VA_ARGS__)
11858 #endif
11859 
11860 #define LAPACK_spbcon_base LAPACK_GLOBAL(spbcon,SPBCON)
11861 void LAPACK_spbcon_base(
11862  char const* uplo,
11863  lapack_int const* n, lapack_int const* kd,
11864  float const* AB, lapack_int const* ldab,
11865  float const* anorm,
11866  float* rcond,
11867  float* work,
11868  lapack_int* iwork,
11869  lapack_int* info
11870 #ifdef LAPACK_FORTRAN_STRLEN_END
11871  , size_t
11872 #endif
11873 );
11874 #ifdef LAPACK_FORTRAN_STRLEN_END
11875  #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__, 1)
11876 #else
11877  #define LAPACK_spbcon(...) LAPACK_spbcon_base(__VA_ARGS__)
11878 #endif
11879 
11880 #define LAPACK_zpbcon_base LAPACK_GLOBAL(zpbcon,ZPBCON)
11881 void LAPACK_zpbcon_base(
11882  char const* uplo,
11883  lapack_int const* n, lapack_int const* kd,
11884  lapack_complex_double const* AB, lapack_int const* ldab,
11885  double const* anorm,
11886  double* rcond,
11887  lapack_complex_double* work,
11888  double* rwork,
11889  lapack_int* info
11890 #ifdef LAPACK_FORTRAN_STRLEN_END
11891  , size_t
11892 #endif
11893 );
11894 #ifdef LAPACK_FORTRAN_STRLEN_END
11895  #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__, 1)
11896 #else
11897  #define LAPACK_zpbcon(...) LAPACK_zpbcon_base(__VA_ARGS__)
11898 #endif
11899 
11900 #define LAPACK_cpbequ_base LAPACK_GLOBAL(cpbequ,CPBEQU)
11901 void LAPACK_cpbequ_base(
11902  char const* uplo,
11903  lapack_int const* n, lapack_int const* kd,
11904  lapack_complex_float const* AB, lapack_int const* ldab,
11905  float* S,
11906  float* scond,
11907  float* amax,
11908  lapack_int* info
11909 #ifdef LAPACK_FORTRAN_STRLEN_END
11910  , size_t
11911 #endif
11912 );
11913 #ifdef LAPACK_FORTRAN_STRLEN_END
11914  #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__, 1)
11915 #else
11916  #define LAPACK_cpbequ(...) LAPACK_cpbequ_base(__VA_ARGS__)
11917 #endif
11918 
11919 #define LAPACK_dpbequ_base LAPACK_GLOBAL(dpbequ,DPBEQU)
11920 void LAPACK_dpbequ_base(
11921  char const* uplo,
11922  lapack_int const* n, lapack_int const* kd,
11923  double const* AB, lapack_int const* ldab,
11924  double* S,
11925  double* scond,
11926  double* amax,
11927  lapack_int* info
11928 #ifdef LAPACK_FORTRAN_STRLEN_END
11929  , size_t
11930 #endif
11931 );
11932 #ifdef LAPACK_FORTRAN_STRLEN_END
11933  #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__, 1)
11934 #else
11935  #define LAPACK_dpbequ(...) LAPACK_dpbequ_base(__VA_ARGS__)
11936 #endif
11937 
11938 #define LAPACK_spbequ_base LAPACK_GLOBAL(spbequ,SPBEQU)
11939 void LAPACK_spbequ_base(
11940  char const* uplo,
11941  lapack_int const* n, lapack_int const* kd,
11942  float const* AB, lapack_int const* ldab,
11943  float* S,
11944  float* scond,
11945  float* amax,
11946  lapack_int* info
11947 #ifdef LAPACK_FORTRAN_STRLEN_END
11948  , size_t
11949 #endif
11950 );
11951 #ifdef LAPACK_FORTRAN_STRLEN_END
11952  #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__, 1)
11953 #else
11954  #define LAPACK_spbequ(...) LAPACK_spbequ_base(__VA_ARGS__)
11955 #endif
11956 
11957 #define LAPACK_zpbequ_base LAPACK_GLOBAL(zpbequ,ZPBEQU)
11958 void LAPACK_zpbequ_base(
11959  char const* uplo,
11960  lapack_int const* n, lapack_int const* kd,
11961  lapack_complex_double const* AB, lapack_int const* ldab,
11962  double* S,
11963  double* scond,
11964  double* amax,
11965  lapack_int* info
11966 #ifdef LAPACK_FORTRAN_STRLEN_END
11967  , size_t
11968 #endif
11969 );
11970 #ifdef LAPACK_FORTRAN_STRLEN_END
11971  #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__, 1)
11972 #else
11973  #define LAPACK_zpbequ(...) LAPACK_zpbequ_base(__VA_ARGS__)
11974 #endif
11975 
11976 #define LAPACK_cpbrfs_base LAPACK_GLOBAL(cpbrfs,CPBRFS)
11977 void LAPACK_cpbrfs_base(
11978  char const* uplo,
11979  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
11980  lapack_complex_float const* AB, lapack_int const* ldab,
11981  lapack_complex_float const* AFB, lapack_int const* ldafb,
11982  lapack_complex_float const* B, lapack_int const* ldb,
11983  lapack_complex_float* X, lapack_int const* ldx,
11984  float* ferr,
11985  float* berr,
11986  lapack_complex_float* work,
11987  float* rwork,
11988  lapack_int* info
11989 #ifdef LAPACK_FORTRAN_STRLEN_END
11990  , size_t
11991 #endif
11992 );
11993 #ifdef LAPACK_FORTRAN_STRLEN_END
11994  #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__, 1)
11995 #else
11996  #define LAPACK_cpbrfs(...) LAPACK_cpbrfs_base(__VA_ARGS__)
11997 #endif
11998 
11999 #define LAPACK_dpbrfs_base LAPACK_GLOBAL(dpbrfs,DPBRFS)
12000 void LAPACK_dpbrfs_base(
12001  char const* uplo,
12002  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12003  double const* AB, lapack_int const* ldab,
12004  double const* AFB, lapack_int const* ldafb,
12005  double const* B, lapack_int const* ldb,
12006  double* X, lapack_int const* ldx,
12007  double* ferr,
12008  double* berr,
12009  double* work,
12010  lapack_int* iwork,
12011  lapack_int* info
12012 #ifdef LAPACK_FORTRAN_STRLEN_END
12013  , size_t
12014 #endif
12015 );
12016 #ifdef LAPACK_FORTRAN_STRLEN_END
12017  #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__, 1)
12018 #else
12019  #define LAPACK_dpbrfs(...) LAPACK_dpbrfs_base(__VA_ARGS__)
12020 #endif
12021 
12022 #define LAPACK_spbrfs_base LAPACK_GLOBAL(spbrfs,SPBRFS)
12023 void LAPACK_spbrfs_base(
12024  char const* uplo,
12025  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12026  float const* AB, lapack_int const* ldab,
12027  float const* AFB, lapack_int const* ldafb,
12028  float const* B, lapack_int const* ldb,
12029  float* X, lapack_int const* ldx,
12030  float* ferr,
12031  float* berr,
12032  float* work,
12033  lapack_int* iwork,
12034  lapack_int* info
12035 #ifdef LAPACK_FORTRAN_STRLEN_END
12036  , size_t
12037 #endif
12038 );
12039 #ifdef LAPACK_FORTRAN_STRLEN_END
12040  #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__, 1)
12041 #else
12042  #define LAPACK_spbrfs(...) LAPACK_spbrfs_base(__VA_ARGS__)
12043 #endif
12044 
12045 #define LAPACK_zpbrfs_base LAPACK_GLOBAL(zpbrfs,ZPBRFS)
12046 void LAPACK_zpbrfs_base(
12047  char const* uplo,
12048  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12049  lapack_complex_double const* AB, lapack_int const* ldab,
12050  lapack_complex_double const* AFB, lapack_int const* ldafb,
12051  lapack_complex_double const* B, lapack_int const* ldb,
12052  lapack_complex_double* X, lapack_int const* ldx,
12053  double* ferr,
12054  double* berr,
12055  lapack_complex_double* work,
12056  double* rwork,
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_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__, 1)
12064 #else
12065  #define LAPACK_zpbrfs(...) LAPACK_zpbrfs_base(__VA_ARGS__)
12066 #endif
12067 
12068 #define LAPACK_cpbstf_base LAPACK_GLOBAL(cpbstf,CPBSTF)
12069 void LAPACK_cpbstf_base(
12070  char const* uplo,
12071  lapack_int const* n, lapack_int const* kd,
12072  lapack_complex_float* 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_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__, 1)
12080 #else
12081  #define LAPACK_cpbstf(...) LAPACK_cpbstf_base(__VA_ARGS__)
12082 #endif
12083 
12084 #define LAPACK_dpbstf_base LAPACK_GLOBAL(dpbstf,DPBSTF)
12085 void LAPACK_dpbstf_base(
12086  char const* uplo,
12087  lapack_int const* n, lapack_int const* kd,
12088  double* 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_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__, 1)
12096 #else
12097  #define LAPACK_dpbstf(...) LAPACK_dpbstf_base(__VA_ARGS__)
12098 #endif
12099 
12100 #define LAPACK_spbstf_base LAPACK_GLOBAL(spbstf,SPBSTF)
12101 void LAPACK_spbstf_base(
12102  char const* uplo,
12103  lapack_int const* n, lapack_int const* kd,
12104  float* 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_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__, 1)
12112 #else
12113  #define LAPACK_spbstf(...) LAPACK_spbstf_base(__VA_ARGS__)
12114 #endif
12115 
12116 #define LAPACK_zpbstf_base LAPACK_GLOBAL(zpbstf,ZPBSTF)
12117 void LAPACK_zpbstf_base(
12118  char const* uplo,
12119  lapack_int const* n, lapack_int const* kd,
12120  lapack_complex_double* AB, lapack_int const* ldab,
12121  lapack_int* info
12122 #ifdef LAPACK_FORTRAN_STRLEN_END
12123  , size_t
12124 #endif
12125 );
12126 #ifdef LAPACK_FORTRAN_STRLEN_END
12127  #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__, 1)
12128 #else
12129  #define LAPACK_zpbstf(...) LAPACK_zpbstf_base(__VA_ARGS__)
12130 #endif
12131 
12132 #define LAPACK_cpbsv_base LAPACK_GLOBAL(cpbsv,CPBSV)
12133 void LAPACK_cpbsv_base(
12134  char const* uplo,
12135  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12136  lapack_complex_float* AB, lapack_int const* ldab,
12137  lapack_complex_float* B, lapack_int const* ldb,
12138  lapack_int* info
12139 #ifdef LAPACK_FORTRAN_STRLEN_END
12140  , size_t
12141 #endif
12142 );
12143 #ifdef LAPACK_FORTRAN_STRLEN_END
12144  #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__, 1)
12145 #else
12146  #define LAPACK_cpbsv(...) LAPACK_cpbsv_base(__VA_ARGS__)
12147 #endif
12148 
12149 #define LAPACK_dpbsv_base LAPACK_GLOBAL(dpbsv,DPBSV)
12150 void LAPACK_dpbsv_base(
12151  char const* uplo,
12152  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12153  double* AB, lapack_int const* ldab,
12154  double* B, lapack_int const* ldb,
12155  lapack_int* info
12156 #ifdef LAPACK_FORTRAN_STRLEN_END
12157  , size_t
12158 #endif
12159 );
12160 #ifdef LAPACK_FORTRAN_STRLEN_END
12161  #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__, 1)
12162 #else
12163  #define LAPACK_dpbsv(...) LAPACK_dpbsv_base(__VA_ARGS__)
12164 #endif
12165 
12166 #define LAPACK_spbsv_base LAPACK_GLOBAL(spbsv,SPBSV)
12167 void LAPACK_spbsv_base(
12168  char const* uplo,
12169  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12170  float* AB, lapack_int const* ldab,
12171  float* B, lapack_int const* ldb,
12172  lapack_int* info
12173 #ifdef LAPACK_FORTRAN_STRLEN_END
12174  , size_t
12175 #endif
12176 );
12177 #ifdef LAPACK_FORTRAN_STRLEN_END
12178  #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__, 1)
12179 #else
12180  #define LAPACK_spbsv(...) LAPACK_spbsv_base(__VA_ARGS__)
12181 #endif
12182 
12183 #define LAPACK_zpbsv_base LAPACK_GLOBAL(zpbsv,ZPBSV)
12184 void LAPACK_zpbsv_base(
12185  char const* uplo,
12186  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12187  lapack_complex_double* AB, lapack_int const* ldab,
12188  lapack_complex_double* B, lapack_int const* ldb,
12189  lapack_int* info
12190 #ifdef LAPACK_FORTRAN_STRLEN_END
12191  , size_t
12192 #endif
12193 );
12194 #ifdef LAPACK_FORTRAN_STRLEN_END
12195  #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__, 1)
12196 #else
12197  #define LAPACK_zpbsv(...) LAPACK_zpbsv_base(__VA_ARGS__)
12198 #endif
12199 
12200 #define LAPACK_cpbsvx_base LAPACK_GLOBAL(cpbsvx,CPBSVX)
12201 void LAPACK_cpbsvx_base(
12202  char const* fact, char const* uplo,
12203  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12204  lapack_complex_float* AB, lapack_int const* ldab,
12205  lapack_complex_float* AFB, lapack_int const* ldafb, char* equed,
12206  float* S,
12207  lapack_complex_float* B,
12208  lapack_int const* ldb,
12209  lapack_complex_float* X, lapack_int const* ldx,
12210  float* rcond,
12211  float* ferr,
12212  float* berr,
12213  lapack_complex_float* work,
12214  float* rwork,
12215  lapack_int* info
12216 #ifdef LAPACK_FORTRAN_STRLEN_END
12217  , size_t, size_t, size_t
12218 #endif
12219 );
12220 #ifdef LAPACK_FORTRAN_STRLEN_END
12221  #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__, 1, 1, 1)
12222 #else
12223  #define LAPACK_cpbsvx(...) LAPACK_cpbsvx_base(__VA_ARGS__)
12224 #endif
12225 
12226 #define LAPACK_dpbsvx_base LAPACK_GLOBAL(dpbsvx,DPBSVX)
12227 void LAPACK_dpbsvx_base(
12228  char const* fact, char const* uplo,
12229  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12230  double* AB, lapack_int const* ldab,
12231  double* AFB, lapack_int const* ldafb, char* equed,
12232  double* S,
12233  double* B,
12234  lapack_int const* ldb,
12235  double* X, lapack_int const* ldx,
12236  double* rcond,
12237  double* ferr,
12238  double* berr,
12239  double* work,
12240  lapack_int* iwork,
12241  lapack_int* info
12242 #ifdef LAPACK_FORTRAN_STRLEN_END
12243  , size_t, size_t, size_t
12244 #endif
12245 );
12246 #ifdef LAPACK_FORTRAN_STRLEN_END
12247  #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__, 1, 1, 1)
12248 #else
12249  #define LAPACK_dpbsvx(...) LAPACK_dpbsvx_base(__VA_ARGS__)
12250 #endif
12251 
12252 #define LAPACK_spbsvx_base LAPACK_GLOBAL(spbsvx,SPBSVX)
12253 void LAPACK_spbsvx_base(
12254  char const* fact, char const* uplo,
12255  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12256  float* AB, lapack_int const* ldab,
12257  float* AFB, lapack_int const* ldafb, char* equed,
12258  float* S,
12259  float* B,
12260  lapack_int const* ldb,
12261  float* X, lapack_int const* ldx,
12262  float* rcond,
12263  float* ferr,
12264  float* berr,
12265  float* work,
12266  lapack_int* iwork,
12267  lapack_int* info
12268 #ifdef LAPACK_FORTRAN_STRLEN_END
12269  , size_t, size_t, size_t
12270 #endif
12271 );
12272 #ifdef LAPACK_FORTRAN_STRLEN_END
12273  #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__, 1, 1, 1)
12274 #else
12275  #define LAPACK_spbsvx(...) LAPACK_spbsvx_base(__VA_ARGS__)
12276 #endif
12277 
12278 #define LAPACK_zpbsvx_base LAPACK_GLOBAL(zpbsvx,ZPBSVX)
12279 void LAPACK_zpbsvx_base(
12280  char const* fact, char const* uplo,
12281  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12282  lapack_complex_double* AB, lapack_int const* ldab,
12283  lapack_complex_double* AFB, lapack_int const* ldafb, char* equed,
12284  double* S,
12285  lapack_complex_double* B,
12286  lapack_int const* ldb,
12287  lapack_complex_double* X, lapack_int const* ldx,
12288  double* rcond,
12289  double* ferr,
12290  double* berr,
12291  lapack_complex_double* work,
12292  double* rwork,
12293  lapack_int* info
12294 #ifdef LAPACK_FORTRAN_STRLEN_END
12295  , size_t, size_t, size_t
12296 #endif
12297 );
12298 #ifdef LAPACK_FORTRAN_STRLEN_END
12299  #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__, 1, 1, 1)
12300 #else
12301  #define LAPACK_zpbsvx(...) LAPACK_zpbsvx_base(__VA_ARGS__)
12302 #endif
12303 
12304 #define LAPACK_cpbtrf_base LAPACK_GLOBAL(cpbtrf,CPBTRF)
12305 void LAPACK_cpbtrf_base(
12306  char const* uplo,
12307  lapack_int const* n, lapack_int const* kd,
12308  lapack_complex_float* 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_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__, 1)
12316 #else
12317  #define LAPACK_cpbtrf(...) LAPACK_cpbtrf_base(__VA_ARGS__)
12318 #endif
12319 
12320 #define LAPACK_dpbtrf_base LAPACK_GLOBAL(dpbtrf,DPBTRF)
12321 void LAPACK_dpbtrf_base(
12322  char const* uplo,
12323  lapack_int const* n, lapack_int const* kd,
12324  double* 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_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__, 1)
12332 #else
12333  #define LAPACK_dpbtrf(...) LAPACK_dpbtrf_base(__VA_ARGS__)
12334 #endif
12335 
12336 #define LAPACK_spbtrf_base LAPACK_GLOBAL(spbtrf,SPBTRF)
12337 void LAPACK_spbtrf_base(
12338  char const* uplo,
12339  lapack_int const* n, lapack_int const* kd,
12340  float* 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_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__, 1)
12348 #else
12349  #define LAPACK_spbtrf(...) LAPACK_spbtrf_base(__VA_ARGS__)
12350 #endif
12351 
12352 #define LAPACK_zpbtrf_base LAPACK_GLOBAL(zpbtrf,ZPBTRF)
12353 void LAPACK_zpbtrf_base(
12354  char const* uplo,
12355  lapack_int const* n, lapack_int const* kd,
12356  lapack_complex_double* AB, lapack_int const* ldab,
12357  lapack_int* info
12358 #ifdef LAPACK_FORTRAN_STRLEN_END
12359  , size_t
12360 #endif
12361 );
12362 #ifdef LAPACK_FORTRAN_STRLEN_END
12363  #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__, 1)
12364 #else
12365  #define LAPACK_zpbtrf(...) LAPACK_zpbtrf_base(__VA_ARGS__)
12366 #endif
12367 
12368 #define LAPACK_cpbtrs_base LAPACK_GLOBAL(cpbtrs,CPBTRS)
12369 void LAPACK_cpbtrs_base(
12370  char const* uplo,
12371  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12372  lapack_complex_float const* AB, lapack_int const* ldab,
12373  lapack_complex_float* B, lapack_int const* ldb,
12374  lapack_int* info
12375 #ifdef LAPACK_FORTRAN_STRLEN_END
12376  , size_t
12377 #endif
12378 );
12379 #ifdef LAPACK_FORTRAN_STRLEN_END
12380  #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__, 1)
12381 #else
12382  #define LAPACK_cpbtrs(...) LAPACK_cpbtrs_base(__VA_ARGS__)
12383 #endif
12384 
12385 #define LAPACK_dpbtrs_base LAPACK_GLOBAL(dpbtrs,DPBTRS)
12386 void LAPACK_dpbtrs_base(
12387  char const* uplo,
12388  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12389  double const* AB, lapack_int const* ldab,
12390  double* B, lapack_int const* ldb,
12391  lapack_int* info
12392 #ifdef LAPACK_FORTRAN_STRLEN_END
12393  , size_t
12394 #endif
12395 );
12396 #ifdef LAPACK_FORTRAN_STRLEN_END
12397  #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__, 1)
12398 #else
12399  #define LAPACK_dpbtrs(...) LAPACK_dpbtrs_base(__VA_ARGS__)
12400 #endif
12401 
12402 #define LAPACK_spbtrs_base LAPACK_GLOBAL(spbtrs,SPBTRS)
12403 void LAPACK_spbtrs_base(
12404  char const* uplo,
12405  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12406  float const* AB, lapack_int const* ldab,
12407  float* B, lapack_int const* ldb,
12408  lapack_int* info
12409 #ifdef LAPACK_FORTRAN_STRLEN_END
12410  , size_t
12411 #endif
12412 );
12413 #ifdef LAPACK_FORTRAN_STRLEN_END
12414  #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__, 1)
12415 #else
12416  #define LAPACK_spbtrs(...) LAPACK_spbtrs_base(__VA_ARGS__)
12417 #endif
12418 
12419 #define LAPACK_zpbtrs_base LAPACK_GLOBAL(zpbtrs,ZPBTRS)
12420 void LAPACK_zpbtrs_base(
12421  char const* uplo,
12422  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
12423  lapack_complex_double const* AB, lapack_int const* ldab,
12424  lapack_complex_double* B, lapack_int const* ldb,
12425  lapack_int* info
12426 #ifdef LAPACK_FORTRAN_STRLEN_END
12427  , size_t
12428 #endif
12429 );
12430 #ifdef LAPACK_FORTRAN_STRLEN_END
12431  #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__, 1)
12432 #else
12433  #define LAPACK_zpbtrs(...) LAPACK_zpbtrs_base(__VA_ARGS__)
12434 #endif
12435 
12436 #define LAPACK_cpftrf_base LAPACK_GLOBAL(cpftrf,CPFTRF)
12437 void LAPACK_cpftrf_base(
12438  char const* transr, char const* uplo,
12439  lapack_int const* n,
12440  lapack_complex_float* 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_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__, 1, 1)
12448 #else
12449  #define LAPACK_cpftrf(...) LAPACK_cpftrf_base(__VA_ARGS__)
12450 #endif
12451 
12452 #define LAPACK_dpftrf_base LAPACK_GLOBAL(dpftrf,DPFTRF)
12453 void LAPACK_dpftrf_base(
12454  char const* transr, char const* uplo,
12455  lapack_int const* n,
12456  double* 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_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__, 1, 1)
12464 #else
12465  #define LAPACK_dpftrf(...) LAPACK_dpftrf_base(__VA_ARGS__)
12466 #endif
12467 
12468 #define LAPACK_spftrf_base LAPACK_GLOBAL(spftrf,SPFTRF)
12469 void LAPACK_spftrf_base(
12470  char const* transr, char const* uplo,
12471  lapack_int const* n,
12472  float* 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_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__, 1, 1)
12480 #else
12481  #define LAPACK_spftrf(...) LAPACK_spftrf_base(__VA_ARGS__)
12482 #endif
12483 
12484 #define LAPACK_zpftrf_base LAPACK_GLOBAL(zpftrf,ZPFTRF)
12485 void LAPACK_zpftrf_base(
12486  char const* transr, char const* uplo,
12487  lapack_int const* n,
12488  lapack_complex_double* 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_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__, 1, 1)
12496 #else
12497  #define LAPACK_zpftrf(...) LAPACK_zpftrf_base(__VA_ARGS__)
12498 #endif
12499 
12500 #define LAPACK_cpftri_base LAPACK_GLOBAL(cpftri,CPFTRI)
12501 void LAPACK_cpftri_base(
12502  char const* transr, char const* uplo,
12503  lapack_int const* n,
12504  lapack_complex_float* 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_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__, 1, 1)
12512 #else
12513  #define LAPACK_cpftri(...) LAPACK_cpftri_base(__VA_ARGS__)
12514 #endif
12515 
12516 #define LAPACK_dpftri_base LAPACK_GLOBAL(dpftri,DPFTRI)
12517 void LAPACK_dpftri_base(
12518  char const* transr, char const* uplo,
12519  lapack_int const* n,
12520  double* 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_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__, 1, 1)
12528 #else
12529  #define LAPACK_dpftri(...) LAPACK_dpftri_base(__VA_ARGS__)
12530 #endif
12531 
12532 #define LAPACK_spftri_base LAPACK_GLOBAL(spftri,SPFTRI)
12533 void LAPACK_spftri_base(
12534  char const* transr, char const* uplo,
12535  lapack_int const* n,
12536  float* 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_spftri(...) LAPACK_spftri_base(__VA_ARGS__, 1, 1)
12544 #else
12545  #define LAPACK_spftri(...) LAPACK_spftri_base(__VA_ARGS__)
12546 #endif
12547 
12548 #define LAPACK_zpftri_base LAPACK_GLOBAL(zpftri,ZPFTRI)
12549 void LAPACK_zpftri_base(
12550  char const* transr, char const* uplo,
12551  lapack_int const* n,
12552  lapack_complex_double* A,
12553  lapack_int* info
12554 #ifdef LAPACK_FORTRAN_STRLEN_END
12555  , size_t, size_t
12556 #endif
12557 );
12558 #ifdef LAPACK_FORTRAN_STRLEN_END
12559  #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__, 1, 1)
12560 #else
12561  #define LAPACK_zpftri(...) LAPACK_zpftri_base(__VA_ARGS__)
12562 #endif
12563 
12564 #define LAPACK_cpftrs_base LAPACK_GLOBAL(cpftrs,CPFTRS)
12565 void LAPACK_cpftrs_base(
12566  char const* transr, char const* uplo,
12567  lapack_int const* n, lapack_int const* nrhs,
12568  lapack_complex_float const* A,
12569  lapack_complex_float* B, lapack_int const* ldb,
12570  lapack_int* info
12571 #ifdef LAPACK_FORTRAN_STRLEN_END
12572  , size_t, size_t
12573 #endif
12574 );
12575 #ifdef LAPACK_FORTRAN_STRLEN_END
12576  #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__, 1, 1)
12577 #else
12578  #define LAPACK_cpftrs(...) LAPACK_cpftrs_base(__VA_ARGS__)
12579 #endif
12580 
12581 #define LAPACK_dpftrs_base LAPACK_GLOBAL(dpftrs,DPFTRS)
12582 void LAPACK_dpftrs_base(
12583  char const* transr, char const* uplo,
12584  lapack_int const* n, lapack_int const* nrhs,
12585  double const* A,
12586  double* B, lapack_int const* ldb,
12587  lapack_int* info
12588 #ifdef LAPACK_FORTRAN_STRLEN_END
12589  , size_t, size_t
12590 #endif
12591 );
12592 #ifdef LAPACK_FORTRAN_STRLEN_END
12593  #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__, 1, 1)
12594 #else
12595  #define LAPACK_dpftrs(...) LAPACK_dpftrs_base(__VA_ARGS__)
12596 #endif
12597 
12598 #define LAPACK_spftrs_base LAPACK_GLOBAL(spftrs,SPFTRS)
12599 void LAPACK_spftrs_base(
12600  char const* transr, char const* uplo,
12601  lapack_int const* n, lapack_int const* nrhs,
12602  float const* A,
12603  float* B, lapack_int const* ldb,
12604  lapack_int* info
12605 #ifdef LAPACK_FORTRAN_STRLEN_END
12606  , size_t, size_t
12607 #endif
12608 );
12609 #ifdef LAPACK_FORTRAN_STRLEN_END
12610  #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__, 1, 1)
12611 #else
12612  #define LAPACK_spftrs(...) LAPACK_spftrs_base(__VA_ARGS__)
12613 #endif
12614 
12615 #define LAPACK_zpftrs_base LAPACK_GLOBAL(zpftrs,ZPFTRS)
12616 void LAPACK_zpftrs_base(
12617  char const* transr, char const* uplo,
12618  lapack_int const* n, lapack_int const* nrhs,
12619  lapack_complex_double const* A,
12620  lapack_complex_double* B, lapack_int const* ldb,
12621  lapack_int* info
12622 #ifdef LAPACK_FORTRAN_STRLEN_END
12623  , size_t, size_t
12624 #endif
12625 );
12626 #ifdef LAPACK_FORTRAN_STRLEN_END
12627  #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__, 1, 1)
12628 #else
12629  #define LAPACK_zpftrs(...) LAPACK_zpftrs_base(__VA_ARGS__)
12630 #endif
12631 
12632 #define LAPACK_cpocon_base LAPACK_GLOBAL(cpocon,CPOCON)
12633 void LAPACK_cpocon_base(
12634  char const* uplo,
12635  lapack_int const* n,
12636  lapack_complex_float const* A, lapack_int const* lda,
12637  float const* anorm,
12638  float* rcond,
12639  lapack_complex_float* work,
12640  float* rwork,
12641  lapack_int* info
12642 #ifdef LAPACK_FORTRAN_STRLEN_END
12643  , size_t
12644 #endif
12645 );
12646 #ifdef LAPACK_FORTRAN_STRLEN_END
12647  #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__, 1)
12648 #else
12649  #define LAPACK_cpocon(...) LAPACK_cpocon_base(__VA_ARGS__)
12650 #endif
12651 
12652 #define LAPACK_dpocon_base LAPACK_GLOBAL(dpocon,DPOCON)
12653 void LAPACK_dpocon_base(
12654  char const* uplo,
12655  lapack_int const* n,
12656  double const* A, lapack_int const* lda,
12657  double const* anorm,
12658  double* rcond,
12659  double* work,
12660  lapack_int* iwork,
12661  lapack_int* info
12662 #ifdef LAPACK_FORTRAN_STRLEN_END
12663  , size_t
12664 #endif
12665 );
12666 #ifdef LAPACK_FORTRAN_STRLEN_END
12667  #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__, 1)
12668 #else
12669  #define LAPACK_dpocon(...) LAPACK_dpocon_base(__VA_ARGS__)
12670 #endif
12671 
12672 #define LAPACK_spocon_base LAPACK_GLOBAL(spocon,SPOCON)
12673 void LAPACK_spocon_base(
12674  char const* uplo,
12675  lapack_int const* n,
12676  float const* A, lapack_int const* lda,
12677  float const* anorm,
12678  float* rcond,
12679  float* work,
12680  lapack_int* iwork,
12681  lapack_int* info
12682 #ifdef LAPACK_FORTRAN_STRLEN_END
12683  , size_t
12684 #endif
12685 );
12686 #ifdef LAPACK_FORTRAN_STRLEN_END
12687  #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__, 1)
12688 #else
12689  #define LAPACK_spocon(...) LAPACK_spocon_base(__VA_ARGS__)
12690 #endif
12691 
12692 #define LAPACK_zpocon_base LAPACK_GLOBAL(zpocon,ZPOCON)
12693 void LAPACK_zpocon_base(
12694  char const* uplo,
12695  lapack_int const* n,
12696  lapack_complex_double const* A, lapack_int const* lda,
12697  double const* anorm,
12698  double* rcond,
12699  lapack_complex_double* work,
12700  double* rwork,
12701  lapack_int* info
12702 #ifdef LAPACK_FORTRAN_STRLEN_END
12703  , size_t
12704 #endif
12705 );
12706 #ifdef LAPACK_FORTRAN_STRLEN_END
12707  #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__, 1)
12708 #else
12709  #define LAPACK_zpocon(...) LAPACK_zpocon_base(__VA_ARGS__)
12710 #endif
12711 
12712 #define LAPACK_cpoequ LAPACK_GLOBAL(cpoequ,CPOEQU)
12713 void LAPACK_cpoequ(
12714  lapack_int const* n,
12715  lapack_complex_float const* A, lapack_int const* lda,
12716  float* S,
12717  float* scond,
12718  float* amax,
12719  lapack_int* info );
12720 
12721 #define LAPACK_dpoequ LAPACK_GLOBAL(dpoequ,DPOEQU)
12722 void LAPACK_dpoequ(
12723  lapack_int const* n,
12724  double const* A, lapack_int const* lda,
12725  double* S,
12726  double* scond,
12727  double* amax,
12728  lapack_int* info );
12729 
12730 #define LAPACK_spoequ LAPACK_GLOBAL(spoequ,SPOEQU)
12731 void LAPACK_spoequ(
12732  lapack_int const* n,
12733  float const* A, lapack_int const* lda,
12734  float* S,
12735  float* scond,
12736  float* amax,
12737  lapack_int* info );
12738 
12739 #define LAPACK_zpoequ LAPACK_GLOBAL(zpoequ,ZPOEQU)
12740 void LAPACK_zpoequ(
12741  lapack_int const* n,
12742  lapack_complex_double const* A, lapack_int const* lda,
12743  double* S,
12744  double* scond,
12745  double* amax,
12746  lapack_int* info );
12747 
12748 #define LAPACK_cpoequb LAPACK_GLOBAL(cpoequb,CPOEQUB)
12749 void LAPACK_cpoequb(
12750  lapack_int const* n,
12751  lapack_complex_float const* A, lapack_int const* lda,
12752  float* S,
12753  float* scond,
12754  float* amax,
12755  lapack_int* info );
12756 
12757 #define LAPACK_dpoequb LAPACK_GLOBAL(dpoequb,DPOEQUB)
12758 void LAPACK_dpoequb(
12759  lapack_int const* n,
12760  double const* A, lapack_int const* lda,
12761  double* S,
12762  double* scond,
12763  double* amax,
12764  lapack_int* info );
12765 
12766 #define LAPACK_spoequb LAPACK_GLOBAL(spoequb,SPOEQUB)
12767 void LAPACK_spoequb(
12768  lapack_int const* n,
12769  float const* A, lapack_int const* lda,
12770  float* S,
12771  float* scond,
12772  float* amax,
12773  lapack_int* info );
12774 
12775 #define LAPACK_zpoequb LAPACK_GLOBAL(zpoequb,ZPOEQUB)
12776 void LAPACK_zpoequb(
12777  lapack_int const* n,
12778  lapack_complex_double const* A, lapack_int const* lda,
12779  double* S,
12780  double* scond,
12781  double* amax,
12782  lapack_int* info );
12783 
12784 #define LAPACK_cporfs_base LAPACK_GLOBAL(cporfs,CPORFS)
12785 void LAPACK_cporfs_base(
12786  char const* uplo,
12787  lapack_int const* n, lapack_int const* nrhs,
12788  lapack_complex_float const* A, lapack_int const* lda,
12789  lapack_complex_float const* AF, lapack_int const* ldaf,
12790  lapack_complex_float const* B, lapack_int const* ldb,
12791  lapack_complex_float* X, lapack_int const* ldx,
12792  float* ferr,
12793  float* berr,
12794  lapack_complex_float* work,
12795  float* rwork,
12796  lapack_int* info
12797 #ifdef LAPACK_FORTRAN_STRLEN_END
12798  , size_t
12799 #endif
12800 );
12801 #ifdef LAPACK_FORTRAN_STRLEN_END
12802  #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__, 1)
12803 #else
12804  #define LAPACK_cporfs(...) LAPACK_cporfs_base(__VA_ARGS__)
12805 #endif
12806 
12807 #define LAPACK_dporfs_base LAPACK_GLOBAL(dporfs,DPORFS)
12808 void LAPACK_dporfs_base(
12809  char const* uplo,
12810  lapack_int const* n, lapack_int const* nrhs,
12811  double const* A, lapack_int const* lda,
12812  double const* AF, lapack_int const* ldaf,
12813  double const* B, lapack_int const* ldb,
12814  double* X, lapack_int const* ldx,
12815  double* ferr,
12816  double* berr,
12817  double* work,
12818  lapack_int* iwork,
12819  lapack_int* info
12820 #ifdef LAPACK_FORTRAN_STRLEN_END
12821  , size_t
12822 #endif
12823 );
12824 #ifdef LAPACK_FORTRAN_STRLEN_END
12825  #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__, 1)
12826 #else
12827  #define LAPACK_dporfs(...) LAPACK_dporfs_base(__VA_ARGS__)
12828 #endif
12829 
12830 #define LAPACK_sporfs_base LAPACK_GLOBAL(sporfs,SPORFS)
12831 void LAPACK_sporfs_base(
12832  char const* uplo,
12833  lapack_int const* n, lapack_int const* nrhs,
12834  float const* A, lapack_int const* lda,
12835  float const* AF, lapack_int const* ldaf,
12836  float const* B, lapack_int const* ldb,
12837  float* X, lapack_int const* ldx,
12838  float* ferr,
12839  float* berr,
12840  float* work,
12841  lapack_int* iwork,
12842  lapack_int* info
12843 #ifdef LAPACK_FORTRAN_STRLEN_END
12844  , size_t
12845 #endif
12846 );
12847 #ifdef LAPACK_FORTRAN_STRLEN_END
12848  #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__, 1)
12849 #else
12850  #define LAPACK_sporfs(...) LAPACK_sporfs_base(__VA_ARGS__)
12851 #endif
12852 
12853 #define LAPACK_zporfs_base LAPACK_GLOBAL(zporfs,ZPORFS)
12854 void LAPACK_zporfs_base(
12855  char const* uplo,
12856  lapack_int const* n, lapack_int const* nrhs,
12857  lapack_complex_double const* A, lapack_int const* lda,
12858  lapack_complex_double const* AF, lapack_int const* ldaf,
12859  lapack_complex_double const* B, lapack_int const* ldb,
12860  lapack_complex_double* X, lapack_int const* ldx,
12861  double* ferr,
12862  double* berr,
12863  lapack_complex_double* work,
12864  double* rwork,
12865  lapack_int* info
12866 #ifdef LAPACK_FORTRAN_STRLEN_END
12867  , size_t
12868 #endif
12869 );
12870 #ifdef LAPACK_FORTRAN_STRLEN_END
12871  #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__, 1)
12872 #else
12873  #define LAPACK_zporfs(...) LAPACK_zporfs_base(__VA_ARGS__)
12874 #endif
12875 
12876 #define LAPACK_cporfsx_base LAPACK_GLOBAL(cporfsx,CPORFSX)
12877 void LAPACK_cporfsx_base(
12878  char const* uplo, char const* equed,
12879  lapack_int const* n, lapack_int const* nrhs,
12880  lapack_complex_float const* A, lapack_int const* lda,
12881  lapack_complex_float const* AF, lapack_int const* ldaf,
12882  const float* S,
12883  lapack_complex_float const* B, lapack_int const* ldb,
12884  lapack_complex_float* X, lapack_int const* ldx,
12885  float* rcond,
12886  float* berr, lapack_int const* n_err_bnds,
12887  float* err_bnds_norm,
12888  float* err_bnds_comp, lapack_int const* nparams,
12889  float* params,
12890  lapack_complex_float* work,
12891  float* rwork,
12892  lapack_int* info
12893 #ifdef LAPACK_FORTRAN_STRLEN_END
12894  , size_t, size_t
12895 #endif
12896 );
12897 #ifdef LAPACK_FORTRAN_STRLEN_END
12898  #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__, 1, 1)
12899 #else
12900  #define LAPACK_cporfsx(...) LAPACK_cporfsx_base(__VA_ARGS__)
12901 #endif
12902 
12903 #define LAPACK_dporfsx_base LAPACK_GLOBAL(dporfsx,DPORFSX)
12904 void LAPACK_dporfsx_base(
12905  char const* uplo, char const* equed,
12906  lapack_int const* n, lapack_int const* nrhs,
12907  double const* A, lapack_int const* lda,
12908  double const* AF, lapack_int const* ldaf,
12909  const double* S,
12910  double const* B, lapack_int const* ldb,
12911  double* X, lapack_int const* ldx,
12912  double* rcond,
12913  double* berr, lapack_int const* n_err_bnds,
12914  double* err_bnds_norm,
12915  double* err_bnds_comp, lapack_int const* nparams,
12916  double* params,
12917  double* work,
12918  lapack_int* iwork,
12919  lapack_int* info
12920 #ifdef LAPACK_FORTRAN_STRLEN_END
12921  , size_t, size_t
12922 #endif
12923 );
12924 #ifdef LAPACK_FORTRAN_STRLEN_END
12925  #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__, 1, 1)
12926 #else
12927  #define LAPACK_dporfsx(...) LAPACK_dporfsx_base(__VA_ARGS__)
12928 #endif
12929 
12930 #define LAPACK_sporfsx_base LAPACK_GLOBAL(sporfsx,SPORFSX)
12931 void LAPACK_sporfsx_base(
12932  char const* uplo, char const* equed,
12933  lapack_int const* n, lapack_int const* nrhs,
12934  float const* A, lapack_int const* lda,
12935  float const* AF, lapack_int const* ldaf,
12936  const float* S,
12937  float const* B, lapack_int const* ldb,
12938  float* X, lapack_int const* ldx,
12939  float* rcond,
12940  float* berr, lapack_int const* n_err_bnds,
12941  float* err_bnds_norm,
12942  float* err_bnds_comp, lapack_int const* nparams,
12943  float* params,
12944  float* work,
12945  lapack_int* iwork,
12946  lapack_int* info
12947 #ifdef LAPACK_FORTRAN_STRLEN_END
12948  , size_t, size_t
12949 #endif
12950 );
12951 #ifdef LAPACK_FORTRAN_STRLEN_END
12952  #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__, 1, 1)
12953 #else
12954  #define LAPACK_sporfsx(...) LAPACK_sporfsx_base(__VA_ARGS__)
12955 #endif
12956 
12957 #define LAPACK_zporfsx_base LAPACK_GLOBAL(zporfsx,ZPORFSX)
12958 void LAPACK_zporfsx_base(
12959  char const* uplo, char const* equed,
12960  lapack_int const* n, lapack_int const* nrhs,
12961  lapack_complex_double const* A, lapack_int const* lda,
12962  lapack_complex_double const* AF, lapack_int const* ldaf,
12963  const double* S,
12964  lapack_complex_double const* B, lapack_int const* ldb,
12965  lapack_complex_double* X, lapack_int const* ldx,
12966  double* rcond,
12967  double* berr, lapack_int const* n_err_bnds,
12968  double* err_bnds_norm,
12969  double* err_bnds_comp, lapack_int const* nparams,
12970  double* params,
12971  lapack_complex_double* work,
12972  double* rwork,
12973  lapack_int* info
12974 #ifdef LAPACK_FORTRAN_STRLEN_END
12975  , size_t, size_t
12976 #endif
12977 );
12978 #ifdef LAPACK_FORTRAN_STRLEN_END
12979  #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__, 1, 1)
12980 #else
12981  #define LAPACK_zporfsx(...) LAPACK_zporfsx_base(__VA_ARGS__)
12982 #endif
12983 
12984 #define LAPACK_cposv_base LAPACK_GLOBAL(cposv,CPOSV)
12985 void LAPACK_cposv_base(
12986  char const* uplo,
12987  lapack_int const* n, lapack_int const* nrhs,
12988  lapack_complex_float* A, lapack_int const* lda,
12989  lapack_complex_float* B, lapack_int const* ldb,
12990  lapack_int* info
12991 #ifdef LAPACK_FORTRAN_STRLEN_END
12992  , size_t
12993 #endif
12994 );
12995 #ifdef LAPACK_FORTRAN_STRLEN_END
12996  #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__, 1)
12997 #else
12998  #define LAPACK_cposv(...) LAPACK_cposv_base(__VA_ARGS__)
12999 #endif
13000 
13001 #define LAPACK_dposv_base LAPACK_GLOBAL(dposv,DPOSV)
13002 void LAPACK_dposv_base(
13003  char const* uplo,
13004  lapack_int const* n, lapack_int const* nrhs,
13005  double* A, lapack_int const* lda,
13006  double* B, lapack_int const* ldb,
13007  lapack_int* info
13008 #ifdef LAPACK_FORTRAN_STRLEN_END
13009  , size_t
13010 #endif
13011 );
13012 #ifdef LAPACK_FORTRAN_STRLEN_END
13013  #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__, 1)
13014 #else
13015  #define LAPACK_dposv(...) LAPACK_dposv_base(__VA_ARGS__)
13016 #endif
13017 
13018 #define LAPACK_sposv_base LAPACK_GLOBAL(sposv,SPOSV)
13019 void LAPACK_sposv_base(
13020  char const* uplo,
13021  lapack_int const* n, lapack_int const* nrhs,
13022  float* A, lapack_int const* lda,
13023  float* B, lapack_int const* ldb,
13024  lapack_int* info
13025 #ifdef LAPACK_FORTRAN_STRLEN_END
13026  , size_t
13027 #endif
13028 );
13029 #ifdef LAPACK_FORTRAN_STRLEN_END
13030  #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__, 1)
13031 #else
13032  #define LAPACK_sposv(...) LAPACK_sposv_base(__VA_ARGS__)
13033 #endif
13034 
13035 #define LAPACK_zposv_base LAPACK_GLOBAL(zposv,ZPOSV)
13036 void LAPACK_zposv_base(
13037  char const* uplo,
13038  lapack_int const* n, lapack_int const* nrhs,
13039  lapack_complex_double* A, lapack_int const* lda,
13040  lapack_complex_double* B, lapack_int const* ldb,
13041  lapack_int* info
13042 #ifdef LAPACK_FORTRAN_STRLEN_END
13043  , size_t
13044 #endif
13045 );
13046 #ifdef LAPACK_FORTRAN_STRLEN_END
13047  #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__, 1)
13048 #else
13049  #define LAPACK_zposv(...) LAPACK_zposv_base(__VA_ARGS__)
13050 #endif
13051 
13052 #define LAPACK_dsposv_base LAPACK_GLOBAL(dsposv,DSPOSV)
13053 void LAPACK_dsposv_base(
13054  char const* uplo,
13055  lapack_int const* n, lapack_int const* nrhs,
13056  double* A, lapack_int const* lda,
13057  double const* B, lapack_int const* ldb,
13058  double* X, lapack_int const* ldx,
13059  double* work,
13060  float* swork, lapack_int* iter,
13061  lapack_int* info
13062 #ifdef LAPACK_FORTRAN_STRLEN_END
13063  , size_t
13064 #endif
13065 );
13066 #ifdef LAPACK_FORTRAN_STRLEN_END
13067  #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__, 1)
13068 #else
13069  #define LAPACK_dsposv(...) LAPACK_dsposv_base(__VA_ARGS__)
13070 #endif
13071 
13072 #define LAPACK_zcposv_base LAPACK_GLOBAL(zcposv,ZCPOSV)
13073 void LAPACK_zcposv_base(
13074  char const* uplo,
13075  lapack_int const* n, lapack_int const* nrhs,
13076  lapack_complex_double* A, lapack_int const* lda,
13077  lapack_complex_double const* B, lapack_int const* ldb,
13078  lapack_complex_double* X, lapack_int const* ldx,
13079  lapack_complex_double* work,
13080  lapack_complex_float* swork,
13081  double* rwork, lapack_int* iter,
13082  lapack_int* info
13083 #ifdef LAPACK_FORTRAN_STRLEN_END
13084  , size_t
13085 #endif
13086 );
13087 #ifdef LAPACK_FORTRAN_STRLEN_END
13088  #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__, 1)
13089 #else
13090  #define LAPACK_zcposv(...) LAPACK_zcposv_base(__VA_ARGS__)
13091 #endif
13092 
13093 #define LAPACK_cposvx_base LAPACK_GLOBAL(cposvx,CPOSVX)
13094 void LAPACK_cposvx_base(
13095  char const* fact, char const* uplo,
13096  lapack_int const* n, lapack_int const* nrhs,
13097  lapack_complex_float* A, lapack_int const* lda,
13098  lapack_complex_float* AF, lapack_int const* ldaf, char* equed,
13099  float* S,
13100  lapack_complex_float* B,
13101  lapack_int const* ldb,
13102  lapack_complex_float* X, lapack_int const* ldx,
13103  float* rcond,
13104  float* ferr,
13105  float* berr,
13106  lapack_complex_float* work,
13107  float* rwork,
13108  lapack_int* info
13109 #ifdef LAPACK_FORTRAN_STRLEN_END
13110  , size_t, size_t, size_t
13111 #endif
13112 );
13113 #ifdef LAPACK_FORTRAN_STRLEN_END
13114  #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__, 1, 1, 1)
13115 #else
13116  #define LAPACK_cposvx(...) LAPACK_cposvx_base(__VA_ARGS__)
13117 #endif
13118 
13119 #define LAPACK_dposvx_base LAPACK_GLOBAL(dposvx,DPOSVX)
13120 void LAPACK_dposvx_base(
13121  char const* fact, char const* uplo,
13122  lapack_int const* n, lapack_int const* nrhs,
13123  double* A, lapack_int const* lda,
13124  double* AF, lapack_int const* ldaf, char* equed,
13125  double* S,
13126  double* B,
13127  lapack_int const* ldb,
13128  double* X, lapack_int const* ldx,
13129  double* rcond,
13130  double* ferr,
13131  double* berr,
13132  double* work,
13133  lapack_int* iwork,
13134  lapack_int* info
13135 #ifdef LAPACK_FORTRAN_STRLEN_END
13136  , size_t, size_t, size_t
13137 #endif
13138 );
13139 #ifdef LAPACK_FORTRAN_STRLEN_END
13140  #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__, 1, 1, 1)
13141 #else
13142  #define LAPACK_dposvx(...) LAPACK_dposvx_base(__VA_ARGS__)
13143 #endif
13144 
13145 #define LAPACK_sposvx_base LAPACK_GLOBAL(sposvx,SPOSVX)
13146 void LAPACK_sposvx_base(
13147  char const* fact, char const* uplo,
13148  lapack_int const* n, lapack_int const* nrhs,
13149  float* A, lapack_int const* lda,
13150  float* AF, lapack_int const* ldaf, char* equed,
13151  float* S,
13152  float* B,
13153  lapack_int const* ldb,
13154  float* X, lapack_int const* ldx,
13155  float* rcond,
13156  float* ferr,
13157  float* berr,
13158  float* work,
13159  lapack_int* iwork,
13160  lapack_int* info
13161 #ifdef LAPACK_FORTRAN_STRLEN_END
13162  , size_t, size_t, size_t
13163 #endif
13164 );
13165 #ifdef LAPACK_FORTRAN_STRLEN_END
13166  #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__, 1, 1, 1)
13167 #else
13168  #define LAPACK_sposvx(...) LAPACK_sposvx_base(__VA_ARGS__)
13169 #endif
13170 
13171 #define LAPACK_zposvx_base LAPACK_GLOBAL(zposvx,ZPOSVX)
13172 void LAPACK_zposvx_base(
13173  char const* fact, char const* uplo,
13174  lapack_int const* n, lapack_int const* nrhs,
13175  lapack_complex_double* A, lapack_int const* lda,
13176  lapack_complex_double* AF, lapack_int const* ldaf, char* equed,
13177  double* S,
13178  lapack_complex_double* B,
13179  lapack_int const* ldb,
13180  lapack_complex_double* X, lapack_int const* ldx,
13181  double* rcond,
13182  double* ferr,
13183  double* berr,
13184  lapack_complex_double* work,
13185  double* rwork,
13186  lapack_int* info
13187 #ifdef LAPACK_FORTRAN_STRLEN_END
13188  , size_t, size_t, size_t
13189 #endif
13190 );
13191 #ifdef LAPACK_FORTRAN_STRLEN_END
13192  #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__, 1, 1, 1)
13193 #else
13194  #define LAPACK_zposvx(...) LAPACK_zposvx_base(__VA_ARGS__)
13195 #endif
13196 
13197 #define LAPACK_cposvxx_base LAPACK_GLOBAL(cposvxx,CPOSVXX)
13198 void LAPACK_cposvxx_base(
13199  char const* fact, char const* uplo,
13200  lapack_int const* n, lapack_int const* nrhs,
13201  lapack_complex_float* A, lapack_int const* lda,
13202  lapack_complex_float* AF, lapack_int const* ldaf, char* equed,
13203  float* S,
13204  lapack_complex_float* B,
13205  lapack_int const* ldb,
13206  lapack_complex_float* X, lapack_int const* ldx,
13207  float* rcond,
13208  float* rpvgrw,
13209  float* berr, lapack_int const* n_err_bnds,
13210  float* err_bnds_norm,
13211  float* err_bnds_comp, lapack_int const* nparams,
13212  float* params,
13213  lapack_complex_float* work,
13214  float* rwork,
13215  lapack_int* info
13216 #ifdef LAPACK_FORTRAN_STRLEN_END
13217  , size_t, size_t, size_t
13218 #endif
13219 );
13220 #ifdef LAPACK_FORTRAN_STRLEN_END
13221  #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__, 1, 1, 1)
13222 #else
13223  #define LAPACK_cposvxx(...) LAPACK_cposvxx_base(__VA_ARGS__)
13224 #endif
13225 
13226 #define LAPACK_dposvxx_base LAPACK_GLOBAL(dposvxx,DPOSVXX)
13227 void LAPACK_dposvxx_base(
13228  char const* fact, char const* uplo,
13229  lapack_int const* n, lapack_int const* nrhs,
13230  double* A, lapack_int const* lda,
13231  double* AF, lapack_int const* ldaf, char* equed,
13232  double* S,
13233  double* B,
13234  lapack_int const* ldb,
13235  double* X, lapack_int const* ldx,
13236  double* rcond,
13237  double* rpvgrw,
13238  double* berr, lapack_int const* n_err_bnds,
13239  double* err_bnds_norm,
13240  double* err_bnds_comp, lapack_int const* nparams,
13241  double* params,
13242  double* work,
13243  lapack_int* iwork,
13244  lapack_int* info
13245 #ifdef LAPACK_FORTRAN_STRLEN_END
13246  , size_t, size_t, size_t
13247 #endif
13248 );
13249 #ifdef LAPACK_FORTRAN_STRLEN_END
13250  #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__, 1, 1, 1)
13251 #else
13252  #define LAPACK_dposvxx(...) LAPACK_dposvxx_base(__VA_ARGS__)
13253 #endif
13254 
13255 #define LAPACK_sposvxx_base LAPACK_GLOBAL(sposvxx,SPOSVXX)
13256 void LAPACK_sposvxx_base(
13257  char const* fact, char const* uplo,
13258  lapack_int const* n, lapack_int const* nrhs,
13259  float* A, lapack_int const* lda,
13260  float* AF, lapack_int const* ldaf, char* equed,
13261  float* S,
13262  float* B,
13263  lapack_int const* ldb,
13264  float* X, lapack_int const* ldx,
13265  float* rcond,
13266  float* rpvgrw,
13267  float* berr, lapack_int const* n_err_bnds,
13268  float* err_bnds_norm,
13269  float* err_bnds_comp, lapack_int const* nparams,
13270  float* params,
13271  float* work,
13272  lapack_int* iwork,
13273  lapack_int* info
13274 #ifdef LAPACK_FORTRAN_STRLEN_END
13275  , size_t, size_t, size_t
13276 #endif
13277 );
13278 #ifdef LAPACK_FORTRAN_STRLEN_END
13279  #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__, 1, 1, 1)
13280 #else
13281  #define LAPACK_sposvxx(...) LAPACK_sposvxx_base(__VA_ARGS__)
13282 #endif
13283 
13284 #define LAPACK_zposvxx_base LAPACK_GLOBAL(zposvxx,ZPOSVXX)
13285 void LAPACK_zposvxx_base(
13286  char const* fact, char const* uplo,
13287  lapack_int const* n, lapack_int const* nrhs,
13288  lapack_complex_double* A, lapack_int const* lda,
13289  lapack_complex_double* AF, lapack_int const* ldaf, char* equed,
13290  double* S,
13291  lapack_complex_double* B,
13292  lapack_int const* ldb,
13293  lapack_complex_double* X, lapack_int const* ldx,
13294  double* rcond,
13295  double* rpvgrw,
13296  double* berr, lapack_int const* n_err_bnds,
13297  double* err_bnds_norm,
13298  double* err_bnds_comp, lapack_int const* nparams,
13299  double* params,
13300  lapack_complex_double* work,
13301  double* rwork,
13302  lapack_int* info
13303 #ifdef LAPACK_FORTRAN_STRLEN_END
13304  , size_t, size_t, size_t
13305 #endif
13306 );
13307 #ifdef LAPACK_FORTRAN_STRLEN_END
13308  #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__, 1, 1, 1)
13309 #else
13310  #define LAPACK_zposvxx(...) LAPACK_zposvxx_base(__VA_ARGS__)
13311 #endif
13312 
13313 #define LAPACK_cpotf2_base LAPACK_GLOBAL(cpotf2,CPOTF2)
13314 void LAPACK_cpotf2_base(
13315  char const* uplo,
13316  lapack_int const* n,
13317  lapack_complex_float* 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_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__, 1)
13325 #else
13326  #define LAPACK_cpotf2(...) LAPACK_cpotf2_base(__VA_ARGS__)
13327 #endif
13328 
13329 #define LAPACK_dpotf2_base LAPACK_GLOBAL(dpotf2,DPOTF2)
13330 void LAPACK_dpotf2_base(
13331  char const* uplo,
13332  lapack_int const* n,
13333  double* 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_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__, 1)
13341 #else
13342  #define LAPACK_dpotf2(...) LAPACK_dpotf2_base(__VA_ARGS__)
13343 #endif
13344 
13345 #define LAPACK_spotf2_base LAPACK_GLOBAL(spotf2,SPOTF2)
13346 void LAPACK_spotf2_base(
13347  char const* uplo,
13348  lapack_int const* n,
13349  float* 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_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__, 1)
13357 #else
13358  #define LAPACK_spotf2(...) LAPACK_spotf2_base(__VA_ARGS__)
13359 #endif
13360 
13361 #define LAPACK_zpotf2_base LAPACK_GLOBAL(zpotf2,ZPOTF2)
13362 void LAPACK_zpotf2_base(
13363  char const* uplo,
13364  lapack_int const* n,
13365  lapack_complex_double* 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_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__, 1)
13373 #else
13374  #define LAPACK_zpotf2(...) LAPACK_zpotf2_base(__VA_ARGS__)
13375 #endif
13376 
13377 #define LAPACK_cpotrf_base LAPACK_GLOBAL(cpotrf,CPOTRF)
13378 void LAPACK_cpotrf_base(
13379  char const* uplo,
13380  lapack_int const* n,
13381  lapack_complex_float* 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_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__, 1)
13389 #else
13390  #define LAPACK_cpotrf(...) LAPACK_cpotrf_base(__VA_ARGS__)
13391 #endif
13392 
13393 #define LAPACK_dpotrf_base LAPACK_GLOBAL(dpotrf,DPOTRF)
13394 void LAPACK_dpotrf_base(
13395  char const* uplo,
13396  lapack_int const* n,
13397  double* 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_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__, 1)
13405 #else
13406  #define LAPACK_dpotrf(...) LAPACK_dpotrf_base(__VA_ARGS__)
13407 #endif
13408 
13409 #define LAPACK_spotrf_base LAPACK_GLOBAL(spotrf,SPOTRF)
13410 void LAPACK_spotrf_base(
13411  char const* uplo,
13412  lapack_int const* n,
13413  float* 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_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__, 1)
13421 #else
13422  #define LAPACK_spotrf(...) LAPACK_spotrf_base(__VA_ARGS__)
13423 #endif
13424 
13425 #define LAPACK_zpotrf_base LAPACK_GLOBAL(zpotrf,ZPOTRF)
13426 void LAPACK_zpotrf_base(
13427  char const* uplo,
13428  lapack_int const* n,
13429  lapack_complex_double* 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_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__, 1)
13437 #else
13438  #define LAPACK_zpotrf(...) LAPACK_zpotrf_base(__VA_ARGS__)
13439 #endif
13440 
13441 #define LAPACK_cpotrf2_base LAPACK_GLOBAL(cpotrf2,CPOTRF2)
13442 void LAPACK_cpotrf2_base(
13443  char const* uplo,
13444  lapack_int const* n,
13445  lapack_complex_float* 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_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__, 1)
13453 #else
13454  #define LAPACK_cpotrf2(...) LAPACK_cpotrf2_base(__VA_ARGS__)
13455 #endif
13456 
13457 #define LAPACK_dpotrf2_base LAPACK_GLOBAL(dpotrf2,DPOTRF2)
13458 void LAPACK_dpotrf2_base(
13459  char const* uplo,
13460  lapack_int const* n,
13461  double* 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_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__, 1)
13469 #else
13470  #define LAPACK_dpotrf2(...) LAPACK_dpotrf2_base(__VA_ARGS__)
13471 #endif
13472 
13473 #define LAPACK_spotrf2_base LAPACK_GLOBAL(spotrf2,SPOTRF2)
13474 void LAPACK_spotrf2_base(
13475  char const* uplo,
13476  lapack_int const* n,
13477  float* 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_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__, 1)
13485 #else
13486  #define LAPACK_spotrf2(...) LAPACK_spotrf2_base(__VA_ARGS__)
13487 #endif
13488 
13489 #define LAPACK_zpotrf2_base LAPACK_GLOBAL(zpotrf2,ZPOTRF2)
13490 void LAPACK_zpotrf2_base(
13491  char const* uplo,
13492  lapack_int const* n,
13493  lapack_complex_double* 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_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__, 1)
13501 #else
13502  #define LAPACK_zpotrf2(...) LAPACK_zpotrf2_base(__VA_ARGS__)
13503 #endif
13504 
13505 #define LAPACK_cpotri_base LAPACK_GLOBAL(cpotri,CPOTRI)
13506 void LAPACK_cpotri_base(
13507  char const* uplo,
13508  lapack_int const* n,
13509  lapack_complex_float* 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_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__, 1)
13517 #else
13518  #define LAPACK_cpotri(...) LAPACK_cpotri_base(__VA_ARGS__)
13519 #endif
13520 
13521 #define LAPACK_dpotri_base LAPACK_GLOBAL(dpotri,DPOTRI)
13522 void LAPACK_dpotri_base(
13523  char const* uplo,
13524  lapack_int const* n,
13525  double* 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_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__, 1)
13533 #else
13534  #define LAPACK_dpotri(...) LAPACK_dpotri_base(__VA_ARGS__)
13535 #endif
13536 
13537 #define LAPACK_spotri_base LAPACK_GLOBAL(spotri,SPOTRI)
13538 void LAPACK_spotri_base(
13539  char const* uplo,
13540  lapack_int const* n,
13541  float* 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_spotri(...) LAPACK_spotri_base(__VA_ARGS__, 1)
13549 #else
13550  #define LAPACK_spotri(...) LAPACK_spotri_base(__VA_ARGS__)
13551 #endif
13552 
13553 #define LAPACK_zpotri_base LAPACK_GLOBAL(zpotri,ZPOTRI)
13554 void LAPACK_zpotri_base(
13555  char const* uplo,
13556  lapack_int const* n,
13557  lapack_complex_double* A, lapack_int const* lda,
13558  lapack_int* info
13559 #ifdef LAPACK_FORTRAN_STRLEN_END
13560  , size_t
13561 #endif
13562 );
13563 #ifdef LAPACK_FORTRAN_STRLEN_END
13564  #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__, 1)
13565 #else
13566  #define LAPACK_zpotri(...) LAPACK_zpotri_base(__VA_ARGS__)
13567 #endif
13568 
13569 #define LAPACK_cpotrs_base LAPACK_GLOBAL(cpotrs,CPOTRS)
13570 void LAPACK_cpotrs_base(
13571  char const* uplo,
13572  lapack_int const* n, lapack_int const* nrhs,
13573  lapack_complex_float const* A, lapack_int const* lda,
13574  lapack_complex_float* B, lapack_int const* ldb,
13575  lapack_int* info
13576 #ifdef LAPACK_FORTRAN_STRLEN_END
13577  , size_t
13578 #endif
13579 );
13580 #ifdef LAPACK_FORTRAN_STRLEN_END
13581  #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__, 1)
13582 #else
13583  #define LAPACK_cpotrs(...) LAPACK_cpotrs_base(__VA_ARGS__)
13584 #endif
13585 
13586 #define LAPACK_dpotrs_base LAPACK_GLOBAL(dpotrs,DPOTRS)
13587 void LAPACK_dpotrs_base(
13588  char const* uplo,
13589  lapack_int const* n, lapack_int const* nrhs,
13590  double const* A, lapack_int const* lda,
13591  double* B, lapack_int const* ldb,
13592  lapack_int* info
13593 #ifdef LAPACK_FORTRAN_STRLEN_END
13594  , size_t
13595 #endif
13596 );
13597 #ifdef LAPACK_FORTRAN_STRLEN_END
13598  #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__, 1)
13599 #else
13600  #define LAPACK_dpotrs(...) LAPACK_dpotrs_base(__VA_ARGS__)
13601 #endif
13602 
13603 #define LAPACK_spotrs_base LAPACK_GLOBAL(spotrs,SPOTRS)
13604 void LAPACK_spotrs_base(
13605  char const* uplo,
13606  lapack_int const* n, lapack_int const* nrhs,
13607  float const* A, lapack_int const* lda,
13608  float* B, lapack_int const* ldb,
13609  lapack_int* info
13610 #ifdef LAPACK_FORTRAN_STRLEN_END
13611  , size_t
13612 #endif
13613 );
13614 #ifdef LAPACK_FORTRAN_STRLEN_END
13615  #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__, 1)
13616 #else
13617  #define LAPACK_spotrs(...) LAPACK_spotrs_base(__VA_ARGS__)
13618 #endif
13619 
13620 #define LAPACK_zpotrs_base LAPACK_GLOBAL(zpotrs,ZPOTRS)
13621 void LAPACK_zpotrs_base(
13622  char const* uplo,
13623  lapack_int const* n, lapack_int const* nrhs,
13624  lapack_complex_double const* A, lapack_int const* lda,
13625  lapack_complex_double* B, lapack_int const* ldb,
13626  lapack_int* info
13627 #ifdef LAPACK_FORTRAN_STRLEN_END
13628  , size_t
13629 #endif
13630 );
13631 #ifdef LAPACK_FORTRAN_STRLEN_END
13632  #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__, 1)
13633 #else
13634  #define LAPACK_zpotrs(...) LAPACK_zpotrs_base(__VA_ARGS__)
13635 #endif
13636 
13637 #define LAPACK_cppcon_base LAPACK_GLOBAL(cppcon,CPPCON)
13638 void LAPACK_cppcon_base(
13639  char const* uplo,
13640  lapack_int const* n,
13641  lapack_complex_float const* AP,
13642  float const* anorm,
13643  float* rcond,
13644  lapack_complex_float* work,
13645  float* rwork,
13646  lapack_int* info
13647 #ifdef LAPACK_FORTRAN_STRLEN_END
13648  , size_t
13649 #endif
13650 );
13651 #ifdef LAPACK_FORTRAN_STRLEN_END
13652  #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__, 1)
13653 #else
13654  #define LAPACK_cppcon(...) LAPACK_cppcon_base(__VA_ARGS__)
13655 #endif
13656 
13657 #define LAPACK_dppcon_base LAPACK_GLOBAL(dppcon,DPPCON)
13658 void LAPACK_dppcon_base(
13659  char const* uplo,
13660  lapack_int const* n,
13661  double const* AP,
13662  double const* anorm,
13663  double* rcond,
13664  double* work,
13665  lapack_int* iwork,
13666  lapack_int* info
13667 #ifdef LAPACK_FORTRAN_STRLEN_END
13668  , size_t
13669 #endif
13670 );
13671 #ifdef LAPACK_FORTRAN_STRLEN_END
13672  #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__, 1)
13673 #else
13674  #define LAPACK_dppcon(...) LAPACK_dppcon_base(__VA_ARGS__)
13675 #endif
13676 
13677 #define LAPACK_sppcon_base LAPACK_GLOBAL(sppcon,SPPCON)
13678 void LAPACK_sppcon_base(
13679  char const* uplo,
13680  lapack_int const* n,
13681  float const* AP,
13682  float const* anorm,
13683  float* rcond,
13684  float* work,
13685  lapack_int* iwork,
13686  lapack_int* info
13687 #ifdef LAPACK_FORTRAN_STRLEN_END
13688  , size_t
13689 #endif
13690 );
13691 #ifdef LAPACK_FORTRAN_STRLEN_END
13692  #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__, 1)
13693 #else
13694  #define LAPACK_sppcon(...) LAPACK_sppcon_base(__VA_ARGS__)
13695 #endif
13696 
13697 #define LAPACK_zppcon_base LAPACK_GLOBAL(zppcon,ZPPCON)
13698 void LAPACK_zppcon_base(
13699  char const* uplo,
13700  lapack_int const* n,
13701  lapack_complex_double const* AP,
13702  double const* anorm,
13703  double* rcond,
13704  lapack_complex_double* work,
13705  double* rwork,
13706  lapack_int* info
13707 #ifdef LAPACK_FORTRAN_STRLEN_END
13708  , size_t
13709 #endif
13710 );
13711 #ifdef LAPACK_FORTRAN_STRLEN_END
13712  #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__, 1)
13713 #else
13714  #define LAPACK_zppcon(...) LAPACK_zppcon_base(__VA_ARGS__)
13715 #endif
13716 
13717 #define LAPACK_cppequ_base LAPACK_GLOBAL(cppequ,CPPEQU)
13718 void LAPACK_cppequ_base(
13719  char const* uplo,
13720  lapack_int const* n,
13721  lapack_complex_float const* AP,
13722  float* S,
13723  float* scond,
13724  float* amax,
13725  lapack_int* info
13726 #ifdef LAPACK_FORTRAN_STRLEN_END
13727  , size_t
13728 #endif
13729 );
13730 #ifdef LAPACK_FORTRAN_STRLEN_END
13731  #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__, 1)
13732 #else
13733  #define LAPACK_cppequ(...) LAPACK_cppequ_base(__VA_ARGS__)
13734 #endif
13735 
13736 #define LAPACK_dppequ_base LAPACK_GLOBAL(dppequ,DPPEQU)
13737 void LAPACK_dppequ_base(
13738  char const* uplo,
13739  lapack_int const* n,
13740  double const* AP,
13741  double* S,
13742  double* scond,
13743  double* amax,
13744  lapack_int* info
13745 #ifdef LAPACK_FORTRAN_STRLEN_END
13746  , size_t
13747 #endif
13748 );
13749 #ifdef LAPACK_FORTRAN_STRLEN_END
13750  #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__, 1)
13751 #else
13752  #define LAPACK_dppequ(...) LAPACK_dppequ_base(__VA_ARGS__)
13753 #endif
13754 
13755 #define LAPACK_sppequ_base LAPACK_GLOBAL(sppequ,SPPEQU)
13756 void LAPACK_sppequ_base(
13757  char const* uplo,
13758  lapack_int const* n,
13759  float const* AP,
13760  float* S,
13761  float* scond,
13762  float* amax,
13763  lapack_int* info
13764 #ifdef LAPACK_FORTRAN_STRLEN_END
13765  , size_t
13766 #endif
13767 );
13768 #ifdef LAPACK_FORTRAN_STRLEN_END
13769  #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__, 1)
13770 #else
13771  #define LAPACK_sppequ(...) LAPACK_sppequ_base(__VA_ARGS__)
13772 #endif
13773 
13774 #define LAPACK_zppequ_base LAPACK_GLOBAL(zppequ,ZPPEQU)
13775 void LAPACK_zppequ_base(
13776  char const* uplo,
13777  lapack_int const* n,
13778  lapack_complex_double const* AP,
13779  double* S,
13780  double* scond,
13781  double* amax,
13782  lapack_int* info
13783 #ifdef LAPACK_FORTRAN_STRLEN_END
13784  , size_t
13785 #endif
13786 );
13787 #ifdef LAPACK_FORTRAN_STRLEN_END
13788  #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__, 1)
13789 #else
13790  #define LAPACK_zppequ(...) LAPACK_zppequ_base(__VA_ARGS__)
13791 #endif
13792 
13793 #define LAPACK_cpprfs_base LAPACK_GLOBAL(cpprfs,CPPRFS)
13794 void LAPACK_cpprfs_base(
13795  char const* uplo,
13796  lapack_int const* n, lapack_int const* nrhs,
13797  lapack_complex_float const* AP,
13798  lapack_complex_float const* AFP,
13799  lapack_complex_float const* B, lapack_int const* ldb,
13800  lapack_complex_float* X, lapack_int const* ldx,
13801  float* ferr,
13802  float* berr,
13803  lapack_complex_float* work,
13804  float* rwork,
13805  lapack_int* info
13806 #ifdef LAPACK_FORTRAN_STRLEN_END
13807  , size_t
13808 #endif
13809 );
13810 #ifdef LAPACK_FORTRAN_STRLEN_END
13811  #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__, 1)
13812 #else
13813  #define LAPACK_cpprfs(...) LAPACK_cpprfs_base(__VA_ARGS__)
13814 #endif
13815 
13816 #define LAPACK_dpprfs_base LAPACK_GLOBAL(dpprfs,DPPRFS)
13817 void LAPACK_dpprfs_base(
13818  char const* uplo,
13819  lapack_int const* n, lapack_int const* nrhs,
13820  double const* AP,
13821  double const* AFP,
13822  double const* B, lapack_int const* ldb,
13823  double* X, lapack_int const* ldx,
13824  double* ferr,
13825  double* berr,
13826  double* work,
13827  lapack_int* iwork,
13828  lapack_int* info
13829 #ifdef LAPACK_FORTRAN_STRLEN_END
13830  , size_t
13831 #endif
13832 );
13833 #ifdef LAPACK_FORTRAN_STRLEN_END
13834  #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__, 1)
13835 #else
13836  #define LAPACK_dpprfs(...) LAPACK_dpprfs_base(__VA_ARGS__)
13837 #endif
13838 
13839 #define LAPACK_spprfs_base LAPACK_GLOBAL(spprfs,SPPRFS)
13840 void LAPACK_spprfs_base(
13841  char const* uplo,
13842  lapack_int const* n, lapack_int const* nrhs,
13843  float const* AP,
13844  float const* AFP,
13845  float const* B, lapack_int const* ldb,
13846  float* X, lapack_int const* ldx,
13847  float* ferr,
13848  float* berr,
13849  float* work,
13850  lapack_int* iwork,
13851  lapack_int* info
13852 #ifdef LAPACK_FORTRAN_STRLEN_END
13853  , size_t
13854 #endif
13855 );
13856 #ifdef LAPACK_FORTRAN_STRLEN_END
13857  #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__, 1)
13858 #else
13859  #define LAPACK_spprfs(...) LAPACK_spprfs_base(__VA_ARGS__)
13860 #endif
13861 
13862 #define LAPACK_zpprfs_base LAPACK_GLOBAL(zpprfs,ZPPRFS)
13863 void LAPACK_zpprfs_base(
13864  char const* uplo,
13865  lapack_int const* n, lapack_int const* nrhs,
13866  lapack_complex_double const* AP,
13867  lapack_complex_double const* AFP,
13868  lapack_complex_double const* B, lapack_int const* ldb,
13869  lapack_complex_double* X, lapack_int const* ldx,
13870  double* ferr,
13871  double* berr,
13872  lapack_complex_double* work,
13873  double* rwork,
13874  lapack_int* info
13875 #ifdef LAPACK_FORTRAN_STRLEN_END
13876  , size_t
13877 #endif
13878 );
13879 #ifdef LAPACK_FORTRAN_STRLEN_END
13880  #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__, 1)
13881 #else
13882  #define LAPACK_zpprfs(...) LAPACK_zpprfs_base(__VA_ARGS__)
13883 #endif
13884 
13885 #define LAPACK_cppsv_base LAPACK_GLOBAL(cppsv,CPPSV)
13886 void LAPACK_cppsv_base(
13887  char const* uplo,
13888  lapack_int const* n, lapack_int const* nrhs,
13889  lapack_complex_float* AP,
13890  lapack_complex_float* B, lapack_int const* ldb,
13891  lapack_int* info
13892 #ifdef LAPACK_FORTRAN_STRLEN_END
13893  , size_t
13894 #endif
13895 );
13896 #ifdef LAPACK_FORTRAN_STRLEN_END
13897  #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__, 1)
13898 #else
13899  #define LAPACK_cppsv(...) LAPACK_cppsv_base(__VA_ARGS__)
13900 #endif
13901 
13902 #define LAPACK_dppsv_base LAPACK_GLOBAL(dppsv,DPPSV)
13903 void LAPACK_dppsv_base(
13904  char const* uplo,
13905  lapack_int const* n, lapack_int const* nrhs,
13906  double* AP,
13907  double* B, lapack_int const* ldb,
13908  lapack_int* info
13909 #ifdef LAPACK_FORTRAN_STRLEN_END
13910  , size_t
13911 #endif
13912 );
13913 #ifdef LAPACK_FORTRAN_STRLEN_END
13914  #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__, 1)
13915 #else
13916  #define LAPACK_dppsv(...) LAPACK_dppsv_base(__VA_ARGS__)
13917 #endif
13918 
13919 #define LAPACK_sppsv_base LAPACK_GLOBAL(sppsv,SPPSV)
13920 void LAPACK_sppsv_base(
13921  char const* uplo,
13922  lapack_int const* n, lapack_int const* nrhs,
13923  float* AP,
13924  float* B, lapack_int const* ldb,
13925  lapack_int* info
13926 #ifdef LAPACK_FORTRAN_STRLEN_END
13927  , size_t
13928 #endif
13929 );
13930 #ifdef LAPACK_FORTRAN_STRLEN_END
13931  #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__, 1)
13932 #else
13933  #define LAPACK_sppsv(...) LAPACK_sppsv_base(__VA_ARGS__)
13934 #endif
13935 
13936 #define LAPACK_zppsv_base LAPACK_GLOBAL(zppsv,ZPPSV)
13937 void LAPACK_zppsv_base(
13938  char const* uplo,
13939  lapack_int const* n, lapack_int const* nrhs,
13940  lapack_complex_double* AP,
13941  lapack_complex_double* B, lapack_int const* ldb,
13942  lapack_int* info
13943 #ifdef LAPACK_FORTRAN_STRLEN_END
13944  , size_t
13945 #endif
13946 );
13947 #ifdef LAPACK_FORTRAN_STRLEN_END
13948  #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__, 1)
13949 #else
13950  #define LAPACK_zppsv(...) LAPACK_zppsv_base(__VA_ARGS__)
13951 #endif
13952 
13953 #define LAPACK_cppsvx_base LAPACK_GLOBAL(cppsvx,CPPSVX)
13954 void LAPACK_cppsvx_base(
13955  char const* fact, char const* uplo,
13956  lapack_int const* n, lapack_int const* nrhs,
13957  lapack_complex_float* AP,
13958  lapack_complex_float* AFP, char* equed,
13959  float* S,
13960  lapack_complex_float* B,
13961  lapack_int const* ldb,
13962  lapack_complex_float* X, lapack_int const* ldx,
13963  float* rcond,
13964  float* ferr,
13965  float* berr,
13966  lapack_complex_float* work,
13967  float* rwork,
13968  lapack_int* info
13969 #ifdef LAPACK_FORTRAN_STRLEN_END
13970  , size_t, size_t, size_t
13971 #endif
13972 );
13973 #ifdef LAPACK_FORTRAN_STRLEN_END
13974  #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__, 1, 1, 1)
13975 #else
13976  #define LAPACK_cppsvx(...) LAPACK_cppsvx_base(__VA_ARGS__)
13977 #endif
13978 
13979 #define LAPACK_dppsvx_base LAPACK_GLOBAL(dppsvx,DPPSVX)
13980 void LAPACK_dppsvx_base(
13981  char const* fact, char const* uplo,
13982  lapack_int const* n, lapack_int const* nrhs,
13983  double* AP,
13984  double* AFP, char* equed,
13985  double* S,
13986  double* B,
13987  lapack_int const* ldb,
13988  double* X, lapack_int const* ldx,
13989  double* rcond,
13990  double* ferr,
13991  double* berr,
13992  double* work,
13993  lapack_int* iwork,
13994  lapack_int* info
13995 #ifdef LAPACK_FORTRAN_STRLEN_END
13996  , size_t, size_t, size_t
13997 #endif
13998 );
13999 #ifdef LAPACK_FORTRAN_STRLEN_END
14000  #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__, 1, 1, 1)
14001 #else
14002  #define LAPACK_dppsvx(...) LAPACK_dppsvx_base(__VA_ARGS__)
14003 #endif
14004 
14005 #define LAPACK_sppsvx_base LAPACK_GLOBAL(sppsvx,SPPSVX)
14006 void LAPACK_sppsvx_base(
14007  char const* fact, char const* uplo,
14008  lapack_int const* n, lapack_int const* nrhs,
14009  float* AP,
14010  float* AFP, char* equed,
14011  float* S,
14012  float* B,
14013  lapack_int const* ldb,
14014  float* X, lapack_int const* ldx,
14015  float* rcond,
14016  float* ferr,
14017  float* berr,
14018  float* work,
14019  lapack_int* iwork,
14020  lapack_int* info
14021 #ifdef LAPACK_FORTRAN_STRLEN_END
14022  , size_t, size_t, size_t
14023 #endif
14024 );
14025 #ifdef LAPACK_FORTRAN_STRLEN_END
14026  #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__, 1, 1, 1)
14027 #else
14028  #define LAPACK_sppsvx(...) LAPACK_sppsvx_base(__VA_ARGS__)
14029 #endif
14030 
14031 #define LAPACK_zppsvx_base LAPACK_GLOBAL(zppsvx,ZPPSVX)
14032 void LAPACK_zppsvx_base(
14033  char const* fact, char const* uplo,
14034  lapack_int const* n, lapack_int const* nrhs,
14035  lapack_complex_double* AP,
14036  lapack_complex_double* AFP, char* equed,
14037  double* S,
14038  lapack_complex_double* B,
14039  lapack_int const* ldb,
14040  lapack_complex_double* X, lapack_int const* ldx,
14041  double* rcond,
14042  double* ferr,
14043  double* berr,
14044  lapack_complex_double* work,
14045  double* rwork,
14046  lapack_int* info
14047 #ifdef LAPACK_FORTRAN_STRLEN_END
14048  , size_t, size_t, size_t
14049 #endif
14050 );
14051 #ifdef LAPACK_FORTRAN_STRLEN_END
14052  #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__, 1, 1, 1)
14053 #else
14054  #define LAPACK_zppsvx(...) LAPACK_zppsvx_base(__VA_ARGS__)
14055 #endif
14056 
14057 #define LAPACK_cpptrf_base LAPACK_GLOBAL(cpptrf,CPPTRF)
14058 void LAPACK_cpptrf_base(
14059  char const* uplo,
14060  lapack_int const* n,
14061  lapack_complex_float* 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_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__, 1)
14069 #else
14070  #define LAPACK_cpptrf(...) LAPACK_cpptrf_base(__VA_ARGS__)
14071 #endif
14072 
14073 #define LAPACK_dpptrf_base LAPACK_GLOBAL(dpptrf,DPPTRF)
14074 void LAPACK_dpptrf_base(
14075  char const* uplo,
14076  lapack_int const* n,
14077  double* 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_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__, 1)
14085 #else
14086  #define LAPACK_dpptrf(...) LAPACK_dpptrf_base(__VA_ARGS__)
14087 #endif
14088 
14089 #define LAPACK_spptrf_base LAPACK_GLOBAL(spptrf,SPPTRF)
14090 void LAPACK_spptrf_base(
14091  char const* uplo,
14092  lapack_int const* n,
14093  float* 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_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__, 1)
14101 #else
14102  #define LAPACK_spptrf(...) LAPACK_spptrf_base(__VA_ARGS__)
14103 #endif
14104 
14105 #define LAPACK_zpptrf_base LAPACK_GLOBAL(zpptrf,ZPPTRF)
14106 void LAPACK_zpptrf_base(
14107  char const* uplo,
14108  lapack_int const* n,
14109  lapack_complex_double* 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_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__, 1)
14117 #else
14118  #define LAPACK_zpptrf(...) LAPACK_zpptrf_base(__VA_ARGS__)
14119 #endif
14120 
14121 #define LAPACK_cpptri_base LAPACK_GLOBAL(cpptri,CPPTRI)
14122 void LAPACK_cpptri_base(
14123  char const* uplo,
14124  lapack_int const* n,
14125  lapack_complex_float* 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_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__, 1)
14133 #else
14134  #define LAPACK_cpptri(...) LAPACK_cpptri_base(__VA_ARGS__)
14135 #endif
14136 
14137 #define LAPACK_dpptri_base LAPACK_GLOBAL(dpptri,DPPTRI)
14138 void LAPACK_dpptri_base(
14139  char const* uplo,
14140  lapack_int const* n,
14141  double* 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_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__, 1)
14149 #else
14150  #define LAPACK_dpptri(...) LAPACK_dpptri_base(__VA_ARGS__)
14151 #endif
14152 
14153 #define LAPACK_spptri_base LAPACK_GLOBAL(spptri,SPPTRI)
14154 void LAPACK_spptri_base(
14155  char const* uplo,
14156  lapack_int const* n,
14157  float* 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_spptri(...) LAPACK_spptri_base(__VA_ARGS__, 1)
14165 #else
14166  #define LAPACK_spptri(...) LAPACK_spptri_base(__VA_ARGS__)
14167 #endif
14168 
14169 #define LAPACK_zpptri_base LAPACK_GLOBAL(zpptri,ZPPTRI)
14170 void LAPACK_zpptri_base(
14171  char const* uplo,
14172  lapack_int const* n,
14173  lapack_complex_double* AP,
14174  lapack_int* info
14175 #ifdef LAPACK_FORTRAN_STRLEN_END
14176  , size_t
14177 #endif
14178 );
14179 #ifdef LAPACK_FORTRAN_STRLEN_END
14180  #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__, 1)
14181 #else
14182  #define LAPACK_zpptri(...) LAPACK_zpptri_base(__VA_ARGS__)
14183 #endif
14184 
14185 #define LAPACK_cpptrs_base LAPACK_GLOBAL(cpptrs,CPPTRS)
14186 void LAPACK_cpptrs_base(
14187  char const* uplo,
14188  lapack_int const* n, lapack_int const* nrhs,
14189  lapack_complex_float const* AP,
14190  lapack_complex_float* B, lapack_int const* ldb,
14191  lapack_int* info
14192 #ifdef LAPACK_FORTRAN_STRLEN_END
14193  , size_t
14194 #endif
14195 );
14196 #ifdef LAPACK_FORTRAN_STRLEN_END
14197  #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__, 1)
14198 #else
14199  #define LAPACK_cpptrs(...) LAPACK_cpptrs_base(__VA_ARGS__)
14200 #endif
14201 
14202 #define LAPACK_dpptrs_base LAPACK_GLOBAL(dpptrs,DPPTRS)
14203 void LAPACK_dpptrs_base(
14204  char const* uplo,
14205  lapack_int const* n, lapack_int const* nrhs,
14206  double const* AP,
14207  double* B, lapack_int const* ldb,
14208  lapack_int* info
14209 #ifdef LAPACK_FORTRAN_STRLEN_END
14210  , size_t
14211 #endif
14212 );
14213 #ifdef LAPACK_FORTRAN_STRLEN_END
14214  #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__, 1)
14215 #else
14216  #define LAPACK_dpptrs(...) LAPACK_dpptrs_base(__VA_ARGS__)
14217 #endif
14218 
14219 #define LAPACK_spptrs_base LAPACK_GLOBAL(spptrs,SPPTRS)
14220 void LAPACK_spptrs_base(
14221  char const* uplo,
14222  lapack_int const* n, lapack_int const* nrhs,
14223  float const* AP,
14224  float* B, lapack_int const* ldb,
14225  lapack_int* info
14226 #ifdef LAPACK_FORTRAN_STRLEN_END
14227  , size_t
14228 #endif
14229 );
14230 #ifdef LAPACK_FORTRAN_STRLEN_END
14231  #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__, 1)
14232 #else
14233  #define LAPACK_spptrs(...) LAPACK_spptrs_base(__VA_ARGS__)
14234 #endif
14235 
14236 #define LAPACK_zpptrs_base LAPACK_GLOBAL(zpptrs,ZPPTRS)
14237 void LAPACK_zpptrs_base(
14238  char const* uplo,
14239  lapack_int const* n, lapack_int const* nrhs,
14240  lapack_complex_double const* AP,
14241  lapack_complex_double* B, lapack_int const* ldb,
14242  lapack_int* info
14243 #ifdef LAPACK_FORTRAN_STRLEN_END
14244  , size_t
14245 #endif
14246 );
14247 #ifdef LAPACK_FORTRAN_STRLEN_END
14248  #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__, 1)
14249 #else
14250  #define LAPACK_zpptrs(...) LAPACK_zpptrs_base(__VA_ARGS__)
14251 #endif
14252 
14253 #define LAPACK_cpstrf_base LAPACK_GLOBAL(cpstrf,CPSTRF)
14254 void LAPACK_cpstrf_base(
14255  char const* uplo,
14256  lapack_int const* n,
14257  lapack_complex_float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14258  float const* tol,
14259  float* work,
14260  lapack_int* info
14261 #ifdef LAPACK_FORTRAN_STRLEN_END
14262  , size_t
14263 #endif
14264 );
14265 #ifdef LAPACK_FORTRAN_STRLEN_END
14266  #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__, 1)
14267 #else
14268  #define LAPACK_cpstrf(...) LAPACK_cpstrf_base(__VA_ARGS__)
14269 #endif
14270 
14271 #define LAPACK_dpstrf_base LAPACK_GLOBAL(dpstrf,DPSTRF)
14272 void LAPACK_dpstrf_base(
14273  char const* uplo,
14274  lapack_int const* n,
14275  double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14276  double const* tol,
14277  double* work,
14278  lapack_int* info
14279 #ifdef LAPACK_FORTRAN_STRLEN_END
14280  , size_t
14281 #endif
14282 );
14283 #ifdef LAPACK_FORTRAN_STRLEN_END
14284  #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__, 1)
14285 #else
14286  #define LAPACK_dpstrf(...) LAPACK_dpstrf_base(__VA_ARGS__)
14287 #endif
14288 
14289 #define LAPACK_spstrf_base LAPACK_GLOBAL(spstrf,SPSTRF)
14290 void LAPACK_spstrf_base(
14291  char const* uplo,
14292  lapack_int const* n,
14293  float* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14294  float const* tol,
14295  float* work,
14296  lapack_int* info
14297 #ifdef LAPACK_FORTRAN_STRLEN_END
14298  , size_t
14299 #endif
14300 );
14301 #ifdef LAPACK_FORTRAN_STRLEN_END
14302  #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__, 1)
14303 #else
14304  #define LAPACK_spstrf(...) LAPACK_spstrf_base(__VA_ARGS__)
14305 #endif
14306 
14307 #define LAPACK_zpstrf_base LAPACK_GLOBAL(zpstrf,ZPSTRF)
14308 void LAPACK_zpstrf_base(
14309  char const* uplo,
14310  lapack_int const* n,
14311  lapack_complex_double* A, lapack_int const* lda, lapack_int* piv, lapack_int* rank,
14312  double const* tol,
14313  double* work,
14314  lapack_int* info
14315 #ifdef LAPACK_FORTRAN_STRLEN_END
14316  , size_t
14317 #endif
14318 );
14319 #ifdef LAPACK_FORTRAN_STRLEN_END
14320  #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__, 1)
14321 #else
14322  #define LAPACK_zpstrf(...) LAPACK_zpstrf_base(__VA_ARGS__)
14323 #endif
14324 
14325 #define LAPACK_cptcon LAPACK_GLOBAL(cptcon,CPTCON)
14326 void LAPACK_cptcon(
14327  lapack_int const* n,
14328  float const* D,
14329  lapack_complex_float const* E,
14330  float const* anorm,
14331  float* rcond,
14332  float* rwork,
14333  lapack_int* info );
14334 
14335 #define LAPACK_dptcon LAPACK_GLOBAL(dptcon,DPTCON)
14336 void LAPACK_dptcon(
14337  lapack_int const* n,
14338  double const* D,
14339  double const* E,
14340  double const* anorm,
14341  double* rcond,
14342  double* work,
14343  lapack_int* info );
14344 
14345 #define LAPACK_sptcon LAPACK_GLOBAL(sptcon,SPTCON)
14346 void LAPACK_sptcon(
14347  lapack_int const* n,
14348  float const* D,
14349  float const* E,
14350  float const* anorm,
14351  float* rcond,
14352  float* work,
14353  lapack_int* info );
14354 
14355 #define LAPACK_zptcon LAPACK_GLOBAL(zptcon,ZPTCON)
14356 void LAPACK_zptcon(
14357  lapack_int const* n,
14358  double const* D,
14359  lapack_complex_double const* E,
14360  double const* anorm,
14361  double* rcond,
14362  double* rwork,
14363  lapack_int* info );
14364 
14365 #define LAPACK_cpteqr_base LAPACK_GLOBAL(cpteqr,CPTEQR)
14366 void LAPACK_cpteqr_base(
14367  char const* compz,
14368  lapack_int const* n,
14369  float* D,
14370  float* E,
14371  lapack_complex_float* Z, lapack_int const* ldz,
14372  float* work,
14373  lapack_int* info
14374 #ifdef LAPACK_FORTRAN_STRLEN_END
14375  , size_t
14376 #endif
14377 );
14378 #ifdef LAPACK_FORTRAN_STRLEN_END
14379  #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__, 1)
14380 #else
14381  #define LAPACK_cpteqr(...) LAPACK_cpteqr_base(__VA_ARGS__)
14382 #endif
14383 
14384 #define LAPACK_dpteqr_base LAPACK_GLOBAL(dpteqr,DPTEQR)
14385 void LAPACK_dpteqr_base(
14386  char const* compz,
14387  lapack_int const* n,
14388  double* D,
14389  double* E,
14390  double* Z, lapack_int const* ldz,
14391  double* work,
14392  lapack_int* info
14393 #ifdef LAPACK_FORTRAN_STRLEN_END
14394  , size_t
14395 #endif
14396 );
14397 #ifdef LAPACK_FORTRAN_STRLEN_END
14398  #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__, 1)
14399 #else
14400  #define LAPACK_dpteqr(...) LAPACK_dpteqr_base(__VA_ARGS__)
14401 #endif
14402 
14403 #define LAPACK_spteqr_base LAPACK_GLOBAL(spteqr,SPTEQR)
14404 void LAPACK_spteqr_base(
14405  char const* compz,
14406  lapack_int const* n,
14407  float* D,
14408  float* E,
14409  float* Z, lapack_int const* ldz,
14410  float* work,
14411  lapack_int* info
14412 #ifdef LAPACK_FORTRAN_STRLEN_END
14413  , size_t
14414 #endif
14415 );
14416 #ifdef LAPACK_FORTRAN_STRLEN_END
14417  #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__, 1)
14418 #else
14419  #define LAPACK_spteqr(...) LAPACK_spteqr_base(__VA_ARGS__)
14420 #endif
14421 
14422 #define LAPACK_zpteqr_base LAPACK_GLOBAL(zpteqr,ZPTEQR)
14423 void LAPACK_zpteqr_base(
14424  char const* compz,
14425  lapack_int const* n,
14426  double* D,
14427  double* E,
14428  lapack_complex_double* Z, lapack_int const* ldz,
14429  double* work,
14430  lapack_int* info
14431 #ifdef LAPACK_FORTRAN_STRLEN_END
14432  , size_t
14433 #endif
14434 );
14435 #ifdef LAPACK_FORTRAN_STRLEN_END
14436  #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__, 1)
14437 #else
14438  #define LAPACK_zpteqr(...) LAPACK_zpteqr_base(__VA_ARGS__)
14439 #endif
14440 
14441 #define LAPACK_cptrfs_base LAPACK_GLOBAL(cptrfs,CPTRFS)
14442 void LAPACK_cptrfs_base(
14443  char const* uplo,
14444  lapack_int const* n, lapack_int const* nrhs,
14445  float const* D,
14446  lapack_complex_float const* E,
14447  float const* DF,
14448  lapack_complex_float const* EF,
14449  lapack_complex_float const* B, lapack_int const* ldb,
14450  lapack_complex_float* X, lapack_int const* ldx,
14451  float* ferr,
14452  float* berr,
14453  lapack_complex_float* work,
14454  float* rwork,
14455  lapack_int* info
14456 #ifdef LAPACK_FORTRAN_STRLEN_END
14457  , size_t
14458 #endif
14459 );
14460 #ifdef LAPACK_FORTRAN_STRLEN_END
14461  #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__, 1)
14462 #else
14463  #define LAPACK_cptrfs(...) LAPACK_cptrfs_base(__VA_ARGS__)
14464 #endif
14465 
14466 #define LAPACK_dptrfs LAPACK_GLOBAL(dptrfs,DPTRFS)
14467 void LAPACK_dptrfs(
14468  lapack_int const* n, lapack_int const* nrhs,
14469  double const* D,
14470  double const* E,
14471  double const* DF,
14472  double const* EF,
14473  double const* B, lapack_int const* ldb,
14474  double* X, lapack_int const* ldx,
14475  double* ferr,
14476  double* berr,
14477  double* work,
14478  lapack_int* info );
14479 
14480 #define LAPACK_sptrfs LAPACK_GLOBAL(sptrfs,SPTRFS)
14481 void LAPACK_sptrfs(
14482  lapack_int const* n, lapack_int const* nrhs,
14483  float const* D,
14484  float const* E,
14485  float const* DF,
14486  float const* EF,
14487  float const* B, lapack_int const* ldb,
14488  float* X, lapack_int const* ldx,
14489  float* ferr,
14490  float* berr,
14491  float* work,
14492  lapack_int* info );
14493 
14494 #define LAPACK_zptrfs_base LAPACK_GLOBAL(zptrfs,ZPTRFS)
14495 void LAPACK_zptrfs_base(
14496  char const* uplo,
14497  lapack_int const* n, lapack_int const* nrhs,
14498  double const* D,
14499  lapack_complex_double const* E,
14500  double const* DF,
14501  lapack_complex_double const* EF,
14502  lapack_complex_double const* B, lapack_int const* ldb,
14503  lapack_complex_double* X, lapack_int const* ldx,
14504  double* ferr,
14505  double* berr,
14506  lapack_complex_double* work,
14507  double* rwork,
14508  lapack_int* info
14509 #ifdef LAPACK_FORTRAN_STRLEN_END
14510  , size_t
14511 #endif
14512 );
14513 #ifdef LAPACK_FORTRAN_STRLEN_END
14514  #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__, 1)
14515 #else
14516  #define LAPACK_zptrfs(...) LAPACK_zptrfs_base(__VA_ARGS__)
14517 #endif
14518 
14519 #define LAPACK_cptsv LAPACK_GLOBAL(cptsv,CPTSV)
14520 void LAPACK_cptsv(
14521  lapack_int const* n, lapack_int const* nrhs,
14522  float* D,
14523  lapack_complex_float* E,
14524  lapack_complex_float* B, lapack_int const* ldb,
14525  lapack_int* info );
14526 
14527 #define LAPACK_dptsv LAPACK_GLOBAL(dptsv,DPTSV)
14528 void LAPACK_dptsv(
14529  lapack_int const* n, lapack_int const* nrhs,
14530  double* D,
14531  double* E,
14532  double* B, lapack_int const* ldb,
14533  lapack_int* info );
14534 
14535 #define LAPACK_sptsv LAPACK_GLOBAL(sptsv,SPTSV)
14536 void LAPACK_sptsv(
14537  lapack_int const* n, lapack_int const* nrhs,
14538  float* D,
14539  float* E,
14540  float* B, lapack_int const* ldb,
14541  lapack_int* info );
14542 
14543 #define LAPACK_zptsv LAPACK_GLOBAL(zptsv,ZPTSV)
14544 void LAPACK_zptsv(
14545  lapack_int const* n, lapack_int const* nrhs,
14546  double* D,
14547  lapack_complex_double* E,
14548  lapack_complex_double* B, lapack_int const* ldb,
14549  lapack_int* info );
14550 
14551 #define LAPACK_cptsvx_base LAPACK_GLOBAL(cptsvx,CPTSVX)
14552 void LAPACK_cptsvx_base(
14553  char const* fact,
14554  lapack_int const* n, lapack_int const* nrhs,
14555  float const* D,
14556  lapack_complex_float const* E,
14557  float* DF,
14558  lapack_complex_float* EF,
14559  lapack_complex_float const* B, lapack_int const* ldb,
14560  lapack_complex_float* X, lapack_int const* ldx,
14561  float* rcond,
14562  float* ferr,
14563  float* berr,
14564  lapack_complex_float* work,
14565  float* rwork,
14566  lapack_int* info
14567 #ifdef LAPACK_FORTRAN_STRLEN_END
14568  , size_t
14569 #endif
14570 );
14571 #ifdef LAPACK_FORTRAN_STRLEN_END
14572  #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__, 1)
14573 #else
14574  #define LAPACK_cptsvx(...) LAPACK_cptsvx_base(__VA_ARGS__)
14575 #endif
14576 
14577 #define LAPACK_dptsvx_base LAPACK_GLOBAL(dptsvx,DPTSVX)
14578 void LAPACK_dptsvx_base(
14579  char const* fact,
14580  lapack_int const* n, lapack_int const* nrhs,
14581  double const* D,
14582  double const* E,
14583  double* DF,
14584  double* EF,
14585  double const* B, lapack_int const* ldb,
14586  double* X, lapack_int const* ldx,
14587  double* rcond,
14588  double* ferr,
14589  double* berr,
14590  double* work,
14591  lapack_int* info
14592 #ifdef LAPACK_FORTRAN_STRLEN_END
14593  , size_t
14594 #endif
14595 );
14596 #ifdef LAPACK_FORTRAN_STRLEN_END
14597  #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__, 1)
14598 #else
14599  #define LAPACK_dptsvx(...) LAPACK_dptsvx_base(__VA_ARGS__)
14600 #endif
14601 
14602 #define LAPACK_sptsvx_base LAPACK_GLOBAL(sptsvx,SPTSVX)
14603 void LAPACK_sptsvx_base(
14604  char const* fact,
14605  lapack_int const* n, lapack_int const* nrhs,
14606  float const* D,
14607  float const* E,
14608  float* DF,
14609  float* EF,
14610  float const* B, lapack_int const* ldb,
14611  float* X, lapack_int const* ldx,
14612  float* rcond,
14613  float* ferr,
14614  float* berr,
14615  float* work,
14616  lapack_int* info
14617 #ifdef LAPACK_FORTRAN_STRLEN_END
14618  , size_t
14619 #endif
14620 );
14621 #ifdef LAPACK_FORTRAN_STRLEN_END
14622  #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__, 1)
14623 #else
14624  #define LAPACK_sptsvx(...) LAPACK_sptsvx_base(__VA_ARGS__)
14625 #endif
14626 
14627 #define LAPACK_zptsvx_base LAPACK_GLOBAL(zptsvx,ZPTSVX)
14628 void LAPACK_zptsvx_base(
14629  char const* fact,
14630  lapack_int const* n, lapack_int const* nrhs,
14631  double const* D,
14632  lapack_complex_double const* E,
14633  double* DF,
14634  lapack_complex_double* EF,
14635  lapack_complex_double const* B, lapack_int const* ldb,
14636  lapack_complex_double* X, lapack_int const* ldx,
14637  double* rcond,
14638  double* ferr,
14639  double* berr,
14640  lapack_complex_double* work,
14641  double* rwork,
14642  lapack_int* info
14643 #ifdef LAPACK_FORTRAN_STRLEN_END
14644  , size_t
14645 #endif
14646 );
14647 #ifdef LAPACK_FORTRAN_STRLEN_END
14648  #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__, 1)
14649 #else
14650  #define LAPACK_zptsvx(...) LAPACK_zptsvx_base(__VA_ARGS__)
14651 #endif
14652 
14653 #define LAPACK_cpttrf LAPACK_GLOBAL(cpttrf,CPTTRF)
14654 void LAPACK_cpttrf(
14655  lapack_int const* n,
14656  float* D,
14657  lapack_complex_float* E,
14658  lapack_int* info );
14659 
14660 #define LAPACK_dpttrf LAPACK_GLOBAL(dpttrf,DPTTRF)
14661 void LAPACK_dpttrf(
14662  lapack_int const* n,
14663  double* D,
14664  double* E,
14665  lapack_int* info );
14666 
14667 #define LAPACK_spttrf LAPACK_GLOBAL(spttrf,SPTTRF)
14668 void LAPACK_spttrf(
14669  lapack_int const* n,
14670  float* D,
14671  float* E,
14672  lapack_int* info );
14673 
14674 #define LAPACK_zpttrf LAPACK_GLOBAL(zpttrf,ZPTTRF)
14675 void LAPACK_zpttrf(
14676  lapack_int const* n,
14677  double* D,
14678  lapack_complex_double* E,
14679  lapack_int* info );
14680 
14681 #define LAPACK_cpttrs_base LAPACK_GLOBAL(cpttrs,CPTTRS)
14682 void LAPACK_cpttrs_base(
14683  char const* uplo,
14684  lapack_int const* n, lapack_int const* nrhs,
14685  float const* D,
14686  lapack_complex_float const* E,
14687  lapack_complex_float* B, lapack_int const* ldb,
14688  lapack_int* info
14689 #ifdef LAPACK_FORTRAN_STRLEN_END
14690  , size_t
14691 #endif
14692 );
14693 #ifdef LAPACK_FORTRAN_STRLEN_END
14694  #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__, 1)
14695 #else
14696  #define LAPACK_cpttrs(...) LAPACK_cpttrs_base(__VA_ARGS__)
14697 #endif
14698 
14699 #define LAPACK_dpttrs LAPACK_GLOBAL(dpttrs,DPTTRS)
14700 void LAPACK_dpttrs(
14701  lapack_int const* n, lapack_int const* nrhs,
14702  double const* D,
14703  double const* E,
14704  double* B, lapack_int const* ldb,
14705  lapack_int* info );
14706 
14707 #define LAPACK_spttrs LAPACK_GLOBAL(spttrs,SPTTRS)
14708 void LAPACK_spttrs(
14709  lapack_int const* n, lapack_int const* nrhs,
14710  float const* D,
14711  float const* E,
14712  float* B, lapack_int const* ldb,
14713  lapack_int* info );
14714 
14715 #define LAPACK_zpttrs_base LAPACK_GLOBAL(zpttrs,ZPTTRS)
14716 void LAPACK_zpttrs_base(
14717  char const* uplo,
14718  lapack_int const* n, lapack_int const* nrhs,
14719  double const* D,
14720  lapack_complex_double const* E,
14721  lapack_complex_double* B, lapack_int const* ldb,
14722  lapack_int* info
14723 #ifdef LAPACK_FORTRAN_STRLEN_END
14724  , size_t
14725 #endif
14726 );
14727 #ifdef LAPACK_FORTRAN_STRLEN_END
14728  #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__, 1)
14729 #else
14730  #define LAPACK_zpttrs(...) LAPACK_zpttrs_base(__VA_ARGS__)
14731 #endif
14732 
14733 #define LAPACK_dsbev_base LAPACK_GLOBAL(dsbev,DSBEV)
14734 void LAPACK_dsbev_base(
14735  char const* jobz, char const* uplo,
14736  lapack_int const* n, lapack_int const* kd,
14737  double* AB, lapack_int const* ldab,
14738  double* W,
14739  double* Z, lapack_int const* ldz,
14740  double* work,
14741  lapack_int* info
14742 #ifdef LAPACK_FORTRAN_STRLEN_END
14743  , size_t, size_t
14744 #endif
14745 );
14746 #ifdef LAPACK_FORTRAN_STRLEN_END
14747  #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__, 1, 1)
14748 #else
14749  #define LAPACK_dsbev(...) LAPACK_dsbev_base(__VA_ARGS__)
14750 #endif
14751 
14752 #define LAPACK_ssbev_base LAPACK_GLOBAL(ssbev,SSBEV)
14753 void LAPACK_ssbev_base(
14754  char const* jobz, char const* uplo,
14755  lapack_int const* n, lapack_int const* kd,
14756  float* AB, lapack_int const* ldab,
14757  float* W,
14758  float* Z, lapack_int const* ldz,
14759  float* work,
14760  lapack_int* info
14761 #ifdef LAPACK_FORTRAN_STRLEN_END
14762  , size_t, size_t
14763 #endif
14764 );
14765 #ifdef LAPACK_FORTRAN_STRLEN_END
14766  #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__, 1, 1)
14767 #else
14768  #define LAPACK_ssbev(...) LAPACK_ssbev_base(__VA_ARGS__)
14769 #endif
14770 
14771 #define LAPACK_dsbev_2stage_base LAPACK_GLOBAL(dsbev_2stage,DSBEV_2STAGE)
14772 void LAPACK_dsbev_2stage_base(
14773  char const* jobz, char const* uplo,
14774  lapack_int const* n, lapack_int const* kd,
14775  double* AB, lapack_int const* ldab,
14776  double* W,
14777  double* Z, lapack_int const* ldz,
14778  double* work, lapack_int const* lwork,
14779  lapack_int* info
14780 #ifdef LAPACK_FORTRAN_STRLEN_END
14781  , size_t, size_t
14782 #endif
14783 );
14784 #ifdef LAPACK_FORTRAN_STRLEN_END
14785  #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__, 1, 1)
14786 #else
14787  #define LAPACK_dsbev_2stage(...) LAPACK_dsbev_2stage_base(__VA_ARGS__)
14788 #endif
14789 
14790 #define LAPACK_ssbev_2stage_base LAPACK_GLOBAL(ssbev_2stage,SSBEV_2STAGE)
14791 void LAPACK_ssbev_2stage_base(
14792  char const* jobz, char const* uplo,
14793  lapack_int const* n, lapack_int const* kd,
14794  float* AB, lapack_int const* ldab,
14795  float* W,
14796  float* Z, lapack_int const* ldz,
14797  float* work, lapack_int const* lwork,
14798  lapack_int* info
14799 #ifdef LAPACK_FORTRAN_STRLEN_END
14800  , size_t, size_t
14801 #endif
14802 );
14803 #ifdef LAPACK_FORTRAN_STRLEN_END
14804  #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__, 1, 1)
14805 #else
14806  #define LAPACK_ssbev_2stage(...) LAPACK_ssbev_2stage_base(__VA_ARGS__)
14807 #endif
14808 
14809 #define LAPACK_dsbevd_base LAPACK_GLOBAL(dsbevd,DSBEVD)
14810 void LAPACK_dsbevd_base(
14811  char const* jobz, char const* uplo,
14812  lapack_int const* n, lapack_int const* kd,
14813  double* AB, lapack_int const* ldab,
14814  double* W,
14815  double* Z, lapack_int const* ldz,
14816  double* work, lapack_int const* lwork,
14817  lapack_int* iwork, lapack_int const* liwork,
14818  lapack_int* info
14819 #ifdef LAPACK_FORTRAN_STRLEN_END
14820  , size_t, size_t
14821 #endif
14822 );
14823 #ifdef LAPACK_FORTRAN_STRLEN_END
14824  #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__, 1, 1)
14825 #else
14826  #define LAPACK_dsbevd(...) LAPACK_dsbevd_base(__VA_ARGS__)
14827 #endif
14828 
14829 #define LAPACK_ssbevd_base LAPACK_GLOBAL(ssbevd,SSBEVD)
14830 void LAPACK_ssbevd_base(
14831  char const* jobz, char const* uplo,
14832  lapack_int const* n, lapack_int const* kd,
14833  float* AB, lapack_int const* ldab,
14834  float* W,
14835  float* Z, lapack_int const* ldz,
14836  float* work, lapack_int const* lwork,
14837  lapack_int* iwork, lapack_int const* liwork,
14838  lapack_int* info
14839 #ifdef LAPACK_FORTRAN_STRLEN_END
14840  , size_t, size_t
14841 #endif
14842 );
14843 #ifdef LAPACK_FORTRAN_STRLEN_END
14844  #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__, 1, 1)
14845 #else
14846  #define LAPACK_ssbevd(...) LAPACK_ssbevd_base(__VA_ARGS__)
14847 #endif
14848 
14849 #define LAPACK_dsbevd_2stage_base LAPACK_GLOBAL(dsbevd_2stage,DSBEVD_2STAGE)
14850 void LAPACK_dsbevd_2stage_base(
14851  char const* jobz, char const* uplo,
14852  lapack_int const* n, lapack_int const* kd,
14853  double* AB, lapack_int const* ldab,
14854  double* W,
14855  double* Z, lapack_int const* ldz,
14856  double* work, lapack_int const* lwork,
14857  lapack_int* iwork, lapack_int const* liwork,
14858  lapack_int* info
14859 #ifdef LAPACK_FORTRAN_STRLEN_END
14860  , size_t, size_t
14861 #endif
14862 );
14863 #ifdef LAPACK_FORTRAN_STRLEN_END
14864  #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__, 1, 1)
14865 #else
14866  #define LAPACK_dsbevd_2stage(...) LAPACK_dsbevd_2stage_base(__VA_ARGS__)
14867 #endif
14868 
14869 #define LAPACK_ssbevd_2stage_base LAPACK_GLOBAL(ssbevd_2stage,SSBEVD_2STAGE)
14870 void LAPACK_ssbevd_2stage_base(
14871  char const* jobz, char const* uplo,
14872  lapack_int const* n, lapack_int const* kd,
14873  float* AB, lapack_int const* ldab,
14874  float* W,
14875  float* Z, lapack_int const* ldz,
14876  float* work, lapack_int const* lwork,
14877  lapack_int* iwork, lapack_int const* liwork,
14878  lapack_int* info
14879 #ifdef LAPACK_FORTRAN_STRLEN_END
14880  , size_t, size_t
14881 #endif
14882 );
14883 #ifdef LAPACK_FORTRAN_STRLEN_END
14884  #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__, 1, 1)
14885 #else
14886  #define LAPACK_ssbevd_2stage(...) LAPACK_ssbevd_2stage_base(__VA_ARGS__)
14887 #endif
14888 
14889 #define LAPACK_dsbevx_base LAPACK_GLOBAL(dsbevx,DSBEVX)
14890 void LAPACK_dsbevx_base(
14891  char const* jobz, char const* range, char const* uplo,
14892  lapack_int const* n, lapack_int const* kd,
14893  double* AB, lapack_int const* ldab,
14894  double* Q, lapack_int const* ldq,
14895  double const* vl,
14896  double const* vu, lapack_int const* il, lapack_int const* iu,
14897  double const* abstol, lapack_int* m,
14898  double* W,
14899  double* Z, lapack_int const* ldz,
14900  double* work,
14901  lapack_int* iwork, lapack_int* IFAIL,
14902  lapack_int* info
14903 #ifdef LAPACK_FORTRAN_STRLEN_END
14904  , size_t, size_t, size_t
14905 #endif
14906 );
14907 #ifdef LAPACK_FORTRAN_STRLEN_END
14908  #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__, 1, 1, 1)
14909 #else
14910  #define LAPACK_dsbevx(...) LAPACK_dsbevx_base(__VA_ARGS__)
14911 #endif
14912 
14913 #define LAPACK_ssbevx_base LAPACK_GLOBAL(ssbevx,SSBEVX)
14914 void LAPACK_ssbevx_base(
14915  char const* jobz, char const* range, char const* uplo,
14916  lapack_int const* n, lapack_int const* kd,
14917  float* AB, lapack_int const* ldab,
14918  float* Q, lapack_int const* ldq,
14919  float const* vl,
14920  float const* vu, lapack_int const* il, lapack_int const* iu,
14921  float const* abstol, lapack_int* m,
14922  float* W,
14923  float* Z, lapack_int const* ldz,
14924  float* work,
14925  lapack_int* iwork, lapack_int* IFAIL,
14926  lapack_int* info
14927 #ifdef LAPACK_FORTRAN_STRLEN_END
14928  , size_t, size_t, size_t
14929 #endif
14930 );
14931 #ifdef LAPACK_FORTRAN_STRLEN_END
14932  #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__, 1, 1, 1)
14933 #else
14934  #define LAPACK_ssbevx(...) LAPACK_ssbevx_base(__VA_ARGS__)
14935 #endif
14936 
14937 #define LAPACK_dsbevx_2stage_base LAPACK_GLOBAL(dsbevx_2stage,DSBEVX_2STAGE)
14938 void LAPACK_dsbevx_2stage_base(
14939  char const* jobz, char const* range, char const* uplo,
14940  lapack_int const* n, lapack_int const* kd,
14941  double* AB, lapack_int const* ldab,
14942  double* Q, lapack_int const* ldq,
14943  double const* vl,
14944  double const* vu, lapack_int const* il, lapack_int const* iu,
14945  double const* abstol, lapack_int* m,
14946  double* W,
14947  double* Z, lapack_int const* ldz,
14948  double* work, lapack_int const* lwork,
14949  lapack_int* iwork, lapack_int* IFAIL,
14950  lapack_int* info
14951 #ifdef LAPACK_FORTRAN_STRLEN_END
14952  , size_t, size_t, size_t
14953 #endif
14954 );
14955 #ifdef LAPACK_FORTRAN_STRLEN_END
14956  #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14957 #else
14958  #define LAPACK_dsbevx_2stage(...) LAPACK_dsbevx_2stage_base(__VA_ARGS__)
14959 #endif
14960 
14961 #define LAPACK_ssbevx_2stage_base LAPACK_GLOBAL(ssbevx_2stage,SSBEVX_2STAGE)
14962 void LAPACK_ssbevx_2stage_base(
14963  char const* jobz, char const* range, char const* uplo,
14964  lapack_int const* n, lapack_int const* kd,
14965  float* AB, lapack_int const* ldab,
14966  float* Q, lapack_int const* ldq,
14967  float const* vl,
14968  float const* vu, lapack_int const* il, lapack_int const* iu,
14969  float const* abstol, lapack_int* m,
14970  float* W,
14971  float* Z, lapack_int const* ldz,
14972  float* work, lapack_int const* lwork,
14973  lapack_int* iwork, lapack_int* IFAIL,
14974  lapack_int* info
14975 #ifdef LAPACK_FORTRAN_STRLEN_END
14976  , size_t, size_t, size_t
14977 #endif
14978 );
14979 #ifdef LAPACK_FORTRAN_STRLEN_END
14980  #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__, 1, 1, 1)
14981 #else
14982  #define LAPACK_ssbevx_2stage(...) LAPACK_ssbevx_2stage_base(__VA_ARGS__)
14983 #endif
14984 
14985 #define LAPACK_dsbgst_base LAPACK_GLOBAL(dsbgst,DSBGST)
14986 void LAPACK_dsbgst_base(
14987  char const* vect, char const* uplo,
14988  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
14989  double* AB, lapack_int const* ldab,
14990  double const* BB, lapack_int const* ldbb,
14991  double* X, lapack_int const* ldx,
14992  double* work,
14993  lapack_int* info
14994 #ifdef LAPACK_FORTRAN_STRLEN_END
14995  , size_t, size_t
14996 #endif
14997 );
14998 #ifdef LAPACK_FORTRAN_STRLEN_END
14999  #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__, 1, 1)
15000 #else
15001  #define LAPACK_dsbgst(...) LAPACK_dsbgst_base(__VA_ARGS__)
15002 #endif
15003 
15004 #define LAPACK_ssbgst_base LAPACK_GLOBAL(ssbgst,SSBGST)
15005 void LAPACK_ssbgst_base(
15006  char const* vect, char const* uplo,
15007  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15008  float* AB, lapack_int const* ldab,
15009  float const* BB, lapack_int const* ldbb,
15010  float* X, lapack_int const* ldx,
15011  float* work,
15012  lapack_int* info
15013 #ifdef LAPACK_FORTRAN_STRLEN_END
15014  , size_t, size_t
15015 #endif
15016 );
15017 #ifdef LAPACK_FORTRAN_STRLEN_END
15018  #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__, 1, 1)
15019 #else
15020  #define LAPACK_ssbgst(...) LAPACK_ssbgst_base(__VA_ARGS__)
15021 #endif
15022 
15023 #define LAPACK_dsbgv_base LAPACK_GLOBAL(dsbgv,DSBGV)
15024 void LAPACK_dsbgv_base(
15025  char const* jobz, char const* uplo,
15026  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15027  double* AB, lapack_int const* ldab,
15028  double* BB, lapack_int const* ldbb,
15029  double* W,
15030  double* Z, lapack_int const* ldz,
15031  double* work,
15032  lapack_int* info
15033 #ifdef LAPACK_FORTRAN_STRLEN_END
15034  , size_t, size_t
15035 #endif
15036 );
15037 #ifdef LAPACK_FORTRAN_STRLEN_END
15038  #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__, 1, 1)
15039 #else
15040  #define LAPACK_dsbgv(...) LAPACK_dsbgv_base(__VA_ARGS__)
15041 #endif
15042 
15043 #define LAPACK_ssbgv_base LAPACK_GLOBAL(ssbgv,SSBGV)
15044 void LAPACK_ssbgv_base(
15045  char const* jobz, char const* uplo,
15046  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15047  float* AB, lapack_int const* ldab,
15048  float* BB, lapack_int const* ldbb,
15049  float* W,
15050  float* Z, lapack_int const* ldz,
15051  float* work,
15052  lapack_int* info
15053 #ifdef LAPACK_FORTRAN_STRLEN_END
15054  , size_t, size_t
15055 #endif
15056 );
15057 #ifdef LAPACK_FORTRAN_STRLEN_END
15058  #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__, 1, 1)
15059 #else
15060  #define LAPACK_ssbgv(...) LAPACK_ssbgv_base(__VA_ARGS__)
15061 #endif
15062 
15063 #define LAPACK_dsbgvd_base LAPACK_GLOBAL(dsbgvd,DSBGVD)
15064 void LAPACK_dsbgvd_base(
15065  char const* jobz, char const* uplo,
15066  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15067  double* AB, lapack_int const* ldab,
15068  double* BB, lapack_int const* ldbb,
15069  double* W,
15070  double* Z, lapack_int const* ldz,
15071  double* work, lapack_int const* lwork,
15072  lapack_int* iwork, lapack_int const* liwork,
15073  lapack_int* info
15074 #ifdef LAPACK_FORTRAN_STRLEN_END
15075  , size_t, size_t
15076 #endif
15077 );
15078 #ifdef LAPACK_FORTRAN_STRLEN_END
15079  #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__, 1, 1)
15080 #else
15081  #define LAPACK_dsbgvd(...) LAPACK_dsbgvd_base(__VA_ARGS__)
15082 #endif
15083 
15084 #define LAPACK_ssbgvd_base LAPACK_GLOBAL(ssbgvd,SSBGVD)
15085 void LAPACK_ssbgvd_base(
15086  char const* jobz, char const* uplo,
15087  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15088  float* AB, lapack_int const* ldab,
15089  float* BB, lapack_int const* ldbb,
15090  float* W,
15091  float* Z, lapack_int const* ldz,
15092  float* work, lapack_int const* lwork,
15093  lapack_int* iwork, lapack_int const* liwork,
15094  lapack_int* info
15095 #ifdef LAPACK_FORTRAN_STRLEN_END
15096  , size_t, size_t
15097 #endif
15098 );
15099 #ifdef LAPACK_FORTRAN_STRLEN_END
15100  #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__, 1, 1)
15101 #else
15102  #define LAPACK_ssbgvd(...) LAPACK_ssbgvd_base(__VA_ARGS__)
15103 #endif
15104 
15105 #define LAPACK_dsbgvx_base LAPACK_GLOBAL(dsbgvx,DSBGVX)
15106 void LAPACK_dsbgvx_base(
15107  char const* jobz, char const* range, char const* uplo,
15108  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15109  double* AB, lapack_int const* ldab,
15110  double* BB, lapack_int const* ldbb,
15111  double* Q, lapack_int const* ldq,
15112  double const* vl,
15113  double const* vu, lapack_int const* il, lapack_int const* iu,
15114  double const* abstol, lapack_int* m,
15115  double* W,
15116  double* Z, lapack_int const* ldz,
15117  double* work,
15118  lapack_int* iwork, lapack_int* IFAIL,
15119  lapack_int* info
15120 #ifdef LAPACK_FORTRAN_STRLEN_END
15121  , size_t, size_t, size_t
15122 #endif
15123 );
15124 #ifdef LAPACK_FORTRAN_STRLEN_END
15125  #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__, 1, 1, 1)
15126 #else
15127  #define LAPACK_dsbgvx(...) LAPACK_dsbgvx_base(__VA_ARGS__)
15128 #endif
15129 
15130 #define LAPACK_ssbgvx_base LAPACK_GLOBAL(ssbgvx,SSBGVX)
15131 void LAPACK_ssbgvx_base(
15132  char const* jobz, char const* range, char const* uplo,
15133  lapack_int const* n, lapack_int const* ka, lapack_int const* kb,
15134  float* AB, lapack_int const* ldab,
15135  float* BB, lapack_int const* ldbb,
15136  float* Q, lapack_int const* ldq,
15137  float const* vl,
15138  float const* vu, lapack_int const* il, lapack_int const* iu,
15139  float const* abstol, lapack_int* m,
15140  float* W,
15141  float* Z, lapack_int const* ldz,
15142  float* work,
15143  lapack_int* iwork, lapack_int* IFAIL,
15144  lapack_int* info
15145 #ifdef LAPACK_FORTRAN_STRLEN_END
15146  , size_t, size_t, size_t
15147 #endif
15148 );
15149 #ifdef LAPACK_FORTRAN_STRLEN_END
15150  #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__, 1, 1, 1)
15151 #else
15152  #define LAPACK_ssbgvx(...) LAPACK_ssbgvx_base(__VA_ARGS__)
15153 #endif
15154 
15155 #define LAPACK_dsbtrd_base LAPACK_GLOBAL(dsbtrd,DSBTRD)
15156 void LAPACK_dsbtrd_base(
15157  char const* vect, char const* uplo,
15158  lapack_int const* n, lapack_int const* kd,
15159  double* AB, lapack_int const* ldab,
15160  double* D,
15161  double* E,
15162  double* Q, lapack_int const* ldq,
15163  double* work,
15164  lapack_int* info
15165 #ifdef LAPACK_FORTRAN_STRLEN_END
15166  , size_t, size_t
15167 #endif
15168 );
15169 #ifdef LAPACK_FORTRAN_STRLEN_END
15170  #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__, 1, 1)
15171 #else
15172  #define LAPACK_dsbtrd(...) LAPACK_dsbtrd_base(__VA_ARGS__)
15173 #endif
15174 
15175 #define LAPACK_ssbtrd_base LAPACK_GLOBAL(ssbtrd,SSBTRD)
15176 void LAPACK_ssbtrd_base(
15177  char const* vect, char const* uplo,
15178  lapack_int const* n, lapack_int const* kd,
15179  float* AB, lapack_int const* ldab,
15180  float* D,
15181  float* E,
15182  float* Q, lapack_int const* ldq,
15183  float* work,
15184  lapack_int* info
15185 #ifdef LAPACK_FORTRAN_STRLEN_END
15186  , size_t, size_t
15187 #endif
15188 );
15189 #ifdef LAPACK_FORTRAN_STRLEN_END
15190  #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__, 1, 1)
15191 #else
15192  #define LAPACK_ssbtrd(...) LAPACK_ssbtrd_base(__VA_ARGS__)
15193 #endif
15194 
15195 #define LAPACK_dsfrk_base LAPACK_GLOBAL(dsfrk,DSFRK)
15196 void LAPACK_dsfrk_base(
15197  char const* transr, char const* uplo, char const* trans,
15198  lapack_int const* n, lapack_int const* k,
15199  double const* alpha,
15200  double const* A, lapack_int const* lda,
15201  double const* beta,
15202  double* C
15203 #ifdef LAPACK_FORTRAN_STRLEN_END
15204  , size_t, size_t, size_t
15205 #endif
15206 );
15207 #ifdef LAPACK_FORTRAN_STRLEN_END
15208  #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__, 1, 1, 1)
15209 #else
15210  #define LAPACK_dsfrk(...) LAPACK_dsfrk_base(__VA_ARGS__)
15211 #endif
15212 
15213 #define LAPACK_ssfrk_base LAPACK_GLOBAL(ssfrk,SSFRK)
15214 void LAPACK_ssfrk_base(
15215  char const* transr, char const* uplo, char const* trans,
15216  lapack_int const* n, lapack_int const* k,
15217  float const* alpha,
15218  float const* A, lapack_int const* lda,
15219  float const* beta,
15220  float* C
15221 #ifdef LAPACK_FORTRAN_STRLEN_END
15222  , size_t, size_t, size_t
15223 #endif
15224 );
15225 #ifdef LAPACK_FORTRAN_STRLEN_END
15226  #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__, 1, 1, 1)
15227 #else
15228  #define LAPACK_ssfrk(...) LAPACK_ssfrk_base(__VA_ARGS__)
15229 #endif
15230 
15231 #define LAPACK_cspcon_base LAPACK_GLOBAL(cspcon,CSPCON)
15232 void LAPACK_cspcon_base(
15233  char const* uplo,
15234  lapack_int const* n,
15235  lapack_complex_float const* AP, lapack_int const* ipiv,
15236  float const* anorm,
15237  float* rcond,
15238  lapack_complex_float* work,
15239  lapack_int* info
15240 #ifdef LAPACK_FORTRAN_STRLEN_END
15241  , size_t
15242 #endif
15243 );
15244 #ifdef LAPACK_FORTRAN_STRLEN_END
15245  #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__, 1)
15246 #else
15247  #define LAPACK_cspcon(...) LAPACK_cspcon_base(__VA_ARGS__)
15248 #endif
15249 
15250 #define LAPACK_dspcon_base LAPACK_GLOBAL(dspcon,DSPCON)
15251 void LAPACK_dspcon_base(
15252  char const* uplo,
15253  lapack_int const* n,
15254  double const* AP, lapack_int const* ipiv,
15255  double const* anorm,
15256  double* rcond,
15257  double* work,
15258  lapack_int* iwork,
15259  lapack_int* info
15260 #ifdef LAPACK_FORTRAN_STRLEN_END
15261  , size_t
15262 #endif
15263 );
15264 #ifdef LAPACK_FORTRAN_STRLEN_END
15265  #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__, 1)
15266 #else
15267  #define LAPACK_dspcon(...) LAPACK_dspcon_base(__VA_ARGS__)
15268 #endif
15269 
15270 #define LAPACK_sspcon_base LAPACK_GLOBAL(sspcon,SSPCON)
15271 void LAPACK_sspcon_base(
15272  char const* uplo,
15273  lapack_int const* n,
15274  float const* AP, lapack_int const* ipiv,
15275  float const* anorm,
15276  float* rcond,
15277  float* work,
15278  lapack_int* iwork,
15279  lapack_int* info
15280 #ifdef LAPACK_FORTRAN_STRLEN_END
15281  , size_t
15282 #endif
15283 );
15284 #ifdef LAPACK_FORTRAN_STRLEN_END
15285  #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__, 1)
15286 #else
15287  #define LAPACK_sspcon(...) LAPACK_sspcon_base(__VA_ARGS__)
15288 #endif
15289 
15290 #define LAPACK_zspcon_base LAPACK_GLOBAL(zspcon,ZSPCON)
15291 void LAPACK_zspcon_base(
15292  char const* uplo,
15293  lapack_int const* n,
15294  lapack_complex_double const* AP, lapack_int const* ipiv,
15295  double const* anorm,
15296  double* rcond,
15297  lapack_complex_double* work,
15298  lapack_int* info
15299 #ifdef LAPACK_FORTRAN_STRLEN_END
15300  , size_t
15301 #endif
15302 );
15303 #ifdef LAPACK_FORTRAN_STRLEN_END
15304  #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__, 1)
15305 #else
15306  #define LAPACK_zspcon(...) LAPACK_zspcon_base(__VA_ARGS__)
15307 #endif
15308 
15309 #define LAPACK_dspev_base LAPACK_GLOBAL(dspev,DSPEV)
15310 void LAPACK_dspev_base(
15311  char const* jobz, char const* uplo,
15312  lapack_int const* n,
15313  double* AP,
15314  double* W,
15315  double* Z, lapack_int const* ldz,
15316  double* work,
15317  lapack_int* info
15318 #ifdef LAPACK_FORTRAN_STRLEN_END
15319  , size_t, size_t
15320 #endif
15321 );
15322 #ifdef LAPACK_FORTRAN_STRLEN_END
15323  #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__, 1, 1)
15324 #else
15325  #define LAPACK_dspev(...) LAPACK_dspev_base(__VA_ARGS__)
15326 #endif
15327 
15328 #define LAPACK_sspev_base LAPACK_GLOBAL(sspev,SSPEV)
15329 void LAPACK_sspev_base(
15330  char const* jobz, char const* uplo,
15331  lapack_int const* n,
15332  float* AP,
15333  float* W,
15334  float* Z, lapack_int const* ldz,
15335  float* work,
15336  lapack_int* info
15337 #ifdef LAPACK_FORTRAN_STRLEN_END
15338  , size_t, size_t
15339 #endif
15340 );
15341 #ifdef LAPACK_FORTRAN_STRLEN_END
15342  #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__, 1, 1)
15343 #else
15344  #define LAPACK_sspev(...) LAPACK_sspev_base(__VA_ARGS__)
15345 #endif
15346 
15347 #define LAPACK_dspevd_base LAPACK_GLOBAL(dspevd,DSPEVD)
15348 void LAPACK_dspevd_base(
15349  char const* jobz, char const* uplo,
15350  lapack_int const* n,
15351  double* AP,
15352  double* W,
15353  double* Z, lapack_int const* ldz,
15354  double* work, lapack_int const* lwork,
15355  lapack_int* iwork, lapack_int const* liwork,
15356  lapack_int* info
15357 #ifdef LAPACK_FORTRAN_STRLEN_END
15358  , size_t, size_t
15359 #endif
15360 );
15361 #ifdef LAPACK_FORTRAN_STRLEN_END
15362  #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__, 1, 1)
15363 #else
15364  #define LAPACK_dspevd(...) LAPACK_dspevd_base(__VA_ARGS__)
15365 #endif
15366 
15367 #define LAPACK_sspevd_base LAPACK_GLOBAL(sspevd,SSPEVD)
15368 void LAPACK_sspevd_base(
15369  char const* jobz, char const* uplo,
15370  lapack_int const* n,
15371  float* AP,
15372  float* W,
15373  float* Z, lapack_int const* ldz,
15374  float* work, lapack_int const* lwork,
15375  lapack_int* iwork, lapack_int const* liwork,
15376  lapack_int* info
15377 #ifdef LAPACK_FORTRAN_STRLEN_END
15378  , size_t, size_t
15379 #endif
15380 );
15381 #ifdef LAPACK_FORTRAN_STRLEN_END
15382  #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__, 1, 1)
15383 #else
15384  #define LAPACK_sspevd(...) LAPACK_sspevd_base(__VA_ARGS__)
15385 #endif
15386 
15387 #define LAPACK_dspevx_base LAPACK_GLOBAL(dspevx,DSPEVX)
15388 void LAPACK_dspevx_base(
15389  char const* jobz, char const* range, char const* uplo,
15390  lapack_int const* n,
15391  double* AP,
15392  double const* vl,
15393  double const* vu, lapack_int const* il, lapack_int const* iu,
15394  double const* abstol, lapack_int* m,
15395  double* W,
15396  double* Z, lapack_int const* ldz,
15397  double* work,
15398  lapack_int* iwork, lapack_int* IFAIL,
15399  lapack_int* info
15400 #ifdef LAPACK_FORTRAN_STRLEN_END
15401  , size_t, size_t, size_t
15402 #endif
15403 );
15404 #ifdef LAPACK_FORTRAN_STRLEN_END
15405  #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__, 1, 1, 1)
15406 #else
15407  #define LAPACK_dspevx(...) LAPACK_dspevx_base(__VA_ARGS__)
15408 #endif
15409 
15410 #define LAPACK_sspevx_base LAPACK_GLOBAL(sspevx,SSPEVX)
15411 void LAPACK_sspevx_base(
15412  char const* jobz, char const* range, char const* uplo,
15413  lapack_int const* n,
15414  float* AP,
15415  float const* vl,
15416  float const* vu, lapack_int const* il, lapack_int const* iu,
15417  float const* abstol, lapack_int* m,
15418  float* W,
15419  float* Z, lapack_int const* ldz,
15420  float* work,
15421  lapack_int* iwork, lapack_int* IFAIL,
15422  lapack_int* info
15423 #ifdef LAPACK_FORTRAN_STRLEN_END
15424  , size_t, size_t, size_t
15425 #endif
15426 );
15427 #ifdef LAPACK_FORTRAN_STRLEN_END
15428  #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__, 1, 1, 1)
15429 #else
15430  #define LAPACK_sspevx(...) LAPACK_sspevx_base(__VA_ARGS__)
15431 #endif
15432 
15433 #define LAPACK_dspgst_base LAPACK_GLOBAL(dspgst,DSPGST)
15434 void LAPACK_dspgst_base(
15435  lapack_int const* itype, char const* uplo,
15436  lapack_int const* n,
15437  double* AP,
15438  double const* BP,
15439  lapack_int* info
15440 #ifdef LAPACK_FORTRAN_STRLEN_END
15441  , size_t
15442 #endif
15443 );
15444 #ifdef LAPACK_FORTRAN_STRLEN_END
15445  #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__, 1)
15446 #else
15447  #define LAPACK_dspgst(...) LAPACK_dspgst_base(__VA_ARGS__)
15448 #endif
15449 
15450 #define LAPACK_sspgst_base LAPACK_GLOBAL(sspgst,SSPGST)
15451 void LAPACK_sspgst_base(
15452  lapack_int const* itype, char const* uplo,
15453  lapack_int const* n,
15454  float* AP,
15455  float const* BP,
15456  lapack_int* info
15457 #ifdef LAPACK_FORTRAN_STRLEN_END
15458  , size_t
15459 #endif
15460 );
15461 #ifdef LAPACK_FORTRAN_STRLEN_END
15462  #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__, 1)
15463 #else
15464  #define LAPACK_sspgst(...) LAPACK_sspgst_base(__VA_ARGS__)
15465 #endif
15466 
15467 #define LAPACK_dspgv_base LAPACK_GLOBAL(dspgv,DSPGV)
15468 void LAPACK_dspgv_base(
15469  lapack_int const* itype, char const* jobz, char const* uplo,
15470  lapack_int const* n,
15471  double* AP,
15472  double* BP,
15473  double* W,
15474  double* Z, lapack_int const* ldz,
15475  double* work,
15476  lapack_int* info
15477 #ifdef LAPACK_FORTRAN_STRLEN_END
15478  , size_t, size_t
15479 #endif
15480 );
15481 #ifdef LAPACK_FORTRAN_STRLEN_END
15482  #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__, 1, 1)
15483 #else
15484  #define LAPACK_dspgv(...) LAPACK_dspgv_base(__VA_ARGS__)
15485 #endif
15486 
15487 #define LAPACK_sspgv_base LAPACK_GLOBAL(sspgv,SSPGV)
15488 void LAPACK_sspgv_base(
15489  lapack_int const* itype, char const* jobz, char const* uplo,
15490  lapack_int const* n,
15491  float* AP,
15492  float* BP,
15493  float* W,
15494  float* Z, lapack_int const* ldz,
15495  float* work,
15496  lapack_int* info
15497 #ifdef LAPACK_FORTRAN_STRLEN_END
15498  , size_t, size_t
15499 #endif
15500 );
15501 #ifdef LAPACK_FORTRAN_STRLEN_END
15502  #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__, 1, 1)
15503 #else
15504  #define LAPACK_sspgv(...) LAPACK_sspgv_base(__VA_ARGS__)
15505 #endif
15506 
15507 #define LAPACK_dspgvd_base LAPACK_GLOBAL(dspgvd,DSPGVD)
15508 void LAPACK_dspgvd_base(
15509  lapack_int const* itype, char const* jobz, char const* uplo,
15510  lapack_int const* n,
15511  double* AP,
15512  double* BP,
15513  double* W,
15514  double* Z, lapack_int const* ldz,
15515  double* work, lapack_int const* lwork,
15516  lapack_int* iwork, lapack_int const* liwork,
15517  lapack_int* info
15518 #ifdef LAPACK_FORTRAN_STRLEN_END
15519  , size_t, size_t
15520 #endif
15521 );
15522 #ifdef LAPACK_FORTRAN_STRLEN_END
15523  #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__, 1, 1)
15524 #else
15525  #define LAPACK_dspgvd(...) LAPACK_dspgvd_base(__VA_ARGS__)
15526 #endif
15527 
15528 #define LAPACK_sspgvd_base LAPACK_GLOBAL(sspgvd,SSPGVD)
15529 void LAPACK_sspgvd_base(
15530  lapack_int const* itype, char const* jobz, char const* uplo,
15531  lapack_int const* n,
15532  float* AP,
15533  float* BP,
15534  float* W,
15535  float* Z, lapack_int const* ldz,
15536  float* work, lapack_int const* lwork,
15537  lapack_int* iwork, lapack_int const* liwork,
15538  lapack_int* info
15539 #ifdef LAPACK_FORTRAN_STRLEN_END
15540  , size_t, size_t
15541 #endif
15542 );
15543 #ifdef LAPACK_FORTRAN_STRLEN_END
15544  #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__, 1, 1)
15545 #else
15546  #define LAPACK_sspgvd(...) LAPACK_sspgvd_base(__VA_ARGS__)
15547 #endif
15548 
15549 #define LAPACK_dspgvx_base LAPACK_GLOBAL(dspgvx,DSPGVX)
15550 void LAPACK_dspgvx_base(
15551  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
15552  lapack_int const* n,
15553  double* AP,
15554  double* BP,
15555  double const* vl,
15556  double const* vu, lapack_int const* il, lapack_int const* iu,
15557  double const* abstol, lapack_int* m,
15558  double* W,
15559  double* Z, lapack_int const* ldz,
15560  double* work,
15561  lapack_int* iwork, lapack_int* IFAIL,
15562  lapack_int* info
15563 #ifdef LAPACK_FORTRAN_STRLEN_END
15564  , size_t, size_t, size_t
15565 #endif
15566 );
15567 #ifdef LAPACK_FORTRAN_STRLEN_END
15568  #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__, 1, 1, 1)
15569 #else
15570  #define LAPACK_dspgvx(...) LAPACK_dspgvx_base(__VA_ARGS__)
15571 #endif
15572 
15573 #define LAPACK_sspgvx_base LAPACK_GLOBAL(sspgvx,SSPGVX)
15574 void LAPACK_sspgvx_base(
15575  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
15576  lapack_int const* n,
15577  float* AP,
15578  float* BP,
15579  float const* vl,
15580  float const* vu, lapack_int const* il, lapack_int const* iu,
15581  float const* abstol, lapack_int* m,
15582  float* W,
15583  float* Z, lapack_int const* ldz,
15584  float* work,
15585  lapack_int* iwork, lapack_int* IFAIL,
15586  lapack_int* info
15587 #ifdef LAPACK_FORTRAN_STRLEN_END
15588  , size_t, size_t, size_t
15589 #endif
15590 );
15591 #ifdef LAPACK_FORTRAN_STRLEN_END
15592  #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__, 1, 1, 1)
15593 #else
15594  #define LAPACK_sspgvx(...) LAPACK_sspgvx_base(__VA_ARGS__)
15595 #endif
15596 
15597 #define LAPACK_csprfs_base LAPACK_GLOBAL(csprfs,CSPRFS)
15598 void LAPACK_csprfs_base(
15599  char const* uplo,
15600  lapack_int const* n, lapack_int const* nrhs,
15601  lapack_complex_float const* AP,
15602  lapack_complex_float const* AFP, lapack_int const* ipiv,
15603  lapack_complex_float const* B, lapack_int const* ldb,
15604  lapack_complex_float* X, lapack_int const* ldx,
15605  float* ferr,
15606  float* berr,
15607  lapack_complex_float* work,
15608  float* rwork,
15609  lapack_int* info
15610 #ifdef LAPACK_FORTRAN_STRLEN_END
15611  , size_t
15612 #endif
15613 );
15614 #ifdef LAPACK_FORTRAN_STRLEN_END
15615  #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__, 1)
15616 #else
15617  #define LAPACK_csprfs(...) LAPACK_csprfs_base(__VA_ARGS__)
15618 #endif
15619 
15620 #define LAPACK_dsprfs_base LAPACK_GLOBAL(dsprfs,DSPRFS)
15621 void LAPACK_dsprfs_base(
15622  char const* uplo,
15623  lapack_int const* n, lapack_int const* nrhs,
15624  double const* AP,
15625  double const* AFP, lapack_int const* ipiv,
15626  double const* B, lapack_int const* ldb,
15627  double* X, lapack_int const* ldx,
15628  double* ferr,
15629  double* berr,
15630  double* work,
15631  lapack_int* iwork,
15632  lapack_int* info
15633 #ifdef LAPACK_FORTRAN_STRLEN_END
15634  , size_t
15635 #endif
15636 );
15637 #ifdef LAPACK_FORTRAN_STRLEN_END
15638  #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__, 1)
15639 #else
15640  #define LAPACK_dsprfs(...) LAPACK_dsprfs_base(__VA_ARGS__)
15641 #endif
15642 
15643 #define LAPACK_ssprfs_base LAPACK_GLOBAL(ssprfs,SSPRFS)
15644 void LAPACK_ssprfs_base(
15645  char const* uplo,
15646  lapack_int const* n, lapack_int const* nrhs,
15647  float const* AP,
15648  float const* AFP, lapack_int const* ipiv,
15649  float const* B, lapack_int const* ldb,
15650  float* X, lapack_int const* ldx,
15651  float* ferr,
15652  float* berr,
15653  float* work,
15654  lapack_int* iwork,
15655  lapack_int* info
15656 #ifdef LAPACK_FORTRAN_STRLEN_END
15657  , size_t
15658 #endif
15659 );
15660 #ifdef LAPACK_FORTRAN_STRLEN_END
15661  #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__, 1)
15662 #else
15663  #define LAPACK_ssprfs(...) LAPACK_ssprfs_base(__VA_ARGS__)
15664 #endif
15665 
15666 #define LAPACK_zsprfs_base LAPACK_GLOBAL(zsprfs,ZSPRFS)
15667 void LAPACK_zsprfs_base(
15668  char const* uplo,
15669  lapack_int const* n, lapack_int const* nrhs,
15670  lapack_complex_double const* AP,
15671  lapack_complex_double const* AFP, lapack_int const* ipiv,
15672  lapack_complex_double const* B, lapack_int const* ldb,
15673  lapack_complex_double* X, lapack_int const* ldx,
15674  double* ferr,
15675  double* berr,
15676  lapack_complex_double* work,
15677  double* rwork,
15678  lapack_int* info
15679 #ifdef LAPACK_FORTRAN_STRLEN_END
15680  , size_t
15681 #endif
15682 );
15683 #ifdef LAPACK_FORTRAN_STRLEN_END
15684  #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__, 1)
15685 #else
15686  #define LAPACK_zsprfs(...) LAPACK_zsprfs_base(__VA_ARGS__)
15687 #endif
15688 
15689 #define LAPACK_cspsv_base LAPACK_GLOBAL(cspsv,CSPSV)
15690 void LAPACK_cspsv_base(
15691  char const* uplo,
15692  lapack_int const* n, lapack_int const* nrhs,
15693  lapack_complex_float* AP, lapack_int* ipiv,
15694  lapack_complex_float* B, lapack_int const* ldb,
15695  lapack_int* info
15696 #ifdef LAPACK_FORTRAN_STRLEN_END
15697  , size_t
15698 #endif
15699 );
15700 #ifdef LAPACK_FORTRAN_STRLEN_END
15701  #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__, 1)
15702 #else
15703  #define LAPACK_cspsv(...) LAPACK_cspsv_base(__VA_ARGS__)
15704 #endif
15705 
15706 #define LAPACK_dspsv_base LAPACK_GLOBAL(dspsv,DSPSV)
15707 void LAPACK_dspsv_base(
15708  char const* uplo,
15709  lapack_int const* n, lapack_int const* nrhs,
15710  double* AP, lapack_int* ipiv,
15711  double* B, lapack_int const* ldb,
15712  lapack_int* info
15713 #ifdef LAPACK_FORTRAN_STRLEN_END
15714  , size_t
15715 #endif
15716 );
15717 #ifdef LAPACK_FORTRAN_STRLEN_END
15718  #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__, 1)
15719 #else
15720  #define LAPACK_dspsv(...) LAPACK_dspsv_base(__VA_ARGS__)
15721 #endif
15722 
15723 #define LAPACK_sspsv_base LAPACK_GLOBAL(sspsv,SSPSV)
15724 void LAPACK_sspsv_base(
15725  char const* uplo,
15726  lapack_int const* n, lapack_int const* nrhs,
15727  float* AP, lapack_int* ipiv,
15728  float* B, lapack_int const* ldb,
15729  lapack_int* info
15730 #ifdef LAPACK_FORTRAN_STRLEN_END
15731  , size_t
15732 #endif
15733 );
15734 #ifdef LAPACK_FORTRAN_STRLEN_END
15735  #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__, 1)
15736 #else
15737  #define LAPACK_sspsv(...) LAPACK_sspsv_base(__VA_ARGS__)
15738 #endif
15739 
15740 #define LAPACK_zspsv_base LAPACK_GLOBAL(zspsv,ZSPSV)
15741 void LAPACK_zspsv_base(
15742  char const* uplo,
15743  lapack_int const* n, lapack_int const* nrhs,
15744  lapack_complex_double* AP, lapack_int* ipiv,
15745  lapack_complex_double* B, lapack_int const* ldb,
15746  lapack_int* info
15747 #ifdef LAPACK_FORTRAN_STRLEN_END
15748  , size_t
15749 #endif
15750 );
15751 #ifdef LAPACK_FORTRAN_STRLEN_END
15752  #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__, 1)
15753 #else
15754  #define LAPACK_zspsv(...) LAPACK_zspsv_base(__VA_ARGS__)
15755 #endif
15756 
15757 #define LAPACK_cspsvx_base LAPACK_GLOBAL(cspsvx,CSPSVX)
15758 void LAPACK_cspsvx_base(
15759  char const* fact, char const* uplo,
15760  lapack_int const* n, lapack_int const* nrhs,
15761  lapack_complex_float const* AP,
15762  lapack_complex_float* AFP, lapack_int* ipiv,
15763  lapack_complex_float const* B, lapack_int const* ldb,
15764  lapack_complex_float* X, lapack_int const* ldx,
15765  float* rcond,
15766  float* ferr,
15767  float* berr,
15768  lapack_complex_float* work,
15769  float* rwork,
15770  lapack_int* info
15771 #ifdef LAPACK_FORTRAN_STRLEN_END
15772  , size_t, size_t
15773 #endif
15774 );
15775 #ifdef LAPACK_FORTRAN_STRLEN_END
15776  #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__, 1, 1)
15777 #else
15778  #define LAPACK_cspsvx(...) LAPACK_cspsvx_base(__VA_ARGS__)
15779 #endif
15780 
15781 #define LAPACK_dspsvx_base LAPACK_GLOBAL(dspsvx,DSPSVX)
15782 void LAPACK_dspsvx_base(
15783  char const* fact, char const* uplo,
15784  lapack_int const* n, lapack_int const* nrhs,
15785  double const* AP,
15786  double* AFP, lapack_int* ipiv,
15787  double const* B, lapack_int const* ldb,
15788  double* X, lapack_int const* ldx,
15789  double* rcond,
15790  double* ferr,
15791  double* berr,
15792  double* work,
15793  lapack_int* iwork,
15794  lapack_int* info
15795 #ifdef LAPACK_FORTRAN_STRLEN_END
15796  , size_t, size_t
15797 #endif
15798 );
15799 #ifdef LAPACK_FORTRAN_STRLEN_END
15800  #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__, 1, 1)
15801 #else
15802  #define LAPACK_dspsvx(...) LAPACK_dspsvx_base(__VA_ARGS__)
15803 #endif
15804 
15805 #define LAPACK_sspsvx_base LAPACK_GLOBAL(sspsvx,SSPSVX)
15806 void LAPACK_sspsvx_base(
15807  char const* fact, char const* uplo,
15808  lapack_int const* n, lapack_int const* nrhs,
15809  float const* AP,
15810  float* AFP, lapack_int* ipiv,
15811  float const* B, lapack_int const* ldb,
15812  float* X, lapack_int const* ldx,
15813  float* rcond,
15814  float* ferr,
15815  float* berr,
15816  float* work,
15817  lapack_int* iwork,
15818  lapack_int* info
15819 #ifdef LAPACK_FORTRAN_STRLEN_END
15820  , size_t, size_t
15821 #endif
15822 );
15823 #ifdef LAPACK_FORTRAN_STRLEN_END
15824  #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__, 1, 1)
15825 #else
15826  #define LAPACK_sspsvx(...) LAPACK_sspsvx_base(__VA_ARGS__)
15827 #endif
15828 
15829 #define LAPACK_zspsvx_base LAPACK_GLOBAL(zspsvx,ZSPSVX)
15830 void LAPACK_zspsvx_base(
15831  char const* fact, char const* uplo,
15832  lapack_int const* n, lapack_int const* nrhs,
15833  lapack_complex_double const* AP,
15834  lapack_complex_double* AFP, lapack_int* ipiv,
15835  lapack_complex_double const* B, lapack_int const* ldb,
15836  lapack_complex_double* X, lapack_int const* ldx,
15837  double* rcond,
15838  double* ferr,
15839  double* berr,
15840  lapack_complex_double* work,
15841  double* rwork,
15842  lapack_int* info
15843 #ifdef LAPACK_FORTRAN_STRLEN_END
15844  , size_t, size_t
15845 #endif
15846 );
15847 #ifdef LAPACK_FORTRAN_STRLEN_END
15848  #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__, 1, 1)
15849 #else
15850  #define LAPACK_zspsvx(...) LAPACK_zspsvx_base(__VA_ARGS__)
15851 #endif
15852 
15853 #define LAPACK_dsptrd_base LAPACK_GLOBAL(dsptrd,DSPTRD)
15854 void LAPACK_dsptrd_base(
15855  char const* uplo,
15856  lapack_int const* n,
15857  double* AP,
15858  double* D,
15859  double* E,
15860  double* tau,
15861  lapack_int* info
15862 #ifdef LAPACK_FORTRAN_STRLEN_END
15863  , size_t
15864 #endif
15865 );
15866 #ifdef LAPACK_FORTRAN_STRLEN_END
15867  #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__, 1)
15868 #else
15869  #define LAPACK_dsptrd(...) LAPACK_dsptrd_base(__VA_ARGS__)
15870 #endif
15871 
15872 #define LAPACK_ssptrd_base LAPACK_GLOBAL(ssptrd,SSPTRD)
15873 void LAPACK_ssptrd_base(
15874  char const* uplo,
15875  lapack_int const* n,
15876  float* AP,
15877  float* D,
15878  float* E,
15879  float* tau,
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_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__, 1)
15887 #else
15888  #define LAPACK_ssptrd(...) LAPACK_ssptrd_base(__VA_ARGS__)
15889 #endif
15890 
15891 #define LAPACK_csptrf_base LAPACK_GLOBAL(csptrf,CSPTRF)
15892 void LAPACK_csptrf_base(
15893  char const* uplo,
15894  lapack_int const* n,
15895  lapack_complex_float* 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_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__, 1)
15903 #else
15904  #define LAPACK_csptrf(...) LAPACK_csptrf_base(__VA_ARGS__)
15905 #endif
15906 
15907 #define LAPACK_dsptrf_base LAPACK_GLOBAL(dsptrf,DSPTRF)
15908 void LAPACK_dsptrf_base(
15909  char const* uplo,
15910  lapack_int const* n,
15911  double* 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_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__, 1)
15919 #else
15920  #define LAPACK_dsptrf(...) LAPACK_dsptrf_base(__VA_ARGS__)
15921 #endif
15922 
15923 #define LAPACK_ssptrf_base LAPACK_GLOBAL(ssptrf,SSPTRF)
15924 void LAPACK_ssptrf_base(
15925  char const* uplo,
15926  lapack_int const* n,
15927  float* 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_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__, 1)
15935 #else
15936  #define LAPACK_ssptrf(...) LAPACK_ssptrf_base(__VA_ARGS__)
15937 #endif
15938 
15939 #define LAPACK_zsptrf_base LAPACK_GLOBAL(zsptrf,ZSPTRF)
15940 void LAPACK_zsptrf_base(
15941  char const* uplo,
15942  lapack_int const* n,
15943  lapack_complex_double* AP, lapack_int* ipiv,
15944  lapack_int* info
15945 #ifdef LAPACK_FORTRAN_STRLEN_END
15946  , size_t
15947 #endif
15948 );
15949 #ifdef LAPACK_FORTRAN_STRLEN_END
15950  #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__, 1)
15951 #else
15952  #define LAPACK_zsptrf(...) LAPACK_zsptrf_base(__VA_ARGS__)
15953 #endif
15954 
15955 #define LAPACK_csptri_base LAPACK_GLOBAL(csptri,CSPTRI)
15956 void LAPACK_csptri_base(
15957  char const* uplo,
15958  lapack_int const* n,
15959  lapack_complex_float* AP, lapack_int const* ipiv,
15960  lapack_complex_float* work,
15961  lapack_int* info
15962 #ifdef LAPACK_FORTRAN_STRLEN_END
15963  , size_t
15964 #endif
15965 );
15966 #ifdef LAPACK_FORTRAN_STRLEN_END
15967  #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__, 1)
15968 #else
15969  #define LAPACK_csptri(...) LAPACK_csptri_base(__VA_ARGS__)
15970 #endif
15971 
15972 #define LAPACK_dsptri_base LAPACK_GLOBAL(dsptri,DSPTRI)
15973 void LAPACK_dsptri_base(
15974  char const* uplo,
15975  lapack_int const* n,
15976  double* AP, lapack_int const* ipiv,
15977  double* work,
15978  lapack_int* info
15979 #ifdef LAPACK_FORTRAN_STRLEN_END
15980  , size_t
15981 #endif
15982 );
15983 #ifdef LAPACK_FORTRAN_STRLEN_END
15984  #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__, 1)
15985 #else
15986  #define LAPACK_dsptri(...) LAPACK_dsptri_base(__VA_ARGS__)
15987 #endif
15988 
15989 #define LAPACK_ssptri_base LAPACK_GLOBAL(ssptri,SSPTRI)
15990 void LAPACK_ssptri_base(
15991  char const* uplo,
15992  lapack_int const* n,
15993  float* AP, lapack_int const* ipiv,
15994  float* work,
15995  lapack_int* info
15996 #ifdef LAPACK_FORTRAN_STRLEN_END
15997  , size_t
15998 #endif
15999 );
16000 #ifdef LAPACK_FORTRAN_STRLEN_END
16001  #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__, 1)
16002 #else
16003  #define LAPACK_ssptri(...) LAPACK_ssptri_base(__VA_ARGS__)
16004 #endif
16005 
16006 #define LAPACK_zsptri_base LAPACK_GLOBAL(zsptri,ZSPTRI)
16007 void LAPACK_zsptri_base(
16008  char const* uplo,
16009  lapack_int const* n,
16010  lapack_complex_double* AP, lapack_int const* ipiv,
16011  lapack_complex_double* work,
16012  lapack_int* info
16013 #ifdef LAPACK_FORTRAN_STRLEN_END
16014  , size_t
16015 #endif
16016 );
16017 #ifdef LAPACK_FORTRAN_STRLEN_END
16018  #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__, 1)
16019 #else
16020  #define LAPACK_zsptri(...) LAPACK_zsptri_base(__VA_ARGS__)
16021 #endif
16022 
16023 #define LAPACK_csptrs_base LAPACK_GLOBAL(csptrs,CSPTRS)
16024 void LAPACK_csptrs_base(
16025  char const* uplo,
16026  lapack_int const* n, lapack_int const* nrhs,
16027  lapack_complex_float const* AP, lapack_int const* ipiv,
16028  lapack_complex_float* B, lapack_int const* ldb,
16029  lapack_int* info
16030 #ifdef LAPACK_FORTRAN_STRLEN_END
16031  , size_t
16032 #endif
16033 );
16034 #ifdef LAPACK_FORTRAN_STRLEN_END
16035  #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__, 1)
16036 #else
16037  #define LAPACK_csptrs(...) LAPACK_csptrs_base(__VA_ARGS__)
16038 #endif
16039 
16040 #define LAPACK_dsptrs_base LAPACK_GLOBAL(dsptrs,DSPTRS)
16041 void LAPACK_dsptrs_base(
16042  char const* uplo,
16043  lapack_int const* n, lapack_int const* nrhs,
16044  double const* AP, lapack_int const* ipiv,
16045  double* B, lapack_int const* ldb,
16046  lapack_int* info
16047 #ifdef LAPACK_FORTRAN_STRLEN_END
16048  , size_t
16049 #endif
16050 );
16051 #ifdef LAPACK_FORTRAN_STRLEN_END
16052  #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__, 1)
16053 #else
16054  #define LAPACK_dsptrs(...) LAPACK_dsptrs_base(__VA_ARGS__)
16055 #endif
16056 
16057 #define LAPACK_ssptrs_base LAPACK_GLOBAL(ssptrs,SSPTRS)
16058 void LAPACK_ssptrs_base(
16059  char const* uplo,
16060  lapack_int const* n, lapack_int const* nrhs,
16061  float const* AP, lapack_int const* ipiv,
16062  float* B, lapack_int const* ldb,
16063  lapack_int* info
16064 #ifdef LAPACK_FORTRAN_STRLEN_END
16065  , size_t
16066 #endif
16067 );
16068 #ifdef LAPACK_FORTRAN_STRLEN_END
16069  #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__, 1)
16070 #else
16071  #define LAPACK_ssptrs(...) LAPACK_ssptrs_base(__VA_ARGS__)
16072 #endif
16073 
16074 #define LAPACK_zsptrs_base LAPACK_GLOBAL(zsptrs,ZSPTRS)
16075 void LAPACK_zsptrs_base(
16076  char const* uplo,
16077  lapack_int const* n, lapack_int const* nrhs,
16078  lapack_complex_double const* AP, lapack_int const* ipiv,
16079  lapack_complex_double* B, lapack_int const* ldb,
16080  lapack_int* info
16081 #ifdef LAPACK_FORTRAN_STRLEN_END
16082  , size_t
16083 #endif
16084 );
16085 #ifdef LAPACK_FORTRAN_STRLEN_END
16086  #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__, 1)
16087 #else
16088  #define LAPACK_zsptrs(...) LAPACK_zsptrs_base(__VA_ARGS__)
16089 #endif
16090 
16091 #define LAPACK_dstebz_base LAPACK_GLOBAL(dstebz,DSTEBZ)
16092 void LAPACK_dstebz_base(
16093  char const* range, char const* order,
16094  lapack_int const* n,
16095  double const* vl,
16096  double const* vu, lapack_int const* il, lapack_int const* iu,
16097  double const* abstol,
16098  double const* D,
16099  double const* E, lapack_int* m, lapack_int* nsplit,
16100  double* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16101  double* work,
16102  lapack_int* iwork,
16103  lapack_int* info
16104 #ifdef LAPACK_FORTRAN_STRLEN_END
16105  , size_t, size_t
16106 #endif
16107 );
16108 #ifdef LAPACK_FORTRAN_STRLEN_END
16109  #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__, 1, 1)
16110 #else
16111  #define LAPACK_dstebz(...) LAPACK_dstebz_base(__VA_ARGS__)
16112 #endif
16113 
16114 #define LAPACK_sstebz_base LAPACK_GLOBAL(sstebz,SSTEBZ)
16115 void LAPACK_sstebz_base(
16116  char const* range, char const* order,
16117  lapack_int const* n,
16118  float const* vl,
16119  float const* vu, lapack_int const* il, lapack_int const* iu,
16120  float const* abstol,
16121  float const* D,
16122  float const* E, lapack_int* m, lapack_int* nsplit,
16123  float* W, lapack_int* IBLOCK, lapack_int* ISPLIT,
16124  float* work,
16125  lapack_int* iwork,
16126  lapack_int* info
16127 #ifdef LAPACK_FORTRAN_STRLEN_END
16128  , size_t, size_t
16129 #endif
16130 );
16131 #ifdef LAPACK_FORTRAN_STRLEN_END
16132  #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__, 1, 1)
16133 #else
16134  #define LAPACK_sstebz(...) LAPACK_sstebz_base(__VA_ARGS__)
16135 #endif
16136 
16137 #define LAPACK_cstedc_base LAPACK_GLOBAL(cstedc,CSTEDC)
16138 void LAPACK_cstedc_base(
16139  char const* compz,
16140  lapack_int const* n,
16141  float* D,
16142  float* E,
16143  lapack_complex_float* Z, lapack_int const* ldz,
16144  lapack_complex_float* work, lapack_int const* lwork,
16145  float* rwork, lapack_int const* lrwork,
16146  lapack_int* iwork, lapack_int const* liwork,
16147  lapack_int* info
16148 #ifdef LAPACK_FORTRAN_STRLEN_END
16149  , size_t
16150 #endif
16151 );
16152 #ifdef LAPACK_FORTRAN_STRLEN_END
16153  #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__, 1)
16154 #else
16155  #define LAPACK_cstedc(...) LAPACK_cstedc_base(__VA_ARGS__)
16156 #endif
16157 
16158 #define LAPACK_dstedc_base LAPACK_GLOBAL(dstedc,DSTEDC)
16159 void LAPACK_dstedc_base(
16160  char const* compz,
16161  lapack_int const* n,
16162  double* D,
16163  double* E,
16164  double* Z, lapack_int const* ldz,
16165  double* work, lapack_int const* lwork,
16166  lapack_int* iwork, lapack_int const* liwork,
16167  lapack_int* info
16168 #ifdef LAPACK_FORTRAN_STRLEN_END
16169  , size_t
16170 #endif
16171 );
16172 #ifdef LAPACK_FORTRAN_STRLEN_END
16173  #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__, 1)
16174 #else
16175  #define LAPACK_dstedc(...) LAPACK_dstedc_base(__VA_ARGS__)
16176 #endif
16177 
16178 #define LAPACK_sstedc_base LAPACK_GLOBAL(sstedc,SSTEDC)
16179 void LAPACK_sstedc_base(
16180  char const* compz,
16181  lapack_int const* n,
16182  float* D,
16183  float* E,
16184  float* Z, lapack_int const* ldz,
16185  float* work, lapack_int const* lwork,
16186  lapack_int* iwork, lapack_int const* liwork,
16187  lapack_int* info
16188 #ifdef LAPACK_FORTRAN_STRLEN_END
16189  , size_t
16190 #endif
16191 );
16192 #ifdef LAPACK_FORTRAN_STRLEN_END
16193  #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__, 1)
16194 #else
16195  #define LAPACK_sstedc(...) LAPACK_sstedc_base(__VA_ARGS__)
16196 #endif
16197 
16198 #define LAPACK_zstedc_base LAPACK_GLOBAL(zstedc,ZSTEDC)
16199 void LAPACK_zstedc_base(
16200  char const* compz,
16201  lapack_int const* n,
16202  double* D,
16203  double* E,
16204  lapack_complex_double* Z, lapack_int const* ldz,
16205  lapack_complex_double* work, lapack_int const* lwork,
16206  double* rwork, lapack_int const* lrwork,
16207  lapack_int* iwork, lapack_int const* liwork,
16208  lapack_int* info
16209 #ifdef LAPACK_FORTRAN_STRLEN_END
16210  , size_t
16211 #endif
16212 );
16213 #ifdef LAPACK_FORTRAN_STRLEN_END
16214  #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__, 1)
16215 #else
16216  #define LAPACK_zstedc(...) LAPACK_zstedc_base(__VA_ARGS__)
16217 #endif
16218 
16219 #define LAPACK_cstegr_base LAPACK_GLOBAL(cstegr,CSTEGR)
16220 void LAPACK_cstegr_base(
16221  char const* jobz, char const* range,
16222  lapack_int const* n,
16223  float* D,
16224  float* E,
16225  float const* vl,
16226  float const* vu, lapack_int const* il, lapack_int const* iu,
16227  float const* abstol, lapack_int* m,
16228  float* W,
16229  lapack_complex_float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16230  float* work, lapack_int const* lwork,
16231  lapack_int* iwork, lapack_int const* liwork,
16232  lapack_int* info
16233 #ifdef LAPACK_FORTRAN_STRLEN_END
16234  , size_t, size_t
16235 #endif
16236 );
16237 #ifdef LAPACK_FORTRAN_STRLEN_END
16238  #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__, 1, 1)
16239 #else
16240  #define LAPACK_cstegr(...) LAPACK_cstegr_base(__VA_ARGS__)
16241 #endif
16242 
16243 #define LAPACK_dstegr_base LAPACK_GLOBAL(dstegr,DSTEGR)
16244 void LAPACK_dstegr_base(
16245  char const* jobz, char const* range,
16246  lapack_int const* n,
16247  double* D,
16248  double* E,
16249  double const* vl,
16250  double const* vu, lapack_int const* il, lapack_int const* iu,
16251  double const* abstol, lapack_int* m,
16252  double* W,
16253  double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16254  double* work, lapack_int const* lwork,
16255  lapack_int* iwork, lapack_int const* liwork,
16256  lapack_int* info
16257 #ifdef LAPACK_FORTRAN_STRLEN_END
16258  , size_t, size_t
16259 #endif
16260 );
16261 #ifdef LAPACK_FORTRAN_STRLEN_END
16262  #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__, 1, 1)
16263 #else
16264  #define LAPACK_dstegr(...) LAPACK_dstegr_base(__VA_ARGS__)
16265 #endif
16266 
16267 #define LAPACK_sstegr_base LAPACK_GLOBAL(sstegr,SSTEGR)
16268 void LAPACK_sstegr_base(
16269  char const* jobz, char const* range,
16270  lapack_int const* n,
16271  float* D,
16272  float* E,
16273  float const* vl,
16274  float const* vu, lapack_int const* il, lapack_int const* iu,
16275  float const* abstol, lapack_int* m,
16276  float* W,
16277  float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16278  float* work, lapack_int const* lwork,
16279  lapack_int* iwork, lapack_int const* liwork,
16280  lapack_int* info
16281 #ifdef LAPACK_FORTRAN_STRLEN_END
16282  , size_t, size_t
16283 #endif
16284 );
16285 #ifdef LAPACK_FORTRAN_STRLEN_END
16286  #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__, 1, 1)
16287 #else
16288  #define LAPACK_sstegr(...) LAPACK_sstegr_base(__VA_ARGS__)
16289 #endif
16290 
16291 #define LAPACK_zstegr_base LAPACK_GLOBAL(zstegr,ZSTEGR)
16292 void LAPACK_zstegr_base(
16293  char const* jobz, char const* range,
16294  lapack_int const* n,
16295  double* D,
16296  double* E,
16297  double const* vl,
16298  double const* vu, lapack_int const* il, lapack_int const* iu,
16299  double const* abstol, lapack_int* m,
16300  double* W,
16301  lapack_complex_double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16302  double* work, lapack_int const* lwork,
16303  lapack_int* iwork, lapack_int const* liwork,
16304  lapack_int* info
16305 #ifdef LAPACK_FORTRAN_STRLEN_END
16306  , size_t, size_t
16307 #endif
16308 );
16309 #ifdef LAPACK_FORTRAN_STRLEN_END
16310  #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__, 1, 1)
16311 #else
16312  #define LAPACK_zstegr(...) LAPACK_zstegr_base(__VA_ARGS__)
16313 #endif
16314 
16315 #define LAPACK_cstein LAPACK_GLOBAL(cstein,CSTEIN)
16316 void LAPACK_cstein(
16317  lapack_int const* n,
16318  float const* D,
16319  float const* E, lapack_int const* m,
16320  float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16321  lapack_complex_float* Z, lapack_int const* ldz,
16322  float* work,
16323  lapack_int* iwork, lapack_int* IFAIL,
16324  lapack_int* info );
16325 
16326 #define LAPACK_dstein LAPACK_GLOBAL(dstein,DSTEIN)
16327 void LAPACK_dstein(
16328  lapack_int const* n,
16329  double const* D,
16330  double const* E, lapack_int const* m,
16331  double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16332  double* Z, lapack_int const* ldz,
16333  double* work,
16334  lapack_int* iwork, lapack_int* IFAIL,
16335  lapack_int* info );
16336 
16337 #define LAPACK_sstein LAPACK_GLOBAL(sstein,SSTEIN)
16338 void LAPACK_sstein(
16339  lapack_int const* n,
16340  float const* D,
16341  float const* E, lapack_int const* m,
16342  float const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16343  float* Z, lapack_int const* ldz,
16344  float* work,
16345  lapack_int* iwork, lapack_int* IFAIL,
16346  lapack_int* info );
16347 
16348 #define LAPACK_zstein LAPACK_GLOBAL(zstein,ZSTEIN)
16349 void LAPACK_zstein(
16350  lapack_int const* n,
16351  double const* D,
16352  double const* E, lapack_int const* m,
16353  double const* W, lapack_int const* IBLOCK, lapack_int const* ISPLIT,
16354  lapack_complex_double* Z, lapack_int const* ldz,
16355  double* work,
16356  lapack_int* iwork, lapack_int* IFAIL,
16357  lapack_int* info );
16358 
16359 #define LAPACK_cstemr_base LAPACK_GLOBAL(cstemr,CSTEMR)
16360 void LAPACK_cstemr_base(
16361  char const* jobz, char const* range,
16362  lapack_int const* n,
16363  float* D,
16364  float* E,
16365  float const* vl,
16366  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16367  float* W,
16368  lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16369  float* work, lapack_int const* lwork,
16370  lapack_int* iwork, lapack_int const* liwork,
16371  lapack_int* info
16372 #ifdef LAPACK_FORTRAN_STRLEN_END
16373  , size_t, size_t
16374 #endif
16375 );
16376 #ifdef LAPACK_FORTRAN_STRLEN_END
16377  #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__, 1, 1)
16378 #else
16379  #define LAPACK_cstemr(...) LAPACK_cstemr_base(__VA_ARGS__)
16380 #endif
16381 
16382 #define LAPACK_dstemr_base LAPACK_GLOBAL(dstemr,DSTEMR)
16383 void LAPACK_dstemr_base(
16384  char const* jobz, char const* range,
16385  lapack_int const* n,
16386  double* D,
16387  double* E,
16388  double const* vl,
16389  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16390  double* W,
16391  double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16392  double* work, lapack_int const* lwork,
16393  lapack_int* iwork, lapack_int const* liwork,
16394  lapack_int* info
16395 #ifdef LAPACK_FORTRAN_STRLEN_END
16396  , size_t, size_t
16397 #endif
16398 );
16399 #ifdef LAPACK_FORTRAN_STRLEN_END
16400  #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__, 1, 1)
16401 #else
16402  #define LAPACK_dstemr(...) LAPACK_dstemr_base(__VA_ARGS__)
16403 #endif
16404 
16405 #define LAPACK_sstemr_base LAPACK_GLOBAL(sstemr,SSTEMR)
16406 void LAPACK_sstemr_base(
16407  char const* jobz, char const* range,
16408  lapack_int const* n,
16409  float* D,
16410  float* E,
16411  float const* vl,
16412  float const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16413  float* W,
16414  float* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16415  float* work, lapack_int const* lwork,
16416  lapack_int* iwork, lapack_int const* liwork,
16417  lapack_int* info
16418 #ifdef LAPACK_FORTRAN_STRLEN_END
16419  , size_t, size_t
16420 #endif
16421 );
16422 #ifdef LAPACK_FORTRAN_STRLEN_END
16423  #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__, 1, 1)
16424 #else
16425  #define LAPACK_sstemr(...) LAPACK_sstemr_base(__VA_ARGS__)
16426 #endif
16427 
16428 #define LAPACK_zstemr_base LAPACK_GLOBAL(zstemr,ZSTEMR)
16429 void LAPACK_zstemr_base(
16430  char const* jobz, char const* range,
16431  lapack_int const* n,
16432  double* D,
16433  double* E,
16434  double const* vl,
16435  double const* vu, lapack_int const* il, lapack_int const* iu, lapack_int* m,
16436  double* W,
16437  lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* nzc, lapack_int* ISUPPZ, lapack_logical* tryrac,
16438  double* work, lapack_int const* lwork,
16439  lapack_int* iwork, lapack_int const* liwork,
16440  lapack_int* info
16441 #ifdef LAPACK_FORTRAN_STRLEN_END
16442  , size_t, size_t
16443 #endif
16444 );
16445 #ifdef LAPACK_FORTRAN_STRLEN_END
16446  #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__, 1, 1)
16447 #else
16448  #define LAPACK_zstemr(...) LAPACK_zstemr_base(__VA_ARGS__)
16449 #endif
16450 
16451 #define LAPACK_csteqr_base LAPACK_GLOBAL(csteqr,CSTEQR)
16452 void LAPACK_csteqr_base(
16453  char const* compz,
16454  lapack_int const* n,
16455  float* D,
16456  float* E,
16457  lapack_complex_float* Z, lapack_int const* ldz,
16458  float* work,
16459  lapack_int* info
16460 #ifdef LAPACK_FORTRAN_STRLEN_END
16461  , size_t
16462 #endif
16463 );
16464 #ifdef LAPACK_FORTRAN_STRLEN_END
16465  #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__, 1)
16466 #else
16467  #define LAPACK_csteqr(...) LAPACK_csteqr_base(__VA_ARGS__)
16468 #endif
16469 
16470 #define LAPACK_dsteqr_base LAPACK_GLOBAL(dsteqr,DSTEQR)
16471 void LAPACK_dsteqr_base(
16472  char const* compz,
16473  lapack_int const* n,
16474  double* D,
16475  double* E,
16476  double* Z, lapack_int const* ldz,
16477  double* work,
16478  lapack_int* info
16479 #ifdef LAPACK_FORTRAN_STRLEN_END
16480  , size_t
16481 #endif
16482 );
16483 #ifdef LAPACK_FORTRAN_STRLEN_END
16484  #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__, 1)
16485 #else
16486  #define LAPACK_dsteqr(...) LAPACK_dsteqr_base(__VA_ARGS__)
16487 #endif
16488 
16489 #define LAPACK_ssteqr_base LAPACK_GLOBAL(ssteqr,SSTEQR)
16490 void LAPACK_ssteqr_base(
16491  char const* compz,
16492  lapack_int const* n,
16493  float* D,
16494  float* E,
16495  float* Z, lapack_int const* ldz,
16496  float* work,
16497  lapack_int* info
16498 #ifdef LAPACK_FORTRAN_STRLEN_END
16499  , size_t
16500 #endif
16501 );
16502 #ifdef LAPACK_FORTRAN_STRLEN_END
16503  #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__, 1)
16504 #else
16505  #define LAPACK_ssteqr(...) LAPACK_ssteqr_base(__VA_ARGS__)
16506 #endif
16507 
16508 #define LAPACK_zsteqr_base LAPACK_GLOBAL(zsteqr,ZSTEQR)
16509 void LAPACK_zsteqr_base(
16510  char const* compz,
16511  lapack_int const* n,
16512  double* D,
16513  double* E,
16514  lapack_complex_double* Z, lapack_int const* ldz,
16515  double* work,
16516  lapack_int* info
16517 #ifdef LAPACK_FORTRAN_STRLEN_END
16518  , size_t
16519 #endif
16520 );
16521 #ifdef LAPACK_FORTRAN_STRLEN_END
16522  #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__, 1)
16523 #else
16524  #define LAPACK_zsteqr(...) LAPACK_zsteqr_base(__VA_ARGS__)
16525 #endif
16526 
16527 #define LAPACK_dsterf LAPACK_GLOBAL(dsterf,DSTERF)
16528 void LAPACK_dsterf(
16529  lapack_int const* n,
16530  double* D,
16531  double* E,
16532  lapack_int* info );
16533 
16534 #define LAPACK_ssterf LAPACK_GLOBAL(ssterf,SSTERF)
16535 void LAPACK_ssterf(
16536  lapack_int const* n,
16537  float* D,
16538  float* E,
16539  lapack_int* info );
16540 
16541 #define LAPACK_dstev_base LAPACK_GLOBAL(dstev,DSTEV)
16542 void LAPACK_dstev_base(
16543  char const* jobz,
16544  lapack_int const* n,
16545  double* D,
16546  double* E,
16547  double* Z, lapack_int const* ldz,
16548  double* work,
16549  lapack_int* info
16550 #ifdef LAPACK_FORTRAN_STRLEN_END
16551  , size_t
16552 #endif
16553 );
16554 #ifdef LAPACK_FORTRAN_STRLEN_END
16555  #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__, 1)
16556 #else
16557  #define LAPACK_dstev(...) LAPACK_dstev_base(__VA_ARGS__)
16558 #endif
16559 
16560 #define LAPACK_sstev_base LAPACK_GLOBAL(sstev,SSTEV)
16561 void LAPACK_sstev_base(
16562  char const* jobz,
16563  lapack_int const* n,
16564  float* D,
16565  float* E,
16566  float* Z, lapack_int const* ldz,
16567  float* work,
16568  lapack_int* info
16569 #ifdef LAPACK_FORTRAN_STRLEN_END
16570  , size_t
16571 #endif
16572 );
16573 #ifdef LAPACK_FORTRAN_STRLEN_END
16574  #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__, 1)
16575 #else
16576  #define LAPACK_sstev(...) LAPACK_sstev_base(__VA_ARGS__)
16577 #endif
16578 
16579 #define LAPACK_dstevd_base LAPACK_GLOBAL(dstevd,DSTEVD)
16580 void LAPACK_dstevd_base(
16581  char const* jobz,
16582  lapack_int const* n,
16583  double* D,
16584  double* E,
16585  double* Z, lapack_int const* ldz,
16586  double* work, lapack_int const* lwork,
16587  lapack_int* iwork, lapack_int const* liwork,
16588  lapack_int* info
16589 #ifdef LAPACK_FORTRAN_STRLEN_END
16590  , size_t
16591 #endif
16592 );
16593 #ifdef LAPACK_FORTRAN_STRLEN_END
16594  #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__, 1)
16595 #else
16596  #define LAPACK_dstevd(...) LAPACK_dstevd_base(__VA_ARGS__)
16597 #endif
16598 
16599 #define LAPACK_sstevd_base LAPACK_GLOBAL(sstevd,SSTEVD)
16600 void LAPACK_sstevd_base(
16601  char const* jobz,
16602  lapack_int const* n,
16603  float* D,
16604  float* E,
16605  float* Z, lapack_int const* ldz,
16606  float* work, lapack_int const* lwork,
16607  lapack_int* iwork, lapack_int const* liwork,
16608  lapack_int* info
16609 #ifdef LAPACK_FORTRAN_STRLEN_END
16610  , size_t
16611 #endif
16612 );
16613 #ifdef LAPACK_FORTRAN_STRLEN_END
16614  #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__, 1)
16615 #else
16616  #define LAPACK_sstevd(...) LAPACK_sstevd_base(__VA_ARGS__)
16617 #endif
16618 
16619 #define LAPACK_dstevr_base LAPACK_GLOBAL(dstevr,DSTEVR)
16620 void LAPACK_dstevr_base(
16621  char const* jobz, char const* range,
16622  lapack_int const* n,
16623  double* D,
16624  double* E,
16625  double const* vl,
16626  double const* vu, lapack_int const* il, lapack_int const* iu,
16627  double const* abstol, lapack_int* m,
16628  double* W,
16629  double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16630  double* work, lapack_int const* lwork,
16631  lapack_int* iwork, lapack_int const* liwork,
16632  lapack_int* info
16633 #ifdef LAPACK_FORTRAN_STRLEN_END
16634  , size_t, size_t
16635 #endif
16636 );
16637 #ifdef LAPACK_FORTRAN_STRLEN_END
16638  #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__, 1, 1)
16639 #else
16640  #define LAPACK_dstevr(...) LAPACK_dstevr_base(__VA_ARGS__)
16641 #endif
16642 
16643 #define LAPACK_sstevr_base LAPACK_GLOBAL(sstevr,SSTEVR)
16644 void LAPACK_sstevr_base(
16645  char const* jobz, char const* range,
16646  lapack_int const* n,
16647  float* D,
16648  float* E,
16649  float const* vl,
16650  float const* vu, lapack_int const* il, lapack_int const* iu,
16651  float const* abstol, lapack_int* m,
16652  float* W,
16653  float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
16654  float* work, lapack_int const* lwork,
16655  lapack_int* iwork, lapack_int const* liwork,
16656  lapack_int* info
16657 #ifdef LAPACK_FORTRAN_STRLEN_END
16658  , size_t, size_t
16659 #endif
16660 );
16661 #ifdef LAPACK_FORTRAN_STRLEN_END
16662  #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__, 1, 1)
16663 #else
16664  #define LAPACK_sstevr(...) LAPACK_sstevr_base(__VA_ARGS__)
16665 #endif
16666 
16667 #define LAPACK_dstevx_base LAPACK_GLOBAL(dstevx,DSTEVX)
16668 void LAPACK_dstevx_base(
16669  char const* jobz, char const* range,
16670  lapack_int const* n,
16671  double* D,
16672  double* E,
16673  double const* vl,
16674  double const* vu, lapack_int const* il, lapack_int const* iu,
16675  double const* abstol, lapack_int* m,
16676  double* W,
16677  double* Z, lapack_int const* ldz,
16678  double* work,
16679  lapack_int* iwork, lapack_int* IFAIL,
16680  lapack_int* info
16681 #ifdef LAPACK_FORTRAN_STRLEN_END
16682  , size_t, size_t
16683 #endif
16684 );
16685 #ifdef LAPACK_FORTRAN_STRLEN_END
16686  #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__, 1, 1)
16687 #else
16688  #define LAPACK_dstevx(...) LAPACK_dstevx_base(__VA_ARGS__)
16689 #endif
16690 
16691 #define LAPACK_sstevx_base LAPACK_GLOBAL(sstevx,SSTEVX)
16692 void LAPACK_sstevx_base(
16693  char const* jobz, char const* range,
16694  lapack_int const* n,
16695  float* D,
16696  float* E,
16697  float const* vl,
16698  float const* vu, lapack_int const* il, lapack_int const* iu,
16699  float const* abstol, lapack_int* m,
16700  float* W,
16701  float* Z, lapack_int const* ldz,
16702  float* work,
16703  lapack_int* iwork, lapack_int* IFAIL,
16704  lapack_int* info
16705 #ifdef LAPACK_FORTRAN_STRLEN_END
16706  , size_t, size_t
16707 #endif
16708 );
16709 #ifdef LAPACK_FORTRAN_STRLEN_END
16710  #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__, 1, 1)
16711 #else
16712  #define LAPACK_sstevx(...) LAPACK_sstevx_base(__VA_ARGS__)
16713 #endif
16714 
16715 #define LAPACK_csycon_base LAPACK_GLOBAL(csycon,CSYCON)
16716 void LAPACK_csycon_base(
16717  char const* uplo,
16718  lapack_int const* n,
16719  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
16720  float const* anorm,
16721  float* rcond,
16722  lapack_complex_float* work,
16723  lapack_int* info
16724 #ifdef LAPACK_FORTRAN_STRLEN_END
16725  , size_t
16726 #endif
16727 );
16728 #ifdef LAPACK_FORTRAN_STRLEN_END
16729  #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__, 1)
16730 #else
16731  #define LAPACK_csycon(...) LAPACK_csycon_base(__VA_ARGS__)
16732 #endif
16733 
16734 #define LAPACK_dsycon_base LAPACK_GLOBAL(dsycon,DSYCON)
16735 void LAPACK_dsycon_base(
16736  char const* uplo,
16737  lapack_int const* n,
16738  double const* A, lapack_int const* lda, lapack_int const* ipiv,
16739  double const* anorm,
16740  double* rcond,
16741  double* work,
16742  lapack_int* iwork,
16743  lapack_int* info
16744 #ifdef LAPACK_FORTRAN_STRLEN_END
16745  , size_t
16746 #endif
16747 );
16748 #ifdef LAPACK_FORTRAN_STRLEN_END
16749  #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__, 1)
16750 #else
16751  #define LAPACK_dsycon(...) LAPACK_dsycon_base(__VA_ARGS__)
16752 #endif
16753 
16754 #define LAPACK_ssycon_base LAPACK_GLOBAL(ssycon,SSYCON)
16755 void LAPACK_ssycon_base(
16756  char const* uplo,
16757  lapack_int const* n,
16758  float const* A, lapack_int const* lda, lapack_int const* ipiv,
16759  float const* anorm,
16760  float* rcond,
16761  float* work,
16762  lapack_int* iwork,
16763  lapack_int* info
16764 #ifdef LAPACK_FORTRAN_STRLEN_END
16765  , size_t
16766 #endif
16767 );
16768 #ifdef LAPACK_FORTRAN_STRLEN_END
16769  #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__, 1)
16770 #else
16771  #define LAPACK_ssycon(...) LAPACK_ssycon_base(__VA_ARGS__)
16772 #endif
16773 
16774 #define LAPACK_zsycon_base LAPACK_GLOBAL(zsycon,ZSYCON)
16775 void LAPACK_zsycon_base(
16776  char const* uplo,
16777  lapack_int const* n,
16778  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
16779  double const* anorm,
16780  double* rcond,
16781  lapack_complex_double* work,
16782  lapack_int* info
16783 #ifdef LAPACK_FORTRAN_STRLEN_END
16784  , size_t
16785 #endif
16786 );
16787 #ifdef LAPACK_FORTRAN_STRLEN_END
16788  #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__, 1)
16789 #else
16790  #define LAPACK_zsycon(...) LAPACK_zsycon_base(__VA_ARGS__)
16791 #endif
16792 
16793 #define LAPACK_csycon_3_base LAPACK_GLOBAL(csycon_3,CSYCON_3)
16794 void LAPACK_csycon_3_base(
16795  char const* uplo,
16796  lapack_int const* n,
16797  lapack_complex_float const* A, lapack_int const* lda,
16798  lapack_complex_float const* E, lapack_int const* ipiv,
16799  float const* anorm,
16800  float* rcond,
16801  lapack_complex_float* work,
16802  lapack_int* info
16803 #ifdef LAPACK_FORTRAN_STRLEN_END
16804  , size_t
16805 #endif
16806 );
16807 #ifdef LAPACK_FORTRAN_STRLEN_END
16808  #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__, 1)
16809 #else
16810  #define LAPACK_csycon_3(...) LAPACK_csycon_3_base(__VA_ARGS__)
16811 #endif
16812 
16813 #define LAPACK_dsycon_3_base LAPACK_GLOBAL(dsycon_3,DSYCON_3)
16814 void LAPACK_dsycon_3_base(
16815  char const* uplo,
16816  lapack_int const* n,
16817  double const* A, lapack_int const* lda,
16818  double const* E, lapack_int const* ipiv,
16819  double const* anorm,
16820  double* rcond,
16821  double* work,
16822  lapack_int* iwork,
16823  lapack_int* info
16824 #ifdef LAPACK_FORTRAN_STRLEN_END
16825  , size_t
16826 #endif
16827 );
16828 #ifdef LAPACK_FORTRAN_STRLEN_END
16829  #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__, 1)
16830 #else
16831  #define LAPACK_dsycon_3(...) LAPACK_dsycon_3_base(__VA_ARGS__)
16832 #endif
16833 
16834 #define LAPACK_ssycon_3_base LAPACK_GLOBAL(ssycon_3,SSYCON_3)
16835 void LAPACK_ssycon_3_base(
16836  char const* uplo,
16837  lapack_int const* n,
16838  float const* A, lapack_int const* lda,
16839  float const* E, lapack_int const* ipiv,
16840  float const* anorm,
16841  float* rcond,
16842  float* work,
16843  lapack_int* iwork,
16844  lapack_int* info
16845 #ifdef LAPACK_FORTRAN_STRLEN_END
16846  , size_t
16847 #endif
16848 );
16849 #ifdef LAPACK_FORTRAN_STRLEN_END
16850  #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__, 1)
16851 #else
16852  #define LAPACK_ssycon_3(...) LAPACK_ssycon_3_base(__VA_ARGS__)
16853 #endif
16854 
16855 #define LAPACK_zsycon_3_base LAPACK_GLOBAL(zsycon_3,ZSYCON_3)
16856 void LAPACK_zsycon_3_base(
16857  char const* uplo,
16858  lapack_int const* n,
16859  lapack_complex_double const* A, lapack_int const* lda,
16860  lapack_complex_double const* E, lapack_int const* ipiv,
16861  double const* anorm,
16862  double* rcond,
16863  lapack_complex_double* work,
16864  lapack_int* info
16865 #ifdef LAPACK_FORTRAN_STRLEN_END
16866  , size_t
16867 #endif
16868 );
16869 #ifdef LAPACK_FORTRAN_STRLEN_END
16870  #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__, 1)
16871 #else
16872  #define LAPACK_zsycon_3(...) LAPACK_zsycon_3_base(__VA_ARGS__)
16873 #endif
16874 
16875 #define LAPACK_csyconv_base LAPACK_GLOBAL(csyconv,CSYCONV)
16876 void LAPACK_csyconv_base(
16877  char const* uplo, char const* way,
16878  lapack_int const* n,
16879  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
16880  lapack_complex_float* E,
16881  lapack_int* info
16882 #ifdef LAPACK_FORTRAN_STRLEN_END
16883  , size_t, size_t
16884 #endif
16885 );
16886 #ifdef LAPACK_FORTRAN_STRLEN_END
16887  #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__, 1, 1)
16888 #else
16889  #define LAPACK_csyconv(...) LAPACK_csyconv_base(__VA_ARGS__)
16890 #endif
16891 
16892 #define LAPACK_dsyconv_base LAPACK_GLOBAL(dsyconv,DSYCONV)
16893 void LAPACK_dsyconv_base(
16894  char const* uplo, char const* way,
16895  lapack_int const* n,
16896  double* A, lapack_int const* lda, lapack_int const* ipiv,
16897  double* E,
16898  lapack_int* info
16899 #ifdef LAPACK_FORTRAN_STRLEN_END
16900  , size_t, size_t
16901 #endif
16902 );
16903 #ifdef LAPACK_FORTRAN_STRLEN_END
16904  #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__, 1, 1)
16905 #else
16906  #define LAPACK_dsyconv(...) LAPACK_dsyconv_base(__VA_ARGS__)
16907 #endif
16908 
16909 #define LAPACK_ssyconv_base LAPACK_GLOBAL(ssyconv,SSYCONV)
16910 void LAPACK_ssyconv_base(
16911  char const* uplo, char const* way,
16912  lapack_int const* n,
16913  float* A, lapack_int const* lda, lapack_int const* ipiv,
16914  float* E,
16915  lapack_int* info
16916 #ifdef LAPACK_FORTRAN_STRLEN_END
16917  , size_t, size_t
16918 #endif
16919 );
16920 #ifdef LAPACK_FORTRAN_STRLEN_END
16921  #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__, 1, 1)
16922 #else
16923  #define LAPACK_ssyconv(...) LAPACK_ssyconv_base(__VA_ARGS__)
16924 #endif
16925 
16926 #define LAPACK_zsyconv_base LAPACK_GLOBAL(zsyconv,ZSYCONV)
16927 void LAPACK_zsyconv_base(
16928  char const* uplo, char const* way,
16929  lapack_int const* n,
16930  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
16931  lapack_complex_double* E,
16932  lapack_int* info
16933 #ifdef LAPACK_FORTRAN_STRLEN_END
16934  , size_t, size_t
16935 #endif
16936 );
16937 #ifdef LAPACK_FORTRAN_STRLEN_END
16938  #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__, 1, 1)
16939 #else
16940  #define LAPACK_zsyconv(...) LAPACK_zsyconv_base(__VA_ARGS__)
16941 #endif
16942 
16943 #define LAPACK_csyequb_base LAPACK_GLOBAL(csyequb,CSYEQUB)
16944 void LAPACK_csyequb_base(
16945  char const* uplo,
16946  lapack_int const* n,
16947  lapack_complex_float const* A, lapack_int const* lda,
16948  float* S,
16949  float* scond,
16950  float* amax,
16951  lapack_complex_float* work,
16952  lapack_int* info
16953 #ifdef LAPACK_FORTRAN_STRLEN_END
16954  , size_t
16955 #endif
16956 );
16957 #ifdef LAPACK_FORTRAN_STRLEN_END
16958  #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__, 1)
16959 #else
16960  #define LAPACK_csyequb(...) LAPACK_csyequb_base(__VA_ARGS__)
16961 #endif
16962 
16963 #define LAPACK_dsyequb_base LAPACK_GLOBAL(dsyequb,DSYEQUB)
16964 void LAPACK_dsyequb_base(
16965  char const* uplo,
16966  lapack_int const* n,
16967  double const* A, lapack_int const* lda,
16968  double* S,
16969  double* scond,
16970  double* amax,
16971  double* work,
16972  lapack_int* info
16973 #ifdef LAPACK_FORTRAN_STRLEN_END
16974  , size_t
16975 #endif
16976 );
16977 #ifdef LAPACK_FORTRAN_STRLEN_END
16978  #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__, 1)
16979 #else
16980  #define LAPACK_dsyequb(...) LAPACK_dsyequb_base(__VA_ARGS__)
16981 #endif
16982 
16983 #define LAPACK_ssyequb_base LAPACK_GLOBAL(ssyequb,SSYEQUB)
16984 void LAPACK_ssyequb_base(
16985  char const* uplo,
16986  lapack_int const* n,
16987  float const* A, lapack_int const* lda,
16988  float* S,
16989  float* scond,
16990  float* amax,
16991  float* work,
16992  lapack_int* info
16993 #ifdef LAPACK_FORTRAN_STRLEN_END
16994  , size_t
16995 #endif
16996 );
16997 #ifdef LAPACK_FORTRAN_STRLEN_END
16998  #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__, 1)
16999 #else
17000  #define LAPACK_ssyequb(...) LAPACK_ssyequb_base(__VA_ARGS__)
17001 #endif
17002 
17003 #define LAPACK_zsyequb_base LAPACK_GLOBAL(zsyequb,ZSYEQUB)
17004 void LAPACK_zsyequb_base(
17005  char const* uplo,
17006  lapack_int const* n,
17007  lapack_complex_double const* A, lapack_int const* lda,
17008  double* S,
17009  double* scond,
17010  double* amax,
17011  lapack_complex_double* work,
17012  lapack_int* info
17013 #ifdef LAPACK_FORTRAN_STRLEN_END
17014  , size_t
17015 #endif
17016 );
17017 #ifdef LAPACK_FORTRAN_STRLEN_END
17018  #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__, 1)
17019 #else
17020  #define LAPACK_zsyequb(...) LAPACK_zsyequb_base(__VA_ARGS__)
17021 #endif
17022 
17023 #define LAPACK_dsyev_base LAPACK_GLOBAL(dsyev,DSYEV)
17024 void LAPACK_dsyev_base(
17025  char const* jobz, char const* uplo,
17026  lapack_int const* n,
17027  double* A, lapack_int const* lda,
17028  double* W,
17029  double* work, lapack_int const* lwork,
17030  lapack_int* info
17031 #ifdef LAPACK_FORTRAN_STRLEN_END
17032  , size_t, size_t
17033 #endif
17034 );
17035 #ifdef LAPACK_FORTRAN_STRLEN_END
17036  #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__, 1, 1)
17037 #else
17038  #define LAPACK_dsyev(...) LAPACK_dsyev_base(__VA_ARGS__)
17039 #endif
17040 
17041 #define LAPACK_ssyev_base LAPACK_GLOBAL(ssyev,SSYEV)
17042 void LAPACK_ssyev_base(
17043  char const* jobz, char const* uplo,
17044  lapack_int const* n,
17045  float* A, lapack_int const* lda,
17046  float* W,
17047  float* work, lapack_int const* lwork,
17048  lapack_int* info
17049 #ifdef LAPACK_FORTRAN_STRLEN_END
17050  , size_t, size_t
17051 #endif
17052 );
17053 #ifdef LAPACK_FORTRAN_STRLEN_END
17054  #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__, 1, 1)
17055 #else
17056  #define LAPACK_ssyev(...) LAPACK_ssyev_base(__VA_ARGS__)
17057 #endif
17058 
17059 #define LAPACK_dsyev_2stage_base LAPACK_GLOBAL(dsyev_2stage,DSYEV_2STAGE)
17060 void LAPACK_dsyev_2stage_base(
17061  char const* jobz, char const* uplo,
17062  lapack_int const* n,
17063  double* A, lapack_int const* lda,
17064  double* W,
17065  double* work, lapack_int const* lwork,
17066  lapack_int* info
17067 #ifdef LAPACK_FORTRAN_STRLEN_END
17068  , size_t, size_t
17069 #endif
17070 );
17071 #ifdef LAPACK_FORTRAN_STRLEN_END
17072  #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__, 1, 1)
17073 #else
17074  #define LAPACK_dsyev_2stage(...) LAPACK_dsyev_2stage_base(__VA_ARGS__)
17075 #endif
17076 
17077 #define LAPACK_ssyev_2stage_base LAPACK_GLOBAL(ssyev_2stage,SSYEV_2STAGE)
17078 void LAPACK_ssyev_2stage_base(
17079  char const* jobz, char const* uplo,
17080  lapack_int const* n,
17081  float* A, lapack_int const* lda,
17082  float* W,
17083  float* work, lapack_int const* lwork,
17084  lapack_int* info
17085 #ifdef LAPACK_FORTRAN_STRLEN_END
17086  , size_t, size_t
17087 #endif
17088 );
17089 #ifdef LAPACK_FORTRAN_STRLEN_END
17090  #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__, 1, 1)
17091 #else
17092  #define LAPACK_ssyev_2stage(...) LAPACK_ssyev_2stage_base(__VA_ARGS__)
17093 #endif
17094 
17095 #define LAPACK_dsyevd_base LAPACK_GLOBAL(dsyevd,DSYEVD)
17096 void LAPACK_dsyevd_base(
17097  char const* jobz, char const* uplo,
17098  lapack_int const* n,
17099  double* A, lapack_int const* lda,
17100  double* W,
17101  double* work, lapack_int const* lwork,
17102  lapack_int* iwork, lapack_int const* liwork,
17103  lapack_int* info
17104 #ifdef LAPACK_FORTRAN_STRLEN_END
17105  , size_t, size_t
17106 #endif
17107 );
17108 #ifdef LAPACK_FORTRAN_STRLEN_END
17109  #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__, 1, 1)
17110 #else
17111  #define LAPACK_dsyevd(...) LAPACK_dsyevd_base(__VA_ARGS__)
17112 #endif
17113 
17114 #define LAPACK_ssyevd_base LAPACK_GLOBAL(ssyevd,SSYEVD)
17115 void LAPACK_ssyevd_base(
17116  char const* jobz, char const* uplo,
17117  lapack_int const* n,
17118  float* A, lapack_int const* lda,
17119  float* W,
17120  float* work, lapack_int const* lwork,
17121  lapack_int* iwork, lapack_int const* liwork,
17122  lapack_int* info
17123 #ifdef LAPACK_FORTRAN_STRLEN_END
17124  , size_t, size_t
17125 #endif
17126 );
17127 #ifdef LAPACK_FORTRAN_STRLEN_END
17128  #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__, 1, 1)
17129 #else
17130  #define LAPACK_ssyevd(...) LAPACK_ssyevd_base(__VA_ARGS__)
17131 #endif
17132 
17133 #define LAPACK_dsyevd_2stage_base LAPACK_GLOBAL(dsyevd_2stage,DSYEVD_2STAGE)
17134 void LAPACK_dsyevd_2stage_base(
17135  char const* jobz, char const* uplo,
17136  lapack_int const* n,
17137  double* A, lapack_int const* lda,
17138  double* W,
17139  double* work, lapack_int const* lwork,
17140  lapack_int* iwork, lapack_int const* liwork,
17141  lapack_int* info
17142 #ifdef LAPACK_FORTRAN_STRLEN_END
17143  , size_t, size_t
17144 #endif
17145 );
17146 #ifdef LAPACK_FORTRAN_STRLEN_END
17147  #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__, 1, 1)
17148 #else
17149  #define LAPACK_dsyevd_2stage(...) LAPACK_dsyevd_2stage_base(__VA_ARGS__)
17150 #endif
17151 
17152 #define LAPACK_ssyevd_2stage_base LAPACK_GLOBAL(ssyevd_2stage,SSYEVD_2STAGE)
17153 void LAPACK_ssyevd_2stage_base(
17154  char const* jobz, char const* uplo,
17155  lapack_int const* n,
17156  float* A, lapack_int const* lda,
17157  float* W,
17158  float* work, lapack_int const* lwork,
17159  lapack_int* iwork, lapack_int const* liwork,
17160  lapack_int* info
17161 #ifdef LAPACK_FORTRAN_STRLEN_END
17162  , size_t, size_t
17163 #endif
17164 );
17165 #ifdef LAPACK_FORTRAN_STRLEN_END
17166  #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__, 1, 1)
17167 #else
17168  #define LAPACK_ssyevd_2stage(...) LAPACK_ssyevd_2stage_base(__VA_ARGS__)
17169 #endif
17170 
17171 #define LAPACK_dsyevr_base LAPACK_GLOBAL(dsyevr,DSYEVR)
17172 void LAPACK_dsyevr_base(
17173  char const* jobz, char const* range, char const* uplo,
17174  lapack_int const* n,
17175  double* A, lapack_int const* lda,
17176  double const* vl,
17177  double const* vu, lapack_int const* il, lapack_int const* iu,
17178  double const* abstol, lapack_int* m,
17179  double* W,
17180  double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17181  double* work, lapack_int const* lwork,
17182  lapack_int* iwork, lapack_int const* liwork,
17183  lapack_int* info
17184 #ifdef LAPACK_FORTRAN_STRLEN_END
17185  , size_t, size_t, size_t
17186 #endif
17187 );
17188 #ifdef LAPACK_FORTRAN_STRLEN_END
17189  #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__, 1, 1, 1)
17190 #else
17191  #define LAPACK_dsyevr(...) LAPACK_dsyevr_base(__VA_ARGS__)
17192 #endif
17193 
17194 #define LAPACK_ssyevr_base LAPACK_GLOBAL(ssyevr,SSYEVR)
17195 void LAPACK_ssyevr_base(
17196  char const* jobz, char const* range, char const* uplo,
17197  lapack_int const* n,
17198  float* A, lapack_int const* lda,
17199  float const* vl,
17200  float const* vu, lapack_int const* il, lapack_int const* iu,
17201  float const* abstol, lapack_int* m,
17202  float* W,
17203  float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17204  float* work, lapack_int const* lwork,
17205  lapack_int* iwork, lapack_int const* liwork,
17206  lapack_int* info
17207 #ifdef LAPACK_FORTRAN_STRLEN_END
17208  , size_t, size_t, size_t
17209 #endif
17210 );
17211 #ifdef LAPACK_FORTRAN_STRLEN_END
17212  #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__, 1, 1, 1)
17213 #else
17214  #define LAPACK_ssyevr(...) LAPACK_ssyevr_base(__VA_ARGS__)
17215 #endif
17216 
17217 #define LAPACK_dsyevr_2stage_base LAPACK_GLOBAL(dsyevr_2stage,DSYEVR_2STAGE)
17218 void LAPACK_dsyevr_2stage_base(
17219  char const* jobz, char const* range, char const* uplo,
17220  lapack_int const* n,
17221  double* A, lapack_int const* lda,
17222  double const* vl,
17223  double const* vu, lapack_int const* il, lapack_int const* iu,
17224  double const* abstol, lapack_int* m,
17225  double* W,
17226  double* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17227  double* work, lapack_int const* lwork,
17228  lapack_int* iwork, lapack_int const* liwork,
17229  lapack_int* info
17230 #ifdef LAPACK_FORTRAN_STRLEN_END
17231  , size_t, size_t, size_t
17232 #endif
17233 );
17234 #ifdef LAPACK_FORTRAN_STRLEN_END
17235  #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17236 #else
17237  #define LAPACK_dsyevr_2stage(...) LAPACK_dsyevr_2stage_base(__VA_ARGS__)
17238 #endif
17239 
17240 #define LAPACK_ssyevr_2stage_base LAPACK_GLOBAL(ssyevr_2stage,SSYEVR_2STAGE)
17241 void LAPACK_ssyevr_2stage_base(
17242  char const* jobz, char const* range, char const* uplo,
17243  lapack_int const* n,
17244  float* A, lapack_int const* lda,
17245  float const* vl,
17246  float const* vu, lapack_int const* il, lapack_int const* iu,
17247  float const* abstol, lapack_int* m,
17248  float* W,
17249  float* Z, lapack_int const* ldz, lapack_int* ISUPPZ,
17250  float* work, lapack_int const* lwork,
17251  lapack_int* iwork, lapack_int const* liwork,
17252  lapack_int* info
17253 #ifdef LAPACK_FORTRAN_STRLEN_END
17254  , size_t, size_t, size_t
17255 #endif
17256 );
17257 #ifdef LAPACK_FORTRAN_STRLEN_END
17258  #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__, 1, 1, 1)
17259 #else
17260  #define LAPACK_ssyevr_2stage(...) LAPACK_ssyevr_2stage_base(__VA_ARGS__)
17261 #endif
17262 
17263 #define LAPACK_dsyevx_base LAPACK_GLOBAL(dsyevx,DSYEVX)
17264 void LAPACK_dsyevx_base(
17265  char const* jobz, char const* range, char const* uplo,
17266  lapack_int const* n,
17267  double* A, lapack_int const* lda,
17268  double const* vl,
17269  double const* vu, lapack_int const* il, lapack_int const* iu,
17270  double const* abstol, lapack_int* m,
17271  double* W,
17272  double* Z, lapack_int const* ldz,
17273  double* work, lapack_int const* lwork,
17274  lapack_int* iwork, lapack_int* IFAIL,
17275  lapack_int* info
17276 #ifdef LAPACK_FORTRAN_STRLEN_END
17277  , size_t, size_t, size_t
17278 #endif
17279 );
17280 #ifdef LAPACK_FORTRAN_STRLEN_END
17281  #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__, 1, 1, 1)
17282 #else
17283  #define LAPACK_dsyevx(...) LAPACK_dsyevx_base(__VA_ARGS__)
17284 #endif
17285 
17286 #define LAPACK_ssyevx_base LAPACK_GLOBAL(ssyevx,SSYEVX)
17287 void LAPACK_ssyevx_base(
17288  char const* jobz, char const* range, char const* uplo,
17289  lapack_int const* n,
17290  float* A, lapack_int const* lda,
17291  float const* vl,
17292  float const* vu, lapack_int const* il, lapack_int const* iu,
17293  float const* abstol, lapack_int* m,
17294  float* W,
17295  float* Z, lapack_int const* ldz,
17296  float* work, lapack_int const* lwork,
17297  lapack_int* iwork, lapack_int* IFAIL,
17298  lapack_int* info
17299 #ifdef LAPACK_FORTRAN_STRLEN_END
17300  , size_t, size_t, size_t
17301 #endif
17302 );
17303 #ifdef LAPACK_FORTRAN_STRLEN_END
17304  #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__, 1, 1, 1)
17305 #else
17306  #define LAPACK_ssyevx(...) LAPACK_ssyevx_base(__VA_ARGS__)
17307 #endif
17308 
17309 #define LAPACK_dsyevx_2stage_base LAPACK_GLOBAL(dsyevx_2stage,DSYEVX_2STAGE)
17310 void LAPACK_dsyevx_2stage_base(
17311  char const* jobz, char const* range, char const* uplo,
17312  lapack_int const* n,
17313  double* A, lapack_int const* lda,
17314  double const* vl,
17315  double const* vu, lapack_int const* il, lapack_int const* iu,
17316  double const* abstol, lapack_int* m,
17317  double* W,
17318  double* Z, lapack_int const* ldz,
17319  double* work, lapack_int const* lwork,
17320  lapack_int* iwork, lapack_int* IFAIL,
17321  lapack_int* info
17322 #ifdef LAPACK_FORTRAN_STRLEN_END
17323  , size_t, size_t, size_t
17324 #endif
17325 );
17326 #ifdef LAPACK_FORTRAN_STRLEN_END
17327  #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17328 #else
17329  #define LAPACK_dsyevx_2stage(...) LAPACK_dsyevx_2stage_base(__VA_ARGS__)
17330 #endif
17331 
17332 #define LAPACK_ssyevx_2stage_base LAPACK_GLOBAL(ssyevx_2stage,SSYEVX_2STAGE)
17333 void LAPACK_ssyevx_2stage_base(
17334  char const* jobz, char const* range, char const* uplo,
17335  lapack_int const* n,
17336  float* A, lapack_int const* lda,
17337  float const* vl,
17338  float const* vu, lapack_int const* il, lapack_int const* iu,
17339  float const* abstol, lapack_int* m,
17340  float* W,
17341  float* Z, lapack_int const* ldz,
17342  float* work, lapack_int const* lwork,
17343  lapack_int* iwork, lapack_int* IFAIL,
17344  lapack_int* info
17345 #ifdef LAPACK_FORTRAN_STRLEN_END
17346  , size_t, size_t, size_t
17347 #endif
17348 );
17349 #ifdef LAPACK_FORTRAN_STRLEN_END
17350  #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__, 1, 1, 1)
17351 #else
17352  #define LAPACK_ssyevx_2stage(...) LAPACK_ssyevx_2stage_base(__VA_ARGS__)
17353 #endif
17354 
17355 #define LAPACK_dsygst_base LAPACK_GLOBAL(dsygst,DSYGST)
17356 void LAPACK_dsygst_base(
17357  lapack_int const* itype, char const* uplo,
17358  lapack_int const* n,
17359  double* A, lapack_int const* lda,
17360  double const* B, lapack_int const* ldb,
17361  lapack_int* info
17362 #ifdef LAPACK_FORTRAN_STRLEN_END
17363  , size_t
17364 #endif
17365 );
17366 #ifdef LAPACK_FORTRAN_STRLEN_END
17367  #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__, 1)
17368 #else
17369  #define LAPACK_dsygst(...) LAPACK_dsygst_base(__VA_ARGS__)
17370 #endif
17371 
17372 #define LAPACK_ssygst_base LAPACK_GLOBAL(ssygst,SSYGST)
17373 void LAPACK_ssygst_base(
17374  lapack_int const* itype, char const* uplo,
17375  lapack_int const* n,
17376  float* A, lapack_int const* lda,
17377  float const* B, lapack_int const* ldb,
17378  lapack_int* info
17379 #ifdef LAPACK_FORTRAN_STRLEN_END
17380  , size_t
17381 #endif
17382 );
17383 #ifdef LAPACK_FORTRAN_STRLEN_END
17384  #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__, 1)
17385 #else
17386  #define LAPACK_ssygst(...) LAPACK_ssygst_base(__VA_ARGS__)
17387 #endif
17388 
17389 #define LAPACK_dsygv_base LAPACK_GLOBAL(dsygv,DSYGV)
17390 void LAPACK_dsygv_base(
17391  lapack_int const* itype, char const* jobz, char const* uplo,
17392  lapack_int const* n,
17393  double* A, lapack_int const* lda,
17394  double* B, lapack_int const* ldb,
17395  double* W,
17396  double* work, lapack_int const* lwork,
17397  lapack_int* info
17398 #ifdef LAPACK_FORTRAN_STRLEN_END
17399  , size_t, size_t
17400 #endif
17401 );
17402 #ifdef LAPACK_FORTRAN_STRLEN_END
17403  #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__, 1, 1)
17404 #else
17405  #define LAPACK_dsygv(...) LAPACK_dsygv_base(__VA_ARGS__)
17406 #endif
17407 
17408 #define LAPACK_ssygv_base LAPACK_GLOBAL(ssygv,SSYGV)
17409 void LAPACK_ssygv_base(
17410  lapack_int const* itype, char const* jobz, char const* uplo,
17411  lapack_int const* n,
17412  float* A, lapack_int const* lda,
17413  float* B, lapack_int const* ldb,
17414  float* W,
17415  float* work, lapack_int const* lwork,
17416  lapack_int* info
17417 #ifdef LAPACK_FORTRAN_STRLEN_END
17418  , size_t, size_t
17419 #endif
17420 );
17421 #ifdef LAPACK_FORTRAN_STRLEN_END
17422  #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__, 1, 1)
17423 #else
17424  #define LAPACK_ssygv(...) LAPACK_ssygv_base(__VA_ARGS__)
17425 #endif
17426 
17427 #define LAPACK_dsygv_2stage_base LAPACK_GLOBAL(dsygv_2stage,DSYGV_2STAGE)
17428 void LAPACK_dsygv_2stage_base(
17429  lapack_int const* itype, char const* jobz, char const* uplo,
17430  lapack_int const* n,
17431  double* A, lapack_int const* lda,
17432  double* B, lapack_int const* ldb,
17433  double* W,
17434  double* work, lapack_int const* lwork,
17435  lapack_int* info
17436 #ifdef LAPACK_FORTRAN_STRLEN_END
17437  , size_t, size_t
17438 #endif
17439 );
17440 #ifdef LAPACK_FORTRAN_STRLEN_END
17441  #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__, 1, 1)
17442 #else
17443  #define LAPACK_dsygv_2stage(...) LAPACK_dsygv_2stage_base(__VA_ARGS__)
17444 #endif
17445 
17446 #define LAPACK_ssygv_2stage_base LAPACK_GLOBAL(ssygv_2stage,SSYGV_2STAGE)
17447 void LAPACK_ssygv_2stage_base(
17448  lapack_int const* itype, char const* jobz, char const* uplo,
17449  lapack_int const* n,
17450  float* A, lapack_int const* lda,
17451  float* B, lapack_int const* ldb,
17452  float* W,
17453  float* work, lapack_int const* lwork,
17454  lapack_int* info
17455 #ifdef LAPACK_FORTRAN_STRLEN_END
17456  , size_t, size_t
17457 #endif
17458 );
17459 #ifdef LAPACK_FORTRAN_STRLEN_END
17460  #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__, 1, 1)
17461 #else
17462  #define LAPACK_ssygv_2stage(...) LAPACK_ssygv_2stage_base(__VA_ARGS__)
17463 #endif
17464 
17465 #define LAPACK_dsygvd_base LAPACK_GLOBAL(dsygvd,DSYGVD)
17466 void LAPACK_dsygvd_base(
17467  lapack_int const* itype, char const* jobz, char const* uplo,
17468  lapack_int const* n,
17469  double* A, lapack_int const* lda,
17470  double* B, lapack_int const* ldb,
17471  double* W,
17472  double* work, lapack_int const* lwork,
17473  lapack_int* iwork, lapack_int const* liwork,
17474  lapack_int* info
17475 #ifdef LAPACK_FORTRAN_STRLEN_END
17476  , size_t, size_t
17477 #endif
17478 );
17479 #ifdef LAPACK_FORTRAN_STRLEN_END
17480  #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__, 1, 1)
17481 #else
17482  #define LAPACK_dsygvd(...) LAPACK_dsygvd_base(__VA_ARGS__)
17483 #endif
17484 
17485 #define LAPACK_ssygvd_base LAPACK_GLOBAL(ssygvd,SSYGVD)
17486 void LAPACK_ssygvd_base(
17487  lapack_int const* itype, char const* jobz, char const* uplo,
17488  lapack_int const* n,
17489  float* A, lapack_int const* lda,
17490  float* B, lapack_int const* ldb,
17491  float* W,
17492  float* work, lapack_int const* lwork,
17493  lapack_int* iwork, lapack_int const* liwork,
17494  lapack_int* info
17495 #ifdef LAPACK_FORTRAN_STRLEN_END
17496  , size_t, size_t
17497 #endif
17498 );
17499 #ifdef LAPACK_FORTRAN_STRLEN_END
17500  #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__, 1, 1)
17501 #else
17502  #define LAPACK_ssygvd(...) LAPACK_ssygvd_base(__VA_ARGS__)
17503 #endif
17504 
17505 #define LAPACK_dsygvx_base LAPACK_GLOBAL(dsygvx,DSYGVX)
17506 void LAPACK_dsygvx_base(
17507  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
17508  lapack_int const* n,
17509  double* A, lapack_int const* lda,
17510  double* B, lapack_int const* ldb,
17511  double const* vl,
17512  double const* vu, lapack_int const* il, lapack_int const* iu,
17513  double const* abstol, lapack_int* m,
17514  double* W,
17515  double* Z, lapack_int const* ldz,
17516  double* work, lapack_int const* lwork,
17517  lapack_int* iwork, lapack_int* IFAIL,
17518  lapack_int* info
17519 #ifdef LAPACK_FORTRAN_STRLEN_END
17520  , size_t, size_t, size_t
17521 #endif
17522 );
17523 #ifdef LAPACK_FORTRAN_STRLEN_END
17524  #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__, 1, 1, 1)
17525 #else
17526  #define LAPACK_dsygvx(...) LAPACK_dsygvx_base(__VA_ARGS__)
17527 #endif
17528 
17529 #define LAPACK_ssygvx_base LAPACK_GLOBAL(ssygvx,SSYGVX)
17530 void LAPACK_ssygvx_base(
17531  lapack_int const* itype, char const* jobz, char const* range, char const* uplo,
17532  lapack_int const* n,
17533  float* A, lapack_int const* lda,
17534  float* B, lapack_int const* ldb,
17535  float const* vl,
17536  float const* vu, lapack_int const* il, lapack_int const* iu,
17537  float const* abstol, lapack_int* m,
17538  float* W,
17539  float* Z, lapack_int const* ldz,
17540  float* work, lapack_int const* lwork,
17541  lapack_int* iwork, lapack_int* IFAIL,
17542  lapack_int* info
17543 #ifdef LAPACK_FORTRAN_STRLEN_END
17544  , size_t, size_t, size_t
17545 #endif
17546 );
17547 #ifdef LAPACK_FORTRAN_STRLEN_END
17548  #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__, 1, 1, 1)
17549 #else
17550  #define LAPACK_ssygvx(...) LAPACK_ssygvx_base(__VA_ARGS__)
17551 #endif
17552 
17553 #define LAPACK_csyr_base LAPACK_GLOBAL(csyr,CSYR)
17554 void LAPACK_csyr_base(
17555  char const* uplo,
17556  lapack_int const* n,
17557  lapack_complex_float const* alpha,
17558  lapack_complex_float const* X, lapack_int const* incx,
17559  lapack_complex_float* A, lapack_int const* lda
17560 #ifdef LAPACK_FORTRAN_STRLEN_END
17561  , size_t
17562 #endif
17563 );
17564 #ifdef LAPACK_FORTRAN_STRLEN_END
17565  #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__, 1)
17566 #else
17567  #define LAPACK_csyr(...) LAPACK_csyr_base(__VA_ARGS__)
17568 #endif
17569 
17570 #define LAPACK_zsyr_base LAPACK_GLOBAL(zsyr,ZSYR)
17571 void LAPACK_zsyr_base(
17572  char const* uplo,
17573  lapack_int const* n,
17574  lapack_complex_double const* alpha,
17575  lapack_complex_double const* X, lapack_int const* incx,
17576  lapack_complex_double* A, lapack_int const* lda
17577 #ifdef LAPACK_FORTRAN_STRLEN_END
17578  , size_t
17579 #endif
17580 );
17581 #ifdef LAPACK_FORTRAN_STRLEN_END
17582  #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__, 1)
17583 #else
17584  #define LAPACK_zsyr(...) LAPACK_zsyr_base(__VA_ARGS__)
17585 #endif
17586 
17587 #define LAPACK_csyrfs_base LAPACK_GLOBAL(csyrfs,CSYRFS)
17588 void LAPACK_csyrfs_base(
17589  char const* uplo,
17590  lapack_int const* n, lapack_int const* nrhs,
17591  lapack_complex_float const* A, lapack_int const* lda,
17592  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17593  lapack_complex_float const* B, lapack_int const* ldb,
17594  lapack_complex_float* X, lapack_int const* ldx,
17595  float* ferr,
17596  float* berr,
17597  lapack_complex_float* work,
17598  float* rwork,
17599  lapack_int* info
17600 #ifdef LAPACK_FORTRAN_STRLEN_END
17601  , size_t
17602 #endif
17603 );
17604 #ifdef LAPACK_FORTRAN_STRLEN_END
17605  #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__, 1)
17606 #else
17607  #define LAPACK_csyrfs(...) LAPACK_csyrfs_base(__VA_ARGS__)
17608 #endif
17609 
17610 #define LAPACK_dsyrfs_base LAPACK_GLOBAL(dsyrfs,DSYRFS)
17611 void LAPACK_dsyrfs_base(
17612  char const* uplo,
17613  lapack_int const* n, lapack_int const* nrhs,
17614  double const* A, lapack_int const* lda,
17615  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17616  double const* B, lapack_int const* ldb,
17617  double* X, lapack_int const* ldx,
17618  double* ferr,
17619  double* berr,
17620  double* work,
17621  lapack_int* iwork,
17622  lapack_int* info
17623 #ifdef LAPACK_FORTRAN_STRLEN_END
17624  , size_t
17625 #endif
17626 );
17627 #ifdef LAPACK_FORTRAN_STRLEN_END
17628  #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__, 1)
17629 #else
17630  #define LAPACK_dsyrfs(...) LAPACK_dsyrfs_base(__VA_ARGS__)
17631 #endif
17632 
17633 #define LAPACK_ssyrfs_base LAPACK_GLOBAL(ssyrfs,SSYRFS)
17634 void LAPACK_ssyrfs_base(
17635  char const* uplo,
17636  lapack_int const* n, lapack_int const* nrhs,
17637  float const* A, lapack_int const* lda,
17638  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17639  float const* B, lapack_int const* ldb,
17640  float* X, lapack_int const* ldx,
17641  float* ferr,
17642  float* berr,
17643  float* work,
17644  lapack_int* iwork,
17645  lapack_int* info
17646 #ifdef LAPACK_FORTRAN_STRLEN_END
17647  , size_t
17648 #endif
17649 );
17650 #ifdef LAPACK_FORTRAN_STRLEN_END
17651  #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__, 1)
17652 #else
17653  #define LAPACK_ssyrfs(...) LAPACK_ssyrfs_base(__VA_ARGS__)
17654 #endif
17655 
17656 #define LAPACK_zsyrfs_base LAPACK_GLOBAL(zsyrfs,ZSYRFS)
17657 void LAPACK_zsyrfs_base(
17658  char const* uplo,
17659  lapack_int const* n, lapack_int const* nrhs,
17660  lapack_complex_double const* A, lapack_int const* lda,
17661  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17662  lapack_complex_double const* B, lapack_int const* ldb,
17663  lapack_complex_double* X, lapack_int const* ldx,
17664  double* ferr,
17665  double* berr,
17666  lapack_complex_double* work,
17667  double* rwork,
17668  lapack_int* info
17669 #ifdef LAPACK_FORTRAN_STRLEN_END
17670  , size_t
17671 #endif
17672 );
17673 #ifdef LAPACK_FORTRAN_STRLEN_END
17674  #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__, 1)
17675 #else
17676  #define LAPACK_zsyrfs(...) LAPACK_zsyrfs_base(__VA_ARGS__)
17677 #endif
17678 
17679 #define LAPACK_csyrfsx_base LAPACK_GLOBAL(csyrfsx,CSYRFSX)
17680 void LAPACK_csyrfsx_base(
17681  char const* uplo, char const* equed,
17682  lapack_int const* n, lapack_int const* nrhs,
17683  lapack_complex_float const* A, lapack_int const* lda,
17684  lapack_complex_float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17685  const float* S,
17686  lapack_complex_float const* B, lapack_int const* ldb,
17687  lapack_complex_float* X, lapack_int const* ldx,
17688  float* rcond,
17689  float* berr, lapack_int const* n_err_bnds,
17690  float* err_bnds_norm,
17691  float* err_bnds_comp, lapack_int const* nparams,
17692  float* params,
17693  lapack_complex_float* work,
17694  float* rwork,
17695  lapack_int* info
17696 #ifdef LAPACK_FORTRAN_STRLEN_END
17697  , size_t, size_t
17698 #endif
17699 );
17700 #ifdef LAPACK_FORTRAN_STRLEN_END
17701  #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__, 1, 1)
17702 #else
17703  #define LAPACK_csyrfsx(...) LAPACK_csyrfsx_base(__VA_ARGS__)
17704 #endif
17705 
17706 #define LAPACK_dsyrfsx_base LAPACK_GLOBAL(dsyrfsx,DSYRFSX)
17707 void LAPACK_dsyrfsx_base(
17708  char const* uplo, char const* equed,
17709  lapack_int const* n, lapack_int const* nrhs,
17710  double const* A, lapack_int const* lda,
17711  double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17712  const double* S,
17713  double const* B, lapack_int const* ldb,
17714  double* X, lapack_int const* ldx,
17715  double* rcond,
17716  double* berr, lapack_int const* n_err_bnds,
17717  double* err_bnds_norm,
17718  double* err_bnds_comp, lapack_int const* nparams,
17719  double* params,
17720  double* work,
17721  lapack_int* iwork,
17722  lapack_int* info
17723 #ifdef LAPACK_FORTRAN_STRLEN_END
17724  , size_t, size_t
17725 #endif
17726 );
17727 #ifdef LAPACK_FORTRAN_STRLEN_END
17728  #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__, 1, 1)
17729 #else
17730  #define LAPACK_dsyrfsx(...) LAPACK_dsyrfsx_base(__VA_ARGS__)
17731 #endif
17732 
17733 #define LAPACK_ssyrfsx_base LAPACK_GLOBAL(ssyrfsx,SSYRFSX)
17734 void LAPACK_ssyrfsx_base(
17735  char const* uplo, char const* equed,
17736  lapack_int const* n, lapack_int const* nrhs,
17737  float const* A, lapack_int const* lda,
17738  float const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17739  const float* S,
17740  float const* B, lapack_int const* ldb,
17741  float* X, lapack_int const* ldx,
17742  float* rcond,
17743  float* berr, lapack_int const* n_err_bnds,
17744  float* err_bnds_norm,
17745  float* err_bnds_comp, lapack_int const* nparams,
17746  float* params,
17747  float* work,
17748  lapack_int* iwork,
17749  lapack_int* info
17750 #ifdef LAPACK_FORTRAN_STRLEN_END
17751  , size_t, size_t
17752 #endif
17753 );
17754 #ifdef LAPACK_FORTRAN_STRLEN_END
17755  #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__, 1, 1)
17756 #else
17757  #define LAPACK_ssyrfsx(...) LAPACK_ssyrfsx_base(__VA_ARGS__)
17758 #endif
17759 
17760 #define LAPACK_zsyrfsx_base LAPACK_GLOBAL(zsyrfsx,ZSYRFSX)
17761 void LAPACK_zsyrfsx_base(
17762  char const* uplo, char const* equed,
17763  lapack_int const* n, lapack_int const* nrhs,
17764  lapack_complex_double const* A, lapack_int const* lda,
17765  lapack_complex_double const* AF, lapack_int const* ldaf, lapack_int const* ipiv,
17766  const double* S,
17767  lapack_complex_double const* B, lapack_int const* ldb,
17768  lapack_complex_double* X, lapack_int const* ldx,
17769  double* rcond,
17770  double* berr, lapack_int const* n_err_bnds,
17771  double* err_bnds_norm,
17772  double* err_bnds_comp, lapack_int const* nparams,
17773  double* params,
17774  lapack_complex_double* work,
17775  double* rwork,
17776  lapack_int* info
17777 #ifdef LAPACK_FORTRAN_STRLEN_END
17778  , size_t, size_t
17779 #endif
17780 );
17781 #ifdef LAPACK_FORTRAN_STRLEN_END
17782  #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__, 1, 1)
17783 #else
17784  #define LAPACK_zsyrfsx(...) LAPACK_zsyrfsx_base(__VA_ARGS__)
17785 #endif
17786 
17787 #define LAPACK_csysv_base LAPACK_GLOBAL(csysv,CSYSV)
17788 void LAPACK_csysv_base(
17789  char const* uplo,
17790  lapack_int const* n, lapack_int const* nrhs,
17791  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
17792  lapack_complex_float* B, lapack_int const* ldb,
17793  lapack_complex_float* work, lapack_int const* lwork,
17794  lapack_int* info
17795 #ifdef LAPACK_FORTRAN_STRLEN_END
17796  , size_t
17797 #endif
17798 );
17799 #ifdef LAPACK_FORTRAN_STRLEN_END
17800  #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__, 1)
17801 #else
17802  #define LAPACK_csysv(...) LAPACK_csysv_base(__VA_ARGS__)
17803 #endif
17804 
17805 #define LAPACK_dsysv_base LAPACK_GLOBAL(dsysv,DSYSV)
17806 void LAPACK_dsysv_base(
17807  char const* uplo,
17808  lapack_int const* n, lapack_int const* nrhs,
17809  double* A, lapack_int const* lda, lapack_int* ipiv,
17810  double* B, lapack_int const* ldb,
17811  double* work, lapack_int const* lwork,
17812  lapack_int* info
17813 #ifdef LAPACK_FORTRAN_STRLEN_END
17814  , size_t
17815 #endif
17816 );
17817 #ifdef LAPACK_FORTRAN_STRLEN_END
17818  #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__, 1)
17819 #else
17820  #define LAPACK_dsysv(...) LAPACK_dsysv_base(__VA_ARGS__)
17821 #endif
17822 
17823 #define LAPACK_ssysv_base LAPACK_GLOBAL(ssysv,SSYSV)
17824 void LAPACK_ssysv_base(
17825  char const* uplo,
17826  lapack_int const* n, lapack_int const* nrhs,
17827  float* A, lapack_int const* lda, lapack_int* ipiv,
17828  float* B, lapack_int const* ldb,
17829  float* work, lapack_int const* lwork,
17830  lapack_int* info
17831 #ifdef LAPACK_FORTRAN_STRLEN_END
17832  , size_t
17833 #endif
17834 );
17835 #ifdef LAPACK_FORTRAN_STRLEN_END
17836  #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__, 1)
17837 #else
17838  #define LAPACK_ssysv(...) LAPACK_ssysv_base(__VA_ARGS__)
17839 #endif
17840 
17841 #define LAPACK_zsysv_base LAPACK_GLOBAL(zsysv,ZSYSV)
17842 void LAPACK_zsysv_base(
17843  char const* uplo,
17844  lapack_int const* n, lapack_int const* nrhs,
17845  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
17846  lapack_complex_double* B, lapack_int const* ldb,
17847  lapack_complex_double* work, lapack_int const* lwork,
17848  lapack_int* info
17849 #ifdef LAPACK_FORTRAN_STRLEN_END
17850  , size_t
17851 #endif
17852 );
17853 #ifdef LAPACK_FORTRAN_STRLEN_END
17854  #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__, 1)
17855 #else
17856  #define LAPACK_zsysv(...) LAPACK_zsysv_base(__VA_ARGS__)
17857 #endif
17858 
17859 #define LAPACK_csysv_aa_base LAPACK_GLOBAL(csysv_aa,CSYSV_AA)
17860 void LAPACK_csysv_aa_base(
17861  char const* uplo,
17862  lapack_int const* n, lapack_int const* nrhs,
17863  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
17864  lapack_complex_float* B, lapack_int const* ldb,
17865  lapack_complex_float* work, lapack_int const* lwork,
17866  lapack_int* info
17867 #ifdef LAPACK_FORTRAN_STRLEN_END
17868  , size_t
17869 #endif
17870 );
17871 #ifdef LAPACK_FORTRAN_STRLEN_END
17872  #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__, 1)
17873 #else
17874  #define LAPACK_csysv_aa(...) LAPACK_csysv_aa_base(__VA_ARGS__)
17875 #endif
17876 
17877 #define LAPACK_dsysv_aa_base LAPACK_GLOBAL(dsysv_aa,DSYSV_AA)
17878 void LAPACK_dsysv_aa_base(
17879  char const* uplo,
17880  lapack_int const* n, lapack_int const* nrhs,
17881  double* A, lapack_int const* lda, lapack_int* ipiv,
17882  double* B, lapack_int const* ldb,
17883  double* work, lapack_int const* lwork,
17884  lapack_int* info
17885 #ifdef LAPACK_FORTRAN_STRLEN_END
17886  , size_t
17887 #endif
17888 );
17889 #ifdef LAPACK_FORTRAN_STRLEN_END
17890  #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__, 1)
17891 #else
17892  #define LAPACK_dsysv_aa(...) LAPACK_dsysv_aa_base(__VA_ARGS__)
17893 #endif
17894 
17895 #define LAPACK_ssysv_aa_base LAPACK_GLOBAL(ssysv_aa,SSYSV_AA)
17896 void LAPACK_ssysv_aa_base(
17897  char const* uplo,
17898  lapack_int const* n, lapack_int const* nrhs,
17899  float* A, lapack_int const* lda, lapack_int* ipiv,
17900  float* B, lapack_int const* ldb,
17901  float* work, lapack_int const* lwork,
17902  lapack_int* info
17903 #ifdef LAPACK_FORTRAN_STRLEN_END
17904  , size_t
17905 #endif
17906 );
17907 #ifdef LAPACK_FORTRAN_STRLEN_END
17908  #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__, 1)
17909 #else
17910  #define LAPACK_ssysv_aa(...) LAPACK_ssysv_aa_base(__VA_ARGS__)
17911 #endif
17912 
17913 #define LAPACK_zsysv_aa_base LAPACK_GLOBAL(zsysv_aa,ZSYSV_AA)
17914 void LAPACK_zsysv_aa_base(
17915  char const* uplo,
17916  lapack_int const* n, lapack_int const* nrhs,
17917  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
17918  lapack_complex_double* B, lapack_int const* ldb,
17919  lapack_complex_double* work, lapack_int const* lwork,
17920  lapack_int* info
17921 #ifdef LAPACK_FORTRAN_STRLEN_END
17922  , size_t
17923 #endif
17924 );
17925 #ifdef LAPACK_FORTRAN_STRLEN_END
17926  #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__, 1)
17927 #else
17928  #define LAPACK_zsysv_aa(...) LAPACK_zsysv_aa_base(__VA_ARGS__)
17929 #endif
17930 
17931 #define LAPACK_csysv_aa_2stage_base LAPACK_GLOBAL(csysv_aa_2stage,CSYSV_AA_2STAGE)
17932 void LAPACK_csysv_aa_2stage_base(
17933  char const* uplo,
17934  lapack_int const* n, lapack_int const* nrhs,
17935  lapack_complex_float* A, lapack_int const* lda,
17936  lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17937  lapack_complex_float* B, lapack_int const* ldb,
17938  lapack_complex_float* work, lapack_int const* lwork,
17939  lapack_int* info
17940 #ifdef LAPACK_FORTRAN_STRLEN_END
17941  , size_t
17942 #endif
17943 );
17944 #ifdef LAPACK_FORTRAN_STRLEN_END
17945  #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__, 1)
17946 #else
17947  #define LAPACK_csysv_aa_2stage(...) LAPACK_csysv_aa_2stage_base(__VA_ARGS__)
17948 #endif
17949 
17950 #define LAPACK_dsysv_aa_2stage_base LAPACK_GLOBAL(dsysv_aa_2stage,DSYSV_AA_2STAGE)
17951 void LAPACK_dsysv_aa_2stage_base(
17952  char const* uplo,
17953  lapack_int const* n, lapack_int const* nrhs,
17954  double* A, lapack_int const* lda,
17955  double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17956  double* B, lapack_int const* ldb,
17957  double* work, lapack_int const* lwork,
17958  lapack_int* info
17959 #ifdef LAPACK_FORTRAN_STRLEN_END
17960  , size_t
17961 #endif
17962 );
17963 #ifdef LAPACK_FORTRAN_STRLEN_END
17964  #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__, 1)
17965 #else
17966  #define LAPACK_dsysv_aa_2stage(...) LAPACK_dsysv_aa_2stage_base(__VA_ARGS__)
17967 #endif
17968 
17969 #define LAPACK_ssysv_aa_2stage_base LAPACK_GLOBAL(ssysv_aa_2stage,SSYSV_AA_2STAGE)
17970 void LAPACK_ssysv_aa_2stage_base(
17971  char const* uplo,
17972  lapack_int const* n, lapack_int const* nrhs,
17973  float* A, lapack_int const* lda,
17974  float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17975  float* B, lapack_int const* ldb,
17976  float* work, lapack_int const* lwork,
17977  lapack_int* info
17978 #ifdef LAPACK_FORTRAN_STRLEN_END
17979  , size_t
17980 #endif
17981 );
17982 #ifdef LAPACK_FORTRAN_STRLEN_END
17983  #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__, 1)
17984 #else
17985  #define LAPACK_ssysv_aa_2stage(...) LAPACK_ssysv_aa_2stage_base(__VA_ARGS__)
17986 #endif
17987 
17988 #define LAPACK_zsysv_aa_2stage_base LAPACK_GLOBAL(zsysv_aa_2stage,ZSYSV_AA_2STAGE)
17989 void LAPACK_zsysv_aa_2stage_base(
17990  char const* uplo,
17991  lapack_int const* n, lapack_int const* nrhs,
17992  lapack_complex_double* A, lapack_int const* lda,
17993  lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
17994  lapack_complex_double* B, lapack_int const* ldb,
17995  lapack_complex_double* work, lapack_int const* lwork,
17996  lapack_int* info
17997 #ifdef LAPACK_FORTRAN_STRLEN_END
17998  , size_t
17999 #endif
18000 );
18001 #ifdef LAPACK_FORTRAN_STRLEN_END
18002  #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__, 1)
18003 #else
18004  #define LAPACK_zsysv_aa_2stage(...) LAPACK_zsysv_aa_2stage_base(__VA_ARGS__)
18005 #endif
18006 
18007 #define LAPACK_csysv_rk_base LAPACK_GLOBAL(csysv_rk,CSYSV_RK)
18008 void LAPACK_csysv_rk_base(
18009  char const* uplo,
18010  lapack_int const* n, lapack_int const* nrhs,
18011  lapack_complex_float* A, lapack_int const* lda,
18012  lapack_complex_float* E, lapack_int* ipiv,
18013  lapack_complex_float* B, lapack_int const* ldb,
18014  lapack_complex_float* work, lapack_int const* lwork,
18015  lapack_int* info
18016 #ifdef LAPACK_FORTRAN_STRLEN_END
18017  , size_t
18018 #endif
18019 );
18020 #ifdef LAPACK_FORTRAN_STRLEN_END
18021  #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__, 1)
18022 #else
18023  #define LAPACK_csysv_rk(...) LAPACK_csysv_rk_base(__VA_ARGS__)
18024 #endif
18025 
18026 #define LAPACK_dsysv_rk_base LAPACK_GLOBAL(dsysv_rk,DSYSV_RK)
18027 void LAPACK_dsysv_rk_base(
18028  char const* uplo,
18029  lapack_int const* n, lapack_int const* nrhs,
18030  double* A, lapack_int const* lda,
18031  double* E, lapack_int* ipiv,
18032  double* B, lapack_int const* ldb,
18033  double* work, lapack_int const* lwork,
18034  lapack_int* info
18035 #ifdef LAPACK_FORTRAN_STRLEN_END
18036  , size_t
18037 #endif
18038 );
18039 #ifdef LAPACK_FORTRAN_STRLEN_END
18040  #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__, 1)
18041 #else
18042  #define LAPACK_dsysv_rk(...) LAPACK_dsysv_rk_base(__VA_ARGS__)
18043 #endif
18044 
18045 #define LAPACK_ssysv_rk_base LAPACK_GLOBAL(ssysv_rk,SSYSV_RK)
18046 void LAPACK_ssysv_rk_base(
18047  char const* uplo,
18048  lapack_int const* n, lapack_int const* nrhs,
18049  float* A, lapack_int const* lda,
18050  float* E, lapack_int* ipiv,
18051  float* B, lapack_int const* ldb,
18052  float* work, lapack_int const* lwork,
18053  lapack_int* info
18054 #ifdef LAPACK_FORTRAN_STRLEN_END
18055  , size_t
18056 #endif
18057 );
18058 #ifdef LAPACK_FORTRAN_STRLEN_END
18059  #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__, 1)
18060 #else
18061  #define LAPACK_ssysv_rk(...) LAPACK_ssysv_rk_base(__VA_ARGS__)
18062 #endif
18063 
18064 #define LAPACK_zsysv_rk_base LAPACK_GLOBAL(zsysv_rk,ZSYSV_RK)
18065 void LAPACK_zsysv_rk_base(
18066  char const* uplo,
18067  lapack_int const* n, lapack_int const* nrhs,
18068  lapack_complex_double* A, lapack_int const* lda,
18069  lapack_complex_double* E, lapack_int* ipiv,
18070  lapack_complex_double* B, lapack_int const* ldb,
18071  lapack_complex_double* work, lapack_int const* lwork,
18072  lapack_int* info
18073 #ifdef LAPACK_FORTRAN_STRLEN_END
18074  , size_t
18075 #endif
18076 );
18077 #ifdef LAPACK_FORTRAN_STRLEN_END
18078  #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__, 1)
18079 #else
18080  #define LAPACK_zsysv_rk(...) LAPACK_zsysv_rk_base(__VA_ARGS__)
18081 #endif
18082 
18083 #define LAPACK_csysv_rook_base LAPACK_GLOBAL(csysv_rook,CSYSV_ROOK)
18084 void LAPACK_csysv_rook_base(
18085  char const* uplo,
18086  lapack_int const* n, lapack_int const* nrhs,
18087  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18088  lapack_complex_float* B, lapack_int const* ldb,
18089  lapack_complex_float* work, lapack_int const* lwork,
18090  lapack_int* info
18091 #ifdef LAPACK_FORTRAN_STRLEN_END
18092  , size_t
18093 #endif
18094 );
18095 #ifdef LAPACK_FORTRAN_STRLEN_END
18096  #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__, 1)
18097 #else
18098  #define LAPACK_csysv_rook(...) LAPACK_csysv_rook_base(__VA_ARGS__)
18099 #endif
18100 
18101 #define LAPACK_dsysv_rook_base LAPACK_GLOBAL(dsysv_rook,DSYSV_ROOK)
18102 void LAPACK_dsysv_rook_base(
18103  char const* uplo,
18104  lapack_int const* n, lapack_int const* nrhs,
18105  double* A, lapack_int const* lda, lapack_int* ipiv,
18106  double* B, lapack_int const* ldb,
18107  double* work, lapack_int const* lwork,
18108  lapack_int* info
18109 #ifdef LAPACK_FORTRAN_STRLEN_END
18110  , size_t
18111 #endif
18112 );
18113 #ifdef LAPACK_FORTRAN_STRLEN_END
18114  #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__, 1)
18115 #else
18116  #define LAPACK_dsysv_rook(...) LAPACK_dsysv_rook_base(__VA_ARGS__)
18117 #endif
18118 
18119 #define LAPACK_ssysv_rook_base LAPACK_GLOBAL(ssysv_rook,SSYSV_ROOK)
18120 void LAPACK_ssysv_rook_base(
18121  char const* uplo,
18122  lapack_int const* n, lapack_int const* nrhs,
18123  float* A, lapack_int const* lda, lapack_int* ipiv,
18124  float* B, lapack_int const* ldb,
18125  float* work, lapack_int const* lwork,
18126  lapack_int* info
18127 #ifdef LAPACK_FORTRAN_STRLEN_END
18128  , size_t
18129 #endif
18130 );
18131 #ifdef LAPACK_FORTRAN_STRLEN_END
18132  #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__, 1)
18133 #else
18134  #define LAPACK_ssysv_rook(...) LAPACK_ssysv_rook_base(__VA_ARGS__)
18135 #endif
18136 
18137 #define LAPACK_zsysv_rook_base LAPACK_GLOBAL(zsysv_rook,ZSYSV_ROOK)
18138 void LAPACK_zsysv_rook_base(
18139  char const* uplo,
18140  lapack_int const* n, lapack_int const* nrhs,
18141  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18142  lapack_complex_double* B, lapack_int const* ldb,
18143  lapack_complex_double* work, lapack_int const* lwork,
18144  lapack_int* info
18145 #ifdef LAPACK_FORTRAN_STRLEN_END
18146  , size_t
18147 #endif
18148 );
18149 #ifdef LAPACK_FORTRAN_STRLEN_END
18150  #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__, 1)
18151 #else
18152  #define LAPACK_zsysv_rook(...) LAPACK_zsysv_rook_base(__VA_ARGS__)
18153 #endif
18154 
18155 #define LAPACK_csysvx_base LAPACK_GLOBAL(csysvx,CSYSVX)
18156 void LAPACK_csysvx_base(
18157  char const* fact, char const* uplo,
18158  lapack_int const* n, lapack_int const* nrhs,
18159  lapack_complex_float const* A, lapack_int const* lda,
18160  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv,
18161  lapack_complex_float const* B, lapack_int const* ldb,
18162  lapack_complex_float* X, lapack_int const* ldx,
18163  float* rcond,
18164  float* ferr,
18165  float* berr,
18166  lapack_complex_float* work, lapack_int const* lwork,
18167  float* rwork,
18168  lapack_int* info
18169 #ifdef LAPACK_FORTRAN_STRLEN_END
18170  , size_t, size_t
18171 #endif
18172 );
18173 #ifdef LAPACK_FORTRAN_STRLEN_END
18174  #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__, 1, 1)
18175 #else
18176  #define LAPACK_csysvx(...) LAPACK_csysvx_base(__VA_ARGS__)
18177 #endif
18178 
18179 #define LAPACK_dsysvx_base LAPACK_GLOBAL(dsysvx,DSYSVX)
18180 void LAPACK_dsysvx_base(
18181  char const* fact, char const* uplo,
18182  lapack_int const* n, lapack_int const* nrhs,
18183  double const* A, lapack_int const* lda,
18184  double* AF, lapack_int const* ldaf, lapack_int* ipiv,
18185  double const* B, lapack_int const* ldb,
18186  double* X, lapack_int const* ldx,
18187  double* rcond,
18188  double* ferr,
18189  double* berr,
18190  double* work, lapack_int const* lwork,
18191  lapack_int* iwork,
18192  lapack_int* info
18193 #ifdef LAPACK_FORTRAN_STRLEN_END
18194  , size_t, size_t
18195 #endif
18196 );
18197 #ifdef LAPACK_FORTRAN_STRLEN_END
18198  #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__, 1, 1)
18199 #else
18200  #define LAPACK_dsysvx(...) LAPACK_dsysvx_base(__VA_ARGS__)
18201 #endif
18202 
18203 #define LAPACK_ssysvx_base LAPACK_GLOBAL(ssysvx,SSYSVX)
18204 void LAPACK_ssysvx_base(
18205  char const* fact, char const* uplo,
18206  lapack_int const* n, lapack_int const* nrhs,
18207  float const* A, lapack_int const* lda,
18208  float* AF, lapack_int const* ldaf, lapack_int* ipiv,
18209  float const* B, lapack_int const* ldb,
18210  float* X, lapack_int const* ldx,
18211  float* rcond,
18212  float* ferr,
18213  float* berr,
18214  float* work, lapack_int const* lwork,
18215  lapack_int* iwork,
18216  lapack_int* info
18217 #ifdef LAPACK_FORTRAN_STRLEN_END
18218  , size_t, size_t
18219 #endif
18220 );
18221 #ifdef LAPACK_FORTRAN_STRLEN_END
18222  #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__, 1, 1)
18223 #else
18224  #define LAPACK_ssysvx(...) LAPACK_ssysvx_base(__VA_ARGS__)
18225 #endif
18226 
18227 #define LAPACK_zsysvx_base LAPACK_GLOBAL(zsysvx,ZSYSVX)
18228 void LAPACK_zsysvx_base(
18229  char const* fact, char const* uplo,
18230  lapack_int const* n, lapack_int const* nrhs,
18231  lapack_complex_double const* A, lapack_int const* lda,
18232  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv,
18233  lapack_complex_double const* B, lapack_int const* ldb,
18234  lapack_complex_double* X, lapack_int const* ldx,
18235  double* rcond,
18236  double* ferr,
18237  double* berr,
18238  lapack_complex_double* work, lapack_int const* lwork,
18239  double* rwork,
18240  lapack_int* info
18241 #ifdef LAPACK_FORTRAN_STRLEN_END
18242  , size_t, size_t
18243 #endif
18244 );
18245 #ifdef LAPACK_FORTRAN_STRLEN_END
18246  #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__, 1, 1)
18247 #else
18248  #define LAPACK_zsysvx(...) LAPACK_zsysvx_base(__VA_ARGS__)
18249 #endif
18250 
18251 #define LAPACK_csysvxx_base LAPACK_GLOBAL(csysvxx,CSYSVXX)
18252 void LAPACK_csysvxx_base(
18253  char const* fact, char const* uplo,
18254  lapack_int const* n, lapack_int const* nrhs,
18255  lapack_complex_float* A, lapack_int const* lda,
18256  lapack_complex_float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18257  float* S,
18258  lapack_complex_float* B,
18259  lapack_int const* ldb,
18260  lapack_complex_float* X, lapack_int const* ldx,
18261  float* rcond,
18262  float* rpvgrw,
18263  float* berr, lapack_int const* n_err_bnds,
18264  float* err_bnds_norm,
18265  float* err_bnds_comp, lapack_int const* nparams,
18266  float* params,
18267  lapack_complex_float* work,
18268  float* rwork,
18269  lapack_int* info
18270 #ifdef LAPACK_FORTRAN_STRLEN_END
18271  , size_t, size_t, size_t
18272 #endif
18273 );
18274 #ifdef LAPACK_FORTRAN_STRLEN_END
18275  #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__, 1, 1, 1)
18276 #else
18277  #define LAPACK_csysvxx(...) LAPACK_csysvxx_base(__VA_ARGS__)
18278 #endif
18279 
18280 #define LAPACK_dsysvxx_base LAPACK_GLOBAL(dsysvxx,DSYSVXX)
18281 void LAPACK_dsysvxx_base(
18282  char const* fact, char const* uplo,
18283  lapack_int const* n, lapack_int const* nrhs,
18284  double* A, lapack_int const* lda,
18285  double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18286  double* S,
18287  double* B,
18288  lapack_int const* ldb,
18289  double* X, lapack_int const* ldx,
18290  double* rcond,
18291  double* rpvgrw,
18292  double* berr, lapack_int const* n_err_bnds,
18293  double* err_bnds_norm,
18294  double* err_bnds_comp, lapack_int const* nparams,
18295  double* params,
18296  double* work,
18297  lapack_int* iwork,
18298  lapack_int* info
18299 #ifdef LAPACK_FORTRAN_STRLEN_END
18300  , size_t, size_t, size_t
18301 #endif
18302 );
18303 #ifdef LAPACK_FORTRAN_STRLEN_END
18304  #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__, 1, 1, 1)
18305 #else
18306  #define LAPACK_dsysvxx(...) LAPACK_dsysvxx_base(__VA_ARGS__)
18307 #endif
18308 
18309 #define LAPACK_ssysvxx_base LAPACK_GLOBAL(ssysvxx,SSYSVXX)
18310 void LAPACK_ssysvxx_base(
18311  char const* fact, char const* uplo,
18312  lapack_int const* n, lapack_int const* nrhs,
18313  float* A, lapack_int const* lda,
18314  float* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18315  float* S,
18316  float* B,
18317  lapack_int const* ldb,
18318  float* X, lapack_int const* ldx,
18319  float* rcond,
18320  float* rpvgrw,
18321  float* berr, lapack_int const* n_err_bnds,
18322  float* err_bnds_norm,
18323  float* err_bnds_comp, lapack_int const* nparams,
18324  float* params,
18325  float* work,
18326  lapack_int* iwork,
18327  lapack_int* info
18328 #ifdef LAPACK_FORTRAN_STRLEN_END
18329  , size_t, size_t, size_t
18330 #endif
18331 );
18332 #ifdef LAPACK_FORTRAN_STRLEN_END
18333  #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__, 1, 1, 1)
18334 #else
18335  #define LAPACK_ssysvxx(...) LAPACK_ssysvxx_base(__VA_ARGS__)
18336 #endif
18337 
18338 #define LAPACK_zsysvxx_base LAPACK_GLOBAL(zsysvxx,ZSYSVXX)
18339 void LAPACK_zsysvxx_base(
18340  char const* fact, char const* uplo,
18341  lapack_int const* n, lapack_int const* nrhs,
18342  lapack_complex_double* A, lapack_int const* lda,
18343  lapack_complex_double* AF, lapack_int const* ldaf, lapack_int* ipiv, char* equed,
18344  double* S,
18345  lapack_complex_double* B,
18346  lapack_int const* ldb,
18347  lapack_complex_double* X, lapack_int const* ldx,
18348  double* rcond,
18349  double* rpvgrw,
18350  double* berr, lapack_int const* n_err_bnds,
18351  double* err_bnds_norm,
18352  double* err_bnds_comp, lapack_int const* nparams,
18353  double* params,
18354  lapack_complex_double* work,
18355  double* rwork,
18356  lapack_int* info
18357 #ifdef LAPACK_FORTRAN_STRLEN_END
18358  , size_t, size_t, size_t
18359 #endif
18360 );
18361 #ifdef LAPACK_FORTRAN_STRLEN_END
18362  #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__, 1, 1, 1)
18363 #else
18364  #define LAPACK_zsysvxx(...) LAPACK_zsysvxx_base(__VA_ARGS__)
18365 #endif
18366 
18367 #define LAPACK_csyswapr_base LAPACK_GLOBAL(csyswapr,CSYSWAPR)
18368 void LAPACK_csyswapr_base(
18369  char const* uplo,
18370  lapack_int const* n,
18371  lapack_complex_float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18372 #ifdef LAPACK_FORTRAN_STRLEN_END
18373  , size_t
18374 #endif
18375 );
18376 #ifdef LAPACK_FORTRAN_STRLEN_END
18377  #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__, 1)
18378 #else
18379  #define LAPACK_csyswapr(...) LAPACK_csyswapr_base(__VA_ARGS__)
18380 #endif
18381 
18382 #define LAPACK_dsyswapr_base LAPACK_GLOBAL(dsyswapr,DSYSWAPR)
18383 void LAPACK_dsyswapr_base(
18384  char const* uplo,
18385  lapack_int const* n,
18386  double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18387 #ifdef LAPACK_FORTRAN_STRLEN_END
18388  , size_t
18389 #endif
18390 );
18391 #ifdef LAPACK_FORTRAN_STRLEN_END
18392  #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__, 1)
18393 #else
18394  #define LAPACK_dsyswapr(...) LAPACK_dsyswapr_base(__VA_ARGS__)
18395 #endif
18396 
18397 #define LAPACK_ssyswapr_base LAPACK_GLOBAL(ssyswapr,SSYSWAPR)
18398 void LAPACK_ssyswapr_base(
18399  char const* uplo,
18400  lapack_int const* n,
18401  float* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18402 #ifdef LAPACK_FORTRAN_STRLEN_END
18403  , size_t
18404 #endif
18405 );
18406 #ifdef LAPACK_FORTRAN_STRLEN_END
18407  #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__, 1)
18408 #else
18409  #define LAPACK_ssyswapr(...) LAPACK_ssyswapr_base(__VA_ARGS__)
18410 #endif
18411 
18412 #define LAPACK_zsyswapr_base LAPACK_GLOBAL(zsyswapr,ZSYSWAPR)
18413 void LAPACK_zsyswapr_base(
18414  char const* uplo,
18415  lapack_int const* n,
18416  lapack_complex_double* A, lapack_int const* lda, lapack_int const* i1, lapack_int const* i2
18417 #ifdef LAPACK_FORTRAN_STRLEN_END
18418  , size_t
18419 #endif
18420 );
18421 #ifdef LAPACK_FORTRAN_STRLEN_END
18422  #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__, 1)
18423 #else
18424  #define LAPACK_zsyswapr(...) LAPACK_zsyswapr_base(__VA_ARGS__)
18425 #endif
18426 
18427 #define LAPACK_dsytrd_base LAPACK_GLOBAL(dsytrd,DSYTRD)
18428 void LAPACK_dsytrd_base(
18429  char const* uplo,
18430  lapack_int const* n,
18431  double* A, lapack_int const* lda,
18432  double* D,
18433  double* E,
18434  double* tau,
18435  double* work, lapack_int const* lwork,
18436  lapack_int* info
18437 #ifdef LAPACK_FORTRAN_STRLEN_END
18438  , size_t
18439 #endif
18440 );
18441 #ifdef LAPACK_FORTRAN_STRLEN_END
18442  #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__, 1)
18443 #else
18444  #define LAPACK_dsytrd(...) LAPACK_dsytrd_base(__VA_ARGS__)
18445 #endif
18446 
18447 #define LAPACK_ssytrd_base LAPACK_GLOBAL(ssytrd,SSYTRD)
18448 void LAPACK_ssytrd_base(
18449  char const* uplo,
18450  lapack_int const* n,
18451  float* A, lapack_int const* lda,
18452  float* D,
18453  float* E,
18454  float* tau,
18455  float* work, lapack_int const* lwork,
18456  lapack_int* info
18457 #ifdef LAPACK_FORTRAN_STRLEN_END
18458  , size_t
18459 #endif
18460 );
18461 #ifdef LAPACK_FORTRAN_STRLEN_END
18462  #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__, 1)
18463 #else
18464  #define LAPACK_ssytrd(...) LAPACK_ssytrd_base(__VA_ARGS__)
18465 #endif
18466 
18467 #define LAPACK_dsytrd_2stage_base LAPACK_GLOBAL(dsytrd_2stage,DSYTRD_2STAGE)
18468 void LAPACK_dsytrd_2stage_base(
18469  char const* vect, char const* uplo,
18470  lapack_int const* n,
18471  double* A, lapack_int const* lda,
18472  double* D,
18473  double* E,
18474  double* tau,
18475  double* HOUS2, lapack_int const* lhous2,
18476  double* work, lapack_int const* lwork,
18477  lapack_int* info
18478 #ifdef LAPACK_FORTRAN_STRLEN_END
18479  , size_t, size_t
18480 #endif
18481 );
18482 #ifdef LAPACK_FORTRAN_STRLEN_END
18483  #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__, 1, 1)
18484 #else
18485  #define LAPACK_dsytrd_2stage(...) LAPACK_dsytrd_2stage_base(__VA_ARGS__)
18486 #endif
18487 
18488 #define LAPACK_ssytrd_2stage_base LAPACK_GLOBAL(ssytrd_2stage,SSYTRD_2STAGE)
18489 void LAPACK_ssytrd_2stage_base(
18490  char const* vect, char const* uplo,
18491  lapack_int const* n,
18492  float* A, lapack_int const* lda,
18493  float* D,
18494  float* E,
18495  float* tau,
18496  float* HOUS2, lapack_int const* lhous2,
18497  float* work, lapack_int const* lwork,
18498  lapack_int* info
18499 #ifdef LAPACK_FORTRAN_STRLEN_END
18500  , size_t, size_t
18501 #endif
18502 );
18503 #ifdef LAPACK_FORTRAN_STRLEN_END
18504  #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__, 1, 1)
18505 #else
18506  #define LAPACK_ssytrd_2stage(...) LAPACK_ssytrd_2stage_base(__VA_ARGS__)
18507 #endif
18508 
18509 #define LAPACK_csytrf_base LAPACK_GLOBAL(csytrf,CSYTRF)
18510 void LAPACK_csytrf_base(
18511  char const* uplo,
18512  lapack_int const* n,
18513  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18514  lapack_complex_float* work, lapack_int const* lwork,
18515  lapack_int* info
18516 #ifdef LAPACK_FORTRAN_STRLEN_END
18517  , size_t
18518 #endif
18519 );
18520 #ifdef LAPACK_FORTRAN_STRLEN_END
18521  #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__, 1)
18522 #else
18523  #define LAPACK_csytrf(...) LAPACK_csytrf_base(__VA_ARGS__)
18524 #endif
18525 
18526 #define LAPACK_dsytrf_base LAPACK_GLOBAL(dsytrf,DSYTRF)
18527 void LAPACK_dsytrf_base(
18528  char const* uplo,
18529  lapack_int const* n,
18530  double* A, lapack_int const* lda, lapack_int* ipiv,
18531  double* work, lapack_int const* lwork,
18532  lapack_int* info
18533 #ifdef LAPACK_FORTRAN_STRLEN_END
18534  , size_t
18535 #endif
18536 );
18537 #ifdef LAPACK_FORTRAN_STRLEN_END
18538  #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__, 1)
18539 #else
18540  #define LAPACK_dsytrf(...) LAPACK_dsytrf_base(__VA_ARGS__)
18541 #endif
18542 
18543 #define LAPACK_ssytrf_base LAPACK_GLOBAL(ssytrf,SSYTRF)
18544 void LAPACK_ssytrf_base(
18545  char const* uplo,
18546  lapack_int const* n,
18547  float* A, lapack_int const* lda, lapack_int* ipiv,
18548  float* work, lapack_int const* lwork,
18549  lapack_int* info
18550 #ifdef LAPACK_FORTRAN_STRLEN_END
18551  , size_t
18552 #endif
18553 );
18554 #ifdef LAPACK_FORTRAN_STRLEN_END
18555  #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__, 1)
18556 #else
18557  #define LAPACK_ssytrf(...) LAPACK_ssytrf_base(__VA_ARGS__)
18558 #endif
18559 
18560 #define LAPACK_zsytrf_base LAPACK_GLOBAL(zsytrf,ZSYTRF)
18561 void LAPACK_zsytrf_base(
18562  char const* uplo,
18563  lapack_int const* n,
18564  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18565  lapack_complex_double* work, lapack_int const* lwork,
18566  lapack_int* info
18567 #ifdef LAPACK_FORTRAN_STRLEN_END
18568  , size_t
18569 #endif
18570 );
18571 #ifdef LAPACK_FORTRAN_STRLEN_END
18572  #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__, 1)
18573 #else
18574  #define LAPACK_zsytrf(...) LAPACK_zsytrf_base(__VA_ARGS__)
18575 #endif
18576 
18577 #define LAPACK_csytrf_aa_base LAPACK_GLOBAL(csytrf_aa,CSYTRF_AA)
18578 void LAPACK_csytrf_aa_base(
18579  char const* uplo,
18580  lapack_int const* n,
18581  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18582  lapack_complex_float* work, lapack_int const* lwork,
18583  lapack_int* info
18584 #ifdef LAPACK_FORTRAN_STRLEN_END
18585  , size_t
18586 #endif
18587 );
18588 #ifdef LAPACK_FORTRAN_STRLEN_END
18589  #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__, 1)
18590 #else
18591  #define LAPACK_csytrf_aa(...) LAPACK_csytrf_aa_base(__VA_ARGS__)
18592 #endif
18593 
18594 #define LAPACK_dsytrf_aa_base LAPACK_GLOBAL(dsytrf_aa,DSYTRF_AA)
18595 void LAPACK_dsytrf_aa_base(
18596  char const* uplo,
18597  lapack_int const* n,
18598  double* A, lapack_int const* lda, lapack_int* ipiv,
18599  double* work, lapack_int const* lwork,
18600  lapack_int* info
18601 #ifdef LAPACK_FORTRAN_STRLEN_END
18602  , size_t
18603 #endif
18604 );
18605 #ifdef LAPACK_FORTRAN_STRLEN_END
18606  #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__, 1)
18607 #else
18608  #define LAPACK_dsytrf_aa(...) LAPACK_dsytrf_aa_base(__VA_ARGS__)
18609 #endif
18610 
18611 #define LAPACK_ssytrf_aa_base LAPACK_GLOBAL(ssytrf_aa,SSYTRF_AA)
18612 void LAPACK_ssytrf_aa_base(
18613  char const* uplo,
18614  lapack_int const* n,
18615  float* A, lapack_int const* lda, lapack_int* ipiv,
18616  float* work, lapack_int const* lwork,
18617  lapack_int* info
18618 #ifdef LAPACK_FORTRAN_STRLEN_END
18619  , size_t
18620 #endif
18621 );
18622 #ifdef LAPACK_FORTRAN_STRLEN_END
18623  #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__, 1)
18624 #else
18625  #define LAPACK_ssytrf_aa(...) LAPACK_ssytrf_aa_base(__VA_ARGS__)
18626 #endif
18627 
18628 #define LAPACK_zsytrf_aa_base LAPACK_GLOBAL(zsytrf_aa,ZSYTRF_AA)
18629 void LAPACK_zsytrf_aa_base(
18630  char const* uplo,
18631  lapack_int const* n,
18632  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18633  lapack_complex_double* work, lapack_int const* lwork,
18634  lapack_int* info
18635 #ifdef LAPACK_FORTRAN_STRLEN_END
18636  , size_t
18637 #endif
18638 );
18639 #ifdef LAPACK_FORTRAN_STRLEN_END
18640  #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__, 1)
18641 #else
18642  #define LAPACK_zsytrf_aa(...) LAPACK_zsytrf_aa_base(__VA_ARGS__)
18643 #endif
18644 
18645 #define LAPACK_csytrf_aa_2stage_base LAPACK_GLOBAL(csytrf_aa_2stage,CSYTRF_AA_2STAGE)
18646 void LAPACK_csytrf_aa_2stage_base(
18647  char const* uplo,
18648  lapack_int const* n,
18649  lapack_complex_float* A, lapack_int const* lda,
18650  lapack_complex_float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18651  lapack_complex_float* work, lapack_int const* lwork,
18652  lapack_int* info
18653 #ifdef LAPACK_FORTRAN_STRLEN_END
18654  , size_t
18655 #endif
18656 );
18657 #ifdef LAPACK_FORTRAN_STRLEN_END
18658  #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__, 1)
18659 #else
18660  #define LAPACK_csytrf_aa_2stage(...) LAPACK_csytrf_aa_2stage_base(__VA_ARGS__)
18661 #endif
18662 
18663 #define LAPACK_dsytrf_aa_2stage_base LAPACK_GLOBAL(dsytrf_aa_2stage,DSYTRF_AA_2STAGE)
18664 void LAPACK_dsytrf_aa_2stage_base(
18665  char const* uplo,
18666  lapack_int const* n,
18667  double* A, lapack_int const* lda,
18668  double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18669  double* work, lapack_int const* lwork,
18670  lapack_int* info
18671 #ifdef LAPACK_FORTRAN_STRLEN_END
18672  , size_t
18673 #endif
18674 );
18675 #ifdef LAPACK_FORTRAN_STRLEN_END
18676  #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__, 1)
18677 #else
18678  #define LAPACK_dsytrf_aa_2stage(...) LAPACK_dsytrf_aa_2stage_base(__VA_ARGS__)
18679 #endif
18680 
18681 #define LAPACK_ssytrf_aa_2stage_base LAPACK_GLOBAL(ssytrf_aa_2stage,SSYTRF_AA_2STAGE)
18682 void LAPACK_ssytrf_aa_2stage_base(
18683  char const* uplo,
18684  lapack_int const* n,
18685  float* A, lapack_int const* lda,
18686  float* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18687  float* work, lapack_int const* lwork,
18688  lapack_int* info
18689 #ifdef LAPACK_FORTRAN_STRLEN_END
18690  , size_t
18691 #endif
18692 );
18693 #ifdef LAPACK_FORTRAN_STRLEN_END
18694  #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__, 1)
18695 #else
18696  #define LAPACK_ssytrf_aa_2stage(...) LAPACK_ssytrf_aa_2stage_base(__VA_ARGS__)
18697 #endif
18698 
18699 #define LAPACK_zsytrf_aa_2stage_base LAPACK_GLOBAL(zsytrf_aa_2stage,ZSYTRF_AA_2STAGE)
18700 void LAPACK_zsytrf_aa_2stage_base(
18701  char const* uplo,
18702  lapack_int const* n,
18703  lapack_complex_double* A, lapack_int const* lda,
18704  lapack_complex_double* TB, lapack_int const* ltb, lapack_int* ipiv, lapack_int* ipiv2,
18705  lapack_complex_double* work, lapack_int const* lwork,
18706  lapack_int* info
18707 #ifdef LAPACK_FORTRAN_STRLEN_END
18708  , size_t
18709 #endif
18710 );
18711 #ifdef LAPACK_FORTRAN_STRLEN_END
18712  #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__, 1)
18713 #else
18714  #define LAPACK_zsytrf_aa_2stage(...) LAPACK_zsytrf_aa_2stage_base(__VA_ARGS__)
18715 #endif
18716 
18717 #define LAPACK_csytrf_rk_base LAPACK_GLOBAL(csytrf_rk,CSYTRF_RK)
18718 void LAPACK_csytrf_rk_base(
18719  char const* uplo,
18720  lapack_int const* n,
18721  lapack_complex_float* A, lapack_int const* lda,
18722  lapack_complex_float* E, lapack_int* ipiv,
18723  lapack_complex_float* work, lapack_int const* lwork,
18724  lapack_int* info
18725 #ifdef LAPACK_FORTRAN_STRLEN_END
18726  , size_t
18727 #endif
18728 );
18729 #ifdef LAPACK_FORTRAN_STRLEN_END
18730  #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__, 1)
18731 #else
18732  #define LAPACK_csytrf_rk(...) LAPACK_csytrf_rk_base(__VA_ARGS__)
18733 #endif
18734 
18735 #define LAPACK_dsytrf_rk_base LAPACK_GLOBAL(dsytrf_rk,DSYTRF_RK)
18736 void LAPACK_dsytrf_rk_base(
18737  char const* uplo,
18738  lapack_int const* n,
18739  double* A, lapack_int const* lda,
18740  double* E, lapack_int* ipiv,
18741  double* work, lapack_int const* lwork,
18742  lapack_int* info
18743 #ifdef LAPACK_FORTRAN_STRLEN_END
18744  , size_t
18745 #endif
18746 );
18747 #ifdef LAPACK_FORTRAN_STRLEN_END
18748  #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__, 1)
18749 #else
18750  #define LAPACK_dsytrf_rk(...) LAPACK_dsytrf_rk_base(__VA_ARGS__)
18751 #endif
18752 
18753 #define LAPACK_ssytrf_rk_base LAPACK_GLOBAL(ssytrf_rk,SSYTRF_RK)
18754 void LAPACK_ssytrf_rk_base(
18755  char const* uplo,
18756  lapack_int const* n,
18757  float* A, lapack_int const* lda,
18758  float* E, lapack_int* ipiv,
18759  float* work, lapack_int const* lwork,
18760  lapack_int* info
18761 #ifdef LAPACK_FORTRAN_STRLEN_END
18762  , size_t
18763 #endif
18764 );
18765 #ifdef LAPACK_FORTRAN_STRLEN_END
18766  #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__, 1)
18767 #else
18768  #define LAPACK_ssytrf_rk(...) LAPACK_ssytrf_rk_base(__VA_ARGS__)
18769 #endif
18770 
18771 #define LAPACK_zsytrf_rk_base LAPACK_GLOBAL(zsytrf_rk,ZSYTRF_RK)
18772 void LAPACK_zsytrf_rk_base(
18773  char const* uplo,
18774  lapack_int const* n,
18775  lapack_complex_double* A, lapack_int const* lda,
18776  lapack_complex_double* E, lapack_int* ipiv,
18777  lapack_complex_double* work, lapack_int const* lwork,
18778  lapack_int* info
18779 #ifdef LAPACK_FORTRAN_STRLEN_END
18780  , size_t
18781 #endif
18782 );
18783 #ifdef LAPACK_FORTRAN_STRLEN_END
18784  #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__, 1)
18785 #else
18786  #define LAPACK_zsytrf_rk(...) LAPACK_zsytrf_rk_base(__VA_ARGS__)
18787 #endif
18788 
18789 #define LAPACK_csytrf_rook_base LAPACK_GLOBAL(csytrf_rook,CSYTRF_ROOK)
18790 void LAPACK_csytrf_rook_base(
18791  char const* uplo,
18792  lapack_int const* n,
18793  lapack_complex_float* A, lapack_int const* lda, lapack_int* ipiv,
18794  lapack_complex_float* work, lapack_int const* lwork,
18795  lapack_int* info
18796 #ifdef LAPACK_FORTRAN_STRLEN_END
18797  , size_t
18798 #endif
18799 );
18800 #ifdef LAPACK_FORTRAN_STRLEN_END
18801  #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__, 1)
18802 #else
18803  #define LAPACK_csytrf_rook(...) LAPACK_csytrf_rook_base(__VA_ARGS__)
18804 #endif
18805 
18806 #define LAPACK_dsytrf_rook_base LAPACK_GLOBAL(dsytrf_rook,DSYTRF_ROOK)
18807 void LAPACK_dsytrf_rook_base(
18808  char const* uplo,
18809  lapack_int const* n,
18810  double* A, lapack_int const* lda, lapack_int* ipiv,
18811  double* work, lapack_int const* lwork,
18812  lapack_int* info
18813 #ifdef LAPACK_FORTRAN_STRLEN_END
18814  , size_t
18815 #endif
18816 );
18817 #ifdef LAPACK_FORTRAN_STRLEN_END
18818  #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__, 1)
18819 #else
18820  #define LAPACK_dsytrf_rook(...) LAPACK_dsytrf_rook_base(__VA_ARGS__)
18821 #endif
18822 
18823 #define LAPACK_ssytrf_rook_base LAPACK_GLOBAL(ssytrf_rook,SSYTRF_ROOK)
18824 void LAPACK_ssytrf_rook_base(
18825  char const* uplo,
18826  lapack_int const* n,
18827  float* A, lapack_int const* lda, lapack_int* ipiv,
18828  float* work, lapack_int const* lwork,
18829  lapack_int* info
18830 #ifdef LAPACK_FORTRAN_STRLEN_END
18831  , size_t
18832 #endif
18833 );
18834 #ifdef LAPACK_FORTRAN_STRLEN_END
18835  #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__, 1)
18836 #else
18837  #define LAPACK_ssytrf_rook(...) LAPACK_ssytrf_rook_base(__VA_ARGS__)
18838 #endif
18839 
18840 #define LAPACK_zsytrf_rook_base LAPACK_GLOBAL(zsytrf_rook,ZSYTRF_ROOK)
18841 void LAPACK_zsytrf_rook_base(
18842  char const* uplo,
18843  lapack_int const* n,
18844  lapack_complex_double* A, lapack_int const* lda, lapack_int* ipiv,
18845  lapack_complex_double* work, lapack_int const* lwork,
18846  lapack_int* info
18847 #ifdef LAPACK_FORTRAN_STRLEN_END
18848  , size_t
18849 #endif
18850 );
18851 #ifdef LAPACK_FORTRAN_STRLEN_END
18852  #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__, 1)
18853 #else
18854  #define LAPACK_zsytrf_rook(...) LAPACK_zsytrf_rook_base(__VA_ARGS__)
18855 #endif
18856 
18857 #define LAPACK_csytri_base LAPACK_GLOBAL(csytri,CSYTRI)
18858 void LAPACK_csytri_base(
18859  char const* uplo,
18860  lapack_int const* n,
18861  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18862  lapack_complex_float* work,
18863  lapack_int* info
18864 #ifdef LAPACK_FORTRAN_STRLEN_END
18865  , size_t
18866 #endif
18867 );
18868 #ifdef LAPACK_FORTRAN_STRLEN_END
18869  #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__, 1)
18870 #else
18871  #define LAPACK_csytri(...) LAPACK_csytri_base(__VA_ARGS__)
18872 #endif
18873 
18874 #define LAPACK_dsytri_base LAPACK_GLOBAL(dsytri,DSYTRI)
18875 void LAPACK_dsytri_base(
18876  char const* uplo,
18877  lapack_int const* n,
18878  double* A, lapack_int const* lda, lapack_int const* ipiv,
18879  double* work,
18880  lapack_int* info
18881 #ifdef LAPACK_FORTRAN_STRLEN_END
18882  , size_t
18883 #endif
18884 );
18885 #ifdef LAPACK_FORTRAN_STRLEN_END
18886  #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__, 1)
18887 #else
18888  #define LAPACK_dsytri(...) LAPACK_dsytri_base(__VA_ARGS__)
18889 #endif
18890 
18891 #define LAPACK_ssytri_base LAPACK_GLOBAL(ssytri,SSYTRI)
18892 void LAPACK_ssytri_base(
18893  char const* uplo,
18894  lapack_int const* n,
18895  float* A, lapack_int const* lda, lapack_int const* ipiv,
18896  float* work,
18897  lapack_int* info
18898 #ifdef LAPACK_FORTRAN_STRLEN_END
18899  , size_t
18900 #endif
18901 );
18902 #ifdef LAPACK_FORTRAN_STRLEN_END
18903  #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__, 1)
18904 #else
18905  #define LAPACK_ssytri(...) LAPACK_ssytri_base(__VA_ARGS__)
18906 #endif
18907 
18908 #define LAPACK_zsytri_base LAPACK_GLOBAL(zsytri,ZSYTRI)
18909 void LAPACK_zsytri_base(
18910  char const* uplo,
18911  lapack_int const* n,
18912  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
18913  lapack_complex_double* work,
18914  lapack_int* info
18915 #ifdef LAPACK_FORTRAN_STRLEN_END
18916  , size_t
18917 #endif
18918 );
18919 #ifdef LAPACK_FORTRAN_STRLEN_END
18920  #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__, 1)
18921 #else
18922  #define LAPACK_zsytri(...) LAPACK_zsytri_base(__VA_ARGS__)
18923 #endif
18924 
18925 #define LAPACK_csytri2_base LAPACK_GLOBAL(csytri2,CSYTRI2)
18926 void LAPACK_csytri2_base(
18927  char const* uplo,
18928  lapack_int const* n,
18929  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18930  lapack_complex_float* work, lapack_int const* lwork,
18931  lapack_int* info
18932 #ifdef LAPACK_FORTRAN_STRLEN_END
18933  , size_t
18934 #endif
18935 );
18936 #ifdef LAPACK_FORTRAN_STRLEN_END
18937  #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__, 1)
18938 #else
18939  #define LAPACK_csytri2(...) LAPACK_csytri2_base(__VA_ARGS__)
18940 #endif
18941 
18942 #define LAPACK_dsytri2_base LAPACK_GLOBAL(dsytri2,DSYTRI2)
18943 void LAPACK_dsytri2_base(
18944  char const* uplo,
18945  lapack_int const* n,
18946  double* A, lapack_int const* lda, lapack_int const* ipiv,
18947  double* work, lapack_int const* lwork,
18948  lapack_int* info
18949 #ifdef LAPACK_FORTRAN_STRLEN_END
18950  , size_t
18951 #endif
18952 );
18953 #ifdef LAPACK_FORTRAN_STRLEN_END
18954  #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__, 1)
18955 #else
18956  #define LAPACK_dsytri2(...) LAPACK_dsytri2_base(__VA_ARGS__)
18957 #endif
18958 
18959 #define LAPACK_ssytri2_base LAPACK_GLOBAL(ssytri2,SSYTRI2)
18960 void LAPACK_ssytri2_base(
18961  char const* uplo,
18962  lapack_int const* n,
18963  float* A, lapack_int const* lda, lapack_int const* ipiv,
18964  float* work, lapack_int const* lwork,
18965  lapack_int* info
18966 #ifdef LAPACK_FORTRAN_STRLEN_END
18967  , size_t
18968 #endif
18969 );
18970 #ifdef LAPACK_FORTRAN_STRLEN_END
18971  #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__, 1)
18972 #else
18973  #define LAPACK_ssytri2(...) LAPACK_ssytri2_base(__VA_ARGS__)
18974 #endif
18975 
18976 #define LAPACK_zsytri2_base LAPACK_GLOBAL(zsytri2,ZSYTRI2)
18977 void LAPACK_zsytri2_base(
18978  char const* uplo,
18979  lapack_int const* n,
18980  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
18981  lapack_complex_double* work, lapack_int const* lwork,
18982  lapack_int* info
18983 #ifdef LAPACK_FORTRAN_STRLEN_END
18984  , size_t
18985 #endif
18986 );
18987 #ifdef LAPACK_FORTRAN_STRLEN_END
18988  #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__, 1)
18989 #else
18990  #define LAPACK_zsytri2(...) LAPACK_zsytri2_base(__VA_ARGS__)
18991 #endif
18992 
18993 #define LAPACK_csytri2x_base LAPACK_GLOBAL(csytri2x,CSYTRI2X)
18994 void LAPACK_csytri2x_base(
18995  char const* uplo,
18996  lapack_int const* n,
18997  lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
18998  lapack_complex_float* work, lapack_int const* nb,
18999  lapack_int* info
19000 #ifdef LAPACK_FORTRAN_STRLEN_END
19001  , size_t
19002 #endif
19003 );
19004 #ifdef LAPACK_FORTRAN_STRLEN_END
19005  #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__, 1)
19006 #else
19007  #define LAPACK_csytri2x(...) LAPACK_csytri2x_base(__VA_ARGS__)
19008 #endif
19009 
19010 #define LAPACK_dsytri2x_base LAPACK_GLOBAL(dsytri2x,DSYTRI2X)
19011 void LAPACK_dsytri2x_base(
19012  char const* uplo,
19013  lapack_int const* n,
19014  double* A, lapack_int const* lda, lapack_int const* ipiv,
19015  double* work, lapack_int const* nb,
19016  lapack_int* info
19017 #ifdef LAPACK_FORTRAN_STRLEN_END
19018  , size_t
19019 #endif
19020 );
19021 #ifdef LAPACK_FORTRAN_STRLEN_END
19022  #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__, 1)
19023 #else
19024  #define LAPACK_dsytri2x(...) LAPACK_dsytri2x_base(__VA_ARGS__)
19025 #endif
19026 
19027 #define LAPACK_ssytri2x_base LAPACK_GLOBAL(ssytri2x,SSYTRI2X)
19028 void LAPACK_ssytri2x_base(
19029  char const* uplo,
19030  lapack_int const* n,
19031  float* A, lapack_int const* lda, lapack_int const* ipiv,
19032  float* work, lapack_int const* nb,
19033  lapack_int* info
19034 #ifdef LAPACK_FORTRAN_STRLEN_END
19035  , size_t
19036 #endif
19037 );
19038 #ifdef LAPACK_FORTRAN_STRLEN_END
19039  #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__, 1)
19040 #else
19041  #define LAPACK_ssytri2x(...) LAPACK_ssytri2x_base(__VA_ARGS__)
19042 #endif
19043 
19044 #define LAPACK_zsytri2x_base LAPACK_GLOBAL(zsytri2x,ZSYTRI2X)
19045 void LAPACK_zsytri2x_base(
19046  char const* uplo,
19047  lapack_int const* n,
19048  lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19049  lapack_complex_double* work, lapack_int const* nb,
19050  lapack_int* info
19051 #ifdef LAPACK_FORTRAN_STRLEN_END
19052  , size_t
19053 #endif
19054 );
19055 #ifdef LAPACK_FORTRAN_STRLEN_END
19056  #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__, 1)
19057 #else
19058  #define LAPACK_zsytri2x(...) LAPACK_zsytri2x_base(__VA_ARGS__)
19059 #endif
19060 
19061 #define LAPACK_csytri_3_base LAPACK_GLOBAL(csytri_3,CSYTRI_3)
19062 void LAPACK_csytri_3_base(
19063  char const* uplo,
19064  lapack_int const* n,
19065  lapack_complex_float* A, lapack_int const* lda,
19066  lapack_complex_float const* E, lapack_int const* ipiv,
19067  lapack_complex_float* work, lapack_int const* lwork,
19068  lapack_int* info
19069 #ifdef LAPACK_FORTRAN_STRLEN_END
19070  , size_t
19071 #endif
19072 );
19073 #ifdef LAPACK_FORTRAN_STRLEN_END
19074  #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__, 1)
19075 #else
19076  #define LAPACK_csytri_3(...) LAPACK_csytri_3_base(__VA_ARGS__)
19077 #endif
19078 
19079 #define LAPACK_dsytri_3_base LAPACK_GLOBAL(dsytri_3,DSYTRI_3)
19080 void LAPACK_dsytri_3_base(
19081  char const* uplo,
19082  lapack_int const* n,
19083  double* A, lapack_int const* lda,
19084  double const* E, lapack_int const* ipiv,
19085  double* work, lapack_int const* lwork,
19086  lapack_int* info
19087 #ifdef LAPACK_FORTRAN_STRLEN_END
19088  , size_t
19089 #endif
19090 );
19091 #ifdef LAPACK_FORTRAN_STRLEN_END
19092  #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__, 1)
19093 #else
19094  #define LAPACK_dsytri_3(...) LAPACK_dsytri_3_base(__VA_ARGS__)
19095 #endif
19096 
19097 #define LAPACK_ssytri_3_base LAPACK_GLOBAL(ssytri_3,SSYTRI_3)
19098 void LAPACK_ssytri_3_base(
19099  char const* uplo,
19100  lapack_int const* n,
19101  float* A, lapack_int const* lda,
19102  float const* E, lapack_int const* ipiv,
19103  float* work, lapack_int const* lwork,
19104  lapack_int* info
19105 #ifdef LAPACK_FORTRAN_STRLEN_END
19106  , size_t
19107 #endif
19108 );
19109 #ifdef LAPACK_FORTRAN_STRLEN_END
19110  #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__, 1)
19111 #else
19112  #define LAPACK_ssytri_3(...) LAPACK_ssytri_3_base(__VA_ARGS__)
19113 #endif
19114 
19115 #define LAPACK_zsytri_3_base LAPACK_GLOBAL(zsytri_3,ZSYTRI_3)
19116 void LAPACK_zsytri_3_base(
19117  char const* uplo,
19118  lapack_int const* n,
19119  lapack_complex_double* A, lapack_int const* lda,
19120  lapack_complex_double const* E, lapack_int const* ipiv,
19121  lapack_complex_double* work, lapack_int const* lwork,
19122  lapack_int* info
19123 #ifdef LAPACK_FORTRAN_STRLEN_END
19124  , size_t
19125 #endif
19126 );
19127 #ifdef LAPACK_FORTRAN_STRLEN_END
19128  #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__, 1)
19129 #else
19130  #define LAPACK_zsytri_3(...) LAPACK_zsytri_3_base(__VA_ARGS__)
19131 #endif
19132 
19133 #define LAPACK_csytrs_base LAPACK_GLOBAL(csytrs,CSYTRS)
19134 void LAPACK_csytrs_base(
19135  char const* uplo,
19136  lapack_int const* n, lapack_int const* nrhs,
19137  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19138  lapack_complex_float* B, lapack_int const* ldb,
19139  lapack_int* info
19140 #ifdef LAPACK_FORTRAN_STRLEN_END
19141  , size_t
19142 #endif
19143 );
19144 #ifdef LAPACK_FORTRAN_STRLEN_END
19145  #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__, 1)
19146 #else
19147  #define LAPACK_csytrs(...) LAPACK_csytrs_base(__VA_ARGS__)
19148 #endif
19149 
19150 #define LAPACK_dsytrs_base LAPACK_GLOBAL(dsytrs,DSYTRS)
19151 void LAPACK_dsytrs_base(
19152  char const* uplo,
19153  lapack_int const* n, lapack_int const* nrhs,
19154  double const* A, lapack_int const* lda, lapack_int const* ipiv,
19155  double* B, lapack_int const* ldb,
19156  lapack_int* info
19157 #ifdef LAPACK_FORTRAN_STRLEN_END
19158  , size_t
19159 #endif
19160 );
19161 #ifdef LAPACK_FORTRAN_STRLEN_END
19162  #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__, 1)
19163 #else
19164  #define LAPACK_dsytrs(...) LAPACK_dsytrs_base(__VA_ARGS__)
19165 #endif
19166 
19167 #define LAPACK_ssytrs_base LAPACK_GLOBAL(ssytrs,SSYTRS)
19168 void LAPACK_ssytrs_base(
19169  char const* uplo,
19170  lapack_int const* n, lapack_int const* nrhs,
19171  float const* A, lapack_int const* lda, lapack_int const* ipiv,
19172  float* B, lapack_int const* ldb,
19173  lapack_int* info
19174 #ifdef LAPACK_FORTRAN_STRLEN_END
19175  , size_t
19176 #endif
19177 );
19178 #ifdef LAPACK_FORTRAN_STRLEN_END
19179  #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__, 1)
19180 #else
19181  #define LAPACK_ssytrs(...) LAPACK_ssytrs_base(__VA_ARGS__)
19182 #endif
19183 
19184 #define LAPACK_zsytrs_base LAPACK_GLOBAL(zsytrs,ZSYTRS)
19185 void LAPACK_zsytrs_base(
19186  char const* uplo,
19187  lapack_int const* n, lapack_int const* nrhs,
19188  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19189  lapack_complex_double* B, lapack_int const* ldb,
19190  lapack_int* info
19191 #ifdef LAPACK_FORTRAN_STRLEN_END
19192  , size_t
19193 #endif
19194 );
19195 #ifdef LAPACK_FORTRAN_STRLEN_END
19196  #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__, 1)
19197 #else
19198  #define LAPACK_zsytrs(...) LAPACK_zsytrs_base(__VA_ARGS__)
19199 #endif
19200 
19201 #define LAPACK_csytrs2_base LAPACK_GLOBAL(csytrs2,CSYTRS2)
19202 void LAPACK_csytrs2_base(
19203  char const* uplo,
19204  lapack_int const* n, lapack_int const* nrhs,
19205  const lapack_complex_float* A, lapack_int const* lda, lapack_int const* ipiv,
19206  lapack_complex_float* B, lapack_int const* ldb,
19207  lapack_complex_float* work,
19208  lapack_int* info
19209 #ifdef LAPACK_FORTRAN_STRLEN_END
19210  , size_t
19211 #endif
19212 );
19213 #ifdef LAPACK_FORTRAN_STRLEN_END
19214  #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__, 1)
19215 #else
19216  #define LAPACK_csytrs2(...) LAPACK_csytrs2_base(__VA_ARGS__)
19217 #endif
19218 
19219 #define LAPACK_dsytrs2_base LAPACK_GLOBAL(dsytrs2,DSYTRS2)
19220 void LAPACK_dsytrs2_base(
19221  char const* uplo,
19222  lapack_int const* n, lapack_int const* nrhs,
19223  const double* A, lapack_int const* lda, lapack_int const* ipiv,
19224  double* B, lapack_int const* ldb,
19225  double* work,
19226  lapack_int* info
19227 #ifdef LAPACK_FORTRAN_STRLEN_END
19228  , size_t
19229 #endif
19230 );
19231 #ifdef LAPACK_FORTRAN_STRLEN_END
19232  #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__, 1)
19233 #else
19234  #define LAPACK_dsytrs2(...) LAPACK_dsytrs2_base(__VA_ARGS__)
19235 #endif
19236 
19237 #define LAPACK_ssytrs2_base LAPACK_GLOBAL(ssytrs2,SSYTRS2)
19238 void LAPACK_ssytrs2_base(
19239  char const* uplo,
19240  lapack_int const* n, lapack_int const* nrhs,
19241  const float* A, lapack_int const* lda, lapack_int const* ipiv,
19242  float* B, lapack_int const* ldb,
19243  float* work,
19244  lapack_int* info
19245 #ifdef LAPACK_FORTRAN_STRLEN_END
19246  , size_t
19247 #endif
19248 );
19249 #ifdef LAPACK_FORTRAN_STRLEN_END
19250  #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__, 1)
19251 #else
19252  #define LAPACK_ssytrs2(...) LAPACK_ssytrs2_base(__VA_ARGS__)
19253 #endif
19254 
19255 #define LAPACK_zsytrs2_base LAPACK_GLOBAL(zsytrs2,ZSYTRS2)
19256 void LAPACK_zsytrs2_base(
19257  char const* uplo,
19258  lapack_int const* n, lapack_int const* nrhs,
19259  const lapack_complex_double* A, lapack_int const* lda, lapack_int const* ipiv,
19260  lapack_complex_double* B, lapack_int const* ldb,
19261  lapack_complex_double* work,
19262  lapack_int* info
19263 #ifdef LAPACK_FORTRAN_STRLEN_END
19264  , size_t
19265 #endif
19266 );
19267 #ifdef LAPACK_FORTRAN_STRLEN_END
19268  #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__, 1)
19269 #else
19270  #define LAPACK_zsytrs2(...) LAPACK_zsytrs2_base(__VA_ARGS__)
19271 #endif
19272 
19273 #define LAPACK_csytrs_3_base LAPACK_GLOBAL(csytrs_3,CSYTRS_3)
19274 void LAPACK_csytrs_3_base(
19275  char const* uplo,
19276  lapack_int const* n, lapack_int const* nrhs,
19277  lapack_complex_float const* A, lapack_int const* lda,
19278  lapack_complex_float const* E, lapack_int const* ipiv,
19279  lapack_complex_float* B, lapack_int const* ldb,
19280  lapack_int* info
19281 #ifdef LAPACK_FORTRAN_STRLEN_END
19282  , size_t
19283 #endif
19284 );
19285 #ifdef LAPACK_FORTRAN_STRLEN_END
19286  #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__, 1)
19287 #else
19288  #define LAPACK_csytrs_3(...) LAPACK_csytrs_3_base(__VA_ARGS__)
19289 #endif
19290 
19291 #define LAPACK_dsytrs_3_base LAPACK_GLOBAL(dsytrs_3,DSYTRS_3)
19292 void LAPACK_dsytrs_3_base(
19293  char const* uplo,
19294  lapack_int const* n, lapack_int const* nrhs,
19295  double const* A, lapack_int const* lda,
19296  double const* E, lapack_int const* ipiv,
19297  double* B, lapack_int const* ldb,
19298  lapack_int* info
19299 #ifdef LAPACK_FORTRAN_STRLEN_END
19300  , size_t
19301 #endif
19302 );
19303 #ifdef LAPACK_FORTRAN_STRLEN_END
19304  #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__, 1)
19305 #else
19306  #define LAPACK_dsytrs_3(...) LAPACK_dsytrs_3_base(__VA_ARGS__)
19307 #endif
19308 
19309 #define LAPACK_ssytrs_3_base LAPACK_GLOBAL(ssytrs_3,SSYTRS_3)
19310 void LAPACK_ssytrs_3_base(
19311  char const* uplo,
19312  lapack_int const* n, lapack_int const* nrhs,
19313  float const* A, lapack_int const* lda,
19314  float const* E, lapack_int const* ipiv,
19315  float* B, lapack_int const* ldb,
19316  lapack_int* info
19317 #ifdef LAPACK_FORTRAN_STRLEN_END
19318  , size_t
19319 #endif
19320 );
19321 #ifdef LAPACK_FORTRAN_STRLEN_END
19322  #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__, 1)
19323 #else
19324  #define LAPACK_ssytrs_3(...) LAPACK_ssytrs_3_base(__VA_ARGS__)
19325 #endif
19326 
19327 #define LAPACK_zsytrs_3_base LAPACK_GLOBAL(zsytrs_3,ZSYTRS_3)
19328 void LAPACK_zsytrs_3_base(
19329  char const* uplo,
19330  lapack_int const* n, lapack_int const* nrhs,
19331  lapack_complex_double const* A, lapack_int const* lda,
19332  lapack_complex_double const* E, lapack_int const* ipiv,
19333  lapack_complex_double* B, lapack_int const* ldb,
19334  lapack_int* info
19335 #ifdef LAPACK_FORTRAN_STRLEN_END
19336  , size_t
19337 #endif
19338 );
19339 #ifdef LAPACK_FORTRAN_STRLEN_END
19340  #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__, 1)
19341 #else
19342  #define LAPACK_zsytrs_3(...) LAPACK_zsytrs_3_base(__VA_ARGS__)
19343 #endif
19344 
19345 #define LAPACK_csytrs_aa_base LAPACK_GLOBAL(csytrs_aa,CSYTRS_AA)
19346 void LAPACK_csytrs_aa_base(
19347  char const* uplo,
19348  lapack_int const* n, lapack_int const* nrhs,
19349  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19350  lapack_complex_float* B, lapack_int const* ldb,
19351  lapack_complex_float* work, lapack_int const* lwork,
19352  lapack_int* info
19353 #ifdef LAPACK_FORTRAN_STRLEN_END
19354  , size_t
19355 #endif
19356 );
19357 #ifdef LAPACK_FORTRAN_STRLEN_END
19358  #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__, 1)
19359 #else
19360  #define LAPACK_csytrs_aa(...) LAPACK_csytrs_aa_base(__VA_ARGS__)
19361 #endif
19362 
19363 #define LAPACK_dsytrs_aa_base LAPACK_GLOBAL(dsytrs_aa,DSYTRS_AA)
19364 void LAPACK_dsytrs_aa_base(
19365  char const* uplo,
19366  lapack_int const* n, lapack_int const* nrhs,
19367  double const* A, lapack_int const* lda, lapack_int const* ipiv,
19368  double* B, lapack_int const* ldb,
19369  double* work, lapack_int const* lwork,
19370  lapack_int* info
19371 #ifdef LAPACK_FORTRAN_STRLEN_END
19372  , size_t
19373 #endif
19374 );
19375 #ifdef LAPACK_FORTRAN_STRLEN_END
19376  #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__, 1)
19377 #else
19378  #define LAPACK_dsytrs_aa(...) LAPACK_dsytrs_aa_base(__VA_ARGS__)
19379 #endif
19380 
19381 #define LAPACK_ssytrs_aa_base LAPACK_GLOBAL(ssytrs_aa,SSYTRS_AA)
19382 void LAPACK_ssytrs_aa_base(
19383  char const* uplo,
19384  lapack_int const* n, lapack_int const* nrhs,
19385  float const* A, lapack_int const* lda, lapack_int const* ipiv,
19386  float* B, lapack_int const* ldb,
19387  float* work, lapack_int const* lwork,
19388  lapack_int* info
19389 #ifdef LAPACK_FORTRAN_STRLEN_END
19390  , size_t
19391 #endif
19392 );
19393 #ifdef LAPACK_FORTRAN_STRLEN_END
19394  #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__, 1)
19395 #else
19396  #define LAPACK_ssytrs_aa(...) LAPACK_ssytrs_aa_base(__VA_ARGS__)
19397 #endif
19398 
19399 #define LAPACK_zsytrs_aa_base LAPACK_GLOBAL(zsytrs_aa,ZSYTRS_AA)
19400 void LAPACK_zsytrs_aa_base(
19401  char const* uplo,
19402  lapack_int const* n, lapack_int const* nrhs,
19403  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19404  lapack_complex_double* B, lapack_int const* ldb,
19405  lapack_complex_double* work, lapack_int const* lwork,
19406  lapack_int* info
19407 #ifdef LAPACK_FORTRAN_STRLEN_END
19408  , size_t
19409 #endif
19410 );
19411 #ifdef LAPACK_FORTRAN_STRLEN_END
19412  #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__, 1)
19413 #else
19414  #define LAPACK_zsytrs_aa(...) LAPACK_zsytrs_aa_base(__VA_ARGS__)
19415 #endif
19416 
19417 #define LAPACK_csytrs_aa_2stage_base LAPACK_GLOBAL(csytrs_aa_2stage,CSYTRS_AA_2STAGE)
19418 void LAPACK_csytrs_aa_2stage_base(
19419  char const* uplo,
19420  lapack_int const* n, lapack_int const* nrhs,
19421  lapack_complex_float const* A, lapack_int const* lda,
19422  lapack_complex_float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19423  lapack_complex_float* B, lapack_int const* ldb,
19424  lapack_int* info
19425 #ifdef LAPACK_FORTRAN_STRLEN_END
19426  , size_t
19427 #endif
19428 );
19429 #ifdef LAPACK_FORTRAN_STRLEN_END
19430  #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__, 1)
19431 #else
19432  #define LAPACK_csytrs_aa_2stage(...) LAPACK_csytrs_aa_2stage_base(__VA_ARGS__)
19433 #endif
19434 
19435 #define LAPACK_dsytrs_aa_2stage_base LAPACK_GLOBAL(dsytrs_aa_2stage,DSYTRS_AA_2STAGE)
19436 void LAPACK_dsytrs_aa_2stage_base(
19437  char const* uplo,
19438  lapack_int const* n, lapack_int const* nrhs,
19439  double const* A, lapack_int const* lda,
19440  double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19441  double* B, lapack_int const* ldb,
19442  lapack_int* info
19443 #ifdef LAPACK_FORTRAN_STRLEN_END
19444  , size_t
19445 #endif
19446 );
19447 #ifdef LAPACK_FORTRAN_STRLEN_END
19448  #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__, 1)
19449 #else
19450  #define LAPACK_dsytrs_aa_2stage(...) LAPACK_dsytrs_aa_2stage_base(__VA_ARGS__)
19451 #endif
19452 
19453 #define LAPACK_ssytrs_aa_2stage_base LAPACK_GLOBAL(ssytrs_aa_2stage,SSYTRS_AA_2STAGE)
19454 void LAPACK_ssytrs_aa_2stage_base(
19455  char const* uplo,
19456  lapack_int const* n, lapack_int const* nrhs,
19457  float const* A, lapack_int const* lda,
19458  float* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19459  float* B, lapack_int const* ldb,
19460  lapack_int* info
19461 #ifdef LAPACK_FORTRAN_STRLEN_END
19462  , size_t
19463 #endif
19464 );
19465 #ifdef LAPACK_FORTRAN_STRLEN_END
19466  #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__, 1)
19467 #else
19468  #define LAPACK_ssytrs_aa_2stage(...) LAPACK_ssytrs_aa_2stage_base(__VA_ARGS__)
19469 #endif
19470 
19471 #define LAPACK_zsytrs_aa_2stage_base LAPACK_GLOBAL(zsytrs_aa_2stage,ZSYTRS_AA_2STAGE)
19472 void LAPACK_zsytrs_aa_2stage_base(
19473  char const* uplo,
19474  lapack_int const* n, lapack_int const* nrhs,
19475  lapack_complex_double const* A, lapack_int const* lda,
19476  lapack_complex_double* TB, lapack_int const* ltb, lapack_int const* ipiv, lapack_int const* ipiv2,
19477  lapack_complex_double* B, lapack_int const* ldb,
19478  lapack_int* info
19479 #ifdef LAPACK_FORTRAN_STRLEN_END
19480  , size_t
19481 #endif
19482 );
19483 #ifdef LAPACK_FORTRAN_STRLEN_END
19484  #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__, 1)
19485 #else
19486  #define LAPACK_zsytrs_aa_2stage(...) LAPACK_zsytrs_aa_2stage_base(__VA_ARGS__)
19487 #endif
19488 
19489 #define LAPACK_csytrs_rook_base LAPACK_GLOBAL(csytrs_rook,CSYTRS_ROOK)
19490 void LAPACK_csytrs_rook_base(
19491  char const* uplo,
19492  lapack_int const* n, lapack_int const* nrhs,
19493  lapack_complex_float const* A, lapack_int const* lda, lapack_int const* ipiv,
19494  lapack_complex_float* B, lapack_int const* ldb,
19495  lapack_int* info
19496 #ifdef LAPACK_FORTRAN_STRLEN_END
19497  , size_t
19498 #endif
19499 );
19500 #ifdef LAPACK_FORTRAN_STRLEN_END
19501  #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__, 1)
19502 #else
19503  #define LAPACK_csytrs_rook(...) LAPACK_csytrs_rook_base(__VA_ARGS__)
19504 #endif
19505 
19506 #define LAPACK_dsytrs_rook_base LAPACK_GLOBAL(dsytrs_rook,DSYTRS_ROOK)
19507 void LAPACK_dsytrs_rook_base(
19508  char const* uplo,
19509  lapack_int const* n, lapack_int const* nrhs,
19510  double const* A, lapack_int const* lda, lapack_int const* ipiv,
19511  double* B, lapack_int const* ldb,
19512  lapack_int* info
19513 #ifdef LAPACK_FORTRAN_STRLEN_END
19514  , size_t
19515 #endif
19516 );
19517 #ifdef LAPACK_FORTRAN_STRLEN_END
19518  #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__, 1)
19519 #else
19520  #define LAPACK_dsytrs_rook(...) LAPACK_dsytrs_rook_base(__VA_ARGS__)
19521 #endif
19522 
19523 #define LAPACK_ssytrs_rook_base LAPACK_GLOBAL(ssytrs_rook,SSYTRS_ROOK)
19524 void LAPACK_ssytrs_rook_base(
19525  char const* uplo,
19526  lapack_int const* n, lapack_int const* nrhs,
19527  float const* A, lapack_int const* lda, lapack_int const* ipiv,
19528  float* B, lapack_int const* ldb,
19529  lapack_int* info
19530 #ifdef LAPACK_FORTRAN_STRLEN_END
19531  , size_t
19532 #endif
19533 );
19534 #ifdef LAPACK_FORTRAN_STRLEN_END
19535  #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__, 1)
19536 #else
19537  #define LAPACK_ssytrs_rook(...) LAPACK_ssytrs_rook_base(__VA_ARGS__)
19538 #endif
19539 
19540 #define LAPACK_zsytrs_rook_base LAPACK_GLOBAL(zsytrs_rook,ZSYTRS_ROOK)
19541 void LAPACK_zsytrs_rook_base(
19542  char const* uplo,
19543  lapack_int const* n, lapack_int const* nrhs,
19544  lapack_complex_double const* A, lapack_int const* lda, lapack_int const* ipiv,
19545  lapack_complex_double* B, lapack_int const* ldb,
19546  lapack_int* info
19547 #ifdef LAPACK_FORTRAN_STRLEN_END
19548  , size_t
19549 #endif
19550 );
19551 #ifdef LAPACK_FORTRAN_STRLEN_END
19552  #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__, 1)
19553 #else
19554  #define LAPACK_zsytrs_rook(...) LAPACK_zsytrs_rook_base(__VA_ARGS__)
19555 #endif
19556 
19557 #define LAPACK_ctbcon_base LAPACK_GLOBAL(ctbcon,CTBCON)
19558 void LAPACK_ctbcon_base(
19559  char const* norm, char const* uplo, char const* diag,
19560  lapack_int const* n, lapack_int const* kd,
19561  lapack_complex_float const* AB, lapack_int const* ldab,
19562  float* rcond,
19563  lapack_complex_float* work,
19564  float* rwork,
19565  lapack_int* info
19566 #ifdef LAPACK_FORTRAN_STRLEN_END
19567  , size_t, size_t, size_t
19568 #endif
19569 );
19570 #ifdef LAPACK_FORTRAN_STRLEN_END
19571  #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__, 1, 1, 1)
19572 #else
19573  #define LAPACK_ctbcon(...) LAPACK_ctbcon_base(__VA_ARGS__)
19574 #endif
19575 
19576 #define LAPACK_dtbcon_base LAPACK_GLOBAL(dtbcon,DTBCON)
19577 void LAPACK_dtbcon_base(
19578  char const* norm, char const* uplo, char const* diag,
19579  lapack_int const* n, lapack_int const* kd,
19580  double const* AB, lapack_int const* ldab,
19581  double* rcond,
19582  double* work,
19583  lapack_int* iwork,
19584  lapack_int* info
19585 #ifdef LAPACK_FORTRAN_STRLEN_END
19586  , size_t, size_t, size_t
19587 #endif
19588 );
19589 #ifdef LAPACK_FORTRAN_STRLEN_END
19590  #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__, 1, 1, 1)
19591 #else
19592  #define LAPACK_dtbcon(...) LAPACK_dtbcon_base(__VA_ARGS__)
19593 #endif
19594 
19595 #define LAPACK_stbcon_base LAPACK_GLOBAL(stbcon,STBCON)
19596 void LAPACK_stbcon_base(
19597  char const* norm, char const* uplo, char const* diag,
19598  lapack_int const* n, lapack_int const* kd,
19599  float const* AB, lapack_int const* ldab,
19600  float* rcond,
19601  float* work,
19602  lapack_int* iwork,
19603  lapack_int* info
19604 #ifdef LAPACK_FORTRAN_STRLEN_END
19605  , size_t, size_t, size_t
19606 #endif
19607 );
19608 #ifdef LAPACK_FORTRAN_STRLEN_END
19609  #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__, 1, 1, 1)
19610 #else
19611  #define LAPACK_stbcon(...) LAPACK_stbcon_base(__VA_ARGS__)
19612 #endif
19613 
19614 #define LAPACK_ztbcon_base LAPACK_GLOBAL(ztbcon,ZTBCON)
19615 void LAPACK_ztbcon_base(
19616  char const* norm, char const* uplo, char const* diag,
19617  lapack_int const* n, lapack_int const* kd,
19618  lapack_complex_double const* AB, lapack_int const* ldab,
19619  double* rcond,
19620  lapack_complex_double* work,
19621  double* rwork,
19622  lapack_int* info
19623 #ifdef LAPACK_FORTRAN_STRLEN_END
19624  , size_t, size_t, size_t
19625 #endif
19626 );
19627 #ifdef LAPACK_FORTRAN_STRLEN_END
19628  #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__, 1, 1, 1)
19629 #else
19630  #define LAPACK_ztbcon(...) LAPACK_ztbcon_base(__VA_ARGS__)
19631 #endif
19632 
19633 #define LAPACK_ctbrfs_base LAPACK_GLOBAL(ctbrfs,CTBRFS)
19634 void LAPACK_ctbrfs_base(
19635  char const* uplo, char const* trans, char const* diag,
19636  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19637  lapack_complex_float const* AB, lapack_int const* ldab,
19638  lapack_complex_float const* B, lapack_int const* ldb,
19639  lapack_complex_float const* X, lapack_int const* ldx,
19640  float* ferr,
19641  float* berr,
19642  lapack_complex_float* work,
19643  float* rwork,
19644  lapack_int* info
19645 #ifdef LAPACK_FORTRAN_STRLEN_END
19646  , size_t, size_t, size_t
19647 #endif
19648 );
19649 #ifdef LAPACK_FORTRAN_STRLEN_END
19650  #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__, 1, 1, 1)
19651 #else
19652  #define LAPACK_ctbrfs(...) LAPACK_ctbrfs_base(__VA_ARGS__)
19653 #endif
19654 
19655 #define LAPACK_dtbrfs_base LAPACK_GLOBAL(dtbrfs,DTBRFS)
19656 void LAPACK_dtbrfs_base(
19657  char const* uplo, char const* trans, char const* diag,
19658  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19659  double const* AB, lapack_int const* ldab,
19660  double const* B, lapack_int const* ldb,
19661  double const* X, lapack_int const* ldx,
19662  double* ferr,
19663  double* berr,
19664  double* work,
19665  lapack_int* iwork,
19666  lapack_int* info
19667 #ifdef LAPACK_FORTRAN_STRLEN_END
19668  , size_t, size_t, size_t
19669 #endif
19670 );
19671 #ifdef LAPACK_FORTRAN_STRLEN_END
19672  #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__, 1, 1, 1)
19673 #else
19674  #define LAPACK_dtbrfs(...) LAPACK_dtbrfs_base(__VA_ARGS__)
19675 #endif
19676 
19677 #define LAPACK_stbrfs_base LAPACK_GLOBAL(stbrfs,STBRFS)
19678 void LAPACK_stbrfs_base(
19679  char const* uplo, char const* trans, char const* diag,
19680  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19681  float const* AB, lapack_int const* ldab,
19682  float const* B, lapack_int const* ldb,
19683  float const* X, lapack_int const* ldx,
19684  float* ferr,
19685  float* berr,
19686  float* work,
19687  lapack_int* iwork,
19688  lapack_int* info
19689 #ifdef LAPACK_FORTRAN_STRLEN_END
19690  , size_t, size_t, size_t
19691 #endif
19692 );
19693 #ifdef LAPACK_FORTRAN_STRLEN_END
19694  #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__, 1, 1, 1)
19695 #else
19696  #define LAPACK_stbrfs(...) LAPACK_stbrfs_base(__VA_ARGS__)
19697 #endif
19698 
19699 #define LAPACK_ztbrfs_base LAPACK_GLOBAL(ztbrfs,ZTBRFS)
19700 void LAPACK_ztbrfs_base(
19701  char const* uplo, char const* trans, char const* diag,
19702  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19703  lapack_complex_double const* AB, lapack_int const* ldab,
19704  lapack_complex_double const* B, lapack_int const* ldb,
19705  lapack_complex_double const* X, lapack_int const* ldx,
19706  double* ferr,
19707  double* berr,
19708  lapack_complex_double* work,
19709  double* rwork,
19710  lapack_int* info
19711 #ifdef LAPACK_FORTRAN_STRLEN_END
19712  , size_t, size_t, size_t
19713 #endif
19714 );
19715 #ifdef LAPACK_FORTRAN_STRLEN_END
19716  #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__, 1, 1, 1)
19717 #else
19718  #define LAPACK_ztbrfs(...) LAPACK_ztbrfs_base(__VA_ARGS__)
19719 #endif
19720 
19721 #define LAPACK_ctbtrs_base LAPACK_GLOBAL(ctbtrs,CTBTRS)
19722 void LAPACK_ctbtrs_base(
19723  char const* uplo, char const* trans, char const* diag,
19724  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19725  lapack_complex_float const* AB, lapack_int const* ldab,
19726  lapack_complex_float* B, lapack_int const* ldb,
19727  lapack_int* info
19728 #ifdef LAPACK_FORTRAN_STRLEN_END
19729  , size_t, size_t, size_t
19730 #endif
19731 );
19732 #ifdef LAPACK_FORTRAN_STRLEN_END
19733  #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__, 1, 1, 1)
19734 #else
19735  #define LAPACK_ctbtrs(...) LAPACK_ctbtrs_base(__VA_ARGS__)
19736 #endif
19737 
19738 #define LAPACK_dtbtrs_base LAPACK_GLOBAL(dtbtrs,DTBTRS)
19739 void LAPACK_dtbtrs_base(
19740  char const* uplo, char const* trans, char const* diag,
19741  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19742  double const* AB, lapack_int const* ldab,
19743  double* B, lapack_int const* ldb,
19744  lapack_int* info
19745 #ifdef LAPACK_FORTRAN_STRLEN_END
19746  , size_t, size_t, size_t
19747 #endif
19748 );
19749 #ifdef LAPACK_FORTRAN_STRLEN_END
19750  #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__, 1, 1, 1)
19751 #else
19752  #define LAPACK_dtbtrs(...) LAPACK_dtbtrs_base(__VA_ARGS__)
19753 #endif
19754 
19755 #define LAPACK_stbtrs_base LAPACK_GLOBAL(stbtrs,STBTRS)
19756 void LAPACK_stbtrs_base(
19757  char const* uplo, char const* trans, char const* diag,
19758  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19759  float const* AB, lapack_int const* ldab,
19760  float* B, lapack_int const* ldb,
19761  lapack_int* info
19762 #ifdef LAPACK_FORTRAN_STRLEN_END
19763  , size_t, size_t, size_t
19764 #endif
19765 );
19766 #ifdef LAPACK_FORTRAN_STRLEN_END
19767  #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__, 1, 1, 1)
19768 #else
19769  #define LAPACK_stbtrs(...) LAPACK_stbtrs_base(__VA_ARGS__)
19770 #endif
19771 
19772 #define LAPACK_ztbtrs_base LAPACK_GLOBAL(ztbtrs,ZTBTRS)
19773 void LAPACK_ztbtrs_base(
19774  char const* uplo, char const* trans, char const* diag,
19775  lapack_int const* n, lapack_int const* kd, lapack_int const* nrhs,
19776  lapack_complex_double const* AB, lapack_int const* ldab,
19777  lapack_complex_double* B, lapack_int const* ldb,
19778  lapack_int* info
19779 #ifdef LAPACK_FORTRAN_STRLEN_END
19780  , size_t, size_t, size_t
19781 #endif
19782 );
19783 #ifdef LAPACK_FORTRAN_STRLEN_END
19784  #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__, 1, 1, 1)
19785 #else
19786  #define LAPACK_ztbtrs(...) LAPACK_ztbtrs_base(__VA_ARGS__)
19787 #endif
19788 
19789 #define LAPACK_ctfsm_base LAPACK_GLOBAL(ctfsm,CTFSM)
19790 void LAPACK_ctfsm_base(
19791  char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
19792  lapack_int const* m, lapack_int const* n,
19793  lapack_complex_float const* alpha,
19794  lapack_complex_float const* A,
19795  lapack_complex_float* B, lapack_int const* ldb
19796 #ifdef LAPACK_FORTRAN_STRLEN_END
19797  , size_t, size_t, size_t, size_t, size_t
19798 #endif
19799 );
19800 #ifdef LAPACK_FORTRAN_STRLEN_END
19801  #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19802 #else
19803  #define LAPACK_ctfsm(...) LAPACK_ctfsm_base(__VA_ARGS__)
19804 #endif
19805 
19806 #define LAPACK_dtfsm_base LAPACK_GLOBAL(dtfsm,DTFSM)
19807 void LAPACK_dtfsm_base(
19808  char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
19809  lapack_int const* m, lapack_int const* n,
19810  double const* alpha,
19811  double const* A,
19812  double* B, lapack_int const* ldb
19813 #ifdef LAPACK_FORTRAN_STRLEN_END
19814  , size_t, size_t, size_t, size_t, size_t
19815 #endif
19816 );
19817 #ifdef LAPACK_FORTRAN_STRLEN_END
19818  #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19819 #else
19820  #define LAPACK_dtfsm(...) LAPACK_dtfsm_base(__VA_ARGS__)
19821 #endif
19822 
19823 #define LAPACK_stfsm_base LAPACK_GLOBAL(stfsm,STFSM)
19824 void LAPACK_stfsm_base(
19825  char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
19826  lapack_int const* m, lapack_int const* n,
19827  float const* alpha,
19828  float const* A,
19829  float* B, lapack_int const* ldb
19830 #ifdef LAPACK_FORTRAN_STRLEN_END
19831  , size_t, size_t, size_t, size_t, size_t
19832 #endif
19833 );
19834 #ifdef LAPACK_FORTRAN_STRLEN_END
19835  #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19836 #else
19837  #define LAPACK_stfsm(...) LAPACK_stfsm_base(__VA_ARGS__)
19838 #endif
19839 
19840 #define LAPACK_ztfsm_base LAPACK_GLOBAL(ztfsm,ZTFSM)
19841 void LAPACK_ztfsm_base(
19842  char const* transr, char const* side, char const* uplo, char const* trans, char const* diag,
19843  lapack_int const* m, lapack_int const* n,
19844  lapack_complex_double const* alpha,
19845  lapack_complex_double const* A,
19846  lapack_complex_double* B, lapack_int const* ldb
19847 #ifdef LAPACK_FORTRAN_STRLEN_END
19848  , size_t, size_t, size_t, size_t, size_t
19849 #endif
19850 );
19851 #ifdef LAPACK_FORTRAN_STRLEN_END
19852  #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__, 1, 1, 1, 1, 1)
19853 #else
19854  #define LAPACK_ztfsm(...) LAPACK_ztfsm_base(__VA_ARGS__)
19855 #endif
19856 
19857 #define LAPACK_ctftri_base LAPACK_GLOBAL(ctftri,CTFTRI)
19858 void LAPACK_ctftri_base(
19859  char const* transr, char const* uplo, char const* diag,
19860  lapack_int const* n,
19861  lapack_complex_float* 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_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__, 1, 1, 1)
19869 #else
19870  #define LAPACK_ctftri(...) LAPACK_ctftri_base(__VA_ARGS__)
19871 #endif
19872 
19873 #define LAPACK_dtftri_base LAPACK_GLOBAL(dtftri,DTFTRI)
19874 void LAPACK_dtftri_base(
19875  char const* transr, char const* uplo, char const* diag,
19876  lapack_int const* n,
19877  double* 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_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__, 1, 1, 1)
19885 #else
19886  #define LAPACK_dtftri(...) LAPACK_dtftri_base(__VA_ARGS__)
19887 #endif
19888 
19889 #define LAPACK_stftri_base LAPACK_GLOBAL(stftri,STFTRI)
19890 void LAPACK_stftri_base(
19891  char const* transr, char const* uplo, char const* diag,
19892  lapack_int const* n,
19893  float* 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_stftri(...) LAPACK_stftri_base(__VA_ARGS__, 1, 1, 1)
19901 #else
19902  #define LAPACK_stftri(...) LAPACK_stftri_base(__VA_ARGS__)
19903 #endif
19904 
19905 #define LAPACK_ztftri_base LAPACK_GLOBAL(ztftri,ZTFTRI)
19906 void LAPACK_ztftri_base(
19907  char const* transr, char const* uplo, char const* diag,
19908  lapack_int const* n,
19909  lapack_complex_double* A,
19910  lapack_int* info
19911 #ifdef LAPACK_FORTRAN_STRLEN_END
19912  , size_t, size_t, size_t
19913 #endif
19914 );
19915 #ifdef LAPACK_FORTRAN_STRLEN_END
19916  #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__, 1, 1, 1)
19917 #else
19918  #define LAPACK_ztftri(...) LAPACK_ztftri_base(__VA_ARGS__)
19919 #endif
19920 
19921 #define LAPACK_ctfttp_base LAPACK_GLOBAL(ctfttp,CTFTTP)
19922 void LAPACK_ctfttp_base(
19923  char const* transr, char const* uplo,
19924  lapack_int const* n,
19925  lapack_complex_float const* ARF,
19926  lapack_complex_float* AP,
19927  lapack_int* info
19928 #ifdef LAPACK_FORTRAN_STRLEN_END
19929  , size_t, size_t
19930 #endif
19931 );
19932 #ifdef LAPACK_FORTRAN_STRLEN_END
19933  #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__, 1, 1)
19934 #else
19935  #define LAPACK_ctfttp(...) LAPACK_ctfttp_base(__VA_ARGS__)
19936 #endif
19937 
19938 #define LAPACK_dtfttp_base LAPACK_GLOBAL(dtfttp,DTFTTP)
19939 void LAPACK_dtfttp_base(
19940  char const* transr, char const* uplo,
19941  lapack_int const* n,
19942  double const* ARF,
19943  double* AP,
19944  lapack_int* info
19945 #ifdef LAPACK_FORTRAN_STRLEN_END
19946  , size_t, size_t
19947 #endif
19948 );
19949 #ifdef LAPACK_FORTRAN_STRLEN_END
19950  #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__, 1, 1)
19951 #else
19952  #define LAPACK_dtfttp(...) LAPACK_dtfttp_base(__VA_ARGS__)
19953 #endif
19954 
19955 #define LAPACK_stfttp_base LAPACK_GLOBAL(stfttp,STFTTP)
19956 void LAPACK_stfttp_base(
19957  char const* transr, char const* uplo,
19958  lapack_int const* n,
19959  float const* ARF,
19960  float* AP,
19961  lapack_int* info
19962 #ifdef LAPACK_FORTRAN_STRLEN_END
19963  , size_t, size_t
19964 #endif
19965 );
19966 #ifdef LAPACK_FORTRAN_STRLEN_END
19967  #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__, 1, 1)
19968 #else
19969  #define LAPACK_stfttp(...) LAPACK_stfttp_base(__VA_ARGS__)
19970 #endif
19971 
19972 #define LAPACK_ztfttp_base LAPACK_GLOBAL(ztfttp,ZTFTTP)
19973 void LAPACK_ztfttp_base(
19974  char const* transr, char const* uplo,
19975  lapack_int const* n,
19976  lapack_complex_double const* ARF,
19977  lapack_complex_double* AP,
19978  lapack_int* info
19979 #ifdef LAPACK_FORTRAN_STRLEN_END
19980  , size_t, size_t
19981 #endif
19982 );
19983 #ifdef LAPACK_FORTRAN_STRLEN_END
19984  #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__, 1, 1)
19985 #else
19986  #define LAPACK_ztfttp(...) LAPACK_ztfttp_base(__VA_ARGS__)
19987 #endif
19988 
19989 #define LAPACK_ctfttr_base LAPACK_GLOBAL(ctfttr,CTFTTR)
19990 void LAPACK_ctfttr_base(
19991  char const* transr, char const* uplo,
19992  lapack_int const* n,
19993  lapack_complex_float const* ARF,
19994  lapack_complex_float* A, lapack_int const* lda,
19995  lapack_int* info
19996 #ifdef LAPACK_FORTRAN_STRLEN_END
19997  , size_t, size_t
19998 #endif
19999 );
20000 #ifdef LAPACK_FORTRAN_STRLEN_END
20001  #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__, 1, 1)
20002 #else
20003  #define LAPACK_ctfttr(...) LAPACK_ctfttr_base(__VA_ARGS__)
20004 #endif
20005 
20006 #define LAPACK_dtfttr_base LAPACK_GLOBAL(dtfttr,DTFTTR)
20007 void LAPACK_dtfttr_base(
20008  char const* transr, char const* uplo,
20009  lapack_int const* n,
20010  double const* ARF,
20011  double* A, lapack_int const* lda,
20012  lapack_int* info
20013 #ifdef LAPACK_FORTRAN_STRLEN_END
20014  , size_t, size_t
20015 #endif
20016 );
20017 #ifdef LAPACK_FORTRAN_STRLEN_END
20018  #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__, 1, 1)
20019 #else
20020  #define LAPACK_dtfttr(...) LAPACK_dtfttr_base(__VA_ARGS__)
20021 #endif
20022 
20023 #define LAPACK_stfttr_base LAPACK_GLOBAL(stfttr,STFTTR)
20024 void LAPACK_stfttr_base(
20025  char const* transr, char const* uplo,
20026  lapack_int const* n,
20027  float const* ARF,
20028  float* A, lapack_int const* lda,
20029  lapack_int* info
20030 #ifdef LAPACK_FORTRAN_STRLEN_END
20031  , size_t, size_t
20032 #endif
20033 );
20034 #ifdef LAPACK_FORTRAN_STRLEN_END
20035  #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__, 1, 1)
20036 #else
20037  #define LAPACK_stfttr(...) LAPACK_stfttr_base(__VA_ARGS__)
20038 #endif
20039 
20040 #define LAPACK_ztfttr_base LAPACK_GLOBAL(ztfttr,ZTFTTR)
20041 void LAPACK_ztfttr_base(
20042  char const* transr, char const* uplo,
20043  lapack_int const* n,
20044  lapack_complex_double const* ARF,
20045  lapack_complex_double* A, lapack_int const* lda,
20046  lapack_int* info
20047 #ifdef LAPACK_FORTRAN_STRLEN_END
20048  , size_t, size_t
20049 #endif
20050 );
20051 #ifdef LAPACK_FORTRAN_STRLEN_END
20052  #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__, 1, 1)
20053 #else
20054  #define LAPACK_ztfttr(...) LAPACK_ztfttr_base(__VA_ARGS__)
20055 #endif
20056 
20057 #define LAPACK_ctgevc_base LAPACK_GLOBAL(ctgevc,CTGEVC)
20058 void LAPACK_ctgevc_base(
20059  char const* side, char const* howmny,
20060  lapack_logical const* select,
20061  lapack_int const* n,
20062  lapack_complex_float const* S, lapack_int const* lds,
20063  lapack_complex_float const* P, lapack_int const* ldp,
20064  lapack_complex_float* VL, lapack_int const* ldvl,
20065  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20066  lapack_complex_float* work,
20067  float* rwork,
20068  lapack_int* info
20069 #ifdef LAPACK_FORTRAN_STRLEN_END
20070  , size_t, size_t
20071 #endif
20072 );
20073 #ifdef LAPACK_FORTRAN_STRLEN_END
20074  #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__, 1, 1)
20075 #else
20076  #define LAPACK_ctgevc(...) LAPACK_ctgevc_base(__VA_ARGS__)
20077 #endif
20078 
20079 #define LAPACK_dtgevc_base LAPACK_GLOBAL(dtgevc,DTGEVC)
20080 void LAPACK_dtgevc_base(
20081  char const* side, char const* howmny,
20082  lapack_logical const* select,
20083  lapack_int const* n,
20084  double const* S, lapack_int const* lds,
20085  double const* P, lapack_int const* ldp,
20086  double* VL, lapack_int const* ldvl,
20087  double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20088  double* work,
20089  lapack_int* info
20090 #ifdef LAPACK_FORTRAN_STRLEN_END
20091  , size_t, size_t
20092 #endif
20093 );
20094 #ifdef LAPACK_FORTRAN_STRLEN_END
20095  #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__, 1, 1)
20096 #else
20097  #define LAPACK_dtgevc(...) LAPACK_dtgevc_base(__VA_ARGS__)
20098 #endif
20099 
20100 #define LAPACK_stgevc_base LAPACK_GLOBAL(stgevc,STGEVC)
20101 void LAPACK_stgevc_base(
20102  char const* side, char const* howmny,
20103  lapack_logical const* select,
20104  lapack_int const* n,
20105  float const* S, lapack_int const* lds,
20106  float const* P, lapack_int const* ldp,
20107  float* VL, lapack_int const* ldvl,
20108  float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20109  float* work,
20110  lapack_int* info
20111 #ifdef LAPACK_FORTRAN_STRLEN_END
20112  , size_t, size_t
20113 #endif
20114 );
20115 #ifdef LAPACK_FORTRAN_STRLEN_END
20116  #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__, 1, 1)
20117 #else
20118  #define LAPACK_stgevc(...) LAPACK_stgevc_base(__VA_ARGS__)
20119 #endif
20120 
20121 #define LAPACK_ztgevc_base LAPACK_GLOBAL(ztgevc,ZTGEVC)
20122 void LAPACK_ztgevc_base(
20123  char const* side, char const* howmny,
20124  lapack_logical const* select,
20125  lapack_int const* n,
20126  lapack_complex_double const* S, lapack_int const* lds,
20127  lapack_complex_double const* P, lapack_int const* ldp,
20128  lapack_complex_double* VL, lapack_int const* ldvl,
20129  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
20130  lapack_complex_double* work,
20131  double* rwork,
20132  lapack_int* info
20133 #ifdef LAPACK_FORTRAN_STRLEN_END
20134  , size_t, size_t
20135 #endif
20136 );
20137 #ifdef LAPACK_FORTRAN_STRLEN_END
20138  #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__, 1, 1)
20139 #else
20140  #define LAPACK_ztgevc(...) LAPACK_ztgevc_base(__VA_ARGS__)
20141 #endif
20142 
20143 #define LAPACK_ctgexc LAPACK_GLOBAL(ctgexc,CTGEXC)
20144 void LAPACK_ctgexc(
20145  lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20146  lapack_complex_float* A, lapack_int const* lda,
20147  lapack_complex_float* B, lapack_int const* ldb,
20148  lapack_complex_float* Q, lapack_int const* ldq,
20149  lapack_complex_float* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst,
20150  lapack_int* info );
20151 
20152 #define LAPACK_dtgexc LAPACK_GLOBAL(dtgexc,DTGEXC)
20153 void LAPACK_dtgexc(
20154  lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20155  double* A, lapack_int const* lda,
20156  double* B, lapack_int const* ldb,
20157  double* Q, lapack_int const* ldq,
20158  double* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst,
20159  double* work, lapack_int const* lwork,
20160  lapack_int* info );
20161 
20162 #define LAPACK_stgexc LAPACK_GLOBAL(stgexc,STGEXC)
20163 void LAPACK_stgexc(
20164  lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20165  float* A, lapack_int const* lda,
20166  float* B, lapack_int const* ldb,
20167  float* Q, lapack_int const* ldq,
20168  float* Z, lapack_int const* ldz, lapack_int* ifst, lapack_int* ilst,
20169  float* work, lapack_int const* lwork,
20170  lapack_int* info );
20171 
20172 #define LAPACK_ztgexc LAPACK_GLOBAL(ztgexc,ZTGEXC)
20173 void LAPACK_ztgexc(
20174  lapack_logical const* wantq, lapack_logical const* wantz, lapack_int const* n,
20175  lapack_complex_double* A, lapack_int const* lda,
20176  lapack_complex_double* B, lapack_int const* ldb,
20177  lapack_complex_double* Q, lapack_int const* ldq,
20178  lapack_complex_double* Z, lapack_int const* ldz, lapack_int const* ifst, lapack_int* ilst,
20179  lapack_int* info );
20180 
20181 #define LAPACK_ctgsen LAPACK_GLOBAL(ctgsen,CTGSEN)
20182 void LAPACK_ctgsen(
20183  lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20184  lapack_complex_float* A, lapack_int const* lda,
20185  lapack_complex_float* B, lapack_int const* ldb,
20186  lapack_complex_float* alpha,
20187  lapack_complex_float* beta,
20188  lapack_complex_float* Q, lapack_int const* ldq,
20189  lapack_complex_float* Z, lapack_int const* ldz, lapack_int* m,
20190  float* pl,
20191  float* pr,
20192  float* DIF,
20193  lapack_complex_float* work, lapack_int const* lwork,
20194  lapack_int* iwork, lapack_int const* liwork,
20195  lapack_int* info );
20196 
20197 #define LAPACK_dtgsen LAPACK_GLOBAL(dtgsen,DTGSEN)
20198 void LAPACK_dtgsen(
20199  lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20200  double* A, lapack_int const* lda,
20201  double* B, lapack_int const* ldb,
20202  double* alphar,
20203  double* alphai,
20204  double* beta,
20205  double* Q, lapack_int const* ldq,
20206  double* Z, lapack_int const* ldz, lapack_int* m,
20207  double* pl,
20208  double* pr,
20209  double* DIF,
20210  double* work, lapack_int const* lwork,
20211  lapack_int* iwork, lapack_int const* liwork,
20212  lapack_int* info );
20213 
20214 #define LAPACK_stgsen LAPACK_GLOBAL(stgsen,STGSEN)
20215 void LAPACK_stgsen(
20216  lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20217  float* A, lapack_int const* lda,
20218  float* B, lapack_int const* ldb,
20219  float* alphar,
20220  float* alphai,
20221  float* beta,
20222  float* Q, lapack_int const* ldq,
20223  float* Z, lapack_int const* ldz, lapack_int* m,
20224  float* pl,
20225  float* pr,
20226  float* DIF,
20227  float* work, lapack_int const* lwork,
20228  lapack_int* iwork, lapack_int const* liwork,
20229  lapack_int* info );
20230 
20231 #define LAPACK_ztgsen LAPACK_GLOBAL(ztgsen,ZTGSEN)
20232 void LAPACK_ztgsen(
20233  lapack_int const* ijob, lapack_logical const* wantq, lapack_logical const* wantz, lapack_logical const* select, lapack_int const* n,
20234  lapack_complex_double* A, lapack_int const* lda,
20235  lapack_complex_double* B, lapack_int const* ldb,
20236  lapack_complex_double* alpha,
20237  lapack_complex_double* beta,
20238  lapack_complex_double* Q, lapack_int const* ldq,
20239  lapack_complex_double* Z, lapack_int const* ldz, lapack_int* m,
20240  double* pl,
20241  double* pr,
20242  double* DIF,
20243  lapack_complex_double* work, lapack_int const* lwork,
20244  lapack_int* iwork, lapack_int const* liwork,
20245  lapack_int* info );
20246 
20247 #define LAPACK_ctgsja_base LAPACK_GLOBAL(ctgsja,CTGSJA)
20248 void LAPACK_ctgsja_base(
20249  char const* jobu, char const* jobv, char const* jobq,
20250  lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20251  lapack_complex_float* A, lapack_int const* lda,
20252  lapack_complex_float* B, lapack_int const* ldb,
20253  float const* tola,
20254  float const* tolb,
20255  float* alpha,
20256  float* beta,
20257  lapack_complex_float* U, lapack_int const* ldu,
20258  lapack_complex_float* V, lapack_int const* ldv,
20259  lapack_complex_float* Q, lapack_int const* ldq,
20260  lapack_complex_float* work, lapack_int* ncycle,
20261  lapack_int* info
20262 #ifdef LAPACK_FORTRAN_STRLEN_END
20263  , size_t, size_t, size_t
20264 #endif
20265 );
20266 #ifdef LAPACK_FORTRAN_STRLEN_END
20267  #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__, 1, 1, 1)
20268 #else
20269  #define LAPACK_ctgsja(...) LAPACK_ctgsja_base(__VA_ARGS__)
20270 #endif
20271 
20272 #define LAPACK_dtgsja_base LAPACK_GLOBAL(dtgsja,DTGSJA)
20273 void LAPACK_dtgsja_base(
20274  char const* jobu, char const* jobv, char const* jobq,
20275  lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20276  double* A, lapack_int const* lda,
20277  double* B, lapack_int const* ldb,
20278  double const* tola,
20279  double const* tolb,
20280  double* alpha,
20281  double* beta,
20282  double* U, lapack_int const* ldu,
20283  double* V, lapack_int const* ldv,
20284  double* Q, lapack_int const* ldq,
20285  double* work, lapack_int* ncycle,
20286  lapack_int* info
20287 #ifdef LAPACK_FORTRAN_STRLEN_END
20288  , size_t, size_t, size_t
20289 #endif
20290 );
20291 #ifdef LAPACK_FORTRAN_STRLEN_END
20292  #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__, 1, 1, 1)
20293 #else
20294  #define LAPACK_dtgsja(...) LAPACK_dtgsja_base(__VA_ARGS__)
20295 #endif
20296 
20297 #define LAPACK_stgsja_base LAPACK_GLOBAL(stgsja,STGSJA)
20298 void LAPACK_stgsja_base(
20299  char const* jobu, char const* jobv, char const* jobq,
20300  lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20301  float* A, lapack_int const* lda,
20302  float* B, lapack_int const* ldb,
20303  float const* tola,
20304  float const* tolb,
20305  float* alpha,
20306  float* beta,
20307  float* U, lapack_int const* ldu,
20308  float* V, lapack_int const* ldv,
20309  float* Q, lapack_int const* ldq,
20310  float* work, lapack_int* ncycle,
20311  lapack_int* info
20312 #ifdef LAPACK_FORTRAN_STRLEN_END
20313  , size_t, size_t, size_t
20314 #endif
20315 );
20316 #ifdef LAPACK_FORTRAN_STRLEN_END
20317  #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__, 1, 1, 1)
20318 #else
20319  #define LAPACK_stgsja(...) LAPACK_stgsja_base(__VA_ARGS__)
20320 #endif
20321 
20322 #define LAPACK_ztgsja_base LAPACK_GLOBAL(ztgsja,ZTGSJA)
20323 void LAPACK_ztgsja_base(
20324  char const* jobu, char const* jobv, char const* jobq,
20325  lapack_int const* m, lapack_int const* p, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20326  lapack_complex_double* A, lapack_int const* lda,
20327  lapack_complex_double* B, lapack_int const* ldb,
20328  double const* tola,
20329  double const* tolb,
20330  double* alpha,
20331  double* beta,
20332  lapack_complex_double* U, lapack_int const* ldu,
20333  lapack_complex_double* V, lapack_int const* ldv,
20334  lapack_complex_double* Q, lapack_int const* ldq,
20335  lapack_complex_double* work, lapack_int* ncycle,
20336  lapack_int* info
20337 #ifdef LAPACK_FORTRAN_STRLEN_END
20338  , size_t, size_t, size_t
20339 #endif
20340 );
20341 #ifdef LAPACK_FORTRAN_STRLEN_END
20342  #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__, 1, 1, 1)
20343 #else
20344  #define LAPACK_ztgsja(...) LAPACK_ztgsja_base(__VA_ARGS__)
20345 #endif
20346 
20347 #define LAPACK_ctgsna_base LAPACK_GLOBAL(ctgsna,CTGSNA)
20348 void LAPACK_ctgsna_base(
20349  char const* job, char const* howmny,
20350  lapack_logical const* select,
20351  lapack_int const* n,
20352  lapack_complex_float const* A, lapack_int const* lda,
20353  lapack_complex_float const* B, lapack_int const* ldb,
20354  lapack_complex_float const* VL, lapack_int const* ldvl,
20355  lapack_complex_float const* VR, lapack_int const* ldvr,
20356  float* S,
20357  float* DIF, lapack_int const* mm, lapack_int* m,
20358  lapack_complex_float* work, lapack_int const* lwork,
20359  lapack_int* iwork,
20360  lapack_int* info
20361 #ifdef LAPACK_FORTRAN_STRLEN_END
20362  , size_t, size_t
20363 #endif
20364 );
20365 #ifdef LAPACK_FORTRAN_STRLEN_END
20366  #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__, 1, 1)
20367 #else
20368  #define LAPACK_ctgsna(...) LAPACK_ctgsna_base(__VA_ARGS__)
20369 #endif
20370 
20371 #define LAPACK_dtgsna_base LAPACK_GLOBAL(dtgsna,DTGSNA)
20372 void LAPACK_dtgsna_base(
20373  char const* job, char const* howmny,
20374  lapack_logical const* select,
20375  lapack_int const* n,
20376  double const* A, lapack_int const* lda,
20377  double const* B, lapack_int const* ldb,
20378  double const* VL, lapack_int const* ldvl,
20379  double const* VR, lapack_int const* ldvr,
20380  double* S,
20381  double* DIF, lapack_int const* mm, lapack_int* m,
20382  double* work, lapack_int const* lwork,
20383  lapack_int* iwork,
20384  lapack_int* info
20385 #ifdef LAPACK_FORTRAN_STRLEN_END
20386  , size_t, size_t
20387 #endif
20388 );
20389 #ifdef LAPACK_FORTRAN_STRLEN_END
20390  #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__, 1, 1)
20391 #else
20392  #define LAPACK_dtgsna(...) LAPACK_dtgsna_base(__VA_ARGS__)
20393 #endif
20394 
20395 #define LAPACK_stgsna_base LAPACK_GLOBAL(stgsna,STGSNA)
20396 void LAPACK_stgsna_base(
20397  char const* job, char const* howmny,
20398  lapack_logical const* select,
20399  lapack_int const* n,
20400  float const* A, lapack_int const* lda,
20401  float const* B, lapack_int const* ldb,
20402  float const* VL, lapack_int const* ldvl,
20403  float const* VR, lapack_int const* ldvr,
20404  float* S,
20405  float* DIF, lapack_int const* mm, lapack_int* m,
20406  float* work, lapack_int const* lwork,
20407  lapack_int* iwork,
20408  lapack_int* info
20409 #ifdef LAPACK_FORTRAN_STRLEN_END
20410  , size_t, size_t
20411 #endif
20412 );
20413 #ifdef LAPACK_FORTRAN_STRLEN_END
20414  #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__, 1, 1)
20415 #else
20416  #define LAPACK_stgsna(...) LAPACK_stgsna_base(__VA_ARGS__)
20417 #endif
20418 
20419 #define LAPACK_ztgsna_base LAPACK_GLOBAL(ztgsna,ZTGSNA)
20420 void LAPACK_ztgsna_base(
20421  char const* job, char const* howmny,
20422  lapack_logical const* select,
20423  lapack_int const* n,
20424  lapack_complex_double const* A, lapack_int const* lda,
20425  lapack_complex_double const* B, lapack_int const* ldb,
20426  lapack_complex_double const* VL, lapack_int const* ldvl,
20427  lapack_complex_double const* VR, lapack_int const* ldvr,
20428  double* S,
20429  double* DIF, lapack_int const* mm, lapack_int* m,
20430  lapack_complex_double* work, lapack_int const* lwork,
20431  lapack_int* iwork,
20432  lapack_int* info
20433 #ifdef LAPACK_FORTRAN_STRLEN_END
20434  , size_t, size_t
20435 #endif
20436 );
20437 #ifdef LAPACK_FORTRAN_STRLEN_END
20438  #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__, 1, 1)
20439 #else
20440  #define LAPACK_ztgsna(...) LAPACK_ztgsna_base(__VA_ARGS__)
20441 #endif
20442 
20443 #define LAPACK_ctgsyl_base LAPACK_GLOBAL(ctgsyl,CTGSYL)
20444 void LAPACK_ctgsyl_base(
20445  char const* trans,
20446  lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20447  lapack_complex_float const* A, lapack_int const* lda,
20448  lapack_complex_float const* B, lapack_int const* ldb,
20449  lapack_complex_float* C, lapack_int const* ldc,
20450  lapack_complex_float const* D, lapack_int const* ldd,
20451  lapack_complex_float const* E, lapack_int const* lde,
20452  lapack_complex_float* F, lapack_int const* ldf,
20453  float* dif,
20454  float* scale,
20455  lapack_complex_float* work, lapack_int const* lwork,
20456  lapack_int* iwork,
20457  lapack_int* info
20458 #ifdef LAPACK_FORTRAN_STRLEN_END
20459  , size_t
20460 #endif
20461 );
20462 #ifdef LAPACK_FORTRAN_STRLEN_END
20463  #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__, 1)
20464 #else
20465  #define LAPACK_ctgsyl(...) LAPACK_ctgsyl_base(__VA_ARGS__)
20466 #endif
20467 
20468 #define LAPACK_dtgsyl_base LAPACK_GLOBAL(dtgsyl,DTGSYL)
20469 void LAPACK_dtgsyl_base(
20470  char const* trans,
20471  lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20472  double const* A, lapack_int const* lda,
20473  double const* B, lapack_int const* ldb,
20474  double* C, lapack_int const* ldc,
20475  double const* D, lapack_int const* ldd,
20476  double const* E, lapack_int const* lde,
20477  double* F, lapack_int const* ldf,
20478  double* dif,
20479  double* scale,
20480  double* work, lapack_int const* lwork,
20481  lapack_int* iwork,
20482  lapack_int* info
20483 #ifdef LAPACK_FORTRAN_STRLEN_END
20484  , size_t
20485 #endif
20486 );
20487 #ifdef LAPACK_FORTRAN_STRLEN_END
20488  #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__, 1)
20489 #else
20490  #define LAPACK_dtgsyl(...) LAPACK_dtgsyl_base(__VA_ARGS__)
20491 #endif
20492 
20493 #define LAPACK_stgsyl_base LAPACK_GLOBAL(stgsyl,STGSYL)
20494 void LAPACK_stgsyl_base(
20495  char const* trans,
20496  lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20497  float const* A, lapack_int const* lda,
20498  float const* B, lapack_int const* ldb,
20499  float* C, lapack_int const* ldc,
20500  float const* D, lapack_int const* ldd,
20501  float const* E, lapack_int const* lde,
20502  float* F, lapack_int const* ldf,
20503  float* dif,
20504  float* scale,
20505  float* work, lapack_int const* lwork,
20506  lapack_int* iwork,
20507  lapack_int* info
20508 #ifdef LAPACK_FORTRAN_STRLEN_END
20509  , size_t
20510 #endif
20511 );
20512 #ifdef LAPACK_FORTRAN_STRLEN_END
20513  #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__, 1)
20514 #else
20515  #define LAPACK_stgsyl(...) LAPACK_stgsyl_base(__VA_ARGS__)
20516 #endif
20517 
20518 #define LAPACK_ztgsyl_base LAPACK_GLOBAL(ztgsyl,ZTGSYL)
20519 void LAPACK_ztgsyl_base(
20520  char const* trans,
20521  lapack_int const* ijob, lapack_int const* m, lapack_int const* n,
20522  lapack_complex_double const* A, lapack_int const* lda,
20523  lapack_complex_double const* B, lapack_int const* ldb,
20524  lapack_complex_double* C, lapack_int const* ldc,
20525  lapack_complex_double const* D, lapack_int const* ldd,
20526  lapack_complex_double const* E, lapack_int const* lde,
20527  lapack_complex_double* F, lapack_int const* ldf,
20528  double* dif,
20529  double* scale,
20530  lapack_complex_double* work, lapack_int const* lwork,
20531  lapack_int* iwork,
20532  lapack_int* info
20533 #ifdef LAPACK_FORTRAN_STRLEN_END
20534  , size_t
20535 #endif
20536 );
20537 #ifdef LAPACK_FORTRAN_STRLEN_END
20538  #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__, 1)
20539 #else
20540  #define LAPACK_ztgsyl(...) LAPACK_ztgsyl_base(__VA_ARGS__)
20541 #endif
20542 
20543 #define LAPACK_ctpcon_base LAPACK_GLOBAL(ctpcon,CTPCON)
20544 void LAPACK_ctpcon_base(
20545  char const* norm, char const* uplo, char const* diag,
20546  lapack_int const* n,
20547  lapack_complex_float const* AP,
20548  float* rcond,
20549  lapack_complex_float* work,
20550  float* rwork,
20551  lapack_int* info
20552 #ifdef LAPACK_FORTRAN_STRLEN_END
20553  , size_t, size_t, size_t
20554 #endif
20555 );
20556 #ifdef LAPACK_FORTRAN_STRLEN_END
20557  #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__, 1, 1, 1)
20558 #else
20559  #define LAPACK_ctpcon(...) LAPACK_ctpcon_base(__VA_ARGS__)
20560 #endif
20561 
20562 #define LAPACK_dtpcon_base LAPACK_GLOBAL(dtpcon,DTPCON)
20563 void LAPACK_dtpcon_base(
20564  char const* norm, char const* uplo, char const* diag,
20565  lapack_int const* n,
20566  double const* AP,
20567  double* rcond,
20568  double* work,
20569  lapack_int* iwork,
20570  lapack_int* info
20571 #ifdef LAPACK_FORTRAN_STRLEN_END
20572  , size_t, size_t, size_t
20573 #endif
20574 );
20575 #ifdef LAPACK_FORTRAN_STRLEN_END
20576  #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__, 1, 1, 1)
20577 #else
20578  #define LAPACK_dtpcon(...) LAPACK_dtpcon_base(__VA_ARGS__)
20579 #endif
20580 
20581 #define LAPACK_stpcon_base LAPACK_GLOBAL(stpcon,STPCON)
20582 void LAPACK_stpcon_base(
20583  char const* norm, char const* uplo, char const* diag,
20584  lapack_int const* n,
20585  float const* AP,
20586  float* rcond,
20587  float* work,
20588  lapack_int* iwork,
20589  lapack_int* info
20590 #ifdef LAPACK_FORTRAN_STRLEN_END
20591  , size_t, size_t, size_t
20592 #endif
20593 );
20594 #ifdef LAPACK_FORTRAN_STRLEN_END
20595  #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__, 1, 1, 1)
20596 #else
20597  #define LAPACK_stpcon(...) LAPACK_stpcon_base(__VA_ARGS__)
20598 #endif
20599 
20600 #define LAPACK_ztpcon_base LAPACK_GLOBAL(ztpcon,ZTPCON)
20601 void LAPACK_ztpcon_base(
20602  char const* norm, char const* uplo, char const* diag,
20603  lapack_int const* n,
20604  lapack_complex_double const* AP,
20605  double* rcond,
20606  lapack_complex_double* work,
20607  double* rwork,
20608  lapack_int* info
20609 #ifdef LAPACK_FORTRAN_STRLEN_END
20610  , size_t, size_t, size_t
20611 #endif
20612 );
20613 #ifdef LAPACK_FORTRAN_STRLEN_END
20614  #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__, 1, 1, 1)
20615 #else
20616  #define LAPACK_ztpcon(...) LAPACK_ztpcon_base(__VA_ARGS__)
20617 #endif
20618 
20619 #define LAPACK_ctplqt LAPACK_GLOBAL(ctplqt,CTPLQT)
20620 void LAPACK_ctplqt(
20621  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20622  lapack_complex_float* A, lapack_int const* lda,
20623  lapack_complex_float* B, lapack_int const* ldb,
20624  lapack_complex_float* T, lapack_int const* ldt,
20625  lapack_complex_float* work,
20626  lapack_int* info );
20627 
20628 #define LAPACK_dtplqt LAPACK_GLOBAL(dtplqt,DTPLQT)
20629 void LAPACK_dtplqt(
20630  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20631  double* A, lapack_int const* lda,
20632  double* B, lapack_int const* ldb,
20633  double* T, lapack_int const* ldt,
20634  double* work,
20635  lapack_int* info );
20636 
20637 #define LAPACK_stplqt LAPACK_GLOBAL(stplqt,STPLQT)
20638 void LAPACK_stplqt(
20639  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20640  float* A, lapack_int const* lda,
20641  float* B, lapack_int const* ldb,
20642  float* T, lapack_int const* ldt,
20643  float* work,
20644  lapack_int* info );
20645 
20646 #define LAPACK_ztplqt LAPACK_GLOBAL(ztplqt,ZTPLQT)
20647 void LAPACK_ztplqt(
20648  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* mb,
20649  lapack_complex_double* A, lapack_int const* lda,
20650  lapack_complex_double* B, lapack_int const* ldb,
20651  lapack_complex_double* T, lapack_int const* ldt,
20652  lapack_complex_double* work,
20653  lapack_int* info );
20654 
20655 #define LAPACK_ctplqt2 LAPACK_GLOBAL(ctplqt2,CTPLQT2)
20656 void LAPACK_ctplqt2(
20657  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20658  lapack_complex_float* A, lapack_int const* lda,
20659  lapack_complex_float* B, lapack_int const* ldb,
20660  lapack_complex_float* T, lapack_int const* ldt,
20661  lapack_int* info );
20662 
20663 #define LAPACK_dtplqt2 LAPACK_GLOBAL(dtplqt2,DTPLQT2)
20664 void LAPACK_dtplqt2(
20665  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20666  double* A, lapack_int const* lda,
20667  double* B, lapack_int const* ldb,
20668  double* T, lapack_int const* ldt,
20669  lapack_int* info );
20670 
20671 #define LAPACK_stplqt2 LAPACK_GLOBAL(stplqt2,STPLQT2)
20672 void LAPACK_stplqt2(
20673  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20674  float* A, lapack_int const* lda,
20675  float* B, lapack_int const* ldb,
20676  float* T, lapack_int const* ldt,
20677  lapack_int* info );
20678 
20679 #define LAPACK_ztplqt2 LAPACK_GLOBAL(ztplqt2,ZTPLQT2)
20680 void LAPACK_ztplqt2(
20681  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20682  lapack_complex_double* A, lapack_int const* lda,
20683  lapack_complex_double* B, lapack_int const* ldb,
20684  lapack_complex_double* T, lapack_int const* ldt,
20685  lapack_int* info );
20686 
20687 #define LAPACK_ctpmlqt_base LAPACK_GLOBAL(ctpmlqt,CTPMLQT)
20688 void LAPACK_ctpmlqt_base(
20689  char const* side, char const* trans,
20690  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20691  lapack_complex_float const* V, lapack_int const* ldv,
20692  lapack_complex_float const* T, lapack_int const* ldt,
20693  lapack_complex_float* A, lapack_int const* lda,
20694  lapack_complex_float* B, lapack_int const* ldb,
20695  lapack_complex_float* work,
20696  lapack_int* info
20697 #ifdef LAPACK_FORTRAN_STRLEN_END
20698  , size_t, size_t
20699 #endif
20700 );
20701 #ifdef LAPACK_FORTRAN_STRLEN_END
20702  #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__, 1, 1)
20703 #else
20704  #define LAPACK_ctpmlqt(...) LAPACK_ctpmlqt_base(__VA_ARGS__)
20705 #endif
20706 
20707 #define LAPACK_dtpmlqt_base LAPACK_GLOBAL(dtpmlqt,DTPMLQT)
20708 void LAPACK_dtpmlqt_base(
20709  char const* side, char const* trans,
20710  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20711  double const* V, lapack_int const* ldv,
20712  double const* T, lapack_int const* ldt,
20713  double* A, lapack_int const* lda,
20714  double* B, lapack_int const* ldb,
20715  double* work,
20716  lapack_int* info
20717 #ifdef LAPACK_FORTRAN_STRLEN_END
20718  , size_t, size_t
20719 #endif
20720 );
20721 #ifdef LAPACK_FORTRAN_STRLEN_END
20722  #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__, 1, 1)
20723 #else
20724  #define LAPACK_dtpmlqt(...) LAPACK_dtpmlqt_base(__VA_ARGS__)
20725 #endif
20726 
20727 #define LAPACK_stpmlqt_base LAPACK_GLOBAL(stpmlqt,STPMLQT)
20728 void LAPACK_stpmlqt_base(
20729  char const* side, char const* trans,
20730  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20731  float const* V, lapack_int const* ldv,
20732  float const* T, lapack_int const* ldt,
20733  float* A, lapack_int const* lda,
20734  float* B, lapack_int const* ldb,
20735  float* work,
20736  lapack_int* info
20737 #ifdef LAPACK_FORTRAN_STRLEN_END
20738  , size_t, size_t
20739 #endif
20740 );
20741 #ifdef LAPACK_FORTRAN_STRLEN_END
20742  #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__, 1, 1)
20743 #else
20744  #define LAPACK_stpmlqt(...) LAPACK_stpmlqt_base(__VA_ARGS__)
20745 #endif
20746 
20747 #define LAPACK_ztpmlqt_base LAPACK_GLOBAL(ztpmlqt,ZTPMLQT)
20748 void LAPACK_ztpmlqt_base(
20749  char const* side, char const* trans,
20750  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* mb,
20751  lapack_complex_double const* V, lapack_int const* ldv,
20752  lapack_complex_double const* T, lapack_int const* ldt,
20753  lapack_complex_double* A, lapack_int const* lda,
20754  lapack_complex_double* B, lapack_int const* ldb,
20755  lapack_complex_double* work,
20756  lapack_int* info
20757 #ifdef LAPACK_FORTRAN_STRLEN_END
20758  , size_t, size_t
20759 #endif
20760 );
20761 #ifdef LAPACK_FORTRAN_STRLEN_END
20762  #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__, 1, 1)
20763 #else
20764  #define LAPACK_ztpmlqt(...) LAPACK_ztpmlqt_base(__VA_ARGS__)
20765 #endif
20766 
20767 #define LAPACK_ctpmqrt_base LAPACK_GLOBAL(ctpmqrt,CTPMQRT)
20768 void LAPACK_ctpmqrt_base(
20769  char const* side, char const* trans,
20770  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
20771  lapack_complex_float const* V, lapack_int const* ldv,
20772  lapack_complex_float const* T, lapack_int const* ldt,
20773  lapack_complex_float* A, lapack_int const* lda,
20774  lapack_complex_float* B, lapack_int const* ldb,
20775  lapack_complex_float* work,
20776  lapack_int* info
20777 #ifdef LAPACK_FORTRAN_STRLEN_END
20778  , size_t, size_t
20779 #endif
20780 );
20781 #ifdef LAPACK_FORTRAN_STRLEN_END
20782  #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__, 1, 1)
20783 #else
20784  #define LAPACK_ctpmqrt(...) LAPACK_ctpmqrt_base(__VA_ARGS__)
20785 #endif
20786 
20787 #define LAPACK_dtpmqrt_base LAPACK_GLOBAL(dtpmqrt,DTPMQRT)
20788 void LAPACK_dtpmqrt_base(
20789  char const* side, char const* trans,
20790  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
20791  double const* V, lapack_int const* ldv,
20792  double const* T, lapack_int const* ldt,
20793  double* A, lapack_int const* lda,
20794  double* B, lapack_int const* ldb,
20795  double* work,
20796  lapack_int* info
20797 #ifdef LAPACK_FORTRAN_STRLEN_END
20798  , size_t, size_t
20799 #endif
20800 );
20801 #ifdef LAPACK_FORTRAN_STRLEN_END
20802  #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__, 1, 1)
20803 #else
20804  #define LAPACK_dtpmqrt(...) LAPACK_dtpmqrt_base(__VA_ARGS__)
20805 #endif
20806 
20807 #define LAPACK_stpmqrt_base LAPACK_GLOBAL(stpmqrt,STPMQRT)
20808 void LAPACK_stpmqrt_base(
20809  char const* side, char const* trans,
20810  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
20811  float const* V, lapack_int const* ldv,
20812  float const* T, lapack_int const* ldt,
20813  float* A, lapack_int const* lda,
20814  float* B, lapack_int const* ldb,
20815  float* work,
20816  lapack_int* info
20817 #ifdef LAPACK_FORTRAN_STRLEN_END
20818  , size_t, size_t
20819 #endif
20820 );
20821 #ifdef LAPACK_FORTRAN_STRLEN_END
20822  #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__, 1, 1)
20823 #else
20824  #define LAPACK_stpmqrt(...) LAPACK_stpmqrt_base(__VA_ARGS__)
20825 #endif
20826 
20827 #define LAPACK_ztpmqrt_base LAPACK_GLOBAL(ztpmqrt,ZTPMQRT)
20828 void LAPACK_ztpmqrt_base(
20829  char const* side, char const* trans,
20830  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l, lapack_int const* nb,
20831  lapack_complex_double const* V, lapack_int const* ldv,
20832  lapack_complex_double const* T, lapack_int const* ldt,
20833  lapack_complex_double* A, lapack_int const* lda,
20834  lapack_complex_double* B, lapack_int const* ldb,
20835  lapack_complex_double* work,
20836  lapack_int* info
20837 #ifdef LAPACK_FORTRAN_STRLEN_END
20838  , size_t, size_t
20839 #endif
20840 );
20841 #ifdef LAPACK_FORTRAN_STRLEN_END
20842  #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__, 1, 1)
20843 #else
20844  #define LAPACK_ztpmqrt(...) LAPACK_ztpmqrt_base(__VA_ARGS__)
20845 #endif
20846 
20847 #define LAPACK_ctpqrt LAPACK_GLOBAL(ctpqrt,CTPQRT)
20848 void LAPACK_ctpqrt(
20849  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20850  lapack_complex_float* A, lapack_int const* lda,
20851  lapack_complex_float* B, lapack_int const* ldb,
20852  lapack_complex_float* T, lapack_int const* ldt,
20853  lapack_complex_float* work,
20854  lapack_int* info );
20855 
20856 #define LAPACK_dtpqrt LAPACK_GLOBAL(dtpqrt,DTPQRT)
20857 void LAPACK_dtpqrt(
20858  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20859  double* A, lapack_int const* lda,
20860  double* B, lapack_int const* ldb,
20861  double* T, lapack_int const* ldt,
20862  double* work,
20863  lapack_int* info );
20864 
20865 #define LAPACK_stpqrt LAPACK_GLOBAL(stpqrt,STPQRT)
20866 void LAPACK_stpqrt(
20867  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20868  float* A, lapack_int const* lda,
20869  float* B, lapack_int const* ldb,
20870  float* T, lapack_int const* ldt,
20871  float* work,
20872  lapack_int* info );
20873 
20874 #define LAPACK_ztpqrt LAPACK_GLOBAL(ztpqrt,ZTPQRT)
20875 void LAPACK_ztpqrt(
20876  lapack_int const* m, lapack_int const* n, lapack_int const* l, lapack_int const* nb,
20877  lapack_complex_double* A, lapack_int const* lda,
20878  lapack_complex_double* B, lapack_int const* ldb,
20879  lapack_complex_double* T, lapack_int const* ldt,
20880  lapack_complex_double* work,
20881  lapack_int* info );
20882 
20883 #define LAPACK_ctpqrt2 LAPACK_GLOBAL(ctpqrt2,CTPQRT2)
20884 void LAPACK_ctpqrt2(
20885  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20886  lapack_complex_float* A, lapack_int const* lda,
20887  lapack_complex_float* B, lapack_int const* ldb,
20888  lapack_complex_float* T, lapack_int const* ldt,
20889  lapack_int* info );
20890 
20891 #define LAPACK_dtpqrt2 LAPACK_GLOBAL(dtpqrt2,DTPQRT2)
20892 void LAPACK_dtpqrt2(
20893  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20894  double* A, lapack_int const* lda,
20895  double* B, lapack_int const* ldb,
20896  double* T, lapack_int const* ldt,
20897  lapack_int* info );
20898 
20899 #define LAPACK_stpqrt2 LAPACK_GLOBAL(stpqrt2,STPQRT2)
20900 void LAPACK_stpqrt2(
20901  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20902  float* A, lapack_int const* lda,
20903  float* B, lapack_int const* ldb,
20904  float* T, lapack_int const* ldt,
20905  lapack_int* info );
20906 
20907 #define LAPACK_ztpqrt2 LAPACK_GLOBAL(ztpqrt2,ZTPQRT2)
20908 void LAPACK_ztpqrt2(
20909  lapack_int const* m, lapack_int const* n, lapack_int const* l,
20910  lapack_complex_double* A, lapack_int const* lda,
20911  lapack_complex_double* B, lapack_int const* ldb,
20912  lapack_complex_double* T, lapack_int const* ldt,
20913  lapack_int* info );
20914 
20915 #define LAPACK_ctprfb_base LAPACK_GLOBAL(ctprfb,CTPRFB)
20916 void LAPACK_ctprfb_base(
20917  char const* side, char const* trans, char const* direct, char const* storev,
20918  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20919  lapack_complex_float const* V, lapack_int const* ldv,
20920  lapack_complex_float const* T, lapack_int const* ldt,
20921  lapack_complex_float* A, lapack_int const* lda,
20922  lapack_complex_float* B, lapack_int const* ldb,
20923  lapack_complex_float* work, lapack_int const* ldwork
20924 #ifdef LAPACK_FORTRAN_STRLEN_END
20925  , size_t, size_t, size_t, size_t
20926 #endif
20927 );
20928 #ifdef LAPACK_FORTRAN_STRLEN_END
20929  #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20930 #else
20931  #define LAPACK_ctprfb(...) LAPACK_ctprfb_base(__VA_ARGS__)
20932 #endif
20933 
20934 #define LAPACK_dtprfb_base LAPACK_GLOBAL(dtprfb,DTPRFB)
20935 void LAPACK_dtprfb_base(
20936  char const* side, char const* trans, char const* direct, char const* storev,
20937  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20938  double const* V, lapack_int const* ldv,
20939  double const* T, lapack_int const* ldt,
20940  double* A, lapack_int const* lda,
20941  double* B, lapack_int const* ldb,
20942  double* work, lapack_int const* ldwork
20943 #ifdef LAPACK_FORTRAN_STRLEN_END
20944  , size_t, size_t, size_t, size_t
20945 #endif
20946 );
20947 #ifdef LAPACK_FORTRAN_STRLEN_END
20948  #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20949 #else
20950  #define LAPACK_dtprfb(...) LAPACK_dtprfb_base(__VA_ARGS__)
20951 #endif
20952 
20953 #define LAPACK_stprfb_base LAPACK_GLOBAL(stprfb,STPRFB)
20954 void LAPACK_stprfb_base(
20955  char const* side, char const* trans, char const* direct, char const* storev,
20956  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20957  float const* V, lapack_int const* ldv,
20958  float const* T, lapack_int const* ldt,
20959  float* A, lapack_int const* lda,
20960  float* B, lapack_int const* ldb,
20961  float* work, lapack_int const* ldwork
20962 #ifdef LAPACK_FORTRAN_STRLEN_END
20963  , size_t, size_t, size_t, size_t
20964 #endif
20965 );
20966 #ifdef LAPACK_FORTRAN_STRLEN_END
20967  #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20968 #else
20969  #define LAPACK_stprfb(...) LAPACK_stprfb_base(__VA_ARGS__)
20970 #endif
20971 
20972 #define LAPACK_ztprfb_base LAPACK_GLOBAL(ztprfb,ZTPRFB)
20973 void LAPACK_ztprfb_base(
20974  char const* side, char const* trans, char const* direct, char const* storev,
20975  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
20976  lapack_complex_double const* V, lapack_int const* ldv,
20977  lapack_complex_double const* T, lapack_int const* ldt,
20978  lapack_complex_double* A, lapack_int const* lda,
20979  lapack_complex_double* B, lapack_int const* ldb,
20980  lapack_complex_double* work, lapack_int const* ldwork
20981 #ifdef LAPACK_FORTRAN_STRLEN_END
20982  , size_t, size_t, size_t, size_t
20983 #endif
20984 );
20985 #ifdef LAPACK_FORTRAN_STRLEN_END
20986  #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__, 1, 1, 1, 1)
20987 #else
20988  #define LAPACK_ztprfb(...) LAPACK_ztprfb_base(__VA_ARGS__)
20989 #endif
20990 
20991 #define LAPACK_ctprfs_base LAPACK_GLOBAL(ctprfs,CTPRFS)
20992 void LAPACK_ctprfs_base(
20993  char const* uplo, char const* trans, char const* diag,
20994  lapack_int const* n, lapack_int const* nrhs,
20995  lapack_complex_float const* AP,
20996  lapack_complex_float const* B, lapack_int const* ldb,
20997  lapack_complex_float const* X, lapack_int const* ldx,
20998  float* ferr,
20999  float* berr,
21000  lapack_complex_float* work,
21001  float* rwork,
21002  lapack_int* info
21003 #ifdef LAPACK_FORTRAN_STRLEN_END
21004  , size_t, size_t, size_t
21005 #endif
21006 );
21007 #ifdef LAPACK_FORTRAN_STRLEN_END
21008  #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__, 1, 1, 1)
21009 #else
21010  #define LAPACK_ctprfs(...) LAPACK_ctprfs_base(__VA_ARGS__)
21011 #endif
21012 
21013 #define LAPACK_dtprfs_base LAPACK_GLOBAL(dtprfs,DTPRFS)
21014 void LAPACK_dtprfs_base(
21015  char const* uplo, char const* trans, char const* diag,
21016  lapack_int const* n, lapack_int const* nrhs,
21017  double const* AP,
21018  double const* B, lapack_int const* ldb,
21019  double const* X, lapack_int const* ldx,
21020  double* ferr,
21021  double* berr,
21022  double* work,
21023  lapack_int* iwork,
21024  lapack_int* info
21025 #ifdef LAPACK_FORTRAN_STRLEN_END
21026  , size_t, size_t, size_t
21027 #endif
21028 );
21029 #ifdef LAPACK_FORTRAN_STRLEN_END
21030  #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__, 1, 1, 1)
21031 #else
21032  #define LAPACK_dtprfs(...) LAPACK_dtprfs_base(__VA_ARGS__)
21033 #endif
21034 
21035 #define LAPACK_stprfs_base LAPACK_GLOBAL(stprfs,STPRFS)
21036 void LAPACK_stprfs_base(
21037  char const* uplo, char const* trans, char const* diag,
21038  lapack_int const* n, lapack_int const* nrhs,
21039  float const* AP,
21040  float const* B, lapack_int const* ldb,
21041  float const* X, lapack_int const* ldx,
21042  float* ferr,
21043  float* berr,
21044  float* work,
21045  lapack_int* iwork,
21046  lapack_int* info
21047 #ifdef LAPACK_FORTRAN_STRLEN_END
21048  , size_t, size_t, size_t
21049 #endif
21050 );
21051 #ifdef LAPACK_FORTRAN_STRLEN_END
21052  #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__, 1, 1, 1)
21053 #else
21054  #define LAPACK_stprfs(...) LAPACK_stprfs_base(__VA_ARGS__)
21055 #endif
21056 
21057 #define LAPACK_ztprfs_base LAPACK_GLOBAL(ztprfs,ZTPRFS)
21058 void LAPACK_ztprfs_base(
21059  char const* uplo, char const* trans, char const* diag,
21060  lapack_int const* n, lapack_int const* nrhs,
21061  lapack_complex_double const* AP,
21062  lapack_complex_double const* B, lapack_int const* ldb,
21063  lapack_complex_double const* X, lapack_int const* ldx,
21064  double* ferr,
21065  double* berr,
21066  lapack_complex_double* work,
21067  double* rwork,
21068  lapack_int* info
21069 #ifdef LAPACK_FORTRAN_STRLEN_END
21070  , size_t, size_t, size_t
21071 #endif
21072 );
21073 #ifdef LAPACK_FORTRAN_STRLEN_END
21074  #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__, 1, 1, 1)
21075 #else
21076  #define LAPACK_ztprfs(...) LAPACK_ztprfs_base(__VA_ARGS__)
21077 #endif
21078 
21079 #define LAPACK_ctptri_base LAPACK_GLOBAL(ctptri,CTPTRI)
21080 void LAPACK_ctptri_base(
21081  char const* uplo, char const* diag,
21082  lapack_int const* n,
21083  lapack_complex_float* 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_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__, 1, 1)
21091 #else
21092  #define LAPACK_ctptri(...) LAPACK_ctptri_base(__VA_ARGS__)
21093 #endif
21094 
21095 #define LAPACK_dtptri_base LAPACK_GLOBAL(dtptri,DTPTRI)
21096 void LAPACK_dtptri_base(
21097  char const* uplo, char const* diag,
21098  lapack_int const* n,
21099  double* 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_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__, 1, 1)
21107 #else
21108  #define LAPACK_dtptri(...) LAPACK_dtptri_base(__VA_ARGS__)
21109 #endif
21110 
21111 #define LAPACK_stptri_base LAPACK_GLOBAL(stptri,STPTRI)
21112 void LAPACK_stptri_base(
21113  char const* uplo, char const* diag,
21114  lapack_int const* n,
21115  float* 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_stptri(...) LAPACK_stptri_base(__VA_ARGS__, 1, 1)
21123 #else
21124  #define LAPACK_stptri(...) LAPACK_stptri_base(__VA_ARGS__)
21125 #endif
21126 
21127 #define LAPACK_ztptri_base LAPACK_GLOBAL(ztptri,ZTPTRI)
21128 void LAPACK_ztptri_base(
21129  char const* uplo, char const* diag,
21130  lapack_int const* n,
21131  lapack_complex_double* AP,
21132  lapack_int* info
21133 #ifdef LAPACK_FORTRAN_STRLEN_END
21134  , size_t, size_t
21135 #endif
21136 );
21137 #ifdef LAPACK_FORTRAN_STRLEN_END
21138  #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__, 1, 1)
21139 #else
21140  #define LAPACK_ztptri(...) LAPACK_ztptri_base(__VA_ARGS__)
21141 #endif
21142 
21143 #define LAPACK_ctptrs_base LAPACK_GLOBAL(ctptrs,CTPTRS)
21144 void LAPACK_ctptrs_base(
21145  char const* uplo, char const* trans, char const* diag,
21146  lapack_int const* n, lapack_int const* nrhs,
21147  lapack_complex_float const* AP,
21148  lapack_complex_float* B, lapack_int const* ldb,
21149  lapack_int* info
21150 #ifdef LAPACK_FORTRAN_STRLEN_END
21151  , size_t, size_t, size_t
21152 #endif
21153 );
21154 #ifdef LAPACK_FORTRAN_STRLEN_END
21155  #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__, 1, 1, 1)
21156 #else
21157  #define LAPACK_ctptrs(...) LAPACK_ctptrs_base(__VA_ARGS__)
21158 #endif
21159 
21160 #define LAPACK_dtptrs_base LAPACK_GLOBAL(dtptrs,DTPTRS)
21161 void LAPACK_dtptrs_base(
21162  char const* uplo, char const* trans, char const* diag,
21163  lapack_int const* n, lapack_int const* nrhs,
21164  double const* AP,
21165  double* B, lapack_int const* ldb,
21166  lapack_int* info
21167 #ifdef LAPACK_FORTRAN_STRLEN_END
21168  , size_t, size_t, size_t
21169 #endif
21170 );
21171 #ifdef LAPACK_FORTRAN_STRLEN_END
21172  #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__, 1, 1, 1)
21173 #else
21174  #define LAPACK_dtptrs(...) LAPACK_dtptrs_base(__VA_ARGS__)
21175 #endif
21176 
21177 #define LAPACK_stptrs_base LAPACK_GLOBAL(stptrs,STPTRS)
21178 void LAPACK_stptrs_base(
21179  char const* uplo, char const* trans, char const* diag,
21180  lapack_int const* n, lapack_int const* nrhs,
21181  float const* AP,
21182  float* B, lapack_int const* ldb,
21183  lapack_int* info
21184 #ifdef LAPACK_FORTRAN_STRLEN_END
21185  , size_t, size_t, size_t
21186 #endif
21187 );
21188 #ifdef LAPACK_FORTRAN_STRLEN_END
21189  #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__, 1, 1, 1)
21190 #else
21191  #define LAPACK_stptrs(...) LAPACK_stptrs_base(__VA_ARGS__)
21192 #endif
21193 
21194 #define LAPACK_ztptrs_base LAPACK_GLOBAL(ztptrs,ZTPTRS)
21195 void LAPACK_ztptrs_base(
21196  char const* uplo, char const* trans, char const* diag,
21197  lapack_int const* n, lapack_int const* nrhs,
21198  lapack_complex_double const* AP,
21199  lapack_complex_double* B, lapack_int const* ldb,
21200  lapack_int* info
21201 #ifdef LAPACK_FORTRAN_STRLEN_END
21202  , size_t, size_t, size_t
21203 #endif
21204 );
21205 #ifdef LAPACK_FORTRAN_STRLEN_END
21206  #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__, 1, 1, 1)
21207 #else
21208  #define LAPACK_ztptrs(...) LAPACK_ztptrs_base(__VA_ARGS__)
21209 #endif
21210 
21211 #define LAPACK_ctpttf_base LAPACK_GLOBAL(ctpttf,CTPTTF)
21212 void LAPACK_ctpttf_base(
21213  char const* transr, char const* uplo,
21214  lapack_int const* n,
21215  lapack_complex_float const* AP,
21216  lapack_complex_float* ARF,
21217  lapack_int* info
21218 #ifdef LAPACK_FORTRAN_STRLEN_END
21219  , size_t, size_t
21220 #endif
21221 );
21222 #ifdef LAPACK_FORTRAN_STRLEN_END
21223  #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__, 1, 1)
21224 #else
21225  #define LAPACK_ctpttf(...) LAPACK_ctpttf_base(__VA_ARGS__)
21226 #endif
21227 
21228 #define LAPACK_dtpttf_base LAPACK_GLOBAL(dtpttf,DTPTTF)
21229 void LAPACK_dtpttf_base(
21230  char const* transr, char const* uplo,
21231  lapack_int const* n,
21232  double const* AP,
21233  double* ARF,
21234  lapack_int* info
21235 #ifdef LAPACK_FORTRAN_STRLEN_END
21236  , size_t, size_t
21237 #endif
21238 );
21239 #ifdef LAPACK_FORTRAN_STRLEN_END
21240  #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__, 1, 1)
21241 #else
21242  #define LAPACK_dtpttf(...) LAPACK_dtpttf_base(__VA_ARGS__)
21243 #endif
21244 
21245 #define LAPACK_stpttf_base LAPACK_GLOBAL(stpttf,STPTTF)
21246 void LAPACK_stpttf_base(
21247  char const* transr, char const* uplo,
21248  lapack_int const* n,
21249  float const* AP,
21250  float* ARF,
21251  lapack_int* info
21252 #ifdef LAPACK_FORTRAN_STRLEN_END
21253  , size_t, size_t
21254 #endif
21255 );
21256 #ifdef LAPACK_FORTRAN_STRLEN_END
21257  #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__, 1, 1)
21258 #else
21259  #define LAPACK_stpttf(...) LAPACK_stpttf_base(__VA_ARGS__)
21260 #endif
21261 
21262 #define LAPACK_ztpttf_base LAPACK_GLOBAL(ztpttf,ZTPTTF)
21263 void LAPACK_ztpttf_base(
21264  char const* transr, char const* uplo,
21265  lapack_int const* n,
21266  lapack_complex_double const* AP,
21267  lapack_complex_double* ARF,
21268  lapack_int* info
21269 #ifdef LAPACK_FORTRAN_STRLEN_END
21270  , size_t, size_t
21271 #endif
21272 );
21273 #ifdef LAPACK_FORTRAN_STRLEN_END
21274  #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__, 1, 1)
21275 #else
21276  #define LAPACK_ztpttf(...) LAPACK_ztpttf_base(__VA_ARGS__)
21277 #endif
21278 
21279 #define LAPACK_ctpttr_base LAPACK_GLOBAL(ctpttr,CTPTTR)
21280 void LAPACK_ctpttr_base(
21281  char const* uplo,
21282  lapack_int const* n,
21283  lapack_complex_float const* AP,
21284  lapack_complex_float* A, lapack_int const* lda,
21285  lapack_int* info
21286 #ifdef LAPACK_FORTRAN_STRLEN_END
21287  , size_t
21288 #endif
21289 );
21290 #ifdef LAPACK_FORTRAN_STRLEN_END
21291  #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__, 1)
21292 #else
21293  #define LAPACK_ctpttr(...) LAPACK_ctpttr_base(__VA_ARGS__)
21294 #endif
21295 
21296 #define LAPACK_dtpttr_base LAPACK_GLOBAL(dtpttr,DTPTTR)
21297 void LAPACK_dtpttr_base(
21298  char const* uplo,
21299  lapack_int const* n,
21300  double const* AP,
21301  double* A, lapack_int const* lda,
21302  lapack_int* info
21303 #ifdef LAPACK_FORTRAN_STRLEN_END
21304  , size_t
21305 #endif
21306 );
21307 #ifdef LAPACK_FORTRAN_STRLEN_END
21308  #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__, 1)
21309 #else
21310  #define LAPACK_dtpttr(...) LAPACK_dtpttr_base(__VA_ARGS__)
21311 #endif
21312 
21313 #define LAPACK_stpttr_base LAPACK_GLOBAL(stpttr,STPTTR)
21314 void LAPACK_stpttr_base(
21315  char const* uplo,
21316  lapack_int const* n,
21317  float const* AP,
21318  float* A, lapack_int const* lda,
21319  lapack_int* info
21320 #ifdef LAPACK_FORTRAN_STRLEN_END
21321  , size_t
21322 #endif
21323 );
21324 #ifdef LAPACK_FORTRAN_STRLEN_END
21325  #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__, 1)
21326 #else
21327  #define LAPACK_stpttr(...) LAPACK_stpttr_base(__VA_ARGS__)
21328 #endif
21329 
21330 #define LAPACK_ztpttr_base LAPACK_GLOBAL(ztpttr,ZTPTTR)
21331 void LAPACK_ztpttr_base(
21332  char const* uplo,
21333  lapack_int const* n,
21334  lapack_complex_double const* AP,
21335  lapack_complex_double* A, lapack_int const* lda,
21336  lapack_int* info
21337 #ifdef LAPACK_FORTRAN_STRLEN_END
21338  , size_t
21339 #endif
21340 );
21341 #ifdef LAPACK_FORTRAN_STRLEN_END
21342  #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__, 1)
21343 #else
21344  #define LAPACK_ztpttr(...) LAPACK_ztpttr_base(__VA_ARGS__)
21345 #endif
21346 
21347 #define LAPACK_ctrcon_base LAPACK_GLOBAL(ctrcon,CTRCON)
21348 void LAPACK_ctrcon_base(
21349  char const* norm, char const* uplo, char const* diag,
21350  lapack_int const* n,
21351  lapack_complex_float const* A, lapack_int const* lda,
21352  float* rcond,
21353  lapack_complex_float* work,
21354  float* rwork,
21355  lapack_int* info
21356 #ifdef LAPACK_FORTRAN_STRLEN_END
21357  , size_t, size_t, size_t
21358 #endif
21359 );
21360 #ifdef LAPACK_FORTRAN_STRLEN_END
21361  #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__, 1, 1, 1)
21362 #else
21363  #define LAPACK_ctrcon(...) LAPACK_ctrcon_base(__VA_ARGS__)
21364 #endif
21365 
21366 #define LAPACK_dtrcon_base LAPACK_GLOBAL(dtrcon,DTRCON)
21367 void LAPACK_dtrcon_base(
21368  char const* norm, char const* uplo, char const* diag,
21369  lapack_int const* n,
21370  double const* A, lapack_int const* lda,
21371  double* rcond,
21372  double* work,
21373  lapack_int* iwork,
21374  lapack_int* info
21375 #ifdef LAPACK_FORTRAN_STRLEN_END
21376  , size_t, size_t, size_t
21377 #endif
21378 );
21379 #ifdef LAPACK_FORTRAN_STRLEN_END
21380  #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__, 1, 1, 1)
21381 #else
21382  #define LAPACK_dtrcon(...) LAPACK_dtrcon_base(__VA_ARGS__)
21383 #endif
21384 
21385 #define LAPACK_strcon_base LAPACK_GLOBAL(strcon,STRCON)
21386 void LAPACK_strcon_base(
21387  char const* norm, char const* uplo, char const* diag,
21388  lapack_int const* n,
21389  float const* A, lapack_int const* lda,
21390  float* rcond,
21391  float* work,
21392  lapack_int* iwork,
21393  lapack_int* info
21394 #ifdef LAPACK_FORTRAN_STRLEN_END
21395  , size_t, size_t, size_t
21396 #endif
21397 );
21398 #ifdef LAPACK_FORTRAN_STRLEN_END
21399  #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__, 1, 1, 1)
21400 #else
21401  #define LAPACK_strcon(...) LAPACK_strcon_base(__VA_ARGS__)
21402 #endif
21403 
21404 #define LAPACK_ztrcon_base LAPACK_GLOBAL(ztrcon,ZTRCON)
21405 void LAPACK_ztrcon_base(
21406  char const* norm, char const* uplo, char const* diag,
21407  lapack_int const* n,
21408  lapack_complex_double const* A, lapack_int const* lda,
21409  double* rcond,
21410  lapack_complex_double* work,
21411  double* rwork,
21412  lapack_int* info
21413 #ifdef LAPACK_FORTRAN_STRLEN_END
21414  , size_t, size_t, size_t
21415 #endif
21416 );
21417 #ifdef LAPACK_FORTRAN_STRLEN_END
21418  #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__, 1, 1, 1)
21419 #else
21420  #define LAPACK_ztrcon(...) LAPACK_ztrcon_base(__VA_ARGS__)
21421 #endif
21422 
21423 #define LAPACK_ctrevc_base LAPACK_GLOBAL(ctrevc,CTREVC)
21424 void LAPACK_ctrevc_base(
21425  char const* side, char const* howmny,
21426  lapack_logical const* select,
21427  lapack_int const* n,
21428  lapack_complex_float* T, lapack_int const* ldt,
21429  lapack_complex_float* VL, lapack_int const* ldvl,
21430  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21431  lapack_complex_float* work,
21432  float* rwork,
21433  lapack_int* info
21434 #ifdef LAPACK_FORTRAN_STRLEN_END
21435  , size_t, size_t
21436 #endif
21437 );
21438 #ifdef LAPACK_FORTRAN_STRLEN_END
21439  #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__, 1, 1)
21440 #else
21441  #define LAPACK_ctrevc(...) LAPACK_ctrevc_base(__VA_ARGS__)
21442 #endif
21443 
21444 #define LAPACK_dtrevc_base LAPACK_GLOBAL(dtrevc,DTREVC)
21445 void LAPACK_dtrevc_base(
21446  char const* side, char const* howmny,
21447  lapack_logical* select,
21448  lapack_int const* n,
21449  double const* T, lapack_int const* ldt,
21450  double* VL, lapack_int const* ldvl,
21451  double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21452  double* work,
21453  lapack_int* info
21454 #ifdef LAPACK_FORTRAN_STRLEN_END
21455  , size_t, size_t
21456 #endif
21457 );
21458 #ifdef LAPACK_FORTRAN_STRLEN_END
21459  #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__, 1, 1)
21460 #else
21461  #define LAPACK_dtrevc(...) LAPACK_dtrevc_base(__VA_ARGS__)
21462 #endif
21463 
21464 #define LAPACK_strevc_base LAPACK_GLOBAL(strevc,STREVC)
21465 void LAPACK_strevc_base(
21466  char const* side, char const* howmny,
21467  lapack_logical* select,
21468  lapack_int const* n,
21469  float const* T, lapack_int const* ldt,
21470  float* VL, lapack_int const* ldvl,
21471  float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21472  float* work,
21473  lapack_int* info
21474 #ifdef LAPACK_FORTRAN_STRLEN_END
21475  , size_t, size_t
21476 #endif
21477 );
21478 #ifdef LAPACK_FORTRAN_STRLEN_END
21479  #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__, 1, 1)
21480 #else
21481  #define LAPACK_strevc(...) LAPACK_strevc_base(__VA_ARGS__)
21482 #endif
21483 
21484 #define LAPACK_ztrevc_base LAPACK_GLOBAL(ztrevc,ZTREVC)
21485 void LAPACK_ztrevc_base(
21486  char const* side, char const* howmny,
21487  lapack_logical const* select,
21488  lapack_int const* n,
21489  lapack_complex_double* T, lapack_int const* ldt,
21490  lapack_complex_double* VL, lapack_int const* ldvl,
21491  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21492  lapack_complex_double* work,
21493  double* rwork,
21494  lapack_int* info
21495 #ifdef LAPACK_FORTRAN_STRLEN_END
21496  , size_t, size_t
21497 #endif
21498 );
21499 #ifdef LAPACK_FORTRAN_STRLEN_END
21500  #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__, 1, 1)
21501 #else
21502  #define LAPACK_ztrevc(...) LAPACK_ztrevc_base(__VA_ARGS__)
21503 #endif
21504 
21505 #define LAPACK_ctrevc3_base LAPACK_GLOBAL(ctrevc3,CTREVC3)
21506 void LAPACK_ctrevc3_base(
21507  char const* side, char const* howmny,
21508  lapack_logical const* select,
21509  lapack_int const* n,
21510  lapack_complex_float* T, lapack_int const* ldt,
21511  lapack_complex_float* VL, lapack_int const* ldvl,
21512  lapack_complex_float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21513  lapack_complex_float* work, lapack_int const* lwork,
21514  float* rwork, lapack_int const* lrwork,
21515  lapack_int* info
21516 #ifdef LAPACK_FORTRAN_STRLEN_END
21517  , size_t, size_t
21518 #endif
21519 );
21520 #ifdef LAPACK_FORTRAN_STRLEN_END
21521  #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__, 1, 1)
21522 #else
21523  #define LAPACK_ctrevc3(...) LAPACK_ctrevc3_base(__VA_ARGS__)
21524 #endif
21525 
21526 #define LAPACK_dtrevc3_base LAPACK_GLOBAL(dtrevc3,DTREVC3)
21527 void LAPACK_dtrevc3_base(
21528  char const* side, char const* howmny,
21529  lapack_logical* select,
21530  lapack_int const* n,
21531  double const* T, lapack_int const* ldt,
21532  double* VL, lapack_int const* ldvl,
21533  double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21534  double* work, lapack_int const* lwork,
21535  lapack_int* info
21536 #ifdef LAPACK_FORTRAN_STRLEN_END
21537  , size_t, size_t
21538 #endif
21539 );
21540 #ifdef LAPACK_FORTRAN_STRLEN_END
21541  #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__, 1, 1)
21542 #else
21543  #define LAPACK_dtrevc3(...) LAPACK_dtrevc3_base(__VA_ARGS__)
21544 #endif
21545 
21546 #define LAPACK_strevc3_base LAPACK_GLOBAL(strevc3,STREVC3)
21547 void LAPACK_strevc3_base(
21548  char const* side, char const* howmny,
21549  lapack_logical* select,
21550  lapack_int const* n,
21551  float const* T, lapack_int const* ldt,
21552  float* VL, lapack_int const* ldvl,
21553  float* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21554  float* work, lapack_int const* lwork,
21555  lapack_int* info
21556 #ifdef LAPACK_FORTRAN_STRLEN_END
21557  , size_t, size_t
21558 #endif
21559 );
21560 #ifdef LAPACK_FORTRAN_STRLEN_END
21561  #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__, 1, 1)
21562 #else
21563  #define LAPACK_strevc3(...) LAPACK_strevc3_base(__VA_ARGS__)
21564 #endif
21565 
21566 #define LAPACK_ztrevc3_base LAPACK_GLOBAL(ztrevc3,ZTREVC3)
21567 void LAPACK_ztrevc3_base(
21568  char const* side, char const* howmny,
21569  lapack_logical const* select,
21570  lapack_int const* n,
21571  lapack_complex_double* T, lapack_int const* ldt,
21572  lapack_complex_double* VL, lapack_int const* ldvl,
21573  lapack_complex_double* VR, lapack_int const* ldvr, lapack_int const* mm, lapack_int* m,
21574  lapack_complex_double* work, lapack_int const* lwork,
21575  double* rwork, lapack_int const* lrwork,
21576  lapack_int* info
21577 #ifdef LAPACK_FORTRAN_STRLEN_END
21578  , size_t, size_t
21579 #endif
21580 );
21581 #ifdef LAPACK_FORTRAN_STRLEN_END
21582  #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__, 1, 1)
21583 #else
21584  #define LAPACK_ztrevc3(...) LAPACK_ztrevc3_base(__VA_ARGS__)
21585 #endif
21586 
21587 #define LAPACK_ctrexc_base LAPACK_GLOBAL(ctrexc,CTREXC)
21588 void LAPACK_ctrexc_base(
21589  char const* compq,
21590  lapack_int const* n,
21591  lapack_complex_float* T, lapack_int const* ldt,
21592  lapack_complex_float* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst,
21593  lapack_int* info
21594 #ifdef LAPACK_FORTRAN_STRLEN_END
21595  , size_t
21596 #endif
21597 );
21598 #ifdef LAPACK_FORTRAN_STRLEN_END
21599  #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__, 1)
21600 #else
21601  #define LAPACK_ctrexc(...) LAPACK_ctrexc_base(__VA_ARGS__)
21602 #endif
21603 
21604 #define LAPACK_dtrexc_base LAPACK_GLOBAL(dtrexc,DTREXC)
21605 void LAPACK_dtrexc_base(
21606  char const* compq,
21607  lapack_int const* n,
21608  double* T, lapack_int const* ldt,
21609  double* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst,
21610  double* work,
21611  lapack_int* info
21612 #ifdef LAPACK_FORTRAN_STRLEN_END
21613  , size_t
21614 #endif
21615 );
21616 #ifdef LAPACK_FORTRAN_STRLEN_END
21617  #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__, 1)
21618 #else
21619  #define LAPACK_dtrexc(...) LAPACK_dtrexc_base(__VA_ARGS__)
21620 #endif
21621 
21622 #define LAPACK_strexc_base LAPACK_GLOBAL(strexc,STREXC)
21623 void LAPACK_strexc_base(
21624  char const* compq,
21625  lapack_int const* n,
21626  float* T, lapack_int const* ldt,
21627  float* Q, lapack_int const* ldq, lapack_int* ifst, lapack_int* ilst,
21628  float* work,
21629  lapack_int* info
21630 #ifdef LAPACK_FORTRAN_STRLEN_END
21631  , size_t
21632 #endif
21633 );
21634 #ifdef LAPACK_FORTRAN_STRLEN_END
21635  #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__, 1)
21636 #else
21637  #define LAPACK_strexc(...) LAPACK_strexc_base(__VA_ARGS__)
21638 #endif
21639 
21640 #define LAPACK_ztrexc_base LAPACK_GLOBAL(ztrexc,ZTREXC)
21641 void LAPACK_ztrexc_base(
21642  char const* compq,
21643  lapack_int const* n,
21644  lapack_complex_double* T, lapack_int const* ldt,
21645  lapack_complex_double* Q, lapack_int const* ldq, lapack_int const* ifst, lapack_int const* ilst,
21646  lapack_int* info
21647 #ifdef LAPACK_FORTRAN_STRLEN_END
21648  , size_t
21649 #endif
21650 );
21651 #ifdef LAPACK_FORTRAN_STRLEN_END
21652  #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__, 1)
21653 #else
21654  #define LAPACK_ztrexc(...) LAPACK_ztrexc_base(__VA_ARGS__)
21655 #endif
21656 
21657 #define LAPACK_ctrrfs_base LAPACK_GLOBAL(ctrrfs,CTRRFS)
21658 void LAPACK_ctrrfs_base(
21659  char const* uplo, char const* trans, char const* diag,
21660  lapack_int const* n, lapack_int const* nrhs,
21661  lapack_complex_float const* A, lapack_int const* lda,
21662  lapack_complex_float const* B, lapack_int const* ldb,
21663  lapack_complex_float const* X, lapack_int const* ldx,
21664  float* ferr,
21665  float* berr,
21666  lapack_complex_float* work,
21667  float* rwork,
21668  lapack_int* info
21669 #ifdef LAPACK_FORTRAN_STRLEN_END
21670  , size_t, size_t, size_t
21671 #endif
21672 );
21673 #ifdef LAPACK_FORTRAN_STRLEN_END
21674  #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__, 1, 1, 1)
21675 #else
21676  #define LAPACK_ctrrfs(...) LAPACK_ctrrfs_base(__VA_ARGS__)
21677 #endif
21678 
21679 #define LAPACK_dtrrfs_base LAPACK_GLOBAL(dtrrfs,DTRRFS)
21680 void LAPACK_dtrrfs_base(
21681  char const* uplo, char const* trans, char const* diag,
21682  lapack_int const* n, lapack_int const* nrhs,
21683  double const* A, lapack_int const* lda,
21684  double const* B, lapack_int const* ldb,
21685  double const* X, lapack_int const* ldx,
21686  double* ferr,
21687  double* berr,
21688  double* work,
21689  lapack_int* iwork,
21690  lapack_int* info
21691 #ifdef LAPACK_FORTRAN_STRLEN_END
21692  , size_t, size_t, size_t
21693 #endif
21694 );
21695 #ifdef LAPACK_FORTRAN_STRLEN_END
21696  #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__, 1, 1, 1)
21697 #else
21698  #define LAPACK_dtrrfs(...) LAPACK_dtrrfs_base(__VA_ARGS__)
21699 #endif
21700 
21701 #define LAPACK_strrfs_base LAPACK_GLOBAL(strrfs,STRRFS)
21702 void LAPACK_strrfs_base(
21703  char const* uplo, char const* trans, char const* diag,
21704  lapack_int const* n, lapack_int const* nrhs,
21705  float const* A, lapack_int const* lda,
21706  float const* B, lapack_int const* ldb,
21707  float const* X, lapack_int const* ldx,
21708  float* ferr,
21709  float* berr,
21710  float* work,
21711  lapack_int* iwork,
21712  lapack_int* info
21713 #ifdef LAPACK_FORTRAN_STRLEN_END
21714  , size_t, size_t, size_t
21715 #endif
21716 );
21717 #ifdef LAPACK_FORTRAN_STRLEN_END
21718  #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__, 1, 1, 1)
21719 #else
21720  #define LAPACK_strrfs(...) LAPACK_strrfs_base(__VA_ARGS__)
21721 #endif
21722 
21723 #define LAPACK_ztrrfs_base LAPACK_GLOBAL(ztrrfs,ZTRRFS)
21724 void LAPACK_ztrrfs_base(
21725  char const* uplo, char const* trans, char const* diag,
21726  lapack_int const* n, lapack_int const* nrhs,
21727  lapack_complex_double const* A, lapack_int const* lda,
21728  lapack_complex_double const* B, lapack_int const* ldb,
21729  lapack_complex_double const* X, lapack_int const* ldx,
21730  double* ferr,
21731  double* berr,
21732  lapack_complex_double* work,
21733  double* rwork,
21734  lapack_int* info
21735 #ifdef LAPACK_FORTRAN_STRLEN_END
21736  , size_t, size_t, size_t
21737 #endif
21738 );
21739 #ifdef LAPACK_FORTRAN_STRLEN_END
21740  #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__, 1, 1, 1)
21741 #else
21742  #define LAPACK_ztrrfs(...) LAPACK_ztrrfs_base(__VA_ARGS__)
21743 #endif
21744 
21745 #define LAPACK_ctrsen_base LAPACK_GLOBAL(ctrsen,CTRSEN)
21746 void LAPACK_ctrsen_base(
21747  char const* job, char const* compq,
21748  lapack_logical const* select,
21749  lapack_int const* n,
21750  lapack_complex_float* T, lapack_int const* ldt,
21751  lapack_complex_float* Q, lapack_int const* ldq,
21752  lapack_complex_float* W, lapack_int* m,
21753  float* s,
21754  float* sep,
21755  lapack_complex_float* work, lapack_int const* lwork,
21756  lapack_int* info
21757 #ifdef LAPACK_FORTRAN_STRLEN_END
21758  , size_t, size_t
21759 #endif
21760 );
21761 #ifdef LAPACK_FORTRAN_STRLEN_END
21762  #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__, 1, 1)
21763 #else
21764  #define LAPACK_ctrsen(...) LAPACK_ctrsen_base(__VA_ARGS__)
21765 #endif
21766 
21767 #define LAPACK_dtrsen_base LAPACK_GLOBAL(dtrsen,DTRSEN)
21768 void LAPACK_dtrsen_base(
21769  char const* job, char const* compq,
21770  lapack_logical const* select,
21771  lapack_int const* n,
21772  double* T, lapack_int const* ldt,
21773  double* Q, lapack_int const* ldq,
21774  double* WR,
21775  double* WI, lapack_int* m,
21776  double* s,
21777  double* sep,
21778  double* work, lapack_int const* lwork,
21779  lapack_int* iwork, lapack_int const* liwork,
21780  lapack_int* info
21781 #ifdef LAPACK_FORTRAN_STRLEN_END
21782  , size_t, size_t
21783 #endif
21784 );
21785 #ifdef LAPACK_FORTRAN_STRLEN_END
21786  #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__, 1, 1)
21787 #else
21788  #define LAPACK_dtrsen(...) LAPACK_dtrsen_base(__VA_ARGS__)
21789 #endif
21790 
21791 #define LAPACK_strsen_base LAPACK_GLOBAL(strsen,STRSEN)
21792 void LAPACK_strsen_base(
21793  char const* job, char const* compq,
21794  lapack_logical const* select,
21795  lapack_int const* n,
21796  float* T, lapack_int const* ldt,
21797  float* Q, lapack_int const* ldq,
21798  float* WR,
21799  float* WI, lapack_int* m,
21800  float* s,
21801  float* sep,
21802  float* work, lapack_int const* lwork,
21803  lapack_int* iwork, lapack_int const* liwork,
21804  lapack_int* info
21805 #ifdef LAPACK_FORTRAN_STRLEN_END
21806  , size_t, size_t
21807 #endif
21808 );
21809 #ifdef LAPACK_FORTRAN_STRLEN_END
21810  #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__, 1, 1)
21811 #else
21812  #define LAPACK_strsen(...) LAPACK_strsen_base(__VA_ARGS__)
21813 #endif
21814 
21815 #define LAPACK_ztrsen_base LAPACK_GLOBAL(ztrsen,ZTRSEN)
21816 void LAPACK_ztrsen_base(
21817  char const* job, char const* compq,
21818  lapack_logical const* select,
21819  lapack_int const* n,
21820  lapack_complex_double* T, lapack_int const* ldt,
21821  lapack_complex_double* Q, lapack_int const* ldq,
21822  lapack_complex_double* W, lapack_int* m,
21823  double* s,
21824  double* sep,
21825  lapack_complex_double* work, lapack_int const* lwork,
21826  lapack_int* info
21827 #ifdef LAPACK_FORTRAN_STRLEN_END
21828  , size_t, size_t
21829 #endif
21830 );
21831 #ifdef LAPACK_FORTRAN_STRLEN_END
21832  #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__, 1, 1)
21833 #else
21834  #define LAPACK_ztrsen(...) LAPACK_ztrsen_base(__VA_ARGS__)
21835 #endif
21836 
21837 #define LAPACK_ctrsna_base LAPACK_GLOBAL(ctrsna,CTRSNA)
21838 void LAPACK_ctrsna_base(
21839  char const* job, char const* howmny,
21840  lapack_logical const* select,
21841  lapack_int const* n,
21842  lapack_complex_float const* T, lapack_int const* ldt,
21843  lapack_complex_float const* VL, lapack_int const* ldvl,
21844  lapack_complex_float const* VR, lapack_int const* ldvr,
21845  float* S,
21846  float* SEP, lapack_int const* mm, lapack_int* m,
21847  lapack_complex_float* work, lapack_int const* ldwork,
21848  float* rwork,
21849  lapack_int* info
21850 #ifdef LAPACK_FORTRAN_STRLEN_END
21851  , size_t, size_t
21852 #endif
21853 );
21854 #ifdef LAPACK_FORTRAN_STRLEN_END
21855  #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__, 1, 1)
21856 #else
21857  #define LAPACK_ctrsna(...) LAPACK_ctrsna_base(__VA_ARGS__)
21858 #endif
21859 
21860 #define LAPACK_dtrsna_base LAPACK_GLOBAL(dtrsna,DTRSNA)
21861 void LAPACK_dtrsna_base(
21862  char const* job, char const* howmny,
21863  lapack_logical const* select,
21864  lapack_int const* n,
21865  double const* T, lapack_int const* ldt,
21866  double const* VL, lapack_int const* ldvl,
21867  double const* VR, lapack_int const* ldvr,
21868  double* S,
21869  double* SEP, lapack_int const* mm, lapack_int* m,
21870  double* work, lapack_int const* ldwork,
21871  lapack_int* iwork,
21872  lapack_int* info
21873 #ifdef LAPACK_FORTRAN_STRLEN_END
21874  , size_t, size_t
21875 #endif
21876 );
21877 #ifdef LAPACK_FORTRAN_STRLEN_END
21878  #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__, 1, 1)
21879 #else
21880  #define LAPACK_dtrsna(...) LAPACK_dtrsna_base(__VA_ARGS__)
21881 #endif
21882 
21883 #define LAPACK_strsna_base LAPACK_GLOBAL(strsna,STRSNA)
21884 void LAPACK_strsna_base(
21885  char const* job, char const* howmny,
21886  lapack_logical const* select,
21887  lapack_int const* n,
21888  float const* T, lapack_int const* ldt,
21889  float const* VL, lapack_int const* ldvl,
21890  float const* VR, lapack_int const* ldvr,
21891  float* S,
21892  float* SEP, lapack_int const* mm, lapack_int* m,
21893  float* work, lapack_int const* ldwork,
21894  lapack_int* iwork,
21895  lapack_int* info
21896 #ifdef LAPACK_FORTRAN_STRLEN_END
21897  , size_t, size_t
21898 #endif
21899 );
21900 #ifdef LAPACK_FORTRAN_STRLEN_END
21901  #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__, 1, 1)
21902 #else
21903  #define LAPACK_strsna(...) LAPACK_strsna_base(__VA_ARGS__)
21904 #endif
21905 
21906 #define LAPACK_ztrsna_base LAPACK_GLOBAL(ztrsna,ZTRSNA)
21907 void LAPACK_ztrsna_base(
21908  char const* job, char const* howmny,
21909  lapack_logical const* select,
21910  lapack_int const* n,
21911  lapack_complex_double const* T, lapack_int const* ldt,
21912  lapack_complex_double const* VL, lapack_int const* ldvl,
21913  lapack_complex_double const* VR, lapack_int const* ldvr,
21914  double* S,
21915  double* SEP, lapack_int const* mm, lapack_int* m,
21916  lapack_complex_double* work, lapack_int const* ldwork,
21917  double* rwork,
21918  lapack_int* info
21919 #ifdef LAPACK_FORTRAN_STRLEN_END
21920  , size_t, size_t
21921 #endif
21922 );
21923 #ifdef LAPACK_FORTRAN_STRLEN_END
21924  #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__, 1, 1)
21925 #else
21926  #define LAPACK_ztrsna(...) LAPACK_ztrsna_base(__VA_ARGS__)
21927 #endif
21928 
21929 #define LAPACK_ctrsyl_base LAPACK_GLOBAL(ctrsyl,CTRSYL)
21930 void LAPACK_ctrsyl_base(
21931  char const* trana, char const* tranb,
21932  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
21933  lapack_complex_float const* A, lapack_int const* lda,
21934  lapack_complex_float const* B, lapack_int const* ldb,
21935  lapack_complex_float* C, lapack_int const* ldc,
21936  float* scale,
21937  lapack_int* info
21938 #ifdef LAPACK_FORTRAN_STRLEN_END
21939  , size_t, size_t
21940 #endif
21941 );
21942 #ifdef LAPACK_FORTRAN_STRLEN_END
21943  #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__, 1, 1)
21944 #else
21945  #define LAPACK_ctrsyl(...) LAPACK_ctrsyl_base(__VA_ARGS__)
21946 #endif
21947 
21948 #define LAPACK_dtrsyl_base LAPACK_GLOBAL(dtrsyl,DTRSYL)
21949 void LAPACK_dtrsyl_base(
21950  char const* trana, char const* tranb,
21951  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
21952  double const* A, lapack_int const* lda,
21953  double const* B, lapack_int const* ldb,
21954  double* C, lapack_int const* ldc,
21955  double* scale,
21956  lapack_int* info
21957 #ifdef LAPACK_FORTRAN_STRLEN_END
21958  , size_t, size_t
21959 #endif
21960 );
21961 #ifdef LAPACK_FORTRAN_STRLEN_END
21962  #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__, 1, 1)
21963 #else
21964  #define LAPACK_dtrsyl(...) LAPACK_dtrsyl_base(__VA_ARGS__)
21965 #endif
21966 
21967 #define LAPACK_strsyl_base LAPACK_GLOBAL(strsyl,STRSYL)
21968 void LAPACK_strsyl_base(
21969  char const* trana, char const* tranb,
21970  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
21971  float const* A, lapack_int const* lda,
21972  float const* B, lapack_int const* ldb,
21973  float* C, lapack_int const* ldc,
21974  float* scale,
21975  lapack_int* info
21976 #ifdef LAPACK_FORTRAN_STRLEN_END
21977  , size_t, size_t
21978 #endif
21979 );
21980 #ifdef LAPACK_FORTRAN_STRLEN_END
21981  #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__, 1, 1)
21982 #else
21983  #define LAPACK_strsyl(...) LAPACK_strsyl_base(__VA_ARGS__)
21984 #endif
21985 
21986 #define LAPACK_ztrsyl_base LAPACK_GLOBAL(ztrsyl,ZTRSYL)
21987 void LAPACK_ztrsyl_base(
21988  char const* trana, char const* tranb,
21989  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
21990  lapack_complex_double const* A, lapack_int const* lda,
21991  lapack_complex_double const* B, lapack_int const* ldb,
21992  lapack_complex_double* C, lapack_int const* ldc,
21993  double* scale,
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_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__, 1, 1)
22001 #else
22002  #define LAPACK_ztrsyl(...) LAPACK_ztrsyl_base(__VA_ARGS__)
22003 #endif
22004 
22005 #define LAPACK_ctrsyl3_base LAPACK_GLOBAL(ctrsyl3,CTRSYL3)
22006 void LAPACK_ctrsyl3_base(
22007  char const* trana, char const* tranb,
22008  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22009  lapack_complex_float const* A, lapack_int const* lda,
22010  lapack_complex_float const* B, lapack_int const* ldb,
22011  lapack_complex_float* C, lapack_int const* ldc, float* scale,
22012  float* swork, lapack_int const *ldswork,
22013  lapack_int* info
22014 #ifdef LAPACK_FORTRAN_STRLEN_END
22015  , size_t, size_t
22016 #endif
22017 );
22018 #ifdef LAPACK_FORTRAN_STRLEN_END
22019  #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__, 1, 1)
22020 #else
22021  #define LAPACK_ctrsyl3(...) LAPACK_ctrsyl3_base(__VA_ARGS__)
22022 #endif
22023 
22024 #define LAPACK_dtrsyl3_base LAPACK_GLOBAL(dtrsyl3,DTRSYL3)
22025 void LAPACK_dtrsyl3_base(
22026  char const* trana, char const* tranb,
22027  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22028  double const* A, lapack_int const* lda,
22029  double const* B, lapack_int const* ldb,
22030  double* C, lapack_int const* ldc, double* scale,
22031  lapack_int* iwork, lapack_int const* liwork,
22032  double* swork, lapack_int const *ldswork,
22033  lapack_int* info
22034 #ifdef LAPACK_FORTRAN_STRLEN_END
22035  , size_t, size_t
22036 #endif
22037 );
22038 #ifdef LAPACK_FORTRAN_STRLEN_END
22039  #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__, 1, 1)
22040 #else
22041  #define LAPACK_dtrsyl3(...) LAPACK_dtrsyl3_base(__VA_ARGS__)
22042 #endif
22043 
22044 #define LAPACK_strsyl3_base LAPACK_GLOBAL(strsyl3,STRSYL3)
22045 void LAPACK_strsyl3_base(
22046  char const* trana, char const* tranb,
22047  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22048  float const* A, lapack_int const* lda,
22049  float const* B, lapack_int const* ldb,
22050  float* C, lapack_int const* ldc, float* scale,
22051  lapack_int* iwork, lapack_int const* liwork,
22052  float* swork, lapack_int const *ldswork,
22053  lapack_int* info
22054 #ifdef LAPACK_FORTRAN_STRLEN_END
22055  , size_t, size_t
22056 #endif
22057 );
22058 #ifdef LAPACK_FORTRAN_STRLEN_END
22059  #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__, 1, 1)
22060 #else
22061  #define LAPACK_strsyl3(...) LAPACK_strsyl3_base(__VA_ARGS__)
22062 #endif
22063 
22064 #define LAPACK_ztrsyl3_base LAPACK_GLOBAL(ztrsyl3,ZTRSYL3)
22065 void LAPACK_ztrsyl3_base(
22066  char const* trana, char const* tranb,
22067  lapack_int const* isgn, lapack_int const* m, lapack_int const* n,
22068  lapack_complex_double const* A, lapack_int const* lda,
22069  lapack_complex_double const* B, lapack_int const* ldb,
22070  lapack_complex_double* C, lapack_int const* ldc, double* scale,
22071  double* swork, lapack_int const *ldswork,
22072  lapack_int* info
22073 #ifdef LAPACK_FORTRAN_STRLEN_END
22074  , size_t, size_t
22075 #endif
22076 );
22077 #ifdef LAPACK_FORTRAN_STRLEN_END
22078  #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__, 1, 1)
22079 #else
22080  #define LAPACK_ztrsyl3(...) LAPACK_ztrsyl3_base(__VA_ARGS__)
22081 #endif
22082 
22083 #define LAPACK_ctrtri_base LAPACK_GLOBAL(ctrtri,CTRTRI)
22084 void LAPACK_ctrtri_base(
22085  char const* uplo, char const* diag,
22086  lapack_int const* n,
22087  lapack_complex_float* A, lapack_int const* lda,
22088  lapack_int* info
22089 #ifdef LAPACK_FORTRAN_STRLEN_END
22090  , size_t, size_t
22091 #endif
22092 );
22093 #ifdef LAPACK_FORTRAN_STRLEN_END
22094  #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__, 1, 1)
22095 #else
22096  #define LAPACK_ctrtri(...) LAPACK_ctrtri_base(__VA_ARGS__)
22097 #endif
22098 
22099 #define LAPACK_dtrtri_base LAPACK_GLOBAL(dtrtri,DTRTRI)
22100 void LAPACK_dtrtri_base(
22101  char const* uplo, char const* diag,
22102  lapack_int const* n,
22103  double* A, lapack_int const* lda,
22104  lapack_int* info
22105 #ifdef LAPACK_FORTRAN_STRLEN_END
22106  , size_t, size_t
22107 #endif
22108 );
22109 #ifdef LAPACK_FORTRAN_STRLEN_END
22110  #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__, 1, 1)
22111 #else
22112  #define LAPACK_dtrtri(...) LAPACK_dtrtri_base(__VA_ARGS__)
22113 #endif
22114 
22115 #define LAPACK_strtri_base LAPACK_GLOBAL(strtri,STRTRI)
22116 void LAPACK_strtri_base(
22117  char const* uplo, char const* diag,
22118  lapack_int const* n,
22119  float* A, lapack_int const* lda,
22120  lapack_int* info
22121 #ifdef LAPACK_FORTRAN_STRLEN_END
22122  , size_t, size_t
22123 #endif
22124 );
22125 #ifdef LAPACK_FORTRAN_STRLEN_END
22126  #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__, 1, 1)
22127 #else
22128  #define LAPACK_strtri(...) LAPACK_strtri_base(__VA_ARGS__)
22129 #endif
22130 
22131 #define LAPACK_ztrtri_base LAPACK_GLOBAL(ztrtri,ZTRTRI)
22132 void LAPACK_ztrtri_base(
22133  char const* uplo, char const* diag,
22134  lapack_int const* n,
22135  lapack_complex_double* A, lapack_int const* lda,
22136  lapack_int* info
22137 #ifdef LAPACK_FORTRAN_STRLEN_END
22138  , size_t, size_t
22139 #endif
22140 );
22141 #ifdef LAPACK_FORTRAN_STRLEN_END
22142  #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__, 1, 1)
22143 #else
22144  #define LAPACK_ztrtri(...) LAPACK_ztrtri_base(__VA_ARGS__)
22145 #endif
22146 
22147 #define LAPACK_ctrtrs_base LAPACK_GLOBAL(ctrtrs,CTRTRS)
22148 void LAPACK_ctrtrs_base(
22149  char const* uplo, char const* trans, char const* diag,
22150  lapack_int const* n, lapack_int const* nrhs,
22151  lapack_complex_float const* A, lapack_int const* lda,
22152  lapack_complex_float* B, lapack_int const* ldb,
22153  lapack_int* info
22154 #ifdef LAPACK_FORTRAN_STRLEN_END
22155  , size_t, size_t, size_t
22156 #endif
22157 );
22158 #ifdef LAPACK_FORTRAN_STRLEN_END
22159  #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__, 1, 1, 1)
22160 #else
22161  #define LAPACK_ctrtrs(...) LAPACK_ctrtrs_base(__VA_ARGS__)
22162 #endif
22163 
22164 #define LAPACK_dtrtrs_base LAPACK_GLOBAL(dtrtrs,DTRTRS)
22165 void LAPACK_dtrtrs_base(
22166  char const* uplo, char const* trans, char const* diag,
22167  lapack_int const* n, lapack_int const* nrhs,
22168  double const* A, lapack_int const* lda,
22169  double* B, lapack_int const* ldb,
22170  lapack_int* info
22171 #ifdef LAPACK_FORTRAN_STRLEN_END
22172  , size_t, size_t, size_t
22173 #endif
22174 );
22175 #ifdef LAPACK_FORTRAN_STRLEN_END
22176  #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__, 1, 1, 1)
22177 #else
22178  #define LAPACK_dtrtrs(...) LAPACK_dtrtrs_base(__VA_ARGS__)
22179 #endif
22180 
22181 #define LAPACK_strtrs_base LAPACK_GLOBAL(strtrs,STRTRS)
22182 void LAPACK_strtrs_base(
22183  char const* uplo, char const* trans, char const* diag,
22184  lapack_int const* n, lapack_int const* nrhs,
22185  float const* A, lapack_int const* lda,
22186  float* B, lapack_int const* ldb,
22187  lapack_int* info
22188 #ifdef LAPACK_FORTRAN_STRLEN_END
22189  , size_t, size_t, size_t
22190 #endif
22191 );
22192 #ifdef LAPACK_FORTRAN_STRLEN_END
22193  #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__, 1, 1, 1)
22194 #else
22195  #define LAPACK_strtrs(...) LAPACK_strtrs_base(__VA_ARGS__)
22196 #endif
22197 
22198 #define LAPACK_ztrtrs_base LAPACK_GLOBAL(ztrtrs,ZTRTRS)
22199 void LAPACK_ztrtrs_base(
22200  char const* uplo, char const* trans, char const* diag,
22201  lapack_int const* n, lapack_int const* nrhs,
22202  lapack_complex_double const* A, lapack_int const* lda,
22203  lapack_complex_double* B, lapack_int const* ldb,
22204  lapack_int* info
22205 #ifdef LAPACK_FORTRAN_STRLEN_END
22206  , size_t, size_t, size_t
22207 #endif
22208 );
22209 #ifdef LAPACK_FORTRAN_STRLEN_END
22210  #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__, 1, 1, 1)
22211 #else
22212  #define LAPACK_ztrtrs(...) LAPACK_ztrtrs_base(__VA_ARGS__)
22213 #endif
22214 
22215 #define LAPACK_ctrttf_base LAPACK_GLOBAL(ctrttf,CTRTTF)
22216 void LAPACK_ctrttf_base(
22217  char const* transr, char const* uplo,
22218  lapack_int const* n,
22219  lapack_complex_float const* A, lapack_int const* lda,
22220  lapack_complex_float* ARF,
22221  lapack_int* info
22222 #ifdef LAPACK_FORTRAN_STRLEN_END
22223  , size_t, size_t
22224 #endif
22225 );
22226 #ifdef LAPACK_FORTRAN_STRLEN_END
22227  #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__, 1, 1)
22228 #else
22229  #define LAPACK_ctrttf(...) LAPACK_ctrttf_base(__VA_ARGS__)
22230 #endif
22231 
22232 #define LAPACK_dtrttf_base LAPACK_GLOBAL(dtrttf,DTRTTF)
22233 void LAPACK_dtrttf_base(
22234  char const* transr, char const* uplo,
22235  lapack_int const* n,
22236  double const* A, lapack_int const* lda,
22237  double* ARF,
22238  lapack_int* info
22239 #ifdef LAPACK_FORTRAN_STRLEN_END
22240  , size_t, size_t
22241 #endif
22242 );
22243 #ifdef LAPACK_FORTRAN_STRLEN_END
22244  #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__, 1, 1)
22245 #else
22246  #define LAPACK_dtrttf(...) LAPACK_dtrttf_base(__VA_ARGS__)
22247 #endif
22248 
22249 #define LAPACK_strttf_base LAPACK_GLOBAL(strttf,STRTTF)
22250 void LAPACK_strttf_base(
22251  char const* transr, char const* uplo,
22252  lapack_int const* n,
22253  float const* A, lapack_int const* lda,
22254  float* ARF,
22255  lapack_int* info
22256 #ifdef LAPACK_FORTRAN_STRLEN_END
22257  , size_t, size_t
22258 #endif
22259 );
22260 #ifdef LAPACK_FORTRAN_STRLEN_END
22261  #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__, 1, 1)
22262 #else
22263  #define LAPACK_strttf(...) LAPACK_strttf_base(__VA_ARGS__)
22264 #endif
22265 
22266 #define LAPACK_ztrttf_base LAPACK_GLOBAL(ztrttf,ZTRTTF)
22267 void LAPACK_ztrttf_base(
22268  char const* transr, char const* uplo,
22269  lapack_int const* n,
22270  lapack_complex_double const* A, lapack_int const* lda,
22271  lapack_complex_double* ARF,
22272  lapack_int* info
22273 #ifdef LAPACK_FORTRAN_STRLEN_END
22274  , size_t, size_t
22275 #endif
22276 );
22277 #ifdef LAPACK_FORTRAN_STRLEN_END
22278  #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__, 1, 1)
22279 #else
22280  #define LAPACK_ztrttf(...) LAPACK_ztrttf_base(__VA_ARGS__)
22281 #endif
22282 
22283 #define LAPACK_ctrttp_base LAPACK_GLOBAL(ctrttp,CTRTTP)
22284 void LAPACK_ctrttp_base(
22285  char const* uplo,
22286  lapack_int const* n,
22287  lapack_complex_float const* A, lapack_int const* lda,
22288  lapack_complex_float* AP,
22289  lapack_int* info
22290 #ifdef LAPACK_FORTRAN_STRLEN_END
22291  , size_t
22292 #endif
22293 );
22294 #ifdef LAPACK_FORTRAN_STRLEN_END
22295  #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__, 1)
22296 #else
22297  #define LAPACK_ctrttp(...) LAPACK_ctrttp_base(__VA_ARGS__)
22298 #endif
22299 
22300 #define LAPACK_dtrttp_base LAPACK_GLOBAL(dtrttp,DTRTTP)
22301 void LAPACK_dtrttp_base(
22302  char const* uplo,
22303  lapack_int const* n,
22304  double const* A, lapack_int const* lda,
22305  double* AP,
22306  lapack_int* info
22307 #ifdef LAPACK_FORTRAN_STRLEN_END
22308  , size_t
22309 #endif
22310 );
22311 #ifdef LAPACK_FORTRAN_STRLEN_END
22312  #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__, 1)
22313 #else
22314  #define LAPACK_dtrttp(...) LAPACK_dtrttp_base(__VA_ARGS__)
22315 #endif
22316 
22317 #define LAPACK_strttp_base LAPACK_GLOBAL(strttp,STRTTP)
22318 void LAPACK_strttp_base(
22319  char const* uplo,
22320  lapack_int const* n,
22321  float const* A, lapack_int const* lda,
22322  float* AP,
22323  lapack_int* info
22324 #ifdef LAPACK_FORTRAN_STRLEN_END
22325  , size_t
22326 #endif
22327 );
22328 #ifdef LAPACK_FORTRAN_STRLEN_END
22329  #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__, 1)
22330 #else
22331  #define LAPACK_strttp(...) LAPACK_strttp_base(__VA_ARGS__)
22332 #endif
22333 
22334 #define LAPACK_ztrttp_base LAPACK_GLOBAL(ztrttp,ZTRTTP)
22335 void LAPACK_ztrttp_base(
22336  char const* uplo,
22337  lapack_int const* n,
22338  lapack_complex_double const* A, lapack_int const* lda,
22339  lapack_complex_double* AP,
22340  lapack_int* info
22341 #ifdef LAPACK_FORTRAN_STRLEN_END
22342  , size_t
22343 #endif
22344 );
22345 #ifdef LAPACK_FORTRAN_STRLEN_END
22346  #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__, 1)
22347 #else
22348  #define LAPACK_ztrttp(...) LAPACK_ztrttp_base(__VA_ARGS__)
22349 #endif
22350 
22351 #define LAPACK_ctzrzf LAPACK_GLOBAL(ctzrzf,CTZRZF)
22352 void LAPACK_ctzrzf(
22353  lapack_int const* m, lapack_int const* n,
22354  lapack_complex_float* A, lapack_int const* lda,
22355  lapack_complex_float* tau,
22356  lapack_complex_float* work, lapack_int const* lwork,
22357  lapack_int* info );
22358 
22359 #define LAPACK_dtzrzf LAPACK_GLOBAL(dtzrzf,DTZRZF)
22360 void LAPACK_dtzrzf(
22361  lapack_int const* m, lapack_int const* n,
22362  double* A, lapack_int const* lda,
22363  double* tau,
22364  double* work, lapack_int const* lwork,
22365  lapack_int* info );
22366 
22367 #define LAPACK_stzrzf LAPACK_GLOBAL(stzrzf,STZRZF)
22368 void LAPACK_stzrzf(
22369  lapack_int const* m, lapack_int const* n,
22370  float* A, lapack_int const* lda,
22371  float* tau,
22372  float* work, lapack_int const* lwork,
22373  lapack_int* info );
22374 
22375 #define LAPACK_ztzrzf LAPACK_GLOBAL(ztzrzf,ZTZRZF)
22376 void LAPACK_ztzrzf(
22377  lapack_int const* m, lapack_int const* n,
22378  lapack_complex_double* A, lapack_int const* lda,
22379  lapack_complex_double* tau,
22380  lapack_complex_double* work, lapack_int const* lwork,
22381  lapack_int* info );
22382 
22383 #define LAPACK_cunbdb_base LAPACK_GLOBAL(cunbdb,CUNBDB)
22384 void LAPACK_cunbdb_base(
22385  char const* trans, char const* signs,
22386  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22387  lapack_complex_float* X11, lapack_int const* ldx11,
22388  lapack_complex_float* X12, lapack_int const* ldx12,
22389  lapack_complex_float* X21, lapack_int const* ldx21,
22390  lapack_complex_float* X22, lapack_int const* ldx22,
22391  float* theta,
22392  float* phi,
22393  lapack_complex_float* TAUP1,
22394  lapack_complex_float* TAUP2,
22395  lapack_complex_float* TAUQ1,
22396  lapack_complex_float* TAUQ2,
22397  lapack_complex_float* work, lapack_int const* lwork,
22398  lapack_int* info
22399 #ifdef LAPACK_FORTRAN_STRLEN_END
22400  , size_t, size_t
22401 #endif
22402 );
22403 #ifdef LAPACK_FORTRAN_STRLEN_END
22404  #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__, 1, 1)
22405 #else
22406  #define LAPACK_cunbdb(...) LAPACK_cunbdb_base(__VA_ARGS__)
22407 #endif
22408 
22409 #define LAPACK_zunbdb_base LAPACK_GLOBAL(zunbdb,ZUNBDB)
22410 void LAPACK_zunbdb_base(
22411  char const* trans, char const* signs,
22412  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22413  lapack_complex_double* X11, lapack_int const* ldx11,
22414  lapack_complex_double* X12, lapack_int const* ldx12,
22415  lapack_complex_double* X21, lapack_int const* ldx21,
22416  lapack_complex_double* X22, lapack_int const* ldx22,
22417  double* theta,
22418  double* phi,
22419  lapack_complex_double* TAUP1,
22420  lapack_complex_double* TAUP2,
22421  lapack_complex_double* TAUQ1,
22422  lapack_complex_double* TAUQ2,
22423  lapack_complex_double* work, lapack_int const* lwork,
22424  lapack_int* info
22425 #ifdef LAPACK_FORTRAN_STRLEN_END
22426  , size_t, size_t
22427 #endif
22428 );
22429 #ifdef LAPACK_FORTRAN_STRLEN_END
22430  #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__, 1, 1)
22431 #else
22432  #define LAPACK_zunbdb(...) LAPACK_zunbdb_base(__VA_ARGS__)
22433 #endif
22434 
22435 #define LAPACK_cuncsd_base LAPACK_GLOBAL(cuncsd,CUNCSD)
22436 void LAPACK_cuncsd_base(
22437  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
22438  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22439  lapack_complex_float* X11, lapack_int const* ldx11,
22440  lapack_complex_float* X12, lapack_int const* ldx12,
22441  lapack_complex_float* X21, lapack_int const* ldx21,
22442  lapack_complex_float* X22, lapack_int const* ldx22,
22443  float* theta,
22444  lapack_complex_float* U1, lapack_int const* ldu1,
22445  lapack_complex_float* U2, lapack_int const* ldu2,
22446  lapack_complex_float* V1T, lapack_int const* ldv1t,
22447  lapack_complex_float* V2T, lapack_int const* ldv2t,
22448  lapack_complex_float* work, lapack_int const* lwork,
22449  float* rwork, lapack_int const* lrwork,
22450  lapack_int* iwork,
22451  lapack_int* info
22452 #ifdef LAPACK_FORTRAN_STRLEN_END
22453  , size_t, size_t, size_t, size_t, size_t, size_t
22454 #endif
22455 );
22456 #ifdef LAPACK_FORTRAN_STRLEN_END
22457  #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22458 #else
22459  #define LAPACK_cuncsd(...) LAPACK_cuncsd_base(__VA_ARGS__)
22460 #endif
22461 
22462 #define LAPACK_zuncsd_base LAPACK_GLOBAL(zuncsd,ZUNCSD)
22463 void LAPACK_zuncsd_base(
22464  char const* jobu1, char const* jobu2, char const* jobv1t, char const* jobv2t, char const* trans, char const* signs,
22465  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22466  lapack_complex_double* X11, lapack_int const* ldx11,
22467  lapack_complex_double* X12, lapack_int const* ldx12,
22468  lapack_complex_double* X21, lapack_int const* ldx21,
22469  lapack_complex_double* X22, lapack_int const* ldx22,
22470  double* theta,
22471  lapack_complex_double* U1, lapack_int const* ldu1,
22472  lapack_complex_double* U2, lapack_int const* ldu2,
22473  lapack_complex_double* V1T, lapack_int const* ldv1t,
22474  lapack_complex_double* V2T, lapack_int const* ldv2t,
22475  lapack_complex_double* work, lapack_int const* lwork,
22476  double* rwork, lapack_int const* lrwork,
22477  lapack_int* iwork,
22478  lapack_int* info
22479 #ifdef LAPACK_FORTRAN_STRLEN_END
22480  , size_t, size_t, size_t, size_t, size_t, size_t
22481 #endif
22482 );
22483 #ifdef LAPACK_FORTRAN_STRLEN_END
22484  #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__, 1, 1, 1, 1, 1, 1)
22485 #else
22486  #define LAPACK_zuncsd(...) LAPACK_zuncsd_base(__VA_ARGS__)
22487 #endif
22488 
22489 #define LAPACK_cuncsd2by1_base LAPACK_GLOBAL(cuncsd2by1,CUNCSD2BY1)
22490 void LAPACK_cuncsd2by1_base(
22491  char const* jobu1, char const* jobu2, char const* jobv1t,
22492  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22493  lapack_complex_float* X11, lapack_int const* ldx11,
22494  lapack_complex_float* X21, lapack_int const* ldx21,
22495  float* theta,
22496  lapack_complex_float* U1, lapack_int const* ldu1,
22497  lapack_complex_float* U2, lapack_int const* ldu2,
22498  lapack_complex_float* V1T, lapack_int const* ldv1t,
22499  lapack_complex_float* work, lapack_int const* lwork,
22500  float* rwork, lapack_int const* lrwork,
22501  lapack_int* iwork,
22502  lapack_int* info
22503 #ifdef LAPACK_FORTRAN_STRLEN_END
22504  , size_t, size_t, size_t
22505 #endif
22506 );
22507 #ifdef LAPACK_FORTRAN_STRLEN_END
22508  #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22509 #else
22510  #define LAPACK_cuncsd2by1(...) LAPACK_cuncsd2by1_base(__VA_ARGS__)
22511 #endif
22512 
22513 #define LAPACK_zuncsd2by1_base LAPACK_GLOBAL(zuncsd2by1,ZUNCSD2BY1)
22514 void LAPACK_zuncsd2by1_base(
22515  char const* jobu1, char const* jobu2, char const* jobv1t,
22516  lapack_int const* m, lapack_int const* p, lapack_int const* q,
22517  lapack_complex_double* X11, lapack_int const* ldx11,
22518  lapack_complex_double* X21, lapack_int const* ldx21,
22519  double* theta,
22520  lapack_complex_double* U1, lapack_int const* ldu1,
22521  lapack_complex_double* U2, lapack_int const* ldu2,
22522  lapack_complex_double* V1T, lapack_int const* ldv1t,
22523  lapack_complex_double* work, lapack_int const* lwork,
22524  double* rwork, lapack_int const* lrwork,
22525  lapack_int* iwork,
22526  lapack_int* info
22527 #ifdef LAPACK_FORTRAN_STRLEN_END
22528  , size_t, size_t, size_t
22529 #endif
22530 );
22531 #ifdef LAPACK_FORTRAN_STRLEN_END
22532  #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__, 1, 1, 1)
22533 #else
22534  #define LAPACK_zuncsd2by1(...) LAPACK_zuncsd2by1_base(__VA_ARGS__)
22535 #endif
22536 
22537 #define LAPACK_cungbr_base LAPACK_GLOBAL(cungbr,CUNGBR)
22538 void LAPACK_cungbr_base(
22539  char const* vect,
22540  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22541  lapack_complex_float* A, lapack_int const* lda,
22542  lapack_complex_float const* tau,
22543  lapack_complex_float* work, lapack_int const* lwork,
22544  lapack_int* info
22545 #ifdef LAPACK_FORTRAN_STRLEN_END
22546  , size_t
22547 #endif
22548 );
22549 #ifdef LAPACK_FORTRAN_STRLEN_END
22550  #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__, 1)
22551 #else
22552  #define LAPACK_cungbr(...) LAPACK_cungbr_base(__VA_ARGS__)
22553 #endif
22554 
22555 #define LAPACK_zungbr_base LAPACK_GLOBAL(zungbr,ZUNGBR)
22556 void LAPACK_zungbr_base(
22557  char const* vect,
22558  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22559  lapack_complex_double* A, lapack_int const* lda,
22560  lapack_complex_double const* tau,
22561  lapack_complex_double* work, lapack_int const* lwork,
22562  lapack_int* info
22563 #ifdef LAPACK_FORTRAN_STRLEN_END
22564  , size_t
22565 #endif
22566 );
22567 #ifdef LAPACK_FORTRAN_STRLEN_END
22568  #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__, 1)
22569 #else
22570  #define LAPACK_zungbr(...) LAPACK_zungbr_base(__VA_ARGS__)
22571 #endif
22572 
22573 #define LAPACK_cunghr LAPACK_GLOBAL(cunghr,CUNGHR)
22574 void LAPACK_cunghr(
22575  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22576  lapack_complex_float* A, lapack_int const* lda,
22577  lapack_complex_float const* tau,
22578  lapack_complex_float* work, lapack_int const* lwork,
22579  lapack_int* info );
22580 
22581 #define LAPACK_zunghr LAPACK_GLOBAL(zunghr,ZUNGHR)
22582 void LAPACK_zunghr(
22583  lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22584  lapack_complex_double* A, lapack_int const* lda,
22585  lapack_complex_double const* tau,
22586  lapack_complex_double* work, lapack_int const* lwork,
22587  lapack_int* info );
22588 
22589 #define LAPACK_cunglq LAPACK_GLOBAL(cunglq,CUNGLQ)
22590 void LAPACK_cunglq(
22591  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22592  lapack_complex_float* A, lapack_int const* lda,
22593  lapack_complex_float const* tau,
22594  lapack_complex_float* work, lapack_int const* lwork,
22595  lapack_int* info );
22596 
22597 #define LAPACK_zunglq LAPACK_GLOBAL(zunglq,ZUNGLQ)
22598 void LAPACK_zunglq(
22599  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22600  lapack_complex_double* A, lapack_int const* lda,
22601  lapack_complex_double const* tau,
22602  lapack_complex_double* work, lapack_int const* lwork,
22603  lapack_int* info );
22604 
22605 #define LAPACK_cungql LAPACK_GLOBAL(cungql,CUNGQL)
22606 void LAPACK_cungql(
22607  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22608  lapack_complex_float* A, lapack_int const* lda,
22609  lapack_complex_float const* tau,
22610  lapack_complex_float* work, lapack_int const* lwork,
22611  lapack_int* info );
22612 
22613 #define LAPACK_zungql LAPACK_GLOBAL(zungql,ZUNGQL)
22614 void LAPACK_zungql(
22615  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22616  lapack_complex_double* A, lapack_int const* lda,
22617  lapack_complex_double const* tau,
22618  lapack_complex_double* work, lapack_int const* lwork,
22619  lapack_int* info );
22620 
22621 #define LAPACK_cungqr LAPACK_GLOBAL(cungqr,CUNGQR)
22622 void LAPACK_cungqr(
22623  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22624  lapack_complex_float* A, lapack_int const* lda,
22625  lapack_complex_float const* tau,
22626  lapack_complex_float* work, lapack_int const* lwork,
22627  lapack_int* info );
22628 
22629 #define LAPACK_zungqr LAPACK_GLOBAL(zungqr,ZUNGQR)
22630 void LAPACK_zungqr(
22631  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22632  lapack_complex_double* A, lapack_int const* lda,
22633  lapack_complex_double const* tau,
22634  lapack_complex_double* work, lapack_int const* lwork,
22635  lapack_int* info );
22636 
22637 #define LAPACK_cungrq LAPACK_GLOBAL(cungrq,CUNGRQ)
22638 void LAPACK_cungrq(
22639  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22640  lapack_complex_float* A, lapack_int const* lda,
22641  lapack_complex_float const* tau,
22642  lapack_complex_float* work, lapack_int const* lwork,
22643  lapack_int* info );
22644 
22645 #define LAPACK_zungrq LAPACK_GLOBAL(zungrq,ZUNGRQ)
22646 void LAPACK_zungrq(
22647  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22648  lapack_complex_double* A, lapack_int const* lda,
22649  lapack_complex_double const* tau,
22650  lapack_complex_double* work, lapack_int const* lwork,
22651  lapack_int* info );
22652 
22653 #define LAPACK_cungtr_base LAPACK_GLOBAL(cungtr,CUNGTR)
22654 void LAPACK_cungtr_base(
22655  char const* uplo,
22656  lapack_int const* n,
22657  lapack_complex_float* A, lapack_int const* lda,
22658  lapack_complex_float const* tau,
22659  lapack_complex_float* work, lapack_int const* lwork,
22660  lapack_int* info
22661 #ifdef LAPACK_FORTRAN_STRLEN_END
22662  , size_t
22663 #endif
22664 );
22665 #ifdef LAPACK_FORTRAN_STRLEN_END
22666  #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__, 1)
22667 #else
22668  #define LAPACK_cungtr(...) LAPACK_cungtr_base(__VA_ARGS__)
22669 #endif
22670 
22671 #define LAPACK_zungtr_base LAPACK_GLOBAL(zungtr,ZUNGTR)
22672 void LAPACK_zungtr_base(
22673  char const* uplo,
22674  lapack_int const* n,
22675  lapack_complex_double* A, lapack_int const* lda,
22676  lapack_complex_double const* tau,
22677  lapack_complex_double* work, lapack_int const* lwork,
22678  lapack_int* info
22679 #ifdef LAPACK_FORTRAN_STRLEN_END
22680  , size_t
22681 #endif
22682 );
22683 #ifdef LAPACK_FORTRAN_STRLEN_END
22684  #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__, 1)
22685 #else
22686  #define LAPACK_zungtr(...) LAPACK_zungtr_base(__VA_ARGS__)
22687 #endif
22688 
22689 #define LAPACK_cungtsqr_row LAPACK_GLOBAL(cungtsqr_row,CUNGTSQR_ROW)
22690 void LAPACK_cungtsqr_row(
22691  lapack_int const* m, lapack_int const* n,
22692  lapack_int const* mb, lapack_int const* nb,
22693  lapack_complex_float* A, lapack_int const* lda,
22694  lapack_complex_float const* T, lapack_int const* ldt,
22695  lapack_complex_float* work, lapack_int const* lwork,
22696  lapack_int* info );
22697 
22698 #define LAPACK_zungtsqr_row LAPACK_GLOBAL(zungtsqr_row,ZUNGTSQR_ROW)
22699 void LAPACK_zungtsqr_row(
22700  lapack_int const* m, lapack_int const* n,
22701  lapack_int const* mb, lapack_int const* nb,
22702  lapack_complex_double* A, lapack_int const* lda,
22703  lapack_complex_double const* T, lapack_int const* ldt,
22704  lapack_complex_double* work, lapack_int const* lwork,
22705  lapack_int* info );
22706 
22707 #define LAPACK_cunmbr_base LAPACK_GLOBAL(cunmbr,CUNMBR)
22708 void LAPACK_cunmbr_base(
22709  char const* vect, char const* side, char const* trans,
22710  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22711  lapack_complex_float const* A, lapack_int const* lda,
22712  lapack_complex_float const* tau,
22713  lapack_complex_float* C, lapack_int const* ldc,
22714  lapack_complex_float* work, lapack_int const* lwork,
22715  lapack_int* info
22716 #ifdef LAPACK_FORTRAN_STRLEN_END
22717  , size_t, size_t, size_t
22718 #endif
22719 );
22720 #ifdef LAPACK_FORTRAN_STRLEN_END
22721  #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__, 1, 1, 1)
22722 #else
22723  #define LAPACK_cunmbr(...) LAPACK_cunmbr_base(__VA_ARGS__)
22724 #endif
22725 
22726 #define LAPACK_zunmbr_base LAPACK_GLOBAL(zunmbr,ZUNMBR)
22727 void LAPACK_zunmbr_base(
22728  char const* vect, char const* side, char const* trans,
22729  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22730  lapack_complex_double const* A, lapack_int const* lda,
22731  lapack_complex_double const* tau,
22732  lapack_complex_double* C, lapack_int const* ldc,
22733  lapack_complex_double* work, lapack_int const* lwork,
22734  lapack_int* info
22735 #ifdef LAPACK_FORTRAN_STRLEN_END
22736  , size_t, size_t, size_t
22737 #endif
22738 );
22739 #ifdef LAPACK_FORTRAN_STRLEN_END
22740  #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__, 1, 1, 1)
22741 #else
22742  #define LAPACK_zunmbr(...) LAPACK_zunmbr_base(__VA_ARGS__)
22743 #endif
22744 
22745 #define LAPACK_cunmhr_base LAPACK_GLOBAL(cunmhr,CUNMHR)
22746 void LAPACK_cunmhr_base(
22747  char const* side, char const* trans,
22748  lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22749  lapack_complex_float const* A, lapack_int const* lda,
22750  lapack_complex_float const* tau,
22751  lapack_complex_float* C, lapack_int const* ldc,
22752  lapack_complex_float* work, lapack_int const* lwork,
22753  lapack_int* info
22754 #ifdef LAPACK_FORTRAN_STRLEN_END
22755  , size_t, size_t
22756 #endif
22757 );
22758 #ifdef LAPACK_FORTRAN_STRLEN_END
22759  #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__, 1, 1)
22760 #else
22761  #define LAPACK_cunmhr(...) LAPACK_cunmhr_base(__VA_ARGS__)
22762 #endif
22763 
22764 #define LAPACK_zunmhr_base LAPACK_GLOBAL(zunmhr,ZUNMHR)
22765 void LAPACK_zunmhr_base(
22766  char const* side, char const* trans,
22767  lapack_int const* m, lapack_int const* n, lapack_int const* ilo, lapack_int const* ihi,
22768  lapack_complex_double const* A, lapack_int const* lda,
22769  lapack_complex_double const* tau,
22770  lapack_complex_double* C, lapack_int const* ldc,
22771  lapack_complex_double* work, lapack_int const* lwork,
22772  lapack_int* info
22773 #ifdef LAPACK_FORTRAN_STRLEN_END
22774  , size_t, size_t
22775 #endif
22776 );
22777 #ifdef LAPACK_FORTRAN_STRLEN_END
22778  #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__, 1, 1)
22779 #else
22780  #define LAPACK_zunmhr(...) LAPACK_zunmhr_base(__VA_ARGS__)
22781 #endif
22782 
22783 #define LAPACK_cunmlq_base LAPACK_GLOBAL(cunmlq,CUNMLQ)
22784 void LAPACK_cunmlq_base(
22785  char const* side, char const* trans,
22786  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22787  lapack_complex_float const* A, lapack_int const* lda,
22788  lapack_complex_float const* tau,
22789  lapack_complex_float* C, lapack_int const* ldc,
22790  lapack_complex_float* work, lapack_int const* lwork,
22791  lapack_int* info
22792 #ifdef LAPACK_FORTRAN_STRLEN_END
22793  , size_t, size_t
22794 #endif
22795 );
22796 #ifdef LAPACK_FORTRAN_STRLEN_END
22797  #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__, 1, 1)
22798 #else
22799  #define LAPACK_cunmlq(...) LAPACK_cunmlq_base(__VA_ARGS__)
22800 #endif
22801 
22802 #define LAPACK_zunmlq_base LAPACK_GLOBAL(zunmlq,ZUNMLQ)
22803 void LAPACK_zunmlq_base(
22804  char const* side, char const* trans,
22805  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22806  lapack_complex_double const* A, lapack_int const* lda,
22807  lapack_complex_double const* tau,
22808  lapack_complex_double* C, lapack_int const* ldc,
22809  lapack_complex_double* work, lapack_int const* lwork,
22810  lapack_int* info
22811 #ifdef LAPACK_FORTRAN_STRLEN_END
22812  , size_t, size_t
22813 #endif
22814 );
22815 #ifdef LAPACK_FORTRAN_STRLEN_END
22816  #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__, 1, 1)
22817 #else
22818  #define LAPACK_zunmlq(...) LAPACK_zunmlq_base(__VA_ARGS__)
22819 #endif
22820 
22821 #define LAPACK_cunmql_base LAPACK_GLOBAL(cunmql,CUNMQL)
22822 void LAPACK_cunmql_base(
22823  char const* side, char const* trans,
22824  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22825  lapack_complex_float const* A, lapack_int const* lda,
22826  lapack_complex_float const* tau,
22827  lapack_complex_float* C, lapack_int const* ldc,
22828  lapack_complex_float* work, lapack_int const* lwork,
22829  lapack_int* info
22830 #ifdef LAPACK_FORTRAN_STRLEN_END
22831  , size_t, size_t
22832 #endif
22833 );
22834 #ifdef LAPACK_FORTRAN_STRLEN_END
22835  #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__, 1, 1)
22836 #else
22837  #define LAPACK_cunmql(...) LAPACK_cunmql_base(__VA_ARGS__)
22838 #endif
22839 
22840 #define LAPACK_zunmql_base LAPACK_GLOBAL(zunmql,ZUNMQL)
22841 void LAPACK_zunmql_base(
22842  char const* side, char const* trans,
22843  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22844  lapack_complex_double const* A, lapack_int const* lda,
22845  lapack_complex_double const* tau,
22846  lapack_complex_double* C, lapack_int const* ldc,
22847  lapack_complex_double* work, lapack_int const* lwork,
22848  lapack_int* info
22849 #ifdef LAPACK_FORTRAN_STRLEN_END
22850  , size_t, size_t
22851 #endif
22852 );
22853 #ifdef LAPACK_FORTRAN_STRLEN_END
22854  #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__, 1, 1)
22855 #else
22856  #define LAPACK_zunmql(...) LAPACK_zunmql_base(__VA_ARGS__)
22857 #endif
22858 
22859 #define LAPACK_cunmqr_base LAPACK_GLOBAL(cunmqr,CUNMQR)
22860 void LAPACK_cunmqr_base(
22861  char const* side, char const* trans,
22862  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22863  lapack_complex_float const* A, lapack_int const* lda,
22864  lapack_complex_float const* tau,
22865  lapack_complex_float* C, lapack_int const* ldc,
22866  lapack_complex_float* work, lapack_int const* lwork,
22867  lapack_int* info
22868 #ifdef LAPACK_FORTRAN_STRLEN_END
22869  , size_t, size_t
22870 #endif
22871 );
22872 #ifdef LAPACK_FORTRAN_STRLEN_END
22873  #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__, 1, 1)
22874 #else
22875  #define LAPACK_cunmqr(...) LAPACK_cunmqr_base(__VA_ARGS__)
22876 #endif
22877 
22878 #define LAPACK_zunmqr_base LAPACK_GLOBAL(zunmqr,ZUNMQR)
22879 void LAPACK_zunmqr_base(
22880  char const* side, char const* trans,
22881  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22882  lapack_complex_double const* A, lapack_int const* lda,
22883  lapack_complex_double const* tau,
22884  lapack_complex_double* C, lapack_int const* ldc,
22885  lapack_complex_double* work, lapack_int const* lwork,
22886  lapack_int* info
22887 #ifdef LAPACK_FORTRAN_STRLEN_END
22888  , size_t, size_t
22889 #endif
22890 );
22891 #ifdef LAPACK_FORTRAN_STRLEN_END
22892  #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__, 1, 1)
22893 #else
22894  #define LAPACK_zunmqr(...) LAPACK_zunmqr_base(__VA_ARGS__)
22895 #endif
22896 
22897 #define LAPACK_cunmrq_base LAPACK_GLOBAL(cunmrq,CUNMRQ)
22898 void LAPACK_cunmrq_base(
22899  char const* side, char const* trans,
22900  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22901  lapack_complex_float const* A, lapack_int const* lda,
22902  lapack_complex_float const* tau,
22903  lapack_complex_float* C, lapack_int const* ldc,
22904  lapack_complex_float* work, lapack_int const* lwork,
22905  lapack_int* info
22906 #ifdef LAPACK_FORTRAN_STRLEN_END
22907  , size_t, size_t
22908 #endif
22909 );
22910 #ifdef LAPACK_FORTRAN_STRLEN_END
22911  #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__, 1, 1)
22912 #else
22913  #define LAPACK_cunmrq(...) LAPACK_cunmrq_base(__VA_ARGS__)
22914 #endif
22915 
22916 #define LAPACK_zunmrq_base LAPACK_GLOBAL(zunmrq,ZUNMRQ)
22917 void LAPACK_zunmrq_base(
22918  char const* side, char const* trans,
22919  lapack_int const* m, lapack_int const* n, lapack_int const* k,
22920  lapack_complex_double const* A, lapack_int const* lda,
22921  lapack_complex_double const* tau,
22922  lapack_complex_double* C, lapack_int const* ldc,
22923  lapack_complex_double* work, lapack_int const* lwork,
22924  lapack_int* info
22925 #ifdef LAPACK_FORTRAN_STRLEN_END
22926  , size_t, size_t
22927 #endif
22928 );
22929 #ifdef LAPACK_FORTRAN_STRLEN_END
22930  #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__, 1, 1)
22931 #else
22932  #define LAPACK_zunmrq(...) LAPACK_zunmrq_base(__VA_ARGS__)
22933 #endif
22934 
22935 #define LAPACK_cunmrz_base LAPACK_GLOBAL(cunmrz,CUNMRZ)
22936 void LAPACK_cunmrz_base(
22937  char const* side, char const* trans,
22938  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
22939  lapack_complex_float const* A, lapack_int const* lda,
22940  lapack_complex_float const* tau,
22941  lapack_complex_float* C, lapack_int const* ldc,
22942  lapack_complex_float* work, lapack_int const* lwork,
22943  lapack_int* info
22944 #ifdef LAPACK_FORTRAN_STRLEN_END
22945  , size_t, size_t
22946 #endif
22947 );
22948 #ifdef LAPACK_FORTRAN_STRLEN_END
22949  #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__, 1, 1)
22950 #else
22951  #define LAPACK_cunmrz(...) LAPACK_cunmrz_base(__VA_ARGS__)
22952 #endif
22953 
22954 #define LAPACK_zunmrz_base LAPACK_GLOBAL(zunmrz,ZUNMRZ)
22955 void LAPACK_zunmrz_base(
22956  char const* side, char const* trans,
22957  lapack_int const* m, lapack_int const* n, lapack_int const* k, lapack_int const* l,
22958  lapack_complex_double const* A, lapack_int const* lda,
22959  lapack_complex_double const* tau,
22960  lapack_complex_double* C, lapack_int const* ldc,
22961  lapack_complex_double* work, lapack_int const* lwork,
22962  lapack_int* info
22963 #ifdef LAPACK_FORTRAN_STRLEN_END
22964  , size_t, size_t
22965 #endif
22966 );
22967 #ifdef LAPACK_FORTRAN_STRLEN_END
22968  #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__, 1, 1)
22969 #else
22970  #define LAPACK_zunmrz(...) LAPACK_zunmrz_base(__VA_ARGS__)
22971 #endif
22972 
22973 #define LAPACK_cunmtr_base LAPACK_GLOBAL(cunmtr,CUNMTR)
22974 void LAPACK_cunmtr_base(
22975  char const* side, char const* uplo, char const* trans,
22976  lapack_int const* m, lapack_int const* n,
22977  lapack_complex_float const* A, lapack_int const* lda,
22978  lapack_complex_float const* tau,
22979  lapack_complex_float* C, lapack_int const* ldc,
22980  lapack_complex_float* work, lapack_int const* lwork,
22981  lapack_int* info
22982 #ifdef LAPACK_FORTRAN_STRLEN_END
22983  , size_t, size_t, size_t
22984 #endif
22985 );
22986 #ifdef LAPACK_FORTRAN_STRLEN_END
22987  #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__, 1, 1, 1)
22988 #else
22989  #define LAPACK_cunmtr(...) LAPACK_cunmtr_base(__VA_ARGS__)
22990 #endif
22991 
22992 #define LAPACK_zunmtr_base LAPACK_GLOBAL(zunmtr,ZUNMTR)
22993 void LAPACK_zunmtr_base(
22994  char const* side, char const* uplo, char const* trans,
22995  lapack_int const* m, lapack_int const* n,
22996  lapack_complex_double const* A, lapack_int const* lda,
22997  lapack_complex_double const* tau,
22998  lapack_complex_double* C, lapack_int const* ldc,
22999  lapack_complex_double* work, lapack_int const* lwork,
23000  lapack_int* info
23001 #ifdef LAPACK_FORTRAN_STRLEN_END
23002  , size_t, size_t, size_t
23003 #endif
23004 );
23005 #ifdef LAPACK_FORTRAN_STRLEN_END
23006  #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__, 1, 1, 1)
23007 #else
23008  #define LAPACK_zunmtr(...) LAPACK_zunmtr_base(__VA_ARGS__)
23009 #endif
23010 
23011 #define LAPACK_cupgtr_base LAPACK_GLOBAL(cupgtr,CUPGTR)
23012 void LAPACK_cupgtr_base(
23013  char const* uplo,
23014  lapack_int const* n,
23015  lapack_complex_float const* AP,
23016  lapack_complex_float const* tau,
23017  lapack_complex_float* Q, lapack_int const* ldq,
23018  lapack_complex_float* work,
23019  lapack_int* info
23020 #ifdef LAPACK_FORTRAN_STRLEN_END
23021  , size_t
23022 #endif
23023 );
23024 #ifdef LAPACK_FORTRAN_STRLEN_END
23025  #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__, 1)
23026 #else
23027  #define LAPACK_cupgtr(...) LAPACK_cupgtr_base(__VA_ARGS__)
23028 #endif
23029 
23030 #define LAPACK_zupgtr_base LAPACK_GLOBAL(zupgtr,ZUPGTR)
23031 void LAPACK_zupgtr_base(
23032  char const* uplo,
23033  lapack_int const* n,
23034  lapack_complex_double const* AP,
23035  lapack_complex_double const* tau,
23036  lapack_complex_double* Q, lapack_int const* ldq,
23037  lapack_complex_double* work,
23038  lapack_int* info
23039 #ifdef LAPACK_FORTRAN_STRLEN_END
23040  , size_t
23041 #endif
23042 );
23043 #ifdef LAPACK_FORTRAN_STRLEN_END
23044  #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__, 1)
23045 #else
23046  #define LAPACK_zupgtr(...) LAPACK_zupgtr_base(__VA_ARGS__)
23047 #endif
23048 
23049 #define LAPACK_cupmtr_base LAPACK_GLOBAL(cupmtr,CUPMTR)
23050 void LAPACK_cupmtr_base(
23051  char const* side, char const* uplo, char const* trans,
23052  lapack_int const* m, lapack_int const* n,
23053  lapack_complex_float const* AP,
23054  lapack_complex_float const* tau,
23055  lapack_complex_float* C, lapack_int const* ldc,
23056  lapack_complex_float* work,
23057  lapack_int* info
23058 #ifdef LAPACK_FORTRAN_STRLEN_END
23059  , size_t, size_t, size_t
23060 #endif
23061 );
23062 #ifdef LAPACK_FORTRAN_STRLEN_END
23063  #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__, 1, 1, 1)
23064 #else
23065  #define LAPACK_cupmtr(...) LAPACK_cupmtr_base(__VA_ARGS__)
23066 #endif
23067 
23068 #define LAPACK_zupmtr_base LAPACK_GLOBAL(zupmtr,ZUPMTR)
23069 void LAPACK_zupmtr_base(
23070  char const* side, char const* uplo, char const* trans,
23071  lapack_int const* m, lapack_int const* n,
23072  lapack_complex_double const* AP,
23073  lapack_complex_double const* tau,
23074  lapack_complex_double* C, lapack_int const* ldc,
23075  lapack_complex_double* work,
23076  lapack_int* info
23077 #ifdef LAPACK_FORTRAN_STRLEN_END
23078  , size_t, size_t, size_t
23079 #endif
23080 );
23081 #ifdef LAPACK_FORTRAN_STRLEN_END
23082  #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__, 1, 1, 1)
23083 #else
23084  #define LAPACK_zupmtr(...) LAPACK_zupmtr_base(__VA_ARGS__)
23085 #endif
23086 
23087 #ifdef __cplusplus
23088 } /* extern "C" */
23089 #endif
23090 
23091 #endif /* LAPACK_H */